Здравствуйте. Необходимо создать и записать документ Установка цен номенклатуры из XML файла [spoiler=Фрагмент файла XML] PXR0033103 11029 12350 245/40R17 91S Blizzak VRX Легковая Bridgestone Blizzak VRX 245 40 R17 0 R S 91 Зимняя NW00102 6569 7355 265/60R18 114T Therma Spike TL (шип.) Легковая Nitto Therma Spike 265 60 R18 0 R T 114 Да Зимняя 100A1574 4510 5002 225/50R16 96W Champiro UHP1 Легковая GT Radial Champiro UHP1 225 50 R16 0 R W 96 Летняя 125603 271 Michelin Michelin Chambre Scooter 733003 244 Michelin Michelin Chambre Scooter 788345 261 Michelin Michelin Chambre Road WHS140401 6678 7528 8x19/5x120 ET30 D72,6 MODEL-58 B+R Yokatta MODEL-58 B+R 8 19 5 120 0 30 72.6 http://4tochki.ru/pictures/wheels/Yokatta/MODEL-58/small/BPlusR.png WHS141450 4474 5255 6,5x17/5x114,3 ET48 D67,1 Прайм (КС721) Алмаз черный K&K Прайм (КС721) Алмаз черный 6.5 17 5 114.3 0 48 67.1 http://4tochki.ru/pictures/wheels/KiK/Prajm_(KS721)/small/Almaz_chernyj.jpg WHS140629 29332 33630 8,5x20/5x120 ET30 D72,5 STC-MS Matt Black Milled Fondmetal STC-MS Matt Black Milled 8.5 20 5 120 0 30 72.5 http://4tochki.ru/pictures/wheels/Fondmetal/STC-MS/small/Matt_Black_Milled.png WHS149402 11025 12789 8,5x20/5x150 ET58 D110,1 TY242 SF (пш) Replay TY242 SF 8.5 20 5 150 0 58 110.1 пш прессшайба http://4tochki.ru/pictures/wheels/Replay/TY242/small/SF.png OGS083174 80 100 Replay Вставка унифицированная C570 метал.сф.стикер Вставки/стикеры OGS129366 30 34 LS Болт M14x1,25 (55/ 28) hex17 конус CH (КИТАЙ) 966-08 Болты OGS129368 35 40 LS Болт M14x1,5 (62/ 35) hex17 конус CH (КИТАЙ) 984 Болты OGS145879 1973 - AM 7Jx16H2 5x112 ET-35 OGS146227 1336 - RC-04 7Jx15H2 5x112 ET-38 OGS146216 1653 - C 7,25Jx15H2 5x112 ET-35 [/spoiler] Читаю файл так [1C-CODE]Процедура КнопкаВыполнитьНажатие(Кнопка) ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.ОткрытьФайл("F:\OLD_DISK_C\1C\M13714small.xml"); Имя = ЧтениеXML.Имя; Массив = Новый Структура(Имя); Пока ЧтениеXML.Прочитать() Цикл ПолучитьXMLТип(ЧтениеXML); Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда Имя = ЧтениеXML.Имя; Сообщить("Начало " + ЧтениеXML.Имя); Пока ЧтениеXML.ПрочитатьАтрибут() Цикл Атрибут = ЧтениеXML.Значение; Сообщить("атрибут:" + ЧтениеXML.Имя + "=" + ЧтениеXML.Значение); КонецЦикла; КонецЕсли; Если ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда Массив.Вставить(Имя,ЧтениеXML.Значение); Сообщить(ЧтениеXML.Значение); КонецЕсли; Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда Если ЧтениеXML.Имя = "data" Тогда ДобавитьЭлемент(Массив); КонецЕсли; Сообщить("Конец " + ЧтениеXML.Имя); КонецЕсли; КонецЦикла; КонецПроцедуры [/1C-CODE] Читает, но когда переходит к созданию Документа [1C-CODE]Процедура СоздатьДокУстЦен(Массив) Документ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент(); Документ.Дата = ТекущаяДата(); Документ.Ответственный = Пользователи.ТекущийПользователь(); Для Каждого СтрокаДанных Из Массив Цикл артикул = СтрокаДанных.cae; НоваяСтрока = Документ.Товары.Добавить(); НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("артикул",артикул); НоваяСтрока.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000002"); НоваяСтрока.Цена = Массив.price; Документ.Товары.Свернуть("Номенклатура, ТипЦен, Цена"); КонецЦикла; Документ.Записать(); КонецПроцедуры[/1C-CODE] Получаю "Поле объекта не обнаружено (cae)". Хотя это реквизит из файла, и читается он первой частью правильно. Что я упускаю?

