From 31fbc9a3b9eacb30d393ccb096fc296f02c92ef6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abel=20L=C3=B3pez?= <alopez@marmotech.local>
Date: Tue, 22 Sep 2026 12:44:22 -0400
Subject: [PATCH] Registra noprmt018 (Pago Prest. en Efectivo) y corrige bug de
 fecha

Se agrega noprmt018 al proyecto usando nofmmt018.per.

Se corrige conversion CONVERT(CHAR,fecha,103) hacia variable DATE en
nopcmf018(), mismo patron de error -1205 "Invalid month in date"
encontrado en otros programas de nomina.

Probado ciclo completo: Adicionar, Consultar-modificar/Buscar,
Escoger y eLiminar sobre empleado 4124 (cod_mov=12).

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

diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 681ab6d..064d58e 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -478,6 +478,7 @@
         <File filePath="nodir/nofmmt208.per"/>
         <File filePath="nodir/nofmmt011.4fd"/>
         <File filePath="nodir/nofmmt016.per"/>
+        <File filePath="nodir/nofmmt018.per"/>
       </Library>
       <Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
         <File filePath="nodir/noprgb000.4gl"/>
@@ -512,6 +513,10 @@
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000058" label="Configuration"/>
         <File filePath="nodir/noprmt016.4gl"/>
       </Application>
+      <Application binaryName="noprmt018" dependencies="-1026233879,-764824792,-306412216,-335228674" id="-700000059" label="noprmt018">
+        <Configuration commandLineArguments="alopez Lopez2023" id="-700000060" label="Configuration"/>
+        <File filePath="nodir/noprmt018.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/noprmt018.4gl b/PROYECTO/nodir/noprmt018.4gl
index 9664e05..aca30d7 100644
--- a/PROYECTO/nodir/noprmt018.4gl
+++ b/PROYECTO/nodir/noprmt018.4gl
@@ -277,7 +277,7 @@ FUNCTION nopcmf018()
    criterio clipped," ORDER BY a.num_emp,a.departamento,a.num_nomi"
 }
    " SELECT DISTINCT a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
-   "        a.num_nomi,CONVERT(CHAR(10),a.fecha,103),a.cod_mov,a.valor*-1,a.status_t,a.us_crea, ",
+   "        a.num_nomi,a.fecha,a.cod_mov,a.valor*-1,a.status_t,a.us_crea, ",
    "cast(a.fech_crea as varchar(20)) ",
    " FROM notb00008 a where a.status_t is null and a.clase_mov = 'P' AND ",
    criterio clipped," ORDER BY a.num_emp,a.departamento,a.num_nomi"