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