salix/db/routines/vn/procedures/available_traslate.sql

DELIMITER $$
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`available_traslate`(
	vWarehouseLanding INT,
	vDated DATE,
	vWarehouseShipment INT)
proc: BEGIN
/**
 * Calcular la disponibilidad dependiendo del almacen de origen y destino según la fecha
 *
 * @param vWarehouseLanding almacén de llegada.
 * @param vDated  la fecha para la cual se está calculando la disponibilidad de articulos.
 * @param vWarehouseShipment almacén de destino.
 */
	DECLARE vDatedFrom DATE;
	DECLARE vDatedTo DATETIME;
	DECLARE vDatedReserve DATETIME;
	DECLARE vDatedInventory DATE;

	IF vDated < util.VN_CURDATE() THEN
		LEAVE proc;
	END IF;

	CALL item_getStock (vWarehouseLanding, vDated, NULL);


	-- Calcula algunos parámetros necesarios
	SET vDatedFrom = TIMESTAMP(vDated, '00:00:00');
	SET vDatedTo = TIMESTAMP(TIMESTAMPADD(DAY, 4, vDated), '23:59:59');
	SELECT FechaInventario INTO vDatedInventory FROM tblContadores;
	SELECT SUBTIME(util.VN_NOW(), reserveTime) INTO vDatedReserve
		FROM hedera.orderConfig;

	-- Calcula el ultimo dia de vida para cada producto
	CREATE OR REPLACE TEMPORARY TABLE tItemRange
		(PRIMARY KEY (itemFk))
		ENGINE = MEMORY
		SELECT c.itemFk, MAX(t.landed) dated
			FROM buy c
				JOIN entry e ON c.entryFk = e.id
				JOIN travel t ON t.id = e.travelFk
				JOIN warehouse w ON w.id = t.warehouseInFk
			WHERE t.landed BETWEEN vDatedInventory AND vDatedFrom
				AND t.warehouseInFk = vWarehouseLanding
				AND NOT e.isExcludedFromAvailable
				AND NOT e.isRaid
			GROUP BY c.itemFk;

	-- Tabla con el ultimo dia de last_buy para cada producto que hace un replace de la anterior
	CALL buyUltimate(vWarehouseShipment, util.VN_CURDATE());

	INSERT INTO tItemRange
		SELECT t.itemFk, tr.landed
			FROM tmp.buyUltimate t
				JOIN buy b ON b.id = t.buyFk
				JOIN entry e ON e.id = b.entryFk
				JOIN travel tr ON tr.id = e.travelFk
				LEFT JOIN tItemRange i ON t.itemFk = i.itemFk
			WHERE t.warehouseFk = vWarehouseShipment
				AND NOT e.isRaid
	ON DUPLICATE KEY UPDATE tItemRange.dated = GREATEST(tItemRange.dated, tr.landed);

	CREATE OR REPLACE TEMPORARY TABLE tItemRangeLive
		(PRIMARY KEY (itemFk))
		ENGINE = MEMORY
		SELECT ir.itemFk, TIMESTAMP(TIMESTAMPADD(DAY, it.life, ir.dated), '23:59:59') dated
			FROM tItemRange ir
				JOIN item i ON i.id = ir.itemFk
				JOIN itemType it ON it.id = i.typeFk
			HAVING dated >= vDatedFrom OR dated IS NULL;

	-- Calcula el ATP
	CREATE OR REPLACE TEMPORARY TABLE tmp.itemCalc
		(INDEX (itemFk,warehouseFk))
		ENGINE = MEMORY
		SELECT i.item_id itemFk, vWarehouseLanding warehouseFk, i.dat dated, i.amount quantity
			FROM vn2008.item_out i
				JOIN tItemRangeLive ir ON ir.itemFK = i.item_id
			WHERE i.dat >= vDatedFrom
				AND (ir.dated IS NULL OR i.dat <= ir.dated)
				AND i.warehouse_id = vWarehouseLanding
		UNION ALL
		SELECT b.itemFk, vWarehouseLanding, t.landed, b.quantity
			FROM buy b
			JOIN entry e ON b.entryFk = e.id
			JOIN travel t ON t.id = e.travelFk
			JOIN tItemRangeLive ir ON ir.itemFk = b.itemFk
		WHERE NOT e.isExcludedFromAvailable
			AND b.quantity <> 0
			AND NOT e.isRaid
			AND t.warehouseInFk = vWarehouseLanding
			AND t.landed >= vDatedFrom
			AND (ir.dated IS NULL OR t.landed <= ir.dated)
		UNION ALL
		SELECT i.item_id, vWarehouseLanding, i.dat, i.amount
			FROM vn2008.item_entry_out i
				JOIN tItemRangeLive ir ON ir.itemFk = i.item_id
			WHERE i.dat >= vDatedFrom
				AND (ir.dated IS NULL OR i.dat <= ir.dated)
				AND i.warehouse_id = vWarehouseLanding
		UNION ALL
		SELECT r.item_id, vWarehouseLanding, r.shipment, -r.amount
			FROM hedera.order_row r
				JOIN hedera.`order` o ON o.id = r.order_id
				JOIN tItemRangeLive ir ON ir.itemFk = r.item_id
			WHERE r.shipment >= vDatedFrom
				AND (ir.dated IS NULL OR r.shipment <= ir.dated)
				AND r.warehouse_id = vWarehouseLanding
				AND r.created >= vDatedReserve
				AND NOT o.confirmed;

	CALL item_getAtp(vDated);

	CREATE OR REPLACE TEMPORARY TABLE tmp.availableTraslate
		(PRIMARY KEY (item_id))
		ENGINE = MEMORY
		SELECT t.item_id, SUM(stock) available
			FROM (
				SELECT ti.itemFk item_id, stock
					FROM tmp.itemList ti
						JOIN tItemRange ir ON ir.itemFk = ti.itemFk
				UNION ALL
				SELECT itemFk, quantity
					FROM tmp.itemAtp
				) t
			GROUP BY t.item_id
			HAVING available <> 0;

	DROP TEMPORARY TABLE tmp.itemList, tItemRange, tItemRangeLive;
END$$
DELIMITER ;