dao/DelphiScanner/PakkeshopLabels.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

    Stregkode : string;
    Tjekkode : string;

    Navn : string;
    Vejnavn : string;
    Postnr : string;

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

    PakkeshopTurid : string;

    constructor Create(xmlDoc : TXMLDocument);

  end;


implementation


constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
begin

  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;


  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;

end;


end.
1	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	Stregkode : string;
16	Tjekkode : string;
17
18	Navn : string;
19	Vejnavn : string;
20	Postnr : string;
21
22	PakkeshopNr : string;
23	PakkeshopNavn : string;
24	PakkeshopAddr : string;
25	PakkeshopPostnr : string;
26
27	PakkeshopTurid : string;
28
29	constructor Create(xmlDoc : TXMLDocument);
30
31	end;
32
33
34
35	implementation
36
37
38	constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
39	begin
40
41	Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;
42	Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;
43
44	Navn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Navn').Text;
45	Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text;
46	Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text;
47
48
49	PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
50	PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
51	PakkeshopAddr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopAddr').Text;
52	PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text;
53	PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
54
55	end;
56
57
58	end.