Tempo aproximado para leitura: 00:01:00 min
Dúvida
Implementação de rotina Automática na rotina de Valores Futuros.
Ambiente
TOTVS RH - TOTVS RH (Linha Protheus) - Gestão de Pessoal - A partir da versão 12.1.17
Solução
Implementação da rotina automática (ExecAuto) na rotina de cadastro de valores futuros (GPEA110) para que seja possível realizar inclusão, alteração e exclusão de informações.
1. Na chamada da Função GPEA110 devem ser passados os parâmetros.
nOpcAuto - Indica a operação que será realizada, 3 - Inclusão, 4 - Alteração; 5 - Exclusão
aCab - Array com as informações para posicionar no funcionário
aItens - Array com os lançamentos
2. Exemplo de chamada da rotina automática.
#Include 'Protheus.ch'
User Function GP110_Exec()
Local aCab := {}
Local aItem := {}
Local aItens := {}
Local aLog := {}
Local lOk := .T.
Private lMsErroAuto := .F.
Aadd(aCab, {"RA_FILIAL" , "D MG 01 ",NIL})
Aadd(aCab, {"RA_MAT" , "999975" ,NIL})
Aadd(aItem,{ "RK_PD" , "005" ,nil})
Aadd(aItem,{ "RK_DOCUMEN" , "000002" ,nil})
Aadd(aItem,{ "RK_VALORTO" , 500.00 ,nil})
Aadd(aItem,{ "RK_PARCELA" , 1 ,nil}
aAdd(aItens,aItem)
MSExecAuto({|a, b, c| GPEA110(a, b, c) }, 3, aCab, aItens) //Inclusão
//MSExecAuto({|a, b, c| GPEA110(a, b, c) }, 4, aCab, aItens) //Alteração
//MSExecAuto({|a, b, c| GPEA110(a, b, c) }, 5, , ) //Exclusão
If !lMsErroAuto
ConOut("**** Incluido com sucesso! ****")
Else
aLog := getAutoGrLog()
MostraErro()
ConOut("Erro na Alteracao!")
EndIf
Return aLog
Tabelas Utilizadas:
- SRK - Movimento de Valores Futuros
- SRA - Funcionários
Importante
Para informações sobre a estrutura do array aItens consulte a página http://tdn.totvs.com/x/bv1n
Tabelas Utilizadas:
- SRK - Movimento de Valores Futuros
- SRA - Funcionários
Saiba mais:
Documentação sobre o ExecAuto: https://tdn.totvs.com/pages/releaseview.action?pageId=521997032
Pacote acumulado do RH: https://centraldeatendimento.totvs.com/hc/pt-br/articles/115015741848
0 Comentários