102 lines
2.8 KiB
Plaintext
102 lines
2.8 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------------
|
|
PROGRAMA : CGPRRP011
|
|
OBJETIVO : VALIDAR LAS CUENTAS QUE TIENEN ESTADO Q
|
|
PROGRAMADOR : JUAN F. SOTO
|
|
FECHA : OCTUBRE 30, 1996
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
GLOBALS
|
|
"cgprgb000.4gl"
|
|
|
|
FUNCTION cgprrp011()
|
|
DEFINE valida RECORD
|
|
departamento LIKE adtb00037.departamento,
|
|
estado_q LIKE adtb00037.estado_q,
|
|
estado_m LIKE adtb00037.estado_m,
|
|
cuenta_no LIKE adtb00037.cuenta_no,
|
|
descripcion CHAR(30)
|
|
END RECORD
|
|
|
|
OPTIONS
|
|
ERROR LINE 24,
|
|
FORM LINE 8
|
|
|
|
CALL pantalla()
|
|
OPEN FORM cgfmrp011 FROM "cgfmrp011"
|
|
DISPLAY FORM cgfmrp011
|
|
|
|
DISPLAY "cgprrp011" AT 4,3
|
|
DISPLAY "Validacion Cuentas Estado Q" AT 6,15
|
|
LET tipo_papel = 1
|
|
CALL msgrp000(tipo_papel)
|
|
|
|
CONSTRUCT BY NAME criterio ON a.cuenta_no,a.estado_m,a.estado_q
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
LET selec1 =
|
|
"SELECT ",
|
|
"a.departamento, ",
|
|
"a.estado_q, ",
|
|
"a.estado_m, ",
|
|
"a.cuenta_no, ",
|
|
"b.descripcion[1,30] ",
|
|
"FROM adtb00037 a,cgtb00001 b ",
|
|
"WHERE a.cuenta_no = b.cuenta_no AND ",criterio clipped,
|
|
" ORDER BY 1,2 "
|
|
PREPARE comando1 FROM selec1
|
|
DECLARE busca CURSOR FOR comando1
|
|
|
|
START REPORT estadoq TO "C:\\archivo"
|
|
|
|
FOREACH busca INTO valida.*
|
|
OUTPUT TO REPORT estadoq(valida.*)
|
|
END FOREACH
|
|
FINISH REPORT estadoq
|
|
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
|
|
|
|
REPORT estadoq(x)
|
|
DEFINE x RECORD
|
|
departamento LIKE adtb00037.departamento,
|
|
estado_q LIKE adtb00037.estado_q,
|
|
estado_m LIKE adtb00037.estado_m,
|
|
cuenta_no LIKE adtb00037.cuenta_no,
|
|
descripcion CHAR(30)
|
|
END RECORD
|
|
OUTPUT
|
|
LEFT MARGIN 0
|
|
FORMAT
|
|
PAGE HEADER
|
|
PRINT COLUMN 1, "cgprrp011",
|
|
COLUMN 14, "R A .O. V A C D O M I N I C A N A, S. A.",
|
|
COLUMN 60, "PAG. ",PAGENO USING "###"
|
|
PRINT COLUMN 14, " SISTEMA DE CONTABILIDAD GENERAL",
|
|
COLUMN 60, TODAY USING "DD/MM/YY"
|
|
PRINT COLUMN 14, " VALIDACION RELACION CUENTAS - ESTADO Q",
|
|
COLUMN 60, TIME
|
|
SKIP 1 LINE
|
|
PRINT COLUMN 1,
|
|
"====================================================================="
|
|
PRINT COLUMN 1, "DEPARTAMENTO",
|
|
COLUMN 20, "CUENTA NO.",
|
|
COLUMN 53, "ESTADO M",
|
|
COLUMN 65, "ESTADO "
|
|
PRINT COLUMN 1,
|
|
"====================================================================="
|
|
SKIP 1 LINE
|
|
|
|
ON EVERY ROW
|
|
PRINT COLUMN 1, x.departamento using "&",
|
|
COLUMN 20, x.cuenta_no," ",x.descripcion,
|
|
COLUMN 53, x.estado_m,
|
|
COLUMN 65, x.estado_q
|
|
|
|
AFTER GROUP OF x.departamento
|
|
PRINT COLUMN 1,
|
|
"------------------------------------------------------------------------"
|
|
END REPORT
|