|
Кадровый перевод списком | ☑ | ||
---|---|---|---|---|
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) Спасибо
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |