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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar