jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cpprrp001: exportacion a PDF/Excel con el cuadro de formato

Browse Source 
- 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 <noreply@anthropic.com>
This commit is contained in:
Abel López
2026-10-26 16:43:22 -04:00
co-authored by Claude Opus 5.5
parent 4762e8c10d
commit afc4fd5f04
1 changed files with 14 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/cpdir/cpprrp001.4gl
+14 -16
View File
@@ -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