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

Reference for unit 'KKM_Atol' (#atol_ecr)

TAtollKKM.GetRegister

Получить значение регистра по номер

Declaration

Source position: kkm_atol.pas line 213

public function TAtollKKM.GetRegister: Integer;

Description

Команда получения регистра по номеру. Метод использует свойство RegisterNumber и, в зависимости от его значения, дополнительно использует свойства TypeClose и CheckType (в приведенной выше таблице указано при каких значениях RegisterNumber дополнительно используются эти свойства). Выходные свойства зависят от номера регистра (см. RegisterNumber). RegisterNumber

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