SCHEMA smarmotech
 REPORT formato_entrada(x)
 DEFINE x RECORD 
        id            INTEGER,
        ref           LIKE cgtb00004.ref,
        cuenta_no     LIKE cgtb00004.cuenta_no,
        descripcion   LIKE cgtb00001.descripcion,
        detalle       STRING,
        departamento  LIKE cgtb00004.departamento,
        cod_aux       LIKE cgtb00004.cod_aux,
        cod_sec       LIKE cgtb00004.cod_sec,
        num_doc       LIKE cgtb00004.num_doc,
        debito        LIKE cgtb00004.debito,
        credito       LIKE cgtb00004.credito,
        fecha1        DATE,
        fecha2        DATE,
        nombre_Cia    STRING
 END RECORD

    DEFINE t_debito,t_credito DECIMAL(12,2)
    DEFINE total_registro SMALLINT,
           fecha CHAR(40)

FORMAT
FIRST PAGE HEADER
   LET total_registro = 0
   LET t_debito = 0
   LET t_credito = 0

   LET fecha = TODAY USING "dd/mm/yyyy",":",TIME
   
ON EVERY ROW

     LET t_credito = t_credito + x.credito
     LET t_debito = t_debito + x.debito
     LET total_registro = total_registro + 1

    PRINTX x.*,fecha,total_registro,t_credito,t_debito
  END REPORT