Создание Установка цен номенклатуры из XML файла

Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

Платформа 1С v8.3

1. nsm 28.08.17 00:10 Сейчас в теме

Здравствуйте.
Необходимо создать и записать документ Установка цен номенклатуры
из XML файла

Фрагмент файла XML
<?xml version="1.0" encoding="utf-8" standalone="yes"?> <!--13714 8/7/2017 12:16:33 PM--> <data> <tires> <cae>PXR0033103</cae> <price_sk3>11029</price_sk3> <price_sk3_rozn>12350</price_sk3_rozn> <name>245/40R17 91S Blizzak VRX</name> <tiretype>Легковая</tiretype> Bridgestone</brand> <model>Blizzak VRX</model> <width>245</width> <height>40</height> <diameter>R17</diameter> <diametr_out>0</diametr_out> <design>R</design> <speed_index>S</speed_index> <load_index>91</load_index> <season>Зимняя</season> </tires> <tires> <cae>NW00102</cae> <price_sk3>6569</price_sk3> <price_sk3_rozn>7355</price_sk3_rozn> <name>265/60R18 114T Therma Spike TL (шип.)</name> <tiretype>Легковая</tiretype> Nitto</brand> <model>Therma Spike</model> <width>265</width> <height>60</height> <diameter>R18</diameter> <diametr_out>0</diametr_out> <design>R</design> <speed_index>T</speed_index> <load_index>114</load_index> <thorn>Да</thorn> <season>Зимняя</season> </tires> <tires> <cae>100A1574</cae> <price_sk3>4510</price_sk3> <price_sk3_rozn>5002</price_sk3_rozn> <name>225/50R16 96W Champiro UHP1</name> <tiretype>Легковая</tiretype> GT Radial</brand> <model>Champiro UHP1</model> <width>225</width> <height>50</height> <diameter>R16</diameter> <diametr_out>0</diametr_out> <design>R</design> <speed_index>W</speed_index> <load_index>96</load_index> <season>Летняя</season> </tires> <camera> <cae>125603</cae> <price_mkrs>271</price_mkrs> Michelin</brand> <name>Michelin Chambre Scooter</name> </camera> <camera> <cae>733003</cae> <price_mkrs>244</price_mkrs> Michelin</brand> <name>Michelin Chambre Scooter</name> </camera> <camera> <cae>788345</cae> <price_mkrs>261</price_mkrs> Michelin</brand> <name>Michelin Chambre Road</name> </camera> <rims> <cae>WHS140401</cae> <price_sk3>6678</price_sk3> <price_sk3_rozn>7528</price_sk3_rozn> <name>8x19/5x120 ET30 D72,6 MODEL-58 B+R</name> Yokatta</brand> <model>MODEL-58</model> <color>B+R</color> <width>8</width> <diameter>19</diameter> <bolts_count>5</bolts_count> <bolts_spacing>120</bolts_spacing> <bolts_spacing2>0</bolts_spacing2> <et>30</et> <dia>72.6</dia> <img_small>http://4tochki.ru/pictures/wheels/Yokatta/MODEL-58/small/BPlusR.png</img_small>; </rims> <rims> <cae>WHS141450</cae> <price_sk3>4474</price_sk3> <price_sk3_rozn>5255</price_sk3_rozn> <name>6,5x17/5x114,3 ET48 D67,1 Прайм (КС721) Алмаз черный</name> K&K</brand> <model>Прайм (КС721)</model> <color>Алмаз черный</color> <width>6.5</width> <diameter>17</diameter> <bolts_count>5</bolts_count> <bolts_spacing>114.3</bolts_spacing> <bolts_spacing2>0</bolts_spacing2> <et>48</et> <dia>67.1</dia> <img_small>http://4tochki.ru/pictures/wheels/KiK/Prajm_(KS721)/small/Almaz_chernyj.jpg</img_small>; </rims> <rims> <cae>WHS140629</cae> <price_sk3>29332</price_sk3> <price_sk3_rozn>33630</price_sk3_rozn> <name>8,5x20/5x120 ET30 D72,5 STC-MS Matt Black Milled</name> Fondmetal</brand> <model>STC-MS</model> <color>Matt Black Milled</color> <width>8.5</width> <diameter>20</diameter> <bolts_count>5</bolts_count> <bolts_spacing>120</bolts_spacing> <bolts_spacing2>0</bolts_spacing2> <et>30</et> <dia>72.5</dia> <img_small>http://4tochki.ru/pictures/wheels/Fondmetal/STC-MS/small/Matt_Black_Milled.png</img_small>; </rims> <rims> <cae>WHS149402</cae> <price_sk3>11025</price_sk3> <price_sk4_rozn>12789</price_sk4_rozn> <name>8,5x20/5x150 ET58 D110,1 TY242 SF (пш)</name> Replay</brand> <model>TY242</model> <color>SF</color> <width>8.5</width> <diameter>20</diameter> <bolts_count>5</bolts_count> <bolts_spacing>150</bolts_spacing> <bolts_spacing2>0</bolts_spacing2> <et>58</et> <dia>110.1</dia> <mount>пш</mount> <mount_note>прессшайба</mount_note> <img_small>http://4tochki.ru/pictures/wheels/Replay/TY242/small/SF.png</img_small>; </rims> <fastener> <cae>OGS083174</cae> <price_mkrs>80</price_mkrs> <price>100</price> Replay</brand> <name>Вставка унифицированная C570 метал.сф.стикер</name> <sub_type>Вставки/стикеры</sub_type> </fastener> <fastener> <cae>OGS129366</cae> <price_mkrs>30</price_mkrs> <price>34</price> LS</brand> <name>Болт M14x1,25 (55/ 28) hex17 конус CH (КИТАЙ) 966-08</name> <sub_type>Болты</sub_type> </fastener> <fastener> <cae>OGS129368</cae> <price_mkrs>35</price_mkrs> <price>40</price> LS</brand> <name>Болт M14x1,5 (62/ 35) hex17 конус CH (КИТАЙ) 984</name> <sub_type>Болты</sub_type> </fastener> <spare_parts> <cae>OGS145879</cae> <price_mkrs>1973</price_mkrs> -</brand> <name>AM 7Jx16H2 5x112 ET-35</name> </spare_parts> <spare_parts> <cae>OGS146227</cae> <price_mkrs>1336</price_mkrs> -</brand> <name>RC-04 7Jx15H2 5x112 ET-38</name> </spare_parts> <spare_parts> <cae>OGS146216</cae> <price_mkrs>1653</price_mkrs> -</brand> <name>C 7,25Jx15H2 5x112 ET-35</name> </spare_parts> </data>

