Такая вот задачка нарисовалась. Это самая простая.
Прошу подсказать алгоритм, как пилить.

Ну как бы по части сбора данных из 1с все понятно, а вот во что собирать и как потом формировать файл заданной структуры ?

Ну, определить поля какие, шапки там мапки и выгрузить собранные данные в файл и записать.

Намекните как или почитать чего пните. В райкоме сегодня ликбез.
Сапасибо.

ПС. Оффтоп. А шо, цукины дети, белый свет то пропили как положено ?? КОнца то небыло, процта в глазах потемнело ? А то я все пропустил, тока на мисте и узнал, что тут такое ... Ну думаю вы не прозевали.

ЗагрузитьВнешнююКомпоненту("v7plus.dll");
Анализатор = СоздатьОбъект("AddIn.XMLParser");
xml_Корень=Анализатор.СоздатьДокумент();
xml_Данные =xml_Корень.СоздатьПодчиненныйЭлемент("Данные");
xml_Данные.УстановитьАтрибут("Фирма",стрФирма);
xml_Документы=xml_Данные.СоздатьПодчиненныйЭлемент("Документы");
xml_ТекДок=xml_Документы.СоздатьПодчиненныйЭлемент("Поступление");
xml_ТекДок.Значение="ПоступлениеТоваровУслуг";
xml_ТекДок.УстановитьАтрибут("Дата",""+ТекДок.ДатаДок);
...
xml_Корень.Записать(ИмяНачКаталога+ИмяФайла);

http://help1c.com/faq/view/547.html

Ага. Спасибо. Оказывается я и на половину неправильно представлял. Хы хы.

(2)Ну пока вроде все понятно. Спасибо.

Серия вторая.

Вопщем слепил вот такое

Процедура Выполнить()
   Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll")<>1 Тогда
       Предупреждение("Компонента не обнаружена");
       Возврат;
   КонецЕсли;
   Анализатор=СоздатьОбъект("AddIn.XMLParser");
   Корень=Анализатор.СоздатьДокумент();
   ДанныеXML = Корень.СоздатьПодчиненныйЭлемент("root");
   Для Сч1 = 1 По 3 Цикл
       Ветка = ДанныеXML.СоздатьПодчиненныйЭлемент("Данные" + Сч1);
       Ветка.УстановитьАтрибут("Дата", ТекущаяДата());
       Ветка.УстановитьАтрибут("Время", ТекущееВремя());
       Для Сч2 = 1 По 5 Цикл
           Элемент = Ветка.СоздатьПодчиненныйЭлемент("Элемент" + Сч2);
           Элемент.Значение = "Значение" + Сч2;
       КонецЦикла;
   КонецЦикла;  
   
   Корень.Записать(КаталогПрограммы()+"L.xml");
   Сообщить(КаталогПрограммы());
   Предупреждение("ОК");
КонецПроцедуры

Но оно не создает файл.
Собщать сообщает, подверждать "ОК" просит, но нифига не создает.

Наведите на мысль ?

\

Освой лучше КД2, там все на порядок проще будет.

(7) ээээ.... и как в КД2 в имеющийся файл XML (например, заявка покупателя) впихнуть дополнительные тэги-подтверждения отгрузки для исходных строк заявки...?

(6)Сижу втыкаю, в сие краткое послание. Пока не постиг. Но чую смысл есть.
(7)КД2 сильно отличается от КД ? Я в какой то ваял выгрузки и переносы, только не помню, КД2 иои просто КД

Но ифайл ХМЛ структура нужа заданная
(8)Ну вот примерно да, как

(6):DD Ага щас попробую. Доперло

