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 |
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; |
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; |