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,73 @@
+{
+-------------------------------------------------------------------------
+ PROGRAMA          : IRMNMT006
+ OBJETIVO          : Sub Menu Mantenimiento Movimientos 
+                     Inventario de Repuesto.    
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Enero 29, 1993.   
+-------------------------------------------------------------------------
+}
+GLOBALS "irprgb000.4gl"
+
+FUNCTION irmnmt006()
+   CLEAR SCREEN 
+   CALL pantalla()
+   CALL opciones_irmnmt006()
+   END FUNCTION
+
+FUNCTION opciones_irmnmt006()
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+   OPTIONS
+     PROMPT LINE 8,
+     ERROR LINE 24
+
+    DISPLAY "   Movimientos De Repuestos       " AT 6,24
+    DISPLAY "irmnmt006"                          AT 4,3 ATTRIBUTE(blue)
+    DISPLAY "1- Reporte de Entrada                irprmt006" AT 10,6
+    DISPLAY "2- Otros Movimientos de Repuestos    irprmt036" AT 11,6
+    #DISPLAY "3- Actualizacion de Documentos       irprmt056" AT 12,6
+    DISPLAY "4- Anular Documentos Mvtos Repuestos irprmt066" AT 12,6
+    DISPLAY "S- Retornar Menu Anterior                      " AT 17,6 ATTRIBUTE(blue)
+
+  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,"irmnmt006") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  irprmt006()
+          CLEAR SCREEN
+          CALL  irmnmt006()
+       WHEN OPT = "2"
+          CALL  irprmt036()
+          CLEAR SCREEN
+          CALL  irmnmt006()
+{
+       WHEN OPT = "3" 
+          CALL  irprmt056()
+          CLEAR SCREEN
+          CALL  irmnmt006()
+}
+       WHEN OPT = "4" 
+          CALL  irprmt066()
+          CLEAR SCREEN
+          CALL  irmnmt006()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+          CALL  irmnmt006()
+    END CASE
+END FUNCTION
+