[Resolvido]Sistema WMS - Gerenciamento de Estoque

Pessoal,
Estou tentando montar um sistema de Gerenciamento de Estoque. Esse Sistema além de controlar o estoque irá também controlar o endereço aonde eles serão armazenados.
Sou novo em Access, estou tendo problemas para dar entrada e saída do estoque. Já montei várias consultas e não estou obtendo êxito. Criei dois formulários com subformulários, 1 para dar entrada e outro para dar saída. Achei que tinha resolvido o problema mas me deparei com o seguinte problema.


Os cálculos não estão corretos. Se houver apenas um lançamento de entrada e saída ele coloca o valor correto. Se a dois lançamentos ele dobra.
Por exemplo:
Entrada de 100 unid de sapato = entra 100 no estoque
Saida de 50 unidades de sapato = sai 50 do estoque
Saida de 50 unidades de sapato = sai 100 unidades estoque.

A estrutura de consultas que criei para fazer o controle foi:



Consulta Estoque Entrada

SELECT [Detalhe Entrada Produtos].CodAccessProd, Produtos.[Descrição Produto], Sum(Nz([Detalhe Entrada Produtos].[Quantidade],0)) AS [Quantidade Unidade de Entrada], Sum(Nz([Detalhe Entrada Produtos].[Quantidade Caixa],0)) AS [Quantidade Caixa Entrada], Sum(Nz([Consulta Detalhe Entrada Produto].[Total Linha M³],0)) AS [Quantidade M³ de Entrada]
FROM (Produtos INNER JOIN [Detalhe Entrada Produtos] ON Produtos.CodAccessProd=[Detalhe Entrada Produtos].CodAccessProd) INNER JOIN [Consulta Detalhe Entrada Produto] ON Produtos.CodAccessProd=[Consulta Detalhe Entrada Produto].CodAccessProd
GROUP BY [Detalhe Entrada Produtos].CodAccessProd, Produtos.[Descrição Produto];


Consulta Estoque Saída

SELECT [Detalhe Saida Prod].CodAccessProd, Produtos.[Descrição Produto], Sum(Nz([Detalhe Saida Prod].Quantidade,0)) AS [Quantidade Unidade de Saída], Sum(Nz([Detalhe Saida Prod].[Quantidade Caixa],0)) AS [Quantidade Caixa Saída], Sum(Nz([Consulta Detalhe Saida Produto].[Total Linha M³],0)) AS [Quantidade M³ de Saída]
FROM (Produtos INNER JOIN [Consulta Detalhe Saida Produto] ON Produtos.CodAccessProd = [Consulta Detalhe Saida Produto].CodAccessProd) INNER JOIN [Detalhe Saida Prod] ON Produtos.CodAccessProd = [Detalhe Saida Prod].CodAccessProd
GROUP BY [Detalhe Saida Prod].CodAccessProd, Produtos.[Descrição Produto];

Consulta Estoque

SELECT Produtos.CodAccessProd AS CodAccessProd, Produtos.[Codigo Produto] AS [Codigo Produto], Produtos.[Descrição Produto] AS [Descrição Produto], Nz([Quantidade Unidade de Entrada],0) AS [Entrada Unidade], Nz([Quantidade Unidade de Saída],0) AS [Saída Unidade], [Entrada Unidade]-[Saída Unidade] AS [Estoque Unidade]
FROM (Produtos LEFT JOIN [Consulta Estoque Saida] ON Produtos.CodAccessProd=[Consulta Estoque Saida].CodAccessProd) LEFT JOIN [Consulta Estoque Entrada] ON Produtos.CodAccessProd=[Consulta Estoque Entrada].CodAccessProd;

Tudo parecia que ia bem até eu começar a fazer novos testes e perceber que os valores finais de estoque de entrada e saída estão errados. Parece que eles aparecem dobrados nas consultas Estoque Entrada e Estoque Saída.

Por favor preciso de ajuda.

Olá Luis

Melhor colocar a tabela de estoque mais consultas e formulários em questão pra gente poder analisar o comportamento das consultas.

O fórum só aceita anexos de arquivo.zip.
No winrar, é só escolher a extensão.

Abraços


Noob

Nobb,
Obrigado pela resposta. Assim que chegar em casa vou postar o projeto. Realmente não sei o que está errado.

Noob,

Segue Projeto Zippado.

Luis

As vezes faço exemplos de algo que alguém precisa e não sabe como fazê-lo,
em outros casos, prefiro apenas mostrar o caminho para que a(s) pessoa(s) aprendam.
E creio que esse é o teu caso, então vamos lá.   


Vendo teu aplicativo, vou explicar o seguinte:

