Clomosy | Forum : stok ekleme

stok ekleme : Merhaba Kayra,Hataya sebep olabilecek...

Wed, 08 Jul 2026 17:56:06 +0000

Yazar: Emr.Erkmn
Konu: 1606
G�nderim Zaman�: 08 Temmuz 2026 Saat 17:56

Merhaba Kayra,

Hataya sebep olabilecek durumlar
bile�enler de isim �ak��mas�, main_text ve sub_text isimli etikler bir ka� yerde kullan�l�yor.
bir di�eri de hatal� veri i�leme t�r�

var

BakimForm, RehberForm, StokFiltreForm: TclForm;

LsvRehber: TClProListView;

EdtAramaRehber: TclProEdit;

DataRehber: TclJsonQuery;

GlobalLookupType: String;

PnlNavBar, PnlHeaderTop, PnlMainCard: TclProPanel;

BtnScroll: TclHorzScrollBox;

LblNavTitle, LblSect1Title, LblGridTitle, LblPhotoTitle, LblTalimatTitle: TClProLabel;

BtnGeri, BtnYeni, BtnKaydet, BtnYazdir, BtnResimCek, BtnOperatorKaydet: TClProButton;

BtnRehberAc, BtnBakimKoduRehber, BtnMakineKoduRehber, BtnBaglantiRehber, BtnCariKoduRehber: TClProButton;

GrpBelgeNo, GrpTarih, GrpBakimTipi, GrpBakimTuru, GrpBakimKodu, GrpMakineKodu, GrpBaglanti, GrpCariKodu: TclProPanel;

GrpBaslangic, GrpGirisZamani, GrpPlanlananBitis, GrpBakimDurumu, GrpKisiSayisi, GrpOperatorGrup, GrpOperator, GrpOperatorBilgisi, GrpAciklama: TclProPanel;

LblBelgeNo, LblTarih, LblBakimTipi, LblBakimTuru, LblBakimKodu, LblMakineKodu, LblBaglanti, LblCariKodu: TClProLabel;

LblBaslangic, LblGirisZamani, LblPlanlananBitis, LblBakimDurumu, LblKisiSayisi, LblOperatorGrup, LblOperator, LblOperatorBilgisi, LblAciklama: TClProLabel;

EdtBelgeNo, EdtTarih, EdtBakimKodu, EdtMakineKodu, EdtBaglanti, EdtCariKodu: TclProEdit;

EdtBaslangic, EdtBaslangicSaat, EdtGirisZamani, EdtKisiSayisi, EdtOperatorBilgisi, EdtAciklama: TclProEdit;

CmbBakimTipi, CmbBakimTuru, CmbOperatorGrup, CmbOperator, CmbYeniOperatorGrup, CmbPlanlananBitis, CmbBakimDurumu: TClComboBox;

HScrollGrid: TclHorzScrollBox;

PnlGridContainer, PnlGridHeader, PnlGridTitleArea: TclProPanel;

ListGrid: TClProListView;

ListGridDesigner: TClProListViewDesignerPanel;

LblCol1, LblCol2, LblCol3, LblCol4, LblCol5, LblCol6: TClProLabel;

LblD1, LblD2, LblD3, LblD4, LblD5, LblD6: TClProLabel;

BtnStokEkleAnaForm: TClProButton;

PnlTalimatKutu, PnlPhotoKutu: TclProPanel;

MemTabContent: TclMemo;

ScrollForm: TclVertScrollBox;

ImgPhoto, ImgBelge, ImgBakim, ImgMakine, ImgBaglanti, ImgCari: TclImage;

MyJsonItems, KayitliOperatorA, KayitliOperatorB, KayitliOperatorC: String;

UiFontSize, OkunanStilIndex: Integer;

OkunanFontAdi: String;

ThemeKoyuRenk, ThemeAcikRenk: String;

ThemeBgColor, ThemeBorderColor, ThemeTextColor: String;

gAktifDilIndex: Integer;

gTabletModuAktif: Integer;

gTabletYonIndex: Integer;

gCounter: Integer;

PnlFiltreSag, PnlFiltreSagUst, PnlFiltreSagAlt, PnlFiltreAramaKutu, PnlEklemeKutu, PnlAktarKutu: TclProPanel;

LsvKisitUyanlar, LsvEklenecekler: TClProListView;

LsvKisitDP, LsvEklenecekDP: TclProListViewDesignerPanel;

LblKisitD1, LblKisitD2, LblEkleD1, LblEkleD2, LblEkleD3, LblFiltreStokKodu: TClProLabel;

BtnKodRehber: TclProButton;

EdtFiltreStokKodu, EdtBilesenMiktar: TclProEdit;

BtnFiltreAra, BtnBilesenEkle, BtnAktar: TClProButton;

JsonEkleneceklerHavuzu, SecilenStokKodu, SecilenStokAdi: String;

void OnKeyboardShow;

{

ScrollForm.Margins.Bottom = BakimForm.clVKBoundsHeight;

}

void OnKeyboardHide;

{

ScrollForm.Margins.Bottom = 0;

}

function GetText(Key: String): String;

{

Result = Key;

if (gAktifDilIndex == 1)

{

if (Key == 'NAV_TITLE') { Result = 'Maintenance Movements'; }

else if (Key == 'YENI') { Result = 'New'; }

else if (Key == 'KAYDET') { Result = 'Save'; }

else if (Key == 'YAZDIR') { Result = 'Print'; }

else if (Key == 'SECT1') { Result = '1. GENERAL INFO'; }

else if (Key == 'SECT2') { Result = '2. MATERIAL & COST'; }

else if (Key == 'SECT3') { Result = '3. VISUALS'; }

else if (Key == 'SECT4') { Result = '4. INSTRUCTIONS'; }

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 == 'BAKIM_DURUMU') { Result = 'Maintenance Status:'; }

else if (Key == 'BAKIM_YAPILDI') { Result = 'Done (Completed)'; }

else if (Key == 'BAKIM_YAPILMADI') { Result = 'Not Done (Pending)'; }

else if (Key == 'KISI_SAYISI') { Result = 'Headcount:'; }

else if (Key == 'OP_GRUP') { Result = 'Operator Group:'; }

else if (Key == 'OPERATOR') { Result = 'Operator in Charge:'; }

else if (Key == 'OP_BILGI') { Result = 'New Operator Info:'; }

else if (Key == 'ACIKLAMA') { Result = 'Description:'; }

else if (Key == 'KAMERA') { Result = 'Open Camera'; }

else if (Key == 'OP_KAYDET') { Result = 'Save'; }

else if (Key == 'TALIMAT_METNI') { Result = '1. Cut off machine power.' + #13#10 + '2. Attach safety lock.' + #13#10 + '3. Check bearing housings.' + #13#10 + '4. Tighten and align.' + #13#10 + '5. Perform a test run.'; }

else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Form cleared.'; }

else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'Please enter Doc No before saving!'; }

else if (Key == 'MSG_DURUM_SECIN') { Result = 'Please select maintenance status!'; }

else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'SAVE SUCCESSFUL!'; }

else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Added Data: '; }

else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'Please enter Operator Info first.'; }

else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'Please select a group for the operator.'; }

else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Operator saved.'; }

else if (Key == 'ARA_BELGE') { Result = 'Search Document...'; }

else if (Key == 'GRID_COL1') { Result = 'Item Code'; }

else if (Key == 'GRID_COL2') { Result = 'Item Name'; }

else if (Key == 'GRID_COL3') { Result = 'Qty'; }

else if (Key == 'GRID_COL4') { Result = 'Unit'; }

else if (Key == 'GRID_COL5') { Result = 'Price'; }

else if (Key == 'GRID_COL6') { Result = 'Amount'; }

else if (Key == 'STOK_EKLE') { Result = '+ Add Stock'; }

else if (Key == 'LST_BOS') { Result = 'No material records found.'; }

}

else if (gAktifDilIndex == 2)

{

if (Key == 'NAV_TITLE') { Result = 'Wartungsbewegungen'; }

else if (Key == 'YENI') { Result = 'Neu'; }

else if (Key == 'KAYDET') { Result = 'Speichern'; }

else if (Key == 'YAZDIR') { Result = 'Drucken'; }

else if (Key == 'SECT1') { Result = '1. ALLGEMEINE INFO'; }

else if (Key == 'SECT2') { Result = '2. MATERIAL & KOSTEN'; }

else if (Key == 'SECT3') { Result = '3. VISUALS'; }

else if (Key == 'SECT4') { Result = '4. ANWEISUNGEN'; }

else if (Key == 'BELGE_NO') { Result = 'Dokumenten-Nr.:'; }

else if (Key == 'TARIH') { Result = 'Datum:'; }

else if (Key == 'BAKIM_TIPI') { Result = 'Wartungsart:'; }

else if (Key == 'BAKIM_TURU') { Result = 'Wartungskategorie:'; }

else if (Key == 'BAKIM_KODU') { Result = 'Wartungscode:'; }

else if (Key == 'MAKINE_KODU') { Result = 'Maschinencode:'; }

else if (Key == 'BAGLANTI') { Result = 'Verbindung:'; }

else if (Key == 'CARI_KODU') { Result = 'Aktueller Code:'; }

else if (Key == 'BASLANGIC') { Result = 'Startdatum/-zeit:'; }

else if (Key == 'GIRIS_ZAMANI') { Result = 'Eintrittszeit:'; }

else if (Key == 'PLANLANAN') { Result = 'Geplante Endzeit:'; }

else if (Key == 'BAKIM_DURUMU') { Result = 'Wartungsstatus:'; }

else if (Key == 'BAKIM_YAPILDI') { Result = 'Erledigt'; }

else if (Key == 'BAKIM_YAPILMADI') { Result = 'Nicht Erledigt'; }

else if (Key == 'KISI_SAYISI') { Result = 'Kopfzahl:'; }

else if (Key == 'OP_GRUP') { Result = 'Bedienergruppe:'; }

else if (Key == 'OPERATOR') { Result = 'Zust�ndiger Bediener:'; }

else if (Key == 'OP_BILGI') { Result = 'Neue Bedienerinfo:'; }

else if (Key == 'ACIKLAMA') { Result = 'Beschreibung:'; }

else if (Key == 'KAMERA') { Result = 'Kamera �ffnen'; }

else if (Key == 'OP_KAYDET') { Result = 'Speichern'; }

else if (Key == 'TALIMAT_METNI') { Result = '1. Maschinenstrom abschalten.' + #13#10 + '2. Sicherheitsschloss anbringen.' + #13#10 + '3. Lagergeh�use pr�fen.' + #13#10 + '4. Festziehen und ausrichten.' + #13#10 + '5. Testlauf durchf�hren.'; }

else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Formular geleert.'; }

else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'Bitte Dokumenten-Nr. vor dem Speichern eingeben!'; }

else if (Key == 'MSG_DURUM_SECIN') { Result = 'Bitte Wartungsstatus ausw�hlen!'; }

else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'SPEICHERN ERFOLGREICH!'; }

else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Hinzugef�gte Daten: '; }

else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'Bitte zuerst Bedienerinfo eingeben.'; }

else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'Bitte eine Gruppe f�r den Bediener ausw�hlen.'; }

else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Bediener gespeichert.'; }

else if (Key == 'ARA_BELGE') { Result = 'Dokument suchen...'; }

else if (Key == 'GRID_COL1') { Result = 'Artikelnr.'; }

else if (Key == 'GRID_COL2') { Result = 'Artikelname'; }

else if (Key == 'GRID_COL3') { Result = 'Menge'; }

else if (Key == 'GRID_COL4') { Result = 'Einh.'; }

else if (Key == 'GRID_COL5') { Result = 'Preis'; }

else if (Key == 'GRID_COL6') { Result = 'Betrag'; }

else if (Key == 'STOK_EKLE') { Result = '+ Bestand Hzfg'; }

else if (Key == 'LST_BOS') { Result = 'Keine Materialdatens�tze gefunden.'; }

}

else if (gAktifDilIndex == 3)

