Clomosy | Forum : arıza https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 22 Jul 2026 20:00:10 +0000 Wed, 22 Jul 2026 18:15:30 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1628 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[arıza : Merhaba Kayra,İlgili prosedürü...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1628&PID=3769#3769 Yazar: Emr.Erkmn
Konu: 1628
Gönderim Zamanı: 22 Temmuz 2026 Saat 18:15

Merhaba Kayra, 

İlgili prosedürü günceller misin 


void OnListItemClick;
var
  SecilenAnaMetin, SecilenAltMetin, ArananBelge: String;
  q: TclSQLQuery;
  KayitBulundu: Boolean;
{ 
  SecilenAnaMetin = LsvBelgeRehber.clSelectedItemData(clCaption);
  SecilenAltMetin = LsvBelgeRehber.clSelectedItemData(clText);
  
  if (SecilenAnaMetin == GetText('LST_BOS'))
  {
    RehberForm.Close; 
    Exit;
  }

  if (GlobalLookupType == 'BELGE')
  {
    Arz_EdtBelgeNo.Text = SecilenAnaMetin;
    ArananBelge = Trim(SecilenAnaMetin);
    KayitBulundu = False;
    
    ConnectToDatabase;
    if (IsDBConnected)
    {
      q = TclSQLQuery.Create(nil);
      try
        q.Connection = Clomosy.DBSQLServerConnection;
        
        q.SQL.Text = 'SELECT ' +
        'ISNULL(CONVERT(VARCHAR, HR.TARIH, 104), '''') AS TARIH, ' +
        'ISNULL(CONVERT(VARCHAR, HR.BAS_TAR, 104), '''') AS BAS_TAR, ' +
        'ISNULL(CAST(HR.BAS_SAAT AS VARCHAR), '''') AS BAS_SAAT, ' +
        'ISNULL(CAST(HR.ACIKLAMA AS VARCHAR), '''') AS ACIKLAMA, ' +
        'ISNULL(CAST(HR.ACIKLAMA AS VARCHAR), '''') AS IHMAL_NEDENI, ' +
        'ISNULL(CAST(HR.BAKIM_BAGLANTI_ALAN AS VARCHAR), '''') AS BAGLANTI, ' +
        'ISNULL(CAST(M.MAKINE_KODU AS VARCHAR), '''') AS MAKINE_KODU, ' +
        'ISNULL(CAST(HR.BAKIM_YAPAN_OPERATOR AS VARCHAR), '''') AS OPERATOR, ' +
        'ISNULL(CAST(B.BAKIM_KODU AS VARCHAR), '''') AS ARIZA_KODU, ' +
        'ISNULL(CAST(B.BAKIM_ACIKLAMA AS VARCHAR), '''') AS ARIZA_ADI ' +
        'FROM [TBLURTBAKIMHR] HR WITH (NOLOCK) ' +
        'LEFT JOIN [TBLURTMAKINESB] M WITH (NOLOCK) ON HR.MAKINE_KODU_RECID = M.REC_NO ' +
        'LEFT JOIN [TBLURTBAKIMSB] B WITH (NOLOCK) ON HR.BAKIM_KODU_RECID = B.REC_NO ' +
        'WHERE LTRIM(RTRIM(HR.BELGE_NO)) = ' + Chr(39) + ArananBelge + Chr(39);
        
        q.Open;
        if (not q.Eof)
        {
          KayitBulundu = True;
          if (Arz_EdtTarih <> nil) { Arz_EdtTarih.Text = q.FieldByName('TARIH').AsString; }
          if (Arz_EdtMakineKodu <> nil) { Arz_EdtMakineKodu.Text = q.FieldByName('MAKINE_KODU').AsString; }
          if (Arz_EdtArizaKodu <> nil) { Arz_EdtArizaKodu.Text = q.FieldByName('ARIZA_KODU').AsString; }
          if (Arz_EdtBaglanti <> nil) { Arz_EdtBaglanti.Text = q.FieldByName('BAGLANTI').AsString; }
          if (Arz_EdtBaslangic <> nil) { Arz_EdtBaslangic.Text = q.FieldByName('BAS_TAR').AsString; }
          if (Arz_EdtBaslangicSaat <> nil) { Arz_EdtBaslangicSaat.Text = q.FieldByName('BAS_SAAT').AsString; }
          if (Arz_EdtGirisZamani <> nil) { Arz_EdtGirisZamani.Text = q.FieldByName('BAS_TAR').AsString + ' ' + q.FieldByName('BAS_SAAT').AsString; }
          if (Arz_EdtOperator <> nil) { Arz_EdtOperator.Text = q.FieldByName('OPERATOR').AsString; }
          if (Arz_EdtAciklama <> nil) { Arz_EdtAciklama.Text = q.FieldByName('ACIKLAMA').AsString; }
          if (Arz_MemBakimIhmal <> nil) { Arz_MemBakimIhmal.Text = q.FieldByName('IHMAL_NEDENI').AsString; }
          if (AT_EdtKod <> nil) { AT_EdtKod.Text = q.FieldByName('ARIZA_KODU').AsString; }
          if (AT_EdtAd <> nil) { AT_EdtAd.Text = q.FieldByName('ARIZA_ADI').AsString; }
        }
        
        if (not KayitBulundu)
        {
          q.Close;
          q.SQL.Text = 'SELECT ' +
          'ISNULL(CONVERT(VARCHAR, HR.TARIH, 104), '''') AS TARIH, ' +
          'ISNULL(CONVERT(VARCHAR, HR.ARIZA_BAS_TAR, 104), '''') AS BAS_TAR, ' +
          'ISNULL(CAST(HR.ARIZA_BAS_SAAT AS VARCHAR), '''') AS BAS_SAAT, ' +
          'ISNULL(CAST(HR.ARIZA_ACIKLAMA AS VARCHAR), '''') AS ACIKLAMA, ' +
          'ISNULL(CAST(HR.ARIZA_ACIKLAMA AS VARCHAR), '''') AS IHMAL_NEDENI, ' +
          'ISNULL(CAST(AZ.ARIZA_KODU AS VARCHAR), '''') AS ARIZA_KODU, ' + 
          'ISNULL(CAST(AZ.ARIZA_TIPI AS VARCHAR), '''') AS ARIZA_TIPI, ' + 
          'ISNULL(CAST(AZ.ARIZA_ADI AS VARCHAR), '''') AS ARIZA_ADI, ' + 
          'ISNULL(CAST(M.MAKINE_KODU AS VARCHAR), '''') AS MAKINE_KODU, ' +
          'ISNULL(CAST(OP.OPERATOR_KODU AS VARCHAR), '''') AS OPERATOR ' +
          'FROM [TBLURTBAKIMARIZAHR] HR WITH (NOLOCK) ' +
          'LEFT JOIN [TBLURTMAKINESB] M WITH (NOLOCK) ON HR.MAKINE_KODU_RECID = M.REC_NO ' +
          'LEFT JOIN [TBLURTOPERATORSB] OP WITH (NOLOCK) ON HR.OPERATOR_KODU_RECID = OP.REC_NO ' +
          'LEFT JOIN [TBLURTBAKIMARIZATIP] AZ WITH (NOLOCK) ON HR.ARIZATIP_KODU_RECID = AZ.REC_NO ' +
          'WHERE LTRIM(RTRIM(HR.BELGE_NO)) = ' + Chr(39) + ArananBelge + Chr(39);
          
          q.Open;
          if (not q.Eof)
          {
            KayitBulundu = True;
            if (Arz_EdtTarih <> nil) { Arz_EdtTarih.Text = q.FieldByName('TARIH').AsString; }
            if (Arz_EdtMakineKodu <> nil) { Arz_EdtMakineKodu.Text = q.FieldByName('MAKINE_KODU').AsString; }
            if (Arz_EdtArizaKodu <> nil) { Arz_EdtArizaKodu.Text = q.FieldByName('ARIZA_KODU').AsString; }
            if (Arz_EdtBaslangic <> nil) { Arz_EdtBaslangic.Text = q.FieldByName('BAS_TAR').AsString; }
            if (Arz_EdtBaslangicSaat <> nil) { Arz_EdtBaslangicSaat.Text = q.FieldByName('BAS_SAAT').AsString; }
            if (Arz_EdtGirisZamani <> nil) { Arz_EdtGirisZamani.Text = q.FieldByName('BAS_TAR').AsString + ' ' + q.FieldByName('BAS_SAAT').AsString; }
            if (Arz_EdtOperator <> nil) { Arz_EdtOperator.Text = q.FieldByName('OPERATOR').AsString; }
            if (Arz_EdtAciklama <> nil) { Arz_EdtAciklama.Text = q.FieldByName('ACIKLAMA').AsString; }
            if (Arz_MemBakimIhmal <> nil) { Arz_MemBakimIhmal.Text = q.FieldByName('IHMAL_NEDENI').AsString; }
            if (AT_EdtKod <> nil) { AT_EdtKod.Text = q.FieldByName('ARIZA_KODU').AsString; }
            if (AT_EdtAd <> nil) { AT_EdtAd.Text = q.FieldByName('ARIZA_ADI').AsString; }
            if (AT_CmbTip <> nil) { SafeSetCombo(AT_CmbTip, q.FieldByName('ARIZA_TIPI').AsString); }
          }
        }

        if (not KayitBulundu)
        {
          ShowMessage('Aranan Belge No: "' + ArananBelge + '" ne Bakım ne de Arıza veritabanında bulunamadı.');
        }
      finally
        q.Free;
      }
    }
  }
  else if (GlobalLookupType == 'ARIZA')
  {
    Arz_EdtArizaKodu.Text = SecilenAnaMetin;
    if (AT_EdtKod <> nil) { AT_EdtKod.Text = SecilenAnaMetin; }
    if ((SecilenAltMetin <> '') && (AT_EdtAd <> nil)) { AT_EdtAd.Text = SecilenAltMetin; }
  }
  else if (GlobalLookupType == 'MAKINE')
  {
    Arz_EdtMakineKodu.Text = SecilenAnaMetin;
  }
  else if (GlobalLookupType == 'BAGLANTI')
  {
    Arz_EdtBaglanti.Text = SecilenAnaMetin;
  }
  else if (GlobalLookupType == 'OPERATOR')
  {
    Arz_EdtOperator.Text = SecilenAnaMetin; 
  }

  RehberForm.Close;
}




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">]]> Wed, 22 Jul 2026 18:15:30 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1628&PID=3769#3769 <![CDATA[arıza : var FormMain: TclGameForm; RehberForm,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1628&PID=3768#3768 Yazar: kayra22
Konu: 1628
Gönderim Zamanı: 22 Temmuz 2026 Saat 17:22



var
  FormMain: TclGameForm;
  RehberForm, DetayForm: TclForm; 
  PnlNavBar, PnlHeaderTop, PnlMainCard, PnlArizaTanimlari: TclProPanel;
  PnlBottomNav: TclProPanel;
  BtnNav1, BtnNav2: TclProButton;
  BtnScroll: TclHorzScrollBox;
  ScrollForm: TclVertScrollBox;
  LblNavTitle, LblSect1, LblGridTitle, LblPhotoTitle: TClProLabel;
  BtnGeri, BtnYeni, BtnKaydet, BtnResimCek: TClProButton;
  Arz_BtnRehberBelge, Arz_BtnRehberAriza, Arz_BtnRehberMakine, Arz_BtnRehberBaglanti, Arz_BtnRehberOperator: TClProButton; 
  Arz_GrpBelgeNo, Arz_GrpTarih, Arz_GrpArizaKodu, Arz_GrpMakineKodu, Arz_GrpBaglanti: TclProPanel;
  Arz_GrpBaslangic, Arz_GrpGirisZamani, Arz_GrpPlanlananBitis, Arz_GrpKisiSayisi, Arz_GrpOperator, Arz_GrpAciklama: TclProPanel;
  Arz_LblBelgeNo, Arz_LblTarih, Arz_LblArizaKodu, Arz_LblMakineKodu, Arz_LblBaglanti: TClProLabel;
  Arz_LblBaslangic, Arz_LblGirisZamani, Arz_LblPlanlananBitis, Arz_LblKisiSayisi, Arz_LblOperator, Arz_LblAciklama: TClProLabel;
  Arz_EdtBelgeNo, Arz_EdtTarih, Arz_EdtArizaKodu, Arz_EdtMakineKodu, Arz_EdtBaglanti: TclProEdit;
  Arz_EdtBaslangic, Arz_EdtBaslangicSaat, Arz_EdtGirisZamani, Arz_EdtKisiSayisi, Arz_EdtOperator, Arz_EdtAciklama, EdtRehberArama: TclProEdit;
  Arz_CmbPlanlananBitis: TclComboBox;
  Arz_PnlBakimIhmalKutu, Arz_PnlPhotoKutu: TclProPanel;
  Arz_LblBakimIhmal: TClProLabel;
  Arz_MemBakimIhmal: TclMemo;
  LsvBelgeRehber: TClProListView; 
  clProGrid: TCLProGrid;
  Arz_ImgPhoto: TclImage;
  Arz_BelgeNo, Arz_MakineArr, Arz_BakimIhmalArr, Arz_BasTarih, Arz_BasSaat, Arz_BitTarih, Arz_ArizaDurum, Arz_KayitTarih: array [0..50] of String;
  Arz_ArzKodArr, Arz_BaglantiArr, Arz_KisiSayisiArr, Arz_OperatorArr, Arz_AciklamaArr: array [0..50] of String;
  Arz_ArizaCount, TmpIndeks, SeciliKayitIndeks: Integer;
  Arz_ArizaJson: String;
  UiFontSize: Integer;
  OkunanFontAdi: String;
  ThemeKoyuRenk, ThemeAcikRenk: String;
  ThemeBgColor, ThemeBorderColor, ThemeTextColor: String;
  GlobalLookupType: String; 
  RehberJsonData: TclJsonQuery;
  gAktifDilIndex: Integer;
  gBaglantiDenendi: Integer;
  IsDBConnected: Boolean;
  
  // Arıza Tanım Formu Değişkenleri
  AT_PnlMain, AT_PnlInputs, AT_PnlRight, AT_PnlRow1, AT_PnlRow2, AT_PnlRow3, AT_PnlGridHeader: TclProPanel;
  AT_LblKod, AT_LblTip, AT_LblAd: TClProLabel;
  AT_EdtKod, AT_EdtAd: TclProEdit;
  AT_CmbTip: TclComboBox;
  AT_BtnAra: TClProButton;
  AT_LblColKodu, AT_LblColTipi, AT_LblColAd: TClProLabel;
  AT_LsvListe: TClProListView;
  AT_LsvDP: TClProListViewDesignerPanel;
  AT_LblDPKodu, AT_LblDPTipi, AT_LblDPAd: TClProLabel;

void ConnectToDatabase;
{
  try
    Clomosy.DBSQLServerConnect('SQL Server','192.168.1.39','sa','1','ATIKER_YAZILIM',50000);
    IsDBConnected = True;
  except
    IsDBConnected = False;
  }
}

