INICIANDO PDV- BAIXA NO ESTOQUE

Citação:

:
Outra coisa, não esqueça das transações, Commit e Rollback

Citação:

:
Crie uma função que ao adicionar o produto no datagrid ele veja a quantia que tem no estoque.
Caso este mesmo item seja informado novamente coloque uma mensagem e some as duas quantidades numa mesma linha.
Com isso dá pra fazer a condição que falou: se for < q qtd no estoque pode bloquear, e
se for > que a qtd no estoque ele segue em frente...

Citação:

como seria essas transações ? Commit e Rollback ?

Citação:

:
como seria essas transações ? Commit e Rollback ?
Então, isso é indispensável,
Dim Transacao As MySqlTransaction = oCn_MYSQL.BeginTransaction(IsolationLevel.ReadCommitted)[ô]para quem utiliza Mysql
if insert produtos=err then
Transacao.Rollback()[ô]reverte qualquer insert ou update até o momento
Transacao.Dispose()
else
Transacao.Commit()[ô]conclui qualquer insert ou update até o momento
Transacao.Dispose()
end if

Imagine que vc após uma venda, insere o registro de venda, depois os itens da venda, depois as comissões e outras coisas mais.
Suponhamos que algo aconteceu logo após gerar o registro da tabela vendas, erro/queda de energia, o que ia acontecer sem as transações ? Você teria um enorme pepino nas mãos, uma venda sem itens, sem as comissões e etc.
Já com as transações, se o código não chegar até o Commit nada é gravado.
Tenho dito que um sistema sem transações é uma bomba relógio, mas tem muita gente que desenvolve e não se atenta para isso.

Private Function Ler_qtd_Estoque_Venda(ByVal codigoProd As String) As Boolean
	Dim resultado As Integer = 0
	Dim qtdGrid As Integer = 0
	
	[ô]Verifica Qtde do produto no grid se existir
	For Each DataGridViewRow row In dgvProdutos.Rows
		If row.Cells(1).Value.ToString() = codigoProd Then [ô]Estou suponhando que o código do produto seja a primeira com valor
			qtdGrid += Convert.ToInt32(row.Cells(3).Value.ToString())
		End If
	Next
	
	[ô]Verifica estoque no banco de dados
	Using con As OleDbConnection = GetConnection()
		Try
			con.Open()
			Dim cmd As New OleDbCommand([Ô]SELECT codigo, qtdEstoque FROM produtos WHERE codigo=?[Ô], con)

			cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]@codigo[Ô], codProduto.Text)) [ô]COD.PRODUTO

			Dim dr As OleDbDataReader = cmd.ExecuteReader
			If dr.HasRows Then
				dr.Read()
				
				If Not IsDBNull(dr.Item([Ô]qtdEstoque[Ô])) Then resultado = Convert.ToInt32(dr.Item([Ô]qtdEstoque[Ô]))
			End If

		Catch ex As Exception
			MsgBox(ex.Message)
			con.Close()
		Finally
			con.Close()
		End Try
	End Using
	
	If resultado = 0 Then
		MessageBox.Show([Ô]Seu estoque está zerado, não é possível vender esse produto.[Ô])
		Return False
	ElseIf (resultado - (Convert.ToInt32(txtQuantidade.Text) + qtdGrid)) < 0 Then
		[ô]Aqui você pode permitir ou não. Vai de sua escolha.
		MessageBox.Show([Ô]Seu estoque ficará negativo se vender addicionar essa quantidade do produto.[Ô] & _
		Environment.NewLine & _
		[Ô]Estoque atual: [Ô] & resultado & _
		Environment.NewLine & _
		[Ô]Qtde na grade: [Ô] & qtdGrid & _
		Environment.NewLine & _
		[Ô]Qtde inserção: [Ô] & txtQuantidade.Text)
		
		Return False
	End If
	
	Return True
End Function

If Not Ler_qtd_Estoque_Venda(txtCodigoProduto.Text) Then
	Return False
Else 
	[ô]Faz o prodimento normal do Leave do seu TextBox
End If

Citação:

:
---Esse aqui é um método para fazer o teste que pretende

Private Function Ler_qtd_Estoque_Venda(ByVal codigoProd As String) As Boolean
	Dim resultado As Integer = 0
	Dim qtdGrid As Integer = 0
	
	[ô]Verifica Qtde do produto no grid se existir
	For Each DataGridViewRow row In dgvProdutos.Rows
		If row.Cells(1).Value.ToString() = codigoProd Then [ô]Estou suponhando que o código do produto seja a primeira com valor
			qtdGrid += Convert.ToInt32(row.Cells(3).Value.ToString())
		End If
	Next
	
	[ô]Verifica estoque no banco de dados
	Using con As OleDbConnection = GetConnection()
		Try
			con.Open()
			Dim cmd As New OleDbCommand([Ô]SELECT codigo, qtdEstoque FROM produtos WHERE codigo=?[Ô], con)

			cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]@codigo[Ô], codProduto.Text)) [ô]COD.PRODUTO

			Dim dr As OleDbDataReader = cmd.ExecuteReader
			If dr.HasRows Then
				dr.Read()
				
				If Not IsDBNull(dr.Item([Ô]qtdEstoque[Ô])) Then resultado = Convert.ToInt32(dr.Item([Ô]qtdEstoque[Ô]))
			End If

		Catch ex As Exception
			MsgBox(ex.Message)
			con.Close()
		Finally
			con.Close()
		End Try
	End Using
	
	If resultado = 0 Then
		MessageBox.Show([Ô]Seu estoque está zerado, não é possível vender esse produto.[Ô])
		Return False
	ElseIf (resultado - (Convert.ToInt32(txtQuantidade.Text) + qtdGrid)) < 0 Then
		[ô]Aqui você pode permitir ou não. Vai de sua escolha.
		MessageBox.Show([Ô]Seu estoque ficará negativo se vender addicionar essa quantidade do produto.[Ô] & _
		Environment.NewLine & _
		[Ô]Estoque atual: [Ô] & resultado & _
		Environment.NewLine & _
		[Ô]Qtde na grade: [Ô] & qtdGrid & _
		Environment.NewLine & _
		[Ô]Qtde inserção: [Ô] & txtQuantidade.Text)
		
		Return False
	End If
	
	Return True
End Function

---Esse código vai no seu Leave do TextBox

If Not Ler_qtd_Estoque_Venda(txtCodigoProduto.Text) Then
	Return False
Else 
	[ô]Faz o prodimento normal do Leave do seu TextBox
End If

Não testei o código, mas acho que deve estar funcionando! Qualquer coisa posta ai.

Pra validar o seu estoque só precisa disso que estou postando pra você! Porém a lógica que está querendo seguir é falha.
O mais correto é você já baixar o estoque no ato em que o produto entra no grid, pois você está vendendo e não fazendo um pedido de compras.

Faz o teste ai e me fala