--- dao/DelphiScanner/Main.pas	2015/12/10 11:25:05	2793
+++ dao/DelphiScanner/Main.pas	2015/12/17 19:04:09	2794
@@ -194,7 +194,6 @@
 
 
 
-
   //Nedarvet fra IParentForm
   procedure LogMessage( msg : string);
   procedure SetPrinterstatusText( txt: string; alert: boolean);
@@ -207,7 +206,9 @@
     SkrivLog : String;
     Sted : String;
     StedNavn : String;
-    Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String;
+    Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
+            UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
+            UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
 
     UrlEKLoverforselPakkeshop : String;
 
@@ -215,8 +216,12 @@
     Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
     ScanTjekkode : String;
     ScanTjekkodeAutomatik : string;
-    Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
-    Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
+
+    Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
+          FarveIndlevering : String;
+
+    Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
+          TitelIndlevering : String;
 
     AlarmLyd : String;
     ScannetOkLyd : String;
@@ -565,6 +570,8 @@
 
     UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
+    URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
+
 
 
 
@@ -1118,6 +1125,8 @@
     or (NumberString = 'Retur fra kunde')
     or (NumberString = 'DAO DIREKTE')
     or (NumberString = 'DAO PAKKESHOP')
+    or (NumberString = 'DAO PAKKESHOP')
+    or (LowerCase(NumberString) = 'for stor hjemmelevering' )
     or (NumberString = 'Retur fra pakkeshop') then
 
     begin
@@ -1128,7 +1137,7 @@
     begin
       ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift');
     end;
-  end;
+  end;  // Slut ctrl-v
 
   if Key = #13 then     // Enter
   begin
@@ -1182,6 +1191,22 @@
        exit;
     end;
 
+    if LowerCase(StregKode) = 'for stor hjemmelevering' then
+    begin
+      if chkForstorTilDirekte.Enabled then
+      begin
+        chkForstorTilDirekte.Checked := true;
+      end
+      else
+      begin
+         VisAlarmSkaerm( Stregkode + ' kan ikke vælges på denne scannings tilstand' );
+      end;
+      Stregkode := '';
+      StregkodeST.Caption := StregKode;
+      exit;
+    end;
+
+
     if StregKode = 'Indtast kundenummer' then
     begin
        if chkSporgEfterKunde.Enabled = true then
@@ -1662,8 +1687,15 @@
 
   Key := #0;
 
+
+
+
+
+
 end; //End of OnKeyPress
 
+
+
 procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
 const
   crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
@@ -1993,6 +2025,12 @@
   begin
     exit;
   end;
+
+  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]);
+  end;
+
   try
     //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
     WebSvar := IdHTTP1.Get(URLStr);
@@ -2014,6 +2052,7 @@
         end;
     end;
   end;
+
   XMLDocument1.LoadFromXML(WebSvar);
   try
     if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then
@@ -2037,7 +2076,7 @@
         end;
       end;
      end
-    else if menuIndlevering.Checked then
+    else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then
     begin
 
 
@@ -2052,6 +2091,7 @@
        Stregkode := PakkeshopLabel.Stregkode;
 
        LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+       chkForstorTilDirekte.Checked := false;
 
      end;
 
@@ -4202,6 +4242,8 @@
       logTekst := logTekst + '.';
 
       SkrivScanningLogFil(logTekst);
+
+
       for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
           Node:= XMLDocument1.DocumentElement.ChildNodes[I];
           if Node.NodeType = ntElement then begin
@@ -4209,23 +4251,23 @@
               if not VarIsNull(Node.NodeValue) then
                 stregkode := Node.NodeValue;
                 antalFelterFundet := antalFelterFundet + 1;
-            end;
-            if Node.NodeName = 'ModtagerNavn' then begin
+            end
+            else if Node.NodeName = 'ModtagerNavn' then begin
               if not VarIsNull(Node.NodeValue) then
                 modtagernavn := Node.NodeValue;
                 antalFelterFundet := antalFelterFundet + 1;
-            end;
-            if Node.NodeName = 'ModtagerAdresse' then begin
+            end
+            else if Node.NodeName = 'ModtagerAdresse' then begin
               if not VarIsNull(Node.NodeValue) then
                 modtageradresse := Node.NodeValue;
                 antalFelterFundet := antalFelterFundet + 1;
-            end;
-            if Node.NodeName = 'Kommentar' then begin
+            end
+            else if Node.NodeName = 'Kommentar' then begin
               if not VarIsNull(Node.NodeValue) then
                 kommentar := Node.NodeValue;
                 antalFelterFundet := antalFelterFundet + 1;
-            end;
-            if Node.NodeName = 'PakkeType' then begin
+            end
+            else if Node.NodeName = 'PakkeType' then begin
               if not VarIsNull(Node.NodeValue) then
                 pakketype := Node.NodeValue;
                 antalFelterFundet := antalFelterFundet + 1;
@@ -4236,8 +4278,8 @@
               end
               else
                 pakketyper.Add(pakketype, 1);
-            end;
-            if Node.NodeName = 'TjekkodeStatus' then begin
+            end
+            else if Node.NodeName = 'TjekkodeStatus' then begin
               if not VarIsNull(Node.NodeValue) then
                 tjekkodestatus := Node.NodeValue;
                 antalFelterFundet := antalFelterFundet + 1;
@@ -4255,6 +4297,8 @@
                   linienr := linienr + 1;
                 end;
             end;
+
+
             if antalFelterFundet = antalLiniefelter then
             begin
               if (ScanningType = '1') then
@@ -4271,6 +4315,7 @@
           end;
       end;
 
+
       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes