Страница 1 из 1

Соответствие профессия-КПС

Добавлено: 08 фев 2005, 16:09
Alexandra
Как по профессии получить соответствующий ей КПС?
Соответствие "профессия-подразделение-особые условия-КПС" заполняется в модуле "управление персоналом" при выборе соответствующего пункта меню и наверняка хранится в какой-то из таблиц БД, но в какой именно? Помогите плиз кто знает.

Re: Соответствие профессия-КПС

Добавлено: 08 фев 2005, 17:56
Seybukan
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
))
;

Re: Соответствие профессия-КПС

Добавлено: 08 фев 2005, 17:56
Seybukan
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
))
;

Re: Соответствие профессия-КПС

Добавлено: 09 фев 2005, 09:51
Alexandra
Дважды спасибо!
;)

Re: Соответствие профессия-КПС

Добавлено: 08 янв 2016, 14:24
VarankDA
Подскажите связь между advises и KLCHILD4 (подклассами)

Re: Соответствие профессия-КПС

Добавлено: 11 янв 2016, 10:19
edward_K
1. Getifccurrentfieldname там где вы сие наблюдаете.
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;
}