דוח עסקאות קריפטו מול משווקים

הוראות הפעלה

הפעל דוח על כל הלקוחות	הדוח יפעל על כל העסקאות (BUY + SELL) לפי טווח התאריכים מהכותרת.
הפעל דוח על רשימה מפולחת	ראשית יופעל אשף החיפוש אשר יבנה רשימת לקוחות לבחינה. אח"כ המנוע של הדוח יחפש עסקאות (כמו בלחצן הקודם) רק עבור הלקוחות מהרשימה.
יצא נתונים	יצוא של טבלת התוצאה לפי העיצוב שלה (סדר העמודות) על המסך.
סנכרן אל טבלת העמלות בספקים	הלחצן הזה הוא חלק ממוצר המדף. מכיל מנגנון סנכרון חד ערכי, עבור כל עסקה בעלת תגמול בדוח - יוצר או מעדכן רשומה אחת בטבלה hyp_Supplier Commission List. את התוצאה ניתן לראות בתיק הספק > מודולים > עמלות לתשלום.
עורך תסריט	הדוח הזה מחייב כתיבת קוד, אין אפשרות להשתמש בו אחרת. הסבר על כתיבת הקוד, בהמשך העמוד. הלחצן הזה זמין רק למנהל הבכיר של הייפר.

טבלת התוצאות של הדוח

כתיבת קוד תסריט

Procedure Init;
Begin
  ReportTb.FldSet.Set_VisualName('Gross Profit LC', 'רווח בניכוי עלויות ₪', he_Hebrew);
  ReportTb.Add_DB_Field('Broker Fee %', '');
  ReportTb.Add_Field('Broker Cost %', '% עלות ביצוע', he_Money, False, 0, he_Edit);
  ReportTb.Add_Field('Broker Fee ILS', 'רווח חדר עסקאות ₪', he_Money, False, 0, he_Edit);
  ReportTb.Add_Field('Broker Commission', '% עמלת משווק', he_Money, False, 0, he_Edit);
  ReportTb.GlobalInit;
End;

Procedure Calc_Fields_For_Report_View;
VAR Y: Integer;
    D: Double;
Begin
  For Y:= 0 to ReportTb.Rowcount-1 Do
    Begin
    // Calc the Broker Fee in ILS
      D:= Round_By_Money_Mask(ReportTb.RField['Broker Fee ccy2',Y] * ReportTb.RField['Execution ccy2 to LC Exch Rate',Y]);
      ReportTb.RField['Broker Fee ILS',Y]:= D;
      ReportTb.RField['Broker Cost %',Y]:= Round_By_Money_Mask(ReportTb.RField['Broker Cost LC',Y] / D);
    // Calc the Broker Fee % (for export to excel by user)
      ReportTb.RField['Broker Commission',Y]:= Round_By_Money_Mask(Safe_Div(ReportTb.RField['Broker Marketing Cost LC',Y],
                                                                            ReportTb.RField['Gross Profit LC',Y]) * 100);
    End;
End;

Function Process_Report_Data: Boolean;
VAR Y, FromDate, Z: Integer;
    D,P: Double;
    Flag: Boolean;
Begin
//======// הספק הזה מקבל נתח מנפח העסקה ולא מהרווח עצמו
  For Y:= 0 to ReportTb.Rowcount-1 Do
    IF ReportTb.ICell[18,Y]{Middleman Account} = 10196 Then
      Begin
        ReportTb.RField['Broker Marketing Cost LC',Y]:= ReportTb.RField['Trade Volume LC',Y] * 0.001;
        ReportTb.Field['Notes',Y]:= '0.1% ממחזור העסקה בשקלים';
      End;

//======// דוגמה מדרגות לפי ווליום בדולר
  FromDate:= EnDate(2024,8,1);                                // החוזה נחתם החל מתאריך הזה
  D:= 0;
  For Y:= 0 to ReportTb.Rowcount-1 Do
    IF (ReportTb.ICell[18,Y]{Middleman Account} = 10187) AND (ReportTb.ICell[1,Y]{BK Entry Date} >= FromDate) Then
      Begin
        D:= D + ReportTb.RField['Trade Volume USD',Y];        // D = מונה מחזור
        P:= 18.5;                                             // P = אחוז עמלה מרווח תפעולי
        IF D > 1000000 Then  P:= 22.5;
        IF D > 5000000 Then  P:= 25;

        ReportTb.RField['Broker Marketing Cost LC',Y]:= ReportTb.RField['Gross Profit LC',Y] * (P/100);
        ReportTb.Field['Notes',Y]:= _Money_To_Str(P,False) + '% עמלה מדורגת לפי מחזור בדולר: '+_Money_To_Str(D,False);
      End;

//======// דוגמה לתגמול על עסקה ראשונה מאז ההצטרפות של הלקוח
  For Y:= 0 to ReportTb.Rowcount-1 Do
    IF (ReportTb.ICell[18,Y]{Middleman Account} = 10137) Then
      Begin
        Flag:= ReportTb.IField['Client First Transaction Date',Y] = ReportTb.IField['BK Entry Date',Y];
        IF Flag Then
          For Z:= 0 to Y-1 Do
            IF ReportTb.ICell[8,Z]{Client Number} = ReportTb.ICell[8,Y] Then
              Begin
                Flag:= False;      // מצאתי עסקה קודמת של הלקוח ולכן אין צורך לשלם למשווק
                BREAK;
              End;
        IF Flag Then
          Begin
            ReportTb.RField['Broker Marketing Cost LC',Y]:= 450;
            ReportTb.Field['Notes',Y]:= '450 שח עמלה לעסקה ראשונה';
          End
              Else
          Begin
            ReportTb.RField['Broker Marketing Cost LC',Y]:= 0;
            ReportTb.Field['Notes',Y]:= 'העסקה נבדקה. אין צורך לשלם עמלה.'
          End;
      End;

  Calc_Fields_For_Report_View;     // Calculate the Broker Fees and Commission data
  Result:= True;                   // survived to this point...
End;