function ObjectInheritsFrom(PersistentObject: TObject; PersistentClassName: string): boolean;
// Indicates whether an object is a class descendant
@param PersistentObject Object whose affiliation should be checked
@param PersistentClassName Name of the parent class
@return Result of checking
function GetClassName(PersistentObject: TObject): string; //
function GetObjObjectProperty(PersistentObject: TObject; PropName: string; var ValObj: TObject): boolean; //
function GetOrdObjectProperty(PersistentObject: TObject; PropName: string; var ValInt: Integer): boolean; //
function GetInt64ObjectProperty(PersistentObject: TObject; PropName: string; var ValInt64: int64): boolean; //
function GetStrObjectProperty(PersistentObject: TObject; PropName: string; var ValStr: string): boolean; //
function ObjToInt(obj: TObject): integer; //
function IntToObj(i: integer): TObject;
property Tag: integer read FTag write FTag;
property StrTag: string read FStrTag write FstrTag;
GUI (TGUINameSpace = class(TCommonScriptsNamespace) )
class containing graphic functions of r_keeper 7
procedure ShowMessage(const MsgTxt: string);
Creates and displays the message window
@param MsgTxt Message text @see RKMessageDlg
function RKMessageDlg(const Msg: string; DlgType: BYTE; Buttons: WORD; Delay: integer): integer;
Allows to prompt a user to make some choice
@param Msg Message text
@param DlgType Dialogue type
@param Buttons Button set
@param Delay Time during which it is impossible to close a message
@see ShowMessage
function MessageDlgEx(const Msg: string; DlgType: TMsgDlgType; Buttons: word; ButtonCaptions: string): integer;
Dialogue window with certain button captions
@param Msg Message text
@param DlgType Dialogue type
@param Buttons Button set (the sum of constants mbYes+mbNo, etc.)
@param ButtonCaptions Button captions, separated by ;
@return Selected button
function InputBox(const ACaption, APrompt, ADefault: string; UseNumericKeyboard: boolean): string;
Open a form for text input
@param ACaption Form caption
@param APrompt Prompt text
@param ADefault Initial text
@param UseNumericKeyboard Which keypad to use: the numeric one (true) or the one for text input (false)
@return Entered text
function FindComponentByName(const CompName: string): Tcomponent;
Searches for a component in the form that is active at a given moment; in case of failure returns 'nil'
@param CompName Component name
@return Component in case of success, 'nil' otherwise
procedure CmdExec(const CmdLine: string);
Run an external program
@param CmdLine Command line
function CmdExecWithFlags(const CmdLine: string; CmdWindowState: integer; HideCashWindow: boolean): boolean;
Run an external program and specify parameters of appearing windows
@param CmdLine Command line
@param CmdWindowState Window parameters for a program that is run
@param HideCashWindow Whether or not to hide the cash station window
@return Result of program execution
function SwitchToProgram(const aCaption, aClassName: string): boolean;
Switch to an external program
@param aCaption Program caption
@param aClassName Window class name
@return Result of command execution. 'True' if switching is successful
procedure Minimize();
Minimize the program window
procedure Hide();
Hide the program window
property ActiveForm: TCustomForm read getActiveForm;
A copy of a currently active form at the cash station or 'nil' if there is no such form
property ActiveControl: TVisualComponent read getActiveControl;
Component that is focussed on
property CheckFormInPayMode: boolean read getCheckFormInPayMode;
"Cash station in calculation mode" flag
property CheckFormInCouponMode: boolean read getCheckFormInCouponMode;
"Cash station in coupon selection mode" flag
property CanAddNextDish: boolean read getCanAddNextDish;
"Context allows to add dishes" flag
property Tag: integer read FTag write FTag;
property StrTag: string read FStrTag write FstrTag;
RK7 (TRK7NameSpace = class(TCommonScriptsNamespace))
Grants access to r_keeper 7 reference elements and some other objects such as the current user
function RefCollectionByName(const RefCol: integer): TreferentCollection;
Find collection by its number
@RefCol Collection number
@Return Collection
function FindItemBySifr(const RefCol, Sifr: integer): TreferentItem;
Finds an element by its internal identifier (SIFR)
@RefCol Collection number
@Sifr Internal element number
@Return Element or 'nil' in case it's absent
function FindItemByCode(const RefCol, Code: integer): TreferentItem;
Finds an element by the value of the code property (CODE)
@RefCol Collection number
@Code Element code
@See FindItemBySifr
function PerformOperation(Operation, Parameter: integer): integer;
Performs a certain operation
@Operation Operation ID
@Parameter Parameter for operation
@Return Processing result
@See PostOperation
procedure PostOperation(Operation, Parameter: integer);
Places a certain operation in a message queue for subsequent performing
@Operation Operation ID
@Parameter Parameter for operation
@See PerformOperation
function PerformRefObject(Obj: TReferentItem): integer;
Add a trade object to the order
@Obj Object
@Return Processing result
function PerformMcrAlgorith(const Data: string; DeviceID: integer): integer;
Run MCR algorithm
@Data Text data
@DeviceID Device number
@Return Processing result
function PerformMcrAlgorithSilent(const Data: string; DeviceID: integer): integer;
Run MCR algorithm (do not display errors in case of authentication error)
@Data Text data
@DeviceID Device number
@Return Processing result
procedure InterfaceGetAccountSum(IntfID: TIdent; AccountIdent: int64; Period: integer; var Sum1, Sum2, Sum3, Sum4: int64);
Get account amounts over a specified period
@IntfID Interface ID
@AccountIdent Account ID
@Period Accounting period: 2 is a day, 3 is a week, 4 is a month
@Sum1 Deposit amount (+)
@Sum2 Payment amount (-)
@Sum3 Discount amount (-)
@Sum4 Bonus amount (+)
function GetCardInfo(IntfID: TIdent; CardCode: string): TRKCardInfo;
Get information on any card
@IntfID Interface ID
@CardCode Card code (account ID)
@Return Object with card information
function lookUpCardData(const AInputData: string; var AFoundData: string): boolean;
Card search
@ACardData Card code for which a replacement should be found
@ACardCode Data for substitution if available
@Return 'true' if a substitution is found
property CashUser: TCashUser read getCashUser;
Current user of r_keeper 7 station
property Parameters: TRK7Parameters read getParameters;
Various r_keeper 7 parameters
property HallInfos: TRK7HallInfos read getHallInfos;
Statistics on hall plans
property ActiveHallID: integer read getActiveHallID;
ID of the current hall plan (for the order selection window). If another form is opened, the parameter is 0.
property RestaurantCode: integer read GetRestaurantCode;
Restaurant code
property Restaurant: TRK7Restaurant read GetRestaurant;
Current restaurant
property CashGroup: TCashGroup read GetCashGroup;
Current cash server
property Cash: TCashStation read GetCash;
Current cash station
property ShiftNum: integer read GetShiftNum;
Common shift number
property ShiftDate: TDateTime read GetShiftDate;
Logical shift date
property ShiftStartTime: TDateTime read GetShiftStartTime;
Common shift start time
property ProgramVersion: string read GetProgramVersion;
Program version
property RetParam: integer read getRetParam write setRetParam;
Parameter of script running. Set by script
property Tag: integer read FTag write FTag;
property StrTag: string read FStrTag write FstrTag;
Grants access to the current receipt (in the order editing form)
procedure CreateCheckItemByReferenceCode (const RefCol: integer; const Code: string);
Creates a receipt element using an element code from a reference
@RefCol Collection number
@Code Element code
procedure CreateCheckItem(const RefCol: integer; const Code, Param: string);
Creates a receipt element using an element code from a reference
@RefCol Collection number
@Code Element code
@Param Parameter
procedure DeleteCheckItem(CheckItem: TcheckItem);
Delete a receipt element
@CheckItem Element to be deleted
function CheckItemCount(List: TObject): integer;
Count the number of receipt elements in a collection
@List Collection
@Return Number of elements
function CheckItemByNumber(List: TObject; num:integer): TcheckItem;
Take an element with a certain number from a collection
@List Collection
@num Element number
@Return Receipt element
function GetDishSoldQuantity(const Sifr: integer): int64;
This function counts the number of dishes sold during a shift
@Sifr Dish identifier
@Return Number of dishes
function GetDishQuantityWithPDS(const DishSifr: integer; IntfID: integer; const CardCode: string): int64;
This function counts the number of dishes sold during a shift in the orders where a PDS card is indicated
@DishSifr Dish ID
@IntfID ID of the interface with which a discount has been added
@CardCode Discount card code
@Return Number of dishes
function GetDiscountCount(const Sifr: integer; IntfID: integer; const CardCode: string): integer;
This function counts how many times a discount has been applied during a shift
@Sifr Discount identifier
@IntfID ID of the interface with which a discount has been added
@CardCode Discount card code
@Return Number of discounts
function GetNonZeroDiscountCount(const Sifr: integer; IntfID: integer; const CardCode: string): integer;
This function counts how many times a discount has been applied during a shift. Only non-zero discounts are counted
@Sifr Discount ID
@IntfID ID of the interface with which a discount has been added
@CardCode Discount card code
@Return Number of discounts
function GetOperationCount(oper: integer): integer;
This function counts the number of operations performed within a current order
@Oper Operation identifier
@Return Number of operations
procedure UpdateVisitComment(const PersistentComment, NonpersistentComment: string);
Update a visit commentary
@PersistentComment Saved commentary
@NonpersistentComment Unsaved commentary
procedure UpdateOrderProps(Props: TvisitOrderInfo);
Update properties of the current order/visit
@Props is an object having order properties
property Valid : boolean read getValid;
Indicates whether you are in the order editing mode; further use of the RkCheck object is allowed only if the value is 'true'
property CurrentOrder : TOrder read getCurrentOrder;
Current order
@see Valid
property CurrentCheckItem: TCheckItem read getCurrentCheckItem;
Current receipt element
@see Valid
property CurrentOperation: integer read getCurrentOperation;
Operation being performed
property Tag: integer read FTag write FTag;
property StrTag: string read FStrTag write FstrTag;