Галактика в вопросах и ответах

Добрый день!
Нет ли какой-нибудь стандартной функции, возвращающей первый свободный табельный номер из таблиц Persons или Lschet?

ObjInterface Z_STAFF::objAboutTABN
Объектный интерфейс для работы с табельными номерами

Методы
Function FillRport : Boolean;
формирование потока данных
Function Next : Variant;
возвращает первый свободный табельный номер
Function IsFree (TabN : Variant; cPersons : Comp) : Boolean;
свободен ли табельный номер
Procedure PrintFreeList;
отчет о свободных табельных номерах
Procedure PrintUsedList;
отчет о занятых табельных номерах
Procedure PrintFullList;
отчет о свободных и занятых табельных номерах
Procedure PrintUserChoiceList;
выбор пользователем вида отчета

Сказать честно, я не сильна в объектных интерфейсах, не знаю, как их подключать и использовать.
Не могли бы Вы привести пример, как в своем интерфейсе использовать функцию поиска свободного табельного номера?

подключаете файл vih в своем интерфейсе (ищите в каталоге FRM Галактики ..\FRM\Z_Staff\CompSrc\Z\Z_Staff\vip\AboutTabN.vih): далее, заводите разделяемую переменную: Ну и там, где вам нужно:

Вот такой интерфейс:

#include AboutTABN.vih

interface load_bpr '' escclose;
var pi_TabN : AboutTabN;

create view
as select pp.*
from persons pp
;
HandleEvent
cmInit :
{
var vFreeTabN: variant;
vFreeTabN := pi_TabN.Next;
message(vFreeTabN);
};
end;
end.

При выполнении ругается, что возникло необработанное исключение, ошибка загрузки объекта из ресурсного файла(AboutTabn)

Что не так?

#define ComponentVersion имеется?

Теперь имеется, и теперь работает)))
Спасибо!