Revert "Agregar noprmt020 al proyecto (identidad real pendiente de confirmar)"

This reverts commit 77e844390e.

PROYECTO/mbsERP.4pw

@@ -472,7 +472,6 @@
         <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"/>
@@ -495,10 +494,6 @@
         <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"/>

PROYECTO/nodir/nofmmt021.per

@@ -7,7 +7,7 @@ DISENO      : Tadeo A. ferreras F.
 FECHA       : MARZO 22, 1995
 =============================================================================
 }
-DATABASE smarmotech
+DATABASE marmotech
 screen size 24 by 80
 {
   

PROYECTO/nodir/noprmt020.4gl

@@ -17,17 +17,6 @@ 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()
@@ -61,19 +50,6 @@ 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()