Раздельная выгрузка перемещений и заказов

"ВЫБРАТЬ
        |    ТоварыНаСкладахОбороты.Номенклатура КАК Номенклатура,
        |    ТоварыНаСкладахОбороты.Регистратор,
        |    ЕСТЬNULL(ТоварыНаСкладахОбороты.Регистратор.Контрагент, ЕСТЬNULL(ПартииТоваровНаСкладах.ДокументОприходования.Контрагент, ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка))) КАК Контрагент,
        |    ТоварыНаСкладахОбороты.Регистратор.Номер,
        |    ТоварыНаСкладахОбороты.Регистратор.Дата,
        |    ВЫБОР
        |        КОГДА ТоварыНаСкладах.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
        |            ТОГДА ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоРасход, 0) + ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоПриход, 0)
        |        ИНАЧЕ ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоРасход, 0) + ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоПриход, 0)
        |    КОНЕЦ КАК Количество,
        |    ТоварыНаСкладах.ВидДвижения,
        |    ТоварыНаСкладах.НомерСтроки
        |ПОМЕСТИТЬ ВТ_Остатки
        |ИЗ
        |    РегистрНакопления.ТоварыНаСкладах.Обороты(&ДатаНачала, &ДатаОкончания, Регистратор, &УсловиеСклад) КАК ТоварыНаСкладахОбороты
        |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах КАК ТоварыНаСкладах
        |        ПО ТоварыНаСкладахОбороты.Регистратор = ТоварыНаСкладах.Регистратор
        |            И ТоварыНаСкладахОбороты.Номенклатура = ТоварыНаСкладах.Номенклатура
        |            И ТоварыНаСкладахОбороты.ХарактеристикаНоменклатуры = ТоварыНаСкладах.ХарактеристикаНоменклатуры
        |            И ТоварыНаСкладахОбороты.СерияНоменклатуры = ТоварыНаСкладах.СерияНоменклатуры
        |            И ТоварыНаСкладахОбороты.Качество = ТоварыНаСкладах.Качество
        |            И ТоварыНаСкладахОбороты.Склад = ТоварыНаСкладах.Склад
        |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах КАК ПартииТоваровНаСкладах
        |        ПО ТоварыНаСкладахОбороты.Регистратор = ПартииТоваровНаСкладах.Регистратор
        |            И ТоварыНаСкладахОбороты.Номенклатура = ПартииТоваровНаСкладах.Номенклатура
        |            И ТоварыНаСкладахОбороты.ХарактеристикаНоменклатуры = ПартииТоваровНаСкладах.ХарактеристикаНоменклатуры
        |            И ТоварыНаСкладахОбороты.СерияНоменклатуры = ПартииТоваровНаСкладах.СерияНоменклатуры
        |            И ТоварыНаСкладахОбороты.Качество = ПартииТоваровНаСкладах.Качество
        |            И ТоварыНаСкладахОбороты.Склад = ПартииТоваровНаСкладах.Склад
        |;";

КОГДА ТоварыНаСкладах.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
        |            ТОГДА ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоРасход, 0) + ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоПриход, 0)
        |        ИНАЧЕ ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоРасход, 0) + ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоПриход, 0)
        |    КОНЕЦ КАК Количество,

