/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2779 by torben, Thu Oct 22 14:06:23 2015 UTC revision 2780 by torben, Tue Nov 24 15:35:17 2015 UTC
# Line 1377  begin Line 1377  begin
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
# Line 1423  begin Line 1423  begin
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;
Legend:
Removed from v.2779  
changed lines
  Added in v.2780
  ViewVC Help
Powered by ViewVC 1.1.20