Функция СведенияОВнешнейОбработке() Экспорт
	
	ПараметрыРегистрации = Новый Структура;
	
	//Вид
	//Строка, вид обработки, один из возможных: 
	//"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 
	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
	
	//Массив строк имен объектов метаданных в формате: 
	//<ИмяКлассаОбъектаМетаданного>.[ * | <ИмяОбъектаМетаданных>]. 
	//Например, "Документ.СчетЗаказ" или "Справочник.*". 
	//Прим. параметр имеет смысл только для назначаемых обработок, для глобальных может не задаваться. 
	ПараметрыРегистрации.Вставить("Назначение", Новый СписокЗначений);
	
	//Наименование обработки, которым будет заполнено наименование элемента справочника по умолчанию - краткая строка для идентификации обработки администратором 
	ПараметрыРегистрации.Вставить("Наименование", "Сравнение документов БУХ и УТ");
	
	//Версия обработки в формате “<старший номер>.<младший номер>” используется при загрузке обработок в информационную базу. Например “. 
	ПараметрыРегистрации.Вставить("Версия", "1.0");
	
	//Принимает значение Истина или Ложь, в зависимости от того, требуется ли устанавливать или отключать безопасный режим исполнения обработок. Если истина, обработка будет запущена в безопасном режиме. Более подбробно о безопасном режиме в справке к платформе 1С:Предприятие. 
	ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
	
	//Краткая информация по обработке, описание обработки. 
	ПараметрыРегистрации.Вставить("Информация", "");
	
	//Команды, поставляемые обработкой. Таблица значений с колонками: 
	ПараметрыРегистрации.Вставить("Команды", Новый СписокЗначений);
		
	ТаблицаКоманд = ПолучитьТаблицу_Команд();


  	ДобавитьКоманду(ТаблицаКоманд,
          "Сравнение документов БУХ и УТ", 	//Представление
          "Сравнение документов БУХ и УТ",	//Идентификатор
          "ОткрытиеФормы", 				//Использование
          Ложь,					 		//ПоказыватьОповещение
          "");			 				//Модификатор


  	ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
	
	Возврат ПараметрыРегистрации;
	
КонецФункции


Функция ПолучитьТаблицу_Команд()


  Команды = Новый ТаблицаЗначений;
  
  //Представление – представление команды в пользовательском интерфейсе;
  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
  
  //Идентификатор – идентификатор команды; 
  //любая строка, уникальная в пределах данной обработки (отчета). 
  //В случае с обработками печатных форм на основе макета табличного документа передается список макетов, 
  //на основе которых нужно получить печатную форму 
  //(см. описание параметра ИменаМакетов процедуры УправлениеПечатьюКлиент.ВыполнитьКомандуПечати в разделе Печать). 
  Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
  
  //"ОткрытиеФормы" – открыть форму обработки; 
  //"ВызовКлиентскогоМетода" – вызвать клиентскую экспортную процедуру из модуля формы обработки; 
  //"ВызовСерверногоМетода" – вызвать серверную экспортную процедуру из модуля объекта обработки.
  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
 	
  //ПоказыватьОповещение – если Истина, требуется показать оповещение при начале и при завершении работы обработки. 
  //Имеет смысл только при запуске обработки без открытия формы. 
  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
  
  //Модификатор – дополнительный модификатор команды. 
  //Используется для дополнительных обработок печатных форм на основе табличных макетов, 
  //для таких команд должен содержать строку ПечатьMXL (см. пример в демонстрационной конфигурации).
  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
  
  Возврат Команды;
           
КонецФункции


Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")


  НоваяКоманда = ТаблицаКоманд.Добавить();
  НоваяКоманда.Представление = Представление;
  НоваяКоманда.Идентификатор = Идентификатор;
  НоваяКоманда.Использование = Использование;
  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
  НоваяКоманда.Модификатор = Модификатор;

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

 //"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 
	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
   

 Функция СведенияОВнешнейОбработке() Экспорт 
// Объявим переменную, в которой мы сохраним и вернем "наружу" необходимые данные 


ПараметрыРегистрации = Новый Структура; 


// Объявим еще одну переменную, которая нам потребуется ниже 


МассивНазначений = Новый Массив; 


// Первый параметр, который мы должны указать - это какой вид обработки системе должна зарегистрировать. 


// Допустимые типы: ДополнительнаяОбработка, ДополнительныйОтчет, ЗаполнениеОбъекта, Отчет, ПечатнаяФорма, СозданиеСвязанныхОбъектов 


ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка"); 


ПараметрыРегистрации.Вставить("Назначение", МассивНазначений); 


// Теперь зададим имя, под которым ВПФ будет зарегистрирована в справочнике внешних обработок 


ПараметрыРегистрации.Вставить("Наименование", "Выгрузка проводок в БП 2.0"); 


// Зададим право обработке на использование безопасного режима. Более подробно можно узнать в справке к платформе (метод УстановитьБезопасныйРежим) 


ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина); 


// Следующие два параметра играют больше информационную роль, т.е. это то, что будет видеть пользователь в информации к обработке 


ПараметрыРегистрации.Вставить("Версия", "1.0"); 
ПараметрыРегистрации.Вставить("Информация", "Обработка 'Выгрузка проводок в БП 2.0'"); 


// Создадим таблицу команд (подробнее смотрим ниже) 


ТаблицаКоманд = ПолучитьТаблицуКоманд(); 


ДобавитьКоманду(ТаблицаКоманд, 
"Выгрузка проводок в БП 2.0", 
"ВыгрузкапроводоквБП20", 
"ОткрытиеФормы", //Использование. Варианты: "ОткрытиеФормы", "ВызовКлиентскогоМетода", "ВызовСерверногоМетода" 
Ложь,//Показывать оповещение. Варианты Истина, Ложь 
"");//Модификатор 


ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд); 


Возврат ПараметрыРегистрации; 


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


Функция ПолучитьТаблицуКоманд() 


Команды = Новый ТаблицаЗначений; 
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка")); 
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка")); 
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка")); 
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево")); 
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка")); 


Возврат Команды; 


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


Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "") 


НоваяКоманда = ТаблицаКоманд.Добавить(); 
НоваяКоманда.Представление = Представление; 
НоваяКоманда.Идентификатор = Идентификатор; 
НоваяКоманда.Использование = Использование; 
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение; 
НоваяКоманда.Модификатор = Модификатор; 


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

 РегистрационныеДанные.Вставить("Вид", "ДополнительнаяОтчет"); //расширение erf
на:
РегистрационныеДанные.Вставить("Вид", "ДополнительнаяОбработка");  //расширение epf   

 // Преобразовать табличный документ в таблицу значений.
//
// Параметры:
//	ТабДок - <ТабличныйДокумент> - Исходный табличный документ;
//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок;
//	НачалоСтрока - <Число> - Строка начала области;
//	НачалоСтолбец - <Число> - Столбец начала области;
//	КонецСтрока - <Число> - Строка конца области;
//	КонецСтолбец - <Число> - Столбец конца области.
//	
// Возвращаемое значение:
//	<ТаблицаЗначений> - Полученная таблица значений.
//
Функция ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, Знач КонецСтрока = Неопределено, Знач КонецСтолбец = Неопределено) Экспорт
 
	// Определение габаритов таблицы
	Если НачалоСтрока = Неопределено И НачалоСтолбец = Неопределено Тогда
		НачалоСтрока = 1;
		НачалоСтолбец = 1;
	КонецЕсли;
 
	Если НачалоСтрока = Неопределено Тогда
		НачалоСтрока = 1;
		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 
		 И НачалоСтрока < ТабДок.ВысотаТаблицы 
		Цикл
			НачалоСтрока = НачалоСтрока + 1;
		КонецЦикла;
	ИначеЕсли НачалоСтолбец = Неопределено Тогда
		НачалоСтолбец = 1;
		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 
		 И НачалоСтолбец < ТабДок.ШиринаТаблицы
		Цикл
			НачалоСтолбец = НачалоСтолбец + 1;
		КонецЦикла;
	КонецЕсли;
 
	КонецСтрока = ?(КонецСтрока = Неопределено, ТабДок.ВысотаТаблицы, КонецСтрока);
	КонецСтолбец = ?(КонецСтолбец = Неопределено, ТабДок.ШиринаТаблицы, КонецСтолбец);
 
	// Преобразование
	ЭтоТаблица = (ТипЗнч(СтруктураКолонок) = Тип("ТаблицаЗначений"));
	ТабЗначений = ПолучитьТаблицуВывода(СтруктураКолонок);
 
	Для ИндексСтроки = НачалоСтрока По КонецСтрока Цикл
		СтрокаТЗ = ТабЗначений.Добавить();
 
		ИндексКолонки = НачалоСтолбец;
		Для Каждого Колонка Из СтруктураКолонок Цикл
			НаименованиеКолонки = ?(ЭтоТаблица, Колонка.Наименование, Колонка.Ключ);
			пИндексКолонки = ?(ЭтоТаблица, Колонка.СтолбецОтчёт, ИндексКолонки);
 
			Если ТабДок.Область(ИндексСтроки, пИндексКолонки).СодержитЗначение Тогда
				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Значение;
			Иначе
				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Текст;
			КонецЕсли;
 
			ИндексКолонки = ИндексКолонки + 1;
		КонецЦикла;
	КонецЦикла;
 
	Возврат ТабЗначений;
КонецФункции;

// Преобразовать таблицу значений в табличный документ.
//
// Параметры:
//	ТабЗначений - <ТаблицаЗначений> - Исходная таблица значений;
//	ТабДок - <ТабличныйДокумент> - Полученный табличный документ. Если параметр не задан, 
//	 то документ создаётся заново и возвращается функцией;
//	НачалоСтрока - <Число> - Строка начала области;
//	НачалоСтолбец - <Число> - Столбец начала области;
//	ВыводитьЗаголовки - <Булево> - Определяет выводить ли имена колонок или нет.
//	
// Возвращаемое значение:
//	<ТабличныйДокумент> - Полученный табличный документ (возвращает параметр "ТабДок").
//
Функция ПреобразоватьТЗвТД(ТабЗначений, ТабДок = Неопределено, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, ВыводитьЗаголовки = Ложь) Экспорт
 
	Если ТабДок = Неопределено Тогда
		ТабДок = Новый ТабличныйДокумент;
	КонецЕсли;
 
	// Определение габаритов таблицы
	НачалоСтрока = ?(НачалоСтрока = Неопределено, 1, НачалоСтрока);
	НачалоСтолбец = ?(НачалоСтолбец = Неопределено, 1, НачалоСтолбец);
 
	// Преобразование
	ИндексСтроки = НачалоСтрока;
	Если ВыводитьЗаголовки Тогда
		ИндексКолонки = НачалоСтолбец;
		Для Каждого Колонка Из ТабЗначений.Колонки Цикл
			ТабДок.Область(ИндексСтроки, ИндексКолонки).Текст = ?(ПустаяСтрока(Колонка.Заголовок), Колонка.Имя, Колонка.Заголовок);
			ИндексКолонки = ИндексКолонки + 1;
		КонецЦикла;
		ИндексСтроки = ИндексСтроки + 1;
	КонецЕсли;
 
	Для Каждого Элемент Из ТабЗначений Цикл
		ИндексКолонки = НачалоСтолбец;
		Для Каждого Колонка Из ТабЗначений.Колонки Цикл
			ТабДок.Область(ИндексСтроки, ИндексКолонки).СодержитЗначение = Истина;
			ТабДок.Область(ИндексСтроки, ИндексКолонки).ТипЗначения = Новый ОписаниеТипов(Колонка.ТипЗначения);
			ТабДок.Область(ИндексСтроки, ИндексКолонки).Значение = Элемент[Колонка.Имя];
			ИндексКолонки = ИндексКолонки + 1;
		КонецЦикла;
		ИндексСтроки = ИндексСтроки + 1;
	КонецЦикла;
 
	Возврат ТабДок;
КонецФункции;

