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,51 @@
+FUNCTION insertTemporal(cod_n,cod_grupo,cod_tipo,cod_sec,cod_mov,bodega,cantidad,cantidad2, 
+                        id_seccion,id_tramo,de_seccion,de_tramo,xdisponible,
+                        xnum_doc_tmp )
+    DEFINE tipo CHAR(1)
+    DEFINE cod_n,cod_grupo,cod_tipo,cod_sec,cod_mov,bodega,id_seccion,id_tramo,de_seccion,de_tramo,xnum_doc_tmp INT 
+    DEFINE cantidad,cantidad2,xdisponible DECIMAL(12,5)
+    BEGIN WORK
+        select DISTINCT b.cod_seccion, b.descripcion,c.cod_tramo, c.descripcion
+        from tmpubicacionTramos a
+        inner join intb00010 b on a.bodega = b.cod_bodega and a.seccion = b.cod_seccion
+        inner join intb00043 c on b.cod_seccion = c.cod_seccion and a.bodega = c.cod_bodega and a.tramo = c.cod_tramo
+        WHERE  (a.bodega = bodega AND
+               a.de_seccion =de_seccion AND
+               a.seccion = id_seccion AND
+               a.de_tramo   = de_tramo AND
+               a.tramo = id_tramo) AND 
+              ( a.cod_n =  cod_n and a.cod_grupo = cod_grupo AND a.cod_tipo = cod_tipo and a.cod_sec = cod_sec) AND
+              (a.num_doc = xnum_doc_tmp)
+        
+
+        IF status = NOTFOUND THEN
+        
+            INSERT INTO tmpubicacionTramos(num_doc,cod_mov,bodega,seccion,tramo,us_crea,cod_n,cod_grupo,cod_tipo,
+                                     cod_sec,cantidad_1,cantidad_2,de_seccion,de_tramo,disponible)
+            VALUES(xnum_doc_tmp,cod_mov,bodega,id_seccion,id_tramo,
+                   suser_sname(),cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,cantidad2,de_seccion,de_tramo,xdisponible)
+        ELSE 
+            UPDATE tmpubicacionTramos SET num_doc = xnum_doc_tmp,
+                                    cod_mov = cod_mov,
+                                    bodega = bodega,
+                                    seccion = id_seccion,
+                                    tramo = id_tramo,
+                                    us_crea = suser_sname(),
+                                    cod_n = cod_n,
+                                    cod_grupo = cod_grupo,
+                                    cod_tipo = cod_tipo,
+                                    cod_sec = cod_sec,
+                                    cantidad_1 = cantidad,
+                                    cantidad_2 = cantidad2,
+                                    tipo = tipo,
+                                    disponible = xdisponible
+            WHERE (bodega = bodega AND
+                  tmpubicacionTramos.de_seccion =de_seccion AND
+                  seccion = id_seccion AND
+                  tramo = id_tramo AND        
+                  tmpubicacionTramos.de_tramo   = de_tramo) AND
+                  (cod_n = cod_n and cod_grupo = cod_grupo AND cod_tipo = cod_tipo and cod_sec = cod_sec) AND 
+                  (num_doc = xnum_doc_tmp)
+        END IF
+   
+END FUNCTION