--- dao/DelphiScanner/Main.pas 2015/12/06 15:23:50 2792 +++ dao/DelphiScanner/Main.pas 2016/06/13 09:12:26 3048 @@ -39,7 +39,6 @@ XMLDocument1: TXMLDocument; ApplicationEvents1: TApplicationEvents; chkSporgEfterKunde: TCheckBox; - KommentarST: TStaticText; MainMenu1: TMainMenu; N1: TMenuItem; Pakkernormal1: TMenuItem; @@ -106,6 +105,8 @@ PanelManglendePakker6: TPanel; menuIndlevering: TMenuItem; chkForstorTilDirekte: TCheckBox; + chkEmballageRepareret: TCheckBox; + KommentarST: TLabel; @@ -194,20 +195,23 @@ - //Nedarvet fra IParentForm + procedure Msg( msg : string); procedure LogMessage( msg : string); procedure SetPrinterstatusText( txt: string; alert: boolean); function GetFormObject() : TForm; + private SpecialVersionSted, SpecialVersionScanningtype: String; // Bruges når programmet skal bruges udenfor DAO scanningssteder Stregkode : String; 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 +219,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; @@ -255,6 +263,7 @@ procedure SkrivScanningLogFil(var tekst : string); function TjekKoreliste(var RuteNummer, Koreliste : string) : string; procedure VisAlarmSkaerm(strMessage: string); + function InjectURL(Url : String) : String; public { Public declarations } @@ -280,6 +289,12 @@ procedure TMainForm.InitForm(Farve,Titel,Url : String); begin + IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect + IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read + + + + StaticTextManglendePakker.Caption := ''; @@ -353,9 +368,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 @@ -496,6 +513,15 @@ PanelValgA.Font.Color := clWhite; end; +function TMainForm.InjectURL(Url : String) : String; +begin + + Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion('')); + Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper()); + Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName()); + + Result := Url; +end; //InitForm kaldes før FormCreate procedure TMainForm.FormCreate(Sender: TObject); @@ -546,25 +572,54 @@ SkrivLog := ReadString('Settings','SkrivLog','0'); Sted := ReadString('Settings','Sted',''); StedNavn := ReadString('Settings','Stednavn',''); + UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s'); + UrlFindPakketype := InjectURL(UrlFindPakketype); + UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s'); + UrlSendPrograminfo := InjectURL(UrlSendPrograminfo); + UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s'); + UrlNormal := InjectURL(UrlNormal); + UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s'); + UrlReturDAO := InjectURL(UrlReturDAO); + UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s'); + UrlReturBoghandler := InjectURL(UrlReturBoghandler); + UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s'); + UrlBudlevering := InjectURL(UrlBudlevering); + UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s'); + UrlManglendeScanninger := InjectURL(UrlManglendeScanninger); + UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s'); + UrlEKLoverforsel := InjectURL(UrlEKLoverforsel); UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s'); + UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop); UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s'); + UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering); + UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s'); + UrlReturPakkeshop := InjectURL(UrlReturPakkeshop); + UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s'); - UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s'); + UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger); + UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s'); + UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger); UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s'); + UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke); + UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s'); + UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger); + + URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s'); + URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop); @@ -682,6 +737,9 @@ {$IfDef STED_BK} SpecialVersionSted := 'BK'; {$EndIf} +{$IfDef STED_TK} + SpecialVersionSted := 'TK';// BK-Trykkompagniet +{$EndIf} {$IfDef STED_DBK} SpecialVersionSted := 'DBK'; {$EndIf} @@ -692,7 +750,6 @@ SpecialVersionSted := 'NS'; {$EndIf} - //SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) //SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) //SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) @@ -710,16 +767,51 @@ if SpecialVersionSted = 'NS' then begin - SpecialVersionSted := '01'; - SpecialVersionScanningtype := '4'; + //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg + //SpecialVersionScanningtype := '4'; + + //FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil + Sted := SpecialVersionSted; + // her skal vi også disable de knapper BK ikke kan bruge + PanelValg2.Enabled := false; + PanelValg2.Font.Color := clInactiveCaption; + PanelValg3.Enabled := false; + PanelValg3.Font.Color := clInactiveCaption; + //PanelValg6.Enabled := false; + //PanelValg6.Font.Color := clInactiveCaption; + + // her skal vi også disable de menupunkter FD ikke kan bruge + ReturpakkerfraDAO1.Enabled := false; + Returpakkerfraboghandler1.Enabled := false; + + //Returpakkerfrapakkeshop1.Enabled := false; end; + if SpecialVersionSted = 'FD' then begin - SpecialVersionSted := '03'; - SpecialVersionScanningtype := '4'; + //SpecialVersionSted := '03'; //fra før at FD overtog scanning + //SpecialVersionScanningtype := '4'; + + + //FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil + Sted := SpecialVersionSted; + // her skal vi også disable de knapper BK ikke kan bruge + PanelValg2.Enabled := false; + PanelValg2.Font.Color := clInactiveCaption; + PanelValg3.Enabled := false; + PanelValg3.Font.Color := clInactiveCaption; + //PanelValg6.Enabled := false; + //PanelValg6.Font.Color := clInactiveCaption; + + // her skal vi også disable de menupunkter FD ikke kan bruge + ReturpakkerfraDAO1.Enabled := false; + Returpakkerfraboghandler1.Enabled := false; + + //Returpakkerfrapakkeshop1.Enabled := false; + 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 +852,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 +1209,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 +1222,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 +1280,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 @@ -1420,7 +1534,16 @@ InitPakkeshoplevering(); end; end - // Retur kan ikke scannes med 'Automatisk valg' + else if Pakketype = 'PakkeshopRetur' then + begin + if Scanningtype <> '6' then + begin + VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' ); + + exit; + end; + end + else begin @@ -1662,8 +1785,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 +2123,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 +2150,7 @@ end; end; end; + XMLDocument1.LoadFromXML(WebSvar); try if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then @@ -2037,7 +2174,7 @@ end; end; end - else if menuIndlevering.Checked then + else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then begin @@ -2052,6 +2189,7 @@ Stregkode := PakkeshopLabel.Stregkode; LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); + chkForstorTilDirekte.Checked := false; end; @@ -2864,7 +3002,8 @@ SmsKode := '999999'; DBKbane := '999'; Leveringssted := 'XXX'; - PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); + LabelPrint.TestZpl(); + //PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); LabelPrint.CheckPrintQue('Test', PrinterNavn); end; FocusControl(StregkodeST); @@ -2935,6 +3074,7 @@ end; + procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var @@ -4137,6 +4277,9 @@ begin // Her skal vi ikke gøre noget - men vi skal forespørge igen WebSvar := IdHTTP1.Get(URLStr); + + + end; on e:exception do begin @@ -4202,6 +4345,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 +4354,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 +4381,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 +4400,8 @@ linienr := linienr + 1; end; end; + + if antalFelterFundet = antalLiniefelter then begin if (ScanningType = '1') then @@ -4271,6 +4418,7 @@ end; end; + Application.Processmessages; //Ugly Hack to improve User Experience when switching modes @@ -4726,6 +4874,8 @@ KommentarST.Caption := strMessage; end; + Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist + end; function TMainForm.getProddato() : TDate; @@ -4799,6 +4949,11 @@ end; +//Nedarvet fra IParentForm +procedure TMainForm.Msg( msg : string); +begin + ShowMessage(msg); +end; //Nedarvet fra IParentForm procedure TMainForm.LogMessage( msg : string);