Как из txt файла загрузить данные в новый документ через внешнюю обработку.

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

&НаКлиенте
Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт

    Если ВыбранныеФайлы = Неопределено Тогда
        Возврат;
    КонецЕсли;
    
    ЭтотОбъект.ПутьКФайлу = ВыбранныеФайлы[0];  
    ПутьПриИзменении(Неопределено);
КонецПроцедуры  

&НаКлиенте
Процедура ПросмотрФайла(Команда)

    Путь = ПутьКФайлу;

    Если Не ПустаяСтрока(Путь) Тогда
        ЗапуститьПриложение(Путь);
    Иначе
        Сообщить("Файл не найден.");
    КонецЕсли;
КонецПроцедуры       

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

    Если Не Отказ Тогда
        ВыгрузитьНаСервере(ПутьКФайлу);     
    КонецЕсли; 
КонецПроцедуры

&НаКлиенте
Процедура Загрузить(Команда)
    Отказ = Ложь;	
	 Если ПустаяСтрока(ЭтотОбъект.ПутьКФайлу) Тогда
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Файл не выбран!";
        Сообщение.Поле = "ПутьКФайлу"; 
        Сообщение.Сообщить();
        Отказ = Истина;
    КонецЕсли;
	Если не Отказ Тогда
    ЗагрузкаНаСервере(ПутьКФайлу);
	КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ВыгрузитьНаСервере(ПутьКФайлу)
    Текст = Новый ТекстовыйДокумент;

    ВыбранныйДокумент = ЭтотОбъект.Документ; 
    РеквизитыДокумента = ВыбранныйДокумент.Метаданные().Реквизиты;  
    ТабличныеЧасти = ВыбранныйДокумент.Метаданные().ТабличныеЧасти;  

    // Выгрузка основных реквизитов
    СтатусПроводки = ВыбранныйДокумент.Проведен;
    ДатаДокумента = ВыбранныйДокумент.Дата;
    ИмяДокумента = ВыбранныйДокумент.Метаданные().Имя;
    Текст.ДобавитьСтроку(ИмяДокумента);  
	Текст.ДобавитьСтроку(ДатаДокумента);
	Текст.ДобавитьСтроку(СтатусПроводки);
	
	//Выгрузка Реквизитов   
    Для Каждого Реквизит Из РеквизитыДокумента Цикл
   
        Значение = ВыбранныйДокумент[Реквизит.Имя];
		Если Значение = Неопределено Тогда
			Продолжить;
		КонецЕсли;
        ИмяТипа = ТипЗнч(Значение);
		Если ТипЗнч(Значение) = Тип("Строка") И Найти(Значение, Символы.ПС) > 0 Тогда
        	ОднострочныйТекст = СтрЗаменить(Значение, Символы.ПС, "|");
        	Текст.ДобавитьСтроку(Реквизит.Имя + "*" + ИмяТипа + "=" + ОднострочныйТекст);
		ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			ИмяДок = Значение.Метаданные().Имя;
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "#" + ИмяДок + "=" + Значение.Номер + "(" + Значение.Дата);
		ИначеЕсли Справочники.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			Если Значение.Код <> "" Тогда
				Справочник = Значение.Метаданные().Имя;
				Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "&" + Справочник + "=" + Значение.Код);
			Иначе
				Справочник = Значение.Метаданные().Имя;
			    Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "&" + Справочник + "=" + Значение);
			КонецЕсли;
		ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			Перечесление = Значение.Метаданные().Имя;
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "!" + Перечесление + "=" + Значение);
		ИначеЕсли ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			Если Значение.Код <> "" Тогда
				План = Значение.Метаданные().Имя;
				Текст.ДобавитьСтроку(Реквизит.Имя + "*" + ";" + План + "=" + Значение.Код);
			Иначе
			    Текст.ДобавитьСтроку(Реквизит.Имя + "*" + ";" + План + "=" + Значение);
			КонецЕсли;
		ИначеЕсли ПланыСчетов.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			Счет = Значение.Метаданные().Имя;
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "'" + Счет + "=" + Значение);
		ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			Процесс = Значение.Метаданные().Имя;
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "~" + Процесс + "=" + Значение.Номер + "(" + Значение.Дата);
		ИначеЕсли Задачи.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			Задача = Значение.Метаданные().Имя;
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + ":" + Задача + "=" + Значение.Номер + "(" + Значение);
		ИначеЕсли ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
			Если Значение.Код <> "" Тогда
			Расчет = Значение.Метаданные().Имя;
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "{" + Расчет + "=" + Значение.код);
			Иначе
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + "{" + Расчет + "=" + Значение);
			КонецЕсли;
		Иначе
			Текст.ДобавитьСтроку(Реквизит.Имя + "*" + ИмяТипа + "=" + Значение);	
		КонецЕсли;
    КонецЦикла;
	// Выгрузка ТабличныхЧастей
	Текст.ДобавитьСтроку("ТабличныеЧасти");
	Для Каждого ТабличнаяЧасть Из ТабличныеЧасти Цикл
	    Для Каждого СтрокаТЧ Из ВыбранныйДокумент[ТабличнаяЧасть.Имя] Цикл        
	        Текст.ДобавитьСтроку("-" + ТабличнаяЧасть.Имя);      
	        Для Каждого РеквизитТЧ Из ТабличнаяЧасть.Реквизиты Цикл
	            Значение = СтрокаТЧ[РеквизитТЧ.Имя];
				Если Значение = Неопределено Тогда
					Продолжить;
				КонецЕсли;				
	            ИмяТипа = ТипЗнч(Значение);
				Если ИмяТипа = Неопределено Тогда
					Продолжить;
				КонецЕсли;
				Если ТипЗнч(Значение) = Тип("Строка") И Найти(Значение, Символы.ПС) > 0 Тогда
                ОднострочныйТекст = СтрЗаменить(Значение, Символы.ПС, "|");
                Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + ИмяТипа + "=" + ОднострочныйТекст);
	            ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
	                Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + "#" + ИмяТипа + "=" + Значение.Номер + "(" + Значение.Дата + ")");
	            ИначеЕсли Справочники.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
	                Если Значение.Код <> "" Тогда
	                    Справочник = Значение.Метаданные().Имя;
	                    Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + "&" + Справочник + "=" + Значение.Код);
	                Иначе
	                    Справочник = Значение.Метаданные().Имя;
	                    Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + "&" + Справочник + "=" + Значение);
	                КонецЕсли;
	            ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
	                Перечесление = Значение.Метаданные().Имя;
	                Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + "!" + Перечесление + "=" + Значение);
	            ИначеЕсли ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
	                Если Значение.Код <> "" Тогда
	                    План = Значение.Метаданные().Имя;
	                    Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + ";" + План + "=" + Значение.Код);
	                Иначе
	                    Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + ";" + План + "=" + Значение);
	                КонецЕсли;
	            ИначеЕсли ПланыСчетов.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
	                Счет = Значение.Метаданные().Имя;
	                Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + "'" + Счет + "=" + Значение);
	            ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
	                Процесс = Значение.Метаданные().Имя;
	                Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + "~" + Процесс + "=" + Значение.Номер + "(" + Значение.Дата + ")");
	            ИначеЕсли Задачи.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда
	                Задача = Значение.Метаданные().Имя;
	                Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + ":" + Задача + "=" + Значение.Номер + "(" + Значение + ")"); 
				ИначеЕсли ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ИмяТипа) Тогда 
					Если Значение.Код <> "" Тогда
						Расчет = Значение.Метаданные().Имя;
						Текст.ДобавитьСтроку(РеквизитТч.Имя + "*" + "{" + Расчет + "=" + Значение.код);
					Иначе
						Текст.ДобавитьСтроку(РеквизитТч.Имя + "*" + "{" + Расчет + "=" + Значение);
					КонецЕсли;
	            Иначе
	                Текст.ДобавитьСтроку(РеквизитТЧ.Имя + "*" + ИмяТипа + "=" + Значение);
	            КонецЕсли;
	        КонецЦикла;
	    КонецЦикла;
	КонецЦикла;

	// Запись файлика
	Текст.Записать(ПутьКФайлу);
