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; |
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 |
|
|
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; |
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 |
|
|