---

Касаемого сегодняшней встречи.
 
Сбор строки "Декларация..." в функции
 
Входящие данные:
Объект = Документ РеализацияТиУ
Название = ""
 
Функция ПодготовитьСтрокуСопроводительныхДокументов(Объект,Название="") Экспорт   //Для печати в ТТН по СЗ № ОСК1437-03/21 от 11.03.2021
    ВидыДок = Новый Массив;
    Если Название ="" тогда 
         ВидыДок.Добавить("Декларация");
         ВидыДок.Добавить("Свидетельство о гос.регистрации");
     Иначе
         ВидыДок.Добавить(Название);
     КонецЕсли;
     СтрокаДокументов ="";
    
Для каждого ВидДок Из ВидыДок Цикл     
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    РеализацияТоваровУслугТовары.Номенклатура
        |ПОМЕСТИТЬ ВТ_Номенклатура
        |ИЗ
        |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
        |ГДЕ
        |    РеализацияТоваровУслугТовары.Ссылка = &Ссылка
        |;
        |
        |////////////////////////////////////////////////////////////////////////////////
        |ВЫБРАТЬ
        |    СпецификацииНоменклатурыДокументация.Обозначение,
        |    МАКСИМУМ(СпецификацииНоменклатурыДокументация.Обозначение) КАК СтрокаДекларации
        |ИЗ
        |    ВТ_Номенклатура КАК ВТ_Номенклатура
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОсновныеСпецификацииНоменклатуры.СрезПоследних(&Период, ) КАК ОсновныеСпецификацииНоменклатурыСрезПоследних
        |            ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.Документация КАК СпецификацииНоменклатурыДокументация
        |            ПО ОсновныеСпецификацииНоменклатурыСрезПоследних.СпецификацияНоменклатуры = СпецификацииНоменклатурыДокументация.Ссылка
        |        ПО ВТ_Номенклатура.Номенклатура = ОсновныеСпецификацииНоменклатурыСрезПоследних.Номенклатура
        |ГДЕ
        |    СпецификацииНоменклатурыДокументация.Наименование = &НазваниеДокумента
        |
        |СГРУППИРОВАТЬ ПО
        |    СпецификацииНоменклатурыДокументация.Обозначение";
    
    Запрос.УстановитьПараметр("НазваниеДокумента", ВидДок);
    Запрос.УстановитьПараметр("Период", Объект.Дата);
    Запрос.УстановитьПараметр("Ссылка", Объект);    
    РезультатЗапроса = Запрос.Выполнить();     
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();      
    Если Не  РезультатЗапроса.Пустой() Тогда
        СтрокаДокументов = СтрокаДокументов+ВидДок+": ";
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            СтрокаДокументов = СтрокаДокументов +ВыборкаДетальныеЗаписи.СтрокаДекларации+", ";    
        КонецЦикла;        
    КонецЕсли;        
    КонецЦикла;
    Возврат СтрокаДокументов;
КонецФункции
 
Этой информации будет достаточно?