Protected Sub RadGridQuoteItemLabour_ItemCreated(ByVal source As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs)
If e.Item.IsInEditMode And e.Item.OwnerTableView.Name = "" Then
Dim item As GridEditableItem = DirectCast(e.Item, GridEditableItem)
Dim combo As RadComboBox = DirectCast(item("EditLabourRateId").Controls(0), RadComboBox)
combo.AutoPostBack = True
AddHandler combo.SelectedIndexChanged, AddressOf EditLabourRateId_SelectedIndexChanged
End If
End Sub
Private Sub EditLabourRateId_SelectedIndexChanged(ByVal source As Object, ByVal e As RadComboBoxSelectedIndexChangedEventArgs)
Dim intLabourRateIdToLookup As Integer
Dim strLabourRatePrices As String
Dim arrLabourRatePrices() As String
Dim combo As RadComboBox = DirectCast(source, RadComboBox)
Dim editItem As GridDataItem = DirectCast(combo.NamingContainer, GridDataItem)
Dim txtEditGridLabourCostRatePerHour As RadNumericTextBox = DirectCast(editItem("EditGridLabourCostRatePerHour").Controls(0), RadNumericTextBox)
Dim txtEditGridLabourSellRatePerHour As RadNumericTextBox = DirectCast(editItem("EditGridLabourSellRatePerHour").Controls(0), RadNumericTextBox)
Dim txtEditGridLabourGSTPercentageToApply As RadNumericTextBox = DirectCast(editItem("EditGridLabourGSTPercentageToApply").Controls(0), RadNumericTextBox)
intLabourRateIdToLookup = e.Value
'Get Cost and Sell prices
strLabourRatePrices = returnCostSellPriceForSelectedLabour(intLabourRateIdToLookup)
arrLabourRatePrices = strLabourRatePrices.Split(";")
'Update Values
txtEditGridLabourCostRatePerHour.Text = arrLabourRatePrices(0)
txtEditGridLabourSellRatePerHour.Text = arrLabourRatePrices(1)
txtEditGridLabourGSTPercentageToApply.Text = arrLabourRatePrices(2)
End Sub