Rotina Automática para transferência de funcionários GPEA180
Produto: | Microsiga Protheus® | ||||||||||||
Versões: | 12.1.17 | ||||||||||||
Ocorrência: | Exemplo de uso da Rotina Automática(ExecAuto) para Transferência de Funcionários - GPEA180 | ||||||||||||
Ambiente: | P12 | ||||||||||||
Passo a passo: | Essa rotina tem por objetivo, realizar a transferência de um ou mais funcionários existentes na filial logada:
| ||||||||||||
Exemplo: | ExecAuto - GPEA180 #INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" User Function TRANSF() Local aAutoItens := {} Local aCampos := {} Local aLogAuto := {} Local dDataTransf := CtoD("//") Private lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "GPE" ConOut(Repl("-",80)) ConOut("Inicio: "+Time()) ConOut(PadC("Rotina Automatica Transferencia de funcionarios - SRA",80)) dDataTransf := StoD("20181015") aAdd( aCampos, { "RA_FILIAL", "02" } ) aAdd( aCampos, { "RA_MAT" , "000002" } ) aAdd( aCampos, { "RA_DEPTO", "000000002" } ) aAdd( aAutoItens, { "01", "000001", aCampos } ) aCampos := {} aAdd( aCampos, { "RA_FILIAL", "02" } ) aAdd( aCampos, { "RA_MAT" , "000003" } ) aAdd( aCampos, { "RA_DEPTO", "000000003" } ) aAdd( aAutoItens, { "01", "000002", aCampos } ) //chamada ExecAuto MSExecAuto( {|x,y,z,w| GPEA180(x,y,z,w)}, 6, aAutoItens, dDataTransf, .T. ) If !lMsErroAuto ConOut("Transferencia efetuada!") Else If !IsBlind() aLogAuto:= MostraErro('Null') varinfo("aLogAuto",aLogAuto) Else MostraErro() //caso acionada via interface. EndIf ConOut("Erro na Transferencia!") EndIf ConOut("Fim : "+Time()) ConOut(Repl("-",80)) RESET ENVIRONMENT Return NIL | ||||||||||||
Observações: | Os nomes dos campos a serem passados na terceira dimensão do array seguem o padrão dos campos da SRA: RA_FILIAL, RA_MAT,... ( RA_xxx ), exceto o campo correspondente a grupo de empresas, cujo nome a ser passado será M_EMPRESA. Os períodos nos processos Origem e Destino devem estar correspondentes, e os lançamentos do funcionário a ser transferido devem estar de acordo, para não necessitar de informação adicional de transferência de processo. Necessário inicializar o array aCampos a cada funcionário | ||||||||||||
Pacote: | 12.1.17: https://suporte.totvs.com/portal/p/10098/download?e=718497 |