// Читает табличный документ из файла MXL и преобразует его в таблицу значений.
//
// Параметры:
//	ИмяФайла - <Строка> - Путь к файлу MXL;
//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок. Если этот параметр
//		не задан, то структура колонок формируется из самого табличного документа;
//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.
//	
// Возвращаемое значение:
//	<ТаблицаЗначений> - Полученная таблица значений.
//
Функция ПрочитатьТЗИзMXL(ИмяФайла, СтруктураКолонок = Неопределено, ЕстьЗаголовок = Истина) Экспорт
 
	ТабДок = Новый ТабличныйДокумент;
	ТабДок.Прочитать(ИмяФайла);
 
	Если СтруктураКолонок = Неопределено И ЕстьЗаголовок Тогда
		СтруктураКолонок = Новый Структура;
		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл
			Обл1 = ТабДок.Область(1, ИндексКолонки);
			Обл2 = ТабДок.Область(2, ИндексКолонки);
			ИмяКолонки = СокрЛП(Обл1.Текст);
			ИмяКолонки = ?(Найти(ИмяКолонки, " ") > 0, СтрЗаменить(ТРег(ИмяКолонки), " ", ""), ИмяКолонки);
			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));
		КонецЦикла;
	ИначеЕсли СтруктураКолонок = Неопределено И НЕ ЕстьЗаголовок Тогда
		СтруктураКолонок = Новый Структура;
		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл
			Обл2 = ТабДок.Область(1, ИндексКолонки);
			ИмяКолонки = "К" + Формат(ИндексКолонки, "ЧДЦ=0; ЧН=0; ЧГ=0");
			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));
		КонецЦикла;
	КонецЕсли;
 
    Таблица = ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, ?(ЕстьЗаголовок, 2, 1), 1);
 
	Возврат Таблица;
КонецФункции;

// Сохраняет таблицу значений в файле в виде табличного документа.
//
// Параметры:
//	ИмяФайла - <Строка> - Путь к файлу MXL;
//	ТабЗначений - <ТаблицаЗначений> - Сохраняемая таблица значений;
//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.
//
Процедура ЗаписатьТЗВMXL(ИмяФайла, ТабЗначений, ЕстьЗаголовок = Истина) Экспорт
 
	ТабДок = ПреобразоватьТЗвТД(ТабЗначений, Неопределено, 1, 1, ЕстьЗаголовок);
	ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.MXL);
 
КонецПроцедуры;   

 // Получаем таблицу значения из файла. 
Функция ЗагрузитьТЗизФайла(ИмяФайла)    
    Путь = КаталогВременныхФайлов() + ИмяФайла; 
    Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8); 
    стрТЗ = Текст.Прочитать(); 
    Текст.Закрыть(); 
    // получим таблицу значений из строки
    ТЗ = ЗначениеИзСтрокиВнутр(стрТЗ);    
    Возврат ТЗ;    
КонецФункции    

// Заполнить ячейки в строке  значениями 
//
Функция ЗаписьТЗ2ТабДок(записьТЗ,НомерСтроки,ТабличныйДокумент)
    НомерКолонки = 1;
    Символ160 = Символ(160);    
    // цикл по колонкам таблицы
    // РезультатЗапроса.Колонки.Количество()    // - количество колонок
    Для каждого полеТЗ из ЗаписьТЗ цикл 
        // значения ячейки в Excel
        типПоляТЗ = ТипЗнч(полеТЗ);
        если типПоляТЗ = Тип("Число") тогда             
            полеТЗ=Строка(полеТЗ); 
            полеТЗ=СтрЗаменить(полеТЗ,Символ160,"");
            полеТЗ=СтрЗаменить(полеТЗ,",",".");
        иначеесли типПоляТЗ = Тип("Строка") тогда      
        иначе        
            полеТЗ = строка(полеТЗ);
        КонецЕсли;    
        имяОбласти = "R" + номерСтроки + "C" + НомерКолонки;
        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         
        Ячейка = ТабличныйДокумент.Область(имяОбласти);
        Ячейка.Текст = полеТЗ;
        НомерКолонки = НомерКолонки + 1;
    КонецЦикла;            
КонецФункции

// Заполнить наименованиями колонок таблицу
Функция НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент)
    // массКолонки = новый массив();
    номерСтроки=1;
    номКолонки=1; 
    ТабличныйДокумент = новый ТабличныйДокумент;
    // цикл по коллекции колонок
    Для НомКол=0 по ТаблицаЗначений.Колонки.Количество() - 1 Цикл
        //Сообщить(Колонка.Имя + "(" + Колонка.ТипЗначения + ")" );            
        имяКолонки=ТаблицаЗначений.Колонки[НомКол].Имя;
        //ТабличныйДокумент.Область(
        имяОбласти = "R" + номерСтроки + "C" + номКолонки;
        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         
        Ячейка = ТабличныйДокумент.Область(имяОбласти);
        //значениеЯчейки = СтрЗаменить(имяОбласти,Символ(160),"");         
        Ячейка.Текст = имяКолонки;
        // на основе текущего шрифта сделаем Жирный
        ЖирныйШрифт = ?(ЖирныйШрифт = Неопределено,Новый Шрифт(Ячейка.Шрифт,,,Истина),ЖирныйШрифт);         
        Ячейка.Шрифт = ЖирныйШрифт;
        номКолонки = номКолонки + 1;        
    КонецЦикла;
КонецФункции


// Заполнить построчно табличный документ
Функция Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент)
    //Выборка = РезультатЗапроса.Выбрать();
    НомСтр=1; // заполняем данными начиная со 2-й строки    
    // цикл по строкам таблицы
    Для каждого записьТЗ из ТаблицаЗначений Цикл
        НомСтр = НомСтр + 1;
        // цикл по колонкам таблицы        
        ЗаписьТЗ2ТабДок(записьТЗ,НомСтр,ТабличныйДокумент);         
    КонецЦикла;    
КонецФункции

// Таблица значений в табличный документ
Функция ТаблицаЗначений2Mxl(ТаблицаЗначений,ФайлMxl)
    ТабличныйДокумент = новый ТабличныйДокумент;
    // вывести колонки
    НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент);
    // вывести содержимое таблицы    
    Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент);
    ТабличныйДокумент.Записать(ФайлMxl,ТипФайлаТабличногоДокумента.MXL);
    ТабличныйДокумент.Показать(ФайлMxl,ФайлMxl);
    Возврат 0;
КонецФункции


Функция    Тест_ВыгрузитьТЗвMxl();
    файл_мТЗИсходныеДанные = "мТЗИсходныеДанные.dat";        
    ТЗ = ЗагрузитьТЗизФайла(файл_мТЗИсходныеДанные);    
    ФайлMxl = КаталогВременныхФайлов() + СтрЗаменить(файл_мТЗИсходныеДанные,".dat",".mxl");  
    ТаблицаЗначений2Mxl(ТЗ,ФайлMxl);
КонецФункции

Тест_ВыгрузитьТЗвMxl();   

 Процедура ПреобразоватьТЗвТЗсОписаниемТипов(ТЗ)
	ТипизированнаяТЗ = Новый ТаблицаЗначений;
    Для й=1 По Тз.Количество() Цикл ТипизированнаяТЗ.Добавить(); //Создаем строки
    КонецЦикла;    
    
    ДЗТипов = Новый ДеревоЗначений;
    ДЗТипов.Колонки.Добавить("ИмяКолонки");
    ДЗТипов.Колонки.Добавить("ТипЗначений");
    
    Для Каждого Колонка из Тз.Колонки Цикл
        СтрокаКолонки = ДЗТипов.Строки.Добавить();
        СтрокаКолонки.ИмяКолонки = Колонка.Имя;
        
        ТекСТрокаТипа = СтрокаКолонки.Строки.Добавить();
        ТекСТрокаТипа.ИмяКолонки = Колонка.Имя; //Заполняется для красоты
        ТекСТрокаТипа.ТипЗначений = ТипЗнч(тз[0][Колонка.Имя]);
        Для Каждого СтокаТЗ из Тз Цикл
            ТекТип = ТипЗнч(СтокаТЗ[Колонка.Имя]);
            Если НЕ ТекТип = ТекСТрокаТипа.ТипЗначений Тогда
                Если СтрокаКолонки.Строки.Найти(ТекТип, "ТипЗначений")=Неопределено Тогда
                    ТекСТрокаТипа = СтрокаКолонки.Строки.Добавить();
                    ТекСТрокаТипа.ИмяКолонки = Колонка.Имя;//Заполняется для красоты
                    ТекСТрокаТипа.ТипЗначений = ТекТип;
                КонецЕслИ;
            КонецЕслИ;
        КонецЦикла;
        
        МассивТипов = СтрокаКолонки.Строки.ВыгрузитьКолонку("ТипЗначений");
        ТипизированнаяТЗ.Колонки.Добавить(Колонка.Имя, Новый ОписаниеТипов(МассивТипов),Колонка.Заголовок);
        ТипизированнаяТЗ.ЗагрузитьКолонку(Тз.ВыгрузитьКолонку(Колонка),Колонка.Имя);
    КонецЦикла;
КонецПроцедуры   

 //ПреобразоватьТекстCSVвТЗ () импортирует данные в ТЗ из текста формата CSV
