קריאת יתרות ומסגרת אשראי מתוך תסריט

Function Fman.Request('Get Credit Data', ReqData: ThJsonNode): Boolean;

שני מצבים של המסמך

קוד לדוגמה

Procedure Read_Credit_Data;
VAR ReqData: ThJsonNode;
    JsonText: AnsiString;
    BalanceLC, RiskLC, CustomVaR: Double;
    CanUseCreditLine: Boolean;
Begin
  ReqData:= ThJsonNode.Create;
  TRY
    // Read-only document: fetch current balances before calling an API.
    ReqData.Add_String('Refresh', 'Now');
    // Alternative: ReqData.Add_Value('Refresh', 'When Needed', False);
    // Omit Refresh to use the CLE data already held by the form.
    IF NOT Fman.Request('Get Credit Data', ReqData) Then  EXIT;

    IF NOT ReqData.Value_Boolean(['Data_Query_OK']) Then  EXIT;

    BalanceLC:= ReqData.Value_Real(['Balance_LC'], False);
    RiskLC:= ReqData.Value_Real(['Risk_LC'], False);
    CanUseCreditLine:= ReqData.Value_Boolean(['Can_Credit_Line_Contain_The_Risk']);

    // Optional field: present only when the loaded VaR meets the threshold.
    IF ReqData.Find_Node_ML(['Custom_Value_at_Risk']) <> NIL Then
      CustomVaR:= ReqData.Value_Real(['Custom_Value_at_Risk'], False);

    // if you like to save this object to app log (for examine it) - you can run this line:
    ReqData.Debug_Write_To_Log;

  FINALLY
    ReqData.Free;
  End;
End;

כפיית רענון נתונים

מבנה התוצאה

השדות בכל שורה של Data

דוגמה מפלט אמיתי

{
  "Account_Number":500000,
  "Data_Query_OK":true,
  "Balance_LC":-8564370.19,
  "Risk_LC":-8576715.19,
  "Can_Credit_Line_Contain_The_Risk":true,
  "Data":[
    {
      "Balance":-8494799.36,
      "Currency":"ILS",
      "ExchangeRate":1,
      "FloatingBalanceLc":-8494799.36,
      "PlaygroundBalance":0,
      "PlaygroundSum":-8494799.36,
      "PlaygroundSumLc":-8494799.36,
      "CreditLine":15000000.00,
      "CreditLineLc":15000000.00,
      "Securities":-12345,
      "SecuritiesLc":-12345.00
    },
    {
      "Balance":-3847.47,
      "Currency":"USD",
      "ExchangeRate":3.10662,
      "FloatingBalanceLc":-11952.63,
      "PlaygroundBalance":0,
      "PlaygroundSum":-3847.47,
      "PlaygroundSumLc":-11952.63,
      "CreditLine":0.00,
      "CreditLineLc":0.00,
      "Securities":0,
      "SecuritiesLc":0.00
    },
    {
      "Balance":-40832.34,
      "Currency":"EUR",
      "ExchangeRate":3.48037745,
      "FloatingBalanceLc":-142111.96,
      "PlaygroundBalance":0,
      "PlaygroundSum":-40832.34,
      "PlaygroundSumLc":-142111.96,
      "CreditLine":0.00,
      "CreditLineLc":0.00,
      "Securities":0,
      "SecuritiesLc":0.00
    },
    {
      "Balance":17827.43,
      "Currency":"GBP",
      "ExchangeRate":4.15578771,
      "FloatingBalanceLc":74087.01,
      "PlaygroundBalance":0,
      "PlaygroundSum":17827.43,
      "PlaygroundSumLc":74087.01,
      "CreditLine":0.00,
      "CreditLineLc":0.00,
      "Securities":0,
      "SecuritiesLc":0.00
    }
  ],
  "Custom_Value_at_Risk":12345
}