alerta no DBEdit
Tenho o seguinte Form de cadastro de PRODUTOS
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;
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
Curtidas 0
Respostas
Marco Salles
26/03/2009
este teste tem que ser feito em alguma coisa que muda , conforme os
registros vão mudando...
registros vão mudando...
GOSTEI 0
Walter Faria
26/03/2009
No evento ´ AfterScroll ´do ( TABLE/QUERY/IBQUERY/SQLQUERY/IBTABLE ) :
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.
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
Boavida
26/03/2009
Olá Walter bom dia
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
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
Boavida
26/03/2009
Olá pessoal, deu certo segue (sugerido por Walter faria) o código no aferscroll da tabela
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;
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