6 |
|
|
7 |
interface |
interface |
8 |
uses |
uses |
9 |
XMLDoc; |
XMLDoc, |
10 |
|
Xml.XMLIntf; |
11 |
|
|
12 |
type |
type |
13 |
TPakkeshopLabel = class |
TPakkeshopLabel = class |
39 |
|
|
40 |
Koreliste : string; |
Koreliste : string; |
41 |
|
|
42 |
|
Shop2Direkte : string; |
43 |
|
|
44 |
constructor Create(xmlDoc : TXMLDocument); |
constructor Create(xmlDoc : TXMLDocument); |
45 |
|
|
46 |
end; |
end; |
51 |
|
|
52 |
|
|
53 |
constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument); |
constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument); |
54 |
|
var |
55 |
|
PakkeKontrolNode: Xml.XMLIntf.IXMLNode; |
56 |
begin |
begin |
57 |
|
|
58 |
Overskrift := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Overskrift').Text; |
PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol'); // Cache opslaget der finder PakkeKontrol noden |
59 |
|
|
60 |
|
Overskrift := PakkeKontrolNode.ChildNodes.FindNode('Overskrift').Text; |
61 |
|
|
62 |
|
Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text; |
63 |
|
Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text; |
64 |
|
|
65 |
|
Navn := PakkeKontrolNode.ChildNodes.FindNode('Navn').Text; |
66 |
|
Vejnavn := PakkeKontrolNode.ChildNodes.FindNode('Vejnavn').Text; |
67 |
|
Postnr := PakkeKontrolNode.ChildNodes.FindNode('Postnr').Text; |
68 |
|
|
69 |
Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text; |
AfsenderNavn := PakkeKontrolNode.ChildNodes.FindNode('AfsenderNavn').Text; |
70 |
Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text; |
AfsenderAdresse := PakkeKontrolNode.ChildNodes.FindNode('AfsenderAdresse').Text; |
71 |
|
AfsenderPostnr := PakkeKontrolNode.ChildNodes.FindNode('AfsenderPostnr').Text; |
72 |
|
|
|
Navn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Navn').Text; |
|
|
Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text; |
|
|
Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text; |
|
73 |
|
|
74 |
AfsenderNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderNavn').Text; |
PakkeshopNr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNr').Text; |
75 |
AfsenderAdresse := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderAdresse').Text; |
PakkeshopNavn := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNavn').Text; |
76 |
AfsenderPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderPostnr').Text; |
PakkeshopAddr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopAddr').Text; |
77 |
|
PakkeshopPostnr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopPostnr').Text; |
78 |
|
PakkeshopTurid := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopTurid').Text; |
79 |
|
|
80 |
|
PakkeshopSted := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopSted').Text; |
81 |
|
|
82 |
PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text; |
Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text; |
|
PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text; |
|
|
PakkeshopAddr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopAddr').Text; |
|
|
PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text; |
|
|
PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text; |
|
83 |
|
|
84 |
PakkeshopSted := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopSted').Text; |
Shop2Direkte := PakkeKontrolNode.ChildNodes.FindNode('Shop2Direkte').Text; |
85 |
|
|
|
Koreliste := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Koreliste').Text; |
|
86 |
|
|
87 |
end; |
end; |
88 |
|
|