From 05d5adf8c9eebb367195dced41a323572be25c1c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abel=20L=C3=B3pez?= <alopez@marmotech.local>
Date: Tue, 27 Oct 2026 10:59:44 -0400
Subject: [PATCH] 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>
---
 PROYECTO/bin/noprrp008.4rp   | 2 +-
 PROYECTO/mbsERP.4pw          | 5 +++++
 PROYECTO/nodir/noprrp008.4gl | 2 +-
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/PROYECTO/bin/noprrp008.4rp b/PROYECTO/bin/noprrp008.4rp
index 9a71f99..94df3ec 100644
--- a/PROYECTO/bin/noprrp008.4rp
+++ b/PROYECTO/bin/noprrp008.4rp
@@ -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>
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 5f02d44..61d664d 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -1298,6 +1298,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"/>
diff --git a/PROYECTO/nodir/noprrp008.4gl b/PROYECTO/nodir/noprrp008.4gl
index 7b18a86..408dd9d 100644
--- a/PROYECTO/nodir/noprrp008.4gl
+++ b/PROYECTO/nodir/noprrp008.4gl
@@ -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