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/ipcontrolOrdnes.4gl

@@ -0,0 +1,21 @@
+{
+        FUNCION:        ipControlOrden
+        FECHA:          Junio 05, 2025
+        DESARROLLADO:   Ing. Juan Soto
+}
+
+FUNCTION controlOrden(pcodn,pcodgrupo,pcodtipo,pcodsec,orden,requisicion,cantidad)
+    DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,orden,requisicion,cod_msg INT,
+           cantidadConduce,cantidad DEC(12,4) 
+
+    #CONTROL REQUISICION
+     SELECT SUM(a.cantidad) INTO cantidadConduce
+     FROM cctb00026 a 
+     WHERE a.cod_n = pcodn AND
+           a.cod_grupo = pcodgrupo AND
+           a.cod_tipo = pcodtipo AND
+           a.cod_sec = pcodsec AND
+           a.num_req = requisicion
+
+           
+END FUNCTION