Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - otomatik veri getirme
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

otomatik veri getirme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra22 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: Dün
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra22 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: otomatik veri getirme
    Gönderim Zamanı: 4 Saat 24 Dakika Önce Saat 15:30
uploads/480/Project_37.zip   
 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 
< ="module" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">
Yukarı Dön
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif Değil
Puanlar: 66 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 32 Dakika Önce Saat 16:22

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" 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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.