--- dao/DelphiScanner/Main.pas	2015/09/03 14:40:49	2695
+++ dao/DelphiScanner/Main.pas	2015/09/04 09:36:19	2703
@@ -56,16 +56,16 @@
     IdFTP1: TIdFTP;
     Image1: TImage;
     ListBox2: TListBox;
-    OpdaterListenButton01: TButton;
-    UploadButton01: TButton;
-    DownloadButton03: TButton;
+    BtnOpdaterListen: TButton;
+    BtnUploadLogfil: TButton;
+    BtnDownloadRuteskiftFil: TButton;
     Pakkeshoplevering1: TMenuItem;
     PakkeshopText1: TStaticText;
     btnNulstil: TButton;
     Returpakkerfrapakkeshop1: TMenuItem;
     Altidprintepakkelabel1: TMenuItem;
     chkAltidPrintLabel: TCheckBox;
-    EKLoverforsel: TButton;
+    BtnEKLoverforsel: TButton;
     N5: TMenuItem;
     Uploadlogfil1: TMenuItem;
     Manual1: TMenuItem;
@@ -129,7 +129,7 @@
   procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
   procedure Budlevering1Click(Sender: TObject);
   procedure BtnDownloadKontrolfilClick(Sender: TObject);
-  procedure OpdaterListenButton01Click(Sender: TObject);
+  procedure BtnOpdaterListenClick(Sender: TObject);
   procedure DownloadBladhusRuteskiftfil();
   procedure DownloadBladhusKontrolfil();
   procedure SendFilTilDAO(fil_type, filnavn_input, filnavn_output: String);
@@ -137,8 +137,8 @@
   procedure UploadInifilTilDAO();
   procedure SletStregkodelinieFraListboks2(StregKode : String);
   procedure FormDestroy(Sender: TObject);
-  procedure UploadButton01Click(Sender: TObject);
-  procedure DownloadButton03Click(Sender: TObject);
+  procedure BtnUploadLogfilClick(Sender: TObject);
+  procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
   procedure Pakkeshoplevering1Click(Sender: TObject);
   procedure btnNulstilClick(Sender: TObject);
   procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
@@ -152,7 +152,7 @@
 
   procedure Altidprintepakkelabel1Click(Sender: TObject);
   procedure chkAltidPrintLabelClick(Sender: TObject);
-  procedure EKLoverforselClick(Sender: TObject);
+  procedure BtnEKLoverforselClick(Sender: TObject);
   procedure Uploadlogfil1Click(Sender: TObject);
   procedure Manual1Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
@@ -174,6 +174,7 @@
   procedure SletLogfiler(Path: string; FileList: TStrings);
   procedure Manualgenerel1Click(Sender: TObject);
   procedure TjekkerUrls();
+  procedure TjekkerEnkeltUrl(UrlNavn: String; Url: String; var urlFejl: integer);
 
   procedure menuIndleveringClick(Sender: TObject);
 
@@ -329,7 +330,7 @@
       PanelValg7.Font.Color := clWindowText;
     end;
 
-    OpdaterListenButton01.Enabled := false;
+    BtnOpdaterListen.Enabled := false;
 
     if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
     begin
@@ -603,7 +604,7 @@
       try
         SkrivScanningLogFil(logTekst);
         Uploadlogfil1.Enabled := true;
-        UploadButton01.Enabled := true;
+        BtnUploadLogfil.Enabled := true;
         logTekst := 'Programmet er installeret som: '+ParamStr(0);
         SkrivScanningLogFil(logTekst);
         // Oprydning i gamle logfiler
@@ -1600,6 +1601,7 @@
 
     if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then
     begin
+
        if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
           StregKode := PakkeshopStregkode;
        if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
@@ -1674,6 +1676,7 @@
           begin
             VisAlarmSkaerm('');
           end;
+
          if not btnNulstil.Visible then
           begin
 
@@ -1766,7 +1769,7 @@
 
 
 begin
-    if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then
+    if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked or menuIndlevering.Checked then
     begin
       for i := ListBox2.items.count-1 downto 0 do
         if pos(StregKode,ListBox2.items[i]) <> 0 then
@@ -1975,7 +1978,7 @@
           begin;      // NS
             Testprinter1.Visible := true;
             BtnDownloadKontrolfil.Enabled := true;
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt';
@@ -1991,7 +1994,7 @@
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             IndlesManglendeScanninger();
@@ -2001,14 +2004,14 @@
             Testprinter1.Visible := true;
            if (getProddag() = 'lørdag') then
             begin
-              DownloadButton03.Visible := false;
+              BtnDownloadRuteskiftFil.Visible := false;
             end
             else
             begin
-              DownloadButton03.Visible := false;
+              BtnDownloadRuteskiftFil.Visible := false;
             end;
             BtnDownloadKontrolfil.Enabled := true;
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             BladhusRuteskiftfil_server := 'frafd/RuteSkift.txt';
@@ -2029,7 +2032,7 @@
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
           end;
@@ -2149,7 +2152,8 @@
      begin
        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
        PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