function TemizleJSON(Metin: String): String;
var
  i: Integer;
  c, YeniMetin: String;
{
  YeniMetin = '';
  for (i = 1 to Length(Metin)) 
  {
    c = Copy(Metin, i, 1);
    if (c == Chr(34)) { c = ''; }       
    else if (c == Chr(92)) { c = '-'; } 
    else if (c == Chr(13)) { c = ' '; } 
    else if (c == Chr(10)) { c = ''; }  
    YeniMetin = YeniMetin + c;
  }
  Result = YeniMetin;
}

void SafeSetCombo(ACmb: TClComboBox; AValue: String);
var 
  i, idx: Integer;
{
  if (AValue == '') { Exit; }
  idx = -1;
  for (i = 0 to ACmb.Items.Count - 1) {
    if (ACmb.Items == AValue) { idx = i; Break; }
  }
  if (idx == -1) {
    ACmb.AddItem(AValue, AValue);
    idx = ACmb.Items.Count - 1;
  }
  ACmb.ItemIndex = idx;
}

void OnKeyboardShow;
{
  ScrollForm.Margins.Bottom = FormMain.clVKBoundsHeight;
}

void OnKeyboardHide;
{
  ScrollForm.Margins.Bottom = 0;
}

function GetText(Key: String): String;
{
  Result = Key;
  if (gAktifDilIndex == 1) // ENGLISH
  { 
    if (Key == 'NAV_TITLE') { Result = 'Fault Movements'; }
    else if (Key == 'YENI') { Result = 'New'; } 
    else if (Key == 'KAYDET') { Result = 'Save'; } 
    else if (Key == 'SECT1') { Result = '1. GENERAL INFO'; } 
    else if (Key == 'SECT2') { Result = '2. MOVEMENT LIST'; } 
    else if (Key == 'SECT3') { Result = '3. VISUALS'; } 
    else if (Key == 'SECT4') { Result = '4. Reason for Failure (Required)'; } 
    else if (Key == 'BELGE_NO') { Result = 'Doc No:'; } 
    else if (Key == 'TARIH') { Result = 'Date:'; } 
    else if (Key == 'BAKIM_TIPI') { Result = 'Maint. Type:'; } 
    else if (Key == 'BAKIM_TURU') { Result = 'Maint. Category:'; } 
    else if (Key == 'BAKIM_KODU') { Result = 'Maint. Code:'; } 
    else if (Key == 'MAKINE_KODU') { Result = 'Machine Code:'; } 
    else if (Key == 'BAGLANTI') { Result = 'Connection:'; } 
    else if (Key == 'CARI_KODU') { Result = 'Current Code:'; } 
    else if (Key == 'BASLANGIC') { Result = 'Start Date/Time:'; } 
    else if (Key == 'GIRIS_ZAMANI') { Result = 'Entry Time:'; } 
    else if (Key == 'PLANLANAN') { Result = 'Planned End Time:'; } 
    else if (Key == 'KISI_SAYISI') { Result = 'Headcount:'; } 
    else if (Key == 'OPERATOR') { Result = 'Operator in Charge:'; } 
    else if (Key == 'ACIKLAMA') { Result = 'Description:'; } 
    else if (Key == 'KAMERA') { Result = 'Open Camera'; } 
    else if (Key == 'LST_BOS') { Result = 'No materials in the list'; } 
    else if (Key == 'ARA_BELGE') { Result = 'Search Document...'; } 
    else if (Key == 'ARA_BAKIM') { Result = 'Search Maint. Code...'; } 
    else if (Key == 'ARA_BAGLANTI') { Result = 'Search Connection...'; } 
    else if (Key == 'ARA_CARI') { Result = 'Search Current Code...'; } 
    else if (Key == 'ARA_MAKINE') { Result = 'Search Machine Code...'; }
    else if (Key == 'ARIZA_KODU') { Result = 'Fault Code:'; }
    else if (Key == 'ARA_ARIZA') { Result = 'Search Fault Code...'; }
    else if (Key == 'ARA_OPERATOR') { Result = 'Search Operator...'; }
    else if (Key == 'KAYDEDILDI') { Result = 'Saved'; } 
    else if (Key == 'TAMAMLANDI') { Result = 'Completed'; }
    else if (Key == 'GRID_SEC') { Result = 'Select'; }
    else if (Key == 'GRID_BELGE_NO') { Result = 'Doc No'; }
    else if (Key == 'GRID_TARIH') { Result = 'Date'; }
    else if (Key == 'GRID_OPERATOR') { Result = 'Operator'; }
    else if (Key == 'GRID_MAKINE') { Result = 'Machine Code'; }
    else if (Key == 'GRID_ARIZA') { Result = 'Fault Code'; }
    else if (Key == 'GRID_BAS_TARIH') { Result = 'Start Date'; }
    else if (Key == 'GRID_BIT_TARIH') { Result = 'End Type'; }
    else if (Key == 'GRID_BAS_SAAT') { Result = 'Start Time'; }
    else if (Key == 'GRID_ACIKLAMA') { Result = 'Description'; }
    else if (Key == 'GRID_IHMAL') { Result = 'Neglect/Desc'; }
    else if (Key == 'DETAY_TITLE') { Result = ' Details'; }
    else if (Key == 'DETAY_BASLANGIC') { Result = 'Start:'; }
    else if (Key == 'BITIS_TURU') { Result = 'End Type:'; }
    else if (Key == 'YAPILAMAMA_NEDENI') { Result = 'Reason for Failure:'; }
    else if (Key == 'KAPAT') { Result = 'Close'; }
    else if (Key == 'ARA_GENEL') { Result = 'Search...'; }
  } 
  else // TURKISH
  { 
    if (Key == 'NAV_TITLE') { Result = 'Arıza Hareketleri'; }
    else if (Key == 'YENI') { Result = 'Yeni'; } 
    else if (Key == 'KAYDET') { Result = 'Kaydet'; } 
    else if (Key == 'SECT1') { Result = '1. GENEL BİLGİLER'; } 
    else if (Key == 'SECT2') { Result = '2. HAREKET LİSTESİ'; } 
    else if (Key == 'SECT3') { Result = '3. GÖRSEL'; } 
    else if (Key == 'SECT4') { Result = '4. Neden Bakım Yapılamadı? (Zorunlu)'; } 
    else if (Key == 'BELGE_NO') { Result = 'Belge No:'; } 
    else if (Key == 'TARIH') { Result = 'Tarih:'; } 
    else if (Key == 'BAKIM_TIPI') { Result = 'Bakım Tipi:'; } 
    else if (Key == 'BAKIM_TURU') { Result = 'Bakım Türü:'; } 
    else if (Key == 'BAKIM_KODU') { Result = 'Bakım Kodu:'; } 
    else if (Key == 'MAKINE_KODU') { Result = 'Makine Kodu:'; } 
    else if (Key == 'BAGLANTI') { Result = 'Bakım Bağlantısı:'; } 
    else if (Key == 'CARI_KODU') { Result = 'Bakım Cari Kodu:'; } 
    else if (Key == 'BASLANGIC') { Result = 'Başlangıç Trh/Saat:'; } 
    else if (Key == 'GIRIS_ZAMANI') { Result = 'Giriş Zamanı:'; } 
    else if (Key == 'PLANLANAN') { Result = 'Planlanan Bitiş Süresi:'; } 
    else if (Key == 'KISI_SAYISI') { Result = 'Kişi Sayısı:'; } 
    else if (Key == 'OPERATOR') { Result = 'Sorumlu Operatör:'; } 
    else if (Key == 'ACIKLAMA') { Result = 'Genel Açıklama:'; } 
    else if (Key == 'KAMERA') { Result = 'Kamera / Galeri Aç'; } 
    else if (Key == 'LST_BOS') { Result = 'Listede malzeme yok'; } 
    else if (Key == 'ARA_BELGE') { Result = 'Belge Ara...'; } 
    else if (Key == 'ARA_BAKIM') { Result = 'Bakım Kodu Ara...'; } 
    else if (Key == 'ARA_BAGLANTI') { Result = 'Bağlantı Ara...'; } 
    else if (Key == 'ARA_CARI') { Result = 'Cari Kodu Ara...'; } 
    else if (Key == 'ARA_MAKINE') { Result = 'Makine Kodu Ara...'; }
    else if (Key == 'ARIZA_KODU') { Result = 'Ariza Kodu:'; }
    else if (Key == 'ARA_ARIZA') { Result = 'Ariza Kodu Ara...'; }
    else if (Key == 'ARA_OPERATOR') { Result = 'Operator Ara...'; }
    else if (Key == 'KAYDEDILDI') { Result = 'Kaydedildi'; } 
    else if (Key == 'TAMAMLANDI') { Result = 'Tamamlandi'; }
    else if (Key == 'GRID_SEC') { Result = 'Seç'; }
    else if (Key == 'GRID_BELGE_NO') { Result = 'Belge No'; }
    else if (Key == 'GRID_TARIH') { Result = 'Tarih'; }
    else if (Key == 'GRID_OPERATOR') { Result = 'Operator'; }
    else if (Key == 'GRID_MAKINE') { Result = 'Makine Kodu'; }
    else if (Key == 'GRID_ARIZA') { Result = 'Arıza Kodu'; }
    else if (Key == 'GRID_BAS_TARIH') { Result = 'Baş. Tarih'; }
    else if (Key == 'GRID_BIT_TARIH') { Result = 'Bitiş Türü'; }
    else if (Key == 'GRID_BAS_SAAT') { Result = 'Baş. Saat'; }
    else if (Key == 'GRID_ACIKLAMA') { Result = 'Açıklama'; }
    else if (Key == 'GRID_IHMAL') { Result = 'İhmal/Açıklama'; }
    else if (Key == 'DETAY_TITLE') { Result = ' Detayı'; }
    else if (Key == 'DETAY_BASLANGIC') { Result = 'Başlangıç:'; }
    else if (Key == 'BITIS_TURU') { Result = 'Bitiş Türü:'; }
    else if (Key == 'YAPILAMAMA_NEDENI') { Result = 'Yapılamama Nedeni:'; }
    else if (Key == 'KAPAT') { Result = 'Kapat'; }
    else if (Key == 'ARA_GENEL') { Result = 'Ara...'; }
  }
}

void AyarlariYukle;
var
  OkunanDosyaYolu, TemaKodu, tmpStr : String;
  YuklenenAyarlar: TclStringList;
  OkunanBoyutIndex: Integer;
{
  UiFontSize = 14; 
  OkunanFontAdi = 'Arial';
  gAktifDilIndex = 0; 

  ThemeBgColor = '#EEF0F2'; 
  ThemeBorderColor = '#D7DBE0'; 
  ThemeTextColor = '#3A3F47';
  ThemeKoyuRenk = '#2F4A63'; 
  ThemeAcikRenk = '#4A7FB5'; 

  OkunanDosyaYolu = clPathCombine('UygulamaAyarlari_V3.txt', Clomosy.AppFilesPath);
  if (clFileExists(OkunanDosyaYolu, ''))
  {
    YuklenenAyarlar = Clomosy.StringListNew;
    YuklenenAyarlar.LoadFromFile(OkunanDosyaYolu, 0);
    if (YuklenenAyarlar.Count >= 3) 
    { 
      TemaKodu = Clomosy.StringListItemString(YuklenenAyarlar, 0);
      if (TemaKodu == '') { TemaKodu = '0'; }
      tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 1);
      if (tmpStr <> '')
      {
        OkunanBoyutIndex = StrToInt(tmpStr);
        if (OkunanBoyutIndex == 0) { UiFontSize = 14; }
        else if (OkunanBoyutIndex == 1) { UiFontSize = 16; }
        else if (OkunanBoyutIndex == 2) { UiFontSize = 18; }
      }
      tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 2);
      if (tmpStr <> '') { gAktifDilIndex = StrToInt(tmpStr); }
      if (YuklenenAyarlar.Count >= 6)
      {
        tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 5);
        if (tmpStr <> '') { OkunanFontAdi = tmpStr; }
      }
    }
    YuklenenAyarlar.Free;
  }
  
  if (TemaKodu == '1') { ThemeKoyuRenk = '#111827'; ThemeAcikRenk = '#2563EB'; } 
  else if (TemaKodu == '2') { ThemeKoyuRenk = '#0F172A'; ThemeAcikRenk = '#0EA5E9'; } 
  else if (TemaKodu == '3') { ThemeKoyuRenk = '#14532D'; ThemeAcikRenk = '#22C55E'; } 
  else if (TemaKodu == '4') { ThemeKoyuRenk = '#312E81'; ThemeAcikRenk = '#8B5CF6'; } 
  else if (TemaKodu == '5') { ThemeKoyuRenk = '#78350F'; ThemeAcikRenk = '#F59E0B'; } 
  else if (TemaKodu == '6') { ThemeKoyuRenk = '#7F1D1D'; ThemeAcikRenk = '#EF4444'; } 
  
  FormMain.SetFormColor(ThemeBgColor, ThemeBgColor, clGVertical);
}

void StyleMainCard(APanel: TclProPanel); 
{ 
  APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 
  APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); 
  APanel.clProSettings.BorderWidth = 1;
  APanel.clProSettings.IsFill = True; 
  APanel.clProSettings.IsRound = True; 
  APanel.clProSettings.RoundHeight = 10; 
  APanel.clProSettings.RoundWidth = 10; 
  APanel.SetclProSettings(APanel.clProSettings); 
}

void StyleHeaderBar(APanel: TclProPanel); 
{ 
  APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);
  APanel.clProSettings.BorderWidth = 0; 
  APanel.clProSettings.IsFill = True; 
  APanel.SetclProSettings(APanel.clProSettings); 
}

void StyleWhiteButton(AButton: TClProButton);
{ 
  AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#35618f'); 
  AButton.clProSettings.FontColor = clAlphaColor.clWhite; 
  AButton.clProSettings.BorderWidth = 0; 
  AButton.clProSettings.IsFill = True; 
  AButton.clProSettings.IsRound = True; 
  AButton.clProSettings.RoundHeight = 8;
  AButton.clProSettings.RoundWidth = 8; 
  AButton.clProSettings.FontSize = UiFontSize; 
  AButton.clProSettings.FontName = OkunanFontAdi; 
  AButton.clProSettings.TextSettings.Font.Style = [fsBold]; 
  AButton.SetclProSettings(AButton.clProSettings); 
}

void StylePrimaryButton(AButton: TClProButton); 
{ 
  AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeAcikRenk); 
  AButton.clProSettings.FontColor = clAlphaColor.clWhite; 
  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeAcikRenk);
  AButton.clProSettings.BorderWidth = 1; 
  AButton.clProSettings.IsFill = True; 
  AButton.clProSettings.IsRound = True; 
  AButton.clProSettings.RoundHeight = 8; 
  AButton.clProSettings.RoundWidth = 8; 
  AButton.clProSettings.FontSize = UiFontSize;
  AButton.clProSettings.FontName = OkunanFontAdi; 
  AButton.clProSettings.TextSettings.Font.Style = [fsBold]; 
  AButton.SetclProSettings(AButton.clProSettings); 
}

void StyleRehberButton(AButton: TClProButton); 
{ 
  AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9'); 
  AButton.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); 
  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#94A3B8');
  AButton.clProSettings.BorderWidth = 1; 
  AButton.clProSettings.IsFill = True; 
  AButton.clProSettings.IsRound = True; 
  AButton.clProSettings.RoundHeight = 8; 
  AButton.clProSettings.RoundWidth = 8; 
  AButton.clProSettings.FontSize = UiFontSize;
  AButton.clProSettings.FontName = OkunanFontAdi; 
  AButton.clProSettings.TextSettings.Font.Style = [fsBold]; 
  AButton.SetclProSettings(AButton.clProSettings); 
}

