Início![baixa de estoque - [Resolvido]Diminuir estoque ao vender Empty](https://2img.net/i/empty.gif)
Kaynan 22/8/2023, 18:40Ola amigos,tenho esse exemplo do Alexandre,como faço pra ele diminuir do estoque quando fazer uma venda.
2 participantes
[Resolvido]Diminuir estoque ao vender
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Fiz o simples no que você anexou.
Se preferir mais eficaz, veja o meu exemplo "Gestão Stock de Economato"
https://www.maximoaccess.com/t167-gestao-stock-de-economato
Se preferir mais eficaz, veja o meu exemplo "Gestão Stock de Economato"
https://www.maximoaccess.com/t167-gestao-stock-de-economato
- Código:
Private Sub cmdAdic_Click()
Dim x As Variant
If ValidaCampos = False Then Exit Sub
txtTotalItem = Format(((txtQtde * txtValor) - txtDesc), "###,###,###,##0.#0")
'Adiciona os valores dos campos no listbox
With lstItens
.AddItem "" & txtCodProduto & ";" & _
"" & txtNomeProd & ";" & _
"" & txtUnidMed & ";" & _
"" & Format(txtValor, "#,###,##0.#0") & ";" & _
"" & txtQtde & ";" & _
"" & Format(txtDesc, "###,###,###,##0.#0") & ";" & _
"" & Format(txtTotalItem, "#,###,##0.#0") & ""
End With
'limpa os campos após adicionar no list
txtCupom = Empty
GeraCabecalhoCupom
txtCupom = txtCupom & vdadosheader
GeraDadosProd
txtCupom = txtCupom & vdadosprod
GeraTotaisCupom
txtCupom = txtCupom & vdadostot
If Me.txtQtde.Value > Me.txtQtdeProd.Value Then
MsgBox "Quantidade de estock insuficiente", vbCritical, "erro"
Me.txtQtde.Value = 0
Exit Sub
End If
x = Me.txtQtdeProd.Value - Me.txtQtde.Value
CurrentDb.Execute "UPDATE TabProdutos SET QtdeProd=" & x & " WHERE CodProd='" & Me.txtCodProduto.Value & "'"
Me.txtQtdeProd.Value = 0
LimpaProd
End Sub
- Código:
Private Sub cmdRemov_Click()
Dim i As Integer
If lstItens.ListCount = 1 Then
MsgBox "Não há itens para remover.", vbExclamation, "Aviso"
Exit Sub
End If
CurrentDb.Execute "UPDATE TabProdutos SET QtdeProd=QtdeProd + " & Me.lstItens.Column(4) & " WHERE CodProd='" & Me.lstItens.Column(0) & "'"
With lstItens
For i = 1 To .ListCount - 1
If .Selected(i) Then
vTotal = (vTotal - .Column(5))
.RemoveItem (i)
txtTotal = vTotal
End If
Next i
End With
vTotal = CDbl(vTotal + txtTotalItem)
txtTotal = vTotal
'limpa os campos após adicionar no list
txtCupom = Empty
GeraCabecalhoCupom
txtCupom = txtCupom & vdadosheader
GeraDadosProd
txtCupom = txtCupom & vdadosprod
GeraTotaisCupom
txtCupom = txtCupom & vdadostot
LimpaProd
End Sub
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![baixa de estoque - [Resolvido]Diminuir estoque ao vender Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Jpaulo.muito obrigado era o simples que precisava,valeu mesmo mestre.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Obrigado pelo retorno o forum agradece.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...