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,97 @@
+{
+---------------------------------------------------------------------------
+ PROGRAMA          : INMNRP001
+ OBJETIVO          : Menu de Reporte del Sistema de Inventario 
+                     de Materia Prima para el manejo de Ley 69.
+ PROGRAMADOR       : Tadeo A. Ferreras.
+ FECHA REALIZACION : Julio 22, 1992. 
+---------------------------------------------------------------------------
+}
+FUNCTION inmnrp001()
+   CLEAR SCREEN 
+   CALL opciones_inmnrp001()
+   END FUNCTION
+
+FUNCTION opciones_inmnrp001()
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+  DEFINE opt CHAR(2),
+         formulario CHAR(70)
+
+    OPTIONS
+       PROMPT LINE 8,
+       ERROR LINE 24
+
+    CALL pantalla()
+    LET formulario = "/users/rova/sysinfo/forms/indir/" CLIPPED
+    DISPLAY "inmnrp001"                          AT 4,3 ATTRIBUTE(YELLOW)
+    DISPLAY "Reportes (Ley-69)" AT 6,31
+    DISPLAY "1- Movimientos de las Resoluciones inprrp017" AT  9,6
+    DISPLAY "2- Movimientos de las Fianzas      inprrp018" AT 10,6
+    DISPLAY "3- Validacion de las Fianzas       inprrp019" AT 11,6
+    DISPLAY "4- Validacion de las Resoluciones  inprrp020" AT 12,6
+    DISPLAY "5- Validacion de Verif. de Factura inprrp021" AT 13,6
+    DISPLAY "6- Solicitud de Exoneracion        inprrp022" AT 14,6
+    DISPLAY "7- Validacion de la Formula        inprrp023" AT 15,6
+    DISPLAY "8- Diferencia Invent. Real-Ley 69  inprrp025" AT 16,6
+    DISPLAY "9- Resumen Mtos. Fianzas           inprrp040" AT 17,6
+    DISPLAY "S- Retorna Menu Anterior                    " AT 20,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,"inmnrp001") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  inprrp017()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "2"
+          CALL  inprrp018()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "3"
+          CALL  inprrp019()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "4"
+          CALL  inprrp020()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "5"
+          CALL  inprrp021()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "6"
+          CALL  inprrp022()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "7"
+          CALL  inprrp023()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "8"
+          CALL  inprrp025()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "9"
+          CALL  inprrp040()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp001()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+         CALL opciones_inmnrp001()       
+    END CASE
+END FUNCTION
+