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

@@ -0,0 +1,19 @@
+FUNCTION control_costos(pcodn,pcodgrupo,pcodtipo,pcodsec,pfecha)
+   DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec SMALLINT,
+          costo_producto DEC(13,5),
+          pfecha DATE
+          
+    LET costo_producto =0
+    SELECT AVG(a.material+a.labor+a.gastos) INTO costo_producto
+    FROM iptb00004 a
+    WHERE a.cod_n =pcodn AND
+          a.cod_grupo = pcodgrupo AND
+          a.cod_tipo = pcodtipo AND
+          a.cod_sec =pcodsec AND
+          a.fecha <=pfecha   AND
+          a.status_t IS NULL  
+    IF costo_producto IS NULL THEN
+       LET costo_producto = 0 
+    END IF 
+    RETURN costo_producto
+END FUNCTION