{

if (Key == 'NAV_TITLE') { Result = 'Mouvements de Maint'; }

else if (Key == 'YENI') { Result = 'Nouveau'; }

else if (Key == 'KAYDET') { Result = 'Enregistrer'; }

else if (Key == 'YAZDIR') { Result = 'Imprimer'; }

else if (Key == 'SECT1') { Result = '1. INFOS GENERALES'; }

else if (Key == 'SECT2') { Result = '2. MATERIEL ET COUT'; }

else if (Key == 'SECT3') { Result = '3. VISUELS'; }

else if (Key == 'SECT4') { Result = '4. INSTRUCTIONS'; }

else if (Key == 'BELGE_NO') { Result = 'N Doc:'; }

else if (Key == 'TARIH') { Result = 'Date:'; }

else if (Key == 'BAKIM_TIPI') { Result = 'Type Maint.:'; }

else if (Key == 'BAKIM_TURU') { Result = 'Categorie Maint.:'; }

else if (Key == 'BAKIM_KODU') { Result = 'Code Maint.:'; }

else if (Key == 'MAKINE_KODU') { Result = 'Code Machine:'; }

else if (Key == 'BAGLANTI') { Result = 'Connexion:'; }

else if (Key == 'CARI_KODU') { Result = 'Code Courant:'; }

else if (Key == 'BASLANGIC') { Result = 'Date/Heure Debut:'; }

else if (Key == 'GIRIS_ZAMANI') { Result = 'Heure d Entree:'; }

else if (Key == 'PLANLANAN') { Result = 'Heure de Fin Prevue:'; }

else if (Key == 'BAKIM_DURUMU') { Result = 'Statut de Maint.:'; }

else if (Key == 'BAKIM_YAPILDI') { Result = 'Fait (Termine)'; }

else if (Key == 'BAKIM_YAPILMADI') { Result = 'Non Fait (En attente)'; }

else if (Key == 'KISI_SAYISI') { Result = 'Effectif:'; }

else if (Key == 'OP_GRUP') { Result = 'Groupe d Operateurs:'; }

else if (Key == 'OPERATOR') { Result = 'Operateur Responsable:'; }

else if (Key == 'OP_BILGI') { Result = 'Infos Nouvel Operateur:'; }

else if (Key == 'ACIKLAMA') { Result = 'Description:'; }

else if (Key == 'KAMERA') { Result = 'Ouvrir Camera'; }

else if (Key == 'OP_KAYDET') { Result = 'Enregistrer'; }

else if (Key == 'TALIMAT_METNI') { Result = '1. Couper l alimentation.' + #13#10 + '2. Fixer le verrou de securite.' + #13#10 + '3. Verifier les paliers.' + #13#10 + '4. Serrer et aligner.' + #13#10 + '5. Faire un essai.'; }

else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Formulaire efface.'; }

else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'Veuillez saisir le N Doc avant d enregistrer !'; }

else if (Key == 'MSG_DURUM_SECIN') { Result = 'Veuillez selectionner le statut !'; }

else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'ENREGISTREMENT REUSSI !'; }

else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Donnees ajoutees : '; }

else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'Veuillez d abord saisir les infos de l operateur.'; }

else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'Veuillez selectionner un groupe pour l operateur.'; }

else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Operateur enregistre.'; }

else if (Key == 'ARA_BELGE') { Result = 'Rechercher un document...'; }

else if (Key == 'GRID_COL1') { Result = 'Code Article'; }

else if (Key == 'GRID_COL2') { Result = 'Nom Article'; }

else if (Key == 'GRID_COL3') { Result = 'Qte'; }

else if (Key == 'GRID_COL4') { Result = 'Unite'; }

else if (Key == 'GRID_COL5') { Result = 'Prix'; }

else if (Key == 'GRID_COL6') { Result = 'Montant'; }

else if (Key == 'STOK_EKLE') { Result = '+ Ajouter Stock'; }

else if (Key == 'LST_BOS') { Result = 'Aucun enregistrement de materiel trouve.'; }

}

else

{

if (Key == 'NAV_TITLE') { Result = 'Bak�m Hareketleri'; }

else if (Key == 'YENI') { Result = 'Yeni'; }

else if (Key == 'KAYDET') { Result = 'Kaydet'; }

else if (Key == 'YAZDIR') { Result = 'Yazd�r'; }

else if (Key == 'SECT1') { Result = '1. GENEL B�LG�LER'; }

else if (Key == 'SECT2') { Result = 'Kullan�lan Malzemeler'; }

else if (Key == 'SECT3') { Result = '3. G�RSEL'; }

else if (Key == 'SECT4') { Result = '4. BAKIM TAL�MATLARI'; }

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 == 'BAKIM_DURUMU') { Result = 'Bak�m Durumu:'; }

else if (Key == 'BAKIM_YAPILDI') { Result = 'Yap�ld� (Tamamland�)'; }

else if (Key == 'BAKIM_YAPILMADI') { Result = 'Yap�lmad� (Bekliyor)'; }

else if (Key == 'KISI_SAYISI') { Result = 'Ki�i Say�s�:'; }

else if (Key == 'OP_GRUP') { Result = 'Operat�r Grubu:'; }

else if (Key == 'OPERATOR') { Result = 'Sorumlu Operat�r:'; }

else if (Key == 'OP_BILGI') { Result = 'Yeni Operat�r (Ad Soyad):'; }

else if (Key == 'ACIKLAMA') { Result = 'Genel A��klama:'; }

else if (Key == 'KAMERA') { Result = 'Kamera / Galeri A�'; }

else if (Key == 'OP_KAYDET') { Result = 'Kaydet'; }

else if (Key == 'TALIMAT_METNI') { Result = '1. Makine enerjisini kesin.' + #13#10 + '2. Guvenlik kilidini takin.' + #13#10 + '3. Rulman yataklarini kontrol edin.' + #13#10 + '4. Sikma ve hizalama yapin.' + #13#10 + '5. Test calismasi yapin.'; }

else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Form temizlendi.'; }

else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'L�tfen kaydetmeden �nce Belge No giriniz!'; }

else if (Key == 'MSG_DURUM_SECIN') { Result = 'L�tfen bak�m durumunu se�iniz!'; }

else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'KAYIT BA�ARILI!'; }

else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Eklenen Veri: '; }

else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'L�tfen �nce Operat�r Bilgisi giriniz.'; }

else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'L�tfen kaydedilecek operat�r�n grubunu se�iniz.'; }

else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Operat�r kaydedildi.'; }

else if (Key == 'ARA_BELGE') { Result = 'Belge No Ara...'; }

else if (Key == 'GRID_COL1') { Result = 'Stok Kodu'; }

else if (Key == 'GRID_COL2') { Result = 'Stok Ad�'; }

else if (Key == 'GRID_COL3') { Result = 'Miktar'; }

else if (Key == 'GRID_COL4') { Result = '�l�� Br.'; }

else if (Key == 'GRID_COL5') { Result = 'Br. Fiyat'; }

else if (Key == 'GRID_COL6') { Result = 'Tutar'; }

else if (Key == 'STOK_EKLE') { Result = '+ Stok Ekle'; }

else if (Key == 'LST_BOS') { Result = 'Malzeme kayd� bulunamad�.'; }

}

void AyarlariYukle;

var

OkunanDosyaYolu, TemaKodu, tmpStr : String;

YuklenenAyarlar: TclStringList;

OkunanBoyutIndex: Integer;

{

UiFontSize = 15; OkunanFontAdi = 'Arial';

gAktifDilIndex = 0; TemaKodu = '0';

OkunanDosyaYolu = clPathCombine('UygulamaAyarlari_V3.txt', Clomosy.AppFilesPath);

if (clFileExists(OkunanDosyaYolu, ''))

{

YuklenenAyarlar = Clomosy.StringListNew;

YuklenenAyarlar.LoadFromFile(OkunanDosyaYolu, 0);

if (YuklenenAyarlar.Count >= 5)

{

TemaKodu = Clomosy.StringListItemString(YuklenenAyarlar, 0);

tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 1);

if (tmpStr <> '') {

OkunanBoyutIndex = StrToInt(tmpStr);

if (OkunanBoyutIndex == 0) { UiFontSize = 15; }

else if (OkunanBoyutIndex == 1) { UiFontSize = 17; }

else if (OkunanBoyutIndex == 2) { UiFontSize = 19; }

}

tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 2);

if (tmpStr <> '') { gAktifDilIndex = StrToInt(tmpStr); }

if (YuklenenAyarlar.Count >= 6) {

tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 5);

if (tmpStr <> '') { OkunanFontAdi = tmpStr; }

tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 6);

if (tmpStr <> '') { OkunanStilIndex = StrToInt(tmpStr); }

}

if (YuklenenAyarlar <> nil) { YuklenenAyarlar.Free; }

}

if (TemaKodu == '1') { BakimForm.SetFormColor('#111827','#2563EB',clGVertical); }

else if (TemaKodu == '2') { BakimForm.SetFormColor('#0F172A','#0EA5E9',clGVertical); }

else if (TemaKodu == '3') { BakimForm.SetFormColor('#14532D','#22C55E',clGVertical); }

else if (TemaKodu == '4') { BakimForm.SetFormColor('#312E81','#8B5CF6',clGVertical); }

else if (TemaKodu == '5') { BakimForm.SetFormColor('#78350F','#F59E0B',clGVertical); }

else if (TemaKodu == '6') { BakimForm.SetFormColor('#7F1D1D','#EF4444',clGVertical); }

else if (TemaKodu == '7') { BakimForm.SetFormColor('#831843','#EC4899',clGVertical); }

else if (TemaKodu == '8') { BakimForm.SetFormColor('#172554','#3B82F6',clGVertical); }

else if (TemaKodu == '9') { BakimForm.SetFormColor('#064E3B','#10B981',clGVertical); }

else if (TemaKodu == '10') { BakimForm.SetFormColor('#450A0A','#F97316',clGVertical); }

else if (TemaKodu == '11') { BakimForm.SetFormColor('#082F49','#06B6D4',clGVertical); }

else if (TemaKodu == '12') { BakimForm.SetFormColor('#020617','#4F46E5',clGVertical); }

else if (TemaKodu == '13') { BakimForm.SetFormColor('#4A044E','#D946EF',clGVertical); }

else if (TemaKodu == '14') { BakimForm.SetFormColor('#7F1D1D','#F59E0B',clGVertical); }

else if (TemaKodu == '15') { BakimForm.SetFormColor('#451A03','#EAB308',clGVertical); }

else if (TemaKodu == '16') { BakimForm.SetFormColor('#4C0519','#F43F5E',clGVertical); }

else if (TemaKodu == '17') { BakimForm.SetFormColor('#022C22','#84CC16',clGVertical); }

else if (TemaKodu == '18') { BakimForm.SetFormColor('#1E293B','#64748B',clGVertical); }

else if (TemaKodu == '19') { BakimForm.SetFormColor('#2E1065','#A855F7',clGVertical); }

else if (TemaKodu == '20') { BakimForm.SetFormColor('#3F3F46','#A1A1AA',clGVertical); }

else { BakimForm.SetFormColor('#334155','#94A3B8',clGVertical); }

ThemeBgColor = '#FFFFFF'; ThemeBorderColor = '#CBD5E1'; ThemeTextColor = '#111827';

if (TemaKodu == '0') { ThemeKoyuRenk = '#334155'; ThemeAcikRenk = '#94A3B8'; }

else 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'; }

else if (TemaKodu == '7') { ThemeKoyuRenk = '#831843'; ThemeAcikRenk = '#EC4899'; }

else if (TemaKodu == '8') { ThemeKoyuRenk = '#172554'; ThemeAcikRenk = '#3B82F6'; }

else if (TemaKodu == '9') { ThemeKoyuRenk = '#064E3B'; ThemeAcikRenk = '#10B981'; }

else if (TemaKodu == '10') { ThemeKoyuRenk = '#450A0A'; ThemeAcikRenk = '#F97316'; }

else if (TemaKodu == '11') { ThemeKoyuRenk = '#082F49'; ThemeAcikRenk = '#06B6D4'; }

else if (TemaKodu == '12') { ThemeKoyuRenk = '#020617'; ThemeAcikRenk = '#4F46E5'; }

else if (TemaKodu == '13') { ThemeKoyuRenk = '#4A044E'; ThemeAcikRenk = '#D946EF'; }

else if (TemaKodu == '14') { ThemeKoyuRenk = '#7F1D1D'; ThemeAcikRenk = '#F59E0B'; }

else if (TemaKodu == '15') { ThemeKoyuRenk = '#451A03'; ThemeAcikRenk = '#EAB308'; }

else if (TemaKodu == '16') { ThemeKoyuRenk = '#4C0519'; ThemeAcikRenk = '#F43F5E'; }

else if (TemaKodu == '17') { ThemeKoyuRenk = '#022C22'; ThemeAcikRenk = '#84CC16'; }

else if (TemaKodu == '18') { ThemeKoyuRenk = '#1E293B'; ThemeAcikRenk = '#64748B'; }

else if (TemaKodu == '19') { ThemeKoyuRenk = '#2E1065'; ThemeAcikRenk = '#A855F7'; }

else if (TemaKodu == '20') { ThemeKoyuRenk = '#3F3F46'; ThemeAcikRenk = '#A1A1AA'; }

}

void StyleMainCard(APanel: TclProPanel);

{

APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeBgColor);

APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

APanel.clProSettings.BorderWidth = 1;

APanel.clProSettings.IsFill = True;

APanel.clProSettings.IsRound = True;

APanel.clProSettings.RoundHeight = 16;

APanel.clProSettings.RoundWidth = 16;

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 StyleTopBtnYeni(AButton: TClProButton);

