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:
    Anexos
    [Resolvido]Como repor estoque de vendas canceladas? AttachmentEstoqueExpert.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 95 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3744
    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 irrestrito 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

      Data/hora atual: 22/1/2022, 17:02