Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - EXECAUTO CTBANFS

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
#INCLUDE "TBICONN.CH"

User Function CTBAXFUN()

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

    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    //³ mv_par01 - Mostra Lancamentos Contabeis ? Sim Nao ³
    //³ mv_par02 - Aglutina Lancamentos ? Sim Nao ³
    //³ mv_par03 - Gerar Lancamentos Por ? NF Periodo Dia ³
    //³ mv_par04 - Contabiliza C.M.V. ? Sim Nao ³
    //³ mv_par05 - Data Inicial ³
    //³ mv_par06 - Data Final ³
    //³ mv_par07 - Da Filial ³
    //³ mv_par08 - At‚ a Filial ³
    //³ mv_par09 - Contabiliza Notas de Credito ? Sim Nao ³
    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    //³Preparando o ambiente para execucao ³
    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

    ConOut(Repl("-",80))
    ConOut(PadC("Teste de Lancamento Contabil",80))

    PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" //USER "ADMIN" PASSWORD "" TABLES "SF2" MODULO "FAT"

        aAdd(aParam,(1))        //Mostra Lancamentos Contabeis? 1-Sim / 2-Nao
        aAdd(aParam,(2))        //Aglutina Lancamentos? 1-Sim / 2-Nao
        aAdd(aParam,(1))        //Gerar Lancamentos Por? 1-Documento / 2-Periodo / 3-Dia
        aAdd(aParam,(2))        //Contabiliza Custo On-Line? 1-Sim / 2-Nao
        aAdd(aParam,(DATE()))   //Data Inicial
        aAdd(aParam,(DATE()))   //Data Final
        aAdd(aParam,(" "))      //Da Filial
        aAdd(aParam,("99"))     //Ate a Filial
        aAdd(aParam,(2))        //Contabiliza Notas de Credito? 1-Sim / 2-Nao

        CTBANFS(aParam)

        If !lMsErroAuto
            ConOut("Incluido com sucesso! ")
        Else
            ConOut("Erro na inclusao!")
        EndIf

        ConOut(Repl("-",80))

    RESET ENVIRONMENT

Return