/[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 2676 by torben, Tue Aug 25 16:34:41 2015 UTC revision 2677 by torben, Wed Aug 26 13:09:38 2015 UTC
# Line 12  type Line 12  type
12    TPakkeshopLabel = class    TPakkeshopLabel = class
13    public    public
14    
15        Overskrift : string;
16    
17      Stregkode : string;      Stregkode : string;
18      Tjekkode : string;      Tjekkode : string;
19    
20        //Modtager
21      Navn : string;      Navn : string;
22      Vejnavn : string;      Vejnavn : string;
23      Postnr : string;      Postnr : string;
24    
25        //Afsender
26        AfsenderNavn: string;
27        AfsenderAdresse: string;
28        AfsenderPostnr: string;
29    
30    
31      PakkeshopNr : string;      PakkeshopNr : string;
32      PakkeshopNavn : string;      PakkeshopNavn : string;
33      PakkeshopAddr : string;      PakkeshopAddr : string;
34      PakkeshopPostnr : string;      PakkeshopPostnr : string;
35    
36        PakkeshopSted : string;
37      PakkeshopTurid : string;      PakkeshopTurid : string;
38    
39        Koreliste : string;
40    
41      constructor Create(xmlDoc : TXMLDocument);      constructor Create(xmlDoc : TXMLDocument);
42    
43    end;    end;
# Line 38  implementation Line 50  implementation
50  constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);  constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
51  begin  begin
52    
53      Overskrift := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Overskrift').Text;
54    
55    Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;    Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;
56    Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;    Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;
57    
# Line 45  begin Line 59  begin
59    Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text;    Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text;
60    Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text;    Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text;
61    
62      AfsenderNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderNavn').Text;
63      AfsenderAdresse := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderAdresse').Text;
64      AfsenderPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderPostnr').Text;
65    
66    
67    PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;    PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
68    PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;    PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
# Line 52  begin Line 70  begin
70    PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text;    PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text;
71    PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;    PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
72    
73      PakkeshopSted := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopSted').Text;
74    
75      Koreliste := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Koreliste').Text;
76    
77  end;  end;
78    
79    
Legend:
Removed from v.2676  
changed lines
  Added in v.2677
  ViewVC Help
Powered by ViewVC 1.1.20