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

    Sugestão para problema de Controlo de Stock

    Compartilhe
    Simão Correia
    Simão Correia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 03/11/2017

    Sugestão para problema de Controlo de Stock

    Mensagem  Simão Correia em 10/7/2018, 16:57

    Boa tarde,

    Estou com dificuldade em equacionar uma resolução do meu problema que é o seguinte: A TB_Produtos regista e contabiliza as movimentações do Stock dos Produtos (entradas e saídas) . Apartir de uma saída para outros dois postos, será possível contabilizalos sem que modifique a TB_Produtos. Isto é, apartir de uma saída do Armazém 1 (que funciona como TB_Produtos) para os 2 e 3 Armazens, também contabilizar e registar o que fica em stock nesses outros dois Armazens.

    Agradeço desde já a vossa ajuda,

    Simão
    cleverson_manaus
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 890
    Registrado : 23/09/2011

    Re: Sugestão para problema de Controlo de Stock

    Mensagem  cleverson_manaus em 10/7/2018, 18:07

    Apenas acrescente um campo código do armazém na tabela movimento, no seu caso na tabela produtos.

    Assim, pode montar consultas por armazém e seus saldos.

    Mas por experiência recomendo uma tabela somente para o movimento.

    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Simão Correia
    Simão Correia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 03/11/2017

    Re: Sugestão para problema de Controlo de Stock

    Mensagem  Simão Correia em 10/7/2018, 21:53

    Obrigado por responder!

    Isso significa que tenho de ter uma tabela de Movimentos?

    cleverson_manaus
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 890
    Registrado : 23/09/2011

    Re: Sugestão para problema de Controlo de Stock

    Mensagem  cleverson_manaus em 11/7/2018, 19:01

    Não necessariamente!!

    Se já trabalha com a tabela produtos e atende satisfatoriamente.


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Simão Correia
    Simão Correia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 03/11/2017

    Re: Sugestão para problema de Controlo de Stock

    Mensagem  Simão Correia em 13/7/2018, 22:14

    Obrigado pela dica! Eu utilizo este código para atualizar o stock sob a opção Sim/Não, neste caso terei de subtrarir e somar ao mesmo tempo, para cada campo respetivo?


    If Atualizar_Stock = True Then
    If MsgBox("Confirma a quantidade de saída deste produto em Stock?", vbYesNo, "Aviso") = vbYes Then

    If IsNull(Me.Quantidade) Or Me.Quantidade = 0 Then

    MsgBox "Informe a quantidade de saída no Stock!", vbCritical, "Atenção!"
    Atualizar_Stock = False
    Me.Quantidade.SetFocus
    Exit Sub
    End If

    Dim cnn As New ADODB.Connection
    Dim rs1 As ADODB.Recordset
    Set cnn = CurrentProject.Connection
    'Abre a conexão com o registo
    Set rs1 = New ADODB.Recordset
    rs1.CursorType = adOpenKeyset
    rs1.LockType = adLockOptimistic
    'Abre a Tabela_Produtos
    rs1.Open "TB_Registo_Produtos", cnn, , , adCmdTable
    'Compara o código do produto entre as tabelas Produtos e a tabela para entradas de produtos.
    rs1.Find "IDProduto=" & Me.IDProduto, 0, adSearchForward, 1
    If Not rs1.EOF Then
    rs1("Stock") = rs1("Stock") - Me.Quantidade
    If rs1("Stock") < 0 Then
    MsgBox "Quantidade não disponível. O Stock atual é de " & rs1("Stock") + Me.Quantidade & " produtos", vbExclamation, "Atenção!"
    Atualizar_Stock = False
    Exit Sub
    Else
    If rs1("Stock") < rs1("Stock_mínimo") Then
    MsgBox "Stock atual deste produto é inferior ao stock mínimo, proceda à reposição do mesmo. Stock mínimo: " & rs1("Stock_mínimo"), vbExclamation, "Atenção" '-rs1 ("Stock") & " produtos(s)", vbExclamation, "Atenção!"
    rs1.Update
    MsgBox "Stock atual: " & rs1("Stock") & " produtos", vbExclamation, "Atenção!"
    Exit Sub
    Else
    rs1.Update
    MsgBox "Stock atual: " & rs1("Stock") & " produtos", vbExclamation, "Atenção!"
    End If
    End If

    rs1.Close
    cnn.Close
    Set cnn = Nothing
    Set rs1 = Nothing
    Else

    End If
    End If
    End If

    End Sub
    cleverson_manaus
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 890
    Registrado : 23/09/2011

    Re: Sugestão para problema de Controlo de Stock

    Mensagem  cleverson_manaus em 17/7/2018, 14:58

    Que tal posta as partes da DB envolvidas.

    Assim todos podem visualizar melhor uma solução!!!

    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

      Data/hora atual: 23/3/2019, 13:26