--- dao/DelphiScanner/Main.pas	2015/12/17 19:04:09	2794
+++ dao/DelphiScanner/Main.pas	2016/03/15 13:44:38	2977
@@ -358,9 +358,11 @@
       else if (Sted = 'BR') then
         begin StedNavn := 'Brøndby: '; end
       else if (Sted = 'BK') then
-        begin StedNavn := 'Bladkompagniet: '; end
+        begin StedNavn := 'Bladkompagniet/ISV: '; end
+      else if (Sted = 'TK') then
+        begin StedNavn := 'BK/Trykkompagniet: '; end
       else if (Sted = 'DBK') then
-        begin StedNavn := 'DBK Køge: '; end
+        begin StedNavn := 'DBK/Køge: '; end
       else if (Sted = '1') then
         begin StedNavn := 'Ålborg: '; end
       else if (Sted = '2') then
@@ -689,6 +691,9 @@
 {$IfDef STED_BK}
     SpecialVersionSted := 'BK';
 {$EndIf}
+{$IfDef STED_TK}
+    SpecialVersionSted := 'TK';// BK-Trykkompagniet
+{$EndIf}
 {$IfDef STED_DBK}
     SpecialVersionSted := 'DBK';
 {$EndIf}
@@ -726,7 +731,7 @@
        SpecialVersionScanningtype := '4';
     end;
 
-    if SpecialVersionSted = 'BK' then
+    if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
     begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
       Sted := SpecialVersionSted;
@@ -767,8 +772,7 @@
       PanelValg5.Font.Color := clInactiveCaption;
       PanelValg6.Enabled := false;
       PanelValg6.Font.Color := clInactiveCaption;
-      PanelValg7.Enabled := false;
-      PanelValg7.Font.Color := clInactiveCaption;
+
 
      // her skal vi også disable de menupunkter DBK ikke kan bruge
       ReturpakkerfraDAO1.Enabled := false;
@@ -1127,6 +1131,7 @@
     or (NumberString = 'DAO PAKKESHOP')
     or (NumberString = 'DAO PAKKESHOP')
     or (LowerCase(NumberString) = 'for stor hjemmelevering' )
+	or (LowerCase(NumberString) = 'for stor daodirekte' )
     or (NumberString = 'Retur fra pakkeshop') then
 
     begin
@@ -1141,7 +1146,11 @@
 
   if Key = #13 then     // Enter
   begin
-    if (Length(Trim(Stregkode)) = 0) then
+
+    // Sikre at den er trimmet inden vi går videre - DBK kan finde på at encode et space i enden af deres barcodes
+    Stregkode := Trim(Stregkode);
+
+    if (Length(Stregkode) = 0) then
     begin
       VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
 
@@ -1191,7 +1200,7 @@
        exit;
     end;
 
-    if LowerCase(StregKode) = 'for stor hjemmelevering' then
+    if (LowerCase(StregKode) = 'for stor hjemmelevering') OR (LowerCase(StregKode) = 'for stor daodirekte') then
     begin
       if chkForstorTilDirekte.Enabled then
       begin