Функция ИнициализацияДанных(ПараметрыОтбора) Экспорт
    
    Генератор = Новый ГенераторСлучайныхЧисел();
    НомерДокументаВводаОстатков = Генератор.СлучайноеЧисло(1, 999);
    
    ТекстЗапросаОстатки = 
        "ВЫБРАТЬ
        |   ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
        |   ТоварыНаСкладахОстатки.КоличествоОстаток
        |ПОМЕСТИТЬ ВТ_Остатки
        |ИЗ
        |   РегистрНакопления.ТоварыНаСкладах.Остатки(&ДатаОкончания, &УсловиеСклад) КАК ТоварыНаСкладахОстатки
        |;";
        
    ТекстЗапросаОстатки1 = "
        |ВЫБРАТЬ
        |   -1 КАК Position,
        |   ВложенныйЗапрос.MATERIALGUID,
        |   ВложенныйЗапрос.QUANTITY,
        |   ВложенныйЗапрос.UNITGUID,
        |   ВложенныйЗапрос.Регистратор,
        |   МАКСИМУМ(ВложенныйЗапрос.GUID) КАК GUID,
        |   МАКСИМУМ(ВложенныйЗапрос.DATE) КАК DATE,
        |   МАКСИМУМ(ВложенныйЗапрос.DOCNUMBER) КАК DOCNUMBER,
        |   МАКСИМУМ(ВложенныйЗапрос.COMMENT) КАК COMMENT,
        |   ВложенныйЗапрос.CONTRACTORGUID.Код КАК CONTRACTORGUID,
        |   ВложенныйЗапрос.ВидДвижения
        |ИЗ   
        |   (ВЫБРАТЬ
        |       Значение(ВидДвиженияНакопления.Приход) Как ВидДвижения,
        |       ВТ_Остатки.Номенклатура.Код КАК MATERIALGUID,
        |       ВТ_Остатки.КоличествоОстаток КАК QUANTITY,
        |       ЕдиницыИзмерения.Код КАК UNITGUID,
        |       ЗНАЧЕНИЕ(Документ.ОприходованиеТоваров.ПустаяСсылка) КАК Регистратор,
        |       ""RES_ENT_"+Формат(НомерДокументаВводаОстатков, "ЧЦ=3; ЧВН=; ЧГ=0")+""" КАК GUID,
        |       """+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy")+""" КАК DATE,
        |       ""RES_ENT_"+Формат(НомерДокументаВводаОстатков, "ЧЦ=3; ЧВН=; ЧГ=0")+""" КАК DOCNUMBER,
        |       ""Ввод начальных остатков"" КАК COMMENT,
        |       &Контрагент КАК CONTRACTORGUID
        |   ИЗ
        |       ВТ_Остатки КАК ВТ_Остатки
        |           ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
        |           ПО ВТ_Остатки.Номенклатура = ЕдиницыИзмерения.Владелец
        |               И ВТ_Остатки.Номенклатура.БазоваяЕдиницаИзмерения = ЕдиницыИзмерения.ЕдиницаПоКлассификатору) КАК ВложенныйЗапрос
        |ГДЕ
        |   ВложенныйЗапрос.QUANTITY > 0 //отрицательные остатки система не понимает
        |
        |СГРУППИРОВАТЬ ПО
        |   ВложенныйЗапрос.ВидДвижения,
        |   ВложенныйЗапрос.Регистратор,
        |   ВложенныйЗапрос.MATERIALGUID,
        |   ВложенныйЗапрос.QUANTITY,
        |   ВложенныйЗапрос.UNITGUID,
        |   ВложенныйЗапрос.CONTRACTORGUID
        |ИТОГИ
        |   МАКСИМУМ(GUID),
        |   МАКСИМУМ(DATE),
        |   МАКСИМУМ(DOCNUMBER),
        |   МАКСИМУМ(COMMENT)
        |ПО
        |   ВидДвижения,
        |   Регистратор
        |";
        
    ТекстЗапросаОбороты = 
        "ВЫБРАТЬ
        |   ТоварыНаСкладахОбороты.Номенклатура КАК Номенклатура,
        |   ТоварыНаСкладахОбороты.Регистратор,
        |   ЕСТЬNULL(ТоварыНаСкладахОбороты.Регистратор.Контрагент, ЕСТЬNULL(ПартииТоваровНаСкладах.ДокументОприходования.Контрагент, ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка))) КАК Контрагент,
        |   ТоварыНаСкладахОбороты.Регистратор.Номер,
        |   ТоварыНаСкладахОбороты.Регистратор.Дата,
        |   ВЫБОР
        |       КОГДА ТоварыНаСкладах.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
        |           ТОГДА ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоРасход, 0) + ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоПриход, 0)
        |       ИНАЧЕ ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоРасход, 0) + ЕСТЬNULL(ТоварыНаСкладахОбороты.КоличествоПриход, 0)
        |   КОНЕЦ КАК Количество,
        |   ТоварыНаСкладах.ВидДвижения,
        |   ТоварыНаСкладах.НомерСтроки
        |ПОМЕСТИТЬ ВТ_Остатки
        |ИЗ
        |   РегистрНакопления.ТоварыНаСкладах.Обороты(&ДатаНачала, &ДатаОкончания, Регистратор, &УсловиеСклад) КАК ТоварыНаСкладахОбороты
        |       ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах КАК ТоварыНаСкладах
        |       ПО ТоварыНаСкладахОбороты.Регистратор = ТоварыНаСкладах.Регистратор
        |           И ТоварыНаСкладахОбороты.Номенклатура = ТоварыНаСкладах.Номенклатура
        |           И ТоварыНаСкладахОбороты.ХарактеристикаНоменклатуры = ТоварыНаСкладах.ХарактеристикаНоменклатуры
        |           И ТоварыНаСкладахОбороты.СерияНоменклатуры = ТоварыНаСкладах.СерияНоменклатуры
        |           И ТоварыНаСкладахОбороты.Качество = ТоварыНаСкладах.Качество
        |           И ТоварыНаСкладахОбороты.Склад = ТоварыНаСкладах.Склад
        |       ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах КАК ПартииТоваровНаСкладах
        |       ПО ТоварыНаСкладахОбороты.Регистратор = ПартииТоваровНаСкладах.Регистратор
        |           И ТоварыНаСкладахОбороты.Номенклатура = ПартииТоваровНаСкладах.Номенклатура
        |           И ТоварыНаСкладахОбороты.ХарактеристикаНоменклатуры = ПартииТоваровНаСкладах.ХарактеристикаНоменклатуры
        |           И ТоварыНаСкладахОбороты.СерияНоменклатуры = ПартииТоваровНаСкладах.СерияНоменклатуры
        |           И ТоварыНаСкладахОбороты.Качество = ПартииТоваровНаСкладах.Качество
        |           И ТоварыНаСкладахОбороты.Склад = ПартииТоваровНаСкладах.Склад
        |;";
        
    ТекстЗапросаОбороты1 = "
        |   ВЫБРАТЬ
        |   ВложенныйЗапрос.ВидДвижения КАК ВидДвижения,
        |   ВложенныйЗапрос.Регистратор КАК Регистратор,
        |   ВложенныйЗапрос.GUID КАК GUID,
        |   ВложенныйЗапрос.DOCNUMBER КАК DOCNUMBER,
        |   ВложенныйЗапрос.DATE КАК DATE,
        |   ВложенныйЗапрос.НомерСтроки КАК Position,
        |   ВложенныйЗапрос.MATERIALGUID КАК MATERIALGUID,
        |   ВложенныйЗапрос.UNITGUID КАК UNITGUID,
        |   ВложенныйЗапрос.Количество КАК Quantity,
        |   ВложенныйЗапрос.КонтрагентКод КАК ContractorGuid
        |ИЗ
        |   (ВЫБРАТЬ
        |       ВТ_Остатки.Номенклатура.Код КАК MATERIALGUID,
        |       ЕдиницыИзмерения.Код КАК UNITGUID,
        |       ВТ_Остатки.Регистратор КАК Регистратор,
        |       ВТ_Остатки.РегистраторНомер КАК GUID,
        |       ВТ_Остатки.РегистраторДата КАК DATE,
        |       ВТ_Остатки.РегистраторНомер КАК DOCNUMBER,
        |       ВТ_Остатки.ВидДвижения КАК ВидДвижения,
        |       ВТ_Остатки.НомерСтроки КАК НомерСтроки,
        |       ВТ_Остатки.Количество КАК Количество,
        |       ВТ_Остатки.Контрагент.Код КАК КонтрагентКод
        |   ИЗ
        |       ВТ_Остатки КАК ВТ_Остатки
        |           ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
        |           ПО ВТ_Остатки.Номенклатура = ЕдиницыИзмерения.Владелец
        |               И ВТ_Остатки.Номенклатура.БазоваяЕдиницаИзмерения = ЕдиницыИзмерения.ЕдиницаПоКлассификатору) КАК ВложенныйЗапрос
        |
        |УПОРЯДОЧИТЬ ПО
        |   ВидДвижения,
        |   Регистратор,
        |   НомерСтроки
        |ИТОГИ
        |   МАКСИМУМ(GUID),
        |   МАКСИМУМ(DOCNUMBER),
        |   МАКСИМУМ(DATE)
        |ПО
        |   ВидДвижения,
        |   Регистратор";
    
    Запрос = Новый Запрос;
    
    ВыгрузитьОстатки = ПараметрыОтбора.РежимРаботы;
    Если ВыгрузитьОстатки = 0 Тогда //по остаткам
        ТекстЗапросаОстатки = СтрЗаменить(ТекстЗапросаОстатки, "&УсловиеСклад", "Склад В (&СписокСкладов)");
        
        Запрос.УстановитьПараметр("Контрагент", Контрагент);    
        Запрос.Текст = ТекстЗапросаОстатки;
    ИначеЕсли ВыгрузитьОстатки = 1 Тогда //по документам за период
        ТекстЗапросаОбороты = СтрЗаменить(ТекстЗапросаОбороты, "&УсловиеСклад", "Склад В (&СписокСкладов)");
        
        Запрос.УстановитьПараметр("ДатаНачала", Период.ДатаНачала);   
        Запрос.Текст = ТекстЗапросаОбороты;
    Иначе //Справочники
        ТекстЗапросаОстатки = СтрЗаменить(ТекстЗапросаОстатки, "&УсловиеСклад", "");
        
        Запрос.УстановитьПараметр("Контрагент", Справочники.Контрагенты.ПустаяСсылка());    
        Запрос.Текст = ТекстЗапросаОстатки;
    КонецЕсли;
    Запрос.УстановитьПараметр("ДатаОкончания", ?(ВыгрузитьОстатки=0, КонецДня(ТекущаяДата()+1), Период.ДатаОкончания));
    Запрос.УстановитьПараметр("СписокСкладов", ПараметрыОтбора.СписокСкладов);
    
    Запрос.Текст = Запрос.Текст+
        "
        |////////////////////////////////////////////////////////////////////////////////
        |//1. ИЕРАРХИЯ НОМЕНКЛАТУРЫ
        |ВЫБРАТЬ РАЗЛИЧНЫЕ
        |   ПРЕДСТАВЛЕНИЕССЫЛКИ(ВТ_Остатки.Номенклатура) КАК NAME,
        |   ВТ_Остатки.Номенклатура.Код КАК GUID,
        |   ВТ_Остатки.Номенклатура.Родитель.Код КАК PARENTGUID,
        |   ВТ_Остатки.Номенклатура КАК Номенклатура
        |ИЗ
        |   ВТ_Остатки КАК ВТ_Остатки
        |ИТОГИ ПО
        |   Номенклатура ТОЛЬКО ИЕРАРХИЯ
        |АВТОУПОРЯДОЧИВАНИЕ
        |;
        |
        |////////////////////////////////////////////////////////////////////////////////
        |//2. НОМЕНКЛАТУРА
        |ВЫБРАТЬ
        |   спрНоменклатура.Код КАК GUID,
        |   спрНоменклатура.Наименование КАК NAME,
        |   спрНоменклатура.БазоваяЕдиницаИзмерения.Наименование КАК BASEUNITNAME,
        |   спрНоменклатура.Родитель.Код КАК GROUPGUID,
        |   спрНоменклатура.НаименованиеПолное КАК FULLNAME,
        |   спрНоменклатура.Артикул КАК CODE
        |ИЗ
        |   ВТ_Остатки КАК ВТ_Остатки
        |       ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК спрНоменклатура
        |       ПО ВТ_Остатки.Номенклатура = спрНоменклатура.Ссылка
        |;
        |
        |////////////////////////////////////////////////////////////////////////////////
        |//3-4. ЕД. ИЗМ./ШТРИХКОДЫ
        |ВЫБРАТЬ РАЗЛИЧНЫЕ
        |   ВложенныйЗапрос.ЕдиницаИзмерения.Код КАК GUID,
        |   ВложенныйЗапрос.ЕдиницаИзмерения.Наименование КАК NAME,
        |   ВложенныйЗапрос.Номенклатура.Код КАК MATERIALGUID,
        |   ВложенныйЗапрос.ЕдиницаИзмерения.Коэффициент КАК KOEFF,
        |   ВложенныйЗапрос.ЕдиницаИзмерения.Вес КАК WEIGHT,
        |   ВложенныйЗапрос.ЕдиницаИзмерения.Объем КАК VOLUME,
        |   Штрихкоды.Штрихкод КАК BARCODE
        |ИЗ
        |   (ВЫБРАТЬ
        |       ВТ_Остатки.Номенклатура КАК Номенклатура,
        |       ЕдиницыИзмерения.Ссылка КАК ЕдиницаИзмерения
        |   ИЗ
        |       ВТ_Остатки КАК ВТ_Остатки
        |           ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
        |           ПО ВТ_Остатки.Номенклатура = ЕдиницыИзмерения.Владелец) КАК ВложенныйЗапрос
        |       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
        |       ПО ВложенныйЗапрос.Номенклатура = Штрихкоды.Владелец
        |           И ВложенныйЗапрос.ЕдиницаИзмерения = Штрихкоды.ЕдиницаИзмерения
        |;
        |       
        |////////////////////////////////////////////////////////////////////////////////
        |//5. КОНТРАГЕНТЫ"+
        ?(ВыгрузитьОстатки <> 1,"
        |ВЫБРАТЬ
        |   Контрагенты.Код КАК GUID,
        |   Контрагенты.Представление КАК NAME
        |ИЗ
        |   Справочник.Контрагенты КАК Контрагенты
        |ГДЕ
        |   Контрагенты.Ссылка = &Контрагент
        |;
        |", "
        |ВЫБРАТЬ РАЗЛИЧНЫЕ
        |   ПРЕДСТАВЛЕНИЕ(ВТ_Остатки.Контрагент) КАК NAME,
        |   ВТ_Остатки.Контрагент.Код КАК GUID
        |ИЗ
        |ВТ_Остатки КАК ВТ_Остатки
        |;")+"
        |////////////////////////////////////////////////////////////////////////////////
        |//6. ОСТАТКИ ИЛИ ОБОРОТЫ"+
        ?(ВыгрузитьОстатки <= 0,ТекстЗапросаОстатки1
        ,ТекстЗапросаОбороты1);
                
    Возврат Запрос.ВыполнитьПакет();
    
КонецФункции
 
Функция ВыполнитьВыгрузку(Данные, Индекс = 1, ПараметрыОтбора) Экспорт
    
    Результат = Ложь;
    
    Если Индекс = 1 Тогда
# Область Справочники             
# Область ГруппыНоменклатуры
        
        Результат = ЗагрузитьНаСервер(ТекстЗапроса_ГруппыНоменклатуры(Данные[Индекс]), "processMaterialGroups");
        
        Если Результат Тогда
            ВыполнитьВыгрузку(Данные, Индекс + 1, ПараметрыОтбора)
        КонецЕсли;
#КонецОбласти //ГруппыНоменклатуры
    ИначеЕсли Индекс = 2 Тогда
# Область Номенклатура
        
        Результат = ЗагрузитьНаСервер(ТекстЗапроса_Номенклатура(Данные[Индекс]), "processMaterials");
        
        Если Результат Тогда
            ВыполнитьВыгрузку(Данные, Индекс + 1, ПараметрыОтбора)
        КонецЕсли;
#КонецОбласти //Номенклатура
    ИначеЕсли Индекс = 3 Тогда
# Область Единицы
        
        Результат = ЗагрузитьНаСервер(ТекстЗапроса_Единицы(Данные[Индекс]), "processMaterialUnits");
        
        Если Результат Тогда
            ВыполнитьВыгрузку(Данные, Индекс + 1, ПараметрыОтбора)
        КонецЕсли;
#КонецОбласти //Единицы
    ИначеЕсли Индекс = 4 Тогда
# Область Штрихкоды
 
        //Результат = ЗагрузитьНаСервер(ТекстЗапроса_Штрихкоды(Данные[Индекс-1]), "processUnitBarcodes");
        Результат = Истина; //ТЕСТ
 
        Если Результат Тогда
            ВыполнитьВыгрузку(Данные, Индекс + 1, ПараметрыОтбора)
        КонецЕсли;
#КонецОбласти //Штрихкоды
    ИначеЕсли Индекс = 5 Тогда
# Область Контрагенты
 
        Результат = ЗагрузитьНаСервер(ТекстЗапроса_Контрагенты(Данные[Индекс-1]), "processContractors");
        
        Если Результат Тогда
            ВыполнитьВыгрузку(Данные, Индекс+1, ПараметрыОтбора)
        КонецЕсли;
#КонецОбласти //Контрагенты
#КонецОбласти //Справочники
    ИначеЕсли Индекс = 6 Тогда
# Область ОстаткиДвижения
 
        ВыгрузитьОстатки = ПараметрыОтбора.РежимРаботы;
        Если ВыгрузитьОстатки = -1 Тогда //Выгружаем только справочники, документы и остатки пропускаем
            Возврат Истина;
        КонецЕсли;
            
        ОбходПоВидамДвижения = Данные[Индекс-1].Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам); //цикл по видам движения
        Пока ОбходПоВидамДвижения.Следующий() Цикл
            ОбходПоРегистратору = ОбходПоВидамДвижения.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам); // цикл по регистратору
            Если ОбходПоВидамДвижения.ВидДвижения = ВидДвиженияНакопления.Приход Тогда
                Пока ОбходПоРегистратору.Следующий() Цикл
                    Результат = ЗагрузитьНаСервер(ТекстЗапроса_ПланПоступления(ОбходПоРегистратору, ВыгрузитьОстатки), "processInboundPlan");
                КонецЦикла;
            Иначе
                Пока ОбходПоРегистратору.Следующий() Цикл
                    Результат = ЗагрузитьНаСервер(ТекстЗапроса_ПланОтгрузки(ОбходПоРегистратору, ВыгрузитьОстатки),    "processOutboundPlan");
                КонецЦикла;
            КонецЕсли;
        КонецЦикла;
            
