EXECUTE BLOCK
AS
DECLARE VARIABLE VREF VARCHAR(40);
DECLARE VARIABLE VDETALHE VARCHAR(30);
BEGIN
FOR
SELECT
  cd."dscodigo",
  cd."iddetalhe"
FROM CODIGOS CD
WHERE COALESCE (cd."dscodigo",'') <> '' AND cd."tpcodigo" <> 'Chamada'
INTO :VREF, :VDETALHE
DO
BEGIN
  INSERT INTO PRODUTOSREFERENCIAS (CODPRODUTO, TAM_COR, REFERENCIA)
  VALUES (1, :VDETALHE, :VREF);
END
END;