(5) если работа с файлом - последовательная, я не заморачиваюсь а тупо пишу текстовый файл
.
//******************************************************************************
Процедура Выгрузить()
   
   ТекстВыгрузкиДанных = СоздатьОбъект("Текст");
   стр = "<?xml version=""1.0"" encoding=""utf-8""?>";
   стр = глПреобразоватьСтрокуВUTF8(стр);
   ТекстВыгрузкиДанных.ДобавитьСтроку(стр);

   стр = "<!-- типакоммент, [email protected] -->";
   стр = глПреобразоватьСтрокуВUTF8(стр);
   ТекстВыгрузкиДанных.ДобавитьСтроку(стр);

   стр = "<!-- офис (495) **-**-*** -->";
   стр = глПреобразоватьСтрокуВUTF8(стр);
   ТекстВыгрузкиДанных.ДобавитьСтроку(стр);

   стр = "<!-- выгружено "+ТекущаяДата()+" "+ТекущееВремя()+" -->";
   стр = глПреобразоватьСтрокуВUTF8(стр);
   ТекстВыгрузкиДанных.ДобавитьСтроку(стр);
   
   стр = "<Root>";
   стр = глПреобразоватьСтрокуВUTF8(стр);
   ТекстВыгрузкиДанных.ДобавитьСтроку(стр);
   
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ВыбДокумент.ВыгрузитьТабличнуюЧасть(ТЗ,"Номенклатура");
   ТЗ.Свернуть("Номенклатура",);

   стр = "  <GoodsList>";
   стр = глПреобразоватьСтрокуВUTF8(стр);
   ТекстВыгрузкиДанных.ДобавитьСтроку(стр);
   
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1
   Цикл
       
       Наименование        = глБВК_НормализоватьСтроку(СокрЛП(ТЗ.Номенклатура.Наименование),"/\""'<>&","");
       ПолноеНаименование    = глБВК_НормализоватьСтроку(СокрЛП(ТЗ.Номенклатура.ПолнНаименование),"/\""'<>&","");
       ШтрихКод = СокрЛП(ТЗ.Номенклатура.БазоваяЕдиница.ШтрихКод);
       
       стр = "    <GoodsItem Article="""+Артикул+""" Name="""+Наименование+""" FullName="""+ПолноеНаименование+""" Status="""+Статус+""" BarCode="""+ШтрихКод+""" />";
       стр = глПреобразоватьСтрокуВUTF8(стр);
       ТекстВыгрузкиДанных.ДобавитьСтроку(стр);
       
   КонецЦикла;
   
   стр = "  </GoodsList>";
   стр = глПреобразоватьСтрокуВUTF8(стр);
   ТекстВыгрузкиДанных.ДобавитьСтроку(стр);
/
ну и т.д.

(8) Легко

(6)
Так надо было ?
Корень.Записать(КаталогПрограммы()+"/L.xml");

попробовал, результат тот же.

(12) Коакое красивое и ёмкое слово.. ;-0

(13) функция уже возвращает со слешем

(13) в другую сторону слэш

(15)Да, к стати. Сообщение показывает путь со слешем.

Попробуй заменить
Корень.Записать(КаталогПрограммы()+"L.xml");
на
Корень.Записать(КаталогИБ()+"L.xml");

(18) возможно..
ФС в 1ске никаких сообщенйи при отсутсвии прав не дает.. успешно выполянется, а вместе назначения - нуль...

(18)(19):DDD
Получилось.
Пока спасибо. Но думаю ненадолго )

Серия третья. Подскажите, какие методы использованиы при организации вот такой конструкции ?

<?xml version="1.0" encoding="UTF-8"?>
-<request>-<entities>-<entity>-<attributes><attribute name="distribId">DT0000024</attribute><attribute <attribute name="dateLoad">23.08.2012</attribute></attributes></entity></entities></request>

Апну.

Тут вот получьше код видно наверно будет.
Какие методы использованиы ?

<?xml version="1.0" encoding="UTF-8"?>
-<request>
-<entities>
 -<entity>
  -<attributes>
     <attribute name="distribId">DT0000024</attribute>
   </attributes>
  </entity>
 </entities>
</request>

(0) у тебя ТиС? там есть выгрузка в формате CommerceML, как раз то, что надо.. по крайней мере, как пример.

я её переделывал, чтобы выгружать на сайт, вполне адекватная.

Не, у меня БП 2.0
Щас гляну.

Вот меня кроет ... ТиС у меня :)

(23)Ума не хватает раскурить там вапрой. Вычислил только процедуру которой атрибут устанавливается, но не понятно, как она с другими узлами ветками связана.

(26) ты вот эту обработку смотришь?
XMLВыгрузкаКоммерческихПредложений

ага

(26) я вначале анализировал (долго-долго! :) ) то, что выгружается, потом переделывал под себя..
вернее, под директора и веб-программиста.. он тоже с капризами был.
а основную схему не дорабатывал..
жаль, видимо помочь не смогу, в хмл я не силен..

а там точно
-<request> в исходном xml?
В принципе, тема такая:
   мЗаписьXML.ОткрытьЭлемент("request");
   мЗаписьXML.ОткрытьЭлемент("entities");
   мЗаписьXML.ОткрытьЭлемент("attributes");
   мЗаписьXML.ОткрытьЭлемент("attribute");
   мЗаписьXML.УстановитьАтрибут("name", "distribId");
   мЗаписьXML.ЗакрытьЭлемент();
   мЗаписьXML.ЗакрытьЭлемент();
   мЗаписьXML.ЗакрытьЭлемент();
   мЗаписьXML.ЗакрытьЭлемент();

Попытка
       XMLАнализатор =    СоздатьОбъект("AddIn.XMLParser");
   Исключение
       ////////////////////////////////////////////////////////////////////////////////////////////////////
       //    Поиск внешней компоненты V7Plus.dll
       
       СписокВозможныхМест    =    СоздатьОбъект("СписокЗначений");
       СписокВозможныхМест.ДобавитьЗначение(КаталогПрограммы()            + "v7plus.dll");
       СписокВозможныхМест.ДобавитьЗначение(КаталогИБ()                + "v7plus.dll");
       СписокВозможныхМест.ДобавитьЗначение(КаталогИБ() + "ExtForms\"    + "v7plus.dll");
       
       КомпонентаV7plus =    НайтиПервыйСуществующийФайл(СписокВозможныхМест);
       
       Если ЗагрузитьВнешнююКомпоненту(КомпонентаV7plus) <> 1    Тогда
           Предупреждение("Компонента v7plus.dll не найдена!");
           СтатусВозврата(0);    Возврат;
       КонецЕсли;
       
       XMLАнализатор =    СоздатьОбъект("AddIn.XMLParser");
       
   КонецПопытки;    
   
   Если Число(XMLАнализатор.ВерсияАнализатора) < 2 Тогда
       Предупреждение("Для работы с программой необходимо обновить внешнюю компоненту v7plus.dll!");
       Возврат;
   КонецЕсли;
   
   
   Если ОтправитьНоменклатуру = 1 Тогда
       НоменклатураXML = XMLАнализатор.СоздатьДокумент();
       НоменклатураXML.ЗагрузитьИзСтроки("<?xml version=""1.0"" encoding=""windows-1251"" ?>
                       |<Файл Отправитель= ""1С"" Получатель=""ВЭБ Регистратор"" ВерсФорм=""1.01"">
                       |</Файл>");
       ЭлДок = НоменклатураXML.ЭлементДокумента;

(30)Да. Один в один. А как кодировку устанавливать ? А то одинестина по умолчанию WINDOWS-1251 ставит в заголовке.

И еще, в исходном файле есть вот такая штука - <attribute name="dist...

Дак вот у меня метод УстановитьАтрибут ругается на такую строку имени, только на целую строку не ругается

attributes.УстановитьАтрибут("attribute name", ТекущаяДата());
{E:\BASE1C\BASE1C77\TRD974\L_XML.ERT(56)}: : Ошибка исполнения метода

attributes.УстановитьАтрибут("attribute name", Строка(ТекущаяДата())); // не так? :)

(32)  мЗаписьXML.ОткрытьЭлемент("attribute");
   мЗаписьXML.УстановитьАтрибут("name", Формат(ТекущаяДата(), "ДФ=yyyyMMdd"));
   мЗаписьXML.ЗакрытьЭлемент();
а така?

(33)Ругается на аттрибут наме. Ставишь подчеркивание вместо пробела - все ОК.
(34)Кстати может да. Щас попытаю

Извиняюсь. Отойду. Посона кормить.

всё это гадание на кофейной..
надо еще-бы узнать, в каком формате приемник кушает дату..
но "ДФ=yyyyMMdd" - кажется правильным

(37)Да не на дату он ругается, емае. А на ("attribute name", с пробелом. Пробел убираешь - все норм.

(38) глянь в (34) там нет пробела вообще

(38) attribute - это элемент
а name - его атрибут
в моем коде написано же:
   мЗаписьXML.ОткрытьЭлемент("attribute");
   мЗаписьXML.УстановитьАтрибут("name", "distribId");
   мЗаписьXML.ЗакрытьЭлемент();

(32) В (31) Самый элементарный и понятный код

+ (41) Работаешь с объектом, а не с текстом

(34)>мЗаписьXML.ОткрытьЭлемент("attribute");

А что перед этим ?
СоздатьПодчиненныйЭлемент ?

А то ошибка >Поле агрегатного объекта не обнаружено (ОткрытьЭлемент

(40)аГА, ЭТО ПОНЯЛ

в 7-ка насколько помню v7plus.dll + работа с ХМЛ глючит где то там :)
Поэтому лучше пиши просто в текст.xml, по времени написания думаю и понятней и попроще будет.

(40)нО НЕ СОВСЕМ ПОНЯЛ.
мЗаписьXML - ЭТО ЧТО ТАКОЕ ? Документ ?

У меня метод ОткрытьЭлемент("attribute"); Не работает. Говорить не найдено поле агрегатного объекта "ОткрытьЭлемент"
Перепробовал все объекты от корня. Ни в какую.
Давай червонец еще, начальник. Керасинка нужна ...

Алле, граждане, кто нибудь подскажет в какой конструкции корректно применять метод "ОткрытьЭлемент" ?

Что перед этим то надо ? Документ создать или последовательнозаписываемыйдокумент ?

Или подчиненный элемент сздать ??

Сам никак додуматься не могу.

(47) См (31)

Прпытка 33я. ПАцледняя.

Уточняю вопрос. Как получить ы ХМЛ файл запись такого вида ?

<attribute name="distribId">DT0000024</attribute>

Жоть у когонибудь искра божья, а ?

(48)Ну при всем уважении ... Я там (31) ничег не понял. Предисловие с открытием и проверками у меня есть.

А вот по сути в (31) только это
>   Если ОтправитьНоменклатуру = 1 Тогда
       НоменклатураXML = XMLАнализатор.СоздатьДокумент();
       НоменклатураXML.ЗагрузитьИзСтроки("<?xml version=""1.0"" encoding=""windows-1251"" ?>
                       |<Файл Отправитель= ""1С"" Получатель=""ВЭБ Регистратор"" ВерсФорм=""1.01"">
                       |</Файл>");
       ЭлДок = НоменклатураXML.ЭлементДокумента;

Но что тут про мой случай - ума не приложу.

а вдруг тебе поможет:
http://www.comprog.ru/XML/article_2757.htm#up
руководство
file:///C:/Users/%D0%92%D0%B0%D0%BB%D0%B5%D1%80%D0%B0/AppData/Local/Temp/xml_009.html

виноват, вот руководство
http://www.comprog.ru/XML/Downloads/

(50)
ДокXML = XMLАнализатор.СоздатьДокумент();
ДокXML.ЗагрузитьИзСтроки("<?xml version=""1.0"" encoding=""UTF-8"" ?> <request></request>");
ДокXML.Записать(<ИмяФайла>);

(53) А когда номенклатуру буду грузить, тоже сначала строку формировать на 1000 позиций и со всеми реквестами и энтитиесами для создания структуры ? Это ж кукнуца можно

(54) Ты с XML Работал?

Нет.

Сейчас что нить придумаю

Ммм ну можешь схематично сказать, методы и порядок их применеия именно для случая
<attribute name="distribId">DT0000024</attribute>

Но надо иметь в виду, что этих attribute name будет несколько в каждом элементе. И их значения - это значения реквизитов справочника 1с.

И самих элементов - произвольное количество.

Вродее не по ж.пу деревянный, должон понять.

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



ДокXML = XMLАнализатор.СоздатьДокумент();
ДокXML.ЗагрузитьИзСтроки("<?xml version=""1.0"" encoding=""UTF-8"" ?> <request></request>");

ЭлЮрЛицо = ДобавитьПодчиненныйЭлемент(ДокXML, "ОфициальноеНаименование", СокрЛП(Константа.ОфициальноеНазваниеОрганизации));

ДокXML.Записать(<ИмяФайла>);

Это как пример

Работа с атрибутами

ЭлНДС = ДобавитьПодчиненныйЭлемент(ЭлУчетНалогов, "НДС");
       ЭлНДС.УстановитьАтрибут("УчитыватьВСумме", "true");

Щас попробую посмотрю какую структуру выдаст.

(60)>лНДС = ДобавитьПодчиненныйЭлемент(ЭлУчетНалогов, "НДС");
       ЭлНДС.УстановитьАтрибут("УчитыватьВСумме", "true");

Ну вот это помоему то, на чем у меня застопорилось.
Щас проверю

:DDD

Взлетает потахонечку.

Практически все проУстановитьАтрибут("name", "distribId");

писали, ДенисЧ,  Zebbar и даже Aleksey, правда не так явно, ну вот тольуо щас проглючило меня.

Спасибо братцы.

ПС. Пойду таки себя за ж.пу памацаю, помоему деревянный по пояс ... о_О

Благодарю, камрады

(60)И тебе стакан :)

серия сорок пятая.
(60)Сделал как ты писал
   Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll")<>1 Тогда
       Предупреждение("Компонента не обнаружена");
       Возврат;
   КонецЕсли;
   Анализатор=СоздатьОбъект("AddIn.XMLParser");
   Корень=Анализатор.СоздатьДокумент();
   Корень.ЗагрузитьИзСтроки("<?xml version=""1.0"" encoding=""UTF-8"" ?> <request></request>");
   Корень.Записать(КаталогДляВыгрузки);
   Предупреждение("ОК");

Выдает вот такое

<?xml version="1.0" encoding="WINDOWS-1251"?>
<request/>
Почему кодировку то виндовую подтянул ?

и где  открывающий <request> ?

(66)
Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll")<>1 Тогда
       Предупреждение("Компонента не обнаружена");
       Возврат;
   КонецЕсли;
   Анализатор=СоздатьОбъект("AddIn.XMLParser");
   Корень=Анализатор.СоздатьДокумент();
   Корень.ЗагрузитьИзСтроки("<?xml version=""1.0"" encoding=""UTF-8"" ?> <request></request>");

ЭлДок = Корень.ЭлементДокумента;
ЭлНДС = ДобавитьПодчиненныйЭлемент(ЭлДок, "НДС");
       ЭлНДС.УстановитьАтрибут("УчитыватьВСумме", "true");

   Корень.Записать(КаталогДляВыгрузки);
   Предупреждение("ОК");

(65) Корень.Кодировка = "UTF-8";

(68)Ага уже в СП посмотрел. ДенисЧ что то в этом году спит в оглоблях, СПшками не банчит.

(69) Могу сам тебе продать СП

Получил вот такое
<attributes name="distribId"/>

А надо вот такое

<attribute name="distribId">DT0000024</attribute>

Есть мысли ?

(69) Я думал у тебя свой есть... Уж тебе мне стыдно его предалагать :-(

(66) Если написано <request/>, то это очень даже по стандарту - в элементе нет внутренних данных.

Щас вот такой код
Корень=XMLАнализатор.СоздатьДокумент();
Корень.Кодировка = "UTF-8";

request = Корень.СоздатьПодчиненныйЭлемент("request");
entities = request.СоздатьПодчиненныйЭлемент("entities");

СпрСклады      = СоздатьОбъект("Справочник.Склады");

СпрСклады.ВыбратьЭлементы();
Пока СпрСклады.ПолучитьЭлемент() = 1 Цикл
   entiti = entities.СоздатьПодчиненныйЭлемент("entiti");    
   attributes = entiti.СоздатьПодчиненныйЭлемент("attributes");
   attributes1 = attributes.СоздатьПодчиненныйЭлемент("attributes");
   attributes1.УстановитьАтрибут("name", "distribId",>distribId);
КонецЦикла;  

Корень.Записать(КаталогДляВыгрузки);


Выдает вот такое

<?xml version="1.0" encoding="UTF-8"?>
-<request>
-<entities>
 -<entiti>
  -<attributes>
      <attributes name="distribId"/>
   </attributes>
  </entiti>
 </entities>
</request>

Вся сруктура как надо.

Но строка
<attributes name="distribId"/>

нужна вот такая
<attribute name="distribId">DT0000024</attribute>

Как это слепить ?

Приму в подарок СП можно б/у

(74) Кинь саму схему

А шо это такое ?

У меня только пример файла есть как должны выглядеть выгруженные данные

вот

<?xml version="1.0" encoding="UTF-8"?>
-<request>
-<entities>
 -<entiti>
  -<attributes>
      <attribute name="distribId">DT0000024</attribute>
      <attribute name="locId">001</attribute>
      <attribute name="locName">Основной</attribute>
   </attributes>
  </entiti>
 </entities>
</request>

(77) Должен быть еще один файл

<Элемент distribId="DT0000024 locId="001 locName="Основной" /Элемент>

(79) и куда это ?

(79)Не это канапля какая то, чтото тут неправильно ...

(81) Твой пример имеет расширение ESD?

А это твои атрибуты элемента

+(79)
<Элемент distribId="DT0000024" locId="001" locName="Основной">

.xml

Икак это использовать ?
<Элемент distribId="DT0000024" locId="001" locName="Основной">

уж0снах
примитив обсуждают на мисте

(85)Как там ... лучше помогите материально

(86) ты же, вроде, консультант в пиджаке
откуда такие требы по части универсальной выгрузки отсюда туда
или на старости лет жрать стало нечего

(87)>консультант в пиджаке
о_О это не про меня, по ходу ...

И почему на старости ? Кроме того - всегда было маловато пожрать ...

А что нить может по теме с барского плеча ? Очень нуждаюсью

(88) судя, по твоему тону, ты сделал вброс, и давно уже знаешь, что и как делать
цель удалась, люди повеселились
во-вторых, явно ощущается нехватка седьмого стопаря
накати
в целом, молодец. пять

Не ... Этта явно не канапля. Чото по серьезнее.

(90) ну я те и говорю, ты чо-то принял
щас лучше полежи просто, пусть пройдёт

Дак я бы да. Дак мне
<attribute name="distribId">DT0000024</attribute>
надо, а не знаю как. Беспесды.

(0) ООООО, знакомая XML-лина ))) Выгрузка для to SFIS ВиммБильДан ?))

+(93) и я так понимаю, раз вопрос стоит ТОЛЬКО про склады - ты пытаешься допилить выгрузку, написанную не тобой?

+(93) есть готовая, сделана через AddIn.V7TextFile, т.е. не надо ломать голову с XML, обычный текстовый файл.. и в UTF8 переводится..Надо?

Все это баловство, x-romix Рулит!!!
http://x-romix.narod.ru/
http://x-romix.narod.ru/OpenXML.rar
внешняя компонента для работы с XML, позволяет работать с большими файлами последовательно, не нагружая память.
Книга знаний: Чтение и запись текстовых файлов XML средствами 1С:Предприятие 7.7

В архиве пример, как нужно записывать файлы.
Для чтения может и не подойдет, но в качестве записи, скорость впечатляет :)

(83)(94)(95)Да. SFIS VBD )
Скока стоить будет ? Делает то, что нужно ?

(96)Читал уже. Пока не те задачи. Как записвапть я и так уже знаю, мне теперь надо записать то, что нужно. А то пока тока всякую херню могу записывать.

(97) делает то, что нужно, но писана под мою конфигу, так что в таком виде нисколько стоить не будет. Давай личку - отправлю

Сделай, будь добр через файлообменник какой нибудь. Если не трудно.

Ну или щас писану тебе

Отправил

(101) ушло

(102) Есть вопрос

FormEx нужен ?