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

@@ -0,0 +1,37 @@
+SCHEMA SMARMOTECH
+FUNCTION loadDespieceMemory(pcodn,pcodgrupo,pcodtipo,pcodsec)
+  DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec INT
+DEFINE i,idx INT
+DEFINE container DYNAMIC ARRAY OF RECORD
+    id_etiqueta SMALLINT,
+    cod_n INT,
+    cod_grupo INT,
+    cod_tipo INT,
+    cod_sec INT,
+    lado_1 DEC(12, 5),
+    lado_2 DEC(12, 5),
+    lado_3 DEC(12, 5),
+    cantidad DEC(12, 5),
+    medida DEC(12, 5),
+    secuencia, id_despiece INT,
+    bodega SMALLINT
+END RECORD
+LET idx = 1
+
+FOR i = 1 TO container.getLength()
+
+   IF container[i].cod_n = pcodn AND
+      container[i].cod_grupo = pcodgrupo AND
+      container[i].cod_tipo = pcodtipo AND
+      container[i].cod_sec = pcodsec THEN
+
+        LET container[idx].* = container[i].*
+        LET idx = idx + 1
+
+   END IF
+
+END FOR
+
+RETURN container
+
+END FUNCTION