From 7e2f99b50e887dabb77a695439b70e49d36925c2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abel=20L=C3=B3pez?= <alopez@marmotech.local>
Date: Mon, 28 Sep 2026 10:09:33 -0400
Subject: [PATCH] Registra noprrp002 (Nomina de Pago) y corrige bugs de reporte
 PDF

Se agrega noprrp002 al proyecto usando nofmrp002.4fd, mas
vesalidaimpresora.4gl (selectOutput2) en la libreria compartida
FUNCIONESREPORT, y externalDependencies libgre.42x para el motor de
reportes.

Se corrige databaseName="marmotech" invalido en nofmrp002.4fd (schema
no registrado en el proyecto) por "smarmotech".

Se corrige bug de tipo de dato: r_output estaba declarado SMALLINT en
noprrp002.4gl, pero selectOutput2() devuelve un STRING ("PDF","SVG",
"XLSX"). Ese desajuste impedia que fgl_report_selectDevice recibiera
el dispositivo correcto, asi que elegir PDF no generaba un PDF real.
Se cambia r_output a STRING.

Probado reporte agrupado de nomina (vista previa en pantalla y
exportacion a PDF real), verificado contra BD sobre empleado 110,
periodo 2320/Q.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 PROYECTO/mbsERP.4pw          | 7 +++++++
 PROYECTO/nodir/nofmrp002.4fd | 2 +-
 PROYECTO/nodir/noprrp002.4gl | 2 +-
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index b5bedd3..e2def6e 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -143,6 +143,7 @@
     <Library binaryName="FUNCIONESREPORT" id="-1423229125" label="FUNCIONESREPORT">
       <File filePath="otrodir/msgrp000.4gl"/>
       <File filePath="otrodir/seleccionarsalida.4gl"/>
+      <File filePath="otrodir/vesalidaimpresora.4gl"/>
       <File filePath="vedir/veprrp049_1.4gl"/>
       <File filePath="otrodir/Configuration.4fd"/>
     </Library>
@@ -486,6 +487,7 @@
         <File filePath="nodir/nofmcs002.per"/>
         <File filePath="nodir/nofmcs004.4fd"/>
         <File filePath="nodir/nofmcs006.4fd"/>
+        <File filePath="nodir/nofmrp002.4fd"/>
       </Library>
       <Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
         <File filePath="nodir/noprgb000.4gl"/>
@@ -554,6 +556,11 @@
         <File filePath="nodir/noprcs006.4gl"/>
         <File filePath="bin/noprcs006.4rp"/>
       </Application>
+      <Application binaryName="noprrp002" dependencies="-1026233879,-764824792,-306412216,-335228674,-1423229125" externalDependencies="libgre.42x" id="-700000075" label="noprrp002">
+        <Configuration commandLineArguments="alopez Lopez2023" id="-700000076" label="Configuration"/>
+        <File filePath="nodir/noprrp002.4gl"/>
+        <File filePath="bin/noprrp002.4rp"/>
+      </Application>
     </Group>
     <Group id="1667448785" label="PRODUCTOS TERMINADOS">
       <Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP">
diff --git a/PROYECTO/nodir/nofmrp002.4fd b/PROYECTO/nodir/nofmrp002.4fd
index c96a8b4..4dc83a0 100644
--- a/PROYECTO/nodir/nofmrp002.4fd
+++ b/PROYECTO/nodir/nofmrp002.4fd
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<ManagedForm databaseName="marmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{d7d471c5-a746-452d-9cbb-7c33717f2215}">
+<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="3140a" name="ManagedForm" uid="{d7d471c5-a746-452d-9cbb-7c33717f2215}">
   <AGSettings>
     <DynamicProperties version="2"/>
   </AGSettings>
diff --git a/PROYECTO/nodir/noprrp002.4gl b/PROYECTO/nodir/noprrp002.4gl
index 68bd338..3e1f833 100644
--- a/PROYECTO/nodir/noprrp002.4gl
+++ b/PROYECTO/nodir/noprrp002.4gl
@@ -29,7 +29,7 @@ DEFINE
    idx        INT,
    selec1     STRING,
    r_filename STRING,
-   r_output   SMALLINT,
+   r_output   STRING,
    preview    SMALLINT,
    handler    om.SaxDocumentHandler,
    varia      CHAR(12)