salix/db/routines/stock/procedures/buyOut_sync.sql

DELIMITER $$
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `stock`.`buyOut_sync`(vSelf INT)
BEGIN
/**
 * Attaches a buyOut with available buylots.
 *
 * @param vSelf The buyOut reference
 */
	DECLARE vDated DATETIME;
	DECLARE vItem INT;
	DECLARE vWarehouse INT;
	DECLARE vLack INT;
	DECLARE vSupplied INT;
	DECLARE vSuppliedFromRequest INT;
	DECLARE vBuyLotFk INT;
	DECLARE vAvailable INT;
	DECLARE vHasPicks BOOL;
	DECLARE vDone BOOL;

	DECLARE vBuyLots CURSOR FOR
		SELECT id, available, available < quantity
			FROM buylot
			WHERE warehouseFk = vWarehouse
				AND itemFk = vItem
				AND dated <= vDated
				AND (expired IS NULL OR expired > vDated)
			ORDER BY dated;

	DECLARE CONTINUE HANDLER FOR NOT FOUND
		SET vDone = TRUE;

	SELECT warehouseFk, itemFk, dated, lack
		INTO vWarehouse, vItem, vDated, vLack
		FROM buyOut
		WHERE id = vSelf;

	OPEN vBuyLots;

	myLoop: LOOP
		SET vDone = FALSE;
		FETCH vBuyLots INTO vBuyLotFk, vAvailable, vHasPicks;

		IF vDone THEN
			LEAVE myLoop;
		END IF;

		SET vSupplied = LEAST(vLack, vAvailable);

		IF vSupplied > 0 THEN
			SET vLack = vLack - vSupplied;
			UPDATE buylot
				SET available = available - vSupplied
				WHERE id = vBuyLotFk;
		END IF;

		IF vHasPicks AND vLack > 0 THEN
			CALL buyLot_requestQuantity(vBuyLotFk, vLack, vDated, vSuppliedFromRequest);
			SET vSupplied = vSupplied + vSuppliedFromRequest;
			SET vLack = vLack - vSuppliedFromRequest;
		END IF;

		IF vSupplied > 0 THEN
			CALL buyLot_addPick(vBuyLotFk, vSelf, vSupplied);
		END IF;

		IF vLack = 0 THEN
			LEAVE myLoop;
		END IF;
	END LOOP;

	CLOSE vBuyLots;

	UPDATE buyOut
		SET isSync = TRUE,
			lack = vLack
		WHERE id = vSelf;
END$$
DELIMITER ;