Ищу обработку для сверки товарных остатков УТ 11 и БП 2.0

перем xml_fso;
перем xml_file;
перем xml_СтекТегов;
перем xml_ТегОткрыт;
перем xml_Отступы;
Перем ИмяНачКаталога;

///////////////////////////////////////////////////////////////////////
//Открывает файл XML в режиме записи. Если файл существовал, перезаписывает его.
//Принимает параметр прм_ИмяФайла - имя файла (укажите полный путь и расширение .XML)
Процедура xml_СоздатьФайл(прм_ИмяФайла)
    xml_fso=СоздатьОбъект("Scripting.FileSystemObject");
    xml_file=xml_fso.CreateTextFile(прм_ИмяФайла, -1, 0); //создать файл, перезаписывая существующий
    xml_file.WriteLine("<?xml version=""1.0"" encoding=""windows-1251""?>"); //Пишем заголовок XML
    xml_СтекТегов=СоздатьОбъект("СписокЗначений");
    xml_Отступы="";
    xml_ТегОткрыт=0;
КонецПроцедуры

///////////////////////////////////////////////////////////////////////
//Записывает начало элемента (тега XML). Имя можно указывать в угловых скобках.
Процедура xml_ЗаписатьНачалоЭлемента(прм_ИмяТега)
    перем стр;

    Если xml_ТегОткрыт=1 Тогда
        xml_ТегОткрыт=0;
        xml_file.WriteLine(">");
        xml_Отступы=xml_Отступы+"  ";
    КонецЕсли;

    стр=прм_ИмяТега;
    стр=СтрЗаменить(стр, "<", "");
    стр=СтрЗаменить(стр, ">", "");

    xml_СтекТегов.ДобавитьЗначение(стр);
    xml_file.Write(xml_Отступы+"<"+стр);
    xml_ТегОткрыт=1;
КонецПроцедуры

