--- dao/DelphiScanner/Main.pas	2016/05/31 11:50:42	3038
+++ dao/DelphiScanner/Main.pas	2016/06/01 13:25:34	3039
@@ -39,7 +39,6 @@
     XMLDocument1: TXMLDocument;
     ApplicationEvents1: TApplicationEvents;
     chkSporgEfterKunde: TCheckBox;
-    KommentarST: TStaticText;
     MainMenu1: TMainMenu;
     N1: TMenuItem;
     Pakkernormal1: TMenuItem;
@@ -107,6 +106,7 @@
     menuIndlevering: TMenuItem;
     chkForstorTilDirekte: TCheckBox;
     chkEmballageRepareret: TCheckBox;
+    KommentarST: TLabel;
 
 
 
@@ -202,6 +202,7 @@
   function GetFormObject() : TForm;
 
 
+
   private
     SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
     Stregkode : String;
@@ -1512,7 +1513,16 @@
               InitPakkeshoplevering();
             end;
           end
-      // Retur kan ikke scannes med 'Automatisk valg'
+     else if Pakketype = 'PakkeshopRetur' then
+          begin
+            if Scanningtype <> '6' then
+            begin
+             VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
+
+             exit;
+            end;
+          end
+
 
       else
           begin
@@ -3043,6 +3053,7 @@
 
 end;
 
+
 procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
 var