ASPEL SAE 2.5
EJEMPLO NO. 3
Asientos contables de Ventas a partir del modulo de Facturación.
Cuando las empresas usan sistemas no Aspel para gestionar la Contabilidad,
este ejemplo muestra cómo migrar los movimientos hacia otros formatos
para ser incorporados por éstos.
\**************************************************************************
\*** FILIP
par.fto
\*** Elaboracion de partidas de ventas.
SAEWIN25 may/2005
\**************************************************************************
\pantalla
disco "c:\par.prn"
Define_Encabezado "Auto"
Fencabezados
Asigna <106>, 0
Mascara "#######.##"
Inicia FACTURA
Si <052> <> "C A N C E L A D A"
Asigna <107>, <106>+1
Asigna <106>, <107>
Mascara "#######.##"
Escribe 1, "D", 5, "112-01-", 12, <028>, 21, @MFC[<054>,
"mm"]
Escribe 25, @MFC[<054>, "dd/mm/aaaa"]
Escribe 39, <066>, 50, <107>
Escribe 62, "VENTAS SEGUN FACTURA NO. ", 89, <050>
Escribe 1, "H", 5, "214-01-00001", 21, @MFC[<054>,
"mm"]
Escribe 25, @MFC[<054>, "dd/mm/aaaa"]
Escribe 39, <065>, 50, <107>
Escribe 62, "POR VENTAS EN FACTURA NO.", 89, <050>
Inicia PARTIDA
Si <052> <> "C A N C E L A D A"
Mascara "#######.##"
Escribe 1, "H"
Si <220>="I"
Escribe 5, "511-03-00030"
Sino
Si <093> = "ALQ1"
Escribe 5, "513-04-00001"
Sifin
Si <093> = "ALQ2"
Escribe 5, "513-04-00001"
Sifin
Si <093> = "INT"
Escribe 5, "512-03-00001"
Sifin
Sifin
Escribe 21, @MFC[<054>, "mm"]
Escribe 25, @MFC[<054>, "dd/mm/aaaa"]
Escribe 39, <082>-<083>-<084>, 50, <107>
Escribe 62, "POR VENTAS EN FACTURA NO.", 89, <050>
Sifin
Sifin
Termina PARTIDA
Termina FACTURA
Escribe 5, "Fin de reporte"
Fin
Muestra txt de los asientos.
Para el caso de Filip la rutina en Foxpro prepara los movimientos afectando
la cuenta de cada cliente por separado
en el rubro de la 112-01 Cuentas por cobrar Clientes.
La rutina agrupa en el rubro de Acreedoras 511-03, excepto cuando se facturan
Servicios.
En el rubro de Débito Fiscal 214-01 tambien agrupa porque el analisis
de impuestos mensual se basa en Libro de IVA. Sin embargo, en el fuente de
la rutina queda la opción para desagrupar este rubro.
La rutina asigna también un número de partida o asiento contable
por cada día de Facturación, tal como es el esquema actual
de Contabilidad. Como el correlativo de partidas contables se reinicia cada
mes no es posible migrar partidas de varios meses juntos, sino que debe hacerse
un mes a la vez. El proceso de migracion de partidas se hace una sola vez
al mes, o cada vez que se desee pero siempre el rango de fechas a enviar
en el FTO debe ser desde principio de mes.
D 112-01-FU017 05
03/05/2007 62.97
28.00 VENTAS SEGUN FACTURA NO. F1784
H 214-01-00001 05 03/05/2007
7.24 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
5.31 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
7.96 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
3.54 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
3.54 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
8.85 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
4.42 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
7.96 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
4.42 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
4.42 28.00 POR VENTAS EN FACTURA NO.
F1784
H 511-03-00030 05 03/05/2007
5.31 28.00 POR VENTAS EN FACTURA NO.
F1784
D 112-01-CA093 05 04/05/2007
8.00 29.00 VENTAS SEGUN FACTURA NO.
F1788
H 214-01-00001 05 04/05/2007
0.92 29.00 POR VENTAS EN FACTURA NO.
F1788
H 511-03-00030 05 04/05/2007
7.08 29.00 POR VENTAS EN FACTURA NO.
F1788
D 112-01-RO071 05 04/05/2007
17.99 30.00 VENTAS SEGUN FACTURA NO.
F1790
H 214-01-00001 05 04/05/2007
2.07 30.00 POR VENTAS EN FACTURA NO.
F1790
H 511-03-00030 05 04/05/2007
3.54 30.00 POR VENTAS EN FACTURA NO.
F1790
H 511-03-00030 05 04/05/2007
5.31 30.00 POR VENTAS EN FACTURA NO.
F1790
H 511-03-00030 05 04/05/2007
2.65 30.00 POR VENTAS EN FACTURA NO.
F1790
H 511-03-00030 05 04/05/2007
4.42 30.00 POR VENTAS EN FACTURA NO.
F1790
ASPEL SAE 2.5
EJEMPLO NO. 4
\***************************************************************************
\*** Filip - Exporta abonos CXC hacia partidas Krystal
mar/2003-2006
\*** EXPORTACION DE CXC HACIA ASCII
SAEWIN25 CCP.FTO
\***************************************************************************
Disco "c:\ccp.prn"
\Pantalla
Mascara
"#######.##"
Caracteres 250
Ancho_caracteres 132
Inicia cli_pro
Inicia docto
Si <029><>1
Si <029><>2
Si <029><>3
Si <029><>4
Si <029><>5
Si <029><>6
Si <029><>7
Si <029><>8
Si <029><>12
Si <029><>16
Si <029><>17
Si <029><>18
Si <029><>19
Si <029><>20
Si <029><>21
Escribe 1, "H", 6, "112-01-", 13, <043>, 22, @MFC[<034>,
"mm"]
Escribe 34, @MFC[<034>, "dd/mm/aaaa"]
Escribe 47, <033>, 57, <029>
Escribe 63, "ABONO A FACT NO.", 85, <030>, 94, <032>,
106, <031>
Escribe 1, "D", 6, "100-01-00001", 22, @MFC[<034>,
"mm"]
Escribe 34, @MFC[<034>, "dd/mm/aaaa"]
Escribe 47, <033>
Escribe 63, <037>, 85, <030>, 94, <032>,
106, <031>
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Sifin
Termina docto
termina cli_pro
Escribe 1, "fin de reporte"
fin
Muestra del txt.
El asiento afecta la Caja General 100-01 para no interferir en las
cuenta de Bancos. Se abona a la cuenta contable de cada cliente.
H
112-01-AB002 05
25/05/2007 121.96 10 ABONO
A FACT NO. F2404
F2404
D 100-01-00001 05
25/05/2007 121.96
Efectivo
F2404 F2404
H 112-01-AB004 05
17/05/2007 8.00 10
ABONO A FACT NO. F2105
F2105 A.CUENTA
D 100-01-00001 05
17/05/2007 8.00
Efectivo
F2105 F2105 A.CUENTA
H 112-01-AG008 05
17/05/2007 40.99 10
ABONO A FACT NO. F2155
F2155
D 100-01-00001 05
17/05/2007 40.99
Efectivo
F2155 F2155
H 112-01-AL002 05
18/05/2007 25.00 10
ABONO A FACT NO. F2192
F2192
D 100-01-00001 05
18/05/2007 25.00
Efectivo
F2192 F2192
H 112-01-AL009 05
12/05/2007 88.94 10
ABONO A FACT NO. F1431
F1431
D 100-01-00001 05
12/05/2007 88.94
Efectivo
F1431 F1431
Consultas a [email protected]