Добавить в глобальном модуле. Вызов обработки и обоработка расшифровки
//--------------------------------------------------------------------------------
// Данные - таблица значений, список, структура
Процедура глПечатьТаблицыЗначений(Данные, Заголовок = "",Форматировать = 2,ФорматЗаголовковКолонок = "",РазделительДробнойЧасти = ".") Экспорт
//Параметр: Форматировать
//Форматировать = 1 - по значению параметра колонки ширина или авто
//Форматировать = 2 - авто
//Форматировать = ? - не форматировать
//Параметр: ФорматЗаголовковКолонок
//ФорматЗаголовковКолонок = 1 - название колонки + заголовок
//ФорматЗаголовковКолонок = 2 - название колонки
//ФорматЗаголовковКолонок = ? - Заголовок
СписокПараметров = СоздатьОбъект("СписокЗначений");
СписокПараметров.Установить("Данные", Данные);
СписокПараметров.Установить("Заголовок", Заголовок);
СписокПараметров.Установить("Форматировать", Форматировать);
СписокПараметров.Установить("РазделительДробнойЧасти", РазделительДробнойЧасти);
СписокПараметров.Установить("ФорматЗаголовковКолонок", ФорматЗаголовковКолонок);
ОткрытьФормуМодально("Обработка.ПечатьТаблицыЗначений", СписокПараметров);
КонецПроцедуры // глПечатьТаблицыЗначений()
//--------------------------------------------------------------------------------
Процедура ОбработкаЯчейкиТаблицы(Расшифровка, СтандартнаяОбработка, Таблица, Адрес=0)
Если ТипЗначенияСтр(Расшифровка) = "СписокЗначений" Тогда
Если Расшифровка.Получить("ПечатьТаблицыЗначений") = "Расшифровка" Тогда
ЗнРасшифровка = Расшифровка.Получить("Расшифровка");
ЗнРасшифровкаТипЗначенияСтр = ТипЗначенияСтр(ЗнРасшифровка);
Если (ЗнРасшифровкаТипЗначенияСтр = "ТаблицаЗначений")
или (ЗнРасшифровкаТипЗначенияСтр = "СписокЗначений")
или (ЗнРасшифровкаТипЗначенияСтр = "Структура") Тогда
СтандартнаяОбработка = 0;
глПечатьТаблицыЗначений(ЗнРасшифровка, ,Расшифровка.Получить("Форматировать"));
Возврат;
Иначе
Расшифровка = ЗнРасшифровка;
КонецЕсли;
КонецЕсли;
КонецЕсли;
СтандартнаяОбработка = 1;
КонецПроцедуры