//Параметры:
//ТекстCSV 		- Строка, содержащая текст в формате csv
//Разделитель 	- Для формата CSV разделителем является ',', но т.к. 
//				  Excel берет разделитель из региональных стандартов, то
//				  используется ';', поддерживает многострочные поля
//
&НаСервереБезКонтекста
Функция ПреобразоватьТекстCSVвТЗ(ТекстCSV="", Разделитель=";") Экспорт
	ТЗ = Новый ТаблицаЗначений;
	ОсобаяСтрока = "$#%^&*!xyxb$#%&*!^";	// для замены ""
	
	НомерСтроки = 1;
	Стр = СтрПолучитьСтроку(ТекстCSV,НомерСтроки);
	Пока НомерСтроки <= СтрЧислоСтрок(ТекстCSV) Цикл
		СтрокаТЗ = ТЗ.Добавить();
		НомерПоля = 0;
		Пока Стр <> "" Цикл
			Токен = "";
			ПозицияРазделителя = Найти(стр, Разделитель);
			ПозицияОткрКавычек = Найти(стр, """");
			Если (ПозицияРазделителя > ПозицияОткрКавычек ИЛИ ПозицияРазделителя = 0) И ПозицияОткрКавычек > 0 Тогда
				// начинающееся с кавычек читаем до тех пор
				Токен = Сред(Стр, 1, ПозицияОткрКавычек);
				Стр = СтрЗаменить(Сред(Стр, ПозицияОткрКавычек+1), """""", ОсобаяСтрока);
				
				ПозицияЗакрКавычек = Найти(Стр, """");
				Пока ПозицияЗакрКавычек = 0 Цикл
					Токен = Токен + Стр + Символы.ПС;
					НомерСтроки = НомерСтроки + 1;
					Стр = СтрПолучитьСтроку(ТекстCSV, НомерСтроки);
					Стр = СтрЗаменить(Стр, """""", ОсобаяСтрока);
					// пока не встретим закрывающие
					ПозицияЗакрКавычек = Найти(Стр, """");
				КонецЦикла;
				ПозицияРазделителя=Найти(Сред(Стр,ПозицияЗакрКавычек), Разделитель);
				ПозицияРазделителя = ?(ПозицияРазделителя>0, ПозицияЗакрКавычек + ПозицияРазделителя-1, 0);
			КонецЕсли;

			Токен = Токен + ?(ПозицияРазделителя>0, Сред(Стр, 1, ПозицияРазделителя-1), Стр);
			Стр = ?(ПозицияРазделителя>0, Сред(Стр, ПозицияРазделителя+1), "");
			
			Если Лев(Токен, 1) = """" Тогда
				Токен = Сред(Токен, 2);
				Токен = ?(Прав(Токен, 1) = """", Сред(Токен, 1, СтрДлина(Токен)-1), Токен);
			КонецЕсли;
			Токен = СтрЗаменить(Токен, ОсобаяСтрока, """");
			
			НомерПоля = НомерПоля + 1;
			Если ТЗ.Колонки.Количество()<НомерПоля Тогда
				ТЗ.Колонки.Добавить("Колонка"+НомерПоля, Новый ОписаниеТипов("Строка"));
			КонецЕсли;
			СтрокаТЗ[НомерПоля-1] = Токен;

		КонецЦикла;
		НомерСтроки = НомерСтроки + 1;
		Стр = СтрПолучитьСтроку(ТекстCSV, НомерСтроки);
	КонецЦикла;
	Возврат ТЗ;
КонецФункции

//ПреобразоватьТЗвТекстCSV () экспортирует данные ТЗ в текст в формате CSV
//Параметры:
//ТЗ 			- Таблица значений данные которые сохраняются в файл
//флЭкспортироватьИменаКолонок - Первой строкой выводить имена колонок
//Разделитель 	- Для формата CSV разделителем является ',', но т.к. 
//				  Excel берет разделитель из региональных стандартов, то
//				  используется ';'
//
&НаСервереБезКонтекста
Функция ПреобразоватьТЗвТекстCSV(ТЗ, Разделитель = ";", флЭкспортироватьИменаКолонок = Ложь) Экспорт
		
	ТекстCSV = "";
	
	Если флЭкспортироватьИменаКолонок Тогда
		//Если нужно выгружать наименование колонок Выгружаем
		ПодготовленнаяСтрока = "";
		Для Каждого Колонка Из ТЗ.Колонки Цикл
			ПодготовленнаяСтрока = ПодготовленнаяСтрока + Колонка.Имя + Разделитель;
		КонецЦикла;
		ПодготовленнаяСтрока = Лев (ПодготовленнаяСтрока,СтрДлина(ПодготовленнаяСтрока)-1);
		
		ТекстCSV = ТекстCSV + ПодготовленнаяСтрока + Символы.ПС;
	КонецЕсли;
	
	Для Каждого Строка Из ТЗ Цикл
		ПодготовленнаяСтрока = "";
		Для Каждого Колонка Из ТЗ.Колонки Цикл
			ПреобразованноеПоле = Строка[Колонка.Имя];
			//по правилам CSV если поле содержит двойные ковычки они должны повторятся дважды
			Если Найти(ПреобразованноеПоле,"""") Тогда
				ПреобразованноеПоле = СтрЗаменить(ПреобразованноеПоле,"""","""""");
			КонецЕсли;
			//по правилам CSV если поле содержит перенос строки или запятую оно должно заключатся в двойные кавычки
			Если Найти(ПреобразованноеПоле,Разделитель) ИЛИ Найти(ПреобразованноеПоле,Символы.ПС) ИЛИ Найти(ПреобразованноеПоле,"""") Тогда
				ПреобразованноеПоле = """" + ПреобразованноеПоле + """";
			КонецЕсли;

			ПодготовленнаяСтрока = ПодготовленнаяСтрока + ПреобразованноеПоле + Разделитель;
		КонецЦикла;
		ПодготовленнаяСтрока = Лев (ПодготовленнаяСтрока,СтрДлина(ПодготовленнаяСтрока)-1);
		
		ТекстCSV = ТекстCSV + ПодготовленнаяСтрока + Символы.ПС;
	КонецЦикла;

	Возврат ТекстCSV;
КонецФункции   

 // Выводит данные ДереваЗначений в ТекстовыйДокумент, пригодный к рассмотрению в отладчике, окне сообщений и показу.
//
// Параметры:
//    рВетка - дерево значений, подлежащее выводу. Может иметь почти любую глубину иерархии, количество и тип колонок. Если хватит
//        объявленных позиционных строк-заполнителей, всё поместится. Если иерархия слишком глубока, строки просто надо нарастить;
//    рТекст - на входе должен быть равен Неопределено; на выходе по окончании работы содержит результатный текстовый документ;
//    рПараметры - структура дополнительных настроек, допустимые ключи:
//        Колонки - структура колонок, которые подлежат выводу. Если пуста или имеет тип, отличный от структуры, выводятся все колонки;
//           если в ключах структуры указаны имена колонок, будут выведены только они. В значениях структуры можно передать строковое
//           представление формата, согласно которому должны будут форматироваться выводимые значения. По умолчанию формата нет;
//        ПоказыватьУровни - булево, управляет выводом №№ уровней (метод Уровень()), по умолчанию выключено;
//        ШагОтступа - число, определяющее шаг в символах, используемый для показа псевдографики иерархии веток в дереве.
//
&НаСервереБезКонтекста
Процедура ВывестиДеревоЗначенийВТекст(Знач рВетка,рТекст,Знач рПараметры=Неопределено)
Попытка
    Если рТекст=Неопределено Тогда // первая итерация, шапочный вызов исходной части
        //---------------------------------------------------------------------------------------------------------------------------
        // Разбираем входные данные
        Если ТипЗнч(рВетка)<>Тип("ДеревоЗначений") Тогда Возврат КонецЕсли;
        Если ТипЗнч(рПараметры)<>Тип("Структура") Тогда рПараметры=Новый Структура КонецЕсли;
        стрКолонок=?(рПараметры.Свойство("Колонки"),рПараметры.Колонки,Неопределено);
        Если ТипЗнч(стрКолонок)<>Тип("Структура") Тогда стрКолонок=Новый Структура КонецЕсли;
        рПоказыватьУровни=?(рПараметры.Свойство("ПоказыватьУровни"),рПараметры.ПоказыватьУровни,Ложь); // затратное дело, кстати
        рШагОтступа=?(рПараметры.Свойство("ШагОтступа"),рПараметры.ШагОтступа,2); // для отображения отступа в колонке иерархии


        //---------------------------------------------------------------------------------------------------------------------------
        // Определяем максимальное количество уровней
        // Также можно получить максимальный уровень, "плоско" перебрав все строки (например, получив их через НайтиСтроки)
        // и в цикле для каждой вызывая Уровень() и определяя максимум.
        // Вариант через СКД и служебное поле "Уровень" ни на одной известной мне платформе не работоспособен (нехватка памяти).
        //
        //
        //рДеревоДляТеста=КакНибудьСкопироватьДерево(рВетка);
        //рДеревоДляТеста.Колонки.Вставить(0,"_Level",Новый ОписаниеТипов("Булево")); // самый экономный вариант, с сохранением иерархии
        //мНенужных=Новый Массив;
        //Для й=1 По рДеревоДляТеста.Колонки.Количество()-1 Цикл
        //  мНенужных.Добавить(рДеревоДляТеста.Колонки[й]);
        //КонецЦикла;
        //Для каждого кол Из мНенужных Цикл
        //  рДеревоДляТеста.Колонки.Удалить(кол);
        //КонецЦикла;
        //
        рДеревоДляТеста=рВетка; // пока сериализуем прямо всё дерево (неоптимально, но...)
        рЗапись=Новый ЗаписьXML;
        рЗапись.УстановитьСтроку();
        СериализаторXDTO.ЗаписатьXML(рЗапись,рДеревоДляТеста);
        стро=рЗапись.Закрыть();
        //
        стро=СтрЗаменить(стро,"xmlns=","xmlns:myns1C="); // иначе не будет работать XPath
        //
        рЧтение=Новый ЧтениеXML;
        рЧтение.УстановитьСтроку(стро);
        постр=Новый ПостроительDOM;
        рДокументДОМ=постр.Прочитать(рЧтение);


        рВыражение="/ValueTree/row"; максКолвоУровней=1;
        рРазыменователь=Новый РазыменовательПространствИменDOM(рДокументДОМ);
        Пока Истина Цикл
            #Если Клиент Тогда
                ОбработкаПрерыванияПользователя();
            #КонецЕсли
            рРезультат=рДокументДОМ.ВычислитьВыражениеXPath(рВыражение,рДокументДОМ,рРазыменователь,ТипРезультатаDOMXPath.Любой);
            Если рРезультат.ПолучитьСледующий()=Неопределено Тогда Прервать КонецЕсли;
            рВыражение=рВыражение+"/row";
            максКолвоУровней=максКолвоУровней+1;
        КонецЦикла;
        максКолвоУровней=максКолвоУровней-1; // можно и так: СтрЧислоВхождений(рВыражение,"/row")-1;


        //---------------------------------------------------------------------------------------------------------------------------
        // готовим исходный макет вывода
        строПробелы="                                                                                                                                                                                                                 ";
        строРазделители="===============================================================================================";
        строОтступы="___________________________________________________________________________________________"; // тут нужны чуть для другого
        //
        секШапка1="|[_HCS"+Лев(строПробелы,максКолвоУровней*рШагОтступа)+"]|"; // HierarchyColumnShow
        секГорРазделитель1="|"+Лев(строОтступы,максКолвоУровней*рШагОтступа+6)+"|"; // здесь именно Отступы!
        рШиринаКолонкиИерархии=СтрДлина(секШапка1)-2;
        строПолейШапки="#Поле _HCS
        |   #Выравнивание Центр";
        строПолейЗаписи="";
        //
        Если рПоказыватьУровни Тогда
            секШапка1=секШапка1+"[_Level]|";
            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,8)+"|";
            строПолейШапки=строПолейШапки+"
            |#Поле _Level
            |   #Выравнивание Центр";
            строПолейЗаписи="#Поле _Level
            |   #Выравнивание Центр
            |   #Забивать Истина";
        КонецЕсли;
        //
        мИменКолонок=Новый Массив;
        Для каждого кол Из рВетка.Колонки Цикл
            Если стрКолонок.Количество()<>0 и не стрКолонок.Свойство(кол.Имя) Тогда Продолжить КонецЕсли; // чётко указаны конкретные колонки
            рДлинаИмениКолонки=СтрДлина(кол.Имя);
            рНужнаяШирина=Макс(?(кол.Ширина<3,10,кол.Ширина),рДлинаИмениКолонки);
            // к сожалению, ключевое слово "#Поля" неприменимо - платформа падает - поэтому делаем всё сами
            секШапка1=секШапка1+"["+кол.Имя+Лев(строПробелы,рНужнаяШирина-рДлинаИмениКолонки)+"]|";
            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,рНужнаяШирина+1)+"=|";
            строПолейШапки=строПолейШапки+"
            |#Поле "+кол.Имя+"
            |   #Выравнивание Центр";
            рОписТипов=кол.ТипЗначения;
            Если рОписТипов.Типы().Количество()=1 и рОписТипов.СодержитТип(Тип("Булево")) Тогда
                рВыравнивание="Центр";
            ИначеЕсли рОписТипов.СодержитТип(Тип("Число")) Тогда
                рВыравнивание="Право";
            ИначеЕсли рОписТипов.СодержитТип(Тип("Строка")) и рОписТипов.КвалификаторыСтроки.Длина=0 Тогда
                рВыравнивание="ПоШирине";
            Иначе
                рВыравнивание="Лево";
            КонецЕсли;
            строПолейЗаписи=строПолейЗаписи+?(ПустаяСтрока(строПолейЗаписи),"",Символы.ПС)+"#Поле "+кол.Имя+"
            |   #Выравнивание "+рВыравнивание;
            Попытка
                Если ЗначениеЗаполнено(стрКолонок[кол.Имя]) Тогда // указан формат, уточняющий показ колонки
                    строПолейЗаписи=строПолейЗаписи+"
                    |   #Формат """+СокрЛП(стрКолонок[кол.Имя])+"""";
                КонецЕсли;
            Исключение
            КонецПопытки;
            мИменКолонок.Добавить(кол.Имя);
        КонецЦикла;
        секШапка2=СтрЗаменить(СтрЗаменить(секШапка1,"[","<"),"]",">");
        секЗапись1=секШапка1; секЗапись2=секШапка2; // пусть они по дизайну пока не отличаются
        секГорРазделитель2=СтрЗаменить(СтрЗаменить(секГорРазделитель1,"=","-"),"|","+");
        // обработаем нормальное обрамление шапки колонки иерархии
        секГорРазделитель1=СтрЗаменить(секГорРазделитель1,"_","=");
        секГорРазделитель2=СтрЗаменить(секГорРазделитель2,"_"," ");
        //
        тМакет=Новый ТекстовыйДокумент;
        тМакет.ДобавитьСтроку("#Область Шапка");
        тМакет.ДобавитьСтроку(строПолейШапки);
        тМакет.ДобавитьСтроку(секГорРазделитель1);
        тМакет.ДобавитьСтроку(секШапка1);
        тМакет.ДобавитьСтроку(секШапка2);
        тМакет.ДобавитьСтроку(секГорРазделитель1);
        тМакет.ДобавитьСтроку("#КонецОбласти");
        тМакет.ДобавитьСтроку("");
        тМакет.ДобавитьСтроку("#Область Запись");
        тМакет.ДобавитьСтроку(строПолейЗаписи);
        тМакет.ДобавитьСтроку(секЗапись1);
        тМакет.ДобавитьСтроку(секЗапись2);
        тМакет.ДобавитьСтроку(секГорРазделитель2);
        тМакет.ДобавитьСтроку("#КонецОбласти");
        рПараметры.Вставить("ИсходныйМакет",тМакет); // пусть будет


        //---------------------------------------------------------------------------------------------------------------------------
        // Запускаем вывод в итоговый документ
        рТекст=Новый ТекстовыйДокумент;
        сек=тМакет.ПолучитьОбласть("Шапка");
        сек.Параметры._HCS="Иерархия";
        Для каждого имякол Из мИменКолонок Цикл
            кол=рВетка.Колонки[имякол];
            сек.Параметры[кол.Имя]=?(ПустаяСтрока(кол.Заголовок),кол.Имя,кол.Заголовок);
        КонецЦикла;
        рТекст.Вывести(сек);
        //
        пар=Новый Структура;
        пар.Вставить("МассивИмёнКолонок",мИменКолонок);
        пар.Вставить("ТекущаяСекция",тМакет.ПолучитьОбласть("Запись"));
        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);
        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);
        пар.Вставить("Отступ",0);
        пар.Вставить("ШагОтступа",рШагОтступа);
        ВывестиДеревоЗначенийВТекст(рВетка,рТекст,пар);


    Иначе
        // очередная итерация, вывод в текстовый документ
        мИменКолонок=рПараметры.МассивИмёнКолонок;
        рСекция=рПараметры.ТекущаяСекция;
        рОтступ=рПараметры.Отступ;
        рШиринаКолонкиИерархии=рПараметры.ШиринаКолонкиИерархии;
        рПоказыватьУровни=рПараметры.ПоказыватьУровни;
        //
        строОтступы="_________________________________________________________________________________________________________";
        строПробелы="                                                                                                                                                                                                                 ";
        //
        пар=Новый Структура;
        пар.Вставить("МассивИмёнКолонок",мИменКолонок);
        пар.Вставить("ТекущаяСекция",рПараметры.ТекущаяСекция);
        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);
        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);
        пар.Вставить("ШагОтступа",рПараметры.ШагОтступа);
        пар.Вставить("Отступ",рОтступ+рПараметры.ШагОтступа);
        //
        Для каждого рПодветка Из рВетка.Строки Цикл
            рСекция.Параметры._HCS=Лев(строПробелы,рОтступ)+"\"+Лев(строОтступы,рШиринаКолонкиИерархии-рОтступ-1);
            Если рПоказыватьУровни Тогда
                рСекция.Параметры._Level=рПодветка.Уровень();
            КонецЕсли;
            Для каждого имякол Из мИменКолонок Цикл
                рСекция.Параметры[имякол]=рПодветка[имякол];
            КонецЦикла;
            рТекст.Вывести(рСекция);
            ВывестиДеревоЗначенийВТекст(рПодветка,рТекст,пар)
        КонецЦикла;
        //
    КонецЕсли;
