Как по профессии получить соответствующий ей КПС?
Соответствие "профессия-подразделение-особые условия-КПС" заполняется в модуле "управление персоналом" при выборе соответствующего пункта меню и наверняка хранится в какой-то из таблиц БД, но в какой именно? Помогите плиз кто знает.
Соответствие профессия-КПС
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 1357
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: СПб, ЭП-Аудит
- Контактная информация:
Re: Соответствие профессия-КПС
Select
PostCat.Name, // Должность
PodrCat.Name, // Подразделение
VredCat.Name, // КПС
UslCat.Name // Вид вредности
from
Advises,
Synonym Catalogs PostCat,
Synonym Catalogs PodrCat,
Synonym Catalogs VredCat,
Synonym Catalogs UslCat
Where
((
Advises.Person == PostCat.Nrec and
Advises.Sertificate == PodrCat.Nrec and
Advises.Executor == VredCat.Nrec and
Advises.Recommendation == UslCat.Nrec
))
;
PostCat.Name, // Должность
PodrCat.Name, // Подразделение
VredCat.Name, // КПС
UslCat.Name // Вид вредности
from
Advises,
Synonym Catalogs PostCat,
Synonym Catalogs PodrCat,
Synonym Catalogs VredCat,
Synonym Catalogs UslCat
Where
((
Advises.Person == PostCat.Nrec and
Advises.Sertificate == PodrCat.Nrec and
Advises.Executor == VredCat.Nrec and
Advises.Recommendation == UslCat.Nrec
))
;
-
- Местный житель
- Сообщения: 1357
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: СПб, ЭП-Аудит
- Контактная информация:
Re: Соответствие профессия-КПС
Select
PostCat.Name, // Должность
PodrCat.Name, // Подразделение
VredCat.Name, // КПС
UslCat.Name // Вид вредности
from
Advises,
Synonym Catalogs PostCat,
Synonym Catalogs PodrCat,
Synonym Catalogs VredCat,
Synonym Catalogs UslCat
Where
((
Advises.Person == PostCat.Nrec and
Advises.Sertificate == PodrCat.Nrec and
Advises.Executor == VredCat.Nrec and
Advises.Recommendation == UslCat.Nrec
))
;
PostCat.Name, // Должность
PodrCat.Name, // Подразделение
VredCat.Name, // КПС
UslCat.Name // Вид вредности
from
Advises,
Synonym Catalogs PostCat,
Synonym Catalogs PodrCat,
Synonym Catalogs VredCat,
Synonym Catalogs UslCat
Where
((
Advises.Person == PostCat.Nrec and
Advises.Sertificate == PodrCat.Nrec and
Advises.Executor == VredCat.Nrec and
Advises.Recommendation == UslCat.Nrec
))
;
Re: Соответствие профессия-КПС
Дважды спасибо!
-
- Посетитель
- Сообщения: 47
- Зарегистрирован: 15 фев 2011, 12:00
- Откуда: Киров, ЗАО "Красный якорь"
- Контактная информация:
Re: Соответствие профессия-КПС
Подскажите связь между advises и KLCHILD4 (подклассами)
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
Re: Соответствие профессия-КПС
1. Getifccurrentfieldname там где вы сие наблюдаете.
2. При наличии соотв. лицензии на сапорт можно подсмотреть в консоле управления
3. Сходу нашел только это
2. При наличии соотв. лицензии на сапорт можно подсмотреть в консоле управления
3. Сходу нашел только это
Код: Выделить всё
//******************************************************************************
// функция возвращает процент взносов по тарифу
// wYear_ - год, wPodKlass - подкласс условий труда
//******************************************************************************
function fdoGetTarif(wYear_, wPodKlass_: word): double;
{
fdoGetTarif := 0;
if ( Getfirst KLChild4 where (( wPodKlass_ == KLChild4.YearInt and
wYear_ == KLChild4.MonthInt and
1 == KLChild4.Pmama
)) = tsOk )
fdoGetTarif := KlChild4.VidOpl/100
else
if ( GetLast KLChild4 where (( 1 == KLChild4.Pmama and
wPodKlass_ == KLChild4.YearInt
)) = tsOk )
fdoGetTarif := KlChild4.VidOpl/100;
}
//******************************************************************************
// функция возвращает процент взносов по тарифу
// wYear_ - год, wPodKlass - подкласс условий труда
//******************************************************************************
function fsGetKlass(wYear_, wPodKlass_: word): string[20];
{
fsGetKlass := '';
if ( Getfirst KLChild4 where (( wPodKlass_ == KLChild4.YearInt and
wYear_ == KLChild4.MonthInt and
1 == KLChild4.Pmama
)) = tsOk )
fsGetKlass := KlChild4.LastUser
else
if ( GetLast KLChild4 where (( 1 == KLChild4.Pmama and
wPodKlass_ == KLChild4.YearInt
)) = tsOk )
fsGetKlass := KlChild4.LastUser;
}