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