Forum Visual Basic - JcmSoft

Forum | Novo Topico | Responder

Lucio colocou o seguinte comentário em 14/10/2017 17:06:57 :         

Assunto : Re: Update vários itens datagridview (Resolvido)
Mensagem : Problema resolvido. Abaixo está o código atualizado com a solução:

Private Sub FinalizaPedido()

Dim produto As New dsVendasTableAdapters.ProdutoTableAdapter
Dim itensPedido As New dsVendasTableAdapters.ItensTableAdapter
Dim estoqueAtual, quantidade, codigo As Integer

'laço responsável por inserir os itens do pedido na tabela Itens
For Each linhas As DataGridViewRow In dgvItens.Rows

codigo = Integer.Parse(linhas.Cells("colIdProduto").Value.ToString())
quantidade = Integer.Parse(linhas.Cells("colQtde").Value.ToString())

itensPedido.InsertQueryItens(lblPedido.Text,
linhas.Cells("colIdProduto").Value.ToString,
linhas.Cells("colQtde").Value.ToString,
linhas.Cells("colPreco").Value.ToString,
linhas.Cells("colSubtotal").Value.ToString)

'código responsável por atualizar o estoque da tabela Produto
estoqueAtual = produto.GetDataByIdProduto(codigo).Item(0).Quantidade
estoqueAtual = estoqueAtual - quantidade

produto.UpdateEstoque(estoqueAtual, codigo)

Next

End Sub

Update vários itens datagridview por Lucio em 9/10/2017 20:48:47
Re: Update vários itens datagridview (Resolvido) por Lucio em 14/10/2017 17:06:57

© 2000-2001 - Forum Visual Basic - Todos os direitos Reservados - (AspBox) Moderador: José Carlos Macoratti