ТЗ = ПостроительОтчета.Результат.Выгрузить();

		ТЗ.Колонки.Добавить("Штрихкод",,"Штрихкод");		

		ПакетДляОтчета = ТЗ;

		ОбработкаШК   = ВыбираемШК(ТЗ);	

		ПомещаемШКВПакет(ОбработкаШК);		

		

		ПостроительОтчета.ИсточникДанных = Новый ОписаниеИсточникаДанных(ПакетДляОтчета);

		

		ОтборПериодичность = ДобавитьОтборПериодичность();





		ПостроительОтчета.Макет = ПолучитьМакетПостротеляОтчета();

		ПостроительОтчета.МакетОформления = _ПолучитьМакетОформления();

		ПостроительОтчета.ОформитьМакет();

		

		ПостроительОтчета.Параметры.Вставить("ДатаНач", ?(ДатаНач = Дата('00010101000000'), ДатаНач, Новый Граница(НачалоДня(ДатаНач), ВидГраницы.Включая)));

		ПостроительОтчета.Параметры.Вставить("ДатаКон", ?(ДатаКон = Дата('00010101000000'), ДатаКон, Новый Граница(КонецДня(ДатаКон), ВидГраницы.Включая)));

		ПостроительОтчета.Параметры.Вставить("ДатаНачала", ?(ДатаНач = Дата('00010101000000'), ДатаНач, НачалоДня(ДатаНач)));

		ПостроительОтчета.Параметры.Вставить("ДатаКонца", ?(ДатаКон = Дата('00010101000000'), Дата("39991231"), КонецДня(ДатаКон)));

				

		ПостроительОтчета.Выполнить();

		ПостроительОтчета.Вывести(ТабличныйДокумент);

<br>   

 Процедура ДействияФормыПечать(Кнопка)

	

	//Список для вывода

	Список = ЭтаФорма.ТабличноеПолеДокументов;

	

	//Табличный документ и его параметры

	ТабДок = Новый ТабличныйДокумент;

	ТабДок.АвтоМасштаб = Истина;

	ТабДок.ТолькоПросмотр = Ложь;

	ТабДок.ОтображатьСетку = Ложь;

	

	//Макет

	Макет = Документы.Заказ.ПолучитьМакет("МакетСписок");

	

	//Обозначение облостей макета

	ОбластьШапка = Макет.ПолучитьОбласть("Шапка");

	ОбластьСтрока = Макет.ПолучитьОбласть("Строка");

	

	//Вывод облости макета

	ТабДок.Вывести(ОбластьШапка);

	

	//Читаем список через построитель отчета

	Построитель = Новый ПостроительОтчета;

	Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(Список);

	Выборка = Построитель.Результат.Выбрать();

	

	Пока Выборка.Следующий() Цикл

		

		ОбработкаПрерыванияПользователя();

		ОбластьСтрока.Параметры.Заполнить(Выборка);

	

		//Вывод облости макета

		ТабДок.Вывести(ОбластьСтрока);

	КонецЦикла;

	

	//Показываем сформированную печатную форму	

	ТабДок.Показать();

	

КонецПроцедуры

   

 ТабДок = Новый ТабличныйДокумент; 

ТабДок.Прочитать("C:\load\vigr.mxl");

ПЗ = Новый ПостроительЗапроса;

ПЗ.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабДок.Область());//передаем ТЗ

ПЗ.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;

ПЗ.ЗаполнитьНастройки();

ПЗ.Выполнить();

ТЗ = ПЗ.Результат.Выгрузить();

// Вот и получили ТЗ с данными для дальнейшей обработки и загрузки   

 

// Отбор на форме

&НаКлиенте

....

ФМ=Новый ФиксированнаяСтруктура("КлючСвязи",Элементы.ДанныеБезКоррекции.ТекущиеДанные.КлючСвязи);

Элементы.СписокПодразделений.ОтборСтрок=ФМ;   

 //Функция получает записи табличной части согласно установленному отбору

Функция ПолучитьЗаписиСогласноОтбору(ТабличноеПолеИсточник)



ОтборСтрок = ТабличноеПолеИсточник.ОтборСтрок;

ПостроительЗапроса = Новый ПостроительЗапроса;

ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличноеПолеИсточник.Значение); 

Для Каждого ЭлементОтбора Из ОтборСтрок Цикл     

Если ЭлементОтбора.Использование Тогда

НовыйОтбор = ПостроительЗапроса.Отбор.Добавить(ЭлементОтбора.Имя);        

