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

Reference for unit 'KKM_Atol' (#atol_ecr)

TAtollKKM.CloseCheck

Закрыть чек

Declaration

Source position: kkm_atol.pas line 211

public function TAtollKKM.CloseCheck: Integer;

Description

Метод закрытия чека по ККМ.

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

Свойство	Описание
TestMode	Признак тестовой операции
Summ	Сумма вносимых денег в результате выполнения операции
TypeClose	Тип оплаты, с помощью которого производится закрытие данного чека

Метод работает следующим образом:

Если в поле Summ находится 0, то считается что чек закрывается без сдачи. Сумма чека будет равна сумме всех строк внесения.

Если в поле Summ находится сумма, отличная от нуля, то будет расчитываться сдача

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