|
| Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir. |
Clomosy sunucu/lisans hatası |
Yanıt Yaz 
|
| Yazar | |
turgutkir 
Yeni Üye 
Kayıt Tarihi: 25 Haziran 2025 Konum: ADANA Durum: Aktif Değil Puanlar: 19 |
 Mesaj Seçenekleri
Yanıt Yaz
Alıntı turgutkir
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
 Teşekkürler(0)
 Alıntı Cevapla
 Konu: Clomosy sunucu/lisans hatası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;
}
}
|
|
 |
|
|
Sudesigirci
Deneyimli Üye 
Kayıt Tarihi: 24 Haziran 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 53 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Sudesigirci
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
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.
|
|
|
|
|
Emr.Erkmn
Moderatör 
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 108 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 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.
|
|
|
|
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |
Topic Seçenekleri