Faltou o cod de incluir
Private Sub btnIncluir_Click(sender As Object, e As EventArgs) Handles btnIncluir.Click
'Verificamos a quantidade foi informada
If txtQuantidadeUni.Text = String.Empty Then
MsgBox("Informe a quantidade requerida.")
txtQuantidadeUni.Focus()
Exit Sub
End If
If txtData.Text = String.Empty Then
MsgBox("Informe a data da venda.")
txtData.Focus()
End If
'Verificamos se o nome do produto , preço e quantidade não estão vazios
If txtNomeProduto.Text <> "" And txtPrecoProduto.Text <> "" And txtQuantidadeUni.Text <> "" And txtCodigoCliente.Text <> "" Then
'Verificamos se o Do produto não é menor do que o solicitado
If Convert.ToInt32(estoqueProduto) < Convert.ToInt32(txtQuantidadeUni.Text) Then
'Mostramos uma aviso ao usuário
MsgBox("A quantidade requerida é Superior a do estoque")
'Como a quantidade solicitada é mario que o estoque
'perguntamos se o usuário deseja estabelecer o estoque atual
'com a nova quantidade informada
If MessageBox.Show("Deseja estabelecer o estoque atual como a nova quantidade requerida",
"Vendas", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
'Establecemos a nova quantidade em estoque
txtQuantidadeUni.Text = estoqueProduto
'Inicializamos o objeto da classe DetalhesPedidos
oDetalhesPedidos = New DetalhesPedidos
'Preenchemos os valores
'-----------------------------------------------------------------
oDetalhesPedidos.QuantidadeUni = Convert.ToInt32(txtQuantidadeUni.Text)
oDetalhesPedidos.QuantidadeCX = Convert.ToInt32(txtQuantidadeUni.Text / txtQuantidadeProduto.Text) = quantidadeCX
oDetalhesPedidos.CodProduto = codProduto
oDetalhesPedidos.NomeProduto = nomeProduto
oDetalhesPedidos.PrecoUni = txtPrecoProduto.Text
oDetalhesPedidos.PrecoCX = (txtPrecoProduto.Text * txtQuantidadeProduto.Text)
oDetalhesPedidos.EstoqueProduto = estoqueProduto
oDetalhesPedidos.Prazo1 = Convert.ToInt32(txtPrazo1.Text)
oDetalhesPedidos.Prazo2 = Convert.ToInt32(txtPrazo2.Text)
oDetalhesPedidos.Prazo3 = Convert.ToInt32(txtPrazo3.Text)
oDetalhesPedidos.Prazo4 = Convert.ToInt32(txtPrazo4.Text)
oDetalhesPedidos.Subtotal = txtPrecoProduto.Text * Convert.ToInt32(txtQuantidadeUni.Text)
'------------------------------------------------------------------------
'Verificamos se o produto esta na lista de pedidos
'e incluimos a lista de DetalhesPedidos
If buscarDetalhesVendas(ArrDetalhesPedidos, oDetalhesPedidos) = False Then
'Agregamos o pedido a lista de DetalhesPedidos
ArrDetalhesPedidos.Add(oDetalhesPedidos)
End If
'Assciamos a lista de DetalhesPedidos como fonte de dados ao datagridview
Me.dgvVendas.DataSource = ArrDetalhesPedidos
Else
'Se não deseja estabelecer o estoque atual com a quantidade solicitada
'voltamos ao formulario para escolher outro produto
btnProcuraProduto_Click(Nothing, Nothing)
End If
Else
'Como a quantidade requerida e menor que o estoque
'iniciamos o objeto da classe DetalhesPedidos
oDetalhesPedidos = New DetalhesPedidos
'Preenchemos os valores no objeto
oDetalhesPedidos.QuantidadeUni = Convert.ToInt32(txtQuantidadeUni.Text)
oDetalhesPedidos.QuantidadeCX = Convert.ToInt32(txtQuantidadeUni.Text / txtQuantidadeProduto.Text)
oDetalhesPedidos.CodProduto = codProduto
oDetalhesPedidos.NomeProduto = nomeProduto
oDetalhesPedidos.PrecoUni = txtPrecoProduto.Text
oDetalhesPedidos.PrecoCX = (txtPrecoProduto.Text * Convert.ToInt32(txtQuantidadeProduto.Text))
oDetalhesPedidos.EstoqueProduto = estoqueProduto
oDetalhesPedidos.Prazo1 = Convert.ToInt32(txtPrazo1.Text)
oDetalhesPedidos.Prazo2 = Convert.ToInt32(txtPrazo2.Text)
oDetalhesPedidos.Prazo3 = Convert.ToInt32(txtPrazo3.Text)
oDetalhesPedidos.Prazo4 = Convert.ToInt32(txtPrazo4.Text)
oDetalhesPedidos.Subtotal = txtPrecoProduto.Text * Convert.ToInt32(txtQuantidadeUni.Text)
'Verificamos se o produto solicitado esta na lista de pedidos
'Se não estiver incluimos na lista de DetalhesPedidos
If buscarDetalhesVendas(ArrDetalhesPedidos, oDetalhesPedidos) = False Then
'Incluimos o pedido a lista de DetalhesPedidos
ArrDetalhesPedidos.Add(oDetalhesPedidos)
End If
'Associamos a lista como origem da fonte de dados
Me.dgvVendas.DataSource = ArrDetalhesPedidos.ToList
End If
End If
'Limpamos os textBox
Me.limpar_produto()
'Calculamos o Total do Pedido
Me.calcular_total()
End Sub