НовыйОтбор.Использование = Истина;         

НовыйОтбор.ВидСравнения = ЭлементОтбора.ВидСравнения;       

НовыйОтбор.ЗначениеС = ЭлементОтбора.ЗначениеС;        

НовыйОтбор.ЗначениеПо = ЭлементОтбора.ЗначениеПо;        

НовыйОтбор.Значение = ЭлементОтбора.Значение;     

КонецЕсли;

КонецЦикла;





Таблица = ПостроительЗапроса.Результат.Выгрузить();

МассивСтрок = Новый Массив;

Для Каждого Стр ИЗ Таблица Цикл

СтруктураПоиска = Новый Структура;

Для Каждого Колонка Из Таблица.Колонки Цикл

СтруктураПоиска.Вставить(Колонка.Имя, Стр[Колонка.Имя]);

КонецЦикла;

НайденыеСтроки = ТабличноеПолеИсточник.Значение.НайтиСтроки(СтруктураПоиска);

Если НайденыеСтроки.Количество() > 0 Тогда

МассивСтрок.Добавить(НайденыеСтроки[0]);

КонецЕсли;

КонецЦикла;



Возврат МассивСтрок;



КонецФункции   

 ПараметрыОтбора = Новый Структура;

	ПараметрыОтбора.Вставить("ДокСсылка", ДанныеПоШК.Объект);

	НайденныеСтроки = ПакетДокументов.НайтиСтроки(ПараметрыОтбора);



// Подробнее

СтруктураОтбора = Новый Структура("ВидДокумента, Контрагент", ПФ, ?(Контр = Неопределено, Справочники.Контрагенты.ПустаяСсылка(), Контр));

ПакетДокументов 		 = ЗадачаОбъект.ПакетДокументов;

МассивСтрок				 = ПакетДокументов.НайтиСтроки(СтруктураОтбора);

Если МассивСтрок.Количество() Тогда

	Для Каждого СтрокаМассива Из МассивСтрок Цикл

		СтрокаМассива.ДобавленоПользователем = Истина;

		СтрокаМассива.Пользователь           = ПараметрыСеанса.ТекущийПользователь;

		СтрокаМассива.ДатаВремя				 = ТекущаяДата();

	КонецЦикла;

КонецЕсли;



//или

ТЧ = ПромежуточнаяНакладная.Выгрузить();

		ТЧ.Свернуть("СхемаПродажи");

		СтрокаСПустойСП = ТЧ.НайтиСтроки(Новый Структура("СхемаПродажи", Справочники.СхемыПродаж.ПустаяСсылка()));

		

		Если ТЧ.Количество() - СтрокаСПустойСП.Количество() > 1 Тогда

			Если Вопрос("Сбросить все схемы в строках?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда

				НесколькоСхем = Истина;

				Возврат;

			КонецЕсли;

		КонецЕсли;

		

		Для каждого СтрокаПН из ПромежуточнаяНакладная Цикл

			Если СтрокаПН.Номенклатура.ВидНоменклатуры.ТипНоменклатуры <> Перечисления.ТипыНоменклатуры.Услуга Тогда

				СтрокаПН.СхемаПродажи = СхемаПродажи;

			КонецЕсли;

	КонецЦикла;   

  // Можно результат запроса, а можно и таблицу значений.

ТекстЗапроса = "ВЫБРАТЬ * ИЗ Справочник.Пользователи";                         

ЗапросаДанных = Новый Запрос(ТекстЗапроса);

РезЗапроса = ЗапросаДанных.Выполнить();

     

ТабДокумент = Новый ТабличныйДокумент;

Построитель = Новый ПостроительОтчета;

Построитель.ИсточникДанных=Новый ОписаниеИсточникаДанных(РезЗапроса);       

Построитель.Вывести(ТабДокумент);

ТабДокумент.Показать("Пользователи");    

 ТекстЗапроса = "ВЫБРАТЬ * ИЗ Справочник.Пользователи";                         

ЗапросаДанных = Новый Запрос(ТекстЗапроса);

РезЗапроса = ЗапросаДанных.Выполнить().Выгрузить();

     

ТабДокумент = Новый ТабличныйДокумент;

Построитель = Новый ПостроительОтчета;

Построитель.ИсточникДанных=Новый ОписаниеИсточникаДанных(РезЗапроса);       

Построитель.Вывести(ТабДокумент);

ТабДокумент.Показать("Пользователи");    

 Построитель = Новый ПостроительОтчета;

Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(Список);

числоЭлементов = ПостроительОтчетов.Результат.Выбрать().Количество();   

 ОтборСтрок = <ТабличнаяЧастьИсточник.ОтборСтрок>; 

ПостроительЗапроса = Новый ПостроительЗапроса; 

ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличнаяЧастьИсточник); 



