A script to show the same message to the cashier when creating each new order

The message should be displayed after adding the first course to the quick check.

procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var i, CntDish: integer;

    it: TCheckItem;

begin

  if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then

  begin

    CntDish := 0;

    for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin

      it := RKCheck.CurrentOrder.Sessions.Lines[i];

      if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then   

         CntDish := CntDish + 1;

    end;

    if CntDish = 1 then

      gui.ShowMessage('New QuickCheck');

  end;

end;
DELPHI

A script to display the PDS card balance.

The algorithm:

  1. The PDS card balance should be displayed on the order editing form in the quick check.
  2. The balance should be calculated as follows: card balance minus order amount.
  3. If the calculated balance is negative, the amount is shown in red.

Add userGLabel1 and userTimer1 to the quick receipt editing form.

Then add the following scripts to the form:

procedure show_rest_sum;

var i: integer;                            

    Limit, restsum: double;

    CardCode: string;

    McrPay: TMcrPay;

    label_rest: TObject;

begin

  Limit := 0;

  restsum := 0;

  CardCode := '';

  for i := 0 to RKCheck.CurrentOrder.Sessions.McrPays.ItemCount - 1 do begin

    McrPay := TMcrPay(RKCheck.CurrentOrder.Sessions.McrPays.Items[i]);

    Limit := Limit + McrPay.MaxAmount;

    CardCode := McrPay.CardNum;

  end;

  if CardCode = '' then Exit

  else

  begin

    restsum:=Limit-RKCheck.CurrentOrder.ToPaySum;

    label_rest := TObject(gui.FindComponentByName('userGLabel1'));

    if SYS.ObjectInheritsFrom(TObject(label_rest), 'TGLabel') then

    begin

      TGLabel(label_rest).Caption := FloatToStr(restsum);

      if restsum >=0 then

        TGLabel(label_rest).Color := clBlue

      else

        TGLabel(label_rest).Color := clRed;

    end;

  end;

end;


procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);

var

  label_rest: TObject;

begin

  if AVerifyType = vtNewQuickCheck then

    if RKCheck.CurrentOrder.IsEmpty then

    begin

      label_rest := TObject(gui.FindComponentByName('userGLabel1'));

      if SYS.ObjectInheritsFrom(TObject(label_rest), 'TGLabel') then

      begin

        TGLabel(label_rest).Caption := '0';

        TGLabel(label_rest).Color := clBlue;

      end;

    end;

end;


procedure userTimer1OnTimer(Sender: TObject);

begin

  if not RKCheck.Valid then Exit;

  if (GUI.CheckFormInPayMode) then exit;

  if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit;

  show_rest_sum;

end;
DELPHI

Script to display the «Guest Type» button in the Main Menu

The «Staff Meals» button should be added to the main menu. Clicking opens the «Quick Receipt» mode and the «Staff» guest type.

A script for the selector on the main menu:

procedure ProcessOperation1001774(Parameter: integer);

begin

  RKCheck.StrTag := 'Personal';

  RK7.PerformOperation(rkoQuickCheck,0);

end;
DELPHI

On the «New Order (quick check)» form, specify the script for the GuestTypeEditor object in the OnShow event:

procedure GuestTypeEditorOnShowScript(Sender: TObject);

begin

  if RKCheck.StrTag = 'Personal' then

  begin

    RK7.PerformRefObject ( RK7.FindItemByCode(rkrefGuestTypes, 1) );  // specify the guest type code

    RKCheck.StrTag  := '';  

    RK7.PostOperation(rkoEnter,0);

  end;

end;
DELPHI