Исключение
    Сообщить("ВывестиДеревоЗначенийВТекст, ошибка: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
КонецПопытки;
КонецПроцедуры   

 &НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    // Создание и заполнение "обычного" объекта прикладного типа ДеревоЗначений,
    // который будет отображен на управляемой форме
    ДеревоОбъект = Новый ДеревоЗначений;
    ДеревоОбъект.Колонки.Добавить("Узел", Новый ОписаниеТипов("Строка"));
    Для к1 = 1 По 3 Цикл
        СтрокаУ1 = ДеревоОбъект.Строки.Добавить();
        СтрокаУ1.Узел = "Узел"+к1;
        Для к2 = 1 По 3 Цикл
            СтрокаУ2 = СтрокаУ1.Строки.Добавить();
            СтрокаУ2.Узел = СтрокаУ1.Узел+к2;
            Для к3 = 1 По 3 Цикл
                СтрокаУ3 = СтрокаУ2.Строки.Добавить();
                СтрокаУ3.Узел = СтрокаУ2.Узел+к3;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;


    // Создание Реквизита формы типа ДанныеФормыДерево
    МассивДобавляемыхРеквизитов = Новый Массив;
    МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Дерево", 
        Новый ОписаниеТипов("ДеревоЗначений")));
    Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл
        МассивДобавляемыхРеквизитов.Добавить(
           Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, "Дерево"));
    КонецЦикла;
    ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);


    // Преобразование объекта прикладного типа ДеревоЗначений 
    // в реквизит управляемой формы (данные формы)
    ЗначениеВРеквизитФормы(ДеревоОбъект, "Дерево");


    // Создание элемента формы типа ТаблицаФормы для отображения дерева
    ЭлементДерево = Элементы.Добавить("Дерево", Тип("ТаблицаФормы"));
    ЭлементДерево.ПутьКДанным = "Дерево";
    ЭлементДерево.Отображение = ОтображениеТаблицы.Дерево;


    Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл
        НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип("ПолеФормы"), 
            ЭлементДерево);
        НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
        НовыйЭлемент.ПутьКДанным = "Дерево." + Колонка.Имя;
    КонецЦикла;

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

 // Функция формирует табличный документ с Внешней печатной формой
//
// Возвращаемое значение:
//  Табличный документ - печатная форма акта
Функция ПечатьВнешнейПечатнойФормы(МассивОбъектов, ОбъектыПечати, Подписант) Экспорт
	ТабДок = новый ТабличныйДокумент;
	
	Макет = ПолучитьМакет("Макет");
	
	ОбластьШапки   = Макет.ПолучитьОбласть("Шапка");
	ОбластьДанные  = Макет.ПолучитьОбласть("Данные");
	ОбластьПодвал  = Макет.ПолучитьОбласть("Подвал");
	
	Запрос = новый запрос;
	Запрос.УстановитьПараметр("МассивОбъектов",МассивОбъектов);
	Запрос.Текст = "ВЫБРАТЬ
	|	РеализацияТоваровУслугТовары.Номенклатура,
	|	РеализацияТоваровУслугТовары.Сумма,
	|	РеализацияТоваровУслугТовары.Количество,
	|	РеализацияТоваровУслугТовары.Цена,
	|	РеализацияТоваровУслугТовары.Ссылка КАК Ссылка
	|ИЗ
	|	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
	|ГДЕ
	|	РеализацияТоваровУслугТовары.Ссылка В(&МассивОбъектов)
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	РеализацияТоваровУслугУслуги.Номенклатура,
	|	РеализацияТоваровУслугУслуги.Сумма,
	|	РеализацияТоваровУслугУслуги.Количество,
	|	РеализацияТоваровУслугУслуги.Цена,
	|	РеализацияТоваровУслугУслуги.Ссылка
	|ИЗ
	|	Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
	|ГДЕ
	|	РеализацияТоваровУслугУслуги.Ссылка В(&МассивОбъектов)  	
	|
	|УПОРЯДОЧИТЬ ПО
	|	Ссылка";
	
	ОбщаяВыборка = Запрос.Выполнить().Выгрузить();
	
	Для Каждого СсылкаНаОбъект из МассивОбъектов Цикл
		
		ОбластьШапки.Параметры.ТекстЗаголовка = "Акт №  "+СсылкаНаОбъект.Номер;
		ОбластьШапки.Параметры.Организация = СсылкаНаОбъект.Организация;
		
		ТабДок.Вывести(ОбластьШапки);
		
		Отбор = Новый Структура;
		Отбор.Вставить("Ссылка",СсылкаНаОбъект);
		
		Выборка = ОбщаяВыборка.НайтиСтроки(Отбор);
		
		ИтогоСумма      = 0;
		ИтогоКоличество = 0;
		
		Для Каждого Стр из Выборка Цикл
			ЗаполнитьЗначенияСвойств(ОбластьДанные.Параметры,Стр);
			
			ИтогоСумма = ИтогоСумма + Стр.Сумма;
			ИтогоКоличество = ИтогоКоличество + Стр.Количество;
			
			ТабДок.Вывести(ОбластьДанные);
		КонецЦикла;
		
		ОбластьПодвал.Параметры.ИтогоСумма      = ИтогоСумма;
		
		ОбластьПодвал.Параметры.Подписант      = Подписант;


		ТабДок.Вывести(ОбластьПодвал);
		
		ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
	КонецЦикла;
	
	Возврат ТабДок;
КонецФункции

// Экспортная процедура печати, вызываемая из основной программы
//
// Параметры:
// ВХОДЯЩИЕ:
//  МассивОбъектовНазначения - Массив - список объектов ссылочного типа для печати документа
//                 Как правило, содержит один элемент с ссылкой на вызвавший форму объект (документ, справочник)
//
// ИСХОДЯЩИЕ:
//  КоллекцияПечатныхФорм - ТаблицаЗначений - таблица сформированных табличных документов.
//                 Как правило, содержит одну строку с именем текущей печатной формы
//  ОбъектыПечати - СписокЗначений - список объектов печати. 
//  ПараметрыВывода - Структура - Параметры сформированных табличных документов. Содержит поля:
//  						ДоступнаПечатьПоКомплектно - булево - по умолчанию Ложь
//							ПолучательЭлектронногоПисьма
//							ОтправительЭлектронногоПисьма
//
Процедура Печать(МассивОбъектовНазначения, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
	
	Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "АКТПечатьВнешняя") Тогда 
		ТабличныйДокумент = ПечатьВнешнейПечатнойФормы(МассивОбъектовНазначения, ОбъектыПечати, "");
		УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "АКТПечатьВнешняя", "АКТ (внешний)", ТабличныйДокумент);
		
	ИначеЕсли УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "АКТПечатьВнешняяИван") Тогда 
		ТабличныйДокумент = ПечатьВнешнейПечатнойФормы(МассивОбъектовНазначения, ОбъектыПечати, "Иванов А.Ю.");
		УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "АКТПечатьВнешняяИван", "АКТ (внешний) Иванов", ТабличныйДокумент);  		
		
	ИначеЕсли УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "АКТПечатьВнешняяПетр") Тогда 
		ТабличныйДокумент = ПечатьВнешнейПечатнойФормы(МассивОбъектовНазначения, ОбъектыПечати, "Петров В.С.");
		УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "АКТПечатьВнешняяПетр", "АКТ (внешний) Петров", ТабличныйДокумент);
	КонецЕсли;


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


