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,49 @@
+{
+-----------------------------------------------------------------------------
+ PROGRAMA          : IRMNCS001
+ OBJETIVO          : Sub-Menu de Consultas Movimientos del 
+                     Sistema de Inventario de Repuestos.
+ PROGRAMADOR       : Ing. Juan Fco. Soto
+ FECHA REALIZACION : Marzo 2, 1993.   
+-----------------------------------------------------------------------------
+}
+GLOBALS "irprgb000.4gl"
+
+FUNCTION irmncs001() 
+   CLEAR SCREEN 
+   CALL pantalla() 
+   CALL opciones_irmncs001()
+END FUNCTION
+
+FUNCTION opciones_irmncs001()
+  OPTIONS
+   PROMPT LINE 8,
+   ERROR LINE 24
+
+    DISPLAY " Movimientos De Repuestos" AT 6,33
+    DISPLAY "irmncs001"                          AT 4,3 ATTRIBUTE(blue)
+    DISPLAY "1- Reporte de Entrada                    irprcs001" AT 10,6 
+    #DISPLAY "2- Otros Movimientos                     irprcs031" AT 11,6
+    DISPLAY "S- Retorna Menu Anterior"        AT 16,6 ATTRIBUTE (BOLD)
+
+     PROMPT "OPCION: " attribute(blue) FOR OPT
+      LET opt = UPSHIFT(opt)  clipped 
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  irprcs001()
+          CLEAR SCREEN
+          CALL  irmncs001()
+{
+       WHEN OPT = "2"
+          CALL  irprcs031()
+          CLEAR SCREEN
+          CALL  irmncs001()
+}
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+         CALL irmncs001()       
+    END CASE
+END FUNCTION
+