Histórico da Página
...
04. DEMAIS INFORMAÇÕES
Ao utilizar o a função exemplo de função Transf(), anexada ao chamado, será necessário realizar um ajuste no fonte e adicionar , para que a transferência seja efetivada. Adicione todos os campos obrigatórios conforme uma transferência realizada via browser, da rotina GPEA180 - Transferência.
Abaixo temos um exemplo de preenchimento dos campos Centro de Custo, Item Contábil e Matricula, que são campos obrigatórios para realizar uma transferência de centro de custo:
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
dDataTransf := StoD("20160303") aAdd( aCampos, { "RA_CLVL", "002" } ) aAdd( aCampos, { "RA_CC" , " CC000008" } ) aAdd( aAutoItens, { "D MG 01 ", "000118", aCampos } ) |
Exemplo completo rotina automática de transferência, função Transf():
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
#INCLUDE "Protheus.CH"
#iNCLUDE 'TBICONN.CH'
#Include 'FWMVCDef.ch'
#DEFINE CRLF Chr(13)+Chr(10)
//////////////ROTINA AUTOMATICA/////////////
//////////////////GPEA180///////////////////
User Function TRANSF()
Local aAutoItens := {}
Local aCampos := {}
Local aLogAuto := {}
Local dDataTransf := CtoD("//")
Private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GPE"
ConOut(Repl("-",80))
ConOut("Inicio: "+Time())
ConOut(PadC("Rotina Automatica Transferencia de funcionarios - SRA",80))
dDataTransf := StoD("20160303")
aAdd( aCampos, { "RA_CLVL", "002" } )
aAdd( aCampos, { "RA_CC" , " CC000008" } )
aAdd( aAutoItens, { "D MG 01 ", "000118", 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 |
05. ASSUNTOS RELACIONADOS
Não há.Exemplo Rotina Automática(ExecAuto) - GPEA180
Templatedocumentos |
---|
HTML |
---|
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas