/[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 3105 by torben, Tue Aug 23 08:18:16 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 63  implementation Line 63  implementation
63  constructor TLabelData.Create(xmlDoc: TXMLDocument);  constructor TLabelData.Create(xmlDoc: TXMLDocument);
64  var  var
65    PakkeKontrolNode: Xml.XMLIntf.IXMLNode;    PakkeKontrolNode: Xml.XMLIntf.IXMLNode;
   TmpNode:          Xml.XMLIntf.IXMLNode;  
66  begin  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
# Line 95  begin Line 94  begin
94    
95    Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;    Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text;
96    
97    Shop2Direkte := GetOptionalValue(PakkeKontrolNode, 'Shop2Direkte', '');  
98    
99    
100    ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');    ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');
Legend:
Removed from v.3095  
changed lines
  Added in v.3105
  ViewVC Help
Powered by ViewVC 1.1.20