Расшифровка по ячейке

Процедура ДействияФормыСформировать(Кнопка)	
	ПостроительОтчетаОтчет = Новый ПостроительОтчета; 
ПостроительОтчетаОтчет.Текст =
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	ЗаказПокупателя.Ссылка КАК ЗаказПокупателя,
	|	ЗаказПокупателя.Контрагент КАК Контрагент,
	|	ЗаказПокупателя.ДатаИсполнения КАК ДатаИсполнения,
	|	КОЛИЧЕСТВО(ЗаказПокупателя.Контрагент) КАК Количество
	|{ВЫБРАТЬ
	|	ЗаказПокупателя.*,
	|	Контрагент.*}
	|ИЗ
	|	Документ.ЗаказПокупателя КАК ЗаказПокупателя
	|ГДЕ
	|	ЗаказПокупателя.Проведен = ИСТИНА
	|	И ЗаказПокупателя.ДатаИсполнения <= &ДатаИсполнения
	|
	|СГРУППИРОВАТЬ ПО
	|	ЗаказПокупателя.Ссылка,
	|	ЗаказПокупателя.Контрагент,
	|	ЗаказПокупателя.ДатаИсполнения
	|
	|УПОРЯДОЧИТЬ ПО
	|	Контрагент
	|ИТОГИ ПО
	|	Контрагент,
	|	ЗаказПокупателя
	|АВТОУПОРЯДОЧИВАНИЕ";
ПостроительОтчетаОтчет.Параметры.Вставить("ДатаИсполнения",ДатаИсполнения);

табДок=ЭлементыФормы.ПолеТабличногоДокумента1;
табДок.Очистить();
табДок.ТолькоПросмотр=Истина;
 ПостроительОтчетаОтчет.Выполнить();
МойМакет=ПолучитьМакет("Макет");
побл=МойМакет.ПолучитьОбласть("Заголовок");
ПостроительОтчетаОтчет.МакетЗаголовкаОтчета=побл;
табДок.Вывести(побл);
ОбластьШапка = МойМакет.ПолучитьОбласть("Шапка|Контрагент"); 
табДок.Вывести(ОбластьШапка);
областьЗаказ=МойМакет.ПолучитьОбласть("ЗаказыПокупателя");
ОблТаб = МойМакет.ПолучитьОбласть("Таблица|Контрагент");


табДок.НачатьАвтогруппировкуСтрок();
пВыб = ПостроительОтчетаОтчет.Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);;	
Пока пВыб.Следующий() Цикл
ОблТаб.Параметры.Заполнить(пВыб);		   
табДок.Вывести(ОблТаб,пВыб.Уровень());
КонецЦикла;
табДок.ЗакончитьАвтогруппировкуСтрок();


ТекущийПериод  = НачалоДня(ТекущаяДата());
ГоризонтПланирования = КонецМесяца(ТекущаяДата());
_Период     = НачалоМесяца(ТекущийПериод);
_КонПериод  = КонецДня(ГоризонтПланирования);
Пока _Период <= _КонПериод Цикл
	Если НачалоДня(_Период) < НачалоДня(ТекущийПериод) Тогда       // прошлый день
		областьЗаказ.Параметры.СчетчикМесяца = Формат(_Период, "ДФ='dd.MM.yyyy (ddd)'");
				 табДок.Присоединить(областьЗаказ);
	ИначеЕсли НачалоДня(_Период) = НачалоДня(ТекущийПериод) Тогда  // текущий день				
				областьЗаказ.Параметры.СчетчикМесяца = Формат(_Период, "ДФ='dd.MM.yyyy (ddd)'");
				табДок.Присоединить(областьЗаказ);
	Иначе 
		областьЗаказ.Параметры.СчетчикМесяца  = Формат(_Период, "ДФ='dd.MM.yyyy (ddd)'");
		 табДок.Присоединить(областьЗаказ);
		КонецЕсли; 		
		_Период  = КонецДня(_Период) + 1;
	КонецЦикла;	
	
	
	
КонецПроцедуры

Процедура ЗаполнитьТЧПодробнымиДанными() Экспорт 
	
	Запрос= Новый Запрос;	
	Запрос.Текст = 
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
	|	ЗаказПокупателя.Ссылка КАК Документ,
	|	ЗаказПокупателя.Контрагент КАК Контрагент,
	|	ЗаказПокупателя.ДатаИсполнения
	|ИЗ
	|	Документ.ЗаказПокупателя КАК ЗаказПокупателя
	|ГДЕ
	|	ЗаказПокупателя.Проведен = ИСТИНА
	|	И ЗаказПокупателя.ДатаИсполнения МЕЖДУ &ДатаНач И &ДатаКон";
	
	_ТекстУсловий = "ИСТИНА";
			
	Запрос.УстановитьПараметр("ДатаНач",               	ДатаНач);
	Запрос.УстановитьПараметр("ДатаКон",               	КонецДня(ДатаКон));


	
	_ТаблЗаказы = Запрос.Выполнить().Выгрузить();
	Для Каждого СтрокаТаблЗаказы Из _ТаблЗаказы Цикл
		СтрокаТЧ = ТЧ.Добавить();
		СтрокаТЧ.Документ  = СтрокаТаблЗаказы.Документ;
		КонецЦикла;	
	 КонецПроцедуры