1377 |
Pakkescanningtype := Scanningtype; |
Pakkescanningtype := Scanningtype; |
1378 |
end; |
end; |
1379 |
|
|
1380 |
if ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) |
if ( ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) ) |
1381 |
or (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) |
or ( (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) ) |
1382 |
or (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) |
or ( (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) ) |
1383 |
or (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) |
or ( (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) ) |
1384 |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
or ( (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) ) |
1385 |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
or ( (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) ) then |
1386 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1387 |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1388 |
|
|
1389 |
exit; |
exit; |
1390 |
end; |
end; |
1391 |
|
|
1392 |
if Automatiskvalg1.Checked and (Length(Stregkode) > 8) then |
if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then |
1393 |
begin |
begin |
1394 |
GemStregkode := Stregkode; |
GemStregkode := Stregkode; |
1395 |
if Pakketype = 'NatXpress' then |
if Pakketype = 'NatXpress' then |
1423 |
else |
else |
1424 |
begin |
begin |
1425 |
// Her skal komme en alarm og rød skærm |
// Her skal komme en alarm og rød skærm |
1426 |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
//VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1427 |
|
VisAlarmSkaerm( Stregkode + ' kan ikke bruges med automatisk valg' ); |
1428 |
|
|
1429 |
exit; |
exit; |
1430 |
end; |
end; |