--- dao/DelphiScanner/Main.pas 2015/09/04 12:39:33 2705 +++ dao/DelphiScanner/Main.pas 2015/11/24 15:35:17 2780 @@ -726,12 +726,15 @@ PanelValg2.Font.Color := clInactiveCaption; PanelValg3.Enabled := false; PanelValg3.Font.Color := clInactiveCaption; - PanelValg6.Enabled := false; - PanelValg6.Font.Color := clInactiveCaption; + //PanelValg6.Enabled := false; + //PanelValg6.Font.Color := clInactiveCaption; + // her skal vi også disable de menupunkter BK ikke kan bruge ReturpakkerfraDAO1.Enabled := false; Returpakkerfraboghandler1.Enabled := false; - Returpakkerfrapakkeshop1.Enabled := false; + + //Returpakkerfrapakkeshop1.Enabled := false; + if SpecialVersionScanningtype = 'A' then begin Scanningtype := '1'; @@ -1374,19 +1377,19 @@ Pakkescanningtype := Scanningtype; end; - if ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) - or (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) - or (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) - or (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) - or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) - or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then + if ( ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) ) + or ( (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) ) + or ( (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) ) + or ( (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) ) + or ( (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) ) + or ( (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) ) then begin // Her skal komme en alarm og rød skærm VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); exit; end; - if Automatiskvalg1.Checked and (Length(Stregkode) > 8) then + if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then begin GemStregkode := Stregkode; if Pakketype = 'NatXpress' then @@ -1420,7 +1423,8 @@ else begin // Her skal komme en alarm og rød skærm - VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); + //VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); + VisAlarmSkaerm( Stregkode + ' kan ikke bruges med automatisk valg' ); exit; end;