{ ###################################################################### Programa : CPPRRP001 Proceso : Validacion de Movimientos Sistema : Cuenta Por Pagar Autor : Tadeo A. Ferreras Fecha : Junio 16, 1993 ####################################################################### } GLOBALS "cpprgb000.4gl" DEFINE mvto RECORD fecha_in DATE, fecha_fi DATE END RECORD DEFINE prt_mvto RECORD tipo_doc LIKE cptb00001.tipo_doc, num_doc LIKE cptb00001.num_doc, cod_sp LIKE cptb00001.cod_sp, cod_sp_sec LIKE cptb00001.cod_sp_sec, nom_sup CHAR(30), fecha_orig LIKE cptb00001.fecha_orig, aplica_a LIKE cptb00001.aplica_a, detalle LIKE cptb00001.detalle, valor LIKE cptb00001.valor END RECORD MAIN DEFER INTERRUPT CALL ARG_VAL(1) RETURNING usuarios CALL ARG_VAL(2) RETURNING clave CALL ARG_VAL(3) RETURNING impresor CONNECT to "smarmotech" user usuarios USING clave SELECT a.* INTO p_companias.* FROM companias a CALL cpprrp001() END MAIN FUNCTION cpprrp001() CLEAR SCREEN OPTIONS FORM LINE 8 #WHENEVER ERROR CONTINUE OPEN FORM cpfmrp001 FROM "cpfmrp001" # CALL PANTALLA() # DISPLAY "cpprrp001" AT 4,3 ATTRIBUTE(blue) # DISPLAY "Validacion de Movimientos" AT 6,27 DISPLAY FORM cpfmrp001 LET int_flag = FALSE LET tipo_papel = 1 CALL msgrp000(tipo_papel) INPUT BY NAME mvto.* AFTER FIELD fecha_in IF mvto.fecha_in IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD fecha_in END IF AFTER FIELD fecha_fi IF mvto.fecha_fi IS NULL THEN LET mvto.fecha_fi = today END IF DISPLAY BY NAME mvto.fecha_fi IF mvto.fecha_fi < mvto.fecha_in THEN LET numero_msg = 51 CALL msg(numero_msg) NEXT FIELD fecha_in END IF END INPUT IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE RETURN END IF CONSTRUCT criterio ON a.cod_sp,a.cod_sp_sec,a.tipo_doc,a.num_doc FROM cod_sp,cod_sp_sec,tipo_doc,num_doc IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE RETURN END IF CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of, doble_on,doble_off,comp_on,comp_off, doce,normal,archivo,copia START REPORT impreso_mvto TO archivo LET selec = "SELECT a.tipo_doc,a.num_doc,a.cod_sp,a.cod_sp_sec, ", "b.nom_sp,a.fecha_orig,a.aplica_a,a.detalle,a.valor ", "FROM cptb00001 a,cotb00001 b ", "WHERE a.cod_sp = b.cod_sp AND a.cod_sp_sec = b.cod_sp_sec and ", " a.status_t IS NULL AND a.fecha_orig BETWEEN ? AND ? AND ", criterio CLIPPED IF STATUS >= 0 THEN IF STATUS = NOTFOUND THEN LET numero_msg = 3 CALL msg(numero_msg) RETURN END IF ELSE CALL integridad() IF bandera = 1 THEN LET bandera = 0 RETURN END IF END IF DISPLAY "<< Buscando Informacion .... Espere Por Favor. >>" AT 19,14 ATTRIBUTE(REVERSE,BOLD) PREPARE comando FROM selec DECLARE movto CURSOR FOR comando OPEN movto USING mvto.fecha_in,mvto.fecha_fi DISPLAY "<< " AT 19,14 DISPLAY "<< Impresion En Proceso .... Espere Por Favor. >>" AT 19,14 ATTRIBUTE(REVERSE,BOLD) WHILE status != NOTFOUND FETCH movto INTO prt_mvto.* IF STATUS = NOTFOUND THEN EXIT WHILE END IF OUTPUT TO REPORT impreso_mvto(prt_mvto.*,mvto.fecha_in,mvto.fecha_fi) END WHILE FINISH REPORT impreso_mvto RUN imprime END FUNCTION REPORT impreso_mvto(x,fecha1,fecha2) DEFINE x RECORD tipo_doc LIKE cptb00001.tipo_doc, num_doc LIKE cptb00001.num_doc, cod_sp LIKE cptb00001.cod_sp, cod_sp_sec LIKE cptb00001.cod_sp_sec, nom_sup CHAR(30), fecha_orig LIKE cptb00001.fecha_orig, aplica_a LIKE cptb00001.aplica_a, detalle LIKE cptb00001.detalle, valor LIKE cptb00001.valor END RECORD DEFINE fecha1,fecha2 DATE DEFINE nom_sup CHAR(30) DEFINE valor2,valor1 DECIMAL(12,2) DEFINE comprimido_12_off CHAR(2), comprimido_12_on CHAR(2), comprimido_on CHAR(2), comprimido_off CHAR(2), doble_on CHAR(2), doble_off CHAR(2), negrillas_on CHAR(6), negrillas_off CHAR(6), hora CHAR(5) OUTPUT LEFT MARGIN 0 TOP MARGIN 1 BOTTOM MARGIN 4 ORDER BY x.num_doc FORMAT PAGE HEADER LET negrillas_on = ASCII 27, ASCII 69 LET negrillas_off = ASCII 27, ASCII 70 LET doble_on = ASCII 14 LET doble_off = ASCII 20 LET comprimido_on = ASCII 15 LET comprimido_off = ASCII 18 LET comprimido_12_on = ASCII 27, ASCII 77 LET comprimido_12_off = ASCII 27, ASCII 80 LET hora = time LET lj = (131 - LENGTH(p_companias.nombre CLIPPED))/2 PRINT COLUMN 1,comprimido_on,negrillas_on PRINT COLUMN 1, "cpprrp001", COLUMN lj, p_companias.nombre CLIPPED, COLUMN 124, "Pag. ", pageno using "###" PRINT COLUMN 53, "SISTEMA CUENTA POR PAGAR", COLUMN 124, today using "dd/mm/yy" PRINT COLUMN 53, "Validacion de Movimientos", COLUMN 127, hora PRINT COLUMN 53, "DEL ", fecha1 USING "dd/mm/yy", " AL ", fecha2 USING "dd/mm/yy" SKIP 1 LINE PRINT COLUMN 2, "-------------------------------------", "-------------------------------------", "-------------------------------------", "-------------------" PRINT COLUMN 3, "Documento", COLUMN 15, "Fecha", COLUMN 27, "Concepto", COLUMN 60, "Proveedor", COLUMN 110,"Aplica a", COLUMN 127,"Valor" PRINT COLUMN 2, "-------------------------------------", "-------------------------------------", "-------------------------------------", "-------------------" PRINT COLUMN 1, negrillas_off SKIP 1 LINE BEFORE GROUP OF x.num_doc SKIP 1 LINE ON EVERY ROW PRINT COLUMN 3, x.tipo_doc CLIPPED,"-",x.num_doc clipped, COLUMN 15, x.fecha_orig USING "dd/mm/yy", COLUMN 27, x.detalle CLIPPED, COLUMN 60, x.cod_sp USING "&&","-", x.cod_sp_sec USING "&&&&"," ",x.nom_sup CLIPPED, COLUMN 110,x.aplica_a clipped, COLUMN 118,x.valor USING "---,---,---.&&" AFTER GROUP OF x.num_doc PRINT COLUMN 1,negrillas_on PRINT COLUMN 104,"TOTAL DCTO. -->", COLUMN 118,GROUP SUM(x.valor) USING "---,---,---.&&" PRINT COLUMN 1,negrillas_off ON LAST ROW PRINT COLUMN 1,negrillas_on PRINT COLUMN 104,"TOTAL -->", COLUMN 118,SUM(x.valor) USING "---,---,---.&&" PRINT COLUMN 1,negrillas_off PAGE TRAILER PRINT COLUMN 3, "CK = CHEQUE CP = PREPAGO ", "NC = NOTA DE CREDITO ND = NOTA DE DEBITO", comprimido_12_off END REPORT