--- dao/DelphiScanner/Main.pas	2016/06/28 12:39:35	3057
+++ dao/DelphiScanner/Main.pas	2016/08/15 14:14:14	3087
@@ -26,7 +26,8 @@
   LabelPrint,
   Configuration,
   Vcl.Imaging.pngimage,
-  Generics.Collections
+  Generics.Collections,
+  TimingHelper
 
   ;
 
@@ -107,6 +108,7 @@
     chkForstorTilDirekte: TCheckBox;
     chkEmballageRepareret: TCheckBox;
     KommentarST: TLabel;
+    chkUdenforSpecifikation: TCheckBox;
 
 
 
@@ -209,17 +211,13 @@
     SkrivLog : String;
     Sted : String;
     StedNavn : String;
-    Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
-            UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
-            UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
 
-    UrlEKLoverforselPakkeshop : String;
-
-    UrlFindPakketype, UrlSendPrograminfo: String;
     Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
     ScanTjekkode : String;
     ScanTjekkodeAutomatik : string;
 
+    Url : String;
+
     Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
           FarveIndlevering : String;
 
@@ -263,7 +261,7 @@
     procedure SkrivScanningLogFil(var tekst : string);
     function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
     procedure VisAlarmSkaerm(strMessage: string);
-    function InjectURL(Url : String) : String;
+
 
   public
     { Public declarations }
@@ -513,15 +511,7 @@
      PanelValgA.Font.Color := clWhite;
 end;
 
-function TMainForm.InjectURL(Url : String) : String;
-begin
-
-  Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
-  Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
-  Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
 
-  Result := Url;
-end;
 
 //InitForm kaldes før FormCreate
 procedure TMainForm.FormCreate(Sender: TObject);
@@ -558,7 +548,7 @@
 
 // Sætter lige en default panel størrelse
   MainForm.ClientWidth := 1000;
-  MainForm.ClientHeight := 750;
+  MainForm.ClientHeight := 820;
 
   Config := TConfiguration.Create();
   Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
@@ -573,53 +563,6 @@
     Sted := ReadString('Settings','Sted','');
     StedNavn := ReadString('Settings','Stednavn','');
 
-    UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');
-    UrlFindPakketype := InjectURL(UrlFindPakketype);
-
-    UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');
-    UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
-
-    UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');
-    UrlNormal := InjectURL(UrlNormal);
-
-    UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
-    UrlReturDAO := InjectURL(UrlReturDAO);
-
-    UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
-    UrlReturBoghandler := InjectURL(UrlReturBoghandler);
-
-    UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
-    UrlBudlevering := InjectURL(UrlBudlevering);
-
-    UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
-    UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
-
-    UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
-    UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
-
-    UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
-    UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
-
-    UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
-    UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
-
-    UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
-    UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
-
-    UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
-    UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
-
-    UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
-    UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
-
-    UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
-    UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
-
-    UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
-    UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
-
-    URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
-    URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
 
 
 
@@ -1423,7 +1366,7 @@
     if (Length(Stregkode) > 8) then
     begin
       // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
-      URLStr := Format(UrlFindPakketype,[Stregkode]);
+      URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
       try
         //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
         WebSvar := IdHTTP1.Get(URLStr);
@@ -1774,9 +1717,9 @@
   WebSvar : String;
   URLStr : String;
 begin
-  if UrlSendPrograminfo <> '' then
+  if Config.UrlSendPrograminfo <> '' then
   begin
-    URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
+    URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
     try
       //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
       WebSvar := IdHTTP1.Get(URLStr);
@@ -1789,7 +1732,7 @@
       ShowMessage(logTekst);
       SkrivScanningLogFil(logTekst);
       // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet
-      UrlSendPrograminfo := '';
+      Config.UrlSendPrograminfo := '';
       Application.Terminate;
     end;
     end;
@@ -2067,31 +2010,31 @@
      begin
        BoghandlerTjekkode := '-1';
      end;
-     URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
+     URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
   end
   else if menuNatxpressReturDAO1.Checked then
   begin
-     URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
+     URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
   end
   else if menuNatxpressReturfraKunde1.Checked then
   begin
-     URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
+     URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
   end
   else if menuDaoDirekte1.Checked then
   begin
-     URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
+     URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
   end
   else if menuPakkeshop1.Checked then
   begin
-     URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
+     URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
   end
   else if menuPakkeshopRetur1.Checked then
   begin
-     URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
+     URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
   end
   else if menuIndlevering.Checked then
   begin
-    URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);
+    URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
   end
   else
   begin
@@ -2100,7 +2043,7 @@
 
   if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er
   begin
-    URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
+    URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
   end;
 
   try
@@ -2162,7 +2105,7 @@
        RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
        Stregkode := PakkeshopLabel.Stregkode;
 
-       LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+       LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
        chkForstorTilDirekte.Checked := false;
 
      end;
@@ -2207,11 +2150,11 @@
     begin
       if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
       begin
-          Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';
+          Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
           PrintNyLabel := False;
       end;
     end
-    else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then
+    else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
     begin
        if (Leveringssted = 'E') and (Sted = 'DBK') then
        begin
@@ -2219,7 +2162,7 @@
        end
        else
        begin
-          Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';
+          Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
           PrintNyLabel := False;
        end;
     end;
@@ -2613,83 +2556,83 @@
     // Tjekker UrlNormal
     if PanelValg1.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);
+      TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
     end;
 
     // Tjekker UrlReturDAO
     if PanelValg2.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);
+      TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
     end;
 
     // Tjekker UrlReturBoghandler
     if PanelValg3.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);