#Область СведенияОВнешнейОбработке
// Сервисная экспортная функция. Вызывается в основной программе при регистрации обработки в информационной базе
// Возвращает структуру с параметрами регистрации
//
// Возвращаемое значение:
//		Структура с полями:
//			Вид - строка, вид обработки, один из возможных: "ДополнительнаяОбработка", "ДополнительныйОтчет", 
//					"ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов"
//			Назначение - Массив строк имен объектов метаданных в формате: 
//					<ИмяКлассаОбъектаМетаданного>.[ * | <ИмяОбъектаМетаданных>]. 
//					Например, "Документ.СчетЗаказ" или "Справочник.*". Параметр имеет смысл только для назначаемых обработок, для глобальных может не задаваться.
//			Наименование - строка - Наименование обработки, которым будет заполнено наименование элемента справочника по умолчанию.
//			Информация  - строка - Краткая информация или описание по обработке.
//			Версия - строка - Версия обработки в формате “<старший номер>.<младший номер>” используется при загрузке обработок в информационную базу.
//			БезопасныйРежим - булево - Принимает значение Истина или Ложь, в зависимости от того, требуется ли устанавливать или отключать безопасный режим 
//							исполнения обработок. Если истина, обработка будет запущена в безопасном режиме. 
//
Функция СведенияОВнешнейОбработке() Экспорт
	//Инициализируем структуру с параметрами регистрации    	
	ПараметрыРегистрации = Новый Структура;
	// Первый параметр, который мы должны указать - это какой вид обработки системе должна зарегистрировать.
	// Допустимые типы: ДополнительнаяОбработка, ДополнительныйОтчет, ЗаполнениеОбъекта, Отчет, ПечатнаяФорма, СозданиеСвязанныхОбъектов
	ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма"); //может быть - ПечатнаяФорма, ЗаполнениеОбъекта, ДополнительныйОтчет, СозданиеСвязанныхОбъектов...
	
	МассивНазначений = Новый Массив;
	// Теперь нам необходимо передать в виде массива имен, к чему будет подключена наша ВПФ
	// Имейте ввиду, что можно задать имя в таком виде: Документ.* - в этом случае обработка будет подключена ко всем документам в системе,
	// которые поддерживают механизм ВПФ
	МассивНазначений.Добавить("Документ.РеализацияТоваровУслуг"); //Указываем документ к которому делаем внешнюю печ. форму   		
	ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
	
	ПараметрыРегистрации.Вставить("Наименование", "АКТ (Внешний)"); //имя под которым обработка будет зарегестрирована в справочнике внешних обработок
	ПараметрыРегистрации.Вставить("БезопасныйРежим", ЛОЖЬ);  // Зададим право обработке на использование безопасного режима. Более подробно можно узнать в справке к платформе (метод УстановитьБезопасныйРежим)
	ПараметрыРегистрации.Вставить("Версия", "1.0");   // эти два параметра играют больше информационную роль,
	ПараметрыРегистрации.Вставить("Информация", "Дополнительная печатная форма"); // т.е. это то, что будет видеть пользователь в информации к обработке
	
	// Создадим таблицу команд (подробнее смотрим ниже)
	ТаблицаКоманд = ПолучитьТаблицуКоманд();
	ДобавитьКоманду(ТаблицаКоманд, "Внешний: АКТ", "АКТПечатьВнешняя", "ВызовСерверногоМетода", Истина, "ПечатьMXL");
	ДобавитьКоманду(ТаблицаКоманд, "Внешний: АКТ (Иванов)", "АКТПечатьВнешняяИван", "ВызовСерверногоМетода", Истина, "ПечатьMXL");
	ДобавитьКоманду(ТаблицаКоманд, "Внешний: АКТ (Петров)", "АКТПечатьВнешняяПетр", "ВызовСерверногоМетода", Истина, "ПечатьMXL");
	
	ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
	
	Возврат ПараметрыРегистрации; 	
КонецФункции
#КонецОбласти


#Область Вспомогательное
// ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ РЕГИСТРАЦИИ ОБРАБОТКИ


// Формирует структуру с параметрами регистрации регистрации обработки в информационной базе
//
// Параметры:
//	ОбъектыНазначенияФормы - Массив - Массив строк имен объектов метаданных в формате: 
//					<ИмяКлассаОбъектаМетаданного>.[ * | <ИмяОбъектаМетаданных>]. 
//					или строка с именем объекта метаданных 
//	НаименованиеОбработки - строка - Наименование обработки, которым будет заполнено наименование элемента справочника по умолчанию.
//							Необязательно, по умолчанию синоним или представление объекта
//	Информация  - строка - Краткая информация или описание обработки.
//							Необязательно, по умолчанию комментарий объекта
//	Версия - строка - Версия обработки в формате “<старший номер>.<младший номер>” используется при загрузке обработок в информационную базу.
//
//
// Возвращаемое значение:
//		Структура
//
Функция ПолучитьПараметрыРегистрации(ОбъектыНазначенияФормы = Неопределено, НаименованиеОбработки = "", Информация = "", Версия = "1.0")


	Если ТипЗнч(ОбъектыНазначенияФормы) = Тип("Строка") Тогда
		ОбъектНазначенияФормы = ОбъектыНазначенияФормы;
		ОбъектыНазначенияФормы = Новый Массив;
		ОбъектыНазначенияФормы.Добавить(ОбъектНазначенияФормы);
	КонецЕсли; 
	
	ПараметрыРегистрации = Новый Структура;
	ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма");
	ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
	ПараметрыРегистрации.Вставить("Назначение", ОбъектыНазначенияФормы);
	
	Если Не ЗначениеЗаполнено(НаименованиеОбработки) Тогда
		НаименованиеОбработки = ЭтотОбъект.Метаданные().Представление();
	КонецЕсли; 
	ПараметрыРегистрации.Вставить("Наименование", НаименованиеОбработки);
	
	Если Не ЗначениеЗаполнено(Информация) Тогда
		Информация = ЭтотОбъект.Метаданные().Комментарий;
	КонецЕсли; 
	ПараметрыРегистрации.Вставить("Информация", Информация);
	
	ПараметрыРегистрации.Вставить("Версия", Версия);


	Возврат ПараметрыРегистрации;


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


// Формирует таблицу значений с командами печати
//	
// Возвращаемое значение:
//		ТаблицаЗначений
//
Функция ПолучитьТаблицуКоманд()


	Команды = Новый ТаблицаЗначений;
	
	//Представление команды в пользовательском интерфейсе
	Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
	
	//Уникальный идентификатор команды или имя макета печати
	Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
	
	//Способ вызова команды: "ОткрытиеФормы", "ВызовКлиентскогоМетода", "ВызовСерверногоМетода"
	// "ОткрытиеФормы" - применяется только для отчетов и дополнительных отчетов
	// "ВызовКлиентскогоМетода" - вызов процедуры Печать(), определённой в модуле формы обработки
	// "ВызовСерверногоМетода" - вызов процедуры Печать(), определённой в модуле объекта обработки
	Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
	
	//Показывать оповещение.
	//Если Истина, требуется показать оповещение при начале и при завершении работы обработки. 
	//Имеет смысл только при запуске обработки без открытия формы
	Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
	
	//Дополнительный модификатор команды. 
	//Используется для дополнительных обработок печатных форм на основе табличных макетов.
	//Для таких команд должен содержать строку ПечатьMXL
	Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));


	Возврат Команды; 
КонецФункции


// Вспомогательная процедура.
//
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование = "ВызовСерверногоМетода", ПоказыватьОповещение = Ложь, Модификатор = "ПечатьMXL")
	НоваяКоманда = ТаблицаКоманд.Добавить();
	НоваяКоманда.Представление = Представление;
	НоваяКоманда.Идентификатор = Идентификатор;
	НоваяКоманда.Использование = Использование;
	НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
	НоваяКоманда.Модификатор = Модификатор;      
КонецПроцедуры

#КонецОбласти   

 &НаСервере
Процедура СоздатьПереченьОтчетов()


 Для Каждого Макет Из РеквизитФормыВЗначение("Отчет").Метаданные().Макеты Цикл
  Элементы.МакетОтчета.СписокВыбора.Добавить(Макет.Имя, Макет.Синоним);
 КонецЦикла;


КонецПроцедуры // СоздатьПереченьОтчетов()


&НаСервере
Процедура ОбработатьВыборМакета()


 Макет = РеквизитФормыВЗначение("Отчет").ПолучитьМакет(МакетОтчета);
 
 мУдалить = ?(ПустаяСтрока(РеквизитыКУдалению), Новый Массив, ПолучитьИзВременногоХранилища(РеквизитыКУдалению));
 мДобавить = Новый Массив;
 кУдалению = Новый Массив;
 
 Для Каждого Вариант Из Макет.ВариантыНастроек Цикл
  ИмяРеквизита = "ТабДок_" + Вариант.Имя;
  тРеквизит = Новый РеквизитФормы(ИмяРеквизита, Новый ОписаниеТипов("ТабличныйДокумент"));
  мДобавить.Добавить(тРеквизит);
  кУдалению.Добавить(ИмяРеквизита);
 КонецЦикла;
 
 ИзменитьРеквизиты(мДобавить, мУдалить);
 
 Пока Элементы.СтраницыОтчета.ПодчиненныеЭлементы.Количество() Цикл
  Элементы.Удалить(Элементы.СтраницыОтчета.ПодчиненныеЭлементы[0]);
 КонецЦикла;
 
 Для Каждого Вариант Из Макет.ВариантыНастроек Цикл
  
  Страница = Элементы.Добавить("Страница_" + Вариант.Имя, Тип("ГруппаФормы"), Элементы.СтраницыОтчета);
  Страница.Вид = ВидГруппыФормы.Страница;
  Страница.Заголовок = Вариант.Представление;
  
  ИмяРеквизита = "ТабДок_" + Вариант.Имя;
  ТабДок = Элементы.Добавить(ИмяРеквизита, Тип("ПолеФормы"), Страница);
  ТабДок.Вид = ВидПоляФормы.ПолеТабличногоДокумента;
  ТабДок.ПутьКДанным = ИмяРеквизита;
  ТабДок.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
  
  ЭтаФорма[ИмяРеквизита].Очистить();


 КонецЦикла;
 
 РеквизитыКУдалению = ПоместитьВоВременноеХранилище(кУдалению, УникальныйИдентификатор);


КонецПроцедуры // ОбработатьВыборМакета()


&НаСервере
Процедура СформироватьОтчеты()


 Схема = РеквизитФормыВЗначение("Отчет").ПолучитьМакет(МакетОтчета);
 
 Для Каждого Вариант Из Схема.ВариантыНастроек Цикл
  
  Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(Вариант.Настройки);
     
     КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
     Макет = КомпоновщикМакета.Выполнить(Схема, Отчет.КомпоновщикНастроек.ПолучитьНастройки());
     
     ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
     ПроцессорКомпоновки.Инициализировать(Макет);
     
     ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
     ПроцессорВывода.УстановитьДокумент(ЭтаФорма["ТабДок_" + Вариант.Имя]);
     ПроцессорВывода.Вывести(ПроцессорКомпоновки); 
  
 КонецЦикла;


КонецПроцедуры // СформироватьОтчеты()


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 
 СоздатьПереченьОтчетов();
 
КонецПроцедуры


&НаКлиенте
Процедура МакетОтчетаПриИзменении(Элемент)
 
 ОбработатьВыборМакета();
 
КонецПроцедуры


&НаКлиенте
Процедура Сформировать(Команда)
 
 СформироватьОтчеты();
 
КонецПроцедуры   

 //Пример получения текста ячейки
ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R1C2").Текст = спрНоменклатура.Наименование;
ПолеТабДок.Область("R2C2").Текст = "Это Строка"; //указываем явно литерал строки
   

 // Изменение текста в области или ячейке

Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл
		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 
		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 
		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда
			ТабличныйДокумент.Область("R"+а+"C7").Текст="";
			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	
			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		
			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		
			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 	
			
		КонецЕсли;
		
	КонецЦикла;
   

 // Как раскрасить ячейку или область табличного документа в зависимости от условия
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента; // Получаем табличный документ из формы 
ТабДок.Очистить(); // Очищаем табличный документ 
Макет = ПолучитьМакет("Макет"); // Получаем макет с именем "Макет" из текущего объекта 
ОбластьСтрокаТаб = Макет.ПолучитьОбласть("СтрокаТаб"); // Получаем область из макета 
ОбластьСтрокаТаб.Параметры.НашПараметр = 1; // Устанавливаем значение 1 параметру "НашПараметр" 
ОбластьОформления = ТабДок.Вывести(ОбластьСтрокаТаб); 
// Вот собственно и само оформление ячейки 
ТабДок.Область(ОбластьОформления.Верх, ОбластьОформления.Лево, ОбластьОформления.Низ, ОбластьОформления.Лево).ЦветФона = WebЦвета.Красный;
   

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

        Таб.ВывестиСекцию("Контрагент");

        // Изменим Текст ячейки, имя которой заранее задали как "ТекстОСостоянии"

        Таб.Область("ТекстОСостоянии").Текст = "Хорошо ";

        // В зависимости от условия изменим Цвет Текста

        Если Раз<0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(255,0,0); 

           ИначеЕсли Раз>0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(0,0,255);

       КонецЕсли;   

 МассивБулево = Новый Массив; 
