arıza

== AValue) { idx = i; Break; }

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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kayra22 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 20 Temmuz 2026 Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı kayra22 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: arıza Gönderim Zamanı: 7 Saat 16 Dakika Önce 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">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 990	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 6 Saat 23 Dakika Önce 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">