кое-как собрал запрос, а как его выгрузить в формат .xml не знаю, помогите пжлста...
| 1C |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
| //запрос
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Товар = Регистр.ОстаткиТоваров.Товар;
|Склад = Регистр.ОстаткиТоваров.Склад;
|ОстатокТовара = Регистр.ОстаткиТоваров.ОстатокТовара;
|ЕдиницаПоУмолчанию = Регистр.ОстаткиТоваров.Товар.ЕдиницаПоУмолчанию;
|Функция ОстатокТовараКонОст = КонОст(ОстатокТовара);
|Группировка Месяц;
|Группировка Склад;
|Группировка Товар;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Месяц
Таб.ВывестиСекцию("Месяц");
Пока Запрос.Группировка(2) = 1 Цикл
// Заполнение полей Склад
Таб.ВывестиСекцию("Склад");
Пока Запрос.Группировка(3) = 1 Цикл
// Заполнение полей Товар
Таб.ВывестиСекцию("Товар");
КонецЦикла;
КонецЦикла;
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
ВыбНачПериода = ДобавитьМесяц(ТекущаяДата(), -24, );
ВыбКонПериода = ТекущаяДата();
//дальше типа надо выгрузить это в формат .xml
Процедура Выполнить()
Если
Загрузить ВнешнююКомпоненту(КаталогПрограммы()+”v7plus.dll”)<>1
Тогда
Предупреждение (”Компонента не обнаружена”);
Возврат;
КонецЕсли;
Анализатор=СоздатьОбъект(”AddIn.XMLParser”);
Корень=Анализатор.СоздатьДокумент();
//данные
ОстаткиТоваров=Корень.СоздатьПодчиненныйЭлемент(“Остатки товаров”); |
|
//дальше никак не могу
(