КонецПроцедуры  

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

    // Получаем количество строк в документе
    КоличествоСтрок = Текст.КоличествоСтрок();
    // Имя и дата нахоядтся в первых двух строчках 
    ИмяДокумента = Текст.ПолучитьСтроку(1);
    ДатаДокумента = Текст.ПолучитьСтроку(2);
    СтатусПроводки = Текст.ПолучитьСтроку(3);
    НовыйДокумент = Документы[ИмяДокумента].СоздатьДокумент();
    НовыйДокумент.Дата = Дата(ДатаДокумента);

    
    ОбработкаТабличныхЧастей = Ложь;
    ИмяТекущейТабличнойЧасти = "";

    Для Индекс = 4 По КоличествоСтрок Цикл
        Строка = Текст.ПолучитьСтроку(Индекс);
        Строка = СтрЗаменить(Строка, "|", Символы.ПС);
        
        Если Строка = "ТабличныеЧасти" Тогда
            ОбработкаТабличныхЧастей = Истина;
			ИмяТекущейТабличнойЧасти = "";
            Продолжить; 
        КонецЕсли;
                 
        Если Не ОбработкаТабличныхЧастей = Истина Тогда
            ТипНач = Найти(Строка, "*");
            ТипКон = Найти(Строка, "=");
            ДатаНач = Найти(Строка, "(");

            ИмяРеквизита = Лев(Строка, ТипНач - 1);
            ТипРеквизита = Сред(Строка, ТипНач + 1, ТипКон - ТипНач - 1);
            
            Если ДатаНач > 0 Тогда
                Значение = Сред(Строка, ТипКон + 1, ДатаНач - ТипКон - 1); 
                Дата = Сред(Строка, ДатаНач + 1);
            Иначе
                Значение = Сред(Строка, ТипКон + 1);
                Дата = "";
            КонецЕсли;
            Если Лев(ТипРеквизита, 1) = "#" тогда
                ТипРеквизита = Сред(ТипРеквизита, 2);
                ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
				
                НовыйДокумент[ИмяРеквизита] = Документы[ТипРеквизита].НайтиПоНомеру(Значение, Дата);
            ИначеЕсли Лев(ТипРеквизита, 1) = "&" Тогда
                ТипРеквизита = Сред(ТипРеквизита, 2);
                ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
                ЗначДок = Справочники[ТипРеквизита].НайтиПоКоду(Значение);
				Если ЗначДок = Неопределено Тогда
					Если значение = "" Тогда
					НовыйДокумент[ИмяРеквизита] = Справочники[ТипРеквизита].НайтиПоНаименованию(Значение, Истина);
					Иначе
                    НовыйДокумент[ИмяРеквизита] = Справочники[ТипРеквизита].НайтиПоНаименованию(Значение);
					КонецЕсли;
                Иначе
                    НовыйДокумент[ИмяРеквизита] = Справочники[ТипРеквизита].НайтиПоКоду(Значение);
                КонецЕсли;
            ИначеЕсли Лев(ТипРеквизита, 1) = "!" Тогда
                ТипРеквизита = Сред(ТипРеквизита, 2);
                ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
                Значение = СтрЗаменить(Значение, " ", "");
                Если Значение = "" Тогда
                Иначе
                    НовыйДокумент[ИмяРеквизита] = Перечисления[ТипРеквизита][Значение];
                КонецЕсли;
            ИначеЕсли Лев(ТипРеквизита, 1) = ";" Тогда
                ТипРеквизита = Сред(ТипРеквизита, 2);
                ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
                ЗначДок = ПланыВидовХарактеристик[ТипРеквизита].НайтиПоКоду(Значение); 
				Если ЗначДок = Неопределено Тогда
					Если Значение = "" Тогда
                    НовыйДокумент[ИмяРеквизита] = ПланыВидовХарактеристик[ТипРеквизита].НайтиПоНаименованию(Значение, Истина);
				Иначе
					НовыйДокумент[ИмяРеквизита] = ПланыВидовХарактеристик[ТипРеквизита].НайтиПоНаименованию(Значение);
				КонецЕсли;
                Иначе
                    НовыйДокумент[ИмяРеквизита] = ПланыВидовХарактеристик[ТипРеквизита].НайтиПоКоду(Значение);
                КонецЕсли;
            ИначеЕсли Лев(ТипРеквизита, 1) = "'" Тогда  
                ТипРеквизита = Сред(ТипРеквизита, 2);
                ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
                НовыйДокумент[ИмяРеквизита] = ПланыСчетов[ТипРеквизита].НайтипоНаименованию(Значение);
            ИначеЕсли Лев(ТипРеквизита, 1) = "~" Тогда
                ТипРеквизита = Сред(ТипРеквизита, 2);
                ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
                НовыйДокумент[ИмяРеквизита] = БизнесПроцессы[ТипРеквизита].НайтипоНомеру(Значение, Дата);
            ИначеЕсли Лев(ТипРеквизита, 1) = ":" Тогда
                ТипРеквизита = Сред(ТипРеквизита, 2);
                ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
                НовыйДокумент[ИмяРеквизита] = Задачи[ТипРеквизита].НайтипоНаименованию(Значение);
			ИначеЕсли Лев(ТипРеквизита, 1) = "{" Тогда
				ТипРеквизита = сред(ТипРеквизита, 2);
				ТипРеквизита = СтрЗаменить(ТипРеквизита, " ", "");
				ЗначДок = ПланыВидовРасчета[ТипРеквизита].НайтиПоКоду(Значение);
				Если ЗначДок = Неопределено Тогда 
					Если Значение = "" Тогда
					НовыйДокумент[ИмяРеквизита] = ПланыВидовРасчета[ТипРеквизита].НайтиПоНаименованию(Значение,Истина);
				Иначе
					НовыйДокумент[ИмяРеквизита] = ПланыВидовРасчета[ТипРеквизита].НайтиПоНаименованию(Значение);
					КонецЕсли;
				Иначе
					НовыйДокумент[ИмяРеквизита] = ПланыВидовРасчета[ТипРеквизита].НайтиПоКоду(Значение);
				КонецЕсли;
            Иначе
                НовыйДокумент[ИмяРеквизита] = Значение;
            КонецЕсли;

		Иначе
		    // Логика обработки табличных частей
		    Если Найти(Строка, "-") > 0 Тогда
		        ИмяТекущейТабличнойЧасти = Сред(Строка, 2);
				НоваяСтрокаТч = НовыйДокумент[ИмяТекущейТабличнойЧасти].Добавить();

		        Продолжить;
		    КонецЕсли;

		    Если ИмяТекущейТабличнойЧасти <> "" Тогда
		        // Извлечение и заполнение данных табличной части
		        ТипТчНач = Найти(Строка, "*");
		        ТипТчКон = Найти(Строка, "=");
		        ДатаТчНач = Найти(Строка, "(");

		        ИмяРекТч = Лев(Строка, ТипТчНач - 1);
		        ТипРекТч = Сред(Строка, ТипТчНач + 1, ТипТчКон - ТипТчНач - 1);
		        
		        Если ДатаТчНач > 0 Тогда
		            ЗначТч = Сред(Строка, ТипТчКон + 1, ДатаТчНач - ТипТчКон - 1); 
		            ДатаТч = Сред(Строка, ДатаТчНач + 1);
		        Иначе
		            ЗначТч = Сред(Строка, ТипТчКон + 1);
		            ДатаТч = "";
		        КонецЕсли;
				Если Лев(ТипРекТч, 1) = "#" Тогда
				    ТипРекТч = Сред(ТипРекТч, 2);
				    ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
				    НоваяСтрокаТч[ИмяРекТч] = Документы[ТипРекТч].НайтиПоНомеру(ЗначТч, ДатаТч);
				ИначеЕсли Лев(ТипРекТч, 1) = "&" Тогда
				    ТипРекТч = Сред(ТипРекТч, 2);
				    ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
				    ЗначДокТч = Справочники[ТипРекТч].НайтиПоКоду(ЗначТч);
					Если ЗначДокТч = Неопределено Тогда
						Если ЗначТч = "" Тогда
				        НоваяСтрокаТч[ИмяРекТч] = Справочники[ТипРекТч].НайтиПоНаименованию(ЗначТч,Истина);
					Иначе
						НоваяСтрокаТч[ИмяРекТч] = Справочники[ТипРекТч].НайтиПоНаименованию(ЗначТч);
					КонецЕсли;
				    Иначе
				        НоваяСтрокаТч[ИмяРекТч] = ЗначДокТч;
				    КонецЕсли;
				ИначеЕсли Лев(ТипРекТч, 1) = "!" Тогда
				    ТипРекТч = Сред(ТипРекТч, 2);
				    ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
				    Если ЗначТч <> "" Тогда
				        НоваяСтрокаТч[ИмяРекТч] = Перечисления[ТипРекТч][ЗначТч];
				    КонецЕсли;
				ИначеЕсли Лев(ТипРекТч, 1) = ";" Тогда
				    ТипРекТч = Сред(ТипРекТч, 2);
				    ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
				    ЗначДокТч = ПланыВидовХарактеристик[ТипРекТч].НайтиПоКоду(ЗначТч);
					Если ЗначДокТч = Неопределено Тогда
						Если ЗначТч = "" Тогда
				        НоваяСтрокаТч[ИмяРекТч] = ПланыВидовХарактеристик[ТипРекТч].НайтиПоНаименованию(ЗначТч,Истина);
					Иначе
						НоваяСтрокаТч[ИмяРекТч] = ПланыВидовХарактеристик[ТипРекТч].НайтиПоНаименованию(ЗначТч);
					КонецЕсли;
				    Иначе
				        НоваяСтрокаТч[ИмяРекТч] = ЗначДокТч;
				    КонецЕсли;
				ИначеЕсли Лев(ТипРекТч, 1) = "'" Тогда  
				    ТипРекТч = Сред(ТипРекТч, 2);
				    ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
				    НоваяСтрокаТч[ИмяРекТч] = ПланыСчетов[ТипРекТч].НайтиПоНаименованию(ЗначТч);
				ИначеЕсли Лев(ТипРекТч, 1) = "~" Тогда                                                                  	
				    ТипРекТч = Сред(ТипРекТч, 2);
				    ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
				    НоваяСтрокаТч[ИмяРекТч] = БизнесПроцессы[ТипРекТч].НайтиПоНомеру(ЗначТч, ДатаТч);
				ИначеЕсли Лев(ТипРекТч, 1) = ":" Тогда
				    ТипРекТч = Сред(ТипРекТч, 2);
				    ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
				    НоваяСтрокаТч[ИмяРекТч] = Задачи[ТипРекТч].НайтиПоНаименованию(ЗначТч);
				ИначеЕсли Лев(ТипРекТч, 1) = "{" Тогда
					ТипРекТч = Сред(ТипРекТч, 2);
					ТипРекТч = СтрЗаменить(ТипРекТч, " ", "");
					ЗначДокТч = ПланыВидоврасчета[ТипРекТч].НайтиПоКоду(ЗначТч);
					Если ЗначДокТч = Неопределено Тогда
						Если ЗначТч = "" Тогда
						НоваяСтрокаТч[ИмяРекТч] = ПланыВидовХарактеристик[ТипРекТч].НайтиПоНаименованию(ЗначТч,Истина);
					Иначе
						НоваяСтрокаТч[ИмяРекТч] = ПланыВидовХарактеристик[ТипРекТч].НайтиПоНаименованию(ЗначТч);
					КонецЕсли;
					Иначе
						НоваяСтрокаТч[ИмяРекТч] = ЗначДокТч;
					КонецЕсли;
				Иначе
				    НоваяСтрокаТч[ИмяРекТч] = ЗначТч;
				КонецЕсли;
		    КонецЕсли;
		КонецЕсли;
    КонецЦикла;   


	Если СтатусПроводки = "Да" Тогда
		Попытка
			НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
			Сообщить("Документ успешно проведен!");
		Исключение 
			НовыйДокумент.Записать();
			ВызватьИсключение("Ошибка проведения документа. Проверьте данные и попробуйте снова.");
		КонецПопытки
	Иначе
		НовыйДокумент.Записать();
	КонецЕсли;
	
КонецПроцедуры