diff --git a/PROYECTO/codir/coprmt025.4gl b/PROYECTO/codir/coprmt025.4gl
index bd63a77..0ab543d 100644
--- a/PROYECTO/codir/coprmt025.4gl
+++ b/PROYECTO/codir/coprmt025.4gl
@@ -786,11 +786,7 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")
COMMIT WORK
CALL seleccionarsalida() RETURNING salida
- -- La API de configuracion de reportes (fgl_report_*) no esta
- -- disponible en este FGL; se escribe el XML directo a un archivo
- -- en FGLSPOOL en lugar de la vista previa/exportacion nativa.
- LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req1.xml"
- LET handler = om.XmlWriter.createFileWriter(p_reportfile)
+ CALL configureoutput(salida) RETURNING HANDLER
START REPORT print_req TO XML HANDLER HANDLER
@@ -907,9 +903,7 @@ ON ACTION guardar ATTRIBUTE(TEXT="Salvar", IMAGE="save")
COMMIT WORK
CALL seleccionarsalida() RETURNING salida
- -- Ver nota sobre fgl_report_* mas arriba en este archivo.
- LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req2.xml"
- LET handler = om.XmlWriter.createFileWriter(p_reportfile)
+ CALL configureoutput(salida) RETURNING HANDLER
START REPORT print_req TO XML HANDLER HANDLER
PREPARE query FROM
@@ -1189,12 +1183,11 @@ FUNCTION copcmf025()
ON ACTION impresor
+ CALL seleccionarsalida() RETURNING salida
IF salida IS NULL THEN
LET salida = 'PDF'
- END IF
- -- Ver nota sobre fgl_report_* mas arriba en este archivo.
- LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req3.xml"
- LET handler = om.XmlWriter.createFileWriter(p_reportfile)
+ END IF
+ CALL configureoutput(salida) RETURNING HANDLER
START REPORT print_req TO XML HANDLER HANDLER
PREPARE query FROM
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 144b479..5f02d44 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -70,7 +70,7 @@
-
+
@@ -241,7 +241,7 @@
-
+