--- dao/DelphiScanner/Main.pas 2015/11/24 15:35:17 2780 +++ dao/DelphiScanner/Main.pas 2016/03/15 13:44:38 2977 @@ -25,7 +25,8 @@ ParentForm, LabelPrint, Configuration, - Vcl.Imaging.pngimage + Vcl.Imaging.pngimage, + Generics.Collections ; @@ -104,6 +105,7 @@ PanelManglendePakker5: TPanel; PanelManglendePakker6: TPanel; menuIndlevering: TMenuItem; + chkForstorTilDirekte: TCheckBox; @@ -192,7 +194,6 @@ - //Nedarvet fra IParentForm procedure LogMessage( msg : string); procedure SetPrinterstatusText( txt: string; alert: boolean); @@ -205,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; @@ -213,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; @@ -351,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 @@ -563,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'); + @@ -680,6 +691,9 @@ {$IfDef STED_BK} SpecialVersionSted := 'BK'; {$EndIf} +{$IfDef STED_TK} + SpecialVersionSted := 'TK';// BK-Trykkompagniet +{$EndIf} {$IfDef STED_DBK} SpecialVersionSted := 'DBK'; {$EndIf} @@ -717,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; @@ -758,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; @@ -1116,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 @@ -1126,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...' ); @@ -1180,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 @@ -1660,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 @@ -1991,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); @@ -2012,6 +2061,7 @@ end; end; end; + XMLDocument1.LoadFromXML(WebSvar); try if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then @@ -2035,7 +2085,7 @@ end; end; end - else if menuIndlevering.Checked then + else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then begin @@ -2050,6 +2100,7 @@ Stregkode := PakkeshopLabel.Stregkode; LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); + chkForstorTilDirekte.Checked := false; end; @@ -3086,6 +3137,10 @@ BtnEKLoverforsel.Enabled := true; InitLillePakke(); ListBox1.Items.Clear; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + if BladhusSted = 0 then begin IndlesScanningLogFil(); @@ -3117,6 +3172,10 @@ ListBox1.Items.Clear; ListBox2.Items.Clear; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + InitLillePakke(); end; @@ -3143,6 +3202,10 @@ ListBox1.Items.Clear; ListBox2.Items.Clear; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + InitLillePakke(); end; @@ -3174,6 +3237,10 @@ BtnEKLoverforsel.Enabled := false; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := true; + if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then begin IndlesScanningLogFil(); @@ -3209,6 +3276,9 @@ BtnEKLoverforsel.Enabled := true; + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := true; + InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3244,6 +3314,11 @@ BtnDownloadKontrolfil.Enabled := false; BtnOpdaterListen.Enabled := true; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + + InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3291,6 +3366,11 @@ BtnDownloadKontrolfil.Enabled := false; BtnOpdaterListen.Enabled := true; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + + InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -4034,16 +4114,25 @@ stregkode, modtagernavn, modtageradresse, kommentar : string; pakketype, tjekkodestatus : String; pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; - pakketyper : TStrings; + //pakketyper : TStrings; + pakketyper : TDictionary; + tmpAntal : Integer; + + + antlin : Integer; antlinIdag, antlinSenere : Integer; - XmlFelter : TStrings; + //XmlFelter : TStrings; + XmlFelter : TDictionary; begin - XmlFelter := TStringList.Create; - pakketyper := TStringList.Create; + + + XmlFelter := TDictionary.Create; + pakketyper := TDictionary.Create; + linienr := 0; ListBox2.Clear; ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget'); @@ -4058,6 +4147,8 @@ StedKode := Sted; end; + Application.Processmessages; //Ugly Hack to improve User Experience when switching modes + if (Scanningtype = '7') then @@ -4117,26 +4208,31 @@ 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 - XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1) + if ( XmlFelter.ContainsKey(Node.NodeName) ) then + 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; @@ -4144,6 +4240,9 @@ SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array + + Application.Processmessages; //Ugly Hack to improve User Experience when switching modes + logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; if (antlinSenere > 0) then begin @@ -4152,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 @@ -4159,32 +4260,35 @@ 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; - if (pakketyper.values[pakketype] <> '') then - pakketyper.values[pakketype] := IntToStr(StrToInt(pakketyper.values[pakketype]) + 1) + if ( pakketyper.ContainsKey(pakketype) ) then + begin + pakketyper.TryGetValue(pakketype, tmpAntal); + pakketyper.AddOrSetValue(pakketype, tmpAntal + 1); + end else - pakketyper.values[pakketype] := '1'; - end; - if Node.NodeName = 'TjekkodeStatus' then begin + pakketyper.Add(pakketype, 1); + end + else if Node.NodeName = 'TjekkodeStatus' then begin if not VarIsNull(Node.NodeValue) then tjekkodestatus := Node.NodeValue; antalFelterFundet := antalFelterFundet + 1; @@ -4202,6 +4306,8 @@ linienr := linienr + 1; end; end; + + if antalFelterFundet = antalLiniefelter then begin if (ScanningType = '1') then @@ -4217,13 +4323,22 @@ end; end; end; - for pakketypeix := 0 to pakketyper.Count-1 do - begin - ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + ' '+pakketyper[pakketypeix]+' pakke(r) ikke modtaget'); - end; - // Free up the list object + + Application.Processmessages; //Ugly Hack to improve User Experience when switching modes + + + for pakketype in pakketyper.Keys do + begin + pakketyper.TryGetValue(pakketype, tmpAntal); + ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + pakketype + ' ' + IntToStr(tmpAntal) + ' pakke(r) ikke modtaget'); + end; + + // Free up the dictionary object pakketyper.Free; + + + // ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.'); logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; if (antlinSenere > 0) then