--- dao/DelphiScanner/Main.pas	2016/05/23 13:03:49	3036
+++ dao/DelphiScanner/Main.pas	2016/06/14 09:50:04	3049
@@ -39,7 +39,6 @@
     XMLDocument1: TXMLDocument;
     ApplicationEvents1: TApplicationEvents;
     chkSporgEfterKunde: TCheckBox;
-    KommentarST: TStaticText;
     MainMenu1: TMainMenu;
     N1: TMenuItem;
     Pakkernormal1: TMenuItem;
@@ -106,6 +105,8 @@
     PanelManglendePakker6: TPanel;
     menuIndlevering: TMenuItem;
     chkForstorTilDirekte: TCheckBox;
+    chkEmballageRepareret: TCheckBox;
+    KommentarST: TLabel;
 
 
 
@@ -195,11 +196,13 @@
 
 
   //Nedarvet fra IParentForm
+  procedure Msg( msg : string);
   procedure LogMessage( msg : string);
   procedure SetPrinterstatusText( txt: string; alert: boolean);
   function GetFormObject() : TForm;
 
 
+
   private
     SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
     Stregkode : String;
@@ -286,6 +289,12 @@
 procedure TMainForm.InitForm(Farve,Titel,Url : String);
 begin
 
+    IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
+    IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
+
+
+
+
     StaticTextManglendePakker.Caption := '';
 
 
@@ -741,7 +750,6 @@
     SpecialVersionSted := 'NS';
 {$EndIf}
 
-
     //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
     //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
     //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
@@ -759,8 +767,24 @@
 
     if SpecialVersionSted = 'NS' then
     begin
-       SpecialVersionSted := '01';
-       SpecialVersionScanningtype := '4';
+       //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
+       //SpecialVersionScanningtype := '4';
+
+      //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
+      Sted := SpecialVersionSted;
+     // her skal vi også disable de knapper BK ikke kan bruge
+      PanelValg2.Enabled := false;
+      PanelValg2.Font.Color := clInactiveCaption;
+      PanelValg3.Enabled := false;
+      PanelValg3.Font.Color := clInactiveCaption;
+      //PanelValg6.Enabled := false;
+      //PanelValg6.Font.Color := clInactiveCaption;
+
+     // her skal vi også disable de menupunkter FD ikke kan bruge
+      ReturpakkerfraDAO1.Enabled := false;
+      Returpakkerfraboghandler1.Enabled := false;
+
+      //Returpakkerfrapakkeshop1.Enabled := false;
     end;
 
     if SpecialVersionSted = 'FD' then
@@ -1510,7 +1534,16 @@
               InitPakkeshoplevering();
             end;
           end
-      // Retur kan ikke scannes med 'Automatisk valg'
+     else if Pakketype = 'PakkeshopRetur' then
+          begin
+            if Scanningtype <> '6' then
+            begin
+             VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
+
+             exit;
+            end;
+          end
+
 
       else
           begin
@@ -3040,6 +3073,7 @@
 
 end;
 
+
 procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
 var
@@ -4242,6 +4276,9 @@
       begin
         // Her skal vi ikke gøre noget - men vi skal forespørge igen
         WebSvar := IdHTTP1.Get(URLStr);
+
+
+
       end;
       on e:exception do
       begin
@@ -4911,6 +4948,11 @@
 end;
 
 
+//Nedarvet fra IParentForm
+procedure TMainForm.Msg( msg : string);
+begin
+  ShowMessage(msg);
+end;
 
 //Nedarvet fra IParentForm
 procedure TMainForm.LogMessage( msg : string);