RK7 

[

r_keeper 7|file:///D:\profile\Documents%D0%9A%D0%B8%D1%80%D0%B8%D0%BB%D0%BB%D0%A2%D0%B5%D1%85%D0%BD%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B0%D1%8F%20%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D0%B0%D1%86%D0%B8%D1%8F.html]

*

• ...
• Introduction to Scripts
  *

CheckViewOnSuitableObject

A script to hide the tips line

On the editing form of the CheckView object, insert the following script in the OnSuitableObjectScript event:
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;

Anchor
_Hlk78881413 _Hlk78881413

You may also hide the change line by currency type or the discount line by its code in the receipt editor:
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;

Anchor
_Hlk78881433 _Hlk78881433

Anchor
_GoBack _GoBack

A script to hide the change line in closed receipts

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); // hide payments with a negative amount, i.e. change
end;
 CheckViewOnGetColors  CheckViewOnShow, DesignFormOnProcessCard, DesignFormOnRef, CheckViewOnSuitableObject, CheckViewOnGetColors