--- dao/DelphiScanner/Main.pas	2015/12/06 15:23:50	2792
+++ dao/DelphiScanner/Main.pas	2016/03/15 13:44:38	2977
@@ -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;
@@ -353,9 +358,11 @@
       else if (Sted = 'BR') then
         begin StedNavn := 'Brøndby: '; end
       else if (Sted = 'BK') then
-        begin StedNavn := 'Bladkompagniet: '; end
+        begin StedNavn := 'Bladkompagniet/ISV: '; end
+      else if (Sted = 'TK') then
+        begin StedNavn := 'BK/Trykkompagniet: '; end
       else if (Sted = 'DBK') then
-        begin StedNavn := 'DBK Køge: '; end
+        begin StedNavn := 'DBK/Køge: '; end
       else if (Sted = '1') then
         begin StedNavn := 'Ålborg: '; end
       else if (Sted = '2') then
@@ -565,6 +572,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');
+
 
 
 
@@ -682,6 +691,9 @@
 {$IfDef STED_BK}
     SpecialVersionSted := 'BK';
 {$EndIf}
+{$IfDef STED_TK}
+    SpecialVersionSted := 'TK';// BK-Trykkompagniet
+{$EndIf}
 {$IfDef STED_DBK}
     SpecialVersionSted := 'DBK';
 {$EndIf}
@@ -719,7 +731,7 @@
        SpecialVersionScanningtype := '4';
     end;
 
-    if SpecialVersionSted = 'BK' then
+    if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
     begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
       Sted := SpecialVersionSted;
@@ -760,8 +772,7 @@
       PanelValg5.Font.Color := clInactiveCaption;
       PanelValg6.Enabled := false;
       PanelValg6.Font.Color := clInactiveCaption;
-      PanelValg7.Enabled := false;
-      PanelValg7.Font.Color := clInactiveCaption;
+
 
      // her skal vi også disable de menupunkter DBK ikke kan bruge
       ReturpakkerfraDAO1.Enabled := false;
@@ -1118,6 +1129,9 @@
     or (NumberString = 'Retur fra kunde')
     or (NumberString = 'DAO DIREKTE')
     or (NumberString = 'DAO PAKKESHOP')
+    or (NumberString = 'DAO PAKKESHOP')
+    or (LowerCase(NumberString) = 'for stor hjemmelevering' )
+	or (LowerCase(NumberString) = 'for stor daodirekte' )
     or (NumberString = 'Retur fra pakkeshop') then
 
     begin
@@ -1128,11 +1142,15 @@
     begin
       ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift');
     end;
-  end;
+  end;  // Slut ctrl-v
 
   if Key = #13 then     // Enter
   begin
-    if (Length(Trim(Stregkode)) = 0) then
+
+    // Sikre at den er trimmet inden vi går videre - DBK kan finde på at encode et space i enden af deres barcodes
+    Stregkode := Trim(Stregkode);
+
+    if (Length(Stregkode) = 0) then
     begin
       VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
 
@@ -1182,6 +1200,22 @@
        exit;
     end;
 
+    if (LowerCase(StregKode) = 'for stor hjemmelevering') OR (LowerCase(StregKode) = 'for stor daodirekte') 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 +1696,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 +2034,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 +2061,7 @@
         end;
     end;
   end;
+
   XMLDocument1.LoadFromXML(WebSvar);
   try
     if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then
@@ -2037,7 +2085,7 @@
         end;
       end;
      end
-    else if menuIndlevering.Checked then
+    else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then
     begin
 
 
@@ -2052,6 +2100,7 @@
        Stregkode := PakkeshopLabel.Stregkode;
 
        LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+       chkForstorTilDirekte.Checked := false;
 
      end;
 
@@ -4202,6 +4251,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 +4260,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 +4287,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 +4306,8 @@
                   linienr := linienr + 1;
                 end;
             end;
+
+
             if antalFelterFundet = antalLiniefelter then
             begin
               if (ScanningType = '1') then
@@ -4271,6 +4324,7 @@
           end;
       end;
 
+
       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes