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

coprrp004 (Cronologico de Ordenes): exportacion a PDF/Excel/pantalla

Browse Source 
- La salida escribia un XML crudo en FGLSPOOL (no era PDF ni Excel); vuelve
  a configureOutput() (modo compatibilidad de GRE, como en 3.20) con la
  ventana comun seleccionarsalida() (EXCEL / PDF / SCREEN).
- Se quitan dos ESC P (ASCII 27, ASCII 80) de impresora matricial que el
  reporte imprimia directo y salian como basura en PDF/Excel.
Verificado contra la BD .250 (tipo 01, 01/08/2026 al 15/08/2026): PDF y Excel
generados; 4 ordenes, monto = productos + flete + otros gastos, total
1,515,154.88 = SQL. Build OK con gsmake.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Abel López
2026-10-26 11:36:31 -04:00
co-authored by Claude Opus 5.5
parent 1d6a2556e5
commit f48618a23c
1 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/codir/coprrp004.4gl
+4 -9
View File
@@ -117,13 +117,8 @@ END IF
# doce,normal,archivo,copia # doce,normal,archivo,copia
-- La API de configuracion de reportes (fgl_report_*) no esta CALL seleccionarsalida() RETURNING r_output
-- disponible en este FGL; seleccionarsalida()/configureoutput() CALL configureoutput(r_output) RETURNING handler
-- tampoco estan definidas en este programa. Se escribe el XML
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
-- .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp004_cronologico.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT cronologico TO XML HANDLER handler START REPORT cronologico TO XML HANDLER handler
@@ -194,7 +189,7 @@ REPORT cronologico(x)
LET bandera1 = "N" LET bandera1 = "N"
LET hora = time LET hora = time
LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2 LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT COLUMN 3, ASCII 27, ASCII 80,comp_off, negrillas_on PRINT COLUMN 3, comp_off, negrillas_on # sin ESC P (codigo de impresora matricial)
PRINT COLUMN 1, "coprrp004", PRINT COLUMN 1, "coprrp004",
COLUMN l, p_companias.nombre CLIPPED, COLUMN l, p_companias.nombre CLIPPED,
COLUMN 73, "Pag. ",pageno using "###" COLUMN 73, "Pag. ",pageno using "###"
@@ -259,7 +254,7 @@ REPORT cronologico(x)
SKIP 1 LINES SKIP 1 LINES
ON LAST ROW ON LAST ROW
PRINT COLUMN 2, "Total Registros Impresos = ", count(*) USING "<<<<" PRINT COLUMN 2, "Total Registros Impresos = ", count(*) USING "<<<<"
PRINT COLUMN 2, ASCII 27, ASCII 80 PRINT COLUMN 2, "" # sin ESC P (codigo de impresora matricial)
PRINT COLUMN 1, "==================================================", PRINT COLUMN 1, "==================================================",
"=============================" "============================="
END REPORT END REPORT