--- dao/DelphiScanner/Main.pas 2015/08/23 14:02:55 2657 +++ dao/DelphiScanner/Main.pas 2015/08/23 14:45:16 2660 @@ -8,7 +8,9 @@ IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, - Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet + Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet, + UITypes + ; type @@ -258,7 +260,7 @@ procedure IndlesScanningLogFil(); procedure SkrivScanningLogFil(var tekst : string); function TjekKoreliste(var RuteNummer, Koreliste : string) : string; - procedure VisAlarmSkaerm(var List1msg: string); + procedure VisAlarmSkaerm(strMessage: string); public { Public declarations } @@ -535,10 +537,7 @@ crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed var printerInd : integer; - i : Integer; -// 20150310: start gemScanningtype : String; -// 20150310: slut begin // Initierer nogle variabler @@ -1153,7 +1152,6 @@ BoghandlerNavn : String; Koreliste : String; PrintNyLabel : Boolean; - List1msg : String; pakkeErScannet : Integer; pakkeForkertSted : Integer; tjekkodeMangler : Integer; @@ -1209,14 +1207,8 @@ begin if (Length(Trim(Stregkode)) = 0) then begin - PlaySound(PWideChar(AlarmLyd)); - List1msg := 'Der skal scannes en stregkode...'; - ListBox1.Items.Insert(0,List1Msg); - MainForm.Color := clRed; - RuteNummerST.Caption := ''; - BoghandlerNavnST.Caption := ''; - KommentarST.Caption := List1msg; - PakkeshopNulstil.Visible := true; + VisAlarmSkaerm( 'Der skal scannes en stregkode...' ); + exit; end; @@ -1228,14 +1220,8 @@ if PakkeshopNulstil.Visible then begin - PlaySound(PWideChar(AlarmLyd)); - List1msg := 'HUSK at klikke Nulstil før ny scanning...'; + VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' ); - ListBox1.Items.Insert(0,List1Msg); - MainForm.Color := clRed; - KommentarST.Caption := List1msg; - Stregkode := ''; - StregkodeST.Caption := StregKode; exit; end; @@ -1247,7 +1233,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1262,7 +1248,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1284,7 +1270,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1306,7 +1292,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1321,7 +1307,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted'); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1337,7 +1323,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted'); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1352,7 +1338,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1367,7 +1353,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1382,7 +1368,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1397,7 +1383,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1412,7 +1398,7 @@ end else begin - VisAlarmSkaerm(List1msg); + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); end; Stregkode := ''; StregkodeST.Caption := StregKode; @@ -1473,19 +1459,7 @@ 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 - PlaySound(PWideChar(AlarmLyd)); - List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted'; - ListBox1.Items.Insert(0,List1Msg); - MainForm.Color := clRed; - - RuteNummerST.Caption := ''; - BoghandlerNavnST.Caption := ''; - - KommentarST.Caption := List1msg; - PakkeshopNulstil.Visible := true; - - StregKode := ''; - StregkodeST.Caption := StregKode; + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); exit; end; @@ -1522,20 +1496,9 @@ // Retur kan ikke scannes med 'Automatisk valg' else - begin // Her skal komme en alarm og rød skærm - PlaySound(PWideChar(AlarmLyd)); - List1msg := 'Pakken kan ikke scannes med automatisk valg'; - ListBox1.Items.Insert(0,List1Msg); - MainForm.Color := clRed; - - RuteNummerST.Caption := ''; - BoghandlerNavnST.Caption := ''; - - KommentarST.Caption := List1msg; - PakkeshopNulstil.Visible := true; - - StregKode := ''; - StregkodeST.Caption := StregKode; + begin + // Her skal komme en alarm og rød skærm + VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); exit; end; @@ -1543,19 +1506,7 @@ end else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then begin - PlaySound(PWideChar(AlarmLyd)); - List1msg := 'Pakkenummer ikke gyldigt (for kort)'; - ListBox1.Items.Insert(0,List1Msg); - MainForm.Color := clRed; - - RuteNummerST.Caption := ''; - BoghandlerNavnST.Caption := ''; - - KommentarST.Caption := List1msg; - PakkeshopNulstil.Visible := true; - - StregKode := ''; - StregkodeST.Caption := StregKode; + VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' ); exit; end; @@ -1564,18 +1515,9 @@ begin if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then begin - PlaySound(PWideChar(AlarmLyd)); - List1msg := 'Pakke findes som pakketype: ' + Pakketype; - ListBox1.Items.Insert(0,List1Msg); - MainForm.Color := clRed; - RuteNummerST.Caption := ''; - BoghandlerNavnST.Caption := ''; + VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype ); - KommentarST.Caption := List1msg; - PakkeshopNulstil.Visible := true; - StregKode := ''; - StregkodeST.Caption := StregKode; exit; end; end; @@ -1625,19 +1567,13 @@ PakkeshopStregkode := Stregkode; BoghandlerStregkode := Stregkode; PakkeshopText1.Caption := 'Tjekkode'; -// 20150317: start + PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); -// 20150317: slut + end else begin - List1msg := 'Du skal scanne en stregkode'; - ListBox1.Items.Insert(0,List1Msg); - //logTekst := RightStr(List1Msg, Length(List1Msg)-10); - //SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); - PakkeshopNulstil.Visible := true; - MainForm.Color := clRed; + VisAlarmSkaerm( 'Du skal scanne en stregkode' ); end; Stregkode := ''; InitScreen(); @@ -1658,20 +1594,13 @@ else begin if (PakkeshopLevering1.Checked) then - List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode; + VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode); if (Pakkernormal1.Checked) then - List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode; - KommentarST.Caption := List1msg; - ListBox1.Items.Insert(0,List1Msg); - //logTekst := RightStr(List1Msg, Length(List1Msg)-10); - //SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); - PakkeshopNulstil.Visible := true; - MainForm.Color := clRed; -// 20150323: start + VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode); + StregKode := ''; StregkodeST.Caption := StregKode; -// 20150323: slut + exit; end; Stregkode := ''; @@ -1749,11 +1678,7 @@ end else if Copy(Kommentar,1,8) = 'OPRETTET' then begin - List1msg := 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages'; - ListBox1.Items.Insert(0,List1Msg); - MainForm.Color := clRed; - PlaySound(PWideChar(AlarmLyd)); - PakkeshopNulstil.Visible := true; + VisAlarmSkaerm( 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages' ); end else if Kommentar = StregKode then // budlevering til 'Ukendt tur' begin @@ -1766,9 +1691,7 @@ end; if not PakkeshopNulstil.Visible then begin -// 20150310: start -// SletStregkodelinieFraListboks2(StregKode); -// 20150310: slut + If (Budlevering1.Checked) then begin if Storepakker1.Checked then @@ -1782,9 +1705,9 @@ InitLillePakke(); end; end; -// 20150310: start + SletStregkodelinieFraListboks2(StregKode); -// 20150310: slut + PakkeshopStregkode := ''; PakkeshopTjekkode := ''; BoghandlerStregkode := ''; @@ -2004,8 +1927,6 @@ end; procedure TMainForm.InitBladhus(); -var - LogFilnavn : string; begin Altidprintepakkelabel1.Enabled := false; @@ -3289,7 +3210,6 @@ BoghandlerNavn : String; Koreliste : String; Falsk : Boolean; - Sand : Boolean; SmsKode : String; DBKbane : String; Leveringssted : String; @@ -3316,7 +3236,7 @@ else begin Falsk := False; - Sand := True; + HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, ''); UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); SmsKode := '999999'; @@ -3336,7 +3256,6 @@ BoghandlerNavn : String; Koreliste : String; Falsk : Boolean; - Sand : Boolean; SmsKode : String; DBKbane : String; Leveringssted : String; @@ -3345,7 +3264,7 @@ Kommentar := '***** Kommentar *****'; BoghandlerNavn := 'Modtagernavn'; Falsk := False; - Sand := True; + if (Printer.Printers.Count = 0) then begin @@ -3903,13 +3822,13 @@ // Hvorfor virker ovenstående ikke ??? S := ''; - Str(iVer[1],Result); + Str(iVer[1], Result); S := S+Result+'.'; - Str(iVer[2],Result); + Str(iVer[2], Result); S := S+Result+'.'; - Str(iVer[3],Result); + Str(iVer[3], Result); S := S+Result+'.'; - Str(iVer[4],Result); + Str(iVer[4], Result); S := S+Result+''; Result := S; end; @@ -4743,7 +4662,6 @@ antlinIdag := 0; antlinSenere := 0; - antalFelterFundet := 0; for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin Node:= XMLDocument1.DocumentElement.ChildNodes[I]; if Node.NodeType = ntElement then begin @@ -5013,8 +4931,6 @@ procedure TMainForm.SkrivScanningLogFil(var tekst : string); var SomeTxtFile : TextFile; - buffer : string; - S: string; idag, imorgen : TDateTime; imorgenYmd : string; logFilnavn : string; @@ -5282,17 +5198,17 @@ result := svar; end; -procedure TMainForm.VisAlarmSkaerm(var List1msg: string); +procedure TMainForm.VisAlarmSkaerm(strMessage: string); begin //ShowMessage('Ændring ikke tilladt'); // Her skal komme en 'rød skærm' alarm PlaySound(PWideChar(AlarmLyd)); - List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; - ListBox1.Items.Insert(0, List1Msg); + + ListBox1.Items.Insert(0, strMessage); MainForm.Color := clRed; RuteNummerST.Caption := ''; BoghandlerNavnST.Caption := ''; - KommentarST.Caption := List1msg; + KommentarST.Caption := strMessage; PakkeshopNulstil.Visible := true; end;