Antes de tudo, vamos discutir as relações, das tabelas, é claro!   
Só precisamos de relacionamento  entre as tabelas:
PedidoEntradaProduto  ----> detalhe Saida Prod
ID_Doc -Chave Primaria          id_Doc - Numero Inteiro Longo (CodiPedidoEntrada)
                                        nessa tabela não precisa de chave primaria e nenhum índice.    
A mesma coisa com as tabelas de saída.


Um formulário de entrada de produtos é um espelho do documento/nota fiscal física.
Está corrento em criar um formulário principal onde se tem as informações do documentos e
um subformulário que descreve o corpo desse documento, que é a relação,quantidade,valor de compra,
custo, etc... de cada produto.
Então esses dois formulários, principal e sub, deverão estar vinculados exclusivamente com suas tabelas.

Não precisa  fazer uma consulta para colocar outra tabela, no caso Ruas, para apenas pegar dados de um registro, e
colocar n tabela Produtos.Veja que já tem a combobox que está fazendo isso.
Portanto, essa consultas na fonte de registro só estão complicando.

O que está faltando é um botão ATUALIZAR que ao ser clicado, chama uma consulta de Atualização para ai sim, atualizar o
estoque(tabela Produtos)
Veja que um formulário de saída de produtos é igualzinho ao da entrada, mudando apenas  o calculo, ao invés de
somar ao estoque, irá deduzir dele.

Bom, por enquanto é isso.

Qualquer dúvida, grite !!!

Noob

Nobb,

Obrigado novamente pela atenção. Trabalho em uma pequena empresa de Logística com foco em Armazenagem. Essa empresa antes era uma distribuidora, possuímos um ERP que faz todo o controle da empresa porém é voltado para a distribuição e não para armazenagem. Sentimos falta de um software WMS de gerenciamento de armazém e atualmente não temos recursos para adquirir um software no mercado.
Não tenho experiência em programação e nunca tinha usado Access antes. Tudo que fiz até agora foi a custo de muita pesquisa. Resolvi encarar esse projeto para criar uma solução que gerenciasse pelo menos as posições dos produtos estocados, por isso a Tabela Rua. Nessa tabela cadastrei os endereços das posições pallets estocadas. O meu primeiro obstáculo foi na atualização do estoque, mas tenho certeza que encontrarei muitos outros.
Para descrever um pouco o projeto, segue uma breve descrição:
Não preciso fazer o movimento fiscal de entrada e saída, somente gerenciar a movimentação do estoque. No estoque existe área de Picking (Separação de Produtos) e área de Estoque. Estaremos gerenciando somente a área de estoque.
Por exemplo.
Entrada de 10 paletts de produtos.
Cada pallet é um produto com seu respectivo código de produto, lote e data de validade.
Entrar no sistema esses produtos, direcionar para os endereços de armazenamento e somar ao estoque. (Cada pallet ocupa um endereço)
Saída
Retirar o pallet do produto da área de estoque e colocar na área de picking.
Saída do sistema desse produto, baixar o endereço onde ele estava e subtrair do estoque.
Com os cadastros das minhas Tabelas acredito que conseguiria fazer o que preciso que é:
Saber a quantidade dos produtos em Estoque
Saber a quantidade de metros cúbicos armazenado
Saber a quantidade de pallets armazenado.

Preciso de ajuda.

Obrigado

Luiz

Noob,

Criei um botão no formulário e criei uma consulta atualização para fazer um teste, mas algo não deu certo.
Dá uma olhada.
Private Sub AtualizarEstoque_Click()
DoCmd.RunSQL Update [Tbl Produtos] Set [TblProdutos].[Quantidade Estoque Unid] = [TblProdutos].[Quantidade Estoque Unid] + Quantidade
WHERE [TblProdutos].CodAccessProd = 999

Não sei se esse parâmetro do código do produto seria o mais adequado.

Obrigado.

Luiz

Luiz

Como eu disse, um formulário Principal com seu subformuário, é o espelho de um documento que acompanha os produtos que irão
entrar no estoque, por exemplo, uma nota fiscal.

Uma nota fiscal pode ter 1 ou digamos 500 produtos.
Imagine, ter que clicar o botão ATUALIZAR, 500 vezes. Estranho, né?

Pois bem, depois que o usuário lançou todos os produtos da nota fiscal no formulário, então se clica no botão atualizar,
para dar entrada em todos os produtos dessa nota fiscal, de uma só vez.

Abaixo vou deixar um exemplo de consulta atualização.

