/[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 3095 by torben, Sun Aug 21 20:51:45 2016 UTC revision 3107 by torben, Tue Aug 23 14:08:44 2016 UTC
# Line 42  type Line 42  type
42    
43      Koreliste : string;      Koreliste : string;
44    
45      Shop2Direkte : string;  //    Shop2Direkte : string;
46    
47      SimpelLinie1, SimpelLinie2, SimpelLinie3: String;      SimpelLinie1, SimpelLinie2, SimpelLinie3: String;
48    
# Line 59  type Line 59  type
59    
60  implementation  implementation
61    
   
62  constructor TLabelData.Create(xmlDoc: TXMLDocument);  constructor TLabelData.Create(xmlDoc: TXMLDocument);
63  var  var
64    PakkeKontrolNode: Xml.XMLIntf.IXMLNode;    PakkeKontrolNode: Xml.XMLIntf.IXMLNode;
   TmpNode:          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    PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol');  // Cache opslaget der finder PakkeKontrol noden
72    
# Line 95  begin Line 97  begin
97    
98    Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;    Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
99    
100    Shop2Direkte := GetOptionalValue(PakkeKontrolNode, 'Shop2Direkte', '');  
101    
102    
103    ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');    ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');
Legend:
Removed from v.3095  
changed lines
  Added in v.3107
  ViewVC Help
Powered by ViewVC 1.1.20