הפקת קבלה דרך תסריט

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

דוגמת Script מלאה

Procedure Create_Receipt_From_Script;
VAR ReqData, Items, Item, Doc: ThJsonNode;
Begin
  ReqData:= ThJsonNode.Create;
  TRY
  //===// Header
    ReqData.Add_Integer('ClientNumber', 512584);
    ReqData.Add_String('Ticket_ID', 'REQ-998877');
    ReqData.Add_Bool('InternalDoc_Dont_Send', True);
    ReqData.Add_String('SalesAgent', 'Dani');
    ReqData.Add_String('Notes', 'תשלום עבור שירותי ייעוץ');
    ReqData.Add_Integer('ReceiptFormPurpose', 0);

  //===// Items
    Items:= ReqData.Add_Array('Items');
    Item:= Items.Add_Object('');                       // you may repeat this in loop
    Item.Add_Integer('PaymentMethod', 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('IntoInternalAccount', 1100);

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

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

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

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

שורות התקבולים - Items

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

{
  "Doc":{
    "ReceiptNumber":65619,
    "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,
    "TotalAmountLc":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":"REQ-998877",
    "AccountCountryCode":"IL",
    "ReceiptFormPurpose":1,
    "MoneyLaundering":0,
    "MoneyLaunderingBundle":0,
    "PersonalIdVerificationMadeBy":"Online SelfService",
    "IpAddress":"",
    "ResponsibleManager":"",
    "OldDocReference":"",
    "OldSoftwareName":"",
    "CancellationTime":"",
    "CancelledBy":"",
    "CancellationReason":"",
    "AccountBalanceAtProductionTime":0.00,
    "CreditLineUsageRiskLc":0,
    "ReceiptCollectionTargetLc":0.00
  }
}

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

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