salix/db/routines/vn2008/procedures/emailYesterdayPurchasesByConsigna.sql

DELIMITER $$
CREATE OR REPLACE DEFINER=`root`@`localhost` PROCEDURE `vn2008`.`emailYesterdayPurchasesByConsigna`(IN v_Date DATE, IN v_Client_Id INT)
BEGIN

	DECLARE MyIdTicket BIGINT;
	DECLARE MyAlias VARCHAR(50);
	DECLARE MyDomicilio VARCHAR(255);
	DECLARE MyPoblacion VARCHAR(25);
	DECLARE MyImporte DOUBLE;
	DECLARE MyMailTo VARCHAR(250);
	DECLARE MyMailReplyTo VARCHAR(250);
	DECLARE done INT DEFAULT FALSE;
	DECLARE emptyList INT DEFAULT 0;
	DECLARE txt TEXT;
	
	DECLARE rs CURSOR FOR 
		SELECT t.Id_Ticket, Alias, cast(amount as decimal(10,2)) Importe, Domicilio, POBLACION
			FROM Tickets t
				JOIN Consignatarios cs ON t.Id_Consigna = cs.Id_Consigna
				JOIN (
					SELECT `Movimientos`.`Id_Ticket` AS `Id_Ticket`,
						sum(
							`Movimientos`.`Cantidad` * `Movimientos`.`Preu` * (100 - `Movimientos`.`Descuento`) / 100
						) AS `amount`
					FROM (
							`vn2008`.`Movimientos`
							JOIN `vn2008`.`Tickets` ON(
								`Movimientos`.`Id_Ticket` = `Tickets`.`Id_Ticket`
							)
						)
					WHERE `Tickets`.`Fecha` >= `util`.`VN_CURDATE`() + INTERVAL -6 MONTH
					GROUP BY `Movimientos`.`Id_Ticket`
				) v ON v.Id_Ticket = t.Id_Ticket
			WHERE t.Fecha BETWEEN v_Date AND util.dayEnd(v_Date)
				AND t.Id_Cliente = v_Client_Id;
	
	DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1;
	
	SET v_Date = IFNULL(v_Date, util.yesterday());
	
	OPEN rs;
	
	FETCH rs INTO MyIdTicket, MyAlias, MyImporte, MyDomicilio, MyPoblacion;
	
	SET emptyList = done;
	
	SET txt = CONCAT('<p><font face="verdana" >',
					 '<h2> Relación de envíos.</h2>',
					 '<h3><font color="green">Dia: ', v_Date, '</font></h3>');
	
	WHILE NOT done DO
	
		SET txt = CONCAT(txt, '<br><br>',
						'<table>
							<tr>
								<th> <a href = "https://shop.verdnatura.es/#!form=ecomerce/ticket&ticket=',MyIdTicket,'">
	                            <font color="green"> Ticket ', MyIdTicket,'</font></th>
	                            <th></th><th></th><th></th><th></th>
	                            <th></th><th></th><th></th><th></th>
	                            <th> <font color="orange"> ', MyImporte, ' € </a></font></th>
							</tr>
						</table>'
	     			   , '             ', MyAlias, '<br>'
					   , '             ', MyDomicilio, '(', MyPoblacion, ')');
	
	FETCH rs INTO MyIdTicket, MyAlias, MyImporte, MyDomicilio, MyPoblacion;
	
	END WHILE;
		
	SET txt = CONCAT(
				txt, 
				'<table>',
                '<tr><th></th></tr>',
                '</table>',
				'<br><br>Puede acceder al detalle de los albaranes haciendo click sobre el número de Ticket',
				'<br><h3> Muchas gracias por su confianza</h3>',
				'</font></p>');
	
	-- Envío del email
	IF emptyList = 0 THEN
	
		SELECT CONCAT(`e-mail`,',pako@verdnatura.es') INTO MyMailTo
			FROM Clientes
			WHERE Id_Cliente = v_Client_Id AND `e-mail`>'';
	    
	    IF v_Client_Id = 7818 THEN -- LOEWE
			SET MyMailTo = 'isabel@elisabethblumen.com,emunozca@loewe.es,pako@verdnatura.es';
	    END IF;
	
		CALL vn.mail_insert(
			IFNULL(MyMailTo,'pako.natek@gmail.com'),
			'pako@verdnatura.es',
			'Resumen de pedidos preparados',
			txt
		);
	
	END IF;

END$$
DELIMITER ;