///////////////////////////////////////////////////////////////////////
//Записывает атрибут (параметр) тега XML.
Процедура xml_ЗаписатьАтрибут(прм_ИмяАтрибута, прм_ЗначениеАтрибута)
    Если xml_ТегОткрыт=0 Тогда
       Сообщить("Перед записью атрибута необходимо записать начало элемента!","!"); а=10/0;
    КонецЕсли;


    стр=прм_ЗначениеАтрибута;
    стр=СтрЗаменить(стр, "&", "&");
    стр=СтрЗаменить(стр, """", """);
    стр=СтрЗаменить(стр, "<", "<");
    стр=СтрЗаменить(стр, ">", ">");
    стр=СтрЗаменить(стр, "'", "'");
    xml_file.Write(" "+прм_ИмяАтрибута+"="+""""+стр+"""");
КонецПроцедуры    // xml_ЗаписатьЗаписатьАтрибут

///////////////////////////////////////////////////////////////////////
//Записывает конец элемента (тега XML). Имя закрываемого тега можно указывать в угловых скобках,
//а можно - не указывать вовсе.

Процедура xml_ЗаписатьКонецЭлемента(прм_ОжидаемоеИмяТега="")
    перем стрИмяТега, а;
    Если xml_СтекТегов.РазмерСписка()<1 Тогда
        Сообщить("Попытка закрыть неоткрытый элемент!","!"); а=10/0;
    КонецЕсли;

    стрИмяТега=xml_СтекТегов.ПолучитьЗначение(xml_СтекТегов.РазмерСписка());

    Если ПустаяСтрока(прм_ОжидаемоеИмяТега)=0 Тогда
        стр=прм_ОжидаемоеИмяТега;
        стр=СтрЗаменить(стр, "<", "");
        стр=СтрЗаменить(стр, ">", "");
        стр=СтрЗаменить(стр, "/", "");

        Если стр<>стрИмяТега Тогда
            Сообщить("Ожидается имя тега "+стр+", а закрыто "+стрИмяТега,"!"); а=10/0;
        КонецЕсли;
    КонецЕсли;


    xml_СтекТегов.УдалитьЗначение(xml_СтекТегов.РазмерСписка());
    Если xml_ТегОткрыт=1 Тогда
        xml_ТегОткрыт=0;
        xml_file.WriteLine("/>");
        Возврат;
    КонецЕсли;
    xml_Отступы=лев(xml_Отступы, СтрДлина(xml_Отступы)-2);
    xml_file.WriteLine(xml_Отступы+"</"+стрИмяТега+">");

КонецПроцедуры    // xml_ЗаписатьКонецЭлемента

///////////////////////////////////////////////////////////////////////
//Закрывает открытый файл XML. После окончания работы с файлом его необходимо закрыть.
Функция xml_Закрыть()
    xml_file.Close();
    Если xml_СтекТегов.РазмерСписка()<>0 Тогда
        Сообщить("Имеются незакрытые элементы XML!","!"); а=10/0;
    КонецЕсли;
КонецФункции    // xml_Закрыть

//********************************************
Процедура Сформировать()
    Перем ДатаЦены,ЦенаЦены,ЕдЦены,ВалЦены,НаценкаЦены,НайденнаяЦена;

    Если ПустоеЗначение(ВыбФирма)=1 Тогда
        Сообщить("Нужно выбрать фирму");
        Возврат;
    КонецЕсли;
    Если ПустоеЗначение(ВыбСклад)=1 Тогда
        Сообщить("Нужно выбрать склад");
        Возврат;
    КонецЕсли;

    Регистры=СоздатьОбъект("Регистры");
    РегОст=Регистры.ОстаткиТМЦ;

    РегОст.УстановитьЗначениеФильтра("Фирма",ВыбФирма);
    РегОст.УстановитьЗначениеФильтра("Склад",ВыбСклад);
    Если ПустоеЗначение(К)=0 Тогда
        Если К<ТекущаяДата() Тогда
            РегОст.ВременныйРасчет();
            Регистры.РассчитатьРегистрыПо(К);
        КонецЕсли;
    КонецЕсли;
    РегОст.ВыгрузитьИтоги(каиТ);

    каиТ.УдалитьКолонку("ЦенаПрод");
    каиТ.Свернуть("Номенклатура","Количество");

    стрИмяФайла=ФайлВыгрузки;
    Сообщить("Начало записи: "+стрИмяФайла);
    Сообщить("Время начала: "+ТекущееВремя());
    xml_СоздатьФайл(стрИмяФайла);
    xml_ЗаписатьНачалоЭлемента("<ОстаткиТМЦ>");
        xml_ЗаписатьНачалоЭлемента("<Фирма>");
            xml_ЗаписатьАтрибут("Фирма", ВыбФирма);

                xml_ЗаписатьНачалоЭлемента("<Склад>");
                xml_ЗаписатьАтрибут("Склад", ВыбСклад);
                xml_ЗаписатьАтрибут("ЭтоРозничныйСклад", ВыбСклад.РозничныйСклад);
                Если каиТ.КоличествоСтрок()=0 Тогда
                    xml_ЗаписатьНачалоЭлемента("<СтрокаОстатка>");
                    xml_ЗаписатьАтрибут("Код", "0");
                    xml_ЗаписатьКонецЭлемента("</СтрокаОстатка>");
                КонецЕсли;
                каиТ.ВыбратьСтроки();
                Пока каиТ.ПолучитьСтроку() = 1 Цикл
                    xml_ЗаписатьНачалоЭлемента("<СтрокаОстатка>");

                    xml_ЗаписатьАтрибут("Код", каиТ.Номенклатура.Код);
                    xml_ЗаписатьАтрибут("Номенклатура", каиТ.Номенклатура);
                    xml_ЗаписатьАтрибут("Количество", каиТ.Количество);

                    xml_ЗаписатьКонецЭлемента("</СтрокаОстатка>");
                КонецЦикла;

                xml_ЗаписатьКонецЭлемента("</Склад>");
        xml_ЗаписатьКонецЭлемента("</Фирма>");
    xml_ЗаписатьКонецЭлемента("</ОстаткиТМЦ>");
    xml_Закрыть();
    Сообщить("Конец записи: "+ТекущееВремя());

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

//********************************************
// Предопределенная процедура.
//
Процедура ПриНачалеВыбораЗначения(Идент,Флаг)

    Если Идент = "ФайлВыгрузки" Тогда
        Флаг = 0;
        ИмяФайла = ФайлВыгрузки;
        Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяНачКаталога,"Выберите промежуточный файл переноса","Файлы xml (*.xml) |*.xml","xml",20) = 1 Тогда // "Файлы xml (*.xml) |*.xml"
            ФайлВыгрузки = ИмяНачКаталога+ИмяФайла;
        КонецЕсли;
    КонецЕсли;

КонецПроцедуры // ПриНачалеВыбораЗначения()