МассивБулево.Добавить(Тип("Булево"));
ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);
//...
ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R3C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение
ПолеТабДок.Область("R3C3").ТипЗначения = ОписаниеТиповБулево; //указываем тип значения
ПолеТабДок.Область("R3C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника   

 ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R4C3").ТипЗначения = ОписаниеТиповДата; //указываем тип, ранее заданный для Даты
ПолеТабДок.Область("R4C3").Значение = ТекущаяДата();
//указываем форматную строку 
//будет выглядеть как "[031120-2315]-", если текущая дата '20-11-2003 23:15:00') 
ПолеТабДок.Область("R4C3").Формат = "ДФ=[ггММдд-ЧЧмм]-";   

 МассивБулево = Новый Массив; 
МассивБулево.Добавить(Тип("Булево"));
ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);
...
ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 
ПолеТабДок.Область("R5C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение
ПолеТабДок.Область("R5C3").ТипЗначения = ОписаниеТиповБулево; //указываем ранее заданный тип
ПолеТабДок.Область("R5C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника
//а теперь указываем, что в ячейке будет отображаться флажок
ПолеТабДок.Область("R5C3").УстановитьЭлементУправления(Тип("Флажок"));   

  ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента;
ПолеТабДок.Область("R4C3").Защита = Истина;
   

 Функция ПолучитьТаблицуДанных(Строка)
	
	тзДанных = Новый ТаблицаЗначений;
	Сервер = "site.ru";
	
	Соединение = Новый HTTPСоединение(Сервер);			
	Заголовки = Новый Соответствие;
	Заголовки.Вставить("host", Сервер);
	ТекАдрес = СтрЗаменить(Строка.Наименование.УРЛСтраницы,"http://","");
	ТекАдрес = СтрЗаменить(ТекАдрес,Сервер,"");
	Запрос = Новый HTTPЗапрос(ТекАдрес, Заголовки);
	Ответ =Соединение.Получить(Запрос);
	Если Ответ.КодСостояния = 200 Тогда // Данные получены, обрабатываем их
		Содержимое= Ответ.ПолучитьТелоКакСтроку();
		//Выведем тест полученной страницы
		НачалоБлока = "<table id=" + """" + "table-price" + """" + " cellspacing=" + """" + "0" + """" + " border=" + """" + "1" + """" + " bordercolor=" + """" + "#dedede" + """" + " class=" + """" + "tablesorter" + """" + " >";
		//НачалоБлока = "<div class=" + """" + "w100fl" + """" + " id=" + """" + "kurs" + """" + ">";
		КонецБлока = "</table>";
		ТекстБлока = Сред(Содержимое, Найти(Содержимое, НачалоБлока) + СтрДлина(НачалоБлока), Найти(Содержимое, КонецБлока) - Найти(Содержимое, НачалоБлока) - СтрДлина(НачалоБлока));
		    				
		//Обработаем тест  				
		обрТекст = СтрЗаменить(ТекстБлока,"<tr>","");
		обрТекст = СтрЗаменить(обрТекст,"</tr>",Символы.ПС);
		обрТекст = СтрЗаменить(обрТекст," >", ">");
		обрТекст = СтрЗаменить(обрТекст,"</th> <th>", " | ");
		обрТекст = СтрЗаменить(обрТекст,"</td> <td>", " | ");
	   	обрТекст = СтрЗаменить(обрТекст,"</th> <th class=" + """" + "sortable_header" + """" + ">", " | ");
		обрТекст = СтрЗаменить(обрТекст,"</th> <th >", " | ");
		обрТекст = СтрЗаменить(обрТекст,"</th><th>", " | ");
		обрТекст = СтрЗаменить(обрТекст,"</td><td>", " | ");
		обрТекст = СтрЗаменить(обрТекст," >", ">");
		RegExp = Новый COMОбъект("VBScript.RegExp");
		RegExp.IgnoreCase = Ложь; 
		RegExp.Global = Истина;    
		RegExp.MultiLine = Истина;    
		
		RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML   
		обрТекст=RegExp.Replace(обрТекст, "");
		//Сообщить(обрТекст);
		
		Если СокрЛП(обрТекст) = "Ни одной позиции не найдено." Тогда
			Сообщить(Строка(Строка.Наименование)+ " = Ни одной позиции не найдено! Строка " + Строка.Наименование);
			Возврат тзДанных;
		КонецЕсли;


		Если Найти(обрТекст, "Страница не найдена") > 0 Тогда
			Сообщить(Строка(ТекАдрес)+" = Страница не найдена, строка " + Строка.Наименование);
			Возврат тзДанных;  
		КонецЕсли;
		
		//Преобразуем полученный текст в таблицу
		Для н=1 По СтрЧислоСтрок(обрТекст)Цикл
			СтрТекста=СтрПолучитьСтроку(обрТекст,н);
			Если Найти(СтрТекста, "Длина Цена") > 0 Тогда
				СтрТекста = СтрЗаменить(СтрТекста, "Длина Цена", "Длина | Цена");
			КонецЕсли;
			Если Найти(СтрТекста, "Марка стали Цена") > 0 Тогда
				СтрТекста = СтрЗаменить(СтрТекста, "Марка стали Цена", "Марка стали | Цена");
			КонецЕсли;
			Если Найти(СтрТекста, ",  Поставщик") > 0 Тогда
				СтрТекста = СтрЗаменить(СтрТекста, ",  Поставщик", " | Поставщик");
			КонецЕсли;
			//Выводим текст страницы построчно
			мсДанных = ПолучитьМассивИзСтрокиСРазделителем(СтрТекста, "|", Истина);
			Если н=1 Тогда
				Для Каждого ткЗнач из мсДанных Цикл
					СтрЗапрещСимволов = " .,<>""\/-";
					ИмяКолонки = ткЗнач;
					Для сч33 = 1 по СтрДлина(СтрЗапрещСимволов) Цикл
						ЗапрещСимв = Сред(СтрЗапрещСимволов, сч33, 1);
						ИмяКолонки = СтрЗаменить(ИмяКолонки, ЗапрещСимв, "_");
					КонецЦикла;
					
					// добавим нужное количество колонок- если перед колонкой Поставщик не хватает
					// бывает, что в шапке определяется меньше колонок, чем реально в таблице
					Если НРег(ИмяКолонки) = "поставщик" Тогда
						Для Сч_дк = (Строка.Наименование.Родитель.Поставшик - 2) по тзДанных.Колонки.Количество() Цикл
							тзДанных.Колонки.Добавить("Колонка_" + (тзДанных.Колонки.Количество() + 1));
						КонецЦикла;
					КонецЕсли;
					
					тзДанных.Колонки.Добавить(ИмяКолонки);
				КонецЦикла;
				тзДанных.Колонки.Добавить("ном", , , 7);
			Иначе 
				НовСтр = тзДанных.Добавить(); нмас=0;
				Для Каждого ткЗнач из мсДанных Цикл
					НовСтр[нмас] = ткЗнач;
					нмас=нмас+1;
				КонецЦикла;
				НовСтр.ном = н;
			КонецЕсли;
			//Сообщить(стр);
		КонецЦикла;
		тзДанных.Колонки.Добавить("ЕстьСоответствие", Новый ОписаниеТипов("Булево"));
		тзДанных.Колонки.Добавить("СпрPr_Поставщики", Новый ОписаниеТипов("СправочникСсылка.Pr_Поставщики"));
		
		Для каждого стр из тзДанных Цикл
			текПоставщик = Справочники.Pr_Поставщики.НайтиПоНаименованию(стр[Строка.Наименование.родитель.Поставшик-1]);
			Если текПоставщик = Справочники.Pr_Поставщики.ПустаяСсылка() Тогда
				НовЭлем = Справочники.Pr_Поставщики.СоздатьЭлемент();
				НовЭлем.Наименование = СокрЛП(стр[Строка.Наименование.родитель.Поставшик-1]);
				НовЭлем.Записать();
				текПоставщик = НовЭлем.Ссылка;
			КонецЕсли;
			стр.СпрPr_Поставщики = текПоставщик;
		КонецЦикла;
	Иначе
		тзДанных.Колонки.Добавить("ЕстьСоответствие", Новый ОписаниеТипов("Булево"));
		тзДанных.Колонки.Добавить("СпрPr_Поставщики", Новый ОписаниеТипов("СправочникСсылка.Pr_Поставщики"));
		
		Сообщить("Ошибка получения данных для строки " + Строка.Наименование);
	КонецЕсли;
	
	Возврат тзДанных;
	
КонецФункции   

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


	Возврат МассивСтрок;
		
КонецФункции // ПолучитьМассивИзСтрокиСРазделителем()   

 Соединение = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");
ИмяВременногоФайла=ПолучитьИмяВременногоФайла("htm");

Соединение.open("GET", "http://mamba.ru/my", 0);
Соединение.send();

//status: //404 - Not Found //200 - Ok
ТаймАут = 200;
Начало=ТекущаяДата();
Пока Соединение.readyState <> 4 И (ТаймАут=0 ИЛИ ТекущаяДата()-Начало<ТаймАут) Цикл
бфДиалоги.ксОбработкаПрерыванияПользователя();
КонецЦикла;

//Сохраняем во временный файл
обСохранитьДвоичныйБуферВФайл(Соединение.responseBody, ИмяВременногоФайла);

Соединение.open("POST", "http://mamba.ru/my");
Соединение.send("login=xxx&password=&&&");


Функция обСохранитьДвоичныйБуферВФайл(Буфер, ИмяФайла) Экспорт
    Поток = Новый COMОбъект("ADODB.Stream");
    Поток.Type = 1;  //Бинарный
       Поток.Mode = 3; 
    Поток.Open();
    Поток.Write(Буфер);
    Поток.SaveToFile(ИмяФайла);
    Поток.Close();
КонецФункции   

     НТТР = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");
    ИмяФайлаОтвета = КаталогВременныхФайлов() + "filename.tmp";           
    НТТР.open("GET", "www.google.com",0,,); 
    НТТР.send();
    StreamTypeEnum = Новый Структура("adTypeBinary, adTypeText", 1, 2);
    ConnectModeEnum = Новый Структура(
            "adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,
            |adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive, 
            |adModeUnknown, adModeWrite", 1, 3, 4194304, 16, 4, 8, 12, 0, 2);
    SaveOptionsEnum = Новый Структура("adSaveCreateNotExist, adSaveCreateOverWrite", 1, 2);
    StreamOut = Новый COMОбъект("ADODB.Stream");
    StreamOut.Type = StreamTypeEnum.adTypeBinary;
    StreamOut.Mode = ConnectModeEnum.adModeReadWrite; //Нужны и чтение и запись   
    StreamOut.Open(); //Открыли на чтение и запись
    StreamOut.Write(НТТР.responseBody); 
    StreamOut.SaveToFile(ИмяФайлаОтвета, SaveOptionsEnum.adSaveCreateOverWrite); //"2" - перезапись файла
    StreamOut.Close();   

 &НаКлиенте
Процедура КомандаТаблицуВДерево(Команда)
	КомандаТаблицуВДеревоНаСервере();
КонецПроцедуры


&НаСервере
Процедура КомандаТаблицуВДеревоНаСервере()
	Дерево = ТаблицаВДерево(РеквизитФормыВЗначение("Объект"), "Товары");//Товары - имя табличной части
	ЗначениеВРеквизитФормы(Дерево, "ДеревоЗначений");//ДеревоЗначений - реквизит формы с типом дерево значений
	Элементы.ДеревоЗначений.Обновить();
КонецПроцедуры


&НаКлиенте
Процедура КомандаДеревоВТаблицу(Команда)
	КомандаДеревоВТаблицуНаСервере();
КонецПроцедуры


&НаСервере
Процедура КомандаДеревоВТаблицуНаСервере()
	Объект.Товары.Очистить();
	ДОбъект = РеквизитФормыВЗначение("Объект");
	ДеревоВТаблицу(ДОбъект, РеквизитФормыВЗначение("ДеревоЗначений"), "Товары");
	ЗначениеВРеквизитФормы(ДОбъект, "Объект");
КонецПроцедуры   

 //ФОРМИРОВАНИЕ ДЕРЕВА ИЗ ТАБЛИЦЫ
&НаСервере
Функция ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, КлючСвязи = NULL, ЭлементРодитель = NULL) Экспорт	
	//ПОДГОТОВКА КОЛОНОК ДЕРЕВА
	КолонкиТаблицы = ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты;
	ДеревоЗначений2 = Новый ДеревоЗначений;
	Для каждого Кол из КолонкиТаблицы Цикл
		Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда
			Продолжить;
		Иначе
			ДеревоЗначений2.Колонки.Добавить(Кол.Имя, Новый ОписаниеТипов(Кол.Тип));
		КонецЕсли;
	КонецЦикла;//ДеревоЗначений.Строки.Очистить();
	
	Если КлючСвязи = NULL И ЭлементРодитель = NULL Тогда
		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)
		ИсточникВыборки = ДеревоЗначений2.Строки;
		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)
	Иначе
		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)
		ИсточникВыборки = ЭлементРодитель.Строки;
	КонецЕсли;
	Фильтр = Новый Структура("КлючСвязи", КлючСвязи);
	М = ДокОбъект[НаименованиеТабличнойЧастиДокумента].НайтиСтроки(Фильтр);
	Если М.Количество() = 0 Тогда
		Возврат ДеревоЗначений2;
	КонецЕсли;
	Для каждого Стр из М Цикл
		Элемент = ИсточникВыборки.Добавить();
		Для каждого Кол из КолонкиТаблицы Цикл
			Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда
				Продолжить;
			Иначе
				Элемент[Кол.Имя] = Стр[Кол.Имя];
			КонецЕсли;
		КонецЦикла;
		ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, Стр.НомерСтроки, Элемент); //ДОБАВЛЕНИЕ ПОДЧИНЁННЫХ ЭЛЕМЕНТОВ В ДЕРЕВО
	КонецЦикла;
	Возврат ДеревоЗначений2;
