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

Назначение

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

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

Описание

function Lic_NextContour (
  ContourID : pField;
  CountLics : pField;
) : boolean;

Параметры

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

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

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

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

Пример

#include my.vih

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

//--------------------------------------------------
handleEvent
cmInit:
{
  flKBUH := false;
  Lic_FirstContour;
  while Lic_NextContour(S, CntOfUser) do
	if S='K_BUH'
	{
	 flKBUH := true;
	 break;
}
  if not flKBUH
  {
	abort; exit;
  }
}
end;
end.

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