v8.2 УП: импорт пустого тега из xml в 1С

20.03.2013 12:33

Прочитано: 2586

Как сделать условие что бы можно было импортировать пустой тег. в данном коде если в xml файле встречается не заполненный <ИНН/>, то импортирует инн предыдущего узла. как сделать условие что если встречает пустой тег, то и пустой импортировался.

Код 1C v 8.х

 Чтение = Новый ЧтениеXML;

    Чтение.ОткрытьФайл(Файл); 

    Пока Чтение.Прочитать() Цикл 

    Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

        ИмяУзла = Чтение.Имя;

        Сообщить(ИмяУзла);

    

    ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда    

                Если ИмяУзла  = "Code"   тогда

                        Код =  Чтение.Значение;

                    ИначеЕсли ИмяУзла = "Description" тогда    

                        Наименование = Чтение.Значение;

                    ИначеЕсли ИмяУзла = "ИНН" тогда 



                        ИНН = Чтение.Значение;









                    ИначеЕсли ИмяУзла = "КПП" тогда    

                        КПП = Чтение.Значение;

                    ИначеЕсли ИмяУзла = "НаименованиеПолное" тогда    

                        ПолноеНаименование = Чтение.Значение;

                НовыйЭлемент = Справочники.Контрагенты.СоздатьЭлемент();

                НовыйЭлемент.Код =                     Код;

                НовыйЭлемент.Наименование =         Наименование;     

                НовыйЭлемент.ИНН =                  ИНН;        

                НовыйЭлемент.КПП =                  КПП;        

                НовыйЭлемент.ПолноеНаименование =     ПолноеНаименование;

                

                                

                НовыйЭлемент.Записать();

            

            КонецЕсли;

            

                            

        Сообщить(Чтение.Значение);

        

    ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда



    

        Сообщить(Чтение.Имя);

        

    КонецЕсли;    

    

     КонецЦикла;



     КонецПроцедуры

Изменено 20.03.13 13:34:33 по причине: раскрасил код

Yandex

Возможно, вас также заинтересует

E_Migachev

20.03.2013 13:36

Ответ № 1

Обнуляй значение ИНН,
т.е

Код 1C v 8.х

 Пока Чтение.Прочитать() Цикл

//добавить

ИНН = "";

Изменено 20.03.13 13:37:15

Подсказка: Для выделения Кода используйте (в редакторе).