+      TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
     end;
 
     // Tjekker UrlBudlevering
     if PanelValg4.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);
+      TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
     end;
 
     // Tjekker UrlPakkeshoplevering
     if PanelValg5.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);
+      TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
     end;
 
     // Tjekker UrlReturPakkeshop
     if PanelValg6.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);
+      TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
     end;
 
     // Tjekker UrlManglendeScanninger
     if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
     begin
-      TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
     end;
 
     // Tjekker UrlPakkeshopManglendeScanninger
     if PanelValg5.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
     end;
 
     // Tjekker UrlPakkeshopManglendeReturScanninger
     if PanelValg6.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
     end;
 
    // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
     if PanelValg7.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);
-      TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
+      TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
     end;
 
     // Tjekker UrlEKLoverforsel
     if PanelValg1.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);
+      TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
     end;
 
 
     // Tjekker UrlEKLoverforselPakkeshop
     if PanelValg5.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);
+      TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
     end;
 
 
     // Tjekker UrlFindPakketype
-    TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);
+    TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
 
     // Tjekker UrlSendPrograminfo
-    TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);
+    TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
 
 
 
@@ -2728,7 +2671,7 @@
     if TjekUrls = '1' then
     begin
       ShowMessage(logTekst);
-      UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+      Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
       Application.Terminate;
 
       raise Exception.Create('UrlFejl');
@@ -2809,7 +2752,7 @@
   if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
   begin
      ShowMessage('Programmet afbrydes...');
-     UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+     Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
      Application.Terminate;
      exit;
   end;
@@ -3040,7 +2983,7 @@
     tekst := tekst+crlf+crlf;
     tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
     tekst := tekst+crlf+crlf;
-    tekst := tekst+crlf+crlf+'Url: '+url;
+    tekst := tekst+crlf+crlf+'Url: ' + Url;
   end;
 
   MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
@@ -3181,7 +3124,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       btnNulstil.Visible := false;
       menuNatXpress1.Checked := true;
-      InitForm(FarveNormal,TitelNormal,UrlNormal);
+      InitForm(FarveNormal,TitelNormal,Config.UrlNormal);
       PanelValg1.Color := clGreen;
       PanelValg1.Font.Color := clWhite;
 
@@ -3217,7 +3160,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturDAO1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
+      InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO);
       PanelValg2.Color := clGreen;
       PanelValg2.Font.Color := clWhite;
 
@@ -3248,7 +3191,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturfraKunde1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
+      InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler);
       PanelValg3.Color := clGreen;
       PanelValg3.Font.Color := clWhite;
 
@@ -3278,7 +3221,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuDaoDirekte1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
+      InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering);
       PanelValg4.Color := clGreen;
       PanelValg4.Font.Color := clWhite;
 
@@ -3318,7 +3261,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       menuPakkeshop1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
+      InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
       PanelValg5.Color := clGreen;
       PanelValg5.Font.Color := clWhite;
 
@@ -3358,7 +3301,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuPakkeshopRetur1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
+      InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop);
       PanelValg6.Color := clGreen;
       PanelValg6.Font.Color := clWhite;
 
@@ -3406,7 +3349,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
 
       btnNulstil.Visible := false;
-      InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
+      InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop);
       PanelValg7.Color := clGreen;
       PanelValg7.Font.Color := clWhite;
 
@@ -3559,11 +3502,11 @@
     logTekst := 'Overfører de scannede pakker til EKL';
     SkrivScanningLogFil(logTekst);
     StedKode := Sted;
-    URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);
+    URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
 
     if PanelValg5.Color = clGreen then
     begin
-      URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);
+      URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
     end;
 
 
@@ -4182,6 +4125,7 @@
   pakketyper : TDictionary<String, Integer>;
   tmpAntal : Integer;
 
+ time, timeSamlet : TTimingHelper;
 
 
   antlin : Integer;
@@ -4217,23 +4161,23 @@
 
     if (Scanningtype = '7') then
      begin
-      URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
+      URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
      end
     else if (Scanningtype = '6') then
      begin
-      URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);
+      URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
      end
     else if (Scanningtype = '5') then
      begin
-      URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);
+      URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
      end
     else if (Scanningtype = '1') then
      begin
-      URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);
+      URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
      end
     else if (Scanningtype = '4') then
      begin
-      URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
+      URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
      end
     else
      begin
@@ -4241,6 +4185,9 @@
      end;
 // 20150310: slut
 
+    time := TTimingHelper.create();        //DEBUG
+    timeSamlet := TTimingHelper.create();        //DEBUG
+
     try
     //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
 //    URLStr := string(Utf8Encode(URLStr));
@@ -4263,8 +4210,16 @@
       end;
     end;
     try
+      time.stop('HTTP Load');     //DEBUG
+
       XMLDocument1.LoadFromXML(WebSvar);
 
+      time.stop('XML Load');     //DEBUG
+
+
+
+
+
 
       antlin := 0;
       antlinIdag := 0;
@@ -4307,6 +4262,7 @@
       SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
       SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
 
+      time.stop('Antal Linier');//DEBUG
 
       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
 
@@ -4392,6 +4348,9 @@
       end;
 
 
+      time.stop('Fyld Listbox2');//DEBUG
+
+
       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
 
 
@@ -4511,6 +4470,10 @@
       end;
     end;
 
+    time.stop('Done');//DEBUG
+    timeSamlet.stop('SamletTid');//DEBUG
+
+
 end;
 
 procedure TMainForm.IndlesScanningLogFil();