Фрагмент файла XML

<?xml version="1.0" encoding="utf-8" standalone="yes"?>

<data>
<tires>
<cae>PXR0033103</cae>
<price_sk3>11029</price_sk3>
<price_sk3_rozn>12350</price_sk3_rozn>
<name>245/40R17 91S Blizzak VRX</name>
<tiretype>Легковая</tiretype>

Bridgestone</brand>
<model>Blizzak VRX</model>
<width>245</width>
<height>40</height>
<diameter>R17</diameter>
<diametr_out>0</diametr_out>
<design>R</design>
<speed_index>S</speed_index>
<load_index>91</load_index>
<season>Зимняя</season>
</tires>
<tires>
<cae>NW00102</cae>
<price_sk3>6569</price_sk3>
<price_sk3_rozn>7355</price_sk3_rozn>
<name>265/60R18 114T Therma Spike TL (шип.)</name>
<tiretype>Легковая</tiretype>

Nitto</brand>
<model>Therma Spike</model>
<width>265</width>
<height>60</height>
<diameter>R18</diameter>
<diametr_out>0</diametr_out>
<design>R</design>
<speed_index>T</speed_index>
<load_index>114</load_index>
<thorn>Да</thorn>
<season>Зимняя</season>
</tires>
<tires>
<cae>100A1574</cae>
<price_sk3>4510</price_sk3>
<price_sk3_rozn>5002</price_sk3_rozn>
<name>225/50R16 96W Champiro UHP1</name>
<tiretype>Легковая</tiretype>

