8 |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
9 |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
10 |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
11 |
Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet |
Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet, |
12 |
|
UITypes |
13 |
|
|
14 |
; |
; |
15 |
|
|
16 |
type |
type |
537 |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
538 |
var |
var |
539 |
printerInd : integer; |
printerInd : integer; |
|
i : Integer; |
|
|
// 20150310: start |
|
540 |
gemScanningtype : String; |
gemScanningtype : String; |
|
// 20150310: slut |
|
541 |
|
|
542 |
begin |
begin |
543 |
// Initierer nogle variabler |
// Initierer nogle variabler |
1168 |
URLStr : String; |
URLStr : String; |
1169 |
Pakketype : String; |
Pakketype : String; |
1170 |
Pakkescanningtype : String; |
Pakkescanningtype : String; |
|
//List1msg : String; |
|
1171 |
|
|
1172 |
begin |
begin |
1173 |
|
|
1600 |
|
|
1601 |
StregKode := ''; |
StregKode := ''; |
1602 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1603 |
|
|
1604 |
exit; |
exit; |
1605 |
end; |
end; |
1606 |
Stregkode := ''; |
Stregkode := ''; |
1621 |
// Hvis der var sql fejl i opdateringen skal dette fejlmeldes her |
// Hvis der var sql fejl i opdateringen skal dette fejlmeldes her |
1622 |
if Rutenummer = 'sql fejl' then |
if Rutenummer = 'sql fejl' then |
1623 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1624 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( 'SQL fejl: ' + Kommentar ); |
1625 |
//List1msg := 'SQL fejl: ' + Kommentar; |
|
|
//ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
//KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1626 |
exit; |
exit; |
1627 |
end; |
end; |
1628 |
if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then |
if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then |
1681 |
end |
end |
1682 |
else |
else |
1683 |
begin |
begin |
1684 |
MainForm.Color := clRed; |
VisAlarmSkaerm(''); |
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
PakkeshopNulstil.Visible := true; |
|
1685 |
end; |
end; |
1686 |
if not PakkeshopNulstil.Visible then |
if not PakkeshopNulstil.Visible then |
1687 |
begin |
begin |
1921 |
end; |
end; |
1922 |
|
|
1923 |
procedure TMainForm.InitBladhus(); |
procedure TMainForm.InitBladhus(); |
|
var |
|
|
LogFilnavn : string; |
|
1924 |
|
|
1925 |
begin |
begin |
1926 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
2409 |
end; |
end; |
2410 |
end; |
end; |
2411 |
01 : begin; |
01 : begin; |
2412 |
if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
2413 |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
2414 |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
2415 |
begin |
begin |
2423 |
end; |
end; |
2424 |
end; |
end; |
2425 |
03 : begin; |
03 : begin; |
2426 |
if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
2427 |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
// Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste |
2428 |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
// Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr') |
2429 |
begin |
begin |
3204 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
3205 |
Koreliste : String; |
Koreliste : String; |
3206 |
Falsk : Boolean; |
Falsk : Boolean; |
|
Sand : Boolean; |
|
3207 |
SmsKode : String; |
SmsKode : String; |
3208 |
DBKbane : String; |
DBKbane : String; |
3209 |
Leveringssted : String; |
Leveringssted : String; |
3230 |
else |
else |
3231 |
begin |
begin |
3232 |
Falsk := False; |
Falsk := False; |
3233 |
Sand := True; |
|
3234 |
HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, ''); |
HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, ''); |
3235 |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
3236 |
SmsKode := '999999'; |
SmsKode := '999999'; |
3250 |
BoghandlerNavn : String; |
BoghandlerNavn : String; |
3251 |
Koreliste : String; |
Koreliste : String; |
3252 |
Falsk : Boolean; |
Falsk : Boolean; |
|
Sand : Boolean; |
|
3253 |
SmsKode : String; |
SmsKode : String; |
3254 |
DBKbane : String; |
DBKbane : String; |
3255 |
Leveringssted : String; |
Leveringssted : String; |
3258 |
Kommentar := '***** Kommentar *****'; |
Kommentar := '***** Kommentar *****'; |
3259 |
BoghandlerNavn := 'Modtagernavn'; |
BoghandlerNavn := 'Modtagernavn'; |
3260 |
Falsk := False; |
Falsk := False; |
3261 |
Sand := True; |
|
3262 |
|
|
3263 |
if (Printer.Printers.Count = 0) then |
if (Printer.Printers.Count = 0) then |
3264 |
begin |
begin |
3724 |
DownloadButton01.Enabled := false; |
DownloadButton01.Enabled := false; |
3725 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3726 |
EKLoverforsel.Enabled := false; |
EKLoverforsel.Enabled := false; |
3727 |
InitLillePakke(); |
// InitLillePakke(); |
3728 |
IndlesScanningLogFil(); |
// IndlesScanningLogFil(); |
3729 |
if BladhusSted = 0 then |
// if BladhusSted = 0 then |
3730 |
begin |
// begin |
3731 |
IndlesManglendeScanninger(); |
// IndlesManglendeScanninger(); |
3732 |
end; |
// end; |
3733 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
3734 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3735 |
end; |
end; |
3816 |
|
|
3817 |
// Hvorfor virker ovenstående ikke ??? |
// Hvorfor virker ovenstående ikke ??? |
3818 |
S := ''; |
S := ''; |
3819 |
Str(iVer[1],Result); |
Str(iVer[1], Result); |
3820 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3821 |
Str(iVer[2],Result); |
Str(iVer[2], Result); |
3822 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3823 |
Str(iVer[3],Result); |
Str(iVer[3], Result); |
3824 |
S := S+Result+'.'; |
S := S+Result+'.'; |
3825 |
Str(iVer[4],Result); |
Str(iVer[4], Result); |
3826 |
S := S+Result+''; |
S := S+Result+''; |
3827 |
Result := S; |
Result := S; |
3828 |
end; |
end; |
4656 |
antlinIdag := 0; |
antlinIdag := 0; |
4657 |
antlinSenere := 0; |
antlinSenere := 0; |
4658 |
|
|
|
antalFelterFundet := 0; |
|
4659 |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
4660 |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
4661 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4925 |
procedure TMainForm.SkrivScanningLogFil(var tekst : string); |
procedure TMainForm.SkrivScanningLogFil(var tekst : string); |
4926 |
var |
var |
4927 |
SomeTxtFile : TextFile; |
SomeTxtFile : TextFile; |
|
buffer : string; |
|
|
S: string; |
|
4928 |
idag, imorgen : TDateTime; |
idag, imorgen : TDateTime; |
4929 |
imorgenYmd : string; |
imorgenYmd : string; |
4930 |
logFilnavn : string; |
logFilnavn : string; |
5197 |
//ShowMessage('Ændring ikke tilladt'); |
//ShowMessage('Ændring ikke tilladt'); |
5198 |
// Her skal komme en 'rød skærm' alarm |
// Her skal komme en 'rød skærm' alarm |
5199 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(AlarmLyd)); |
|
|
|
|
ListBox1.Items.Insert(0, strMessage); |
|
5200 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
5201 |
|
|
5202 |
|
|
5203 |
RuteNummerST.Caption := ''; |
RuteNummerST.Caption := ''; |
5204 |
BoghandlerNavnST.Caption := ''; |
BoghandlerNavnST.Caption := ''; |
|
KommentarST.Caption := strMessage; |
|
5205 |
PakkeshopNulstil.Visible := true; |
PakkeshopNulstil.Visible := true; |
5206 |
|
|
5207 |
|
if (strMessage <> '') then |
5208 |
|
begin |
5209 |
|
ListBox1.Items.Insert(0, strMessage); |
5210 |
|
KommentarST.Caption := strMessage; |
5211 |
|
end; |
5212 |
|
|
5213 |
end; |
end; |
5214 |
|
|
5215 |
function TMainForm.getProddato() : TDate; |
function TMainForm.getProddato() : TDate; |