Fórum Alertar quando o estoque atual for igual ao estoque minimo. #288158
14/07/2005
0
É o seguinte, estou desenvolvendo um controle de estoque onde o cliente vai dar baixa e entrada no estoque, tenho as seguintes tabelas Id_produto, Cod_produto, Produto, Descrição, Unidade, Estoque_atual, Estoque_mínimo.
Acontece que o sistema tem que alerta para meu cliente, toda vez que o Estoque_Mínimo for igual ao estoque_atual, ou seja o cliente vai determinar o Estoque_Mínimo que eu não sei qual vai ser, então toda vez que o sistema for aberto esse alerta deve aparecer.
Eu fiz um form chamado estoque zerado e coloquei no evento OnShow do form principal, com duas opções ver os produtos com estoque zerado num relatório ou editá-las num grid.
Até aqui tudo bem, eu fiz assim
if DMGeral.QRprodutoestatual.value <= DMGeral.QRprodutoestminimo.value then begin frmestoquezerado.ShowModal; end;
O problema é que o form frmestoquezerado.ShowModal só aparece quando o primeiro registro esta com estoque atual menor ou igual ao estoque mínimo, se por exemplo o último registro estiver com estoque atual igual ao estoque mínimo ele não aparece.
Estou usando Delphi 7 e paradox com sql.
Se alguém puder me ajudar ficarei grato.
Chacal
Chacal
Curtir tópico
+ 0Posts
15/07/2005
Araujojunior
Usa um Sql :lol:
Agora a dúvida, eu em Sql Faria assim:
Select * from tb_produto where nr_estoque_minimo <= nr_estoque_atual :roll:
Gostei + 0
15/07/2005
Silviogs
geralmente deve-se informar quando o estoque atual é menor ou igual ao mínimo na hora do pedido de venda, também pode imprimir ou visualizar quando isto ocorrer. A resposta do nosso amigo acima é a mais adequada para relatórios ou visualizações, para um determindo produto passe um parametro do codigo do produto.
Select * from tb_produto where Id_produto=:codproduto and nr_estoque_minimo <= nr_estoque_atual
Atenciosamente
Silvio Guedes
Gostei + 0
15/07/2005
Chacal
E também tentei do jeito que o silviogs mais acontece a mesma coisa.
Quando eu vou no SQL e coloco esse código.
Select * from tb_produto where Id_produto=:codproduto and nr_estoque_minimo <= nr_estoque_atual
Eu não consigo ver os registros no DBGrid, então o aviso que informa que o estoque_atual é <= estoque_minimo é sempre ativado na inicialização do sistema.
E quando eu faço assim Select * from controleproducao, eu consigo visualizar os registros, ai o aviso só aparece se o primeiro registro estiver com estoque_atual for <= a estoque_minimo.
Esse sistema não tem controle de vendas não, é mais para visualização mesmo.
A entrada e baixa no estoque vão ser feito manualmente.
Gostei + 0
15/07/2005
Rjun
Select * from tb_produto where nr_estoque_minimo <= nr_estoque_atual
No seu código, faça o seguinte:
Query1.Open;
try
if not Query.IsEmpty then
frmestoquezerado.ShowModal;
finally
Query1.Close;
end;
Gostei + 0
19/07/2005
Leonardo Age
Gostei + 0
19/07/2005
Rjun
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)