{

AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6B7280');

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 StyleTopBtnKaydet(AButton: TClProButton);

{

AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6B7280');

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 StyleTopBtnYazdir(AButton: TClProButton);

{

AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6B7280');

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 StyleActionButton(AButton: TClProButton);

{

AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');

AButton.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

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 StylePrimaryButton(AButton: TClProButton);

{

AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);

AButton.clProSettings.FontColor = clAlphaColor.clWhite;

AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);

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 StyleDangerButton(AButton: TClProButton);

{

AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EF4444');

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 StyleUncoloredOutlineButton(AButton: TClProButton);

{

AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155');

AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#94A3B8');

AButton.clProSettings.BorderWidth = 2;

AButton.clProSettings.IsFill = False;

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('#F8FAFC');

APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

APanel.clProSettings.BorderWidth = 1;

APanel.clProSettings.IsFill = True;

APanel.clProSettings.IsRound = True;

APanel.clProSettings.RoundHeight = 8;

APanel.clProSettings.RoundWidth = 8;

APanel.SetclProSettings(APanel.clProSettings);

}

void StyleInputLabel(ALabel: TClProLabel);

{

ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

ALabel.clProSettings.FontSize = UiFontSize;

ALabel.clProSettings.FontName = OkunanFontAdi;

if (OkunanStilIndex == 0)

{

ALabel.clProSettings.TextSettings.Font.Style = [];

}

else if (OkunanStilIndex == 1)

{

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.clWhite;

AEdit.clProSettings.BorderWidth = 1;

AEdit.clProSettings.IsFill = True;

AEdit.clProSettings.IsRound = True;

AEdit.clProSettings.RoundHeight = 6;

AEdit.clProSettings.RoundWidth = 6;

AEdit.clProSettings.FontSize = UiFontSize;

AEdit.clProSettings.FontName = OkunanFontAdi;

AEdit.SetclProSettings(AEdit.clProSettings);

}

void StyleReadonlyEdit(AEdit: TclProEdit);

{

AEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

AEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E2E8F0');

AEdit.clProSettings.BorderWidth = 1;

AEdit.clProSettings.IsFill = True;

AEdit.clProSettings.IsRound = True;

AEdit.clProSettings.RoundHeight = 6;

AEdit.clProSettings.RoundWidth = 6;

AEdit.clProSettings.FontSize = UiFontSize + 1;

AEdit.clProSettings.FontName = OkunanFontAdi;

AEdit.clProSettings.TextSettings.Font.Style = [fsBold];

AEdit.SetclProSettings(AEdit.clProSettings);

}

void StyleInputFocus;

var

FocusEdit: TclProEdit;

{

FocusEdit = TclProEdit(BakimForm.ClSender);

FocusEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeAcikRenk);

FocusEdit.clProSettings.BorderWidth = 2;

FocusEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

FocusEdit.SetclProSettings(FocusEdit.clProSettings);

}

void StyleInputBlur;

var

BlurEdit: TclProEdit;

{

BlurEdit = TclProEdit(BakimForm.ClSender);

StyleInputEdit(BlurEdit);

}

void BindInputFocus(AEdit: TclProEdit);

{

BakimForm.AddNewEvent(AEdit, tbeOnEnter, 'StyleInputFocus');

BakimForm.AddNewEvent(AEdit, tbeOnExit, 'StyleInputBlur');

}

void KlvKisiSayisi;

{

StyleInputFocus;

ScrollForm.ScrollTo(0, 10000);

ScrollForm.ScrollTo(0, -587);

}

void KlvOperatorBilgisi;

{

StyleInputFocus;

ScrollForm.ScrollTo(0, 10000);

ScrollForm.ScrollTo(0, -773);

}

void KlvAciklama;

{

StyleInputFocus;

ScrollForm.ScrollTo(0, 10000);

ScrollForm.ScrollTo(0, -836);

}

void StyleSectionTitle(ALabel: TClProLabel);

{

ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);

ALabel.clProSettings.FontSize = UiFontSize + 2;

ALabel.clProSettings.FontName = OkunanFontAdi;

ALabel.clProSettings.TextSettings.Font.Style = [fsBold];

ALabel.SetclProSettings(ALabel.clProSettings);

}

void GoBack;

{

BakimForm.Close;

}

void SetCurrentDateTime;

{

EdtTarih.Text = DateToStr(Now);

EdtBaslangic.Text = DateToStr(Now);

EdtBaslangicSaat.Text = TimeToStr(Now);

EdtGirisZamani.Text = DateToStr(Now) + ' ' + TimeToStr(Now);

}

void GridGuncelle;

{

if (MyJsonItems == '')

{

ListGrid.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[{"MAIN_TEXT":"' + GetText('LST_BOS') + '"}]'));

}

else

{

ListGrid.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON(MyJsonItems));

}

void OnRehberArama;

{

if (DataRehber == nil) { Exit; }

if (EdtAramaRehber.Text == '')

{

DataRehber.Filtered = False;

DataRehber.Filter = '';

}

else

{

DataRehber.Filter = 'MAIN_TEXT Like ' + Chr(39) + '%' + EdtAramaRehber.Text + '%' + Chr(39);

DataRehber.Filtered = True;

}

void OnRehberSec;

var

SecilenDeger: String;

{

SecilenDeger = LsvRehber.clSelectedItemData(clCaption);

if (GlobalLookupType == 'BELGE')

{

EdtBelgeNo.Text = SecilenDeger;

}

else if (GlobalLookupType == 'MAKINE')

{

EdtMakineKodu.Text = SecilenDeger;

}

else if (GlobalLookupType == 'BAKIM')

{

EdtBakimKodu.Text = SecilenDeger;

}

else if (GlobalLookupType == 'BAGLANTI')

{

EdtBaglanti.Text = SecilenDeger;

}

else if (GlobalLookupType == 'CARI')

{

EdtCariKodu.Text = SecilenDeger;

}

else if (GlobalLookupType == 'FILTRE_KOD')

{

EdtFiltreStokKodu.Text = SecilenDeger;

}

RehberForm.Close;

}

void BuildRehberForm;

var

RehberDP: TclProListViewDesignerPanel;

RehberLblMain: TclProLabel;

RehberLblSub: TclProLabel;

NS: String;

{

gCounter = gCounter + 1;

NS = IntToStr(gCounter);

RehberForm = TclForm.Create(Self);

RehberForm.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical);

EdtAramaRehber = RehberForm.AddNewProEdit(RehberForm, 'EdtAramaRehber' + NS, 'Ara...');

EdtAramaRehber.Align = alTop;

EdtAramaRehber.Margins.Top = 10;

EdtAramaRehber.Margins.Left = 10;

EdtAramaRehber.Margins.Right = 10;

EdtAramaRehber.Height = 40;

EdtAramaRehber.clProSettings.FontSize = 14;

RehberForm.AddNewEvent(EdtAramaRehber, tbeOnChange, 'OnRehberArama');

LsvRehber = RehberForm.AddNewProListView(RehberForm, 'LsvRehber' + NS);

LsvRehber.Align = alClient;

LsvRehber.Margins.Top = 10;

LsvRehber.ListType = 'vertical';

LsvRehber.clProSettings.ItemHeight = 65;

LsvRehber.clProSettings.ItemSpace = 5;

LsvRehber.clProSettings.ColCount = 1;

LsvRehber.clProSettings.ViewType = lvIcon;

LsvRehber.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

LsvRehber.SetclProSettings(LsvRehber.clProSettings);

RehberDP = RehberForm.AddNewProListViewDesignerPanel(LsvRehber, 'RehberDP' + NS);

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, 'RehberLblMain_' + NS, '');

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, 'RehberLblSub_' + NS, '');

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);

LsvRehber.SetDesignerPanel(RehberDP);

RehberForm.AddNewEvent(LsvRehber, tbeOnItemClick, 'OnRehberSec');

}

void OpenRehber;

var

JsonStr: String;

q: TclSQLQuery;

{

Clomosy.DBSQLServerConnect('SQL Server','192.168.1.39','sa','1','ATIKER_YAZILIM',50000);

BuildRehberForm;

if (GlobalLookupType == 'FILTRE_KOD')

{

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

JsonStr = '[';

q = TclSQLQuery.Create(nil);

try

q.Connection = Clomosy.DBSQLServerConnection;

q.SQL.Text = 'SELECT TOP 100 STOK_KODU AS KOD, REPLACE(REPLACE(STOK_ADI, CHAR(34), ''''), CHAR(92), '''') AS ADI FROM [PRG_VIEW_STREHBER] WITH(NOLOCK) WHERE ISNULL(PASIF_KART,0)=0 ORDER BY STOK_KODU COLLATE SQL_Latin1_General_CP1_CI_AS ASC';

q.Open;

while (not q.Eof)

{

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

JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('KOD').AsString + '", ' + '"SUB_TEXT":"' + q.FieldByName('ADI').AsString + '"}';

q.Next;

}

finally

q.Free;

}

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

else { JsonStr = JsonStr + ']'; }

}

else if (GlobalLookupType == 'BELGE')

{

EdtAramaRehber.TextPrompt = GetText('ARA_BELGE');

JsonStr = '[';

q = TclSQLQuery.Create(nil);

try

q.Connection = Clomosy.DBSQLServerConnection;

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

'SELECT * FROM (SELECT TOP 100 PERCENT BELGE_NO,TARIH,MAKINE_KODU, REPLACE(REPLACE(MAKINE_ADI, CHAR(34), ''''), CHAR(92), '''') AS MAKINE_ADI,BAKIM_KODU,BAKIM_ACIKLAMA,BAS_TAR,BAS_SAAT,BIT_TAR,BIT_SAAT ' +

'FROM [TBLURTBAKIMHR] WITH (NOLOCK) ' +

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

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

'ORDER BY BELGE_NO COLLATE SQL_Latin1_General_CP1_CI_AS ' +

'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

q.Open;

while (not q.Eof)

{

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

JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('BELGE_NO').AsString + '", ' + '"SUB_TEXT":"Makine: ' + q.FieldByName('MAKINE_KODU').AsString + ' - ' + q.FieldByName('MAKINE_ADI').AsString + '"}';

q.Next;

}

finally

q.Free;

}

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

else { JsonStr = JsonStr + ']'; }

}

else if (GlobalLookupType == 'MAKINE')

{

EdtAramaRehber.TextPrompt = GetText('ARA_MAKINE');

JsonStr = '[';

q = TclSQLQuery.Create(nil);

try

q.Connection = Clomosy.DBSQLServerConnection;

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

'SELECT * FROM (SELECT TOP 100 PERCENT MAKINE_KODU, REPLACE(REPLACE(MAKINE_ADI, CHAR(34), ''''), CHAR(92), '''') AS MAKINE_ADI FROM [TBLURTMAKINESB] WITH (NOLOCK) ' +

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

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

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

q.Open;

while (not q.Eof)

{

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

JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('MAKINE_KODU').AsString + '", ' + '"SUB_TEXT":"' + q.FieldByName('MAKINE_ADI').AsString + '"}';

q.Next;

}

finally

q.Free;

}

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

else { JsonStr = JsonStr + ']'; }

}

else if (GlobalLookupType == 'BAKIM')

{

EdtAramaRehber.TextPrompt = GetText('ARA_BAKIM');

JsonStr = '[';

q = TclSQLQuery.Create(nil);

try

q.Connection = Clomosy.DBSQLServerConnection;

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

'SELECT * FROM (SELECT TOP 100 PERCENT BAKIM_KODU, REPLACE(REPLACE(BAKIM_ACIKLAMA, CHAR(34), ''''), CHAR(92), '''') AS BAKIM_ACIKLAMA ' +

'FROM [TBLURTBAKIMSB] WITH (NOLOCK) ' +

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

'ORDER BY BAKIM_KODU ' +

'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

q.Open;

while (not q.Eof)

{

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

JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('BAKIM_KODU').AsString + '", ' + '"SUB_TEXT":"' + q.FieldByName('BAKIM_ACIKLAMA').AsString + '"}';

q.Next;

}

finally

q.Free;

}

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

else { JsonStr = JsonStr + ']'; }

}

else if (GlobalLookupType == 'BAGLANTI')

{

EdtAramaRehber.TextPrompt = GetText('ARA_BAGLANTI');

JsonStr = '[';

q = TclSQLQuery.Create(nil);

try

q.Connection = Clomosy.DBSQLServerConnection;

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

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

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

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

') AS REHBERSQL ORDER BY TARIH ' +

'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

q.Open;

while (not q.Eof)

{

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

JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('TARIH').AsString + '", ' + '"SUB_TEXT":""}';

q.Next;

}

finally

q.Free;

}

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

else { JsonStr = JsonStr + ']'; }

}

else if (GlobalLookupType == 'CARI')

