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 <noreply@anthropic.com>

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
+       CALL configureoutput(salida) RETURNING HANDLER
-       -- 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)
 
        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.
+         CALL configureoutput(salida) RETURNING HANDLER
-         LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req2.xml"
-         LET handler = om.XmlWriter.createFileWriter(p_reportfile)
           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  
+            END IF
-           -- Ver nota sobre fgl_report_* mas arriba en este archivo.
+           CALL configureoutput(salida) RETURNING HANDLER
-           LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/coprmt025_req3.xml"
-           LET handler = om.XmlWriter.createFileWriter(p_reportfile)
            START REPORT print_req TO XML HANDLER HANDLER
 
            PREPARE query FROM 

PROYECTO/mbsERP.4pw

@@ -70,7 +70,7 @@
   </Settings>
   <LanguageList version="1.0"/>
   <PlatformList version="1.0"/>
-  <Group environment="value:CLASSPATH=$(ProjectDir)\\classes\\javax.mail.jar;$(CLASSPATH)" id="-2057013643" label="COMUNES" language="Genero">
+  <Group environment="value:CLASSPATH=$(ProjectDir)\\classes\\javax.mail.jar;$(CLASSPATH),file:FGLJVMPATH=C:\\Users\\alopez\\Java\\jdk8u504-b01-jre\\bin\\server\\jvm.dll,dir:JAVA_HOME=C:\\Users\\alopez\\Java\\jdk8u504-b01-jre,dirlist:PATH=C:\\Users\\alopez\\Java\\jdk8u504-b01-jre\\bin;C:\\Users\\alopez\\Java\\jdk8u504-b01-jre\\bin\\server;$(PATH)" id="-2057013643" label="COMUNES" language="Genero">
     <Library binaryName="Config" id="1765711908" label="Config">
       <File filePath="config/Application.xcf"/>
     </Library>
@@ -241,7 +241,7 @@
         <File filePath="codir/cofmmt016.4fd"/>
         <File filePath="codir/cofmmt010.per"/>
         <File filePath="codir/cofmwd015.per"/>
-        <File filePath="codir/cofmmt025.per"/>
+        <File filePath="codir/cofmmt025.4fd"/>
         <File filePath="codir/cofmcs005.per"/>
         <File filePath="codir/cofmcs010.4fd"/>
         <File filePath="codir/cofmcs009.per"/>