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]Como repor estoque de vendas canceladas?

    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Como repor estoque de vendas canceladas? Empty [Resolvido]Como repor estoque de vendas canceladas?

    Mensagem  wsenna 26/4/2014, 06:38

    Olá Feras de plantão, deu branco.

    Possuo uma tabela tblEstoque onde é dado baixa nas quantidades de acordo com as vendas realizadas.
    Possuo um formulário frmPedidos que contem um sub-formurálio frmDetalhesDoPedido ambos vinculados às tabelas tblPedidos e tblDetalhesDoPedido.
    Para cada item do sub formulário criei um botão de comando que exclui o item e repõe a quantidade do item excluído na tabela estoque, tudo OK.
    O que pretendo é criar um botão no formulário frmPedidos que exclua a venda efetuada de modo que todos os itens do sub formulário tenham suas quantidades repostas à tabela tblEstoque.

    Para tanto, segue o BD de exemplo:
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Como repor estoque de vendas canceladas? Empty Re: [Resolvido]Como repor estoque de vendas canceladas?

    Mensagem  Avelino Sampaio 26/4/2014, 08:39

    Olá, Wagner!

    Utilizei o RecordsetClone para percorrer os itens.

    Private Sub Comando54_Click()
    Dim strSql$
    Dim rs As DAO.Recordset
    On Error GoTo TrataErro
    Set rs = Me!frmDetalhesPedido.Form.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
       strSql = "UPDATE tblEstoque SET quantidade = quantidade + " & rs!Quant & " WHERE produto = " & rs!Produto
       CurrentDb.Execute strSql
       rs.MoveNext
    Loop
    rs.Close
    MsgBox "Os produtos retornaram ao estoque...", vbInformation, "Aviso"
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    Sair:
       Set rs = Nothing
       Exit Sub
    TrataErro:
       MsgBox Err.Description
       Resume Sair

    End Sub


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Como repor estoque de vendas canceladas? Empty Re: [Resolvido]Como repor estoque de vendas canceladas?

    Mensagem  wsenna 26/4/2014, 12:19

    Grande Avelino, bom dia.

    Massa Amigão.
    Perfeito, Tenha um ótimo final de semana.

    Abraços, WSenna

    Conteúdo patrocinado


    [Resolvido]Como repor estoque de vendas canceladas? Empty Re: [Resolvido]Como repor estoque de vendas canceladas?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:22