{

EdtAramaRehber.TextPrompt = GetText('ARA_CARI');

JsonStr = '[';

q = TclSQLQuery.Create(nil);

try

q.Connection = Clomosy.DBSQLServerConnection;

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

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

'ORDER BY CARI_KODU COLLATE SQL_Latin1_General_CP1_CI_AS ' +

'SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';

q.Open;

while (not q.Eof)

{

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

JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('CARI_KODU').AsString + '", ' + '"SUB_TEXT":"' + q.FieldByName('CARI_ADI').AsString + '"}';

q.Next;

}

finally

q.Free;

}

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

else { JsonStr = JsonStr + ']'; }

}

DataRehber = Clomosy.ClDataSetFromJSON(JsonStr);

LsvRehber.clLoadProListViewDataFromDataset(DataRehber);

RehberForm.Run;

}

void BtnRehberBelgeClick; { GlobalLookupType = 'BELGE'; OpenRehber; }

void BtnBakimKoduRehberClick; { GlobalLookupType = 'BAKIM'; OpenRehber; }

void BtnMakineKoduRehberClick; { GlobalLookupType = 'MAKINE'; OpenRehber; }

void BtnBaglantiRehberClick; { GlobalLookupType = 'BAGLANTI'; OpenRehber; }

void BtnCariKoduRehberClick; { GlobalLookupType = 'CARI'; OpenRehber; }

void BtnKodRehberClick; { GlobalLookupType = 'FILTRE_KOD'; OpenRehber; }

void OnFiltreKisitSecildi;

{

SecilenStokKodu = LsvKisitUyanlar.clSelectedItemData(clCaption);

SecilenStokAdi = LsvKisitUyanlar.clSelectedItemData(clText);

EdtBilesenMiktar.Text = '1';

}

void FormBilesenEkleClick;

var

YeniBilesen: String;

{

if (SecilenStokKodu == '') { ShowMessage('L�tfen �nce yukar�daki listeden bir stok se�iniz!'); Exit; }

if (EdtBilesenMiktar.Text == '') { ShowMessage('L�tfen eklenecek miktar� giriniz!'); Exit; }

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

YeniBilesen = '{"MAIN_TEXT":"' + SecilenStokKodu + '", "SUB_TEXT":"' + SecilenStokAdi + '", "TEXT1":"' + EdtBilesenMiktar.Text + '", "TEXT2":"Adet", "TEXT3":"0.00", "TEXT4":"0.00"}';

JsonEkleneceklerHavuzu = JsonEkleneceklerHavuzu + YeniBilesen;

LsvEklenecekler.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + JsonEkleneceklerHavuzu + ']'));

SecilenStokKodu = '';

SecilenStokAdi = '';

EdtBilesenMiktar.Text = '';

}

void FormAktarClick;

var

AnaHavuz: String;

{

if (JsonEkleneceklerHavuzu == '') { ShowMessage('Aktar�lacak bile�en bulunamad�.'); Exit; }

AnaHavuz = Trim(MyJsonItems);

if ((AnaHavuz == '') || (AnaHavuz == '[]'))

{

AnaHavuz = '[' + JsonEkleneceklerHavuzu + ']';

}

else

{

AnaHavuz = Copy(AnaHavuz, 1, Length(AnaHavuz) - 1) + ',' + JsonEkleneceklerHavuzu + ']';

}

MyJsonItems = AnaHavuz;

GridGuncelle;

ShowMessage('Malzemeler tabloya ba�ar�yla aktar�ld�!');

StokFiltreForm.Close;

ScrollForm.ScrollTo(0, 10000);

ScrollForm.ScrollTo(0, -1100);

}

void FormFiltreAraClick;

var

q: TclSQLQuery;

JsonStr: String;

FStr: String;

SearchKodu: String;

{

SearchKodu = EdtFiltreStokKodu.Text;

if (SearchKodu == 'Stok Kodu Ara...') { SearchKodu = ''; }

FStr = '1=1 AND ISNULL(PASIF_KART,0)=0';

if (SearchKodu <> '') { FStr = FStr + ' AND STOK_KODU LIKE ''%' + SearchKodu + '%'''; }

JsonStr = '[';

q = TclSQLQuery.Create(nil);

try

Clomosy.DBSQLServerConnect('SQL Server','192.168.1.39','sa','1','ATIKER_YAZILIM',50000);

q.Connection = Clomosy.DBSQLServerConnection;

q.SQL.Text = 'SELECT TOP 100 STOK_KODU, REPLACE(REPLACE(STOK_ADI, CHAR(34), ''''), CHAR(92), '''') AS STOK_ADI FROM [PRG_VIEW_STREHBER] WITH (NOLOCK) WHERE ' + FStr + ' ORDER BY STOK_KODU COLLATE SQL_Latin1_General_CP1_CI_AS ASC';

q.Open;

while (not q.Eof)

{

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

JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('STOK_KODU').AsString + '", ' + '"SUB_TEXT":"' + q.FieldByName('STOK_ADI').AsString + '"}';

q.Next;

}

finally

q.Free;

}

if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"Kay�t Bulunamad�", "SUB_TEXT":"Kriterlere uygun stok yok."}]'; }

else { JsonStr = JsonStr + ']'; }

LsvKisitUyanlar.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON(JsonStr));

}

void BuildStokFiltreForm;

var

NS: String;

{

gCounter = gCounter + 1;

NS = IntToStr(gCounter);

JsonEkleneceklerHavuzu = '';

SecilenStokKodu = '';

SecilenStokAdi = '';

StokFiltreForm = TclForm.Create(Self);

StokFiltreForm.SetFormColor(ThemeBgColor, ThemeBgColor, clGVertical);

PnlFiltreSag = StokFiltreForm.AddNewProPanel(StokFiltreForm, 'PnlFiltreSag' + NS);

PnlFiltreSag.Align = alClient;

PnlFiltreSagUst = StokFiltreForm.AddNewProPanel(PnlFiltreSag, 'PnlFiltreSagUst' + NS);

PnlFiltreSagUst.Align = alTop;

PnlFiltreSagUst.Height = 280;

PnlFiltreSagUst.Margins.Bottom = 10;

StyleInputPanel(PnlFiltreSagUst);

PnlFiltreAramaKutu = StokFiltreForm.AddNewProPanel(PnlFiltreSagUst, 'PnlFiltreAramaKutu' + NS);

PnlFiltreAramaKutu.Align = alTop;

PnlFiltreAramaKutu.Height = 65;

PnlFiltreAramaKutu.Margins.Top = 10;

PnlFiltreAramaKutu.Margins.Left = 10;

PnlFiltreAramaKutu.Margins.Right = 10;

StyleInputPanel(PnlFiltreAramaKutu);

LblFiltreStokKodu = StokFiltreForm.AddNewProLabel(PnlFiltreAramaKutu, 'LblFiltreStokKodu' + NS, 'Stok Kodu (Rehberden Se�in)');

LblFiltreStokKodu.Align = alTop;

LblFiltreStokKodu.Height = 18;

LblFiltreStokKodu.Margins.Left = 10;

LblFiltreStokKodu.Margins.Top = 6;

StyleInputLabel(LblFiltreStokKodu);

BtnFiltreAra = StokFiltreForm.AddNewProButton(PnlFiltreAramaKutu, 'BtnFiltreAra' + NS, 'Listele');

BtnFiltreAra.Align = alRight;

BtnFiltreAra.Width = 80;

BtnFiltreAra.Margins.Right = 10;

BtnFiltreAra.Margins.Bottom = 7;

StylePrimaryButton(BtnFiltreAra);

StokFiltreForm.AddNewEvent(BtnFiltreAra, tbeOnClick, 'FormFiltreAraClick');

BtnKodRehber = StokFiltreForm.AddNewProButton(PnlFiltreAramaKutu, 'BtnKodRehber' + NS, '🔍');

BtnKodRehber.Align = alRight;

BtnKodRehber.Width = 45;

BtnKodRehber.Margins.Right = 5;

BtnKodRehber.Margins.Bottom = 7;

StyleActionButton(BtnKodRehber);

StokFiltreForm.AddNewEvent(BtnKodRehber, tbeOnClick, 'BtnKodRehberClick');

EdtFiltreStokKodu = StokFiltreForm.AddNewProEdit(PnlFiltreAramaKutu, 'EdtFiltreStokKodu' + NS, '');

EdtFiltreStokKodu.Align = alClient;

EdtFiltreStokKodu.Margins.Left = 10;

EdtFiltreStokKodu.Margins.Right = 5;

EdtFiltreStokKodu.Margins.Bottom = 7;

StyleInputEdit(EdtFiltreStokKodu);

LsvKisitUyanlar = StokFiltreForm.AddNewProListView(PnlFiltreSagUst, 'LsvKisitUyanlar' + NS);

LsvKisitUyanlar.Align = alClient;

LsvKisitUyanlar.Margins.Top = 10;

LsvKisitUyanlar.Margins.Bottom = 10;

LsvKisitUyanlar.Margins.Left = 10;

LsvKisitUyanlar.Margins.Right = 10;

LsvKisitUyanlar.ListType = 'vertical';

LsvKisitUyanlar.clProSettings.ItemHeight = 60;

LsvKisitUyanlar.clProSettings.ItemSpace = 5;

LsvKisitUyanlar.clProSettings.ColCount = 1;

LsvKisitUyanlar.clProSettings.ViewType = lvIcon;

LsvKisitUyanlar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

LsvKisitUyanlar.SetclProSettings(LsvKisitUyanlar.clProSettings);

LsvKisitDP = StokFiltreForm.AddNewProListViewDesignerPanel(LsvKisitUyanlar, 'LsvKisitDP' + NS);

LsvKisitDP.Align = alTop;

LsvKisitDP.Height = 55;

LsvKisitDP.clProSettings.BackgroundColor = clAlphaColor.clWhite;

LsvKisitDP.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

LsvKisitDP.clProSettings.BorderWidth = 1;

LsvKisitDP.clProSettings.IsRound = True;

LsvKisitDP.clProSettings.RoundHeight = 6;

LsvKisitDP.clProSettings.RoundWidth = 6;

LsvKisitDP.SetclProSettings(LsvKisitDP.clProSettings);

LblKisitD1 = StokFiltreForm.AddNewProLabel(LsvKisitDP, 'LblKisitD1_' + NS, '');

LblKisitD1.Align = alTop;

LblKisitD1.Height = 22;

LblKisitD1.Margins.Left = 10;

LblKisitD1.Margins.Top = 5;

LblKisitD1.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblKisitD1.clProSettings.TextSettings.Font.Style = [fsBold];

LblKisitD1.clProSettings.FontSize = UiFontSize;

LblKisitD1.SetclProSettings(LblKisitD1.clProSettings);

LblKisitD2 = StokFiltreForm.AddNewProLabel(LsvKisitDP, 'LblKisitD2_' + NS, '');

LblKisitD2.Align = alTop;

LblKisitD2.Height = 20;

LblKisitD2.Margins.Left = 10;

LblKisitD2.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

LblKisitD2.clProSettings.FontSize = UiFontSize - 2;

LblKisitD2.SetclProSettings(LblKisitD2.clProSettings);

LsvKisitDP.AddPanelObject(LblKisitD1, clCaption);

LsvKisitDP.AddPanelObject(LblKisitD2, clText);

LsvKisitUyanlar.SetDesignerPanel(LsvKisitDP);

StokFiltreForm.AddNewEvent(LsvKisitUyanlar, tbeOnItemClick, 'OnFiltreKisitSecildi');

PnlFiltreSagAlt = StokFiltreForm.AddNewProPanel(PnlFiltreSag, 'PnlFiltreSagAlt' + NS);

PnlFiltreSagAlt.Align = alClient;

StyleInputPanel(PnlFiltreSagAlt);

PnlEklemeKutu = StokFiltreForm.AddNewProPanel(PnlFiltreSagAlt, 'PnlEklemeKutu' + NS);

PnlEklemeKutu.Align = alTop;

PnlEklemeKutu.Height = 65;

PnlEklemeKutu.Margins.Top = 10;

PnlEklemeKutu.Margins.Left = 10;

PnlEklemeKutu.Margins.Right = 10;

StyleInputPanel(PnlEklemeKutu);

BtnBilesenEkle = StokFiltreForm.AddNewProButton(PnlEklemeKutu, 'BtnBilesenEkle' + NS, 'Ekle');

BtnBilesenEkle.Align = alRight;

BtnBilesenEkle.Width = 80;

BtnBilesenEkle.Margins.Right = 10;

BtnBilesenEkle.Margins.Bottom = 7;

StylePrimaryButton(BtnBilesenEkle);

StokFiltreForm.AddNewEvent(BtnBilesenEkle, tbeOnClick, 'FormBilesenEkleClick');

EdtBilesenMiktar = StokFiltreForm.AddNewProEdit(PnlEklemeKutu, 'EdtBilesenMiktar' + NS, '');

EdtBilesenMiktar.Align = alClient;

EdtBilesenMiktar.TextPrompt = 'Miktar Girin...';

EdtBilesenMiktar.Margins.Left = 10;

EdtBilesenMiktar.Margins.Right = 10;

EdtBilesenMiktar.Margins.Bottom = 7;

StyleInputEdit(EdtBilesenMiktar);

LsvEklenecekler = StokFiltreForm.AddNewProListView(PnlFiltreSagAlt, 'LsvEklenecekler' + NS);

LsvEklenecekler.Align = alClient;

LsvEklenecekler.Margins.Top = 10;

LsvEklenecekler.Margins.Bottom = 10;

LsvEklenecekler.Margins.Left = 10;

LsvEklenecekler.Margins.Right = 10;

LsvEklenecekler.ListType = 'vertical';

LsvEklenecekler.clProSettings.ItemHeight = 65;

LsvEklenecekler.clProSettings.ItemSpace = 5;

LsvEklenecekler.clProSettings.ColCount = 1;

LsvEklenecekler.clProSettings.ViewType = lvIcon;

LsvEklenecekler.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

LsvEklenecekler.SetclProSettings(LsvEklenecekler.clProSettings);

LsvEklenecekDP = StokFiltreForm.AddNewProListViewDesignerPanel(LsvEklenecekler, 'LsvEklenecekDP' + NS);

LsvEklenecekDP.Align = alTop;

LsvEklenecekDP.Height = 60;

LsvEklenecekDP.clProSettings.BackgroundColor = clAlphaColor.clWhite;

LsvEklenecekDP.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

LsvEklenecekDP.clProSettings.BorderWidth = 1;

LsvEklenecekDP.clProSettings.IsRound = True;

LsvEklenecekDP.clProSettings.RoundHeight = 6;

LsvEklenecekDP.clProSettings.RoundWidth = 6;

LsvEklenecekDP.SetclProSettings(LsvEklenecekDP.clProSettings);

LblEkleD1 = StokFiltreForm.AddNewProLabel(LsvEklenecekDP, 'LblEkleD1_' + NS, '');

LblEkleD1.Align = alTop;

LblEkleD1.Height = 22;

LblEkleD1.Margins.Left = 10;

LblEkleD1.Margins.Top = 5;

LblEkleD1.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblEkleD1.clProSettings.TextSettings.Font.Style = [fsBold];

LblEkleD1.clProSettings.FontSize = UiFontSize;

LblEkleD1.SetclProSettings(LblEkleD1.clProSettings);

LblEkleD2 = StokFiltreForm.AddNewProLabel(LsvEklenecekDP, 'LblEkleD2_' + NS, '');

LblEkleD2.Align = alTop;

LblEkleD2.Height = 20;

LblEkleD2.Margins.Left = 10;

LblEkleD2.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

LblEkleD2.clProSettings.FontSize = UiFontSize - 2;

LblEkleD2.SetclProSettings(LblEkleD2.clProSettings);

LblEkleD3 = StokFiltreForm.AddNewProLabel(LsvEklenecekDP, 'LblEkleD3_' + NS, '');

LblEkleD3.Align = alRight;

LblEkleD3.Width = 80;

LblEkleD3.Margins.Right = 10;

LblEkleD3.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);

