--- dao/DelphiScanner/Main.pas	2016/01/04 13:30:43	2799
+++ dao/DelphiScanner/Main.pas	2016/01/06 12:53:51	2800
@@ -358,7 +358,9 @@
       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
       else if (Sted = '1') 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;
@@ -1127,6 +1132,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
@@ -1191,7 +1197,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