42 |
|
|
43 |
Koreliste : string; |
Koreliste : string; |
44 |
|
|
45 |
Shop2Direkte : string; |
// Shop2Direkte : string; |
46 |
|
|
47 |
SimpelLinie1, SimpelLinie2, SimpelLinie3: String; |
SimpelLinie1, SimpelLinie2, SimpelLinie3: String; |
48 |
|
|
59 |
|
|
60 |
implementation |
implementation |
61 |
|
|
|
|
|
62 |
constructor TLabelData.Create(xmlDoc: TXMLDocument); |
constructor TLabelData.Create(xmlDoc: TXMLDocument); |
63 |
var |
var |
64 |
PakkeKontrolNode: Xml.XMLIntf.IXMLNode; |
PakkeKontrolNode: Xml.XMLIntf.IXMLNode; |
|
TmpNode: Xml.XMLIntf.IXMLNode; |
|
65 |
begin |
begin |
66 |
|
if xmlDoc = nil then |
67 |
|
begin |
68 |
|
exit; |
69 |
|
end; |
70 |
|
|
71 |
PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol'); // Cache opslaget der finder PakkeKontrol noden |
PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol'); // Cache opslaget der finder PakkeKontrol noden |
72 |
|
|
97 |
|
|
98 |
Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text; |
Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text; |
99 |
|
|
100 |
Shop2Direkte := GetOptionalValue(PakkeKontrolNode, 'Shop2Direkte', ''); |
|
101 |
|
|
102 |
|
|
103 |
ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', ''); |
ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', ''); |