void OpenRehber;

var 

  JsonStr, Val1, Val2, Val3, Val4, Val5, Val6: String; 

  q: TclSQLQuery;

{

  ConnectToDatabase;

  BuildRehberForm;

  EdtAramaRehber.Text = '';

  

  if (GlobalLookupType == 'FILTRE_KOD')

  {

    EdtAramaRehber.TextPrompt = 'Stok Kodu Seç...';

    JsonStr = '[';

    q = TclSQLQuery.Create(nil);

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SELECT TOP 100 STOK_KODU AS KOD, STOK_ADI AS ADI FROM [PRG_VIEW_STREHBER] WITH(NOLOCK) WHERE ISNULL(PASIF_KART,0)=0 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('KOD').AsString);

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

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

        q.Next;

      }

    finally

      q.Free;

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; }

    else { JsonStr = JsonStr + ']'; }

    

    FormFiltreAraClick; 

  }

  else if (GlobalLookupType == 'BELGE')

  {

    EdtAramaRehber.TextPrompt = GetText('ARA_BELGE');

    JsonStr = '[';

    q = TclSQLQuery.Create(nil);

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 ' +

      'SELECT * FROM (SELECT TOP 100 PERCENT BELGE_NO,TARIH,MAKINE_KODU, MAKINE_ADI, BAKIM_KODU, BAKIM_ACIKLAMA, BAS_TAR, BAS_SAAT, BIT_TAR, BIT_SAAT ' +

      'FROM [TBLURTBAKIMHR] WITH (NOLOCK) ' +

      'INNER JOIN [TBLURTMAKINESB] WITH (NOLOCK) ON MAKINE_KODU_RECID = TBLURTMAKINESB.REC_NO ' +

      'INNER JOIN [TBLURTBAKIMSB] WITH (NOLOCK) ON BAKIM_KODU_RECID = TBLURTBAKIMSB.REC_NO) AS REHBERSQL ' +

      'ORDER BY BELGE_NO COLLATE SQL_Latin1_General_CP1_CI_AS ' +

      'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

      q.Open;

      while (not q.Eof)

      {

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

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

        Val2 = TemizleJSON('Makine: ' + q.FieldByName('MAKINE_KODU').AsString + ' - ' + q.FieldByName('MAKINE_ADI').AsString);

        Val3 = TemizleJSON(q.FieldByName('TARIH').AsString);

        Val4 = TemizleJSON(q.FieldByName('MAKINE_KODU').AsString);

        Val5 = TemizleJSON(q.FieldByName('BAKIM_KODU').AsString);

        Val6 = TemizleJSON(q.FieldByName('BAKIM_ACIKLAMA').AsString);

        

        JsonStr = JsonStr + '{"MAIN_TEXT":"' + Val1 + '", ' +

        '"SUB_TEXT":"' + Val2 + '", ' +

        '"TEXT1":"' + Val3 + '", "TEXT2":"' + Val4 + '", "TEXT3":"' + Val5 + '", "TEXT4":"' + Val6 + '"}';

        q.Next;

      }

    finally

      q.Free;

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; }

    else { JsonStr = JsonStr + ']'; }

  }

  else if (GlobalLookupType == 'MAKINE')

  {

    EdtAramaRehber.TextPrompt = GetText('ARA_MAKINE');

    JsonStr = '[';

    q = TclSQLQuery.Create(nil);

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 ' +

      'SELECT * FROM (SELECT TOP 100 PERCENT MAKINE_KODU, MAKINE_ADI FROM [TBLURTMAKINESB] WITH (NOLOCK) ' +

      'WHERE REC_NO IN (SELECT MAKINE_RECID FROM [TBLURTMAKINEKULLANICI] WITH (NOLOCK) WHERE KULLANICI_NO=1) ' +

      'AND ISNULL(PASIF_KART,0) = 0 ) AS REHBERSQL ' +

      'ORDER BY MAKINE_KODU SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

      q.Open;

      while (not q.Eof)

      {

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

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

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

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

        q.Next;

      }

    finally

      q.Free;

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; }

    else { JsonStr = JsonStr + ']'; }

  }

  else if ((GlobalLookupType == 'BAKIM') || (GlobalLookupType == 'TANIM_BAKIM'))

  {

    EdtAramaRehber.TextPrompt = GetText('ARA_BAKIM');

    JsonStr = '[';

    q = TclSQLQuery.Create(nil);

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 ' +

      'SELECT * FROM (SELECT TOP 100 PERCENT BAKIM_KODU, BAKIM_ACIKLAMA ' +

      'FROM [TBLURTBAKIMSB] WITH (NOLOCK) ' +

      'WHERE BAKIMTIP IS NULL AND BAKIM_TURU IS NULL) AS REHBERSQL ' +

      'ORDER BY BAKIM_KODU ' +

      'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

      q.Open;

      while (not q.Eof)

      {

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

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

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

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

        q.Next;

      }

    finally

      q.Free;

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; }

    else { JsonStr = JsonStr + ']'; }

  }

  else if ((GlobalLookupType == 'TIP_KODU') || (GlobalLookupType == 'BAKIM_TIPI')) 

  {

    EdtAramaRehber.TextPrompt = 'Bakım Tipi Ara...';

    JsonStr = '[';

    q = TclSQLQuery.Create(nil);

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SELECT TOP 100 LTRIM(RTRIM(BAKIMTIP_KODU)) AS BAKIMTIP_KODU, LTRIM(RTRIM(BAKIMTIP)) AS BAKIMTIP, LTRIM(RTRIM(BAKIMTIP_ACIKLAMA)) AS BAKIMTIP_ACIKLAMA FROM [TBLURTBAKIMTIPSB] WITH (NOLOCK) ORDER BY BAKIMTIP_KODU';

      q.Open;

      while (not q.Eof)

      {

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

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

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

        Val3 = TemizleJSON(q.FieldByName('BAKIMTIP_ACIKLAMA').AsString);

        JsonStr = JsonStr + '{"MAIN_TEXT":"' + Val1 + '", "SUB_TEXT":"' + Val2 + '", "TEXT1":"' + Val3 + '"}';

        q.Next;

      }

    finally

      q.Free;

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayıt Bulunamadı", "SUB_TEXT":"Veritabanında uygun tip yok."}]'; }

    else { JsonStr = JsonStr + ']'; }

  }

  else if (GlobalLookupType == 'BAGLANTI')

  {

    EdtAramaRehber.TextPrompt = GetText('ARA_BAGLANTI');

    JsonStr = '[';

    q = TclSQLQuery.Create(nil);

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 ' +

      'SELECT * FROM (SELECT TOP 100 PERCENT TARIH FROM PrgFn_MakBakTakvimOlustur (''04.13.2026'',''0'', 12,''G'',1) ' +

      'WHERE CONVERT(VARCHAR,TARIH,104) NOT IN (SELECT ISNULL(BAKIM_BAGLANTI_ALAN,'''') FROM [TBLURTBAKIMHR] WITH (NOLOCK) ' +

      'WHERE BAKIM_KODU_RECID= 7 AND MAKINE_KODU_RECID=1 AND PERIYOT_TIPI=2 AND BAKIM_BAGLANTI_ALAN<>''16.04.2026'') ' +

      ') AS REHBERSQL ORDER BY TARIH ' +

      'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

      q.Open;

      while (not q.Eof)

      {

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

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

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

        q.Next;

      }

    finally

      q.Free;

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; }

    else { JsonStr = JsonStr + ']'; }

  }

  else if ((GlobalLookupType == 'CARI') || (GlobalLookupType == 'TANIM_SARF_CARI'))

  {

    EdtAramaRehber.TextPrompt = GetText('ARA_CARI');

    JsonStr = '[';

    q = TclSQLQuery.Create(nil);

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 ' +

      'SELECT * FROM (SELECT TOP 100 PERCENT CARI_KODU, CARI_ADI FROM [TBLCARISB] WITH (NOLOCK) ) AS REHBERSQL ' +

      'ORDER BY CARI_KODU COLLATE SQL_Latin1_General_CP1_CI_AS ' +

      'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

      q.Open;

      while (not q.Eof)

      {

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

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

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

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

        q.Next;

      }

    finally

      q.Free;

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; }

    else { JsonStr = JsonStr + ']'; }

  }

  else if (GlobalLookupType == 'TANIM_DIS_SERVIS') {

    EdtAramaRehber.TextPrompt = 'Dış Servis Carisi Seç...'; JsonStr = '['; q = TclSQLQuery.Create(nil); 

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SELECT TOP 100 CARI_KODU, CARI_ADI FROM [PRG_VIEW_CRREHBER] WITH (NOLOCK) WHERE ((ISNULL(ACIK_GRUPLAR,'''') ='''') OR (ACIK_GRUPLAR LIKE ''%(0)%'')) AND ISNULL(PASIF_KART,0)=0 ORDER BY CARI_KODU COLLATE SQL_Latin1_General_CP1_CI_AS ASC';

      q.Open;

      while (not q.Eof) { 

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

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

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

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

        q.Next; 

      }

    finally

      q.Free; 

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; } else { JsonStr = JsonStr + ']'; }

  }

  else if (GlobalLookupType == 'TANIM_DEPO') {

    EdtAramaRehber.TextPrompt = 'Depo Ara...'; JsonStr = '['; q = TclSQLQuery.Create(nil); 

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      q.SQL.Text = 'SELECT TOP 100 DEPO_KODU, DEPO_ADI FROM [TBLSTOKDEPOSB] WITH (NOLOCK) WHERE ISNULL(DEPO_AKTIF,1) = 1 ORDER BY DEPO_KODU';

      q.Open;

      while (not q.Eof) { 

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

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

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

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

        q.Next; 

      }

    finally

      q.Free; 

    }

    if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kayit Bulunamadi", "SUB_TEXT":"Lutfen veritabanini kontrol edin"}]'; } else { JsonStr = JsonStr + ']'; }

  }

  DataRehber = Clomosy.ClDataSetFromJSON(JsonStr);

  LsvRehber.clLoadProListViewDataFromDataset(DataRehber);

  RehberForm.Run; 

}

 koddum da bulunan belge no kısmı seçildikten sonra 3 sayfanın da tamamen otomatik olarak verilerin gelmesi gerekiyor 3 tanesi geliyor ama gerisi runtime hatası düşüyor