-       RuteNummer := PakkeshopLabel.Koreliste;
+       RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
+       Stregkode := PakkeshopLabel.Stregkode;
 
        PrintPakkeshopLabel( PakkeshopLabel );
 
@@ -2283,12 +2287,18 @@
       List1msg := List1msg + '; ' + Stregkode + ' (' + BoghandlerTjekkode + ')' + '; ' + Kommentar;
     end;
   end;
+  if menuIndlevering.Checked then
+  begin
+    List1Msg := Stregkode;
+  end;
+
+
   ListBox1.Items.Insert(0,List1Msg);
   logTekst := RightStr(List1Msg, Length(List1Msg)-10);
   SkrivScanningLogFil(logTekst);
 end;
 
-procedure TMainForm.UploadButton01Click(Sender: TObject);
+procedure TMainForm.BtnUploadLogfilClick(Sender: TObject);
 begin
   UploadLogfilTilDAO();
   UploadInifilTilDAO();
@@ -2644,438 +2654,144 @@
   //UpdateScreen('', '', 'Tjekker forbindelsen...', '', '');    // virker ikke
   ShowMessage('Tjekker data forbindelse til serveren.' + crlf + 'Det kan godt tage nogle minutter.' + crlf + 'Resultatet af testen vises i skærmbilledet...');
 
-        // Tjekker urls
-        logTekst := 'Tjekker urls.';
-        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-        SkrivScanningLogFil(logTekst);
+  try
+    // Tjekker urls
+    logTekst := 'Tjekker urls.';
+    ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+    SkrivScanningLogFil(logTekst);
 
-        // Tjekker UrlNormal
-        if PanelValg1.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlNormal) then
-          begin
-            logTekst := 'UrlNormal accepteret: ' + UrlNormal;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlNormal svarer ikke: ' + UrlNormal;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              TjekUrls := '-';   // markerer at der var fejl
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
 
-        // Tjekker UrlReturDAO
-        if PanelValg2.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlReturDAO) then
-          begin
-            logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlReturDAO svarer ikke: ' + UrlReturDAO;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
 
-        // Tjekker UrlReturBoghandler
-        if PanelValg3.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlReturBoghandler) then
-          begin
-            logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlReturDAO svarer ikke: ' + UrlReturDAO;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlNormal
+    if PanelValg1.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);
+    end;
 
-        // Tjekker UrlBudlevering
-        if PanelValg4.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlBudlevering) then
-          begin
-            logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlBudlevering svarer ikke: ' + UrlBudlevering;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlReturDAO
+    if PanelValg2.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);
+    end;
 
-        // Tjekker UrlPakkeshoplevering
-        if PanelValg5.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlPakkeshoplevering) then
-          begin
-            logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlPakkeshoplevering svarer ikke: ' + UrlPakkeshoplevering;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlReturBoghandler
+    if PanelValg3.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);
+    end;
 
-        // Tjekker UrlReturPakkeshop
-        if PanelValg6.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlReturPakkeshop) then
-          begin
-            logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlReturPakkeshop svarer ikke: ' + UrlReturPakkeshop;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlBudlevering
+    if PanelValg4.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);
+    end;
 
-        // Tjekker UrlManglendeScanninger
-        if (PanelValg1.Enabled = true)
-        or (PanelValg4.Enabled = true) then
-        begin
-          if TUtils.CheckUrl(UrlManglendeScanninger) then
-          begin
-            logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlManglendeScanninger svarer ikke: ' + UrlManglendeScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlPakkeshoplevering
+    if PanelValg5.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);
+    end;
 
-        // Tjekker UrlPakkeshopManglendeScanninger
-        if PanelValg5.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then
-          begin
-            logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlPakkeshopManglendeScanninger svarer ikke: ' + UrlPakkeshopManglendeScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlReturPakkeshop
+    if PanelValg6.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);
+    end;
 
-        // Tjekker UrlPakkeshopManglendeReturScanninger
-        if PanelValg6.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then
-          begin
-            logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlPakkeshopManglendeReturScanninger svarer ikke: ' + UrlPakkeshopManglendeReturScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlManglendeScanninger
+    if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
+    begin
+      TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);
+    end;
 
-       // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
-        if PanelValg7.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlIndleveringsPakke) then
-          begin
-            logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
+    // Tjekker UrlPakkeshopManglendeScanninger
+    if PanelValg5.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);
+    end;
 
-          if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
-          begin
-            logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlPakkeshopManglendeReturScanninger
+    if PanelValg6.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);
+    end;
 
-        // Tjekker UrlEKLoverforsel
-        if PanelValg1.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlEKLoverforsel) then
-          begin
-            logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlEKLoverforsel svarer ikke: ' + UrlEKLoverforsel;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+   // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
+    if PanelValg7.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);
+      TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);
+    end;
 
+    // Tjekker UrlEKLoverforsel
+    if PanelValg1.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);
+    end;
 
-        // Tjekker UrlEKLoverforselPakkeshop
-        if PanelValg5.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then
-          begin
-            logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlEKLoverforselPakkeshop svarer ikke: ' + UrlEKLoverforselPakkeshop;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
 
+    // Tjekker UrlEKLoverforselPakkeshop
+    if PanelValg5.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);
+    end;
 
