#Include "protheusTOTVS.ch"
#Include "parmtype.ch"
User Function TFINA080()
Local nOpc := 3 // 3=BAIXA | 5=CANCELAMENTO
Local aTitBx := {}
Private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA RPCSetEnv("99", FILIAL "01" MODULO, NIL, NIL, "FIN", TABLESNIL, {"SE2"})
If (nOpc == 3)
DbSelectArea("SE2")
DbSetOrder(1)
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})
EndIf
If (nOpc == 5)
DbSelectArea("SE2")
DbSetOrder(1)
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})
EndIf
MsExecAuto({|x, y| FINA080(x, y)}, aTitBx, nOpc)
If (lMsErroAuto == .T.)
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 ENVIRONMENTRestArea(aArea)
RPCClearEnv()
Return (NIL) |