--- dao/DelphiScanner/PakkeshopLabels.pas	2015/08/26 13:09:38	2677
+++ dao/DelphiScanner/PakkeshopLabels.pas	2015/12/04 14:07:48	2790
@@ -6,7 +6,8 @@
 
 interface
 uses
-  XMLDoc;
+  XMLDoc,
+  Xml.XMLIntf;
 
 type
   TPakkeshopLabel = class
@@ -38,6 +39,8 @@
 
     Koreliste : string;
 
+    Shop2Direkte : string;
+
     constructor Create(xmlDoc : TXMLDocument);
 
   end;
@@ -48,31 +51,38 @@
 
 
 constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
+var
+  PakkeKontrolNode: Xml.XMLIntf.IXMLNode;
 begin
 
-  Overskrift := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Overskrift').Text;
+  PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol');  // Cache opslaget der finder PakkeKontrol noden
+
+  Overskrift := PakkeKontrolNode.ChildNodes.FindNode('Overskrift').Text;
+
+  Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text;
+  Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text;
+
+  Navn := PakkeKontrolNode.ChildNodes.FindNode('Navn').Text;
+  Vejnavn := PakkeKontrolNode.ChildNodes.FindNode('Vejnavn').Text;
+  Postnr := PakkeKontrolNode.ChildNodes.FindNode('Postnr').Text;
 
-  Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;
-  Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;
+  AfsenderNavn := PakkeKontrolNode.ChildNodes.FindNode('AfsenderNavn').Text;
+  AfsenderAdresse := PakkeKontrolNode.ChildNodes.FindNode('AfsenderAdresse').Text;
+  AfsenderPostnr := PakkeKontrolNode.ChildNodes.FindNode('AfsenderPostnr').Text;
 
-  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;
 
-  AfsenderNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderNavn').Text;
-  AfsenderAdresse := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderAdresse').Text;
-  AfsenderPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderPostnr').Text;
+  PakkeshopNr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNr').Text;
+  PakkeshopNavn := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNavn').Text;
+  PakkeshopAddr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopAddr').Text;
+  PakkeshopPostnr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopPostnr').Text;
+  PakkeshopTurid := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopTurid').Text;
 
+  PakkeshopSted := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopSted').Text;
 
-  PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').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;
+  Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
 
-  PakkeshopSted := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopSted').Text;
+  Shop2Direkte := PakkeKontrolNode.ChildNodes.FindNode('Shop2Direkte').Text;
 
-  Koreliste := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Koreliste').Text;
 
 end;