I am attempting to export from a RadGrid and instead of getting a nice exported graph, I get a graph that has the Command Item bar attached to it. IT has the 4 export buttons as well. It posts all the buttons and has mouseover text on the sortable columns saying, 'click to sort'. It also prints out the hyper links and attempts to display the images from the webpage. It then also prints the boxes for the filtering and the text that would be included were you to filter this graph beforehand.
The weird thing is that I have two RadGrids on this same page and one works perfectly while this one doesn't.
For reference, the image of the broken one can be seen on imgur here: http://i.imgur.com/KKtITTX.png
I have attempted the following things:
This had no change whatsoever.
Attempted:
Also had no effect. I swear that I have done multiple graphs on the same page exporting just fine. Not really sure what I'm running into here. Any feedback is well appreciated!
The weird thing is that I have two RadGrids on this same page and one works perfectly while this one doesn't.
For reference, the image of the broken one can be seen on imgur here: http://i.imgur.com/KKtITTX.png
I have attempted the following things:
Protected
Sub
rgvSection_ItemCommand(
ByVal
sender
As
Object
,
ByVal
e
As
GridCommandEventArgs)
If
e.CommandName = RadGrid.ExportToWordCommandName
Then
For
Each
item
As
GridCommandItem
In
e.Item.OwnerTableView.GetItems(GridItemType.CommandItem)
item.Visible =
False
Next
End
If
End
Sub
This had no change whatsoever.
Attempted:
<
ExportSettings
ExportOnlyData
=
"true"
></
ExportSettings
>
Also had no effect. I swear that I have done multiple graphs on the same page exporting just fine. Not really sure what I'm running into here. Any feedback is well appreciated!
12 Answers, 1 is accepted
0
Alexander
Top achievements
Rank 1
answered on 14 Jul 2014, 07:00 PM
I was able to get rid of the CommandItem with the 4 buttons, although the rest of it is still there.
e.Item.OwnerTableView.CommandItemDisplay =
False
0
Alexander
Top achievements
Rank 1
answered on 14 Jul 2014, 07:05 PM
I was able to get rid of the filter boxes with this:
Protected
Sub
rgvSection_ItemCreated(
ByVal
sender
As
Object
,
ByVal
e
As
GridItemEventArgs)
Handles
rgvNoSection.ItemCreated
If
e.Item.ItemType = GridItemType.FilteringItem
Then
e.Item.Visible =
False
End
If
End
Sub
0
Alexander
Top achievements
Rank 1
answered on 14 Jul 2014, 07:12 PM
[quote]Alexander said:I was able to get rid of the filter boxes with this:
[/quote]
And I didn't realize this took it away beforehand, so I have to remove this.
Protected
Sub
rgvSection_ItemCreated(
ByVal
sender
As
Object
,
ByVal
e
As
GridItemEventArgs)
Handles
rgvNoSection.ItemCreated
If
e.Item.ItemType = GridItemType.FilteringItem
Then
e.Item.Visible =
False
End
If
End
Sub
And I didn't realize this took it away beforehand, so I have to remove this.
0
Alexander
Top achievements
Rank 1
answered on 17 Jul 2014, 02:59 PM
So, I am still experiencing this issue. Unfortunately it is still not working. I even went as far as deleting the second graph and remaking it. Still the same issue. Then I just copied the other grid and pasted it over my old one, changed the ID and still the problem persists. Not really sure where to go from here.
0
Shinu
Top achievements
Rank 2
answered on 18 Jul 2014, 08:27 AM
Hi Alexander,
I am not sure about your requirement. Can u please elaborate your requirement for further help.
Thanks,
Shinu.
I am not sure about your requirement. Can u please elaborate your requirement for further help.
Thanks,
Shinu.
0
Alexander
Top achievements
Rank 1
answered on 18 Jul 2014, 09:05 PM
Yeah Shinu, thanks for replying!
I have two Radgrids on the same page. The export works for one while it doesn't work correctly for the other. I'm not really certain as to why it isn't working correctly. I posted the image of the broken one in my first post. It shouldn't show the CommandItems, the filter, the hovertext, or hyperlinks. To try and fix it, I went as far as copying the correctly made one and pasting it over the broken one. I changed the ID associated with it and that was it. Nothing else was different, but it still doesn't work correctly.
So either there is something wrong within my load or I don't really know what. The Excel/PDF/CSV/Word exports only seem work while one Radgrid is on the page.
What I am trying to figure out is if there is a way to programmatically remove all the command items, hover text, filter boxes, and hyperlinks.
Again, thanks for replying earlier Shinu!
I have two Radgrids on the same page. The export works for one while it doesn't work correctly for the other. I'm not really certain as to why it isn't working correctly. I posted the image of the broken one in my first post. It shouldn't show the CommandItems, the filter, the hovertext, or hyperlinks. To try and fix it, I went as far as copying the correctly made one and pasting it over the broken one. I changed the ID associated with it and that was it. Nothing else was different, but it still doesn't work correctly.
So either there is something wrong within my load or I don't really know what. The Excel/PDF/CSV/Word exports only seem work while one Radgrid is on the page.
What I am trying to figure out is if there is a way to programmatically remove all the command items, hover text, filter boxes, and hyperlinks.
Again, thanks for replying earlier Shinu!
0
Hi Alexander,
Generally the controls which is exported to Excel (such as filter TextBox and export Buttons) will be removed when you enable ExportOnlyData property. I noticed that you are applying this property to the grid and you still experience the same issue. Since I am unable to replicate the issue could you please provide your code declaration and the related code behind in order to investigate it further?
Regards,
Kostadin
Telerik
Generally the controls which is exported to Excel (such as filter TextBox and export Buttons) will be removed when you enable ExportOnlyData property. I noticed that you are applying this property to the grid and you still experience the same issue. Since I am unable to replicate the issue could you please provide your code declaration and the related code behind in order to investigate it further?
Regards,
Kostadin
Telerik
Check out the Telerik Platform - the only platform that combines a rich set of UI tools with powerful cloud services to develop web, hybrid and native mobile apps.
0
Alexander
Top achievements
Rank 1
answered on 24 Jul 2014, 09:27 PM
I actually have this problem appearing in two locations now. This is the first occurence. Instead of downloading a messed up grid, it just refreshes and does nothing.
<
table
width
=
"100%"
>
<
tr
id
=
"LocList"
runat
=
"server"
>
<
td
style
=
"white-space: nowrap"
>
</
td
>
<
td
align
=
"right"
><
GraphBtn:WinampButton
ID
=
"gbPrintMasterList"
runat
=
"server"
TemplateName
=
"Print"
Text
=
"Print Master List"
/></
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:Label
ID
=
"Label3"
runat
=
"server"
Text
=
"View: "
CssClass
=
"SubHead"
></
asp:Label
>
<
asp:RadioButtonList
ID
=
"RadioButtonList1"
runat
=
"server"
RepeatDirection
=
"Horizontal"
RepeatLayout
=
"Flow"
AutoPostBack
=
"True"
>
<
asp:ListItem
Selected
=
"True"
Value
=
"0"
>Categories</
asp:ListItem
>
<
asp:ListItem
Value
=
"1"
>Complete List</
asp:ListItem
>
</
asp:RadioButtonList
>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:Label
ID
=
"Label2"
runat
=
"server"
Text
=
"Search: "
CssClass
=
"SubHead"
></
asp:Label
>
<
asp:DropDownList
ID
=
"ddlSearchType"
runat
=
"server"
>
<
asp:ListItem
Value
=
"0"
>Title</
asp:ListItem
>
<
asp:ListItem
Value
=
"1"
>Document Number</
asp:ListItem
>
</
asp:DropDownList
>
<
asp:textbox
ID
=
"tbSearchTerm"
runat
=
"server"
></
asp:textbox
>
<
GraphBtn:WinampButton
ID
=
"runsearch"
runat
=
"server"
TemplateName
=
"View"
Text
=
"Search"
/>
<
GraphBtn:WinampButton
ID
=
"clearsearch"
runat
=
"server"
TemplateName
=
"Base"
Text
=
"Clear Search"
/>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:Repeater
ID
=
"repSections"
runat
=
"server"
EnableViewState
=
"False"
>
<
ItemTemplate
>
<
div
class
=
"ACCalert"
style
=
"color: #FFFFFF;"
>
<
dnn:SectionHead
ID
=
"dshModule"
runat
=
"server"
Section
=
"tblSection"
ResourceKey
=
"ModuleSettings"
PersonailzationKey='<%#DataBinder.Eval(Container.DataItem, "ID")%>'
PersonalizationName = "QMSGlobalViewSection" IncludeRule="false" MaxImageUrl="~/images/expand.jpg" IsExpanded="false" MinImageUrl="~/images/collapse.jpg" />
</
div
>
<
table
width
=
"100%"
cellpadding
=
"0"
cellspacing
=
"0"
id
=
"tblSection"
runat
=
"server"
>
<
tr
>
<
td
>
<
telerik:radgrid
runat
=
"server"
ID
=
"rgvSection"
GroupingSettings-CaseSensitive
=
"false"
AutoGenerateColumns
=
"false"
Width
=
"100%"
ActiveItemStyle-VerticalAlign
=
"Top"
AllowSorting
=
"true"
ActiveItemStyle-HorizontalAlign
=
"Left"
OnItemDataBound
=
"rgvSection_ItemDataBound"
OnNeedDataSource
=
"rgvSection_NeedDataSource"
OnItemCommand
=
"rgvSection_ItemCommand"
>
<
MasterTableView
AllowMultiColumnSorting
=
"true"
AllowFilteringByColumn
=
"true"
CommandItemSettings-ShowAddNewRecordButton
=
"false"
CommandItemSettings-ShowRefreshButton
=
"false"
>
<
Columns
>
<
telerik:GridBoundColumn
DataField
=
"DocNumber"
HeaderText
=
"Doc Number"
ShowFilterIcon
=
"false"
SortExpression
=
"DocNumber"
AutoPostBackOnFilter
=
"true"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
</
telerik:GridBoundColumn
>
<
telerik:GridTemplateColumn
DataField
=
"PolicyName"
UniqueName
=
"PolicyName"
HeaderText
=
"Procedure Name and Files"
ShowFilterIcon
=
"false"
SortExpression
=
"PolicyName"
AutoPostBackOnFilter
=
"true"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblPolicyName"
runat
=
"server"
Text
=
""
></
asp:Label
>
<
br
/>
<
br
/>
<
asp:fileUpload
ID
=
"FileLinkControl1"
runat
=
"server"
ShowDelete
=
"false"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
AutoPostBackOnFilter
=
"true"
DataField
=
"DisplayName"
UniqueName
=
"DisplayName"
HeaderText
=
"Doc Owner / Last Update"
ShowFilterIcon
=
"false"
SortExpression
=
"DisplayName,DateEntered"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocOwner"
runat
=
"server"
Text
=
""
></
asp:Label
>
<
br
/>
<
asp:Label
ID
=
"lblUpdate"
runat
=
"server"
Text
=
""
></
asp:Label
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
AllowFiltering
=
"false"
ShowFilterIcon
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibPrintPolicy"
runat
=
"server"
TemplateName
=
"View"
ShowFilterIcon
=
"false"
Text
=
"View & Print"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
</
Columns
>
</
MasterTableView
>
</
telerik:radgrid
>
</
td
>
</
tr
>
<
tr
>
<
td
style
=
"background-color: #5D7B9D; font-weight: bold; color: White; font-size: large;"
>
<
hr
/>
</
td
>
</
tr
>
</
table
>
</
ItemTemplate
>
</
asp:Repeater
>
<
telerik:radgrid
runat
=
"server"
ID
=
"rgvNoSection"
GroupingSettings-CaseSensitive
=
"false"
AutoGenerateColumns
=
"false"
Width
=
"100%"
ActiveItemStyle-VerticalAlign
=
"Top"
AllowSorting
=
"true"
ActiveItemStyle-HorizontalAlign
=
"Left"
OnItemDataBound
=
"rgvSection_ItemDataBound"
OnNeedDataSource
=
"rgvSection_NeedDataSource"
OnItemCommand
=
"rgvSection_ItemCommand"
>
<
MasterTableView
AllowMultiColumnSorting
=
"true"
AllowFilteringByColumn
=
"true"
CommandItemSettings-ShowAddNewRecordButton
=
"false"
CommandItemSettings-ShowRefreshButton
=
"false"
>
<
Columns
>
<
telerik:GridBoundColumn
DataField
=
"DocNumber"
HeaderText
=
"Doc Number"
ShowFilterIcon
=
"false"
SortExpression
=
"DocNumber"
AutoPostBackOnFilter
=
"true"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
</
telerik:GridBoundColumn
>
<
telerik:GridTemplateColumn
DataField
=
"PolicyName"
UniqueName
=
"PolicyName"
HeaderText
=
"Procedure Name and Files"
ShowFilterIcon
=
"false"
SortExpression
=
"PolicyName"
AutoPostBackOnFilter
=
"true"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblPolicyName"
runat
=
"server"
Text
=
""
></
asp:Label
>
<
br
/>
<
br
/>
<
asp:fileUpload
ID
=
"FileLinkControl1"
runat
=
"server"
ShowDelete
=
"false"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
AutoPostBackOnFilter
=
"true"
DataField
=
"DisplayName"
UniqueName
=
"DisplayName"
HeaderText
=
"Doc Owner / Last Update"
ShowFilterIcon
=
"false"
SortExpression
=
"DisplayName,DateEntered"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocOwner"
runat
=
"server"
Text
=
""
></
asp:Label
>
<
br
/>
<
asp:Label
ID
=
"lblUpdate"
runat
=
"server"
Text
=
""
></
asp:Label
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
AllowFiltering
=
"false"
ShowFilterIcon
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibPrintPolicy"
runat
=
"server"
TemplateName
=
"View"
ShowFilterIcon
=
"false"
Text
=
"View & Print"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
</
Columns
>
</
MasterTableView
>
</
telerik:radgrid
>
<
br
/>
</
td
>
</
tr
>
</
table
>
#Region "Private Members"
Private
LocationID
As
Integer
= Null.NullInteger
Private
CorpID
As
Integer
= Null.NullInteger
Private
RoleInteger
As
Integer
= Null.NullInteger
Private
myData
As
New
RCIData
Private
SearchType
As
Integer
= Null.NullInteger
#End Region
#Region "Private Methods"
Private
Sub
BindPolicyList()
' bind the content to the repeater
Me
.repSections.DataSource = myData.ProcTable(
"GetSectionsByOwner"
,
"@OwnerID"
, 28139,
"@QMS"
, 1)
Me
.repSections.DataBind()
End
Sub
Private
Sub
BindPolicyListAlternateList()
Dim
aDataTable
As
New
DataTable
Select
Case
SearchType
Case
0
'search toitle
aDataTable = myData.ProcTable(
"GetPoliciesByLocation_SearchTitle"
,
"@LocationID"
, 43531,
"@QMS"
, 1,
"@titlestring"
,
Me
.tbSearchTerm.Text,
"@OwnerID"
, 28139)
Case
1
' search doc number
aDataTable = myData.ProcTable(
"GetPoliciesByLocation_SearchDocNumber"
,
"@LocationID"
, 43531,
"@QMS"
, 1,
"@DocNumber"
,
Me
.tbSearchTerm.Text,
"@OwnerID"
, 28139)
Case
Else
aDataTable = myData.ProcTable(
"GetPoliciesByLocation"
,
"@LocationID"
, 43531,
"@QMS"
, 1,
"@OwnerID"
, 28139)
End
Select
Me
.rgvNoSection.DataSource = aDataTable
Me
.rgvNoSection.DataBind()
End
Sub
#End Region
#Region "Page Methods"
Private
Sub
Page_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
Try
'If Not Page.IsPostBack Then
Select
Case
Me
.RadioButtonList1.SelectedValue
Case
"0"
BindPolicyList()
'this has categories
Case
"1"
BindPolicyListAlternateList()
'no categories
End
Select
'End If
Catch
exc
As
Exception
'Module failed to load
ProcessModuleLoadException(
Me
, exc)
End
Try
End
Sub
#End Region
#Region "Event Handlers"
Protected
Sub
repSections_ItemCreated(
ByVal
sender
As
Object
,
ByVal
e
As
RepeaterItemEventArgs)
Handles
repSections.ItemCreated
Dim
myRGVDataList
As
New
RadGrid
myRGVDataList =
CType
(e.Item.FindControl(
"rgvSection"
), RadGrid)
AddHandler
myRGVDataList.NeedDataSource,
AddressOf
rgvSection_NeedDataSource
AddHandler
myRGVDataList.ItemDataBound,
AddressOf
rgvSection_ItemDataBound
AddHandler
myRGVDataList.ItemCommand,
AddressOf
rgvSection_ItemCommand
End
Sub
Protected
Sub
repSections_ItemDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.RepeaterItemEventArgs)
Handles
repSections.ItemDataBound
If
e.Item.ItemType = ListItemType.Item
Or
e.Item.ItemType = ListItemType.AlternatingItem
Then
Dim
myLabel
As
New
Modules.SectionHeadControl
' DotNetNuke.UI.UserControls.SectionHeadControl
myLabel =
CType
(e.Item.FindControl(
"dshModule"
), Modules.SectionHeadControl)
' DotNetNuke.UI.UserControls.SectionHeadControl)
myLabel.Text =
"<font color=white>"
& Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"SectionName"
)) &
"</font>"
Dim
myDataList
As
New
GridView
Dim
myRGVDataList
As
New
RadGrid
myRGVDataList =
CType
(e.Item.FindControl(
"rgvSection"
), RadGrid)
Dim
aDataTable
As
New
DataTable
Select
Case
SearchType
Case
0
'search title
aDataTable = myData.ProcTable(
"GetPoliciesBySectionByLocation_SearchTitle"
, _
"@LocationID"
, 43531, _
"@SectionID"
, Convert.ToInt32(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)), _
"@QMS"
, 1,
"@titlestring"
,
Me
.tbSearchTerm.Text)
Case
1
' search doc number
aDataTable = myData.ProcTable(
"GetPoliciesBySectionByLocation_SearchDocNumber"
, _
"@LocationID"
, 43531, _
"@SectionID"
, Convert.ToInt32(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)), _
"@QMS"
, 1,
"@DocNumber"
,
Me
.tbSearchTerm.Text)
Case
Else
aDataTable = myData.ProcTable(
"GetPoliciesBySectionByLocation"
, _
"@LocationID"
, 43531, _
"@SectionID"
, Convert.ToInt32(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)), _
"@QMS"
, 1)
End
Select
myRGVDataList.DataSource = aDataTable
myRGVDataList.DataBind()
End
If
End
Sub
Protected
Sub
rgvSection_NeedDataSource(
ByVal
sender
As
Object
,
ByVal
e
As
GridNeedDataSourceEventArgs)
End
Sub
Protected
Sub
rgvSection_ItemDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
GridItemEventArgs)
If
TypeOf
e.Item
Is
GridDataItem
Then
'litPolicy
Dim
myLiteral
As
New
Label
myLiteral =
CType
(e.Item.FindControl(
"lblPolicyName"
), Label)
Dim
myLabel
As
String
= Null.NullString
myLabel = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"PolicyName"
))
If
myLiteral IsNot
Nothing
Then
myLiteral.Text =
"<a name="
""
& Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)) &
""
"></a>"
& myLabel
End
If
myLiteral =
New
Label
myLiteral =
CType
(e.Item.FindControl(
"lblDocOwner"
), Label)
If
myLiteral IsNot
Nothing
Then
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"DisplayName"
))
End
If
myLiteral =
New
Label
myLiteral =
CType
(e.Item.FindControl(
"lblUpdate"
), Label)
If
myLiteral IsNot
Nothing
Then
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"DateEntered"
))
End
If
'need to find and load file link control here
Dim
myFiles
As
FileUpload =
CType
(e.Item.FindControl(
"FileLinkControl1"
), FileUpload)
If
myFiles IsNot
Nothing
Then
myFiles.DataSource = myData.TextTable(
"SELECT a.* FROM PolicyManual_Files a WITH (NOLOCK) INNER JOIN NewestPolicy_Version b WITH (NOLOCK) ON a.VersionID = b.ID WHERE b.PolicyID = @PolicyID"
,
"@PolicyID"
, System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
))
End
If
If
myFiles.DataSource.Rows.Count < 1
Then
myFiles.Visible =
False
End
If
Dim
myPrintLink
As
New
WinampButton
myPrintLink =
CType
(e.Item.FindControl(
"ibPrintPolicy"
), WinampButton)
If
myPrintLink IsNot
Nothing
Then
myPrintLink.CausesPostback =
False
myPrintLink.OnClientClick =
"document.location.href='"
& EditUrl(
"policy"
, Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)),
"Print"
,
"ExcludeViewStateCache=True"
) &
"';"
End
If
End
If
End
Sub
Protected
Sub
rgvSection_ItemCommand(
ByVal
sender
As
Object
,
ByVal
e
As
GridCommandEventArgs)
End
Sub
Protected
Sub
clearsearch_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.ImageClickEventArgs)
Handles
clearsearch.Click
SearchType = Null.NullInteger
Me
.tbSearchTerm.Text = Null.NullString
Select
Case
Me
.RadioButtonList1.SelectedValue
Case
"0"
Me
.repSections.Visible =
True
Me
.rgvNoSection.Visible =
False
BindPolicyList()
Case
"1"
Me
.repSections.Visible =
False
Me
.rgvNoSection.Visible =
True
BindPolicyListAlternateList()
End
Select
End
Sub
Protected
Sub
runsearch_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.ImageClickEventArgs)
Handles
runsearch.Click
SearchType =
Me
.ddlSearchType.SelectedValue
Select
Case
Me
.RadioButtonList1.SelectedValue
Case
"0"
Me
.repSections.Visible =
True
Me
.rgvNoSection.Visible =
False
BindPolicyList()
Case
"1"
Me
.repSections.Visible =
False
Me
.rgvNoSection.Visible =
True
BindPolicyListAlternateList()
End
Select
End
Sub
Protected
Sub
gbPrintMasterList_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.ImageClickEventArgs)
Handles
gbPrintMasterList.Click
Dim
ExtraString
As
String
= Null.NullString
If
Me
.tbSearchTerm.Text.Length > 0
Then
Response.Redirect(EditUrl(
"Location"
,
"43531"
,
"MasterPrint"
,
"sType="
&
Me
.ddlSearchType.SelectedValue.ToString,
"Terms="
&
Me
.tbSearchTerm.Text.ToString,
"ExcludeViewStateCache=True"
),
True
)
Else
Response.Redirect(EditUrl(
"Location"
,
"43531"
,
"MasterPrint"
,
"ExcludeViewStateCache=True"
),
True
)
End
If
End
Sub
Protected
Sub
RadioButtonList1_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
RadioButtonList1.SelectedIndexChanged
Select
Case
Me
.RadioButtonList1.SelectedValue
Case
"0"
Me
.repSections.Visible =
True
Me
.rgvNoSection.Visible =
False
BindPolicyList()
Case
"1"
Me
.repSections.Visible =
False
Me
.rgvNoSection.Visible =
True
BindPolicyListAlternateList()
End
Select
End
Sub
#End Region
End
Class
End
Namespace
The post below this one will show the code behind/in front corresponding to the problem at hand.
0
Alexander
Top achievements
Rank 1
answered on 24 Jul 2014, 09:34 PM
<
script
type
=
"text/javascript"
>
function pageLoad() {
standardistaTableSortingInit();
}
</
script
>
<
table
width
=
"100%"
>
<
tr
id
=
"LocList"
runat
=
"server"
>
<
td
style
=
"white-space: nowrap"
>
<
asp:Label
ID
=
"lblLocList"
runat
=
"server"
Text
=
"Locations Avaliable: "
/>
<
uc1:LocationChooser
ID
=
"lcLocation"
runat
=
"server"
AutoPostBack
=
"true"
DisplayLevels
=
"Location"
ShowAll
=
"false"
/>
</
td
>
<
td
align
=
"right"
>
<
GraphBtn:WinampButton
ID
=
"btnExportMasterList"
runat
=
"server"
TemplateName
=
"Save"
Text
=
"Export Master List"
/>
<
GraphBtn:WinampButton
ID
=
"gbPrintMasterList"
runat
=
"server"
TemplateName
=
"Print"
Text
=
"Print Master List"
/>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:Label
ID
=
"lblProcedureTypes"
runat
=
"server"
Text
=
"Procedure Type: "
CssClass
=
"SubHead"
/>
<
asp:RadioButtonList
ID
=
"rblProcedures"
runat
=
"server"
RepeatDirection
=
"Horizontal"
RepeatLayout
=
"Flow"
AutoPostBack
=
"True"
>
<
asp:ListItem
Selected
=
"True"
Value
=
"0"
>Corporate Procedures</
asp:ListItem
>
<
asp:ListItem
Value
=
"1"
>Facility Procedures</
asp:ListItem
>
</
asp:RadioButtonList
>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:Label
ID
=
"Label3"
runat
=
"server"
Text
=
"View: "
CssClass
=
"SubHead"
/>
<
asp:RadioButtonList
ID
=
"RadioButtonList1"
runat
=
"server"
RepeatDirection
=
"Horizontal"
RepeatLayout
=
"Flow"
AutoPostBack
=
"True"
>
<
asp:ListItem
Selected
=
"True"
Value
=
"0"
>Categories</
asp:ListItem
>
<
asp:ListItem
Value
=
"1"
>Complete List</
asp:ListItem
>
</
asp:RadioButtonList
>
</
td
>
</
tr
>
<
tr
>
<
td
>
<
asp:Label
ID
=
"Label2"
runat
=
"server"
Text
=
"Search: "
CssClass
=
"SubHead"
/>
<
asp:DropDownList
ID
=
"ddlSearchType"
runat
=
"server"
>
<
asp:ListItem
Value
=
"0"
>Title</
asp:ListItem
>
<
asp:ListItem
Value
=
"1"
>Document Number</
asp:ListItem
>
</
asp:DropDownList
>
<
asp:textbox
ID
=
"tbSearchTerm"
runat
=
"server"
/>
<
GraphBtn:WinampButton
ID
=
"runsearch"
runat
=
"server"
TemplateName
=
"View"
Text
=
"Search"
/>
<
GraphBtn:WinampButton
ID
=
"clearsearch"
runat
=
"server"
TemplateName
=
"Base"
Text
=
"Clear Search"
/>
</
td
>
<
td
align
=
"right"
>
<
asp:CheckBox
ID
=
"cbExpandAll"
runat
=
"server"
AutoPostBack
=
"True"
Text
=
"Expand All Sections"
TextAlign
=
"Left"
/>
</
td
>
</
tr
>
<
tr
>
<
td
colspan
=
"2"
>
<
asp:Repeater
ID
=
"repSections"
runat
=
"server"
EnableViewState
=
"False"
>
<
ItemTemplate
>
<
div
class
=
"ACCalert"
style
=
"color: #FFFFFF; background: #387C2B;"
>
<
dnn:SectionHead
ID
=
"dshModule"
runat
=
"server"
Section
=
"tblSection"
ResourceKey
=
"ModuleSettings"
PersonailzationKey='<%#DataBinder.Eval(Container.DataItem, "ID")%>' PersonalizationName="MasterDocumentListViewSection"
IncludeRule="false" MaxImageUrl="~/images/expand.jpg" MinImageUrl="~/images/collapse.jpg" />
</
div
>
<
table
width
=
"100%"
cellpadding
=
"0"
cellspacing
=
"0"
id
=
"tblSection"
runat
=
"server"
>
<
tr
>
<
td
>
<
radgrid
runat
=
"server"
ID
=
"rgvSection"
GroupingSettings-CaseSensitive
=
"false"
AutoGenerateColumns
=
"false"
Width
=
"100%"
ActiveItemStyle-VerticalAlign
=
"Top"
AllowSorting
=
"true"
ActiveItemStyle-HorizontalAlign
=
"Left"
OnItemDataBound
=
"rgvSection_ItemDataBound"
OnNeedDataSource
=
"rgvSection_NeedDataSource"
OnItemCommand
=
"rgvSection_ItemCommand"
ExportSettings-ExportOnlyData
=
"true"
>
<
MasterTableView
AllowMultiColumnSorting
=
"true"
AllowFilteringByColumn
=
"true"
CommandItemSettings-ShowAddNewRecordButton
=
"false"
CommandItemSettings-ShowRefreshButton
=
"false"
>
<
Columns
>
<
telerik:GridTemplateColumn
DataField
=
"DocNumber"
HeaderText
=
"Doc Number"
ShowFilterIcon
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
SortExpression
=
"DocNumber"
AutoPostBackOnFilter
=
"true"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocNumber2"
runat
=
"server"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"PolicyName"
HeaderText
=
"Procedure Name and Files"
ShowFilterIcon
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
AutoPostBackOnFilter
=
"true"
SortExpression
=
"PolicyName"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblPolicyName2"
runat
=
"server"
Text
=
""
/>
<
br
/>
<
br
/>
<
asp:FileUpload
ID
=
"FileLinkControl12"
runat
=
"server"
ShowDelete
=
"false"
ShowRotate
=
"false"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"DisplayName"
HeaderText
=
"Corp Owner / Last Update"
ShowFilterIcon
=
"false"
AutoPostBackOnFilter
=
"true"
SortExpression
=
"DisplayName"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocOwner2"
runat
=
"server"
Text
=
""
/>
<
br
/>
<
asp:Label
ID
=
"lblUpdate2"
runat
=
"server"
Text
=
""
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
HeaderText
=
"Local Reviewer / Last Review Date"
HeaderStyle-ForeColor
=
"White"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
Visible
=
"false"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"btnAssignLocationOwners2"
runat
=
"server"
TemplateName
=
"GoNext"
Text
=
"Assign Owners"
Visible
=
"false"
/>
<
asp:HyperLink
ID
=
"hypAssignLocationOwners2"
runat
=
"server"
NavigateUrl
=
""
Text
=
""
Visible
=
"false"
/>
<
asp:Label
ID
=
"lblAssignLocationOwners2"
runat
=
"server"
CssClass
=
"RCI_MainLabel"
Text
=
""
Visible
=
"false"
/><
br
/>
<
GraphBtn:WinampButton
ID
=
"btnReview2"
runat
=
"server"
TemplateName
=
"GoNext"
Text
=
"Review"
Visible
=
"false"
/>
<
asp:HyperLink
ID
=
"hypReview2"
runat
=
"server"
NavigateUrl
=
""
Text
=
""
Visible
=
"false"
/>
<
asp:Label
ID
=
"lblReview2"
runat
=
"server"
Text
=
""
Visible
=
"false"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
Exportable
=
"false"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibPrintPolicy2"
runat
=
"server"
TemplateName
=
"View"
Text
=
"View & Print"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
Exportable
=
"false"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibEdit2"
runat
=
"server"
TemplateName
=
"Edit"
Text
=
"Edit Info"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
Exportable
=
"false"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibAudit2"
runat
=
"server"
TemplateName
=
"View"
Text
=
"Audit"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
</
Columns
>
</
MasterTableView
>
</
radgrid
>
</
td
>
</
tr
>
<
tr
>
<
td
style
=
"background-color: #387C2B; font-weight: bold; color: White; font-size: large;"
>
<
hr
/>
</
td
>
</
tr
>
</
table
>
</
ItemTemplate
>
</
asp:Repeater
>
<
radgrid
runat
=
"server"
ID
=
"rgvNoSection"
GroupingSettings-CaseSensitive
=
"false"
AutoGenerateColumns
=
"false"
Width
=
"100%"
ActiveItemStyle-VerticalAlign
=
"Top"
AllowSorting
=
"true"
ActiveItemStyle-HorizontalAlign
=
"Left"
OnItemDataBound
=
"rgvSection_ItemDataBound"
OnNeedDataSource
=
"rgvSection_NeedDataSource"
OnItemCommand
=
"rgvSection_ItemCommand"
ExportSettings-ExportOnlyData
=
"true"
>
<
MasterTableView
AllowMultiColumnSorting
=
"true"
AllowFilteringByColumn
=
"true"
CommandItemSettings-ShowAddNewRecordButton
=
"false"
CommandItemSettings-ShowRefreshButton
=
"false"
>
<
Columns
>
<
telerik:GridTemplateColumn
DataField
=
"DocNumber"
HeaderText
=
"Doc Number"
ShowFilterIcon
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
SortExpression
=
"DocNumber"
AutoPostBackOnFilter
=
"true"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocNumber2"
runat
=
"server"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"PolicyName"
HeaderText
=
"Procedure Name and Files"
ShowFilterIcon
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
AutoPostBackOnFilter
=
"true"
SortExpression
=
"PolicyName"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblPolicyName2"
runat
=
"server"
Text
=
""
/>
<
br
/>
<
br
/>
<
asp:FileUpload
ID
=
"FileLinkControl12"
runat
=
"server"
ShowDelete
=
"false"
ShowRotate
=
"false"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
DataField
=
"DisplayName"
HeaderText
=
"Corp Owner / Last Update"
ShowFilterIcon
=
"false"
AutoPostBackOnFilter
=
"true"
SortExpression
=
"DisplayName"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocOwner2"
runat
=
"server"
Text
=
""
/>
<
br
/>
<
asp:Label
ID
=
"lblUpdate2"
runat
=
"server"
Text
=
""
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
HeaderText
=
"Local Reviewer / Last Review Date"
HeaderStyle-ForeColor
=
"White"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
Visible
=
"false"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"btnAssignLocationOwners2"
runat
=
"server"
TemplateName
=
"GoNext"
Text
=
"Assign Owners"
Visible
=
"false"
/>
<
asp:HyperLink
ID
=
"hypAssignLocationOwners2"
runat
=
"server"
NavigateUrl
=
""
Text
=
""
Visible
=
"false"
/>
<
asp:Label
ID
=
"lblAssignLocationOwners2"
runat
=
"server"
CssClass
=
"RCI_MainLabel"
Text
=
""
Visible
=
"false"
/><
br
/>
<
GraphBtn:WinampButton
ID
=
"btnReview2"
runat
=
"server"
TemplateName
=
"GoNext"
Text
=
"Review"
Visible
=
"false"
/>
<
asp:HyperLink
ID
=
"hypReview2"
runat
=
"server"
NavigateUrl
=
""
Text
=
""
Visible
=
"false"
/>
<
asp:Label
ID
=
"lblReview2"
runat
=
"server"
Text
=
""
Visible
=
"false"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
Exportable
=
"false"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibPrintPolicy2"
runat
=
"server"
TemplateName
=
"View"
Text
=
"View & Print"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
Exportable
=
"false"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibEdit2"
runat
=
"server"
TemplateName
=
"Edit"
Text
=
"Edit Info"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
Exportable
=
"false"
AllowFiltering
=
"false"
ItemStyle-VerticalAlign
=
"Top"
ItemStyle-HorizontalAlign
=
"Left"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibAudit2"
runat
=
"server"
TemplateName
=
"View"
Text
=
"Audit"
/>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
</
Columns
>
</
MasterTableView
>
</
radgrid
>
<
asp:GridView
ID
=
"gvNoSection"
runat
=
"server"
AutoGenerateColumns
=
"False"
Width
=
"100%"
OnRowDataBound
=
"gvSection_RowDataBound"
>
<%--CssClass="RCIGrid sortable"--%>
<
Columns
>
<
asp:TemplateField
HeaderText
=
"Doc Number"
>
<
HeaderStyle
Font-Bold
=
"True"
ForeColor
=
"White"
HorizontalAlign
=
"Left"
Wrap
=
"false"
/>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocNumber"
runat
=
"server"
Text
=
""
/>
</
ItemTemplate
>
<
ItemStyle
VerticalAlign
=
"Top"
Wrap
=
"false"
/>
</
asp:TemplateField
>
<
asp:TemplateField
HeaderText
=
"Procedure Name and Files"
>
<
HeaderStyle
Font-Bold
=
"True"
ForeColor
=
"White"
HorizontalAlign
=
"Left"
/>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblPolicyName"
runat
=
"server"
Text
=
""
/>
<
br
/>
<
br
/>
<
asp:FileUpload
ID
=
"FileLinkControl1"
runat
=
"server"
ShowDelete
=
"false"
/>
</
ItemTemplate
>
<
ItemStyle
Width
=
"100%"
VerticalAlign
=
"Top"
/>
</
asp:TemplateField
>
<
asp:TemplateField
HeaderText
=
"Doc Owner / Last Update"
>
<
HeaderStyle
Font-Bold
=
"True"
ForeColor
=
"White"
HorizontalAlign
=
"Left"
Wrap
=
"false"
/>
<
ItemTemplate
>
<
asp:Label
ID
=
"lblDocOwner"
runat
=
"server"
Text
=
""
/>
<
br
/>
<
asp:Label
ID
=
"lblUpdate"
runat
=
"server"
Text
=
""
/>
</
ItemTemplate
>
<
ItemStyle
Width
=
"100%"
VerticalAlign
=
"Top"
/>
</
asp:TemplateField
>
<
asp:TemplateField
HeaderText
=
"Local Reviewer / Last Review Date"
Visible
=
"false"
>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"btnAssignLocationOwners"
runat
=
"server"
TemplateName
=
"GoNext"
Text
=
"Assign Owners"
Visible
=
"false"
/>
<
asp:HyperLink
ID
=
"hypAssignLocationOwners"
runat
=
"server"
NavigateUrl
=
""
Text
=
""
Visible
=
"false"
/>
<
asp:Label
ID
=
"lblAssignLocationOwners"
runat
=
"server"
CssClass
=
"RCI_MainLabel"
Text
=
""
Visible
=
"false"
/><
br
/>
<
GraphBtn:WinampButton
ID
=
"btnReview"
runat
=
"server"
TemplateName
=
"GoNext"
Text
=
"Review"
Visible
=
"false"
/>
<
asp:HyperLink
ID
=
"hypReview"
runat
=
"server"
NavigateUrl
=
""
Text
=
""
Visible
=
"false"
/>
<
asp:Label
ID
=
"lblReview"
runat
=
"server"
Text
=
""
Visible
=
"false"
/>
</
ItemTemplate
>
</
asp:TemplateField
>
<
asp:TemplateField
>
<
HeaderStyle
Font-Bold
=
"True"
ForeColor
=
"White"
HorizontalAlign
=
"center"
/>
<
ItemTemplate
>
<
GraphBtn:WinampButton
ID
=
"ibPrintPolicy"
runat
=
"server"
TemplateName
=
"View"
Text
=
"View & Print"
/>
</
ItemTemplate
>
<
ItemStyle
HorizontalAlign
=
"center"
VerticalAlign
=
"Top"
/>
</
asp:TemplateField
>
<
asp:TemplateField
>
<
HeaderStyle
Font-Bold
=
"True"
ForeColor
=
"White"
HorizontalAlign
=
"center"
CssClass
=
"standardistaTableSortingNoSort"
/>
<
ItemTemplate
>
<
div
style
=
"width: 90px;"
>
<
GraphBtn:WinampButton
ID
=
"ibEdit"
runat
=
"server"
TemplateName
=
"Edit"
Text
=
"Edit Info"
/>
</
div
>
</
ItemTemplate
>
<
ItemStyle
HorizontalAlign
=
"center"
VerticalAlign
=
"Top"
/>
</
asp:TemplateField
>
<
asp:TemplateField
>
<
HeaderStyle
Font-Bold
=
"True"
ForeColor
=
"White"
HorizontalAlign
=
"center"
CssClass
=
"standardistaTableSortingNoSort"
/>
<
ItemTemplate
>
<
div
style
=
"width: 60px;"
>
<
GraphBtn:WinampButton
ID
=
"ibAudit"
runat
=
"server"
TemplateName
=
"View"
Text
=
"Audit"
/>
</
div
>
</
ItemTemplate
>
<
ItemStyle
HorizontalAlign
=
"center"
VerticalAlign
=
"Top"
/>
</
asp:TemplateField
>
</
Columns
>
<%--<
AlternatingRowStyle
CssClass
=
"RCIGridAlternating"
/>
<
HeaderStyle
CssClass
=
"RCIGridHeader"
/>
<
PagerStyle
CssClass
=
"RCIGridPager"
/>
<
RowStyle
CssClass
=
"RCIGridRow"
/>--%>
<
RowStyle
BackColor
=
"#F7F6F3"
ForeColor
=
"#333333"
BorderStyle
=
"Solid"
BorderColor
=
"#231F20"
/>
<
PagerStyle
BackColor
=
"#387C2B"
ForeColor
=
"White"
HorizontalAlign
=
"Left"
Font-Bold
=
"True"
Font-Names
=
"Arial Black"
Font-Overline
=
"False"
BorderStyle
=
"Solid"
BorderColor
=
"#231F20"
/>
<
HeaderStyle
BackColor
=
"#387C2B"
Font-Bold
=
"True"
ForeColor
=
"White"
BorderStyle
=
"Solid"
BorderColor
=
"#231F20"
/>
<
AlternatingRowStyle
BackColor
=
"White"
ForeColor
=
"#284775"
/>
<
FooterStyle
BackColor
=
"#387C2B"
Font-Bold
=
"True"
ForeColor
=
"White"
BorderStyle
=
"Solid"
BorderColor
=
"#231F20"
/>
<
EmptyDataTemplate
>
<
asp:Label
ID
=
"Label1"
runat
=
"server"
Text
=
"No procedures active!"
/>
</
EmptyDataTemplate
>
</
asp:GridView
>
</
td
>
</
tr
>
</
table
>
#Region "Private Members"
Private
DoReview
As
Boolean
=
False
Dim
MakeRed
As
Boolean
=
False
Private
RoleInteger
As
Integer
= Null.NullInteger
Private
dtFiles
As
DataTable
Private
formCounts
As
DataTable
#End Region
#Region "Private Methods"
Private
Sub
RedirectSelf()
Response.Redirect(NavigateURL(TabId,
""
, _
"SearchText="
& IIf(tbSearchTerm.Text.Trim =
""
,
"notsearching"
, Server.UrlEncode(tbSearchTerm.Text)), _
"SearchType="
& ddlSearchType.SelectedValue))
End
Sub
Function
DataTable2CSV(
ByVal
table
As
DataTable,
Optional
ByVal
sepChar
As
String
=
","
)
As
Byte
()
Dim
ms
As
New
System.IO.MemoryStream
Dim
writer
As
System.IO.StreamWriter =
Nothing
Dim
temp
As
String
Try
writer =
New
System.IO.StreamWriter(ms)
' first write a line with the columns name
Dim
sep
As
String
=
""
Dim
builder
As
New
System.Text.StringBuilder
For
Each
col
As
DataColumn
In
table.Columns
builder.Append(sep).Append(col.ColumnName)
sep = sepChar
Next
writer.WriteLine(builder.ToString())
' then write all the rows
For
Each
row
As
DataRow
In
table.Rows
sep =
""
builder =
New
System.Text.StringBuilder
For
Each
col
As
DataColumn
In
table.Columns
builder.Append(sep)
If
row(col.ColumnName)
Is
System.DBNull.Value
Then
temp =
""
Else
temp = row(col.ColumnName)
End
If
If
temp.Contains(
""
""
)
OrElse
temp.Contains(
","
)
Then
temp =
""
""
& temp.Replace(
""
""
,
""
""
""
) &
""
""
End
If
builder.Append(temp)
sep = sepChar
Next
writer.WriteLine(builder.ToString())
Next
Finally
If
Not
writer
Is
Nothing
Then
writer.Close()
End
Try
Dim
b()
As
Byte
= ms.ToArray
Return
b
End
Function
Private
Sub
BindPolicyList()
Try
'KAW 2011-07-14
'Task 221 - Add 'Edit Info' button option to QMS (Review)
'For Edit Info Button
formCounts = MyData.ProcTable(
"PolicyManual_GetFormCount"
,
"@OwnerID"
, User.CorpID,
"@QMS"
, 1,
"@LocationID"
, lcLocation.LocationID)
dtFiles = MyData.ProcTable(
"PolicyManual_GetFilesByOwner"
,
"@CorpID"
, User.CorpID,
"@QMS"
, 1)
repSections.DataSource = MyData.ProcTable(
"PolicyManual_GetSectionsByBU"
,
"@OwnerID"
, User.CorpID,
"@QMS"
, 1,
"@BUID"
, lcLocation.BUID,
"@LocationID"
, lcLocation.LocationID)
repSections.DataBind()
Catch
ex
As
Exception
ProcessModuleLoadException(
"Error loading QMS Sections"
,
Me
, ex)
End
Try
End
Sub
Private
Sub
BindPolicyListAlternateList()
' Try
'KAW 2011-07-14
'Task 221 - Add 'Edit Info' button option to QMS (Review)
'For Edit Info Button
formCounts = MyData.ProcTable(
"PolicyManual_GetFormCount"
,
"@OwnerID"
, User.CorpID,
"@QMS"
, 1,
"@LocationID"
, lcLocation.LocationID)
dtFiles = MyData.ProcTable(
"PolicyManual_GetFilesByOwner"
,
"@CorpID"
, User.CorpID,
"@QMS"
, 1)
Dim
aDataTable
As
DataTable =
Nothing
Select
Case
Me
.rblProcedures.SelectedValue
Case
"1"
'facility procedures
'change this to only get procedures that are for the location
If
tbSearchTerm.Text.Trim =
""
Then
aDataTable = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocationID_QMS"
, _
"@LocationID"
, lcLocation.LocationID,
"@QMS"
, 1)
Else
Select
Case
ddlSearchType.SelectedValue
Case
0
aDataTable = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocationID_QMS_SearchTitle"
, _
"@LocationID"
, lcLocation.LocationID,
"@TitleString"
,
Me
.tbSearchTerm.Text,
"@QMS"
, 1)
Case
1
aDataTable = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocationID_QMS_SearchDocNumber"
, _
"@LocationID"
, lcLocation.LocationID,
"@DocNumber"
,
Me
.tbSearchTerm.Text,
"@QMS"
, 1)
End
Select
End
If
Case
Else
'corporate procedures
'change this to only get procedures that are corporate
If
tbSearchTerm.Text.Trim =
""
Then
aDataTable = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocation"
,
"@LocationID"
, lcLocation.LocationID, _
"@QMS"
, 1,
"@OwnerID"
, User.CorpID)
Else
Select
Case
ddlSearchType.SelectedValue
Case
0
'search toitle
aDataTable = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocation_SearchTitle"
, _
"@LocationID"
, lcLocation.LocationID,
"@QMS"
, 1,
"@titlestring"
,
Me
.tbSearchTerm.Text,
"@OwnerID"
, User.CorpID)
Case
1
' search doc number
aDataTable = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocation_SearchDocNumber"
, _
"@LocationID"
, lcLocation.LocationID,
"@QMS"
, 1,
"@DocNumber"
,
Me
.tbSearchTerm.Text,
"@OwnerID"
, User.CorpID)
End
Select
End
If
If
DoReview
Then
rgvNoSection.Columns(3).Visible =
True
Else
rgvNoSection.Columns(3).Visible =
False
End
If
End
Select
If
aDataTable.Rows.Count > 0
Then
rgvNoSection.DataSource = aDataTable
rgvNoSection.DataBind()
'MakeAccessible(gvNoSection)
End
If
' Catch ex As Exception
' ProcessModuleLoadException("Error loading QMS procedures", Me, ex)
' Response.Write(ex.ToString)
' End Try
End
Sub
Private
Sub
AssignOwnerButton(
ByVal
thisButton
As
WinampButton,
ByVal
thisPolicy
As
Integer
)
If
User.AuthLevel >= 39
Then
Dim
myAssignOwners
As
WinampButton = thisButton
If
myAssignOwners IsNot
Nothing
Then
myAssignOwners.Visible =
True
myAssignOwners.OnClientClick = jsurf(EditUrl(
"policy"
, thisPolicy.ToString,
"LocationOwners"
,
"LocationID"
, lcLocation.LocationID.ToString))
End
If
End
If
End
Sub
Private
Sub
AssignOwnerLink(
ByVal
thisLink
As
HyperLink,
ByVal
thisPolicy
As
Integer
,
ByVal
DocOwnerName
As
String
)
Dim
myAssignOwner
As
HyperLink = thisLink
If
myAssignOwner IsNot
Nothing
Then
myAssignOwner.NavigateUrl = EditUrl(
"policy"
, thisPolicy.ToString,
"LocationOwners"
,
"LocationID"
, lcLocation.LocationID.ToString)
myAssignOwner.Text = DocOwnerName
myAssignOwner.Visible =
True
End
If
End
Sub
Private
Sub
AssignOwnersLabel(
ByVal
thisLabel
As
Label,
ByVal
OwnerName
As
String
)
Dim
myAssignOwners
As
Label = thisLabel
If
myAssignOwners IsNot
Nothing
Then
myAssignOwners.Text = OwnerName
myAssignOwners.Visible =
True
End
If
End
Sub
Private
Sub
LastReviewLabel(
ByVal
thisLabel
As
Label,
ByVal
thisPolicy
As
Integer
,
ByVal
thisVersion
As
Integer
,
ByVal
ReviewDate
As
String
)
Dim
myLastReview
As
Label = thisLabel
If
ReviewDate =
""
Or
ReviewDate <=
New
Date
(1900, 1, 1)
Then
ReviewDate =
"Not Reviewed"
End
If
If
myLastReview IsNot
Nothing
Then
If
MakeRed
Then
myLastReview.Text =
"<font color='red'>"
& ReviewDate &
"</font>"
Else
myLastReview.Text = ReviewDate
End
If
myLastReview.Visible =
True
End
If
MakeRed =
False
End
Sub
#End Region
#Region "Page Methods"
Protected
Sub
Page_Init(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Init
DoReview =
CBool
(MyData.ProcScalar(
"Corps_ApplicationExists"
,
"@CorpID"
, User.CorpID,
"@ApplicationID"
, 65))
Dim
myScript
As
New
StringBuilder
With
myScript
.Append(
" <script type='text/javascript' src='"
& ResolveUrl(
"~/js/common.js"
) &
"'></script>"
& vbCrLf)
.Append(
"<script type='text/javascript' src='"
& ResolveUrl(
"~/js/css.js"
) &
"'></script>"
& vbCrLf)
.Append(
"<script type='text/javascript' src='"
& ResolveUrl(
"~/js/standardista-table-sorting.js"
) &
"'></script>"
& vbCrLf)
End
With
If
Not
DotNetNuke.UI.Utilities.ClientAPI.IsClientScriptBlockRegistered(Page,
"mySortTable"
)
Then
DotNetNuke.UI.Utilities.ClientAPI.RegisterClientScriptBlock(Page,
"mySortTable"
, myScript.ToString)
End
If
End
Sub
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
If
lcLocation.LocationID > 0
Then
Select
Case
RadioButtonList1.SelectedValue
Case
"1"
If
Page.IsPostBack =
False
Then
Me
.cbExpandAll.Visible =
False
Me
.repSections.Visible =
False
Me
.rgvNoSection.Visible =
True
BindPolicyListAlternateList()
'no categories
End
If
Case
Else
Me
.cbExpandAll.Visible =
True
Me
.repSections.Visible =
True
Me
.rgvNoSection.Visible =
False
BindPolicyList()
'this has categories
End
Select
End
If
End
Sub
Protected
Sub
Page_PreRender(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.PreRender
If
Request.QueryString(
"SearchText"
) IsNot
Nothing
Then
If
Request.QueryString(
"SearchText"
) <>
"notsearching"
Then
tbSearchTerm.Text = Request.QueryString(
"SearchText"
)
End
If
End
If
If
Request.QueryString(
"SearchType"
) IsNot
Nothing
Then
ddlSearchType.SelectedValue = Request.QueryString(
"SearchType"
)
End
If
Dim
a
As
Object
a = DotNetNuke.Services.Personalization.Personalization.GetProfile(
"rblProcedures"
,
"Selected"
)
'qms page malfunctioning here. this would actually run after
If
a IsNot
Nothing
Then
'the grid ran repeater ran its' itemdatabound w/ default of 0
rblProcedures.SelectedValue = a
'added these lines to the itemdatabound as well to correct this
End
If
a = DotNetNuke.Services.Personalization.Personalization.GetProfile(
"PolicyType"
,
"Selected"
)
If
a IsNot
Nothing
Then
RadioButtonList1.SelectedValue = a
End
If
a = DotNetNuke.Services.Personalization.Personalization.GetProfile(
"PolicyManualExpand"
,
"Expanded"
)
If
a IsNot
Nothing
Then
cbExpandAll.Checked = a
End
If
If
Request.QueryString(
"Type"
) IsNot
Nothing
Then
Me
.rblProcedures.SelectedIndex =
CType
(Request.QueryString(
"Type"
),
Integer
)
End
If
If
Request.QueryString(
"Location"
) IsNot
Nothing
Then
lcLocation.LocationID =
CType
(Request.QueryString(
"Location"
),
Integer
)
End
If
If
RadioButtonList1.SelectedValue = 1
And
lcLocation.LocationID > 0
Then
Me
.cbExpandAll.Visible =
False
Me
.repSections.Visible =
False
Me
.rgvNoSection.Visible =
True
BindPolicyListAlternateList()
End
If
End
Sub
#End Region
#Region "Event Handlers"
Protected
Sub
repSections_ItemDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.RepeaterItemEventArgs)
Handles
repSections.ItemDataBound
If
e.Item.ItemType = ListItemType.Item
Or
e.Item.ItemType = ListItemType.AlternatingItem
Then
'lbSectionName
Dim
myLabel
As
New
RCI.Modules.RCIWebApps_SectionHeadControl
myLabel =
CType
(e.Item.FindControl(
"dshModule"
), RCI.Modules.RCIWebApps_SectionHeadControl)
myLabel.Text =
"<font color=white>"
& Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"SectionName"
)) &
"</font>"
If
Me
.cbExpandAll.Checked
Then
myLabel.IgnorePersonalization =
True
myLabel.IsExpanded =
True
End
If
Dim
myRGV
As
RadGrid =
CType
(e.Item.FindControl(
"rgvSection"
), RadGridid)
Dim
aDataTable
As
New
DataTable
If
Page.IsPostBack =
False
Then
Dim
a
As
Object
a = DotNetNuke.Services.Personalization.Personalization.GetProfile(
"rblProcedures"
,
"Selected"
)
If
a IsNot
Nothing
Then
rblProcedures.SelectedValue = a
End
If
End
If
Select
Case
Me
.rblProcedures.SelectedValue
Case
"1"
'facility procedures
'change this to only get procedures that are for the location
Select
Case
ddlSearchType.SelectedValue
Case
0
aDataTable = MyData.ProcTable(
"GetPoliciesBySectionByLocationID_QMS_SearchTitle"
, _
"@LocationID"
, lcLocation.LocationID,
"@SectionID"
, Convert.ToInt32(e.Item.DataItem(
"ID"
)), _
"@QMS"
, 1,
"@titlestring"
,
Me
.tbSearchTerm.Text)
Case
1
aDataTable = MyData.ProcTable(
"GetPoliciesBySectionByLocationID_QMS_SearchDocNumber"
, _
"@LocationID"
, lcLocation.LocationID,
"@SectionID"
, Convert.ToInt32(e.Item.DataItem(
"ID"
)), _
"@QMS"
, 1,
"@DocNumber"
,
Me
.tbSearchTerm.Text)
Case
Else
aDataTable = MyData.ProcTable(
"GetPoliciesBySectionByLocationID_QMS"
, _
"@LocationID"
, lcLocation.LocationID,
"@SectionID"
, Convert.ToInt32(e.Item.DataItem(
"ID"
)), _
"@QMS"
, 1)
End
Select
Case
Else
'corporate procedures
'change this to only get procedures that are corporate
Select
Case
ddlSearchType.SelectedValue
Case
0
'search toitle
aDataTable = MyData.ProcTable(
"GetPoliciesBySectionByLocation_SearchTitle"
, _
"@LocationID"
, lcLocation.LocationID,
"@SectionID"
, Convert.ToInt32(e.Item.DataItem(
"ID"
)), _
"@QMS"
, 1,
"@titlestring"
,
Me
.tbSearchTerm.Text)
Case
1
' search doc number
aDataTable = MyData.ProcTable(
"GetPoliciesBySectionByLocation_SearchDocNumber"
, _
"@LocationID"
, lcLocation.LocationID,
"@SectionID"
, Convert.ToInt32(e.Item.DataItem(
"ID"
)), _
"@QMS"
, 1,
"@DocNumber"
,
Me
.tbSearchTerm.Text)
Case
Else
aDataTable = MyData.ProcTable(
"GetPoliciesBySectionByLocation"
, _
"@LocationID"
, lcLocation.LocationID,
"@SectionID"
, Convert.ToInt32(e.Item.DataItem(
"ID"
)), _
"@QMS"
, 1)
End
Select
If
DoReview
Then
myRGV.Columns(3).Visible =
True
Else
myRGV.Columns(3).Visible =
False
End
If
End
Select
myRGV.DataSource = aDataTable
myRGV.DataBind()
'this section is for email links
'it pops open the section if its closed when the link to the
'changed policy is used
If
Request.QueryString(
"Expand"
) IsNot
Nothing
Then
Dim
AnchorURL
As
String
= Request.QueryString(
"Expand"
).ToString
Dim
LinkView
As
DataView =
New
DataView(aDataTable,
" ID = "
& AnchorURL &
" "
,
"SortOrder"
, DataViewRowState.CurrentRows)
If
LinkView.Count > 0
Then
myLabel.IgnorePersonalization =
True
myLabel.IsExpanded =
True
End
If
End
If
End
If
End
Sub
Protected
Sub
rgvSection_NeedDataSource(
ByVal
sender
As
Object
,
ByVal
e
As
GridNeedDataSourceEventArgs)
End
Sub
Protected
Sub
rgvSection_ItemDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
GridItemEventArgs)
If
TypeOf
e.Item
Is
GridDataItem
Then
If
Request.QueryString(
"Expand"
) IsNot
Nothing
Then
Dim
AnchorURL
As
Integer
=
CType
(Request.QueryString(
"Expand"
),
Integer
)
If
AnchorURL =
CType
(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
),
Integer
)
Then
'highlight row
e.Item.CssClass =
"GridExpandAlert"
End
If
End
If
'litPolicy
Dim
myLiteral
As
New
Label
myLiteral =
CType
(e.Item.FindControl(
"lblPolicyName2"
), Label)
Dim
myLabel
As
String
= Null.NullString
myLabel = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"PolicyName"
))
If
myLiteral IsNot
Nothing
Then
myLiteral.Text =
"<a name="
""
& Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)) &
""
"></a>"
& myLabel
End
If
myLiteral =
New
Label
myLiteral =
CType
(e.Item.FindControl(
"lblDocnumber2"
), Label)
If
Not
System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"DocNumber"
)
Is
System.DBNull.Value
And
Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"DocNumber"
)).Trim.Length > 0
Then
If
myLiteral IsNot
Nothing
Then
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"DocNumber"
))
End
If
End
If
myLiteral =
New
Label
myLiteral =
CType
(e.Item.FindControl(
"lblDocOwner2"
), Label)
If
myLiteral IsNot
Nothing
Then
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"DisplayName"
))
End
If
myLiteral =
New
Label
myLiteral =
CType
(e.Item.FindControl(
"lblUpdate2"
), Label)
If
myLiteral IsNot
Nothing
Then
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"DateEntered"
))
End
If
If
DoReview
Then
Dim
myLocOwner
As
DataTable = MyData.ProcTable(
"PolicyManual_GetLocationOwner"
,
"@PolicyID"
, e.Item.DataItem(
"ID"
),
"@LocationID"
, lcLocation.LocationID)
Dim
myLastReviewDateTable
As
DataTable = MyData.ProcTable(
"PolicyManual_GetLastLocationReview"
,
"@PolicyID"
, e.Item.DataItem(
"ID"
),
"@Version"
, e.Item.DataItem(
"PolicyTextID"
),
"@LocationID"
, lcLocation.LocationID)
Dim
myLastReviewDate
As
String
If
myLastReviewDateTable.Rows.Count < 1
Then
myLastReviewDate =
"1/1/1900"
Else
myLastReviewDate = myLastReviewDateTable.Rows(0).Item(
"LastReviewDate"
)
End
If
If
DateAdd(
"M"
, e.Item.DataItem(
"ReviewFrequency"
), myLastReviewDate) <= Now()
Then
MakeRed =
True
Else
MakeRed =
False
End
If
If
myLocOwner.Rows.Count > 0
Then
If
Not
IsDBNull(myLocOwner.Rows(0).Item(
"DocOwner"
))
Then
If
User.AuthLevel >= 39
Then
If
myLocOwner.Rows(0).Item(
"DocOwnerName"
).ToString.Trim() <>
""
Then
AssignOwnerLink(
CType
(e.Item.FindControl(
"hypAssignLocationOwners2"
), HyperLink), e.Item.DataItem(
"ID"
), myLocOwner.Rows(0).Item(
"DocOwnerName"
))
Else
AssignOwnerButton(
CType
(e.Item.FindControl(
"btnAssignLocationOwners2"
), WinampButton), e.Item.DataItem(
"ID"
))
End
If
Else
AssignOwnersLabel(
CType
(e.Item.FindControl(
"lblAssignLocationOwners"
), Label), myLocOwner.Rows(0).Item(
"DocOwnerName"
))
End
If
If
User.UserID = myLocOwner.Rows(0).Item(
"DocOwner"
)
Then
If
myLastReviewDate =
""
Then
Dim
myLastReview
As
WinampButton =
CType
(e.Item.FindControl(
"btnReview2"
), WinampButton)
If
myLastReview IsNot
Nothing
Then
myLastReview.OnClientClick = jsurf(EditUrl(
"PolicyID"
, e.Item.DataItem(
"ID"
).ToString,
"Review"
,
"PolicyVersion"
, e.Item.DataItem(
"PolicyTextID"
).ToString,
"LocationID"
, lcLocation.LocationID.ToString))
myLastReview.Visible =
True
End
If
Else
Dim
myLastReview
As
HyperLink =
CType
(e.Item.FindControl(
"hypReview2"
), HyperLink)
If
myLastReview IsNot
Nothing
Then
myLastReview.NavigateUrl = EditUrl(
"PolicyID"
, e.Item.DataItem(
"ID"
).ToString,
"Review"
,
"PolicyVersion"
, e.Item.DataItem(
"PolicyTextID2"
).ToString,
"LocationID"
, lcLocation.LocationID.ToString)
End
If
If
myLastReviewDate =
""
Or
myLastReviewDate <=
New
Date
(1900, 1, 1)
Then
myLastReviewDate =
"Not Reviewed"
End
If
If
MakeRed
Then
myLastReviewDate =
"<font color='red'>"
& myLastReviewDate &
"</font>"
End
If
If
myLastReview IsNot
Nothing
Then
myLastReview.Text = myLastReviewDate
myLastReview.Visible =
True
End
If
MakeRed =
False
End
If
Else
LastReviewLabel(
CType
(e.Item.FindControl(
"lblReview"
), Label), e.Item.DataItem(
"ID"
), e.Item.DataItem(
"PolicyTextID"
), myLastReviewDate)
End
If
Else
AssignOwnerButton(
CType
(e.Item.FindControl(
"btnAssignLocationOwners2"
), WinampButton), e.Item.DataItem(
"ID"
))
LastReviewLabel(
CType
(e.Item.FindControl(
"lblReview2"
), Label), e.Item.DataItem(
"ID"
), e.Item.DataItem(
"PolicyTextID"
), myLastReviewDate)
End
If
Else
AssignOwnerButton(
CType
(e.Item.FindControl(
"btnAssignLocationOwners2"
), WinampButton), e.Item.DataItem(
"ID"
))
LastReviewLabel(
CType
(e.Item.FindControl(
"lblReview2"
), Label), e.Item.DataItem(
"ID"
), e.Item.DataItem(
"PolicyTextID"
), myLastReviewDate)
End
If
End
If
Dim
myAuditLink
As
New
WinampButton
myAuditLink =
CType
(e.Item.FindControl(
"ibAudit2"
), WinampButton)
If
myAuditLink IsNot
Nothing
Then
If
Convert.ToBoolean(e.Item.DataItem(
"ShowAuditQuestions"
)) =
True
Then
If
myAuditLink IsNot
Nothing
Then
myAuditLink.Visible =
True
myAuditLink.OnClientClick =
"document.location.href='"
& EditUrl(
"policy"
, Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)),
"Audit"
) &
"';"
myAuditLink.CausesPostback =
False
End
If
Else
myAuditLink.Visible =
False
End
If
End
If
'need to find and load file link control here
Dim
myFiles
As
FileUpload =
CType
(e.Item.FindControl(
"FileLinkControl12"
), FileUpload)
If
myFiles IsNot
Nothing
Then
myFiles.DataSource =
New
DataView(dtFiles,
"PolicyID="
& e.Item.DataItem(
"ID"
),
"FriendlyName"
, DataViewRowState.CurrentRows).ToTable
' myFiles.DataSource = myData.TextTable("SELECT a.fileid, c.* FROM PolicyManual_Files a WITH (NOLOCK) INNER JOIN PolicyManual_NewestPolicy_Version b WITH (NOLOCK) ON a.VersionID = b.ID INNER JOIN Generic_File AS c WITH (NOLOCK) ON a.FileID = c.ID WHERE b.PolicyID = @PolicyID ORDER BY c.FriendlyName", "@PolicyID", System.Web.UI.DataBinder.Eval(e.Row.DataItem, "ID"))
If
myFiles.DataSource.Rows.Count < 1
Then
myFiles.Visible =
False
End
If
End
If
'KAW 2011-07-14
'Task 221 - Add 'Edit Info' button option to QMS (Review)
'For Edit Info Button
Dim
myDataLink
As
New
WinampButton
myDataLink =
CType
(e.Item.FindControl(
"ibEdit2"
), WinampButton)
'Figure if we have forms to show
Dim
myView
As
DataView
myView =
New
DataView(formCounts,
" PolicyID ="
& Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)) &
" "
,
""
, DataViewRowState.CurrentRows)
If
myView.Count > 0
Then
If
myDataLink IsNot
Nothing
Then
myDataLink.Visible =
True
myDataLink.OnClientClick =
"document.location.href='"
& EditUrl(
"policy"
, Convert.ToString(System.Web.UI.DataBinder.Eval(e.Item.DataItem,
"ID"
)),
"Menu"
) &
"';"
myDataLink.CausesPostback =
False
End
If
Else
If
myDataLink IsNot
Nothing
Then
myDataLink.Visible =
False
End
If
End
If
Dim
myPrintLink
As
New
WinampButton
myPrintLink =
CType
(e.Item.FindControl(
"ibPrintPolicy2"
), WinampButton)
If
myPrintLink IsNot
Nothing
Then
myPrintLink.OnClientClick = jsurf(EditUrl(
"policy"
, e.Item.DataItem(
"ID"
).ToString,
"Print"
,
"ExcludeViewStateCache=True"
,
"LocID="
& lcLocation.LocationID.ToString))
myPrintLink.CausesPostback =
False
End
If
End
If
End
Sub
Protected
Sub
rgvSection_ItemCommand(
ByVal
sender
As
Object
,
ByVal
e
As
GridCommandEventArgs)
'If e.CommandName = RadGrid.ExportToWordCommandName Then
' rgvNoSection.ExportSettings.ExportOnlyData = True
' rgvNoSection.Rebind()
' e.Item.OwnerTableView.CommandItemDisplay = False
' 'complete list (rgvNoSection) has trouble exporting. Doesnt do it correctly, shows hyperlinks, buttons, and command items.
' 'this was my test case. was able to get rid of the command items, but none of the others.
'End If
End
Sub
Protected
Sub
rgvSection_ItemCreated(
ByVal
sender
As
Object
,
ByVal
e
As
GridItemEventArgs)
Handles
rgvNoSection.ItemCreated
End
Sub
Protected
Sub
repSections_ItemCreated(
ByVal
sender
As
Object
,
ByVal
e
As
RepeaterItemEventArgs)
Handles
repSections.ItemCreated
Dim
myRGVDataList
As
New
RadGrid
myRGVDataList =
CType
(e.Item.FindControl(
"rgvSection"
), RadGrid)
End
Sub
Protected
Sub
gvSection_RowDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.GridViewRowEventArgs)
If
e.Row.RowType = DataControlRowType.DataRow
Then
If
Request.QueryString(
"Expand"
) IsNot
Nothing
Then
Dim
AnchorURL
As
Integer
=
CType
(Request.QueryString(
"Expand"
),
Integer
)
If
AnchorURL =
CType
(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"ID"
),
Integer
)
Then
'highlight row
e.Row.CssClass =
"GridExpandAlert"
End
If
End
If
'litPolicy
Dim
myLiteral
As
New
Label
myLiteral =
CType
(e.Row.FindControl(
"lblPolicyName"
), Label)
Dim
myLabel
As
String
= Null.NullString
myLabel = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"PolicyName"
))
myLiteral.Text =
"<a name="
""
& Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"ID"
)) &
""
"></a>"
& myLabel
myLiteral =
New
Label
myLiteral =
CType
(e.Row.FindControl(
"lblDocnumber"
), Label)
If
Not
System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"DocNumber"
)
Is
System.DBNull.Value
And
Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"DocNumber"
)).Trim.Length > 0
Then
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"DocNumber"
))
End
If
myLiteral =
New
Label
myLiteral =
CType
(e.Row.FindControl(
"lblDocOwner"
), Label)
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"DisplayName"
))
myLiteral =
New
Label
myLiteral =
CType
(e.Row.FindControl(
"lblUpdate"
), Label)
myLiteral.Text = Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"DateEntered"
))
If
DoReview
Then
Dim
myLocOwner
As
DataTable = MyData.ProcTable(
"PolicyManual_GetLocationOwner"
,
"@PolicyID"
, e.Row.DataItem(
"ID"
),
"@LocationID"
, lcLocation.LocationID)
Dim
myLastReviewDateTable
As
DataTable = MyData.ProcTable(
"PolicyManual_GetLastLocationReview"
,
"@PolicyID"
, e.Row.DataItem(
"ID"
),
"@Version"
, e.Row.DataItem(
"PolicyTextID"
),
"@LocationID"
, lcLocation.LocationID)
Dim
myLastReviewDate
As
String
If
myLastReviewDateTable.Rows.Count < 1
Then
myLastReviewDate =
"1/1/1900"
Else
myLastReviewDate = myLastReviewDateTable.Rows(0).Item(
"LastReviewDate"
)
End
If
If
DateAdd(
"M"
, e.Row.DataItem(
"ReviewFrequency"
), myLastReviewDate) <= Now()
Then
MakeRed =
True
Else
MakeRed =
False
End
If
If
myLocOwner.Rows.Count > 0
Then
If
Not
IsDBNull(myLocOwner.Rows(0).Item(
"DocOwner"
))
Then
If
User.AuthLevel >= 39
Then
If
myLocOwner.Rows(0).Item(
"DocOwnerName"
).ToString.Trim() <>
""
Then
AssignOwnerLink(
CType
(e.Row.FindControl(
"hypAssignLocationOwners"
), HyperLink), e.Row.DataItem(
"ID"
), myLocOwner.Rows(0).Item(
"DocOwnerName"
))
Else
AssignOwnerButton(
CType
(e.Row.FindControl(
"btnAssignLocationOwners"
), WinampButton), e.Row.DataItem(
"ID"
))
End
If
Else
AssignOwnersLabel(
CType
(e.Row.FindControl(
"lblAssignLocationOwners"
), Label), myLocOwner.Rows(0).Item(
"DocOwnerName"
))
End
If
If
User.UserID = myLocOwner.Rows(0).Item(
"DocOwner"
)
Then
If
myLastReviewDate =
""
Then
Dim
myLastReview
As
WinampButton =
CType
(e.Row.FindControl(
"btnReview"
), WinampButton)
myLastReview.OnClientClick = jsurf(EditUrl(
"PolicyID"
, e.Row.DataItem(
"ID"
).ToString,
"Review"
,
"PolicyVersion"
, e.Row.DataItem(
"PolicyTextID"
).ToString,
"LocationID"
, lcLocation.LocationID.ToString))
myLastReview.Visible =
True
Else
Dim
myLastReview
As
HyperLink =
CType
(e.Row.FindControl(
"hypReview"
), HyperLink)
myLastReview.NavigateUrl = EditUrl(
"PolicyID"
, e.Row.DataItem(
"ID"
).ToString,
"Review"
,
"PolicyVersion"
, e.Row.DataItem(
"PolicyTextID"
).ToString,
"LocationID"
, lcLocation.LocationID.ToString)
If
myLastReviewDate =
""
Or
myLastReviewDate <=
New
Date
(1900, 1, 1)
Then
myLastReviewDate =
"Not Reviewed"
End
If
If
MakeRed
Then
myLastReviewDate =
"<font color='red'>"
& myLastReviewDate &
"</font>"
End
If
myLastReview.Text = myLastReviewDate
myLastReview.Visible =
True
MakeRed =
False
End
If
Else
LastReviewLabel(
CType
(e.Row.FindControl(
"lblReview"
), Label), e.Row.DataItem(
"ID"
), e.Row.DataItem(
"PolicyTextID"
), myLastReviewDate)
End
If
Else
AssignOwnerButton(
CType
(e.Row.FindControl(
"btnAssignLocationOwners"
), WinampButton), e.Row.DataItem(
"ID"
))
LastReviewLabel(
CType
(e.Row.FindControl(
"lblReview"
), Label), e.Row.DataItem(
"ID"
), e.Row.DataItem(
"PolicyTextID"
), myLastReviewDate)
End
If
Else
AssignOwnerButton(
CType
(e.Row.FindControl(
"btnAssignLocationOwners"
), WinampButton), e.Row.DataItem(
"ID"
))
LastReviewLabel(
CType
(e.Row.FindControl(
"lblReview"
), Label), e.Row.DataItem(
"ID"
), e.Row.DataItem(
"PolicyTextID"
), myLastReviewDate)
End
If
End
If
Dim
myAuditLink
As
New
WinampButton
myAuditLink =
CType
(e.Row.FindControl(
"ibAudit"
), WinampButton)
If
Convert.ToBoolean(e.Row.DataItem(
"ShowAuditQuestions"
)) =
True
Then
myAuditLink.Visible =
True
myAuditLink.OnClientClick =
"document.location.href='"
& EditUrl(
"policy"
, Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"ID"
)),
"Audit"
) &
"';"
myAuditLink.CausesPostback =
False
Else
myAuditLink.Visible =
False
End
If
'need to find and load file link control here
Dim
myFiles
As
FileUpload =
CType
(e.Row.FindControl(
"FileLinkControl1"
), FileUpload)
myFiles.DataSource =
New
DataView(dtFiles,
"PolicyID="
& e.Row.DataItem(
"ID"
),
"FriendlyName"
, DataViewRowState.CurrentRows).ToTable
' myFiles.DataSource = myData.TextTable("SELECT a.fileid, c.* FROM PolicyManual_Files a WITH (NOLOCK) INNER JOIN PolicyManual_NewestPolicy_Version b WITH (NOLOCK) ON a.VersionID = b.ID INNER JOIN Generic_File AS c WITH (NOLOCK) ON a.FileID = c.ID WHERE b.PolicyID = @PolicyID ORDER BY c.FriendlyName", "@PolicyID", System.Web.UI.DataBinder.Eval(e.Row.DataItem, "ID"))
If
myFiles.DataSource.Rows.Count < 1
Then
myFiles.Visible =
False
End
If
'KAW 2011-07-14
'Task 221 - Add 'Edit Info' button option to QMS (Review)
'For Edit Info Button
Dim
myDataLink
As
New
WinampButton
myDataLink =
CType
(e.Row.FindControl(
"ibEdit"
), WinampButton)
'Figure if we have forms to show
Dim
myView
As
DataView
myView =
New
DataView(formCounts,
" PolicyID ="
& Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"ID"
)) &
" "
,
""
, DataViewRowState.CurrentRows)
If
myView.Count > 0
Then
myDataLink.Visible =
True
myDataLink.OnClientClick =
"document.location.href='"
& EditUrl(
"policy"
, Convert.ToString(System.Web.UI.DataBinder.Eval(e.Row.DataItem,
"ID"
)),
"Menu"
) &
"';"
myDataLink.CausesPostback =
False
Else
myDataLink.Visible =
False
End
If
Dim
myPrintLink
As
New
WinampButton
myPrintLink =
CType
(e.Row.FindControl(
"ibPrintPolicy"
), WinampButton)
myPrintLink.OnClientClick = jsurf(EditUrl(
"policy"
, e.Row.DataItem(
"ID"
).ToString,
"Print"
,
"ExcludeViewStateCache=True"
,
"LocID="
& lcLocation.LocationID.ToString))
myPrintLink.CausesPostback =
False
End
If
End
Sub
Protected
Sub
rblProcedures_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
rblProcedures.SelectedIndexChanged
DotNetNuke.Services.Personalization.Personalization.SetProfile(
"rblProcedures"
,
"Selected"
, rblProcedures.SelectedValue)
RedirectSelf()
End
Sub
Protected
Sub
clearsearch_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.ImageClickEventArgs)
Handles
clearsearch.Click
Me
.tbSearchTerm.Text = Null.NullString
RedirectSelf()
End
Sub
Protected
Sub
runsearch_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.ImageClickEventArgs)
Handles
runsearch.Click
RedirectSelf()
End
Sub
Protected
Sub
gbPrintMasterList_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.ImageClickEventArgs)
Handles
gbPrintMasterList.Click
If
Me
.tbSearchTerm.Text.Length > 0
Then
Response.Redirect(EditUrl(
"Location"
, lcLocation.LocationID.ToString,
"MasterPrint"
,
"Proc="
&
Me
.rblProcedures.SelectedValue.ToString,
"sType="
&
Me
.ddlSearchType.SelectedValue.ToString,
"Terms="
&
Me
.tbSearchTerm.Text,
"Corp="
& User.CorpID.ToString),
True
)
Else
Response.Redirect(EditUrl(
"Location"
, lcLocation.LocationID.ToString,
"MasterPrint"
,
"Proc="
&
Me
.rblProcedures.SelectedValue.ToString,
"Corp="
& User.CorpID.ToString),
True
)
End
If
End
Sub
Protected
Sub
RadioButtonList1_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
RadioButtonList1.SelectedIndexChanged
DotNetNuke.Services.Personalization.Personalization.SetProfile(
"PolicyType"
,
"Selected"
,
Me
.RadioButtonList1.SelectedValue)
RedirectSelf()
End
Sub
Protected
Sub
cbExpandAll_CheckedChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
cbExpandAll.CheckedChanged
DotNetNuke.Services.Personalization.Personalization.SetProfile(
"PolicyManualExpand"
,
"Expanded"
,
Me
.cbExpandAll.Checked.ToString)
RedirectSelf()
End
Sub
Protected
Sub
lcLocation_DropDownChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
lcLocation.DropDownChanged
If
Page.IsPostBack
Then
RedirectSelf()
End
If
End
Sub
Protected
Sub
btnExportMasterList_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.ImageClickEventArgs)
Handles
btnExportMasterList.Click
Dim
export
As
DataTable
If
rblProcedures.SelectedValue = 0
Then
export = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocation"
,
"@LocationID"
, lcLocation.LocationID,
"@QMS"
, 1,
"@OwnerID"
, User.CorpID)
Else
export = MyData.ProcTable(
"PolicyManual_GetPoliciesByLocationID_QMS"
,
"@LocationID"
, lcLocation.LocationID,
"@QMS"
, 1)
End
If
'fix for excel, otherwise it thinks its a SYLK file (if first two chars are ID
export.Columns.RemoveAt(0)
Dim
b = DataTable2CSV(export)
Context.Response.Clear()
Response.ClearHeaders()
Context.Response.AddHeader(
"Content-Disposition"
,
"Attachment; filename=MasterListExport.csv"
)
Context.Response.ContentType =
"application/vnd.ms-excel"
Context.Response.BinaryWrite(b)
Context.Response.
End
()
End
Sub
Private
Sub
MakeAccessible(
ByVal
myGrid
As
GridView)
If
(myGrid.Rows.Count > 0)
Then
myGrid.UseAccessibleHeader =
True
myGrid.HeaderRow.TableSection = TableRowSection.TableHeader
myGrid.FooterRow.TableSection = TableRowSection.TableFooter
End
If
End
Sub
#End Region
End
Class
End
Namespace
This is the grid that has the issues at hand.
http://i.imgur.com/fNjR3W6.png
While these grids are all the exact same and have their exports work.
http://i.imgur.com/DZXwMQy.png
Thanks to anyone who attempts to check this problem out. I know its lengthy! I would even go as far as hugging you if I ever found you in real life!
0
Hi Alexander,
I notice that you are binding the grids by using a simple databinding. Please know that exporting a grid bind this way is not supported. Please make sure you are binding the grid by using the advanced data-binding approach as described in the following help article and let me know about the result. If you still experience the issue I would appreciate if you could provide a simplify runnable sample in order to investigate it further.
Regards,
Kostadin
Telerik
I notice that you are binding the grids by using a simple databinding. Please know that exporting a grid bind this way is not supported. Please make sure you are binding the grid by using the advanced data-binding approach as described in the following help article and let me know about the result. If you still experience the issue I would appreciate if you could provide a simplify runnable sample in order to investigate it further.
Regards,
Kostadin
Telerik
Check out the Telerik Platform - the only platform that combines a rich set of UI tools with powerful cloud services to develop web, hybrid and native mobile apps.
0
Alexander
Top achievements
Rank 1
answered on 29 Jul 2014, 03:03 PM
Wouldn't the line:
take care of the binding issues?
And I thank you so much Kostadin for even attempting to help me after what I posted there, haha!
Also, I think I am just going to remove the export from the grid and call it a day. It is turning out to be too much of a hassle than it's worth.
Again, thanks a million for even attempting!
OnNeedDataSource=
"rgvSection_NeedDataSource"
And I thank you so much Kostadin for even attempting to help me after what I posted there, haha!
Also, I think I am just going to remove the export from the grid and call it a day. It is turning out to be too much of a hassle than it's worth.
Again, thanks a million for even attempting!
0
Hi Alexander,
NeedDataSource event is called automatically each time when the grid's needs to be bound to its datasource. So generally in the event you need to set the DataSource of the grid and and all the built-in features should work properly.
Regards,
Kostadin
Telerik
NeedDataSource event is called automatically each time when the grid's needs to be bound to its datasource. So generally in the event you need to set the DataSource of the grid and and all the built-in features should work properly.
Regards,
Kostadin
Telerik
Check out the Telerik Platform - the only platform that combines a rich set of UI tools with powerful cloud services to develop web, hybrid and native mobile apps.