--- dao/DelphiScanner/Main.pas	2015/08/23 14:27:39	2659
+++ dao/DelphiScanner/Main.pas	2015/08/23 16:09:33	2663
@@ -8,7 +8,9 @@
   IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
   Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
   IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
-  Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet
+  Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,
+  UITypes
+
   ;
 
 type
@@ -535,10 +537,7 @@
   crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
 var
   printerInd : integer;
-  i : Integer;
-// 20150310: start
   gemScanningtype : String;
-// 20150310: slut
 
 begin
   // Initierer nogle variabler
@@ -1169,7 +1168,6 @@
   URLStr : String;
   Pakketype : String;
   Pakkescanningtype : String;
-  //List1msg : String;
 
 begin
 
@@ -1602,6 +1600,7 @@
                 
               StregKode := '';
               StregkodeST.Caption := StregKode;
+
               exit;
          end;
         Stregkode := '';
@@ -1622,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
@@ -1686,9 +1681,7 @@
           end
           else
           begin
-            MainForm.Color := clRed;
-            PlaySound(PWideChar(AlarmLyd));
-            PakkeshopNulstil.Visible := true;
+            VisAlarmSkaerm('');
           end;
          if not PakkeshopNulstil.Visible then
           begin
@@ -1928,8 +1921,6 @@
 end;
 
 procedure TMainForm.InitBladhus();
-var
-  LogFilnavn : string;
 
 begin
   Altidprintepakkelabel1.Enabled := false;
@@ -2418,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
@@ -2432,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
@@ -3213,7 +3204,6 @@
   BoghandlerNavn : String;
   Koreliste : String;
   Falsk : Boolean;
-  Sand : Boolean;
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
@@ -3240,7 +3230,7 @@
   else
   begin
     Falsk := False;
-    Sand := True;
+
     HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
     UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
     SmsKode := '999999';
@@ -3260,7 +3250,6 @@
   BoghandlerNavn : String;
   Koreliste : String;
   Falsk : Boolean;
-  Sand : Boolean;
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
@@ -3269,7 +3258,7 @@
   Kommentar := '***** Kommentar *****';
   BoghandlerNavn := 'Modtagernavn';
   Falsk := False;
-  Sand := True;
+
 
   if (Printer.Printers.Count = 0) then
   begin
@@ -3735,12 +3724,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;
@@ -3827,13 +3816,13 @@
 
     // Hvorfor virker ovenstående ikke ???
     S := '';
-    Str(iVer[1],Result);
+    Str(iVer[1], Result);
     S := S+Result+'.';
-    Str(iVer[2],Result);
+    Str(iVer[2], Result);
     S := S+Result+'.';
-    Str(iVer[3],Result);
+    Str(iVer[3], Result);
     S := S+Result+'.';
-    Str(iVer[4],Result);
+    Str(iVer[4], Result);
     S := S+Result+'';
     Result := S;
   end;
@@ -4667,7 +4656,6 @@
       antlinIdag := 0;
       antlinSenere := 0;
 
-      antalFelterFundet := 0;
       for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
           Node:= XMLDocument1.DocumentElement.ChildNodes[I];
           if Node.NodeType = ntElement then begin
@@ -4937,8 +4925,6 @@
 procedure TMainForm.SkrivScanningLogFil(var tekst : string);
 var
    SomeTxtFile : TextFile;
-   buffer : string;
-   S: string;
    idag, imorgen : TDateTime;
    imorgenYmd : string;
    logFilnavn : string;
@@ -5211,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;