#КонецОбласти //ОстаткиДвижения
    КонецЕсли;
    
    Возврат Результат;
КонецФункции
 
Функция ТекстЗапроса_ГруппыНоменклатуры(ТекущиеДанные)
    состояние("выгрузка ""Группы номенклатуры""");
    XMLТекст = Новый ЗаписьXML;
    XMLТекст.УстановитьСтроку("UTF-8");
    XMLТекст.ЗаписатьОбъявлениеXML();
    
    XMLТекст.ЗаписатьНачалоЭлемента("Dictionary");
    
    ВыборкаДетальныеЗаписи = ТекущиеДанные.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        XMLТекст.ЗаписатьНачалоЭлемента("MaterialGroup");
        XMLТекст.ЗаписатьАтрибут("Guid",        СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.Guid, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Name",        СокрЛП(ВыборкаДетальныеЗаписи.Name));
        XMLТекст.ЗаписатьАтрибут("PARENTGUID",  СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.PARENTGUID, "ЧГ="))));
        
        XMLТекст.ЗаписатьКонецЭлемента(); 
    КонецЦикла;   
    XMLТекст.ЗаписатьКонецЭлемента();
    XMLФайл = XMLТекст.Закрыть();
    
    Возврат XMLФайл;
КонецФункции
 
Функция ТекстЗапроса_Номенклатура(ТекущиеДанные)
    состояние("выгрузка ""Номенклатура""");
    XMLТекст = Новый ЗаписьXML;
    XMLТекст.УстановитьСтроку("UTF-8");
    XMLТекст.ЗаписатьОбъявлениеXML();
    
    XMLТекст.ЗаписатьНачалоЭлемента("Dictionary");
    
    ВыборкаДетальныеЗаписи = ТекущиеДанные.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        XMLТекст.ЗаписатьНачалоЭлемента("Material");
        XMLТекст.ЗаписатьАтрибут("Guid",        СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.GUID, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Name",        ВыборкаДетальныеЗаписи.Name);
        XMLТекст.ЗаписатьАтрибут("BaseUnitName",ВыборкаДетальныеЗаписи.BaseUnitName);
        //XMLТекст.ЗаписатьАтрибут("GroupGuid", СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.GROUPGUID, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Code",        ВыборкаДетальныеЗаписи.CODE);
        
        XMLТекст.ЗаписатьКонецЭлемента(); 
    КонецЦикла;   
    XMLТекст.ЗаписатьКонецЭлемента();
    XMLФайл = XMLТекст.Закрыть();
    
    Возврат XMLФайл;
КонецФункции
 
Функция ТекстЗапроса_Единицы(ТекущиеДанные)
    состояние("выгрузка ""Единицы имерения""");
    XMLТекст = Новый ЗаписьXML;
    XMLТекст.УстановитьСтроку("UTF-8");
    XMLТекст.ЗаписатьОбъявлениеXML();
    
    XMLТекст.ЗаписатьНачалоЭлемента("Dictionary");
    
    ВыборкаДетальныеЗаписи = ТекущиеДанные.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        XMLТекст.ЗаписатьНачалоЭлемента("MaterialUnit");
        XMLТекст.ЗаписатьАтрибут("Guid",        СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.GUID, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Name",        ВыборкаДетальныеЗаписи.Name);
        XMLТекст.ЗаписатьАтрибут("MaterialGuid",СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.MaterialGuid, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Koeff",       СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.Koeff, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Weight",      СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.Weight, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Volume",      СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.Volume, "ЧГ="))));
        Попытка
            XMLТекст.ЗаписатьАтрибут("Barcode",     СокрЛП(Строка(ВыборкаДетальныеЗаписи.BARCODE)));
        Исключение
            //XMLТекст.ЗаписатьАтрибут("Barcode",   "ERROR");
        КонецПопытки;
        
        XMLТекст.ЗаписатьКонецЭлемента(); 
    КонецЦикла;   
    XMLТекст.ЗаписатьКонецЭлемента();
    XMLФайл = XMLТекст.Закрыть();
    
    Возврат XMLФайл;
КонецФункции
 
Функция ТекстЗапроса_Штрихкоды(ТекущиеДанные)
    состояние("выгрузка ""Штрихкоды""");
    XMLТекст = Новый ЗаписьXML;
    XMLТекст.УстановитьСтроку("UTF-8");
    XMLТекст.ЗаписатьОбъявлениеXML();
    
    XMLТекст.ЗаписатьНачалоЭлемента("Dictionary");
    
    ВыборкаДетальныеЗаписи = ТекущиеДанные.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Если СокрЛП(Строка(ВыборкаДетальныеЗаписи.BARCODE)) = "" Тогда
            Продолжить;
        КонецЕсли;
        XMLТекст.ЗаписатьНачалоЭлемента("Barcode");
        XMLТекст.ЗаписатьАтрибут("Guid",        СокрЛП(Строка(ВыборкаДетальныеЗаписи.BARCODE)));
        Попытка
            XMLТекст.ЗаписатьАтрибут("Content",     СокрЛП(Строка(ВыборкаДетальныеЗаписи.BARCODE)));
        Исключение
            XMLТекст.ЗаписатьАтрибут("Content",     "ERROR");
        КонецПопытки;
        XMLТекст.ЗаписатьАтрибут("UnitGuid",    СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.GUID, "ЧГ="))));
        XMLТекст.ЗаписатьКонецЭлемента();
    КонецЦикла;   
    XMLТекст.ЗаписатьКонецЭлемента();
    XMLФайл = XMLТекст.Закрыть();
    
    Возврат XMLФайл;