LblEkleD3.clProSettings.FontSize = UiFontSize;

LblEkleD3.clProSettings.TextSettings.Font.Style = [fsBold];

LblEkleD3.SetclProSettings(LblEkleD3.clProSettings);

LsvEklenecekDP.AddPanelObject(LblEkleD1, clCaption);

LsvEklenecekDP.AddPanelObject(LblEkleD2, clText);

LsvEklenecekDP.AddPanelObject(LblEkleD3, clText2);

LsvEklenecekler.SetDesignerPanel(LsvEklenecekDP);

PnlAktarKutu = StokFiltreForm.AddNewProPanel(PnlFiltreSagAlt, 'PnlAktarKutu' + NS);

PnlAktarKutu.Align = alBottom;

PnlAktarKutu.Height = 60;

StyleInputPanel(PnlAktarKutu);

BtnAktar = StokFiltreForm.AddNewProButton(PnlAktarKutu, 'BtnAktar' + NS, 'Ana Forma Aktar');

BtnAktar.Align = alClient;

BtnAktar.Margins.Left = 10;

BtnAktar.Margins.Right = 10;

BtnAktar.Margins.Top = 10;

BtnAktar.Margins.Bottom = 10;

StylePrimaryButton(BtnAktar);

StokFiltreForm.AddNewEvent(BtnAktar, tbeOnClick, 'FormAktarClick');

StokFiltreForm.Run;

}

void FormStokEkleClick;

{

BuildStokFiltreForm;

}

void TakePhotoClick;

{

Clomosy.ImageChooser(BakimForm, ImgPhoto);

}

void ApplyUiSettings;

{

LblNavTitle.Text = GetText('NAV_TITLE');

BtnYeni.Text = GetText('YENI');

BtnKaydet.Text = GetText('KAYDET');

BtnYazdir.Text = GetText('YAZDIR');

LblSect1Title.Text = GetText('SECT1');

LblGridTitle.Text = GetText('SECT2');

LblPhotoTitle.Text = GetText('SECT3');

LblTalimatTitle.Text = GetText('SECT4');

LblBelgeNo.Text = GetText('BELGE_NO');

LblTarih.Text = GetText('TARIH');

LblBakimTipi.Text = GetText('BAKIM_TIPI');

LblBakimTuru.Text = GetText('BAKIM_TURU');

LblBakimKodu.Text = GetText('BAKIM_KODU');

LblMakineKodu.Text = GetText('MAKINE_KODU');

LblBaglanti.Text = GetText('BAGLANTI');

LblCariKodu.Text = GetText('CARI_KODU');

LblBaslangic.Text = GetText('BASLANGIC');

LblGirisZamani.Text = GetText('GIRIS_ZAMANI');

LblPlanlananBitis.Text = GetText('PLANLANAN');

LblBakimDurumu.Text = GetText('BAKIM_DURUMU');

LblKisiSayisi.Text = GetText('KISI_SAYISI');

LblOperatorGrup.Text = GetText('OP_GRUP');

LblOperator.Text = GetText('OPERATOR');

LblOperatorBilgisi.Text = GetText('OP_BILGI');

LblAciklama.Text = GetText('ACIKLAMA');

BtnResimCek.Text = GetText('KAMERA');

BtnStokEkleAnaForm.Text = GetText('STOK_EKLE');

BtnOperatorKaydet.Text = GetText('OP_KAYDET');

CmbPlanlananBitis.Items.Clear;

if (gAktifDilIndex == 1)

{

CmbPlanlananBitis.AddItem('Hourly', 'Saat');

CmbPlanlananBitis.AddItem('Daily', 'G�n');

CmbPlanlananBitis.AddItem('Monthly', 'Ay');

}

else

{

CmbPlanlananBitis.AddItem('Saat', 'Saat');

CmbPlanlananBitis.AddItem('G�n', 'G�n');

CmbPlanlananBitis.AddItem('Ay', 'Ay');

}

CmbBakimDurumu.Items.Clear;

CmbBakimDurumu.AddItem(GetText('BAKIM_YAPILDI'), 'Y');

CmbBakimDurumu.AddItem(GetText('BAKIM_YAPILMADI'), 'N');

CmbBakimTipi.Items.Clear;

CmbBakimTipi.AddItem('Rutin', 'Rutin');

CmbBakimTipi.AddItem('Ar�za', 'Ar�za');

CmbBakimTipi.AddItem('Periyodik', 'Periyodik');

CmbBakimTuru.Items.Clear;

CmbBakimTuru.AddItem('Mekanik', 'Mekanik');

CmbBakimTuru.AddItem('Elektrik', 'Elektrik');

CmbBakimTuru.AddItem('Yaz�l�m', 'Yaz�l�m');

CmbOperatorGrup.Items.Clear;

CmbOperatorGrup.AddItem('A Grubu', 'A');

CmbOperatorGrup.AddItem('B Grubu', 'B');

CmbOperatorGrup.AddItem('C Grubu', 'C');

CmbOperator.Items.Clear;

CmbOperator.AddItem('Ahmet Y�lmaz', 'Ahmet');

CmbOperator.AddItem('Mehmet Demir', 'Mehmet');

CmbOperator.AddItem('Ali Kaya', 'Ali');

LblCol1.Text = GetText('GRID_COL1');

LblCol2.Text = GetText('GRID_COL2');

LblCol3.Text = GetText('GRID_COL3');

LblCol4.Text = GetText('GRID_COL4');

LblCol5.Text = GetText('GRID_COL5');

LblCol6.Text = GetText('GRID_COL6');

}

void DiliVeArayuzuGuncelle;

{

AyarlariYukle;

if (EdtBelgeNo <> nil)

{

ApplyUiSettings;

GridGuncelle;

}

void BtnYeniClick;

{

EdtBelgeNo.Text = '';

EdtBakimKodu.Text = '';

EdtMakineKodu.Text = '';

EdtBaglanti.Text = '';

EdtCariKodu.Text = '';

CmbPlanlananBitis.ItemIndex = -1;

CmbBakimTipi.ItemIndex = -1;

CmbBakimTuru.ItemIndex = -1;

CmbBakimDurumu.ItemIndex = -1;

CmbOperatorGrup.ItemIndex = -1;

CmbOperator.ItemIndex = -1;

EdtKisiSayisi.Text = '0';

EdtOperatorBilgisi.Text = '';

EdtAciklama.Text = '';

MemTabContent.Text = '';

SetCurrentDateTime;

MyJsonItems = '';

GridGuncelle;

ShowMessage(GetText('MSG_FORM_TEMIZLENDI'));

}

void BtnKaydetClick;

var

KayitDosyasi: TclStringList;

DosyaYolu, YeniKayit, LTarih, LAy, LYil: String;

{

if (EdtBelgeNo.Text == '')

{

ShowMessage(GetText('MSG_BELGE_NO_GIRIN'));

Exit;

}

if (CmbBakimDurumu.ItemIndex == -1)

{

ShowMessage(GetText('MSG_DURUM_SECIN'));

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);

KayitDosyasi.Add(YeniKayit);

KayitDosyasi.SaveToFile(DosyaYolu, 0);

KayitDosyasi.Free;

ShowMessage(GetText('MSG_KAYIT_BASARILI'));

}

void BtnYazdirClick;

{

ShowMessage('Yazd�r�l�yor: ' + EdtBelgeNo.Text);

}

void BtnOperatorKaydetClick;

{

if (EdtOperatorBilgisi.Text == '')

{

ShowMessage(GetText('MSG_OP_BILGI_GIRIN'));

Exit;

}

if (CmbYeniOperatorGrup.ItemIndex == -1)

{

ShowMessage(GetText('MSG_OP_GRUP_SECIN'));

Exit;

}

ShowMessage(GetText('MSG_OP_KAYDEDILDI'));

EdtOperatorBilgisi.Text = '';

CmbYeniOperatorGrup.ItemIndex = -1;

}

{

BakimForm = TclForm.Create(Self);

BakimForm.LytTopBar.Visible = False;

BakimForm.BtnGoBack.Visible = False;

BakimForm.BtnFormMenu.Visible = False;

BakimForm.AddNewEvent(BakimForm, tbeOnVirtualKeyboardShown, 'OnKeyboardShow');

BakimForm.AddNewEvent(BakimForm, tbeOnVirtualKeyboardHidden, 'OnKeyboardHide');

BakimForm.AddNewEvent(BakimForm, tbeOnFormActivate, 'DiliVeArayuzuGuncelle');

UiFontSize = 15;

OkunanFontAdi = 'Arial';

gAktifDilIndex = 0;

gCounter = 0;

AyarlariYukle;

PnlNavBar = BakimForm.AddNewProPanel(BakimForm, 'PnlNavBar');

PnlNavBar.Align = alTop;

PnlNavBar.Height = 92;

StyleHeaderBar(PnlNavBar);

BtnGeri = BakimForm.AddNewProButton(PnlNavBar, 'BtnGeri', '<');

BtnGeri.Align = alLeft;

BtnGeri.Width = 48;

BtnGeri.Margins.Top = 40;

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);

BakimForm.AddNewEvent(BtnGeri, tbeOnClick, 'GoBack');

LblNavTitle = BakimForm.AddNewProLabel(PnlNavBar, 'LblNavTitle', '');

LblNavTitle.Align = alClient;

LblNavTitle.Margins.Top = 40;

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);

PnlHeaderTop = BakimForm.AddNewProPanel(BakimForm, 'PnlHeaderTop');

PnlHeaderTop.Align = alTop;

PnlHeaderTop.Height = 55;

StyleHeaderBar(PnlHeaderTop);

BtnYeni = BakimForm.AddNewProButton(PnlHeaderTop, 'BtnYeni', '');

BtnYeni.Align = alLeft;

