primer commit subida

2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
@@ -0,0 +1,94 @@
+{
+----------------------------------------------------------------------------
+ PROGRAMA          : INMNMT006
+ OBJETIVO          : Sub Menu Mantenimiento Movimientos 
+                     Inventario de Materia Prima.
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Agosto 06, 1992.
+ MODIFICACION      : Aceptar Mas de 9 opciones.
+ FECHA MODIFICACION: Octubre 22, 1992.
+ MODIFICADO POR    : Juan Fco. Soto.
+----------------------------------------------------------------------------
+}
+GLOBALS "inprgb000.4gl"
+
+FUNCTION inmnmt006()
+   CLEAR SCREEN 
+   CALL opciones_inmnmt006()
+END FUNCTION
+
+FUNCTION opciones_inmnmt006()
+  DEFINE opt CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+     OPTIONS 
+       PROMPT LINE 8,
+       ERROR LINE 24
+
+   CALL pantalla()
+    LET formulario = "/users/rova/sysinfo/forms/indir/" CLIPPED
+    DISPLAY "Movimientos De Almacen          " AT 6,29
+    DISPLAY "inmnmt006"                          AT 4,3 ATTRIBUTE(blue)
+    DISPLAY "1- Materiales Devueltos al Suplidor   inprmt016"  AT 10,6
+    DISPLAY "2- Materiales Devueltos de Produccion inprmt026"  AT 11,6
+    DISPLAY "3- Requisicion Materiales             inprmt036"  AT 12,6
+    DISPLAY "4- Otros Movimientos de Materia Prima inprmt046"  AT 13,6
+  #  DISPLAY "5- Actualizacion de Documentos        inprmt056"  AT 14,6
+    DISPLAY "6- Anular Documentos                  inprmt066"  AT 15,6
+    #DISPLAY "7- Reporte de Entrada                 inprmt006"  AT 16,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,"inmnmt006") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  inprmt016()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt006()
+       WHEN OPT = "2"
+          CALL  inprmt026()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt006()
+       WHEN OPT = "3"
+          CALL  inprmt036()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt006()
+       WHEN OPT = "4"
+          CALL  inprmt046()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt006()
+       WHEN OPT = "5"
+  #        CALL  inprmt056()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt006()
+       WHEN OPT = "6"
+          CALL  inprmt066()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt006()
+{
+       WHEN OPT = "7"
+          CALL  inprmt006()
+          CLEAR SCREEN
+          CALL  opciones_inmnmt006()
+}
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+         CALL opciones_inmnmt006()       
+    END CASE
+END FUNCTION
+