void StyleInputPanel(APanel: TclProPanel); 
{ 
  APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 
  APanel.clProSettings.BorderColor = clAlphaColor.clNull; 
  APanel.clProSettings.BorderWidth = 0; 
  APanel.clProSettings.IsFill = True;
  APanel.SetclProSettings(APanel.clProSettings); 
}

void StyleInputLabel(ALabel: TClProLabel); 
{ 
  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); 
  ALabel.clProSettings.FontSize = UiFontSize;
  ALabel.clProSettings.FontName = OkunanFontAdi; 
  ALabel.clProSettings.TextSettings.Font.Style = [fsBold]; 
  ALabel.SetclProSettings(ALabel.clProSettings); 
}

void StyleInputEdit(AEdit: TclProEdit); 
{ 
  AEdit.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);
  AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); 
  AEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 
  AEdit.clProSettings.BorderWidth = 1; 
  AEdit.clProSettings.IsFill = True; 
  AEdit.clProSettings.IsRound = True; 
  AEdit.clProSettings.RoundHeight = 8;
  AEdit.clProSettings.RoundWidth = 8; 
  AEdit.clProSettings.FontSize = UiFontSize; 
  AEdit.clProSettings.FontName = OkunanFontAdi; 
  AEdit.SetclProSettings(AEdit.clProSettings); 
}

void StyleReadonlyEdit(AEdit: TclProEdit); 
{ 
  AEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');
  AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#94A3B8'); 
  AEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  AEdit.clProSettings.BorderWidth = 1; 
  AEdit.clProSettings.IsFill = True; 
  AEdit.clProSettings.IsRound = True; 
  AEdit.clProSettings.RoundHeight = 8;
  AEdit.clProSettings.RoundWidth = 8; 
  AEdit.clProSettings.FontSize = UiFontSize; 
  AEdit.clProSettings.FontName = OkunanFontAdi; 
  AEdit.SetclProSettings(AEdit.clProSettings); 
}

void StyleSectionTitle(ALabel: TClProLabel); 
{ 
  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#35618F'); 
  ALabel.clProSettings.FontSize = UiFontSize + 1; 
  ALabel.clProSettings.FontName = OkunanFontAdi; 
  ALabel.clProSettings.TextSettings.Font.Style = [fsBold]; 
  ALabel.SetclProSettings(ALabel.clProSettings); 
}

void StyleMalzemeBaslik(ALabel: TClProLabel);
{
  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);
  ALabel.clProSettings.FontSize = UiFontSize + 1;
  ALabel.clProSettings.FontName = OkunanFontAdi;
  ALabel.clProSettings.TextSettings.Font.Style = [fsBold];
  ALabel.SetclProSettings(ALabel.clProSettings);
}

void StyleInputFocus; 
var FocusEdit: TclProEdit; 
{ 
  FocusEdit = TclProEdit(FormMain.ClSender); 
  FocusEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeAcikRenk); 
  FocusEdit.clProSettings.BorderWidth = 2; 
  FocusEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EFF6FF'); 
  FocusEdit.SetclProSettings(FocusEdit.clProSettings); 
}

void StyleInputBlur; 
var BlurEdit: TclProEdit; 
{ 
  BlurEdit = TclProEdit(FormMain.ClSender); 
  StyleInputEdit(BlurEdit); 
}

void BindInputFocus(AEdit: TclProEdit); 
{ 
  FormMain.AddNewEvent(AEdit, tbeOnEnter, 'StyleInputFocus'); 
  FormMain.AddNewEvent(AEdit, tbeOnExit, 'StyleInputBlur'); 
}

void KlvKisiSayisi;
{
  ScrollForm.ScrollTo(0, 10000);
  ScrollForm.ScrollTo(0, -420); 
}

void KlvAciklama;
{
  ScrollForm.ScrollTo(0, 10000);
  ScrollForm.ScrollTo(0, -587); 
}

void KlvBakimIhmal;
{
  ScrollForm.ScrollTo(0, 10000);
  ScrollForm.ScrollTo(0, -50000); 
}

void ApplyUiSettings;
{
  LblNavTitle.Text = GetText('NAV_TITLE');
  BtnYeni.Text = GetText('YENI');
  BtnKaydet.Text = GetText('KAYDET');
  
  LblSect1.Text = GetText('SECT1');
  LblGridTitle.Text = GetText('SECT2');
  LblPhotoTitle.Text = GetText('SECT3');
  Arz_LblBakimIhmal.Text = GetText('SECT4');
  
  Arz_LblBelgeNo.Text = GetText('BELGE_NO');
  Arz_LblTarih.Text = GetText('TARIH');
  Arz_LblArizaKodu.Text = GetText('ARIZA_KODU'); 
  Arz_LblMakineKodu.Text = GetText('MAKINE_KODU');
  Arz_LblBaglanti.Text = GetText('BAGLANTI');
  Arz_LblBaslangic.Text = GetText('BASLANGIC');
  Arz_LblGirisZamani.Text = GetText('GIRIS_ZAMANI');
  Arz_LblPlanlananBitis.Text = GetText('PLANLANAN');
  Arz_LblKisiSayisi.Text = GetText('KISI_SAYISI');
  Arz_LblOperator.Text = GetText('OPERATOR');
  Arz_LblAciklama.Text = GetText('ACIKLAMA');
  
  BtnResimCek.Text = GetText('KAMERA');

  Arz_EdtBelgeNo.TextPrompt = '🔍 Seçmek için dokunun...';
  Arz_EdtArizaKodu.TextPrompt = '🔍 Seçmek için dokunun...';
  Arz_EdtMakineKodu.TextPrompt = '🔍 Seçmek için dokunun...';
  Arz_EdtBaglanti.TextPrompt = '🔍 Seçmek için dokunun...';
  Arz_EdtOperator.TextPrompt = '🔍 Seçmek için dokunun...';
  if (AT_EdtKod <> nil) { AT_EdtKod.TextPrompt = '🔍 Seçmek için dokunun...'; }

  Arz_CmbPlanlananBitis.Items.Clear;
  Arz_CmbPlanlananBitis.AddItem('Saat', 'Saat');
  Arz_CmbPlanlananBitis.AddItem('Gün', 'Gün');
  Arz_CmbPlanlananBitis.AddItem('Ay', 'Ay');

  LblNavTitle.clProSettings.FontSize = UiFontSize + 4;
  LblNavTitle.clProSettings.FontName = OkunanFontAdi;
  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);
}

void DiliVeArayuzuGuncelle;
{
  AyarlariYukle;
  if (Arz_EdtBelgeNo <> nil)
  {
    ApplyUiSettings;
  }
}

// ----- ALT NAVİGASYON TIKLAMA İŞLEMİ -----
void AT_GridDoldur; forward;

void NavBtnClick;
var ClickedBtn: TClProButton;
{ 
  ClickedBtn = TClProButton(FormMain.ClSender);
  PnlMainCard.Visible = False;
  PnlArizaTanimlari.Visible = False;

  BtnNav1.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8'); 
  BtnNav1.clProSettings.TextSettings.Font.Style = [];
  BtnNav2.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8'); 
  BtnNav2.clProSettings.TextSettings.Font.Style = [];

  ScrollForm.ScrollTo(0, 0); 

  if (ClickedBtn == BtnNav1) 
  { 
    PnlMainCard.Visible = True;
    BtnNav1.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeAcikRenk); 
    BtnNav1.clProSettings.TextSettings.Font.Style = [fsBold];
  }
  else if (ClickedBtn == BtnNav2) 
  { 
    PnlArizaTanimlari.Visible = True;
    BtnNav2.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeAcikRenk); 
    BtnNav2.clProSettings.TextSettings.Font.Style = [fsBold];
    AT_GridDoldur; 
  }
  BtnNav1.SetclProSettings(BtnNav1.clProSettings);
  BtnNav2.SetclProSettings(BtnNav2.clProSettings);
}

void Arz_SetCurrentDateTime;
{
  Arz_EdtTarih.Text = DateToStr(Now);
  Arz_EdtBaslangic.Text = DateToStr(Now);
  Arz_EdtBaslangicSaat.Text = TimeToStr(Now);
  Arz_EdtGirisZamani.Text = DateToStr(Now) + ' ' + TimeToStr(Now);
}

void Arz_LoadDemoData;
{
  SeciliKayitIndeks = -1; 
  Arz_ArizaCount = 1;

  Arz_BelgeNo[0] = 'BLG-001';
  Arz_KayitTarih[0] = '05.05.2026';
  Arz_MakineArr[0] = 'MK-001 - CNC Dik Islem';
  Arz_ArizaDurum[0] = GetText('TAMAMLANDI');
  Arz_BakimIhmalArr[0] = 'Parça eksikti.';
  Arz_BasTarih[0] = DateToStr(Now);
  Arz_BasSaat[0] = TimeToStr(Now); 
  Arz_BitTarih[0] = 'Saat';
  Arz_ArzKodArr[0] = 'KOD-123';
  Arz_BaglantiArr[0] = 'Yok';
  Arz_KisiSayisiArr[0] = '2';
  Arz_OperatorArr[0] = 'OPRTR-001 - Ornek Operator';
  Arz_AciklamaArr[0] = 'Genel kontrol saglandi.';
}

void Arz_ClearForm;
{
  SeciliKayitIndeks = -1;
  Arz_EdtBelgeNo.Text = '';
  Arz_EdtArizaKodu.Text = '';
  Arz_EdtMakineKodu.Text = ''; 
  Arz_EdtBaglanti.Text = '';
  Arz_CmbPlanlananBitis.ItemIndex = -1;
  Arz_EdtKisiSayisi.Text = '0';
  Arz_EdtOperator.Text = '';
  Arz_EdtAciklama.Text = '';
  Arz_MemBakimIhmal.Text = ''; 
  Arz_SetCurrentDateTime;
}

void Arz_RefreshList;
var
  RowIdx: Integer;
{
  clProGrid.ColumnCount = 11;
  clProGrid.RowCount = 52;

  clProGrid.Cells[0, 0] = GetText('GRID_SEC');
  clProGrid.Cells[1, 0] = GetText('GRID_BELGE_NO');
  clProGrid.Cells[2, 0] = GetText('GRID_TARIH');
  clProGrid.Cells[3, 0] = GetText('GRID_OPERATOR');
  clProGrid.Cells[4, 0] = GetText('GRID_MAKINE');
  clProGrid.Cells[5, 0] = GetText('GRID_ARIZA');
  clProGrid.Cells[6, 0] = GetText('GRID_BAS_TARIH');
  clProGrid.Cells[7, 0] = GetText('GRID_BIT_TARIH');
  clProGrid.Cells[8, 0] = GetText('GRID_BAS_SAAT');
  clProGrid.Cells[9, 0] = GetText('GRID_ACIKLAMA');
  clProGrid.Cells[10, 0] = GetText('GRID_IHMAL');

  RowIdx = 0;
  while (RowIdx < 50)
  {
    if (RowIdx < Arz_ArizaCount)
    {
      clProGrid.Cells[0, RowIdx + 1] = '🔘'; 
      clProGrid.Cells[1, RowIdx + 1] = Arz_BelgeNo[RowIdx];
      clProGrid.Cells[2, RowIdx + 1] = Arz_KayitTarih[RowIdx];
      clProGrid.Cells[3, RowIdx + 1] = Arz_OperatorArr[RowIdx];
      clProGrid.Cells[4, RowIdx + 1] = Arz_MakineArr[RowIdx];
      clProGrid.Cells[5, RowIdx + 1] = Arz_ArzKodArr[RowIdx];
      clProGrid.Cells[6, RowIdx + 1] = Arz_BasTarih[RowIdx];
      clProGrid.Cells[7, RowIdx + 1] = Arz_BitTarih[RowIdx];
      clProGrid.Cells[8, RowIdx + 1] = Arz_BasSaat[RowIdx];
      clProGrid.Cells[9, RowIdx + 1] = Arz_AciklamaArr[RowIdx];
      clProGrid.Cells[10, RowIdx + 1] = Arz_BakimIhmalArr[RowIdx];
    }
    else
    {
      clProGrid.Cells[0, RowIdx + 1] = '';
      clProGrid.Cells[1, RowIdx + 1] = '';
      clProGrid.Cells[2, RowIdx + 1] = '';
      clProGrid.Cells[3, RowIdx + 1] = '';
      clProGrid.Cells[4, RowIdx + 1] = '';
      clProGrid.Cells[5, RowIdx + 1] = '';
      clProGrid.Cells[6, RowIdx + 1] = '';
      clProGrid.Cells[7, RowIdx + 1] = '';
      clProGrid.Cells[8, RowIdx + 1] = '';
      clProGrid.Cells[9, RowIdx + 1] = '';
      clProGrid.Cells[10, RowIdx + 1] = '';
    }
    RowIdx = RowIdx + 1;
  }
  clProGrid.Options.ColumnSize.Stretch = True;
}

