jpegueroandClaude Sonnet 5
b6085d4140
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>
52 lines
2.8 KiB
Plaintext
52 lines
2.8 KiB
Plaintext
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
|