From 77e844390e67511730304f5d3cf8cb0f8363011d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abel=20L=C3=B3pez?= <alopez@marmotech.local>
Date: Fri, 4 Sep 2026 16:22:45 -0400
Subject: [PATCH] Agregar noprmt020 al proyecto (identidad real pendiente de
 confirmar)

- Registrar noprmt020 en mbsERP.4pw
- Agregar MAIN (faltaba, el archivo era solo funciones para ser
  llamadas desde el menu nomnmt000.4gl) y una funcion pantalla()
  local para el encabezado
- Corregir typo "database marmotech" -> "smarmotech" en nofmmt021.per

NOTA: el usuario identifico este programa como "Calcular Horas
Extras", pero tanto el contenido del .4gl como su propio menu
(nomnmt000.4gl: "19-Porc. Accidente Trabajo noprmt020") indican que
en realidad es la maestra de % de Accidente de Trabajo. Build y
compilacion verificados, prueba funcional pendiente hasta confirmar
el programa correcto para "Calcular Horas Extras" (candidatos:
noprmt030.4gl, noprmt038.4gl, o los reportes noprrp007/011/018/026/034/035).

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

diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 891c078..aa467ac 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -472,6 +472,7 @@
         <File filePath="nodir/nofmmt003.4fd"/>
         <File filePath="nodir/nofmmt001.4fd"/>
         <File filePath="nodir/nofmmt007.4fd"/>
+        <File filePath="nodir/nofmmt021.per"/>
       </Library>
       <Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
         <File filePath="nodir/noprgb000.4gl"/>
@@ -494,6 +495,10 @@
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000050" label="Configuration"/>
         <File filePath="nodir/noprmt007.4gl"/>
       </Application>
+      <Application binaryName="noprmt020" dependencies="-1026233879,-764824792,-306412216,-335228674" id="-700000051" label="noprmt020">
+        <Configuration commandLineArguments="alopez Lopez2023" id="-700000052" label="Configuration"/>
+        <File filePath="nodir/noprmt020.4gl"/>
+      </Application>
     </Group>
     <Group id="1667448785" label="PRODUCTOS TERMINADOS">
       <Library binaryName="FORMULARIOS_IP" id="-1826025351" label="FORMULARIOS_IP"/>
diff --git a/PROYECTO/nodir/nofmmt021.per b/PROYECTO/nodir/nofmmt021.per
index 3af5c7e..51ff198 100644
--- a/PROYECTO/nodir/nofmmt021.per
+++ b/PROYECTO/nodir/nofmmt021.per
@@ -7,7 +7,7 @@ DISENO      : Tadeo A. ferreras F.
 FECHA       : MARZO 22, 1995
 =============================================================================
 }
-DATABASE marmotech
+DATABASE smarmotech
 screen size 24 by 80
 {
   
diff --git a/PROYECTO/nodir/noprmt020.4gl b/PROYECTO/nodir/noprmt020.4gl
index 2f8baba..83caa95 100644
--- a/PROYECTO/nodir/noprmt020.4gl
+++ b/PROYECTO/nodir/noprmt020.4gl
@@ -17,6 +17,17 @@ DEFINE notb18 RECORD LIKE notb00018.*
 ## Variable para manejar el nombre del empleado
 DEFINE nomb1,apell1 CHAR(15)
 
+MAIN
+    DEFER INTERRUPT
+    CALL ARG_VAL(1) RETURNING usuarios
+    CALL ARG_VAL(2) RETURNING clave
+
+    CONNECT TO "smarmotech" USER usuarios USING clave
+    SELECT a.* INTO p_companias.* FROM companias a
+
+    CALL noprmt020()
+END MAIN
+
 FUNCTION noprmt020()
  CLEAR SCREEN
  CALL pantalla()
@@ -50,6 +61,19 @@ FUNCTION noprmt020()
   END MENU
 END FUNCTION
 
+FUNCTION pantalla()
+    DEFINE fecha CHAR(8), hora CHAR(5)
+    LET fecha = TODAY USING "dd/mm/yy"
+    LET hora = TIME
+    SELECT * INTO p_companias.* FROM companias
+    LET l = (80 - LENGTH(p_companias.nombre CLIPPED)) / 2
+    DISPLAY p_companias.nombre CLIPPED AT 4, l ATTRIBUTE(REVERSE, BLUE)
+    DISPLAY fecha AT 4, 70 ATTRIBUTE(BLUE)
+    DISPLAY "Sistema de Nomina" AT 5, 31
+    DISPLAY hora AT 6, 73 ATTRIBUTE(BLUE)
+    CALL fgl_drawbox(5, 79, 3, 1)
+END FUNCTION
+
 #### Funcion para captura los datos de adiccion
 
 FUNCTION noprad020()