// Добавляются необходимые отборы, такие же как в отборы в табличной части. 

Для Каждого ЭлементОтбора Из ОтборСтрок Цикл 

    Если ЭлементОтбора.Использование Тогда 

        НовыйОтбор = ПостроительЗапроса.Отбор.Добавить(ЭлементОтбора.Имя); 

        НовыйОтбор.Использование = Истина; 

        НовыйОтбор.ВидСравнения = ЭлементОтбора.ВидСравнения; // нужный вид сравнения 

        НовыйОтбор.ЗначениеС = ЭлементОтбора.ЗначениеС; 

        НовыйОтбор.ЗначениеПо = ЭлементОтбора.ЗначениеПо; 

        НовыйОтбор.Значение = ЭлементОтбора.Значение; 

    КонецЕсли; 

КонецЦикла; 



Результат = ПостроительЗапроса.Результат; // отобранные строки типа РезультатЗапроса   

 Построитель = Новый ПостроительОтчета;

Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(Список);

числоЭлементов = ПостроительОтчетов.Результат.Выбрать().Количество();   

 

Построитель=Новый ПостроительОтчета(); 

Построитель.ИсточникДанных=Новый ОписаниеИсточникаДанных(ТаблицаЗначений); 

Построитель.Вывести();   

 Таблица = Новый ТаблицаЗначений;

//Опишем тип создаваемой колонки

Массив = Новый Массив;

КЧ = Новый КвалификаторыЧисла(10, 2);

Массив.Добавить(Тип("Число"));

ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);

Таблица.Колонки.Добавить("КодУслуги",ОписаниеТиповЧ);



//... выборки из справочника и заполнение ТЗ

Пока ВыборкаСпр.Следующий() Цикл

       НоваяСтрока = Таблица.Добавить();   

       НоваяСтрока.КодУслуги = ВыборкаСпр.Код;   

КонецЦикла;

  

Запрос = Новый Запрос;

МенеджерВТ = Новый МенеджерВременныхТаблиц;

Запрос.МенеджерВременныхТаблиц = МенеджерВТ;

// Текст запроса для построения временной таблицы

Запрос.Текст = "ВЫБРАТЬ

                  |    Таб.КодУслуги КАК Код

                  |ПОМЕСТИТЬ ВТДанные

                  |ИЗ

                  |    &Данные КАК Таб";

Запрос.УстановитьПараметр("Данные",Таблица);

Результат = Запрос.Выполнить();   

 

   ТЗН1 = Новый ТаблицаЗначений;//Колонки Кол1,кол2,кол3,ИД

   ТЗН2 = Новый ТаблицаЗначений;//Колонки Кол4,кол5,кол6,ИД

 

    Запрос.УстановитьПараметр("ТЗН1",Отправления);

    Запрос.УстановитьПараметр("ТЗН2",ЛотыКСписанию);

    МВТ = Новый МенеджерВременныхТаблиц;

    Запрос.МенеджерВременныхТаблиц = МВТ;

    //Запрос 1 Помещаем ТЗН1 в МенеджерВременныхТаблиц в таблицу ТЗН1

 

    Запрос.Текст = 

    "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН1

    |ИЗ

    |    &ТЗН1 КАК ТЗН1";

    Запрос.Выполнить();

    //Запрос 2 Помещаем ТЗН2 в МенеджерВременныхТаблиц в таблицу ТЗН2

 

    Запрос.Текст =

    "ВЫБРАТЬ

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |    ТЗН2.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН2

    |ИЗ

    |    &ТЗН2 КАК ТЗН2";

    //Получаем результирующую таблицу

 

    Запрос.Выполнить();

    Запрос.Текст = 

        "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД,

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |ИЗ

    |    ТЗН1 КАК ТЗН1

    |   ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТЗН2 КАК ТЗН2

    |   ПО ТЗН1.ИД = ТЗН2.ИД";

    тзн3 = Запрос.Выполнить().Выгрузить();   

 ПостроительЗапроса = Новый ПостроительЗапроса;

    ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);

    

    СтрокаОтбора = ПостроительЗапроса.Отбор.Добавить("Реквизит");

    СтрокаОтбора.Значение = Истина;

    СтрокаОтбора.ВидСравнения = ВидСравнения.Равно;

    СтрокаОтбора.Использование = Истина;

        

    ПостроительЗапроса.Выполнить();

    ВыбрСтроки = ПостроительЗапроса.Результат.Выгрузить();   

  //ТПОтчета - Табличное поле с формы (Таблица значений) с данными

