--- dao/DelphiScanner/Main.pas	2015/08/23 16:09:33	2663
+++ 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;
@@ -3724,12 +3734,12 @@
       DownloadButton01.Enabled := false;
       OpdaterListenButton01.Enabled := true;
       EKLoverforsel.Enabled := false;
-   //   InitLillePakke();
-   //   IndlesScanningLogFil();
-   //   if BladhusSted = 0 then
-   //   begin
-   //     IndlesManglendeScanninger();
-   //   end;
+      InitLillePakke();
+      IndlesScanningLogFil();
+      if BladhusSted = 0 then
+      begin
+        IndlesManglendeScanninger();
+      end;
       IdFTP1.Passive := true;
       IdFTP1.PassiveUseControlHost := true;
 end;