[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index]

Reference for unit 'KKM_Atol' (#atol_ecr)

TAtollKKM.SetMode

Переключить ККМ в указанный режим работы

Declaration

Source position: kkm_atol.pas line 222

public function TAtollKKM.SetMode(

AMode: Byte

):Integer;

Description

Данный метод переключает ККМ в указанный режим работы.

Доступные режимы:

Номер	Наименование режима
0	Выбор
1	Режим регистрации
2	Режим отчетов без гашения
3	Режим отчетов с гашением
4	Режим программирования
5	Режим доступа к ФП
6	Режим доступа к ЭКЛЗ

Используемые свойства:

Свойство	Описание
Password	Пароль

Example

//Данный пример демонстрируем установку режима, печать Z отчёта и диагностику сообщения об ошибке
begin
  ECRDriver.SetMode(3);
  ECRDriver.ReportZ;
  if ECRDriver.ErrorCode <> 0 then
    MessageDlg('Ошибка','Ошибка печати Z отчёта', mtError, [mbOK], 0);
end

Example

//Пример демонстрирует регистрацию продажи товара
var
  C:Currency;
begin
  //Входим в режим регистрации
  ECRDriver.SetMode(1);
  //Тип чепка - продажи
  ECRDriver.CheckType:=1;
  //Откроем чек
  ECRDriver.OpenCheck;

  C:=0;
  //Регистрируем первую позицию
  ECRDriver.PrintLine('Мороженное');
  ECRDriver.Price:=12.1;
  C:=C + ECRDriver.Price;
  ECRDriver.Quantity:=2;
  ECRDriver.Department:=1;
  ECRDriver.Registration;

  //Регистрируем вторую позицию
  ECRDriver.PrintLine('Пироженное');
  ECRDriver.Price:=10.50;
  C:=C + ECRDriver.Price;
  ECRDriver.Quantity:=2;
  ECRDriver.Department:=1;
  ECRDriver.Registration;

  //Регистрируем 3-ю позицию
  ECRDriver.PrintLine('Мармелад');
  ECRDriver.Price:=21.5;
  C:=C + ECRDriver.Price;
  ECRDriver.Quantity:=2;
  ECRDriver.Department:=1;
  ECRDriver.Registration;

  //Укажем общую сумму покупки
  ECRDriver.Summ:=C;
  //Закроем чек
  ECRDriver.CloseCheck;
  //Вернёмся в режим выбора
  ECRDriver.ResetMode;
end