GT Radial</brand>
<model>Champiro UHP1</model>
<width>225</width>
<height>50</height>
<diameter>R16</diameter>
<diametr_out>0</diametr_out>
<design>R</design>
<speed_index>W</speed_index>
<load_index>96</load_index>
<season>Летняя</season>
</tires>
<camera>
<cae>125603</cae>
<price_mkrs>271</price_mkrs>

Michelin</brand>
<name>Michelin Chambre Scooter</name>
</camera>
<camera>
<cae>733003</cae>
<price_mkrs>244</price_mkrs>

Michelin</brand>
<name>Michelin Chambre Scooter</name>
</camera>
<camera>
<cae>788345</cae>
<price_mkrs>261</price_mkrs>

Michelin</brand>
<name>Michelin Chambre Road</name>
</camera>
<rims>
<cae>WHS140401</cae>
<price_sk3>6678</price_sk3>
<price_sk3_rozn>7528</price_sk3_rozn>
<name>8x19/5x120 ET30 D72,6 MODEL-58 B+R</name>

Yokatta</brand>
<model>MODEL-58</model>
<color>B+R</color>
<width>8</width>
<diameter>19</diameter>
<bolts_count>5</bolts_count>
<bolts_spacing>120</bolts_spacing>
<bolts_spacing2>0</bolts_spacing2>
<et>30</et>
<dia>72.6</dia>
<img_small>http://4tochki.ru/pictures/wheels/Yokatta/MODEL-58/small/BPlusR.png</img_small>;
</rims>
<rims>
<cae>WHS141450</cae>
<price_sk3>4474</price_sk3>
<price_sk3_rozn>5255</price_sk3_rozn>
<name>6,5x17/5x114,3 ET48 D67,1 Прайм (КС721) Алмаз черный</name>

K&K</brand>
<model>Прайм (КС721)</model>
<color>Алмаз черный</color>
<width>6.5</width>
<diameter>17</diameter>
<bolts_count>5</bolts_count>
<bolts_spacing>114.3</bolts_spacing>
<bolts_spacing2>0</bolts_spacing2>
<et>48</et>
<dia>67.1</dia>
<img_small>http://4tochki.ru/pictures/wheels/KiK/Prajm_(KS721)/small/Almaz_chernyj.jpg</img_small>;
</rims>
<rims>
<cae>WHS140629</cae>
<price_sk3>29332</price_sk3>
<price_sk3_rozn>33630</price_sk3_rozn>
<name>8,5x20/5x120 ET30 D72,5 STC-MS Matt Black Milled</name>

Fondmetal</brand>
<model>STC-MS</model>
<color>Matt Black Milled</color>
<width>8.5</width>
<diameter>20</diameter>
<bolts_count>5</bolts_count>
<bolts_spacing>120</bolts_spacing>
<bolts_spacing2>0</bolts_spacing2>
<et>30</et>
<dia>72.5</dia>
<img_small>http://4tochki.ru/pictures/wheels/Fondmetal/STC-MS/small/Matt_Black_Milled.png</img_small>;
</rims>
<rims>
<cae>WHS149402</cae>
<price_sk3>11025</price_sk3>
<price_sk4_rozn>12789</price_sk4_rozn>
<name>8,5x20/5x150 ET58 D110,1 TY242 SF (пш)</name>

