- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
Запрос = Новый Запрос;
Запрос.Текст =
"текст запроса не важен...";
Запрос.УстановитьПараметр("Заказ", Заказ);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.Версия = 0 Тогда
Версия = "0";
Иначе
Версия = Выборка.Версия;
КонецЕсли;
ИмяФайла = "\\eskoautomation\HotFolders\zakaz\" +Выборка.НомерЗаказа+"_"+Версия+".xml";
Файл = Новый ЗаписьXML;
Файл.ОткрытьФайл(ИмяФайла);
Файл.ЗаписатьНачалоЭлемента("Главный");
Файл.ЗаписатьНачалоЭлемента("НомерЗаказа");
ЗаписатьXML(Файл,Выборка.НомерЗаказа);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("Версия");
ЗаписатьXML(Файл,Выборка.Версия);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("Контрагент");
ЗаписатьXML(Файл,Выборка.Контрагент);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ТипЗаказа");
ЗаписатьXML(Файл,Выборка.ТипЗаказа);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ВидЗаказа");
ЗаписатьXML(Файл,Выборка.ВидЗаказа);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ТипРЦ");
ЗаписатьXML(Файл,Выборка.ТипРЦ);
Файл.ЗаписатьКонецЭлемента();
РабочийЦентр = Выборка.РабочийЦентр;
Если Не ЗначениеЗаполнено(РабочийЦентр) Тогда
Отбор = Новый Структура;
Отбор.Вставить("НомерПроката", 1);
Отбор.Вставить("Номерварианта", Выборка.НомерВарианта);
строки = Выборка.Спецификация.ВидыРабот.НайтиСтроки(Отбор);
Если строки<>Неопределено Тогда
РабочийЦентр = строки[0].рабочийЦентр.порядковыйномер;
КонецЕсли;
КонецЕсли;
Файл.ЗаписатьНачалоЭлемента("РабочийЦентр");
ЗаписатьXML(Файл,РабочийЦентр);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ОсновнойМатериал");
ЗаписатьXML(Файл,Выборка.ОсновнойМатериал);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("Штамп");
ЗаписатьXML(Файл,Выборка.Штамп);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ЭтикетокНаЛисте");
ЗаписатьXML(Файл,Выборка.ЭтикетокНаЛисте);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("Нарезка");
ЗаписатьXML(Файл,Выборка.Нарезка);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("Ручьи");
ЗаписатьXML(Файл,Выборка.Ручьи);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("Z");
ЗаписатьXML(Файл,Выборка.Z);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ШагПечати");
ЗаписатьXML(Файл,Выборка.ШагПечати);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ДлинаЭтикетки");
ЗаписатьXML(Файл,Выборка.ДлинаЭтикетки);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ШиринаЭтикетки");
ЗаписатьXML(Файл,Выборка.ШиринаЭтикетки);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ДлинаКонтрЭтикетки");
ЗаписатьXML(Файл,Выборка.ДлинаКонтрЭтикетки);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ДлинаКольеретки");
ЗаписатьXML(Файл,Выборка.ДлинаКольеретки);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ШиринаКонтрЭтикетки");
ЗаписатьXML(Файл,Выборка.ШиринаКонтрЭтикетки);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ШиринаКольеретки");
ЗаписатьXML(Файл,Выборка.ШиринаКольеретки);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ШиринаПоНожам");
ЗаписатьXML(Файл,Выборка.ШиринаПоНожам);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуРучьями");
ЗаписатьXML(Файл,Выборка.ИнтервалМеждуРучьями);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуЭтикетками");
ЗаписатьXML(Файл,Выборка.ИнтервалМеждуЭтикетками);
Файл.ЗаписатьКонецЭлемента();
Файл.ЗаписатьНачалоЭлемента("Комментарий");
ЗаписатьXML(Файл,Заказ.Комментарий);
Файл.ЗаписатьКонецЭлемента();
А вот так мы выгружаем XML. Можно конечно было бы пройтись циклом по колонкам выборки или таблицы значений, но зачем?! Зачем, когда можно написать лишних 300 строчек. Я соду с ума.
guest 27.02.2016 15:34 # 0
ivan_0110 18.03.2016 11:41 # 0
Такой запрос сюда никто не вставит, т.к. сложно оценить все Г.
Хочешь накласть - клади качественно!
guest 01.04.2016 16:00 # 0
guest 13.05.2016 10:36 # 0
Если строки<>Неопределено Тогда
Тупо ошибка в коде, "строки" - это массив!
А вообще гавно !