67 lines
2.1 KiB
MySQL
67 lines
2.1 KiB
MySQL
|
DELIMITER $$
|
||
|
|
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn2008`.`CalculoRemesas`(IN vFechaRemesa DATE)
|
||
|
|
BEGIN
|
||
|
|
|
||
|
|
DROP TEMPORARY TABLE IF EXISTS TMP_REMESAS;
|
||
|
|
CREATE TEMPORARY TABLE TMP_REMESAS
|
||
|
|
SELECT
|
||
|
|
CONCAT(p.NIF,REPEAT('0', 12-LENGTH(p.NIF))) as CIF1,
|
||
|
|
cli.Id_Cliente,
|
||
|
|
cli.Cliente,
|
||
|
|
cli.`IF` as NIF,
|
||
|
|
c.PaymentDate as Vencimiento,
|
||
|
|
0 ImporteFac,
|
||
|
|
cast(c.Recibo as decimal(10,2)) as ImporteRec,
|
||
|
|
0 as ImporteActual,
|
||
|
|
c.companyFk empresa_id,
|
||
|
|
cli.RazonSocial,
|
||
|
|
cast(c.Recibo as decimal(10,2)) as ImporteTotal,
|
||
|
|
cast(c.Recibo as decimal(10,2)) as Saldo,
|
||
|
|
p.Proveedor as Empresa,
|
||
|
|
e.abbreviation as EMP,
|
||
|
|
cli.cuenta,
|
||
|
|
iban AS Iban,
|
||
|
|
CONVERT(SUBSTRING(iban,5,4),UNSIGNED INT) AS nrbe,
|
||
|
|
sepavnl as SEPA,
|
||
|
|
corevnl as RecibidoCORE,
|
||
|
|
hasLcr,
|
||
|
|
be.bic,
|
||
|
|
be.`name` entityName
|
||
|
|
FROM Clientes cli
|
||
|
|
JOIN
|
||
|
|
(SELECT risk.companyFk,
|
||
|
|
c.Id_Cliente,
|
||
|
|
sum(risk.amount) as Recibo,
|
||
|
|
IF((c.Vencimiento + graceDays) mod 30.001 <= day(vFechaRemesa)
|
||
|
|
,TIMESTAMPADD(DAY, (c.Vencimiento + graceDays) MOD 30.001, LAST_DAY(TIMESTAMPADD(MONTH,-1,vFechaRemesa)))
|
||
|
|
,TIMESTAMPADD(DAY, (c.Vencimiento + graceDays) MOD 30.001, LAST_DAY(TIMESTAMPADD(MONTH,-2,vFechaRemesa)))
|
||
|
|
) as PaymentDate
|
||
|
|
FROM Clientes c
|
||
|
|
JOIN pay_met pm on pm.id = pay_met_id
|
||
|
|
JOIN
|
||
|
|
(
|
||
|
|
SELECT companyFk, clientFk, amount
|
||
|
|
FROM Clientes c
|
||
|
|
JOIN vn.clientRisk cr ON cr.clientFk = c.Id_Cliente
|
||
|
|
WHERE pay_met_id = 4
|
||
|
|
|
||
|
|
UNION ALL
|
||
|
|
|
||
|
|
SELECT empresa_id, Id_Cliente, - Importe
|
||
|
|
FROM Facturas f
|
||
|
|
JOIN Clientes c using(Id_Cliente)
|
||
|
|
JOIN pay_met pm on pm.id = pay_met_id
|
||
|
|
WHERE f.Vencimiento > vFechaRemesa
|
||
|
|
AND pay_met_id = 4 AND pm.deudaviva
|
||
|
|
AND Importe > 0
|
||
|
|
|
||
|
|
) risk ON c.Id_Cliente = risk.clientFk
|
||
|
|
GROUP BY risk.companyFk, Id_Cliente
|
||
|
|
HAVING Recibo > 10
|
||
|
|
) c on c.Id_Cliente = cli.Id_Cliente
|
||
|
|
JOIN Proveedores p on p.Id_Proveedor = c.companyFk
|
||
|
|
JOIN empresa e on e.id = c.companyFk
|
||
|
|
LEFT JOIN vn.bankEntity be ON be.id = cli.bankEntityFk;
|
||
|
|
END$$
|
||
|
|
DELIMITER ;
|