// Устанавливает значение свойства объекта XDTO.
//
Процедура УстановитьЗначениеСвойстваXDTO(ОбъектXDTO, ИмяСвойства, ЗначениеСвойства, ТекстОшибки, Глубина = Неопределено)
Попытка
Если ТипЗнч(ОбъектXDTO[ИмяСвойства]) = Тип("СписокXDTO") Тогда
ОбъектXDTO[ИмяСвойства].Добавить(ЗначениеСвойства);
Иначе
ОбъектXDTO[ИмяСвойства] = ЗначениеСвойства;
КонецЕсли;
Исключение
ЧтениеXML = Новый Структура;
ЧтениеXML.Вставить("Имя" , ИмяСвойства);
ЧтениеXML.Вставить("ЛокальноеИмя" , ИмяСвойства);
ЧтениеXML.Вставить("Значение" , ЗначениеСвойства);
ЧтениеXML.Вставить("ТипУзла" , ТипУзлаXML.КонецЭлемента);
ЧтениеXML.Вставить("URIПространстваИмен", ОбъектXDTO.Тип().URIПространстваИмен);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший