75 lines
1.8 KiB
SQL
75 lines
1.8 KiB
SQL
DELIMITER $$
|
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn`.`duaInvoiceInBooking`(vDuaFk INT)
|
|
BEGIN
|
|
/**
|
|
* Genera el asiento de un DUA y marca las entradas como confirmadas
|
|
*
|
|
* @param vDuaFk Id del dua a recalcular
|
|
*/
|
|
DECLARE vDone BOOL DEFAULT FALSE;
|
|
DECLARE vInvoiceFk INT;
|
|
DECLARE vBookEntry INT;
|
|
DECLARE vFiscalYear INT;
|
|
|
|
DECLARE vInvoicesIn CURSOR FOR
|
|
SELECT DISTINCT e.invoiceInFk
|
|
FROM entry e
|
|
JOIN duaEntry de ON de.entryFk = e.id
|
|
JOIN invoiceIn ii ON ii.id = e.invoiceInFk
|
|
WHERE de.duaFk = vDuaFk
|
|
AND de.customsValue
|
|
AND ii.isBooked = FALSE;
|
|
|
|
DECLARE CONTINUE HANDLER FOR NOT FOUND SET vDone = TRUE;
|
|
|
|
UPDATE invoiceIn ii
|
|
JOIN entry e ON e.invoiceInFk = ii.id
|
|
JOIN duaEntry de ON de.entryFk = e.id
|
|
JOIN dua d ON d.id = de.duaFk
|
|
SET ii.booked = IFNULL(ii.booked, d.booked),
|
|
ii.operated = IFNULL(ii.operated, d.operated),
|
|
ii.issued = IFNULL(ii.issued, d.issued),
|
|
ii.bookEntried = IFNULL(ii.bookEntried, d.bookEntried),
|
|
e.isBooked = TRUE,
|
|
e.isConfirmed = TRUE
|
|
WHERE d.id = vDuaFk;
|
|
|
|
SELECT ASIEN INTO vBookEntry FROM dua WHERE id = vDuaFk;
|
|
|
|
IF vBookEntry IS NULL THEN
|
|
SELECT YEAR(IFNULL(ii.bookEntried, d.bookEntried)) INTO vFiscalYear
|
|
FROM invoiceIn ii
|
|
JOIN entry e ON e.invoiceInFk = ii.id
|
|
JOIN duaEntry de ON de.entryFk = e.id
|
|
JOIN dua d ON d.id = de.duaFk
|
|
WHERE d.id = vDuaFk
|
|
LIMIT 1;
|
|
CALL ledger_next(vFiscalYear, FALSE, vBookEntry);
|
|
END IF;
|
|
|
|
OPEN vInvoicesIn;
|
|
|
|
l: LOOP
|
|
SET vDone = FALSE;
|
|
FETCH vInvoicesIn INTO vInvoiceFk;
|
|
|
|
IF vDone THEN
|
|
LEAVE l;
|
|
END IF;
|
|
|
|
CALL invoiceIn_booking(vInvoiceFk, vBookEntry);
|
|
END LOOP;
|
|
|
|
CLOSE vInvoicesIn;
|
|
|
|
UPDATE dua
|
|
SET ASIEN = vBookEntry
|
|
WHERE id = vDuaFk;
|
|
|
|
UPDATE invoiceIn ii
|
|
JOIN duaInvoiceIn dii ON dii.invoiceInFk = ii.id
|
|
SET ii.isBooked = TRUE
|
|
WHERE dii.duaFk = vDuaFk;
|
|
END$$
|
|
DELIMITER ;
|