Private
Sub
Page_Init(sender
As
Object
, e
As
System.EventArgs)
Handles
Me
.Init
recipientOrganizationID = Request.QueryString.
Get
(
"ID"
)
DisplyMode = Request.QueryString.
Get
(
"show"
)
If
recipientOrganizationID =
Nothing
AndAlso
DisplyMode
Is
Nothing
Then
RecipientOrganizationView.ShowInsertItem()
Else
For
i = 0
To
RecipientOrganizationView.PageSize - 1
RecipientOrganizationView.EditIndexes.Add(i)
Next
End
If
End
Sub
Private
Sub
RecipientOrganizationView_ItemCreated(sender
As
Object
, e
As
Telerik.Web.UI.RadListViewItemEventArgs)
Handles
RecipientOrganizationView.ItemCreated
If
TypeOf
e.Item
Is
RadListViewEditableItem
AndAlso
e.Item.IsInEditMode
Then
'if the item is in edit mode
Dim
editItem
As
RadListViewEditableItem =
DirectCast
(e.Item, RadListViewEditableItem)
Dim
CountryCombo
As
RadComboBox =
DirectCast
(editItem.FindControl(
"CountryCombo"
), RadComboBox)
CountryCombo.AutoPostBack =
True
Dim
ProvinceCombo
As
RadComboBox =
DirectCast
(editItem.FindControl(
"ProvinceCombo"
), RadComboBox)
ProvinceCombo.AutoPostBack =
True
AddHandler
CountryCombo.SelectedIndexChanged,
AddressOf
CountryCombo_SelectedIndexChanged
AddHandler
ProvinceCombo.SelectedIndexChanged,
AddressOf
ProvinceCombo_SelectedIndexChanged
End
If
If
TypeOf
e.Item
Is
RadListViewInsertItem
Then
Dim
editItem
As
RadListViewEditableItem =
DirectCast
(e.Item, RadListViewEditableItem)
Dim
CountryCombo
As
RadComboBox =
DirectCast
(editItem.FindControl(
"CountryCombo"
), RadComboBox)
LoadCountries(CountryCombo)
SetComboBoxDefault(43, CountryCombo,
"Country"
)
'Dim ComboBoxItem As RadComboBoxItem = CountryCombo.FindItemByValue(43)
'ComboBoxItem.Selected = True
End
If
End
Sub
Private
Sub
RecipientOrganizationView_ItemDataBound(sender
As
Object
, e
As
Telerik.Web.UI.RadListViewItemEventArgs)
Handles
RecipientOrganizationView.ItemDataBound
If
TypeOf
e.Item
Is
RadListViewEditableItem
AndAlso
e.Item.IsInEditMode
Then
Dim
item
As
RadListViewDataItem = TryCast(e.Item, RadListViewDataItem)
Dim
CountryId
As
String
=
CType
(DataBinder.Eval(item.DataItem,
"CountryId"
),
String
)
Dim
ProvinceId
As
String
=
CType
(DataBinder.Eval(item.DataItem,
"ProvinceId"
),
String
)
Dim
CityId
As
String
=
CType
(DataBinder.Eval(item.DataItem,
"CityId"
),
String
)
Dim
CountryCombo
As
RadComboBox =
CType
(e.Item.FindControl(
"CountryCombo"
), RadComboBox)
LoadCountries(CountryCombo)
If
CountryId IsNot
Nothing
Then
Dim
ComboBoxItem
As
RadComboBoxItem = CountryCombo.FindItemByValue(CountryId)
ComboBoxItem.Selected =
True
End
If
Dim
ProvinceCombo
As
RadComboBox =
CType
(e.Item.FindControl(
"ProvinceCombo"
), RadComboBox)
LoadProvinces(CountryId, ProvinceCombo)
If
ProvinceId IsNot
Nothing
Then
Dim
ComboBoxItem
As
RadComboBoxItem = ProvinceCombo.FindItemByValue(ProvinceId)
ComboBoxItem.Selected =
True
End
If
Dim
CityCombo
As
RadComboBox =
CType
(e.Item.FindControl(
"CityCombo"
), RadComboBox)
LoadCities(ProvinceId, CityCombo)
If
CityId IsNot
Nothing
Then
Dim
ComboBoxItem
As
RadComboBoxItem = CityCombo.FindItemByValue(CityId)
ComboBoxItem.Selected =
True
End
If
End
If
End
Sub
Private
Sub
RecipientOrganizationView_NeedDataSource(sender
As
Object
, e
As
Telerik.Web.UI.RadListViewNeedDataSourceEventArgs)
Handles
RecipientOrganizationView.NeedDataSource
Dim
repository
As
New
DataEntities
RecipientOrganizationView.DataSource = repository.RecipientOrganizations.Where(
Function
(x) x.RecipientOrganizationID = recipientOrganizationID).ToList
End
Sub
Public
Sub
CountryCombo_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
RadComboBoxSelectedIndexChangedEventArgs)
Dim
btn =
CType
(sender, RadComboBox)
Dim
item =
CType
(btn.NamingContainer, RadListViewEditableItem)
Dim
Combo
As
RadComboBox =
CType
(item.FindControl(
"ProvinceCombo"
), RadComboBox)
Combo.ClearSelection()
LoadProvinces(e.Value, Combo)
End
Sub
Protected
Sub
LoadCountries(
ByVal
Control
As
RadComboBox)
Using context
As
New
DataEntities
With
Control
.DataValueField =
"CountryId"
.DataTextField =
"CountryName"
.DataSource = context.Countries.OrderBy(
Function
(x) x.CountryName).ToList
End
With
Control.Width = Unit.Pixel(225)
Control.DataBind()
End
Using
End
Sub
''' <summary>
''' Checks to see of the Provice/State or Country combox should have Preselected data, otherwise Default Data is Presented
''' </summary>
''' <param name="FindItemByValue"></param>
''' <param name="Control"></param>
''' <param name="DisplayText"></param>
Public
Sub
SetComboBoxDefault(
ByVal
FindItemByValue
As
Integer
,
ByVal
Control
As
RadComboBox,
ByVal
DisplayText
As
String
)
Dim
ComboBoxItem
As
RadComboBoxItem
If
FindItemByValue > 0
Then
ComboBoxItem = Control.FindItemByValue(FindItemByValue)
If
ComboBoxItem IsNot
Nothing
Then
ComboBoxItem.Selected =
True
Else
Control.Items.Insert(0,
New
RadComboBoxItem(
"-- Please select a "
& DisplayText &
" --"
,
String
.Empty))
End
If
Else
Control.Items.Insert(0,
New
RadComboBoxItem(
"-- Please select a "
& DisplayText &
" --"
,
String
.Empty))
End
If
End
Sub
Dim GCI As Telerik.Web.UI.GridCommandItem = CType(Me.rgSummary.MasterTableView.GetItems(Telerik.Web.UI.GridItemType.CommandItem)(0), Telerik.Web.UI.GridCommandItem)
GCI.FireCommandEvent("EXPORTTOEXCEL", String.Empty)
Protected Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
Me.rgSummary.Rebind()
Me.rgSummary.ExportSettings.FileName = "Fantastic_Invoice_Summary_" + Format(Now, "MM_dd_yyyy_hh_mm_tt")
Me.rgSummary.ExportSettings.OpenInNewWindow = False
Me.rgSummary.MasterTableView.ExportToExcel()
'If I exit sub here, I'll get the summary excel file.
Me.rgDetail.Rebind()
Me.rgDetail.ExportSettings.FileName = "Fantastic_Invoice_Detail_" + Format(Now, "MM_dd_yyyy_hh_mm_tt")
Me.rgDetail.ExportSettings.OpenInNewWindow = False
Me.rgDetail.MasterTableView.ExportToExcel()
'I get neither file if I don't exit after the summary export
Me.rgCommission.Rebind()
If Me.rgCommission.Items.Count <> 0 Then
Me.rgCommission.ExportSettings.FileName = "Fantastic_Invoice_Commission_" + Format(Now, "MM_dd_yyyy_hh_mm_tt")
Me.rgCommission.ExportSettings.OpenInNewWindow = False
Me.rgCommission.MasterTableView.ExportToExcel()
End If
'Additional processing below
end sub
Private Sub rgSummary_GridExporting(sender As Object, e As Telerik.Web.UI.GridExportingArgs) Handles rgSummary.GridExporting
Dim fs As System.IO.FileStream
Dim FileName As String = Server.MapPath("~/Temp/") + Me.rgSummary.ExportSettings.FileName + "." + Me.rgSummary.ExportSettings.Excel.FileExtension
fs = System.IO.File.Create(FileName)
'Dim output As Byte() = Encoding.GetEncoding(1252).GetBytes(e.ExportOutput)
Dim output As Byte() = System.Text.Encoding.Default.GetBytes(e.ExportOutput)
fs.Write(output, 0, output.Length)
fs.Close()
End Sub
<
telerik:RadAjaxManager
ID
=
"RadAjaxManager1"
runat
=
"server"
>
<
AjaxSettings
>
<
telerik:AjaxSetting
AjaxControlID
=
"btnSubmit"
>
<
UpdatedControls
>
<
telerik:AjaxUpdatedControl
ControlID
=
"gvStaff"
LoadingPanelID
=
"RadAjaxLoadingPanel1"
/>
<
telerik:AjaxUpdatedControl
ControlID
=
"panMessage"
/>
</
UpdatedControls
>
</
telerik:AjaxSetting
>
<
telerik:AjaxSetting
AjaxControlID
=
"gvStaff"
>
<
UpdatedControls
>
<
telerik:AjaxUpdatedControl
ControlID
=
"panMessage"
/>
</
UpdatedControls
>
</
telerik:AjaxSetting
>
</
AjaxSettings
>
</
telerik:RadAjaxManager
>
<
telerik:RadAjaxLoadingPanel
ID
=
"RadAjaxLoadingPanel1"
runat
=
"server"
Style="position: absolute;
top: 200px; left: 600px;"
IsSticky
=
"True"
>
<
div
class
=
"overlay"
id
=
"divProgress"
style="position: absolute; visibility: visible;
vertical-align: middle; border-style: inset; border-color: black; background-color: White;
width: 200px; height: 100px; font-size: medium;">
<
center
>
<
div
style
=
"margin-top: 30px;"
>
<
asp:Image
GenerateEmptyAlternateText
=
"true"
ID
=
"imgLoader"
runat
=
"server"
ImageUrl
=
"~/images/ajax_loading.gif"
Style
=
"margin-top: 7px;"
/>
<
asp:Label
ID
=
"lblWait"
runat
=
"server"
Text
=
"Please wait..."
></
asp:Label
>
</
div
>
</
center
>
</
div
>
</
telerik:RadAjaxLoadingPanel
>
<
telerik:RadGrid
ID
=
"gvStaff"
runat
=
"server"
AllowPaging
=
"True"
AutoGenerateColumns
=
"False"
CellSpacing
=
"0"
GridLines
=
"None"
Width
=
"100%"
PageSize
=
"20"
Visible
=
"False"
AllowSorting
=
"true"
>
<
MasterTableView
AllowMultiColumnSorting
=
"true"
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
/>
<
RowIndicatorColumn
FilterControlAltText
=
"Filter RowIndicator column"
Visible
=
"True"
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
FilterControlAltText
=
"Filter ExpandColumn column"
Visible
=
"True"
>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridButtonColumn
Text
=
"Select"
CommandName
=
"Select"
>
</
telerik:GridButtonColumn
>
<
telerik:GridTemplateColumn
FilterControlAltText
=
"Filter TemplateColumn column"
HeaderText
=
"StaffID"
UniqueName
=
"TemplateColumn"
SortExpression
=
"StaffID"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"staffID"
runat
=
"server"
Text='<%# Bind("StaffID") %>'></
asp:Label
>
</
ItemTemplate
>
<
ItemStyle
HorizontalAlign
=
"Justify"
/>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
FilterControlAltText
=
"Filter TemplateColumn column"
HeaderText
=
"Staff Name"
UniqueName
=
"TemplateColumn"
SortExpression
=
"Name"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"Name"
runat
=
"server"
Text='<%# Bind("Name") %>'></
asp:Label
>
</
ItemTemplate
>
<
ItemStyle
HorizontalAlign
=
"Justify"
/>
</
telerik:GridTemplateColumn
>
</
Columns
>
<
EditFormSettings
>
<
EditColumn
FilterControlAltText
=
"Filter EditCommandColumn column"
>
</
EditColumn
>
</
EditFormSettings
>
</
MasterTableView
>
<
HeaderStyle
HorizontalAlign
=
"Justify"
/>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
</
telerik:RadGrid
>
Hi Friends,
I want to display ajax loading...page, when i click button to show RadGrid. Its not working when i click a button, page was going to serverside and showed the RadGrid o/p. Now again click a button its showing the ajax loading.. My question is why its not showing first time button click. Can you please suggest me the solution.
My Code is Below: (I am using Master Page)
==================
<%@ Page Title="" Language="C#" MasterPageFile="~/Complaint.Master" AutoEventWireup="true" CodeBehind="Products.aspx.cs" Inherits="NewProducts.Products.Products" %>
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<asp:Content ID="Content2" ContentPlaceHolderID="cph_Main" runat="server">
<asp:Label ID="lblPageError" Text="" runat="server" ForeColor="Red"></asp:Label>
<div id="divproducts" runat="server">
<table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td colspan="3">
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="btnSearch">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="customerInformation" LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
</td>
</tr>
<tr>
<td >Order ID</td>
<td>
<telerik:RadTextBox ID="tbOrderID" runat="server" ToolTip="Enter Order ID">
</telerik:RadTextBox>
</td>
<td >
<asp:Button ID="btnSearch" runat="server" Text="Search" OnClick="btnSearch_Click" ToolTip="Click here to Search Rolls Information" /></td>
</tr>
<tr>
<td align="center" align="center" colspan="3">
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" InitialDelayTime="0" MinDisplayTime="1000" Transparency="25" IsSticky="true">
<asp:Image ID="imgRadAjaxLoadingPanel1" runat="server" ImageUrl="~/Images/loading.gif" />
</telerik:RadAjaxLoadingPanel>
</td>
</tr>
<tr>
<td>
<asp:UpdatePanel ID="updPnlcustomerInformation" runat="server">
<ContentTemplate>
<telerik:RadPanelBar runat="server" ID="rpbRollsInformation" Skin="Metro" Width="100%">
<Items>
<telerik:RadPanelItem Value="RollsInformation" Selected="true" Text="Roll Information" runat="server" Expanded="true">
<ContentTemplate>
<div id="divRollsInformation" runat="server">
<table id="tblcustomerInformation" runat="server" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td>
<telerik:RadGrid ID="customerInformation" runat="server" AutoGenerateColumns="false" CellPadding="0" CellSpacing="0" GridLines="None" CssClass="RadGrid_CBGrid" Skin="Metro" HorizontalAlign="Left" FooterStyle-BorderColor="Black" AutoGenerateHierarchy="true" OnItemDataBound="customerInformation_ItemDataBound">
<MasterTableView>
<NestedViewTemplate>
<uc:Comments ID="orders" runat="server" />
</NestedViewTemplate>
<Columns>
<telerik:GridTemplateColumn DataField="ID" FilterControlAltText="Filter ID column" HeaderText="ID" UniqueName="ID">
<HeaderStyle HorizontalAlign="Center" />
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<asp:Label ID="lblID" runat="server" Text='<%# Bind("ID") %>'></asp:Label>
</ItemTemplate>
</telerik:GridTemplateColumn>
<telerik:GridTemplateColumn DataField="Date" FilterControlAltText="Filter Date column" HeaderText="Date" UniqueName="Date">
<HeaderStyle HorizontalAlign="Center" />
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<asp:Label ID="lblDate" runat="server" Text='<%# Bind("Date") %>'></asp:Label>
</ItemTemplate>
</telerik:GridTemplateColumn>
<telerik:GridTemplateColumn DataField="order_id" FilterControlAltText="Filter order_id column" HeaderText="Order" UniqueName="order_id">
<HeaderStyle HorizontalAlign="Center" />
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<asp:Label ID="lblorder_id" runat="server" Text='<%# Bind("order_id") %>'></asp:Label>
</ItemTemplate>
</telerik:GridTemplateColumn>
<telerik:GridTemplateColumn HeaderText="Product Type">
<HeaderStyle HorizontalAlign="Center" />
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<telerik:RadComboBox ID="cboProduct" runat="server" AutoPostBack="true" OnSelectedIndexChanged="cboProduct_OnSelectedIndexChanged">
</telerik:RadComboBox>
<asp:Label ID="lblProduct" Visible="false" runat="server" Text='<%# Bind("product") %>'></asp:Label>
<asp:CompareValidator runat="server" ID="CompaValcboProduct" ValueToCompare="-Select-" Operator="NotEqual" ControlToValidate="cboProduct" ErrorMessage="Select ProductType" Text="*" ValidationGroup="Save" ForeColor="Red" Visible="false" />
<telerik:RadTextBox ID="tbProduct" runat="server" Visible="false">
</telerik:RadTextBox>
<asp:RequiredFieldValidator ID="rfvtbProduct" runat="server" ControlToValidate="tbProduct" ValidationGroup="Save" ErrorMessage="Enter Procuct Type" Text="*" ForeColor="Red" Enabled="false"></asp:RequiredFieldValidator>
</ItemTemplate>
</telerik:GridTemplateColumn>
</Columns>
</MasterTableView>
<ClientSettings EnableRowHoverStyle="true">
<%--<Scrolling AllowScroll="true" SaveScrollPosition="true" UseStaticHeaders="true" />--%>
</ClientSettings>
</telerik:RadGrid>
</td>
</tr>
</table>
</div>
</ContentTemplate>
</telerik:RadPanelItem>
</Items>
</telerik:RadPanelBar>
</ContentTemplate>
</asp:UpdatePanel>
</td>
</tr>
</table>
</div>
</asp:Content>
Thanks,
NTR