void Arz_DetayFormAc;
var
  DetayScroll: TclVertScrollBox;
  DetayPnlMain: TclProPanel;
  DetayLblTitle: TClProLabel;
  DetayBtnKapat: TClProButton;
  PnlRow1, PnlRow2, PnlRow3, PnlRow4, PnlRow5, PnlRow6, PnlRow7, PnlRow8, PnlRow9, PnlRow10, PnlRow11: TclProPanel;
  LblK1, LblK2, LblK3, LblK4, LblK5, LblK6, LblK7, LblK8, LblK9, LblK10, LblK11: TClProLabel;
  LblV1, LblV2, LblV3, LblV4, LblV5, LblV6, LblV7, LblV8, LblV9, LblV10, LblV11: TClProLabel;
{
  if (SeciliKayitIndeks == -1) { Exit; }
  DetayForm = TclForm.Create(Self);
  DetayForm.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical);
  DetayScroll = DetayForm.AddNewVertScrollBox(DetayForm, 'DetayScroll');
  DetayScroll.Align = alClient;
  DetayPnlMain = DetayForm.AddNewProPanel(DetayScroll, 'DetayPnlMain');
  DetayPnlMain.Align = alTop;
  DetayPnlMain.Height = 1000;
  DetayPnlMain.Margins.Left = 15;
  DetayPnlMain.Margins.Right = 15;
  DetayPnlMain.Margins.Top = 15;
  DetayPnlMain.Margins.Bottom = 15;
  StyleMainCard(DetayPnlMain);
  
  DetayLblTitle = DetayForm.AddNewProLabel(DetayPnlMain, 'DetayLblTitle', GetText('NAV_TITLE') + GetText('DETAY_TITLE'));
  DetayLblTitle.Align = alTop;
  DetayLblTitle.Height = 40;
  DetayLblTitle.Margins.Left = 15;
  DetayLblTitle.Margins.Top = 15;
  StyleSectionTitle(DetayLblTitle);
  
  PnlRow1 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow1');
  PnlRow1.Align = alTop; PnlRow1.Height = 55; PnlRow1.Margins.Top = 8; PnlRow1.Margins.Left = 15; PnlRow1.Margins.Right = 15;
  StyleInputPanel(PnlRow1);
  LblK1 = DetayForm.AddNewProLabel(PnlRow1, 'LblK1', GetText('BELGE_NO'));
  LblK1.Align = alLeft; LblK1.Width = 120; LblK1.Margins.Left = 10; LblK1.Margins.Top = 15;
  StyleInputLabel(LblK1);
  LblV1 = DetayForm.AddNewProLabel(PnlRow1, 'LblV1', Arz_BelgeNo[SeciliKayitIndeks]);
  LblV1.Align = alClient; LblV1.Margins.Left = 5; LblV1.Margins.Top = 15; LblV1.Margins.Right = 10;
  StyleMalzemeBaslik(LblV1);
  
  PnlRow2 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow2');
  PnlRow2.Align = alTop; PnlRow2.Height = 55; PnlRow2.Margins.Top = 8; PnlRow2.Margins.Left = 15; PnlRow2.Margins.Right = 15;
  StyleInputPanel(PnlRow2);
  LblK2 = DetayForm.AddNewProLabel(PnlRow2, 'LblK2', GetText('TARIH'));
  LblK2.Align = alLeft; LblK2.Width = 120; LblK2.Margins.Left = 10; LblK2.Margins.Top = 15;
  StyleInputLabel(LblK2);
  LblV2 = DetayForm.AddNewProLabel(PnlRow2, 'LblV2', Arz_KayitTarih[SeciliKayitIndeks]);
  LblV2.Align = alClient; LblV2.Margins.Left = 5; LblV2.Margins.Top = 15; LblV2.Margins.Right = 10;
  StyleMalzemeBaslik(LblV2);
  
  PnlRow3 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow3');
  PnlRow3.Align = alTop; PnlRow3.Height = 55; PnlRow3.Margins.Top = 8; PnlRow3.Margins.Left = 15; PnlRow3.Margins.Right = 15;
  StyleInputPanel(PnlRow3);
  LblK3 = DetayForm.AddNewProLabel(PnlRow3, 'LblK3', GetText('MAKINE_KODU'));
  LblK3.Align = alLeft; LblK3.Width = 120; LblK3.Margins.Left = 10; LblK3.Margins.Top = 15;
  StyleInputLabel(LblK3);
  LblV3 = DetayForm.AddNewProLabel(PnlRow3, 'LblV3', Arz_MakineArr[SeciliKayitIndeks]);
  LblV3.Align = alClient; LblV3.Margins.Left = 5; LblV3.Margins.Top = 15; LblV3.Margins.Right = 10;
  StyleMalzemeBaslik(LblV3);
  
  PnlRow4 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow4');
  PnlRow4.Align = alTop; PnlRow4.Height = 55; PnlRow4.Margins.Top = 8; PnlRow4.Margins.Left = 15; PnlRow4.Margins.Right = 15;
  StyleInputPanel(PnlRow4);
  LblK4 = DetayForm.AddNewProLabel(PnlRow4, 'LblK4', GetText('OPERATOR'));
  LblK4.Align = alLeft; LblK4.Width = 120; LblK4.Margins.Left = 10; LblK4.Margins.Top = 15;
  StyleInputLabel(LblK4);
  LblV4 = DetayForm.AddNewProLabel(PnlRow4, 'LblV4', Arz_OperatorArr[SeciliKayitIndeks]);
  LblV4.Align = alClient; LblV4.Margins.Left = 5; LblV4.Margins.Top = 15; LblV4.Margins.Right = 10;
  StyleMalzemeBaslik(LblV4);
  
  PnlRow5 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow5');
  PnlRow5.Align = alTop; PnlRow5.Height = 55; PnlRow5.Margins.Top = 8; PnlRow5.Margins.Left = 15; PnlRow5.Margins.Right = 15;
  StyleInputPanel(PnlRow5);
  LblK5 = DetayForm.AddNewProLabel(PnlRow5, 'LblK5', GetText('ARIZA_KODU'));
  LblK5.Align = alLeft; LblK5.Width = 120; LblK5.Margins.Left = 10; LblK5.Margins.Top = 15;
  StyleInputLabel(LblK5);
  LblV5 = DetayForm.AddNewProLabel(PnlRow5, 'LblV5', Arz_ArzKodArr[SeciliKayitIndeks]);
  LblV5.Align = alClient; LblV5.Margins.Left = 5; LblV5.Margins.Top = 15; LblV5.Margins.Right = 10;
  StyleMalzemeBaslik(LblV5);
  
  PnlRow6 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow6');
  PnlRow6.Align = alTop; PnlRow6.Height = 55; PnlRow6.Margins.Top = 8; PnlRow6.Margins.Left = 15; PnlRow6.Margins.Right = 15;
  StyleInputPanel(PnlRow6);
  LblK6 = DetayForm.AddNewProLabel(PnlRow6, 'LblK6', GetText('BAGLANTI'));
  LblK6.Align = alLeft; LblK6.Width = 120; LblK6.Margins.Left = 10; LblK6.Margins.Top = 15;
  StyleInputLabel(LblK6);
  LblV6 = DetayForm.AddNewProLabel(PnlRow6, 'LblV6', Arz_BaglantiArr[SeciliKayitIndeks]);
  LblV6.Align = alClient; LblV6.Margins.Left = 5; LblV6.Margins.Top = 15; LblV6.Margins.Right = 10;
  StyleMalzemeBaslik(LblV6);
  
  PnlRow7 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow7');
  PnlRow7.Align = alTop; PnlRow7.Height = 55; PnlRow7.Margins.Top = 8; PnlRow7.Margins.Left = 15; PnlRow7.Margins.Right = 15;
  StyleInputPanel(PnlRow7);
  LblK7 = DetayForm.AddNewProLabel(PnlRow7, 'LblK7', GetText('DETAY_BASLANGIC'));
  LblK7.Align = alLeft; LblK7.Width = 120; LblK7.Margins.Left = 10; LblK7.Margins.Top = 15;
  StyleInputLabel(LblK7);
  LblV7 = DetayForm.AddNewProLabel(PnlRow7, 'LblV7', Arz_BasTarih[SeciliKayitIndeks] + ' ' + Arz_BasSaat[SeciliKayitIndeks]);
  LblV7.Align = alClient; LblV7.Margins.Left = 5; LblV7.Margins.Top = 15; LblV7.Margins.Right = 10;
  StyleMalzemeBaslik(LblV7);
  
  PnlRow8 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow8');
  PnlRow8.Align = alTop; PnlRow8.Height = 55; PnlRow8.Margins.Top = 8; PnlRow8.Margins.Left = 15; PnlRow8.Margins.Right = 15;
  StyleInputPanel(PnlRow8);
  LblK8 = DetayForm.AddNewProLabel(PnlRow8, 'LblK8', GetText('BITIS_TURU'));
  LblK8.Align = alLeft; LblK8.Width = 120; LblK8.Margins.Left = 10; LblK8.Margins.Top = 15;
  StyleInputLabel(LblK8);
  LblV8 = DetayForm.AddNewProLabel(PnlRow8, 'LblV8', Arz_BitTarih[SeciliKayitIndeks]);
  LblV8.Align = alClient; LblV8.Margins.Left = 5; LblV8.Margins.Top = 15; LblV8.Margins.Right = 10;
  StyleMalzemeBaslik(LblV8);
  
  PnlRow9 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow9');
  PnlRow9.Align = alTop; PnlRow9.Height = 55; PnlRow9.Margins.Top = 8; PnlRow9.Margins.Left = 15; PnlRow9.Margins.Right = 15;
  StyleInputPanel(PnlRow9);
  LblK9 = DetayForm.AddNewProLabel(PnlRow9, 'LblK9', GetText('KISI_SAYISI'));
  LblK9.Align = alLeft; LblK9.Width = 120; LblK9.Margins.Left = 10; LblK9.Margins.Top = 15;
  StyleInputLabel(LblK9);
  LblV9 = DetayForm.AddNewProLabel(PnlRow9, 'LblV9', Arz_KisiSayisiArr[SeciliKayitIndeks]);
  LblV9.Align = alClient; LblV9.Margins.Left = 5; LblV9.Margins.Top = 15; LblV9.Margins.Right = 10;
  StyleMalzemeBaslik(LblV9);
  
  PnlRow10 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow10');
  PnlRow10.Align = alTop; PnlRow10.Height = 55; PnlRow10.Margins.Top = 8; PnlRow10.Margins.Left = 15; PnlRow10.Margins.Right = 15;
  StyleInputPanel(PnlRow10);
  LblK10 = DetayForm.AddNewProLabel(PnlRow10, 'LblK10', GetText('ACIKLAMA'));
  LblK10.Align = alLeft; LblK10.Width = 120; LblK10.Margins.Left = 10; LblK10.Margins.Top = 15;
  StyleInputLabel(LblK10);
  LblV10 = DetayForm.AddNewProLabel(PnlRow10, 'LblV10', Arz_AciklamaArr[SeciliKayitIndeks]);
  LblV10.Align = alClient; LblV10.Margins.Left = 5; LblV10.Margins.Top = 15; LblV10.Margins.Right = 10;
  StyleMalzemeBaslik(LblV10);
  
  PnlRow11 = DetayForm.AddNewProPanel(DetayPnlMain, 'PnlRow11');
  PnlRow11.Align = alTop; PnlRow11.Height = 120; PnlRow11.Margins.Top = 8; PnlRow11.Margins.Left = 15; PnlRow11.Margins.Right = 15;
  StyleInputPanel(PnlRow11);
  LblK11 = DetayForm.AddNewProLabel(PnlRow11, 'LblK11', GetText('YAPILAMAMA_NEDENI'));
  LblK11.Align = alTop; LblK11.Height = 25; LblK11.Margins.Left = 10; LblK11.Margins.Top = 5;
  StyleInputLabel(LblK11);
  LblV11 = DetayForm.AddNewProLabel(PnlRow11, 'LblV11', Arz_BakimIhmalArr[SeciliKayitIndeks]);
  LblV11.Align = alClient; LblV11.Margins.Left = 10; LblV11.Margins.Right = 10; LblV11.Margins.Bottom = 5;
  StyleMalzemeBaslik(LblV11);
  
  DetayBtnKapat = DetayForm.AddNewProButton(DetayPnlMain, 'DetayBtnKapat', GetText('KAPAT'));
  DetayBtnKapat.Align = alBottom; DetayBtnKapat.Height = 45; DetayBtnKapat.Margins.Left = 15; DetayBtnKapat.Margins.Right = 15; DetayBtnKapat.Margins.Bottom = 15;
  StylePrimaryButton(DetayBtnKapat);
  DetayForm.AddNewEvent(DetayBtnKapat, tbeOnClick, 'Arz_KapatDetay');
  DetayForm.Run;
}

void Arz_ListedenSec;
var
  SelRow: Integer;
{
  SelRow = FormMain.ClSenderRow;
  if (SelRow > 0)
  {
    SeciliKayitIndeks = SelRow - 1;
    Arz_EdtBelgeNo.Text = Arz_BelgeNo[SeciliKayitIndeks];
    Arz_EdtArizaKodu.Text = Arz_ArzKodArr[SeciliKayitIndeks];
    Arz_EdtBaglanti.Text = Arz_BaglantiArr[SeciliKayitIndeks];
    Arz_EdtKisiSayisi.Text = Arz_KisiSayisiArr[SeciliKayitIndeks];
    Arz_EdtOperator.Text = Arz_OperatorArr[SeciliKayitIndeks];
    Arz_EdtAciklama.Text = Arz_AciklamaArr[SeciliKayitIndeks];
    Arz_EdtMakineKodu.Text = Arz_MakineArr[SeciliKayitIndeks];
    Arz_MemBakimIhmal.Text = Arz_BakimIhmalArr[SeciliKayitIndeks];
    Arz_EdtBaslangic.Text = Arz_BasTarih[SeciliKayitIndeks];
    Arz_EdtBaslangicSaat.Text = Arz_BasSaat[SeciliKayitIndeks];
    if (Arz_BitTarih[SeciliKayitIndeks] == 'Saat') { Arz_CmbPlanlananBitis.ItemIndex = 0; }
    else if (Arz_BitTarih[SeciliKayitIndeks] == 'Gün') { Arz_CmbPlanlananBitis.ItemIndex = 1; }
    else if (Arz_BitTarih[SeciliKayitIndeks] == 'Ay') { Arz_CmbPlanlananBitis.ItemIndex = 2; }
    else { Arz_CmbPlanlananBitis.ItemIndex = -1; }
    Arz_DetayFormAc;
  }
}

void Arz_KapatDetay;
{
  DetayForm.Close;
}

// ----- ARIZA TANIMLARI LİSTESİ VE SEÇİM İŞLEMLERİ -----

void OnLsvArizaTipSecildi;
var 
  S_Kodu, S_Tipi, S_Aciklama: String; 
{
  S_Kodu = AT_LsvListe.clSelectedItemData(clCaption);
  S_Tipi = AT_LsvListe.clSelectedItemData(clText);
  S_Aciklama = AT_LsvListe.clSelectedItemData(clText1);

  AT_EdtKod.Text = S_Kodu;
  AT_EdtAd.Text = S_Aciklama;
  if (S_Tipi <> '') { SafeSetCombo(AT_CmbTip, S_Tipi); }
}

void AT_CmbTipChanged;
{
  if (AT_EdtAd <> nil)
  {
    if (AT_CmbTip.Text <> '')
    {
      // Tip değiştiğinde yapılacak işlemler
    }
  }
}

void AT_GridDoldur;
var 
  q: TclSQLQuery;
  JsonStr, Val1, Val2, Val3: String;
{
  ConnectToDatabase;
  if (not IsDBConnected) { Exit; }
  
  JsonStr = '[';
  q = TclSQLQuery.Create(nil);
  try
    q.Connection = Clomosy.DBSQLServerConnection;
    q.SQL.Text = 'SELECT ARIZA_KODU, ARIZA_TIPI, ARIZA_ADI FROM TBLURTBAKIMARIZATIP WITH (NOLOCK) ORDER BY REC_UPDATE DESC';
    q.Open;
    while (not q.Eof)
    {
      if (JsonStr <> '[') { JsonStr = JsonStr + ','; }
      Val1 = TemizleJSON(q.FieldByName('ARIZA_KODU').AsString);
      Val2 = TemizleJSON(q.FieldByName('ARIZA_TIPI').AsString);
      Val3 = TemizleJSON(q.FieldByName('ARIZA_ADI').AsString);

      JsonStr = JsonStr + '{"clCaption":"' + Val1 + '", ' +
      '"clText":"' + Val2 + '", ' +
      '"clText1":"' + Val3 + '"}';
      q.Next;
    }
  finally
    q.Free;
  }

  if (JsonStr == '[') { 
    JsonStr = '[{"clCaption":"Kayıt Bulunamadı", "clText":"", "clText1":""}]'; 
  }
  else { JsonStr = JsonStr + ']'; }

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

