Здравствуйте, Visitor! Переделанный кусок из обработки "ПечатьЦенников" торговли 7.7 в приложении. Добавить в печатную форму ценника переменную "ПечСтрана" надеюсь сможете.

Приложение:
//******************************************************************************// ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд, ПечСтрана)//// Параметры:// Таб - таблица, в которую выполняется вывод ценника// ПечНаименование - наименование товара// ПечЕдиница - единица измерения товара// ПечРозн - цена товара// Столбик - номер столбика.// Ряд - номер ряда//// Возвращаемое значение:// Нет.//// Описание:// Добавляет ценник в таблицу.//Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд, ПечСтрана) Столбик = ?(Столбик = 0, 1 , 0 ); Ряд = ?(Столбик = 0, Ряд + 1, Ряд); Если Ряд > 3 Тогда Таб.НоваяСтраница(); Ряд = 1; КонецЕсли; Если Столбик = 0 Тогда Таб.ВывестиСекцию("Товар|Ценник"); Иначе Таб.ПрисоединитьСекцию("Товар|Ценник"); КонецЕсли;КонецПроцедуры // ДобавитьЦенник()//******************************************************************************// Сформировать(ТаблицаТоваров, ПечФирма)//// Параметры:// ТаблицаТоваров - таблица значений, содержащая информацию о цене товара// ПечФирма - наименование фирмы, которое будет выводиться вверху ценника//// Возвращаемое значение:// Нет.//// Описание:// Формирует таблицу с ценниками.//Процедура Сформировать(ТаблицаТоваров,ПечФирма) // Создание Таблицы для выходного отчета Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Столбик = 1; Ряд = 0; ТаблицаТоваров.ВыбратьСтроки(); Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл ПечРозн = глФРМ(ТаблицаТоваров.Цена, ТаблицаТоваров.Валюта); ПечНаименование = ТаблицаТоваров.Товар; ПечСтрана = СокрЛП(ТаблицаТоваров.Товар.СтранаПроисхождения); ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд, ПечСтрана); глОживить(1); КонецЦикла; //Вызов выходного отчета в окно просмотра и редактирования. Таб.Опции(0,0,0,0,"ПечатьЦенников","ПечатьЦенников"); Таб.ТолькоПросмотр(1); Таб.Показать("Товарные ценники",""); КонецПроцедуры//******************************************************************************