From c296da0151b8c8973c315a31eb2327bb0b7cd0f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abel=20L=C3=B3pez?= <alopez@marmotech.local>
Date: Sat, 26 Sep 2026 09:45:52 -0400
Subject: [PATCH] Registra noprcs004 (Consulta Acumulado por Empleado)

Se agrega noprcs004 al proyecto usando nofmcs004.4fd. Se agrega
addir/adfunciones.4gl al Application ya que el programa llama a
calcula_salarios() definida ahi (no en noprrp037.4gl, que tiene una
funcion del mismo nombre pero con firma incompatible/uso de
variables de otro programa).

Se corrige conversion CONVERT(CHAR,fech_efec,103) hacia variable DATE
en la consulta principal, mismo patron de error -1205 "Invalid month
in date" ya visto en otros programas.

Probada consulta principal (datos del empleado, fecha de entrada,
salario promedio diario) y Ver (acumulado por movimiento), verificado
contra BD sobre empleado 110.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 PROYECTO/mbsERP.4pw          | 6 ++++++
 PROYECTO/nodir/noprcs004.4gl | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 048b4e6..4bad17e 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -484,6 +484,7 @@
         <File filePath="nodir/nofmmt024.per"/>
         <File filePath="nodir/nofmmt025.4fd"/>
         <File filePath="nodir/nofmcs002.per"/>
+        <File filePath="nodir/nofmcs004.4fd"/>
       </Library>
       <Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
         <File filePath="nodir/noprgb000.4gl"/>
@@ -542,6 +543,11 @@
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000070" label="Configuration"/>
         <File filePath="nodir/noprcs002.4gl"/>
       </Application>
+      <Application binaryName="noprcs004" dependencies="-1026233879,-764824792,-306412216,-335228674" id="-700000071" label="noprcs004">
+        <Configuration commandLineArguments="alopez Lopez2023" id="-700000072" label="Configuration"/>
+        <File filePath="nodir/noprcs004.4gl"/>
+        <File filePath="addir/adfunciones.4gl"/>
+      </Application>
     </Group>
     <Group id="1667448785" label="PRODUCTOS TERMINADOS">
       <Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP">
diff --git a/PROYECTO/nodir/noprcs004.4gl b/PROYECTO/nodir/noprcs004.4gl
index 6b84976..b24bba4 100644
--- a/PROYECTO/nodir/noprcs004.4gl
+++ b/PROYECTO/nodir/noprcs004.4gl
@@ -97,7 +97,7 @@ FUNCTION consulta4()
     
        LET selec =
        "SELECT DISTINCT a.tipo_emp,a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
-       "              b.nom1_emp,b.apell1_emp,c.nom_dpto,CONVERT(CHAR(10),b.fech_efec,103)  ",
+       "              b.nom1_emp,b.apell1_emp,c.nom_dpto,b.fech_efec  ",
        "FROM notb00008 a,adtb00003 b,adtb00001 c ",
        "WHERE a.num_emp = b.num_emp ",
        "AND   a.departamento = c.departamento ",