Функция Lic_NextItem Назад В начало Вперед

Назначение

Функция Lic_NextItem используется для получения списка идентификаторов модулей, указанных в лицензионном файле. Функция позиционируется на следующей записи списка.

Для получения всего списка модулей эта функция используется в сочетании с функцией Lic_FirstItem.

Описание

function Lic_NextItem (
  ModuleID : pField;
  CountLics : pField;
) : boolean;

Параметры

ModuleID - идентификатор модуля в текущей записи списка модулей в лицензионном файле.

CountLics - количество лицензий на данный модуль.

Возвращаемое значение

Возвращает true, если удалось найти следующую запись. Если текущая запись оказалась последней, функция возвращает false.

Пример

#include my.vih

//==================================================
interface aIfc;
! Без таблиц
create view as;

//--------------------------------------------------
handleEvent
cmInit:
{
  flKassa := false;
  Lic_FirstItem;
  while Lic_NextItem(S, CntOfUser) do
	if S='KASSA'
	{
	 flKassa := true;
	 break;
}
  if not flKassa
  {
	abort; exit;
  }
}
end;
end.

Смотрите также