--- Main.pas 2015/08/20 20:12:11 2645
+++ dao/DelphiScanner/Main.pas 2015/09/03 14:50:49 2698
@@ -8,11 +8,16 @@
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, ShellApi, ClipBrd, Buttons, wininet,
+ UITypes,
+ PakkeshopLabels,
+ StBarC,
+ Math, // DegToRad() bruges i PrintPakkeshopLabel
+ Utils
+
;
type
- TStrArray = array of string;
TMainForm = class(TForm)
StregkodeST: TStaticText;
RuteNummerST: TStaticText;
@@ -20,7 +25,7 @@
IdHTTP1: TIdHTTP;
XMLDocument1: TXMLDocument;
ApplicationEvents1: TApplicationEvents;
- CheckBox1: TCheckBox;
+ chkSporgEfterKunde: TCheckBox;
KommentarST: TStaticText;
MainMenu1: TMainMenu;
N1: TMenuItem;
@@ -36,8 +41,8 @@
Lukprogrammet1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
- RadioButton1: TRadioButton;
- RadioButton2: TRadioButton;
+ radioStorPakke: TRadioButton;
+ radioLillePakke: TRadioButton;
N4: TMenuItem;
Storepakker1: TMenuItem;
Smpakker1: TMenuItem;
@@ -47,26 +52,26 @@
Testlyd1: TMenuItem;
ListBox1: TListBox;
Budlevering1: TMenuItem;
- DownloadButton01: TButton;
+ BtnDownloadKontrolfil: TButton;
IdFTP1: TIdFTP;
Image1: TImage;
ListBox2: TListBox;
OpdaterListenButton01: TButton;
- UploadButton01: TButton;
- DownloadButton03: TButton;
+ BtnUploadLogfil: TButton;
+ BtnDownloadRuteskiftFil: TButton;
Pakkeshoplevering1: TMenuItem;
PakkeshopText1: TStaticText;
- PakkeshopNulstil: TButton;
+ btnNulstil: TButton;
Returpakkerfrapakkeshop1: TMenuItem;
Altidprintepakkelabel1: TMenuItem;
- CheckBox2: TCheckBox;
- EKLoverforsel: TButton;
+ chkAltidPrintLabel: TCheckBox;
+ BtnEKLoverforsel: TButton;
N5: TMenuItem;
Uploadlogfil1: TMenuItem;
Manual1: TMenuItem;
PrinterstatusStaticText1: TStaticText;
Timer1: TTimer;
- CheckBox3: TCheckBox;
+ chkScanTjekkode: TCheckBox;
Scanogstjekkoden1: TMenuItem;
Automatisktjekkodestyring1: TMenuItem;
Automatiskvalg1: TMenuItem;
@@ -77,6 +82,7 @@
PanelValg4: TPanel;
PanelValg5: TPanel;
PanelValg6: TPanel;
+ PanelValg7: TPanel;
Manualgenerel1: TMenuItem;
StaticTextManglendePakker: TStaticText;
PanelManglendePakker1: TPanel;
@@ -85,21 +91,13 @@
PanelManglendePakker4: TPanel;
PanelManglendePakker5: TPanel;
PanelManglendePakker6: TPanel;
+ menuIndlevering: TMenuItem;
- function Explode(var a: TStrArray; Border, S: string): Integer;
- function BarCodeValid (ACode: string): boolean;
- function Sto_GetFmtFileVersion(const FileName: String = ''; const Fmt: String = '%d.%d.%d.%d'): String;
- function TColorToHex(Color : TColor) : string;
- function HexToTColor(sColor : string) : TColor;
function getProddato() : TDate;
function getProddag() : String;
function retRutenummer(rutenummer : String) : String;
function GetCurrentPrinterHandle() : THandle;
function SavePChar(p: PChar): PChar;
- function AdobeReaderExists(): Boolean;
- function FileTime2DateTime(FileTime: TFileTime): TDateTime;
- function split(input: string; schar: Char; s: Integer): string;
- function CheckUrl(url:string):boolean;
procedure PlaySound(filename : PWideChar);
procedure StartScreen();
@@ -112,9 +110,9 @@
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
- procedure RadioButton1Click(Sender: TObject);
- procedure RadioButton2Click(Sender: TObject);
- procedure CheckBox1Click(Sender: TObject);
+ procedure radioStorPakkeClick(Sender: TObject);
+ procedure radioLillePakkeClick(Sender: TObject);
+ procedure chkSporgEfterKundeClick(Sender: TObject);
procedure Pakkernormal1Click(Sender: TObject);
procedure Testforbindelsen1Click(Sender: TObject);
procedure Testprinter1Click(Sender: TObject);
@@ -130,7 +128,7 @@
procedure Button1Click(Sender: TObject);
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure Budlevering1Click(Sender: TObject);
- procedure DownloadButton01Click(Sender: TObject);
+ procedure BtnDownloadKontrolfilClick(Sender: TObject);
procedure OpdaterListenButton01Click(Sender: TObject);
procedure DownloadBladhusRuteskiftfil();
procedure DownloadBladhusKontrolfil();
@@ -139,10 +137,10 @@
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 PakkeshopNulstilClick(Sender: TObject);
+ procedure btnNulstilClick(Sender: TObject);
procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
procedure InitNatxpresslevering();
procedure InitReturFraDao();
@@ -150,15 +148,16 @@
procedure InitDirektelevering();
procedure InitPakkeshoplevering();
procedure InitReturFraPakkeshop();
+ procedure InitIndleveringskode();
+
procedure Altidprintepakkelabel1Click(Sender: TObject);
- procedure CheckBox2Click(Sender: TObject);
- procedure EKLoverforselClick(Sender: TObject);
+ procedure chkAltidPrintLabelClick(Sender: TObject);
+ procedure BtnEKLoverforselClick(Sender: TObject);
procedure Uploadlogfil1Click(Sender: TObject);
procedure Manual1Click(Sender: TObject);
- procedure CheckPrintQue(tjektype : string);
procedure Timer1Timer(Sender: TObject);
procedure Scanogstjekkoden1Click(Sender: TObject);
- procedure CheckBox3Click(Sender: TObject);
+ procedure chkScanTjekkodeClick(Sender: TObject);
procedure Automatisktjekkodestyring1Click(Sender: TObject);
procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
procedure Automatiskvalg1Click(Sender: TObject);
@@ -169,13 +168,18 @@
procedure PanelValg4Click(Sender: TObject);
procedure PanelValg5Click(Sender: TObject);
procedure PanelValg6Click(Sender: TObject);
+ procedure PanelValg7Click(Sender: TObject);
+
procedure NulstilAutomatiskValg();
procedure SletLogfiler(Path: string; FileList: TStrings);
procedure Manualgenerel1Click(Sender: TObject);
procedure TjekkerUrls();
-// 20150310: start
- procedure RoundCornerOf(Control: TWinControl);
-// 20150310: slut
+
+ procedure menuIndleveringClick(Sender: TObject);
+
+ procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
+ procedure CheckPrintQue(tjektype : string);
+
private
SpecialVersionSted, SpecialVersionScanningtype: String; // Bruges når programmet skal bruges udenfor DAO scanningssteder
@@ -183,7 +187,7 @@
SkrivLog : String;
Sted : String;
StedNavn : String;
- Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlEKLoverforsel : String;
+ Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String;
// 29150330: start
UrlEKLoverforselPakkeshop : String;
// 20150330: slut
@@ -191,15 +195,15 @@
Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
ScanTjekkode : String;
ScanTjekkodeAutomatik : string;
- Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;
- Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;
+ Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
+ Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
LabelType : integer;
AlarmLyd : String;
ScannetOkLyd : String;
ScannetOkStorLyd : String;
-// 20150317: start
+
ScannetOkTilTjekkodeLyd : String;
-// 20150317: slut
+
PrinterNavn : String;
TjekPrinter : String;
XPosRute : integer;
@@ -238,7 +242,8 @@
BoghandlerStregkode, BoghandlerTjekkode : String;
TjekUrls : String;
- function CheckSumModulo10(const data:string):string; { used for EAN 8/13 }
+ Barcode : TStBarcode;
+
procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = '');
procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
@@ -250,11 +255,15 @@
procedure IndlesScanningLogFil();
procedure SkrivScanningLogFil(var tekst : string);
function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
+ procedure VisAlarmSkaerm(strMessage: string);
public
{ Public declarations }
end;
+ function GetPixelsPerInchX(): Integer;
+ function GetPixelsPerInchY(): Integer;
+
var
MainForm: TMainForm;
@@ -268,23 +277,6 @@
implementation
{$R *.dfm}
-function TMainForm.TColorToHex(Color : TColor) : string;
-begin
- Result :=
- IntToHex(GetRValue(Color), 2) +
- IntToHex(GetGValue(Color), 2) +
- IntToHex(GetBValue(Color), 2) ;
-end;
-
-function TMainForm.HexToTColor(sColor : string) : TColor;
-begin
- Result :=
- RGB(
- StrToInt('$'+Copy(sColor, 1, 2)),
- StrToInt('$'+Copy(sColor, 3, 2)),
- StrToInt('$'+Copy(sColor, 5, 2))
- ) ;
-end;
procedure TMainForm.InitForm(Farve,Titel,Url : String);
begin
@@ -293,6 +285,8 @@
StaticTextManglendePakker.Caption := '';
// 20150309: slut
+ Barcode := TStBarcode.Create(MainForm);//Dynamisk oprettelse af Barcode component
+
PanelValg1.Color := clBtnFace;
if PanelValg1.Enabled = true then
begin
@@ -329,6 +323,12 @@
PanelValg6.Font.Color := clWindowText;
end;
+ PanelValg7.Color := clBtnFace;
+ if PanelValg7.Enabled = true then
+ begin
+ PanelValg7.Font.Color := clWindowText;
+ end;
+
OpdaterListenButton01.Enabled := false;
if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
@@ -383,7 +383,7 @@
StartScreen();
MainForm.Caption := Titel;
- MainForm.Color := HexToTColor(Farve);
+ MainForm.Color := TUtils.HexToTColor(Farve);
MainForm.Farve := Farve;
MainForm.Titel := Titel;
MainForm.Url := Url;
@@ -398,29 +398,29 @@
else
PakkeshopText1.Visible := false;
- CheckBox3.Checked := false;
- CheckBox3.Enabled := false;
+ chkScanTjekkode.Checked := false;
+ chkScanTjekkode.Enabled := false;
Scanogstjekkoden1.Enabled := false;
if (Scanningtype = '1') or (Scanningtype = '5') then
begin
if (ScanTjekkode = '1') then
begin
- CheckBox3.Checked := true;
- CheckBox3.Enabled := true;
+ chkScanTjekkode.Checked := true;
+ chkScanTjekkode.Enabled := true;
Scanogstjekkoden1.Enabled := true;
end
else
begin
- CheckBox3.Checked := false;
- CheckBox3.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning
+ chkScanTjekkode.Checked := false;
+ chkScanTjekkode.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning
Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning
end;
end;
if Automatisktjekkodestyring1.Checked then
begin
- CheckBox3.Enabled := false;
+ chkScanTjekkode.Enabled := false;
Scanogstjekkoden1.Enabled := false;
end;
@@ -443,13 +443,13 @@
end
else
begin
- logTekst := 'Speciel version til: '+split(Titel, ':', 2)+' ('+Sted+')';
+ logTekst := 'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+Sted+')';
end;
SkrivScanningLogFil(logTekst);
end
else
begin
- logTekst := 'Speciel version til: '+split(Titel, ':', 2)+' ('+SpecialVersionSted+')';
+ logTekst := 'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+SpecialVersionSted+')';
SkrivScanningLogFil(logTekst);
end;
end;
@@ -461,11 +461,11 @@
if Altidprintepakkelabel1.Checked then
begin
- CheckBox2.Checked := true;
+ chkAltidPrintLabel.Checked := true;
end
else
begin
- CheckBox2.Checked := false;
+ chkAltidPrintLabel.Checked := false;
end;
end;
@@ -479,12 +479,12 @@
begin
if Automatisktjekkodestyring1.Checked then
begin
- CheckBox3.Enabled := false;
+ chkScanTjekkode.Enabled := false;
Scanogstjekkoden1.Enabled := false;
end
else
begin
- CheckBox3.Enabled := true;
+ chkScanTjekkode.Enabled := true;
Scanogstjekkoden1.Enabled := true;
end;
@@ -492,27 +492,11 @@
procedure TMainForm.Automatiskvalg1Click(Sender: TObject);
begin
-// 20150317: start
-(*
- if Automatiskvalg1.Checked then
- begin
- AutomatiskValg1.Checked := true;
- PanelValgA.Color := clGreen;
- PanelValgA.Font.Color := clWhite;
- end
- else
- begin
- AutomatiskValg1.Checked := false;
- PanelValgA.Color := clBtnFace;
- PanelValgA.Font.Color := clWindowText;
- end;
-*)
// Skal ikke toggle men bare sætte funktionen on
// Fravælges ved at vælge en scanningstype
AutomatiskValg1.Checked := true;
PanelValgA.Color := clGreen;
PanelValgA.Font.Color := clWhite;
-// 20150317: slut
end;
procedure TMainForm.FormCreate(Sender: TObject);
@@ -520,10 +504,7 @@
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed
var
printerInd : integer;
- i : Integer;
-// 20150310: start
gemScanningtype : String;
-// 20150310: slut
begin
// Initierer nogle variabler
@@ -531,17 +512,16 @@
Application.ShowHint := True;
PrinterstatusStaticText1.Caption := '';
PrinterstatusStaticText1.Color := MainForm.Color;
-// 20150306: start
- PakkeshopNulstil.BringToFront;
-// 20150306: slut
-// 20150310: start
- RoundCornerOf(PanelManglendePakker1);
- RoundCornerOf(PanelManglendePakker2);
- RoundCornerOf(PanelManglendePakker3);
- RoundCornerOf(PanelManglendePakker4);
- RoundCornerOf(PanelManglendePakker5);
- RoundCornerOf(PanelManglendePakker6);
-// 20150310: slut
+
+ btnNulstil.BringToFront;
+
+ TUtils.RoundCornerOf(PanelManglendePakker1);
+ TUtils.RoundCornerOf(PanelManglendePakker2);
+ TUtils.RoundCornerOf(PanelManglendePakker3);
+ TUtils.RoundCornerOf(PanelManglendePakker4);
+ TUtils.RoundCornerOf(PanelManglendePakker5);
+ TUtils.RoundCornerOf(PanelManglendePakker6);
+
// Hvis mappen Docs eksisterer kan vi vælge Manual i menuen Hjælp
if DirectoryExists('Docs') then
@@ -552,7 +532,7 @@
// Sætter lige en default panel størrelse
MainForm.ClientWidth := 1000;
- MainForm.ClientHeight := 700;
+ MainForm.ClientHeight := 750;
// Læser parametre fra ini filen
with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do
@@ -568,13 +548,20 @@
UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
-// 20150330: start
+
UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
-// 20150330: slut
+
UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
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');
+
+
+ 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');
+
+
+
LabelType := ReadInteger('Settings','LabelType',1);
FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
@@ -586,8 +573,14 @@
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');
@@ -597,20 +590,20 @@
AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
-// 20150317: start
+
ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
-// 20150317: slut
+
PrinterNavn := ReadString('Settings','PrinterNavn','');
TjekPrinter := ReadString('Settings','TjekPrinter','1');
TjekUrls := ReadString('Settings','TjekUrls','2');
if (SkrivLog = '1') then
begin
- logTekst := 'Program start (Version: ' + Sto_GetFmtFileVersion('','') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
+ logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
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
@@ -700,30 +693,30 @@
if SporgEfterBoghandler = '1' then
begin
- CheckBox1.Checked := true;
+ chkSporgEfterKunde.Checked := true;
Sprgefterboghandlernummer1.Checked := true;
end
else
begin
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
Sprgefterboghandlernummer1.Checked := false;
end;
if ScanTjekkode = '1' then
begin
- CheckBox3.Checked := true;
+ chkScanTjekkode.Checked := true;
Scanogstjekkoden1.Checked := true;
end
else
begin
- CheckBox3.Checked := false;
+ chkScanTjekkode.Checked := false;
Scanogstjekkoden1.Checked := false;
end;
if ScanTjekkodeAutomatik = '1' then
begin
Automatisktjekkodestyring1.Checked := true;
- CheckBox3.Enabled := false;
+ chkScanTjekkode.Enabled := false;
Scanogstjekkoden1.Enabled := false;
end;
@@ -749,6 +742,20 @@
//SpecialVersionSted := 'FD'; // FD - sætter automatisk nedenstående SpecialVersionScanningtype til DIREKTE)
// *************************** //
+{$IfDef STED_BK}
+ SpecialVersionSted := 'BK';
+{$EndIf}
+{$IfDef STED_DBK}
+ SpecialVersionSted := 'DBK';
+{$EndIf}
+{$IfDef STED_FD}
+ SpecialVersionSted := 'FD';
+{$EndIf}
+{$IfDef STED_NS}
+ 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)
@@ -764,7 +771,6 @@
// Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor)
// ændrer vi Sted og Scanningtype her:
-// 20150313: start
if SpecialVersionSted = 'NS' then
begin
SpecialVersionSted := '01';
@@ -775,7 +781,6 @@
SpecialVersionSted := '03';
SpecialVersionScanningtype := '4';
end;
-// 20150313: slut
if SpecialVersionSted = 'BK' then
begin
@@ -815,13 +820,16 @@
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;
Returpakkerfraboghandler1.Enabled := false;
-// 20150317: start
+
Pakkeshoplevering1.Enabled := false;
Returpakkerfrapakkeshop1.Enabled := false;
-// 20150317: slut
+
if SpecialVersionScanningtype = 'A' then
begin
Scanningtype := '1';
@@ -851,10 +859,12 @@
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 Bladhusene (01, 02, 03 og 04) ikke kan bruge
-// 20150317: start
+
Automatiskvalg1.Enabled := false;
-// 20150317: slut
+
Pakkernormal1.Enabled := false;
ReturpakkerfraDAO1.Enabled := false;
Returpakkerfraboghandler1.Enabled := false;
@@ -946,7 +956,7 @@
RutenummerST.Caption := '';
BoghandlerNavnST.Caption := 'Fejl i urls';
KommentarST.Caption := 'Se log vinduet';
- PakkeshopNulstil.Visible := true;
+ btnNulstil.Visible := true;
exit;
end;
end
@@ -989,12 +999,12 @@
if Pakketype = '1' then
begin
Storepakker1.Checked := true;
- RadioButton1.Checked := true;
+ radioStorPakke.Checked := true;
end
else
begin
Smpakker1.Checked := true;
- RadioButton2.Checked := true;
+ radioLillePakke.Checked := true;
end;
if TestFunktionen = '1' then
@@ -1034,12 +1044,12 @@
ScannetOkStorLyd := '';
end;
-// 20150317: start
+
if not FileExists(ScannetOkTilTjekkodeLyd) then
begin
ScannetOkTilTjekkodeLyd := '';
end;
-// 20150317: slut
+
if (PrinterNavn <> '') then
begin
@@ -1072,7 +1082,7 @@
InitBladhus();
end;
-// 20150310: start
+
// Opbygger PanelManglendePakker information
gemScanningtype := Scanningtype;
@@ -1113,10 +1123,9 @@
end;
Scanningtype := gemScanningtype;
-// 20150310: slut
SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
- SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));
+ SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', TUtils.Sto_GetFmtFileVersion(''));
end;
@@ -1134,7 +1143,6 @@
BoghandlerNavn : String;
Koreliste : String;
PrintNyLabel : Boolean;
- List1msg : String;
pakkeErScannet : Integer;
pakkeForkertSted : Integer;
tjekkodeMangler : Integer;
@@ -1159,8 +1167,8 @@
ClipboardData := Clipboard.AsText;
numberString := ClipboardData;
Val(numberString, float, errorPos);
-// 20150311: start
-// if (ClipboardData <> '') and (errorPos = 0) then
+
+ // if (ClipboardData <> '') and (errorPos = 0) then
if (ClipboardData <> '') and (errorPos = 0)
or (NumberString = 'Nulstil')
or (NumberString = 'Indtast kundenummer')
@@ -1175,7 +1183,7 @@
or (NumberString = 'DAO DIREKTE')
or (NumberString = 'DAO PAKKESHOP')
or (NumberString = 'Retur fra pakkeshop') then
-// 20150311: slut
+
begin
Stregkode := Stregkode + ClipboardData;
StregkodeST.Caption := StregKode;
@@ -1188,67 +1196,35 @@
if Key = #13 then // Enter
begin
-// 20150306: start
if (Length(Trim(Stregkode)) = 0) then
begin
- PlaySound(PWideChar(AlarmLyd));
- List1msg := 'Der skal scannes en stregkode...';
- ListBox1.Items.Insert(0,List1Msg);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
+
exit;
end;
-// 20150306: slut
-// 20150311: start
if StregKode = 'Nulstil' then
begin
- PakkeshopNulstil.Click();
+ btnNulstil.Click();
exit;
end;
- if PakkeshopNulstil.Visible then
+ if btnNulstil.Visible then
begin
- PlaySound(PWideChar(AlarmLyd));
-// 20150312: start
-// List1msg := 'HUSK at trykke Nulstil før ny scanning...';
- List1msg := 'HUSK at klikke Nulstil før ny scanning...';
-// 20150312: slut
- ListBox1.Items.Insert(0,List1Msg);
- MainForm.Color := clRed;
- KommentarST.Caption := List1msg;
-// 20150312: start
- Stregkode := '';
- StregkodeST.Caption := StregKode;
-// 20150312: slut
+ VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
+
exit;
end;
if StregKode = 'Lille pakke' then
begin
- if RadioButton2.Enabled = true then
+ if radioLillePakke.Enabled = true then
begin
InitLillePakke();
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1257,24 +1233,13 @@
if StregKode = 'Stor pakke' then
begin
- if RadioButton1.Enabled = true then
+ if radioStorPakke.Enabled = true then
begin
InitStorPakke();
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1283,31 +1248,20 @@
if StregKode = 'Indtast kundenummer' then
begin
- if CheckBox1.Enabled = true then
+ if chkSporgEfterKunde.Enabled = true then
begin
- if (CheckBox1.State = cbChecked) then
+ if (chkSporgEfterKunde.State = cbChecked) then
begin
- CheckBox1.State := cbUnchecked;
+ chkSporgEfterKunde.State := cbUnchecked;
end
else
begin
- CheckBox1.State := cbChecked;
+ chkSporgEfterKunde.State := cbChecked;
end;
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1316,31 +1270,20 @@
if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then
begin
- if CheckBox3.Enabled = true then
+ if chkScanTjekkode.Enabled = true then
begin
- if (CheckBox3.State = cbChecked) then
+ if (chkScanTjekkode.State = cbChecked) then
begin
- CheckBox3.State := cbUnchecked;
+ chkScanTjekkode.State := cbUnchecked;
end
else
begin
- CheckBox3.State := cbChecked;
+ chkScanTjekkode.State := cbChecked;
end;
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1355,28 +1298,15 @@
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
exit;
end;
-// 20150323: start
-// if StregKode = 'DAO NAT X-PRESS' then
+
if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then
-// 20150323: slut
begin
if (PanelValg1.Enabled = true) then
begin
@@ -1384,18 +1314,7 @@
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1410,18 +1329,7 @@
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1436,18 +1344,7 @@
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1462,18 +1359,7 @@
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1488,18 +1374,7 @@
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
@@ -1514,24 +1389,13 @@
end
else
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);
- MainForm.Color := clRed;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
end;
Stregkode := '';
StregkodeST.Caption := StregKode;
exit;
end;
-// 20150311: slut
+
if (Length(Stregkode) > 8) then
begin
@@ -1586,20 +1450,8 @@
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;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
-// 20150311: start
- StregKode := '';
- StregkodeST.Caption := StregKode;
-// 20150311: slut
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
+
exit;
end;
@@ -1615,24 +1467,7 @@
end;
end
// Retur kan ikke scannes med 'Automatisk valg'
-(*
- else if Pakketype = 'NatXpressReturDAO' then
- begin
- if Scanningtype <> '2' then
- begin
- Scanningtype := '2';
- InitReturFraDao();
- end;
- end
- else if Pakketype = 'NatXpressReturKunde' then
- begin
- if Scanningtype <> '3' then
- begin
- Scanningtype := '3';
- InitReturFraKunde();
- end;
- end
-*)
+
else if Pakketype = 'Direkte' then
begin
if Scanningtype <> '4' then
@@ -1650,52 +1485,20 @@
end;
end
// Retur kan ikke scannes med 'Automatisk valg'
-(*
- else if Pakketype = 'PakkeshopRetur' then
- begin
- if Scanningtype <> '6' then
- begin
- Scanningtype := '6';
- InitReturFraPakkeshop();
- end;
- end
-*)
+
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;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
-// 20150311: start
- StregKode := '';
- StregkodeST.Caption := StregKode;
-// 20150311: slut
+ begin
+ // Her skal komme en alarm og rød skærm
+ VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
+
exit;
end;
Stregkode := GemStregkode;
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;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
-// 20150312: start
- StregKode := '';
- StregkodeST.Caption := StregKode;
-// 20150312: slut
+ VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
+
exit;
end;
@@ -1703,93 +1506,23 @@
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;
-// 20150316: start
- RuteNummerST.Caption := '';
- BoghandlerNavnST.Caption := '';
-// 20150316: slut
- KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
-// 20150312: start
- StregKode := '';
- StregkodeST.Caption := StregKode;
-// 20150312: slut
- exit;
- end;
- end;
-
-// 20150311: start
-(*
- if StregKode = 'Nulstil' then
- begin
- PakkeshopNulstil.Click();
- exit;
- end;
-
- if PakkeshopNulstil.Visible then
- begin
- PlaySound(PWideChar(AlarmLyd));
- List1msg := 'HUSK at trykke Nulstil før ny scanning...';
- ListBox1.Items.Insert(0,List1Msg);
- MainForm.Color := clRed;
- KommentarST.Caption := List1msg;
- exit;
- end;
-
- if StregKode = 'Lille pakke' then
- begin
- InitLillePakke();
- exit;
- end;
- if StregKode = 'Stor pakke' then
- begin
- InitStorPakke();
- exit;
- end;
+ VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
- if StregKode = 'Indtast kundenummer' then
- begin
- if (CheckBox1.State = cbChecked) then
- begin
- CheckBox1.State := cbUnchecked;
- end
- else
- begin
- CheckBox1.State := cbChecked;
- end;
- Stregkode := '';
- exit;
+ exit;
+ end;
end;
- if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then
- begin
- if (CheckBox3.State = cbChecked) then
- begin
- CheckBox3.State := cbUnchecked;
- end
- else
- begin
- CheckBox3.State := cbChecked;
- end;
- Stregkode := '';
- exit;
- end;
-*)
-// 20150311: slut
if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
begin
- CheckBox3.Checked := false;
+ chkScanTjekkode.Checked := false;
for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
begin
if (Stregkode=stregkoderMedTjekkodeArray[i]) then
begin
- CheckBox3.Checked := true;
+ chkScanTjekkode.Checked := true;
Scanogstjekkoden1.Checked := true;
end;
end;
@@ -1801,7 +1534,7 @@
BoghandlerStregkode := Stregkode;
BoghandlerTjekkode := '';
PakkeshopText1.Caption := 'Stregkode';
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
Stregkode := '';
InitScreen();
end
@@ -1813,7 +1546,7 @@
BoghandlerStregkode := Stregkode;
BoghandlerTjekkode := '-1';
PakkeshopText1.Caption := 'Stregkode';
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
Stregkode := '';
InitScreen();
end
@@ -1825,19 +1558,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();
@@ -1850,28 +1577,21 @@
BoghandlerTjekkode := Stregkode;
PakkeshopText1.Caption := 'Stregkode';
if (PakkeshopLevering1.Checked) then
- MainForm.Color := HexToTColor(FarvePakkeshoplevering);
+ MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
if (Pakkernormal1.Checked) then
- MainForm.Color := HexToTColor(FarveNormal);
- PakkeshopNulstil.Visible := false;
+ MainForm.Color := TUtils.HexToTColor(FarveNormal);
+ btnNulstil.Visible := false;
end
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 := '';
@@ -1892,12 +1612,8 @@
// Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
if Rutenummer = 'sql fejl' then
begin // Her skal komme en alarm og rød skærm
- PlaySound(PWideChar(AlarmLyd));
- //List1msg := 'SQL fejl: ' + Kommentar;
- //ListBox1.Items.Insert(0,List1Msg);
- MainForm.Color := clRed;
- //KommentarST.Caption := List1msg;
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
+
exit;
end;
if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
@@ -1917,13 +1633,13 @@
if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
begin
PlaySound(PWideChar(AlarmLyd));
- PakkeshopNulstil.Visible := true;
+ btnNulstil.Visible := true;
MainForm.Color := clRed;
end;
end;
if ( Pakkernormal1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
begin
- MainForm.Color := HexToTColor(Farve);
+ MainForm.Color := TUtils.HexToTColor(Farve);
if Storepakker1.Checked then
begin
PlaySound(PWideChar(ScannetOkStorLyd));
@@ -1932,11 +1648,11 @@
begin
PlaySound(PWideChar(ScannetOkLyd));
end;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
end
else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then
begin
- MainForm.Color := HexToTColor(Farve);
+ MainForm.Color := TUtils.HexToTColor(Farve);
if Storepakker1.Checked then
begin
PlaySound(PWideChar(ScannetOkStorLyd));
@@ -1945,30 +1661,22 @@
begin
PlaySound(PWideChar(ScannetOkLyd));
end;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
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
end
else
begin
- MainForm.Color := clRed;
- PlaySound(PWideChar(AlarmLyd));
- PakkeshopNulstil.Visible := true;
+ VisAlarmSkaerm('');
end;
- if not PakkeshopNulstil.Visible then
+ if not btnNulstil.Visible then
begin
-// 20150310: start
-// SletStregkodelinieFraListboks2(StregKode);
-// 20150310: slut
+
If (Budlevering1.Checked) then
begin
if Storepakker1.Checked then
@@ -1982,9 +1690,9 @@
InitLillePakke();
end;
end;
-// 20150310: start
+
SletStregkodelinieFraListboks2(StregKode);
-// 20150310: slut
+
PakkeshopStregkode := '';
PakkeshopTjekkode := '';
BoghandlerStregkode := '';
@@ -2015,7 +1723,7 @@
Key := #0;
-end;
+end; //End of OnKeyPress
procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
const
@@ -2052,12 +1760,10 @@
procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
var
-// 20150309: start
-// i:integer;
i : Integer;
wrkAntal : String;
wrkAntalIdag, wrkAntalSenere : Integer;
-// 20150309: slut
+
begin
if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then
@@ -2065,17 +1771,17 @@
for i := ListBox2.items.count-1 downto 0 do
if pos(StregKode,ListBox2.items[i]) <> 0 then
begin
-// 20150309: start
+
// Ajourføring af tæller for manglende pakker (scanninger)
wrkAntal := StaticTextManglendePakker.Caption;
if (pos('/', wrkAntal) > 0) then // både pakker idag og senere
begin
wrkAntal := wrkAntal + '/'; // tilføjer '/' sidst i feltet af hensyn til split funktionen
- wrkAntalIdag := StrToInt(split(wrkAntal, '/', 2));
+ wrkAntalIdag := StrToInt( TUtils.split(wrkAntal, '/', 2));
// ShowMessage(SPLIT('data/another/yet/again/more/','/',3));
// ShowMessage(SPLIT('data/another/','/',3));
// ShowMessage(SPLIT('data/another','/',3));
- wrkAntalSenere := StrToInt(split(wrkAntal, '/', 3));
+ wrkAntalSenere := StrToInt( TUtils.split(wrkAntal, '/', 3));
end
else // kun idag
begin
@@ -2101,9 +1807,7 @@
begin
StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
end;
-// 20150309: slut
-// 20150310: start
if (Scanningtype = '1') then
begin
PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
@@ -2208,8 +1912,6 @@
end;
procedure TMainForm.InitBladhus();
-var
- LogFilnavn : string;
begin
Altidprintepakkelabel1.Enabled := false;
@@ -2272,7 +1974,7 @@
01 :
begin; // NS
Testprinter1.Visible := true;
- DownloadButton01.Enabled := true;
+ BtnDownloadKontrolfil.Enabled := true;
OpdaterListenButton01.Enabled := true;
IdFTP1.Passive := true;
IdFTP1.PassiveUseControlHost := true;
@@ -2286,9 +1988,9 @@
Testprinter1.Visible := true;
Smpakker1.Enabled := true;
Storepakker1.Enabled := true;
- RadioButton1.Enabled := true;
- RadioButton2.Enabled := true;
- DownloadButton01.Enabled := false; // kontrolfil bruges ikke her
+ radioStorPakke.Enabled := true;
+ radioLillePakke.Enabled := true;
+ BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her
OpdaterListenButton01.Enabled := true;
IdFTP1.Passive := true;
IdFTP1.PassiveUseControlHost := true;
@@ -2299,13 +2001,13 @@
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;
- DownloadButton01.Enabled := true;
+ BtnDownloadKontrolfil.Enabled := true;
OpdaterListenButton01.Enabled := true;
IdFTP1.Passive := true;
IdFTP1.PassiveUseControlHost := true;
@@ -2324,9 +2026,9 @@
Testprinter1.Visible := true;
Smpakker1.Enabled := true;
Storepakker1.Enabled := true;
- RadioButton1.Enabled := true;
- RadioButton2.Enabled := true;
- DownloadButton01.Enabled := false; // kontrolfil bruges ikke her
+ radioStorPakke.Enabled := true;
+ radioLillePakke.Enabled := true;
+ BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her
OpdaterListenButton01.Enabled := true;
IdFTP1.Passive := true;
IdFTP1.PassiveUseControlHost := true;
@@ -2343,15 +2045,19 @@
URLStr : String;
pakkestorrelse : String;
PrintNyLabelInteger : Integer;
+
+ PakkeshopLabel: TPakkeshopLabel;
begin
- if RadioButton1.Checked then
+ if radioStorPakke.Checked then
begin
pakkestorrelse := 'Stor';
end;
- if RadioButton2.Checked then
+ if radioLillePakke.Checked then
begin
pakkestorrelse := 'Lille';
end;
+
+
if Pakkernormal1.Checked then
begin
if (BoghandlerTjekkode = '') then
@@ -2380,6 +2086,10 @@
begin
URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
end
+ else if menuIndlevering.Checked then
+ begin
+ URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);
+ end
else
begin
exit;
@@ -2414,10 +2124,9 @@
BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
PrintNyLabel := False;
-// 20150310: start
+
if Pakkeshoplevering1.Checked then
begin
-// 20150310: slut
try
PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
except on e:exception do
@@ -2427,10 +2136,27 @@
begin
PrintNyLabel := True;
end;
-// 20150310: start
end;
-// 20150310: slut
end
+ else if menuIndlevering.Checked then
+ begin
+
+
+
+
+ Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
+ if (Kommentar = 'Ok') then
+ begin
+ PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
+ PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
+ RuteNummer := PakkeshopLabel.Koreliste;
+
+ PrintPakkeshopLabel( PakkeshopLabel );
+
+ end;
+
+
+ end
else
begin
RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;
@@ -2463,6 +2189,8 @@
PrintNyLabel := True;
end;
end;
+
+
if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
begin
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
@@ -2503,11 +2231,11 @@
if Pakkeshoplevering1.Checked then
List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
List1Pakkestorrelse := '';
- if RadioButton1.Checked then
+ if radioStorPakke.Checked then
begin
List1Pakkestorrelse := 'Stor pakke';
end;
- if RadioButton2.Checked then
+ if radioLillePakke.Checked then
begin
List1Pakkestorrelse := 'Lille pakke';
end;
@@ -2529,11 +2257,11 @@
if Budlevering1.Checked then
begin
List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
- if (RadioButton1.Checked) then
+ if (radioStorPakke.Checked) then
begin
List1msg := List1msg + '; Stor pakke';
end;
- if (RadioButton2.Checked) then
+ if (radioLillePakke.Checked) then
begin
List1msg := List1msg + '; Lille pakke';
end;
@@ -2560,7 +2288,7 @@
SkrivScanningLogFil(logTekst);
end;
-procedure TMainForm.UploadButton01Click(Sender: TObject);
+procedure TMainForm.BtnUploadLogfilClick(Sender: TObject);
begin
UploadLogfilTilDAO();
UploadInifilTilDAO();
@@ -2577,7 +2305,7 @@
nytRuteNummer, nyFarve : String;
begin
if Budlevering1.Checked then
- RuteNummerST.Color := HexToTColor(Farve);
+ RuteNummerST.Color := TUtils.HexToTColor(Farve);
pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
if pakkeErScannet = 0 then
@@ -2590,10 +2318,9 @@
end;
pakkeForkertSted := pos('burde være hos', Kommentar);
-// 20150306: start
-// if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then
- if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
-// 20150306: slut
+
+ if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
+
begin
if (RuteNummer = 'Ukendt') then
begin
@@ -2620,12 +2347,11 @@
if (BoghandlerNavn = 'Ukendt pakke') then
begin
PrintNyLabel := false;
-// 20150306: start
-// PlaySound(PWideChar(AlarmLyd));
+
PlaySound(PWideChar(AlarmLyd));
MainForm.Color := clRed;
- PakkeshopNulstil.Visible := true;
-// 20150306: slut
+ btnNulstil.Visible := true;
+
end
else
begin
@@ -2635,27 +2361,25 @@
PrintNyLabel := true;
RuteNummerST.Caption := RuteNummer+' -> ny rute: '+nytRuteNummer;
nyFarve := Farve;
- RuteNummerST.Color := HexToTColor(nyFarve);
+ RuteNummerST.Color := TUtils.HexToTColor(nyFarve);
List1msg := TimeToStr(now) + '; ' + RuteNummer+' -> ny rute: '+nytRuteNummer;
RuteNummer := nytRuteNummer;
ListBox1.Items.Insert(0,List1Msg);
logTekst := RightStr(List1Msg, Length(List1Msg)-10);
SkrivScanningLogFil(logTekst);
-// 20150213: start
+
if (PrinterNavn = 'Ingen') then
begin
PrintNyLabel := false;
end;
-// 20150313: slut
-// 20150306: start
-// PlaySound(PWideChar(AlarmLyd));
+
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
begin
PlaySound(PWideChar(AlarmLyd));
MainForm.Color := clRed;
- PakkeshopNulstil.Visible := true;
+ btnNulstil.Visible := true;
end;
-// 20150306: slut
+
end;
kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
if (kontrolKoreliste <> RuteNummer) then
@@ -2674,19 +2398,14 @@
ListBox1.Items.Insert(0,List1Msg);
logTekst := RightStr(List1Msg, Length(List1Msg)-10);
SkrivScanningLogFil(logTekst);
-// 20150306: start
-// PlaySound(PWideChar(AlarmLyd));
+
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
begin
PlaySound(PWideChar(AlarmLyd));
MainForm.Color := clRed;
- PakkeshopNulstil.Visible := true;
+ btnNulstil.Visible := true;
end;
-// 20150306: slut
-// 20150306: start
-// end
-// else
-// begin
+
end;
end;
@@ -2708,7 +2427,7 @@
end;
end;
01 : begin;
- if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
+ if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
begin
@@ -2722,7 +2441,7 @@
end;
end;
03 : begin;
- if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
+ if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
begin
@@ -2746,15 +2465,15 @@
exit;
end;
- if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
+ if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
begin
end
else
begin
- if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or CheckBox2.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
+ if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
begin
logTekst := 'Printer label type ';
- if (CheckBox2.Checked) then
+ if (chkAltidPrintLabel.Checked) then
begin
logTekst := logTekst + 'Alle ';
end
@@ -2821,10 +2540,10 @@
Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted); // sorteringsoplysning 2
end;
Canvas.Font.Size := FontSizeKommentar;
+
Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
-// 20150304: start
Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
-// 20150304: slut
+
Canvas.TextOut(XPosKommentar,YPosKommentar, Kommentar); // Kan ikke lave linieskift (se tidligere kommentar om samme)
if SmsKode <> '' then
begin
@@ -2838,22 +2557,22 @@
end;
-procedure TMainForm.RadioButton1Click(Sender: TObject);
+procedure TMainForm.radioStorPakkeClick(Sender: TObject);
begin
Storepakker1.Checked := true;
- RadioButton1.Checked := true;
+ radioStorPakke.Checked := true;
end;
-procedure TMainForm.RadioButton2Click(Sender: TObject);
+procedure TMainForm.radioLillePakkeClick(Sender: TObject);
begin
Smpakker1.Checked := true;
- RadioButton2.Checked := true;
+ radioLillePakke.Checked := true;
end;
-procedure TMainForm.CheckBox1Click(Sender: TObject);
+procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
begin
- if CheckBox1.Checked then
+ if chkSporgEfterKunde.Checked then
begin
Sprgefterboghandlernummer1.Checked := true;
end
@@ -2864,9 +2583,9 @@
end;
-procedure TMainForm.CheckBox2Click(Sender: TObject);
+procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
begin
- if CheckBox2.Checked then
+ if chkAltidPrintLabel.Checked then
begin
Altidprintepakkelabel1.Checked := true;
end
@@ -2877,9 +2596,9 @@
end;
-procedure TMainForm.CheckBox3Click(Sender: TObject);
+procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
begin
- if CheckBox3.Checked then
+ if chkScanTjekkode.Checked then
begin
Scanogstjekkoden1.Checked := true;
end
@@ -2901,11 +2620,11 @@
Automatiskvalg1.Checked := false;
PanelValgA.Color := clBtnFace;
PanelValgA.Font.Color := clWindowText;
-// 20150317: start
+
if (SpecialVersionSted = '01')
- or (SpecialVersionSted = '02')
- or (SpecialVersionSted = '03')
- or (SpecialVersionSted = '04') then
+ or (SpecialVersionSted = '02')
+ or (SpecialVersionSted = '03')
+ or (SpecialVersionSted = '04') then
begin
// her skal vi også disable knappen for 01, 02, 03 og 04 (NS, BK, FD og DBK)
PanelValgA.Enabled := false;
@@ -2933,7 +2652,7 @@
// Tjekker UrlNormal
if PanelValg1.Enabled = true then
begin
- if CheckUrl(UrlNormal) then
+ if TUtils.CheckUrl(UrlNormal) then
begin
logTekst := 'UrlNormal accepteret: ' + UrlNormal;
SkrivScanningLogFil(logTekst);
@@ -2962,7 +2681,7 @@
// Tjekker UrlReturDAO
if PanelValg2.Enabled = true then
begin
- if CheckUrl(UrlReturDAO) then
+ if TUtils.CheckUrl(UrlReturDAO) then
begin
logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO;
SkrivScanningLogFil(logTekst);
@@ -2990,7 +2709,7 @@
// Tjekker UrlReturBoghandler
if PanelValg3.Enabled = true then
begin
- if CheckUrl(UrlReturBoghandler) then
+ if TUtils.CheckUrl(UrlReturBoghandler) then
begin
logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler;
SkrivScanningLogFil(logTekst);
@@ -3018,7 +2737,7 @@
// Tjekker UrlBudlevering
if PanelValg4.Enabled = true then
begin
- if CheckUrl(UrlBudlevering) then
+ if TUtils.CheckUrl(UrlBudlevering) then
begin
logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering;
SkrivScanningLogFil(logTekst);
@@ -3046,7 +2765,7 @@
// Tjekker UrlPakkeshoplevering
if PanelValg5.Enabled = true then
begin
- if CheckUrl(UrlPakkeshoplevering) then
+ if TUtils.CheckUrl(UrlPakkeshoplevering) then
begin
logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering;
SkrivScanningLogFil(logTekst);
@@ -3074,7 +2793,7 @@
// Tjekker UrlReturPakkeshop
if PanelValg6.Enabled = true then
begin
- if CheckUrl(UrlReturPakkeshop) then
+ if TUtils.CheckUrl(UrlReturPakkeshop) then
begin
logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop;
SkrivScanningLogFil(logTekst);
@@ -3103,7 +2822,7 @@
if (PanelValg1.Enabled = true)
or (PanelValg4.Enabled = true) then
begin
- if CheckUrl(UrlManglendeScanninger) then
+ if TUtils.CheckUrl(UrlManglendeScanninger) then
begin
logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger;
SkrivScanningLogFil(logTekst);
@@ -3131,7 +2850,7 @@
// Tjekker UrlPakkeshopManglendeScanninger
if PanelValg5.Enabled = true then
begin
- if CheckUrl(UrlPakkeshopManglendeScanninger) then
+ if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then
begin
logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger;
SkrivScanningLogFil(logTekst);
@@ -3159,7 +2878,7 @@
// Tjekker UrlPakkeshopManglendeReturScanninger
if PanelValg6.Enabled = true then
begin
- if CheckUrl(UrlPakkeshopManglendeReturScanninger) then
+ if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then
begin
logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger;
SkrivScanningLogFil(logTekst);
@@ -3184,10 +2903,62 @@
end;
end;
+ // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
+ if PanelValg7.Enabled = true then
+ begin
+ if TUtils.CheckUrl(UrlIndleveringsPakke) then
+ begin
+ logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke;
+ SkrivScanningLogFil(logTekst);
+ end
+ else
+ begin
+ inc(urlFejl); // Optæller antal fejl
+ logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke;
+ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+ if TjekUrls = '1' then
+ begin
+ logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
+ end;
+ SkrivScanningLogFil(logTekst);
+ if TjekUrls = '1' then
+ begin
+ ShowMessage(logTekst);
+ UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+ Application.Terminate;
+ exit;
+ end;
+ end;
+
+ if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
+ begin
+ logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
+ SkrivScanningLogFil(logTekst);
+ end
+ else
+ begin
+ inc(urlFejl); // Optæller antal fejl
+ logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger;
+ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+ if TjekUrls = '1' then
+ begin
+ logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
+ end;
+ SkrivScanningLogFil(logTekst);
+ if TjekUrls = '1' then
+ begin
+ ShowMessage(logTekst);
+ UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+ Application.Terminate;
+ exit;
+ end;
+ end;
+ end;
+
// Tjekker UrlEKLoverforsel
if PanelValg1.Enabled = true then
begin
- if CheckUrl(UrlEKLoverforsel) then
+ if TUtils.CheckUrl(UrlEKLoverforsel) then
begin
logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel;
SkrivScanningLogFil(logTekst);
@@ -3212,11 +2983,11 @@
end;
end;
-// 20150330: start
+
// Tjekker UrlEKLoverforselPakkeshop
if PanelValg5.Enabled = true then
begin
- if CheckUrl(UrlEKLoverforselPakkeshop) then
+ if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then
begin
logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop;
SkrivScanningLogFil(logTekst);
@@ -3240,10 +3011,10 @@
end;
end;
end;
-// 20150330: slut
+
// Tjekker UrlFindPakketype
- if CheckUrl(UrlFindPakketype) then
+ if TUtils.CheckUrl(UrlFindPakketype) then
begin
logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;
SkrivScanningLogFil(logTekst);
@@ -3268,7 +3039,7 @@
end;
// Tjekker UrlSendPrograminfo
- if CheckUrl(UrlSendPrograminfo) then
+ if TUtils.CheckUrl(UrlSendPrograminfo) then
begin
logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;
SkrivScanningLogFil(logTekst);
@@ -3305,16 +3076,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;
@@ -3331,9 +3092,10 @@
repeat
if (SR.Attr <> faDirectory) then
begin
+
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)
@@ -3370,11 +3132,11 @@
end;
end;
-procedure TMainForm.PakkeshopNulstilClick(Sender: TObject);
+procedure TMainForm.btnNulstilClick(Sender: TObject);
begin
PakkeshopStregkode := '';
PakkeshopTjekkode := '';
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
PakkeshopText1.Caption := 'Stregkode';
BoghandlerStregkode := '';
BoghandlerTjekkode := '';
@@ -3392,7 +3154,7 @@
// MainForm.Color := HexToTColor(Farve);
if Farve <> '' then
begin
- MainForm.Color := HexToTColor(Farve);
+ MainForm.Color := TUtils.HexToTColor(Farve);
// 20150312: start
(*
end
@@ -3412,6 +3174,7 @@
PrinterstatusStaticText1.Color := MainForm.Color;
end;
+
procedure TMainForm.PanelValg1Click(Sender: TObject);
begin
Scanningtype := '1';
@@ -3454,29 +3217,25 @@
NulstilAutomatiskValg();
end;
+
+procedure TMainForm.PanelValg7Click(Sender: TObject);
+begin
+ Scanningtype := '7';
+ InitIndleveringskode();
+ NulstilAutomatiskValg();
+
+end;
+
procedure TMainForm.PanelValgAClick(Sender: TObject);
begin
-// 20150311: start
-(*
- if PanelValgA.Color = clBtnFace then
- begin
- AutomatiskValg1.Checked := true;
- PanelValgA.Color := clGreen;
- PanelValgA.Font.Color := clWhite;
- end
- else
- begin
- AutomatiskValg1.Checked := false;
- PanelValgA.Color := clBtnFace;
- PanelValgA.Font.Color := clWindowText;
- end;
-*)
// Skal ikke toggle men bare sætte funktionen on
// Fravælges ved at vælge en scanningstype
- AutomatiskValg1.Checked := true;
- PanelValgA.Color := clGreen;
- PanelValgA.Font.Color := clWhite;
-// 20150311: slut
+ AutomatiskValg1.Checked := true;
+ PanelValgA.Color := clGreen;
+ PanelValgA.Font.Color := clWhite;
+
+
+
end;
procedure TMainForm.Pakkernormal1Click(Sender: TObject);
@@ -3493,7 +3252,6 @@
BoghandlerNavn : String;
Koreliste : String;
Falsk : Boolean;
- Sand : Boolean;
SmsKode : String;
DBKbane : String;
Leveringssted : String;
@@ -3515,12 +3273,12 @@
// Her kommer en alarm og rød skærm
PlaySound(PWideChar(AlarmLyd));
MainForm.Color := clRed;
- PakkeshopNulstil.Visible := true;
+ btnNulstil.Visible := true;
end
else
begin
Falsk := False;
- Sand := True;
+
HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
SmsKode := '999999';
@@ -3540,7 +3298,6 @@
BoghandlerNavn : String;
Koreliste : String;
Falsk : Boolean;
- Sand : Boolean;
SmsKode : String;
DBKbane : String;
Leveringssted : String;
@@ -3549,7 +3306,7 @@
Kommentar := '***** Kommentar *****';
BoghandlerNavn := 'Modtagernavn';
Falsk := False;
- Sand := True;
+
if (Printer.Printers.Count = 0) then
begin
@@ -3584,36 +3341,7 @@
end;
end;
-{
- VERY fast split function
- this function returns part of a string based on
- constant defineable delimiters, such as ";". So
- SPLIT('this is a test ',' ',3) = 'is' or
- SPLIT('data;another;yet;again;more;',';',4) = 'yet'
-
- Split function shifts index integer by two to
- be compatible with commonly used PD split function
- gpl 2004 / Juhani Suhonen
-}
-function TMainForm.split(input: string; schar: Char; s: Integer): string;
-var
- c: array of Integer;
- b, t: Integer;
-begin
- Dec(s, 2); // for compatibility with very old & slow split function
- t := 0; // variable T needs to be initialized...
- setlength(c, Length(input));
- for b := 0 to pred(High(c)) do
- begin
- c[b + 1] := posex(schar, input, succ(c[b]));
- // BREAK LOOP if posex looped (position before previous)
- // or wanted position reached..
- if (c[b + 1] < c[b]) or (s < t) then break
- else
- Inc(t);
- end;
- Result := Copy(input, succ(c[s]), pred(c[s + 1] - c[s]));
-end;
+
procedure TMainForm.Om1Click(Sender: TObject);
const
@@ -3622,7 +3350,7 @@
tekst, filversion : String;
begin
- filversion := Sto_GetFmtFileVersion('','');
+ filversion := TUtils.Sto_GetFmtFileVersion('');
tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';
tekst := tekst+crlf+crlf;
@@ -3644,12 +3372,12 @@
end
else
begin
- tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+Sted+')';
+ tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+Sted+')';
end;
end
else
begin
- tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+SpecialVersionSted+')';
+ tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+SpecialVersionSted+')';
end;
end;
@@ -3717,7 +3445,7 @@
if FileExists(fileName) then
begin
- if AdobeReaderExists then
+ if TUtils.AdobeReaderExists then
begin
//ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
@@ -3741,7 +3469,7 @@
if FileExists(fileName) then
begin
- if AdobeReaderExists then
+ if TUtils.AdobeReaderExists then
begin
//ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
@@ -3757,16 +3485,23 @@
end;
end;
+procedure TMainForm.menuIndleveringClick(Sender: TObject);
+begin
+ Scanningtype := '7';
+ NulstilAutomatiskValg();
+ InitIndleveringskode();
+end;
+
procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
begin
if Sprgefterboghandlernummer1.Checked then
begin
- CheckBox1.Checked := true;
+ chkSporgEfterKunde.Checked := true;
end
else
begin
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
end;
@@ -3789,26 +3524,26 @@
procedure TMainForm.InitNatxpresslevering();
begin
AutomatiskTjekkodeStyring1.Enabled := true;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
Pakkernormal1.Checked := true;
InitForm(FarveNormal,TitelNormal,UrlNormal);
PanelValg1.Color := clGreen;
PanelValg1.Font.Color := clWhite;
- CheckBox1.Enabled := true;
- CheckBox2.Enabled := true;
+
+ chkAltidPrintLabel.Enabled := true;
Altidprintepakkelabel1.Enabled := true;
Altidprintepakkelabel1.Checked := false;
- CheckBox2.Checked := false;
+ chkAltidPrintLabel.Checked := false;
Sprgefterboghandlernummer1.Checked := false;
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
Sprgefterboghandlernummer1.Enabled := true;
Smpakker1.Enabled := false;
Storepakker1.Enabled := false;
- RadioButton1.Enabled := false;
- RadioButton2.Enabled := false;
+ radioStorPakke.Enabled := false;
+ radioLillePakke.Enabled := false;
ListBox1.Visible := true;
OpdaterListenButton01.Enabled := true;
- EKLoverforsel.Enabled := true;
+ BtnEKLoverforsel.Enabled := true;
InitLillePakke();
ListBox1.Items.Clear;
if BladhusSted = 0 then
@@ -3822,26 +3557,26 @@
begin
AutomatiskTjekkodeStyring1.Enabled := false;
ReturpakkerfraDAO1.Checked := true;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
PanelValg2.Color := clGreen;
PanelValg2.Font.Color := clWhite;
- CheckBox1.Enabled := false;
- CheckBox2.Enabled := false;
+
+ chkAltidPrintLabel.Enabled := false;
Altidprintepakkelabel1.Enabled := false;
- CheckBox2.Checked := false;
+
Altidprintepakkelabel1.Checked := false;
Sprgefterboghandlernummer1.Checked := false;
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
Sprgefterboghandlernummer1.Enabled := false;
Smpakker1.Enabled := true;
Storepakker1.Enabled := true;
- RadioButton1.Enabled := true;
- RadioButton2.Enabled := true;
+ radioStorPakke.Enabled := true;
+ radioLillePakke.Enabled := true;
ListBox1.Visible := true;
ListBox1.Items.Clear;
ListBox2.Items.Clear;
- EKLoverforsel.Enabled := false;
+ BtnEKLoverforsel.Enabled := false;
InitLillePakke();
end;
@@ -3849,26 +3584,25 @@
begin
AutomatiskTjekkodeStyring1.Enabled := false;
Returpakkerfraboghandler1.Checked := true;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
PanelValg3.Color := clGreen;
PanelValg3.Font.Color := clWhite;
- CheckBox1.Enabled := false;
- CheckBox2.Enabled := false;
+
+ chkAltidPrintLabel.Enabled := false;
Altidprintepakkelabel1.Enabled := false;
- CheckBox2.Checked := false;
Altidprintepakkelabel1.Checked := false;
Sprgefterboghandlernummer1.Checked := false;
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
Sprgefterboghandlernummer1.Enabled := false;
Smpakker1.Enabled := true;
Storepakker1.Enabled := true;
- RadioButton1.Enabled := true;
- RadioButton2.Enabled := true;
+ radioStorPakke.Enabled := true;
+ radioLillePakke.Enabled := true;
ListBox1.Visible := true;
ListBox1.Items.Clear;
ListBox2.Items.Clear;
- EKLoverforsel.Enabled := false;
+ BtnEKLoverforsel.Enabled := false;
InitLillePakke();
end;
@@ -3876,28 +3610,28 @@
begin
AutomatiskTjekkodeStyring1.Enabled := false;
Budlevering1.Checked := true;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
PanelValg4.Color := clGreen;
PanelValg4.Font.Color := clWhite;
- CheckBox1.Enabled := false;
- CheckBox2.Enabled := false;
+
+ chkAltidPrintLabel.Enabled := false;
Altidprintepakkelabel1.Enabled := false;
- CheckBox2.Checked := false;
+
Altidprintepakkelabel1.Checked := false;
Sprgefterboghandlernummer1.Checked := false;
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
Sprgefterboghandlernummer1.Enabled := false;
Smpakker1.Enabled := true;
Storepakker1.Enabled := true;
- RadioButton1.Enabled := true;
- RadioButton2.Enabled := true;
+ radioStorPakke.Enabled := true;
+ radioLillePakke.Enabled := true;
ListBox1.Visible := true;
ListBox1.Items.Clear;
- DownloadButton01.Enabled := false;
+ BtnDownloadKontrolfil.Enabled := false;
OpdaterListenButton01.Enabled := true;
- DownloadButton03.Visible := false;
- EKLoverforsel.Enabled := false;
+ BtnDownloadRuteskiftFil.Visible := false;
+ BtnEKLoverforsel.Enabled := false;
IdFTP1.Passive := true;
IdFTP1.PassiveUseControlHost := true;
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then
@@ -3912,30 +3646,29 @@
begin
AutomatiskTjekkodeStyring1.Enabled := true;
Pakkeshoplevering1.Checked := true;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
PanelValg5.Color := clGreen;
PanelValg5.Font.Color := clWhite;
- CheckBox1.Enabled := false;
- CheckBox2.Enabled := false;
+
+ chkAltidPrintLabel.Enabled := false;
Altidprintepakkelabel1.Enabled := false;
- CheckBox2.Checked := false;
+
Altidprintepakkelabel1.Checked := false;
Sprgefterboghandlernummer1.Checked := false;
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
Sprgefterboghandlernummer1.Enabled := false;
Smpakker1.Enabled := false;
Storepakker1.Enabled := false;
- RadioButton1.Enabled := false;
- RadioButton2.Enabled := false;
+ radioStorPakke.Enabled := false;
+ radioLillePakke.Enabled := false;
ListBox1.Visible := true;
ListBox1.Items.Clear;
- DownloadButton01.Enabled := false;
+ BtnDownloadKontrolfil.Enabled := false;
OpdaterListenButton01.Enabled := true;
-// 20150330: start
-// EKLoverforsel.Enabled := false;
- EKLoverforsel.Enabled := true;
-// 20150330: slut
+
+ BtnEKLoverforsel.Enabled := true;
+
InitLillePakke();
IndlesScanningLogFil();
if BladhusSted = 0 then
@@ -3950,27 +3683,27 @@
begin
AutomatiskTjekkodeStyring1.Enabled := false;
Returpakkerfrapakkeshop1.Checked := true;
- PakkeshopNulstil.Visible := false;
+ btnNulstil.Visible := false;
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
PanelValg6.Color := clGreen;
PanelValg6.Font.Color := clWhite;
- CheckBox1.Enabled := false;
- CheckBox2.Enabled := false;
+
+ chkAltidPrintLabel.Enabled := false;
Altidprintepakkelabel1.Enabled := false;
- CheckBox2.Checked := false;
+
Altidprintepakkelabel1.Checked := false;
Sprgefterboghandlernummer1.Checked := false;
- CheckBox1.Checked := false;
+ chkSporgEfterKunde.Checked := false;
Sprgefterboghandlernummer1.Enabled := false;
Smpakker1.Enabled := false;
Storepakker1.Enabled := false;
- RadioButton1.Enabled := false;
- RadioButton2.Enabled := false;
+ radioStorPakke.Enabled := false;
+ radioLillePakke.Enabled := false;
ListBox1.Visible := true;
ListBox1.Items.Clear;
- DownloadButton01.Enabled := false;
+ BtnDownloadKontrolfil.Enabled := false;
OpdaterListenButton01.Enabled := true;
- EKLoverforsel.Enabled := false;
+ BtnEKLoverforsel.Enabled := false;
InitLillePakke();
IndlesScanningLogFil();
if BladhusSted = 0 then
@@ -3988,6 +3721,47 @@
InitReturFraKunde();
end;
+procedure TMainForm.InitIndleveringskode();
+begin
+ menuIndlevering.Checked := true;
+ AutomatiskTjekkodeStyring1.Enabled := false;
+
+ btnNulstil.Visible := false;
+ InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
+ PanelValg7.Color := clGreen;
+ PanelValg7.Font.Color := clWhite;
+
+ chkAltidPrintLabel.Enabled := false;
+ Altidprintepakkelabel1.Enabled := false;
+
+ Altidprintepakkelabel1.Checked := false;
+ Sprgefterboghandlernummer1.Checked := false;
+ Sprgefterboghandlernummer1.Enabled := false;
+ chkSporgEfterKunde.Checked := false;
+
+
+
+ Smpakker1.Enabled := false;
+ Storepakker1.Enabled := false;
+ radioStorPakke.Enabled := false;
+ radioLillePakke.Enabled := false;
+ ListBox1.Visible := true;
+ ListBox1.Items.Clear();
+
+ BtnDownloadKontrolfil.Enabled := false;
+ OpdaterListenButton01.Enabled := true;
+ BtnEKLoverforsel.Enabled := false;
+ InitLillePakke();
+ IndlesScanningLogFil();
+ if BladhusSted = 0 then
+ begin
+ IndlesManglendeScanninger();
+ end;
+ IdFTP1.Passive := true;
+ IdFTP1.PassiveUseControlHost := true;
+end;
+
+
procedure TMainForm.Storepakker1Click(Sender: TObject);
begin
InitStorPakke();
@@ -4000,88 +3774,21 @@
procedure TMainForm.InitLillePakke();
begin
- RadioButton2.Checked := true;
+ radioLillePakke.Checked := true;
Smpakker1.Checked := true;
-// 20150310: start
// Stregkode := '';
-// 20150310: slut
end;
procedure TMainForm.InitStorPakke();
begin
- RadioButton1.Checked := true;
+ radioStorPakke.Checked := true;
Storepakker1.Checked := true;
// 20150310: start
// Stregkode := '';
// 20150310: slut
end;
-///
-/// This function reads the file resource of "FileName" and returns
-/// the version number as formatted text.
-///
-/// Sto_GetFmtFileVersion() = '4.13.128.0'
-/// Sto_GetFmtFileVersion('', '%.2d-%.2d-%.2d') = '04-13-128'
-///
-/// If "Fmt" is invalid, the function may raise an
-/// EConvertError exception.
-/// Full path to exe or dll. If an empty
-/// string is passed, the function uses the filename of the
-/// running exe or dll.
-/// Format string, you can use at most four integer
-/// values.
-/// Formatted version number of file, '' if no version
-/// resource found.
-function TMainForm.Sto_GetFmtFileVersion(const FileName: String = '';
- const Fmt: String = '%d.%d.%d.%d'): String;
-var
- sFileName: String;
- iBufferSize: DWORD;
- iDummy: DWORD;
- pBuffer: Pointer;
- pFileInfo: Pointer;
- iVer: array[1..4] of Word;
- S : String;
-begin
- // set default value
- Result := '';
- // get filename of exe/dll if no filename is specified
- sFileName := Trim(FileName);
- if (sFileName = '') then
- sFileName := GetModuleName(HInstance);
- // get size of version info (0 if no version info exists)
- iBufferSize := GetFileVersionInfoSize(PChar(sFileName), iDummy);
- if (iBufferSize > 0) then
- begin
- GetMem(pBuffer, iBufferSize);
- try
- // get fixed file info (language independent)
- GetFileVersionInfo(PChar(sFileName), 0, iBufferSize, pBuffer);
- VerQueryValue(pBuffer, '\', pFileInfo, iDummy);
- // read version blocks
- iVer[1] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
- iVer[2] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
- iVer[3] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
- iVer[4] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
- finally
- FreeMem(pBuffer);
- end;
- // format result string
- Result := Format(Fmt, [iVer[1], iVer[2], iVer[3], iVer[4]]);
- // Hvorfor virker ovenstående ikke ???
- S := '';
- Str(iVer[1],Result);
- S := S+Result+'.';
- Str(iVer[2],Result);
- S := S+Result+'.';
- Str(iVer[3],Result);
- S := S+Result+'.';
- Str(iVer[4],Result);
- S := S+Result+'';
- Result := S;
- end;
-end;
procedure TMainForm.PlaySound(filename : PWideChar);
begin
@@ -4106,7 +3813,6 @@
procedure TMainForm.Testlyd2Click(Sender: TObject);
begin
-// 20150317: start
if (PakkeshopText1.Caption = 'Tjekkode') then
begin
if ScannetOkTilTjekkodeLyd <> '' then
@@ -4119,7 +3825,6 @@
end;
exit;
end;
-// 20150317: slut
if Smpakker1.Checked then
if ScannetOkLyd <> '' then
@@ -4128,10 +3833,7 @@
end
else
begin
-// 20150317: start
-// MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);
MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
-// 20150317: slut
end;
if Storepakker1.Checked then
if ScannetOkStorLyd <> '' then
@@ -4140,10 +3842,7 @@
end
else
begin
-// 20150317: start
-// MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);
MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
-// 20150317: slut
end;
end;
@@ -4160,7 +3859,7 @@
CheckCode();
end;
-procedure TMainForm.EKLoverforselClick(Sender: TObject);
+procedure TMainForm.BtnEKLoverforselClick(Sender: TObject);
var
WebSvar : String;
URLStr : String;
@@ -4170,7 +3869,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';
@@ -4233,7 +3932,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
@@ -4250,7 +3949,7 @@
BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';
end;
KommentarST.Caption := Kommentar;
- PakkeshopNulstil.Visible := true;
+ btnNulstil.Visible := true;
end;
end;
@@ -4274,7 +3973,7 @@
else
MessageBox(Handle, 'fejl', 'Stregkode', MB_OK);
}
- Svar := 'Beregnet: '+CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;
+ Svar := 'Beregnet: ' + TUtils.CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;
MessageBox(Handle, PWideChar(Svar), 'Stregkode', MB_OK);
CheckCode();
@@ -4282,45 +3981,6 @@
end;
-function TMainForm.BarCodeValid (ACode: string): boolean;
-var
- I: integer;
- SumOdd, SumEven: integer;
- ADigit, AChecksumDigit: integer;
-begin
- SumOdd := 0;
- SumEven := 0;
- for I := 1 to (Length (ACode) - 1) do begin
- ADigit := StrToIntDef (ACode [I], 0);
- if (I MOD 2 = 0) then begin
- SumEven := SumEven + ADigit;
- end else begin
- SumOdd := SumOdd + ADigit;
- end; {if}
- end; {for}
- AChecksumDigit := StrToIntDef (ACode [Length (ACode)], 0);
- Result := ((SumOdd*3 + SumEven + AChecksumDigit) MOD 10 = 0);
-end; {--BarCodeValid--}
-
-{ used for EAN 8/13 }
-function TMainForm.CheckSumModulo10(const data:string):string;
- var i,fak,sum : Integer;
-begin
- sum := 0;
- fak := Length(data);
- for i:=1 to Length(data) do
- begin
- if (fak mod 2) = 0 then
- sum := sum + (StrToInt(data[i])*1)
- else
- sum := sum + (StrToInt(data[i])*3);
- dec(fak);
- end;
- if (sum mod 10) = 0 then
- result := data+'0'
- else
- result := data+IntToStr(10-(sum mod 10));
-end;
//
// Bladhus ***
@@ -4798,7 +4458,7 @@
ListBox1.SetFocus; // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
end;
-procedure TMainForm.DownloadButton01Click(Sender: TObject);
+procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject);
begin
DownloadBladhusKontrolfil();
ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
@@ -4813,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.DownloadButton03Click(Sender: TObject);
+procedure TMainForm.BtnDownloadRuteskiftFilClick(Sender: TObject);
begin
if (getProddag() = 'lørdag') then
begin
@@ -4822,20 +4482,130 @@
ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
end;
-function TMainForm.Explode(var a: TStrArray; Border, S: string): Integer;
+
+// ToDo: PrintPakkeshopLabel()
+procedure TMainForm.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
var
- S2: string;
+ XForm, XFormOld: TXForm; //Bruges til rotate X-formation
+ Angle: integer;
+ gMode: integer;
+ Dirigering: string;
+
+begin
+ with Printer do
+ begin
+ BeginDoc();
+
+
+ Canvas.Font.Size := 16;
+ Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + ' ' + PakkeshopLabel.Overskrift);
+
+
+
+ Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
+ Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );
+ Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );
+
+
+ Canvas.Font.Size := 9;
+ Canvas.TextOut(110, 240, 'Pakkeshop:');
+ Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
+ Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
+ Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
+
+ Canvas.TextOut(350, 240, 'Afsender:');
+ Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn);
+ Canvas.TextOut(350, 300, PakkeshopLabel.AfsenderAdresse);
+ Canvas.TextOut(350, 330, PakkeshopLabel.AfsenderPostnr);
+
+ Dirigering := PakkeshopLabel.PakkeshopSted + ' | ' + PakkeshopLabel.PakkeshopTurid + ' | ' + PakkeshopLabel.PakkeshopNr;
+ if ( PakkeshopLabel.Koreliste <> '') then
+ begin
+ Dirigering := Dirigering + ' > ' + PakkeshopLabel.Koreliste;
+ end;
+
+
+ Canvas.Font.Size := 12;
+ Canvas.TextOut(15, 370, Dirigering);
+
+
+
+
+
+ //Tegn adskillelses linier
+ Canvas.Pen.Width := 2;
+ //Øverste linie
+ Canvas.MoveTo(20,80);
+ Canvas.LineTo(600,80);
+
+ // Midterste linie
+ Canvas.MoveTo( 20, 240);
+ Canvas.LineTo(600, 240);
+
+ //Nederste linie
+ Canvas.MoveTo( 20, 370);
+ Canvas.LineTo(600, 370);
+
+
+ //Tegn skrå streger over afsender
+ Canvas.Pen.Width := 1;
+ Canvas.MoveTo(600, 250);
+ Canvas.LineTo(350, 360);
+ Canvas.MoveTo(600, 360);
+ Canvas.LineTo(350, 250);
+
+
+
+
+ // Resten af rutinen vedr genering og placering af Barcode
+
+ BarCode.BarCodeType := bcCode128;
+ BarCode.Code128Subset := csCodeC;
+ BarCode.Code := PakkeshopLabel.Stregkode;
+ BarCode.Validate(True);
+
+ //Start X-formation
+ //ShowMessage( Format('%d %d', [PageWidth, PageHeight]) );
+ GetWorldTransform(Canvas.Handle, XFormOld);
+
+ Angle := 270;
+ XForm.eM11 := Cos(DegToRad(Angle));
+ XForm.eM12 := Sin(DegToRad(Angle));
+ XForm.eM21 := -Sin(DegToRad(Angle));
+ XForm.eM22 := Cos(DegToRad(Angle));
+ XForm.eDx := 0;
+ XForm.eDy := 0;
+
+ gMode := SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
+ SetWorldTransform(Canvas.Handle, XForm);
+
+ // PaintToCanvasSize arbejder i Inches
+ // Første pos argument bliver nu Y og skal være negativ for at rykke den ned
+ //Anden pos er X og skal være positiv for at justere ind fra venstre mod højre
+
+ BarCode.PaintToCanvasSize(Printer.Canvas, -1.8, 3.3, 0.4);
+
+
+ SetWorldTransform(Canvas.Handle, XFormOld);
+ SetGraphicsMode(Canvas.Handle, gMode);
+
+ EndDoc();
+ end;
+
+
+end;
+
+function GetPixelsPerInchX(): Integer;
begin
- Result := 0;
- S2 := S + Border;
- repeat
- SetLength(A, Length(A) + 1);
- a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);
- Delete(S2, 1,Length(a[Result] + Border));
- Inc(Result);
- until S2 = '';
+ Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX)
end;
+function GetPixelsPerInchY(): Integer;
+begin
+ Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
+end;
+
+
procedure TMainForm.IndlesManglendeScanninger();
var
WebSvar : String;
@@ -4848,9 +4618,9 @@
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
pakketyper : TStrings;
antlin : Integer;
-// 20150306: start
+
antlinIdag, antlinSenere : Integer;
-// 20150306: slut
+
XmlFelter : TStrings;
begin
@@ -4870,32 +4640,19 @@
StedKode := Sted;
end;
-// 20150310: start
-(*
- if Returpakkerfrapakkeshop1.Checked then
- begin
- URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
- end
- else if Pakkeshoplevering1.Checked then
- begin
- URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);
- end
- else if Pakkernormal1.Checked then
+
+
+ if (Scanningtype = '7') then
begin
- URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);
+ URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
end
- else
- begin
- URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']); // Budleveringer
- end;
-*)
- if (Scanningtype = '6') then
+ else if (Scanningtype = '6') then
begin
- URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
+ URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);
end
else if (Scanningtype = '5') then
begin
- URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);
+ URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);
end
else if (Scanningtype = '1') then
begin
@@ -4932,12 +4689,11 @@
try
XMLDocument1.LoadFromXML(WebSvar);
-// 20150206: start
+
antlin := 0;
antlinIdag := 0;
antlinSenere := 0;
-// 20150306: slut
- antalFelterFundet := 0;
+
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
Node:= XMLDocument1.DocumentElement.ChildNodes[I];
if Node.NodeType = ntElement then begin
@@ -4969,15 +4725,14 @@
antalFelterFundet := 0;
SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug
SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array
-// 20150206: start
-// logTekst := '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
begin
logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
end;
logTekst := logTekst + '.';
-// 20150306: slut
+
SkrivScanningLogFil(logTekst);
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
Node:= XMLDocument1.DocumentElement.ChildNodes[I];
@@ -5021,14 +4776,13 @@
// stregkoderMedTjekkodeArray[linienr] := stregkode;
if (pos(' ', stregkode) > 0) then
begin
- stregkoderMedTjekkodeArray[linienr] := split(stregkode, ' ', 2); // Fjerner lige en evt. fremtidig dato fra feltet
+ stregkoderMedTjekkodeArray[linienr] := TUtils.split(stregkode, ' ', 2); // Fjerner lige en evt. fremtidig dato fra feltet
end
else
begin
stregkoderMedTjekkodeArray[linienr] := stregkode;
end;
-// 20150306: slut
- linienr := linienr + 1;
+ linienr := linienr + 1;
end;
end;
if antalFelterFundet = antalLiniefelter then
@@ -5053,7 +4807,6 @@
// Free up the list object
pakketyper.Free;
-// 20150306: start
// 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
@@ -5062,8 +4815,6 @@
end;
logTekst := logTekst + '.';
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-// 20150306: slut
-// 20150309: start
if (antlinSenere > 0) then
begin
StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
@@ -5072,9 +4823,7 @@
begin
StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
end;
-// 20150309: slut
-// 20150310: start
if (Scanningtype = '1') then
begin
//antlinIdag := 9876; // til test af boksens udseende ved stort tal
@@ -5153,7 +4902,6 @@
PanelManglendePakker6.Visible := false;
end;
end;
-// 20150310: slut
except on e:exception do
begin
@@ -5215,12 +4963,10 @@
procedure TMainForm.SkrivScanningLogFil(var tekst : string);
var
SomeTxtFile : TextFile;
- buffer : string;
- S: string;
idag, imorgen : TDateTime;
imorgenYmd : string;
logFilnavn : string;
- error : Integer;
+ //error : Integer;
begin
if (SkrivLog = '1') then
@@ -5312,10 +5058,10 @@
ReadLn(SomeTxtFile, buffer) ;
S := buffer;
SetLength(A,0);
- Explode(A, ';', S);
+ TUtils.Explode(A, ';', S);
if (length(A) < 2) then
begin
- Explode(A, ',', S);
+ TUtils.Explode(A, ',', S);
end;
if (length(A) > 1) then
begin
@@ -5389,10 +5135,10 @@
ReadLn(SomeTxtFile, buffer) ;
S := buffer;
SetLength(A,0);
- Explode(A, ';', S);
+ TUtils.Explode(A, ';', S);
if (length(A) < 3) then
begin
- Explode(A, ',', S);
+ TUtils.Explode(A, ',', S);
end;
if (A[0]=imorgenYmd) then
begin
@@ -5484,6 +5230,26 @@
result := svar;
end;
+procedure TMainForm.VisAlarmSkaerm(strMessage: string);
+begin
+ //ShowMessage('Ændring ikke tilladt');
+ // Her skal komme en 'rød skærm' alarm
+ PlaySound(PWideChar(AlarmLyd));
+ MainForm.Color := clRed;
+
+
+ RuteNummerST.Caption := '';
+ BoghandlerNavnST.Caption := '';
+ btnNulstil.Visible := true;
+
+ if (strMessage <> '') then
+ begin
+ ListBox1.Items.Insert(0, strMessage);
+ KommentarST.Caption := strMessage;
+ end;
+
+end;
+
function TMainForm.getProddato() : TDate;
var
idag, imorgen : TDateTime;
@@ -5504,7 +5270,7 @@
function TMainForm.getProddag() : String;
begin
// ShowMessage(LongDayNames[DayOfWeek(getProddato())]);
- result := LongDayNames[DayOfWeek(getProddato())];
+ result := FormatSettings.LongDayNames[DayOfWeek(getProddato())];
//result := 'lørdag'; // MENS VI TESTER kan vi fremtvinge lørdag situation her
end;
@@ -5565,25 +5331,19 @@
begin
if Scanogstjekkoden1.Checked then
begin
- CheckBox3.Checked := true;
+ chkScanTjekkode.Checked := true;
end
else
begin
- CheckBox3.Checked := false;
+ chkScanTjekkode.Checked := false;
end;
end;
-function TMainForm.AdobeReaderExists: Boolean;
-var
- AReg: TRegistry;
-begin
- result:= false;
- AReg := TRegistry.Create;
- AReg.RootKey := HKEY_LOCAL_MACHINE;
- if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then
- result:= True;
- AReg.Free;
-end;
+
+
+
+
+
procedure TMainForm.CheckPrintQue(tjektype : string);
type
@@ -5688,65 +5448,6 @@
end;
end;
-function TMainForm.CheckUrl(url:string):boolean;
-var
- hSession, hfile, hRequest: hInternet;
- dwindex,dwcodelen :dword;
- dwcode:array[1..20] of char;
- res : pchar;
-begin
- if pos('http://',lowercase(url))=0 then
- url := 'http://'+url;
- Result := false;
- hSession := InternetOpen('InetURL:/1.0',
- INTERNET_OPEN_TYPE_PRECONFIG,
- nil,
- nil,
- 0);
- if assigned(hsession) then
- begin
- hfile := InternetOpenUrl(hsession,
- pchar(url),
- nil,
- 0,
- INTERNET_FLAG_RELOAD,
- 0);
- dwIndex := 0;
- dwCodeLen := 10;
- HttpQueryInfo(hfile,
- HTTP_QUERY_STATUS_CODE,
- @dwcode,
- dwcodeLen,
- dwIndex);
- res := pchar(@dwcode);
- result:= (res ='200') or (res ='302');
- if assigned(hfile) then
- InternetCloseHandle(hfile);
- InternetCloseHandle(hsession);
- end;
-
-end;
-
-// 20150310: start
-procedure TMainForm.RoundCornerOf(Control: TWinControl);
-var
- R: TRect;
- Rgn: HRGN;
-begin
- with Control do
- begin
- R := ClientRect;
-// rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;
- rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 25, 25) ;
-// rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30) ;
- Perform(EM_GETRECT, 0, lParam(@r)) ;
- InflateRect(r, - 4, - 4) ;
- Perform(EM_SETRECTNP, 0, lParam(@r)) ;
- SetWindowRgn(Handle, rgn, True) ;
- Invalidate;
- end;
-end;
-// 20150310: slut
end.