Clomosy | Forum : Clomosy sunucu/lisans hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:37:31 +0000 Tue, 08 Jul 2025 10:36:52 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1063 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Clomosy sunucu/lisans hatası : Merhaba Turgut,FIRM ID hatası,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1063&PID=2134#2134 Yazar: Emr.Erkmn
Konu: 1063
Gönderim Zamanı: 08 Temmuz 2025 Saat 10:36

Merhaba Turgut, 

FIRM ID hatası, projeye önce mobil cihazdan erişip ardından masaüstü .exe üzerinden çalıştırıldığında zaman zaman karşımıza çıkabiliyor. Bu durumda, Sude’nin daha önce belirttiği gibi uygulamayı tamamen kapatıp yeniden başlatman sorunu çözecektir.

Ayrıca birimler arası geçişte fark edilmeyen küçük bir hata mevcut. Formu void içerisinde tanımlamışsın ancak bu prosedürü daha sonra tekrar çağırmadığın için geçiş sağlanamıyor. İlgili void fonksiyonu doğru bir şekilde tetikleyerek birim geçişini sorunsuz gerçekleştirebilirsin.
]]> Tue, 08 Jul 2025 10:36:52 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1063&PID=2134#2134 <![CDATA[Clomosy sunucu/lisans hatası : Merhaba Turgut aynı hatayı kod...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1063&PID=2132#2132 Yazar: Sudesigirci
Konu: 1063
Gönderim Zamanı: 08 Temmuz 2025 Saat 10:02

Merhaba Turgut aynı hatayı kod üstünde çalışılır bir değişiklik yapsam bile ben de alıyordum masaüstü exeyi kapatıp tekrar derleyip çalıştırdığımda hata gidiyordu belki sana yardımcı olur 

İyi Çalışmalar dilerim.
]]> Tue, 08 Jul 2025 10:02:24 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1063&PID=2132#2132 <![CDATA[Clomosy sunucu/lisans hatası : Masaüstü exe de bu aşağıdaki hatayı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1063&PID=2131#2131 Yazar: turgutkir
Konu: 1063
Gönderim Zamanı: 08 Temmuz 2025 Saat 09:45

Masaüstü exe de bu aşağıdaki hatayı alıyorum, mobilde hata mesajı gözükmüyor
"Personel" veya "Yonetici" seçimini yapıp Devam Et butonuna tıkladığımda hata mesajı da vermiyor ilerleme de olmuyor.ERROR -> [[{"RESULT_ID":0,"Description":"ERROR","ERR":"Member ID, Firm ID or Project ID Is Invalid "}]]
ERROR -> [[{"RESULT_ID":0,"Description":"ERROR","ERR":"Member ID, Firm ID or Project ID Is Invalid "}]]
ERROR -> [[{"RESULT_ID":0,"Description":"ERROR","ERR":"Member ID, Firm ID or Project ID Is Invalid "}]]
ERROR -> [[{"RESULT_ID":0,"Description":"ERROR","ERR":"Member ID, Firm ID or Project ID Is Invalid "}]]

