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

@@ -0,0 +1,35 @@
+{
+PROGRAMA             : IPPRRP020
+PROGRAMADOR          : ING. JUAN SOTO
+OBJETIVO             : IMPRIMIR LAS REQUISICIONES APROBADAS PARA LA ORGANIZACION DE LOS CAMIONES
+FECHA                : 4/12/2010
+}
+
+GLOBALS
+  "ipprgb000.4gl"
+ MAIN
+  DEFER INTERRUPT
+  CALL ARG_VAL(1) RETURNING usuarios
+  CALL ARG_VAL(2) RETURNING clave
+  CALL ARG_VAL(4) RETURNING impresor
+  CONNECT TO "smarmotech" USER usuarios USING clave
+  SELECT a.* INTO p_companias.* FROM companias
+  CALL ipprrp020() 
+ END MAIN
+ FUNCTION ipprrp020()
+   DEFINE requisicion RECORD
+       num_req        INT,
+       fecha          CHAR(10),
+       vendedor       CHAR(60),
+       num_oc         INT,
+       cotizacion_no  INT,
+       cliente        CHAR(80),
+       producto       CHAR(50),
+       cantidad       DEC(12,4),
+       mensaje        TEXT       
+   END RECORD
+   
+   OPEN WINDOW w1 AT 5,7 WITH FORM "ipfmwd012"
+   INPUT BY NAME 
+ END FUNCTION
+