BtnYeni.Width = 90;

BtnYeni.Margins.Left = 15;

BtnYeni.Margins.Top = 10;

BtnYeni.Margins.Bottom = 10;

StyleTopBtnYeni(BtnYeni);

BakimForm.AddNewEvent(BtnYeni, tbeOnClick, 'BtnYeniClick');

BtnKaydet = BakimForm.AddNewProButton(PnlHeaderTop, 'BtnKaydet', '');

BtnKaydet.Align = alLeft;

BtnKaydet.Width = 90;

BtnKaydet.Margins.Left = 10;

BtnKaydet.Margins.Top = 10;

BtnKaydet.Margins.Bottom = 10;

StyleTopBtnKaydet(BtnKaydet);

BakimForm.AddNewEvent(BtnKaydet, tbeOnClick, 'BtnKaydetClick');

BtnYazdir = BakimForm.AddNewProButton(PnlHeaderTop, 'BtnYazdir', '');

BtnYazdir.Align = alLeft;

BtnYazdir.Width = 90;

BtnYazdir.Margins.Left = 10;

BtnYazdir.Margins.Top = 10;

BtnYazdir.Margins.Bottom = 10;

StyleTopBtnYazdir(BtnYazdir);

BakimForm.AddNewEvent(BtnYazdir, tbeOnClick, 'BtnYazdirClick');

ScrollForm = BakimForm.AddNewVertScrollBox(BakimForm, 'ScrollForm');

ScrollForm.Align = alClient;

PnlMainCard = BakimForm.AddNewProPanel(ScrollForm, 'PnlMainCard');

PnlMainCard.Align = alTop;

PnlMainCard.Height = 1600;

PnlMainCard.Margins.Top = 10;

PnlMainCard.Margins.Bottom = 20;

PnlMainCard.Margins.Left = 10;

PnlMainCard.Margins.Right = 10;

StyleMainCard(PnlMainCard);

LblSect1Title = BakimForm.AddNewProLabel(PnlMainCard, 'LblSect1Title', '');

LblSect1Title.Align = alTop;

LblSect1Title.Height = 35;

LblSect1Title.Margins.Left = 15;

LblSect1Title.Margins.Top = 15;

StyleSectionTitle(LblSect1Title);

GrpBelgeNo = BakimForm.AddNewProPanel(PnlMainCard, 'GrpBelgeNo');

GrpBelgeNo.Align = alTop;

GrpBelgeNo.Height = 65;

GrpBelgeNo.Margins.Top = 10;

GrpBelgeNo.Margins.Left = 15;

GrpBelgeNo.Margins.Right = 15;

StyleInputPanel(GrpBelgeNo);

LblBelgeNo = BakimForm.AddNewProLabel(GrpBelgeNo, 'LblBelgeNo', '');

LblBelgeNo.Align = alTop;

LblBelgeNo.Height = 18;

LblBelgeNo.Margins.Left = 10;

LblBelgeNo.Margins.Top = 6;

StyleInputLabel(LblBelgeNo);

BtnRehberAc = BakimForm.AddNewProButton(GrpBelgeNo, 'BtnRehberAc', '🔍');

BtnRehberAc.Align = alRight;

BtnRehberAc.Width = 45;

BtnRehberAc.Margins.Right = 10;

BtnRehberAc.Margins.Bottom = 7;

StyleActionButton(BtnRehberAc);

BakimForm.AddNewEvent(BtnRehberAc, tbeOnClick, 'BtnRehberBelgeClick');

EdtBelgeNo = BakimForm.AddNewProEdit(GrpBelgeNo, 'EdtBelgeNo', '');

EdtBelgeNo.Align = alClient;

EdtBelgeNo.Margins.Left = 10;

EdtBelgeNo.Margins.Right = 5;

EdtBelgeNo.Margins.Bottom = 7;

StyleReadonlyEdit(EdtBelgeNo);

GrpTarih = BakimForm.AddNewProPanel(PnlMainCard, 'GrpTarih');

GrpTarih.Align = alTop;

GrpTarih.Height = 65;

GrpTarih.Margins.Top = 10;

GrpTarih.Margins.Left = 15;

GrpTarih.Margins.Right = 15;

StyleInputPanel(GrpTarih);

LblTarih = BakimForm.AddNewProLabel(GrpTarih, 'LblTarih', '');

LblTarih.Align = alTop;

LblTarih.Height = 18;

LblTarih.Margins.Left = 10;

LblTarih.Margins.Top = 6;

StyleInputLabel(LblTarih);

EdtTarih = BakimForm.AddNewProEdit(GrpTarih, 'EdtTarih', '');

EdtTarih.Align = alClient;

EdtTarih.Margins.Left = 10;

EdtTarih.Margins.Right = 10;

EdtTarih.Margins.Bottom = 7;

StyleReadonlyEdit(EdtTarih);

GrpBakimTipi = BakimForm.AddNewProPanel(PnlMainCard, 'GrpBakimTipi');

GrpBakimTipi.Align = alTop;

GrpBakimTipi.Height = 65;

GrpBakimTipi.Margins.Top = 10;

GrpBakimTipi.Margins.Left = 15;

GrpBakimTipi.Margins.Right = 15;

StyleInputPanel(GrpBakimTipi);

LblBakimTipi = BakimForm.AddNewProLabel(GrpBakimTipi, 'LblBakimTipi', '');

LblBakimTipi.Align = alTop;

LblBakimTipi.Height = 18;

LblBakimTipi.Margins.Left = 10;

LblBakimTipi.Margins.Top = 6;

StyleInputLabel(LblBakimTipi);

CmbBakimTipi = BakimForm.AddNewComboBox(GrpBakimTipi, 'CmbBakimTipi');

CmbBakimTipi.Align = alClient;

CmbBakimTipi.Margins.Left = 10;

CmbBakimTipi.Margins.Right = 10;

CmbBakimTipi.Margins.Bottom = 7;

GrpBakimTuru = BakimForm.AddNewProPanel(PnlMainCard, 'GrpBakimTuru');

GrpBakimTuru.Align = alTop;

GrpBakimTuru.Height = 65;

GrpBakimTuru.Margins.Top = 10;

GrpBakimTuru.Margins.Left = 15;

GrpBakimTuru.Margins.Right = 15;

StyleInputPanel(GrpBakimTuru);

LblBakimTuru = BakimForm.AddNewProLabel(GrpBakimTuru, 'LblBakimTuru', '');

LblBakimTuru.Align = alTop;

LblBakimTuru.Height = 18;

LblBakimTuru.Margins.Left = 10;

LblBakimTuru.Margins.Top = 6;

StyleInputLabel(LblBakimTuru);

CmbBakimTuru = BakimForm.AddNewComboBox(GrpBakimTuru, 'CmbBakimTuru');

CmbBakimTuru.Align = alClient;

CmbBakimTuru.Margins.Left = 10;

CmbBakimTuru.Margins.Right = 10;

CmbBakimTuru.Margins.Bottom = 7;

GrpBakimKodu = BakimForm.AddNewProPanel(PnlMainCard, 'GrpBakimKodu');

GrpBakimKodu.Align = alTop;

GrpBakimKodu.Height = 65;

GrpBakimKodu.Margins.Top = 10;

GrpBakimKodu.Margins.Left = 15;

GrpBakimKodu.Margins.Right = 15;

StyleInputPanel(GrpBakimKodu);

LblBakimKodu = BakimForm.AddNewProLabel(GrpBakimKodu, 'LblBakimKodu', '');

LblBakimKodu.Align = alTop;

LblBakimKodu.Height = 18;

LblBakimKodu.Margins.Left = 10;

LblBakimKodu.Margins.Top = 6;

StyleInputLabel(LblBakimKodu);

BtnBakimKoduRehber = BakimForm.AddNewProButton(GrpBakimKodu, 'BtnBakimKoduRehber', '🔍');

BtnBakimKoduRehber.Align = alRight;

BtnBakimKoduRehber.Width = 45;

BtnBakimKoduRehber.Margins.Right = 10;

BtnBakimKoduRehber.Margins.Bottom = 7;

StyleActionButton(BtnBakimKoduRehber);

BakimForm.AddNewEvent(BtnBakimKoduRehber, tbeOnClick, 'BtnBakimKoduRehberClick');

EdtBakimKodu = BakimForm.AddNewProEdit(GrpBakimKodu, 'EdtBakimKodu', '');

EdtBakimKodu.Align = alClient;

EdtBakimKodu.Margins.Left = 10;

EdtBakimKodu.Margins.Right = 5;

EdtBakimKodu.Margins.Bottom = 7;

StyleReadonlyEdit(EdtBakimKodu);

GrpMakineKodu = BakimForm.AddNewProPanel(PnlMainCard, 'GrpMakineKodu');

GrpMakineKodu.Align = alTop;

GrpMakineKodu.Height = 65;

GrpMakineKodu.Margins.Top = 10;

GrpMakineKodu.Margins.Left = 15;

GrpMakineKodu.Margins.Right = 15;

StyleInputPanel(GrpMakineKodu);

LblMakineKodu = BakimForm.AddNewProLabel(GrpMakineKodu, 'LblMakineKodu', '');

LblMakineKodu.Align = alTop;

LblMakineKodu.Height = 18;

LblMakineKodu.Margins.Left = 10;

LblMakineKodu.Margins.Top = 6;

StyleInputLabel(LblMakineKodu);

BtnMakineKoduRehber = BakimForm.AddNewProButton(GrpMakineKodu, 'BtnMakineKoduRehber', '🔍');

BtnMakineKoduRehber.Align = alRight;

BtnMakineKoduRehber.Width = 45;

BtnMakineKoduRehber.Margins.Right = 10;

BtnMakineKoduRehber.Margins.Bottom = 7;

StyleActionButton(BtnMakineKoduRehber);

BakimForm.AddNewEvent(BtnMakineKoduRehber, tbeOnClick, 'BtnMakineKoduRehberClick');

EdtMakineKodu = BakimForm.AddNewProEdit(GrpMakineKodu, 'EdtMakineKodu', '');

EdtMakineKodu.Align = alClient;

EdtMakineKodu.Margins.Left = 10;

EdtMakineKodu.Margins.Right = 5;

EdtMakineKodu.Margins.Bottom = 7;

StyleReadonlyEdit(EdtMakineKodu);

GrpBaglanti = BakimForm.AddNewProPanel(PnlMainCard, 'GrpBaglanti');

GrpBaglanti.Align = alTop;

GrpBaglanti.Height = 65;

GrpBaglanti.Margins.Top = 10;

GrpBaglanti.Margins.Left = 15;

GrpBaglanti.Margins.Right = 15;

StyleInputPanel(GrpBaglanti);

LblBaglanti = BakimForm.AddNewProLabel(GrpBaglanti, 'LblBaglanti', '');

LblBaglanti.Align = alTop;

LblBaglanti.Height = 18;

LblBaglanti.Margins.Left = 10;

LblBaglanti.Margins.Top = 6;

StyleInputLabel(LblBaglanti);

BtnBaglantiRehber = BakimForm.AddNewProButton(GrpBaglanti, 'BtnBaglantiRehber', '🔍');

BtnBaglantiRehber.Align = alRight;

BtnBaglantiRehber.Width = 45;

BtnBaglantiRehber.Margins.Right = 10;

BtnBaglantiRehber.Margins.Bottom = 7;

StyleActionButton(BtnBaglantiRehber);

BakimForm.AddNewEvent(BtnBaglantiRehber, tbeOnClick, 'BtnBaglantiRehberClick');

EdtBaglanti = BakimForm.AddNewProEdit(GrpBaglanti, 'EdtBaglanti', '');

EdtBaglanti.Align = alClient;

EdtBaglanti.Margins.Left = 10;

EdtBaglanti.Margins.Right = 5;

EdtBaglanti.Margins.Bottom = 7;

StyleReadonlyEdit(EdtBaglanti);

GrpCariKodu = BakimForm.AddNewProPanel(PnlMainCard, 'GrpCariKodu');

GrpCariKodu.Align = alTop;

GrpCariKodu.Height = 65;

GrpCariKodu.Margins.Top = 10;

GrpCariKodu.Margins.Left = 15;

GrpCariKodu.Margins.Right = 15;

StyleInputPanel(GrpCariKodu);

LblCariKodu = BakimForm.AddNewProLabel(GrpCariKodu, 'LblCariKodu', '');

LblCariKodu.Align = alTop;

LblCariKodu.Height = 18;

LblCariKodu.Margins.Left = 10;

LblCariKodu.Margins.Top = 6;

StyleInputLabel(LblCariKodu);

BtnCariKoduRehber = BakimForm.AddNewProButton(GrpCariKodu, 'BtnCariKoduRehber', '🔍');

BtnCariKoduRehber.Align = alRight;

BtnCariKoduRehber.Width = 45;

BtnCariKoduRehber.Margins.Right = 10;

