Процедура Lic_FirstItem Назад В начало Вперед

Назначение

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

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

Описание

procedure Lic_FirstItem;

Пример

#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.

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