הפקת משיכה דרך תסריט

Function Fman.Request('Create Refund', ReqData: ThJsonNode): Boolean;

דוגמת Script מלאה

Procedure Create_Refund_From_Script;
VAR ReqData, Items, Item, Doc: ThJsonNode;
Begin
  ReqData:= ThJsonNode.Create;
  TRY
  //===// Header
    ReqData.Add_Integer('ClientNumber', 512584);
    ReqData.Add_String('Ticket_ID', 'WD-998877');
    ReqData.Add_Bool('InternalDoc_Dont_Send', True);
    ReqData.Add_String('SalesAgent', 'Dani');
    ReqData.Add_String('Notes', 'משיכת יתרה לחשבון הבנק של הלקוח');
    ReqData.Add_Integer('RefundFormPurpose', 0);

  //===// Items
    Items:= ReqData.Add_Array('Items');
    Item:= Items.Add_Object('');                       // you may repeat this in loop
    Item.Add_Integer('RefundMethod', 2);               // Bank Transfer
    Item.Add_Date('PaymentDate', Server.Today);
    Item.Add_Money('TotalAmount', 1500.00);
    Item.Add_String('Currency', 'ILS');
//    Item.Add_Real('ExchangeRate', 0);                  // auto rate
    Item.Add_String('BankCode', '12');
    Item.Add_String('BranchSwift', '001');
    Item.Add_String('Account', '123456');
    Item.Add_Integer('BankTransferPaymentFormat', 0);
    Item.Add_Integer('FromInternalAccount', 1100);

  //===// Produce refund
    IF Fman.Request('Create Refund', ReqData) Then
      Begin
        Doc:= ReqData.Find_Node_ML(['Doc']);
        // Doc contains the generated refund header record.
        // Example: Doc.Value_Integer(['RefundNumber'])
      End
    Else
      Begin
        PopupMessage('Refund failed: ' +ReqData.Value_String(['ErrorCode'])+' '+ReqData.Value_String(['ErrorDesc']));
      End;
  FINALLY
    ReqData.Free;
  End;
End;

מה המודול עושה בפועל

1. קורא את
   ClientNumber
   ומוודא שמדובר ביישות לקוח או ספק בהייפר.
2. בודק שאין כפילות בהחזרים קודמים, לפי מספר הישות ושדה
   Ticket_ID
   הנשמר בתוך
   [Internal Notes]
   של ההחזר.
3. טוען את כרטיס הישות, אנשי הקשר וחשבונות הבנק המשויכים אליה.
4. מאתחל כותרת ההחזר חדשה: כולל טלפון, מייל, כתובת, שפה, מטבע לקוח, הערות ב.מ. והגדרות PDF - בהתאם לרשומת הלקוח/ספק ואיש הקשר הנבחר (אם בכלל).
   אחר כך "דורס" את שדות הכותרת שהועברו בקלט (לדוגמה: שדה הערות, שדה סניף).
5. מעתיק את המערך
   Items
   לטבלת התקבולים ובודק כל שורה: אמצעי תשלום, תאריך, סכום, מטבע, שער המרה וחשבון פנימי.
   במקרה של העברה בנקאית באפשרותך לשדר רק את מספר חשבון הבנק והייפר תנסה לאתר את שאר פרטי הבנק במידה ואלו קיימים בטבלת "hyp_Entity_Banking_and_Credit_Cards" ליישות.
   במקרה של חברה המחוייבת בדיווח הלבנת הון, מתבצעת בדיקת אימות לחשבון המוזן. במידה ולא הוזן חשבון, ממשק המשתמש יקפיץ חלון בחירת חשבון מרשומת היישות. במקרה שלא הוזנו פרטי חשבון ולא נבחר חשבון תקין על ידי המשתמש - תהליך ההפקה יעצור כאן.
6. מחשב שדות ומעדכן סכומים בכותרת המשיכה.
7. מכיוון שמדובר ביישום הלקוח של הייפר, מקפיץ "תצוגה לפני הדפסה" עם טופס המשיכה העתידי.
   כאן המשתמש יכול להתערב - ללחוץ על ביטול ולעצור את התהליך טרם השמירה למסד הנתונים.
8. שומר את המסמך וממספר אותו.
9. יוצר פקודות יומן, שורות ניהול קופה / מזומן, ומעדכן שימוש אחרון בפרטי בנק של הישות.
10. מפיק מקור: מסמך חתום דיגיטלית כאשר אפשרי, אחרת הדפסה תרמית או A4 לפי הגדרות התחנה (PC).

הסבר על שדות הקלט באובייקט ReqData

שורות המשיכה - Items

הפלט באובייקט ReqData

{
  "Success": true,
  "Doc":{
    "RefundNumber":24817,
    "Agency":0,
    "DrawerStationId":0,
    "SalesAgent":"דני התותח",
    "ClientNumber":512584,
    "ClientFullName":"לקוח 512584",
    "ContactPerson":"",
    "Address":"24 sesame st. Tel aviv",
    "Phone":"03-1234567",
    "Email":"cookie@monster.com",
    "IdNumber":"987654321",
    "Language":1,
    "InternationalDocument":0,
    "TotalRefundLc":1500.00,
    "PurchaserCurrency":"ILS",
    "TotalAmountInPc":1500.00,
    "OriginProductionTime":"2026-04-26 10:07:41",
    "CreatedOnUtc":"2026-04-26 07:07:41",
    "ProducedBy":"שם משתמש אנושי",
    "ElectronicSignedPdf":3,
    "Notes":"משיכת יתרה לחשבון הבנק של הלקוח",
    "InternalNotes":"WD-998877",
    "RefundFormPurpose":0,
    "MoneyLaundering":0,
    "MoneyLaunderingBundle":0,
    "PersonalIdVerificationMadeBy":"Online SelfService",
    "IpAddress":"",
    "CancellationTime":"",
    "CancelledBy":"",
    "CancellationReason":""
  }
}

במקרה של כישלון מקבלים את הסיבה

{
  "Success": false,
  "ErrorCode": 14,
  "ErrorDesc": "[Payment Date] must be in range of Today downto -366 days; Items[0]"
}