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

Compare commits

base: jsoto/MBS:b09ba2374f39fdfe69207bf2a98fedd7dedb304e
Branches Tags
jsoto/MBS:main
...
compare: jsoto/MBS:b52ccfae7fed320e7a02daba723de489c1d332ba
Branches Tags
jsoto/MBS:main
4 Commits
b09ba2374f ... b52ccfae7f
Author SHA1 Message Date
Abel López b52ccfae7f Merge branch 'main' of https://git.fulldetord.com/jsoto/mbs 2026-10-27 16:07:27 -04:00
Abel LópezandClaude Opus 5.5 5b53d994ac noprrp009: salida con cuadro de formato y conteo por movimiento 
- La salida pasa del archivo de texto en FGLSPOOL a
  seleccionarsalida()/configureoutput() (Excel/PDF/pantalla); antes se
  dejo en texto porque configureOutput() era un stub que devolvia NULL.
- RIGHT MARGIN 86 (el reporte usa hasta la columna 84).
- NO. REGISTROS se reinicia en cada codigo de movimiento (se acumulaba).

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
 2026-10-27 11:48:43 -04:00
Abel LópezandClaude Opus 5.5 05d5adf8c9 noprrp008: desbloqueado, registrado en el proyecto y con cuadro de formato 
- mbsERP.4pw: se registra noprrp008 (Volantes de Nomina) en NOMINA. El
  build ya pasa con la JVM configurada en el grupo COMUNES.
- noprrp008.4gl: seleccionarSalida() en lugar del 'SVG' fijo; el usuario
  elige Excel/PDF/pantalla (modo IMPRESORA y la parte impresa de EMAIL).
- noprrp008.4rp: formato del acumulado ###,###,###.## (con #,###,###.##
  los montos de 10 millones o mas salian como 2.64775E7).

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
 2026-10-27 10:59:44 -04:00
Abel LópezandClaude Opus 5.5 a8c4ab1f78 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>
 2026-10-27 10:41:30 -04:00
5 changed files with 19 additions and 18 deletions
Expand all files Collapse all files
PROYECTO/bin/noprrp008.4rp
+1 -1
View File
@@ -65,7 +65,7 @@
<rtl:input-variable name="x.valor" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox32" width="1.5inch" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.valor.format(&quot;((,(((,(((.##)&quot;)}}"/>
<rtl:input-variable name="x.acumulado" type="FGLNumeric" expectedLocation="expectedHere"/>
<WORDBOX name="WordBox34" width="1.5inch" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.acumulado.format(&quot;#,###,###.##&quot;)}}"/>
<WORDBOX name="WordBox34" width="1.5inch" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{x.acumulado.format(&quot;###,###,###.##&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
PROYECTO/codir/coprmt025.4gl
+5 -12
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)
END IF
CALL configureoutput(salida) RETURNING HANDLER
START REPORT print_req TO XML HANDLER HANDLER
PREPARE query FROM
PROYECTO/mbsERP.4pw
+7 -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"/>
@@ -1300,6 +1300,11 @@
<File filePath="nodir/noprrp044.4gl"/>
<File filePath="bin/noprrp044.4rp"/>
</Application>
<Application binaryName="noprrp008" dependencies="-1026233879,-764824792,-306412216,-335228674,-1423229125,493047263" environment="dir:FGLSPOOL=$(ProjectDir)/spool" externalDependencies="libgre.42x" id="-700000083" label="noprrp008">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000084" label="Configuration"/>
<File filePath="nodir/noprrp008.4gl"/>
<File filePath="bin/noprrp008.4rp"/>
</Application>
<Application binaryName="noprrp038" dependencies="-1026233879,-764824792,-306412216,-335228674" environment="dir:FGLSPOOL=$(ProjectDir)/spool" id="-700000085" label="noprrp038">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000086" label="Configuration"/>
<File filePath="nodir/noprrp038.4gl"/>
PROYECTO/nodir/noprrp008.4gl
+1 -1
View File
@@ -180,8 +180,8 @@ OPEN busca USING c_entra.num_nomi,c_entra.tipo_emp
-- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
LET r_filename = 'noprrp008.4rp'
CALL seleccionarSalida() RETURNING r_output -- Excel / PDF / pantalla (SVG)
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
LET r_output='SVG'
LET preview=1
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default
PROYECTO/nodir/noprrp009.4gl
+5 -2
View File
@@ -182,8 +182,9 @@ FUNCTION noprrp009()
EXIT WHILE
END IF
IF idx = 1 THEN
LET cmd = FGL_GETENV("FGLSPOOL"),"\\noprrp009.txt"
START REPORT list_cooper TO cmd
CALL seleccionarsalida() RETURNING r_output
CALL configureoutput(r_output) RETURNING handler
START REPORT list_cooper TO XML HANDLER handler
LET idx = 2
END IF
@@ -239,6 +240,7 @@ END FUNCTION
OUTPUT
## DEFINICION DE LOS MARGENES DE IMPRESION
RIGHT MARGIN 86
TOP MARGIN 0
LEFT MARGIN 0
BOTTOM MARGIN 3
@@ -321,6 +323,7 @@ END FUNCTION
SKIP TO TOP OF PAGE
LET total1 = 0
LET total = 0
LET noRegistros = 0 -- el conteo es por codigo de movimiento
AFTER GROUP OF x.num_emp
LET balance = 0