Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | GP010AUT.PRW |
País: | Brasil |
Ticket: | 15726451 |
Requisito/Story/Issue (informe o requisito relacionado) : | DRHROTPRT-8273 |
Necessidade de exemplo de utilização da rotina automático do Cadastro de Funcionários com alteração de Data de Vencimento de Contrato.
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.)
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.