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,78 @@
+{
+===========================================================================
+ PROGRAMA          : INMNCS001
+ OBJETIVO          : Menu de Consultas Movimientos del 
+                     Sistema de Inventario de Materia Prima.
+ PROGRAMADOR       : Ing. Juan Fco. Soto
+ FECHA REALIZACION : Agosto 14, 1992.
+===========================================================================
+}
+GLOBALS "inprgb000.4gl"
+FUNCTION inmncs001() 
+   CLEAR SCREEN 
+   CALL pantalla() 
+   CALL opciones_inmncs001()
+END FUNCTION
+
+FUNCTION opciones_inmncs001()
+  
+  DEFINE opt CHAR(2),
+         p_user CHAR(9),
+         luz CHAR(5),
+         formulario CHAR(70)
+  OPTIONS 
+    PROMPT LINE 8,
+    ERROR LINE 24
+    LET formulario = "/users/rova/sysinfo/forms/indir/"
+    DISPLAY "Consultas - Movimientos de Almacen" AT 6,23
+    DISPLAY "inmncs001"                          AT 4,3 ATTRIBUTE(YELLOW)
+    DISPLAY "1- Reporte de Entrada                    inprcs001" AT 10,6 
+    DISPLAY "2- Materiales Devueltos al Suplidor      inprcs011" AT 11,6
+    DISPLAY "3- Materiales Devueltos de Produccion    inprcs021" AT 12,6
+    DISPLAY "4- Requisicion Materiales                inprcs031" AT 13,6
+    DISPLAY "5- Otros Movimientos de Materia Prima    inprcs041" AT 14,6
+    DISPLAY "S- Retorna Menu Anterior"                  AT 16,6 
+                ATTRIBUTE(BOLD)
+
+   LABEL vuelve:
+     PROMPT "OPCION: " attribute(yellow) FOR OPT
+      LET opt = UPSHIFT(opt)  clipped 
+
+       IF opt != "S" THEN
+           SELECT unique a.usuario INTO p_user FROM seg0001 a
+           WHERE a.usuario = user
+           CALL seg000(p_user,opt,"inmncs001") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  inprcs001()
+          CLEAR SCREEN
+          CALL  inmncs001()
+       WHEN OPT = "2"
+          CALL  inprcs011()
+          CLEAR SCREEN
+          CALL  inmncs001()
+       WHEN OPT = "3"
+          CALL  inprcs021()
+          CLEAR SCREEN
+          CALL  inmncs001()
+       WHEN OPT = "4"
+          CALL  inprcs031()
+          CLEAR SCREEN
+          CALL  inmncs001()
+       WHEN OPT = "5"
+          CALL  inprcs041()
+          CLEAR SCREEN
+          CALL  inmncs001()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+          CALL  inmncs001()
+   END CASE
+END FUNCTION
+