Produto:

Protheus

Ocorrência:

Exemplo customização da Rotina Automática FINA080

Passo a passo:

#Include 'Protheus.ch'
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

User Function MyMata080()

Local aTitBx := {}
Private lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FIN"

DbSelectArea("SE2")
SE2->(DbSetOrder(1))
SE2->(DbSeek(xFilial("SE2")+"TST"+"000000001"))

AADD(aTitBx , {"E2_PREFIXO" , SE2->E2_PREFIXO, NIL})
AADD(aTitBx , {"E2_NUM" , SE2->E2_NUM , NIL})
AADD(aTitBx , {"E2_PARCELA" , SE2->E2_PARCELA, NIL})
AADD(aTitBx , {"E2_TIPO" , SE2->E2_TIPO , NIL})
AADD(aTitBx , {"E2_FORNECE" , SE2->E2_FORNECE, NIL})
AADD(aTitBx , {"E2_LOJA" , SE2->E2_LOJA , NIL})
AADD(aTitBx , {"AUTMOTBX" , "DAC" , NIL})
AADD(aTitBx , {"AUTDTBAIXA" , dDataBase , NIL})
AADD(aTitBx , {"AUTHIST" , "Baixa Teste",NIL})

lMsErroAuto := .f.

MSExecAuto({|x, y| FINA080(x, y)}, aTitBxI, 3)

If lMsErroAuto
MostraErro()
Else
Conout("Baixou")
EndIf

RESET ENVIRONMENT

Return(.T.)