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,
  Xml.XMLIntf;

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;

    Shop2Direkte : string;

    constructor Create(xmlDoc : TXMLDocument);

  end;


implementation


constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
var
  PakkeKontrolNode: Xml.XMLIntf.IXMLNode;
begin

  PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol');  // Cache opslaget der finder PakkeKontrol noden

  Overskrift := PakkeKontrolNode.ChildNodes.FindNode('Overskrift').Text;

  Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text;
  Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text;

  Navn := PakkeKontrolNode.ChildNodes.FindNode('Navn').Text;
  Vejnavn := PakkeKontrolNode.ChildNodes.FindNode('Vejnavn').Text;
  Postnr := PakkeKontrolNode.ChildNodes.FindNode('Postnr').Text;

  AfsenderNavn := PakkeKontrolNode.ChildNodes.FindNode('AfsenderNavn').Text;
  AfsenderAdresse := PakkeKontrolNode.ChildNodes.FindNode('AfsenderAdresse').Text;
  AfsenderPostnr := PakkeKontrolNode.ChildNodes.FindNode('AfsenderPostnr').Text;


  PakkeshopNr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNr').Text;
  PakkeshopNavn := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNavn').Text;
  PakkeshopAddr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopAddr').Text;
  PakkeshopPostnr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopPostnr').Text;
  PakkeshopTurid := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopTurid').Text;

  PakkeshopSted := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopSted').Text;

  Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;

  Shop2Direkte := PakkeKontrolNode.ChildNodes.FindNode('Shop2Direkte').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	torben	2790	XMLDoc,
10			Xml.XMLIntf;
11	torben	2668
12			type
13			TPakkeshopLabel = class
14			public
15
16	torben	2677	Overskrift : string;
17
18	torben	2668	Stregkode : string;
19			Tjekkode : string;
20
21	torben	2677	//Modtager
22	torben	2668	Navn : string;
23			Vejnavn : string;
24			Postnr : string;
25
26	torben	2677	//Afsender
27			AfsenderNavn: string;
28			AfsenderAdresse: string;
29			AfsenderPostnr: string;
30
31
32	torben	2668	PakkeshopNr : string;
33			PakkeshopNavn : string;
34			PakkeshopAddr : string;
35			PakkeshopPostnr : string;
36
37	torben	2677	PakkeshopSted : string;
38	torben	2668	PakkeshopTurid : string;
39
40	torben	2677	Koreliste : string;
41
42	torben	2790	Shop2Direkte : string;
43
44	torben	2668	constructor Create(xmlDoc : TXMLDocument);
45
46			end;
47
48
49
50			implementation
51
52
53			constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
54	torben	2790	var
55			PakkeKontrolNode: Xml.XMLIntf.IXMLNode;
56	torben	2668	begin
57
58	torben	2790	PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol'); // Cache opslaget der finder PakkeKontrol noden
59	torben	2677
60	torben	2790	Overskrift := PakkeKontrolNode.ChildNodes.FindNode('Overskrift').Text;
61	torben	2668
62	torben	2790	Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text;
63			Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text;
64	torben	2668
65	torben	2790	Navn := PakkeKontrolNode.ChildNodes.FindNode('Navn').Text;
66			Vejnavn := PakkeKontrolNode.ChildNodes.FindNode('Vejnavn').Text;
67			Postnr := PakkeKontrolNode.ChildNodes.FindNode('Postnr').Text;
68	torben	2668
69	torben	2790	AfsenderNavn := PakkeKontrolNode.ChildNodes.FindNode('AfsenderNavn').Text;
70			AfsenderAdresse := PakkeKontrolNode.ChildNodes.FindNode('AfsenderAdresse').Text;
71			AfsenderPostnr := PakkeKontrolNode.ChildNodes.FindNode('AfsenderPostnr').Text;
72	torben	2677
73	torben	2668
74	torben	2790	PakkeshopNr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNr').Text;
75			PakkeshopNavn := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNavn').Text;
76			PakkeshopAddr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopAddr').Text;
77			PakkeshopPostnr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopPostnr').Text;
78			PakkeshopTurid := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopTurid').Text;
79	torben	2677
80	torben	2790	PakkeshopSted := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopSted').Text;
81	torben	2677
82	torben	2790	Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
83
84			Shop2Direkte := PakkeKontrolNode.ChildNodes.FindNode('Shop2Direkte').Text;
85
86
87	torben	2668	end;
88
89
90			end.