[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'KKM_Atol' (#atol_ecr)

TAtollKKM.Price

Цена товара

Declaration

Source position: kkm_atol.pas line 264

public property TAtollKKM.Price : Currency
  read FPrice
  write SetPrice;

Description

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

Свойство всегда должно содержать положительное веществнное число.

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