--- dao/DelphiScanner/Main.pas 2015/10/22 14:06:23 2756 +++ dao/DelphiScanner/Main.pas 2016/01/06 12:53:51 2800 @@ -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,7 +358,9 @@ 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 @@ -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; @@ -1116,6 +1130,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,7 +1143,7 @@ begin ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift'); end; - end; + end; // Slut ctrl-v if Key = #13 then // Enter begin @@ -1180,6 +1197,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 @@ -1377,19 +1410,19 @@ Pakkescanningtype := Scanningtype; end; - if ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) - or (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) - or (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) - or (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) - or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) - or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then + if ( ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) ) + or ( (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) ) + or ( (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) ) + or ( (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) ) + or ( (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) ) + or ( (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) ) then begin // Her skal komme en alarm og rød skærm VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); exit; end; - if Automatiskvalg1.Checked and (Length(Stregkode) > 8) then + if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then begin GemStregkode := Stregkode; if Pakketype = 'NatXpress' then @@ -1423,7 +1456,8 @@ else begin // Her skal komme en alarm og rød skærm - VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); + //VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); + VisAlarmSkaerm( Stregkode + ' kan ikke bruges med automatisk valg' ); exit; end; @@ -1659,8 +1693,15 @@ Key := #0; + + + + + end; //End of OnKeyPress + + procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); const crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed @@ -1990,6 +2031,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); @@ -2011,6 +2058,7 @@ end; end; end; + XMLDocument1.LoadFromXML(WebSvar); try if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then @@ -2034,7 +2082,7 @@ end; end; end - else if menuIndlevering.Checked then + else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then begin @@ -2049,6 +2097,7 @@ Stregkode := PakkeshopLabel.Stregkode; LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); + chkForstorTilDirekte.Checked := false; end; @@ -3085,6 +3134,10 @@ BtnEKLoverforsel.Enabled := true; InitLillePakke(); ListBox1.Items.Clear; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + if BladhusSted = 0 then begin IndlesScanningLogFil(); @@ -3116,6 +3169,10 @@ ListBox1.Items.Clear; ListBox2.Items.Clear; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + InitLillePakke(); end; @@ -3142,6 +3199,10 @@ ListBox1.Items.Clear; ListBox2.Items.Clear; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + InitLillePakke(); end; @@ -3173,6 +3234,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(); @@ -3208,6 +3273,9 @@ BtnEKLoverforsel.Enabled := true; + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := true; + InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3243,6 +3311,11 @@ BtnDownloadKontrolfil.Enabled := false; BtnOpdaterListen.Enabled := true; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + + InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3290,6 +3363,11 @@ BtnDownloadKontrolfil.Enabled := false; BtnOpdaterListen.Enabled := true; BtnEKLoverforsel.Enabled := false; + + chkForstorTilDirekte.Checked := false; + chkForstorTilDirekte.Enabled := false; + + InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -4033,16 +4111,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'); @@ -4057,6 +4144,8 @@ StedKode := Sted; end; + Application.Processmessages; //Ugly Hack to improve User Experience when switching modes + if (Scanningtype = '7') then @@ -4116,26 +4205,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; @@ -4143,6 +4237,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 @@ -4151,6 +4248,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 @@ -4158,32 +4257,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; @@ -4201,6 +4303,8 @@ linienr := linienr + 1; end; end; + + if antalFelterFundet = antalLiniefelter then begin if (ScanningType = '1') then @@ -4216,13 +4320,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