Atualizar Banco (ClientDataset)

Question

Ola pessoal,meu problema e o seguinte:Tenho um grid que controla os pedidos de uma pizzaria e neste grid tenho um campo com Hora_prev_entrega, gostaria que quando este pedido ultrapassar 30 min ele se...

Bruno Belchior · Answer

acho q n�o se faz nem necess�rio atualizar o grid a cada 5 min... porque seria muito dif�cil passar esse tempo com o sistema aberto sem repintar a grid... (mas de qualquer forma � poss�vel fazer isso usando um TTimer)... mas o seguinte c�digo no evento OnDrawColumnCell pode pintar

if Column.Field = DtStHoraPedito then
begin
  if MinuteOf(Now - DtStHoraPedito.AsDateTime) >= 30 then
  begin
    DBGrid1.Canvas.Font.Color := clBlue; 
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Chmelo · Answer

Caro Bruno,obrigado pela atencao, o grid ate que eu consigo pintar , mas o maior problema e que gostaria de atualizar estes pedidos que estao a mais de 30 minutos na cozinha, e por isso que eu preciso atualizar o grid , para poder ver qual o pedido que esta demorando para ser entregue na mesa do cliente.valeu......

Bruno Belchior · Answer

correto... mas voc� poderia colocar aquele c�digo, no caso possuindo um campo (DateTime) da data e hora de pedido, comparando assim a cada minuto... ou a cada repintagem do grid......

Chmelo · Answer

Correto...Mas nao sei como posso implementar esta rotina para ele poder checar a cada n minutos se o pedido esta ou nao atrasado...ate +...

Bruno Belchior · Answer

[quote:a4d46054ea=�Bruno Belchior�]if MinuteOf(Now - DtStHoraPedito.AsDateTime) >= 30 then[/quote:a4d46054ea]Essa linha do c�digo faz isso, compara a data atual (now) com a gravada no DataSet... (DtStHoraPedito)... e verifica se tem at� 30 minutos ou mais...

Chmelo · Answer

esta linha voce esta colocando dentro do DBGrid1DrawColumnCell certo ?Mas como faco para ele atualizar o DBGrid1DrawColumnCell !!!Tenho que usar o Timer para fazer isto ?...

Bruno Belchior · Answer

Pode ser... dentro do evento OnTimer voc� chama a seguinte linha...

DBGrid1.Refresh

Mas como eu disse anteriormente, acho q nem ser� necess�rio, pois s� de mover o formul�rio ou minimizar a aplica��o o Grid ser� repintado...

Chmelo · Answer

Valeu Bruno,Agora preciso verificar o porque nao esta sendo repintado o grid apos dar o refresh no grid...OBs.: quando e dado o refresh no grid ele automaticamente executa o comando do DBGrid1DrawColumnCell automaticamente ??obrigado pela ajuda..ate +...

Bruno Belchior · Answer

[code:1:7927d627fb]if Column.Field = DtStHoraPedito then begin   if MinuteOf(Now - DtStHoraPedito.AsDateTime) >= 30 then   begin     DBGrid1.Canvas.Font.Color := clBlue;   end;   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;[/code:1:7927d627fb]Mude o c�digo para esse, e ao inv�s de chamar um Refresh... chame um Repaint ou Invalidate......

Chmelo · Answer

Bruno,Esta funcionando , so que quando o timer e executado ele nao esta conseguindo mudar a cor do grid, mesmo com este novos comandos que voce me paasou...valeu.....

Bruno Belchior · Answer

A cor do grid realmente n�o mudar�, apenas a cor da fonte... mas depurando a aplica��o passou na linha de atribui��o de cor?...

Chmelo · Answer

Ola Bruno,O que esta acontecendo e o seguinte:- Apos dar o tempo no timer  a linha que deveria ser pintada nao esta sendo , pois o comando Repaint ou invalidate nao esta funcionando dentro do timer.Ex.: tenho um horario 19:30:00, o horario do micro marca 20:01:00, gostaria que a cor da celula do grid que esta com o pedido ja atrasado mudasse de cor mas o apos o timer checar nao esta mudando a cor.valeu .....

Chmelo · Answer

Bruno,Valeu pelas dicas, esta funcionando legal, o grid nao estava mudando pqeu nao estava atualizando uma variavel de hora dentro do timer...obrigado..ate +...

F�rum Atualizar Banco (ClientDataset) #299955