void FormFiltreAraClick;

var

  q: TclSQLQuery;

  JsonStr, FStr, SearchKodu, Val1, Val2, Indikator: String;

{

  ConnectToDatabase;

  if (EdtFiltreStokKodu <> nil) { SearchKodu = EdtFiltreStokKodu.Text; } else { SearchKodu = ''; }

  if (SearchKodu == 'Stok Kodu Ara...') { SearchKodu = ''; }

  if (SearchKodu == 'Stok Seçmek için tıklayın...') { SearchKodu = ''; }

  

  FStr = '1=1 AND ISNULL(PASIF_KART,0)=0';

  if (SearchKodu <> '') { FStr = FStr + ' AND STOK_KODU LIKE ''%' + SearchKodu + '%'''; }

  JsonStr = '[';

  q = TclSQLQuery.Create(nil);

  try

    q.Connection = Clomosy.DBSQLServerConnection;

    q.SQL.Text = 'SELECT TOP 100 STOK_KODU, STOK_ADI FROM [PRG_VIEW_STREHBER] WITH (NOLOCK) WHERE ' + FStr + ' ORDER BY STOK_KODU COLLATE SQL_Latin1_General_CP1_CI_AS ASC';

    q.Open;

    while (not q.Eof)

    {

      if (JsonStr <> '[') { JsonStr = JsonStr + ','; }

      Val1 = TemizleJSON(q.FieldByName('STOK_KODU').AsString);

      Val2 = TemizleJSON(q.FieldByName('STOK_ADI').AsString);

      

      if (Val1 == SecilenStokKodu) { Indikator = '[ SEÇİLDİ ]'; } else { Indikator = ''; }

      

      JsonStr = JsonStr + '{"MAIN_TEXT":"' + Val1 + '", "SUB_TEXT":"' + Val2 + '", "IND_TEXT":"' + Indikator + '"}';

      q.Next;

    }

  finally

    q.Free;

  }

  if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayıt Bulunamadı", "SUB_TEXT":"Kriterlere uygun stok yok.", "IND_TEXT":""}]'; }

  else { JsonStr = JsonStr + ']'; }

  if (LsvKisitUyanlar <> nil) { LsvKisitUyanlar.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON(JsonStr)); }

}

void OnFiltreKisitSecildi;

{

  // 1. Tıklanan karttan Stok Kodu ve Stok Adı çekilir

  SecilenStokKodu = LsvKisitUyanlar.clSelectedItemData(clCaption);

  if (SecilenStokKodu == '') { SecilenStokKodu = LsvKisitUyanlar.clSelectedItemData('MAIN_TEXT'); }

  

  SecilenStokAdi = LsvKisitUyanlar.clSelectedItemData(clText);

  if (SecilenStokAdi == '') { SecilenStokAdi = LsvKisitUyanlar.clSelectedItemData('SUB_TEXT'); }

  

  EdtBilesenMiktar.Text = '1';

  

  if (BtnBilesenEkle <> nil) {

    BtnBilesenEkle.Text = '+ Listeye Ekle';

  }

  

  if (LblSecilenGosterge <> nil) {

    LblSecilenGosterge.Text = ' Seçilen: ' + SecilenStokKodu + ' - ' + SecilenStokAdi;

  }

  

  FormFiltreAraClick;

}

test eder misin