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

ПолноеИмя = ДокументОбъект.РеквизитДоговорыКонтрагентов.Метаданные().ПолноеИмя()

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

//получаем имя документа и дату создания
    ИмяДокумента = ДокСсылка.Метаданные().Имя;
    ДатаДокумента = ДокСсылка.Дата;
//прописываем первыми 2 строками имя документа и дату    
    текст.ДобавитьСтроку("" + ИмяДокумента);
    текст.ДобавитьСтроку("" + ДатаДокумента);

//перебираем все имеющиеся реквизиты шапки документа
для каждого Шреквизит из ДокСсылка.метаданные().Реквизиты цикл
//проверяем если реквизит имеет тип справочникссылка
    Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Докссылка[""+Шреквизит.имя])) = ложь тогда
//проверяем если реквизит имеет тип перечисление    
        если перечисления.ТипВсеСсылки().СодержитТип(ТипЗнч(Докссылка[""+Шреквизит.имя]))=ложь тогда
            текст.ДобавитьСтроку(""+ Шреквизит.Имя+"="+Докссылка[""+Шреквизит.имя])
        иначе
            ПолноеИмяПеречисления=ДокСсылка[Шреквизит.имя].метаданные().имя;
            текст.ДобавитьСтроку(""+ Шреквизит.Имя+"="+Докссылка[""+Шреквизит.имя]+"#"+ПолноеИмяПеречисления)
        конецесли;
    иначе
        ПолноеИмяСпр=ДокСсылка[Шреквизит.имя].метаданные().имя;
        текст.ДобавитьСтроку(""+ Шреквизит.Имя+"="+Докссылка[""+Шреквизит.имя].код+"&"+ПолноеИмяСпр);
    конецесли;
конецЦикла;

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

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

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


&НаСервере
    Процедура загрузитьНаСервере()
    Документ = Новый ТекстовыйДокумент;
    Документ.Прочитать(ПутьКФайлу,КодировкаТекста.UTF8);
//так как мы значем точно,что первые 2 строки текстового файла, это название документа и его дата то сразу прописываем переменные    
Для Индекс = 1 По Документ.КоличествоСтрок() Цикл
    НаименованиеДокумента=документ.ПолучитьСтроку(1);
    ДатаДокумента=документ.ПолучитьСтроку(2);
КонецЦикла;
//создаем документ с наименование документа из текстового файла и прописываем ему дату.
    Новыйдокумент = документы[НаименованиеДокумента].СоздатьДокумент();
    Новыйдокумент.Дата = Дата(ДатаДокумента);
//так как первые 2 строки уже определены,они нам не нужны по этому начинаем цикл с 3 строки
Для Индекс = 3 По Документ.КоличествоСтрок() Цикл
    Стр = Документ.Получитьстроку(Индекс);
//прописываем разделители
    Разделитель = найти(стр,"=");
    РазделительТЧ=найти(стр,"'");
    РазделительУТЧ=найти(стр,";");
    РазделительТСпр = найти(стр,"&");
    РазделительПеречисления = найти(стр,"#");
//получаем имена,значения и тип реквизитов.
    КодЗначения=сред(стр,Разделитель+1,РазделительТСпр-Разделитель-1);
    НаименованиеРеквизита = Лев(стр,Разделитель-1);
    ПолноеИмяСпр=сред(стр,РазделительТСпр+1);
    ПолноеИмяПеречисления = сред(стр,РазделительПеречисления+1);
    НаименованиеПер=сред(стр,Разделитель+1,РазделительПеречисления-Разделитель-1);
    ИмяТЧ=сред(стр,РазделительУТЧ+1,РазделительТЧ-РазделительУТЧ-1);
    НаименованиеРТЧ=сред(стр,РазделительТЧ+1,Разделитель-РазделительТЧ-1);
    УсловиеДляТЧ= Найти(стр,"ТабличныеЧасти");
//проверяеместь ли упоминание, что это реквизит ТЧ
Если УсловиеДляТЧ=0 тогда
//Получаем реквизит шапки
    Шреквизит=НовыйДокумент.Метаданные().Реквизиты[НаименованиеРеквизита];
