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]Devolver itens para o estoque após excluir

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010

    [Resolvido]Devolver itens para o estoque após excluir Empty [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  gilberlanio 2/9/2017, 14:25

    Olá pessoal
    Estou com a seguinte questão:
    Tenho um formulário e uma caixa de listagem com alguns produtos lançados, queria que ao excluir essa lançamento devolvesse o estoque de todos os produtos para a tabela cadastro de produtos campo estoqueAtual.

    Segue exemplo:
    Anexos
    [Resolvido]Devolver itens para o estoque após excluir AttachmentDevolver_Estoque.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (296 Kb) Baixado 51 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Devolver itens para o estoque após excluir Empty Re: [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  FabioPaes 2/9/2017, 17:41

    Ola, de inicio tera que antes de excluir, abrir um recordset pegando todos os produtos lançados para esse movimento. Filtrando pelo Numero.... Assim tera os codigo e as quantidades de cada produto.

    Em seguida abra um segundo recordset, que ira simplemente abrir a tabela onde armazena o total do estoque filtrando pelo codigo do produto. Esse recordet iremos editar o campo estoque e acrescentar a quantidade da venda que iremos excluir.
    Tentarei postar o link de algo sobre... Mas estou celular.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Devolver itens para o estoque após excluir Empty Re: [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  FabioPaes 2/9/2017, 17:43



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010

    [Resolvido]Devolver itens para o estoque após excluir Empty Re: [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  gilberlanio 2/9/2017, 17:44

    Valeu Fábio, obrigado pelas dicas vou tentar implantar.
    Fico no aguardo do link quando poder colocar.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Devolver itens para o estoque após excluir Empty Re: [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  FabioPaes 2/9/2017, 17:47



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 814
    Registrado : 30/08/2010

    [Resolvido]Devolver itens para o estoque após excluir Empty Re: [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  gilberlanio 2/9/2017, 18:08

    Valeu Fábio, funcionou perfeitamente.
    Para os que querem usar o código no meu exemplo ficou assim:

    Código:
    Private Sub btCancelarVenda_Click()

    '---------------------------------------------------'
    '              Criado por Fabio Paes                '
    '        em 05/04/2017 Para MaximoAccess
    '---------------------------------------------------'
    Dim rs, rsE As DAO.Recordset
    Dim F As Integer

    DoCmd.RunCommand acCmdSaveRecord
    'Abre uma consulta buscando todos os produtos lançados na ordem de compras atual.
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblVendaDet WHERE vendaID = " & Me.txtidVenda & "")

        Do While Not rs.EOF 'Irá repetir em quanto estiver registros na consulta feita anteriormente
        F = Nz(DCount("*", "tblCad_Produto", "codigoBarra = '" & rs!produtoID & "'"), 0) 'Aqui eu realizo uma verificação para saber se o produto ja tem algum estoque
            If F > 0 Then 'Se ja tiver algum estoque, irei apenas atualizar o estoque
                Set rsE = CurrentDb.OpenRecordset("SELECT * FROM tblCad_Produto WHERE codigoBarra = '" & rs!produtoID & "'")
                rsE.Edit
                rsE("estoqueAtual") = rsE!estoqueAtual 'Coloco o estoque antigo no campo estoque anterior
                rsE("estoqueAtual") = rsE!estoqueAtual + rs!qtdVenda 'Somo o estoque antigo + a qnt pedida
                rsE.Update
            Else 'Se não tiver estoque, terei que inserir o produto e lançar seu estoque
                Set rsE = CurrentDb.OpenRecordset("tblCad_Produto")
                rsE.AddNew 'Adiciono o registro na tabela e insiro os valores dos campos
                rsE("codigoBarra") = rs!estoqueAtual
                rsE("EstoqueAtual") = rs!qtdVenda
                rsE.Update
            End If
        rs.MoveNext
        Loop

    'Ao final, finalizo todas as conexões abertas e limpo a memoria utilizada para armazenar as consultas
    rs.Close
    Set rs = Nothing
    rsE.Close
    Set rsE = Nothing
    MsgBox "Estoque Atualizado com Sucesso!!!", vbInformation, "Sucesso"

    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Devolver itens para o estoque após excluir Empty Re: [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  FabioPaes 2/9/2017, 18:50

    Bacana Amigo. Ate a proxima se Deus quiser.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Devolver itens para o estoque após excluir Empty Re: [Resolvido]Devolver itens para o estoque após excluir

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:30