dao/DelphiScanner/LabelData.pas

unit LabelData;

// 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,
  SysUtils;

type
  TLabelData = class
  public

    LabelType : string;

    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;

    SimpelLinie1, SimpelLinie2, SimpelLinie3: String;

    ZPL : string;

    constructor Create(xmlDoc : TXMLDocument);

    function GetValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String) : String;
    function GetOptionalValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String; DefaultValue: String) : String;

  end;


implementation


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

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

  LabelType := GetOptionalValue(PakkeKontrolNode, 'LabelType', 'FuldLabel');
  LabelType := AnsiLowerCase(LabelType);

  Overskrift := GetValue( PakkeKontrolNode, 'Overskrift');

  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 := GetOptionalValue(PakkeKontrolNode, 'Shop2Direkte', '');


  ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');

  SimpelLinie1 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie1', '');
  SimpelLinie2 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie2', '');
  SimpelLinie3 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie3', '');

end;

function TLabelData.GetOptionalValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String; DefaultValue: String) : String;
var
  TmpNode:          Xml.XMLIntf.IXMLNode;
begin
  TmpNode := ParentNode.ChildNodes.FindNode(NodeName);
  if TmpNode <> nil then
  begin
    result := TmpNode.Text;
  end
  else
  begin
    result := DefaultValue;
  end;
end;

function TLabelData.GetValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String) : String;
begin
  result := ParentNode.ChildNodes.FindNode(NodeName).Text;
end;


end.
1	torben	3094	unit LabelData;
2	torben	2668
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	torben	3095	Xml.XMLIntf,
11			SysUtils;
12	torben	2668
13			type
14	torben	3094	TLabelData = class
15	torben	2668	public
16
17	torben	3095	LabelType : string;
18
19	torben	2677	Overskrift : string;
20
21	torben	2668	Stregkode : string;
22			Tjekkode : string;
23
24	torben	2677	//Modtager
25	torben	2668	Navn : string;
26			Vejnavn : string;
27			Postnr : string;
28
29	torben	2677	//Afsender
30			AfsenderNavn: string;
31			AfsenderAdresse: string;
32			AfsenderPostnr: string;
33
34
35	torben	2668	PakkeshopNr : string;
36			PakkeshopNavn : string;
37			PakkeshopAddr : string;
38			PakkeshopPostnr : string;
39
40	torben	2677	PakkeshopSted : string;
41	torben	2668	PakkeshopTurid : string;
42
43	torben	2677	Koreliste : string;
44
45	torben	2790	Shop2Direkte : string;
46
47	torben	3095	SimpelLinie1, SimpelLinie2, SimpelLinie3: String;
48
49			ZPL : string;
50
51	torben	2668	constructor Create(xmlDoc : TXMLDocument);
52
53	torben	3095	function GetValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String) : String;
54			function GetOptionalValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String; DefaultValue: String) : String;
55
56	torben	2668	end;
57
58
59
60			implementation
61
62
63	torben	3094	constructor TLabelData.Create(xmlDoc: TXMLDocument);
64	torben	2790	var
65			PakkeKontrolNode: Xml.XMLIntf.IXMLNode;
66	torben	3095	TmpNode: Xml.XMLIntf.IXMLNode;
67	torben	2668	begin
68
69	torben	2790	PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol'); // Cache opslaget der finder PakkeKontrol noden
70	torben	2677
71	torben	3095	LabelType := GetOptionalValue(PakkeKontrolNode, 'LabelType', 'FuldLabel');
72			LabelType := AnsiLowerCase(LabelType);
73	torben	2668
74	torben	3095	Overskrift := GetValue( PakkeKontrolNode, 'Overskrift');
75
76	torben	2790	Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text;
77			Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text;
78	torben	2668
79	torben	2790	Navn := PakkeKontrolNode.ChildNodes.FindNode('Navn').Text;
80			Vejnavn := PakkeKontrolNode.ChildNodes.FindNode('Vejnavn').Text;
81			Postnr := PakkeKontrolNode.ChildNodes.FindNode('Postnr').Text;
82	torben	2668
83	torben	2790	AfsenderNavn := PakkeKontrolNode.ChildNodes.FindNode('AfsenderNavn').Text;
84			AfsenderAdresse := PakkeKontrolNode.ChildNodes.FindNode('AfsenderAdresse').Text;
85			AfsenderPostnr := PakkeKontrolNode.ChildNodes.FindNode('AfsenderPostnr').Text;
86	torben	2677
87	torben	2668
88	torben	2790	PakkeshopNr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNr').Text;
89			PakkeshopNavn := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNavn').Text;
90			PakkeshopAddr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopAddr').Text;
91			PakkeshopPostnr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopPostnr').Text;
92			PakkeshopTurid := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopTurid').Text;
93	torben	2677
94	torben	2790	PakkeshopSted := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopSted').Text;
95	torben	2677
96	torben	2790	Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
97
98	torben	3095	Shop2Direkte := GetOptionalValue(PakkeKontrolNode, 'Shop2Direkte', '');
99	torben	2790
100
101	torben	3095	ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');
102
103			SimpelLinie1 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie1', '');
104			SimpelLinie2 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie2', '');
105			SimpelLinie3 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie3', '');
106
107	torben	2668	end;
108
109	torben	3095	function TLabelData.GetOptionalValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String; DefaultValue: String) : String;
110			var
111			TmpNode: Xml.XMLIntf.IXMLNode;
112			begin
113			TmpNode := ParentNode.ChildNodes.FindNode(NodeName);
114			if TmpNode <> nil then
115			begin
116			result := TmpNode.Text;
117			end
118			else
119			begin
120			result := DefaultValue;
121			end;
122			end;
123	torben	2668
124	torben	3095	function TLabelData.GetValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String) : String;
125			begin
126			result := ParentNode.ChildNodes.FindNode(NodeName).Text;
127			end;
128
129
130	torben	2668	end.