//проверяем есть ли упоминание что этот реквизит должен быть справочникссылка. если да то ищем по коду,получаем ссылку и присваиваем значение реквизиту     
        если РазделительТСпр <> 0  тогда
            Элемент = Справочники[ПолноеИмяСпр].найтипокоду(КодЗначения).ссылка;
            новыйдокумент[""+Шреквизит.имя]=Элемент; 
        иначе
//проверяем есть ли упоминание что это перечисление.если да то получаем перечисление и прописываем его в значение, если нет то просто берем значение и прописываем его в реквизит 
            если РазделительПеречисления <> 0 тогда
                перечисление = перечисления[полноеимяперечисления][наименованиеПер];
                новыйдокумент[""+Шреквизит.имя]=перечисление; 
            иначе
                новыйдокумент[""+Шреквизит.имя]=КодЗначения;
            конецесли;
        конецесли;
иначе
//получаем реквизит ТЧ
    ТЧреквизит=Новыйдокумент.метаданные().ТабличныеЧасти[ИмяТЧ].реквизиты[НаименованиеРТЧ];
//так как у нас в документах во всех ТЧ есть реквизит "номенклатура" то по нему будем определять нужно ли создовать новую строку в ТЧ    
        Если НаименованиеРТЧ="Номенклатура" тогда
        НоваяСтрока = новыйдокумент[ИмяТЧ].Добавить();
//проверяем если реквизит имеет тип справочникссылка(у нас в документах состовной тип данных есть только в реквизитах шапки по этому там сделанно по другому)
            если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(НоваяСтрока[""+ТЧреквизит.имя])) = истина тогда
                ПолноеИмяСпр=НоваяСтрока[ТЧреквизит.имя].метаданные().имя;
                Элемент = Справочники[ПолноеИмяСпр].найтипокоду(КодЗначения).ссылка;
                НоваяСтрока[""+ТЧреквизит.имя]=Элемент;
            иначе
                НоваяСтрока[ТЧреквизит.имя] = КодЗначения; 
            конецЕсли;
        иначе
            если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(НоваяСтрока[""+ТЧреквизит.имя])) = истина тогда
                ПолноеИмяСпр=НоваяСтрока[ТЧреквизит.имя].метаданные().имя;
                Элемент = Справочники[ПолноеИмяСпр].найтипокоду(КодЗначения).ссылка;
                НоваяСтрока[""+ТЧреквизит.имя]=Элемент;
            иначе
                НоваяСтрока[ТЧреквизит.имя] = КодЗначения; 
            конецЕсли;
        конецЕсли;
конецЕсли;
КонецЦикла;    
    Новыйдокумент.записать();
КонецПроцедуры

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


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

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

&НаКлиенте
Процедура ВыборФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
    Если ВыбранныеФайлы <> Неопределено Тогда
        ПутьКФайлу = ВыбранныеФайлы[0];
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
   Процедура СохранитьКакНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
    Режим = РежимДиалогаВыбораФайла.Сохранение;
    ДиалогВыбораФайла = Новый ДиалогВыбораФайла(Режим);
    
    ДиалогВыбораФайла.ПолноеИмяФайла = ПутьКФайлу;
    Фильтр = НСтр("ru = 'Текст'; en = 'Text'")
    + "(*.txt)|*.txt";
    ДиалогВыбораФайла.Фильтр = Фильтр;
    ДиалогВыбораФайла.МножественныйВыбор = Ложь;
    ДиалогВыбораФайла.Заголовок = "Выберите каталог";
                                                                     
    Оповещения = Новый ОписаниеОповещения("СохранениеФайлаЗавершение", ЭтаФорма);
    
    ДиалогВыбораФайла.Показать(Оповещения);

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

&НаКлиенте
Процедура СохранениеФайлаЗавершение(ВыбранныеФайлыС, ДополнительныеПараметры) Экспорт
    Если ВыбранныеФайлыС <> Неопределено Тогда
        сохранитькак = ВыбранныеФайлыС[0];
    КонецЕсли;
КонецПроцедуры