203 lines
6.5 KiB
MySQL
203 lines
6.5 KiB
MySQL
|
DELIMITER $$
|
||
|
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `sage`.`invoiceIn_add`(vInvoiceInFk INT, vXDiarioFk INT)
|
||
|
|
BEGIN
|
||
|
|
/**
|
||
|
|
* Traslada la info de contabilidad relacionada con las facturas recibidas
|
||
|
|
*
|
||
|
|
* @vInvoiceInFk Factura recibida
|
||
|
|
* @vXDiarioFk Id tabla XDiario
|
||
|
|
*/
|
||
|
|
DECLARE vDone BOOL DEFAULT FALSE;
|
||
|
|
DECLARE vBase DOUBLE;
|
||
|
|
DECLARE vVat DOUBLE;
|
||
|
|
DECLARE vRate DOUBLE;
|
||
|
|
DECLARE vTransactionCode INT;
|
||
|
|
DECLARE vCounter INT DEFAULT 0;
|
||
|
|
DECLARE vTransactionCodeOld INT;
|
||
|
|
DECLARE vTaxCode INT;
|
||
|
|
DECLARE vTaxCodeOld INT;
|
||
|
|
DECLARE vOperationCode VARCHAR(1);
|
||
|
|
DECLARE vIsIntracommunity BOOL DEFAULT FALSE;
|
||
|
|
DECLARE vSerialDua VARCHAR(1) DEFAULT 'D';
|
||
|
|
DECLARE vInvoiceTypeReceived VARCHAR(1);
|
||
|
|
DECLARE vInvoiceTypeInformative VARCHAR(1);
|
||
|
|
DECLARE vIsInformativeExportation BOOL DEFAULT FALSE;
|
||
|
|
|
||
|
|
DECLARE vCursor CURSOR FOR
|
||
|
|
SELECT it.taxableBase,
|
||
|
|
CAST((( it.taxableBase / 100) * t.PorcentajeIva) AS DECIMAL (10,2)),
|
||
|
|
t.PorcentajeIva,
|
||
|
|
it.transactionTypeSageFk,
|
||
|
|
it.taxTypeSageFk,
|
||
|
|
tty.isIntracommunity,
|
||
|
|
tt.ClaveOperacionDefecto
|
||
|
|
FROM vn.invoiceIn i
|
||
|
|
JOIN vn.invoiceInTax it ON it.InvoiceInFk = i.id
|
||
|
|
JOIN TiposIva t ON t.CodigoIva = it.taxTypeSageFk
|
||
|
|
JOIN taxType tty ON tty.id = t.CodigoIva
|
||
|
|
JOIN TiposTransacciones tt ON tt.CodigoTransaccion = it.transactionTypeSageFk
|
||
|
|
LEFT JOIN vn.dua d ON d.id = vInvoiceInFk
|
||
|
|
WHERE i.id = vInvoiceInFk
|
||
|
|
AND d.id IS NULL;
|
||
|
|
|
||
|
|
DECLARE CONTINUE HANDLER FOR NOT FOUND SET vDone = TRUE;
|
||
|
|
|
||
|
|
DELETE FROM movContaIVA
|
||
|
|
WHERE id = vXDiarioFk;
|
||
|
|
|
||
|
|
SELECT codeSage INTO vInvoiceTypeReceived
|
||
|
|
FROM invoiceType WHERE code ='received';
|
||
|
|
|
||
|
|
SELECT codeSage INTO vInvoiceTypeInformative
|
||
|
|
FROM invoiceType WHERE code ='informative';
|
||
|
|
|
||
|
|
INSERT INTO movContaIVA(id, LibreA1)
|
||
|
|
VALUES (vXDiarioFk, vInvoiceInFk);
|
||
|
|
|
||
|
|
OPEN vCursor;
|
||
|
|
|
||
|
|
l: LOOP
|
||
|
|
FETCH vCursor INTO vBase,
|
||
|
|
vVat,
|
||
|
|
vRate,
|
||
|
|
vTransactionCode,
|
||
|
|
vTaxCode,
|
||
|
|
vIsIntracommunity,
|
||
|
|
vOperationCode;
|
||
|
|
|
||
|
|
IF vDone THEN
|
||
|
|
LEAVE l;
|
||
|
|
END IF;
|
||
|
|
|
||
|
|
SET vTransactionCodeOld = vTransactionCode;
|
||
|
|
SET vTaxCodeOld = vTaxCode;
|
||
|
|
|
||
|
|
IF vOperationCode IS NOT NULL THEN
|
||
|
|
UPDATE movContaIVA
|
||
|
|
SET ClaveOperacionFactura = vOperationCode
|
||
|
|
WHERE id = vXDiarioFk;
|
||
|
|
END IF;
|
||
|
|
|
||
|
|
SET vCounter = vCounter + 1;
|
||
|
|
CASE vCounter
|
||
|
|
WHEN 1 THEN
|
||
|
|
UPDATE movContaIVA
|
||
|
|
SET BaseIva1 = vBase,
|
||
|
|
PorIva1 = vRate,
|
||
|
|
CuotaIva1 = vVat,
|
||
|
|
CodigoTransaccion1 = vTransactionCode,
|
||
|
|
CodigoIva1 = vTaxCode
|
||
|
|
WHERE id = vXDiarioFk;
|
||
|
|
|
||
|
|
WHEN 2 THEN
|
||
|
|
UPDATE movContaIVA
|
||
|
|
SET BaseIva2 = vBase,
|
||
|
|
PorIva2 = vRate,
|
||
|
|
CuotaIva2 = vVat,
|
||
|
|
CodigoTransaccion2 = vTransactionCode,
|
||
|
|
CodigoIva2 = vTaxCode
|
||
|
|
WHERE id = vXDiarioFk;
|
||
|
|
WHEN 3 THEN
|
||
|
|
UPDATE movContaIVA
|
||
|
|
SET BaseIva3 = vBase,
|
||
|
|
PorIva3 = vRate,
|
||
|
|
CuotaIva3 = vVat,
|
||
|
|
CodigoTransaccion3 = vTransactionCode,
|
||
|
|
CodigoIva3 = vTaxCode
|
||
|
|
WHERE id = vXDiarioFk;
|
||
|
|
WHEN 4 THEN
|
||
|
|
UPDATE movContaIVA
|
||
|
|
SET BaseIva4 = vBase,
|
||
|
|
PorIva4 = vRate,
|
||
|
|
CuotaIva4 = vVat,
|
||
|
|
CodigoTransaccion4 = vTransactionCode,
|
||
|
|
CodigoIva4 = vTaxCode
|
||
|
|
WHERE id = vXDiarioFk;
|
||
|
|
ELSE
|
||
|
|
SELECT vXDiarioFk INTO vXDiarioFk;
|
||
|
|
END CASE;
|
||
|
|
|
||
|
|
IF vIsIntracommunity THEN
|
||
|
|
UPDATE movContaIVA
|
||
|
|
SET Intracomunitaria = TRUE
|
||
|
|
WHERE id = vXDiarioFk;
|
||
|
|
END IF;
|
||
|
|
|
||
|
|
SET vTransactionCodeOld = vTransactionCode;
|
||
|
|
SET vTaxCodeOld = vTaxCode;
|
||
|
|
|
||
|
|
END LOOP;
|
||
|
|
|
||
|
|
CLOSE vCursor;
|
||
|
|
|
||
|
|
SELECT d.ASIEN AND x.ASIEN IS NULL INTO vIsInformativeExportation
|
||
|
|
FROM vn.dua d
|
||
|
|
LEFT JOIN vn.XDiario x ON x.ASIEN = d.ASIEN
|
||
|
|
AND x.SERIE = vSerialDua COLLATE utf8mb3_unicode_ci
|
||
|
|
WHERE d.ASIEN = (
|
||
|
|
SELECT ASIEN
|
||
|
|
FROM vn.XDiario
|
||
|
|
WHERE id = vXDiarioFk)
|
||
|
|
LIMIT 1;
|
||
|
|
|
||
|
|
UPDATE movContaIVA mci
|
||
|
|
JOIN tmp.invoiceIn ii ON ii.id = vInvoiceInFk
|
||
|
|
JOIN vn.XDiario x ON x.id = mci.id
|
||
|
|
LEFT JOIN tmp.invoiceDua id ON id.id = mci.id
|
||
|
|
JOIN vn.supplier s ON s.id = ii.supplierFk
|
||
|
|
JOIN Naciones n ON n.countryFk = s.countryFk
|
||
|
|
SET mci.CodigoDivisa = ii.currencyFk,
|
||
|
|
mci.Año = YEAR(ii.issued),
|
||
|
|
mci.Serie = ii.serial,
|
||
|
|
mci.Factura = ii.id,
|
||
|
|
mci.FechaFactura = ii.issued,
|
||
|
|
mci.ImporteFactura = IFNULL(mci.BaseIva1, 0) + IFNULL(mci.CuotaIva1, 0) +
|
||
|
|
IFNULL(mci.BaseIva2, 0) + IFNULL(mci.CuotaIva2, 0) +
|
||
|
|
IFNULL(mci.BaseIva3, 0) + IFNULL(mci.CuotaIva3, 0) +
|
||
|
|
IFNULL(mci.BaseIva4, 0) + IFNULL(mci.CuotaIva4, 0),
|
||
|
|
mci.TipoFactura = IF(id.id,
|
||
|
|
IF( ii.serial = vSerialDua COLLATE utf8mb3_unicode_ci, vInvoiceTypeReceived, vInvoiceTypeInformative),
|
||
|
|
IF(vIsInformativeExportation,vInvoiceTypeInformative, vInvoiceTypeReceived)),
|
||
|
|
mci.CodigoCuentaFactura = x.SUBCTA,
|
||
|
|
mci.CifDni = IF(LEFT(TRIM(s.nif), 2) = n.SiglaNacion, SUBSTRING(TRIM(s.nif), 3), s.nif),
|
||
|
|
mci.Nombre = s.name,
|
||
|
|
mci.SiglaNacion = n.SiglaNacion,
|
||
|
|
mci.EjercicioFactura = YEAR(ii.issued),
|
||
|
|
mci.FechaOperacion = ii.issued,
|
||
|
|
mci.MantenerAsiento = TRUE,
|
||
|
|
mci.SuFacturaNo = ii.supplierRef,
|
||
|
|
mci.IvaDeducible1 = IF(id.id, FALSE, IF(IFNULL(mci.BaseIva1, FALSE) = FALSE, FALSE, ii.isVatDeductible)),
|
||
|
|
mci.IvaDeducible2 = IF(id.id, FALSE, IF(IFNULL(mci.BaseIva2, FALSE) = FALSE, FALSE, ii.isVatDeductible)),
|
||
|
|
mci.IvaDeducible3 = IF(id.id, FALSE, IF(IFNULL(mci.BaseIva3, FALSE) = FALSE, FALSE, ii.isVatDeductible)),
|
||
|
|
mci.IvaDeducible4 = IF(id.id, FALSE, IF(IFNULL(mci.BaseIva4, FALSE) = FALSE, FALSE, ii.isVatDeductible)),
|
||
|
|
mci.FechaFacturaOriginal = x.FECHA_EX
|
||
|
|
WHERE mci.id = vXDiarioFk;
|
||
|
|
|
||
|
|
-- RETENCIONES
|
||
|
|
UPDATE movContaIVA mci
|
||
|
|
JOIN vn.invoiceIn ii ON ii.id = vInvoiceInFk
|
||
|
|
JOIN vn.XDiario x ON x.id = mci.id
|
||
|
|
JOIN vn.supplier s ON s.id = supplierFk
|
||
|
|
JOIN vn.invoiceInTax iit ON iit.invoiceInFk = ii.id
|
||
|
|
JOIN vn.expense e ON e.id = iit.expenseFk
|
||
|
|
JOIN TiposRetencion t ON t.CodigoRetencion = ii.withholdingSageFk
|
||
|
|
LEFT JOIN tmp.invoiceDua id ON id.id = mci.id
|
||
|
|
JOIN (SELECT SUM(x2.BASEEURO) taxableBase, SUM(x2.EURODEBE) taxBase
|
||
|
|
FROM vn.XDiario x1
|
||
|
|
JOIN vn.XDiario x2 ON x1.ASIEN = x2.ASIEN
|
||
|
|
WHERE x2.BASEEURO <> 0
|
||
|
|
AND x1.id = vXDiarioFk
|
||
|
|
)sub
|
||
|
|
JOIN ClavesOperacion co ON co.Descripcion = 'Arrendamiento de locales de negocio'
|
||
|
|
SET mci.CodigoRetencion = t.CodigoRetencion,
|
||
|
|
mci.ClaveOperacionFactura = IF( t.Retencion = 'ARRENDAMIENTO Y SUBARRENDAMIENTO', co.ClaveOperacionFactura_, mci.ClaveOperacionFactura),
|
||
|
|
mci.BaseRetencion = IF (t.Retencion = 'ACTIVIDADES AGRICOLAS O GANADERAS', sub.taxableBase + sub.taxBase, sub.taxableBase),
|
||
|
|
mci.PorRetencion = t.PorcentajeRetencion,
|
||
|
|
mci.ImporteRetencion = iit.taxableBase * - 1
|
||
|
|
WHERE mci.id = vXDiarioFk
|
||
|
|
AND e.name = 'Retenciones'
|
||
|
|
AND id.id IS NULL;
|
||
|
|
|
||
|
|
END$$
|
||
|
|
DELIMITER ;
|