Pessoal bom dia, meu drama todo começou qd o cliente me pediu que ao listar os produtos, qd tiver com saldo menor que 1, que ficasse em vermelho, bem, eu usava dbf, vi uns exemplos que o pessoal usava o browse e que ficava até mais bem apresentado, mas como mudei para firebird, achei que o problema da lentidão iria diminuir, até pq a lentidão só se dava na rede, mas para minha surpresa, não agilizou em nada, outro detalhe é que esta lento pq ele tem um vetor, e so monta ele depois de verificar se o saldo for menor que 1, alguém teria algum exemplo pratico e funcional com banco de dados apenas mudando a cor se o estoque for menor que 1? segue o codigo....
cbColor1 :={ || IIf ( This.CellValue <=0 , {255,200,200} , ) }
aItems :=ARRAY(12)
AEVAL(aItems ,{|x,y| aItems[y]:={STRZERO(y,2),,RANDOM(),y,} })
AEVAL({4,5,8},{|x,y| aItems[x,4] :=0})
@ 060,010 GRID Grid_Cons_Produtos ;
WIDTH 567 ;
HEIGHT 350 ;
HEADERS {"Código","Descrição","Preço","Estoque","Custo"} ;
WIDTHS {55,325,90,80,80};
FONT "Arial" SIZE 09;
JUSTIFY { BROWSE_JTFY_RIGHT , BROWSE_JTFY_LEFT , BROWSE_JTFY_RIGHT , BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT };
COLUMNCONTROLS {,,{"TEXTBOX","NUMERIC"},{"TEXTBOX","NUMERIC"},} ;
DYNAMICFORECOLOR {,,,cbColor1, } ;
ITEMS aItems;
ON DBLCLICK selecionaregistro('S');
ON CHANGE Lis_conversoes()