--- dao/DelphiScanner/Main.pas	2015/08/23 14:27:39	2659
+++ dao/DelphiScanner/Main.pas	2015/08/23 16:17:56	2664
@@ -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
@@ -86,6 +88,7 @@
     PanelManglendePakker4: TPanel;
     PanelManglendePakker5: TPanel;
     PanelManglendePakker6: TPanel;
+    menuIndlevering: TMenuItem;
 
 
   function Explode(var a: TStrArray; Border, S: string): Integer;
@@ -181,6 +184,7 @@
   procedure TjekkerUrls();
 // 20150310: start
   procedure RoundCornerOf(Control: TWinControl);
+    procedure menuIndleveringClick(Sender: TObject);
 
 
 // 20150310: slut
@@ -535,10 +539,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 +1170,6 @@
   URLStr : String;
   Pakketype : String;
   Pakkescanningtype : String;
-  //List1msg : String;
 
 begin
 
@@ -1602,6 +1602,7 @@
                 
               StregKode := '';
               StregkodeST.Caption := StregKode;
+
               exit;
          end;
         Stregkode := '';
@@ -1622,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
@@ -1686,9 +1683,7 @@
           end
           else
           begin
-            MainForm.Color := clRed;
-            PlaySound(PWideChar(AlarmLyd));
-            PakkeshopNulstil.Visible := true;
+            VisAlarmSkaerm('');
           end;
          if not PakkeshopNulstil.Visible then
           begin
@@ -1928,8 +1923,6 @@
 end;
 
 procedure TMainForm.InitBladhus();
-var
-  LogFilnavn : string;
 
 begin
   Altidprintepakkelabel1.Enabled := false;
@@ -2418,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
@@ -2432,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
@@ -3213,7 +3206,6 @@
   BoghandlerNavn : String;
   Koreliste : String;
   Falsk : Boolean;
-  Sand : Boolean;
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
@@ -3240,7 +3232,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 +3252,6 @@
   BoghandlerNavn : String;
   Koreliste : String;
   Falsk : Boolean;
-  Sand : Boolean;
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
@@ -3269,7 +3260,7 @@
   Kommentar := '***** Kommentar *****';
   BoghandlerNavn := 'Modtagernavn';
   Falsk := False;
-  Sand := True;
+
 
   if (Printer.Printers.Count = 0) then
   begin
@@ -3477,6 +3468,13 @@
   end;
 end;
 
+procedure TMainForm.menuIndleveringClick(Sender: TObject);
+begin
+  Scanningtype := '7';
+  NulstilAutomatiskValg();
+  InitIndleveringskode();
+end;
+
 procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
 begin
 
@@ -3708,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;
@@ -3827,13 +3826,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 +4666,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 +4935,6 @@
 procedure TMainForm.SkrivScanningLogFil(var tekst : string);
 var
    SomeTxtFile : TextFile;
-   buffer : string;
-   S: string;
    idag, imorgen : TDateTime;
    imorgenYmd : string;
    logFilnavn : string;
@@ -5211,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;