КонецФункции
   

 //ФОРМИРОВАНИЕ ТАБЛИЦЫ ИЗ ДЕРЕВА
&НаСервере
Процедура ДеревоВТаблицу(ДокОбъект, ДеревоЗначений, НаименованиеТабличнойЧастиДокумента, СтрокаДерева = NULL, КлючСвязи = NULL) Экспорт
	Если СтрокаДерева = NULL И КлючСвязи = NULL Тогда
		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)
		ПервыйВызов = Истина;
		ДокОбъект[НаименованиеТабличнойЧастиДокумента].Очистить();
		ИсточникВыборки = ДеревоЗначений.Строки;
		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)
	Иначе
		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)
		ПервыйВызов = Ложь;
		ИсточникВыборки = СтрокаДерева.Строки;
	КонецЕсли;
	Для каждого Стр из ИсточникВыборки Цикл
		НС = ДокОбъект[НаименованиеТабличнойЧастиДокумента].Добавить();
		Для каждого Кол из ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты Цикл
			Если Кол.Имя = "КлючСвязи" Тогда
				НС.КлючСвязи = КлючСвязи
			ИначеЕсли Кол.Имя = "НомерСтроки" Тогда
				Продолжить;
			Иначе 
				НС[Кол.Имя] = Стр[Кол.Имя];
			КонецЕсли;
		КонецЦикла;
		Если НЕ Стр.Строки.Количество() = 0 Тогда
			ДеревоВТаблицу(ДокОбъект,,НаименованиеТабличнойЧастиДокумента, Стр, НС.НомерСтроки);
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры 
   

 &НаСервере
Процедура ИзменитьНаСервере(ИмяРеквизита)
// проверяем нужно ли создавать новый реквизит
Если Элементы.Найти(ИмяРеквизита) = Неопределено Тогда
МассивРеквизитов = Новый Массив;
// добавляем реквизиты
МассивРеквизитов.Добавить(Новый РеквизитФормы(ИмяРеквизита, Новый ОписаниеТипов("ДинамическийСписок"),,"Поле таблицы"));
// изменяем реквизиты формы
ЭтаФорма.ИзменитьРеквизиты(МассивРеквизитов);
// устанавлиеваем основную таблицу
ЭтаФорма[ИмяРеквизита].ОсновнаяТаблица = "РегистрСведений." + ИмяРеквизита;
// добавляем динамический список на форму
Элемент = Элементы.Добавить(ИмяРеквизита, Тип("ТаблицаФормы"), ЭтаФорма);
Элемент.ПутьКДанным = ИмяРеквизита;
Элемент.Видимость = Истина;
//добавляем колонки динамического списка
КолонкаКод = Элементы.Добавить("Код" + ИмяРеквизита, Тип("ПолеФормы"), Элементы[ИмяРеквизита]);
КолонкаКод.Вид = ВидПоляФормы.ПолеВвода;
КолонкаКод.ПутьКДанным = ИмяРеквизита + ".Код";
КолонкаНаименование = Элементы.Добавить("Наименование" + ИмяРеквизита, Тип("ПолеФормы"), Элементы[ИмяРеквизита]);
КолонкаНаименование.Вид = ВидПоляФормы.ПолеВвода;
КолонкаНаименование.ПутьКДанным = ИмяРеквизита + ".Наименование";
КонецЕсли;
// если реквизит создан ранее меняем его видимость на форме
Если ТекущийСписок <> ИмяРеквизита Тогда
// при первом выполнении, реквизита нет
Если НЕ ПустаяСтрока(ТекущийСписок) Тогда
Элементы[ТекущийСписок].Видимость = Ложь;
конецЕсли;
Элементы[ИмяРеквизита].Видимость = Истина;
// промежуточная переменная, для определения текущего списка
ТекущийСписок = ИмяРеквизита;
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура АдресныеСокращения(Команда)
ИзменитьНаСервере("АдресныеСокращения");
КонецПроцедуры

&НаКлиенте
Процедура АдресныйКлассификатор(Команда)
ИзменитьНаСервере("АдресныйКлассификатор");
КонецПроцедуры

   

 &НаСервере
Процедура ДобавитьНаСервере()
 
ДобавляемыеРеквизиты = Новый Массив;    
    Реквизит1 = Новый РеквизитФормы("Таб", Новый ОписаниеТипов("ТаблицаЗначений"), , "Таблица", Истина);
    ДобавляемыеРеквизиты.Добавить(Реквизит1); 
    ИзменитьРеквизиты(ДобавляемыеРеквизиты);
    
    ДобавляемыеРеквизиты = Новый Массив;    
    Реквизит2 = Новый РеквизитФормы("Кол", Новый ОписаниеТипов("Строка"),"Таб" , "Колонка", Истина);
    ДобавляемыеРеквизиты.Добавить(Реквизит2); 
    ИзменитьРеквизиты(ДобавляемыеРеквизиты);
    ТаблицаФормы = ЭтаФорма.Элементы.Добавить("Таблица", Тип("ТаблицаФормы"), ЭтаФорма);    
    ТаблицаФормы.ПутьКДанным = "Таб";       
    
    Колонка = ЭтаФорма.Элементы.Добавить("Колонка", Тип("ПолеФормы"), ТаблицаФормы);    
    Колонка.ПутьКДанным = "Таб.Кол";       
    
КонецПроцедуры   

 	 //Добавим кнопки и команды
	//Команды
	Кмд = ЭтаФорма.Команды.Добавить("Выгрузить");
	Кмд.Действие = "Выгрузить";
	Кмд.Заголовок = "Выгрузить в файл";
	
	КмдЗ = ЭтаФорма.Команды.Добавить("Загрузить");
	КмдЗ.Действие = "Загрузить";
	КмдЗ.Заголовок = "Загрузить из файла";
	
	КмдЗ = ЭтаФорма.Команды.Добавить("ЗаписатьВДокумент");
	КмдЗ.Действие = "ЗаписатьВДокумент";
	КмдЗ.Заголовок = "Записать в документ";

 	//Добавляем новую кнопку
    Горизонт = ЭтаФорма.Элементы.Добавить("Горизонт", Тип("ГруппаФормы"), ЭтаФорма);
    Горизонт.Вид = ВидГруппыФормы.ОбычнаяГруппа;
 
   // Элемент2.ИмяКоманды = "Выгрузить";

    
    //Добавляем новую кнопку
    Элемент2 = ЭтаФорма.Элементы.Добавить("Выгрузить", Тип("КнопкаФормы"), Горизонт);
    Элемент2.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 
    Элемент2.ИмяКоманды = "Выгрузить";
    
    //Добавляем новую кнопку
    Элемент = ЭтаФорма.Элементы.Добавить("Загрузить", Тип("КнопкаФормы"), ЭтаФорма);
    Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 
    Элемент.ИмяКоманды = "Загрузить";
    
    //Добавляем новую кнопку
    Элемент = ЭтаФорма.Элементы.Добавить("ЗаписатьВДокумент", Тип("КнопкаФормы"), ЭтаФорма);
    Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 
    Элемент.ИмяКоманды = "ЗаписатьВДокумент";

	       	
	ТаблицаФормы 				= Элементы.Добавить("ф__ТЗ", Тип("ТаблицаФормы"));
	ТаблицаФормы.ПутьКДанным 	= "ТЗ";
   

  // Автор: Alexander Speshilov
// Рекрсивная функция, которая разворачивает строку вида "Метаданные.Справочники.*[Имя].Реквизиты.*.Тип" 
// в массив строк, заменяя "*" или другой символ, задаваемый параметрами обходом всех элементов 
// коллекции. Допускает выполнение функций встроенного языка (не стоит отдавать ввод параметров 
// пользователям). При этом выражение, используемое для получения по умолчанию может быть задано в 
// квадратных скобках или параметром функции.
//
// Параметры
//  СтрокаОбхода  - Строка - Разворачиваемая строка
//  ЗаменяемоеЗначение  - Строка - заменяемое значение
//  ПредставлениеПоУмолчанию - Строка - выражение для получения представления
//
// Возвращаемое значение:
//   Массив строк
//
Функция РазвернутьСтрокуОбходаМетаданных(СтрокаОбхода, ЗаменяемоеЗначение = "*", ПредставлениеПоУмолчанию = "")
    
    Рез = Новый Массив;
    
    ЧастиСтрокиОбхода = РазобратьСтрокуОбхода(СтрокаОбхода, ЗаменяемоеЗначение, ПредставлениеПоУмолчанию);
    Если ЧастиСтрокиОбхода = Неопределено тогда 
        Рез.Добавить(СтрокаОбхода); //фактически это ограничение рекурсии.
    Иначе
        ОбъектКоллекции = Вычислить(ЧастиСтрокиОбхода.СтрокаКоллекции);
        РазвернутаяКоллекция = РазвернутьКоллекциюВПредставления(ОбъектКоллекции, ЧастиСтрокиОбхода.СтрокаПредставление);
        Для каждого ЭлементРазвернутойКоллекции Из РазвернутаяКоллекция Цикл
            
            // рекурсивный вызов
            ТекущаяСтрокаОбхода = ЧастиСтрокиОбхода.СтрокаНачало + ЭлементРазвернутойКоллекции + ЧастиСтрокиОбхода.СтрокаКонец;
            МассивЭлемента = РазвернутьСтрокуОбходаМетаданных(ТекущаяСтрокаОбхода, ЗаменяемоеЗначение, ПредставлениеПоУмолчанию);
            
            Для каждого ПримитивныйЭлементОбхода Из МассивЭлемента Цикл
                Рез.Добавить(ПримитивныйЭлементОбхода);
            КонецЦикла;
            
        КонецЦикла;
    КонецЕсли;
    
    Возврат Рез;
    
