or
<
telerik:RadWindowManager
ID
=
"RadWindowManager1"
Behaviors
=
"Close"
runat
=
"server"
><
BR
>
<
Windows
><
BR
>
<
telerik:RadWindow
ID
=
"radWinAddCredit"
OpenerElementID
=
"btnAddCreditForTalent"
runat
=
"server"
<BR>
Modal="true" AutoSize="true" Title="Add/Edit Credit"
VisibleStatusbar="false"<
BR
>
VisibleOnPageLoad="False" Skin="WebBlue" Height="300px"
ShowContentDuringLoad="False"<
BR
>
Width="375px"
Behaviors="Close"><
BR
>
<
ContentTemplate
><
BR
>
<
table
class
=
"form"
width
=
"100%"
><
BR
>
<
tr
><
BR
>
<
td
class
=
"formLabel-RightAlign"
align
=
"left"
><
BR
>
Craft<
BR
>
</
td
><
BR
>
<
td
><
BR
>
<
telerik:RadComboBox
ID
=
"cboCrafts"
Skin
=
"WebBlue"
Width
=
"205px"
ZIndex
=
"5000"
MarkFirstMatch
=
"true"
<BR>
EmptyMessage="Type to Select..."
runat="server"><
BR
>
</
telerik:RadComboBox
><
BR
>
<
asp:RequiredFieldValidator
ID
=
"valCreditCrafts"
ControlToValidate
=
"cboCrafts"
runat
=
"server"
<BR>
ErrorMessage="Required" InitialValue="Type to Select..."
ValidationGroup="CreditGroup"></
asp:RequiredFieldValidator
><
BR
>
</
td
><
BR
>
</
tr
><
BR
>
<
tr
><
BR
>
<
td
class
=
"formLabel-RightAlign"
><
BR
>
Title<
BR
>
</
td
><
BR
>
<
td
><
BR
>
<
telerik:RadComboBox
ID
=
"cboShowTitles"
Skin
=
"WebBlue"
ZIndex
=
"5000"
Width
=
"205px"
<BR>
EnableAutomaticLoadOnDemand="true" EmptyMessage="Type to Search..."
MarkFirstMatch="true"<
BR
>
runat="server" EnableLoadOnDemand="True"
ItemsPerRequest="100"><
BR
>
<
WebServiceSettings
Method
=
"GetShowTitles"
Path
=
"../Admin/Controls/AdminService.asmx"
/><
BR
>
</
telerik:RadComboBox
><
BR
>
<
asp:RequiredFieldValidator
ID
=
"valCreditShows"
ControlToValidate
=
"cboShowTitles"
<BR>
runat="server" ErrorMessage="Required" InitialValue="Type to Search..."
ValidationGroup="CreditGroup"></
asp:RequiredFieldValidator
><
BR
>
</
td
><
BR
>
</
tr
><
BR
>
<
tr
><
BR
>
<
td
class
=
"formLabel-RightAlign"
><
BR
>
Comment<
BR
>
</
td
><
BR
>
<
td
><
BR
>
<
asp:TextBox
ID
=
"txtCreditComment"
CssClass
=
"textFields"
runat
=
"server"
Width
=
"200px"
></
asp:TextBox
><
BR
>
</
td
><
BR
>
</
tr
><
BR
>
<
tr
><
BR
>
<
td
align
=
"right"
colspan
=
"2"
><
BR
>
<
telerik:RadButton
ID
=
"btnSaveCredit"
Skin
=
"WebBlue"
runat
=
"server"
Text
=
"Save"
ValidationGroup
=
"CreditGroup"
<BR>
OnClick="btnSaveCredit_Click"><
BR
>
</
telerik:RadButton
><
BR
>
</
td
><
BR
>
</
tr
><
BR
>
</
table
><
BR
>
</
ContentTemplate
><
BR
>
</
telerik:RadWindow
><
BR
>
</
Windows
><
BR
>
</
telerik:RadWindowManager
>
Partial code behind for btnSave_Click method...
<P>
if
(isUpdate)<BR> {<BR>
talentCredit.UpdateTalentCredit(credit);<BR> }<BR>
else
<BR> {<BR> <BR>
talentCredit.CreateTalentCredit(credit);</P>
<P> }<BR> SiteMaster masterPage =
(SiteMaster)Page.Master;<BR> masterPage.SetAlertMessage("Credit has been
Saved.
", "
green");</P>
<P> loadCredits(talentId);<BR> radgridCredits.DataBind();</P>
<P> <BR> RadWindow rw =
RadWindowManager1.Windows[0];<BR>{<BR>
rw.Visible=
false
;<BR>}<BR></P>
NOTE: This code is in a Try/Catch and DOES NOT error out there. It just errors out in VS2010 with the Javascript Error listed above after RadWindow.Visible=false gets called.
function
GetRadWindow()
{
var
oWindow =
null
;
if
(window.radWindow) oWindow = window.radWindow;
//Will work in Moz in all cases, including clasic dialog
else
if
(window.frameElement.radWindow) oWindow = window.frameElement.radWindow;
//IE (and Moz az well)
return
oWindow;
}
<
Martinbeeby:RadDockLayoutNew
ID
=
"RadDockLayout1"
runat
=
"server"
OnLoadDockLayout
=
"RadDockLayout1_LoadDockLayout"
OnSaveDockLayout
=
"RadDockLayout1_SaveDockLayout"
>
<
table
style
=
"width: 100%;"
>
<
tr
align
=
"left"
style
=
"padding-bottom: 5px; padding-top: 5px;"
>
<
td
style
=
"vertical-align: top; width: 33%;"
>
<
Martinbeeby:RadDockZoneNew
ID
=
"RadDockZone1"
runat
=
"server"
MinHeight
=
"500px"
Width
=
"255px"
BorderStyle
=
"None"
>
<
Martinbeeby:RadDockNew
ID
=
"RadDock1"
runat
=
"server"
Width
=
"255px"
EnableAnimation
=
"true"
Resizable
=
"false"
Skin
=
"Sitefinity"
Tag
=
"CSMD_Average_Response_Time"
Text
=
"CSMD_Average_Response_Time"
AutoPostBack
=
"true"
Title
=
"Avg Response Time"
CssClass
=
"rdTitleBar"
OnCommand
=
"RadDock_Command"
OnDockPositionChanged
=
"DockPositionChanged"
DockMode
=
"Docked"
>
<
Commands
>
<
telerik:DockCloseCommand
AutoPostBack
=
"true"
/>
<
telerik:DockCommand
Name
=
"doEdit"
Text
=
"Customize"
AutoPostBack
=
"true"
CssClass
=
"CustomCommandEdit"
/>
<
telerik:DockCommand
Name
=
"doRefresh"
Text
=
"Refresh"
AutoPostBack
=
"true"
CssClass
=
"CustomCommandRefresh"
/>
</
Commands
>
<
ContentTemplate
>
<
div
>
<
uc1:AvgResponseTime
ID
=
"CSMD_Average_Response_Time"
runat
=
"server"
></
uc1:AvgResponseTime
>
</
div
>
</
ContentTemplate
>
</
Martinbeeby:RadDockNew
>
</
Martinbeeby:RadDockZoneNew
>
</
td
>
<
td
style
=
"vertical-align: top; width: 33%;"
>
<
Martinbeeby:RadDockZoneNew
ID
=
"RadDockZone2"
runat
=
"server"
MinHeight
=
"500px"
Width
=
"255px"
BorderStyle
=
"None"
>
<
Martinbeeby:RadDockNew
ID
=
"RadDock2"
runat
=
"server"
Width
=
"255px"
EnableAnimation
=
"true"
Resizable
=
"false"
DockHandle
=
"TitleBar"
Tag
=
"CSMD_Average_Resolution_Time_BL"
Text
=
"CSMD_Average_Resolution_Time_BL"
AutoPostBack
=
"true"
Skin
=
"Sitefinity"
DockMode
=
"Docked"
Title
=
"Avg Resolution Time Backline"
OnCommand
=
"RadDock_Command"
OnDockPositionChanged
=
"DockPositionChanged"
>
<
Commands
>
<
telerik:DockCloseCommand
AutoPostBack
=
"true"
/>
<
telerik:DockCommand
Name
=
"doEdit"
Text
=
"Customize"
AutoPostBack
=
"true"
CssClass
=
"CustomCommandEdit"
/>
<
telerik:DockCommand
Name
=
"doRefresh"
Text
=
"Refresh"
AutoPostBack
=
"true"
CssClass
=
"CustomCommandRefresh"
/>
</
Commands
>
<
ContentTemplate
>
<
div
>
<
uc3:AvgResolutionTimeBL
ID
=
"CSMD_Average_Resolution_Time_BL"
runat
=
"server"
></
uc3:AvgResolutionTimeBL
>
</
div
>
</
ContentTemplate
>
</
Martinbeeby:RadDockNew
>
</
Martinbeeby:RadDockZoneNew
>
</
td
>
<
td
style
=
"vertical-align: top; width: 33%;"
>
<
Martinbeeby:RadDockZoneNew
ID
=
"RadDockZone3"
runat
=
"server"
MinHeight
=
"500px"
Width
=
"255px"
BorderStyle
=
"None"
>
<
Martinbeeby:RadDockNew
ID
=
"RadDock3"
runat
=
"server"
Width
=
"255px"
EnableAnimation
=
"true"
Resizable
=
"true"
DockHandle
=
"TitleBar"
Tag
=
"CSMD_Average_Resolution_Time_FL"
Text
=
"CSMD_Average_Resolution_Time_FL"
AutoPostBack
=
"true"
Skin
=
"Sitefinity"
DockMode
=
"Docked"
Title
=
"Avg Resolution Time Frontline"
OnCommand
=
"RadDock_Command"
OnDockPositionChanged
=
"DockPositionChanged"
>
<
Commands
>
<
telerik:DockCloseCommand
AutoPostBack
=
"true"
/>
<
telerik:DockCommand
Name
=
"doEdit"
Text
=
"Customize"
AutoPostBack
=
"true"
CssClass
=
"CustomCommandEdit"
/>
<
telerik:DockCommand
Name
=
"doRefresh"
Text
=
"Refresh"
AutoPostBack
=
"true"
CssClass
=
"CustomCommandRefresh"
/>
</
Commands
>
<
ContentTemplate
>
<
div
>
<
uc2:AvgResolutionTimeFL
ID
=
"CSMD_Average_Resolution_Time_FL"
runat
=
"server"
></
uc2:AvgResolutionTimeFL
>
</
div
>
</
ContentTemplate
>
</
Martinbeeby:RadDockNew
>
</
Martinbeeby:RadDockZoneNew
>
</
td
>
</
tr
>
</
table
>
</
Martinbeeby:RadDockLayoutNew
>
.RadDock .rdTop .rdTitleBar
{
text-align: left;
position: relative;
vertical-align:top !important;
}
.RadDock
{
height: auto!important;
margin: 0 0 15px 0 !important;
}
<
telerik:RadGrid
ID
=
"grvResponses"
AllowFilteringByColumn
=
"true"
Height
=
"300px"
Width
=
"95%"
AutoGenerateColumns
=
"False"
runat
=
"server"
>
<
ExportSettings
IgnorePaging
=
"true"
OpenInNewWindow
=
"true"
ExportOnlyData
=
"true"
>
</
ExportSettings
>
<
GroupingSettings
CaseSensitive
=
"false"
/>
<
ClientSettings
AllowColumnsReorder
=
"true"
ReorderColumnsOnClient
=
"true"
ColumnsReorderMethod
=
"Reorder"
AllowGroupExpandCollapse
=
"True"
AllowDragToGroup
=
"true"
>
<
Scrolling
AllowScroll
=
"True"
UseStaticHeaders
=
"True"
SaveScrollPosition
=
"True"
>
</
Scrolling
>
<
Animation
AllowColumnReorderAnimation
=
"true"
AllowColumnRevertAnimation
=
"true"
ColumnReorderAnimationDuration
=
"100"
ColumnRevertAnimationDuration
=
"100"
/>
<
ClientEvents
/>
</
ClientSettings
>
<
MasterTableView
NoMasterRecordsText
=
"No Objects Found !"
CommandItemDisplay
=
"Top"
>
<
CommandItemSettings
ShowExportToExcelButton
=
"true"
ShowAddNewRecordButton
=
"false"
ShowExportToCsvButton
=
"false"
ShowRefreshButton
=
"false"
/>
</
MasterTableView
>
<
ClientSettings
AllowDragToGroup
=
"true"
AllowColumnsReorder
=
"true"
ReorderColumnsOnClient
=
"true"
ColumnsReorderMethod
=
"Reorder"
>
<
Resizing
AllowColumnResize
=
"true"
AllowResizeToFit
=
"true"
/>
<
Animation
AllowColumnReorderAnimation
=
"true"
AllowColumnRevertAnimation
=
"true"
/>
<
Scrolling
AllowScroll
=
"True"
UseStaticHeaders
=
"True"
SaveScrollPosition
=
"True"
>
</
Scrolling
>
</
ClientSettings
>
</
telerik:RadGrid
>
Private Sub BindData()
Dim ReportTypeId As Integer
Dim ReportDataSourceId As Integer
Dim rf As DataSourceFactory
Dim ds As DataSource
Dim ReportType As New ReportType()
Dim _displayStyle As String = "S"
If (SecurityContext.ProjectId = 9) Then
_displayStyle = "C"
End If
Dim dt As Data.DataTable
Dim xMid, xMid1, XAxisLowerLimit, YAxisLowerLimit As String
Dim yMid, yMid1 As String
Dim RegionIndex As String
Dim objDataSourceModel As New DataSourceModel
Dim AxisX, AxisY, AxisZ As String
Dim condition As String = ""
Dim objReportDataSource As New DataSourceType
Dim has2midval, haszAxis As Boolean
XAxisLowerLimit = "0"
YAxisLowerLimit = "0"
ReportDataSourceId = CType(Request.QueryString("ReportDataSourceId"), Integer)
ReportTypeId = CType(Request.QueryString("ReportTypeId"), Integer)
xMid = CType(Request.QueryString("xMid"), String)
yMid = CType(Request.QueryString("yMid"), String)
If Not (CType(Request.QueryString("xMid1"), String) Is Nothing) Then
xMid1 = CType(Request.QueryString("xMid1"), String)
has2midval = True
End If
If Not (CType(Request.QueryString("yMid1"), String) Is Nothing) Then
yMid1 = CType(Request.QueryString("yMid1"), String)
has2midval = True
End If
RegionIndex = CType(Request.QueryString("RegionIndex"), String)
XAxis = CType(Request.QueryString("XAxis"), String)
YAxis = CType(Request.QueryString("YAxis"), String)
If Not (CType(Request.QueryString("ZAxis"), String) Is Nothing) Then
ZAxis = CType(Request.QueryString("ZAxis"), String)
haszAxis = True
End If
If Not (CType(Request.QueryString("zAxisLabel"), String) Is Nothing) Then
ZAxisLabel = CType(Request.QueryString("zAxisLabel"), String)
haszAxis = True
End If
XAxisLabel = CType(Request.QueryString("xAxisLabel"), String)
YAxisLabel = CType(Request.QueryString("yAxisLabel"), String)
ReportType = CType(ReportTypeId, ReportType)
rf = New DataSourceFactory()
ds = rf.CreateDataSource(DataSourceType.PrizmDataSource)
If (SecurityContext.ProjectId = 0) Then
Dim f As Field
f = New Field()
f.FieldId = "pinProjectId"
f.FieldType = SqlDbType.Int
'f.Value = SecurityContext.PId
'Added By Shankar Pandit
Dim dtReportProperty As System.Data.DataTable = Nothing
Dim objReportMaster As APOBL.ReportMaster = New APOBL.ReportMaster()
dtReportProperty = objReportMaster.getReportProjIDForBucket(ReportId)
f.Value = dtReportProperty.Rows(0)(0).ToString()
'End
objFilter.Fields.Add(f)
f = New Field()
f.FieldId = "pinReportId"
f.FieldType = SqlDbType.Int
f.Value = ReportId.ToString()
objFilter.Fields.Add(f)
'f = New Field()
'f.FieldId = "totalRows"
'f.FieldType = Data.SqlDbType.Int
'f.Value = "0"
'f.OutParam = True
'objFilter.Fields.Add(f)
'ds.CreateDataSource(objFilter)
'dt = ds.ProcessedDataSource
Else
If (ReportId <> 0) Then
Dim f As Field
f = New Field()
f.FieldId = "pinProjectId"
f.FieldType = SqlDbType.Int
f.Value = SecurityContext.ProjectId
objFilter.Fields.Add(f)
f = New Field()
f.FieldId = "pinReportId"
f.FieldType = SqlDbType.Int
f.Value = ReportId.ToString()
objFilter.Fields.Add(f)
Session("Filter") = objFilter
'f = New Field()
'f.FieldId = "totalRows"
'f.FieldType = Data.SqlDbType.Int
'f.Value = "0"
'f.OutParam = True
'objFilter.Fields.Add(f)
Else
If Not Session("Filter") Is Nothing Then
objFilter = Session("Filter")
End If
End If
'ds.CreateDataSource(objFilter)
'dt = ds.ProcessedDataSource
End If
ds.CreateDataSource(objFilter)
dt = ds.ProcessedDataSource
Cache("data") = dt
AxisX = XAxis
AxisY = YAxis
XAxis = "[" & XAxis & "]"
YAxis = "[" & YAxis & "]"
If Not has2midval Then
If RegionIndex = "1" Then
condition = XAxis + " > " + xMid.ToString() + " And " + YAxis + "<= " + yMid.ToString()
End If
If RegionIndex = "0" Then
condition = XAxis + " <= " + xMid.ToString() + " And " + YAxis + "<= " + yMid.ToString()
End If
If RegionIndex = "2" Then
condition = XAxis + " <= " + xMid.ToString() + " And " + YAxis + "> " + yMid.ToString()
End If
If RegionIndex = "3" Then
condition = XAxis + " > " + xMid.ToString() + " And " + YAxis + ">" + yMid.ToString()
End If
Else
If RegionIndex = "1" Then
condition = XAxis + " > " + xMid.ToString() + " And " + XAxis + "<= " + xMid1.ToString() + " And " + YAxis + "<= " + yMid.ToString()
End If
If RegionIndex = "0" Then
condition = XAxis + " <= " + xMid.ToString() + " And " + YAxis + "<= " + yMid.ToString()
End If
If RegionIndex = "2" Then
condition = XAxis + " > " + xMid1.ToString() + " And " + YAxis + "<= " + yMid.ToString()
End If
If RegionIndex = "4" Then
condition = XAxis + " > " + xMid.ToString() + " And " + XAxis + "<= " + xMid1.ToString() + " And " + YAxis + "<= " + yMid1.ToString() + " And " + YAxis + "> " + yMid.ToString()
End If
If RegionIndex = "3" Then
condition = XAxis + " <= " + xMid.ToString() + " And " + YAxis + "<= " + yMid1.ToString() + " And " + YAxis + "> " + yMid.ToString()
End If
If RegionIndex = "5" Then
condition = XAxis + " > " + xMid1.ToString() + " And " + YAxis + "<= " + yMid1.ToString() + " And " + YAxis + "> " + yMid.ToString()
End If
If RegionIndex = "7" Then
condition = XAxis + " > " + xMid.ToString() + " And " + XAxis + "<= " + xMid1.ToString() + " And " + YAxis + "> " + yMid1.ToString()
End If
If RegionIndex = "6" Then
condition = XAxis + " <= " + xMid.ToString() + " And " + YAxis + "> " + yMid1.ToString()
End If
If RegionIndex = "8" Then
condition = XAxis + " > " + xMid1.ToString() + " And " + YAxis + "> " + yMid1.ToString()
End If
End If
Dim newDs As New DataSet()
dt.DefaultView.RowFilter = condition
grvResponses.DataSource = dt.DefaultView
If _displayStyle = "S" Then
lblHeader.InnerText = "Objects"
' grvResponses.EmptyDataText = "No Objects Found"
' grvResponses.MasterTableView.NoDetailRecordsText = "No Object Found"
'Dim Application As BoundField = New BoundField()
Dim Application As GridBoundColumn = New GridBoundColumn()
Application.DataField = dt.Columns(1).ColumnName
Application.HeaderText = CType(Request.QueryString("Series"), String)
Application.HtmlEncode = False
'grvResponses.Columns.Add(Application)
grvResponses.MasterTableView.Columns.Add(Application)
'Dim XAxisField As BoundField = New BoundField()
Dim XAxisField As GridBoundColumn = New GridBoundColumn()
XAxisField.DataField = AxisX
XAxisField.HeaderText = XAxisLabel
XAxisField.HtmlEncode = False
XAxisField.DataFormatString = "{0:#.0}"
' grvResponses.Columns.Add(XAxisField)
grvResponses.MasterTableView.Columns.Add(XAxisField)
'Dim YAxisField As BoundField = New BoundField()
Dim YAxisField As GridBoundColumn = New GridBoundColumn()
YAxisField.DataField = AxisY
YAxisField.HeaderText = YAxisLabel
YAxisField.HtmlEncode = False
'YAxisField.DataFormatString = "{0:#.0}"
'grvResponses.Columns.Add(YAxisField)
grvResponses.MasterTableView.Columns.Add(YAxisField)
Else ' display style is comment
lblHeader.InnerText = "Projects"
' grvResponses.EmptyDataText = "No Projects Found"
grvResponses.MasterTableView.NoMasterRecordsText = "No Projects Found"
'Dim Application As BoundField = New BoundField()
Dim Application As GridBoundColumn = New GridBoundColumn()
Application.DataField = "ObjectName"
Application.HeaderText = "Project"
Application.HtmlEncode = False
' grvResponses.Columns.Add(Application)
grvResponses.MasterTableView.Columns.Add(Application)
Dim XAxisField As TemplateField = New TemplateField()
XAxisField.ShowHeader = True
XAxisField.HeaderText = XAxisLabel
'XAxisField.HtmlEncode = False
XAxisField.ItemTemplate = New TableControlItemTemplate(ListItemType.Item, AxisX, XAxisLabel, xMid, xMid1)
'XAxisField.DataFormatString = "{0:#.0}"
' grvResponses.Columns.Add(XAxisField)
grvResponses.MasterTableView.Columns.Add(XAxisField)
Dim YAxisField As TemplateField = New TemplateField()
YAxisField.ShowHeader = True
YAxisField.HeaderText = YAxisLabel
'YAxisField.HtmlEncode = False
'YAxisField.DataFormatString = "{0:#.0}"
YAxisField.ItemTemplate = New TableControlItemTemplate(ListItemType.Item, AxisY, YAxisLabel, yMid, yMid1)
'grvResponses.Columns.Add(YAxisField)
grvResponses.MasterTableView.Columns.Add(YAxisField)
End If
If (haszAxis) Then
' Dim ZAxisField As BoundField = New BoundField()
Dim ZAxisField As GridBoundColumn = New GridBoundColumn()
ZAxisField.DataField = ZAxis
ZAxisField.HeaderText = ZAxisLabel
ZAxisField.HtmlEncode = False
ZAxisField.DataFormatString = "{0:#.0}"
' grvResponses.Columns.Add(ZAxisField)
grvResponses.MasterTableView.Columns.Add(ZAxisField)
End If
grvResponses.DataBind()
End Sub