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

@@ -0,0 +1,21 @@
+FUNCTION estadosprocesos(idopcion)
+ DEFINE estado ui.ComboBox,
+        id,idopcion SMALLINT,
+        ddescripcion CHAR(50)
+
+ IF idopcion = 1 THEN       
+    LET  estado = ui.ComboBox.forName("formonly.idestado")  
+ ELSE
+   LET  estado = ui.ComboBox.forName("formonly.idestado1")  
+ END IF
+ CALL estado.clear()
+
+ DECLARE busca CURSOR FOR
+   SELECT a.idestado,a.descripcion FROM iptb00061 a
+   ORDER BY a.descripcion
+   FOREACH busca INTO id,ddescripcion
+     CALL estado.addItem(id,ddescripcion)
+   END FOREACH
+
+ 
+END FUNCTION