КонецФункции // РазвернутьСтрокуОбходаМетаданных()

// Разбирает строку обхода на удобные для работы поля
//
// Параметры
//  СтрокаОбхода  - Строка - Разворачиваемая строка
//  ЗаменяемоеЗначение  - Строка - заменяемое значение
//  ПредставлениеПоУмолчанию - Строка - выражение для получения представления
//
// Возвращаемое значение:
//   Структура с полями ПозицияЗамены, СтрокаНачало, СтрокаКоллекции, СтрокаПредставление, СтрокаКонец
// или Неопределено (если строка не содержит ЗаменяемоеЗначение)
//
Функция РазобратьСтрокуОбхода(СтрокаОбхода, ЗаменяемоеЗначение, ПредставлениеПоУмолчанию)
    
    Если ПустаяСтрока(ЗаменяемоеЗначение) Тогда 
        ВызватьИсключение "Некорректное выражение заменяемого значения";
    КонецЕсли;
    
    ПозицияЗамены = Найти(СтрокаОбхода, ЗаменяемоеЗначение);
    
    // Если не найдена строка - возвращаем неопределено, как индикатор
    Если ПозицияЗамены = 0 Тогда 
        Возврат Неопределено; 
    КонецЕсли;
    
    СтрокаНачало = Лев(СтрокаОбхода,ПозицияЗамены - 1);
    
    //Получение строки для выражения-коллекции
    СтрокаКоллекции = СтрокаНачало;
    Если Прав(СтрокаКоллекции, 1) = "." Тогда 
        СтрокаКоллекции = Лев(СтрокаКоллекции,СтрДлина(СтрокаКоллекции) - 1);
    КонецЕсли;
    
    ПозицияОкончанияЗамены = ПозицияЗамены + СтрДлина(ЗаменяемоеЗначение);
    
    ОстатокВыражения = Сред(СтрокаОбхода, ПозицияОкончанияЗамены);
    
    //Обработка явного задания представления
    ОткрывающаяСкобка = "[";
    ЗакрывающаяСкобка = "]";
    Если Найти(ОстатокВыражения, ОткрывающаяСкобка) = 1 Тогда
        ОстатокВыражения = Сред(ОстатокВыражения, СтрДлина(ОткрывающаяСкобка) + 1);
        ПозицияЗакрывающейСкобки = Найти(ОстатокВыражения, ЗакрывающаяСкобка);
        Если ПозицияЗакрывающейСкобки = 0 Тогда 
            ВызватьИсключение "Синтаксическая ошибка разбора выражения";
        КонецЕсли;
        СтрокаПредставление = Лев(ОстатокВыражения, ПозицияЗакрывающейСкобки - 1);
        ОстатокВыражения = Сред(ОстатокВыражения, ПозицияЗакрывающейСкобки + СтрДлина(ЗакрывающаяСкобка));
    Иначе
        СтрокаПредставление = ПредставлениеПоУмолчанию;
    КонецЕсли;
    СтрокаКонец = ОстатокВыражения;
    
    Рез = Новый Структура("ПозицияЗамены, СтрокаНачало, СтрокаКоллекции, СтрокаПредставление, СтрокаКонец",
    ПозицияЗамены, СтрокаНачало, СтрокаКоллекции, СтрокаПредставление, СтрокаКонец);
    
    Возврат Рез;
    
КонецФункции // РазобратьСтрокуОбхода()

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

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

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

// Возвращает все реквизиты конфигурации, которые сохраняются в ИБ
//
// Параметры - Нет
//
// Возвращаемое значение:
//   Массив объектов метаданных
//
Функция ПолучитьВсеХранимыеРеквизитыКонфигурации() Экспорт
    
    СтрокаВсехРеквизитов = 
    "
    |Метаданные.Константы.*
    |Метаданные.ПланыОбмена.*.Реквизиты.*
    |Метаданные.ПланыОбмена.*.ТабличныеЧасти.*.Реквизиты.*
    |Метаданные.Справочники.*.Реквизиты.*
    |Метаданные.Справочники.*.ТабличныеЧасти.*.Реквизиты.*
    |Метаданные.Документы.*.Реквизиты.*
    |Метаданные.Документы.*.ТабличныеЧасти.*.Реквизиты.*
    |Метаданные.Последовательности.*.Измерения.*
    |Метаданные.ПланыВидовХарактеристик.*.Реквизиты.*
    |Метаданные.ПланыВидовХарактеристик.*.ТабличныеЧасти.*.Реквизиты.*
    |Метаданные.ПланыСчетов.*.Реквизиты.*
    |Метаданные.ПланыСчетов.*.ПризнакиУчета.*
    |Метаданные.ПланыСчетов.*.ПризнакиУчетаСубконто.*
    |Метаданные.ПланыСчетов.*.ТабличныеЧасти.*.Реквизиты.*
    |Метаданные.ПланыВидовРасчета.*.Реквизиты.*
    |Метаданные.ПланыВидовРасчета.*.ТабличныеЧасти.*.Реквизиты.*
    |Метаданные.РегистрыСведений.*.Измерения.*
    |Метаданные.РегистрыСведений.*.Ресурсы.*
    |Метаданные.РегистрыСведений.*.Реквизиты.*
    |Метаданные.РегистрыНакопления.*.Измерения.*
    |Метаданные.РегистрыНакопления.*.Ресурсы.*
    |Метаданные.РегистрыНакопления.*.Реквизиты.*
    |Метаданные.РегистрыБухгалтерии.*.Измерения.*
    |Метаданные.РегистрыБухгалтерии.*.Ресурсы.*
    |Метаданные.РегистрыБухгалтерии.*.Реквизиты.*
    |Метаданные.РегистрыРасчета.*.Измерения.*
    |Метаданные.РегистрыРасчета.*.Ресурсы.*
    |Метаданные.РегистрыРасчета.*.Реквизиты.*
    |Метаданные.БизнесПроцессы.*.Реквизиты.*
    |Метаданные.БизнесПроцессы.*.ТабличныеЧасти.*.Реквизиты.*
    |Метаданные.Задачи.*.Реквизиты.*
    |Метаданные.Задачи.*.РеквизитыАдресации.*
    |Метаданные.Задачи.*.ТабличныеЧасти.*.Реквизиты.*
    |";
    ВсеХранимыеРеквизитыКонфигурации = РазвернутьМассивСтрокОбходаМетаданных(ПолучитьМассивСтрокМногострочнойСтроки(СтрокаВсехРеквизитов));
    Возврат ВсеХранимыеРеквизитыКонфигурации;
    
КонецФункции // ПолучитьВсеХранимыеРеквизитыКонфигурации()

// Возвращает все реквизиты конфигурации составного типа, которые сохраняются в ИБ
//
// Параметры - Нет
//
// Возвращаемое значение:
//   ТаблицаЗначений
//
Функция ПолучитьВсеХранимыеРеквизитыКонфигурацииСоставногоТипа() Экспорт
    
    ВсеХранимыеРеквизитыКонфигурации = ПолучитьВсеХранимыеРеквизитыКонфигурации();
    Рез = Новый ТаблицаЗначений;
    Рез.Колонки.Добавить("Имя", Новый ОписаниеТипов("Строка"));
    Рез.Колонки.Добавить("Тип", Новый ОписаниеТипов("ОписаниеТипов"));
    Рез.Колонки.Добавить("КоличествоПростыхТипов", Новый ОписаниеТипов("Число"));
    
    Для каждого ТекРеквизит Из ВсеХранимыеРеквизитыКонфигурации Цикл
        
        Реквизит = Вычислить(ТекРеквизит);
        Тип = Реквизит.Тип;
        КоличествоПростыхТипов = Тип.Типы().Количество();
        Если КоличествоПростыхТипов<>1 Тогда 
    	    ТекСтрока = Рез.Добавить();
            ТекСтрока.Имя = ТекРеквизит;
            ТекСтрока.Тип = Тип;
            ТекСтрока.КоличествоПростыхТипов = КоличествоПростыхТипов;
        КонецЕсли;
    
    КонецЦикла; 
    
    Возврат Рез;
    
КонецФункции // ПолучитьВсеХранимыеРеквизитыКонфигурации()

// Возвращает все формы конфигурации
//
// Параметры - Нет
//
// Возвращаемое значение:
//   Массив объектов метаданных
//
Функция ПолучитьВсеФормыКонфигурации() Экспорт
    
    СтрокаВсехРеквизитов = 
    "
    |Метаданные.ПланыОбмена.*.Формы.*
    |Метаданные.КритерииОтбора.*.Формы.*
    |Метаданные.ОбщиеФормы.*
    |Метаданные.Справочники.*.Формы.*
    |Метаданные.Документы.*.Формы.*
    |Метаданные.ЖурналыДокументов.*.Формы.*
    |Метаданные.Перечисления.*.Формы.*
    |Метаданные.Отчеты.*.Формы.*
    |Метаданные.Обработки.*.Формы.*
    |Метаданные.ПланыВидовХарактеристик.*.Формы.*
    |Метаданные.ПланыСчетов.*.Формы.*
    |Метаданные.ПланыВидовРасчета.*.Формы.*
    |Метаданные.РегистрыСведений.*.Формы.*
    |Метаданные.РегистрыНакопления.*.Формы.*
    |Метаданные.РегистрыБухгалтерии.*.Формы.*
    |Метаданные.РегистрыРасчета.*.Формы.*
    |Метаданные.БизнесПроцессы.*.Формы.*
    |Метаданные.Задачи.*.Формы.*
    |";
    ВсеФормыКонфигурации = РазвернутьМассивСтрокОбходаМетаданных(ПолучитьМассивСтрокМногострочнойСтроки(СтрокаВсехРеквизитов));
    Возврат ВсеФормыКонфигурации;
    
КонецФункции // ПолучитьВсеФормыКонфигурации()

// Возвращает все макеты конфигурации
//
// Параметры - Нет
//
// Возвращаемое значение:
//   Массив объектов метаданных
//
Функция ПолучитьВсеМакетыКонфигурации() Экспорт
    
    СтрокаВсехРеквизитов = 
    "
    |Метаданные.ПланыОбмена.*.Макеты.*
    |Метаданные.ОбщиеМакеты.*
    |Метаданные.Справочники.*.Макеты.*
    |Метаданные.Документы.*.Макеты.*
    |Метаданные.ЖурналыДокументов.*.Макеты.*
    |Метаданные.Перечисления.*.Макеты.*
    |Метаданные.Отчеты.*.Макеты.*
    |Метаданные.Обработки.*.Макеты.*
    |Метаданные.ПланыВидовХарактеристик.*.Макеты.*
    |Метаданные.ПланыСчетов.*.Макеты.*
    |Метаданные.ПланыВидовРасчета.*.Макеты.*
    |Метаданные.РегистрыСведений.*.Макеты.*
    |Метаданные.РегистрыНакопления.*.Макеты.*
    |Метаданные.РегистрыБухгалтерии.*.Макеты.*
    |Метаданные.РегистрыРасчета.*.Макеты.*
    |Метаданные.БизнесПроцессы.*.Макеты.*
    |Метаданные.Задачи.*.Макеты.*
    |";
    ВсеМакетыКонфигурации = РазвернутьМассивСтрокОбходаМетаданных(ПолучитьМассивСтрокМногострочнойСтроки(СтрокаВсехРеквизитов));
    Возврат ВсеМакетыКонфигурации;
    
КонецФункции // ПолучитьВсеМакетыКонфигурации()