Сохранение таблицы значений в XML
ДанныеНакладной = Новый ТаблицаЗначений();
ДанныеНакладной.Колонки.Добавить("НоменклатураАртикул");
ДанныеНакладной.Колонки.Добавить("Количество");
ДанныеНакладной.Колонки.Добавить("Цена");
Для Каждого Стр Из Товары Цикл
Если Стр.Номенклатура.Артикул = "" Тогда
Сообщить ("Внимание! В номенклатуре " + Стр.Номенклатура + " не определен артикул.");
Иначе
СтрокаТЗ = ДанныеНакладной.Добавить();
СтрокаТЗ.НоменклатураАртикул = Стр.Номенклатура.Артикул;
СтрокаТЗ.Количество = Стр.Количество;
СтрокаТЗ.Цена = Стр.Цена;
КонецЕсли;
КонецЦикла;
Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
XML = Новый ЗаписьXML;
ИмяФайла = "" + КРВ_ВспомогательныеФункции.УбратьНули(Номер)
+ " - " + КРВ_ВспомогательныеФункции.УбратьНедопустимыеСимволы(Контрагент);
XML.ОткрытьФайл("d:\1C_DATA\ОБМЕН\" + ИмяФайла + ".xml");
Сериализатор.ЗаписатьXML(XML, ДанныеНакладной);
ДанныеНакладной = Новый ТаблицаЗначений();
ДанныеНакладной.Колонки.Добавить("НоменклатураАртикул");
ДанныеНакладной.Колонки.Добавить("Количество");
ДанныеНакладной.Колонки.Добавить("Цена");
Для Каждого Стр Из Товары Цикл
Если Стр.Номенклатура.Артикул = "" Тогда
Сообщить ("Внимание! В номенклатуре " + Стр.Номенклатура + " не определен артикул.");
Иначе
СтрокаТЗ = ДанныеНакладной.Добавить();
СтрокаТЗ.НоменклатураАртикул = Стр.Номенклатура.Артикул;
СтрокаТЗ.Количество = Стр.Количество;
СтрокаТЗ.Цена = Стр.Цена;
КонецЕсли;
КонецЦикла;
Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
XML = Новый ЗаписьXML;
ИмяФайла = "" + КРВ_ВспомогательныеФункции.УбратьНули(Номер)
+ " - " + КРВ_ВспомогательныеФункции.УбратьНедопустимыеСимволы(Контрагент);
XML.ОткрытьФайл("d:\1C_DATA\ОБМЕН\" + ИмяФайла + ".xml");
Сериализатор.ЗаписатьXML(XML, ДанныеНакладной);
Недостаточно рейтинга для добавления отрицательного голоса. Шаблон будет скрыт из ваших результатов поиска.
FastCode - сервис для программистов 1С