Replay</brand>
<model>TY242</model>
<color>SF</color>
<width>8.5</width>
<diameter>20</diameter>
<bolts_count>5</bolts_count>
<bolts_spacing>150</bolts_spacing>
<bolts_spacing2>0</bolts_spacing2>
<et>58</et>
<dia>110.1</dia>
<mount>пш</mount>
<mount_note>прессшайба</mount_note>
<img_small>http://4tochki.ru/pictures/wheels/Replay/TY242/small/SF.png</img_small>;
</rims>
<fastener>
<cae>OGS083174</cae>
<price_mkrs>80</price_mkrs>
<price>100</price>

Replay</brand>
<name>Вставка унифицированная C570 метал.сф.стикер</name>
<sub_type>Вставки/стикеры</sub_type>
</fastener>
<fastener>
<cae>OGS129366</cae>
<price_mkrs>30</price_mkrs>
<price>34</price>

LS</brand>
<name>Болт M14x1,25 (55/ 28) hex17 конус CH (КИТАЙ) 966-08</name>
<sub_type>Болты</sub_type>
</fastener>
<fastener>
<cae>OGS129368</cae>
<price_mkrs>35</price_mkrs>
<price>40</price>

LS</brand>
<name>Болт M14x1,5 (62/ 35) hex17 конус CH (КИТАЙ) 984</name>
<sub_type>Болты</sub_type>
</fastener>
<spare_parts>
<cae>OGS145879</cae>
<price_mkrs>1973</price_mkrs>

-</brand>
<name>AM 7Jx16H2 5x112 ET-35</name>
</spare_parts>
<spare_parts>
<cae>OGS146227</cae>
<price_mkrs>1336</price_mkrs>

-</brand>
<name>RC-04 7Jx15H2 5x112 ET-38</name>
</spare_parts>
<spare_parts>
<cae>OGS146216</cae>
<price_mkrs>1653</price_mkrs>

-</brand>
<name>C 7,25Jx15H2 5x112 ET-35</name>
</spare_parts>
</data>

Читаю файл так

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    ЧтениеXML = Новый ЧтениеXML;
    ЧтениеXML.ОткрытьФайл("F:\OLD_DISK_C\1C\M13714small.xml");
    Имя = ЧтениеXML.Имя;
    Массив = Новый Структура(Имя);                                                     
    Пока ЧтениеXML.Прочитать() Цикл                  
        ПолучитьXMLТип(ЧтениеXML);
        Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента  Тогда
                        
            Имя = ЧтениеXML.Имя;
            
            Сообщить("Начало " + ЧтениеXML.Имя);
            Пока ЧтениеXML.ПрочитатьАтрибут() Цикл
                Атрибут = ЧтениеXML.Значение;
                Сообщить("атрибут:" + ЧтениеXML.Имя + "=" + ЧтениеXML.Значение);
            КонецЦикла;
        КонецЕсли;
        
        Если ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда
            Массив.Вставить(Имя,ЧтениеXML.Значение);
            Сообщить(ЧтениеXML.Значение);
        КонецЕсли;
    
        Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
            Если ЧтениеXML.Имя = "data" Тогда
            ДобавитьЭлемент(Массив);
            КонецЕсли;
            Сообщить("Конец " + ЧтениеXML.Имя);
        КонецЕсли;
    КонецЦикла;
    КонецПроцедуры

Показать

Читает, но когда переходит к созданию Документа

