Gustavo Olmedo es el representante de Clarion en Argentina
[email protected]
(02352) 431823
Podes trabajarlo sin necesidad de template.
Con el template es obvio que es mas simple y no tenes que hacer mucho.
Te comento como lo hago yo.
El código que uso:
! En el loop que lee la tabla que contiene los datos del iva Ventas (AIvaVnta) antes de volver a leer el próximo registro, agrego este código para grabar el archivo: IvaVenta.Csv
IF Pasa = 0 ! Si Pasa = 0 es la primer lectura que generó y aprovecho y le grabo el encabezado
Pasa = 1 ! Marco Pasa = 1 para que no entre mas
IVV:Nogravado = 'No Gravado'
IVV:Gravado = 'Gravado'
IVV:Exento = 'Exento'
IVV:Iva21 = 'Iva 21%'
IVV:Iva105 = 'Iva 10.5%'
IVV:Iva27 = 'Iva 27%'
IVV:Iva2_5 = 'Iva 2.5%'
IVV:Iva5 = 'Iva 5%'
IVV:Impuestos = 'Suma Impuestos'
IVV:ImporteTotal= 'Importe Total'
IF ACCESS:IvaVenta.INSERT() ! Grabo el archivo con el Encabezado
MESSAGE('NO GRABA IvaVenta.Csv','Mensaje del Sistema',ICON:Exclamation)
IF ERRORCODE() THEN STOP(ERROR()).
END
END
! lo que sigue son los datos leidos desde la tabla AIvaVnta que es la tabla que contiene los datos del iva
IVV:Gravado = Format((IVTA:NetoGravado1 + IVTA:NetoGravado2 + IVTA:NetoGravado3 + IVTA:NetoGravado4 + IVTA:NetoGravado5),@N-17`2)
IVV:Exento = Format(IVTA:NetoExento1,@N-17`2) ! Cargo los campos de esta forma por que son numéricos Ejamplo: Format(IVTA:NetoExento1,@N-17`2)
IVV:Iva21 = Format(IVTA:ImpivaRi_1,@N-17`2)
IVV:Iva105 = Format(IVTA:ImpivaRi_2,@N-17`2)
IVV:Iva27 = Format(IVTA:ImpivaRi_3,@N-17`2)
IVV:Iva2_5 = Format(IVTA:ImpivaRi_4,@N-17`2)
IVV:Iva5 = Format(IVTA:ImpivaRi_5,@N-17`2)
IVV:Impuestos = Format((IVTA:ImpuestosNacionales + IVTA:ImpuestosMunicipales + IVTA:ImpuestosProvinciales + IVTA:ImpuestosInternos + IVTA:IngresoBruto + |
IVTA:IngresoBruto + IVTA:PercepcionDeIva + IVTA:Percepcion_IIBB + IVTA:PercepcionPorImpuestosMunicipales + IVTA:OtrasPercepciones + |
IVTA:PercepcionDeIvaNoCategorizado + IVTA:ImpImpuestos ),@N-17`2)
IVV:Nogravado = Format(IVTA:NoGravado,@N-17`2)
IVV:ImporteTotal= Format(IVTA:ImporteTotal,@N-17`2)
IF ACCESS:IvaVenta.INSERT() ! Grabo los datos
MESSAGE('NO GRABA IvaVenta.Csv','Mensaje del Sistema',ICON:Exclamation)
IF ERRORCODE() THEN STOP(ERROR()).
END
Saludos