/*============================================================================*/
/* SAT SISTEMAS - Tecnologia de Ponta ao seu Alcance                          */
/* Dpto: Desenvolvimento                                                      */
/* Analista de Sistemas: Amauri Otto                                          */
/* Rotina1: Insere no Rot_P a quantidade do Estoque Negativa para Zerar o     */
/*          Estoque.                                                          */
/*============================================================================*/
EXECUTE BLOCK
AS

declare variable iCod Integer;
declare variable eQuant Double Precision;

BEGIN
	FOR SELECT 
		PRO.COD, PRO.Quant
	FROM
		PRO
	WHERE
		PRO.Loja = 3 
		AND Pro.Quant <> 0
		AND ((SELECT COUNT(*) FROM PROD WHERE PRO.COD = PROD.COD AND PROD.FORN = 1) > 0)
	INTO
		:iCod, :eQuant
	DO
	BEGIN
	    	INSERT INTO
	    	Rot_P (Loja, cod, Hist, Valor)
	VALUES
		(3, :iCod, 'Balanço', :equant * -1);

	END
END

/* Rotina2: Insere no Rot_P a quantidade do Estoque da Loja 13.               */

EXECUTE BLOCK
AS

declare variable iCod Integer;
declare variable eQuant Double Precision;

BEGIN
	FOR SELECT 
		PRO.COD, PRO.Quant
	FROM
		PRO
	WHERE
		PRO.Loja = 13 
		AND Pro.Quant <> 0
		AND ((SELECT COUNT(*) FROM PROD WHERE PRO.COD = PROD.COD AND PROD.FORN = 1) > 0)
	INTO
		:iCod, :eQuant
	DO
	BEGIN
	    	INSERT INTO
	    	Rot_P (Loja, cod, Hist, Valor)
	VALUES
		(3, :iCod, 'Balanço', :equant);

	END
END