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

ПНР и сопровождение

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Alexandra
Сообщения: 4
Зарегистрирован: 29 мар 2005, 17:49

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

Сообщение Alexandra »

Как по профессии получить соответствующий ей КПС?
Соответствие "профессия-подразделение-особые условия-КПС" заполняется в модуле "управление персоналом" при выборе соответствующего пункта меню и наверняка хранится в какой-то из таблиц БД, но в какой именно? Помогите плиз кто знает.
Seybukan
Местный житель
Сообщения: 1357
Зарегистрирован: 29 мар 2005, 17:49
Откуда: СПб, ЭП-Аудит
Контактная информация:

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

Сообщение 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
))
;
Seybukan
Местный житель
Сообщения: 1357
Зарегистрирован: 29 мар 2005, 17:49
Откуда: СПб, ЭП-Аудит
Контактная информация:

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

Сообщение 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
))
;
Alexandra
Сообщения: 4
Зарегистрирован: 29 мар 2005, 17:49

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

Сообщение Alexandra »

Дважды спасибо!
;)
VarankDA
Посетитель
Сообщения: 47
Зарегистрирован: 15 фев 2011, 12:00
Откуда: Киров, ЗАО "Красный якорь"
Контактная информация:

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

Сообщение VarankDA »

Подскажите связь между advises и KLCHILD4 (подклассами)
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5185
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

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

Сообщение 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;
}
Ответить