- Comando para zerar estoque e incluindo todos produtos para 1

EXECUTE BLOCK

AS

DECLARE VARIABLE icod INTEGER;

DECLARE VARIABLE iloja INTEGER;

BEGIN

 DELETE FROM pro;

 DELETE FROM rot_p;

 FOR SELECT cod FROM PROD INTO :icod DO

 BEGIN

   FOR SELECT loja FROM lojas INTO :iloja DO

   BEGIN

     INSERT INTO rot_p(loja, cod, hist, tam_cor, valor) VALUES (:iloja, :icod, 'INÍCIO', 'U', 1);

   END

 END

END;