void BuildArizaTanimPaneli;
{
  PnlArizaTanimlari = FormMain.AddNewProPanel(ScrollForm, 'PnlArizaTanimlari');
  PnlArizaTanimlari.Align = alTop;
  PnlArizaTanimlari.Height = 1100;
  PnlArizaTanimlari.Margins.Left = 15; PnlArizaTanimlari.Margins.Right = 15; PnlArizaTanimlari.Margins.Top = 15; PnlArizaTanimlari.Margins.Bottom = 25;
  StyleMainCard(PnlArizaTanimlari);
  PnlArizaTanimlari.Visible = False; 

  // --- ÜST KISIM: GİRİŞ ALANLARI ---
  AT_PnlInputs = FormMain.AddNewProPanel(PnlArizaTanimlari, 'AT_PnlInputs');
  AT_PnlInputs.Align = alTop;
  AT_PnlInputs.Height = 220;

  // 1. Satır: Arıza Kodu
  AT_PnlRow1 = FormMain.AddNewProPanel(AT_PnlInputs, 'AT_PnlRow1');
  AT_PnlRow1.Align = alTop; AT_PnlRow1.Height = 58; AT_PnlRow1.Margins.Top = 10; AT_PnlRow1.Margins.Left = 10; AT_PnlRow1.Margins.Right = 10;
  StyleInputPanel(AT_PnlRow1);
  
  AT_LblKod = FormMain.AddNewProLabel(AT_PnlRow1, 'AT_LblKod', 'Arıza Kodu');
  AT_LblKod.Align = alTop; AT_LblKod.Height = 18; AT_LblKod.Margins.Left = 10; AT_LblKod.Margins.Top = 6;
  StyleInputLabel(AT_LblKod);

  AT_BtnAra = FormMain.AddNewProButton(AT_PnlRow1, 'AT_BtnAra', '🔍');
  AT_BtnAra.Align = alRight; AT_BtnAra.Width = 50; AT_BtnAra.Margins.Right = 10; AT_BtnAra.Margins.Bottom = 7;
  StyleRehberButton(AT_BtnAra);
  FormMain.AddNewEvent(AT_BtnAra, tbeOnClick, 'BtnRehberArizaClick');

  AT_EdtKod = FormMain.AddNewProEdit(AT_PnlRow1, 'AT_EdtKod', '');
  AT_EdtKod.Align = alClient; AT_EdtKod.Margins.Left = 10; AT_EdtKod.Margins.Right = 5; AT_EdtKod.Margins.Bottom = 7;
  StyleReadonlyEdit(AT_EdtKod); AT_EdtKod.CanFocus = False;
  FormMain.AddNewEvent(AT_EdtKod, tbeOnClick, 'BtnRehberArizaClick');

  // 2. Satır: Arıza Tipi
  AT_PnlRow2 = FormMain.AddNewProPanel(AT_PnlInputs, 'AT_PnlRow2');
  AT_PnlRow2.Align = alTop; AT_PnlRow2.Height = 58; AT_PnlRow2.Margins.Top = 10; AT_PnlRow2.Margins.Left = 10; AT_PnlRow2.Margins.Right = 10;
  StyleInputPanel(AT_PnlRow2);
  
  AT_LblTip = FormMain.AddNewProLabel(AT_PnlRow2, 'AT_LblTip', 'Arıza Tipi');
  AT_LblTip.Align = alTop; AT_LblTip.Height = 18; AT_LblTip.Margins.Left = 10; AT_LblTip.Margins.Top = 6;
  StyleInputLabel(AT_LblTip);

  AT_CmbTip = FormMain.AddNewComboBox(AT_PnlRow2, 'AT_CmbTip');
  AT_CmbTip.Align = alClient; AT_CmbTip.Margins.Left = 10; AT_CmbTip.Margins.Right = 10; AT_CmbTip.Margins.Bottom = 7;
  AT_CmbTip.AddItem('Makine Bakımı', 'Makine Bakımı');
  AT_CmbTip.AddItem('Kalıp Bakımı', 'Kalıp Bakımı');
  FormMain.AddNewEvent(AT_CmbTip, tbeOnChange, 'AT_CmbTipChanged');

  // 3. Satır: Açıklama (Arıza Adı)
  AT_PnlRow3 = FormMain.AddNewProPanel(AT_PnlInputs, 'AT_PnlRow3');
  AT_PnlRow3.Align = alTop; AT_PnlRow3.Height = 58; AT_PnlRow3.Margins.Top = 10; AT_PnlRow3.Margins.Left = 10; AT_PnlRow3.Margins.Right = 10;
  StyleInputPanel(AT_PnlRow3);
  
  AT_LblAd = FormMain.AddNewProLabel(AT_PnlRow3, 'AT_LblAd', 'Açıklaması');
  AT_LblAd.Align = alTop; AT_LblAd.Height = 18; AT_LblAd.Margins.Left = 10; AT_LblAd.Margins.Top = 6;
  StyleInputLabel(AT_LblAd);

  AT_EdtAd = FormMain.AddNewProEdit(AT_PnlRow3, 'AT_EdtAd', '');
  AT_EdtAd.Align = alClient; AT_EdtAd.Margins.Left = 10; AT_EdtAd.Margins.Right = 10; AT_EdtAd.Margins.Bottom = 7;
  StyleInputEdit(AT_EdtAd);

  // --- ALT KISIM: TABLO (ProListView) ---
  AT_PnlRight = FormMain.AddNewProPanel(PnlArizaTanimlari, 'AT_PnlRight');
  AT_PnlRight.Align = alClient;
  AT_PnlRight.Margins.Top = 10; AT_PnlRight.Margins.Left = 10; AT_PnlRight.Margins.Right = 10; AT_PnlRight.Margins.Bottom = 10;
  AT_PnlRight.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
  AT_PnlRight.clProSettings.BorderWidth = 1;
  AT_PnlRight.SetclProSettings(AT_PnlRight.clProSettings);

  AT_PnlGridHeader = FormMain.AddNewProPanel(AT_PnlRight, 'AT_PnlGridHeader');
  AT_PnlGridHeader.Align = alTop; AT_PnlGridHeader.Height = 40;
  AT_PnlGridHeader.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9');
  AT_PnlGridHeader.SetclProSettings(AT_PnlGridHeader.clProSettings);

  AT_LblColKodu = FormMain.AddNewProLabel(AT_PnlGridHeader, 'AT_LblColKodu', 'Arıza Kodu');
  AT_LblColKodu.Align = alLeft; AT_LblColKodu.Width = 120; AT_LblColKodu.Margins.Left = 5;
  AT_LblColKodu.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); AT_LblColKodu.clProSettings.TextSettings.Font.Style = [fsBold]; AT_LblColKodu.SetclProSettings(AT_LblColKodu.clProSettings);
  
  AT_LblColTipi = FormMain.AddNewProLabel(AT_PnlGridHeader, 'AT_LblColTipi', 'Arıza Tipi');
  AT_LblColTipi.Align = alLeft; AT_LblColTipi.Width = 150;
  AT_LblColTipi.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); AT_LblColTipi.clProSettings.TextSettings.Font.Style = [fsBold]; AT_LblColTipi.SetclProSettings(AT_LblColTipi.clProSettings);
  
  AT_LblColAd = FormMain.AddNewProLabel(AT_PnlGridHeader, 'AT_LblColAd', 'Açıklaması');
  AT_LblColAd.Align = alClient;
  AT_LblColAd.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); AT_LblColAd.clProSettings.TextSettings.Font.Style = [fsBold]; AT_LblColAd.SetclProSettings(AT_LblColAd.clProSettings);

  AT_LsvListe = FormMain.AddNewProListView(AT_PnlRight, 'AT_LsvListe');
  AT_LsvListe.Align = alClient; AT_LsvListe.ListType = 'vertical'; AT_LsvListe.clProSettings.ColCount = 1; AT_LsvListe.clProSettings.ItemHeight = 40; AT_LsvListe.SetclProSettings(AT_LsvListe.clProSettings);

  AT_LsvDP = FormMain.AddNewProListViewDesignerPanel(AT_LsvListe, 'AT_LsvDP');
  AT_LsvDP.Align = alTop; AT_LsvDP.Height = 40; AT_LsvDP.Width = 600;
  AT_LsvDP.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
  AT_LsvDP.clProSettings.BorderWidth = 1;
  AT_LsvDP.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  AT_LsvDP.SetclProSettings(AT_LsvDP.clProSettings);

  AT_LblDPKodu = FormMain.AddNewProLabel(AT_LsvDP, 'clCaption', '');
  AT_LblDPKodu.Align = alLeft; AT_LblDPKodu.Width = 120; AT_LblDPKodu.Margins.Left = 5;
  AT_LblDPKodu.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); AT_LblDPKodu.SetclProSettings(AT_LblDPKodu.clProSettings);

  AT_LblDPTipi = FormMain.AddNewProLabel(AT_LsvDP, 'clText', '');
  AT_LblDPTipi.Align = alLeft; AT_LblDPTipi.Width = 150;
  AT_LblDPTipi.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); AT_LblDPTipi.SetclProSettings(AT_LblDPTipi.clProSettings);

  AT_LblDPAd = FormMain.AddNewProLabel(AT_LsvDP, 'clText1', '');
  AT_LblDPAd.Align = alClient;
  AT_LblDPAd.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor); AT_LblDPAd.SetclProSettings(AT_LblDPAd.clProSettings);

  AT_LsvDP.AddPanelObject(AT_LblDPKodu, clCaption);
  AT_LsvDP.AddPanelObject(AT_LblDPTipi, clText);
  AT_LsvDP.AddPanelObject(AT_LblDPAd, clText1);
  AT_LsvListe.SetDesignerPanel(AT_LsvDP);

  FormMain.AddNewEvent(AT_LsvListe, tbeOnItemClick, 'OnLsvArizaTipSecildi');
}

void Arz_BtnYeniClick;
{
  Arz_ClearForm;
}

void Arz_KaydetKayit;
var
  KayitDosyasi: TclStringList;
  DosyaYolu, YeniKayit, LTarih, LAy, LYil, TemizMakineKodu: String;
{
  if (Arz_EdtBelgeNo.Text == '')
  {
    ShowMessage(GetText('MSG_BELGE_GIRIN'));
    Exit;
  }
  if (Arz_EdtMakineKodu.Text == '')
  {
    ShowMessage(GetText('MSG_MAKINE_SECIN'));
    Exit;
  }
  if (Arz_EdtArizaKodu.Text == '')
  {
    ShowMessage('Lütfen Arıza Kodu seçiniz!');
    Exit;
  }
  if (Arz_CmbPlanlananBitis.ItemIndex == -1)
  {
    ShowMessage('Lütfen Planlanan Bitiş (Periyot) seçiniz!');
    Exit;
  }
  if (Trim(Arz_MemBakimIhmal.Text) == '')
  {
    ShowMessage(GetText('MSG_IHMAL_ZORUNLU'));
    Exit;
  }
  
  DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);
  KayitDosyasi = Clomosy.StringListNew;
  if (clFileExists(DosyaYolu, ''))
  {
    KayitDosyasi.LoadFromFile(DosyaYolu, 0);
  }
  
  LTarih = DateToStr(Now);
  LAy = Copy(LTarih, 4, 2);
  LYil = Copy(LTarih, 7, 4);
  
  TemizMakineKodu = clGetStringReplace(Arz_EdtMakineKodu.Text, '|', '-');
  
  YeniKayit = 'Arıza|' + Arz_EdtBelgeNo.Text + '|' + TemizMakineKodu + '|' + Arz_EdtArizaKodu.Text + '|' + LTarih + '|Bakım Yapılmadı|' + LAy + '|' + LYil + '|' + Arz_CmbPlanlananBitis.Text;
  
  KayitDosyasi.Add(YeniKayit);
  KayitDosyasi.SaveToFile(DosyaYolu, 0);
  KayitDosyasi.Free;
  
  if (SeciliKayitIndeks == -1)
  {
    if (Arz_ArizaCount >= 50)
    {
      ShowMessage(GetText('MSG_KAPASITE_DOLU'));
      Exit;
    }
    Arz_BelgeNo[Arz_ArizaCount] = Trim(Arz_EdtBelgeNo.Text);
    Arz_MakineArr[Arz_ArizaCount] = TemizMakineKodu;
    Arz_BakimIhmalArr[Arz_ArizaCount] = Trim(Arz_MemBakimIhmal.Text);
    Arz_BasTarih[Arz_ArizaCount] = Arz_EdtBaslangic.Text;
    Arz_BasSaat[Arz_ArizaCount] = Arz_EdtBaslangicSaat.Text;
    if (Arz_CmbPlanlananBitis.ItemIndex == 0) { Arz_BitTarih[Arz_ArizaCount] = 'Saat'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 1) { Arz_BitTarih[Arz_ArizaCount] = 'Gün'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 2) { Arz_BitTarih[Arz_ArizaCount] = 'Ay'; }
    else { Arz_BitTarih[Arz_ArizaCount] = ''; }
    Arz_ArzKodArr[Arz_ArizaCount] = Arz_EdtArizaKodu.Text;
    Arz_BaglantiArr[Arz_ArizaCount] = Arz_EdtBaglanti.Text;
    Arz_KisiSayisiArr[Arz_ArizaCount] = Arz_EdtKisiSayisi.Text;
    Arz_OperatorArr[Arz_ArizaCount] = Arz_EdtOperator.Text;
    Arz_AciklamaArr[Arz_ArizaCount] = Arz_EdtAciklama.Text;
    Arz_KayitTarih[Arz_ArizaCount] = DateToStr(Now);
    Arz_ArizaDurum[Arz_ArizaCount] = GetText('KAYDEDILDI');
    Arz_ArizaCount = Arz_ArizaCount + 1;
  }
  else
  {
    Arz_BelgeNo[SeciliKayitIndeks] = Trim(Arz_EdtBelgeNo.Text);
    Arz_MakineArr[SeciliKayitIndeks] = TemizMakineKodu;
    Arz_BakimIhmalArr[SeciliKayitIndeks] = Trim(Arz_MemBakimIhmal.Text);
    Arz_BasTarih[SeciliKayitIndeks] = Arz_EdtBaslangic.Text;
    Arz_BasSaat[SeciliKayitIndeks] = Arz_EdtBaslangicSaat.Text; 
    if (Arz_CmbPlanlananBitis.ItemIndex == 0) { Arz_BitTarih[SeciliKayitIndeks] = 'Saat'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 1) { Arz_BitTarih[SeciliKayitIndeks] = 'Gün'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 2) { Arz_BitTarih[SeciliKayitIndeks] = 'Ay'; }
    else { Arz_BitTarih[SeciliKayitIndeks] = ''; }
    Arz_ArzKodArr[SeciliKayitIndeks] = Arz_EdtArizaKodu.Text;
    Arz_BaglantiArr[SeciliKayitIndeks] = Arz_EdtBaglanti.Text;
    Arz_KisiSayisiArr[SeciliKayitIndeks] = Arz_EdtKisiSayisi.Text;
    Arz_OperatorArr[SeciliKayitIndeks] = Arz_EdtOperator.Text;
    Arz_AciklamaArr[SeciliKayitIndeks] = Arz_EdtAciklama.Text;
  }
  Arz_RefreshList;
  Arz_ClearForm; 
}

void TakePhotoClick;
{
  Clomosy.ImageChooser(FormMain, Arz_ImgPhoto); 
}

