Como Criar um controle de saldos para mais de um almoxerifado ou pátio

Boa tarde,

Estou com um problema para continuar meu BD, em relação a saldos, vou explicar!

Tenho as tabelas ..

1 - Projeto - Onde acontece o inicio de tudo, e onde tenho que atualizar o saldo, mas o valor (Volume) que vem para abater vem da tabela, Lançamento, campo,(volume)
2 - Lançamento, onde é cadastrado o Produto/Plaqueta, cujos dados não mudarão, inclusive seu volume.
3 - Entrada
4 - Entrada detalhes
5 - Saida
6 - Saida Detalhes
7 - Patios - onse será atualizado o estoque, após a entrada e saida das plaquetas, que virão das tabelas, Saida e Entrada

Vamos as dúvidas, ou melhor, não sei como fazer...rsrsrsrsrsrs

* Como obter o saldo(Volume) do projeto, e com a informação de Volume baixo ( abaixo de 20,000 m³, aparecer um aviso, até finalizar o saldo em volume)

* Como obter o estoque(Plaquetas) dos pátios.

* Pátio1, Pátio2, Pátio3. ( no pátio 3, será dado baixa nessa plaqueta).

Posta seu projeto para que possamos analisar a melhor forma.

Veja também os tópicos abaixo:

https://www.maximoaccess.com/t30043-resolvidocontrole-de-estoque-com-alerta-de-estoque-minimo?highlight=estoque

https://www.maximoaccess.com/t30023-resolvidoatualizacao-automatica-do-estoque?highlight=estoque

https://www.maximoaccess.com/t30040-resolvidoerro-em-alterar-saida-ao-estoque?highlight=estoque

Boa Tarde, obrigado por me respoder Tauron!

Agradeço sua ajuda demais

Estou enviado o BD

Tauron....

A Atualização do Projeto de Manejo acontecerá quando eu incluir o produto no formulario Lançamento....


Ou devo fazer uma compra desse volume no Projeto de manejo ????

Ao inves de Fazer Diretamente na tabela ..


e como desenvolveria essa situação......

Agradeço!!!!

Boa tarde
osmarjunior, adeqúe o texto às regras do fórum (escrever em maiúsculas significa gritar)

Boa noite,

Nas mendagens anteriores solicitei ajuda em relação a como fazer um controle de almoxerifado ou pátio ( que é meu caso), já procurei bastante coisas na net, mas não achei nada que pudesse servir de exemplo ou mesmo de uma orientação, postei meu pequeno projeto, mas acho que aconteceu alguma coisa, pois não tive a resposta que eu esperava, então continuei a desenvolver por mim mesmo, agora vou postar de novo, gostaria que pelo menos alguém pudesse me orientar, pois não consigo seguir em frente. Agradeço.

Meu produto é uma Plaqueta, tudo gira em torno dela!

Se cada plaqueta se refere a uma única e tão somente a uma única arvore....basta apenas subtrair do teu estoque a quantidade em m3 referente aquela plaqueta.

Seria algo parecido...parecido com a rotina abaixo...

DoCmd.SetWarnings False
DoCmd.RunSQL "update SUATABELAESTOQUE set QtdEst = QtdEst - Forms![Frmprincipal]![FrmSubformulario].Form![Qtd]" _
& " where SUATABELAESTOQUE.NUMEROPLAQUETA=Forms![Frmprincipal]![FrmSubformulario].form![NUMEROPLAQUETA]"
Forms!Frmprincipal.Recalc

Boa Tarde Silvio,

Obrigado por me responder, vou tentar esse exemplo e retornarei!

Apenas para deixar mais explicado...

São 3 pátios

1 Pátio1 - Onde será dado entrada as plaquetas ou produtos e vai vender ou transferir para o pátio 2 - atualizando o saldo
2 Pátio2 - Recebera essas plaquetas e as venderá ou tranferir para o pátio 3 - atualizando o saldo
3 Pátio3 - Receberá as plaquetas e serão dados baixa - atualizando o saldo


Agradeço!

