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

TAtollKKM.RegisterNumber

Номер регистра

Declaration

Source position: kkm_atol.pas line 269

public property TAtollKKM.RegisterNumber : Byte
  read FRegisterNumber
  write SetRegisterNumber;

Description

В данном свойстве указывается номер регистра, над которым выполняется операция. Например - GetRegister.

Номер регистра может находится в диапазоне: 1 ... 36

Example

//Функция отображает значение регистров
//Переменная AtolCheckTypeNames объявлена в модуле KKM_Atol
procedure DoPrintRegister(AMsg: string; AChekTypes: TCheckTypes);
var
  i:byte;
begin
  for i:=1 to 6 do
    if i in AChekTypes then
    begin
      ECRDriver.CheckType:=i;
      ECRDriver.GetRegister;
      Memo1.Lines.Add(Format('%s - (%d - %s) = %m', [AMsg, i, AtolCheckTypeNames[i], ECRDriver.Summ]));
    end;
end;


//Данный пример демонстрируем установку номера регистра и последующую печать 
//Значения регистров сумм регистрации по типам чеков
begin
  ECRDriver.RegisterNumber:=1;
  DoPrintRegister('1 -  Сумма регистраций', [1..6]);
end