Класс tXML (интерфейс для штатного CpXML)
Добавлено: 24 Март 2023, 7:44
Простой EXE на С6.3 ABC падает при попытке обращения к классу.
Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
Дежавю ...
Код: Выделить всё
_XmlLibDllMode_=>0
_XmlLibLinkMode_=>1
Действительно, туплю...
Код: Выделить всё
...
<СведТов НомСтр="4" НаимТов="Стиральная машина LG F2T3HS6W кл.:A фронт. макс.:7кг белый " ОКЕИ_Тов="796" КолТов="10.00" ЦенаТов="41076.67" СтТовБезНДС="410766.67" НалСт="20%" СтТовУчНал="492920.00">
<Акциз>
<БезАкциз>без акциза</БезАкциз>
</Акциз>
<СумНал>
<СумНал>82153.33</СумНал>
</СумНал>
<СвТД КодПроисх="156" НомерТД="Прослеж" />
<СвТД КодПроисх="643" НомерТД="Прослеж" />
<ДопСведТов КодТов="1862190" НаимЕдИзм="шт" КрНаимСтрПр="Китай" НадлОтп="0.00">
<СведПрослеж НомТовПрослеж="99995038/141122/0000284/001" ЕдИзмПрослеж="796" КолВЕдПрослеж="7.00" НаимЕдИзмПрослеж="шт" />
<СведПрослеж НомТовПрослеж="99995038/011122/0000382/001" ЕдИзмПрослеж="796" КолВЕдПрослеж="3.00" НаимЕдИзмПрослеж="шт" />
</ДопСведТов>
<ИнфПолФХЖ2 Идентиф="рег_номер_таможенной_декларации_расшифровка" Значен="99995038/011122/0000382/001_3" />
<ИнфПолФХЖ2 Идентиф="рег_номер_таможенной_декларации_расшифровка" Значен="99995038/141122/0000284/001_7" />
</СведТов>
...
Код: Выделить всё
Write Class(PushXML).
Code
If Write.Init(True) ! Записываем XML UTF-8 кирпичиком
Write.AddCap ! Стандартный заголовок
! Комментарий
Write.AddRem('Класс PushXML - это быстро и просто !')
If Write.Opened('Root') ! Открытый тег без атрибутов
! Закрытый тег с атрибутами
Write.SetAtr('Атрибут1','Значение А')
Write.SetAtr('Атрибут2','Значение Б')
Write.Closed('ЗакрытыйТег1')
! Открытый тег с атрибутами
Write.SetAtr('Атрибут3','Значение В')
If Write.Opened('ОткрытыйТег1')
! Закрытый тег с атрибутами и значением
Write.SetAtr('Атрибут4', 'Значение Г')
Write.Closed('ЗакрытыйТег2','Значение Д')
! Закрыть открытый тег
Write.EndTag('ОткрытыйТег1')
end
! Тег с файлом в BASE64
Write.AddFile('Файл','test.xml')
! Запись в XML пакет произвольного текста
Write.AddStr('<?mso-application progid="Excel.Sheet"?>')
Write.EndTag('Root') ! Закрыть открытый тег
end
! Запись XML в файл
Write.SaveAs('TestPush.xml')
Write.Kill
end
Код: Выделить всё
Loc:FileXML CString('test.xml') ! Имя файла с XML пакетом ЭДО (базовая комплектация)
!Loc:FileXML CString('pros.xml') ! Имя файла с XML пакетом ЭДО (прослеживаемость)
!Loc:FileXML CString('mark.xml') ! Имя файла с XML пакетом ЭДО (КИЗ - марки)
Код: Выделить всё
XMLQueue2 QUEUE,PRE(Q2)
SCInvoice GROUP
Number STRING(255)
AccountDate STRING(255)
...
tXML.ToQueue(XMLQueue2, 'SCInvoice')
Код: Выделить всё
<category id="63870602" parentId="63870575">Спомб, ракети, кобри</category>
Код: Выделить всё
TheObject Group
Category String
ID Long
ParenID Long
end
К сожалению не распарсил, пробовал в разных вариациях, парсит только значения id и parentId, не могу получить значение - categoryИгорь Столяров писал(а): ↑19 Октябрь 2023, 18:05 Это просто накрученная группа.
Здесь для тега задано значение "category" = "Спомб, ракети, кобри" и два атрибута: id="63870602" / parentId="63870575"
Распарсит ли его класс ? Не знаю - пробуйте. Вот из-за подобных вывертов XML и был придуман JSON.Код: Выделить всё
TheObject Group Category String ID Long ParenID Long end
Код: Выделить всё
TheObject Group
Inside Group
Category String
end
ID Long
ParenID Long
end