Платформа 1С:Предприятие 8.3 (8.3.5.1460)
Конфигурация "Комплексный учет для бюджетных учреждений Украины" (Версия 1.0.45)
Есть макет счета
[Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Все заполняется кроме "подвала" счета, а именно должности и ФИО ответственных лиц.
Часть кода из модуля
Код:
ТекстЗапроса="ВЫБРАТЬ
| ФИОФизЛицСрезПоследних.Фамилия,
| ФИОФизЛицСрезПоследних.Имя,
| ФИОФизЛицСрезПоследних.Отчество
|ИЗ
| РегистрСведений.ФИОФизЛиц.СрезПоследних КАК ФИОФизЛицСрезПоследних
|ГДЕ
| ФИОФизЛицСрезПоследних.ФизЛицо = &ФизЛицо";
Запрос = Новый Запрос(ТекстЗапроса);
ДолжностьДиректор = "";
ДолжностьГлавныйБухгалтер = "";
Отбор = Новый Структура("СтруктурнаяЕдиница, ОтветственноеЛицо");
Отбор.СтруктурнаяЕдиница = Организация;
Отбор.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизаций.ГлавныйБухгалтер;
Выборка = РегистрыСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(Дата, Отбор);
Для Каждого Строка Из Выборка Цикл
Запрос.УстановитьПараметр("ФизЛицо",Строка.ФизическоеЛицо);
ДолжностьГлавныйБухгалтер = Строка.Должность;
ВыборкаФам = Запрос.Выполнить().Выбрать();
Если ВыборкаФам.Количество() > 0 Тогда
ВыборкаФам.Следующий();
ГлавныйБухгалтер = ОбщегоНазначения.ФамилияИнициалыФизЛица(Неопределено, ВыборкаФам.Фамилия, ВыборкаФам.Имя, ВыборкаФам.Отчество, Ложь);
Иначе
ГлавныйБухгалтер = "";
КонецЕсли;
Прервать;
КонецЦикла;
Отбор = Новый Структура("СтруктурнаяЕдиница, ОтветственноеЛицо");
Отбор.СтруктурнаяЕдиница = Организация;
Отбор.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизаций.Руководитель;
Выборка = РегистрыСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(Дата, Отбор);
Для Каждого Строка Из Выборка Цикл
Запрос.УстановитьПараметр("ФизЛицо",Строка.ФизическоеЛицо);
ДолжностьДиректор = Строка.Должность;
ВыборкаФам = Запрос.Выполнить().Выбрать();
Если ВыборкаФам.Количество() > 0 Тогда
ВыборкаФам.Следующий();
Директор = ОбщегоНазначения.ФамилияИнициалыФизЛица(Неопределено, ВыборкаФам.Фамилия, ВыборкаФам.Имя, ВыборкаФам.Отчество, Ложь);
Иначе
Директор = "";
КонецЕсли;
Прервать;
КонецЦикла;
ОбластьМакета.Параметры.ГлавныйБухгалтер = ГлавныйБухгалтер;
ОбластьМакета.Параметры.Директор = Директор;
ОбластьМакета.Параметры.ДолжностьГлавныйБухгалтер = ДолжностьГлавныйБухгалтер;
ОбластьМакета.Параметры.ДолжностьДиректор = ДолжностьДиректор;
Можно прямо указать данные о должности и ФИО ответственных лиц, но желательно чтобы это заполнялось автоматом.
Подскажите в чем причина.