Процедура СоздатьДокУстЦен(Массив)
	
	Документ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
	Документ.Дата = ТекущаяДата();
	Документ.Ответственный = Пользователи.ТекущийПользователь();
		Для Каждого СтрокаДанных Из Массив Цикл
		артикул = СтрокаДанных.cae;
		НоваяСтрока = Документ.Товары.Добавить();
        НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("артикул",артикул);
        НоваяСтрока.ТипЦен      = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000002");
        НоваяСтрока.Цена         = Массив.price;
        Документ.Товары.Свернуть("Номенклатура, ТипЦен, Цена");
	   	КонецЦикла;
	Документ.Записать();	
	
КонецПроцедуры

Показать

Получаю "Поле объекта не обнаружено (cae)". Хотя это реквизит из файла, и читается он первой частью правильно. Что я упускаю?

По теме из базы знаний

Найденные решения

8. nsm 11.10.17 01:01 Сейчас в теме

В общем получилась обработка которая и берёт Номенклатуру из xml файла, создаёт элементы справочника и тут же создаёт установку цен номенклатуры, если такое необходимо.

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. japopov 68 28.08.17 10:04 Сейчас в теме

(1) Советую самостоятельно найти ошибку, Вам полезнее будет.

а) Можно установить точку останова на строчку про артикул;
б) можно в конфигураторе в меню Отладка / остановка по ошибке включить остановку по ошибке - система остановится при ошибке прямо перед выполнением сбойного участка кода.

Запускаете и смотрите, что у Вас в переменной Массив вообще, и в СтрокаДанных в частности. Потом ищете ошибку.

3. nsm 28.08.17 11:46 Сейчас в теме

(2) Вижу значение реквизита, но Документ создаётся пустой, без номенклатуры. И я так понимаю, что к ТипЦен что в Шапке так просто не обратишься, для установления значения

Документ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
	Документ.Дата = ТекущаяДата();
	//Документ.???? = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая");
	Документ.Ответственный = Пользователи.ТекущийПользователь();
	артикул = Массив.cae;
	Для Каждого СтрокаДанных Из Массив Цикл
		НоваяСтрока = Документ.Товары.Добавить();
        НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("артикул",артикул);
//		НоваяСтрока.ТипЦен      = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000002");
//        НоваяСтрока.Цена         = Массив.price_sk3;
//        Документ.Товары.Свернуть("Номенклатура, ТипЦен, Цена");
		Документ.Товары.Свернуть("Номенклатура,,");
		Документ.Записать();
		
//		Отказ = Истина;
	   	КонецЦикла;

Показать

4. soulsb 28.08.17 12:34 Сейчас в теме

посмотрите раскладку клавиатуры в "сае", возможно какие то буквы в xml там они латиницей и кириллицей смешаны.

5. nsm 28.08.17 13:19 Сейчас в теме