MainCode://------------------------------------------------------------------// MainCode – Rol seçimi ekranı//------------------------------------------------------------------var MainForm : TclForm; lblTitle, lblDesc: TclLabel; cmbRole : TclComboBox; btnNext : TclButton;/*------------------------------ OpenPanel ------------------------*/void OpenPanel;var roleVal : String;{ roleVal = cmbRole.GetValueIndex(cmbRole.ItemIndex); if roleVal == 'personel' { Clomosy.RunUnit('uPersonnelForm'); } else if roleVal == 'yonetici' { Clomosy.RunUnit('uManagerForm'); } else { ShowMessage('Lütfen önce rol seçin.'); }}/*----------------------------- Form kurulumu --------------------*/{ MainForm = TclForm.Create(Self); MainForm.clSetCaption('Rol Seçimi'); lblTitle = MainForm.AddNewLabel(MainForm,'lblTitle', 'Ziyaretçi Yönetim Sistemine Hoş Geldiniz'); lblTitle.Font.Size = 18; lblTitle.Align = alTop; lblTitle.Margins.Top= 24; lblDesc = MainForm.AddNewLabel(MainForm,'lblDesc','Lütfen rolünüzü seçin:'); lblDesc.Align = alTop; lblDesc.Margins.Top = 12; cmbRole = MainForm.AddNewComboBox(MainForm,'cmbRole'); cmbRole.AddItem('Personel','personel'); cmbRole.AddItem('Yönetici','yonetici'); cmbRole.Align = alTop; cmbRole.Margins.Top = 20; cmbRole.Width = 200; cmbRole.ItemIndex = -1; btnNext = MainForm.AddNewButton(MainForm,'btnNext','Devam Et'); btnNext.Align = alTop; btnNext.Margins.Top = 32; btnNext.Width = 200; btnNext.Height = 40; MainForm.AddNewEvent(btnNext, tbeOnClick, 'OpenPanel'); MainForm.Run;}uPersonnelForm://------------------------------------------------------------------// uPersonnelForm – Personel Paneli //------------------------------------------------------------------var FrmPer : TclForm; pnlRoot : TclProPanel; psBase : TclProSettings; edtCompany : TclProEdit; dtPick : TclProDateEdit; edtLoc : TclProEdit; memoPurpose : TclMemo; memoNotes : TclMemo; chkSale : TclProCheckBox; btnSave : TclProButton; qInsert : TclSqlQuery; LoggedUserID: Integer;/*------------------------------ KAYDET -------------------------*/void SaveMeeting;var saleVal : String;{ if Trim(edtCompany.Text) == '' { ShowMessage('Firma / kişi adı boş olamaz!'); Exit; } saleVal = IfThen(chkSale.IsChecked,'1','0'); try qInsert.SQL.Text = 'INSERT INTO Meetings ' + '(UserID,CompanyName,MeetingDate,Location,Purpose,IsSale,Notes) VALUES (' + IntToStr(LoggedUserID) + ',' + QuotedStr(Trim(edtCompany.Text)) + ',' + QuotedStr(FormatDateTime('yyyy-MM-dd HH:nn', dtPick.DateTime)) + ',' + QuotedStr(Trim(edtLoc.Text)) + ',' + QuotedStr(Trim(memoPurpose.Text)) + ',' + saleVal + ',' + QuotedStr(Trim(memoNotes.Text)) + ')'; qInsert.ExecSQL; ShowMessage('Kayıt başarılı ✔'); /* Formu temizle */ edtCompany.Text = ''; edtLoc.Text = ''; memoPurpose.Text = ''; memoNotes.Text = ''; chkSale.IsChecked = False; dtPick.DateTime = Now; except ShowMessage('Hata: ' + LastExceptionMessage); }}/*------------------------------ FORM OLUŞTUR -------------------*/void CreateForm;var h7 , h8 , h15 : Integer;{ /* ---- Stil şablonu ---- */ psBase = TclProSettings.Create(nil); psBase.FontName = 'Segoe UI'; psBase.FontSize = 10; psBase.FontColor = clAlphaColor.clHexToColor('#333333'); psBase.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); psBase.IsFill = True; psBase.IsRound = True; psBase.RoundWidth = 6; psBase.RoundHeight = 6; psBase.BorderWidth = 1; psBase.BorderColor = clAlphaColor.clHexToColor('#d6cdcd'); /* ---- Form ---- */ FrmPer = TclForm.Create(Self); FrmPer.clSetCaption('Personel Paneli'); FrmPer.SetBounds(100, 80, 600, 620); /* ---- Kök panel ---- */ pnlRoot = FrmPer.AddNewProPanel(FrmPer,'pnlRoot'); pnlRoot.Align = alClient; pnlRoot.clProSettings.Assign(psBase); pnlRoot.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5'); pnlRoot.SetclProSettings(pnlRoot.clProSettings); pnlRoot.Padding.Left = 24; pnlRoot.Padding.Top = 24; pnlRoot.Padding.Right = 24; pnlRoot.Padding.Bottom = 24; h7 = (pnlRoot.Height*7) div 100; h8 = (pnlRoot.Height*8) div 100; h15 = (pnlRoot.Height*15) div 100; /* ---- Alanlar ---- */ edtCompany = FrmPer.AddNewProEdit(pnlRoot,'edtCompany','Firma / Kişi'); edtCompany.Align = alTop; edtCompany.Height = h7; edtCompany.SetclProSettings(psBase); dtPick = FrmPer.AddNewProDateEdit(pnlRoot,'dtPick'); dtPick.Align = alTop; dtPick.Height = h7; dtPick.SetclProSettings(psBase); edtLoc = FrmPer.AddNewProEdit(pnlRoot,'edtLoc','Yer'); edtLoc.Align = alTop; edtLoc.Height = h7; edtLoc.SetclProSettings(psBase); memoPurpose = FrmPer.AddNewMemo(pnlRoot,'memoPurpose','Amaç'); memoPurpose.Align = alTop; memoPurpose.Height = h15; memoPurpose.TextSettings.Font.Size = 10; chkSale = FrmPer.AddNewCheckBox(pnlRoot,'chkSale','Satış Gerçekleşti'); chkSale.Align = alTop; chkSale.Margins.Top = 6; memoNotes = FrmPer.AddNewMemo(pnlRoot,'memoNotes','Notlar'); memoNotes.Align = alTop; memoNotes.Height = h15; memoNotes.TextSettings.Font.Size = 10; /* ---- Kaydet butonu ---- */ btnSave = FrmPer.AddNewProButton(pnlRoot,'btnSave','Kaydet'); btnSave.Align = alBottom; btnSave.Height = h8; btnSave.clProSettings.Assign(psBase); btnSave.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2962FF'); btnSave.clProSettings.FontColor = clAlphaColor.clWhite; btnSave.clProSettings.TextSettings.Font.Style = [fsBold]; btnSave.SetclProSettings(btnSave.clProSettings); FrmPer.AddNewEvent(btnSave, tbeOnClick, 'SaveMeeting'); /* ---- DB & varsayılanlar ---- */ LoggedUserID = 1; qInsert = TclSqlQuery.Create(nil); qInsert.Connection = Clomosy.DBSQLServerConnection; dtPick.DateTime = Now; FrmPer.Run;}/*------------------------------ RUNUNIT ------------------------*/void RunUnit;{ if (FrmPer == null) { CreateForm; } else { FrmPer.clShow; }}
]]> Tue, 08 Jul 2025 09:45:35 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1063&PID=2131#2131