--- dao/DelphiScanner/LabelData.pas 2016/08/21 20:51:45 3095 +++ dao/DelphiScanner/LabelData.pas 2016/08/23 14:08:44 3107 @@ -42,7 +42,7 @@ Koreliste : string; - Shop2Direkte : string; +// Shop2Direkte : string; SimpelLinie1, SimpelLinie2, SimpelLinie3: String; @@ -59,12 +59,14 @@ implementation - constructor TLabelData.Create(xmlDoc: TXMLDocument); var PakkeKontrolNode: Xml.XMLIntf.IXMLNode; - TmpNode: Xml.XMLIntf.IXMLNode; begin + if xmlDoc = nil then + begin + exit; + end; PakkeKontrolNode := xmlDoc.ChildNodes.FindNode('PakkeKontrol'); // Cache opslaget der finder PakkeKontrol noden @@ -95,7 +97,7 @@ Koreliste := PakkeKontrolNode.ChildNodes.FindNode('Koreliste').Text; - Shop2Direkte := GetOptionalValue(PakkeKontrolNode, 'Shop2Direkte', ''); + ZPL := GetOptionalValue(PakkeKontrolNode, 'ZPL', '');