void GoBack;
{
  FormMain.Close;
}

void OnSearchRehber;
{
  if (RehberJsonData == nil) { Exit; }
  if (EdtRehberArama.Text == '') 
  { 
    RehberJsonData.Filtered = False;
    RehberJsonData.Filter = ''; 
  }
  else 
  { 
    RehberJsonData.Filter = 'clCaption Like ' + Chr(39) + '%' + EdtRehberArama.Text + '%' + Chr(39);
    RehberJsonData.Filtered = True; 
  }
}

void OnListItemClick;
var
  SecilenAnaMetin, SecilenAltMetin: String;
  q: TclSQLQuery;
{ 
  SecilenAnaMetin = LsvBelgeRehber.clSelectedItemData(clCaption);
  SecilenAltMetin = LsvBelgeRehber.clSelectedItemData(clText);
  
  if (SecilenAnaMetin == GetText('LST_BOS'))
  {
    RehberForm.Close; 
    Exit;
  }

  // =========================================================================
  // BELGE NO SEÇİLDİĞİNDE VERİTABANINDAN DETAYLARIN ÇEKİLMESİ
  // =========================================================================
  if (GlobalLookupType == 'BELGE')
  {
    Arz_EdtBelgeNo.Text = SecilenAnaMetin;
    
    ConnectToDatabase;
    if (IsDBConnected)
    {
      q = TclSQLQuery.Create(nil);
      try
        q.Connection = Clomosy.DBSQLServerConnection;
        q.SQL.Text = 'SELECT ' +
        'ISNULL(CONVERT(VARCHAR, HR.TARIH, 104), '''') AS TARIH, ' +
        'ISNULL(CONVERT(VARCHAR, HR.BAS_TAR, 104), '''') AS BAS_TAR, ' +
        'ISNULL(HR.BAS_SAAT, '''') AS BAS_SAAT, ' +
        'ISNULL(CAST(HR.BAKIM_KISI_SAYISI AS VARCHAR), '''') AS KISI_SAYISI, ' +
        'ISNULL(HR.ACIKLAMA, '''') AS ACIKLAMA, ' +
        'ISNULL(HR.BAKIM_IHMAL_NEDENI, '''') AS IHMAL_NEDENI, ' +
        'ISNULL(CONVERT(VARCHAR, HR.BAKIM_BAGLANTI_ALAN, 104), '''') AS BAGLANTI, ' +
        'ISNULL(AZ.ARIZA_KODU, '''') AS ARIZA_KODU, ' + 
        'ISNULL(M.MAKINE_KODU, '''') AS MAKINE_KODU, ' +
        'ISNULL(OP.OPERATOR_KODU, '''') AS OPERATOR ' +
        'FROM [TBLURTBAKIMHR] HR WITH (NOLOCK) ' +
        'LEFT JOIN [TBLURTMAKINESB] M WITH (NOLOCK) ON HR.MAKINE_KODU_RECID = M.REC_NO ' +
        'LEFT JOIN [TBLURTOPERATORSB] OP WITH (NOLOCK) ON HR.OPERATOR_RECID = OP.REC_NO ' +
        'LEFT JOIN [TBLURTBAKIMARIZATIP] AZ WITH (NOLOCK) ON HR.ARIZA_KODU_RECID = AZ.REC_NO ' +
        'WHERE HR.BELGE_NO = ' + Chr(39) + SecilenAnaMetin + Chr(39);
        
        q.Open;
        if (not q.Eof)
        {
          if (Arz_EdtTarih <> nil) { Arz_EdtTarih.Text = q.FieldByName('TARIH').AsString; }
          if (Arz_EdtMakineKodu <> nil) { Arz_EdtMakineKodu.Text = q.FieldByName('MAKINE_KODU').AsString; }
          if (Arz_EdtArizaKodu <> nil) { Arz_EdtArizaKodu.Text = q.FieldByName('ARIZA_KODU').AsString; }
          if (Arz_EdtBaglanti <> nil) { Arz_EdtBaglanti.Text = q.FieldByName('BAGLANTI').AsString; }
          if (Arz_EdtBaslangic <> nil) { Arz_EdtBaslangic.Text = q.FieldByName('BAS_TAR').AsString; }
          if (Arz_EdtBaslangicSaat <> nil) { Arz_EdtBaslangicSaat.Text = q.FieldByName('BAS_SAAT').AsString; }
          if (Arz_EdtGirisZamani <> nil) { Arz_EdtGirisZamani.Text = q.FieldByName('BAS_TAR').AsString + ' ' + q.FieldByName('BAS_SAAT').AsString; }
          if (Arz_EdtKisiSayisi <> nil) { Arz_EdtKisiSayisi.Text = q.FieldByName('KISI_SAYISI').AsString; }
          if (Arz_EdtOperator <> nil) { Arz_EdtOperator.Text = q.FieldByName('OPERATOR').AsString; }
          if (Arz_EdtAciklama <> nil) { Arz_EdtAciklama.Text = q.FieldByName('ACIKLAMA').AsString; }
          if (Arz_MemBakimIhmal <> nil) { Arz_MemBakimIhmal.Text = q.FieldByName('IHMAL_NEDENI').AsString; }
        }
      finally
        q.Free;
      }
    }
  }
  else if (GlobalLookupType == 'ARIZA')
  {
    Arz_EdtArizaKodu.Text = SecilenAnaMetin;
    if (AT_EdtKod <> nil) { AT_EdtKod.Text = SecilenAnaMetin; }
    if ((SecilenAltMetin <> '') && (AT_EdtAd <> nil)) { AT_EdtAd.Text = SecilenAltMetin; }
  }
  else if (GlobalLookupType == 'MAKINE')
  {
    Arz_EdtMakineKodu.Text = SecilenAnaMetin;
  }
  else if (GlobalLookupType == 'BAGLANTI')
  {
    Arz_EdtBaglanti.Text = SecilenAnaMetin;
  }
  else if (GlobalLookupType == 'OPERATOR')
  {
    Arz_EdtOperator.Text = SecilenAnaMetin; 
  }

  RehberForm.Close;
}

void BuildRehberForm;
var
  RehberDP: TclProListViewDesignerPanel;
  RehberLblMain, RehberLblSub: TclProLabel;
{
  RehberForm = TclForm.Create(Self); 
  RehberForm.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical);
  EdtRehberArama = RehberForm.AddNewProEdit(RehberForm, 'EdtRehberArama', GetText('ARA_GENEL')); 
  EdtRehberArama.Align = alTop; EdtRehberArama.Margins.Top = 10; EdtRehberArama.Margins.Left = 10; EdtRehberArama.Margins.Right = 10; EdtRehberArama.Height = 40;
  EdtRehberArama.clProSettings.FontSize = 14;
  RehberForm.AddNewEvent(EdtRehberArama, tbeOnChange, 'OnSearchRehber');

  LsvBelgeRehber = RehberForm.AddNewProListView(RehberForm, 'LsvBelgeRehber'); 
  LsvBelgeRehber.Align = alClient; LsvBelgeRehber.Margins.Top = 10; LsvBelgeRehber.ListType = 'vertical';
  LsvBelgeRehber.clProSettings.ItemHeight = 65; 
  LsvBelgeRehber.clProSettings.ItemSpace = 5;
  LsvBelgeRehber.clProSettings.ColCount = 1; 
  LsvBelgeRehber.clProSettings.ViewType = lvIcon; 
  LsvBelgeRehber.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 
  LsvBelgeRehber.SetclProSettings(LsvBelgeRehber.clProSettings);
  
  RehberDP = RehberForm.AddNewProListViewDesignerPanel(LsvBelgeRehber, 'RehberDP');
  RehberDP.Align = alTop; RehberDP.Height = 60; RehberDP.Width = 350;
  RehberDP.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  RehberDP.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
  RehberDP.clProSettings.BorderWidth = 1;
  RehberDP.clProSettings.IsRound = True;
  RehberDP.clProSettings.RoundHeight = 8;
  RehberDP.clProSettings.RoundWidth = 8;
  RehberDP.SetclProSettings(RehberDP.clProSettings);

  RehberLblMain = RehberForm.AddNewProLabel(RehberDP, 'clCaption', '');
  RehberLblMain.Align = alTop;
  RehberLblMain.Height = 25; RehberLblMain.Margins.Left = 10; RehberLblMain.Margins.Top = 5;
  RehberLblMain.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);
  RehberLblMain.clProSettings.TextSettings.Font.Style = [fsBold];
  RehberLblMain.clProSettings.FontSize = UiFontSize;
  RehberLblMain.SetclProSettings(RehberLblMain.clProSettings);
  
  RehberLblSub = RehberForm.AddNewProLabel(RehberDP, 'clText', '');
  RehberLblSub.Align = alTop; RehberLblSub.Height = 25; RehberLblSub.Margins.Left = 10;
  RehberLblSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  RehberLblSub.clProSettings.FontSize = UiFontSize - 2;
  RehberLblSub.SetclProSettings(RehberLblSub.clProSettings);

  RehberDP.AddPanelObject(RehberLblMain, clCaption);
  RehberDP.AddPanelObject(RehberLblSub, clText);
  LsvBelgeRehber.SetDesignerPanel(RehberDP);
  
  RehberForm.AddNewEvent(LsvBelgeRehber, tbeOnItemClick, 'OnListItemClick');
}

void OpenRehber;
var 
  q: TclSQLQuery;
  JsonStr, CleanMain, CleanSub: String;
{
  ConnectToDatabase;
  BuildRehberForm;
  EdtRehberArama.Text = '';
  
  if (not IsDBConnected)
  {
    ShowMessage('Sunucuya bağlanılamadı! Lütfen internet/Wi-Fi bağlantınızı kontrol edin.');
    JsonStr = '[{"clCaption":"Sunucuya Ulaşılamıyor", "clText":"Veritabanı bağlantısı yok."}]';
    if (RehberJsonData <> nil) { RehberJsonData.Free; }
    RehberJsonData = Clomosy.ClDataSetFromJSON(JsonStr);
    LsvBelgeRehber.clLoadProListViewDataFromDataset(RehberJsonData);
    RehberForm.Run;
    Exit;
  }

  q = TclSQLQuery.Create(nil);
  try
    q.Connection = Clomosy.DBSQLServerConnection;

    // 1. BELGE SORGUSU (Tablo Alias'ları ile)
    if (GlobalLookupType == 'BELGE')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_BELGE');
      q.SQL.Text = 'SELECT TOP 200 ' +
                   'H.BELGE_NO AS MAIN_TEXT, ' +
                   'M.MAKINE_KODU AS SUB_TEXT ' +
                   'FROM [TBLURTBAKIMHR] H WITH (NOLOCK) ' +
                   'INNER JOIN [TBLURTMAKINESB] M WITH (NOLOCK) ON H.MAKINE_KODU_RECID = M.REC_NO ' +
                   'ORDER BY H.BELGE_NO DESC';
    }
    // 2. ARIZA SORGUSU
    else if (GlobalLookupType == 'ARIZA')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_ARIZA');
      q.SQL.Text = 'SELECT TOP 200 ' +
                   'ARIZA_KODU AS MAIN_TEXT, ' +
                   'ARIZA_ADI AS SUB_TEXT ' +
                   'FROM [TBLURTBAKIMARIZATIP] WITH (NOLOCK) ' +
                   'ORDER BY ARIZA_KODU';
    }
    // 3. MAKİNE SORGUSU
    else if (GlobalLookupType == 'MAKINE')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_MAKINE');
      q.SQL.Text = 'SELECT TOP 200 ' +
                   'MAKINE_KODU AS MAIN_TEXT, ' +
                   'MAKINE_ADI AS SUB_TEXT ' +
                   'FROM [TBLURTMAKINESB] WITH (NOLOCK) ' +
                   'ORDER BY MAKINE_KODU';
    }
    // 4. BAĞLANTI SORGUSU
    else if (GlobalLookupType == 'BAGLANTI')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_BAGLANTI');
      q.SQL.Text = 'SELECT TOP 200 ' +
                   'BAKIM_KODU AS MAIN_TEXT, ' +
                   'BAKIM_ACIKLAMA AS SUB_TEXT ' +
                   'FROM [TBLURTBAKIMSB] WITH (NOLOCK) ' +
                   'WHERE BAKIM_TURU = 2 ' +
                   'ORDER BY BAKIM_KODU';
    }
    // 5. OPERATÖR SORGUSU
    else if (GlobalLookupType == 'OPERATOR')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_OPERATOR');
      q.SQL.Text = 'SELECT TOP 200 ' +
                   '(OPERATOR_KODU + '' - '' + ISNULL(OPERATOR_ADI, '''')) AS MAIN_TEXT, ' +
                   ''''' AS SUB_TEXT ' +
                   'FROM [TBLURTOPERATORSB] WITH (NOLOCK) ' +
                   'WHERE ISNULL(PASIF, 0) = 0 ' +
                   'ORDER BY OPERATOR_KODU';
    }

    q.Open;

    JsonStr = '[';
    while (not q.Eof)
    {
      if (JsonStr <> '[') { JsonStr = JsonStr + ','; }
      
      CleanMain = q.FieldByName('MAIN_TEXT').AsString;
      CleanMain = clGetStringReplace(CleanMain, '"', '\"');
      CleanMain = clGetStringReplace(CleanMain, Chr(13), '');
      CleanMain = clGetStringReplace(CleanMain, Chr(10), '');

      CleanSub = q.FieldByName('SUB_TEXT').AsString;
      CleanSub = clGetStringReplace(CleanSub, '"', '\"');
      CleanSub = clGetStringReplace(CleanSub, Chr(13), '');
      CleanSub = clGetStringReplace(CleanSub, Chr(10), '');

      JsonStr = JsonStr + '{"clCaption":"' + CleanMain + '", "clText":"' + CleanSub + '"}';
      q.Next;
    }
    
  finally
    q.Free;
  }
  
  if (JsonStr == '[') { JsonStr = '[{"clCaption":"' + GetText('LST_BOS') + '", "clText":""}]'; }
  else { JsonStr = JsonStr + ']'; }
  
  if (RehberJsonData <> nil) { RehberJsonData.Free; }
  RehberJsonData = Clomosy.clDataSetFromJSON(JsonStr);
  LsvBelgeRehber.clLoadProListViewDataFromDataset(RehberJsonData);
  RehberForm.Run;
}


void BtnRehberBelgeClick; { GlobalLookupType = 'BELGE'; OpenRehber; }
void BtnRehberArizaClick; { GlobalLookupType = 'ARIZA'; OpenRehber; }
void BtnRehberMakineClick; { GlobalLookupType = 'MAKINE'; OpenRehber; }
void BtnRehberBaglantiClick; { GlobalLookupType = 'BAGLANTI'; OpenRehber; }
void BtnRehberOperatorClick; { GlobalLookupType = 'OPERATOR'; OpenRehber; }