Mesma rotina.....ora somando ora subtraindo do saldo....não muda nada !!

Boa Tarde,

Desculpe a minha ignorância, onde esse código será colocado?


também surgiu outra dúvida.....

Tenho uma tabela -  (Projeto) onde está o estoque que será atualizado quando fizer o cadastro do produto na Tabela - ( Lançamento ), nesse caso a atualização não será pela venda e sim pelo cadastro do produto na caixa ( Vol tora - Oco ), conforme Banco de dados enviando anteriormente!

O Código seria esse aqui, mas não conseguir, ainda não estou pronto para certas tarefas mais complexas, só com ajuda para quebrar as barreiras
E não abusando da sua paciência, agradeço demais.

Private Sub Vol_tora___Oco_BeforeUpdate(Cancel As Integer)
Dim dblQuantidade As Double
Dim strSql$
'Captura a quantidade em estoque do produto que está sendo lançado
dblQuantidade = DLookup("VolumeAtual", "Projeto", "CodigoProduto = " & Me!CodLançamento)
'Verifica se tem quantidade suficiente no estoque
If (dblQuantidade - Me!Vol_tora___Oco) < 0 Then
  MsgBox "Não tem quantidade de produto suficiente no estoque...", vbInformation, "Aviso"
  Cancel = True
Else
  'Atualiza estoque
  strSql = "UPDATE Projeto"
  strSql = strSql & " SET VolumeAtual = VolumeAtual - " & Me!Vol_tora___Oco
  strSql = strSql & " WHERE CodigoProduto = " & Me!CodLançamento & ";"
  CurrentDb.Execute strSql
End If
End Sub

Boa tarde
Respeite as regras do fórum
- Adeqúe o texto às regras do fórum (escrever em maiúsculas significa gritar)
- Respeite a equipa de moderação

Aguardamos,

Boa noite,

Desculpe ai pessoal, não foi a minha intenção, vou me policiar para não escrever em maisculas!

Bom dia
Faça o favor de editar a mensagem e alterar o texto para minúsculas

Bom dia, Alexandre

Foi corrigido conforme sua solicitação, retirado as Palavras Maiusculas.

e editei alguns comentários, para deixar mais fácil o entendimento, e alguém poder me ajudar a prosseguir com a finalização do projeto...como descrevo abaixo

Obs: Estou tentando compactar o bd para enviar

Tenho as tabelas ..

1 - Projeto - Onde acontece o inicio de tudo, e onde tenho que atualizar o saldo, mas o valor (Volume) que vem para abater vem da tabela, Lançamento, campo,(volume)
2 - Lançamento, onde é cadastrado o Produto/Plaqueta, cujos dados não mudarão, inclusive seu volume.
3 - Entrada
4 - Entrada detalhes
5 - Saida
6 - Saida Detalhes
7 - Patios - onse será atualizado o estoque, após a entrada e saida das plaquetas, que virão das tabelas, Saida e Entrada

Vamos as dúvidas, ou melhor, não sei como fazer...rsrsrsrsrsrs

* Como obter o saldo(Volume) do projeto, e com a informação de Volume baixo ( abaixo de 20,000 m³, aparecer um aviso, até finalizar o saldo em volume)

* Como obter o estoque(Plaquetas) dos pátios.

* Pátio1, Pátio2, Pátio3. ( no pátio 3, será dado baixa nessa plaqueta).

Boa Tarde,

tenho 2 tabelas

Projeto

CodigoProjeto
Autorização
Categoria
Especie
Un
VolumeInicial
VolumeAtual

Lançamentos

CodLançamento
Volume

Objetivo: Ao incluir na caixa (Volume) no Frm_Lançamentos, abater no Projeto no campo VolumeAtual

Seria esse o código, mas não funcionou

Private Sub Volume_Exit(Cancel As Integer)
DoCmd.RunSQL ("UPDATE Projeto set Volume=(VolumeAtual-(Formulários![Lançamento]![Volume])) Where Projeto.CodigoProduto=(formulários![Lançamento]![CodLançamento];")
End Sub

Alguém para me socorrer ?