Imports BVSoftware.BVC.Core Public Class Users_Manufacturers_Edit Inherits BaseAdminPage #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Protected WithEvents valSummary As System.Web.UI.WebControls.ValidationSummary Protected WithEvents CompanyName As System.Web.UI.WebControls.TextBox Protected WithEvents EmailAddress As System.Web.UI.WebControls.TextBox Protected WithEvents btnCancel As System.Web.UI.WebControls.ImageButton Protected WithEvents btnCreateAccount As System.Web.UI.WebControls.ImageButton Protected WithEvents FirstFocus1 As MetaBuilders.WebControls.FirstFocus Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents AddressControl1 As AddressControl Protected WithEvents msg As BVSoftware.WebControls.WebPageMessage 'NOTE: The following placeholder declaration is required by the Web Form Designer. 'Do not delete or move it. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Page.IsPostBack Then MetaKeywordsControl.Content = WebAppSettings.MetaKeywords MetaDescriptionControl.Content = WebAppSettings.MetaDescription BVC2004Store.CheckThisPage(Security.RolePermission.LoginToAdmin) BVC2004Store.CheckThisPage(Security.RolePermission.AccessPeopleArea) End If If Not Page.IsPostBack Then Dim editID As Integer = 0 If Not Request("editID") Is Nothing Then editID = Request("editID") End If ViewState("EditID") = editID LoadManufacturer() End If End Sub Sub LoadManufacturer() Dim m As Contacts.Manufacturer = ContactServices.Manufacturers.GetManufacturer(ViewState("EditID")) If Not m Is Nothing Then Me.CompanyName.Text = m.DisplayName Me.EmailAddress.Text = m.EmailAddress AddressControl1.LoadFromAddress(m.Address) AddressControl1.ShowMiddleInitial = True AddressControl1.ShowCompanyName = True AddressControl1.ShowPhoneNumber = True AddressControl1.ShowFaxNumber = True AddressControl1.ShowWebSiteURL = True With AddressControl1() .RequireCompany = False .RequireFax = False .RequireFirstName = False .RequireLastName = False .RequirePhone = False .RequireWebSiteURL = False .RequireAddress = False .RequireCity = False .RequirePostalCode = False .RequireRegion = False End With End If m = Nothing End Sub Private Sub CancelButton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnCancel.Click Response.Redirect("people_Manufacturers.aspx", True) End Sub Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnCreateAccount.Click msg.Clear() Dim m As Contacts.Manufacturer = ContactServices.Manufacturers.GetManufacturer(ViewState("EditID")) If Not m Is Nothing Then m.DisplayName = Me.CompanyName.Text m.EmailAddress = Me.EmailAddress.Text Dim tempID As Integer = m.Address.ID m.Address = AddressControl1.GetAsAddress m.Address.ID = tempID If ContactServices.Manufacturers.Update(m) = True Then m = Nothing Response.Redirect("people_Manufacturers.aspx") Else m = Nothing msg.ShowError("Couldn't Save Manufacturer") End If End If End Sub End Class