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,102 @@
+
+{
+--------------------------------------------------------------------------
+ PROGRAMA          : INMNRP002
+ OBJETIVO          : Menu de Continuacion de Reportes del Sistema 
+                     de Inventario de Materia Prima.
+ PROGRAMADOR       : Tadeo A. Ferreras F.
+ FECHA REALIZACION : Octubre 02, 1995
+--------------------------------------------------------------------------
+}
+
+FUNCTION inmnrp002() 
+   CLEAR SCREEN 
+   CALL opciones_inmnrp002()
+   
+END FUNCTION
+
+FUNCTION opciones_inmnrp002()
+   DEFINE opt CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5),
+          formulario CHAR(70)
+
+   OPTIONS
+     PROMPT LINE 8,
+     ERROR LINE 24
+
+   CALL pantalla()
+   LET formulario = "/users/rova/sysinfo/forms/indir/" CLIPPED
+    DISPLAY "Continuacion del Menu" AT 6,29
+
+    DISPLAY "inmnrp002"                   AT 4,3 ATTRIBUTE(YELLOW)
+    DISPLAY " 1-Valorizion Inventaio PEPS   inprrp034" AT 10,1
+    DISPLAY " 2-Valorizion Inventaio UEPS   inprrp035" AT 11,1
+    DISPLAY " 3-Etiquetas Para Inventario   inprrp036" AT 12,1
+    DISPLAY " 4-Difer. Grupos Invent. A-B   inprrp037" AT 13,1
+    DISPLAY " 5-Valorizacion Al Real        inprrp038" AT 14,1
+    DISPLAY " 6-Confirmacion Conteo Fisico  inprrp039" AT 15,1
+    DISPLAY " 7-Actualizacion Bces. UEPS    inprrp041" AT 16,1
+    DISPLAY " 8-Dias Inv. Con Fecha LLegada inprrp042" AT 17,1
+    DISPLAY " 9-Compras VAlorizadas Al Real inprrp044" AT 18,1
+    DISPLAY " S-Retorna Menu Anterior"                 AT 20,1
+    ATTRIBUTE (BOLD)
+
+    LABEL vuelve:
+     PROMPT "OPCION: " attribute(yellow) 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,"inmnrp002") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  inprrp034()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "2"
+          CALL  inprrp035()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "3"
+          CALL  inprrp036()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "4"
+          CALL  inprrp037()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "5"
+          CALL  inprrp038()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "6"
+          CALL  inprrp039()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "7"
+          CALL  inprrp041()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "8"
+          CALL  inprrp042()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "9"
+          CALL  inprrp044()
+          CLEAR SCREEN
+          CALL  opciones_inmnrp002()
+       WHEN OPT = "S" or OPT = "s"
+           RETURN
+       OTHERWISE
+         CALL opciones_inmnrp002()       
+    END CASE
+END FUNCTION
+