Mueve ipdir (Productos Terminados) de PROYECTOS a PROYECTO

Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
2026-09-04 09:29:01 -04:00
parent 4532d51e4b
commit b6085d4140
358 changed files with 0 additions and 3213 deletions
@@ -0,0 +1,105 @@
+{
+----------------------------------------------------------------------------
+ PROGRAMA          : IPMNCS000
+ OBJETIVO          : Menu de Consultas del Sistema de 
+                     Productos.        
+ PROGRAMADOR       : Juan Soto.        
+ FECHA REALIZACION : AGOSTO 1997    
+ ASESOR            : JOSE ALFREDO PAULINO 
+----------------------------------------------------------------------------
+}
+GLOBALS "ipprgb000.4gl"
+  DEFINE l INTEGER
+
+MAIN 
+ DEFER INTERRUPT
+ SELECT * INTO p_companias.* FROM companias
+ CALL ipmncs000()
+END MAIN
+
+FUNCTION ipmncs000() 
+   CLEAR SCREEN 
+   CALL opciones_ipmncs000()
+END FUNCTION
+
+FUNCTION opciones_ipmncs000()
+  DEFINE opt,oip CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+   WHENEVER ERROR CONTINUE
+
+   OPTIONS 
+      PROMPT LINE 8,
+      ERROR LINE 24
+    CALL pantalla() 
+    DISPLAY "            Consultas              " AT 6,22
+    DISPLAY "ipmncs000"                          AT 4,3 ATTRIBUTE(BLUE)
+    DISPLAY "1- Movimientos De Almacen          ipmncs001" AT 10,6 
+    DISPLAY "2- Catalogo Productos              ipprcs002" AT 11,6
+    DISPLAY "3- Balances - Productos            ipprcs006" AT 12,6
+    DISPLAY "4- Existencia Productos            ipprcs004" AT 13,6
+    DISPLAY "S- Retorna Menu Anterior"                  AT 17,6 
+     ATTRIBUTE (BOLD)
+
+    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,"ipmncs000") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  ipmncs001()
+          CLEAR SCREEN
+          CALL  opciones_ipmncs000()
+       WHEN OPT = "2"
+          CALL  ipprcs002()
+          CLEAR SCREEN
+          CALL  opciones_ipmncs000()
+       WHEN OPT = "3"
+          CALL  ipprcs006()
+          CLEAR SCREEN
+          CALL  opciones_ipmncs000()
+       WHEN OPT = "4"
+          CALL  ipprcs004()
+          CLEAR SCREEN
+          CALL  opciones_ipmncs000()
+       WHEN OPT = "S" 
+          RETURN
+       OTHERWISE
+         CALL opciones_ipmncs000()       
+    END CASE
+END FUNCTION
+
+FUNCTION pantalla() 
+   DEFINE fecha CHAR(8),
+          hora char(5) 
+   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,24
+    DISPLAY hora AT 6,73 ATTRIBUTE(BLUE)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION  
+FUNCTION integridad()
+         IF sqlca.sqlcode < 0 THEN
+            LET numero_msg = sqlca.sqlcode
+            CALL msg(numero_msg)
+            LET bandera = 1    
+            SLEEP 2
+            RETURN
+        END IF
+END FUNCTION