BEGIN 
      FOR CUR_TABELA_KIT IN (
      SELECT S.CDSUBGRPROD, S.NMSUBGRPROD
      FROM SUBGRUPPROD S, PARAMORCAEVE P
      WHERE P.CDGRPRODKITORCA = S.CDGRUPPROD
      ORDER BY S.CDSUBGRPROD
      ) LOOP
 
      /*insere a tabela SUBGRUPPROD*/
      INSERT INTO KITORCAEVEN
         (CDKITORCAEVEN, NMKITORCAEVEN)
      VALUES
         (CUR_TABELA_KIT.CDSUBGRPROD, CUR_TABELA_KIT.NMSUBGRPROD);  
    
        END LOOP;
      FOR CUR_TABELA_PRODKIT IN (
      SELECT DISTINCT S.CDGRUPPROD, N.CDSUBGRPROD, N.CDPRODUTO
      FROM NVSUBGRPROD N,KITORCAEVEN K, PARAMORCAEVE P, SUBGRUPPROD S
      WHERE P.CDGRPRODKITORCA = S.CDGRUPPROD
      AND S.CDGRUPPROD = N.CDGRUPPROD      
      AND S.CDSUBGRPROD = N.CDSUBGRPROD
      ORDER BY S.CDGRUPPROD, N.CDSUBGRPROD, N.CDPRODUTO
      ) LOOP 

      /*insere a tabela NVSUBGRPROD*/
      INSERT INTO PRODKITORCAEVEN
         (CDKITORCAEVEN, CDPRODUTO)
      VALUES
         (CUR_TABELA_PRODKIT.CDSUBGRPROD, CUR_TABELA_PRODKIT.CDPRODUTO);
    END LOOP;
  COMMIT;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ORE_ALTERA_KIT','5.05.020'); END;
/
