--- dao/DelphiScanner/Main.pas	2016/06/28 12:39:35	3057
+++ dao/DelphiScanner/Main.pas	2016/07/28 20:03:18	3076
@@ -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;
 
 
 
@@ -558,7 +560,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
@@ -2207,11 +2209,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 +2221,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;
@@ -4182,6 +4184,7 @@
   pakketyper : TDictionary<String, Integer>;
   tmpAntal : Integer;
 
+ time, timeSamlet : TTimingHelper;
 
 
   antlin : Integer;
@@ -4241,6 +4244,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 +4269,16 @@
       end;
     end;
     try
+      time.stop('HTTP Load');     //DEBUG
+
       XMLDocument1.LoadFromXML(WebSvar);
 
+      time.stop('XML Load');     //DEBUG
+
+
+
+
+
 
       antlin := 0;
       antlinIdag := 0;
@@ -4307,6 +4321,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 +4407,9 @@
       end;
 
 
+      time.stop('Fyld Listbox2');//DEBUG
+
+
       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
 
 
@@ -4511,6 +4529,10 @@
       end;
     end;
 
+    time.stop('Done');//DEBUG
+    timeSamlet.stop('SamletTid');//DEBUG
+
+
 end;
 
 procedure TMainForm.IndlesScanningLogFil();