Fórum alerta no DBEdit #369386
26/03/2009
0
[img:f839ff0c64]http://sites.google.com/site/alvarolmo/sistema/imagem.JPG[/img:f839ff0c64]
Gostaria que quando o ESTOQUE MÍNIMO for menor que QUANTIDADE
o DBEdit4 alertasse ficando vermelho (apenas para o produto exibido), fiz o código abaixo, mas se um produto tiver com o ESTOQUE MÍNIMO menor que QUANTIDADE, todos os outros produtos ficaram com o DBEdit4 vermelho, verifiquei esse fato quando visualizava os outros produtos com o DBNavegator
if datamodule1.produtoProduto_Qtde.Value < datamodule1.produtoProduto_Estoque_Minimo.Value then
begin
DBEdit4.Color := clred;
end
else
DBEdit4.Color := clwindow;
Boavida
Curtir tópico
+ 0Posts
27/03/2009
Marco Salles
registros vão mudando...
Gostei + 0
27/03/2009
Walter Faria
Coloque seu codigo com certeza funciona:
if datamodule1.produtoProduto_Qtde.Value < datamodule1.produtoProduto_Estoque_Minimo.Value then
begin
DBEdit4.Color := clred;
end
else
DBEdit4.Color := clwindow;
Qualquer coisa posta ai.
Gostei + 0
28/03/2009
Boavida
A solução não funcionou, coloquei o código no AFTERSCROLL da tabela que o datasource apota, o quando navego pelo DBnavegator todos os edits estão vermelhos;
aceito outra solução... abraço
Gostei + 0
29/03/2009
Boavida
procedure TFormProd.MyTable1AfterScroll(DataSet: TDataSet);
begin
if (MyTable1Produto_Qtde.value < MyTable1Produto_Estoque_Minimo.Value) then
begin
DBEdit4.Color := clred;
end
else
DBEdit4.Color := clwindow;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)