Как по профессии получить соответствующий ей КПС? 
Соответствие "профессия-подразделение-особые условия-КПС" заполняется в модуле "управление персоналом" при выборе соответствующего пункта меню и наверняка хранится в какой-то из таблиц БД, но в какой именно? Помогите плиз кто знает.
			
			
									
						
										
						Соответствие профессия-КПС
Модераторы: m0p3e, edward_K, Модераторы
- 
				Seybukan
- Местный житель
- Сообщения: 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
))
;
- 
				Seybukan
- Местный житель
- Сообщения: 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: Соответствие профессия-КПС
Дважды спасибо! 

			
			
									
						
										
						
- 
				VarankDA
- Посетитель
- Сообщения: 47
- Зарегистрирован: 15 фев 2011, 12:00
- Откуда: Киров, ЗАО "Красный якорь"
- Контактная информация:
Re: Соответствие профессия-КПС
Подскажите связь между advises и KLCHILD4 (подклассами)
			
			
									
						
										
						- 
				edward_K
- Заслуженный деятель интернет-сообщества
- Сообщения: 5189
- Зарегистрирован: 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;
}