Свободный табельный номер

[s2176]

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

[Vik]

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;
выбор пользователем вида отчета

[s2176]

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

[Vik]

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

Код: Выделить всё

#include AboutTabN.vih

далее, заводите разделяемую переменную:

Код: Выделить всё

var pi_TabN  : AboutTabN;

Ну и там, где вам нужно:

Код: Выделить всё

var vFreeTabN: variant;
vFreeTabN := pi_TabN.Next; 

[s2176]

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

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

Что не так?

[KATZ]

#define ComponentVersion имеется?

[s2176]

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