From a8c4ab1f78fee2c8c96e6d7849d7a7e3855da725 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Tue, 27 Oct 2026 10:41:30 -0400 Subject: [PATCH] coprmt025: desbloqueado (JVM en COMUNES, formulario .4fd e impresion) - mbsERP.4pw: el grupo COMUNES (libreria FUNCIONESEMAIL, que usa IMPORT JAVA javax.mail) recibe FGLJVMPATH/JAVA_HOME/PATH como el grupo MODULOS; sin eso el build fallaba con -8301 "Can not create java VM". - mbsERP.4pw: se registra codir/cofmmt025.4fd en lugar del .per (el .per no tiene el combo formonly.depto: error -8083 al consultar). - coprmt025.4gl: la impresion vuelve a configureoutput(salida) como en 3.20 (escribia un XML suelto en FGLSPOOL); el boton imprimir muestra el cuadro de formato (PDF si se cancela). Co-Authored-By: Claude Opus 5.5 --- PROYECTO/codir/coprmt025.4gl | 17 +++++------------ PROYECTO/mbsERP.4pw | 4 ++-- 2 files changed, 7 insertions(+), 14 deletions(-) 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 @@ - +