DELIMITER $$
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `bi`.`defaulting`(IN `vDate` DATE)
BEGIN
	DECLARE vDone BOOLEAN;
    DECLARE vClient INT;
    DECLARE vAmount INT;
    DECLARE vDued DATE;
    DECLARE vAmountInvoice DECIMAL(10,2);
    DECLARE vGraceDays INT;
	DECLARE defaulters CURSOR FOR
		SELECT client, amount, graceDays FROM bi.defaulters d 
				JOIN vn2008.Clientes c ON c.Id_Cliente = d.client
                JOIN vn2008.pay_met pm ON pm.id = c.pay_met_id
                WHERE hasChanged AND date = vDate;
        
	DECLARE invoices CURSOR FOR
		SELECT Vencimiento, importe FROM vn2008.Facturas f 
			WHERE f.Fecha >= '2016-01-01' AND f.Id_Cliente = vClient ORDER BY f.Fecha DESC;
        
	DECLARE CONTINUE HANDLER FOR NOT FOUND SET vDone = TRUE;

	DELETE FROM bi.defaulters WHERE date = vDate;

	INSERT INTO bi.defaulters(client, date, amount)
		SELECT c.id, vDate, IFNULL(FLOOR(SUM(cro.amount)),0) AS amount
			FROM vn.`client` c
				LEFT JOIN bi.customerRiskOverdue cro ON c.id = cro.customer_id
			GROUP BY c.id;
    
	-- marcamos si ha cambiado y heredamos la fecha defaulterSince
	UPDATE bi.defaulters d
		LEFT JOIN (
			SELECT * FROM(
				SELECT client, amount , defaulterSince, frozened FROM bi.defaulters
					WHERE date <= TIMESTAMPADD(DAY,-1, vDate)
					ORDER BY date DESC
					LIMIT 10000000000000000000) t GROUP BY client
		  ) yesterday using(client)
	SET d.hasChanged = (IFNULL(d.amount,0) <> IFNULL(yesterday.amount,0)),
		d.defaulterSince = yesterday.defaulterSince,
        d.frozened = yesterday.frozened
	WHERE d.date = vDate ;
     
    OPEN defaulters;
	defaulters: LOOP
		SET vDone = FALSE;
        SET vAmount = 0;
		FETCH defaulters INTO vClient,vAmount, vGraceDays;
		IF vDone THEN
			LEAVE defaulters;
		END IF;
		OPEN invoices;
		invoices:LOOP
			
			FETCH invoices INTO vDued, vAmountInvoice;
			IF vDone THEN
				LEAVE invoices;
			END IF;
			
			IF TIMESTAMPADD(DAY, vGraceDays, vDued) <= vDate THEN
				SET vAmount = vAmount - vAmountInvoice;
				IF vAmount <= 0 THEN
                                    
					UPDATE defaulters SET defaulterSince = vDued
						WHERE client = vClient and date = vDate;
						
					SET vAmount = 0;
					LEAVE invoices;
				END IF;
			END IF;
		END LOOP;
		CLOSE invoices;     
	END LOOP;
		CLOSE defaulters;
	
    DELETE FROM defaulters
		WHERE amount = 0 
			AND hasChanged = FALSE
            AND `date` = vDate;
        
    UPDATE defaulters d
			JOIN vn.config ON TRUE
		SET d.frozened = NULL
		WHERE `date` = vDate 
			AND d.amount <= config.defaultersMaxAmount;
		    
    CALL vn.clientFreeze();
    
    -- actualizamos defaulting
	DELETE FROM bi.defaulting WHERE date = vDate;

	INSERT INTO bi.defaulting(date, amount)
		SELECT vDate, SUM(amount)
			FROM bi.defaulters
			WHERE date = vDate and amount > 0;

END$$
DELIMITER ;