Imports BVSoftware.BVC.Core Public Class Users_Vendors Inherits BaseAdminPage #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Protected WithEvents lnkA As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkB As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkC As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkD As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkE As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkF As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkG As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkH As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkI As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkJ As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkK As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkL As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkM As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkN As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkO As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkP As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkQ As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkR As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkS As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkT As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkU As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkV As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkW As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkX As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkY As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkZ As System.Web.UI.WebControls.HyperLink Protected WithEvents lnkAll As System.Web.UI.WebControls.HyperLink Protected WithEvents lblUsers As System.Web.UI.WebControls.Label Protected WithEvents AddUserButton As System.Web.UI.WebControls.ImageButton Protected WithEvents dgUsers As System.Web.UI.WebControls.DataGrid Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents lnkNumber As System.Web.UI.WebControls.HyperLink '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 BVC2004Store.CheckThisPage(Security.RolePermission.LoginToAdmin, Security.RolePermission.AccessPeopleArea) If Not Page.IsPostBack Then MetaKeywordsControl.Content = WebAppSettings.MetaKeywords MetaDescriptionControl.Content = WebAppSettings.MetaDescription End If ' Get alphabetical start and end if needed If Not Request.Params("StartCharacter") Is Nothing Then ViewState("StartCharacter") = Request.Params("StartCharacter") End If If Not Request.Params("EndCharacter") Is Nothing Then ViewState("EndCharacter") = Request.Params("EndCharacter") End If If Not Page.IsPostBack Then Bind() End If End Sub Sub Bind() If ViewState("StartCharacter") Is Nothing Then ViewState("StartCharacter") = "A" End If If ViewState("EndCharacter") Is Nothing Then ViewState("EndCharacter") = "ZZZZZZZZ" End If SetAlphabetStyles() Dim dtUsers As DataTable = ContactServices.Vendors.ListVendorsAlphabetical(ViewState("StartCharacter"), ViewState("EndCharacter")) lblUsers.Text = dtUsers.Rows.Count & " vendors found" dgUsers.DataSource = dtUsers dgUsers.DataBind() End Sub Sub SetAlphabetStyles() Dim counts() As Integer = ContactServices.Vendors.ListVendorsAlphabeticalCount If counts(0) > 0 Then lnkA.Enabled = True Else lnkA.Enabled = False End If If counts(1) > 0 Then lnkB.Enabled = True Else lnkB.Enabled = False End If If counts(2) > 0 Then lnkC.Enabled = True Else lnkC.Enabled = False End If If counts(3) > 0 Then lnkD.Enabled = True Else lnkD.Enabled = False End If If counts(4) > 0 Then lnkE.Enabled = True Else lnkE.Enabled = False End If If counts(5) > 0 Then lnkF.Enabled = True Else lnkF.Enabled = False End If If counts(6) > 0 Then lnkG.Enabled = True Else lnkG.Enabled = False End If If counts(7) > 0 Then lnkH.Enabled = True Else lnkH.Enabled = False End If If counts(8) > 0 Then lnkI.Enabled = True Else lnkI.Enabled = False End If If counts(9) > 0 Then lnkJ.Enabled = True Else lnkJ.Enabled = False End If If counts(10) > 0 Then lnkK.Enabled = True Else lnkK.Enabled = False End If If counts(11) > 0 Then lnkL.Enabled = True Else lnkL.Enabled = False End If If counts(12) > 0 Then lnkM.Enabled = True Else lnkM.Enabled = False End If If counts(13) > 0 Then lnkN.Enabled = True Else lnkN.Enabled = False End If If counts(14) > 0 Then lnkO.Enabled = True Else lnkO.Enabled = False End If If counts(15) > 0 Then lnkP.Enabled = True Else lnkP.Enabled = False End If If counts(16) > 0 Then lnkQ.Enabled = True Else lnkQ.Enabled = False End If If counts(17) > 0 Then lnkR.Enabled = True Else lnkR.Enabled = False End If If counts(18) > 0 Then lnkS.Enabled = True Else lnkS.Enabled = False End If If counts(19) > 0 Then lnkT.Enabled = True Else lnkT.Enabled = False End If If counts(20) > 0 Then lnkU.Enabled = True Else lnkU.Enabled = False End If If counts(21) > 0 Then lnkV.Enabled = True Else lnkV.Enabled = False End If If counts(22) > 0 Then lnkW.Enabled = True Else lnkW.Enabled = False End If If counts(23) > 0 Then lnkX.Enabled = True Else lnkX.Enabled = False End If If counts(24) > 0 Then lnkY.Enabled = True Else lnkY.Enabled = False End If If counts(25) > 0 Then lnkZ.Enabled = True Else lnkZ.Enabled = False End If If counts(26) > 0 Then lnkNumber.Enabled = True Else lnkNumber.Enabled = False End If End Sub Sub dgUsers_PageIndexChanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) Handles dgUsers.PageIndexChanged dgUsers.CurrentPageIndex = e.NewPageIndex Bind() End Sub Private Sub AddUserButton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles AddUserButton.Click Response.Redirect("people_Vendors_Create.aspx", True) End Sub Private Sub dgUsers_Edit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles dgUsers.EditCommand Dim editID As String = dgUsers.DataKeys(e.Item.ItemIndex) Response.Redirect("people_Vendors_Edit.aspx?editID=" & editID, True) End Sub Private Sub dgUsers_Sort(ByVal sender As Object, ByVal e As DataGridSortCommandEventArgs) Handles dgUsers.SortCommand ViewState("SortExpression") = e.SortExpression Bind() End Sub Private Sub dgUsers_Delete(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles dgUsers.DeleteCommand Dim deleteID As String = dgUsers.DataKeys(e.Item.ItemIndex) If ContactServices.Vendors.Delete(deleteID) = True Then Bind() End If End Sub End Class