create or replace procedure criaRequisiçõesCompra(
numeroCompra requisitosCompra.nCompra%TYPE,
descricao requisitosCompra.descricao%TYPE,
dataEntrega requisitosCompra.dataEntrega%TYPE,
codFornecedor fornecedor.codfornecedor%TYPE,
numRequisicoes Number)
IS
Begin
  for i in 1..numRequisicoes loop
    insert into requisitoscompra
    values(seq_id_copia.NEXTVAL, descricao, dataEntrega, codFornecedor);
END loop;
END criaRequisiçõesCompra;