Array
(
)

Quantidade igual a estoque minimo

Vitoreduardo
   - 13 dez 2005

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.
#Código

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.


Eliane Dorr
   - 14 dez 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:
#Código

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.


Vitoreduardo
   - 14 dez 2005

Valeu Eliane Dorr

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