40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
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
|