(4)К сожалению нет(

6. nsm 28.08.17 13:53 Сейчас в теме

Процедура СоздатьДокУстЦен(Массив)
	
	Документ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
	Документ.Дата = ТекущаяДата();
	Документ.Ответственный = Пользователи.ТекущийПользователь();
	строкацена = Документ.Товары.Добавить();
	строкацена.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая");
	артикул = Массив.cae;
	Для Каждого СтрокаДанных Из Массив Цикл
		НоваяСтрока = Документ.Товары.Добавить();
        НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("артикул",артикул);
		НоваяСтрока.ТипЦен      = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000002");
        НоваяСтрока.Цена         = Массив.price_sk3;
        Документ.Товары.Свернуть("Номенклатура, ТипЦен, Цена");
		Документ.Товары.Свернуть("Номенклатура,,");
		Документ.Записать();
		
//		Отказ = Истина;
	   	КонецЦикла;
		
КонецПроцедуры

Показать

Ошибок нет, но и заполнения нет. По отладчику Артикул получает.

7. nsm 28.08.17 17:05 Сейчас в теме

Процедура КнопкаВыполнитьНажатие(Кнопка)	
	    
	    ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая");
//		ВидВалюты = Справочники.Валюты.НайтиПоНаименованию("руб.");
		ЕдиницаИзм = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("шт"); 
		
		ЧтениеXML = Новый ЧтениеXML;
    	ЧтениеXML.ОткрытьФайл("F:\4P\M13714small.xml");
		Имя = ЧтениеXML.Имя;
    	Массив = Новый Структура(Имя);

		Документ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
		Документ.Дата = ТекущаяДата();
		Документ.Ответственный = Пользователи.ТекущийПользователь();
//		Документ.мВалютаУправленческогоУчета = Справочники.Валюты.НайтиПоНаименованию("руб.");
		
		строкатиповцен = Документ.ТипыЦен.Добавить();
		строкатиповцен.ТипЦен= ТипЦен;
		                                                     
    Пока ЧтениеXML.Прочитать() Цикл                  
        ПолучитьXMLТип(ЧтениеXML);
        Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента  Тогда
                        
            Имя = ЧтениеXML.Имя;
            
            Пока ЧтениеXML.ПрочитатьАтрибут() Цикл
                Атрибут = ЧтениеXML.Значение;
            КонецЦикла;
        КонецЕсли;
        
        Если ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда
            Массив.Вставить(Имя,ЧтениеXML.Значение);            
        КонецЕсли;
    
        Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
			Если ЧтениеXML.Имя = "data" Тогда
				Для Каждого Атрибут Из Массив Цикл
            Цена = Массив.price_sk3;
			Арт = Массив.cae;
				КонецЦикла;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;	
			
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Номенклатура.Артикул,
		|	Номенклатура.Ссылка,
		|	Номенклатура.ЕдиницаХраненияОстатков КАК Ед,
		|	Номенклатура.ЕдиницаХраненияОстатков.Коэффициент КАК К
		|ИЗ
		|	Справочник.Номенклатура КАК Номенклатура
		|ГДЕ
		|	Номенклатура.Артикул = &Артикул";

	Запрос.УстановитьПараметр("Артикул", Арт);

	Результат = Запрос.Выполнить();

	Если  НЕ Результат.Пустой() Тогда
	ВыборкаДетальныеЗаписи = Результат.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		Строка = Номенклатура.Добавить();
		Строка.Артикул = Арт;
		Строка.Цена = Цена;

    строкацена = Документ.Товары.Добавить();
	строкацена.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая");
	строкацена.Номенклатура = ВыборкаДетальныеЗаписи.Ссылка;
	строкацена.ЕдиницаИзмерения = ВыборкаДетальныеЗаписи.Ед; 
	Документ.Записать();

	строкацена.Цена = Строка.Цена;

КонецЦикла;
Иначе
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Номенклатура.Наименование,
		|	Номенклатура.Ссылка,
		|	Номенклатура.ЕдиницаХраненияОстатков КАК Ед,
		|	Номенклатура.ЕдиницаХраненияОстатков.Коэффициент   КАК К
		|ИЗ
		|	Справочник.Номенклатура КАК Номенклатура
		|ГДЕ
		|	Номенклатура.Наименование = &Наименование";

	Запрос.УстановитьПараметр("Наименование",);

	Результат = Запрос.Выполнить();

	ВыборкаДетальныеЗаписи = Результат.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Строка = Номенклатура.Добавить();
		Строка.Артикул = Арт;
		Строка.Цена = Цена;

	строкацена = Документ.Товары.Добавить();
	строкацена.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая");
	строкацена.Номенклатура = ВыборкаДетальныеЗаписи.Ссылка;
	строкацена.ЕдиницаИзмерения = ВыборкаДетальныеЗаписи.Ед; 
	Документ.Записать();
	строкацена.Цена = Строка.Цена;

	КонецЦикла;

	КонецЕсли;	
						
		Документ.ПолучитьФорму("ФормаДокумента").Открыть();		
	
КонецПроцедуры

Показать

Переделал всё вот так. Заполняет ТипЦен. Добавляет Номенклатуру, но не могу понять как правильно переделать Цикл, что бы попадала вся имеющаяся номенклатура.

8. nsm 11.10.17 01:01 Сейчас в теме

Оставьте свое сообщение

E-mail: