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,98 @@
+{
+-----------------------------------------------------------------------------
+ PROGRAMA          : IRMNCS000
+ OBJETIVO          : Menu de Consultas del Sistema de 
+                     Inventario de Repuestos.    
+ PROGRAMADOR       : Juan Fco. Soto.   
+ FECHA REALIZACION : Marzo 1, 1993.   
+-----------------------------------------------------------------------------
+}
+GLOBALS "irprgb000.4gl"
+
+MAIN
+   DEFER INTERRUPT
+   CALL opciones_irmncs000()
+END MAIN 
+
+FUNCTION opciones_irmncs000()
+DEFINE p_user CHAR(9)
+DEFINE luz CHAR(4)
+
+  OPTIONS 
+    PROMPT LINE 8,
+    ERROR LINE 24
+
+  CALL pantalla() 
+
+    DISPLAY "            Consultas              " AT 6,22
+    DISPLAY "irmncs000"                          AT 4,3 ATTRIBUTE(blue)
+    DISPLAY "1- Movimientos De Repuestos      irmncs001" AT 10,6 
+    DISPLAY "2- Maestra de Repuestos          irprcs004" AT 11,6
+    DISPLAY "3- Balance - Repuestos           irprcs006" AT 12,6
+    DISPLAY "4- Consumo de Repuesto x Maquina irprcs007" AT 13,6
+    DISPLAY "S- Retorna Menu Anterior"                  AT 15,6
+             ATTRIBUTE (BOLD) 
+LABEL vuelve:
+     PROMPT "OPCION: " attribute(blue) 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,"irmncs000") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  irmncs001()
+          CLEAR SCREEN
+          CALL  opciones_irmncs000()               
+       WHEN OPT = "2"
+          CALL  irprcs004()
+          CLEAR SCREEN
+          CALL  opciones_irmncs000()               
+       WHEN OPT = "3"
+          CALL  irprcs006()
+          CLEAR SCREEN
+          CALL  opciones_irmncs000()
+       WHEN OPT = "4"
+          CALL  irprcs007()
+          CLEAR SCREEN
+          CALL  opciones_irmncs000()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+          CALL  opciones_irmncs000()
+    END CASE
+END FUNCTION
+
+FUNCTION pantalla() 
+   DEFINE fecha CHAR(8),
+          hora char(5) 
+   LET fecha = today USING "dd/mm/yy"  
+   LET hora = time
+    DISPLAY " M A R M O T E C H, S. A." AT 4,27
+            ATTRIBUTE (REVERSE,blue)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
+    DISPLAY "Sistema Inventario de Repuestos"     AT 5,24
+    DISPLAY hora AT 6,73 ATTRIBUTE(blue)
+
+    CALL fgl_drawbox(5,79,3,1)
+#   CALL fgl_drawbox(1,79,22,1)
+END FUNCTION  
+
+FUNCTION integridad()
+         IF sqlca.sqlcode < 0 THEN
+             LET numero_msg = sqlca.sqlcode
+             CALL msg(numero_msg)
+              DISPLAY numero_msg AT 23,70
+            LET bandera = 1    
+            SLEEP 2
+            RETURN
+        END IF
+END FUNCTION
+