MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Diminuir estoque ao vender

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Diminuir estoque ao vender Empty [Resolvido]Diminuir estoque ao vender

    Mensagem  Kaynan 22/8/2023, 18:40

    Ola amigos,tenho esse exemplo do Alexandre,como faço pra ele diminuir do estoque quando fazer uma venda.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Diminuir estoque ao vender Empty Re: [Resolvido]Diminuir estoque ao vender

    Mensagem  JPaulo 23/8/2023, 17:04

    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


    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

    [Resolvido]Diminuir estoque ao vender Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Diminuir estoque ao vender Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Diminuir estoque ao vender Folder_announce_new Instruções SQL como utilizar...
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Diminuir estoque ao vender Empty Re: [Resolvido]Diminuir estoque ao vender

    Mensagem  Kaynan 23/8/2023, 18:06

    Jpaulo.muito obrigado era o simples que precisava,valeu mesmo mestre.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Diminuir estoque ao vender Empty Re: [Resolvido]Diminuir estoque ao vender

    Mensagem  JPaulo 24/8/2023, 09:54

    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

    [Resolvido]Diminuir estoque ao vender Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Diminuir estoque ao vender Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Diminuir estoque ao vender Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Diminuir estoque ao vender Empty Re: [Resolvido]Diminuir estoque ao vender

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/4/2024, 22:48