Как получить ФИО ответственного лица по определённой должности ?

1. afrodit 16.07.14 11:47 Сейчас в теме
Как получить ФИО ответственного лица по определённой должности ?
По теме из базы знаний
Вознаграждение за ответ
Показать полностью
Найденные решения
2. A_Emelianov 16.07.14 11:49 Сейчас в теме
Функция ФИООтвЛица(Должность) 
	
	Запрос=Новый Запрос("ВЫБРАТЬ
    |	ФИОФизЛицСрезПоследних.Фамилия КАК Фамилия,
    |	ФИОФизЛицСрезПоследних.Имя КАК Имя,
    |	ФИОФизЛицСрезПоследних.Отчество КАК Отчество
    |ИЗ
    |	РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата) КАК ФИОФизЛицСрезПоследних
    |ГДЕ
    |	ФИОФизЛицСрезПоследних.ФизЛицо В (
	|      ВЫБРАТЬ
    |	   ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо.Ссылка
    |   ИЗ
    |	   РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(&Дата) КАК ОтветственныеЛицаОрганизацийСрезПоследних
    |   ГДЕ
    |	   ОтветственныеЛицаОрганизацийСрезПоследних.Должность = &Должность)");
	Запрос.УстановитьПараметр("Дата",ТекущаяДата());
	Запрос.УстановитьПараметр("Должность",Должность);
    РЗ=Запрос.Выполнить().Выбрать();
    РЗ.Следующий();
	Возврат ""+ РЗ.Фамилия+" " +Лев(РЗ.Имя,1)+". "+Лев(РЗ.Отчество,1)+ ".";	

КонецФункции
Показать
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. A_Emelianov 16.07.14 11:49 Сейчас в теме
Функция ФИООтвЛица(Должность) 
	
	Запрос=Новый Запрос("ВЫБРАТЬ
    |	ФИОФизЛицСрезПоследних.Фамилия КАК Фамилия,
    |	ФИОФизЛицСрезПоследних.Имя КАК Имя,
    |	ФИОФизЛицСрезПоследних.Отчество КАК Отчество
    |ИЗ
    |	РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата) КАК ФИОФизЛицСрезПоследних
    |ГДЕ
    |	ФИОФизЛицСрезПоследних.ФизЛицо В (
	|      ВЫБРАТЬ
    |	   ОтветственныеЛицаОрганизацийСрезПоследних.ФизическоеЛицо.Ссылка
    |   ИЗ
    |	   РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(&Дата) КАК ОтветственныеЛицаОрганизацийСрезПоследних
    |   ГДЕ
    |	   ОтветственныеЛицаОрганизацийСрезПоследних.Должность = &Должность)");
	Запрос.УстановитьПараметр("Дата",ТекущаяДата());
	Запрос.УстановитьПараметр("Должность",Должность);
    РЗ=Запрос.Выполнить().Выбрать();
    РЗ.Следующий();
	Возврат ""+ РЗ.Фамилия+" " +Лев(РЗ.Имя,1)+". "+Лев(РЗ.Отчество,1)+ ".";	

КонецФункции
Показать
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот