אשף Generate Fields List

  ClientTb.IField['Handling Status',]{סטטוס הלקוח}
  00 = חדש
  01 = מעקב
  02 = מעקב + פגישה / הצעת מחיר
  03 = הלקוח אינו מעוניין
  04 = לקוח שרכש
  05 = לקוח שרכש + מועדון / חוזה
  06 = לקוח מוקפא

  ClientTb.ICell[36,]{Handling Status}{סטטוס הלקוח}
  00 = חדש
  01 = מעקב
  02 = מעקב + פגישה / הצעת מחיר
  03 = הלקוח אינו מעוניין

// דוגמה לשימוש בקוד בתוך אירוע After Edit
Procedure ClientTb_After_Edit(FieldName: String);
Begin
  IF (FieldName = 'first name'){שם פרטי} Then
    PopupMessage('שינית את הערך של השדה ' + FieldName);
End;

Procedure ClientTb_Before_Edit(FieldName: String);
Begin
  ClientTb.FldSet.Set_Duty('Handling Status', True, False, 0); {סטטוס הלקוח}
End;

Procedure Actions_BA_dynamic_1;
Begin
  ContactsTb.Sort(['Client Full Name', '!Handling Status']);
End;

Procedure Actions_BA_dynamic_1;
Begin
  ContactsTb.Search(['Contact Full Name'],[],[]);
End;

Procedure Actions_BA_dynamic_1;
Begin
  ContactsTb.Delete([], [], he_AND);
End;

Procedure Actions_BA_dynamic_1;
Begin
  Clients.Update_Exist_Records(ClientTb, ['Email'], 'N');
End;

DBconn.Reset;
DBconn.Query(ClientTb, True{clear}, ''{nickname}, 'N'{storage});
DBconn.Where_SameVal('Last Name', 'Smith', he_AND);  // Client's First Name
DBconn.Where_SameVal('First Name', 'Dan', he_AND);   // Client's Last Name
DBconn.Close_Query;
DBconn.Execute;

// "PrivateClients" is your ThPrvTable name
// and will be different according to your code
PrivateClients.Add_DB_Field('1st Phone', '');
PrivateClients.Add_DB_Field('2nd Phone', '');