Имя: Пароль:
1C
1С v8
Кадровый перевод списком
0 jinny84
 
13.02.19
13:33
Есть документ Кадровый перевод списком, сделал для него внешнюю печатную форму для доп соглашения, но из списка сотрудников печатает только одно соглашение. а нужно чтобы на всех сотрдуников из списка.
Вот код:

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

        РезультатЗапроса = Запрос.Выполнить();
        ВыборкаЗапроса = РезультатЗапроса.Выбрать();
        Если ВыборкаЗапроса.Следующий() Тогда
            
            //Сведения об организации
            СписокПоказателей = Новый Массив;
            СписокПоказателей.Добавить("ОГРН");
            СписокПоказателей.Добавить("НаимЮЛПол");
            СписокПоказателей.Добавить("ИННЮЛ");
            СписокПоказателей.Добавить("КППЮЛ");
            СписокПоказателей.Добавить("ФИОРук");
            СписокПоказателей.Добавить("ДолжнРук");
            СписокПоказателей.Добавить("ПолРук");
            СписокПоказателей.Добавить("ТелОрганизации");
            СтруктураСведенийОбОрганизации = ЗарплатаКадрыБазовый.ПолучитьСведенияОбОрганизации(ВыборкаЗапроса.Организация,ВыборкаЗапроса.ДатаДокумента,СписокПоказателей);
            АдресаОрганизаций = УправлениеКонтактнойИнформациейЗарплатаКадры.АдресаОрганизаций(ВыборкаЗапроса.Организация);
            ОписаниеЮридическогоАдреса = УправлениеКонтактнойИнформациейЗарплатаКадры.АдресОрганизации(
                АдресаОрганизаций,
                ВыборкаЗапроса.Организация,
                Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);                
            ОписаниеФактическогоАдреса = УправлениеКонтактнойИнформациейЗарплатаКадры.АдресОрганизации(
                АдресаОрганизаций,
                ВыборкаЗапроса.Организация,
                Справочники.ВидыКонтактнойИнформации.ФактАдресОрганизации);
                
            //Выводим шапку
            Область = Макет.ПолучитьОбласть("Шапка");
            Область.Параметры.ДатаНачала = Формат(ВыборкаЗапроса.ДатаНачала,"ДФ='dd ММММ yyyy ''г.'''");
            Область.Параметры.НомерДоговораКонтракта = ВыборкаЗапроса.НомерДоговораКонтракта;
            Область.Параметры.ДатаДоговораКонтракта = Формат(ВыборкаЗапроса.ДатаДоговораКонтракта,"ДФ='dd ММММ yyyy ''г.'''");
            Область.Параметры.ОрганизацияНаименованиеПолное = СтруктураСведенийОбОрганизации.НаимЮЛПол;
            
            // Город
            Если ЗначениеЗаполнено(ВыборкаЗапроса.ГородПодразделения) Тогда
                Область.Параметры.Город = "г. " + ВыборкаЗапроса.ГородПодразделения;
            Иначе
                ОрганизацияГород = ОписаниеФактическогоАдреса.Город;
                Если НЕ ЗначениеЗаполнено(ОрганизацияГород) Тогда
                    ОрганизацияГород = ОписаниеЮридическогоАдреса.Город;
                КонецЕсли;
                Область.Параметры.Город = ОрганизацияГород;
            КонецЕсли;
            
            // Руководитель
            РезультатСклонения = "";
            Если ФизическиеЛицаЗарплатаКадры.Просклонять(Строка(СтруктураСведенийОбОрганизации.ФИОРук), 2, РезультатСклонения, СтруктураСведенийОбОрганизации.ПолРук) Тогда
                РуководительФИОПолныеВПадежеР = РезультатСклонения;
            КонецЕсли;
            РезультатСклонения = "";
            Если ФизическиеЛицаЗарплатаКадры.Просклонять(Строка(СтруктураСведенийОбОрганизации.ФИОРук), 3, РезультатСклонения, СтруктураСведенийОбОрганизации.ПолРук) Тогда
                РуководительФИОПолныеВПадежеД = РезультатСклонения;
            КонецЕсли;         
            РуководительДолжностьВПадежеР = СклонениеПредставленийОбъектов.ПросклонятьПредставление(Нрег(СтруктураСведенийОбОрганизации.ДолжнРук.Наименование), 2);
            РуководительДолжностьВПадежеД = СклонениеПредставленийОбъектов.ПросклонятьПредставление(Нрег(СтруктураСведенийОбОрганизации.ДолжнРук.Наименование), 3);
            РуководительДолжностьВПадежеД = ВРег(Лев(РуководительДолжностьВПадежеД,1)) + НРег(Сред(РуководительДолжностьВПадежеД,2));
            
            // Основание руководителя, Работодатель
            Если ЗначениеЗаполнено(ВыборкаЗапроса.ОснованиеДляРуководителя) Тогда
                Область.Параметры.ОснованиеРуководителя = ВыборкаЗапроса.ОснованиеДляРуководителя;
            Иначе
                //Область.Параметры.ОснованиеРуководителя = "__________________";
            КонецЕсли;         
            Если ВыборкаЗапроса.ИндивидуальныйПредприниматель Тогда
                Область.Параметры.Работодатель = "именуемый в дальнейшем ""Работодатель""," + " действующий на основании";
            Иначе
                Область.Параметры.Работодатель = "именуемое в дальнейшем ""Работодатель"", в лице " +
                    РуководительДолжностьВПадежеР + " " +
                    РуководительФИОПолныеВПадежеР +
                    " действующего на основании";
            КонецЕсли;
            
            ТабличныйДокумент.Вывести(Область);
            Область = Макет.ПолучитьОбласть("ШапкаСотрудник");
            Область.Параметры.СотрудникФИОПолные = ВыборкаЗапроса.СотрудникФИОПолные;
            //Область.Параметры.СотрудникДолжностьСтарая = ВыборкаЗапроса.СотрудникДолжностьСтарая;
            //Область.Параметры.СотрудникПодразделениеСтарое = ВыборкаЗапроса.СотрудникПодразделениеСтарое;
            Область.Параметры.НомерДоговораКонтракта = ВыборкаЗапроса.НомерДоговораКонтракта;
            Область.Параметры.ДатаДоговораКонтракта = Формат(ВыборкаЗапроса.ДатаДоговораКонтракта,"ДФ='dd ММММ yyyy ''г.'''");
            ТабличныйДокумент.Вывести(Область);
            
            //Выводим изменения
            НомерПункта = 0;
            
            //Изменение должности или подразделения
            Если ВыборкаЗапроса.ИзменитьПодразделениеИДолжность Тогда                
                Область = Макет.ПолучитьОбласть("СменаДолжностиПодразделения");
                НомерПункта = НомерПункта + 1;
                Область.Параметры.НомерПункта = НомерПункта;
                Область.Параметры.СотрудникДолжность = ВыборкаЗапроса.СотрудникДолжность;
                //Область.Параметры.СотрудникПодразделение = ВыборкаЗапроса.СотрудникПодразделение;
                //Область.Параметры.РазрядКатегория = ?(ЗначениеЗаполнено(ВыборкаЗапроса.РазрядКатегория),", " + ВыборкаЗапроса.РазрядКатегория,"");
                ТабличныйДокумент.Вывести(Область);                
            КонецЕсли;
            
            //Изменение оплаты
            Если ВыборкаЗапроса.ИзменитьНачисления Тогда
                Область = Макет.ПолучитьОбласть("СменаОплатыШапка");
                НомерПункта = НомерПункта + 1;
                Область.Параметры.НомерПункта = НомерПункта;
                ТабличныйДокумент.Вывести(Область);
                Валюта = Справочники.Валюты.НайтиПоКоду("643");
                Если Валюта = Неопределено ИЛИ Валюта = Справочники.Валюты.ПустаяСсылка() Тогда
                    Сообщить("Не найдена валюта по коду: ""643""");
                КонецЕсли;
                Если (ВыборкаЗапроса.СуммаОклад > 0)
                    Или (ВыборкаЗапроса.СуммаОклад=0 И ВыборкаЗапроса.СуммаНадбавки=0) Тогда
                     Область = Макет.ПолучитьОбласть("СменаОплатыОклад");
                     Область.Параметры.СуммаОклад = ВыборкаЗапроса.СуммаОклад;
                     Область.Параметры.СуммаОкладПрописью = РаботаСКурсамиВалют.СформироватьСуммуПрописью(ВыборкаЗапроса.СуммаОклад, Валюта, Ложь);
                     //Область.Параметры.КоличествоСтавок = ВыборкаЗапроса.КоличествоСтавок;
                     //Область.Параметры.Ставок = ПолучитьСтавкуПрописью(ВыборкаЗапроса.КоличествоСтавок);
                     ТабличныйДокумент.Вывести(Область);
                КонецЕсли;
                Если ВыборкаЗапроса.СуммаНадбавки > 0 Тогда
                     Область = Макет.ПолучитьОбласть("СменаОплатыНадбавка");
                     Область.Параметры.СуммаНадбавки = ВыборкаЗапроса.СуммаНадбавки;
                     Область.Параметры.СуммаНадбавкиПрописью = РаботаСКурсамиВалют.СформироватьСуммуПрописью(ВыборкаЗапроса.СуммаНадбавки, Валюта, Ложь);
                     ТабличныйДокумент.Вывести(Область);
                КонецЕсли;            
            КонецЕсли;
            
            //Выводим подвал
            Область = Макет.ПолучитьОбласть("Подвал");
            ЗаполнитьЗначенияСвойств(Область.Параметры,ВыборкаЗапроса);
            Область.Параметры.НомерПункта = НомерПункта + 1;
            Область.Параметры.НомерПункта1 = НомерПункта + 2;
            Область.Параметры.НомерПункта2 = НомерПункта + 3;
            Область.Параметры.ДатаДоговораКонтракта = Формат(ВыборкаЗапроса.ДатаДоговораКонтракта,"ДФ='dd ММММ yyyy ''г.'''");
            Область.Параметры.ДатаНачала = Формат(ВыборкаЗапроса.ДатаНачала,"ДФ='dd ММММ yyyy ''г.'''");
            //Область.Параметры.ДатаОкончания = ?(ЗначениеЗаполнено(ВыборкаЗапроса.ДатаОкончания),
            //    " и действует по " + Формат(ВыборкаЗапроса.ДатаОкончания,"ДФ='dd ММММ yyyy ''г.'''"),"");
            Область.Параметры.ОрганизацияНаименованиеПолное = СтруктураСведенийОбОрганизации.НаимЮЛПол;
            //Область.Параметры.ИНН = СтруктураСведенийОбОрганизации.ИННЮЛ;
            //Область.Параметры.КПП = СтруктураСведенийОбОрганизации.КППЮЛ;
            //Область.Параметры.ОГРН = СтруктураСведенийОбОрганизации.ОГРН;
            //Область.Параметры.ТелОрганизации = СтруктураСведенийОбОрганизации.ТелОрганизации;
            Область.Параметры.РуководительФамилияИО = ФизическиеЛицаКлиентСервер.ФамилияИнициалыФизЛица(СтруктураСведенийОбОрганизации.ФИОРук);
            Если ТипЗнч(СтруктураСведенийОбОрганизации.ДолжнРук) = Тип("СправочникСсылка.Должности") Тогда
                Область.Параметры.РуководительДолжность = СтруктураСведенийОбОрганизации.ДолжнРук.Наименование;
            Иначе    
                Область.Параметры.РуководительДолжность = СтруктураСведенийОбОрганизации.ДолжнРук;
            КонецЕсли;    
            //АдресаОрганизаций = УправлениеКонтактнойИнформациейЗарплатаКадры.АдресаОрганизаций(ВыборкаЗапроса.Организация);
            //ОписаниеЮридическогоАдреса = УправлениеКонтактнойИнформациейЗарплатаКадры.АдресОрганизации(
                //АдресаОрганизаций,
                //ВыборкаЗапроса.Организация,
                //Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
            //Область.Параметры.ОрганизацияАдресЮридический = ОписаниеЮридическогоАдреса.Представление;                
            //ОписаниеФактическогоАдреса = УправлениеКонтактнойИнформациейЗарплатаКадры.АдресОрганизации(
                //АдресаОрганизаций,
                //ВыборкаЗапроса.Организация,
                //Справочники.ВидыКонтактнойИнформации.ФактАдресОрганизации);
            //Область.Параметры.ОрганизацияАдресФактический = ОписаниеФактическогоАдреса.Представление;            
            ТабличныйДокумент.Вывести(Область);
            
        КонецЕсли;
        
    КонецЦикла;
            
    Возврат ТабличныйДокумент;
1 Aprobator
 
13.02.19
14:07
... Если ВыборкаЗапроса.Следующий() Тогда... если отбирается только одна строка результата запроса, то чего еще ожидать то?
2 dka80
 
13.02.19
14:16
Если ВыборкаЗапроса.Следующий() Тогда заменить на
Пока ВыборкаЗапроса.Следующий() Цикл
3 jinny84
 
13.02.19
15:00
(2) Спасибо