Exemplo Rotina Automática FINA080
Produto: | Protheus |
Versões: | Todas |
Ocorrência: | |
- 'Protheus'#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->("
#Include "parmtype.ch"
User Function TFINA070()
Local nOpc := 3
Local aTitBx := {}
Private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FIN" TABLES "SE2"
If nOpc == 3
DbSelectArea("SE2")
DbSetOrder(1)
DbSeek(xFilial("SE2") + "TST" + "000000001") |
|
)AADD
Aadd(aTitBx, {"E2_PREFIXO", SE2->E2_PREFIXO, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_NUM", SE2->E2_NUM, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_PARCELA", SE2->E2_PARCELA, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_TIPO", SE2->E2_TIPO, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_FORNECE", SE2->E2_FORNECE, NIL}) |
|
AADD
Aadd(aTitBx, {"E2_LOJA", SE2->E2_LOJA, NIL}) |
|
AADD
Aadd(aTitBx, {"AUTMOTBX", "DAC", |
|
NIL})AADD NIL})
Aadd(aTitBx, {"AUTDTBAIXA", dDataBase, NIL}) |
|
AADD
Aadd(aTitBx, {"AUTHIST", "Baixa Teste", |
|
NIL})lMsErroAuto := .f.
MSExecAuto NIL})
EndIf
MsExecAuto({|x, y| FINA080(x, y)}, |
|
aTitBxI 3)If lMsErroAuto
MostraErro()
Else
Conout("Baixou")
EndIf
RESET ENVIRONMENT
Return()
Observações: | nOpc)
If lMsErroAuto
MostraErro()
ConOut(Repl("-", 80))
ConOut(PadC("Teste FINA080 finalizado com erro!", 80))
ConOut(PadC("Fim: " + Time(), 80))
ConOut(Repl("-", 80))
Else
ConOut(Repl("-", 80))
ConOut(PadC("Teste FINA080 finalizado com sucesso!", 80))
ConOut(PadC("Fim: " + Time(), 80))
ConOut(Repl("-", 80))
EndIf
RESET ENVIRONMENT
Return NIL |
|
