/[projects]/dao/DelphiScanner/Main.pas

Diff of /dao/DelphiScanner/Main.pas

Parent Directory | Revision Log | View Patch Patch

-revision 2791 by torben,
Fri Dec  4 15:39:20 2015 UTC
+revision 2800 by torben,
Wed Jan  6 12:53:51 2016 UTC
 Line 194 
 type
    //Nedarvet fra IParentForm
    procedure LogMessage( msg : string);
    procedure SetPrinterstatusText( txt: string; alert: boolean);
-Line 207 
 type
+Line 206 
 type
      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;
-Line 215 
 type
+Line 216 
 type
      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;
-Line 353 
 begin
+Line 358 
 begin
        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
        else if (Sted = '1') then
-Line 565 
 begin
+Line 572 
 begin
      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');
-Line 682 
 begin
+Line 691 
 begin
  {$IfDef STED_BK}
      SpecialVersionSted := 'BK';
  {$EndIf}
+ {$IfDef STED_TK}
+     SpecialVersionSted := 'TK';// BK-Trykkompagniet
+ {$EndIf}
  {$IfDef STED_DBK}
      SpecialVersionSted := 'DBK';
  {$EndIf}
-Line 719 
 begin
+Line 731 
 begin
         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;
-Line 1118 
 begin
+Line 1130 
 begin
      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
-Line 1128 
 begin
+Line 1143 
 begin
      begin
        ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift');
      end;
-   end;
+   end;  // Slut ctrl-v
    if Key = #13 then     // Enter
    begin
-Line 1182 
 begin
+Line 1197 
 begin
         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
-Line 1662 
 begin
+Line 1693 
 begin
    Key := #0;
  end; //End of OnKeyPress
  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
  const
    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
-Line 1993 
 begin
+Line 2031 
 begin
    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);
-Line 2014 
 begin
+Line 2058 
 begin
          end;
      end;
    end;
    XMLDocument1.LoadFromXML(WebSvar);
    try
      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then
-Line 2037 
 begin
+Line 2082 
 begin
          end;
        end;
       end
-     else if menuIndlevering.Checked then
+     else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then
      begin
-Line 2052 
 begin
+Line 2097 
 begin
         Stregkode := PakkeshopLabel.Stregkode;
         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+        chkForstorTilDirekte.Checked := false;
       end;
-Line 4075 
 var
+Line 4121 
 var
    antlinIdag, antlinSenere : Integer;
-   XmlFelter : TStrings;
+   //XmlFelter : TStrings;
+   XmlFelter : TDictionary<String, Integer>;
   begin
-     XmlFelter := TStringList.Create;
+     XmlFelter := TDictionary<String, Integer>.Create;
      pakketyper := TDictionary<String, Integer>.Create;
      linienr := 0;
      ListBox2.Clear;
      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget');
-Line 4157 
 var
+Line 4205 
 var
            if Node.NodeType = ntElement then begin
              if Node.NodeName = 'Stregkode' then
              begin
-                antlin := antlin + 1;
+                Inc(antlin);
                 // 20150306: start
                if not VarIsNull(Node.NodeValue) then
                begin
                   if (pos('(', Node.NodeValue) = 0) then
                   begin
-                    antlinIdag := antlinIdag + 1;
+                    Inc(antlinIdag);
                   end
                   else
                   begin
-                    antlinSenere := antlinSenere + 1;
+                    Inc(antlinSenere);
                   end;
                end;
                 // 20150306: slut
              end;
            end;
-           if (XmlFelter.values[Node.NodeName] <> '') then
+           if ( XmlFelter.ContainsKey(Node.NodeName) ) then
-                 XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1)
+               begin
+                 XmlFelter.TryGetValue(Node.NodeName, tmpAntal);
+                 XmlFelter.AddOrSetValue(Node.NodeName, tmpAntal + 1);
+               end
                else
-                 XmlFelter.values[Node.NodeName] := '1';
+               begin
+                 XmlFelter.Add(Node.NodeName, 1);
+               end;
        end;
        antalLiniefelter := XmlFelter.Count;
-Line 4195 
 var
+Line 4248 
 var
        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
-Line 4202 
 var
+Line 4257 
 var
                if not VarIsNull(Node.NodeValue) then
                  stregkode := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'ModtagerNavn' then begin
+             else if Node.NodeName = 'ModtagerNavn' then begin
                if not VarIsNull(Node.NodeValue) then
                  modtagernavn := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'ModtagerAdresse' then begin
+             else if Node.NodeName = 'ModtagerAdresse' then begin
                if not VarIsNull(Node.NodeValue) then
                  modtageradresse := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'Kommentar' then begin
+             else if Node.NodeName = 'Kommentar' then begin
                if not VarIsNull(Node.NodeValue) then
                  kommentar := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-             end;
+             end
-             if Node.NodeName = 'PakkeType' then begin
+             else if Node.NodeName = 'PakkeType' then begin
                if not VarIsNull(Node.NodeValue) then
                  pakketype := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-Line 4229 
 var
+Line 4284 
 var
                end
                else
                  pakketyper.Add(pakketype, 1);
-             end;
+             end
-             if Node.NodeName = 'TjekkodeStatus' then begin
+             else if Node.NodeName = 'TjekkodeStatus' then begin
                if not VarIsNull(Node.NodeValue) then
                  tjekkodestatus := Node.NodeValue;
                  antalFelterFundet := antalFelterFundet + 1;
-Line 4248 
 var
+Line 4303 
 var
                    linienr := linienr + 1;
                  end;
              end;
              if antalFelterFundet = antalLiniefelter then
              begin
                if (ScanningType = '1') then
-Line 4265 
 var
+Line 4322 
 var
        end;
+       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
        for pakketype in pakketyper.Keys do
        begin
          pakketyper.TryGetValue(pakketype, tmpAntal);

 Legend:



Removed from v.2791
 


changed lines


 
Added in v.2800
 Legend:



Removed from v.2791
 


changed lines


 
Added in v.2800
-Removed from v.2791
+Added in v.2800

	ViewVC Help
Powered by ViewVC 1.1.20