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

@@ -0,0 +1,18 @@
+
+FUNCTION cseccion(almacen)
+ DEFINE kcod_seccion SMALLINT,kdescripcion CHAR(30),
+        pseccion ui.ComboBox,
+        almacen SMALLINT
+ 
+ LET pseccion = ui.combobox.forname("formonly.seccion")
+ 
+ DECLARE busca_sec CURSOR FOR
+  SELECT a.cod_seccion,a.descripcion FROM Intb00010 a
+  WHERE a.cod_bodega = almacen
+  
+  CALL pseccion.clear()
+  FOREACH busca_sec INTO kcod_seccion,kdescripcion
+   CALL pseccion.additem(kcod_seccion,kdescripcion)
+  END FOREACH 
+  
+END FUNCTION