/[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 2668 by torben, Tue Aug 25 16:34:41 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
14    public    public
15    
16        Overskrift : string;
17    
18      Stregkode : string;      Stregkode : string;
19      Tjekkode : string;      Tjekkode : string;
20    
21        //Modtager
22      Navn : string;      Navn : string;
23      Vejnavn : string;      Vejnavn : string;
24      Postnr : string;      Postnr : string;
25    
26        //Afsender
27        AfsenderNavn: string;
28        AfsenderAdresse: string;
29        AfsenderPostnr: string;
30    
31    
32      PakkeshopNr : string;      PakkeshopNr : string;
33      PakkeshopNavn : string;      PakkeshopNavn : string;
34      PakkeshopAddr : string;      PakkeshopAddr : string;
35      PakkeshopPostnr : string;      PakkeshopPostnr : string;
36    
37        PakkeshopSted : string;
38      PakkeshopTurid : string;      PakkeshopTurid : string;
39    
40        Koreliste : string;
41    
42        Shop2Direkte : string;
43    
44      constructor Create(xmlDoc : TXMLDocument);      constructor Create(xmlDoc : TXMLDocument);
45    
46    end;    end;
# Line 36  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    Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;    PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol');  // Cache opslaget der finder PakkeKontrol noden
59    Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;  
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      AfsenderNavn := PakkeKontrolNode.ChildNodes.FindNode('AfsenderNavn').Text;
70      AfsenderAdresse := PakkeKontrolNode.ChildNodes.FindNode('AfsenderAdresse').Text;
71      AfsenderPostnr := PakkeKontrolNode.ChildNodes.FindNode('AfsenderPostnr').Text;
72    
73    
74      PakkeshopNr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNr').Text;
75      PakkeshopNavn := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNavn').Text;
76      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    Navn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Navn').Text;    Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
   Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text;  
   Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text;  
83    
84      Shop2Direkte := PakkeKontrolNode.ChildNodes.FindNode('Shop2Direkte').Text;
85    
   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;  
86    
87  end;  end;
88    
Legend:
Removed from v.2668  
changed lines
  Added in v.2790
  ViewVC Help
Powered by ViewVC 1.1.20