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 @@ - +