/[projects]/dao/DelphiScanner/PakkeshopLabels.pas
ViewVC logotype

Diff of /dao/DelphiScanner/PakkeshopLabels.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2789 by torben, Wed Aug 26 13:09:38 2015 UTC revision 2790 by torben, Fri Dec 4 14:07:48 2015 UTC
# Line 6  unit PakkeshopLabels; Line 6  unit PakkeshopLabels;
6    
7  interface  interface
8  uses  uses
9    XMLDoc;    XMLDoc,
10      Xml.XMLIntf;
11    
12  type  type
13    TPakkeshopLabel = class    TPakkeshopLabel = class
# Line 38  type Line 39  type
39    
40      Koreliste : string;      Koreliste : string;
41    
42        Shop2Direkte : string;
43    
44      constructor Create(xmlDoc : TXMLDocument);      constructor Create(xmlDoc : TXMLDocument);
45    
46    end;    end;
# Line 48  implementation Line 51  implementation
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    
Legend:
Removed from v.2789  
changed lines
  Added in v.2790
  ViewVC Help
Powered by ViewVC 1.1.20