EXECUTE BLOCK
AS
DECLARE VARIABLE VCODIND VARCHAR(30);
DECLARE VARIABLE VPRODUTO VARCHAR(120);
DECLARE VARIABLE VDSDETALHE VARCHAR(120);
DECLARE VARIABLE VIDDETALHE VARCHAR(120);
DECLARE VARIABLE VIDPRODUTO VARCHAR(120);
BEGIN
FOR
SELECT
  DT."cdprincipal",
  DT."dsdetalhe",
  DT."iddetalhe",
  DT."idproduto"
FROM DETALHE DT
WHERE COALESCE (DT."cdprincipal",'') <> ''
INTO :VCODIND, :VDSDETALHE, :VIDDETALHE, :VIDPRODUTO
DO
BEGIN
  VPRODUTO = VDSDETALHE;

  INSERT INTO PROD (FORN, CODIND, PRODUTO, IDDETALHE, IDPRODUTO)
  VALUES (1,:VCODIND, :VDSDETALHE, :VIDDETALHE, :VIDPRODUTO);
END
END;