CTBANFS - Contabilidad Offline de documentos fiscales de salida (ExecAuto)

User Function CTBAXFUN()
Local aParam:= {}

Private lMsErroAuto := .F.
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ mv_par01 - ¿Muestra Asientos Contables? Sí No ³
//³ mv_par02 - ¿Agrupa Asientos ? Sí No ³
//³ mv_par03 - ¿Generar Asientos Por ? Fact Período Día ³
//³ mv_par04 - ¿Contabiliza C.M.V. ? Sí No ³
//³ mv_par05 - Fecha Inicial ³
//³ mv_par06 - Fecha Final ³
//³ mv_par07 - De Sucursal ³
//³ mv_par08 - A Sucursal ³
//³ mv_par09 - ¿Contabiliza facturas de crédito? Sí No ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Preparando el entorno para ejecución ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ConOut(Repl("-",80))
ConOut(PadC("Prueba de Asiento Contable",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 con éxito! "+Time())
Else
ConOut("¡Error al incluir!"+Time())
EndIf

RESET ENVIRONMENT
Return