unit PakkeshopLabels;

// Denne klasse bruges til at samle alle de parametre der skal bruges omkring indleveringspakker
// Constructor'en har selv ansvaret for at pille de relevante data ud af XML dokumentet


interface
uses
  XMLDoc;

type
  TPakkeshopLabel = class
  public

    Stregkode : string;
    Tjekkode : string;

    Navn : string;
    Vejnavn : string;
    Postnr : string;

    PakkeshopNr : string;
    PakkeshopNavn : string;
    PakkeshopAddr : string;
    PakkeshopPostnr : string;

    PakkeshopTurid : string;

    constructor Create(xmlDoc : TXMLDocument);

  end;



implementation


constructor TPakkeshopLabel.Create(xmlDoc: TXMLDocument);
begin

  Stregkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkode').Text;
  Tjekkode := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Tjekkode').Text;

  Navn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Navn').Text;
  Vejnavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Vejnavn').Text;
  Postnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Postnr').Text;


  PakkeshopNr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
  PakkeshopNavn := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
  PakkeshopAddr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopAddr').Text;
  PakkeshopPostnr := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPostnr').Text;
  PakkeshopTurid := xmlDoc.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;

end;


end.