79 lines
2.5 KiB
SQL
79 lines
2.5 KiB
SQL
USE `vn`;
|
|
DROP procedure IF EXISTS `ticket_recalcComponentsForcePrice`;
|
|
|
|
DELIMITER $$
|
|
USE `vn`$$
|
|
CREATE DEFINER=`root`@`%` PROCEDURE `ticket_recalcComponentsForcePrice`(IN vTicketFk BIGINT, vIsTicketEditable BOOLEAN )
|
|
proc: BEGIN
|
|
|
|
/**
|
|
* Este procedimiento trata de "rebionizar" un ticket,
|
|
* eliminando los componentes existentes e insertandolos de nuevo
|
|
*
|
|
* @param vTicketFk Id del ticket
|
|
* @return tmp.buyUltimate
|
|
*/
|
|
DECLARE vShipped DATE;
|
|
DECLARE vWarehouseFk SMALLINT;
|
|
DECLARE vAgencyModeFk INT;
|
|
DECLARE vAddressFk INT;
|
|
DECLARE vLanded DATE;
|
|
DECLARE vZoneFk INTEGER;
|
|
|
|
IF vIsTicketEditable IS NULL THEN
|
|
SELECT (IFNULL(ts.alertLevel,0) >0 or IFNULL(t.refFk,"") != "") = FALSE, t.zoneFk
|
|
INTO vIsTicketEditable, vZoneFk
|
|
FROM ticket t LEFT JOIN ticketState ts ON t.id = ts.ticket
|
|
WHERE id = vTicketFk;
|
|
END IF;
|
|
SELECT warehouseFk, date(shipped), addressFk, agencyModeFk, landed
|
|
INTO vWarehouseFk, vShipped, vAddressFk, vAgencyModeFk, vLanded
|
|
FROM ticket
|
|
WHERE id = vTicketFk;
|
|
|
|
CALL zone_getShipped (vLanded, vAddressFk, vAgencyModeFk, TRUE);
|
|
|
|
CALL buyUltimate (vWarehouseFk, vShipped); -- rellena la tabla buyUltimate con la ultima compra
|
|
|
|
DROP TEMPORARY TABLE IF EXISTS tmp.ticketLot;
|
|
CREATE TEMPORARY TABLE tmp.ticketLot
|
|
SELECT vWarehouseFk warehouseFk, NULL available,
|
|
s.itemFk, bu.buyFk, vZoneFk zoneFk
|
|
FROM sale s
|
|
LEFT JOIN tmp.buyUltimate bu ON bu.itemFk = s.itemFk
|
|
WHERE s.ticketFk = vTicketFk
|
|
GROUP BY s.itemFk;
|
|
|
|
CALL catalog_componentPrepare();
|
|
CALL catalog_componentCalculate(vZoneFk, vAddressFk, vShipped, vWarehouseFk);
|
|
|
|
DROP TEMPORARY TABLE IF EXISTS tmp.sale;
|
|
CREATE TEMPORARY TABLE tmp.sale
|
|
(PRIMARY KEY (saleFk)) ENGINE = MEMORY
|
|
SELECT id saleFk, vWarehouseFk warehouseFk
|
|
FROM sale s
|
|
WHERE s.ticketFk = vTicketFk;
|
|
|
|
CALL ticketComponentUpdateSale(IF(vIsTicketEditable,1,6)); -- si el ticket esta facturado, respeta los precios
|
|
|
|
IF vLanded IS NULL THEN
|
|
|
|
CALL zone_getLanded(vShipped, vAddressFk, vAgencyModeFk, vWarehouseFk);
|
|
|
|
UPDATE vn2008.Tickets t
|
|
SET t.landing = (SELECT landed FROM tmp.zoneGetLanded)
|
|
WHERE Id_Ticket = vTicketFk;
|
|
|
|
DROP TEMPORARY TABLE tmp.zoneGetLanded;
|
|
|
|
END IF;
|
|
|
|
DROP TEMPORARY TABLE tmp.buyUltimate;
|
|
DROP TEMPORARY TABLE tmp.ticketComponentPrice;
|
|
DROP TEMPORARY TABLE tmp.ticketComponent;
|
|
DROP TEMPORARY TABLE tmp.sale;
|
|
END$$
|
|
|
|
DELIMITER ;
|
|
|