--- dao/DelphiScanner/Main.pas	2015/08/23 14:45:16	2660
+++ 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
@@ -1621,12 +1623,8 @@
           // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
           if Rutenummer = 'sql fejl' then
           begin   // Her skal komme en alarm og rød skærm
-             PlaySound(PWideChar(AlarmLyd));
-             //List1msg := 'SQL fejl: ' + Kommentar;
-             //ListBox1.Items.Insert(0,List1Msg);
-             MainForm.Color := clRed;
-             //KommentarST.Caption := List1msg;
-             PakkeshopNulstil.Visible := true;
+             VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
+
             exit;
           end;
           if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
@@ -1685,9 +1683,7 @@
           end
           else
           begin
-            MainForm.Color := clRed;
-            PlaySound(PWideChar(AlarmLyd));
-            PakkeshopNulstil.Visible := true;
+            VisAlarmSkaerm('');
           end;
          if not PakkeshopNulstil.Visible then
           begin
@@ -2415,7 +2411,7 @@
               end;
             end;
       01 :  begin;
-             if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
+             if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
                   // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
                   // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
               begin
@@ -2429,7 +2425,7 @@
               end;
             end;
       03 :  begin;
-             if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
+             if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
                   // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
                   // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
              begin
@@ -3472,6 +3468,13 @@
   end;
 end;
 
+procedure TMainForm.menuIndleveringClick(Sender: TObject);
+begin
+  Scanningtype := '7';
+  NulstilAutomatiskValg();
+  InitIndleveringskode();
+end;
+
 procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
 begin
 
@@ -3703,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;
@@ -5203,13 +5207,19 @@
   //ShowMessage('Ændring ikke tilladt');
   // Her skal komme en 'rød skærm' alarm
   PlaySound(PWideChar(AlarmLyd));
-
-  ListBox1.Items.Insert(0, strMessage);
   MainForm.Color := clRed;
+
+
   RuteNummerST.Caption := '';
   BoghandlerNavnST.Caption := '';
-  KommentarST.Caption := strMessage;
   PakkeshopNulstil.Visible := true;
+
+  if (strMessage <> '') then
+  begin
+    ListBox1.Items.Insert(0, strMessage);
+    KommentarST.Caption := strMessage;
+  end;
+
 end;
 
 function TMainForm.getProddato() : TDate;