Свободный табельный номер
Модераторы: m0p3e, edward_K, Модераторы
Свободный табельный номер
Добрый день!
Нет ли какой-нибудь стандартной функции, возвращающей первый свободный табельный номер из таблиц Persons или Lschet?
Нет ли какой-нибудь стандартной функции, возвращающей первый свободный табельный номер из таблиц Persons или Lschet?
Кто сказал, что бесполезно биться головой об стену?!
-
- Местный житель
- Сообщения: 370
- Зарегистрирован: 28 сен 2006, 15:43
- Откуда: Санкт-Петербург
- Контактная информация:
Re: Свободный табельный номер
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;
выбор пользователем вида отчета
Объектный интерфейс для работы с табельными номерами
Методы
Function FillRport : Boolean;
формирование потока данных
Function Next : Variant;
возвращает первый свободный табельный номер
Function IsFree (TabN : Variant; cPersons : Comp) : Boolean;
свободен ли табельный номер
Procedure PrintFreeList;
отчет о свободных табельных номерах
Procedure PrintUsedList;
отчет о занятых табельных номерах
Procedure PrintFullList;
отчет о свободных и занятых табельных номерах
Procedure PrintUserChoiceList;
выбор пользователем вида отчета
Re: Свободный табельный номер
Сказать честно, я не сильна в объектных интерфейсах, не знаю, как их подключать и использовать.
Не могли бы Вы привести пример, как в своем интерфейсе использовать функцию поиска свободного табельного номера?
Не могли бы Вы привести пример, как в своем интерфейсе использовать функцию поиска свободного табельного номера?
Кто сказал, что бесполезно биться головой об стену?!
-
- Местный житель
- Сообщения: 370
- Зарегистрирован: 28 сен 2006, 15:43
- Откуда: Санкт-Петербург
- Контактная информация:
Re: Свободный табельный номер
подключаете файл 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;
Re: Свободный табельный номер
Вот такой интерфейс:
#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)
Что не так?
#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)
Что не так?
Кто сказал, что бесполезно биться головой об стену?!
Re: Свободный табельный номер
#define ComponentVersion имеется?
Re: Свободный табельный номер
Теперь имеется, и теперь работает)))
Спасибо!
Спасибо!
Кто сказал, что бесполезно биться головой об стену?!