--- dao/DelphiScanner/Main.pas	2016/08/15 19:26:48	3090
+++ dao/DelphiScanner/Main.pas	2016/08/19 14:35:39	3094
@@ -20,7 +20,7 @@
   IdExplicitTLSClientServerBase, IdFTP, IdException,
   ShellApi, ClipBrd, Buttons, wininet,
   UITypes,
-  PakkeshopLabels,
+  LabelData,
   Utils,
   ParentForm,
   LabelPrint,
@@ -553,6 +553,9 @@
     Sted := ReadString('Settings','Sted','');
     StedNavn := ReadString('Settings','Stednavn','');
 
+    Scanningtype := 'A'; //hardcoded
+    Pakketype := '0';
+
 
 
 
@@ -1929,7 +1932,7 @@
   pakkestorrelse : String;
   PrintNyLabelInteger : Integer;
 
-  PakkeshopLabel: TPakkeshopLabel;
+  PakkeshopLabel: TLabelData;
 begin
   if radioStorPakke.Checked then
   begin
@@ -2038,7 +2041,7 @@
      if (Kommentar = 'Ok') then
      begin
        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
-       PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
+       PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
        RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
        Stregkode := PakkeshopLabel.Stregkode;
 
@@ -2087,21 +2090,14 @@
     begin
       if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
       begin
-          Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
-          PrintNyLabel := False;
+          Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
+          //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
       end;
     end
     else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
     begin
-       if (Leveringssted = 'E') and (Sted = 'DBK') then
-       begin
-          // Det er ok at DBK scanner pakker til E     (Schenker)
-       end
-       else
-       begin
-          Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
-          PrintNyLabel := False;
-       end;
+      Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
+      //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
     end;
   except on e:exception do
     raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);