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,72 @@
+{
+----------------------------------------------------------------------------
+ PROGRAMA          : ISMNMT06
+ OBJETIVO          : Sub Menu Mantenimiento Movimientos 
+                     Inventario de Suministro.   
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Octubre 22, 1993.
+----------------------------------------------------------------------------
+ PROGRAMADOR       : Lic. Abner Montalvo
+ FECHA REALIZACION : Marzo 19, 1999. 
+
+ OBJETIVO          : Utilizar COMMAND para los menues de este sistema.
+                     Optimizar el procedimiento de llamadas de programas.
+---------------------------------------------------------------------------
+}
+DATABASE rayovac    
+DEFINE bandera,numero_msg INTEGER
+
+FUNCTION ismnmt06()
+   CLEAR SCREEN 
+   CALL opciones_ismnmt006()
+END FUNCTION    
+
+FUNCTION opciones_ismnmt006()
+   DEFINE opt CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+     OPTIONS 
+       PROMPT LINE 8,
+       ERROR LINE 24
+       CALL desplega_mnmt006()
+
+    MENU "Mantenimientos: " 
+       COMMAND "1"
+          CALL seg000(1,"ismnmt006") RETURNING luz
+          IF luz = "azul" THEN
+             RUN "fglrun %FGLPROG%\\isprmt016()"
+             CALL desplega_mnmt006()
+          END IF 
+
+       COMMAND "2"
+          CALL seg000(2,"ismnmt006") RETURNING luz
+          IF luz = "azul" THEN
+             RUN "fglrun %FGLPROG%\\isprmt036()"
+             CALL desplega_mnmt006()
+          END IF 
+
+       COMMAND "3"
+          CALL seg000(3,"ismnmt006") RETURNING luz
+          IF luz = "azul" THEN
+             RUN "fglrun %FGLPROG%\\isprmt056()"
+             CALL desplega_mnmt006()
+          END IF 
+
+       COMMAND KEY("R") "Retornar" "Retorna Menu Principal"
+          EXIT MENU
+
+    END MENU
+END FUNCTION
+
+FUNCTION desplega_mnmt006()
+    CLEAR SCREEN 
+    CALL pantalla()
+    DISPLAY "     Movimientos De Almacen          " AT 6,22 ATTRIBUTE(BLACK)
+    DISPLAY "ismnmt006"                          AT 4,3 ATTRIBUTE(RED)
+    DISPLAY "1- Suministros Devueltos al Suplidor   isprmt016" AT 10,1
+    DISPLAY "2- Requisicion Suministros             isprmt036"  AT 11,1
+    DISPLAY "3- Actualizacion de Documentos         isprmt056"  AT 12,1
+#   DISPLAY "R- Retornar Menu Anterior                      "  AT 15,1
+#   ATTRIBUTE (BLACK)
+END FUNCTION