the following functions describe how to get the list of Incoming and Outgoing payments in a business account.
MyExternal_Payment_In_Select(QueryName : String,
Optional : String,
FieldsNames : String,
Conditions : String,
OrderBy : String,
Limit : Integer,
String(Group By),
String(Having By));
Demo
VAR Result : String;
VAR Result2 : String;
VAR FileID : String;
VAR ValueStr: String;
VAR Count,i : Integer;
Result := MyExternal_Payment_In_Select('Query1','', '*' , '' , '' , 100, '');
Count := Query_RecordsCount('Query1');
Result := MenuItemAdd('MyMenu','Select', '', '', '', '', '', '', '', '');
Query_First('Query1');
FOR i:=0 TO PRED(Count) DO
(
ValueStr := Query_FieldValue('Query1', 'NEng');
Result := MenuItemAdd('MyMenu',IntToStr(i+1)+'. '+ValueStr, ValueStr, IntToStr(i+1) , '', '', '', '', '', '', '');
Query_Next('Query1');
);
Result := InputMenu('MyMenu', 60000, '', '');
Exit;
MyExternal_Payment_Out_Select(QueryName : String,
Optional : String,
FieldsNames : String,
Conditions : String,
OrderBy : String,
Limit : Integer,
String(Group By),
String(Having By));
My_Pending_External_Payment_Request(QueryName : String,
Optional : String,
FieldsNames : String,
Conditions : String,
OrderBy : String,
Limit : Integer,
String(Group By),
String(Having By));