258 |
procedure IndlesScanningLogFil(); |
procedure IndlesScanningLogFil(); |
259 |
procedure SkrivScanningLogFil(var tekst : string); |
procedure SkrivScanningLogFil(var tekst : string); |
260 |
function TjekKoreliste(var RuteNummer, Koreliste : string) : string; |
function TjekKoreliste(var RuteNummer, Koreliste : string) : string; |
261 |
|
procedure VisAlarmSkaerm(var List1msg: string); |
262 |
|
|
263 |
public |
public |
264 |
{ Public declarations } |
{ Public declarations } |
1247 |
end |
end |
1248 |
else |
else |
1249 |
begin |
begin |
1250 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1251 |
end; |
end; |
1252 |
Stregkode := ''; |
Stregkode := ''; |
1253 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1262 |
end |
end |
1263 |
else |
else |
1264 |
begin |
begin |
1265 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1266 |
end; |
end; |
1267 |
Stregkode := ''; |
Stregkode := ''; |
1268 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1284 |
end |
end |
1285 |
else |
else |
1286 |
begin |
begin |
1287 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1288 |
end; |
end; |
1289 |
Stregkode := ''; |
Stregkode := ''; |
1290 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1306 |
end |
end |
1307 |
else |
else |
1308 |
begin |
begin |
1309 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1310 |
end; |
end; |
1311 |
Stregkode := ''; |
Stregkode := ''; |
1312 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1321 |
end |
end |
1322 |
else |
else |
1323 |
begin |
begin |
1324 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1325 |
end; |
end; |
1326 |
Stregkode := ''; |
Stregkode := ''; |
1327 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1337 |
end |
end |
1338 |
else |
else |
1339 |
begin |
begin |
1340 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1341 |
end; |
end; |
1342 |
Stregkode := ''; |
Stregkode := ''; |
1343 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1352 |
end |
end |
1353 |
else |
else |
1354 |
begin |
begin |
1355 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1356 |
end; |
end; |
1357 |
Stregkode := ''; |
Stregkode := ''; |
1358 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1367 |
end |
end |
1368 |
else |
else |
1369 |
begin |
begin |
1370 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1371 |
end; |
end; |
1372 |
Stregkode := ''; |
Stregkode := ''; |
1373 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1382 |
end |
end |
1383 |
else |
else |
1384 |
begin |
begin |
1385 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1386 |
end; |
end; |
1387 |
Stregkode := ''; |
Stregkode := ''; |
1388 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1397 |
end |
end |
1398 |
else |
else |
1399 |
begin |
begin |
1400 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1401 |
end; |
end; |
1402 |
Stregkode := ''; |
Stregkode := ''; |
1403 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
1412 |
end |
end |
1413 |
else |
else |
1414 |
begin |
begin |
1415 |
//ShowMessage('Ændring ikke tilladt'); |
VisAlarmSkaerm(List1msg); |
|
// 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; |
|
|
|
|
|
RuteNummerST.Caption := ''; |
|
|
BoghandlerNavnST.Caption := ''; |
|
|
|
|
|
KommentarST.Caption := List1msg; |
|
|
PakkeshopNulstil.Visible := true; |
|
1416 |
end; |
end; |
1417 |
Stregkode := ''; |
Stregkode := ''; |
1418 |
StregkodeST.Caption := StregKode; |
StregkodeST.Caption := StregKode; |
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; |
5270 |
result := svar; |
result := svar; |
5271 |
end; |
end; |
5272 |
|
|
5273 |
|
procedure TMainForm.VisAlarmSkaerm(var List1msg: string); |
5274 |
|
begin |
5275 |
|
//ShowMessage('Ændring ikke tilladt'); |
5276 |
|
// Her skal komme en 'rød skærm' alarm |
5277 |
|
PlaySound(PWideChar(AlarmLyd)); |
5278 |
|
List1msg := Stregkode + ' kan ikke vælges på dette scanningsted'; |
5279 |
|
ListBox1.Items.Insert(0, List1Msg); |
5280 |
|
MainForm.Color := clRed; |
5281 |
|
RuteNummerST.Caption := ''; |
5282 |
|
BoghandlerNavnST.Caption := ''; |
5283 |
|
KommentarST.Caption := List1msg; |
5284 |
|
PakkeshopNulstil.Visible := true; |
5285 |
|
end; |
5286 |
|
|
5287 |
function TMainForm.getProddato() : TDate; |
function TMainForm.getProddato() : TDate; |
5288 |
var |
var |
5289 |
idag, imorgen : TDateTime; |
idag, imorgen : TDateTime; |