{ ------------------------------------------------------------------------------- PROGRAMA : NOPRRP003 OBJETIVO : LISTAR LA RELACION DE CHEQUES DE LA NOMINA PROGRAMADOR : Ing. Betania Guerrero Perez FECHA REALIZACION : Septiembre 02, 1993 ------------------------------------------------------------------------------- } GLOBALS "noprgb000.4gl" DEFINE fecha_real LIKE cgtb00005.fecha FUNCTION noprrp003() ## DEFINICION DEL REGISTRO DE BUSQUEDA CON LOS CAMPOS NECESARIOS PARA ## EL REPORTE DEFINE cheques RECORD cuenta_no LIKE cgtb00005.cuenta_no, cheque_no LIKE cgtb00005.cheque_no, num_emp LIKE cgtb00005.num_emp, fecha LIKE cgtb00005.fecha, portador LIKE cgtb00005.portador, monto LIKE cgtb00005.monto, status_t CHAR(1), descripcion CHAR(30), tipo_emp CHAR(1) END RECORD, cheque_ini,cheque_fin INTEGER # WHENEVER ERROR CONTINUE OPTIONS FORM LINE 8, ERROR LINE 23, COMMENT LINE 21 CLEAR SCREEN OPEN FORM nofmrp003 FROM "nofmrp003" DISPLAY FORM nofmrp003 CALL pantalla() LET tipo_papel = 1 CALL msgrp000(tipo_papel) DISPLAY "noprrp003" AT 4,3 DISPLAY "Relacion de Cheques de la Nomina" AT 6,24 INPUT BY NAME novedad.num_nomi,novedad.tipo_emp,cheques.cuenta_no AFTER FIELD cuenta_no IF cheques.cuenta_no is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cuenta_no END IF AFTER INPUT IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF EXIT INPUT END INPUT SELECT a.fecha_del,a.fecha_al INTO novedad.fecha_del,novedad.fecha_al FROM notb00010 a WHERE a.num_nomi = novedad.num_nomi and a.tipo_emp = novedad.tipo_emp SELECT MIN(a.cheque_no_ini),MAX(a.cheque_no_fin) INTO cheque_ini,cheque_fin FROM notb00019 a WHERE a.num_nomi = novedad.num_nomi and a.tipo_emp = novedad.tipo_emp LET cheques.tipo_emp = novedad.tipo_emp ## INDICA EL TIPO DE PAPEL NECESARIO PARA EL REPORTE. 1 - PAPEL 9 1/2 X 11 ## 2 - PAPEL 14 7/8 X 11 LET tipo_papel = 1 CALL msgrp000(tipo_papel) ## AQUI SE INDICA EL CRITERIO DE BUSQUEDA DEL REPORTE ## SE SELECCIONAN LOS CAMPOS NECESARIOS PARA EL REPORTE LET SELEC = "SELECT UNIQUE a.cuenta_no,a.cheque_no,a.num_emp,a.fecha,a.portador, ", " a.monto,a.status_t,b.descripcion ", "FROM cgtb00005 a,cgtb00001 b ", " WHERE a.cuenta_no=b.cuenta_no AND a.cheque_no between ? and ? ", " AND a.cuenta_no = ? ", " ORDER BY 1,2 " IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE RETURN END IF DISPLAY "Buscando Informacion ... Espere Por Favor" AT 19,14 ATTRIBUTE (REVERSE,BOLD) ## SE PREPARA LA INFORMACION SELECCIONADA LET fecha_real = novedad.fecha_al LET novedad.fecha_al = today PREPARE busca FROM selec DECLARE accion CURSOR FOR busca OPEN accion USING cheque_ini,cheque_fin ,cheques.cuenta_no DISPLAY " " AT 19,14 DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>" AT 19,14 ATTRIBUTE (REVERSE) START REPORT list_cheques TO "C:\\archivo" DISPLAY novedad.fecha_del," ",novedad.fecha_al at 22,1 ## SE BUSCA LA INFORMACION DE LOS CAMPOS DEL REGISTRO PARA DARLE ## SALIDA AL REPORTE FOREACH accion INTO cheques.* IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE RETURN END IF IF status = NOTFOUND THEN EXIT FOREACH ELSE IF cheques.status_t = "N" THEN LET cheques.monto = 0 END IF OUTPUT TO REPORT list_cheques(cheques.*) END IF END FOREACH FINISH REPORT list_cheques CLEAR SCREEN RUN "type C:\\archivo > %USPRINT%" END FUNCTION ## DEFINICION DEL REGISTRO DE IMPRESION CON LOS CAMPOS NECESARIOS PARA ## EL REPORTE REPORT list_cheques(x) DEFINE x RECORD cuenta_no LIKE cgtb00005.cuenta_no, cheque_no LIKE cgtb00005.cheque_no, num_emp LIKE cgtb00005.num_emp, fecha LIKE cgtb00005.fecha, portador LIKE cgtb00005.portador, monto LIKE cgtb00005.monto, status_t CHAR(1), descripcion CHAR(30), tipo_emp CHAR(1) END RECORD ## DEFINICION DE LAS VARIABLES DE IMPRESION DEFINE nombre_cta CHAR(30) DEFINE doble_on CHAR(2) DEFINE doble_off CHAR(2) DEFINE negrillas_on CHAR(2) DEFINE negrillas_off CHAR(2) DEFINE comp_on CHAR(2) DEFINE comp_off CHAR(2) DEFINE doce CHAR(2) DEFINE normal CHAR(2) DEFINE hora CHAR(5) DEFINE l smallint DEFINE varia CHAR(10) OUTPUT ## DEFINICION DE LOS MARGENES DE IMPRESION TOP MARGIN 0 LEFT MARGIN 0 BOTTOM MARGIN 3 FORMAT PAGE HEADER LET doble_on = ASCII 14 LET doble_off = ASCII 20 LET negrillas_on = ASCII 27, ASCII 69 LET negrillas_off = ASCII 27, ASCII 70 LET comp_on = ASCII 15 LET comp_off = ASCII 18 LET doce = ASCII 27, ASCII 77 LET normal = ASCII 27, ASCII 80 LET hora = time IF x.tipo_emp = "Q" THEN LET varia = "QUINCENAL" END IF IF x.tipo_emp = "S" THEN LET varia = "SEMANAL" END IF IF x.tipo_emp = "V" THEN LET varia = "VENDEDORES" END IF LET l = (80 - LENGTH(varia))/2 ## AQUI SE INDICA LA IMPRESION DE LOS ENCABEZADOS PRINT COLUMN 1, normal,negrillas_on PRINT COLUMN 1, "noprrp003", COLUMN 18, p_companias.nombre CLIPPED, COLUMN 75, "Pag. ",pageno using "###" PRINT COLUMN 31, "Sistema de Nomina", COLUMN 75, today using "dd/mm/yy" PRINT COLUMN 25, "Relacion de Cheques de la Nomina", COLUMN 78, hora PRINT COLUMN L, varia SKIP 1 LINE PRINT COLUMN 1, negrillas_on, COLUMN 2, "Nomina No.", COLUMN 13, novedad.num_nomi using "<<<<", COLUMN 19, "Del", COLUMN 23, novedad.fecha_del using "dd/mm/yy", COLUMN 32, "Al", COLUMN 35, fecha_real using "dd/mm/yy" PRINT COLUMN 2, "---------------------------------------------------", "------------------------------" PRINT COLUMN 2, "Cheque No.", COLUMN 14, "Ficha", COLUMN 21, "Fecha", COLUMN 31, "Nombre", COLUMN 65, "Valor Neto" PRINT COLUMN 2, "----------------------------------------------------", "-----------------------------" PRINT negrillas_off BEFORE GROUP OF x.cuenta_no PRINT COLUMN 1,x.cuenta_no," ", x.descripcion skip 1 line ## AQUI SE INDICA LA IMPRESION DEL DETALLE ON EVERY ROW IF x.status_t = "N" THEN LET x.portador = "N U L O" LET x.monto = 0 END IF PRINT COLUMN 5, x.cheque_no using "&&&&&&&", COLUMN 14, x.num_emp using "&&&", COLUMN 20, X.fecha using "dd/mm/yy", COLUMN 31, x.portador clipped," ", COLUMN 65, x.monto using "##,###.##" ON LAST ROW PRINT COLUMN 64, "----------" PRINT COLUMN 60, sum(x.monto) using "###,###,###.##" PRINT COLUMN 1, "Total Cheques: ",count(*) using "###" END REPORT