01. DADOS GERAIS

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


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