dao/DelphiScanner/LabelData.pas

unit PakkeshopLabels;

// Denne klasse bruges til at samle alle de parametre der skal bruges omkring indleveringspakker
// Constructor'en har selv ansvaret for at pille de relevante data ud af XML dokumentet


interface
uses
  XMLDoc;

type
  TPakkeshopLabel = class
  public

    Overskrift : string;

    Stregkode : string;
    Tjekkode : string;

    //Modtager
    Navn : string;
    Vejnavn : string;
    Postnr : string;

    //Afsender
    AfsenderNavn: string;
    AfsenderAdresse: string;
    AfsenderPostnr: string;


    PakkeshopNr : string;
    PakkeshopNavn : string;
    PakkeshopAddr : string;
    PakkeshopPostnr : string;

    PakkeshopSted : string;
    PakkeshopTurid : string;

    Koreliste : string;

    constructor Create(xmlDoc : TXMLDocument);

  end;


implementation


constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
begin

  Overskrift := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Overskrift').Text;

  Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;
  Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').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 := 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;

  PakkeshopSted := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopSted').Text;

  Koreliste := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Koreliste').Text;

end;


end.
1	torben	2668	unit PakkeshopLabels;
2
3			// Denne klasse bruges til at samle alle de parametre der skal bruges omkring indleveringspakker
4			// Constructor'en har selv ansvaret for at pille de relevante data ud af XML dokumentet
5
6
7			interface
8			uses
9			XMLDoc;
10
11			type
12			TPakkeshopLabel = class
13			public
14
15	torben	2677	Overskrift : string;
16
17	torben	2668	Stregkode : string;
18			Tjekkode : string;
19
20	torben	2677	//Modtager
21	torben	2668	Navn : string;
22			Vejnavn : string;
23			Postnr : string;
24
25	torben	2677	//Afsender
26			AfsenderNavn: string;
27			AfsenderAdresse: string;
28			AfsenderPostnr: string;
29
30
31	torben	2668	PakkeshopNr : string;
32			PakkeshopNavn : string;
33			PakkeshopAddr : string;
34			PakkeshopPostnr : string;
35
36	torben	2677	PakkeshopSted : string;
37	torben	2668	PakkeshopTurid : string;
38
39	torben	2677	Koreliste : string;
40
41	torben	2668	constructor Create(xmlDoc : TXMLDocument);
42
43			end;
44
45
46
47			implementation
48
49
50			constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
51			begin
52
53	torben	2677	Overskrift := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Overskrift').Text;
54
55	torben	2668	Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;
56			Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;
57
58			Navn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Navn').Text;
59			Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text;
60			Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text;
61
62	torben	2677	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	torben	2668
66	torben	2677
67	torben	2668	PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
68			PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
69			PakkeshopAddr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopAddr').Text;
70			PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text;
71			PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
72
73	torben	2677	PakkeshopSted := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopSted').Text;
74
75			Koreliste := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Koreliste').Text;
76
77	torben	2668	end;
78
79
80			end.