BtnCariKoduRehber.Margins.Bottom = 7;

StyleActionButton(BtnCariKoduRehber);

BakimForm.AddNewEvent(BtnCariKoduRehber, tbeOnClick, 'BtnCariKoduRehberClick');

EdtCariKodu = BakimForm.AddNewProEdit(GrpCariKodu, 'EdtCariKodu', '');

EdtCariKodu.Align = alClient;

EdtCariKodu.Margins.Left = 10;

EdtCariKodu.Margins.Right = 5;

EdtCariKodu.Margins.Bottom = 7;

StyleReadonlyEdit(EdtCariKodu);

GrpBaslangic = BakimForm.AddNewProPanel(PnlMainCard, 'GrpBaslangic');

GrpBaslangic.Align = alTop;

GrpBaslangic.Height = 65;

GrpBaslangic.Margins.Top = 10;

GrpBaslangic.Margins.Left = 15;

GrpBaslangic.Margins.Right = 15;

StyleInputPanel(GrpBaslangic);

LblBaslangic = BakimForm.AddNewProLabel(GrpBaslangic, 'LblBaslangic', '');

LblBaslangic.Align = alTop;

LblBaslangic.Height = 18;

LblBaslangic.Margins.Left = 10;

LblBaslangic.Margins.Top = 6;

StyleInputLabel(LblBaslangic);

EdtBaslangicSaat = BakimForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangicSaat', '');

EdtBaslangicSaat.Align = alRight;

EdtBaslangicSaat.Width = 100;

EdtBaslangicSaat.Margins.Right = 10;

EdtBaslangicSaat.Margins.Bottom = 7;

StyleReadonlyEdit(EdtBaslangicSaat);

EdtBaslangic = BakimForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangic', '');

EdtBaslangic.Align = alClient;

EdtBaslangic.Margins.Left = 10;

EdtBaslangic.Margins.Right = 5;

EdtBaslangic.Margins.Bottom = 7;

StyleReadonlyEdit(EdtBaslangic);

GrpGirisZamani = BakimForm.AddNewProPanel(PnlMainCard, 'GrpGirisZamani');

GrpGirisZamani.Align = alTop;

GrpGirisZamani.Height = 65;

GrpGirisZamani.Margins.Top = 10;

GrpGirisZamani.Margins.Left = 15;

GrpGirisZamani.Margins.Right = 15;

StyleInputPanel(GrpGirisZamani);

LblGirisZamani = BakimForm.AddNewProLabel(GrpGirisZamani, 'LblGirisZamani', '');

LblGirisZamani.Align = alTop;

LblGirisZamani.Height = 18;

LblGirisZamani.Margins.Left = 10;

LblGirisZamani.Margins.Top = 6;

StyleInputLabel(LblGirisZamani);

EdtGirisZamani = BakimForm.AddNewProEdit(GrpGirisZamani, 'EdtGirisZamani', '');

EdtGirisZamani.Align = alClient;

EdtGirisZamani.Margins.Left = 10;

EdtGirisZamani.Margins.Right = 10;

EdtGirisZamani.Margins.Bottom = 7;

StyleReadonlyEdit(EdtGirisZamani);

GrpPlanlananBitis = BakimForm.AddNewProPanel(PnlMainCard, 'GrpPlanlananBitis');

GrpPlanlananBitis.Align = alTop;

GrpPlanlananBitis.Height = 65;

GrpPlanlananBitis.Margins.Top = 10;

GrpPlanlananBitis.Margins.Left = 15;

GrpPlanlananBitis.Margins.Right = 15;

StyleInputPanel(GrpPlanlananBitis);

LblPlanlananBitis = BakimForm.AddNewProLabel(GrpPlanlananBitis, 'LblPlanlananBitis', '');

LblPlanlananBitis.Align = alTop;

LblPlanlananBitis.Height = 18;

LblPlanlananBitis.Margins.Left = 10;

LblPlanlananBitis.Margins.Top = 6;

StyleInputLabel(LblPlanlananBitis);

CmbPlanlananBitis = BakimForm.AddNewComboBox(GrpPlanlananBitis, 'CmbPlanlananBitis');

CmbPlanlananBitis.Align = alClient;

CmbPlanlananBitis.Margins.Left = 10;

CmbPlanlananBitis.Margins.Right = 10;

CmbPlanlananBitis.Margins.Bottom = 7;

GrpBakimDurumu = BakimForm.AddNewProPanel(PnlMainCard, 'GrpBakimDurumu');

GrpBakimDurumu.Align = alTop;

GrpBakimDurumu.Height = 65;

GrpBakimDurumu.Margins.Top = 10;

GrpBakimDurumu.Margins.Left = 15;

GrpBakimDurumu.Margins.Right = 15;

StyleInputPanel(GrpBakimDurumu);

LblBakimDurumu = BakimForm.AddNewProLabel(GrpBakimDurumu, 'LblBakimDurumu', '');

LblBakimDurumu.Align = alTop;

LblBakimDurumu.Height = 18;

LblBakimDurumu.Margins.Left = 10;

LblBakimDurumu.Margins.Top = 6;

StyleInputLabel(LblBakimDurumu);

CmbBakimDurumu = BakimForm.AddNewComboBox(GrpBakimDurumu, 'CmbBakimDurumu');

CmbBakimDurumu.Align = alClient;

CmbBakimDurumu.Margins.Left = 10;

CmbBakimDurumu.Margins.Right = 10;

CmbBakimDurumu.Margins.Bottom = 7;

GrpKisiSayisi = BakimForm.AddNewProPanel(PnlMainCard, 'GrpKisiSayisi');

GrpKisiSayisi.Align = alTop;

GrpKisiSayisi.Height = 65;

GrpKisiSayisi.Margins.Top = 10;

GrpKisiSayisi.Margins.Left = 15;

GrpKisiSayisi.Margins.Right = 15;

StyleInputPanel(GrpKisiSayisi);

LblKisiSayisi = BakimForm.AddNewProLabel(GrpKisiSayisi, 'LblKisiSayisi', '');

LblKisiSayisi.Align = alTop;

LblKisiSayisi.Height = 18;

LblKisiSayisi.Margins.Left = 10;

LblKisiSayisi.Margins.Top = 6;

StyleInputLabel(LblKisiSayisi);

EdtKisiSayisi = BakimForm.AddNewProEdit(GrpKisiSayisi, 'EdtKisiSayisi', '');

EdtKisiSayisi.Align = alClient;

EdtKisiSayisi.Margins.Left = 10;

EdtKisiSayisi.Margins.Right = 10;

EdtKisiSayisi.Margins.Bottom = 7;

StyleInputEdit(EdtKisiSayisi);

BindInputFocus(EdtKisiSayisi);

BakimForm.AddNewEvent(EdtKisiSayisi, tbeOnEnter, 'KlvKisiSayisi');

GrpOperatorGrup = BakimForm.AddNewProPanel(PnlMainCard, 'GrpOperatorGrup');

GrpOperatorGrup.Align = alTop;

GrpOperatorGrup.Height = 65;

GrpOperatorGrup.Margins.Top = 10;

GrpOperatorGrup.Margins.Left = 15;

GrpOperatorGrup.Margins.Right = 15;

StyleInputPanel(GrpOperatorGrup);

LblOperatorGrup = BakimForm.AddNewProLabel(GrpOperatorGrup, 'LblOperatorGrup', '');

LblOperatorGrup.Align = alTop;

LblOperatorGrup.Height = 18;

LblOperatorGrup.Margins.Left = 10;

LblOperatorGrup.Margins.Top = 6;

StyleInputLabel(LblOperatorGrup);

CmbOperatorGrup = BakimForm.AddNewComboBox(GrpOperatorGrup, 'CmbOperatorGrup');

CmbOperatorGrup.Align = alClient;

CmbOperatorGrup.Margins.Left = 10;

CmbOperatorGrup.Margins.Right = 10;

CmbOperatorGrup.Margins.Bottom = 7;

GrpOperator = BakimForm.AddNewProPanel(PnlMainCard, 'GrpOperator');

GrpOperator.Align = alTop;

GrpOperator.Height = 65;

GrpOperator.Margins.Top = 10;

GrpOperator.Margins.Left = 15;

GrpOperator.Margins.Right = 15;

StyleInputPanel(GrpOperator);

LblOperator = BakimForm.AddNewProLabel(GrpOperator, 'LblOperator', '');

LblOperator.Align = alTop;

LblOperator.Height = 18;

LblOperator.Margins.Left = 10;

LblOperator.Margins.Top = 6;

StyleInputLabel(LblOperator);

CmbOperator = BakimForm.AddNewComboBox(GrpOperator, 'CmbOperator');

CmbOperator.Align = alClient;

CmbOperator.Margins.Left = 10;

CmbOperator.Margins.Right = 10;

CmbOperator.Margins.Bottom = 7;

GrpOperatorBilgisi = BakimForm.AddNewProPanel(PnlMainCard, 'GrpOperatorBilgisi');

GrpOperatorBilgisi.Align = alTop;

GrpOperatorBilgisi.Height = 65;

GrpOperatorBilgisi.Margins.Top = 10;

GrpOperatorBilgisi.Margins.Left = 15;

GrpOperatorBilgisi.Margins.Right = 15;

StyleInputPanel(GrpOperatorBilgisi);

LblOperatorBilgisi = BakimForm.AddNewProLabel(GrpOperatorBilgisi, 'LblOperatorBilgisi', '');

LblOperatorBilgisi.Align = alTop;

LblOperatorBilgisi.Height = 18;

LblOperatorBilgisi.Margins.Left = 10;

LblOperatorBilgisi.Margins.Top = 6;

StyleInputLabel(LblOperatorBilgisi);

BtnOperatorKaydet = BakimForm.AddNewProButton(GrpOperatorBilgisi, 'BtnOperatorKaydet', 'Ekle');

BtnOperatorKaydet.Align = alRight;

BtnOperatorKaydet.Width = 60;

BtnOperatorKaydet.Margins.Right = 10;

BtnOperatorKaydet.Margins.Bottom = 7;

StylePrimaryButton(BtnOperatorKaydet);

BakimForm.AddNewEvent(BtnOperatorKaydet, tbeOnClick, 'BtnOperatorKaydetClick');

CmbYeniOperatorGrup = BakimForm.AddNewComboBox(GrpOperatorBilgisi, 'CmbYeniOperatorGrup');

CmbYeniOperatorGrup.Align = alRight;

CmbYeniOperatorGrup.Width = 90;

CmbYeniOperatorGrup.Margins.Right = 5;

CmbYeniOperatorGrup.Margins.Bottom = 7;

CmbYeniOperatorGrup.AddItem('A Grubu', 'A');

CmbYeniOperatorGrup.AddItem('B Grubu', 'B');

CmbYeniOperatorGrup.AddItem('C Grubu', 'C');

EdtOperatorBilgisi = BakimForm.AddNewProEdit(GrpOperatorBilgisi, 'EdtOperatorBilgisi', '');

EdtOperatorBilgisi.Align = alClient;

EdtOperatorBilgisi.Margins.Left = 10;

EdtOperatorBilgisi.Margins.Right = 5;

EdtOperatorBilgisi.Margins.Bottom = 7;

StyleInputEdit(EdtOperatorBilgisi);

BindInputFocus(EdtOperatorBilgisi);

BakimForm.AddNewEvent(EdtOperatorBilgisi, tbeOnEnter, 'KlvOperatorBilgisi');

GrpAciklama = BakimForm.AddNewProPanel(PnlMainCard, 'GrpAciklama');

GrpAciklama.Align = alTop;

GrpAciklama.Height = 65;

GrpAciklama.Margins.Top = 10;

GrpAciklama.Margins.Left = 15;

GrpAciklama.Margins.Right = 15;

StyleInputPanel(GrpAciklama);

LblAciklama = BakimForm.AddNewProLabel(GrpAciklama, 'LblAciklama', '');

LblAciklama.Align = alTop;

LblAciklama.Height = 18;

LblAciklama.Margins.Left = 10;

LblAciklama.Margins.Top = 6;

StyleInputLabel(LblAciklama);

EdtAciklama = BakimForm.AddNewProEdit(GrpAciklama, 'EdtAciklama', '');

EdtAciklama.Align = alClient;

EdtAciklama.Margins.Left = 10;

EdtAciklama.Margins.Right = 10;

EdtAciklama.Margins.Bottom = 7;

StyleInputEdit(EdtAciklama);

BindInputFocus(EdtAciklama);

BakimForm.AddNewEvent(EdtAciklama, tbeOnEnter, 'KlvAciklama');

LblGridTitle = BakimForm.AddNewProLabel(PnlMainCard, 'LblGridTitle', '');

LblGridTitle.Align = alTop;

LblGridTitle.Height = 35;

LblGridTitle.Margins.Left = 15;

LblGridTitle.Margins.Top = 15;

