אינדקס ישויות עבור כל המודולים

עדכון ישות בזמן ריצה

// MsgType = 13; async into "Update_Queue"
TYPE
  Thyper_ServerApp_Refresh_Index_Request = PACKED RECORD
    Reload_Entity_Number: Integer;         // for example 500123 for client; 10123 for supplier;
    Contacts_Table: Boolean;               // simple flag to reload all contacts of that entity
    From_Storage: Char;                    // must be filled (N/A/D)
    Moved_To_Storage: Char;                // (#0/N/A/D/T) only when moving to a different storage
  End;

Procedure Update_Index(CONST Req: Thyper_ServerApp_Refresh_Index_Request);    // use inside 'server side app'; THREAD SAFE
// this is how to send the message;  use record helper to clear etc
Server.SendMessage(Server_Side_Username, 13, RecVar, sizeof(Thyper_ServerApp_Refresh_Index_Request));

• עדכון אינדקס מלא (כל הטבלאות מחדש) רץ בכל 6 שעות מאז ההצלחה האחרונה. במקרה של כישלון, מנסה שוב לאחר 2 דקות.
  בתחילת תהליך העדכון, תור הבקשות מבוטל לכן במקרה שבו התהליך נכשל אז כל העדכונים נתקעים.
• במקרה של עדכון/הוספה אז השדה From_Storage מציין את מקום האחסון של הרשומה המעודכנת.
• רק במקרה של מחיקה / העברה מארכיון להווה (או להיפך) יש למלא גם את הפרמטר Moved_To_Storage. אחרת יש להעביר אותו ריק.
• כרגע הקוד של מוצר המדף לוכד את העדכונים הנ"ל ושולח בעצמו את הבקשות לעדכון. עליך להתערב רק אם ראית שתסריט שהרצת אינו מעדכן את האינדקס.

בקשת חיפוש מהאינדקס

TYPE
  Thyper_ServerApp_Index_Request = PACKED RECORD            // MsgType = 12
    Req_Unique_ID: Double;                                  // UTC
    Random_ID: Word;                                        // help to indentify in case of multiple requests in the same time
    Reply_To_Username: String[50];                          // this field will be removed soon
  //===//
    ID_Number: Array [0..1] OF String[20];                  // same value, maybe without zeros in prefix
    ID_Number_Type: Array [0..1] OF Byte;                   // value > 0 will activate the filter
    Phone: Array [0..2] OF String[20];
    Email: String[150];                                     // ansi string length = store UTF8 inside it !
    Deleted_Storage, Archive_Storage: Boolean;              // Do you want to search in this storages ?
  End;

  Thyper_ServerApp_Index_Response = PACKED RECORD           // MsgType = 12
    Req_Unique_ID: Double;                                  // values copied from request
    Random_ID: Word;                                        // help to indentify in case of multiple requests in the same time
    Result_Rowcount: Word;                                  // MAX 100 (best) results
  End;

Function Search_Index(Req: Thyper_ServerApp_Index_Request): ThPrvTable;    // use inside 'server side app'; THREAD SAFE
// this is how to send the message;  use record helper to clear etc
Server.SendMessage(Server_Side_Username, 12, RecVar, sizeof(Thyper_ServerApp_Index_Request));

מבנה טבלת התשובות

  Result.Sort(['Storage','Match By','Contact','Full Name','Entity Number']);

הקוד לקליטת התשובה

  IF Index_Response.Result_Rowcount = 0 Then  EXIT;

  Temp_MS:= ThMemoryStream.Create;
  Temp_MS.CopyFrom_MS(Source, Source.Size);              // stream from last position after "Thyper_ServerApp_Index_Response"
  Temp_MS.DeCompress;
  TempTable:= Build_Hyper_ServerApp_Index_Response_Table;
  TempTable.LoadFromMemoryStream(Temp_MS);
  Free_And_NIL(Temp_MS);
  IF NOT TempTable.Empty(0) Then
    RUN_YOUR_CODE_HERE(TempTable);
  Free_And_NIL(TempTable);