--- dao/DelphiScanner/Main.pas	2015/08/26 13:09:38	2677
+++ dao/DelphiScanner/Main.pas	2015/08/26 18:53:11	2680
@@ -256,8 +256,6 @@
 
     Barcode : TStBarcode;
 
-    PakkeshopLabel: TPakkeshopLabel;
-
 	  function CheckSumModulo10(const data:string):string;   	{ used for EAN 8/13 }
 
     procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = '');
@@ -787,6 +785,20 @@
     //SpecialVersionSted := 'FD';  // FD - sætter automatisk nedenstående SpecialVersionScanningtype til DIREKTE)
     // *************************** //
 
+{$IfDef STED_BK}
+    SpecialVersionSted := 'BK';
+{$EndIf}
+{$IfDef STED_DBK}
+    SpecialVersionSted := 'DBK';
+{$EndIf}
+{$IfDef STED_FD}
+    SpecialVersionSted := 'FD';
+{$EndIf}
+{$IfDef STED_NS}
+    SpecialVersionSted := 'NS';
+{$EndIf}
+
+
     //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
     //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
     //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
@@ -2078,6 +2090,8 @@
   URLStr : String;
   pakkestorrelse : String;
   PrintNyLabelInteger : Integer;
+
+  PakkeshopLabel: TPakkeshopLabel;
 begin
   if radioStorPakke.Checked then
   begin
@@ -2180,6 +2194,7 @@
      begin
        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
        PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
+       RuteNummer := PakkeshopLabel.Koreliste;
 
        PrintPakkeshopLabel( PakkeshopLabel );