Histórico da Página

#Include "protheus.ch"
#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(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

    MsExecAuto({|x, y| FINA080(x, y)}, aTitBx, 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