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>

PROYECTO/ipdir/ipmncs001.4gl

@@ -0,0 +1,43 @@
+{
+-----------------------------------------------------------------------------
+ PROGRAMA          : IPMNCS001
+ OBJETIVO          : Menu de Consultas Movimientos del 
+                     Sistema de Inventario de Productos.
+ PROGRAMADOR       : Juan Fco. Soto
+ FECHA REALIZACION : AGOSTO 1997      
+ ASESOR            : JOSE ALFREDO PAULINO
+-----------------------------------------------------------------------------
+}
+FUNCTION ipmncs001() 
+   CLEAR SCREEN 
+   CALL pantalla() 
+   CALL opciones_ipmncs001()
+END FUNCTION
+
+FUNCTION opciones_ipmncs001()
+  DEFINE opt CHAR(2)
+  OPTIONS 
+    PROMPT LINE 8,
+    ERROR LINE 24
+
+    DISPLAY "    Consultas-Movimientos  de Almacen" AT 6,18
+    DISPLAY "ipmncs001"                          AT 4,3 ATTRIBUTE(BLUE)
+    DISPLAY "1- Movimientos de Inventario      ipprcs041" AT 10,6
+    DISPLAY "S- Retorna Menu Anterior"                  AT 16,6 
+                ATTRIBUTE(BOLD)
+
+     PROMPT "OPCION: " attribute(BLUE) FOR OPT
+      LET opt = UPSHIFT(opt)  clipped 
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  ipprcs041()
+          CLEAR SCREEN
+          CALL  ipmncs001()
+       WHEN OPT = "S" 
+          RETURN
+       OTHERWISE
+          CALL  ipmncs001()
+   END CASE
+END FUNCTION
+