or


Protected Sub btnCreateRates_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCreateRates.Click If txtCards.Text = Nothing Then MsgBox("Please type number of cards, in order to continue.", MsgBoxStyle.OkOnly, "ERROR") Exit Sub Else 'Confirmation() dtValues = DirectCast(Session("tblPendingOrders"), DataTable) ' retrieve DataTable from session Dim drValues As DataRow = dtValues.NewRow() GridID = grdData.MasterTableView.Items.Count + 1 drValues("ID") = GridID drValues("Address1") = txtAddress1.Text drValues("Address2") = txtAddress2.Text drValues("Address3") = txtAddress3.Text drValues("Cards") = txtCards.Value drValues("CardType") = "Virtual" drValues("CareOf") = txtCareOf.Text drValues("Charge") = txtCards.Value * GetCharge() drValues("City") = txtCity.Text drValues("Country") = txtCountry.Text drValues("MasterOf") = cbVessels.SelectedItem.Text drValues("Notes") = txtNotes.Text drValues("OrderRef") = txtOrderRef.Text drValues("Owning") = txtOwning.Text drValues("Price") = GetCharge() drValues("Provider") = cbProviders.SelectedItem.Text drValues("Units") = cbUnits.SelectedItem.Text drValues("Vessel") = cbVessels.SelectedItem.Text drValues("VesselID") = cbVessels.SelectedValue drValues("ZipCode") = txtZipCode.Text dtValues.Rows.Add(drValues) dtValues.AcceptChanges() Session("tblPendingOrders") = dtValues 'store DataTable in session grdData.Rebind() grdData.MasterTableView.IsItemInserted = False grdData.MasterTableView.Rebind() lblPendingOrders.Text = "Pending CCC Orders: " & grdData.MasterTableView.Items.Count End IfEnd SubProtected Sub grdData_ItemDeleted(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridDeletedEventArgs) Handles grdData.ItemDeleted Dim item As GridDataItem = DirectCast(e.Item, GridDataItem) Dim id As String = item.GetDataKeyValue("ID").ToString() If Not e.Exception Is Nothing Then e.ExceptionHandled = True SetMessage("Product with ID " + id + " cannot be deleted. Reason: " + e.Exception.Message) Else SetMessage("Product with ID " + id + " is deleted!") End IfEnd SubPrivate Sub SetMessage(ByVal message As String) gridMessage = messageEnd SubProtected Sub grdData_NeedDataSource(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles grdData.NeedDataSource dtValues = New DataTable() dtValues.Columns.Add("ID") dtValues.Columns.Add("CardType") dtValues.Columns.Add("Provider") dtValues.Columns.Add("Vessel") dtValues.Columns.Add("VesselID") dtValues.Columns.Add("Units") dtValues.Columns.Add("Cards") dtValues.Columns.Add("Price") dtValues.Columns.Add("Charge") dtValues.Columns.Add("Address1") dtValues.Columns.Add("Address2") dtValues.Columns.Add("Address3") dtValues.Columns.Add("CareOf") dtValues.Columns.Add("City") dtValues.Columns.Add("Country") dtValues.Columns.Add("MasterOf") dtValues.Columns.Add("Notes") dtValues.Columns.Add("OrderRef") dtValues.Columns.Add("Owning") dtValues.Columns.Add("ZipCode") If Session("tblPendingOrders") IsNot Nothing Then ' retrieve DataTable from session dtValues = DirectCast(Session("tblPendingOrders"), DataTable) End If grdData.DataSource = dtValues Session("tblPendingOrders") = dtValuesEnd SubProtected Sub grdData_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles grdData.ItemDataBound If TypeOf e.Item Is GridHeaderItem Then Dim header As GridHeaderItem = DirectCast(e.Item, GridHeaderItem) End If If TypeOf e.Item Is GridDataItem Then Dim dataItem As GridDataItem = CType(e.Item, GridDataItem) Price += dataItem("Price").Text Charge += dataItem("Charge").Text Cards += dataItem("Cards").Text End If If (TypeOf e.Item Is GridFooterItem) Then Dim footerItem As GridFooterItem = CType(e.Item, GridFooterItem) footerItem("Price").Text = Price footerItem("Charge").Text = Charge footerItem("Cards").Text = Cards footerItem("Provider").Controls.Add(New LiteralControl("<span style='color: Black; font-weight: bold;'>Totals:</span> ")) End IfEnd Sub
_updateFlipUI: function() { var horiz = this._flipHorizontal; var vertical = this._flipVertical; var filters = this._image.filters; //Moz TEMP if (!filters) return; filters.item("flipH").enabled = horiz ? 1 : 0; filters.item("flipV").enabled = vertical ? 1 : 0; },
_updateRotationUI: function()
{
var image = this._image;
//If IE
var filters = image.filters;
if (filters)
{
var filter = filters.item("DXImageTransform.Microsoft.Matrix");
if (filter)
{
//deg input defines the requested angle of rotation.
var deg = this._rotationAngle;
var deg2radians = Math.PI * 2 / 360;
var rad = deg * deg2radians;
var costheta = Math.cos(rad);
var sintheta = Math.sin(rad);
filter.M11 = costheta;
filter.M12 = -sintheta;
filter.M21 = sintheta;
filter.M22 = costheta;
}
}
}
//Will be different in different browsers _customInitialize: function() { //Set all filters to the image (TODO: the matrix filter in the future too) this._image.style.filter = "flipH flipV progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=100) progid:DXImageTransform.Microsoft.Matrix(M11='1.0', sizingmethod='auto expand')"; },<
telerik:RadComboBox ID="ddlFilterType" runat="server"
EnableEmbeddedSkins="false" DropDownWidth ="95px" Skin="MyBlack" BorderColor="Gray"
BorderWidth="1px" Width="120px" OnSelectedIndexChanged ="ddlFilterType_SelectedIndexChanged"
AutoPostBack ="true" AppendDataBoundItems ="true">
<Items>
<telerik:RadComboBoxItem runat="server" Height ="20" Text="State" Value="1" />
<telerik:RadComboBoxItem runat="server" Height ="20" Text="Provider" Value="2" />
<telerik:RadComboBoxItem runat="server" Height ="20" Text="Faculty" Value="3" />
</Items>
</telerik:RadComboBox>