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

DELIMITER $$
CREATE OR REPLACE DEFINER=`vn`@`localhost` PROCEDURE `vn`.`buy_getSplit`(vSelf INT, vDated DATE)
BEGIN
/**
 * Devuelve tantos registros como etiquetas se necesitan para cada uno de los cubos o cajas de 
 * las ventas correspondientes a la compra que se pasa como parámetro, en los almacenes que tienen 
 * habilitada la venta de productos con stock virtual, aunque los productos pueden ser de cualquier tipo.
 * 
 * @param vSelf Identificador de vn.buy
 * @param vDated Fecha de preparación de las ventas que queremos etiquetar
 */
	DECLARE vItemFk INT;
	DECLARE vPacking INT;
	DECLARE vRemaining INT;
	DECLARE vLabels INT;
	DECLARE vSaleFk INT;
	DECLARE vAmount INT;
	DECLARE vDone BOOL DEFAULT FALSE;
	DECLARE vCounter INT DEFAULT 1;

	DECLARE cur CURSOR FOR
		SELECT s.id, s.quantity - IFNULL(l.stem, 0)
			FROM vn.sale s
				JOIN vn.ticket t ON t.id = s.ticketFk
				JOIN vn.warehouse w ON w.id = t.warehouseFk
				LEFT JOIN vn.saleLabel l ON l.saleFk = s.id
			WHERE s.itemFk = vItemFk
				AND t.shipped  >= vDated
				AND w.isLogiflora
				AND IFNULL(l.stem, 0) < s.quantity
			ORDER BY s.quantity = vRemaining DESC
			LOCK IN SHARE MODE;

	DECLARE CONTINUE HANDLER FOR NOT FOUND
		SET vDone = TRUE;

	DECLARE EXIT HANDLER FOR SQLEXCEPTION
	BEGIN
		ROLLBACK;
		RESIGNAL;
	END;

	START TRANSACTION;

	-- Obtiene los datos de la compra

	SELECT itemFk, packing, quantity
		INTO vItemFk, vPacking, vRemaining
		FROM vn.buy WHERE id = vSelf;

	-- Crea splits de los tickets
	CREATE OR REPLACE TEMPORARY TABLE tmp.split
	(
		id INT,
		labels INT DEFAULT 0,
		counter INT DEFAULT 0
	)
	ENGINE = MEMORY;

	OPEN cur;

	l: LOOP
		SET vDone = FALSE;

		FETCH cur INTO vSaleFk, vAmount;

		IF vDone OR vRemaining = 0 THEN
			LEAVE l;
		END IF;

		SET vAmount = LEAST(vAmount, vRemaining);

		SET vRemaining = vRemaining - vAmount;

		SET vLabels = vAmount DIV vPacking;

		-- Se inserta una linea por cada etiqueta
		SET vCounter = 1;

		WHILE vLabels >= vCounter DO
			INSERT INTO tmp.split
				SET
				id = vSaleFk, 
				labels = vLabels,
				counter = vCounter;

			SET vCounter = vCounter + 1;
		END WHILE;

		INSERT INTO vn.saleLabel
			SET
				saleFk = vSaleFk,
				stem = vAmount,
				label = vLabels
			ON DUPLICATE KEY UPDATE
				stem = stem + VALUES(stem),
				label = label + VALUES(label);
	END LOOP;

	CLOSE cur;

	-- Devuelve los splits creados
	SELECT CONCAT(sp.counter,'/',sp.labels) labels,
		COALESCE(sfc.nickname, sfa.nickname, a.nickname) destination,
		s.itemFk, 
		i.longName, 
		i.`size`, 
		vn.ticketSplitCounter(t.id) counter, 
		IF(sfa.id OR sfc.id, 
			a.nickname,
			CONCAT(a.id, ' ', p.`name`,' (', c.`code`,')')) destination2
		FROM tmp.split sp
			JOIN vn.sale s ON sp.id = s.id
			JOIN vn.item i ON i.id = s.itemFk
			JOIN vn.ticket t ON t.id = s.ticketFk
			JOIN vn.address  a ON a.id = t.addressFk
			JOIN vn.province p ON p.id = a.provinceFk
			JOIN vn.country c ON c.id = p.countryFk
			LEFT JOIN vn.splitFilter sfa ON sfa.autonomyFk = p.autonomyFk
			LEFT JOIN vn.splitFilter sfc ON sfc.clientFk = t.clientFk;

	-- Limpia y confirma cambios
	DROP TEMPORARY TABLE
		tmp.split;

	COMMIT;
END$$
DELIMITER ;