הפעלת מודולים של הייפר דרך תסריט

Function Fman.Request(ReqName: String; ReqData: ThJsonNode): Boolean;

הפעלת דוח מאזן בוחן

// script אירוע אתחול מובנה של כל מודול
Procedure Init;
VAR Balance: ThPrvTable;
Begin
  Balance:= Fman.Create_PrvTable('hyp_Accounts', 'Balance',    // שני השדות הראשונים כאן הכרחיים. השניים האחרים לפי הצורך, פשוט הם חלק מהסכמה
                                 ['Account ID','Account Name','Export Account to 3rd party'{חשבון ליצוא},'Account Purpose'{מטרת חשבון}], False);

// 'hyp_Accounts' מכאן שדות חישוביים שאינם חלק מהטבלה
  Balance.Add_Field('Balance', 'יתרה', he_Real, False, 0, he_Edit);
  Balance.Add_Field('Currency', 'מטבע', he_String, False, 4, he_Edit);
  Balance.Add_Field('Balance LC', 'יתרה בשקלים', he_Money, False, 0, he_Edit);
  Balance.Add_Field('Floating Balance LC', 'שערוך לשקלים', he_Money, False, 0, he_Edit);
  Balance.Add_Field('Entries Amount', 'כמות תנועות', he_Integer, False, 0, he_Edit);
  Balance.Add_Field('Last BK Entry Date', 'תאריך רישום אחרון', he_Date, False, 0, he_SelectEdit);
  Balance.Add_Field('Last Cash Flow Date', 'תאריך תזרים אחרון', he_Date, False, 0, he_SelectEdit);
  Balance.Add_Field('Last Doc Type Date', 'תאריך סיווג אחרון', he_Date, False, 0, he_SelectEdit);

  Balance.GlobalInit;
End;


//===// Run Trial Balance
Procedure Run_TrialBalance;
VAR ReqData, AN: ThJsonNode;
    Balance: ThPrvTable;
    I: Integer;
Begin
  ReqData:= ThJsonNode.Create;
  TRY
    ReqData.Add_Value('outputTbl', 'Balance', False);

//===// Optional date filters
    // ReqData.Add_Date('From_Date', SomeFromBKEntryDate);
    // ReqData.Add_Date('Until_Date', SomeUntilBKEntryDate);
    // ReqData.Add_Date('From_CF_Date', SomeFromCashFlowDate);
    // ReqData.Add_Date('Until_CF_Date', SomeUntilCashFlowDate);

//===// Account numbers to include in the report
    AN:= ReqData.Add_Array('ByAccountNumbers');
    AN.Add_Array_Value('79', False);
    AN.Add_Array_Value('80', False);
    AN.Add_Array_Value('81', False);

//===// Optional output cleanup
    ReqData.Add_Value('Delete_Accounts', 'Without Entries', False);

//===// run the report now (under this thread, request will block until the end)
    IF NOT Fman.Request('TrialBalance', ReqData) Then  EXIT;
  FINALLY
    ReqData.Free;
  End;

//===// Use the result table
  Balance:= Fman.Find_PrvTable('Balance');
  Balance.Sort(['Account ID','Currency']);

  For I:= 0 to Balance.RowCount-1 Do
    Begin
    // Read result values from Balance.Cell / Balance.ICell / Balance.RCell
    End;
End;

פרמטרים בהפעלה

פלט הדוח

בקשות נוספות

שליטה על המדפסת

  Fman.Request('Disconnect Prn Logo', NIL);            // ניתוק אירוע הדפסת לוגו ברירת מחדל
  Fman.Request('Connect Prn to A4 Logo', NIL);         // חיבור מחדש לאירוע הדפסת לוגו על עמוד חדש