Fórum Problema - Delphi não reconhece valores entre 1000 e 1999 #500087
04/11/2014
0
Bom dia a todos.
Estou com uma dúvida que há dias não consigo resolver. Uso Delphi 2010 com bd MySQL 5.6.12.
Tenho um DBGrid que seta o estoque de produtos da Empresa, eu quero deixar as linhas em vermelho, isso SE o determinado produto estiver com um estoque ABAIXO de 200.
Usei o seguinte código no OnDrawColumnCell:
if (dm.Q_pecasqtdd.AsString<'201') then
begin
Dbgrid1.Canvas.Font.Color:= clRed; //Pinta de Vermelho
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end
else
begin
Dbgrid1.Canvas.Font.Color:= clGreen; //Pinta de Verde
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
end;
O problema acontece que, eu tenho 3 produtos cuja a quantidade é entre 1000 e 1999. E esses produtos continuam em vermelho, está acusando como se ele fosse MENOR que 201.
Alguém me ajuda!?
[img]http://arquivo.devmedia.com.br/forum/imagem/360925-20141104-083919.jpg[/img]
Estou com uma dúvida que há dias não consigo resolver. Uso Delphi 2010 com bd MySQL 5.6.12.
Tenho um DBGrid que seta o estoque de produtos da Empresa, eu quero deixar as linhas em vermelho, isso SE o determinado produto estiver com um estoque ABAIXO de 200.
Usei o seguinte código no OnDrawColumnCell:
if (dm.Q_pecasqtdd.AsString<'201') then
begin
Dbgrid1.Canvas.Font.Color:= clRed; //Pinta de Vermelho
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end
else
begin
Dbgrid1.Canvas.Font.Color:= clGreen; //Pinta de Verde
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
end;
O problema acontece que, eu tenho 3 produtos cuja a quantidade é entre 1000 e 1999. E esses produtos continuam em vermelho, está acusando como se ele fosse MENOR que 201.
Alguém me ajuda!?
[img]http://arquivo.devmedia.com.br/forum/imagem/360925-20141104-083919.jpg[/img]
Bruno Souza
Curtir tópico
+ 0
Responder
Post mais votado
04/11/2014
Deve ser porque você está convertendo pra String, usa o Asfloat ou AsInteger.
if (dm.Q_pecasqtdd.AsInteger<201) then
Wanderson Cortes
Responder
Gostei + 1
Mais Posts
04/11/2014
Bruno Souza
kkkkkkkkkkkkkkk.. Obrigado! Resolvido ^^
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)