1473 |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
1474 |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
1475 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1476 |
PlaySound(PWideChar(AlarmLyd)); |
VisAlarmSkaerm(List1msg); |
|
List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted'; |
|
|
ListBox1.Items.Insert(0,List1Msg); |
|
|
MainForm.Color := clRed; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
|
|
|
|
StregKode := ''; |
|
|
StregkodeST.Caption := StregKode; |
|
1477 |
|
|
1478 |
exit; |
exit; |
1479 |
end; |
end; |