/[projects]/dao/DelphiScanner/LabelData.pas
ViewVC logotype

Diff of /dao/DelphiScanner/LabelData.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

dao/DelphiScanner/PakkeshopLabels.pas revision 2668 by torben, Tue Aug 25 16:34:41 2015 UTC dao/DelphiScanner/LabelData.pas revision 3107 by torben, Tue Aug 23 14:08:44 2016 UTC
# Line 1  Line 1 
1  unit PakkeshopLabels;  unit LabelData;
2    
3  // Denne klasse bruges til at samle alle de parametre der skal bruges omkring indleveringspakker  // 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  // Constructor'en har selv ansvaret for at pille de relevante data ud af XML dokumentet
# Line 6  unit PakkeshopLabels; Line 6  unit PakkeshopLabels;
6    
7  interface  interface
8  uses  uses
9    XMLDoc;    XMLDoc,
10      Xml.XMLIntf,
11      SysUtils;
12    
13  type  type
14    TPakkeshopLabel = class    TLabelData = class
15    public    public
16    
17        LabelType : string;
18    
19        Overskrift : string;
20    
21      Stregkode : string;      Stregkode : string;
22      Tjekkode : string;      Tjekkode : string;
23    
24        //Modtager
25      Navn : string;      Navn : string;
26      Vejnavn : string;      Vejnavn : string;
27      Postnr : string;      Postnr : string;
28    
29        //Afsender
30        AfsenderNavn: string;
31        AfsenderAdresse: string;
32        AfsenderPostnr: string;
33    
34    
35      PakkeshopNr : string;      PakkeshopNr : string;
36      PakkeshopNavn : string;      PakkeshopNavn : string;
37      PakkeshopAddr : string;      PakkeshopAddr : string;
38      PakkeshopPostnr : string;      PakkeshopPostnr : string;
39    
40        PakkeshopSted : string;
41      PakkeshopTurid : string;      PakkeshopTurid : string;
42    
43        Koreliste : string;
44    
45    //    Shop2Direkte : string;
46    
47        SimpelLinie1, SimpelLinie2, SimpelLinie3: String;
48    
49        ZPL : string;
50    
51      constructor Create(xmlDoc : TXMLDocument);      constructor Create(xmlDoc : TXMLDocument);
52    
53        function GetValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String) : String;
54        function GetOptionalValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String; DefaultValue: String) : String;
55    
56    end;    end;
57    
58    
59    
60  implementation  implementation
61    
62    constructor TLabelData.Create(xmlDoc: TXMLDocument);
63  constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);  var
64      PakkeKontrolNode: Xml.XMLIntf.IXMLNode;
65  begin  begin
66      if xmlDoc = nil then
67      begin
68        exit;
69      end;
70    
71      PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol');  // Cache opslaget der finder PakkeKontrol noden
72    
73      LabelType := GetOptionalValue(PakkeKontrolNode, 'LabelType', 'FuldLabel');
74      LabelType := AnsiLowerCase(LabelType);
75    
76      Overskrift := GetValue( PakkeKontrolNode, 'Overskrift');
77    
78      Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text;
79      Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text;
80    
81    Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;    Navn := PakkeKontrolNode.ChildNodes.FindNode('Navn').Text;
82    Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;    Vejnavn := PakkeKontrolNode.ChildNodes.FindNode('Vejnavn').Text;
83      Postnr := PakkeKontrolNode.ChildNodes.FindNode('Postnr').Text;
84    
85    Navn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Navn').Text;    AfsenderNavn := PakkeKontrolNode.ChildNodes.FindNode('AfsenderNavn').Text;
86    Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text;    AfsenderAdresse := PakkeKontrolNode.ChildNodes.FindNode('AfsenderAdresse').Text;
87    Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text;    AfsenderPostnr := PakkeKontrolNode.ChildNodes.FindNode('AfsenderPostnr').Text;
88    
89    
90    PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;    PakkeshopNr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNr').Text;
91    PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;    PakkeshopNavn := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopNavn').Text;
92    PakkeshopAddr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopAddr').Text;    PakkeshopAddr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopAddr').Text;
93    PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text;    PakkeshopPostnr := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopPostnr').Text;
94    PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;    PakkeshopTurid := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopTurid').Text;
95    
96      PakkeshopSted := PakkeKontrolNode.ChildNodes.FindNode('PakkeshopSted').Text;
97    
98      Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
99    
100    
101    
102    
103      ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');
104    
105      SimpelLinie1 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie1', '');
106      SimpelLinie2 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie2', '');
107      SimpelLinie3 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie3', '');
108    
109    end;
110    
111    function TLabelData.GetOptionalValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String; DefaultValue: String) : String;
112    var
113      TmpNode:          Xml.XMLIntf.IXMLNode;
114    begin
115      TmpNode := ParentNode.ChildNodes.FindNode(NodeName);
116      if TmpNode <> nil then
117      begin
118        result := TmpNode.Text;
119      end
120      else
121      begin
122        result := DefaultValue;
123      end;
124    end;
125    
126    function TLabelData.GetValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String) : String;
127    begin
128      result := ParentNode.ChildNodes.FindNode(NodeName).Text;
129  end;  end;
130    
131    
Legend:
Removed from v.2668  
changed lines
  Added in v.3107
  ViewVC Help
Powered by ViewVC 1.1.20