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>
2026-09-04 09:29:01 -04:00
parent 4532d51e4b
commit b6085d4140
358 changed files with 0 additions and 3213 deletions
@@ -0,0 +1,90 @@
+GLOBALS "ipprgb000.4gl"
+DEFINE
+        porden       INTEGER,
+        acod_n       SMALLINT,
+        acod_grupo   SMALLINT,
+        acod_tipo    SMALLINT,
+        acod_sec      SMALLINT,
+        pdescrip_esp2 CHAR
+
+        
+MAIN                
+   DEFER INTERRUPT
+   SELECT * INTO p_companias.* FROM companias
+   CALL ipprmt074()
+END MAIN
+
+FUNCTION ipprmt074()
+OPEN WINDOW actorden AT 8, 4 WITH FORM "actorden"
+          ATTRIBUTE (BORDER)
+         INPUT BY NAME p_iptb01.cod_n,p_iptb01.cod_grupo,p_iptb01.cod_tipo,
+                       p_iptb01.cod_sec,porden,acod_n,acod_grupo,acod_tipo,acod_Sec
+
+
+         AFTER FIELD porden
+           SELECT UNIQUE a.num_oc FROM prtb00013 a
+           WHERE a.num_oc = porden and
+                 a.cod_n = p_iptb01.cod_n AND
+                 a.cod_grupo = p_iptb01.cod_grupo AND
+                 a.cod_tipo = p_iptb01.cod_tipo AND
+                 a.cod_sec = p_iptb01.cod_sec 
+
+           IF STATUS = NOTFOUND THEN
+              LET numero_msg = 3
+              CALL msg(numero_msg)
+              NEXT FIELD porden
+            END IF
+         AFTER FIELD cod_sec
+          SELECT a.descrip_esp INTO p_iptb02.descrip_esp FROM iptb00002 a
+          WHERE a.cod_n = p_iptb01.cod_n AND
+                a.cod_grupo = p_iptb01.cod_grupo AND
+                a.cod_tipo = p_iptb01.cod_tipo AND
+                a.cod_sec = p_iptb01.cod_sec AND
+                a.status_t IS NULL
+
+          IF STATUS = NOTFOUND THEN
+              LET numero_msg = 3
+              CALL msg(numero_msg)
+              NEXT FIELD COD_N
+            END IF
+          DISPLAY BY NAME p_iptb02.descrip_esp
+         AFTER FIELD acod_sec
+          SELECT a.descrip_esp INTO pdescrip_esp2 FROM iptb00002 a
+          WHERE a.cod_n = acod_n AND
+                a.cod_grupo = acod_grupo AND
+                a.cod_tipo = acod_tipo AND
+                a.cod_sec = acod_sec AND
+                a.status_t IS NULL
+
+          IF STATUS = NOTFOUND THEN
+              LET numero_msg = 3
+              CALL msg(numero_msg)
+              NEXT FIELD acod_n
+            END IF
+        DISPLAY BY NAME pdescrip_esp2
+       AFTER INPUT 
+         IF int_flag THEN
+            LET numero_msg = 2
+            CALL msg(numero_msg)
+            EXIT INPUT
+         ELSE
+            UPDATE prtb00013 SET cod_n = acod_n,
+                                 cod_grupo = acod_grupo,
+                                 cod_tipo = acod_tipo,
+                                 cod_sec = acod_sec,
+                                 us_mod = user,
+                                 fech_mod = current
+                WHERE num_oc = porden and
+                 cod_n = p_iptb01.cod_n AND
+                 cod_grupo = p_iptb01.cod_grupo AND
+                 cod_tipo = p_iptb01.cod_tipo AND
+                 cod_sec = p_iptb01.cod_sec 
+           LET numero_msg = 13
+           CALL msg(numero_msg)
+
+
+         END IF
+         EXIT INPUT
+        END INPUT 
+CLOSE WINDOW actorden
+END FUNCTION