--- dao/DelphiScanner/Main.pas	2015/08/23 14:45:16	2660
+++ dao/DelphiScanner/Main.pas	2015/08/23 15:06:19	2662
@@ -1621,12 +1621,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 +1681,7 @@
           end
           else
           begin
-            MainForm.Color := clRed;
-            PlaySound(PWideChar(AlarmLyd));
-            PakkeshopNulstil.Visible := true;
+            VisAlarmSkaerm('');
           end;
          if not PakkeshopNulstil.Visible then
           begin
@@ -2415,7 +2409,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 +2423,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
@@ -5203,13 +5197,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;