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

coprmt025: desbloqueado (JVM en COMUNES, formulario .4fd e impresion)

Browse Source 
- 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>
This commit is contained in:
Abel López
2026-10-27 10:41:30 -04:00
co-authored by Claude Opus 5.5
parent 6a72dad748
commit a8c4ab1f78
2 changed files with 7 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/codir/coprmt025.4gl
+4 -11
View File
@@ -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)
CALL configureoutput(salida) RETURNING HANDLER
START REPORT print_req TO XML HANDLER HANDLER
PREPARE query FROM
PROYECTO/mbsERP.4pw
+2 -2
View File
@@ -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"/>