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]
*
CheckViewOnSuitableObject
A script to hide the tips line
On the editing form of the CheckView object, insert the following script in the OnSuitableObjectScript event:
| Code Block | ||
|---|---|---|
| ||
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
| Code Block | ||
|---|---|---|
| ||
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; |
...
...
A script to hide the change line in closed receipts
| Code Block | ||
|---|---|---|
| ||
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; |
...