55 lines
1.5 KiB
Plaintext
55 lines
1.5 KiB
Plaintext
GLOBALS
|
|
DEFINE usuarios,clave CHAR(50)
|
|
END GLOBALS
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CONNECT TO "decomarmol"
|
|
END MAIN
|
|
|
|
FUNCTION reporte()
|
|
CONSTANT dataFile STRING = "./ccReportData.xml"
|
|
|
|
DEFINE handler om.SaxDocumentHandler
|
|
|
|
DEFINE fecha1,fecha2 DATE,
|
|
r_salida CHAR(50),
|
|
balance_inicial,balance_final,monto1,monto2 DEC(12,2),
|
|
ptipo_doc CHAR(2)
|
|
|
|
OPEN WINDOW wreporte WITH FORM "wreporte"
|
|
|
|
LET handler=fgl_report_createProcessLevelDataFile(dataFile)
|
|
|
|
INPUT BY NAME fecha1,fecha2
|
|
LET monto1 = 0
|
|
SELECT SUM(valor) INTO monto1 FROM cctb00001 a
|
|
WHERE (a.fecha_orig <= fecha2) AND (a.tipo_Doc = 'AV') and
|
|
(a.aplica_a = a.aplica_a) AND (a.status_t is null)
|
|
|
|
LET monto2 = 0
|
|
SELECT SUM(valor) INTO monto1 FROM cctb00001 a
|
|
WHERE (a.fecha_orig <= fecha2) AND (a.tipo_Doc = 'AV') and
|
|
(a.aplica_a != a.aplica_a) AND (a.status_t is null)
|
|
|
|
LET balance_inicial = monto1 - monto2
|
|
START REPORT o_reporte TO "reporte.txt"
|
|
|
|
DECLARE busca_trx CURSOR FOR
|
|
SELECT a.tipo_doc,SUM(a.valor) FROM cctb00001 a
|
|
WHERE a.tipo_doc <> 'AV' AND
|
|
a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.status_t is null
|
|
GROUP BY a.tipo_doc
|
|
FOREACH busca_trx INTO ptipo_Doc,monto1
|
|
OUTPUT TO REPORT o_reporte(ptipo_doc,monto1)
|
|
END FOREACH
|
|
FINISH REPORT o_reporte
|
|
CLOSE WINDOW wreporte
|
|
END FUNCTION
|
|
REPORT o_reporte(XTIPO,XMONTO)
|
|
DEFINE xtipo CHAR(2),
|
|
xmonto DEC(12,2)
|
|
FORMAT
|
|
on every row
|
|
PRINTX xtipo,xmonto
|
|
END REPORT |