Подскажите, как правильно загрузить в очередь из 3 полей ID_PAC, W, DR такой файл
<PERS>
<ID_PAC>15</ID_PAC>
<FAM>*****</FAM>
<IM>Александр</IM>
<OT>Иванович</OT>
<W>1</W>
<DR>****17</DR>
<DOCTYPE>14</DOCTYPE>
<DOCSER>****</DOCSER>
<DOCNUM>****</DOCNUM>
<SNILS>075-*******80</SNILS>
</PERS>
<PERS>
<ID_PAC>20</ID_PAC>
<FAM>*******</FAM>
<IM>Александр</IM>
<OT>Васильевич</OT>
<W>1</W>
<DR>1950-*****</DR>
<DOCTYPE>14</DOCTYPE>
<DOCSER>11***</DOCSER>
<DOCNUM>******</DOCNUM>
<SNILS>************</SNILS>
</PERS>
....
пишу
Код: Выделить всё
If NOT xml:LoadFromFile(l:NameLM)
Xml:PrimaryKeyCascade('ID_PAC')
!Xml:PrimaryKeyCascade('DR')
!Xml:PrimaryKeyCascade('W')
If NOT xml:FindNextNode('PERS')
SRecs = Xml:loadQueue(q:PersQ,True,True)
XML:DebugMyQueue(q:PersQ,'q:PersQ Contents 1')
XML:Free()
End
End
qprs:id_pac,"qprs:dr","qprs:w"
31,"","0"
31,"1962-10-03","2"
100,"","0"
100,"1933-08-13","2"
210,"","0"
210,"1947-11-13","2"
т.е. каждая запись загружается дважды, приходится дополнительно обрабатывать очередь
А как правильно ?