КонецФункции
 
Функция ТекстЗапроса_Контрагенты(ТекущиеДанные)
    состояние("Выгрузка справочника: ""Контрагенты""");
    XMLТекст = Новый ЗаписьXML;
    XMLТекст.УстановитьСтроку("UTF-8");
    XMLТекст.ЗаписатьОбъявлениеXML();
    
    XMLТекст.ЗаписатьНачалоЭлемента("Dictionary");
    
    ВыборкаДетальныеЗаписи = ТекущиеДанные.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Если ВыборкаДетальныеЗаписи.GUID = Null Тогда
            Продолжить;
        КонецЕсли;
        XMLТекст.ЗаписатьНачалоЭлемента("Contractor");
        XMLТекст.ЗаписатьАтрибут("Guid",    СокрЛП(Строка(Формат(ВыборкаДетальныеЗаписи.GUID, "ЧГ="))));
        XMLТекст.ЗаписатьАтрибут("Name",    СокрЛП(Строка(ВыборкаДетальныеЗаписи.Name)));
        XMLТекст.ЗаписатьАтрибут("Code",    СокрЛП(Строка(ВыборкаДетальныеЗаписи.Name)));
        XMLТекст.ЗаписатьКонецЭлемента();
    КонецЦикла;   
    XMLТекст.ЗаписатьКонецЭлемента();
    XMLФайл = XMLТекст.Закрыть();
    
    Возврат XMLФайл;
