|
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; } https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
|