Linha Microsiga Protheus

Árvore de páginas

Descrição:

Exemplo de Execauto para cadastro de bancos - Rotina Automática

Localização:

Financeiro > Atualizações > Cadastros > Bancos

Programa Fonte:

MATA070.


Exemplo:

#INCLUDE "PROTHEUS.CH"

User Function MyMATA070()

Local nOperac := 3
Local aCab := {}

Private lMsErroAuto := .F.

aadd( aCab, {'A6_COD', '000', NIL} )
aadd( aCab, {'A6_AGENCIA', '00001', NIL} )
aadd( aCab, {'A6_NUMCON', '0000001', NIL} )
aadd( aCab, {'A6_NOME', 'BANCO TESTE', NIL} )

MsExecAuto({|a,b| MATA070(a,b)}, aCab, nOperac)

If lMsErroAuto
MsgStop("Fim", "Processo não Realizado")
Else
MsgStop("Fim", "Sucesso")
EndIf

Return()