{
  IsDBConnected = False;
  FormMain = TclGameForm.Create(Self);
  FormMain.LytTopBar.Visible = False;
  FormMain.BtnGoBack.Visible = False;
  FormMain.BtnFormMenu.Visible = False;
  FormMain.AddNewEvent(FormMain, tbeOnVirtualKeyboardShown, 'OnKeyboardShow');
  FormMain.AddNewEvent(FormMain, tbeOnVirtualKeyboardHidden, 'OnKeyboardHide');
  FormMain.AddNewEvent(FormMain, tbeOnFormActivate, 'DiliVeArayuzuGuncelle');

  UiFontSize = 14;
  OkunanFontAdi = 'Arial'; 
  gAktifDilIndex = 0;
  gBaglantiDenendi = 0;
  
  AyarlariYukle;
  Arz_LoadDemoData;

  PnlNavBar = FormMain.AddNewProPanel(FormMain, 'PnlNavBar');
  PnlNavBar.Align = alTop;
  PnlNavBar.Height = 70;
  StyleHeaderBar(PnlNavBar);

  BtnGeri = FormMain.AddNewProButton(PnlNavBar, 'BtnGeri', '<');
  BtnGeri.Align = alLeft; BtnGeri.Width = 48; BtnGeri.Margins.Top = 20;
  BtnGeri.Margins.Bottom = 0;
  BtnGeri.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnGeri.clProSettings.BorderWidth = 0; BtnGeri.clProSettings.IsFill = False;
  BtnGeri.clProSettings.FontSize = 20; BtnGeri.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnGeri.clProSettings.FontName = OkunanFontAdi;
  BtnGeri.SetclProSettings(BtnGeri.clProSettings);
  FormMain.AddNewEvent(BtnGeri, tbeOnClick, 'GoBack');

  LblNavTitle = FormMain.AddNewProLabel(PnlNavBar, 'LblNavTitle', '');
  LblNavTitle.Align = alClient; LblNavTitle.Margins.Top = 30; LblNavTitle.Margins.Bottom = 0; LblNavTitle.Margins.Left = 10;
  LblNavTitle.clProSettings.FontColor = clAlphaColor.clWhite;
  LblNavTitle.clProSettings.FontSize = UiFontSize + 4;
  LblNavTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblNavTitle.clProSettings.FontName = OkunanFontAdi;
  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);

  // --- ALT NAVİGASYON (BOTTOM NAV) ---
  PnlBottomNav = FormMain.AddNewProPanel(FormMain, 'PnlBottomNav');
  PnlBottomNav.Align = alBottom; 
  PnlBottomNav.Height = 60; 
  PnlBottomNav.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 
  PnlBottomNav.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1'); 
  PnlBottomNav.clProSettings.BorderWidth = 2; 
  PnlBottomNav.SetclProSettings(PnlBottomNav.clProSettings);

  BtnNav1 = FormMain.AddNewProButton(PnlBottomNav, 'BtnNav1', '📝 Hareket Kaydı'); 
  BtnNav1.Align = alLeft; 
  BtnNav1.Width = FormMain.clWidth / 2; 
  BtnNav1.clProSettings.BackgroundColor = clAlphaColor.clNull; 
  BtnNav1.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeAcikRenk); 
  BtnNav1.clProSettings.BorderWidth = 0; 
  BtnNav1.clProSettings.FontName = OkunanFontAdi; 
  BtnNav1.clProSettings.TextSettings.Font.Style = [fsBold]; 
  BtnNav1.SetclProSettings(BtnNav1.clProSettings); 
  FormMain.AddNewEvent(BtnNav1, tbeOnClick, 'NavBtnClick');
  
  BtnNav2 = FormMain.AddNewProButton(PnlBottomNav, 'BtnNav2', '🛠 Arıza Tanımları'); 
  BtnNav2.Align = alClient; 
  BtnNav2.clProSettings.BackgroundColor = clAlphaColor.clNull; 
  BtnNav2.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8'); 
  BtnNav2.clProSettings.BorderWidth = 0; 
  BtnNav2.clProSettings.FontName = OkunanFontAdi; 
  BtnNav2.SetclProSettings(BtnNav2.clProSettings); 
  FormMain.AddNewEvent(BtnNav2, tbeOnClick, 'NavBtnClick');

  ScrollForm = FormMain.AddNewVertScrollBox(FormMain, 'ScrollForm');
  ScrollForm.Align = alClient;

  PnlHeaderTop = FormMain.AddNewProPanel(ScrollForm, 'PnlHeaderTop');
  PnlHeaderTop.Align = alTop;
  PnlHeaderTop.Height = 56;
  StyleHeaderBar(PnlHeaderTop);

  BtnScroll = FormMain.AddNewHorzScrollBox(PnlHeaderTop, 'BtnScroll'); 
  BtnScroll.Align = alClient; 
  BtnScroll.Margins.Left = 8; 
  BtnScroll.Margins.Right = 8;

  BtnYeni = FormMain.AddNewProButton(BtnScroll, 'BtnYeni', '');
  BtnYeni.Align = alLeft; BtnYeni.Width = 82; BtnYeni.Margins.Left = 4; BtnYeni.Margins.Top = 9; BtnYeni.Margins.Bottom = 9;
  StyleWhiteButton(BtnYeni);
  FormMain.AddNewEvent(BtnYeni, tbeOnClick, 'Arz_BtnYeniClick');

  BtnKaydet = FormMain.AddNewProButton(BtnScroll, 'BtnKaydet', '');
  BtnKaydet.Align = alLeft; BtnKaydet.Width = 88; BtnKaydet.Margins.Left = 8; BtnKaydet.Margins.Top = 9; BtnKaydet.Margins.Bottom = 9;
  StyleWhiteButton(BtnKaydet);
  FormMain.AddNewEvent(BtnKaydet, tbeOnClick, 'Arz_KaydetKayit');

  PnlMainCard = FormMain.AddNewProPanel(ScrollForm, 'PnlMainCard');
  PnlMainCard.Align = alTop;
  PnlMainCard.Height = 2000;
  PnlMainCard.Margins.Left = 15; PnlMainCard.Margins.Right = 15; PnlMainCard.Margins.Top = 15; PnlMainCard.Margins.Bottom = 25;
  StyleMainCard(PnlMainCard);
  PnlMainCard.Visible = True;
  
  LblSect1 = FormMain.AddNewProLabel(PnlMainCard, 'LblSect1', '');
  LblSect1.Align = alTop; LblSect1.Height = 35; LblSect1.Margins.Left = 15; LblSect1.Margins.Top = 15;
  StyleSectionTitle(LblSect1);

  Arz_GrpBelgeNo = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpBelgeNo');
  Arz_GrpBelgeNo.Align = alTop; Arz_GrpBelgeNo.Height = 65; Arz_GrpBelgeNo.Margins.Left = 15; Arz_GrpBelgeNo.Margins.Right = 15; Arz_GrpBelgeNo.Margins.Top = 10;
  StyleInputPanel(Arz_GrpBelgeNo);

  Arz_LblBelgeNo = FormMain.AddNewProLabel(Arz_GrpBelgeNo, 'Arz_LblBelgeNo', '');
  Arz_LblBelgeNo.Align = alTop; Arz_LblBelgeNo.Height = 18; Arz_LblBelgeNo.Margins.Left = 10; Arz_LblBelgeNo.Margins.Top = 5;
  StyleInputLabel(Arz_LblBelgeNo);

  Arz_BtnRehberBelge = FormMain.AddNewProButton(Arz_GrpBelgeNo, 'Arz_BtnRehberBelge', '🔍');
  Arz_BtnRehberBelge.Align = alRight; Arz_BtnRehberBelge.Width = 45; Arz_BtnRehberBelge.Margins.Right = 5; Arz_BtnRehberBelge.Margins.Bottom = 5;
  StyleRehberButton(Arz_BtnRehberBelge);
  FormMain.AddNewEvent(Arz_BtnRehberBelge, tbeOnClick, 'BtnRehberBelgeClick');

  Arz_EdtBelgeNo = FormMain.AddNewProEdit(Arz_GrpBelgeNo, 'Arz_EdtBelgeNo', '');
  Arz_EdtBelgeNo.Align = alClient; Arz_EdtBelgeNo.Margins.Left = 10; Arz_EdtBelgeNo.Margins.Right = 5; Arz_EdtBelgeNo.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtBelgeNo); Arz_EdtBelgeNo.CanFocus = False;
  FormMain.AddNewEvent(Arz_EdtBelgeNo, tbeOnClick, 'BtnRehberBelgeClick');

  Arz_GrpTarih = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpTarih');
  Arz_GrpTarih.Align = alTop; Arz_GrpTarih.Height = 65; Arz_GrpTarih.Margins.Left = 15; Arz_GrpTarih.Margins.Right = 15; Arz_GrpTarih.Margins.Top = 10;
  StyleInputPanel(Arz_GrpTarih);

  Arz_LblTarih = FormMain.AddNewProLabel(Arz_GrpTarih, 'Arz_LblTarih', '');
  Arz_LblTarih.Align = alTop; Arz_LblTarih.Height = 18; Arz_LblTarih.Margins.Left = 10; Arz_LblTarih.Margins.Top = 5;
  StyleInputLabel(Arz_LblTarih);

  Arz_EdtTarih = FormMain.AddNewProEdit(Arz_GrpTarih, 'Arz_EdtTarih', '');
  Arz_EdtTarih.Align = alClient; Arz_EdtTarih.Margins.Left = 10; Arz_EdtTarih.Margins.Right = 10; Arz_EdtTarih.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtTarih); Arz_EdtTarih.CanFocus = False;

  Arz_GrpArizaKodu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpArizaKodu');
  Arz_GrpArizaKodu.Align = alTop; Arz_GrpArizaKodu.Height = 65; Arz_GrpArizaKodu.Margins.Left = 15; Arz_GrpArizaKodu.Margins.Right = 15; Arz_GrpArizaKodu.Margins.Top = 10;
  StyleInputPanel(Arz_GrpArizaKodu);

  Arz_LblArizaKodu = FormMain.AddNewProLabel(Arz_GrpArizaKodu, 'Arz_LblArizaKodu', '');
  Arz_LblArizaKodu.Align = alTop; Arz_LblArizaKodu.Height = 18; Arz_LblArizaKodu.Margins.Left = 10; Arz_LblArizaKodu.Margins.Top = 5;
  StyleInputLabel(Arz_LblArizaKodu);

  Arz_BtnRehberAriza = FormMain.AddNewProButton(Arz_GrpArizaKodu, 'Arz_BtnRehberAriza', '🔍');
  Arz_BtnRehberAriza.Align = alRight; Arz_BtnRehberAriza.Width = 45; Arz_BtnRehberAriza.Margins.Right = 5; Arz_BtnRehberAriza.Margins.Bottom = 5;
  StyleRehberButton(Arz_BtnRehberAriza);
  FormMain.AddNewEvent(Arz_BtnRehberAriza, tbeOnClick, 'BtnRehberArizaClick');

  Arz_EdtArizaKodu = FormMain.AddNewProEdit(Arz_GrpArizaKodu, 'Arz_EdtArizaKodu', '');
  Arz_EdtArizaKodu.Align = alClient; Arz_EdtArizaKodu.Margins.Left = 10; Arz_EdtArizaKodu.Margins.Right = 5; Arz_EdtArizaKodu.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtArizaKodu); Arz_EdtArizaKodu.CanFocus = False;
  FormMain.AddNewEvent(Arz_EdtArizaKodu, tbeOnClick, 'BtnRehberArizaClick');

  Arz_GrpMakineKodu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpMakineKodu');
  Arz_GrpMakineKodu.Align = alTop; Arz_GrpMakineKodu.Height = 65; Arz_GrpMakineKodu.Margins.Left = 15; Arz_GrpMakineKodu.Margins.Right = 15; Arz_GrpMakineKodu.Margins.Top = 10;
  StyleInputPanel(Arz_GrpMakineKodu);

  Arz_LblMakineKodu = FormMain.AddNewProLabel(Arz_GrpMakineKodu, 'Arz_LblMakineKodu', '');
  Arz_LblMakineKodu.Align = alTop; Arz_LblMakineKodu.Height = 18; Arz_LblMakineKodu.Margins.Left = 10; Arz_LblMakineKodu.Margins.Top = 5;
  StyleInputLabel(Arz_LblMakineKodu);

  Arz_BtnRehberMakine = FormMain.AddNewProButton(Arz_GrpMakineKodu, 'Arz_BtnRehberMakine', '🔍');
  Arz_BtnRehberMakine.Align = alRight; Arz_BtnRehberMakine.Width = 45; Arz_BtnRehberMakine.Margins.Right = 5; Arz_BtnRehberMakine.Margins.Bottom = 5;
  StyleRehberButton(Arz_BtnRehberMakine);
  FormMain.AddNewEvent(Arz_BtnRehberMakine, tbeOnClick, 'BtnRehberMakineClick');

  Arz_EdtMakineKodu = FormMain.AddNewProEdit(Arz_GrpMakineKodu, 'Arz_EdtMakineKodu', '');
  Arz_EdtMakineKodu.Align = alClient; Arz_EdtMakineKodu.Margins.Left = 10; Arz_EdtMakineKodu.Margins.Right = 5; Arz_EdtMakineKodu.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtMakineKodu); Arz_EdtMakineKodu.CanFocus = False;
  FormMain.AddNewEvent(Arz_EdtMakineKodu, tbeOnClick, 'BtnRehberMakineClick');

  Arz_GrpBaglanti = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpBaglanti');
  Arz_GrpBaglanti.Align = alTop; Arz_GrpBaglanti.Height = 65; Arz_GrpBaglanti.Margins.Left = 15; Arz_GrpBaglanti.Margins.Right = 15; Arz_GrpBaglanti.Margins.Top = 10;
  StyleInputPanel(Arz_GrpBaglanti);

  Arz_LblBaglanti = FormMain.AddNewProLabel(Arz_GrpBaglanti, 'Arz_LblBaglanti', '');
  Arz_LblBaglanti.Align = alTop; Arz_LblBaglanti.Height = 18; Arz_LblBaglanti.Margins.Left = 10; Arz_LblBaglanti.Margins.Top = 5;
  StyleInputLabel(Arz_LblBaglanti);

  Arz_BtnRehberBaglanti = FormMain.AddNewProButton(Arz_GrpBaglanti, 'Arz_BtnRehberBaglanti', '🔍');
  Arz_BtnRehberBaglanti.Align = alRight; Arz_BtnRehberBaglanti.Width = 45; Arz_BtnRehberBaglanti.Margins.Right = 5; Arz_BtnRehberBaglanti.Margins.Bottom = 5;
  StyleRehberButton(Arz_BtnRehberBaglanti);
  FormMain.AddNewEvent(Arz_BtnRehberBaglanti, tbeOnClick, 'BtnRehberBaglantiClick');

  Arz_EdtBaglanti = FormMain.AddNewProEdit(Arz_GrpBaglanti, 'Arz_EdtBaglanti', '');
  Arz_EdtBaglanti.Align = alClient; Arz_EdtBaglanti.Margins.Left = 10; Arz_EdtBaglanti.Margins.Right = 5; Arz_EdtBaglanti.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtBaglanti); Arz_EdtBaglanti.CanFocus = False;
  FormMain.AddNewEvent(Arz_EdtBaglanti, tbeOnClick, 'BtnRehberBaglantiClick');

  Arz_GrpBaslangic = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpBaslangic');
  Arz_GrpBaslangic.Align = alTop; Arz_GrpBaslangic.Height = 65; Arz_GrpBaslangic.Margins.Left = 15; Arz_GrpBaslangic.Margins.Right = 15; Arz_GrpBaslangic.Margins.Top = 10;
  StyleInputPanel(Arz_GrpBaslangic);

  Arz_LblBaslangic = FormMain.AddNewProLabel(Arz_GrpBaslangic, 'Arz_LblBaslangic', '');
  Arz_LblBaslangic.Align = alTop; Arz_LblBaslangic.Height = 18; Arz_LblBaslangic.Margins.Left = 10; Arz_LblBaslangic.Margins.Top = 5;
  StyleInputLabel(Arz_LblBaslangic);

  Arz_EdtBaslangicSaat = FormMain.AddNewProEdit(Arz_GrpBaslangic, 'Arz_EdtBaslangicSaat', '');
  Arz_EdtBaslangicSaat.Align = alRight; Arz_EdtBaslangicSaat.Width = 80; Arz_EdtBaslangicSaat.Margins.Right = 10; Arz_EdtBaslangicSaat.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtBaslangicSaat); Arz_EdtBaslangicSaat.ReadOnly = True; Arz_EdtBaslangicSaat.CanFocus = False;

  Arz_EdtBaslangic = FormMain.AddNewProEdit(Arz_GrpBaslangic, 'Arz_EdtBaslangic', '');
  Arz_EdtBaslangic.Align = alClient; Arz_EdtBaslangic.Margins.Left = 10; Arz_EdtBaslangic.Margins.Right = 5; Arz_EdtBaslangic.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtBaslangic); Arz_EdtBaslangic.ReadOnly = True; Arz_EdtBaslangic.CanFocus = False;

  Arz_GrpGirisZamani = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpGirisZamani');
  Arz_GrpGirisZamani.Align = alTop; Arz_GrpGirisZamani.Height = 65; Arz_GrpGirisZamani.Margins.Left = 15; Arz_GrpGirisZamani.Margins.Right = 15; Arz_GrpGirisZamani.Margins.Top = 10;
  StyleInputPanel(Arz_GrpGirisZamani);

  Arz_LblGirisZamani = FormMain.AddNewProLabel(Arz_GrpGirisZamani, 'Arz_LblGirisZamani', '');
  Arz_LblGirisZamani.Align = alTop; Arz_LblGirisZamani.Height = 18; Arz_LblGirisZamani.Margins.Left = 10; Arz_LblGirisZamani.Margins.Top = 5;
  StyleInputLabel(Arz_LblGirisZamani);

  Arz_EdtGirisZamani = FormMain.AddNewProEdit(Arz_GrpGirisZamani, 'Arz_EdtGirisZamani', '');
  Arz_EdtGirisZamani.Align = alClient; Arz_EdtGirisZamani.Margins.Left = 10; Arz_EdtGirisZamani.Margins.Right = 10; Arz_EdtGirisZamani.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtGirisZamani); Arz_EdtGirisZamani.ReadOnly = True; Arz_EdtGirisZamani.CanFocus = False;

  Arz_GrpPlanlananBitis = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpPlanlananBitis');
  Arz_GrpPlanlananBitis.Align = alTop; Arz_GrpPlanlananBitis.Height = 65; Arz_GrpPlanlananBitis.Margins.Left = 15; Arz_GrpPlanlananBitis.Margins.Right = 15; Arz_GrpPlanlananBitis.Margins.Top = 10;
  StyleInputPanel(Arz_GrpPlanlananBitis);

  Arz_LblPlanlananBitis = FormMain.AddNewProLabel(Arz_GrpPlanlananBitis, 'Arz_LblPlanlananBitis', '');
  Arz_LblPlanlananBitis.Align = alTop; Arz_LblPlanlananBitis.Height = 18; Arz_LblPlanlananBitis.Margins.Left = 10; Arz_LblPlanlananBitis.Margins.Top = 5;
  StyleInputLabel(Arz_LblPlanlananBitis);

  Arz_CmbPlanlananBitis = FormMain.AddNewComboBox(Arz_GrpPlanlananBitis, 'Arz_CmbPlanlananBitis');
  Arz_CmbPlanlananBitis.Align = alClient; Arz_CmbPlanlananBitis.Margins.Left = 10; Arz_CmbPlanlananBitis.Margins.Right = 10; Arz_CmbPlanlananBitis.Margins.Bottom = 5;

  Arz_GrpKisiSayisi = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpKisiSayisi');
  Arz_GrpKisiSayisi.Align = alTop; Arz_GrpKisiSayisi.Height = 65; Arz_GrpKisiSayisi.Margins.Left = 15; Arz_GrpKisiSayisi.Margins.Right = 15; Arz_GrpKisiSayisi.Margins.Top = 10;
  StyleInputPanel(Arz_GrpKisiSayisi);

  Arz_LblKisiSayisi = FormMain.AddNewProLabel(Arz_GrpKisiSayisi, 'Arz_LblKisiSayisi', '');
  Arz_LblKisiSayisi.Align = alTop; Arz_LblKisiSayisi.Height = 18; Arz_LblKisiSayisi.Margins.Left = 10; Arz_LblKisiSayisi.Margins.Top = 5;
  StyleInputLabel(Arz_LblKisiSayisi);

  Arz_EdtKisiSayisi = FormMain.AddNewProEdit(Arz_GrpKisiSayisi, 'Arz_EdtKisiSayisi', '');
  Arz_EdtKisiSayisi.Align = alClient; Arz_EdtKisiSayisi.Margins.Left = 10; Arz_EdtKisiSayisi.Margins.Right = 10; Arz_EdtKisiSayisi.Margins.Bottom = 5;
  StyleInputEdit(Arz_EdtKisiSayisi);
  BindInputFocus(Arz_EdtKisiSayisi);
  FormMain.AddNewEvent(Arz_EdtKisiSayisi, tbeOnEnter, 'KlvKisiSayisi');

  Arz_GrpOperator = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpOperator');
  Arz_GrpOperator.Align = alTop; Arz_GrpOperator.Height = 65; Arz_GrpOperator.Margins.Left = 15; Arz_GrpOperator.Margins.Right = 15; Arz_GrpOperator.Margins.Top = 10;
  StyleInputPanel(Arz_GrpOperator);

  Arz_LblOperator = FormMain.AddNewProLabel(Arz_GrpOperator, 'Arz_LblOperator', '');
  Arz_LblOperator.Align = alTop; Arz_LblOperator.Height = 18; Arz_LblOperator.Margins.Left = 10; Arz_LblOperator.Margins.Top = 5;
  StyleInputLabel(Arz_LblOperator);

  Arz_BtnRehberOperator = FormMain.AddNewProButton(Arz_GrpOperator, 'Arz_BtnRehberOperator', '🔍');
  Arz_BtnRehberOperator.Align = alRight; Arz_BtnRehberOperator.Width = 45; Arz_BtnRehberOperator.Margins.Right = 5; Arz_BtnRehberOperator.Margins.Bottom = 5;
  StyleRehberButton(Arz_BtnRehberOperator);
  FormMain.AddNewEvent(Arz_BtnRehberOperator, tbeOnClick, 'BtnRehberOperatorClick');

  Arz_EdtOperator = FormMain.AddNewProEdit(Arz_GrpOperator, 'Arz_EdtOperator', '');
  Arz_EdtOperator.Align = alClient; Arz_EdtOperator.Margins.Left = 10; Arz_EdtOperator.Margins.Right = 5; Arz_EdtOperator.Margins.Bottom = 5;
  StyleReadonlyEdit(Arz_EdtOperator); Arz_EdtOperator.CanFocus = False;
  FormMain.AddNewEvent(Arz_EdtOperator, tbeOnClick, 'BtnRehberOperatorClick');

  Arz_GrpAciklama = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpAciklama');
  Arz_GrpAciklama.Align = alTop; Arz_GrpAciklama.Height = 65; Arz_GrpAciklama.Margins.Left = 15; Arz_GrpAciklama.Margins.Right = 15; Arz_GrpAciklama.Margins.Top = 10;
  StyleInputPanel(Arz_GrpAciklama);

  Arz_LblAciklama = FormMain.AddNewProLabel(Arz_GrpAciklama, 'Arz_LblAciklama', '');
  Arz_LblAciklama.Align = alTop; Arz_LblAciklama.Height = 18; Arz_LblAciklama.Margins.Left = 10; Arz_LblAciklama.Margins.Top = 5;
  StyleInputLabel(Arz_LblAciklama);

  Arz_EdtAciklama = FormMain.AddNewProEdit(Arz_GrpAciklama, 'Arz_EdtAciklama', '');
  Arz_EdtAciklama.Align = alClient; Arz_EdtAciklama.Margins.Left = 10; Arz_EdtAciklama.Margins.Right = 10; Arz_EdtAciklama.Margins.Bottom = 5;
  StyleInputEdit(Arz_EdtAciklama);
  BindInputFocus(Arz_EdtAciklama);
  FormMain.AddNewEvent(Arz_EdtAciklama, tbeOnEnter, 'KlvAciklama');

  LblGridTitle = FormMain.AddNewProLabel(PnlMainCard, 'LblGridTitle', '');
  LblGridTitle.Align = alTop; LblGridTitle.Height = 35; LblGridTitle.Margins.Left = 15; LblGridTitle.Margins.Top = 15;
  StyleSectionTitle(LblGridTitle);

  clProGrid = FormMain.AddNewProGrid(PnlMainCard, 'clProGrid');
  clProGrid.Align = alTop;
  clProGrid.Height = 250;
  clProGrid.Margins.Left = 15;
  clProGrid.Margins.Right = 15;
  clProGrid.Margins.Top = 5;
  clProGrid.Options.ColumnSize.Stretch = True;
  FormMain.AddNewEvent(clProGrid, tbeOnProGridCellClick, 'Arz_ListedenSec');

  LblPhotoTitle = FormMain.AddNewProLabel(PnlMainCard, 'LblPhotoTitle', '');
  LblPhotoTitle.Align = alTop; LblPhotoTitle.Height = 35; LblPhotoTitle.Margins.Left = 15; LblPhotoTitle.Margins.Top = 15;
  StyleSectionTitle(LblPhotoTitle);

  Arz_PnlPhotoKutu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_PnlPhotoKutu');
  Arz_PnlPhotoKutu.Align = alTop; Arz_PnlPhotoKutu.Height = 150; Arz_PnlPhotoKutu.Margins.Left = 15; Arz_PnlPhotoKutu.Margins.Right = 15; Arz_PnlPhotoKutu.Margins.Top = 5;
  StyleInputPanel(Arz_PnlPhotoKutu);

  BtnResimCek = FormMain.AddNewProButton(Arz_PnlPhotoKutu, 'BtnResimCek', '');
  BtnResimCek.Align = alBottom; BtnResimCek.Height = 40; BtnResimCek.Margins.Left = 10; BtnResimCek.Margins.Right = 10; BtnResimCek.Margins.Bottom = 10;
  StylePrimaryButton(BtnResimCek);
  FormMain.AddNewEvent(BtnResimCek, tbeOnClick, 'TakePhotoClick');

  Arz_ImgPhoto = FormMain.AddNewImage(Arz_PnlPhotoKutu, 'Arz_ImgPhoto');
  Arz_ImgPhoto.Align = alClient; Arz_ImgPhoto.Margins.Left = 10; Arz_ImgPhoto.Margins.Top = 10; Arz_ImgPhoto.Margins.Right = 10; Arz_ImgPhoto.Margins.Bottom = 5;

  Arz_LblBakimIhmal = FormMain.AddNewProLabel(PnlMainCard, 'Arz_LblBakimIhmal', '');
  Arz_LblBakimIhmal.Align = alTop; Arz_LblBakimIhmal.Height = 35; Arz_LblBakimIhmal.Margins.Left = 15; Arz_LblBakimIhmal.Margins.Top = 15;
  StyleSectionTitle(Arz_LblBakimIhmal);

  Arz_PnlBakimIhmalKutu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_PnlBakimIhmalKutu');
  Arz_PnlBakimIhmalKutu.Align = alTop; Arz_PnlBakimIhmalKutu.Height = 150; Arz_PnlBakimIhmalKutu.Margins.Left = 15; Arz_PnlBakimIhmalKutu.Margins.Right = 15; Arz_PnlBakimIhmalKutu.Margins.Top = 5;
  StyleInputPanel(Arz_PnlBakimIhmalKutu);

  Arz_MemBakimIhmal = FormMain.AddNewMemo(Arz_PnlBakimIhmalKutu, 'Arz_MemBakimIhmal','');
  Arz_MemBakimIhmal.Align = alClient; Arz_MemBakimIhmal.Margins.Left = 10; Arz_MemBakimIhmal.Margins.Top = 10; Arz_MemBakimIhmal.Margins.Right = 10; Arz_MemBakimIhmal.Margins.Bottom = 10;
  FormMain.AddNewEvent(Arz_MemBakimIhmal, tbeOnEnter, 'KlvBakimIhmal');

  // --- ARIZA TANIMLARI PANELİNİ İNŞA ET ---
  BuildArizaTanimPaneli;

  Arz_ClearForm;
  ApplyUiSettings;
  Arz_RefreshList;
  FormMain.Run;
}
 kodda belge no basıldığın da gelecek alanlar bozuk geliyor ancak sistemde sütun adları doğru    -- 1. BELGE SORGUSU (Tablo Alias'ları eklendi)
SELECT TOP 200 
    H.BELGE_NO AS MAIN_TEXT, 
    M.MAKINE_KODU AS SUB_TEXT 
FROM [TBLURTBAKIMHR] H WITH (NOLOCK) 
INNER JOIN [TBLURTMAKINESB] M WITH (NOLOCK) ON H.MAKINE_KODU_RECID = M.REC_NO 
ORDER BY H.BELGE_NO DESC;

-- 2. ARIZA SORGUSU
SELECT TOP 200 
    ARIZA_KODU AS MAIN_TEXT, 
    ARIZA_ADI AS SUB_TEXT 
FROM [TBLURTBAKIMARIZATIP] WITH (NOLOCK) 
ORDER BY ARIZA_KODU;

-- 3. MAKİNE SORGUSU
SELECT TOP 200 
    MAKINE_KODU AS MAIN_TEXT, 
    MAKINE_ADI AS SUB_TEXT 
FROM [TBLURTMAKINESB] WITH (NOLOCK) 
ORDER BY MAKINE_KODU;

-- 4. BAĞLANTI SORGUSU
SELECT TOP 200 
    BAKIM_KODU AS MAIN_TEXT, 
    BAKIM_ACIKLAMA AS SUB_TEXT 
FROM [TBLURTBAKIMSB] WITH (NOLOCK) 
WHERE BAKIM_TURU = 2 
ORDER BY BAKIM_KODU;

-- 5. OPERATÖR SORGUSU
SELECT TOP 200 
    (OPERATOR_KODU + ' - ' + ISNULL(OPERATOR_ADI, '')) AS MAIN_TEXT, 
    '' AS SUB_TEXT 
FROM [TBLURTOPERATORSB] WITH (NOLOCK) 
WHERE ISNULL(PASIF, 0) = 0 
ORDER BY OPERATOR_KODU;
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">]]> Wed, 22 Jul 2026 17:22:05 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1628&PID=3768#3768