ПострПечать = Новый ПостроительОтчета;

    ПострПечать.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТПОтчета);

    ПострПечать.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Интерфейс);

    ПострПечать.Выполнить();

    Для каждого Колонка Из ПострПечать.ВыбранныеПоля Цикл

        Колонка.Представление = ТПОтчета.Колонки[Колонка.Имя].Заголовок;

    КонецЦикла; 

    ПострПечать.Вывести();   

 //Процедура  формирует и выводит отчет по переданной таблице значений

// Параметры :

// ТЗ - ТаблицаЗначений

Процедура УниверсальныйОтчетПоТЗ(ТЗ)



Табл=Новый ТабличныйДокумент;

Макет = ЭтотОбъект.ПолучитьМакет("Макет");

ОбластьШапкаОсновной=Макет.ПолучитьОбласть("Шапка|Основной");

ОбластьСтрокаОсновной=Макет.ПолучитьОбласть("Строка|Основной");

ОбластьИтогОсновной=Макет.ПолучитьОбласть("Итог|Основной");

ОбластьШапкаДОП=Макет.ПолучитьОбласть("Шапка|Показатели");

ОбластьСтрокаДОП=Макет.ПолучитьОбласть("Строка|Показатели");

ОбластьИтогДОП=Макет.ПолучитьОбласть("Итог|Показатели");

Табл.Вывести(ОбластьШапкаОсновной);



Для Каждого Колонка из Тз.Колонки ЦИКЛ

 ОбластьШапкаДОП.Параметры.ИмяПоказателя=Колонка.Имя;

 Табл.Присоединить(ОбластьШапкаДОП);

КонецЦикла;



счетчик=0;

Для каждого стр из Тз Цикл

 счетчик=счетчик+1;

 ОбластьСтрокаОсновной.Параметры.счетчик=счетчик; 

 Табл.Вывести(ОбластьСтрокаОсновной);

  Для Каждого Колонка из Тз.Колонки ЦИКЛ

   ОбластьСтрокаДОП.Параметры.ЗначениеКолонки=стр[Колонка.Имя];

   Табл.Присоединить(ОбластьСтрокаДОП);

  КонецЦикла;

КонецЦикла;

Табл.Вывести(ОбластьИтогОсновной);



Для Каждого Колонка из Тз.Колонки ЦИКЛ

 ОбластьИтогДОП.Параметры.Итог=Тз.Итог(Колонка.Имя);

 Табл.Присоединить(ОбластьИтогДОП);

КонецЦикла;



Табл.Показать();

КонецПроцедуры   

 

//Вывести таблицу значений

