01. DADOS GERAIS
Produto: |
TOTVS RH
|
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | RH |
Módulo: |
TOTVS RH (Linha Protheus) - Gestão de Pessoas (SIGAGPE)
|
Função: | GP010AUT.PRW |
País: | Brasil |
Ticket: | 15726451 |
Requisito/Story/Issue (informe o requisito relacionado) : | DRHROTPRT-8273 |
02. SITUAÇÃO/REQUISITO
Necessidade de exemplo de utilização da rotina automático do Cadastro de Funcionários com alteração de Data de Vencimento de Contrato.
03. SOLUÇÃO
Exemplo de utilização da rotina automático do Cadastro de Funcionários com alteração de Data de Vencimento de Contrato:
#INCLUDE "Protheus.CH"
User Function GP010AUT()
Local aCabec := {}
Local cFilMat := "01"
Local cMatricula := "R00159"
Private lMsErroAuto := .F.
dbSelectArea("SRA")
SRA->(dbSetOrder(1))
If SRA->(dbSeek(cFilMat+cMatricula))
aAdd(aCabec,{"RA_FILIAL" , SRA->RA_FILIAL , Nil})
aAdd(aCabec,{"RA_MAT" , SRA->RA_MAT , Nil})
aAdd(aCabec,{"RA_SALARIO" , SRA->RA_SALARIO , Nil})
aAdd(aCabec,{"RA_DTFIMCT" , Stod('20240831'), Nil})
U_Envia(aCabec)
EndIf
Return(.T.)
User Function Envia(aCabec)
// Faz a chamada da rotina de cadastro de funcionários (opção 4)
MSExecAuto({|x,y,k,w| GPEA010(x,y,k,w)},NIL,NIL,aCabec,4)
// Retorno de erro na execução da rotina
If lMsErroAuto
MostraErro()
Else
MsgAlert("Alterado com sucesso.")
EndIf
Return(.T.)
04. DEMAIS INFORMAÇÕES
As alterações contratuais também podem ser geradas através do evento S-2206, para maiores informações acesse a nossa FAQ sobre o tema.
05. ASSUNTOS RELACIONADOS
- N/A