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

Corrige ipprrp046 (Relacion de Documentos)

Browse Source 
- Registra ipfmrp046.per y la dependencia FUNCIONESREPORT en mbsERP.4pw
- seleccionarsalida()/configureoutput() -> selectOutputSimple() y funcion
  local configurarSalidaClasica(): el configureOutput de msgrp000 es un stub
  que devuelve NULL; el reporte clasico PRINT COLUMN necesita el modo
  compatibilidad (monoespaciado) como el de indir/defecto.4gl
- Titulo de ventana corregido

Verificado: 01/05/2026 a hoy genera 299 paginas en pantalla y PDF.
Excel no probado por el volumen de datos.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
jpeguero
2026-10-14 16:29:54 -04:00
co-authored by Claude Sonnet 5.5
parent d76e6d7035
commit 3903f11a92
2 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/ipdir/ipprrp046.4gl
+16 -2
View File
@@ -53,6 +53,7 @@ FUNCTION ipprrp046()
OPEN FORM ipfmrp046 FROM "ipfmrp046" OPEN FORM ipfmrp046 FROM "ipfmrp046"
DISPLAY FORM ipfmrp046 DISPLAY FORM ipfmrp046
CALL ui.Window.getCurrent().setText("Relacion de Documentos")
# CALL pantalla() # CALL pantalla()
DISPLAY "ipprrp046" AT 4,3 ATTRIBUTE(RED) DISPLAY "ipprrp046" AT 4,3 ATTRIBUTE(RED)
DISPLAY " Relacion de Documentos" AT 6,22 ATTRIBUTE(BLACK) DISPLAY " Relacion de Documentos" AT 6,22 ATTRIBUTE(BLACK)
@@ -110,8 +111,8 @@ END INPUT
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>" DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE) AT 19,14 ATTRIBUTE (REVERSE)
CALL seleccionarsalida() RETURNING r_output CALL selectOutputSimple() RETURNING r_output
CALL configureoutput(r_output) RETURNING handler LET handler = configurarSalidaClasica(r_output)
START REPORT relacion TO XML HANDLER handler START REPORT relacion TO XML HANDLER handler
@@ -241,3 +242,16 @@ END FUNCTION
ON LAST ROW ON LAST ROW
END REPORT END REPORT
FUNCTION configurarSalidaClasica(tipo_file)
DEFINE tipo_file CHAR(3)
IF NOT fgl_report_loadCurrentSettings(NULL) THEN
RETURN NULL
END IF
CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
CALL fgl_report_configureCompatibilityOutput(160,"Monospaced",NULL,NULL,NULL,NULL)
CALL fgl_report_selectDevice(tipo_file)
CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
CALL fgl_report_selectPreview(TRUE)
RETURN fgl_report_commitCurrentSettings()
END FUNCTION
PROYECTO/mbsERP.4pw
+2 -1
View File
@@ -776,9 +776,10 @@
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp014.4gl"/> <File compilerOptions="--build-rdd" filePath="ipdir/ipprrp014.4gl"/>
<File filePath="ipdir/ipfmrp014.4fd"/> <File filePath="ipdir/ipfmrp014.4fd"/>
</Application> </Application>
<Application binaryName="ipprrp046" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000029" label="ipprrp046"> <Application binaryName="ipprrp046" dependencies="1763548104,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-960000029" label="ipprrp046">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000029" label="Configuration"/> <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000029" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprrp046.4gl"/> <File compilerOptions="--build-rdd" filePath="ipdir/ipprrp046.4gl"/>
<File filePath="ipdir/ipfmrp046.per"/>
</Application> </Application>
<Application binaryName="ipprrp047" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000030" label="ipprrp047"> <Application binaryName="ipprrp047" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000030" label="ipprrp047">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000030" label="Configuration"/> <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000030" label="Configuration"/>