Observe que nessa consulta, a tabelaDetalhesEntradas(onde fica gravados os produtos do subformulário) tem um campo
chama Atualizado(Sim/Não).
Como os dados inseridos no subformulários foram gravados nessa tabela, a consulta irá atualizar o estoque, pegando todos os
produtos dessa tabela que o campo atualizado seja = Não, mudando esse campo para sim, evitando de ser novamente
adicionado ao estoque.
A consulta
:
UPDATE tblProdutos, tblDetalhesEntProdutos SET tblProdutos.Estoque = [tblProdutos].[Estoque]+[QtdadeEnt], tblProdutos.VlrCompra = [tblDetalhesEntProdutos].[VlrCompra], tblProdutos.dtVlrCompra = Date(), tblProdutos.Custo = [tblDetalhesEntProdutos].[Custo], tblProdutos.dtUltimaCompra = Date(), tblDetalhesEntProdutos.Atualizado = Yes, tblProdutos.IPI = tblDetalhesEntProdutos.IPI, tblProdutos.VlrVenda = [tblDetalhesEntProdutos].[VlrVenda]
WHERE (((tblDetalhesEntProdutos.Atualizado)=No) AND ((tblProdutos.IDProduto)=[tblDetalhesEntProdutos].[IDProduto]));

Noob

Bom dia Noob,

Não sei se você chegou a ler a mensagem que te enviei mais acima. Preciso somente gerenciar o estoque. O objetivo é esse. Meu ERP já faz todos os controles fiscais de entrada e saída de N.F., por isso não acrescentei campos de IPI,ICMS,CNPJ,etc,etc..
Minha dúvida é se esse controle de sim ou não é feito automático ou teria que marcar e desmarcar a caixa toda vez que fizesse uma entrada ou uma saída?
Em cima das minhas Consultas de Entrada de Estoque e Consulta Saída de Estoque não daria para ter um comando em meu formulário que alimentasse elas corretamente?
Pelo que entendi, hoje como meu formulário está, toda vez que crio um novo documento de entrada ou saída ele alimenta tudo outra vez.
Hoje esta fazendo dessa forma:
1) Criei uma entrada de 1200 unidades no Formulário de Entrada.
2) Aparece 1200 unidades na Consulta Entrada de Estoque.
3) Criei nova entrada de 1200 unidades no Formulário de Entrada
4) Apareceu 3600 unidades na Consulta Entrada de Estoque

Gostaria que fizesse dessa maneira:
1) Criei uma entrada de 1200 unidades no Formulário de Entrada.
2) Aparece 1200 unidades na Consulta Entrada de Estoque.
3) Criei nova entrada de 1200 unidades no Formulário de Entrada
4) Apareceu 2400 unidades na Consulta Entrada de Estoque

É possível?

Luiz

Essa somatória do estoque está sendo feita pelas consultas da fonte de registro de cada formulário?

Observe o seguinte, você mesmo já respondeu tua pergunta:

1) Criei uma entrada de 1200 unidades no Formulário de Entrada.
2) Aparece 1200 unidades na Consulta Entrada de Estoque.
3) Criei nova entrada de 1200 unidades no Formulário de Entrada
4) Apareceu 3600 unidades na Consulta Entrada de Estoque

Observe que somando as 3 entradas de 1200 = 3600, conclusão?

Tua consulta está somando também a primeira entrada de 1200.
Para confirmar isso, vá na tabela e coloque outro valor e depois dê entrada e outro produto, e confirme a somatória.

Conclusão, precisa daquele campo atualizado.

Eu deixei no post anterior, a parte da consulta atualização sobre o campo Atualizado, em azul, para responder a tua pergunta.


Noob

Noob,

Já refiz as estruturas da Tabela Detalhe de Entrada adicionando o campo Atualizado e de Formulário de Entrada.
Desculpe a ignorância mas meu comando está dando erro de compilação. Você pode dar uma olhada?

Option Compare Database

Private Sub AtualizarEstoque_Click()
DoCmd.RunSQL UPDATE tblProdutos, tblDetalheEntradaProdutos SET tblProdutos.QuantidadeEstoqueUnid = tblProdutos.[QuantidadeEstoqueUnid]+[Quantidade], tblDetalheEntradaProdutos.Atualizado = Yes
WHERE (((tblDetalhesEntProdutos.Atualizado)=No) AND ((tblProdutos.IDProduto)=[tblDetalhesEntProdutos].[IDProduto]));

Luiz

Tente assim:

DoCmd.RunSQL "UPDATE tblProdutos, tblDetalheEntradaProdutos SET tblProdutos.QuantidadeEstoqueUnid =" & _
            " tblProdutos.[QuantidadeEstoqueUnid]+[Quantidade], tblDetalheEntradaProdutos.Atualizado = Yes" & _
            " WHERE (((tblDetalhesEntProdutos.Atualizado)=No)" & _
            " AND ((tblProdutos.IDProduto)=[tblDetalhesEntProdutos].[IDProduto]));"

