or
<%@ Page Title="" Language="VB" MasterPageFile="~/All/Site.master" EnableEventValidation="false" AutoEventWireup="false" CodeFile="Orders.aspx.vb" Inherits="Management_Dashboard_AllOrders" %>
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<%@ Register src="../../Controls/DashboardSelector.ascx" tagname="DashboardSelector" tagprefix="uc1" %>
<
asp:Content
ID
=
"Content1"
ContentPlaceHolderID
=
"HeadContent"
Runat
=
"Server"
>
</
asp:Content
>
<
asp:Content
ID
=
"Content2"
ContentPlaceHolderID
=
"MainContent"
Runat
=
"Server"
>
<
telerik:RadAjaxLoadingPanel
ID
=
"RadAjaxLoadingPanel1"
Runat
=
"server"
MinDisplayTime
=
"5"
Skin
=
"Default"
Transparency
=
"20"
>
</
telerik:RadAjaxLoadingPanel
>
<
telerik:RadAjaxManager
ID
=
"RadAjaxManager"
runat
=
"server"
DefaultLoadingPanelID
=
"RadAjaxLoadingPanel1"
>
<
AjaxSettings
>
<
telerik:AjaxSetting
AjaxControlID
=
"OrdersGrid"
>
<
UpdatedControls
>
<
telerik:AjaxUpdatedControl
ControlID
=
"OrdersGrid"
LoadingPanelID
=
"RadAjaxLoadingPanel1"
/>
</
UpdatedControls
>
</
telerik:AjaxSetting
>
</
AjaxSettings
>
</
telerik:RadAjaxManager
>
<
uc1:DashboardSelector
ID
=
"DashboardSelector1"
runat
=
"server"
/>
<
h4
>New Orders</
h4
>
<
telerik:RadButton
ID
=
"btnExportToExcel"
runat
=
"server"
Text
=
"Export to Excel"
>
</
telerik:RadButton
>
<
telerik:RadGrid
ID
=
"OrdersGrid"
runat
=
"server"
AllowFilteringByColumn
=
"True"
AllowPaging
=
"True"
DataSourceID
=
"GPOrderHeadersDataSource"
GridLines
=
"None"
Skin
=
"Telerik"
AllowSorting
=
"True"
ShowGroupPanel
=
"True"
>
<
ExportSettings
FileName
=
"OrdersExport"
IgnorePaging
=
"True"
ExportOnlyData
=
"True"
>
<
Excel
Format
=
"ExcelML"
/>
<
Excel
Format
=
"ExcelML"
></
Excel
>
</
ExportSettings
>
<
ClientSettings
AllowColumnsReorder
=
"True"
AllowDragToGroup
=
"True"
ReorderColumnsOnClient
=
"True"
>
</
ClientSettings
>
<
MasterTableView
AutoGenerateColumns
=
"False"
DataKeyNames
=
"SOPNUMBE"
DataSourceID
=
"GPOrderHeadersDataSource"
PageSize
=
"50"
>
<
DetailTables
>
<
telerik:GridTableView
runat
=
"server"
DataKeyNames
=
"SOPNUMBE"
AllowFilteringByColumn
=
"False"
AllowPaging
=
"False"
AutoGenerateColumns
=
"False"
DataSourceID
=
"DetailsDataSource"
>
<
ParentTableRelation
>
<
telerik:GridRelationFields
DetailKeyField
=
"SOPNUMBE"
MasterKeyField
=
"SOPNUMBE"
/>
</
ParentTableRelation
>
<
CommandItemSettings
ExportToPdfText
=
"Export to Pdf"
/>
<
CommandItemSettings
ExportToPdfText
=
"Export to Pdf"
></
CommandItemSettings
>
<
Columns
>
<
telerik:GridBoundColumn
DataField
=
"SOPNUMBE"
HeaderText
=
"SOPNUMBE"
SortExpression
=
"SOPNUMBE"
UniqueName
=
"SOPNUMBE"
Visible
=
"False"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"ITMSHNAM"
HeaderText
=
"ITMSHNAM"
SortExpression
=
"ITMSHNAM"
UniqueName
=
"ITMSHNAM"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"ITEMDESC"
HeaderText
=
"ITEMDESC"
SortExpression
=
"ITEMDESC"
UniqueName
=
"ITEMDESC"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"STATUS"
HeaderText
=
"STATUS"
SortExpression
=
"STATUS"
UniqueName
=
"STATUS"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"Qty"
DataFormatString
=
"{0:0}"
DataType
=
"System.Double"
HeaderText
=
"Qty"
SortExpression
=
"Qty"
UniqueName
=
"Qty"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"ATYALLOC"
DataFormatString
=
"{0:0}"
DataType
=
"System.Double"
HeaderText
=
"ATYALLOC"
SortExpression
=
"ATYALLOC"
UniqueName
=
"ATYALLOC"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"QTYFULFI"
DataFormatString
=
"{0:0}"
DataType
=
"System.Double"
HeaderText
=
"QTYFULFI"
SortExpression
=
"QTYFULFI"
UniqueName
=
"QTYFULFI"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"LOCNCODE"
HeaderText
=
"LOCNCODE"
SortExpression
=
"LOCNCODE"
UniqueName
=
"LOCNCODE"
>
</
telerik:GridBoundColumn
>
</
Columns
>
</
telerik:GridTableView
>
</
DetailTables
>
<
CommandItemSettings
ExportToPdfText
=
"Export to Pdf"
ShowAddNewRecordButton
=
"False"
ShowExportToExcelButton
=
"True"
ShowExportToPdfButton
=
"True"
></
CommandItemSettings
>
<
ExpandCollapseColumn
Visible
=
"True"
>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridTemplateColumn
UniqueName
=
"Color"
AllowFiltering
=
"False"
Groupable
=
"False"
>
<
ItemTemplate
>
<
telerik:RadComboBox
ID
=
"cboColorChanger"
Runat
=
"server"
AutoPostBack
=
"True"
DataTextField
=
"Color"
DataValueField
=
"SOPNUMBE"
onselectedindexchanged
=
"cboColorChanger0_SelectedIndexChanged"
SelectedValue='<%# GetColor() %>' Skin="Telerik" Width="65px" >
<
Items
>
<
telerik:RadComboBoxItem
runat
=
"server"
Owner
=
"cboColorChanger"
Text
=
"None"
Value
=
"None"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
BackColor
=
"Red"
ForeColor
=
"Red"
Owner
=
"cboColorChanger"
Text
=
"Red"
Value
=
"Red"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
BackColor
=
"#FF8000"
ForeColor
=
"#FF8000"
Owner
=
"cboColorChanger"
Text
=
"Orange"
Value
=
"Orange"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
BackColor
=
"Yellow"
ForeColor
=
"Yellow"
Owner
=
"cboColorChanger"
Text
=
"Yellow"
Value
=
"Yellow"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
BackColor
=
"Lime"
ForeColor
=
"Lime"
Owner
=
"cboColorChanger"
Text
=
"Green"
Value
=
"Green"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
BackColor
=
"Cyan"
ForeColor
=
"Cyan"
Owner
=
"cboColorChanger"
Text
=
"Blue"
Value
=
"Blue"
/>
<
telerik:RadComboBoxItem
runat
=
"server"
BackColor
=
"Fuchsia"
ForeColor
=
"Fuchsia"
Owner
=
"cboColorChanger"
Text
=
"Pink"
Value
=
"Pink"
/>
</
Items
>
</
telerik:RadComboBox
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridBoundColumn
DataField
=
"CUSTNMBR"
HeaderText
=
"CUSTNMBR"
ReadOnly
=
"True"
SortExpression
=
"CUSTNMBR"
UniqueName
=
"CUSTNMBR"
HeaderTooltip
=
"Customer Number"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"CUSTNAME"
HeaderText
=
"CUSTNAME"
ReadOnly
=
"True"
SortExpression
=
"CUSTNAME"
UniqueName
=
"CUSTNAME"
Visible
=
"False"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"SOPNUMBE"
HeaderText
=
"SOP"
ReadOnly
=
"True"
SortExpression
=
"SOPNUMBE"
UniqueName
=
"SOPNUMBE"
HeaderTooltip
=
"SOP Number"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"PO"
HeaderText
=
"PO"
ReadOnly
=
"True"
SortExpression
=
"PO"
UniqueName
=
"PO"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"ReqShipDate"
DataFormatString
=
"{0:MM/dd/yyyy}"
HeaderText
=
"RSD"
ReadOnly
=
"True"
SortExpression
=
"ReqShipDate"
UniqueName
=
"ReqShipDate"
HeaderTooltip
=
"Required Ship Date"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"ORDRDATE"
DataFormatString
=
"{0:MM/dd/yyyy}"
HeaderText
=
"OD"
ReadOnly
=
"True"
SortExpression
=
"ORDRDATE"
UniqueName
=
"ORDRDATE"
HeaderTooltip
=
"Order Date"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"CITY"
HeaderText
=
"CITY"
ReadOnly
=
"True"
SortExpression
=
"CITY"
UniqueName
=
"CITY"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"STATE"
HeaderText
=
"ST"
ReadOnly
=
"True"
SortExpression
=
"STATE"
UniqueName
=
"STATE"
HeaderTooltip
=
"State"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"DOCID"
HeaderText
=
"DOCID"
ReadOnly
=
"True"
SortExpression
=
"DOCID"
UniqueName
=
"DOCID"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"OREMSUBT"
DataFormatString
=
"{0:C}"
HeaderText
=
"OREMSUBT"
ReadOnly
=
"True"
SortExpression
=
"OREMSUBT"
UniqueName
=
"OREMSUBT"
HeaderTooltip
=
"Original Remaining Subtotal"
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"NumLines"
DataType
=
"System.Int32"
HeaderText
=
"NL"
ReadOnly
=
"True"
SortExpression
=
"NumLines"
UniqueName
=
"NumLines"
HeaderTooltip
=
"Number of Lines"
>
</
telerik:GridBoundColumn
>
<
telerik:GridTemplateColumn
AllowFiltering
=
"False"
Groupable
=
"False"
HeaderText
=
"Notes"
Reorderable
=
"False"
UniqueName
=
"Notes"
Visible
=
"False"
>
<%--<
ItemTemplate
>
<
table
style
=
"border-width: 0px; border-style: none; text-align: center;"
>
<
tr
><
td
>
<
telerik:RadTextBox
ID
=
"txtNotes"
Runat
=
"server"
Height
=
"50px"
Skin
=
"Telerik"
Text="<%# GetNotes() %>" TextMode="MultiLine" Width="250px">
</
telerik:RadTextBox
>
</
td
></
tr
>
<
tr
><
td
>
<
telerik:RadButton
ID
=
"btnUpdateNotes"
runat
=
"server"
Skin
=
"Telerik"
Text
=
"Update Notes"
onclick
=
"btnUpdateNotes_Click"
>
</
telerik:RadButton
>
</
td
></
tr
>
</
table
>
</
ItemTemplate
>--%>
</
telerik:GridTemplateColumn
>
<
telerik:GridTemplateColumn
AllowFiltering
=
"False"
HeaderText
=
"Note"
Resizable
=
"False"
UniqueName
=
"Notes Icon"
>
<
ItemTemplate
>
<
asp:Panel
ID
=
"NotesPanel"
Visible
=
"true"
runat
=
"server"
>
<
asp:ImageButton
ID
=
"imgNote"
runat
=
"server"
AlternateText="<%# GetNotes() %>"
ImageUrl="<%# NoteImage() %>" onclick="ImageButton1_Click"
ToolTip="<%# GetNotes() %>" />
</
asp:Panel
>
<
asp:Panel
ID
=
"EditNotesPanel"
Visible
=
"false"
runat
=
"server"
>
<
table
style
=
"border-width: 0px; border-style: none; text-align: center;"
>
<
tr
><
td
>
<
telerik:RadTextBox
ID
=
"txtNotes"
Runat
=
"server"
Height
=
"50px"
Skin
=
"Telerik"
Text="<%# GetNotes() %>" TextMode="MultiLine" Width="250px">
</
telerik:RadTextBox
>
</
td
></
tr
>
<
tr
><
td
>
<
telerik:RadButton
ID
=
"btnUpdateNotes"
runat
=
"server"
Skin
=
"Telerik"
Text
=
"Update Notes"
onclick
=
"btnUpdateNotes_Click"
>
</
telerik:RadButton
>
</
td
></
tr
>
</
table
>
</
asp:Panel
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
</
Columns
>
<
PagerStyle
Mode
=
"NextPrevNumericAndAdvanced"
/>
</
MasterTableView
>
<
HeaderContextMenu
EnableImageSprites
=
"True"
CssClass
=
"GridContextMenu GridContextMenu_Default"
></
HeaderContextMenu
>
</
telerik:RadGrid
>
<
asp:SqlDataSource
ID
=
"GPOrderHeadersDataSource"
runat
=
"server"
ConnectionString="<%$ ConnectionStrings:OrdersConString %>" SelectCommand="SELECT RTRIM(SOP10100.CUSTNAME) AS CUSTNAME, RTRIM(SOP10100.SOPNUMBE) AS SOPNUMBE, RTRIM(SOP10100.CSTPONBR) AS PO,
(SOP10100.ReqShipDate) AS ReqShipDate, (SOP10100.ORDRDATE) AS ORDRDATE, RTRIM(SOP10100.CITY) AS CITY, RTRIM(SOP10100.STATE)
AS STATE, RTRIM(SOP10100.CUSTNMBR) AS CUSTNMBR, RTRIM(SOP10100.DOCID) AS DOCID, (SOP10100.OREMSUBT) AS OREMSUBT,
COUNT(SOP10200.ITEMNMBR) AS NumLines
FROM SOP10100 INNER JOIN
SOP10200 ON SOP10100.SOPNUMBE = SOP10200.SOPNUMBE AND SOP10100.SOPTYPE = SOP10200.SOPTYPE
WHERE (SOP10100.CUSTNMBR NOT LIKE 'WALCANA') AND (SOP10100.CUSTNMBR NOT LIKE 'WALMART') AND (SOP10100.SOPTYPE = 2) AND VOIDSTTS = 0
GROUP BY RTRIM(SOP10100.CUSTNAME), RTRIM(SOP10100.SOPNUMBE), RTRIM(SOP10100.CSTPONBR), (SOP10100.ReqShipDate), (SOP10100.ORDRDATE),
RTRIM(SOP10100.CITY), RTRIM(SOP10100.STATE), RTRIM(SOP10100.CUSTNMBR), RTRIM(SOP10100.DOCID), (SOP10100.OREMSUBT)
ORDER BY RTRIM(SOP10100.CUSTNAME)"></
asp:SqlDataSource
>
<
asp:SqlDataSource
ID
=
"DetailsDataSource"
runat
=
"server"
ConnectionString="<%$ ConnectionStrings:OrdersConString %>"
SelectCommand="SELECT RTRIM(SOP10100.SOPNUMBE) AS SOPNUMBE, RTRIM(IV00101.ITMSHNAM) AS ITMSHNAM, RTRIM(SOP10200.ITEMDESC) AS ITEMDESC, RTRIM(IV00101.USCATVLS_5) AS STATUS, ROUND(SOP10200.QTYREMAI,0) AS Qty, ROUND(SOP10200.ATYALLOC,0) AS ATYALLOC, ROUND(SOP10200.QTYFULFI,0) AS QTYFULFI, RTRIM(SOP10200.LOCNCODE) AS LOCNCODE FROM SOP10200 INNER JOIN IV00101 ON SOP10200.ITEMNMBR = IV00101.ITEMNMBR INNER JOIN SOP10100 ON SOP10200.SOPNUMBE = SOP10100.SOPNUMBE AND SOP10200.SOPTYPE = SOP10100.SOPTYPE WHERE (SOP10100.CUSTNMBR NOT LIKE 'WALCANA') AND (SOP10100.CUSTNMBR NOT LIKE 'WALMART') AND (SOP10200.SOPTYPE = 2) AND (SOP10100.VOIDSTTS = 0) AND (SOP10100.SOPNUMBE = @SOPNUMBE) ORDER BY SOPNUMBE DESC">
<
SelectParameters
>
<
asp:Parameter
Name
=
"SOPNUMBE"
/>
</
SelectParameters
>
</
asp:SqlDataSource
>
<
asp:SqlDataSource
ID
=
"ColorsDataSource"
runat
=
"server"
ConnectionString="<%$ ConnectionStrings:IntranetConnectionString %>"
SelectCommand="SELECT * FROM [OrdersTableRowColor]"></
asp:SqlDataSource
>
<
telerik:RadWindowManager
ID
=
"RadWindowManager1"
runat
=
"server"
Skin
=
"Black"
>
<
Windows
>
<
telerik:RadWindow
ID
=
"NotesWindow"
runat
=
"server"
Animation
=
"Fade"
AutoSize
=
"True"
EnableShadow
=
"True"
KeepInScreenBounds
=
"True"
Skin
=
"Telerik"
style
=
"display:none;"
VisibleStatusbar
=
"False"
DestroyOnClose
=
"True"
Overlay
=
"True"
Title
=
"Update Note"
Behavior
=
"Close"
Behaviors
=
"Close"
Modal
=
"True"
>
</
telerik:RadWindow
>
</
Windows
>
</
telerik:RadWindowManager
>
</
asp:Content
>
Imports
Telerik.Web.UI
Imports
System.Data
Imports
System.Data.SqlClient
Partial
Class
Management_Dashboard_AllOrders
Inherits
System.Web.UI.Page
Dim
conString
As
String
=
"Data Source=PDC-SQL1;Initial Catalog=Intranet;Integrated Security=True"
Dim
conn
As
SqlConnection =
New
SqlConnection(conString)
Dim
notesURL
As
String
=
"images/Note.png"
Dim
noNotesURL
As
String
=
"images/noNote.png"
Protected
Sub
RadButton1_Click(sender
As
Object
, e
As
System.EventArgs)
Handles
btnExportToExcel.Click
OrdersGrid.MasterTableView.ExportToExcel()
End
Sub
Protected
Function
GetNotes()
As
String
Dim
getTheNotes
As
SqlCommand =
New
SqlCommand(
"SELECT Notes FROM OrdersTableEX WHERE SOPNUMBE = @sopnumbe"
, conn)
Dim
notes
As
String
=
""
Dim
s
As
String
=
""
Try
s = Eval(
"SOPNUMBE"
)
Catch
Try
s = Session(
"SOP"
)
Catch
End
Try
End
Try
Try
getTheNotes.Connection.Open()
getTheNotes.Parameters.AddWithValue(
"@sopnumbe"
, s)
notes =
If
(
TypeOf
getTheNotes.ExecuteScalar()
Is
DBNull,
""
, getTheNotes.ExecuteScalar())
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
getTheNotes.Connection.Close()
End
Try
If
notes <>
Nothing
Then
Return
notes
Else
Return
""
End
If
End
Function
Protected
Function
GetColor()
As
String
Dim
getTheColor
As
SqlCommand =
New
SqlCommand(
"SELECT color FROM OrdersTableEX WHERE SOPNUMBE = @sopnumbe"
, conn)
Dim
col
As
String
=
""
Try
getTheColor.Connection.Open()
getTheColor.Parameters.AddWithValue(
"@sopnumbe"
, Eval(
"SOPNUMBE"
).ToString)
col = getTheColor.ExecuteScalar()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
getTheColor.Connection.Close()
End
Try
If
col <>
Nothing
Then
Return
col
Else
Return
"None"
End
If
End
Function
Protected
Sub
ColorRow(
ByVal
r
As
GridDataItem, col
As
String
)
Select
Case
col
Case
"None"
r.BackColor = Drawing.Color.Empty
Case
"Red"
r.BackColor = Drawing.Color.Red
Case
"Orange"
r.BackColor = Drawing.Color.Orange
Case
"Yellow"
r.BackColor = Drawing.Color.Yellow
Case
"Green"
r.BackColor = Drawing.Color.Lime
Case
"Blue"
r.BackColor = Drawing.Color.Cyan
Case
"Pink"
r.BackColor = Drawing.Color.Fuchsia
Case
Else
r.BackColor = Drawing.Color.Empty
End
Select
End
Sub
Protected
Sub
cboColorChanger0_SelectedIndexChanged(sender
As
Object
, e
As
Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs)
Dim
color
As
String
=
CType
(sender, RadComboBox).SelectedValue
Dim
r
As
GridDataItem =
CType
(sender.parent.parent, GridDataItem)
Dim
sop
As
String
= r(
"SOPNUMBE"
).Text
Dim
colorPresent
As
SqlCommand =
New
SqlCommand(
"SELECT * FROM OrdersTableEX WHERE SOPNUMBE = @sopnumbe"
, conn)
Dim
getColor
As
SqlCommand =
New
SqlCommand(
"SELECT color FROM OrdersTableEX WHERE SOPNUMBE = @sopnumbe"
, conn)
Dim
insertColor
As
SqlCommand =
New
SqlCommand(
"INSERT INTO [OrdersTableEX] ([SOPNUMBE],[color]) VALUES (@sopnumbe,@col)"
, conn)
Dim
updateColor
As
SqlCommand =
New
SqlCommand(
"UPDATE [OrdersTableEX] SET [color] = @col WHERE SOPNUMBE = @sopnumbe"
, conn)
colorPresent.Parameters.AddWithValue(
"@sopnumbe"
, sop)
Dim
present
As
String
=
""
Try
colorPresent.Connection.Open()
present = colorPresent.ExecuteScalar()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
colorPresent.Connection.Close()
End
Try
If
present <> sop
Then
Try
insertColor.Connection.Open()
insertColor.Parameters.AddWithValue(
"@sopnumbe"
, sop)
insertColor.Parameters.AddWithValue(
"@col"
, color)
insertColor.ExecuteNonQuery()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
insertColor.Connection.Close()
End
Try
Else
Try
updateColor.Connection.Open()
updateColor.Parameters.AddWithValue(
"@col"
, color)
updateColor.Parameters.AddWithValue(
"@sopnumbe"
, sop)
updateColor.ExecuteNonQuery()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
updateColor.Connection.Close()
End
Try
End
If
Dim
col
As
String
=
""
Try
getColor.Connection.Open()
getColor.Parameters.AddWithValue(
"@sopnumbe"
, sop)
col = getColor.ExecuteScalar()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
getColor.Connection.Close()
End
Try
ColorRow(r, col)
End
Sub
Protected
Sub
OrdersGrid_DataBound(sender
As
Object
, e
As
System.EventArgs)
Handles
OrdersGrid.DataBound
For
Each
r
As
GridDataItem
In
OrdersGrid.Items
ColorRow(r,
CType
(r(
"Color"
).FindControl(
"cboColorChanger"
), RadComboBox).SelectedValue)
Next
End
Sub
Protected
Sub
btnUpdateNotes_Click(sender
As
Object
, e
As
System.EventArgs)
Dim
notes
As
String
=
CType
(
CType
(sender.parent.parent, GridTableCell).FindControl(
"txtNotes"
), RadTextBox).Text
Dim
r
As
GridDataItem =
CType
(sender.parent.parent.parent, GridDataItem)
Dim
sop
As
String
= r(
"SOPNUMBE"
).Text
Dim
colorPresent
As
SqlCommand =
New
SqlCommand(
"SELECT * FROM OrdersTableEX WHERE SOPNUMBE = @sopnumbe"
, conn)
Dim
getNotes
As
SqlCommand =
New
SqlCommand(
"SELECT Notes FROM OrdersTableEX WHERE SOPNUMBE = @sopnumbe"
, conn)
Dim
insertNotes
As
SqlCommand =
New
SqlCommand(
"INSERT INTO [OrdersTableEX] ([SOPNUMBE],[Notes]) VALUES (@sopnumbe,@col)"
, conn)
Dim
updateNotes
As
SqlCommand =
New
SqlCommand(
"UPDATE [OrdersTableEX] SET [Notes] = @col WHERE SOPNUMBE = @sopnumbe"
, conn)
colorPresent.Parameters.AddWithValue(
"@sopnumbe"
, sop)
Dim
present
As
String
=
""
Try
colorPresent.Connection.Open()
present = colorPresent.ExecuteScalar()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
colorPresent.Connection.Close()
End
Try
If
present <> sop
Then
Try
insertNotes.Connection.Open()
insertNotes.Parameters.AddWithValue(
"@sopnumbe"
, sop)
insertNotes.Parameters.AddWithValue(
"@col"
, notes)
insertNotes.ExecuteNonQuery()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
insertNotes.Connection.Close()
End
Try
Else
Try
updateNotes.Connection.Open()
updateNotes.Parameters.AddWithValue(
"@col"
, notes)
updateNotes.Parameters.AddWithValue(
"@sopnumbe"
, sop)
updateNotes.ExecuteNonQuery()
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
updateNotes.Connection.Close()
End
Try
End
If
CType
(
CType
(sender.parent.parent, GridTableCell).FindControl(
"NotesPanel"
), Panel).Visible =
True
CType
(
CType
(sender.parent.parent, GridTableCell).FindControl(
"EditNotesPanel"
), Panel).Visible =
False
Session(
"SOP"
) = sop
CType
(
CType
(sender.parent.parent, GridTableCell).FindControl(
"imgNote"
), ImageButton).DataBind()
End
Sub
Protected
Function
NoteImage()
As
String
Dim
getTheNotes
As
SqlCommand =
New
SqlCommand(
"SELECT Notes FROM OrdersTableEX WHERE SOPNUMBE = @sopnumbe"
, conn)
Dim
notes
As
String
=
""
Dim
s
As
String
=
""
Try
s = Eval(
"SOPNUMBE"
)
Catch
Try
s = Session(
"SOP"
)
Catch
End
Try
End
Try
Try
getTheNotes.Connection.Open()
getTheNotes.Parameters.AddWithValue(
"@sopnumbe"
, s)
notes =
If
(
TypeOf
getTheNotes.ExecuteScalar()
Is
DBNull,
""
, getTheNotes.ExecuteScalar())
Catch
MsgBox(
"ERROR: Please contact IT"
, MsgBoxStyle.Critical,
"ERROR"
)
Finally
getTheNotes.Connection.Close()
End
Try
If
notes <>
Nothing
Then
Return
notesURL
Else
Return
noNotesURL
End
If
End
Function
Protected
Sub
ImageButton1_Click(sender
As
Object
, e
As
System.Web.UI.ImageClickEventArgs)
Dim
r
As
GridDataItem =
CType
(sender.parent.parent.parent, GridDataItem)
Dim
c
As
GridTableCell =
CType
(sender.parent.parent, GridTableCell)
CType
(c.FindControl(
"NotesPanel"
), Panel).Visible =
False
CType
(c.FindControl(
"EditNotesPanel"
), Panel).Visible =
True
'RadWindowManager1.Windows(0).NavigateUrl = "notesEditor.aspx?SOP=" + r("SOPNUMBE").Text
'RadWindowManager1.Windows(0).VisibleOnPageLoad = True
End
Sub
Protected
Sub
Page_Load(sender
As
Object
, e
As
System.EventArgs)
Handles
Me
.Load
If
IsPostBack
Then
RadWindowManager1.Windows(0).VisibleOnPageLoad =
False
End
If
End
Sub
End
Class
Private Sub PDFButton_Click(sender As Object, e As System.EventArgs) Handles PDFButton.Click
_isExport = True
For Each column As Telerik.Web.UI.GridColumn In ReportGrid.MasterTableView.Columns
If column.UniqueName = "SelectCheckbox" Or column.UniqueName = "ViewButton" Then
column.Visible = False
End
If
Next
ReportGrid.Width = New Unit(22)
ReportGrid.MasterTableView.ExportToPdf()
End Sub
Private Sub ReportGrid_ItemCreated(sender As Object, e As Telerik.Web.UI.GridItemEventArgs) Handles ReportGrid.ItemCreated
If _isExport Then
If TypeOf (e.Item) Is GridHeaderItem Then
Dim headerItem As GridHeaderItem = e.Item
headerItem.Style("font-size") = "8pt"
headerItem.Style("color") = "white"
headerItem.Style("background-color") = "gray"
headerItem.Style("vertical-align") = "bottom"
For Each cell As TableCell In headerItem.Cells
cell.Style("text-align") = "left"
cell.Style("font-weight") = "bold"
cell.Style("border-color") = "red"
Next
ElseIf TypeOf (e.Item) Is GridDataItem Then
Dim bodyItem As GridDataItem = e.Item
bodyItem.Style("font-size") = "8pt"
bodyItem.Style("vertical-align") = "bottom"
For Each cell As TableCell In bodyItem.Cells
cell.Style("text-align") = "left"
Next
End If
End If
End Sub
<
telerik:RadGrid
ID
=
"ReportGrid"
runat
=
"server"
Height
=
"99%"
AllowPaging
=
"True"
GridLines
=
"None"
PageSize
=
"50"
AllowSorting
=
"True"
AllowFilteringByColumn
=
"false"
AllowMultiRowSelection
=
"true"
AutoGenerateColumns
=
"false"
>
<
ClientSettings
AllowColumnsReorder
=
"true"
>
<
Scrolling
AllowScroll
=
"true"
UseStaticHeaders
=
"true"
/>
<
Selecting
AllowRowSelect
=
"true"
/>
<
Resizing
AllowColumnResize
=
"true"
AllowResizeToFit
=
"false"
ClipCellContentOnResize
=
"true"
ResizeGridOnColumnResize
=
"true"
EnableRealTimeResize
=
"false"
/>
<
ClientEvents
OnRowDeselected
=
"ReportGrid_OnRowDeselected"
OnRowSelected
=
"ReportGrid_OnRowSelected"
/>
</
ClientSettings
>
<
MasterTableView
>
<
Columns
>
<
telerik:GridClientSelectColumn
UniqueName
=
"SelectCheckbox"
HeaderStyle-Width
=
"30"
/>
<
telerik:GridButtonColumn
DataTextField
=
"FullFileName"
CommandName
=
"View"
ButtonType
=
"ImageButton"
UniqueName
=
"ViewButton"
ImageUrl
=
"/Images/preview.png"
HeaderStyle-Width
=
"30"
/>
<
telerik:GridBoundColumn
DataField
=
"DocArchiveSysKey"
DataType
=
"System.String"
HeaderText
=
"DocArchiveSysKey"
SortExpression
=
"DocArchiveSysKey"
UniqueName
=
"DocArchiveSysKey"
/>
<
telerik:GridBoundColumn
DataField
=
"Division"
DataType
=
"System.String"
HeaderText
=
"Division"
SortExpression
=
"Division"
UniqueName
=
"Division"
/>
<
telerik:GridBoundColumn
DataField
=
"Route"
DataType
=
"System.String"
HeaderText
=
"Route"
SortExpression
=
"Route"
UniqueName
=
"Route"
/>
<
telerik:GridBoundColumn
DataField
=
"Outlet"
DataType
=
"System.String"
HeaderText
=
"Outlet"
SortExpression
=
"Outlet"
UniqueName
=
"Outlet"
/>
<
telerik:GridBoundColumn
DataField
=
"OutletName"
DataType
=
"System.String"
HeaderText
=
"OutletName"
SortExpression
=
"OutletName"
UniqueName
=
"OutletName"
/>
<
telerik:GridBoundColumn
DataField
=
"DocType"
DataType
=
"System.String"
HeaderText
=
"DocType"
SortExpression
=
"DocType"
UniqueName
=
"DocType"
/>
<
telerik:GridBoundColumn
DataField
=
"DisplayDocType"
DataType
=
"System.String"
HeaderText
=
"DisplayDocType"
SortExpression
=
"DisplayDocType"
UniqueName
=
"DisplayDocType"
/>
<
telerik:GridBoundColumn
DataField
=
"DocID"
DataType
=
"System.String"
HeaderText
=
"DocID"
SortExpression
=
"DocID"
UniqueName
=
"DocID"
/>
<
telerik:GridBoundColumn
DataField
=
"DisplayDocDate"
DataType
=
"System.String"
HeaderText
=
"DisplayDocDate Date"
SortExpression
=
"DisplayDocDate"
UniqueName
=
"DisplayDocDate"
/>
<
telerik:GridBoundColumn
DataField
=
"FileName"
DataType
=
"System.String"
HeaderText
=
"FileName"
SortExpression
=
"FileName"
UniqueName
=
"FileName"
/>
<
telerik:GridBoundColumn
DataField
=
"FullFileName"
DataType
=
"System.String"
HeaderText
=
"FullFileName"
SortExpression
=
"FullFileName"
UniqueName
=
"FullFileName"
/>
<
telerik:GridBoundColumn
DataField
=
"DisplaySettlementDate"
DataType
=
"System.DateTime"
HeaderText
=
"DisplaySettlementDate"
SortExpression
=
"DisplaySettlementDate"
UniqueName
=
"DisplaySettlementDate"
/>
<
telerik:GridBoundColumn
DataField
=
"RC2Code"
DataType
=
"System.String"
HeaderText
=
"RC2Code"
SortExpression
=
"RC2Code"
UniqueName
=
"RC2Code"
/>
<
telerik:GridBoundColumn
DataField
=
"RC3Code"
DataType
=
"System.String"
HeaderText
=
"RC3Code"
SortExpression
=
"RC3Code"
UniqueName
=
"RC3Code"
/>
<
telerik:GridBoundColumn
DataField
=
"RC4Code"
DataType
=
"System.String"
HeaderText
=
"RC4Code"
SortExpression
=
"RC4Code"
UniqueName
=
"RC4Code"
/>
<
telerik:GridBoundColumn
DataField
=
"RC5Code"
DataType
=
"System.String"
HeaderText
=
"RC5Code"
SortExpression
=
"RC5Code"
UniqueName
=
"RC5Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA1Code"
DataType
=
"System.String"
HeaderText
=
"EA1Code"
SortExpression
=
"EA1Code"
UniqueName
=
"EA1Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA2Code"
DataType
=
"System.String"
HeaderText
=
"EA2Code"
SortExpression
=
"EA2Code"
UniqueName
=
"EA2Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA3Code"
DataType
=
"System.String"
HeaderText
=
"EA3Code"
SortExpression
=
"EA3Code"
UniqueName
=
"EA3Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA4Code"
DataType
=
"System.String"
HeaderText
=
"EA4Code"
SortExpression
=
"EA4Code"
UniqueName
=
"EA4Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA5Code"
DataType
=
"System.String"
HeaderText
=
"EA5Code"
SortExpression
=
"EA5Code"
UniqueName
=
"EA5Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA6Code"
DataType
=
"System.String"
HeaderText
=
"EA6Code"
SortExpression
=
"EA6Code"
UniqueName
=
"EA6Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA7Code"
DataType
=
"System.String"
HeaderText
=
"EA7Code"
SortExpression
=
"EA7Code"
UniqueName
=
"EA7Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA8Code"
DataType
=
"System.String"
HeaderText
=
"EA8Code"
SortExpression
=
"EA8Code"
UniqueName
=
"EA8Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA9Code"
DataType
=
"System.String"
HeaderText
=
"EA9Code"
SortExpression
=
"EA9Code"
UniqueName
=
"EA9Code"
/>
<
telerik:GridBoundColumn
DataField
=
"EA10Code"
DataType
=
"System.String"
HeaderText
=
"EA10Code"
SortExpression
=
"EA10Code"
UniqueName
=
"EA10Code"
/>
</
Columns
>
</
MasterTableView
>
<
ExportSettings
HideStructureColumns
=
"true"
ExportOnlyData
=
"true"
IgnorePaging
=
"true"
OpenInNewWindow
=
"true"
>
<
Pdf
PageWidth
=
"11in"
PageHeight
=
"8.5in"
PageLeftMargin
=
".5in"
PageRightMargin
=
".5in"
PageTopMargin
=
".5in"
PageBottomMargin
=
".5in"
AllowCopy
=
"true"
AllowModify
=
"true"
AllowPrinting
=
"true"
/>
</
ExportSettings
>
</
telerik:RadGrid
>
Hello. I have a simple page containing a text box and a rad grid. I have attached a delete button on the grid row has a confirm text displayed on click of the btn.
The problem I am having is: If I have the cursor on the text box and I hit enter, its invoking the rad grid delete event, strating with delete confirm prompt. I do not want this to happen. I need to hook the enter key to some other events. And this is happening only on Mozilla. rest of the browsers do not invoke the delete event.
Any clues/fixes for this behaviour. Appreciate your help. thanks
code below:
<
asp:textbox
id
=
"txtMLSNumber"
runat
=
"server"
Width
=
"110px"
></
asp:textbox
>
<
telerik:RadGrid
ID
=
"grdPartials"
DataSourceID
=
"ObjectDataSource1"
CssClass
=
"RemoveBorders"
Skin
=
"Outlook"
runat
=
"server"
GridLines
=
"None"
AutoGenerateColumns
=
"False"
Width
=
"690px"
height
=
"196px"
>
<
AlternatingItemStyle
BackColor
=
"#DDECFE"
/>
<
MasterTableView
datasourceid
=
"ObjectDataSource1"
GridLines
=
none
AllowAutomaticDeletes
=
"true"
EnableNoRecordsTemplate
=
true
DataKeyNames
=
"PartialId,PropType"
>
<
CommandItemSettings
ExportToPdfText
=
"Export to Pdf"
></
CommandItemSettings
>
<
RowIndicatorColumn
>
<
HeaderStyle
Width
=
"20px"
></
HeaderStyle
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
>
<
HeaderStyle
Width
=
"20px"
></
HeaderStyle
>
</
ExpandCollapseColumn
>
<
Columns
>
<
telerik:GridHyperLinkColumn
HeaderText
=
""
ItemStyle-HorizontalAlign
=
"Left"
Text
=
"Edit"
UniqueName
=
"lnkEdit"
HeaderStyle-Font-Bold
=
"false"
HeaderStyle-Wrap
=
"false"
HeaderStyle-Width
=
"40px"
>
</
telerik:GridHyperLinkColumn
>
<
telerik:GridBoundColumn
DataField
=
"PartialId"
Visible
=
true
HeaderText
=
"Partial Id"
ItemStyle-Width
=
"100px"
HeaderStyle-Width
=
"100px"
ItemStyle-Wrap
=
false
HeaderStyle-Wrap
=
"false"
MaxLength
=
"0"
UniqueName
=
"PartialId"
>
<
HeaderStyle
Wrap
=
"False"
></
HeaderStyle
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"StreetNumber"
HeaderText
=
"Street Number"
ItemStyle-Width
=
"100px"
HeaderStyle-Width
=
"100px"
ItemStyle-Wrap
=
false
HeaderStyle-Wrap
=
"false"
UniqueName
=
"StreetNumber"
>
<
HeaderStyle
Wrap
=
"False"
></
HeaderStyle
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"StreetName"
HeaderText
=
"Street Name"
ItemStyle-Width
=
"100px"
HeaderStyle-Width
=
"100px"
ItemStyle-Wrap
=
false
HeaderStyle-Wrap
=
"false"
UniqueName
=
"StreetName"
>
<
HeaderStyle
Wrap
=
"False"
></
HeaderStyle
>
<
ItemStyle
Wrap
=
"False"
></
ItemStyle
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"City"
HeaderText
=
"City"
UniqueName
=
"City"
DataFormatString="<nobr>{0}</
nobr
>" ItemStyle-Width="100px" HeaderStyle-Width="100px" ItemStyle-Wrap=false HeaderStyle-Wrap="false">
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"PropType"
HeaderText
=
"Prop Type"
ItemStyle-Width
=
"100px"
HeaderStyle-Width
=
"100px"
ItemStyle-Wrap
=
false
HeaderStyle-Wrap
=
"false"
UniqueName
=
"PropType"
>
<
HeaderStyle
Wrap
=
"False"
></
HeaderStyle
>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"CreateDate"
HeaderText
=
"Create Date"
DataFormatString
=
"{0:MM/dd/yyyy}"
ItemStyle-Width
=
"100px"
HeaderStyle-Width
=
"100px"
ItemStyle-Wrap
=
false
HeaderStyle-Wrap
=
"false"
UniqueName
=
"CreateDate"
>
</
telerik:GridBoundColumn
>
<
telerik:GridButtonColumn
ConfirmText
=
"Delete this record?"
ConfirmDialogType
=
"RadWindow"
ConfirmTitle
=
"Delete"
ButtonType
=
"ImageButton"
CommandName
=
"Delete"
Text
=
"Delete"
UniqueName
=
"DeleteColumn"
>
<
ItemStyle
HorizontalAlign
=
"Center"
CssClass
=
"MyImageButton"
/>
</
telerik:GridButtonColumn
>
</
Columns
>
<
NoRecordsTemplate
>
<
div
style
=
"text-align:center;padding-top:70px;font-size:medium"
>No Partial Listings Found!!!</
div
>
<
br
/>
</
NoRecordsTemplate
>
</
MasterTableView
>
<
SelectedItemStyle
/>
<
HeaderStyle
BackColor
=
"#D6E7FC"
/>
<
ClientSettings
Scrolling-ScrollHeight
=
200
>
<
Selecting
AllowRowSelect
=
"True"
/>
<
Scrolling
AllowScroll
=
true
UseStaticHeaders
=
true
/>
<
Resizing
AllowColumnResize
=
"True"
AllowRowResize
=
"false"
/>
</
ClientSettings
>
<
ActiveItemStyle
BackColor
=
"#CC0099"
/>
</
telerik:RadGrid
>
<
asp:ObjectDataSource
ID
=
"ObjectDataSource1"
runat
=
"server"
SelectMethod
=
"GetPartials"
TypeName
=
"Partials"
DeleteMethod
=
"DeletePartials"
>
<
DeleteParameters
>
<
asp:Parameter
Name
=
"PartialId"
Type
=
"String"
/>
<
asp:Parameter
Name
=
"PropType"
Type
=
"String"
/>
</
DeleteParameters
>
</
asp:ObjectDataSource
>