--- dao/DelphiScanner/Main.pas	2015/08/23 15:06:19	2662
+++ dao/DelphiScanner/Main.pas	2015/08/23 16:17:56	2664
@@ -88,6 +88,7 @@
     PanelManglendePakker4: TPanel;
     PanelManglendePakker5: TPanel;
     PanelManglendePakker6: TPanel;
+    menuIndlevering: TMenuItem;
 
 
   function Explode(var a: TStrArray; Border, S: string): Integer;
@@ -183,6 +184,7 @@
   procedure TjekkerUrls();
 // 20150310: start
   procedure RoundCornerOf(Control: TWinControl);
+    procedure menuIndleveringClick(Sender: TObject);
 
 
 // 20150310: slut
@@ -3466,6 +3468,13 @@
   end;
 end;
 
+procedure TMainForm.menuIndleveringClick(Sender: TObject);
+begin
+  Scanningtype := '7';
+  NulstilAutomatiskValg();
+  InitIndleveringskode();
+end;
+
 procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
 begin
 
@@ -3697,8 +3706,9 @@
 
 procedure TMainForm.InitIndleveringskode();
 begin
+      menuIndlevering.Checked := true;
       AutomatiskTjekkodeStyring1.Enabled := false;
-      Returpakkerfrapakkeshop1.Checked := true;
+
       PakkeshopNulstil.Visible := false;
       InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
       PanelValg7.Color := clGreen;