StyleSectionTitle(LblGridTitle);

HScrollGrid = BakimForm.AddNewHorzScrollBox(PnlMainCard, 'HScrollGrid');

HScrollGrid.Align = alTop;

HScrollGrid.Height = 170;

HScrollGrid.Margins.Left = 15;

HScrollGrid.Margins.Right = 15;

HScrollGrid.Margins.Top = 5;

PnlGridContainer = BakimForm.AddNewProPanel(HScrollGrid, 'PnlGridContainer');

PnlGridContainer.Align = alLeft;

PnlGridContainer.Width = 600;

PnlGridContainer.Height = 160;

StyleInputPanel(PnlGridContainer);

PnlGridHeader = BakimForm.AddNewProPanel(PnlGridContainer, 'PnlGridHeader');

PnlGridHeader.Align = alTop;

PnlGridHeader.Height = 30;

PnlGridHeader.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);

PnlGridHeader.clProSettings.IsFill = True;

PnlGridHeader.SetclProSettings(PnlGridHeader.clProSettings);

LblCol1 = BakimForm.AddNewProLabel(PnlGridHeader, 'LblCol1', '');

LblCol1.Align = alLeft; LblCol1.Width = 80; LblCol1.Height = 30;

LblCol1.clProSettings.FontColor = clAlphaColor.clWhite;

LblCol1.clProSettings.FontSize = UiFontSize - 2; LblCol1.clProSettings.FontHorzAlign = palCenter;

LblCol1.clProSettings.FontVertAlign = palCenter; LblCol1.clProSettings.TextSettings.Font.Style = [fsBold];

LblCol1.SetclProSettings(LblCol1.clProSettings);

LblCol2 = BakimForm.AddNewProLabel(PnlGridHeader, 'LblCol2', '');

LblCol2.Align = alLeft; LblCol2.Width = 150; LblCol2.Height = 30;

LblCol2.clProSettings.FontColor = clAlphaColor.clWhite;

LblCol2.clProSettings.FontSize = UiFontSize - 2; LblCol2.clProSettings.FontHorzAlign = palCenter;

LblCol2.clProSettings.FontVertAlign = palCenter; LblCol2.clProSettings.TextSettings.Font.Style = [fsBold];

LblCol2.SetclProSettings(LblCol2.clProSettings);

LblCol3 = BakimForm.AddNewProLabel(PnlGridHeader, 'LblCol3', '');

LblCol3.Align = alLeft; LblCol3.Width = 60; LblCol3.Height = 30;

LblCol3.clProSettings.FontColor = clAlphaColor.clWhite;

LblCol3.clProSettings.FontSize = UiFontSize - 2; LblCol3.clProSettings.FontHorzAlign = palCenter;

LblCol3.clProSettings.FontVertAlign = palCenter; LblCol3.clProSettings.TextSettings.Font.Style = [fsBold];

LblCol3.SetclProSettings(LblCol3.clProSettings);

LblCol4 = BakimForm.AddNewProLabel(PnlGridHeader, 'LblCol4', '');

LblCol4.Align = alLeft; LblCol4.Width = 60; LblCol4.Height = 30;

LblCol4.clProSettings.FontColor = clAlphaColor.clWhite;

LblCol4.clProSettings.FontSize = UiFontSize - 2; LblCol4.clProSettings.FontHorzAlign = palCenter;

LblCol4.clProSettings.FontVertAlign = palCenter; LblCol4.clProSettings.TextSettings.Font.Style = [fsBold];

LblCol4.SetclProSettings(LblCol4.clProSettings);

LblCol5 = BakimForm.AddNewProLabel(PnlGridHeader, 'LblCol5', '');

LblCol5.Align = alLeft; LblCol5.Width = 80; LblCol5.Height = 30;

LblCol5.clProSettings.FontColor = clAlphaColor.clWhite;

LblCol5.clProSettings.FontSize = UiFontSize - 2; LblCol5.clProSettings.FontHorzAlign = palCenter;

LblCol5.clProSettings.FontVertAlign = palCenter; LblCol5.clProSettings.TextSettings.Font.Style = [fsBold];

LblCol5.SetclProSettings(LblCol5.clProSettings);

LblCol6 = BakimForm.AddNewProLabel(PnlGridHeader, 'LblCol6', '');

LblCol6.Align = alLeft; LblCol6.Width = 80; LblCol6.Height = 30;

LblCol6.clProSettings.FontColor = clAlphaColor.clWhite;

LblCol6.clProSettings.FontSize = UiFontSize - 2; LblCol6.clProSettings.FontHorzAlign = palCenter;

LblCol6.clProSettings.FontVertAlign = palCenter; LblCol6.clProSettings.TextSettings.Font.Style = [fsBold];

LblCol6.SetclProSettings(LblCol6.clProSettings);

ListGrid = BakimForm.AddNewProListView(PnlGridContainer, 'ListGrid');

ListGrid.Align = alClient;

ListGrid.ListType = 'vertical';

ListGrid.clProSettings.ItemHeight = 45;

ListGrid.clProSettings.ItemSpace = 2;

ListGrid.clProSettings.ColCount = 1;

ListGrid.clProSettings.ViewType = lvIcon;

ListGrid.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

ListGrid.SetclProSettings(ListGrid.clProSettings);

ListGridDesigner = BakimForm.AddNewProListViewDesignerPanel(ListGrid, 'ListGridDesigner');

ListGridDesigner.Align = alTop;

ListGridDesigner.Height = 40;

ListGridDesigner.Width = 600;

ListGridDesigner.clProSettings.BackgroundColor = clAlphaColor.clWhite;

ListGridDesigner.clProSettings.IsRound = False;

ListGridDesigner.clProSettings.BorderWidth = 0;

ListGridDesigner.SetclProSettings(ListGridDesigner.clProSettings);

LblD1 = BakimForm.AddNewProLabel(ListGridDesigner, 'LblGridD1', '');

LblD1.Align = alLeft; LblD1.Width = 80; LblD1.Height = 40;

LblD1.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblD1.clProSettings.FontSize = UiFontSize - 2; LblD1.clProSettings.FontHorzAlign = palCenter;

LblD1.clProSettings.FontVertAlign = palCenter;

LblD1.SetclProSettings(LblD1.clProSettings);

LblD2 = BakimForm.AddNewProLabel(ListGridDesigner, 'LblGridD2', '');

LblD2.Align = alLeft; LblD2.Width = 150; LblD2.Height = 40;

LblD2.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblD2.clProSettings.FontSize = UiFontSize - 2; LblD2.clProSettings.FontHorzAlign = palCenter;

LblD2.clProSettings.FontVertAlign = palCenter;

LblD2.SetclProSettings(LblD2.clProSettings);

LblD3 = BakimForm.AddNewProLabel(ListGridDesigner, 'LblGridD3', '');

LblD3.Align = alLeft; LblD3.Width = 60; LblD3.Height = 40;

LblD3.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblD3.clProSettings.FontSize = UiFontSize - 2; LblD3.clProSettings.FontHorzAlign = palCenter;

LblD3.clProSettings.FontVertAlign = palCenter;

LblD3.SetclProSettings(LblD3.clProSettings);

LblD4 = BakimForm.AddNewProLabel(ListGridDesigner, 'LblGridD4', '');

LblD4.Align = alLeft; LblD4.Width = 60; LblD4.Height = 40;

LblD4.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblD4.clProSettings.FontSize = UiFontSize - 2; LblD4.clProSettings.FontHorzAlign = palCenter;

LblD4.clProSettings.FontVertAlign = palCenter;

LblD4.SetclProSettings(LblD4.clProSettings);

LblD5 = BakimForm.AddNewProLabel(ListGridDesigner, 'LblGridD5', '');

LblD5.Align = alLeft; LblD5.Width = 80; LblD5.Height = 40;

LblD5.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblD5.clProSettings.FontSize = UiFontSize - 2; LblD5.clProSettings.FontHorzAlign = palCenter;

LblD5.clProSettings.FontVertAlign = palCenter;

LblD5.SetclProSettings(LblD5.clProSettings);

LblD6 = BakimForm.AddNewProLabel(ListGridDesigner, 'LblGridD6', '');

LblD6.Align = alLeft; LblD6.Width = 80; LblD6.Height = 40;

LblD6.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

LblD6.clProSettings.FontSize = UiFontSize - 2; LblD6.clProSettings.FontHorzAlign = palCenter;

LblD6.clProSettings.FontVertAlign = palCenter;

LblD6.SetclProSettings(LblD6.clProSettings);

ListGridDesigner.AddPanelObject(LblD1, clCaption);

ListGridDesigner.AddPanelObject(LblD2, clText);

ListGridDesigner.AddPanelObject(LblD3, clText2);

ListGridDesigner.AddPanelObject(LblD4, clText3);

ListGridDesigner.AddPanelObject(LblD5, clText4);

ListGridDesigner.AddPanelObject(LblD6, clText5);

ListGrid.SetDesignerPanel(ListGridDesigner);

BtnStokEkleAnaForm = BakimForm.AddNewProButton(PnlMainCard, 'BtnStokEkleAnaForm', '');

BtnStokEkleAnaForm.Align = alTop;

BtnStokEkleAnaForm.Height = 45;

BtnStokEkleAnaForm.Margins.Top = 10;

BtnStokEkleAnaForm.Margins.Left = 15;

BtnStokEkleAnaForm.Margins.Right = 15;

StyleUncoloredOutlineButton(BtnStokEkleAnaForm);

BakimForm.AddNewEvent(BtnStokEkleAnaForm, tbeOnClick, 'FormStokEkleClick');

LblPhotoTitle = BakimForm.AddNewProLabel(PnlMainCard, 'LblPhotoTitle', '');

LblPhotoTitle.Align = alTop;

LblPhotoTitle.Height = 35;

LblPhotoTitle.Margins.Left = 15;

LblPhotoTitle.Margins.Top = 15;

StyleSectionTitle(LblPhotoTitle);

PnlPhotoKutu = BakimForm.AddNewProPanel(PnlMainCard, 'PnlPhotoKutu');

PnlPhotoKutu.Align = alTop;

PnlPhotoKutu.Height = 110;

PnlPhotoKutu.Margins.Left = 15;

PnlPhotoKutu.Margins.Right = 15;

PnlPhotoKutu.Margins.Top = 5;

StyleInputPanel(PnlPhotoKutu);

BtnResimCek = BakimForm.AddNewProButton(PnlPhotoKutu, 'BtnResimCek', '');

BtnResimCek.Align = alRight;

BtnResimCek.Width = 140;

BtnResimCek.Margins.Right = 15;

BtnResimCek.Margins.Top = 15;

BtnResimCek.Margins.Bottom = 15;

StylePrimaryButton(BtnResimCek);

BakimForm.AddNewEvent(BtnResimCek, tbeOnClick, 'TakePhotoClick');

ImgPhoto = BakimForm.AddNewImage(PnlPhotoKutu, 'ImgPhoto');

ImgPhoto.Align = alClient;

ImgPhoto.Margins.Left = 15;

ImgPhoto.Margins.Top = 15;

ImgPhoto.Margins.Bottom = 15;

ImgPhoto.Margins.Right = 15;

LblTalimatTitle = BakimForm.AddNewProLabel(PnlMainCard, 'LblTalimatTitle', '');

LblTalimatTitle.Align = alTop;

LblTalimatTitle.Height = 35;

LblTalimatTitle.Margins.Left = 15;

LblTalimatTitle.Margins.Top = 15;

StyleSectionTitle(LblTalimatTitle);

PnlTalimatKutu = BakimForm.AddNewProPanel(PnlMainCard, 'PnlTalimatKutu');

PnlTalimatKutu.Align = alTop;

PnlTalimatKutu.Height = 150;

PnlTalimatKutu.Margins.Left = 15;

PnlTalimatKutu.Margins.Right = 15;

PnlTalimatKutu.Margins.Top = 5;

StyleInputPanel(PnlTalimatKutu);

MemTabContent = BakimForm.AddNewMemo(PnlTalimatKutu, 'MemTabContent','');

MemTabContent.Align = alClient;

MemTabContent.Margins.Left = 10;

MemTabContent.Margins.Right = 10;

MemTabContent.Margins.Top = 10;

MemTabContent.Margins.Bottom = 10;

MemTabContent.ReadOnly = True;

MemTabContent.Text = GetText('TALIMAT_METNI');

MyJsonItems = '';

SetCurrentDateTime;

ApplyUiSettings;

GridGuncelle;

BakimForm.Run;

}

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

stok ekleme : Var BakimForm, RehberForm, StokFiltreForm:...

Wed, 08 Jul 2026 17:01:45 +0000

Yazar: kayra12
Konu: 1606
G�nderim Zaman�: 08 Temmuz 2026 Saat 17:01

Var

BakimForm, RehberForm, StokFiltreForm: TclGameForm;