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,86 @@
+{
+-----------------------------------------------------------------------------
+ PROGRAMA          : IPMN00000
+ OBJETIVO          : Menu principal del Sistema 
+                     de Inventario de Productos Terminados
+ PROGRAMADOR       : Juan Soto 
+ FECHA REALIZACION : Agosto, 1997. 
+ ASESOR            : JOSE ALFREDO PAULINO 
+-----------------------------------------------------------------------------
+}
+#DATABASE marmotech
+GLOBALS "ipprgb000.4gl"
+ DEFINE l INTEGER #,
+       #bandera SMALLINT
+#END GLOBALS
+MAIN                
+   DEFER INTERRUPT
+   CALL opciones_ipmn00000()
+END MAIN
+
+FUNCTION opciones_ipmn00000()
+   DEFINE opt,oip CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+    OPTIONS 
+      PROMPT LINE 8,
+      ERROR LINE 24
+
+   CALL pantalla()
+    DISPLAY "          Menu Principal           " AT 6,22
+    DISPLAY "ipmn00000"                          AT 4,3 ATTRIBUTE(BLUE)
+    DISPLAY "1- Mantenimientos   ipmnmt000" AT 10,6 
+    DISPLAY "2- Consultas        ipmncs000" AT 11,6
+    DISPLAY "3- Reportes         ipmnrp000" AT 12,6
+    DISPLAY "S- Retorna Menu Anterior" AT 14,6 ATTRIBUTE (BOLD)
+
+    LABEL vuelve:
+     PROMPT "OPCION: " attribute(BLUE) FOR OPT
+      LET opt = UPSHIFT(opt)
+
+       IF opt != "S" THEN
+           SELECT unique usuario INTO p_user FROM seg0001
+           WHERE usuario = user
+           CALL seg000(p_user,opt,"ipmn00000") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          RUN  "FGLRUN %FGLPROG%\\ipmnmt000"
+          CLEAR SCREEN
+          CALL  opciones_ipmn00000()
+       WHEN OPT = "2"
+          RUN   "FGLRUN %FGLPROG%\\ipmncs000" 
+          CLEAR SCREEN
+          CALL  opciones_ipmn00000()
+       WHEN OPT = "3"
+          RUN  "FGLRUN %FGLPROG%\\ipmnrp000"
+          CLEAR SCREEN
+          CALL  opciones_ipmn00000()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+         CALL opciones_ipmn00000()       
+    END CASE
+END FUNCTION
+
+FUNCTION pantalla() 
+   DEFINE fecha CHAR(8),
+          hora char(5) 
+   SELECT UNIQUE a.* INTO p_companias.* FROM companias a
+   LET fecha = today USING "dd/mm/yy"  
+   LET hora = time
+   LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2 
+   DISPLAY p_companias.nombre CLIPPED AT 4,l ATTRIBUTE (REVERSE,BLUE)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (BLUE)
+    DISPLAY "Sistema Inventario de Productos" AT 5,25
+    DISPLAY hora AT 6,73 ATTRIBUTE(BLUE)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION