Скрипт, прячущий строчку с чаевыми

На форме редактирования у объекта CheckView в событии OnSuitableObjectScript указать скрипт:

procedure CheckViewOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean);
begin
if RKCheck.CurrentOrder.FinishedService then
if (SYS.ObjectInheritsFrom(Obj, 'TPayLine')) then
Suitable := Suitable and (TPayLine(Obj).code <> 1); // Tips code
end;

DELPHI

Также реализовано скрытие сдачи по типу валюты и скидки по её коду в редакторе чека:

procedure CheckViewOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean);
var TypeCurrCode, DiscountCode: integer;
begin
TypeCurrCode := 15; // Currency type
DiscountCode := 1113; // discount code
if (SYS.ObjectInheritsFrom(Obj, 'TDiscountItem')) then
Suitable := Suitable and (TDiscountItem(Obj).Code <> DiscountCode);
if (SYS.ObjectInheritsFrom(Obj, 'TPayLine')) then
if (TPayLine(Obj).BasicSum < 0) then
Suitable := Suitable and (TCurrencyType(TCurrency(TPayLine(Obj).RefItem).MainParent).Code <> TypeCurrCode);
end;

DELPHI

Скрипт, скрывающий строчку со сдачей в закрытых чеках

procedure CheckViewOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean);
begin
if RKCheck.CurrentOrder.FinishedService then
if (SYS.ObjectInheritsFrom(Obj, 'TPayLine')) then
Suitable := Suitable and (TPayLine(Obj).BasicSum >= 0); // скрывать платежи с отрицательно суммой, т.е. сдачу
end;

DELPHI