Fórum O q está errado? Mudo o parametro mas naum muda o resultado! #320830

procedure TfrmOrdemServico.MontaGrid;
var
  sql: String;
begin
  cdsGrid.Close;
  sqlGrid.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´;
  case cbOs.ItemIndex of
    0 : sql := sql + 13 + ´where os.concluida like ´ + QuotedStr(´¬´);
    1 : sql := sql + 13 + ´where os.concluida like ´ + QuotedStr(´S´);
    2 : sql := sql + #13 + ´where os.concluida like ´ + QuotedStr(´N´);
  end;

  if edtDataIni.Text <> ´  /  /    ´ then
    sql :=  sql + 13 + ´and os.data>=:d1´;

  sql := sql + 13 + ´order by os.data desc, os.hora desc´;

  sqlGrid.CommandText := sql;


  if edtDataIni.Text <> ´  /  /    ´ then
    sqlGrid.ParamByName(´d1´).AsDate := StrToDate(edtDataini.Text);



  cdsGrid.Open;

end;