Quantidade igual a estoque minimo
Ola galera blz?
É o seguinte tenho um controle de estoque onde eu devo informar quando a estoque minimo for igual a quantidade.
Então eu fiz assim.
Eu coloquei esse código no onshow do formulário de produtos.
Só que o aviso aparece só se o primeiro registro tiver com o estoque minimo igual a quantidade.
Se os outros registro tiver, e o primeiro nao, então a mensagem nao aparece.
Estou usando Delphi 7 com MySQL e componente Zeos.
Se alguém puder me ajudar.
Desde já agradeço.
É o seguinte tenho um controle de estoque onde eu devo informar quando a estoque minimo for igual a quantidade.
Então eu fiz assim.
if DMGeral.ZQRProdutoQuantidade.Value=DMGeral.ZQRProdutoEstoque_minimo.Value then begin ShowMessage(´O sistema detectou um ou mais produto com estoque zerado´); end;
Eu coloquei esse código no onshow do formulário de produtos.
Só que o aviso aparece só se o primeiro registro tiver com o estoque minimo igual a quantidade.
Se os outros registro tiver, e o primeiro nao, então a mensagem nao aparece.
Estou usando Delphi 7 com MySQL e componente Zeos.
Se alguém puder me ajudar.
Desde já agradeço.
Vitoreduardo
Curtidas 0
Respostas
Eliane Dorr
13/12/2005
Antes de verificar sua condição, creio que vc terá que ter um parâmetro que irá varrer toda a tabela, ou seja, enquanto não for fim de arquivo (.Eof), testa sua condição:
O exemplo acima é com uma aplicação Delphi7, banco de dados Interbase e componente dbexpress.
Neste caso aqui, toda vez que for encontrado um item com estoque=estoque mínimo, vai ser mostrada a mensagem na tela.
while not DMGeral.ZQRProdutoQuantidade.Eof do begin if DMGeral.ZQRProdutoQuantidade.Value=DMGeral.ZQRProdutoEstoque_minimo.Value then begin ShowMessage(´O sistema detectou um ou mais produto com estoque zerado´); DMGeral.ZQRProdutoQuantidade.Next; end; end;
O exemplo acima é com uma aplicação Delphi7, banco de dados Interbase e componente dbexpress.
Neste caso aqui, toda vez que for encontrado um item com estoque=estoque mínimo, vai ser mostrada a mensagem na tela.
GOSTEI 0
Vitoreduardo
13/12/2005
Valeu Eliane Dorr
Muito obrigado fiz algumas modificações no código mais funcionou blz.
Muito obrigado fiz algumas modificações no código mais funcionou blz.
GOSTEI 0