fireDAC Filitreleme Hatası

[akuyumcu63]

Merhaba Dostlar;
Delphi xe6 fireDAC, firebird, devexpress kullanıyorum.

cxgrid te filitreleme yaparken aşağıdaki resimde görülen hatayı alıyorum.

firedacHata.png (4.13 KiB) 2221 kere görüntülendi

hata Mesajı : [FireDAC][Stan][Eval]-112.')' expected but [','] found.

cxgridin autodatasetfilter özelligini false yapınca hata vermiyor. True olunca String alanlarda vermiyor parasal alanlarda hata veriyor.
bazen filitreleme yaparken bir çok seçeneği seçtiğim halde hata olmıyorum seçmeye devam edince bir tanesinde hata veriyor. gönderdiğim resimde ikinci (alttaki) seçeneği seçince hata verdi.
Bu sorunu nasıl aşabilirim.

[Kuri_YJ]

Selamlar,
Resim çok küçük, bir şey okunmuyor. Daha yüksek çözünürlükte gönderirseniz inceleriz. Ancak, ne yapmak istediğiniz, sonuçta ne olması gerektiği ve neyin olmadığını daha açık yazarsanız iyi olur.

Kolay Gelsin

[greenegitim]

Eğer gridin filtresini sql olarak dataset v.b geçiyorsanız ,(virgül) leri .(nokta) olarak replace edin.

[akuyumcu63]

filterHata.png (4.3 KiB) 2086 kere görüntülendi

merhaba;

öncelikle ilgi ve alakınız için teşekkür ederim. biraz geç dönüş yaptığım için özür dilerim.

gridin AutoDataSetFilter özelliğini True yaptığım zaman bu hatayı alıyorum. false yapınca hata vermiyor. ozaman da grid deki görünen kayıtları yazıcıya göndermede sıkıntı yaşıyorum.

resmi yüksek formatta göndermeye çalışıyorum ama büyük formatı kabul etmiyor. Dosya ekleri bölümünden dosyayı ekliyorum. yanlışmı yapıyorum.

[akuyumcu63]

Eğer gridin filtresini sql olarak dataset v.b geçiyorsanız ,(virgül) leri .(nokta) olarak replace edin.

cxgrid sütun filitrelemesinde virgülleri nasıl nokta ile replace edebilirm.

cxgridin ongetdatatext olayına aşağıdaki kodu yazmış olduğumu da belirteyim. bu kod kullanıldığı zaman o sütundaki veri stringe dönüşüyor. sayısal veri olmaktan çıkıyor. sorunun aşağıdaki koddan kaynaklandığını biliyorum. sorun buradan çözülebilir. ben çözemedim. bu koddan vazgeçmek olmuyor.

Kod: Tümünü seç

var
  aValue: string;
  aFormat: string;
begin
  if Sender.Index = 5 then
  begin
    aValue := VarToStr(grCariDBTableView1.DataController.Values[aRecordIndex, 5]);
    if aValue <> '' then
    begin
      if grCariDBTableView1.DataController.Values[aRecordIndex, 7] = 'TL' then aFormat := ',0.00 ₺;-,0.00 ₺';
      if grCariDBTableView1.DataController.Values[aRecordIndex, 7] = 'DOLAR' then aFormat := ',0.00 $;-,0.00 $';
      if grCariDBTableView1.DataController.Values[aRecordIndex, 7] = 'EURO' then aFormat := ',0.00 €;-,0.00 €';
      aText := FormatFloat(aFormat, StrToFloat(aValue));
    end;
  end;
  

eğer resim iyi görünmüyorsa mail atabilirm.