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

Reference for unit 'KKM_Atol' (#atol_ecr)

TAtollKKM.Registration

Регистрация

Declaration

Source position: kkm_atol.pas line 219

public function TAtollKKM.Registration: Integer;

Description

Данный метод предназначен для выполнения регистрации продажи.

Remark:

При выполнении регистрации в полях Price и Quantity должны содерждаться не нулевые положительные значения.

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

Свойство	Описание
TestMode	Признак тестовой операции
Caption	Наименование товара.
Quantity	Количество товара - положительное вещественное число
Price	Цена товара - положительное вещественное число
Department	Номер секции, по которой проходит регистрация

Remark:

Свойство Caption пока не реализовано в текущей версии драйвера

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