Private Sub lstTransactions_RowPopulating(ByVal e As MicroFour.StrataFrame.UI.Windows.Forms.RowPopulatingEventArgs) Handles lstTransactions.RowPopulating
Using loBO As bizTransaction = DirectCast(e.BusinessObject, bizTransaction)
e.UseGroup = True
e.GroupHeaderText = MicroFour.StrataFrame.Tools.Common.GetEnumDisplayValue(loBO.TransactionType)
e.ImageKey = loBO.TransactionType.ToString
Select Case loBO.TransactionType
Case Business.Enumerations.TransactionType.CarrierDeactivation
e.RowBackColor = Color.Yellow
Me.lblDeactivated.Text = "*** This card has been Deactivated ***"
Me.lblDeactivated.Visible = True
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
Case Business.Enumerations.TransactionType.FirstUseImport
e.RowBackColor = Color.Yellow
Me.lblDeactivated.Text = "*** This card has been Used ***"
Me.lblDeactivated.Visible = True
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
End Select
End Using
End Sub