--- dao/DelphiScanner/Main.pas 2016/08/15 14:14:14 3087 +++ dao/DelphiScanner/Main.pas 2016/08/15 19:26:48 3090 @@ -212,26 +212,16 @@ Sted : String; StedNavn : String; - Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String; - ScanTjekkode : String; - ScanTjekkodeAutomatik : string; + Scanningtype, Pakketype : String; - Url : String; - Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, - FarveIndlevering : String; + Url : String; - Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, - TitelIndlevering : String; + Farve : String; - AlarmLyd : String; - ScannetOkLyd : String; - ScannetOkStorLyd : String; + Titel : String; - ScannetOkTilTjekkodeLyd : String; - PrinterNavn : String; - TjekPrinter : String; Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String; BladhusSted : Integer; @@ -244,7 +234,7 @@ logTekst : string; PakkeshopStregkode, PakkeshopTjekkode : String; BoghandlerStregkode, BoghandlerTjekkode : String; - TjekUrls : String; + Config : TConfiguration; @@ -415,7 +405,7 @@ if (Scanningtype = '1') or (Scanningtype = '5') then begin - if (ScanTjekkode = '1') then + if (Config.ScanTjekkode = '1') then begin chkScanTjekkode.Checked := true; chkScanTjekkode.Enabled := true; @@ -566,39 +556,6 @@ - FarveNormal := ReadString('Settings','FarveNormal','D8D8D8'); - TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker'); - FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9'); - TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO'); - FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9'); - TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler'); - FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE'); - TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker'); - FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF'); - TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker'); - - FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC'); - TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop'); - - FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB'); - TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode'); - - - SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0'); - ScanTjekkode := ReadString('Settings','ScanTjekkode','0'); - ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1'); - Scanningtype := ReadString('Settings','Scanningtype','A'); - Pakketype := ReadString('Settings','Pakketype','0'); - TestFunktionen := ReadString('Settings','TestFunktion','0'); - AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav'); - ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav'); - ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav'); - - ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav'); - - PrinterNavn := ReadString('Settings','PrinterNavn',''); - TjekPrinter := ReadString('Settings','TjekPrinter','1'); - TjekUrls := ReadString('Settings','TjekUrls','2'); if (SkrivLog = '1') then begin @@ -626,7 +583,7 @@ - if SporgEfterBoghandler = '1' then + if Config.SporgEfterBoghandler = '1' then begin chkSporgEfterKunde.Checked := true; Sprgefterboghandlernummer1.Checked := true; @@ -637,7 +594,7 @@ Sprgefterboghandlernummer1.Checked := false; end; - if ScanTjekkode = '1' then + if Config.ScanTjekkode = '1' then begin chkScanTjekkode.Checked := true; Scanogstjekkoden1.Checked := true; @@ -648,7 +605,7 @@ Scanogstjekkoden1.Checked := false; end; - if ScanTjekkodeAutomatik = '1' then + if Config.ScanTjekkodeAutomatik = '1' then begin menuAutomatiskTjekkodeStyring.Checked := true; chkScanTjekkode.Enabled := false; @@ -893,12 +850,12 @@ Application.Terminate; end; - if TjekUrls = '1' then // Tjekker urls + if Config.TjekUrls = '1' then // Tjekker urls begin TjekkerUrls(); - if TjekUrls = '-' then // så var der fejl i url - så vi stopper her + if Config.TjekUrls = '-' then // så var der fejl i url - så vi stopper her begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; RutenummerST.Caption := ''; BoghandlerNavnST.Caption := 'Fejl i urls'; @@ -954,14 +911,14 @@ radioLillePakke.Checked := true; end; - if TestFunktionen = '1' then + if Config.TestFunktionen = '1' then begin Testforbindelsen1.Visible := true; Testprinter1.Visible := true; Testlyd1.Visible := true; Testlyd2.Visible := true; end - else if TestFunktionen = '2' then + else if Config.TestFunktionen = '2' then begin Testforbindelsen1.Enabled := false; Testprinter1.Enabled := false; @@ -976,32 +933,12 @@ Testlyd2.Visible := false; end; - if not FileExists(AlarmLyd) then - begin - AlarmLyd := ''; - end; - - if not FileExists(ScannetOkLyd) then - begin - ScannetOkLyd := ''; - end; - - if not FileExists(ScannetOkStorLyd) then - begin - ScannetOkStorLyd := ''; - end; - - - if not FileExists(ScannetOkTilTjekkodeLyd) then - begin - ScannetOkTilTjekkodeLyd := ''; - end; - LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn ); - LabelPrint.CheckPrintQue('Opstart', PrinterNavn); + LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn ); + LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn); finally Free; @@ -1535,7 +1472,7 @@ BoghandlerStregkode := Stregkode; PakkeshopText1.Caption := 'Tjekkode'; - PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); + PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd)); end else @@ -1553,9 +1490,9 @@ BoghandlerTjekkode := Stregkode; PakkeshopText1.Caption := 'Stregkode'; if (menuPakkeshop1.Checked) then - MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering); + MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering); if (menuNatXpress1.Checked) then - MainForm.Color := TUtils.HexToTColor(FarveNormal); + MainForm.Color := TUtils.HexToTColor(Config.FarveNormal); btnNulstil.Visible := false; end else @@ -1609,7 +1546,7 @@ tjekkodemangler := pos('Tjekkode mangler', Kommentar); if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); btnNulstil.Visible := true; MainForm.Color := clRed; end; @@ -1619,11 +1556,11 @@ MainForm.Color := TUtils.HexToTColor(Farve); if menuStorePakker.Checked then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end; btnNulstil.Visible := false; end @@ -1632,11 +1569,11 @@ MainForm.Color := TUtils.HexToTColor(Farve); if menuStorePakker.Checked then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end; btnNulstil.Visible := false; end @@ -1659,11 +1596,11 @@ begin if menuStorePakker.Checked then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end; InitLillePakke(); end; @@ -2309,7 +2246,7 @@ begin PrintNyLabel := false; - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; @@ -2329,14 +2266,14 @@ logTekst := RightStr(List1Msg, Length(List1Msg)-10); SkrivScanningLogFil(logTekst); - if (PrinterNavn = 'Ingen') then + if (Config.PrinterNavn = 'Ingen') then begin PrintNyLabel := false; end; if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; end; @@ -2362,7 +2299,7 @@ if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; end; @@ -2431,7 +2368,7 @@ end else begin - if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then + if ( (Config.PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then begin logTekst := 'Printer label type '; if (chkAltidPrintLabel.Checked) then @@ -2641,7 +2578,7 @@ SkrivScanningLogFil(logTekst); Except - TjekUrls := '-'; // markerer at der var fejl + Config.TjekUrls := '-'; // markerer at der var fejl end; end; @@ -2661,14 +2598,14 @@ inc(urlFejl); // Optæller antal fejl logTekst := UrlNavn + ' svarer ikke: ' + Url; ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); - if TjekUrls = '1' then + if Config.TjekUrls = '1' then begin logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; end; SkrivScanningLogFil(logTekst); - if TjekUrls = '1' then + if Config.TjekUrls = '1' then begin ShowMessage(logTekst); Config.UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut @@ -2854,12 +2791,12 @@ Leveringssted : String; orgTjekUrls : String; begin - orgTjekUrls := TjekUrls; - if (TjekUrls = '1') or (TjekUrls = '2') then + orgTjekUrls := Config.TjekUrls; + if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then begin TjekkerUrls(); end; - if TjekUrls = '-' then + if Config.TjekUrls = '-' then begin //ShowMessage('Der var fejl i een eller flere urls - se logvinduet'); RuteNummer := ''; @@ -2868,7 +2805,7 @@ Koreliste := ''; UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); // Her kommer en alarm og rød skærm - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; end @@ -2884,7 +2821,7 @@ PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); FocusControl(StregkodeST); end; - TjekUrls := orgTjekUrls; + Config.TjekUrls := orgTjekUrls; end; @@ -2909,7 +2846,7 @@ begin ShowMessage('Der er ikke installeret en printer på denne PC.'); end - else if PrinterNavn = 'Ingen' then + else if Config.PrinterNavn = 'Ingen' then begin ShowMessage('Der er fravalgt printer i dette program.'); end @@ -2920,16 +2857,16 @@ DBKbane := '999'; Leveringssted := 'XXX'; PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); - LabelPrint.CheckPrintQue('Test', PrinterNavn); + LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); end; FocusControl(StregkodeST); end; procedure TMainForm.Timer1Timer(Sender: TObject); begin - if (TjekPrinter = '1') then + if (Config.TjekPrinter = '1') then begin - LabelPrint.CheckPrintQue('Timer', PrinterNavn); + LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn); end else begin @@ -3124,7 +3061,7 @@ menuAutomatiskTjekkodeStyring.Enabled := true; btnNulstil.Visible := false; menuNatXpress1.Checked := true; - InitForm(FarveNormal,TitelNormal,Config.UrlNormal); + InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal); PanelValg1.Color := clGreen; PanelValg1.Font.Color := clWhite; @@ -3160,7 +3097,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuNatxpressReturDAO1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO); + InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO); PanelValg2.Color := clGreen; PanelValg2.Font.Color := clWhite; @@ -3191,7 +3128,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuNatxpressReturfraKunde1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler); + InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler); PanelValg3.Color := clGreen; PanelValg3.Font.Color := clWhite; @@ -3221,7 +3158,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuDaoDirekte1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering); + InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering); PanelValg4.Color := clGreen; PanelValg4.Font.Color := clWhite; @@ -3261,7 +3198,7 @@ menuAutomatiskTjekkodeStyring.Enabled := true; menuPakkeshop1.Checked := true; btnNulstil.Visible := false; - InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering); + InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering); PanelValg5.Color := clGreen; PanelValg5.Font.Color := clWhite; @@ -3301,7 +3238,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuPakkeshopRetur1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop); + InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop); PanelValg6.Color := clGreen; PanelValg6.Font.Color := clWhite; @@ -3349,7 +3286,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; btnNulstil.Visible := false; - InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop); + InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop); PanelValg7.Color := clGreen; PanelValg7.Font.Color := clWhite; @@ -3428,9 +3365,9 @@ procedure TMainForm.Testlyd1Click(Sender: TObject); begin - if AlarmLyd <> '' then + if Config.AlarmLyd <> '' then begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end else begin @@ -3442,9 +3379,9 @@ begin if (PakkeshopText1.Caption = 'Tjekkode') then begin - if ScannetOkTilTjekkodeLyd <> '' then + if Config.ScannetOkTilTjekkodeLyd <> '' then begin - PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); + PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd)); end else begin @@ -3454,18 +3391,18 @@ end; if menuSmaaPakker.Checked then - if ScannetOkLyd <> '' then + if Config.ScannetOkLyd <> '' then begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end else begin MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK); end; if menuStorePakker.Checked then - if ScannetOkStorLyd <> '' then + if Config.ScannetOkStorLyd <> '' then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin @@ -3566,7 +3503,7 @@ // Hvis der var fejl i overførslen skal dette fejlmeldes her if status = 'Fejl' then begin // Her skal komme en alarm og rød skærm - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; RutenummerST.Caption := 'EKL overførsel'; BoghandlerNavnST.Caption := 'Fejl:'; @@ -4649,7 +4586,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; end @@ -4658,7 +4595,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.'); logTekst := 'Ruteskift fil '+filnavn+' findes ikke.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; @@ -4729,7 +4666,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; end @@ -4738,7 +4675,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.'); logTekst := 'Kontrol fil '+filnavn+' findes ikke.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; @@ -4796,7 +4733,7 @@ begin //ShowMessage('Ændring ikke tilladt'); // Her skal komme en 'rød skærm' alarm - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed;