create procedure sp_InsereDetalheCompra
  @quantidade int,
  @precoUnitario money,
  @codProduto int 
as
begin
  declare @idCompraAberta int  
  select @idCompraAberta = Cod from
    dbo.Compra where situacao = 'ABERTO'

  if @idCompraAberta is not null begin
    insert into dbo.DetalheCompra 
    (quantidade, precoUnitario, Cod_Produto, Cod_Compra)
    values (@quantidade, @precoUnitario, @codProduto,@idCompraAberta)
  end
  else begin
    raiserror ('Não existe nenhuma compra aberta.', 17, 1)
  end 
end