Процедура ПечатьТЗвТаб(ТЗ, Заголовок = "",КолонкиПоНазваниям = 0) Экспорт

	Перем ТТЗ;

	ТЗ.Выгрузить(ТТЗ);

	МаксШирина = 50;    // максимальная ширина колонки 

	СпШирина = СоздатьОбъект("СписокЗначений"); // список ширин колонок по таблице

	Для сч = 1 по ТТЗ.КоличествоКолонок() Цикл

		Если КолонкиПоНазваниям = 0  Тогда

			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);

		Иначе

			ИмяРек = "";

			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);

		КонецЕсли;

		СпШирина.ДобавитьЗначение(СтрДлина(ИмяРек)*1.2); // с поправкой на размер шрифта

	КонецЦикла;	

	

	// просто печать таблицы - вывод всех строк и колонок

	// числовые значения - по правому краю. Автоподбор ширины - в пределах МаксШирина

	Таб=СоздатьОбъект("Таблица");

	Таб.ИсходнаяТаблица("ПечатьТЗ");

	Если СокрЛП(Заголовок) <> "" Тогда

		Таб.ВывестиСекцию("Шапка");

	КонецЕсли;

	// заголовки таблицы

	Таб.ВывестиСекцию("Строка|Общая");

	Для сч=1 по ТТЗ.КоличествоКолонок() Цикл

		Если КолонкиПоНазваниям = 0  Тогда

			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);

		Иначе

			ИмяРек = ""; 

			Ном = "";

			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);

		КонецЕсли;

		Таб.ПрисоединитьСекцию("Строка|Столбец");  

	КонецЦикла;

	ВысотаШапки = Таб.ВысотаТаблицы();

	// данные таблицы по строкам

	ТТЗ.ВыбратьСтроки();

	Пока ТТЗ.ПолучитьСтроку()=1 Цикл

		Ном = ТТЗ.НомерСтроки;

		Таб.ВывестиСекцию("Строка|Общая");

		Выс = Таб.ВысотаТаблицы();

		Для сч=1 по ТТЗ.КоличествоКолонок() Цикл

			ИмяРек=ТТЗ.ПолучитьЗначение(Ном,сч);

			Таб.ПрисоединитьСекцию("Строка|Столбец");

			Если ТипЗначения(ИмяРек) = 1 Тогда

				Обл = Таб.Область("R"+Выс+"C"+(Сч+1)); // ячейка в которую поместили данные

				Обл.ГоризонтальноеПоложение(2); // числа - вправо

			КонецЕсли;

			НачШирина = СпШирина.ПолучитьЗначение(Сч);

			Ширина = СтрДлина(ИмяРек);

			СпШирина.УстановитьЗначение(Сч,Макс(НачШирина,Ширина));

		КонецЦикла;

	КонецЦикла;

	

	Для сч = 1 по СпШирина.РазмерСписка() Цикл

		Обл = Таб.Область("R"+ВысотаШапки+"C"+(Сч+1));

		// форматируем ширину таблицы

		Ширина = Мин(МаксШирина,2+СпШирина.ПолучитьЗначение(Сч));

		Обл.ШиринаСтолбца(Ширина);   

		// форматируем заголовок

		Обл.Полужирный(1);

	КонецЦикла;	

	Таб.Показать(Заголовок);

	Таб.ТолькоПросмотр(1);

КонецПроцедуры 

 Процедура глВывестиТаблицуЗначений(ТаблицаЗначений, Заголовок = "") Экспорт

Перем Таб, ИИ, ЖЖ, НазваниеКолонки, ТипКолонки, Ширина, Значение, Сообщение;



Таб = СоздатьОбъект("Таблица");



Если ТипЗначенияСтр(ТаблицаЗначений) <> "ТаблицаЗначений" Тогда

Сообщение = "В процедуру ""глВывестиТаблицуЗначений()"" передана переменная не типа ""ТаблицаЗначений"", "+

"а типа """+СокрЛП(ТипЗначенияСтр(ТаблицаЗначений))+"""";

Таб.Область(1, 1, 1, 1).Текст = Сообщение;

Таб.Область(1, 1, 1, 1).ШиринаСтолбца(СтрДлина(Сообщение));



Таб.ТолькоПросмотр(1);

Таб.Показать("Не таблица значений: "+Заголовок);



Возврат;

КонецЕсли;



Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл

ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ,,,, НазваниеКолонки);

Таб.Область(1, ЖЖ, 1, ЖЖ).Текст = СокрЛП(НазваниеКолонки);

Таб.Область(1, ЖЖ, 1, ЖЖ).РамкаОбвести(5, 5, 5, 5);

Таб.Область(1, ЖЖ, 1, ЖЖ).ВертикальноеПоложение(3);

Таб.Область(1, ЖЖ, 1, ЖЖ).ГоризонтальноеПоложение(3);

Таб.Область(1, ЖЖ, 1, ЖЖ).РазмерШрифта(7);

Таб.Область(1, ЖЖ, 1, ЖЖ).Полужирный(1);



Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();

Ширина = Макс(Ширина, СтрДлина(СокрЛП(НазваниеКолонки)));

Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);

КонецЦикла;



Для ИИ = 1 по ТаблицаЗначений.КоличествоСтрок() цикл

Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл

Значение = ТаблицаЗначений.ПолучитьЗначение(ИИ, ЖЖ);

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Текст = Значение;

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Расшифровка(Значение, 0);

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).РамкаОбвести(3, 0, 3, 0);



Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();

Ширина = Макс(Ширина, СтрДлина(СокрЛП(Строка(Значение))));

Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);



ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ, ТипКолонки); ;

Если ТипКолонки = "Число" тогда

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ГоризонтальноеПоложение(2);

КонецЕсли;

Если ИИ = ТаблицаЗначений.ТекущаяСтрока() тогда

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ЦветФона(255, 0, 0);

КонецЕсли;

КонецЦикла;

КонецЦикла;



Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица значений: "+Заголовок);

КонецПроцедуры