/[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 2657 by torben, Sun Aug 23 14:02:55 2015 UTC revision 2658 by torben, Sun Aug 23 14:08:08 2015 UTC
# Line 1473  begin Line 1473  begin
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;
Legend:
Removed from v.2657  
changed lines
  Added in v.2658
  ViewVC Help
Powered by ViewVC 1.1.20