--- dao/DelphiScanner/PakkeshopLabels.pas 2015/08/25 16:34:41 2668 +++ dao/DelphiScanner/PakkeshopLabels.pas 2015/08/26 13:09:38 2677 @@ -12,20 +12,32 @@ TPakkeshopLabel = class public + Overskrift : string; + Stregkode : string; Tjekkode : string; + //Modtager Navn : string; Vejnavn : string; Postnr : string; + //Afsender + AfsenderNavn: string; + AfsenderAdresse: string; + AfsenderPostnr: string; + + PakkeshopNr : string; PakkeshopNavn : string; PakkeshopAddr : string; PakkeshopPostnr : string; + PakkeshopSted : string; PakkeshopTurid : string; + Koreliste : string; + constructor Create(xmlDoc : TXMLDocument); end; @@ -38,6 +50,8 @@ constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument); begin + Overskrift := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Overskrift').Text; + Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text; Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text; @@ -45,6 +59,10 @@ Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text; Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text; + AfsenderNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderNavn').Text; + AfsenderAdresse := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderAdresse').Text; + AfsenderPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('AfsenderPostnr').Text; + PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text; PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text; @@ -52,6 +70,10 @@ PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text; PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text; + PakkeshopSted := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopSted').Text; + + Koreliste := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Koreliste').Text; + end;