КонецФункции
 
Функция ТекстЗапроса_ПланПоступления(ТекущиеДанные, ВыгрузитьОстатки)
    состояние("Выгрузка документов ""Приход""");
    XMLТекст = Новый ЗаписьXML;
    XMLТекст.УстановитьСтроку("UTF-8");
    XMLТекст.ЗаписатьОбъявлениеXML();
    
    ОбходПоРегистратору = ТекущиеДанные;
    
    XMLТекст.ЗаписатьНачалоЭлемента("InboundPlan");
    XMLТекст.ЗаписатьАтрибут("Guid",        СокрЛП(Строка(ОбходПоРегистратору.Guid)));
    XMLТекст.ЗаписатьАтрибут("Date",        Формат(ОбходПоРегистратору.Date,"ДФ=dd.MM.yyyy"));
    XMLТекст.ЗаписатьАтрибут("DocNumber",   СокрЛП(Строка(ОбходПоРегистратору.DocNumber)));
    XMLТекст.ЗаписатьАтрибут("Comment",     ?(ВыгрузитьОстатки=0,"ВВОД ОСТАТКОВ", СокрЛП(ОбходПоРегистратору.Регистратор)));
    
    СтрокаДокумента = ОбходПоРегистратору.Выбрать();
    НомерСтроки = 0;
    Пока СтрокаДокумента.Следующий() Цикл
        НомерСтроки = НомерСтроки + 1;
        ТекНомерСтроки = ?(ВыгрузитьОстатки=0, НомерСтроки, СтрокаДокумента.Position);
        
        XMLТекст.ЗаписатьНачалоЭлемента("PlanRow");
        XMLТекст.ЗаписатьАтрибут("Position",        Строка(Формат(ТекНомерСтроки,                  "ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("MaterialGuid",    Строка(Формат(СтрокаДокумента.MaterialGuid,  "ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("Quantity",        Строка(Формат(СтрокаДокумента.QUANTITY,   "ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("UnitGuid",        Строка(Формат(СтрокаДокумента.UnitGuid,   "ЧГ=")));
        КонтрагентИД = ?(СтрокаДокумента.ContractorGuid = Null, Контрагент.Код, Строка(Формат(СтрокаДокумента.ContractorGuid,"ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("ContractorGuid",  КонтрагентИД);
        XMLТекст.ЗаписатьКонецЭлемента();
    КонецЦикла;
    XMLТекст.ЗаписатьКонецЭлемента();
 
    XMLФайл = XMLТекст.Закрыть();
    
    Возврат XMLФайл;
КонецФункции
 
Функция ТекстЗапроса_ПланОтгрузки(ТекущиеДанные, ВыгрузитьОстатки)
    состояние("Выгрузка документов ""Расход""");
    XMLТекст = Новый ЗаписьXML;
    XMLТекст.УстановитьСтроку("UTF-8");
    XMLТекст.ЗаписатьОбъявлениеXML();
    
    ОбходПоРегистратору = ТекущиеДанные;
    
    XMLТекст.ЗаписатьНачалоЭлемента("OutboundPlan");
    XMLТекст.ЗаписатьАтрибут("Guid",              СокрЛП(Строка(ОбходПоРегистратору.Guid)));
    XMLТекст.ЗаписатьАтрибут("Date",              Формат(ОбходПоРегистратору.Date,"ДФ=dd.MM.yyyy"));
    XMLТекст.ЗаписатьАтрибут("DocNumber",         СокрЛП(Строка(ОбходПоРегистратору.DocNumber)));
    XMLТекст.ЗаписатьАтрибут("Comment",           ?(ВыгрузитьОстатки=0,"ВВОД ОСТАТКОВ", СокрЛП(ОбходПоРегистратору.Регистратор)));
    XMLТекст.ЗаписатьАтрибут("ContractorGuid",    ?(СокрЛП(Контрагент.Код)="","123456789",Контрагент.Код));
    //XMLТекст.ЗаписатьАтрибут("IsAutoCreateOrder", "true");
    
    СтрокаДокумента = ОбходПоРегистратору.Выбрать();
    НомерСтроки = 0;
    Пока СтрокаДокумента.Следующий() Цикл
        НомерСтроки = НомерСтроки + 1;
        ТекНомерСтроки = ?(ВыгрузитьОстатки=0, НомерСтроки, СтрокаДокумента.Position);
        
        XMLТекст.ЗаписатьНачалоЭлемента("PlanRow");
        XMLТекст.ЗаписатьАтрибут("Position",        Строка(Формат(ТекНомерСтроки,                  "ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("MaterialGuid",    Строка(Формат(СтрокаДокумента.MaterialGuid,  "ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("Quantity",        Строка(Формат(СтрокаДокумента.QUANTITY,   "ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("UnitGuid",        Строка(Формат(СтрокаДокумента.UnitGuid,   "ЧГ=")));
        XMLТекст.ЗаписатьАтрибут("StockTypeCode",   "FREE");
        //XMLТекст.ЗаписатьАтрибут("UnitGuid",      Строка(Формат(СтрокаДокумента.UnitGuid,   "ЧГ=")));
        XMLТекст.ЗаписатьКонецЭлемента();
    КонецЦикла;
    XMLТекст.ЗаписатьКонецЭлемента();
 
    XMLФайл = XMLТекст.Закрыть();
    
    Возврат XMLФайл;
КонецФункции
 
Функция ЗагрузитьНаСервер(Тело, Служба)
    Результат = Истина;
    //Возврат Результат;
    
    ФайлОтвет = КаталогВременныхФайлов()+"Result.xml";
    
    Соединение = Новый HTTPСоединение(Сервер, Порт,,,,,);
        
    АдресРесурса = "/exchangeStandart/js:"+Служба;                                            
        
    HTTPЗапрос = Новый HTTPЗапрос(АдресРесурса);
    HTTPЗапрос.Заголовки.Вставить("Accept", "application/xml");
    HTTPЗапрос.Заголовки.Вставить("Content-Type", 
        "text/xml;charset=""utf-8"";action=""[Integration.InboundParam1]#[Integration.InboundParam2]:[Integration.InboundParam3]""");
    HTTPЗапрос.УстановитьТелоИзСтроки(Тело); //Запрос);
    HTTPОтвет = Соединение.ОтправитьДляОбработки(HTTPЗапрос, ФайлОтвет); //POST
 
    Если HTTPОтвет.КодСостояния <> 200 Тогда
        //если сервер BIGLit совсем не отвечает
        Возврат Результат = Ложь;
    КонецЕсли; 
    
    ВыбФайл = Новый Файл(ФайлОтвет);
    Если ВыбФайл.Размер() <> 0 Тогда
        Результат = ПрочитатьФайлОтвета(ФайлОтвет);
    КонецЕсли;
    
    Если Не Результат Тогда
        ВывестиОписаниеОшибки(ФайлОтвет);
    КонецЕсли;
    
    Возврат Результат;
КонецФункции     
 
Процедура ВывестиОписаниеОшибки(ФайлОтвет)
    ФормаОшибки = ПолучитьФорму("ФормаОшибки",, ЭтотОбъект);
    ФормаОшибки.ФайлОписанияОшибки = ФайлОтвет;
    ФормаОшибки.Открыть();
КонецПроцедуры
 
Функция ПрочитатьФайлОтвета(ФайлОтвета)
    XMLТекст = Новый ЧтениеXML;
    XMLТекст.ОткрытьФайл(ФайлОтвета);
    
    Результат = Ложь;
    
    Попытка
        Пока XMLТекст.Прочитать() Цикл
            Если XMLТекст.Имя = "DOCUMENT" Тогда               
                Если XMLТекст.ПолучитьАтрибут("STATUS") = "OK" Тогда
                    Результат = Истина;
                КонецЕсли;
            Иначе
                //Сообщить(ФайлОтвета);
            КонецЕсли;
        КонецЦикла;
    Исключение
    КонецПопытки;
    
    Возврат Результат;
КонецФункции
 
Процедура СохранитьНастройки() Экспорт
    СтруктураПараметров = Новый Структура;
    Для Каждого Реквизит Из ЭтотОбъект.Метаданные().Реквизиты Цикл
        СтруктураПараметров.Вставить(Реквизит.Имя, ЭтотОбъект[Реквизит.Имя]);
    КонецЦикла;
    Для Каждого ТЧ Из ЭтотОбъект.Метаданные().ТабличныеЧасти Цикл
        СтруктураПараметров.Вставить(ТЧ.Имя, ЭтотОбъект[ТЧ.Имя].Выгрузить());
    КонецЦикла;
    
    СохранитьЗначение(ЭтотОбъект.Метаданные().Имя, СтруктураПараметров);
КонецПроцедуры    
 
Процедура ВосстановитьНастройки() Экспорт
    СтруктураПараметров = ВосстановитьЗначение(ЭтотОбъект.Метаданные().Имя);
    
    Попытка
        Если СтруктураПараметров <> Неопределено Тогда
            Для Каждого Реквизит Из СтруктураПараметров Цикл
                Если ТипЗнч(Реквизит.Значение) = Тип("ТаблицаЗначений") Тогда
                    ЭтотОбъект[Реквизит.Ключ].Загрузить(Реквизит.Значение);
                Иначе
                    ЭтотОбъект[Реквизит.Ключ] = Реквизит.Значение;
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
    Исключение
    КонецПопытки;
КонецПроцедуры

Запрос.УстановитьПараметр("ДатаНачала", Период.ДатаНачала);
Запрос.УстановитьПараметр("ДатаОкончания", ?(ВыгрузитьОстатки=0, КонецДня(ТекущаяДата()+1), Период.ДатаОкончания));

ВЫБРАТЬ номенклатура 
ИЗ РегистрНакопления.ВнутренниеЗаказы

спрНоменклатура.Код КАК GUID,
    спрНоменклатура.Наименование КАК NAME,
    спрНоменклатура.БазоваяЕдиницаИзмерения.Наименование КАК BASEUNITNAME,
    спрНоменклатура.Родитель.Код КАК GROUPGUID,
    спрНоменклатура.НаименованиеПолное КАК FULLNAME,
    спрНоменклатура.Артикул КАК CODE

    ВложенныйЗапрос.GUID КАК GUID,
    ВложенныйЗапрос.DOCNUMBER КАК DOCNUMBER,
    ВложенныйЗапрос.DATE КАК DATE,
    ВложенныйЗапрос.НомерСтроки КАК Position,
    ВложенныйЗапрос.MATERIALGUID КАК MATERIALGUID,
    ВложенныйЗапрос.UNITGUID КАК UNITGUID,
    ВложенныйЗапрос.Количество КАК Quantity,
    ВложенныйЗапрос.КонтрагентКод КАК ContractorGuid

ВложенныйЗапрос.GUID КАК GUID,
    ВложенныйЗапрос.DOCNUMBER КАК DOCNUMBER,
    ВложенныйЗапрос.DATE КАК DATE,
    ВложенныйЗапрос.НомерСтроки КАК Position,
    ВложенныйЗапрос.MATERIALGUID КАК MATERIALGUID,
    ВложенныйЗапрос.UNITGUID КАК UNITGUID,
    ВложенныйЗапрос.Количество КАК Quantity,
    ВложенныйЗапрос.КонтрагентКод КАК ContractorGuid