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

Diff of /dao/DelphiScanner/LabelData.pas

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

revision 3094 by torben, Fri Aug 19 14:35:39 2016 UTC revision 3105 by torben, Tue Aug 23 08:18:16 2016 UTC
# Line 7  unit LabelData; Line 7  unit LabelData;
7  interface  interface
8  uses  uses
9    XMLDoc,    XMLDoc,
10    Xml.XMLIntf;    Xml.XMLIntf,
11      SysUtils;
12    
13  type  type
14    TLabelData = class    TLabelData = class
15    public    public
16    
17        LabelType : string;
18    
19      Overskrift : string;      Overskrift : string;
20    
21      Stregkode : string;      Stregkode : string;
# Line 39  type Line 42  type
42    
43      Koreliste : string;      Koreliste : string;
44    
45      Shop2Direkte : string;  //    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    
# Line 57  begin Line 67  begin
67    
68    PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol');  // Cache opslaget der finder PakkeKontrol noden    PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol');  // Cache opslaget der finder PakkeKontrol noden
69    
70    Overskrift := PakkeKontrolNode.ChildNodes.FindNode('Overskrift').Text;    LabelType := GetOptionalValue(PakkeKontrolNode, 'LabelType', 'FuldLabel');
71      LabelType := AnsiLowerCase(LabelType);
72    
73      Overskrift := GetValue( PakkeKontrolNode, 'Overskrift');
74    
75    Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text;    Stregkode := PakkeKontrolNode.ChildNodes.FindNode('Stregkode').Text;
76    Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text;    Tjekkode := PakkeKontrolNode.ChildNodes.FindNode('Tjekkode').Text;
# Line 81  begin Line 94  begin
94    
95    Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;    Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
96    
   Shop2Direkte := PakkeKontrolNode.ChildNodes.FindNode('Shop2Direkte').Text;  
97    
98    
99    
100      ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');
101    
102      SimpelLinie1 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie1', '');
103      SimpelLinie2 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie2', '');
104      SimpelLinie3 := GetOptionalValue(PakkeKontrolNode, 'SimpelLinie3', '');
105    
106    end;
107    
108    function TLabelData.GetOptionalValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String; DefaultValue: String) : String;
109    var
110      TmpNode:          Xml.XMLIntf.IXMLNode;
111    begin
112      TmpNode := ParentNode.ChildNodes.FindNode(NodeName);
113      if TmpNode <> nil then
114      begin
115        result := TmpNode.Text;
116      end
117      else
118      begin
119        result := DefaultValue;
120      end;
121    end;
122    
123    function TLabelData.GetValue(ParentNode: Xml.XMLIntf.IXMLNode; NodeName: String) : String;
124    begin
125      result := ParentNode.ChildNodes.FindNode(NodeName).Text;
126  end;  end;
127    
128    
Legend:
Removed from v.3094  
changed lines
  Added in v.3105
  ViewVC Help
Powered by ViewVC 1.1.20