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