Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - CTBANFS - Generación de Asientos Off line de Ventas CTBANFS por MSExecAuto

Tiempo aproximado de lectura 00:03:00 min

Duda
Ejemplo de execauto de la rutina CTBANFS

Entorno
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - Versión 12

Solución
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 Lançamento Contábil",80))
ConOut("Inicio: "+Time())

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

aAdd(aParam,(1))
aAdd(aParam,(1))
aAdd(aParam,(1))
aAdd(aParam,(1))
aAdd(aParam,(DATE()))
aAdd(aParam,(DATE()))
aAdd(aParam,(" "))
aAdd(aParam,("99"))
aAdd(aParam,(2))

CTBANFS(aParam)
If !lMsErroAuto
ConOut("Incluido com sucesso! "+Time())
Else
ConOut("Erro na inclusao!"+Time())
EndIf

RESET ENVIRONMENT
Return

Sugerimos consultar el boletín técnico de TDN CTBANFS - Contabilização Offline dos Documentos Fiscais de Saída (ExecAuto)