eu mudo um parametro no SimpleDataSet .. mas ele naum atual

Delphi

05/05/2006

Amigos,
tenho a seguinte procedure responsavel pela criação da instrução sql do meu SimpleDataSet.
O problema ocorre qd mudo o componente [b:8496cf2c3d]cbOs[/b:8496cf2c3d] (TComboBox).
Era pra mudar os resultados, mas naum muda, ou seja, se eu colocar pra exibir somente em aberto (ItemIndex=2) ele exibe todos as Ordens de Serviço que estão em aberto .. depois qd mudo para todas (ItemIndex=0) ou somente as concluidas (ItemIndex=1) ele continua exibindo somente as em aberto.

procedure TfrmOrdemServico.MontaGrid;
var
  sql: String;
begin
  sdsGrid.Close;
  sql := ´select os.*, c.nome as cliente, f1.nome as monitor, f2.nome as tecnico_nm´;
  sql := sql + #13 + ´from ordem_servicos os´;
  sql := sql + 13 + ´left join clientes c on c.id_cliente=os.id_cliente´;
  sql := sql + 13 + ´left join funcionarios f1 on f1.id_func=os.id_func´;
  sql := sql + #13 + ´left join funcionarios f2 on f2.id_func=os.tecnico´;
  sql := sql + 13 + ´where os.concluida like :conc´;
  sql := sql + 13 + ´order by os.data desc, os.hora desc´;
  sdsGrid.DataSet.CommandText := sql;

  case cbOs.ItemIndex of
  0 : sdsGrid.DataSet.ParamByName(´conc´).Value := ´¬´;
  1 : sdsGrid.DataSet.ParamByName(´conc´).Value := ´S´;
  2 : sdsGrid.DataSet.ParamByName(´conc´).Value := ´N´;
  end;
  sdsGrid.Open;
  sdsGrid.Refresh;
end;



Orlando Frade

Orlando Frade

Curtidas 0
POSTAR