726 |
PanelValg2.Font.Color := clInactiveCaption; |
PanelValg2.Font.Color := clInactiveCaption; |
727 |
PanelValg3.Enabled := false; |
PanelValg3.Enabled := false; |
728 |
PanelValg3.Font.Color := clInactiveCaption; |
PanelValg3.Font.Color := clInactiveCaption; |
729 |
PanelValg6.Enabled := false; |
//PanelValg6.Enabled := false; |
730 |
PanelValg6.Font.Color := clInactiveCaption; |
//PanelValg6.Font.Color := clInactiveCaption; |
731 |
|
|
732 |
// her skal vi også disable de menupunkter BK ikke kan bruge |
// her skal vi også disable de menupunkter BK ikke kan bruge |
733 |
ReturpakkerfraDAO1.Enabled := false; |
ReturpakkerfraDAO1.Enabled := false; |
734 |
Returpakkerfraboghandler1.Enabled := false; |
Returpakkerfraboghandler1.Enabled := false; |
735 |
Returpakkerfrapakkeshop1.Enabled := false; |
|
736 |
|
//Returpakkerfrapakkeshop1.Enabled := false; |
737 |
|
|
738 |
if SpecialVersionScanningtype = 'A' then |
if SpecialVersionScanningtype = 'A' then |
739 |
begin |
begin |
740 |
Scanningtype := '1'; |
Scanningtype := '1'; |
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; |