Você pode criar a consulta nomea-la e depois chamar no código:

Docmd.RunQuery "TuaConsulta"

Noob

Estou colocando o comando no botão Atualizar Estoque que criei no SubFormulário. Estou colando no construir evento.
Fiz dessa maneira e não apareceu nada na Tabela Produtos. Mas dessa vez não deu erro no comando.

Segue o projeto zipado.

Luiz

Meu amigo

Compare a instrução SQL a seguir, com a que você tem no teu aplicativo

UPDATE tblProdutos, tblDetalheEntradaProdutos SET tblProdutos.QuantidadeEstoqueUnid =
           tblProdutos.[QuantidadeEstoqueUnid]+[Quantidade], tblDetalheEntradaProdutos.Atualizado = Yes
          WHERE tblDetalhesEntProdutos.Atualizado=No & _
          AND tblProdutos.IDProduto=[tblDetalheEntProdutos].[IDProduto];


Veja que o nome da tabela detalheEntradaProdutos, tem erro na que vocês escreveu (tblDetalheEntProdutos está com s)
e o nome da tua tabela tem espaços veja la na janela de navegação.
Nessa parte final da instrução SQL:

tblProdutos.IDProduto=[tblDetalheEntProdutos].[IDProduto];

As duas tabelas não tem IDProduto, você tem que colocar o código que você definiu para as duas tabelas;
Coloque o mesmo nome nas duas tabela (relação 1 para muitos) pra saber que esses campos estão ligado no relacionamento.

Faça as modificações e experimente rodar o código.

Noob

Noob,

Não deu certo de novo.
Esse último comando não deu certo no Botão do Formulário de Entrada e também deu erro ao adaptar para montar a Consulta.

O que consegui fazer foi montar uma consulta utilizando o primeiro comando que você enviou. Após montar a Consulta Atualização de Estoque Entrada criei o botão com o comando que você passou.

Ficou assim:

Consulta Atualização
UPDATE Produtos, [Detalhe Entrada Produtos] SET Produtos.[Quantidade Estoque Unid] = [Produtos].[Quantidade Estoque Unid]+[Quantidade], [Detalhe Entrada Produtos].Atualizado = Yes
WHERE ((([Detalhe Entrada Produtos].Atualizado)=No) And ((Produtos.CodAccessProd)=[Detalhe Entrada Produtos].[CodAccessProd]));

Botão do Formulário
Private Sub AtualizarEstoque_Click()
DoCmd.RunQuery "Consulta Atualização Estoque

End Sub

Mesmo assim não consegui dar entrada no estoque. Na Tabela estoque não houve nenhuma alteração, os campos permanecem todos em branco.

Luiz

Envie o Aplicativo, você deve ter feito mudanças nele.

Aguardo...

Noob

Segue Projeto.

Luiz

Veja esta parte da consulta:

WHERE ((([Detalhe Entrada Produtos].Atualizado)=No) And ((Produtos.CodAccessProd)=[Detalhe Entrada Produtos].[CodAccessProd]));

Veja esse código em cada uma das duas tabelas e verá que eles não são os mesmos códigos.
Para acertar isso, terá que mexer nos relacionamentos, para eu não fazer besteira, deixo pra você
ver isso.
Outra coisa esses códigos tem um letra no inicio e estão como número, veja se funciona direitinho.

Noob

Nas tabelas Detalhe Entrada Produtos e Detalhe Saida Prod usei o assistente de pesquisa no CodAccessProd para chamar o Codigo do Produto em vez do CodAccessProd, pois assim ficaria mais fácil de identificar qual o produto na hora de digitar um pedido.
Precisa alterar? Se sim como faço? Teria que editar a origem da linha?

Não irei responder sobre isso, parece que não fez o que pedi que é olhar os valores desses códigos nas duas tabelas.

Se olhar isso, verá que os valores desses códigos são diferentes.

Noob

Fiz conforme solicitou e não funcionou.
Veja o anexo.

Luiz

Tinham 2 erros:

- O campo  de Estoque na tabela Produtos estava como nulo, por ser numérico,o certo é ter o valor padrão 0.

- Coloquei a consulta no botão Atualizar, dê uma olhada.

Agora ta funfando   

Noob

Valeu Noob!!!
Agora funfou!!
Agora vou criar a saída!!
Obrigado pela a ajuda e principalmente pela paciência.
Vou seguir com o restante do projeto.


Luiz

Ótimo Luiz

Vou insistir na dica: Evite espaços nos nomes dos objetos !!

Valeu pelo retorno.

Só falta colocar o resolvido no título do Tópico, faça isso apertando o botão la em baixo da página onde se digita as mensagens.

Boa sorte !!


Noob

Valeu