73 lines
2.7 KiB
Plaintext
73 lines
2.7 KiB
Plaintext
{
|
|
FUNCTION: programar_proximo_conteo
|
|
OBJETIVO: GENERAR LOS CICLOS DE LOS CONTEOS A PARTIR DE UNA FECHA
|
|
FECHA 3, FEBRERO 2025
|
|
DESARROLLADO POR: ING. JUAN SOTO
|
|
|
|
}
|
|
|
|
MAIN
|
|
|
|
DEFINE bodega INT,
|
|
fecha DATE
|
|
LET bodega = 4
|
|
LET fecha = '02/10/2025'
|
|
CONNECT TO "smarmotech" USER 'jusoto' USING 'lmmjvsd2014'
|
|
CALL programar_proximo_conteo(bodega,fecha)
|
|
END MAIN
|
|
|
|
FUNCTION programar_proximo_conteo(v_fecha_nueva,v_bodega)
|
|
DEFINE v_categoria CHAR(2)
|
|
DEFINE v_dias INTEGER
|
|
DEFINE v_fecha_nueva DATE
|
|
DEFINE v_codid INTEGER
|
|
DEFINE v_cod_n INTEGER
|
|
DEFINE v_cod_grupo INTEGER
|
|
DEFINE v_cod_tipo INTEGER
|
|
DEFINE v_cod_sec INTEGER
|
|
DEFINE v_bodega INTEGER
|
|
|
|
-- Cursor para obtener productos con transacciones en almacén
|
|
DECLARE c_productos CURSOR FOR
|
|
SELECT p.codid, t.cod_n, t.cod_grupo, t.cod_tipo, t.cod_sec, t.bodega, p.categoria
|
|
FROM iptb00006 t
|
|
INNER JOIN iptb00002 p ON t.cod_n = p.cod_n
|
|
AND t.cod_grupo = p.cod_grupo
|
|
AND t.cod_tipo = p.cod_tipo
|
|
AND t.cod_sec = p.cod_sec
|
|
WHERE t.bodega IS NOT NULL
|
|
GROUP BY p.codid, t.cod_n, t.cod_grupo, t.cod_tipo, t.cod_sec, t.bodega, p.categoria
|
|
|
|
OPEN c_productos
|
|
FOREACH c_productos INTO v_codid, v_cod_n, v_cod_grupo, v_cod_tipo, v_cod_sec, v_bodega, v_categoria
|
|
-- Obtener los días correspondientes según la categoría
|
|
SELECT dias INTO v_dias
|
|
FROM intb00016
|
|
WHERE categoria = v_categoria
|
|
|
|
IF SQLCA.SQLCODE = 0 THEN
|
|
-- Calcular la nueva fecha de conteo
|
|
LET v_fecha_nueva = v_fecha_nueva + v_dias
|
|
|
|
-- Marcar el conteo actual como realizado (para esta bodega y producto)
|
|
UPDATE iptb00075
|
|
SET estado_conteo = 'Realizado', fecha_ultimo_conteo = TODAY
|
|
WHERE codid = v_codid
|
|
AND bodega = v_bodega
|
|
AND estado_conteo = 'Pendiente'
|
|
|
|
-- Eliminar registros pendientes con la misma fecha para evitar duplicados
|
|
DELETE FROM iptb00075
|
|
WHERE codid = v_codid
|
|
AND bodega = v_bodega
|
|
AND fecha_proximo_conteo = v_fecha_nueva
|
|
AND estado_conteo = 'Pendiente'
|
|
|
|
-- Insertar un nuevo registro de conteo por bodega
|
|
INSERT INTO iptb00075 (codid, cod_n, cod_grupo, cod_tipo, cod_sec, bodega, fecha_proximo_conteo, categoria, estado_conteo, fecha_ultimo_conteo)
|
|
VALUES (v_codid, v_cod_n, v_cod_grupo, v_cod_tipo, v_cod_sec, v_bodega, v_fecha_nueva, v_categoria, 'Pendiente', TODAY)
|
|
END IF
|
|
END FOREACH
|
|
CLOSE c_productos
|
|
END FUNCTION
|