MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Duvidas nas códigos para o estoque.

    avatar
    motavg
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 28/01/2019

    [Resolvido]Duvidas nas códigos para o estoque. Empty [Resolvido]Duvidas nas códigos para o estoque.

    Mensagem  motavg em 2/4/2019, 05:28

    Boa noite,

    Eu tenho a tabela tblMateriaPrima, com os campos CodIngrentienes, Ingrediente, Unidade, Estoque, EstoqueMinimo

    Primeiro de tudo, quanto eu estiver com o "estoque = 0" de algum ingrediente que compõe o produto, não permitir dar baixa no estoque.
    Exemplo: Produto "Hamburgue"
    Ingredientes:
    pão = 10 no estoque
    ovo = 30 no estoque
    Carne = 0 no estoque.

    Ele não permita dar baixa. se algum dos ingredientes estiverem com 0. Enviando uma msbox informando o estoque zerado desse produto!

    Segundo, como determino o estoque minimo que coloquei para cada ingrediente na tblMateriaPrima. Eu já coloquei 10 no código de quantidade minima, porém ele está para todos os ingredientes. Quero que seja individual, conforme coloquei na tblMateriaprima no campo Estoquemminimo.

    Agradeço desde já, aí se encontra o código que estou usando, com ajudo dos amigos.


    Código:
    Private Sub QntVendas_AfterUpdate()

    Dim db As Database
    Set db = CurrentDb()
    Dim saida As Integer 'Variavel para pegar o total de ingrediente que saiu
    Dim rsTP, rsBP As dao.Recordset
    'rsTP Abre a tabela de acordo com o produto
    'rsBP abre a tabela para dar baixa de estoque
    'Aqui abre a tabela para pegar os produtos utilizados
    Set rsTP = db.OpenRecordset("SELECT * FROM tblIngredientes WHERE CodProduto = " & Me.CodProduto & "")
    Do While Not rsTP.EOF 'Repetirei Ate que nao haja mais ingredientes
    saida = Me.QntVendas * rsTP!Quant 'multiplica a qut vendida por qnt de ingrediente por unidade

    'Abre a tabela para dar baixa no ingrediente
    Set rsBP = db.OpenRecordset("SELECT * FROM tblMateriaPrima WHERE Ingrediente = '" & rsTP!Ingrediente & "'")
    rsBP.Edit
    rsBP!Estoque = rsBP!Estoque - saida
    rsBP.Update
    If rsBP!Estoque <= 10 Then 'verifica a quantidade em estoque de cada ingrediente se for <=10 avisa
    MsgBox ("A quantidade de " & rsBP!Ingrediente & " ? de " & rsBP!Estoque & ""), vbInformation, "Esta ai a sua mensagem"
    End If
    rsTP.MoveNext 'Movo para proximo produto para dar a baixa no estoque...
    Loop

    'Fecha as Conexoes abertas
    Set db = Nothing
    Set rsTP = Nothing
    Set rsBP = Nothing
    End Sub
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 412
    Registrado : 01/08/2011

    [Resolvido]Duvidas nas códigos para o estoque. Empty Re: [Resolvido]Duvidas nas códigos para o estoque.

    Mensagem  ronaldojr1 em 3/4/2019, 18:56

    boa tarde,
    Favor enviar o BD para análise.

    Grato
    avatar
    motavg
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 28/01/2019

    [Resolvido]Duvidas nas códigos para o estoque. Empty Duvidas nas códigos para o estoque.

    Mensagem  motavg em 13/4/2019, 23:16

    Foi resolvido, com a ajuda dos amigos.

    Mto obrigado.

    Conteúdo patrocinado

    [Resolvido]Duvidas nas códigos para o estoque. Empty Re: [Resolvido]Duvidas nas códigos para o estoque.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/7/2019, 13:44