Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,90 @@
+{
+---------------------------------------------------------------------------
+ PROGRAMA          : INMNMT003
+ OBJETIVO          : Menu de Mantenimientos del Sistema 
+                     de Inventario de Materia Prima para el manejo de Ley 69.
+ PROGRAMADOR       : Tadeo A. Ferreras.
+ FECHA REALIZACION : Julio 22, 1992. 
+---------------------------------------------------------------------------
+}
+FUNCTION inmnmt003()
+   CLEAR SCREEN 
+   CALL opciones_inmnmt003()
+END FUNCTION
+
+FUNCTION opciones_inmnmt003()
+  DEFINE opt CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+    OPTIONS
+       PROMPT LINE 8,
+       ERROR LINE 24
+
+    CALL pantalla()
+    DISPLAY "inmnmt003"                          AT 4,3 ATTRIBUTE(YELLOW)
+    DISPLAY "Mantenimientos (Ley-69)" AT 6,28
+    DISPLAY "1- Formula Produccion de Pilas (INDOTEC) inprmt017" AT  9,6
+    DISPLAY "2- Solicitud de Exoneracion              inprmt011" AT 10,6
+    DISPLAY "3- Aprobacion de Solicitud (Resolucion)  inprmt012" AT 11,6
+    DISPLAY "4- Fianzas                               inprmt014" AT 12,6
+    DISPLAY "5- Verificacion de Exportacion de Pilas  inprmt015" AT 13,6
+    DISPLAY "6- Catalogo Bienes y Servicios (Ley-69)  inprmt018" AT 14,6
+    DISPLAY "7- Internamiento de Materiales Locales   inprmt010" AT 15,6
+    DISPLAY "8- Datos Adicionales A Las Fianzas       infmmt024" AT 16,6
+    DISPLAY "S- Retorna Menu Anterior                  " AT 18,6
+             ATTRIBUTE(BOLD)
+  LABEL vuelve:
+     PROMPT "OPCION: " attribute(yellow) FOR OPT
+      LET opt = UPSHIFT(opt)  clipped 
+
+       IF opt != "S" THEN
+           SELECT unique usuario INTO p_user FROM seg0001
+           WHERE usuario = user
+           CALL seg000(p_user,opt,"inmnmt003") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  inprmt017()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "2"
+          CALL  inprmt011()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "3"
+          CALL  inprmt012()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "4"
+          CALL  inprmt014()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "5"
+          CALL  inprmt015()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "6"
+          CALL  inprmt018()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "7"
+          CALL  inprmt010()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "8"
+          RUN "sperform infmmt024"
+          CLEAR SCREEN
+          CALL  opciones_inmnmt003()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+         CALL opciones_inmnmt003()       
+    END CASE
+END FUNCTION
+