Olá pessoal estou mais uma vez pedindo a ajuda de vocês.
Tinha iniciado essa dúvida nesse tópico, como o foco do tópico era outro resolvi criar um tópico específico para essa dúvida.
Tópico anterior: https://www.maximoaccess.com/t26959-resolvidopdv_pliniomabesi
Estou querendo somar os produtos repetidos na hora da venda conforme tela a baixo, mais quando lança o produto a segunda vez dar essa mensagem de erro:
Estou usando esse código para tentar fazer a soma dos produtos repetidos:
Segue exemplo:
Tinha iniciado essa dúvida nesse tópico, como o foco do tópico era outro resolvi criar um tópico específico para essa dúvida.
Tópico anterior: https://www.maximoaccess.com/t26959-resolvidopdv_pliniomabesi
Estou querendo somar os produtos repetidos na hora da venda conforme tela a baixo, mais quando lança o produto a segunda vez dar essa mensagem de erro:
Estou usando esse código para tentar fazer a soma dos produtos repetidos:
- Código:
Sub AtaulizaQtde()
Dim Soma As Variant
'Verifica se o produto ja está gravado na tabela DetalheVenda se sim apenas atualiza a quantidade e desconto
If DCount("codVenda", "DetalheVenda", "CodVenda =" & Me.txtCodigoVenda & " and CodProduto ='" & Me.txtCod & "'") Then
'ATUALIZA A TABELA DetalheVenda
CurrentDb.Execute "Update DetalheVenda Set QtdProduto = QtdProduto + (""" & Me.txtQtd & """), SubTotal=Subtotal + ('" & Soma & "') Where CodVenda = " & Me.txtCodigoVenda & " and CodProduto ='" & Me.txtCod & "'"
'Atualiza o Estoque
CurrentDb.Execute "Update Produto Set QtdEstoque = QtdEstoque - (""" & Me.txtQtd & """) Where CodProduto ='" & Me.txtCod & "'"
End If
End Sub
Segue exemplo:
- Anexos
- PDV.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (199 Kb) Baixado 67 vez(es)