From afc4fd5f04376fe20fa9dce287cff258f649160f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Mon, 26 Oct 2026 16:43:22 -0400 Subject: [PATCH] cpprrp001: exportacion a PDF/Excel con el cuadro de formato - defecto()/START REPORT TO archivo reemplazado por seleccionarsalida()/configureoutput() (salida XML HANDLER). - Se quita RUN imprime (era para la impresora matricial). - Codigos de impresora en NULL (salian como basura en PDF/Excel). - RIGHT MARGIN 138 para que no se recorten las columnas. Co-Authored-By: Claude Opus 5.5 --- PROYECTO/cpdir/cpprrp001.4gl | 30 ++++++++++++++---------------- 1 file changed, 14 insertions(+), 16 deletions(-) diff --git a/PROYECTO/cpdir/cpprrp001.4gl b/PROYECTO/cpdir/cpprrp001.4gl index 58f81e9..4317cca 100644 --- a/PROYECTO/cpdir/cpprrp001.4gl +++ b/PROYECTO/cpdir/cpprrp001.4gl @@ -94,12 +94,9 @@ END MAIN 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 + CALL seleccionarsalida() RETURNING r_output + CALL configureoutput(r_output) RETURNING handler + START REPORT impreso_mvto TO XML HANDLER handler 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 ", @@ -145,7 +142,7 @@ END MAIN OUTPUT TO REPORT impreso_mvto(prt_mvto.*,mvto.fecha_in,mvto.fecha_fi) END WHILE FINISH REPORT impreso_mvto - RUN imprime + -- RUN imprime: era para la impresora matricial; ahora sale por PDF/Excel/pantalla END FUNCTION REPORT impreso_mvto(x,fecha1,fecha2) @@ -174,7 +171,8 @@ END MAIN negrillas_off CHAR(6), hora CHAR(5) - OUTPUT + OUTPUT + RIGHT MARGIN 138 LEFT MARGIN 0 TOP MARGIN 1 BOTTOM MARGIN 4 @@ -182,14 +180,14 @@ END MAIN 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 negrillas_on = NULL -- sin codigos de impresora (salida PDF/Excel) + LET negrillas_off = NULL -- sin codigos de impresora (salida PDF/Excel) + LET doble_on = NULL -- sin codigos de impresora (salida PDF/Excel) + LET doble_off = NULL -- sin codigos de impresora (salida PDF/Excel) + LET comprimido_on = NULL -- sin codigos de impresora (salida PDF/Excel) + LET comprimido_off = NULL -- sin codigos de impresora (salida PDF/Excel) + LET comprimido_12_on = NULL -- sin codigos de impresora (salida PDF/Excel) + LET comprimido_12_off = NULL -- sin codigos de impresora (salida PDF/Excel) LET hora = time LET lj = (131 - LENGTH(p_companias.nombre CLIPPED))/2 PRINT COLUMN 1,comprimido_on,negrillas_on