Histórico da Página

...

Private lMsErroAuto := .F.
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ mv_par01 - Mostra Lancamentos Contabeis ? Sim Nao ¿Muestra Asientos Contables? Sí No ³
//³ mv_par02 - Aglutina Lancamentos ? Sim Nao ¿Agrupa Asientos ? Sí No ³
//³ mv_par03 - Gerar Lancamentos ¿Generar Asientos Por ? NF Periodo Dia Fact Período Día ³
//³ mv_par04 - Contabiliza ¿Contabiliza C.M.V. ? Sim Nao Sí No ³
//³ mv_par05 - Data Fecha Inicial ³
//³ mv_par06 - Data Fecha Final ³
//³ mv_par07 - Da Filial De Sucursal ³
//³ mv_par08 - At‚ a Filial A Sucursal ³
//³ mv_par09 - Contabiliza Notas ¿Contabiliza facturas de Credito crédito? Sim Nao Sí No ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Preparando o ambiente el entorno para execucao ejecución ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ConOut(Repl("-",80))
ConOut(PadC("Teste Prueba de Lançamento ContábilAsiento Contable",80))
ConOut("Inicio: "+Time())

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

...

CTBANFS(aParam)
If !lMsErroAuto
ConOut("Incluido com sucesso¡Incluido con éxito! "+Time())
Else
ConOut("Erro na inclusao¡Error al incluir!"+Time())
EndIf

RESET ENVIRONMENT
Return