88 |
PanelManglendePakker4: TPanel; |
PanelManglendePakker4: TPanel; |
89 |
PanelManglendePakker5: TPanel; |
PanelManglendePakker5: TPanel; |
90 |
PanelManglendePakker6: TPanel; |
PanelManglendePakker6: TPanel; |
91 |
|
menuIndlevering: TMenuItem; |
92 |
|
|
93 |
|
|
94 |
function Explode(var a: TStrArray; Border, S: string): Integer; |
function Explode(var a: TStrArray; Border, S: string): Integer; |
184 |
procedure TjekkerUrls(); |
procedure TjekkerUrls(); |
185 |
// 20150310: start |
// 20150310: start |
186 |
procedure RoundCornerOf(Control: TWinControl); |
procedure RoundCornerOf(Control: TWinControl); |
187 |
|
procedure menuIndleveringClick(Sender: TObject); |
188 |
|
|
189 |
|
|
190 |
// 20150310: slut |
// 20150310: slut |
1623 |
// Hvis der var sql fejl i opdateringen skal dette fejlmeldes her |
// Hvis der var sql fejl i opdateringen skal dette fejlmeldes her |
1624 |
if Rutenummer = 'sql fejl' then |
if Rutenummer = 'sql fejl' then |
1625 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1626 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm( 'SQL fejl: ' + Kommentar ); |
1627 |
//List1msg := 'SQL fejl: ' + Kommentar; |
|
|
//ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
//KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1628 |
exit; |
exit; |
1629 |
end; |
end; |
1630 |
if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then |
if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then |
1683 |
end |
end |
1684 |
else |
else |
1685 |
begin |
begin |
1686 |
MainForm.Color := clRed; |
VisAlarmSkaerm(''); |
|
PlaySound(PWideChar(AlarmLyd)); |
|
|
PakkeshopNulstil.Visible := true; |
|
1687 |
end; |
end; |
1688 |
if not PakkeshopNulstil.Visible then |
if not PakkeshopNulstil.Visible then |
1689 |
begin |
begin |
2411 |
end; |
end; |
2412 |
end; |
end; |
2413 |
01 : begin; |
01 : begin; |
2414 |
if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
2415 |
// 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 |
2416 |
// 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') |
2417 |
begin |
begin |
2425 |
end; |
end; |
2426 |
end; |
end; |
2427 |
03 : begin; |
03 : begin; |
2428 |
if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then |
2429 |
// 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 |
2430 |
// 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') |
2431 |
begin |
begin |
3468 |
end; |
end; |
3469 |
end; |
end; |
3470 |
|
|
3471 |
|
procedure TMainForm.menuIndleveringClick(Sender: TObject); |
3472 |
|
begin |
3473 |
|
Scanningtype := '7'; |
3474 |
|
NulstilAutomatiskValg(); |
3475 |
|
InitIndleveringskode(); |
3476 |
|
end; |
3477 |
|
|
3478 |
procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject); |
procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject); |
3479 |
begin |
begin |
3480 |
|
|
3706 |
|
|
3707 |
procedure TMainForm.InitIndleveringskode(); |
procedure TMainForm.InitIndleveringskode(); |
3708 |
begin |
begin |
3709 |
|
menuIndlevering.Checked := true; |
3710 |
AutomatiskTjekkodeStyring1.Enabled := false; |
AutomatiskTjekkodeStyring1.Enabled := false; |
3711 |
Returpakkerfrapakkeshop1.Checked := true; |
|
3712 |
PakkeshopNulstil.Visible := false; |
PakkeshopNulstil.Visible := false; |
3713 |
InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop); |
InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop); |
3714 |
PanelValg7.Color := clGreen; |
PanelValg7.Color := clGreen; |
5207 |
//ShowMessage('Ændring ikke tilladt'); |
//ShowMessage('Ændring ikke tilladt'); |
5208 |
// Her skal komme en 'rød skærm' alarm |
// Her skal komme en 'rød skærm' alarm |
5209 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(AlarmLyd)); |
|
|
|
|
ListBox1.Items.Insert(0, strMessage); |
|
5210 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
5211 |
|
|
5212 |
|
|
5213 |
RuteNummerST.Caption := ''; |
RuteNummerST.Caption := ''; |
5214 |
BoghandlerNavnST.Caption := ''; |
BoghandlerNavnST.Caption := ''; |
|
KommentarST.Caption := strMessage; |
|
5215 |
PakkeshopNulstil.Visible := true; |
PakkeshopNulstil.Visible := true; |
5216 |
|
|
5217 |
|
if (strMessage <> '') then |
5218 |
|
begin |
5219 |
|
ListBox1.Items.Insert(0, strMessage); |
5220 |
|
KommentarST.Caption := strMessage; |
5221 |
|
end; |
5222 |
|
|
5223 |
end; |
end; |
5224 |
|
|
5225 |
function TMainForm.getProddato() : TDate; |
function TMainForm.getProddato() : TDate; |