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

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