I wrote a page that opens a pop-up user control to insert an order item from a large grid of items
the grid is Linq to SQL
I am using VS2010 / .NET 4.0
after the insert the pop-up doesn't automatically close
maybe because I'm inserting into another database?
the grid of the calling program
<%@ Page Title="" Language="VB" MasterPageFile="~/Brunswick.master" AutoEventWireup="false" CodeFile="Items.aspx.vb" Inherits="Items" %>
<asp:Content ID="cntHead" ContentPlaceHolderID="cpHead" Runat="Server">
<title>Brunswick Online Orders - Items</title>
<link href="Brunswick.css" rel="Stylesheet" />
</asp:Content>
<asp:Content ID="cntBody" ContentPlaceHolderID="cpHolder" Runat="Server">
<telerik:RadScriptManager ID="rsManager" runat="server" />
<telerik:RadCodeBlock ID="rcBlock" runat="server">
<script type="text/javascript">
function RowDblClick(sender, eventArgs) {
sender.get_masterTableView().editItem(eventArgs.get_itemIndexHierarchical());
}
function doFilter(sender,e) {
var masterTable = $find("<%= rgItems.ClientID %>").get_masterTableView();
masterTable.filter(sender, sender.value, Telerik.Web.UI.GridFilterFunction.StartsWith, true);
}
</script>
</telerik:RadCodeBlock>
<telerik:RadAjaxManager ID="raManager" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="rgItems">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="rgItems" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center">
<asp:Label ID="lblShowName" runat="server" />
<asp:HiddenField ID="hdnDivisionID" runat="server" />
</td>
<td colspan="2" align="center">
<asp:Button ID="btnReturn" Text="Return To Order" runat="server" />
</td>
</tr>
<tr>
<td>Dealer Number</td>
<td>
<asp:Label ID="lblDealerNumber" runat="server" />
</td>
<td>Dealer Name</td>
<td>
<asp:Label ID="lblDealerName" runat="server" />
<asp:HiddenField ID="hdnOrderID" runat="server" />
</td>
</tr>
<tr>
<td colspan="4">
<telerik:RadGrid ID="rgItems" AutoGenerateColumns="False" AllowPaging="True"
runat="server" AllowFilteringByColumn="True" AllowSorting="True" GridLines="None">
<GroupingSettings CaseSensitive="false" />
<ClientSettings>
<Scrolling AllowScroll="True" UseStaticHeaders="True"/>
</ClientSettings>
<MasterTableView DataKeyNames="ItemID" EditMode="PopUp">
<Columns>
<telerik:GridBoundColumn UniqueName="ItemID" DataField="ItemID" Visible="False">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn UniqueName="LNSPartNo" DataField="LNSPartNo" HeaderText="LNS Part No" HeaderStyle-Width="80px">
</telerik:GridBoundColumn>
more columns here
<telerik:GridBoundColumn UniqueName="ShowTenTerms" DataField="ShowTenTerms" HeaderText="Show Dat Terms" HeaderStyle-Width="60px" DataFormatString="{0:$###,###.##}" ShowFilterIcon="false">
</telerik:GridBoundColumn>
</Columns>
<EditFormSettings UserControlName="OrderItem.ascx" EditFormType="WebUserControl">
</EditFormSettings>
</MasterTableView>
<ClientSettings>
<ClientEvents OnRowDblClick="RowDblClick" />
</ClientSettings>
</telerik:RadGrid>
</td>
</tr>
</table>
</asp:Content>
and it's code behind
Imports Telerik.Web.UI
Imports System.Data
Partial Class Items
Inherits System.Web.UI.Page
Enum CostSource As Integer
SpringDatingInvPrice = 1
SpringDatingNetTerms = 2
ShowOnlyInvPrice = 3
ShowOnlyNetTerms = 4
UserSpecified = 5
Unspecified_Unknown = 6
End Enum
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim OrderID, DivisionID As Integer
Dim ws As CommonFunctions
If Page.IsPostBack Then
Else
SaveQueryStringVariables()
OrderID = CInt(hdnOrderID.Value)
DivisionID = CInt(hdnDivisionID.Value)
ws = New CommonFunctions
rgItems.DataSource = ws.GetItems(DivisionID)
rgItems.DataBind()
End If
ws = Nothing
End Sub
Private Sub SaveQueryStringVariables()
Dim OrderID, DivisionID As Integer
Dim ds As DataSet = Nothing
Dim dr As DataRow = Nothing
Dim ShowAbbreviation, ShowName, DealerName As String
Dim DealerNumber As Int64 = 0
Dim sb As StringBuilder = Nothing
Dim ws As CommonFunctions
ws = New CommonFunctions
If Request.QueryString("OrderID") Is Nothing Then
Exit Sub
End If
OrderID = Request.QueryString("OrderID")
hdnOrderID.Value = OrderID
ds = ws.GetOrderInformation(OrderID)
If ds.Tables.Count < 1 Then
ElseIf ds.Tables(0).Rows.Count > 0 Then
dr = ds.Tables(0).Rows(0)
End If
DivisionID = CInt(dr("DivisionID"))
hdnDivisionID.Value = DivisionID
ShowAbbreviation = CStr(dr("ShowAbbreviation"))
sb = New StringBuilder(ShowAbbreviation)
sb.Append(" - ")
sb.Append(CStr(dr("ShowName")))
ShowName = sb.ToString
lblShowName.Text = ShowName
DealerNumber = CType(dr("DealerNumber"), Int64)
lblDealerNumber.Text = CStr(DealerNumber)
DealerName = CStr(dr("DealerName"))
lblDealerName.Text = DealerName
End Sub
Protected Sub rgItems_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles rgItems.ItemDataBound
Dim OrderControl As UserControl = Nothing
Dim hDivisionID, hDealerNumber As HiddenField
If TypeOf e.Item Is GridEditFormItem _
AndAlso e.Item.IsInEditMode Then
OrderControl = CType(e.Item.FindControl(GridEditFormItem.EditFormUserControlID), UserControl)
hDivisionID = DirectCast(OrderControl.FindControl("hdnDivisionID"), HiddenField)
hDivisionID.Value = hdnDivisionID.Value
hDealerNumber = DirectCast(OrderControl.FindControl("HdnDealerNumber"), HiddenField)
hDealerNumber.Value = lblDealerNumber.Text
End If
End Sub
Protected Sub rgItems_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles rgItems.NeedDataSource
Dim DivisionID As Integer
Dim ws As New CommonFunctions
DivisionID = CInt(hdnDivisionID.Value)
rgItems.DataSource = ws.GetItems(DivisionID)
ws = Nothing
End Sub
Protected Sub btnReturn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReturn.Click
Dim OrderID As Integer
Dim sb As StringBuilder = Nothing
OrderID = CInt(hdnOrderID.Value)
sb = New StringBuilder("OrderItems.aspx")
sb.Append("?OrderID=")
sb.Append(OrderID.ToString)
Response.Redirect(sb.ToString)
End Sub
End Class
the user control
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="OrderItem.ascx.vb" Inherits="OrderItem" %>
<table border="1" cellpadding="1" cellspacing="1" style="background-color:#FFCC99;">
<tr>
<td>
<asp:HiddenField ID="hdnDivisionID" runat="server" />
</td>
<td>
<asp:HiddenField ID="hdnDealerNumber" runat="server" />
</td>
</tr>
<tr>
<td>ItemID</td>
<td>
<asp:Label ID="lblItemID" Text='<%# DataBinder.Eval( Container, "DataItem.ItemID") %>' runat="server" />
</td>
</tr>
<tr>
<td>LNS Part Number</td>
<td>
<asp:Label ID="lblLNSPartNo" Text='<%# DataBinder.Eval( Container, "DataItem.LNSPartNo") %>' runat="server" />
</td>
</tr>
<tr>
<td>KMS Part Number</td>
<td>
<asp:Label ID="lblKMSPartNo" Text='<%# DataBinder.Eval( Container, "DataItem.KMSPartNo") %>' runat="server" />
</td>
</tr>
<tr>
<td>Description</td>
<td>
<asp:Label ID="lblDescription" Text='<%# DataBinder.Eval(Container, "DataItem.Description") %>' runat="server" />
</td>
</tr>
<tr>
<td>Net Cost</td>
<td>
<telerik:RadNumericTextBox ID="rntbNetCost" runat="server">
</telerik:RadNumericTextBox>
</td>
</tr>
<tr>
<td>Cost Source</td>
<td>
<asp:Label ID="lblCostSource" runat="server" />
<asp:HiddenField ID="hdnCostSource" runat="server" />
<asp:HiddenField ID="hdnNetCost" runat="server" />
</td>
</tr>
<tr>
<td>Quantity</td>
<td>
<telerik:RadNumericTextBox ID="rntbQuantity" DataType="System.Integer" NumberFormat-DecimalDigits="0" runat="server">
</telerik:RadNumericTextBox>
<asp:RequiredFieldValidator ID="rfvQuantity" ControlToValidate="rntbQuantity" ErrorMessage="Quantity Required" runat="server" />
</td>
</tr>
<tr>
<td>
<asp:Button ID="btnAddtoOrder" Text="Add to Order" CommandName="AddtoOrder" runat="server" />
</td>
<td align="right">
<asp:Button ID="btnCancel" Text="Cancel" CommandName="Cancel" CausesValidation="false" runat="server" />
</td>
</tr>
</table>
and its code behind
Imports System.Data
Partial Class OrderItem
Inherits System.Web.UI.UserControl
Private _dataItem As Object
Public Property DataItem() As Object
Get
Return Me._dataItem
End Get
Set(ByVal value As Object)
Me._dataItem = value
End Set
End Property
Protected Sub Page_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DataBinding
Dim dItem As Object = DataItem
Dim SpringInvPrice, SpringTenTerms, ShowInvPrice, ShowTenTerms, NetCost As Double
SpringInvPrice = CType(DataBinder.Eval(DataItem, "SpringInvPrice"), Double)
SpringTenTerms = CType(DataBinder.Eval(DataItem, "SpringTenTerms"), Double)
ShowInvPrice = CType(DataBinder.Eval(DataItem, "ShowInvPrice"), Double)
ShowTenTerms = CType(DataBinder.Eval(DataItem, "ShowTenTerms"), Double)
If ShowTenTerms > 0 Then
NetCost = ShowTenTerms
hdnCostSource.Value = 4
lblCostSource.Text = "Show Only Net Terms"
ElseIf ShowInvPrice > 0 Then
NetCost = ShowInvPrice
hdnCostSource.Value = 3
lblCostSource.Text = "Show Only Net Invoice"
ElseIf SpringTenTerms > 0 Then
NetCost = SpringTenTerms
hdnCostSource.Value = 2
lblCostSource.Text = "Spring Dating Net Terms"
ElseIf SpringTenTerms > 0 Then
NetCost = SpringInvPrice
hdnCostSource.Value = 1
lblCostSource.Text = "Spring Dating Net Invoice"
Else
NetCost = 0
hdnCostSource.Value = 6
lblCostSource.Text = "Unknown/Unspecified"
End If
rntbNetCost.Value = NetCost
hdnNetCost.Value = NetCost
End Sub
Protected Sub btnAddtoOrder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddtoOrder.Click
Dim OrderID, DivisionID, ItemID, Qty, OrderItemID, CostSource As Integer
Dim DealerNumber As Int64
Dim LNSPartNo, KMSPartNo As String
Dim NetCost As Double = 0
If Page.IsValid Then
Else
Exit Sub
End If
DivisionID = CInt(hdnDivisionID.Value)
DealerNumber = CType(hdnDealerNumber.Value, Int64)
Dim ws As New CommonFunctions
OrderID = ws.GetOrderID(DealerNumber, DivisionID)
ItemID = CInt(lblItemID.Text)
LNSPartNo = CStr(lblLNSPartNo.Text.Trim())
KMSPartNo = CStr(lblKMSPartNo.Text.Trim())
Qty = rntbQuantity.Value
NetCost = rntbNetCost.Value
If NetCost = CType(hdnNetCost.Value, Double) Then
CostSource = CInt(hdnCostSource.Value)
Else
CostSource = 5
End If
OrderItemID = ws.InsertOrderItem(OrderID, ItemID, String.Empty, Qty, _
NetCost, CostSource)
ws = Nothing
End Sub
End Class
how do I get the user control to close when it's done adding an item to the order?
the grid is Linq to SQL
I am using VS2010 / .NET 4.0
after the insert the pop-up doesn't automatically close
maybe because I'm inserting into another database?
the grid of the calling program
<%@ Page Title="" Language="VB" MasterPageFile="~/Brunswick.master" AutoEventWireup="false" CodeFile="Items.aspx.vb" Inherits="Items" %>
<asp:Content ID="cntHead" ContentPlaceHolderID="cpHead" Runat="Server">
<title>Brunswick Online Orders - Items</title>
<link href="Brunswick.css" rel="Stylesheet" />
</asp:Content>
<asp:Content ID="cntBody" ContentPlaceHolderID="cpHolder" Runat="Server">
<telerik:RadScriptManager ID="rsManager" runat="server" />
<telerik:RadCodeBlock ID="rcBlock" runat="server">
<script type="text/javascript">
function RowDblClick(sender, eventArgs) {
sender.get_masterTableView().editItem(eventArgs.get_itemIndexHierarchical());
}
function doFilter(sender,e) {
var masterTable = $find("<%= rgItems.ClientID %>").get_masterTableView();
masterTable.filter(sender, sender.value, Telerik.Web.UI.GridFilterFunction.StartsWith, true);
}
</script>
</telerik:RadCodeBlock>
<telerik:RadAjaxManager ID="raManager" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="rgItems">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="rgItems" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center">
<asp:Label ID="lblShowName" runat="server" />
<asp:HiddenField ID="hdnDivisionID" runat="server" />
</td>
<td colspan="2" align="center">
<asp:Button ID="btnReturn" Text="Return To Order" runat="server" />
</td>
</tr>
<tr>
<td>Dealer Number</td>
<td>
<asp:Label ID="lblDealerNumber" runat="server" />
</td>
<td>Dealer Name</td>
<td>
<asp:Label ID="lblDealerName" runat="server" />
<asp:HiddenField ID="hdnOrderID" runat="server" />
</td>
</tr>
<tr>
<td colspan="4">
<telerik:RadGrid ID="rgItems" AutoGenerateColumns="False" AllowPaging="True"
runat="server" AllowFilteringByColumn="True" AllowSorting="True" GridLines="None">
<GroupingSettings CaseSensitive="false" />
<ClientSettings>
<Scrolling AllowScroll="True" UseStaticHeaders="True"/>
</ClientSettings>
<MasterTableView DataKeyNames="ItemID" EditMode="PopUp">
<Columns>
<telerik:GridBoundColumn UniqueName="ItemID" DataField="ItemID" Visible="False">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn UniqueName="LNSPartNo" DataField="LNSPartNo" HeaderText="LNS Part No" HeaderStyle-Width="80px">
</telerik:GridBoundColumn>
more columns here
<telerik:GridBoundColumn UniqueName="ShowTenTerms" DataField="ShowTenTerms" HeaderText="Show Dat Terms" HeaderStyle-Width="60px" DataFormatString="{0:$###,###.##}" ShowFilterIcon="false">
</telerik:GridBoundColumn>
</Columns>
<EditFormSettings UserControlName="OrderItem.ascx" EditFormType="WebUserControl">
</EditFormSettings>
</MasterTableView>
<ClientSettings>
<ClientEvents OnRowDblClick="RowDblClick" />
</ClientSettings>
</telerik:RadGrid>
</td>
</tr>
</table>
</asp:Content>
and it's code behind
Imports Telerik.Web.UI
Imports System.Data
Partial Class Items
Inherits System.Web.UI.Page
Enum CostSource As Integer
SpringDatingInvPrice = 1
SpringDatingNetTerms = 2
ShowOnlyInvPrice = 3
ShowOnlyNetTerms = 4
UserSpecified = 5
Unspecified_Unknown = 6
End Enum
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim OrderID, DivisionID As Integer
Dim ws As CommonFunctions
If Page.IsPostBack Then
Else
SaveQueryStringVariables()
OrderID = CInt(hdnOrderID.Value)
DivisionID = CInt(hdnDivisionID.Value)
ws = New CommonFunctions
rgItems.DataSource = ws.GetItems(DivisionID)
rgItems.DataBind()
End If
ws = Nothing
End Sub
Private Sub SaveQueryStringVariables()
Dim OrderID, DivisionID As Integer
Dim ds As DataSet = Nothing
Dim dr As DataRow = Nothing
Dim ShowAbbreviation, ShowName, DealerName As String
Dim DealerNumber As Int64 = 0
Dim sb As StringBuilder = Nothing
Dim ws As CommonFunctions
ws = New CommonFunctions
If Request.QueryString("OrderID") Is Nothing Then
Exit Sub
End If
OrderID = Request.QueryString("OrderID")
hdnOrderID.Value = OrderID
ds = ws.GetOrderInformation(OrderID)
If ds.Tables.Count < 1 Then
ElseIf ds.Tables(0).Rows.Count > 0 Then
dr = ds.Tables(0).Rows(0)
End If
DivisionID = CInt(dr("DivisionID"))
hdnDivisionID.Value = DivisionID
ShowAbbreviation = CStr(dr("ShowAbbreviation"))
sb = New StringBuilder(ShowAbbreviation)
sb.Append(" - ")
sb.Append(CStr(dr("ShowName")))
ShowName = sb.ToString
lblShowName.Text = ShowName
DealerNumber = CType(dr("DealerNumber"), Int64)
lblDealerNumber.Text = CStr(DealerNumber)
DealerName = CStr(dr("DealerName"))
lblDealerName.Text = DealerName
End Sub
Protected Sub rgItems_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles rgItems.ItemDataBound
Dim OrderControl As UserControl = Nothing
Dim hDivisionID, hDealerNumber As HiddenField
If TypeOf e.Item Is GridEditFormItem _
AndAlso e.Item.IsInEditMode Then
OrderControl = CType(e.Item.FindControl(GridEditFormItem.EditFormUserControlID), UserControl)
hDivisionID = DirectCast(OrderControl.FindControl("hdnDivisionID"), HiddenField)
hDivisionID.Value = hdnDivisionID.Value
hDealerNumber = DirectCast(OrderControl.FindControl("HdnDealerNumber"), HiddenField)
hDealerNumber.Value = lblDealerNumber.Text
End If
End Sub
Protected Sub rgItems_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles rgItems.NeedDataSource
Dim DivisionID As Integer
Dim ws As New CommonFunctions
DivisionID = CInt(hdnDivisionID.Value)
rgItems.DataSource = ws.GetItems(DivisionID)
ws = Nothing
End Sub
Protected Sub btnReturn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReturn.Click
Dim OrderID As Integer
Dim sb As StringBuilder = Nothing
OrderID = CInt(hdnOrderID.Value)
sb = New StringBuilder("OrderItems.aspx")
sb.Append("?OrderID=")
sb.Append(OrderID.ToString)
Response.Redirect(sb.ToString)
End Sub
End Class
the user control
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="OrderItem.ascx.vb" Inherits="OrderItem" %>
<table border="1" cellpadding="1" cellspacing="1" style="background-color:#FFCC99;">
<tr>
<td>
<asp:HiddenField ID="hdnDivisionID" runat="server" />
</td>
<td>
<asp:HiddenField ID="hdnDealerNumber" runat="server" />
</td>
</tr>
<tr>
<td>ItemID</td>
<td>
<asp:Label ID="lblItemID" Text='<%# DataBinder.Eval( Container, "DataItem.ItemID") %>' runat="server" />
</td>
</tr>
<tr>
<td>LNS Part Number</td>
<td>
<asp:Label ID="lblLNSPartNo" Text='<%# DataBinder.Eval( Container, "DataItem.LNSPartNo") %>' runat="server" />
</td>
</tr>
<tr>
<td>KMS Part Number</td>
<td>
<asp:Label ID="lblKMSPartNo" Text='<%# DataBinder.Eval( Container, "DataItem.KMSPartNo") %>' runat="server" />
</td>
</tr>
<tr>
<td>Description</td>
<td>
<asp:Label ID="lblDescription" Text='<%# DataBinder.Eval(Container, "DataItem.Description") %>' runat="server" />
</td>
</tr>
<tr>
<td>Net Cost</td>
<td>
<telerik:RadNumericTextBox ID="rntbNetCost" runat="server">
</telerik:RadNumericTextBox>
</td>
</tr>
<tr>
<td>Cost Source</td>
<td>
<asp:Label ID="lblCostSource" runat="server" />
<asp:HiddenField ID="hdnCostSource" runat="server" />
<asp:HiddenField ID="hdnNetCost" runat="server" />
</td>
</tr>
<tr>
<td>Quantity</td>
<td>
<telerik:RadNumericTextBox ID="rntbQuantity" DataType="System.Integer" NumberFormat-DecimalDigits="0" runat="server">
</telerik:RadNumericTextBox>
<asp:RequiredFieldValidator ID="rfvQuantity" ControlToValidate="rntbQuantity" ErrorMessage="Quantity Required" runat="server" />
</td>
</tr>
<tr>
<td>
<asp:Button ID="btnAddtoOrder" Text="Add to Order" CommandName="AddtoOrder" runat="server" />
</td>
<td align="right">
<asp:Button ID="btnCancel" Text="Cancel" CommandName="Cancel" CausesValidation="false" runat="server" />
</td>
</tr>
</table>
and its code behind
Imports System.Data
Partial Class OrderItem
Inherits System.Web.UI.UserControl
Private _dataItem As Object
Public Property DataItem() As Object
Get
Return Me._dataItem
End Get
Set(ByVal value As Object)
Me._dataItem = value
End Set
End Property
Protected Sub Page_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DataBinding
Dim dItem As Object = DataItem
Dim SpringInvPrice, SpringTenTerms, ShowInvPrice, ShowTenTerms, NetCost As Double
SpringInvPrice = CType(DataBinder.Eval(DataItem, "SpringInvPrice"), Double)
SpringTenTerms = CType(DataBinder.Eval(DataItem, "SpringTenTerms"), Double)
ShowInvPrice = CType(DataBinder.Eval(DataItem, "ShowInvPrice"), Double)
ShowTenTerms = CType(DataBinder.Eval(DataItem, "ShowTenTerms"), Double)
If ShowTenTerms > 0 Then
NetCost = ShowTenTerms
hdnCostSource.Value = 4
lblCostSource.Text = "Show Only Net Terms"
ElseIf ShowInvPrice > 0 Then
NetCost = ShowInvPrice
hdnCostSource.Value = 3
lblCostSource.Text = "Show Only Net Invoice"
ElseIf SpringTenTerms > 0 Then
NetCost = SpringTenTerms
hdnCostSource.Value = 2
lblCostSource.Text = "Spring Dating Net Terms"
ElseIf SpringTenTerms > 0 Then
NetCost = SpringInvPrice
hdnCostSource.Value = 1
lblCostSource.Text = "Spring Dating Net Invoice"
Else
NetCost = 0
hdnCostSource.Value = 6
lblCostSource.Text = "Unknown/Unspecified"
End If
rntbNetCost.Value = NetCost
hdnNetCost.Value = NetCost
End Sub
Protected Sub btnAddtoOrder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddtoOrder.Click
Dim OrderID, DivisionID, ItemID, Qty, OrderItemID, CostSource As Integer
Dim DealerNumber As Int64
Dim LNSPartNo, KMSPartNo As String
Dim NetCost As Double = 0
If Page.IsValid Then
Else
Exit Sub
End If
DivisionID = CInt(hdnDivisionID.Value)
DealerNumber = CType(hdnDealerNumber.Value, Int64)
Dim ws As New CommonFunctions
OrderID = ws.GetOrderID(DealerNumber, DivisionID)
ItemID = CInt(lblItemID.Text)
LNSPartNo = CStr(lblLNSPartNo.Text.Trim())
KMSPartNo = CStr(lblKMSPartNo.Text.Trim())
Qty = rntbQuantity.Value
NetCost = rntbNetCost.Value
If NetCost = CType(hdnNetCost.Value, Double) Then
CostSource = CInt(hdnCostSource.Value)
Else
CostSource = 5
End If
OrderItemID = ws.InsertOrderItem(OrderID, ItemID, String.Empty, Qty, _
NetCost, CostSource)
ws = Nothing
End Sub
End Class
how do I get the user control to close when it's done adding an item to the order?