Quantidade igual a estoque minimo

13/12/2005

0

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.
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

Vitoreduardo

Responder

Posts

14/12/2005

Eliane Dorr

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:
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.


Responder

14/12/2005

Vitoreduardo

Valeu Eliane Dorr

Muito obrigado fiz algumas modificações no código mais funcionou blz.


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar