or

| .RadMenu_Default .rmGroup .rmLink { |
| padding-left: 0px !important; |
| padding-right: 4px !important; |
| padding-top: 0px !important; |
| padding-bottom: 0px !important; |
| background-color:#EEEEEE !important; |
| } |
| .RadMenu_Default .rmGroup .rmLink .rmText { |
| padding-left: 0px !important; |
| padding-right: 4px !important; |
| padding-top: 0px !important; |
| padding-bottom: 0px !important; |
| } |
| .RadMenu_Default .rmGroup { |
| border: 0px solid #979797 !important; |
| background: #f0f0f0 !important; |
| } |
| <sortexpressions> |
| <telerik:gridsortexpression fieldname="Sort" sortorder="Ascending" /> |
| </sortexpressions> |
| // Get the report document |
| CrystalDecisions.CrystalReports.Engine.ReportDocument repDoc = GetReportDocument(); |
| // Stop buffering the response |
| Response.Buffer = false; |
| // Clear the response content and headers |
| Response.ClearContent(); |
| Response.ClearHeaders(); |
| try |
| { |
| repDoc.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Response, false, "Invoice"); |
| } |
| catch (System.Threading.ThreadAbortException ex1) |
| { |
| ex1 = null; |
| Response.End(); |
| } |
| catch (Exception ex) |
| { |
| ex = null; |
| } |
| finally |
| { |
| } |
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" ><head runat="server"> <title>Div+RadGird Error</title> <script language="javascript" type="text/javascript"> function showdiv() { var obj=document.getElementById("DType").value; if(obj==1) { document.getElementById("Div_NullData").style.display="none"; document.getElementById("Div_FullData").style.display=""; } else { document.getElementById("Div_NullData").style.display=""; document.getElementById("Div_FullData").style.display="none"; } } </script></head><body> <form id="form1" runat="server"> <telerik:RadScriptManager ID="RadScriptManager1" runat="server"> </telerik:RadScriptManager> <telerik:RadFormDecorator ID="RadFormDecorator1" runat="server" DecoratedControls="All" /> <select id="DType" onclick="showdiv()"> <option value="0" selected="selected">Null Data</option> <option value="1">Full Data</option> </select> <div id="Div_NullData"> <telerik:RadGrid ID="RadGrid1" runat="server" DataSourceID="SqlDataSource1" GridLines="None" Width="780"> <HeaderContextMenu EnableAutoScroll="True"> </HeaderContextMenu> <MasterTableView AutoGenerateColumns="False" DataKeyNames="CustomerID" DataSourceID="SqlDataSource1"> <RowIndicatorColumn> <HeaderStyle Width="20px" /> </RowIndicatorColumn> <ExpandCollapseColumn> <HeaderStyle Width="20px" /> </ExpandCollapseColumn> <Columns> <telerik:GridBoundColumn DataField="CustomerID" HeaderText="CustomerID" ReadOnly="True" SortExpression="CustomerID" UniqueName="CustomerID"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="CompanyName" HeaderText="CompanyName" SortExpression="CompanyName" UniqueName="CompanyName"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ContactName" HeaderText="ContactName" SortExpression="ContactName" UniqueName="ContactName"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ContactTitle" HeaderText="ContactTitle" SortExpression="ContactTitle" UniqueName="ContactTitle"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Address" HeaderText="Address" SortExpression="Address" UniqueName="Address"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="City" HeaderText="City" SortExpression="City" UniqueName="City"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Region" HeaderText="Region" SortExpression="Region" UniqueName="Region"> </telerik:GridBoundColumn> </Columns> </MasterTableView> </telerik:RadGrid> <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:NorthwindConnectionString %>" SelectCommand="SELECT * FROM [Customers] WHERE 1=0"></asp:SqlDataSource> </div> <div id="Div_FullData" style="display:none"> <telerik:RadGrid ID="RadGrid2" runat="server" DataSourceID="SqlDataSource2" GridLines="None" Width="780" Height="300px"> <HeaderContextMenu EnableAutoScroll="True"> </HeaderContextMenu> <MasterTableView AutoGenerateColumns="False" DataKeyNames="CustomerID" DataSourceID="SqlDataSource2"> <Columns> <telerik:GridBoundColumn DataField="CustomerID" HeaderText="CustomerID" ReadOnly="True" SortExpression="CustomerID" UniqueName="CustomerID"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="CompanyName" HeaderText="CompanyName" SortExpression="CompanyName" UniqueName="CompanyName"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ContactName" HeaderText="ContactName" SortExpression="ContactName" UniqueName="ContactName"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="ContactTitle" HeaderText="ContactTitle" SortExpression="ContactTitle" UniqueName="ContactTitle"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Address" HeaderText="Address" SortExpression="Address" UniqueName="Address"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="City" HeaderText="City" SortExpression="City" UniqueName="City"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Region" HeaderText="Region" SortExpression="Region" UniqueName="Region"> </telerik:GridBoundColumn> </Columns> </MasterTableView> <ClientSettings> <Scrolling AllowScroll="True" /> </ClientSettings> </telerik:RadGrid> <asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:NorthwindConnectionString %>" SelectCommand="SELECT TOP 20 * FROM [Customers]"></asp:SqlDataSource> </div> </form></body></html>
| Private Sub LoadItems(Optional ByVal bolClearText As Boolean = True) |
| If bolClearText Then |
| lblFinished.Text = "" |
| End If |
| If txtIngestServerPath.Text.Trim = "" Then Exit Sub |
| Dim dir As IO.DirectoryInfo |
| Try |
| dir = New IO.DirectoryInfo(txtIngestServerPath.Text.Trim) |
| Catch |
| lstTemplateFiles.Items.Clear() |
| lstRadTemplateFiles.Items.Clear() |
| Dim intLanguageCode As Integer = SystemLanguages.SystemLanguages.GetInstance().LanguageCodeForID(userinfo.DefaultLanguage) |
| lblFinished.Text = Global.Castnet.App.Language.CastnetInterpreter.InternationalizeString("Invalidfolderpath", intLanguageCode) |
| Exit Sub |
| End Try |
| lstTemplateFiles.Items.Clear() |
| lstRadTemplateFiles.Items.Clear() |
| If dir.Exists Then |
| If Not dir.Parent Is Nothing Then |
| Dim item As New RadListBoxItem |
| item.Text = "..." |
| item.Value = "" |
| item.Attributes("itemtype") = "0" |
| item.ImageUrl = Resources.ImagePaths.ParentDirectoryIcon |
| lstRadTemplateFiles.Items.Add(item) |
| End If |
| 'If Recurse.Checked() Then |
| 'ParseDirectory(dir) |
| 'Else |
| Dim folders As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(txtIngestServerPath.Text.Trim) |
| For Each Folder As System.IO.DirectoryInfo In folders.GetDirectories |
| Dim item As New RadListBoxItem |
| 'item.Text = Folder.FullName.Replace(txtIngestServerPath.Text.Trim, "") |
| item.Text = Folder.Name |
| item.Value = Folder.FullName |
| item.ImageUrl = Resources.ImagePaths.FolderIcon |
| item.Attributes("itemtype") = "1" |
| lstRadTemplateFiles.Items.Add(item) |
| Next |
| Dim files As IO.FileInfo() = dir.GetFiles("*.sca") |
| Dim fileName As IO.FileInfo |
| For Each fileName In files |
| 'Dim li As New ListItem |
| 'li.Text = fileName.FullName.Replace(txtIngestServerPath.Text.Trim, "") |
| 'li.Value = fileName.FullName |
| 'lstTemplateFiles.Items.Add(li) |
| Dim item As New RadListBoxItem |
| 'item.Text = fileName.FullName.Replace(txtIngestServerPath.Text.Trim, "") |
| item.Text = fileName.Name |
| item.Value = fileName.FullName |
| item.ImageUrl = Resources.ImagePaths.TemplateIcon |
| item.Attributes("itemtype") = "2" |
| lstRadTemplateFiles.Items.Add(item) |
| Next |
| 'End If |
| objContentPage.AjaxManager.ResponseScripts.Add("ScrollToTop();") |
| Else |
| Dim intLanguageCode As Integer = SystemLanguages.SystemLanguages.GetInstance().LanguageCodeForID(userinfo.DefaultLanguage) |
| lblFinished.Text = Global.Castnet.App.Language.CastnetInterpreter.InternationalizeString("Notemplatefilesexistsinselectedfolder", intLanguageCode) |
| End If |
| End Sub |
