--- dao/DelphiScanner/Main.pas 2015/09/03 14:31:39 2694 +++ dao/DelphiScanner/Main.pas 2015/09/03 15:22:09 2701 @@ -56,16 +56,16 @@ IdFTP1: TIdFTP; Image1: TImage; ListBox2: TListBox; - OpdaterListenButton01: TButton; - UploadButton01: TButton; - DownloadButton03: TButton; + BtnOpdaterListen: TButton; + BtnUploadLogfil: TButton; + BtnDownloadRuteskiftFil: TButton; Pakkeshoplevering1: TMenuItem; PakkeshopText1: TStaticText; btnNulstil: TButton; Returpakkerfrapakkeshop1: TMenuItem; Altidprintepakkelabel1: TMenuItem; chkAltidPrintLabel: TCheckBox; - EKLoverforsel: TButton; + BtnEKLoverforsel: TButton; N5: TMenuItem; Uploadlogfil1: TMenuItem; Manual1: TMenuItem; @@ -99,8 +99,6 @@ function GetCurrentPrinterHandle() : THandle; function SavePChar(p: PChar): PChar; - function FileTime2DateTime(FileTime: TFileTime): TDateTime; - procedure PlaySound(filename : PWideChar); procedure StartScreen(); procedure InitScreen(); @@ -131,7 +129,7 @@ procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); procedure Budlevering1Click(Sender: TObject); procedure BtnDownloadKontrolfilClick(Sender: TObject); - procedure OpdaterListenButton01Click(Sender: TObject); + procedure BtnOpdaterListenClick(Sender: TObject); procedure DownloadBladhusRuteskiftfil(); procedure DownloadBladhusKontrolfil(); procedure SendFilTilDAO(fil_type, filnavn_input, filnavn_output: String); @@ -139,8 +137,8 @@ procedure UploadInifilTilDAO(); procedure SletStregkodelinieFraListboks2(StregKode : String); procedure FormDestroy(Sender: TObject); - procedure UploadButton01Click(Sender: TObject); - procedure DownloadButton03Click(Sender: TObject); + procedure BtnUploadLogfilClick(Sender: TObject); + procedure BtnDownloadRuteskiftFilClick(Sender: TObject); procedure Pakkeshoplevering1Click(Sender: TObject); procedure btnNulstilClick(Sender: TObject); procedure Returpakkerfrapakkeshop1Click(Sender: TObject); @@ -154,7 +152,7 @@ procedure Altidprintepakkelabel1Click(Sender: TObject); procedure chkAltidPrintLabelClick(Sender: TObject); - procedure EKLoverforselClick(Sender: TObject); + procedure BtnEKLoverforselClick(Sender: TObject); procedure Uploadlogfil1Click(Sender: TObject); procedure Manual1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); @@ -331,7 +329,7 @@ PanelValg7.Font.Color := clWindowText; end; - OpdaterListenButton01.Enabled := false; + BtnOpdaterListen.Enabled := false; if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then begin @@ -605,7 +603,7 @@ try SkrivScanningLogFil(logTekst); Uploadlogfil1.Enabled := true; - UploadButton01.Enabled := true; + BtnUploadLogfil.Enabled := true; logTekst := 'Programmet er installeret som: '+ParamStr(0); SkrivScanningLogFil(logTekst); // Oprydning i gamle logfiler @@ -1602,6 +1600,7 @@ if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then begin + if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then StregKode := PakkeshopStregkode; if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then @@ -1676,6 +1675,7 @@ begin VisAlarmSkaerm(''); end; + if not btnNulstil.Visible then begin @@ -1768,7 +1768,7 @@ begin - if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then + if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked or menuIndlevering.Checked then begin for i := ListBox2.items.count-1 downto 0 do if pos(StregKode,ListBox2.items[i]) <> 0 then @@ -1977,7 +1977,7 @@ begin; // NS Testprinter1.Visible := true; BtnDownloadKontrolfil.Enabled := true; - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt'; @@ -1993,7 +1993,7 @@ radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; IndlesManglendeScanninger(); @@ -2003,14 +2003,14 @@ Testprinter1.Visible := true; if (getProddag() = 'lørdag') then begin - DownloadButton03.Visible := false; + BtnDownloadRuteskiftFil.Visible := false; end else begin - DownloadButton03.Visible := false; + BtnDownloadRuteskiftFil.Visible := false; end; BtnDownloadKontrolfil.Enabled := true; - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; BladhusRuteskiftfil_server := 'frafd/RuteSkift.txt'; @@ -2031,7 +2031,7 @@ radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; end; @@ -2152,6 +2152,7 @@ PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc RuteNummer := PakkeshopLabel.Koreliste; + Stregkode := PakkeshopLabel.Stregkode; PrintPakkeshopLabel( PakkeshopLabel ); @@ -2285,12 +2286,18 @@ List1msg := List1msg + '; ' + Stregkode + ' (' + BoghandlerTjekkode + ')' + '; ' + Kommentar; end; end; + if menuIndlevering.Checked then + begin + List1Msg := Stregkode; + end; + + ListBox1.Items.Insert(0,List1Msg); logTekst := RightStr(List1Msg, Length(List1Msg)-10); SkrivScanningLogFil(logTekst); end; -procedure TMainForm.UploadButton01Click(Sender: TObject); +procedure TMainForm.BtnUploadLogfilClick(Sender: TObject); begin UploadLogfilTilDAO(); UploadInifilTilDAO(); @@ -3078,16 +3085,6 @@ end; -function TMainForm.FileTime2DateTime(FileTime: TFileTime): TDateTime; -var - LocalFileTime: TFileTime; - SystemTime: TSystemTime; -begin - FileTimeToLocalFileTime(FileTime, LocalFileTime) ; - FileTimeToSystemTime(LocalFileTime, SystemTime) ; - Result := SystemTimeToDateTime(SystemTime) ; -end; - procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings); var SR: TSearchRec; @@ -3107,7 +3104,7 @@ dt := fileDateToDateTime(SR.Time); // finder filens timestamp for seneste ændring CreationTime := SR.FindData.ftCreationTime; // finder filens timestamp for oprettelse - dtCreation := FileTime2DateTime(CreationTime); // finder filens timestamp for oprettelse + dtCreation := TUtils.FileTime2DateTime(CreationTime); // finder filens timestamp for oprettelse // Selvom creation date godt kan være forskellig fra modified date, // skal vi alligevel altid tjekke filens alder ud fra modified date // (ændring den kan ligge både før og efter oprettelse, hvis filerne er flyttet eller ændret manuelt) @@ -3488,7 +3485,7 @@ end else begin - ShowMessage('Acrobat Reader er ikke installeret!'); + ShowMessage('Adobe Reader er ikke installeret!'); end; end else @@ -3554,8 +3551,8 @@ radioStorPakke.Enabled := false; radioLillePakke.Enabled := false; ListBox1.Visible := true; - OpdaterListenButton01.Enabled := true; - EKLoverforsel.Enabled := true; + BtnOpdaterListen.Enabled := true; + BtnEKLoverforsel.Enabled := true; InitLillePakke(); ListBox1.Items.Clear; if BladhusSted = 0 then @@ -3588,7 +3585,7 @@ ListBox1.Visible := true; ListBox1.Items.Clear; ListBox2.Items.Clear; - EKLoverforsel.Enabled := false; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); end; @@ -3614,7 +3611,7 @@ ListBox1.Visible := true; ListBox1.Items.Clear; ListBox2.Items.Clear; - EKLoverforsel.Enabled := false; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); end; @@ -3641,9 +3638,9 @@ ListBox1.Visible := true; ListBox1.Items.Clear; BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; - DownloadButton03.Visible := false; - EKLoverforsel.Enabled := false; + BtnOpdaterListen.Enabled := true; + BtnDownloadRuteskiftFil.Visible := false; + BtnEKLoverforsel.Enabled := false; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then @@ -3677,9 +3674,9 @@ ListBox1.Visible := true; ListBox1.Items.Clear; BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; - EKLoverforsel.Enabled := true; + BtnEKLoverforsel.Enabled := true; InitLillePakke(); IndlesScanningLogFil(); @@ -3714,8 +3711,8 @@ ListBox1.Visible := true; ListBox1.Items.Clear; BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; - EKLoverforsel.Enabled := false; + BtnOpdaterListen.Enabled := true; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3761,8 +3758,8 @@ ListBox1.Items.Clear(); BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; - EKLoverforsel.Enabled := false; + BtnOpdaterListen.Enabled := true; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3871,7 +3868,7 @@ CheckCode(); end; -procedure TMainForm.EKLoverforselClick(Sender: TObject); +procedure TMainForm.BtnEKLoverforselClick(Sender: TObject); var WebSvar : String; URLStr : String; @@ -3881,7 +3878,7 @@ status, kommentar : String; begin - EKLoverforsel.Enabled := false; + BtnEKLoverforsel.Enabled := false; ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL'); logTekst := 'Overfører de scannede pakker til EKL'; @@ -3944,7 +3941,7 @@ end; end; - EKLoverforsel.Enabled := true; + BtnEKLoverforsel.Enabled := true; ListBox1.SetFocus; // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode @@ -4476,7 +4473,7 @@ ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode end; -procedure TMainForm.OpdaterListenButton01Click(Sender: TObject); +procedure TMainForm.BtnOpdaterListenClick(Sender: TObject); const crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed @@ -4485,7 +4482,7 @@ ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode end; -procedure TMainForm.DownloadButton03Click(Sender: TObject); +procedure TMainForm.BtnDownloadRuteskiftFilClick(Sender: TObject); begin if (getProddag() = 'lørdag') then begin