-        // Tjekker UrlFindPakketype
-        if TUtils.CheckUrl(UrlFindPakketype) then
-        begin
-          logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;
-          SkrivScanningLogFil(logTekst);
-        end
-        else
-        begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlFindPakketype svarer ikke: ' + UrlFindPakketype;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-        end;
 
-        // Tjekker UrlSendPrograminfo
-        if TUtils.CheckUrl(UrlSendPrograminfo) then
-        begin
-          logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;
-          SkrivScanningLogFil(logTekst);
-        end
-        else
-        begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlSendPrograminfo svarer ikke: ' + UrlSendPrograminfo;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-        end;
+    // Tjekker UrlFindPakketype
+    TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);
 
-        if urlFejl > 0 then
-        begin
-          TjekUrls := '-';   // markerer at der var fejl
-        end
-        else
-        begin
-          logTekst := 'urls er ok';
-          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-          SkrivScanningLogFil(logTekst);
-        end;
+    // Tjekker UrlSendPrograminfo
+    TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);
+
+
+
+    logTekst := 'urls er ok';
+    ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+    SkrivScanningLogFil(logTekst);
+
+  Except
+    TjekUrls := '-';   // markerer at der var fejl
+
+  end;
+end;
+
+procedure TMainForm.TjekkerEnkeltUrl(UrlNavn: String; Url: String; var urlFejl: integer);
+const
+  crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
+begin
+  if TUtils.CheckUrl(Url) then
+
+  begin
+    logTekst := UrlNavn + ' accepteret: ' + Url;
+    SkrivScanningLogFil(logTekst);
+  end
+  else
+  begin
+    inc(urlFejl);   // Optæller antal fejl
+    logTekst := UrlNavn + ' svarer ikke: ' + Url;
+    ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+    if TjekUrls = '1' then
+    begin
+      logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
+    end;
+
+    SkrivScanningLogFil(logTekst);
+
+    if TjekUrls = '1' then
+    begin
+      ShowMessage(logTekst);
+      UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+      Application.Terminate;
+
+      raise Exception.Create('UrlFejl');
+
+    end;
+  end;
 
 end;
 
+
+
 procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
@@ -3476,7 +3192,7 @@
     end
     else
     begin
-      ShowMessage('Acrobat Reader er ikke installeret!');
+      ShowMessage('Adobe Reader er ikke installeret!');
     end;
   end
   else
@@ -3542,8 +3258,8 @@
       radioStorPakke.Enabled := false;
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
-      OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
+      BtnEKLoverforsel.Enabled := true;
       InitLillePakke();
       ListBox1.Items.Clear;
       if BladhusSted = 0 then
@@ -3576,7 +3292,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       ListBox2.Items.Clear;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
 end;
 
@@ -3602,7 +3318,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       ListBox2.Items.Clear;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
 end;
 
@@ -3629,9 +3345,9 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
-      DownloadButton03.Visible := false;
-      EKLoverforsel.Enabled := false;
+      BtnOpdaterListen.Enabled := true;
+      BtnDownloadRuteskiftFil.Visible := false;
+      BtnEKLoverforsel.Enabled := false;
       IdFTP1.Passive := true;
       IdFTP1.PassiveUseControlHost := true;
       if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then
@@ -3665,9 +3381,9 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
 
-      EKLoverforsel.Enabled := true;
+      BtnEKLoverforsel.Enabled := true;
 
       InitLillePakke();
       IndlesScanningLogFil();
@@ -3702,8 +3418,8 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := false;
+      BtnOpdaterListen.Enabled := true;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
       if BladhusSted = 0 then
@@ -3749,8 +3465,8 @@
       ListBox1.Items.Clear();
 
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := false;
+      BtnOpdaterListen.Enabled := true;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
       if BladhusSted = 0 then
@@ -3859,7 +3575,7 @@
   CheckCode();
 end;
 
-procedure TMainForm.EKLoverforselClick(Sender: TObject);
+procedure TMainForm.BtnEKLoverforselClick(Sender: TObject);
 var
   WebSvar : String;
   URLStr : String;
@@ -3869,7 +3585,7 @@
   status, kommentar : String;
 
 begin
-    EKLoverforsel.Enabled := false;
+    BtnEKLoverforsel.Enabled := false;
 
     ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL');
     logTekst := 'Overfører de scannede pakker til EKL';
@@ -3932,7 +3648,7 @@
       end;
     end;
 
-    EKLoverforsel.Enabled := true;
+    BtnEKLoverforsel.Enabled := true;
 
     ListBox1.SetFocus;  // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 
@@ -4464,7 +4180,7 @@
     ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 end;
 
-procedure TMainForm.OpdaterListenButton01Click(Sender: TObject);
+procedure TMainForm.BtnOpdaterListenClick(Sender: TObject);
 const
   crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
 
@@ -4473,7 +4189,7 @@
     ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 end;
 
-procedure TMainForm.DownloadButton03Click(Sender: TObject);
+procedure TMainForm.BtnDownloadRuteskiftFilClick(Sender: TObject);
 begin
     if (getProddag() = 'lørdag') then
     begin