'********************************************************************************************************************************************************** ' ' EasyAccess.biz ' ' Copyright EasyAccess Business Solutions Inc. January 2004 - February 2008. All rights reserved. Unauthorized reproduction, distribution or copying is strictly prohibited. ' For further information, please contact EasyAccess Business Solutions Inc. 905-729-3459 - www.EasyAccess.biz ' '********************************************************************************************************************************************************** Imports System.IO Imports System.Text Imports System.Web.ui Imports System.Data Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class Incident Inherits System.Web.UI.Page Protected WithEvents SummaryLabel As System.Web.UI.WebControls.Label Protected WithEvents IncidentID As System.Web.UI.WebControls.TextBox Protected WithEvents IncidentIDLabel As System.Web.UI.WebControls.Label Protected WithEvents Priority As System.Web.UI.WebControls.DropDownList Protected WithEvents PriorityLabel As System.Web.UI.WebControls.Label Protected WithEvents Status As System.Web.UI.WebControls.DropDownList Protected WithEvents StatusLabel As System.Web.UI.WebControls.Label Protected WithEvents StartDateLabel As System.Web.UI.WebControls.Label Protected WithEvents SLA As System.Web.UI.WebControls.DropDownList Protected WithEvents SLALabel As System.Web.UI.WebControls.Label Protected WithEvents Product As System.Web.UI.WebControls.DropDownList Protected WithEvents ProductLabel As System.Web.UI.WebControls.Label Protected WithEvents Version As System.Web.UI.WebControls.DropDownList Protected WithEvents VersionLabel As System.Web.UI.WebControls.Label Protected WithEvents Platform As System.Web.UI.WebControls.DropDownList Protected WithEvents Platformlabel As System.Web.UI.WebControls.Label Protected WithEvents Database As System.Web.UI.WebControls.DropDownList Protected WithEvents DatabaseLabel As System.Web.UI.WebControls.Label Protected WithEvents Duration As System.Web.UI.WebControls.TextBox Protected WithEvents ContactInformation As System.Web.UI.WebControls.Label Protected WithEvents IncidentDescriptionLabel As System.Web.UI.WebControls.Label Protected WithEvents Categorizationlabel As System.Web.UI.WebControls.Label Protected WithEvents Summary As System.Web.UI.WebControls.TextBox Protected WithEvents AssignedTo As System.Web.UI.WebControls.DropDownList Protected WithEvents AssignedToLabel As System.Web.UI.WebControls.Label Protected WithEvents AssignedToGroup As System.Web.UI.WebControls.DropDownList Protected WithEvents Submitter As System.Web.UI.WebControls.TextBox Protected WithEvents SubmitterLabel As System.Web.UI.WebControls.Label Protected WithEvents DeleteIncident As System.Web.UI.WebControls.Button Protected WithEvents StartNewIncident As System.Web.UI.WebControls.Button Protected WithEvents SaveIncident As System.Web.UI.WebControls.Button Protected WithEvents Assign As System.Web.UI.WebControls.Label Protected WithEvents ContactID As System.Web.UI.WebControls.DropDownList Protected WithEvents FirstNameLabel As System.Web.UI.WebControls.Label Protected WithEvents FirstName As System.Web.UI.WebControls.TextBox Protected WithEvents CompanyLabel As System.Web.UI.WebControls.Label Protected WithEvents CompanyDropDownList As System.Web.UI.WebControls.DropDownList Protected WithEvents LastNameLabel As System.Web.UI.WebControls.Label Protected WithEvents LastName As System.Web.UI.WebControls.TextBox Protected WithEvents AddressLabel As System.Web.UI.WebControls.Label Protected WithEvents Address As System.Web.UI.WebControls.TextBox Protected WithEvents PhoneLabel As System.Web.UI.WebControls.Label Protected WithEvents Phone As System.Web.UI.WebControls.TextBox Protected WithEvents CityLabel As System.Web.UI.WebControls.Label Protected WithEvents City As System.Web.UI.WebControls.TextBox Protected WithEvents EMailLabel As System.Web.UI.WebControls.Label Protected WithEvents EMail As System.Web.UI.WebControls.TextBox Protected WithEvents State As System.Web.UI.WebControls.DropDownList Protected WithEvents ZipLabel As System.Web.UI.WebControls.Label Protected WithEvents Zip As System.Web.UI.WebControls.TextBox Protected WithEvents StateLabel As System.Web.UI.WebControls.Label Protected WithEvents YesDeleteIncidentButton As System.Web.UI.WebControls.Button Protected WithEvents NoDeleteIncidentButton As System.Web.UI.WebControls.Button Protected WithEvents YesButton As System.Web.UI.WebControls.Button Protected WithEvents NoButton As System.Web.UI.WebControls.Button Protected WithEvents ContactIDLabel As System.Web.UI.WebControls.Label Protected WithEvents Assignmentlabel As System.Web.UI.WebControls.Label Protected WithEvents SearchButton As System.Web.UI.WebControls.Button Protected WithEvents Attachments As System.Web.UI.WebControls.ListBox Protected WithEvents AssetDropDownList As System.Web.UI.WebControls.DropDownList Protected WithEvents AssetsDropDownListLabel As System.Web.UI.WebControls.Label Protected WithEvents IncidentButton As System.Web.UI.WebControls.Button Protected WithEvents About As System.Web.UI.WebControls.LinkButton Protected WithEvents SiteFeedback As System.Web.UI.WebControls.LinkButton Protected WithEvents LinkButton3 As System.Web.UI.WebControls.LinkButton Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton Protected WithEvents FrequentlyAsked As System.Web.UI.WebControls.LinkButton Protected WithEvents ChangeSettings As System.Web.UI.WebControls.LinkButton Protected WithEvents ChangePassword As System.Web.UI.WebControls.LinkButton Protected WithEvents Logout As System.Web.UI.WebControls.Button Protected WithEvents IncidentLabel As System.Web.UI.WebControls.Label Protected WithEvents MainConsole As System.Web.UI.WebControls.LinkButton Protected WithEvents Worklogs As System.Web.UI.WebControls.Button Protected WithEvents Attach As System.Web.UI.WebControls.Button Protected WithEvents Audit As System.Web.UI.WebControls.Button Protected WithEvents Button1 As System.Web.UI.WebControls.Button Protected WithEvents FirstNameLookup As System.Web.UI.WebControls.Button Protected WithEvents LastNameLookup As System.Web.UI.WebControls.Button Protected WithEvents EMailLookup As System.Web.UI.WebControls.Button Protected WithEvents CompanyLookup As System.Web.UI.WebControls.Button Protected WithEvents PhoneLookup As System.Web.UI.WebControls.Button Protected WithEvents CityLookup As System.Web.UI.WebControls.Button Protected WithEvents AddressLookup As System.Web.UI.WebControls.Button Protected WithEvents AssetLookup As System.Web.UI.WebControls.Button Protected WithEvents Knowledgebase As System.Web.UI.WebControls.LinkButton Protected WithEvents StateZipLookup As System.Web.UI.WebControls.Button Protected WithEvents EMailContact As System.Web.UI.WebControls.LinkButton Protected WithEvents PrintIncident As System.Web.UI.WebControls.Button Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents CreateKB As System.Web.UI.WebControls.Button Protected WithEvents QuickTicket As System.Web.UI.WebControls.Button Protected WithEvents LinkButton4 As System.Web.UI.WebControls.LinkButton Protected WithEvents AgentLookup As System.Web.UI.WebControls.LinkButton Protected WithEvents IncidentAssociations As System.Web.UI.WebControls.Button Protected WithEvents Sequence As System.Web.UI.WebControls.TextBox Protected WithEvents SequenceLabel As System.Web.UI.WebControls.Label Protected WithEvents IncidentConsole As System.Web.UI.WebControls.LinkButton Protected WithEvents CreateProblem As System.Web.UI.WebControls.Button Protected WithEvents SiteLabel As System.Web.UI.WebControls.Label Protected WithEvents BusinessUnit As System.Web.UI.WebControls.DropDownList Protected WithEvents SiteDropDownList As System.Web.UI.WebControls.DropDownList Protected WithEvents OrganizationLabel As System.Web.UI.WebControls.Label Protected WithEvents Department As System.Web.UI.WebControls.DropDownList Protected WithEvents DepartmentLabel As System.Web.UI.WebControls.Label Protected WithEvents Organization As System.Web.UI.WebControls.DropDownList Protected WithEvents BusinessUnitLookup As System.Web.UI.WebControls.Button Protected WithEvents SiteLookup As System.Web.UI.WebControls.Button Protected WithEvents OrganizationLookup As System.Web.UI.WebControls.Button Protected WithEvents DepartmentLookup As System.Web.UI.WebControls.Button Protected WithEvents StatusReasonLabel As System.Web.UI.WebControls.Label Protected WithEvents ClassificationLabel As System.Web.UI.WebControls.Label Protected WithEvents ImpactLabel As System.Web.UI.WebControls.Label Protected WithEvents Impact As System.Web.UI.WebControls.DropDownList Protected WithEvents UrgencyLabel As System.Web.UI.WebControls.Label Protected WithEvents Urgency As System.Web.UI.WebControls.DropDownList Protected WithEvents ServiceTypeLabel As System.Web.UI.WebControls.Label Protected WithEvents ServiceType As System.Web.UI.WebControls.DropDownList Protected WithEvents ManagerLabel As System.Web.UI.WebControls.Label Protected WithEvents VendorInformationLabel As System.Web.UI.WebControls.Label Protected WithEvents AssignedDateLabel As System.Web.UI.WebControls.Label Protected WithEvents AssignedDate As System.Web.UI.WebControls.TextBox Protected WithEvents VendorSLALabel As System.Web.UI.WebControls.Label Protected WithEvents VendorSLA As System.Web.UI.WebControls.DropDownList Protected WithEvents VendorName As System.Web.UI.WebControls.Label Protected WithEvents VendorContactLabel As System.Web.UI.WebControls.Label Protected WithEvents DefaultGroup As System.Web.UI.WebControls.Button Protected WithEvents Button3 As System.Web.UI.WebControls.Button Protected WithEvents VendorEmailLabel As System.Web.UI.WebControls.Label Protected WithEvents VendorEmail As System.Web.UI.WebControls.TextBox Protected WithEvents VendorPhoneLabel As System.Web.UI.WebControls.Label Protected WithEvents VendorPhone As System.Web.UI.WebControls.TextBox Protected WithEvents TicketLabel As System.Web.UI.WebControls.Label Protected WithEvents Ticket As System.Web.UI.WebControls.TextBox Protected WithEvents SystemInformationLabel As System.Web.UI.WebControls.Label Protected WithEvents LastModifiedByLabel As System.Web.UI.WebControls.Label Protected WithEvents LastModifiedBy As System.Web.UI.WebControls.TextBox Protected WithEvents LastModifiedDateLabel As System.Web.UI.WebControls.Label Protected WithEvents LastModifiedDate As System.Web.UI.WebControls.TextBox Protected WithEvents Resolution As System.Web.UI.WebControls.Button Protected WithEvents Manager As System.Web.UI.WebControls.DropDownList Protected WithEvents StatusReason As System.Web.UI.WebControls.DropDownList Protected WithEvents CreateDate As System.Web.UI.WebControls.TextBox Protected WithEvents StartDate As System.Web.UI.WebControls.TextBox Protected WithEvents StartDateLabel2 As System.Web.UI.WebControls.Label Protected WithEvents ErrorMessage As System.Web.UI.WebControls.Literal Protected WithEvents ResolutionDateLabel As System.Web.UI.WebControls.Label Protected WithEvents ResolutionDate As System.Web.UI.WebControls.TextBox Protected WithEvents ContactInfoViaLDAP As System.Web.UI.WebControls.LinkButton Protected WithEvents BusinessUnitLabel As System.Web.UI.WebControls.Label Protected WithEvents Vendor As System.Web.UI.WebControls.DropDownList Protected WithEvents VendorContact As System.Web.UI.WebControls.DropDownList Protected WithEvents VendorLookup As System.Web.UI.WebControls.Button Protected WithEvents VendorContactLookup As System.Web.UI.WebControls.Button Protected WithEvents Button2 As System.Web.UI.WebControls.Button Protected WithEvents SearchSimilarProblems As System.Web.UI.WebControls.Button Protected WithEvents Attributes As System.Web.UI.WebControls.Button Protected WithEvents Approvals As System.Web.UI.WebControls.Button Protected WithEvents HelpLink As System.Web.UI.WebControls.LinkButton Protected WithEvents RelateToProblem As System.Web.UI.WebControls.Button Protected WithEvents ContactIDLookup As System.Web.UI.WebControls.Button Protected WithEvents ImpactedAreas As System.Web.UI.WebControls.Button #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub 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 Me.Load 'Put user code to initialize the page here If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoginType") = "Contact" Or Session.Item("LoginType") = "LDAP-Contact" Then Response.Redirect(Session.Item("ConsolePage")) End If Me.ErrorMessage.Text = "" Page.MaintainScrollPositionOnPostBack = True If Not IsNothing(Session.Item("LCID")) Then If Session.Item("LCID") <> 0 Then Session.LCID = Session.Item("LCID") End If End If If Request.QueryString("IncidentID") <> "" Then If IsNumeric(Request.QueryString("IncidentID")) Then Call ClearIncident() Session.Remove("RecordLockIncidentIDTryAndGetLock") Session.Add("RecordLockIncidentIDTryAndGetLock", Request.QueryString("IncidentID")) Response.Redirect("Incident.aspx") End If End If 'If the Session.Item("LoggedIn") no longer exists, the Session has been inactive past the Session.Timeout If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Incident") = False Then Response.Redirect(Session.Item("ConsolePage")) End If If Me.Page.IsPostBack = False Then Me.IncidentLabel.Text = Application(Session.Item("Language") & " Incident") End If If Session.Item("ContactViaLDAP") = "Enabled" Then Me.ContactInfoViaLDAP.Visible = True End If If Me.Page.IsPostBack = False Then Call LoadToolTip() End If If Session.Item("Language") <> "English" And Me.Page.IsPostBack = False Then Call Translate() End If Dim Objrs Dim Objrs2 Dim i As Integer Dim IdentitySearchCriteria As String Dim BizDataSet As DataSet Dim TableRow As DataRow Dim BizDataSet2 As DataSet Dim TableRow2 As DataRow 'Populate the State Dropdown If Me.State.Items.Count < 1 Then Me.State.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("States", "State, ShortName", "1=1", 9999, "State Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.State.Items.Add(New ListItem(TableRow("ShortName").ToString & " - " & TableRow("State").ToString, TableRow("ShortName").ToString)) Next BizDataSet.Dispose() End If 'Populate the Status Dropdown If Me.Status.Items.Count < 1 Then Me.Status.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Status", "Status", "EAModule = 'Incident'", 9999, "Status Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Status.Items.Add(New ListItem(TableRow("Status").ToString)) Next BizDataSet.Dispose() End If If Me.StatusReason.Items.Count < 1 Then Me.StatusReason.Items.Add("") End If 'Populate the Priority DropDown If Me.Priority.Items.Count < 1 Then Me.Priority.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Priority", "PriorityID, PriorityValue", "EAModule = 'Incident'", 9999, "PriorityID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Priority.Items.Add(New ListItem(TableRow("PriorityID").ToString & " - " & TableRow("PriorityValue").ToString, TableRow("PriorityID").ToString)) Next BizDataSet.Dispose() End If 'Populate the Product Dropdown If Me.Product.Items.Count < 1 Then Me.Product.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Categorizations", "Product", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and ((Company is NULL or Company = '') or (Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "')))) Group by Product", 9999, "Product Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Product.Items.Add(TableRow("Product").ToString()) Next BizDataSet.Dispose() End If Me.Version.Items.Add(" ") Me.Platform.Items.Add(" ") Me.Database.Items.Add(" ") 'Populate the SLA DropDown If Me.SLA.Items.Count < 1 Then Me.SLA.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("SLA", "SLAName", "EAModule='Incident' and Enabled = 'TRUE'", 9999, "SLAName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.SLA.Items.Add(TableRow("SLAName").ToString()) Next BizDataSet.Dispose() End If 'Populate the VendorSLA DropDown If Me.VendorSLA.Items.Count < 1 Then Me.VendorSLA.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("SLA", "SLAName", "EAModule='Incident' and Enabled = 'TRUE'", 9999, "SLAName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.VendorSLA.Items.Add(TableRow("SLAName").ToString()) Next BizDataSet.Dispose() End If 'Populate the Vendor DropDown If Me.Vendor.Items.Count < 1 Then Me.Vendor.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Company", "CompanyName", "1=1", 9999, "CompanyName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Vendor.Items.Add(TableRow("CompanyName").ToString()) Next BizDataSet.Dispose() End If If Me.VendorContact.Items.Count = 0 Then Me.VendorContact.Items.Add("") End If 'Populates the Company Dropdown with all records If Me.CompanyDropDownList.Items.Count < 1 Then Me.CompanyDropDownList.Items.Add(New ListItem("", "")) Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Company", "CompanyName, CompanyID", "1=1", 9999, "CompanyName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.CompanyDropDownList.Items.Add(New ListItem(TableRow("CompanyName").ToString, TableRow("CompanyID").ToString)) Next BizDataSet.Dispose() End If If Me.Page.IsPostBack = False Then 'Initialize the BusinessUnit Dropdown Me.BusinessUnit.Items.Clear() Me.BusinessUnit.Items.Add(" ") Me.BusinessUnit.Items(0).Text = " " Me.BusinessUnit.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("BusinessUnit", "BusinessUnitID, BusinessUnitName", "CompanyID = 0 or CompanyID Is Null", 9999, "BusinessUnitName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows i = i + 1 Me.BusinessUnit.Items.Add(TableRow("BusinessUnitName").ToString) Me.BusinessUnit.Items(i).Text = TableRow("BusinessUnitName").ToString Me.BusinessUnit.Items(i).Value = TableRow("BusinessUnitID").ToString Next BizDataSet.Dispose() End If 'Initialize the BusinessUnit Dropdown If Me.BusinessUnit.Items.Count < 1 Then Me.BusinessUnit.Items.Add(New ListItem(" ", 0)) End If If Me.Page.IsPostBack = False Then Me.SiteDropDownList.Items.Clear() Me.SiteDropDownList.Items.Add(" ") Me.SiteDropDownList.Items(0).Text = " " Me.SiteDropDownList.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Site", "SiteID, SiteName", "(BusinessUnitID = 0 or BusinessUnitID Is Null) and (CompanyID = 0 or CompanyID Is Null)", 9999, "SiteName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("SiteName").ToString) Then i = i + 1 Me.SiteDropDownList.Items.Add(TableRow("SiteName").ToString) Me.SiteDropDownList.Items(i).Text = TableRow("SiteName").ToString Me.SiteDropDownList.Items(i).Value = TableRow("SiteID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing End If If Me.SiteDropDownList.Items.Count < 1 Then Me.SiteDropDownList.Items.Add(New ListItem(" ", 0)) End If If Me.Page.IsPostBack = False Then Me.Organization.Items.Clear() Me.Organization.Items.Add(" ") Me.Organization.Items(0).Text = " " Me.Organization.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Organization", "OrganizationID, OrganizationName", "(SiteID = 0 or SiteID Is Null) And (BusinessUnitID = 0 or BusinessUnitID Is Null) and (CompanyID = 0 or CompanyID Is Null)", 9999, "OrganizationName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("OrganizationName").ToString) Then i = i + 1 Me.Organization.Items.Add(TableRow("OrganizationName").ToString) Me.Organization.Items(i).Text = TableRow("OrganizationName").ToString Me.Organization.Items(i).Value = TableRow("OrganizationID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing End If If Me.Organization.Items.Count < 1 Then Me.Organization.Items.Add(New ListItem(" ", 0)) End If If Me.Page.IsPostBack = False Then Me.Department.Items.Clear() Me.Department.Items.Add(" ") Me.Department.Items(0).Text = " " Me.Department.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Department", "DepartmentID, DepartmentName", "(CompanyID = 0 or CompanyID Is Null) and (BusinessUnitID = 0 or BusinessUnitID Is Null) and (SiteID = 0 or SiteID Is Null) and (OrganizationID = 0 or OrganizationID Is Null)", 9999, "DepartmentName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DepartmentName").ToString) Then i = i + 1 Me.Department.Items.Add(TableRow("DepartmentName").ToString) Me.Department.Items(i).Text = TableRow("DepartmentName").ToString Me.Department.Items(i).Value = TableRow("DepartmentID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing End If 'Initialize the Department Dropdown If Me.Department.Items.Count < 1 Then Me.Department.Items.Add(New ListItem(" ", 0)) End If 'Populate the ContactID dropdown If Me.ContactID.Items.Count < 1 Then Me.ContactID.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") If IsNothing(Session.Item("IncidentContactSearchCriteria")) Then Session.Add("IncidentContactSearchCriteria", "1=1") End If If Session.Item("LoginType") = "Contact" Or Session.Item("LoginType") = "LDAP-Contact" Then BizDataSet = Objrs.EAGet("Contact", "ContactID", "ContactID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'", 9999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else BizDataSet = Objrs.EAGet("Contact", "ContactID", "1=1", 9999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("ContactID").ToString) Then Me.ContactID.Items.Add(New ListItem(TableRow("ContactID").ToString)) End If Next BizDataSet.Dispose() Objrs = Nothing End If 'Populate the AssignedToGroup dropdown If Me.AssignedToGroup.Items.Count < 2 Then Me.AssignedToGroup.Items.Clear() Me.AssignedToGroup.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Groups", "*", "GroupStatus <> 'Inactive' and GroupName <> 'Contacts'", 99999, "GroupName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.AssignedToGroup.Items.Add(TableRow("GroupName").ToString) Next BizDataSet.Dispose() Objrs = Nothing End If 'Populate the Assigned To If Me.AssignedTo.Items.Count < 1 Then Me.AssignedTo.Items.Clear() Me.AssignedTo.Items.Add(" ") Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Agents", "AgentID", "AgentStatus <> 'Absent'", 99999, "AgentID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.AssignedTo.Items.Add(TableRow("AgentID").ToString) Next BizDataSet.Dispose() Objrs = Nothing End If If Me.Manager.Items.Count < 1 Then Me.Manager.Items.Clear() Me.Manager.Items.Add(" ") Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Agents", "AgentID", "AgentStatus <> 'Absent'", 99999, "AgentID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.AssignedTo.Items.Add(TableRow("AgentID").ToString) Next BizDataSet.Dispose() Objrs = Nothing End If 'Populate the ServiceType dropdown If Me.ServiceType.Items.Count < 1 Then Me.ServiceType.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("ServiceType", "*", "EAModule='Incident'", 99999, "ServiceType Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.ServiceType.Items.Add(TableRow("ServiceType").ToString) Next BizDataSet.Dispose() Objrs = Nothing End If 'Populate the Impact dropdown If Me.Impact.Items.Count < 1 Then Me.Impact.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Impact", "*", "EAModule='Incident'", 99999, "Impact Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Impact.Items.Add(TableRow("Impact").ToString) Next BizDataSet.Dispose() Objrs = Nothing End If 'Populate the Urgency dropdown If Me.Urgency.Items.Count < 1 Then Me.Urgency.Items.Add(" ") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Urgency", "*", "EAModule='Incident'", 99999, "Urgency Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Urgency.Items.Add(TableRow("Urgency").ToString) Next BizDataSet.Dispose() Objrs = Nothing End If Dim cmd As Boolean Objrs = CreateObject("BizClass.NET") cmd = Objrs.CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Delete", "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing If cmd = False Then Me.DeleteIncident.Enabled = False End If If Session.Item("Language") <> "English" And Me.Page.IsPostBack = False Then Call Translate() End If Dim IncidentNumber If Not IsNothing(Session.Item("RecordLockIncidentIDTryAndGetLock")) Then IncidentNumber = Session.Item("RecordLockIncidentIDTryAndGetLock") End If If Not IsNothing(IncidentNumber) Then If IsNumeric(IncidentNumber) Then Session.Remove("RecordLockIncidentIDTryAndGetLock") Session.Add("RecordLockIncidentIDTryAndGetLock", IncidentNumber) End If End If If IsNothing(IncidentNumber) Then Me.DeleteIncident.Enabled = False Me.CreateProblem.Enabled = False Me.RelateToProblem.Enabled = False Me.PrintIncident.Enabled = False Me.CreateKB.Enabled = False End If If IncidentNumber = -1 Then Me.ErrorMessage.Text = "" Exit Sub End If If Not IsNothing(IncidentNumber) And Me.Page.IsPostBack = False Then 'Check to see if the record is locked Dim objCommand Dim RecordLock As String Dim LockOwner As String LockOwner = Session.Item("LoginID") If Not IsNothing(Session.Item("RecordLockIncidentID")) Then objCommand = CreateObject("BizClass.NET") cmd = objCommand.EADelete("RecordLock", "EAModuleID = " & Session.Item("RecordLockIncidentID") & " And EAModule = 'Incident' And LockOwner = '" & Replace(Session.Item("LoginID"), "'", "''") & "'", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing End If If IncidentNumber > 0 Then objCommand = CreateObject("BizClass.NET") RecordLock = objCommand.checkRecordLock(IncidentNumber, "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing If RecordLock <> "False" And RecordLock <> Session.Item("LoginID") Then Me.ErrorMessage.Text = "" Session.Remove("RecordLockIncidentID") Session.Add("RecordLockIncidentID", IncidentNumber) Call LockIncident() Else 'Delete the record lock if it's the same LoginID to refresh the Recordlock timeout If RecordLock = Session.Item("LoginID") Then objCommand = CreateObject("BizClass.NET") cmd = objCommand.deleteRecordLock(IncidentNumber, "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing End If objCommand = CreateObject("BizClass.NET") cmd = objCommand.getRecordLock(IncidentNumber, LockOwner, "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing If cmd = False Then Session.Remove("RecordLockIncidentID") Session.Add("RecordLockIncidentID", IncidentNumber) Call LockIncident() Me.ErrorMessage.Text = "" Else Session.Remove("RecordLockIncidentID") Session.Add("RecordLockIncidentID", IncidentNumber) End If End If End If ' IncidentNumber > 0 If Not IsNothing(Session.Item("WorklogTimeEntryRedirect")) Then If Session.Item("WorklogTimeEntryRedirect") = "True" Then Response.Redirect("Worklog.aspx") End If End If Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Incident", "*", "IncidentID = " & IncidentNumber, 1, "IncidentID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count < 1 Then BizDataSet.Dispose() Objrs = Nothing Session.Remove("RecordLockIncidentIDTryAndGetLock") Session.Remove("RecordLockIncidentID") Me.ErrorMessage.Text = "" Exit Sub End If 'populate the Incident form fields TableRow = BizDataSet.Tables(0).Rows.Item(0) Me.IncidentID.Text = IncidentNumber Me.IncidentLabel.Text = Application(Session.Item("Language") & " Incident") & " " & IncidentNumber If Not IsDBNull(TableRow("FirstName").ToString) Then Me.FirstName.Text = TableRow("FirstName").ToString End If If Not IsDBNull(TableRow("StatusReason").ToString) Then Me.StatusReason.Items(0).Text = TableRow("StatusReason").ToString End If If Not IsDBNull(TableRow("Impact").ToString) Then Me.Impact.Items(0).Text = TableRow("Impact").ToString Me.Impact.SelectedIndex = 0 End If If Not IsDBNull(TableRow("Urgency").ToString) Then Me.Urgency.Items(0).Text = TableRow("Urgency").ToString Me.Urgency.SelectedIndex = 0 End If If Not IsDBNull(TableRow("ServiceType").ToString) Then Me.ServiceType.Items(0).Text = TableRow("ServiceType").ToString Me.ServiceType.SelectedIndex = 0 End If If Not IsDBNull(TableRow("Manager").ToString) Then Me.Manager.Items(0).Text = TableRow("Manager").ToString End If If Not IsDBNull(TableRow("VendorSLA").ToString) Then Me.VendorSLA.Items(0).Text = TableRow("VendorSLA").ToString End If If Not IsDBNull(TableRow("LastName").ToString) Then Me.LastName.Text = TableRow("LastName").ToString End If If Not IsDBNull(TableRow("VendorName").ToString) Then Me.Vendor.SelectedIndex = 0 Me.Vendor.SelectedItem.Text = TableRow("VendorName").ToString End If If Not IsDBNull(TableRow("Ticket").ToString) Then Me.Ticket.Text = TableRow("Ticket").ToString End If If Not IsDBNull(TableRow("VendorContact").ToString) Then If Me.VendorContact.Items.Count < 1 Then Me.VendorContact.Items.Add("") End If Me.VendorContact.SelectedIndex = 0 Me.VendorContact.SelectedItem.Text = TableRow("VendorContact").ToString End If If Not IsDBNull(TableRow("VendorEmail").ToString) Then Me.VendorEmail.Text = TableRow("VendorEmail").ToString End If If Not IsDBNull(TableRow("VendorPhone").ToString) Then Me.VendorPhone.Text = TableRow("VendorPhone").ToString End If If Not IsDBNull(TableRow("AssignedDate").ToString) Then Me.AssignedDate.Text = TableRow("AssignedDate").ToString End If If Not IsDBNull(TableRow("LastModifiedBy").ToString) Then Me.LastModifiedBy.Text = TableRow("LastModifiedBy").ToString End If If Not IsDBNull(TableRow("LastModifiedDate").ToString) Then Me.LastModifiedDate.Text = TableRow("LastModifiedDate").ToString End If If Not IsDBNull(TableRow("StartDate").ToString) Then Me.StartDate.Text = TableRow("StartDate").ToString End If If Not IsDBNull(TableRow("ResolutionDate").ToString) Then Me.ResolutionDate.Text = TableRow("ResolutionDate").ToString End If If Not IsDBNull(TableRow("ContactPhone").ToString) Then Me.Phone.Text = TableRow("ContactPhone").ToString End If If Not IsDBNull(TableRow("ContactEMail").ToString) Then Me.EMail.Text = TableRow("ContactEmail").ToString End If If Not IsDBNull(TableRow("Address").ToString) Then Me.Address.Text = TableRow("Address").ToString End If If Not IsDBNull(TableRow("City").ToString) Then Me.City.Text = TableRow("City").ToString End If If Not IsDBNull(TableRow("CreateDate").ToString) Then Me.CreateDate.Text = TableRow("CreateDate").ToString End If If Not IsDBNull(TableRow("Outbound").ToString) Then Session.Remove("PreDefinedServiceRequestID") Session.Add("PreDefinedServiceRequestID", TableRow("Outbound").ToString) End If If Not IsDBNull(TableRow("ContactID").ToString) Then Me.ContactID.Items(0).Text = TableRow("ContactID").ToString Me.ContactID.SelectedIndex = 0 End If If Not IsDBNull(TableRow("IncidentID").ToString) Then Me.IncidentID.Text = TableRow("IncidentID").ToString Me.IncidentLabel.Text = Application(Session.Item("Language") & " Incident") & " " & TableRow("IncidentID").ToString Session.Remove("CurrentIncidentID") Session.Add("CurrentIncidentID", TableRow("IncidentID").ToString) End If If Not IsDBNull(TableRow("ProblemID").ToString) Then If IsNumeric(TableRow("ProblemID").ToString) Then Session.Remove("IncidentProblemID") Session.Add("IncidentProblemID", TableRow("ProblemID").ToString) Me.CreateProblem.Text = Application(Session.Item("Language") & " Problem") & " " & TableRow("ProblemID").ToString Me.CreateProblem.ToolTip = "Click here to view Problem " & TableRow("ProblemID").ToString & " which was created by Incident " & Me.IncidentID.Text End If End If If Not IsDBNull(TableRow("AssignedDate").ToString) Then If TableRow("AssignedDate").ToString = "1900-01-01" Then Me.AssignedDate.Text = "" Else Me.AssignedDate.Text = TableRow("AssignedDate").ToString End If End If If Not IsDBNull(TableRow("ServiceType").ToString) Then Me.ServiceType.Items(0).Text = TableRow("ServiceType").ToString End If If Not IsDBNull(TableRow("CallDuration").ToString) Then Me.Duration.Text = TableRow("CallDuration").ToString End If If Not IsDBNull(TableRow("Sequence").ToString) Then Me.Sequence.Text = TableRow("Sequence").ToString End If If Not IsDBNull(TableRow("KBID").ToString) Then If IsNumeric(TableRow("KBID").ToString) Then Me.CreateKB.Text = "KB " & TableRow("KBID").ToString Me.CreateKB.Enabled = True Session.Remove("IncidentKBID") Session.Add("IncidentKBID", TableRow("KBID").ToString) Else Me.CreateKB.Text = Application(Session.Item("Language") & " Create Knowledge") Session.Remove("IncidentKBID") End If Else Me.CreateKB.Text = Application(Session.Item("Language") & " Create Knowledge") Session.Remove("IncidentKBID") End If If Not IsDBNull(TableRow("State").ToString) Then Me.State.Items(0).Text = TableRow("State").ToString Me.State.Items(0).Value = TableRow("State").ToString Me.State.SelectedIndex = 0 End If If Not IsDBNull(TableRow("Zip").ToString) Then Me.Zip.Text = TableRow("Zip").ToString End If If Not IsDBNull(TableRow("Submitter").ToString) Then Me.Submitter.Text = TableRow("Submitter").ToString End If If Not IsDBNull(TableRow("Summary").ToString) Then Me.Summary.Text = TableRow("Summary").ToString End If If Not IsDBNull(TableRow("VendorName").ToString) Then Me.Vendor.SelectedIndex = 0 Me.Vendor.SelectedItem.Text = TableRow("VendorName").ToString End If If Not IsDBNull(TableRow("Priority").ToString) Then Me.Priority.Items(0).Text = TableRow("Priority").ToString Me.Priority.Items(0).Value = TableRow("Priority").ToString Me.Priority.SelectedIndex = 0 End If If Not IsDBNull(TableRow("Status").ToString) Then Me.Status.Items(0).Text = TableRow("Status").ToString Me.Status.Items(0).Value = TableRow("Status").ToString Me.Status.SelectedIndex = 0 Session.Remove("OriginalIncidentStatus") Session.Add("OriginalIncidentStatus", TableRow("Status").ToString) Else Session.Remove("OriginalIncidentSTatus") End If If Not IsDBNull(TableRow("SLAName").ToString) Then Me.SLA.Items(0).Text = TableRow("SLAName").ToString End If If Not IsDBNull(TableRow("AssignedToGroup").ToString) Then Me.AssignedToGroup.Items(0).Text = TableRow("AssignedToGroup").ToString End If If Not IsDBNull(TableRow("AssignedTo").ToString) Then Me.AssignedTo.Items(0).Text = TableRow("AssignedTo").ToString End If If Me.AssignedToGroup.SelectedItem.Value <> "" Then Dim CurrentAgent As String If Not IsDBNull(TableRow("AssignedTo").ToString) Then Me.AssignedTo.Items(0).Text = TableRow("AssignedTo").ToString Else Me.AssignedTo.Items(0).Text = " " End If Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("GroupMembers, Groups, Agents", "GroupMembers.AgentID, Agents.AssignedIncidents, Agents.Name", "GroupName='" & Me.AssignedToGroup.SelectedItem.Value & "' And Agents.AgentStatus = 'Available' And GroupMembers.GroupID = Groups.GroupID And GroupMembers.AgentID = Agents.AgentID ", 200, "GroupMembers.AgentID", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) CurrentAgent = Me.AssignedTo.Items(0).Text Me.AssignedTo.Items.Clear() Me.AssignedTo.Items.Add(CurrentAgent) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("AgentID")) Then If TableRow2("AgentID").ToString <> CurrentAgent Then Me.AssignedTo.Items.Add(TableRow2("AgentID").ToString) End If End If Next BizDataSet2.Dispose() Objrs2 = Nothing Me.AssignedTo.Items.Add(" ") Me.AssignedTo.Items(0).Text = CurrentAgent End If If Not IsDBNull(TableRow("Product").ToString) Then Me.Product.Items.Clear() Me.Product.Items.Add(TableRow("Product").ToString) Me.Product.Items.Add(" ") Objrs2 = Server.CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Categorizations", "Product", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and ((Company is NULL or Company = '') or (Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "')))) Group by Product", 9999, "Product Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("Product").ToString) Then Me.Product.Items.Add(TableRow2("Product").ToString) End If Next BizDataSet2.Dispose() Objrs2 = Nothing If Not IsDBNull(TableRow("Product").ToString) Then Me.Product.Items(0).Value = TableRow("Product").ToString End If Else Me.Product.Items.Add(" ") End If If Not IsDBNull(TableRow("Version").ToString) And Me.Product.SelectedItem.Text <> " " Then Dim SelectedProduct As String SelectedProduct = Replace(Me.Product.SelectedItem.Text, "'", "''") Me.Version.Items.Clear() Me.Version.Items.Add(TableRow("Version").ToString) Me.Version.Items.Add(" ") Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EASelect("Select Distinct Version from Categorizations where Product = '" & SelectedProduct & "' And (EAModule = 'Incident' or EAModule = '' or EAModule Is Null)", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("Version").ToString) Then Me.Version.Items.Add(TableRow2("Version").ToString) End If Next BizDataSet2.Dispose() Objrs2 = Nothing Else Me.Version.Items.Add(" ") End If If Not IsDBNull(TableRow("Platform").ToString) And Me.Product.SelectedItem.Text <> " " And Me.Version.SelectedItem.Text <> " " Then Me.Platform.Items.Clear() Me.Platform.Items.Add(TableRow("Platform").ToString) Me.Platform.Items.Add(" ") Dim sdata(4) As Object If Me.Product.SelectedItem.Value <> " " Then sdata(0) = Replace(Me.Product.SelectedItem.Text, "'", "''") End If If Me.Version.SelectedItem.Value <> " " Then sdata(1) = Replace(Me.Version.SelectedItem.Text, "'", "''") End If sdata(2) = " " sdata(3) = " " Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EASelect("Select Distinct Platform from Categorizations where Product = '" & sdata(0) & "' and Version = '" & sdata(1) & "' And ( EAModule = 'Incident' or EAModule = '' or EAModule Is Null )", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("Platform").ToString) Then Me.Platform.Items.Add(TableRow2("Platform").ToString) End If Next BizDataSet2.Dispose() Objrs2 = Nothing Else Me.Platform.Items.Add(" ") End If If Not IsDBNull(TableRow("DB").ToString) And Me.Product.SelectedItem.Text <> " " And Me.Version.SelectedItem.Text <> " " And Me.Platform.SelectedItem.Text <> " " Then Me.Database.Items.Clear() Me.Database.Items.Add(TableRow("DB").ToString) Me.Database.Items.Add(" ") Dim sdata(4) As Object sdata(0) = Replace(Me.Product.SelectedItem.Text, "'", "''") sdata(1) = Replace(Me.Version.SelectedItem.Text, "'", "''") sdata(2) = Replace(Me.Platform.SelectedItem.Text, "'", "''") sdata(3) = "" Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EASelect("Select Distinct DB from Categorizations where Product = '" & sdata(0) & "' and Version = '" & sdata(1) & "' and Platform = '" & sdata(2) & "' And (EAModule = 'Incident' or EAModule = '' or EAModule Is Null)", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("DB").ToString) Then Me.Database.Items.Add(TableRow2("DB").ToString) End If Next BizDataSet2.Dispose() Objrs2 = Nothing If Session.Item("GroupAssignments") = "Enabled" Then 'Do the Group Assignment sdata(0) = Me.Product.SelectedItem.Value sdata(1) = Me.Version.SelectedItem.Value sdata(2) = Me.Platform.SelectedItem.Value sdata(3) = "" Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.getAssignToGroup("Incident", sdata, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Me.AssignedToGroup.Items.Add(" ") For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("GroupName").ToString) Then Me.AssignedToGroup.Items.Add(TableRow2("GroupName").ToString) End If Next BizDataSet2.Dispose() Objrs2 = Nothing End If Else Me.Database.Items.Add(" ") End If 'Get the contacts list of Assets Me.AssetDropDownList.Items.Clear() If Not IsDBNull(TableRow("IncidentAssetID").ToString) Then Me.AssetDropDownList.Items.Add(" ") Me.AssetDropDownList.Items.Add(" ") Me.AssetDropDownList.Items(0).Text = TableRow("IncidentAssetID").ToString Else Me.AssetDropDownList.Items.Add(" ") End If Objrs2 = CreateObject("BizClass.NET") If Session.Item("LoginType") = "Contact" Or Session.Item("LoginType") = "LDAP-Contact" Then BizDataSet2 = Objrs2.EAGet("Asset", "Asset", "Owner = '" & Replace(Session.Item("LoginID"), "'", "''") & "'", 999, "Asset Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else BizDataSet2 = Objrs2.EAGet("Asset", "Asset", "Owner = '" & Replace(Me.ContactID.SelectedItem.Value, "'", "''") & "'", 999, "Asset Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("Asset").ToString) Then Me.AssetDropDownList.Items.Add(TableRow2("Asset").ToString) End If Next BizDataSet2.Dispose() Objrs2 = Nothing 'Re-Populates the Company Dropdown with all records Me.CompanyDropDownList.Items.Clear() If Not IsDBNull(TableRow("CompanyName").ToString) Then Me.CompanyDropDownList.Items.Add(New ListItem(TableRow("CompanyName").ToString, TableRow("CompanyName").ToString)) End If Me.CompanyDropDownList.Items.Add(New ListItem("", "")) Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Company", "CompanyName", "1=1", 99999, "CompanyName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows Me.CompanyDropDownList.Items.Add(New ListItem(TableRow2("CompanyName").ToString, TableRow2("CompanyName").ToString)) Next BizDataSet2.Dispose() Objrs2 = Nothing 'Re-populate the BusinessUnit Dropdown Me.BusinessUnit.Items.Clear() If Not IsDBNull(TableRow("BusinessUnit").ToString) Then Me.BusinessUnit.Items.Add(New ListItem(TableRow("BusinessUnit").ToString, TableRow("BusinessUnit").ToString)) End If 'Populates the BusinessUnit Dropdown with all records that are related to this company If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then IdentitySearchCriteria = "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = "(CompanyID = 0 or CompanyID Is Null) " End If End If Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("BusinessUnit", "BusinessUnitName", IdentitySearchCriteria, 99999, "BusinessUnitName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("BusinessUnitName").ToString) Then Me.BusinessUnit.Items.Add(New ListItem(TableRow2("BusinessUnitName").ToString, TableRow2("BusinessUnitName").ToString)) End If Next BizDataSet2.Dispose() Objrs2 = Nothing Me.BusinessUnit.Items.Add(New ListItem("", "")) 'Re-Populate the SiteID dropdown Me.SiteDropDownList.Items.Clear() If Not IsDBNull(TableRow("Site").ToString) Then Me.SiteDropDownList.Items.Add(New ListItem(TableRow("Site").ToString, TableRow("Site").ToString)) End If 'Get all the Sites that belong to the Company and Business Unit If Not IsNothing(Me.BusinessUnit.SelectedItem) Then If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then If Len(IdentitySearchCriteria) = 0 Then IdentitySearchCriteria = " BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = IdentitySearchCriteria & " And BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If End If End If Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Site", "SiteName", IdentitySearchCriteria, 99999, "SiteName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("SiteName").ToString) And Not IsDBNull(TableRow2("SiteName").ToString) Then Me.SiteDropDownList.Items.Add(New ListItem(TableRow2("SiteName").ToString, TableRow2("SiteName").ToString)) End If Next BizDataSet2.Dispose() Objrs2 = Nothing Me.SiteDropDownList.Items.Add(New ListItem("", "")) 'Re-Populate the Organization dropdown Me.Organization.Items.Clear() If Not IsDBNull(TableRow("Organization").ToString) Then Me.Organization.Items.Add(New ListItem(TableRow("Organization").ToString, TableRow("Organization").ToString)) End If If Not IsNothing(Me.SiteDropDownList.SelectedItem) Then If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then If Len(IdentitySearchCriteria) = 0 Then IdentitySearchCriteria = " SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = IdentitySearchCriteria & " And SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If End If Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Organization", "OrganizationName", IdentitySearchCriteria, 99999, "OrganizationName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("OrganizationName").ToString) Then Me.Organization.Items.Add(New ListItem(TableRow2("OrganizationName").ToString, TableRow2("OrganizationName").ToString)) End If Next BizDataSet2.Dispose() Objrs2 = Nothing Me.Organization.Items.Add(New ListItem("", "")) End If 'Re-Populate the Department dropdown Me.Department.Items.Clear() If Not IsDBNull(TableRow("Department").ToString) Then Me.Department.Items.Add(New ListItem(TableRow("Department").ToString, TableRow("Department").ToString)) End If If Not IsNothing(Me.Organization.SelectedItem) Then If Trim(Me.Organization.SelectedItem.Text) <> "" Then If Len(IdentitySearchCriteria) = 0 Then IdentitySearchCriteria = " OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = IdentitySearchCriteria & " And OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" End If End If Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Department", "DepartmentName", IdentitySearchCriteria, 99999, "DepartmentName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("DepartmentName").ToString) Then Me.Department.Items.Add(New ListItem(TableRow2("DepartmentName").ToString, TableRow2("DepartmentName").ToString)) End If Next BizDataSet2.Dispose() Objrs2 = Nothing End If Me.Department.Items.Add(New ListItem("", "")) BizDataSet.Dispose() Objrs = Nothing If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Modify", "Incident") = False Then Me.SaveIncident.Enabled = False End If 'Populate the Product Dropdown of only valid Entries for the Company or the logged in users Group Membership Dim UniqueValue As String Dim OldProductValue As String If Not IsNothing(Me.Product.SelectedItem) Then OldProductValue = Me.Product.SelectedItem.Text End If Me.Product.Items.Clear() Me.Product.Items.Add(OldProductValue) Me.Product.Items.Add(" ") UniqueValue = "" Objrs = Server.CreateObject("BizClass.NET") 'Get the list of valid Products / Tier1 Categorizations for the selected Company or the Logged in users Group Membership If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then BizDataSet = Objrs.EAGet("Categorizations", "Product", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and ((Company = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "' or Company is NULL or Company = '') Or (Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "')))) Group by Product", 9999, "Product Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else BizDataSet = Objrs.EAGet("Categorizations", "Product", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and ((Company is NULL or Company = '') or (Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "' Group by Product)))) Group by Product", 9999, "Product Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("Product").ToString) Then If UniqueValue <> TableRow("Product").ToString Then Me.Product.Items.Add(TableRow("Product").ToString) End If UniqueValue = TableRow("Product").ToString End If Next BizDataSet.Dispose() Objrs = Nothing Me.SaveIncident.Text = Application(Session.Item("Language") & " Modify Incident") Me.DeleteIncident.Enabled = True Me.CreateProblem.Enabled = True Me.RelateToProblem.Enabled = True Me.PrintIncident.Enabled = True If Me.CreateKB.Text = Application(Session.Item("Language") & " Create Knowledge") Then Me.CreateKB.Enabled = True End If 'Set the Indicator that there are worklogs for this Incident Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("IncidentWorkLog", "IncidentID", "IncidentID = " & Me.IncidentID.Text, 999, "WorkLogDate Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Dim datasetcount As Integer datasetcount = BizDataSet.Tables(0).Rows.Count If BizDataSet.Tables(0).Rows.Count > 0 Then Me.Worklogs.ForeColor = System.Drawing.Color.DarkBlue Me.Worklogs.Font.Bold = True If BizDataSet.Tables(0).Rows.Count = 1 Then Me.Worklogs.Text = BizDataSet.Tables(0).Rows.Count & " Worklog" Else Me.Worklogs.Text = BizDataSet.Tables(0).Rows.Count & " Worklogs" End If End If BizDataSet.Dispose() Objrs = Nothing 'Set the Indicator that there are Attachments for this Incident Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Attachments", "EAModuleID", "EAModule = 'Incident' and EAModuleID = " & Me.IncidentID.Text, 999, "EAModuleID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then Me.Attach.ForeColor = System.Drawing.Color.DarkBlue Me.Attach.Font.Bold = True If BizDataSet.Tables(0).Rows.Count = 1 Then Me.Attach.Text = BizDataSet.Tables(0).Rows.Count & " Attachment" Else Me.Attach.Text = BizDataSet.Tables(0).Rows.Count & " Attachments" End If End If BizDataSet.Dispose() Objrs = Nothing 'Set the Indicator that there are Approvals for this Incident Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Approval", "ApprovalID", "EAModule = 'Incident' and EAModuleID = " & Me.IncidentID.Text, 999, "EAModuleID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then Me.Approvals.ForeColor = System.Drawing.Color.DarkBlue Me.Approvals.Font.Bold = True If BizDataSet.Tables(0).Rows.Count = 1 Then Me.Approvals.Text = BizDataSet.Tables(0).Rows.Count & " Approval" Else Me.Approvals.Text = BizDataSet.Tables(0).Rows.Count & " Approvals" End If End If BizDataSet.Dispose() Objrs = Nothing 'Set the Indicator that there are Service Request Fields for this Incident Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Attribute", "AttributeID", "EAModule = 'Incident' and EAModuleID = " & Me.IncidentID.Text, 999, "EAModuleID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then Me.Attributes.ForeColor = System.Drawing.Color.DarkBlue Me.Attributes.Font.Bold = True If BizDataSet.Tables(0).Rows.Count = 1 Then Me.Attributes.Text = BizDataSet.Tables(0).Rows.Count & " Service Request Field" Else Me.Attributes.Text = BizDataSet.Tables(0).Rows.Count & " Service Request Fields" End If End If BizDataSet.Dispose() Objrs = Nothing 'Set the Indicator that there are Impacted Areas for this Incident Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("ImpactedArea", "ImpactedAreaID", "EAModule = 'Incident' and EAModuleID = " & Me.IncidentID.Text, 999, "EAModuleID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then Me.ImpactedAreas.ForeColor = System.Drawing.Color.DarkBlue Me.ImpactedAreas.Font.Bold = True If BizDataSet.Tables(0).Rows.Count = 1 Then Me.ImpactedAreas.Text = BizDataSet.Tables(0).Rows.Count & " Impacted Area" Else Me.ImpactedAreas.Text = BizDataSet.Tables(0).Rows.Count & " Impacted Areas" End If End If BizDataSet.Dispose() Objrs = Nothing End If Call SetLoginView() If Session.Item("StartNewIncident") = "True" Then ClearIncident() Session.Remove("StartNewIncident") Session.Add("StartNewIncident", "False") End If If Session.Item("QuickTicket") = "True" Then Me.SaveIncident.Text = Application(Session.Item("Language") & " Save Incident") Me.IncidentID.Text = "" Me.IncidentLabel.Text = "" Session.Remove("QuickTicket") Session.Remove("RecordLockIncidentIDTryAndGetLock") End If If Not IsNothing(Session.Item("IncidentLocked")) Then If Session.Item("IncidentLocked") = "True" Then Me.Worklogs.Enabled = True Me.Attach.Enabled = True Me.Audit.Enabled = True Me.IncidentAssociations.Enabled = True Me.Resolution.Enabled = True Me.ImpactedAreas.Enabled = True End If End If If Me.Page.IsPostBack = False Then Call RestoreDirtyData() End If Dim ForceCategorizations ForceCategorizations = Session.Item("ForceCategorization") If ForceCategorizations = "Enabled" Then Me.ProductLabel.Font.Bold = True Me.VersionLabel.Font.Bold = True Me.Platformlabel.Font.Bold = True Me.DatabaseLabel.Font.Bold = True End If 'If this is a redirect because a contact was selected from the Contact page, populate the data If Session.Item("AddContactToIncident") = True Then Me.ContactID.SelectedIndex = 0 Me.ContactID.SelectedItem.Text = Session.Item("SelectedContactID") Me.FirstName.Text = Session.Item("SelectedContactFirstName") Me.LastName.Text = Session.Item("SelectedContactLastName") Me.EMail.Text = Session.Item("SelectedContactEMail") Me.Address.Text = Session.Item("SelectedContactAddress") Me.Phone.Text = Session.Item("SelectedContactPhone") Me.City.Text = Session.Item("SelectedContactCity") Me.State.SelectedIndex = 0 Me.State.SelectedItem.Text = Session.Item("SelectedContactState") Me.State.SelectedItem.Value = Session.Item("SelectedContactState") Me.CompanyDropDownList.SelectedIndex = 0 Me.CompanyDropDownList.SelectedItem.Text = Session.Item("SelectedContactCompany") Me.Zip.Text = Session.Item("SelectedContactZip") If Me.Department.Items.Count < 1 Then Me.Department.Items.Add("") End If Me.Department.SelectedIndex = 0 Me.Department.SelectedItem.Text = Session.Item("SelectedContactDepartment") If Me.SiteDropDownList.Items.Count < 1 Then Me.SiteDropDownList.Items.Add("") End If Me.SiteDropDownList.SelectedIndex = 0 Me.SiteDropDownList.SelectedItem.Text = Session.Item("SelectedContactOffice") Session.Remove("AddContactToIncident") End If If Session.Item("IsAdmin") = True Then Me.QuickTicket.Enabled = True Else Me.QuickTicket.Enabled = False End If exit_here: End Sub Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Session.Remove("JustLoggedIn") Session.Add("JustLoggedIn", "True") Call SaveDirtyData() Response.Redirect("Search.aspx") exit_here: End Sub Private Sub Contact_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("Contact.aspx") exit_here: End Sub Private Sub Company_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("Company.aspx") exit_here: End Sub Private Sub WhiteBoard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("Whiteboard.aspx") exit_here: End Sub Private Sub SaveIncident_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveIncident.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Create", "Incident") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim incidentSTR(255) As Object Dim objCommand Dim updateCriteria Dim Agent As String Dim objrs Dim cmd Dim IncidentNumber As VariantType Dim BizDataSet As DataSet Dim TableRow As DataRow Dim CurrentTime As DateTime Dim USCurrentTime As String 'Check for required fields If Trim(Me.FirstName.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.FirstName) Exit Sub End If If Trim(Me.LastName.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.LastName) Exit Sub End If If Trim(Me.Phone.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Phone) Exit Sub End If If Trim(Me.EMail.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.EMail) Exit Sub End If If Trim(Me.Status.SelectedItem.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Status) Exit Sub End If If Trim(Me.Priority.SelectedItem.Text) = "" Or IsNothing(Me.Priority.SelectedItem) Then Me.ErrorMessage.Text = "" SetFocus(Me.Priority) Exit Sub End If If Trim(Me.Summary.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Summary) Exit Sub End If If Me.StartDate.Text <> "" Then If Not IsDate(Me.StartDate.Text) Then Me.ErrorMessage.Text = "" SetFocus(Me.StartDate) Exit Sub End If End If If Not IsNumeric(Me.Sequence.Text) And Trim(Me.Sequence.Text <> "") Then Me.ErrorMessage.Text = "" SetFocus(Me.Sequence) Exit Sub End If If InStr(Me.Sequence.Text, ".") > 0 Or InStr(Me.Sequence.Text, ",") > 0 Then Me.ErrorMessage.Text = "" SetFocus(Me.Sequence) Exit Sub End If If Not IsNothing(Me.StartDate.Text) And Not IsNothing(Me.AssignedDate.Text) And Me.AssignedDate.Text <> "" And Me.StartDate.Text <> "" Then If DateDiff("s", Me.StartDate.Text, Me.AssignedDate.Text) < 0 Then Me.ErrorMessage.Text = "" SetFocus(Me.StartDate) Exit Sub End If End If Dim ForceCategorizations ForceCategorizations = Session.Item("ForceCategorization") If ForceCategorizations = "Enabled" Then If Trim(Me.Product.SelectedItem.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Product) Exit Sub End If End If 'Check to make sure this is a valid Status Transition if the status has changed or initial create If Not IsNothing(Session.Item("OriginalIncidentStatus")) Or Me.IncidentID.Text = "" Then If (Me.IncidentID.Text <> "" And Trim(Session.Item("OriginalIncidentStatus")) <> Me.Status.SelectedItem.Text) Or Me.IncidentID.Text = "" Then Dim ValidTransition As Boolean objCommand = CreateObject("BizClass.NET") ValidTransition = objCommand.CheckStatusTransition("Incident", Me.IncidentID.Text, Me.Status.SelectedItem.Text, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing If ValidTransition = False Then Me.ErrorMessage.Text = "" SetFocus(Me.Status) Exit Sub End If End If End If If Me.ContactID.SelectedItem.Value = "" Or IsNothing(Me.ContactID.SelectedItem) Then incidentSTR(0) = "ContactID = '" & Trim(Replace(Me.FirstName.Text, "'", "''")) & " " & Trim(Replace(Me.LastName.Text, "'", "''")) & "'" Else incidentSTR(0) = "ContactID = '" & Replace(Me.ContactID.SelectedItem.Value, "'", "''") & "'" End If incidentSTR(1) = "FirstName = '" & Replace(Me.FirstName.Text, "'", "''") & "'" incidentSTR(2) = "LastName = '" & Replace(Me.LastName.Text, "'", "''") & "'" incidentSTR(3) = "Address = '" & Replace(Me.Address.Text, "'", "''") & "'" incidentSTR(4) = "City = '" & Replace(Me.City.Text, "'", "''") & "'" incidentSTR(5) = "State = '" & Replace(Me.State.SelectedItem.Value, "'", "''") & "'" incidentSTR(6) = "Zip = '" & Replace(Me.Zip.Text, "'", "''") & "'" If Not IsNothing(Me.Priority.SelectedItem) Then If Trim(Me.Priority.SelectedItem.Value) <> "" Then incidentSTR(7) = "Priority = " & Me.Priority.SelectedItem.Value End If End If If Not IsNothing(Me.Impact.SelectedItem) Then If Trim(Me.Impact.SelectedItem.Text) <> "" Then incidentSTR(8) = "Impact = '" & Me.Impact.SelectedItem.Text & "'" Else incidentSTR(8) = "Impact = Null" End If End If If Not IsNothing(Me.Urgency.SelectedItem) Then If Trim(Me.Urgency.SelectedItem.Text) <> "" Then incidentSTR(9) = "Urgency = '" & Me.Urgency.SelectedItem.Text & "'" Else incidentSTR(9) = "Urgency = Null" End If End If If Not IsNothing(Me.ServiceType.SelectedItem) Then If Trim(Me.ServiceType.SelectedItem.Text) <> "" Then incidentSTR(10) = "ServiceType = '" & Me.ServiceType.SelectedItem.Text & "'" Else incidentSTR(10) = "ServiceType = Null" End If End If If Not IsNothing(Me.Status.SelectedItem) Then incidentSTR(11) = "Status = '" & Replace(Me.Status.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.BusinessUnit.SelectedItem) Then incidentSTR(12) = "BusinessUnit = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.SiteDropDownList.SelectedItem) Then incidentSTR(13) = "Site = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.Organization.SelectedItem) Then incidentSTR(14) = "Organization = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.Department.SelectedItem) Then incidentSTR(15) = "Department = '" & Replace(Me.Department.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.Manager.SelectedItem) Then incidentSTR(16) = "Manager = '" & Replace(Me.Manager.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.VendorSLA.SelectedItem) Then incidentSTR(17) = "VendorSLA = '" & Replace(Me.VendorSLA.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.StatusReason.SelectedItem) Then incidentSTR(18) = "StatusReason = '" & Replace(Me.StatusReason.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.SLA.SelectedItem) Then incidentSTR(19) = "SLAName = '" & Replace(Me.SLA.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(19) = "SLAName = 'Default SLA'" Me.SLA.Items(0).Text = "Default SLA" End If If Not IsNothing(Me.Product.SelectedItem) Then If Me.Product.SelectedItem.Value <> " " Then incidentSTR(20) = "Product = '" & Replace(Me.Product.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(20) = "Product = ''" End If End If If Not IsNothing(Me.Version.SelectedItem) Then If Me.Version.SelectedItem.Value <> " " Then incidentSTR(21) = "Version = '" & Replace(Me.Version.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(21) = "Version = ''" End If End If If Not IsNothing(Me.Platform.SelectedItem) Then If Me.Platform.SelectedItem.Value <> " " Then incidentSTR(22) = "Platform = '" & Replace(Me.Platform.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(22) = "Platform = ''" End If End If If Not IsNothing(Me.Database.SelectedItem) Then If Me.Database.SelectedItem.Value <> " " Then incidentSTR(23) = "DB = '" & Replace(Me.Database.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(23) = "DB = ''" End If End If incidentSTR(24) = "Summary = '" & Replace(Me.Summary.Text, "'", "''") & "'" incidentSTR(25) = "ContactPhone = '" & Replace(Me.Phone.Text, "'", "''") & "'" incidentSTR(26) = "VendorPhone = '" & Replace(Me.VendorPhone.Text, "'", "''") & "'" incidentSTR(27) = "VendorEmail = '" & Replace(Me.VendorEmail.Text, "'", "''") & "'" incidentSTR(28) = "VendorContact = '" & Replace(Me.VendorContact.SelectedItem.Text, "'", "''") & "'" incidentSTR(30) = "Ticket = '" & Replace(Me.Ticket.Text, "'", "''") & "'" incidentSTR(31) = "ContactEMail = '" & Replace(Me.EMail.Text, "'", "''") & "'" If Not IsNothing(Me.AssignedTo.SelectedItem) Then If Trim(Me.AssignedTo.SelectedItem.Text) <> "" Then incidentSTR(32) = "AssignedTo = '" & Replace(Me.AssignedTo.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(32) = "AssignedTo = ''" End If End If If Not IsNothing(Me.AssignedToGroup.SelectedItem) Then If Trim(Me.AssignedToGroup.SelectedItem.Text) <> "" Then incidentSTR(33) = "AssignedToGroup = '" & Replace(Me.AssignedToGroup.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(33) = "AssignedToGroup = ''" End If End If If Not IsNothing(Me.AssetDropDownList.SelectedItem) Then If Trim(Me.AssetDropDownList.SelectedItem.Text) <> "" Then incidentSTR(37) = "IncidentAssetID = '" & Replace(Me.AssetDropDownList.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(37) = "IncidentAssetID = ''" End If End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then incidentSTR(38) = "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(38) = "CompanyName = ''" End If Else incidentSTR(38) = "CompanyName = ''" End If If Trim(Me.Sequence.Text) <> "" And Not IsNothing(Me.Sequence) Then incidentSTR(39) = "Sequence = " & Replace(Me.Sequence.Text, "'", "''") Else incidentSTR(39) = "Sequence = NULL" End If If Trim(Me.AssignedDate.Text).Length <> 0 And IsDate(Me.AssignedDate.Text) Then USCurrentTime = "" USCurrentTime = Year(Me.AssignedDate.Text) & "-" & Month(Me.AssignedDate.Text) & "-" & Day(Me.AssignedDate.Text) & " " & Hour(Me.AssignedDate.Text) & ":" & Minute(Me.AssignedDate.Text) & ":" & Second(Me.AssignedDate.Text) incidentSTR(40) = "AssignedDate = '" & Trim(USCurrentTime) & "'" Else incidentSTR(40) = "AssignedDate = NULL" End If If Trim(Me.StartDate.Text).Length <> 0 And IsDate(Me.StartDate.Text) Then USCurrentTime = "" USCurrentTime = Year(Me.StartDate.Text) & "-" & Month(Me.StartDate.Text) & "-" & Day(Me.StartDate.Text) & " " & Hour(Me.StartDate.Text) & ":" & Minute(Me.StartDate.Text) & ":" & Second(Me.StartDate.Text) incidentSTR(41) = "StartDate = '" & Trim(USCurrentTime) & "'" Else Me.StartDate.Text = Now() incidentSTR(41) = "StartDate = '" & Year(Me.StartDate.Text) & "-" & Month(Me.StartDate.Text) & "-" & Day(Me.StartDate.Text) & " " & Hour(Me.StartDate.Text) & ":" & Minute(Me.StartDate.Text) & ":" & Second(Me.StartDate.Text) & "'" End If If Me.Status.SelectedItem.Text = "Closed" Or Me.Status.SelectedItem.Text = "Resolved" Then If Trim(Me.ResolutionDate.Text) = "" Then Me.ResolutionDate.Text = Now() End If End If If Trim(Me.ResolutionDate.Text).Length <> 0 And IsDate(Me.ResolutionDate.Text) Then USCurrentTime = "" USCurrentTime = Year(Me.ResolutionDate.Text) & "-" & Month(Me.ResolutionDate.Text) & "-" & Day(Me.ResolutionDate.Text) & " " & Hour(Me.ResolutionDate.Text) & ":" & Minute(Me.ResolutionDate.Text) & ":" & Second(Me.ResolutionDate.Text) incidentSTR(42) = "ResolutionDate = '" & Trim(USCurrentTime) & "'" Else incidentSTR(42) = "ResolutionDate = NULL" End If If Not IsNothing(Session.Item("IncidentResolution")) Then incidentSTR(49) = "ResolutionSummary = '" & Replace(Session.Item("IncidentResolution"), "'", "''") & "'" End If 'Calculate the Call Duration if the Incident is Resolved or Closed If Me.Status.SelectedItem.Value = "Closed" Or Me.Status.SelectedItem.Value = "Resolved" Then If Me.StartDate.Text <> "" And Not IsNothing(Me.StartDate.Text) And Me.ResolutionDate.Text <> "" And Not IsNothing(Me.ResolutionDate.Text) Then Dim CurrentStartDate As Date Dim CurrentEndDate As Date Dim objcmd Dim CurrentDuration As Double Dim CurrentSLA As String CurrentStartDate = Me.StartDate.Text CurrentEndDate = Me.ResolutionDate.Text CurrentSLA = Me.SLA.SelectedItem.Value If CurrentSLA = " " Then CurrentSLA = "Default SLA" End If objcmd = CreateObject("BizClass.NET") CurrentDuration = objcmd.CalculateOutage(CurrentStartDate, CurrentEndDate, CurrentSLA) objcmd = Nothing Me.Duration.Text = CurrentDuration / 60 incidentSTR(43) = "CallDuration = " & Replace(Me.Duration.Text, ",", ".") End If End If incidentSTR(44) = "VendorName = '" & Replace(Me.Vendor.SelectedItem.Text, "'", "''") & "'" Me.Submitter.Text = Session.Item("LoginID") Agent = Session.Item("LoginID") If Me.IncidentID.Text = "" Then If Trim(System.DateTime.Now).Length <> 0 And IsDate(System.DateTime.Now) Then USCurrentTime = "" USCurrentTime = Year(System.DateTime.Now) & "-" & Month(System.DateTime.Now) & "-" & Day(System.DateTime.Now) & " " & Hour(System.DateTime.Now) & ":" & Minute(System.DateTime.Now) & ":" & Second(System.DateTime.Now) incidentSTR(45) = "CreateDate = '" & Trim(USCurrentTime) & "'" End If USCurrentTime = "" USCurrentTime = Year(System.DateTime.Now) & "-" & Month(System.DateTime.Now) & "-" & Day(System.DateTime.Now) & " " & Hour(System.DateTime.Now) & ":" & Minute(System.DateTime.Now) & ":" & Second(System.DateTime.Now) incidentSTR(46) = "Submitter = '" & Replace(Session.Item("LoginID"), "'", "''") & "'" incidentSTR(47) = "LastModifiedBy = '" & Replace(Session.Item("LoginID"), "'", "''") & "'" incidentSTR(48) = "LastModifiedDate = '" & Trim(USCurrentTime) & "'" objCommand = CreateObject("BizClass.NET") cmd = objCommand.EASave("Incident", "IncidentID", incidentSTR, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing Me.IncidentID.Text = cmd Me.IncidentLabel.Text = Application(Session.Item("Language") & " Incident") & " " & cmd Session.Add("RecordLockIncidentIDTryAndGetLock", cmd) Session.Add("RecordLockIncidentID", cmd) Else USCurrentTime = "" USCurrentTime = Year(System.DateTime.Now) & "-" & Month(System.DateTime.Now) & "-" & Day(System.DateTime.Now) & " " & Hour(System.DateTime.Now) & ":" & Minute(System.DateTime.Now) & ":" & Second(System.DateTime.Now) incidentSTR(47) = "LastModifiedBy = '" & Replace(Session.Item("LoginID"), "'", "''") & "'" incidentSTR(48) = "LastModifiedDate = '" & Trim(USCurrentTime) & "'" updateCriteria = "IncidentID = " & Me.IncidentID.Text Dim UniqueID As VariantType UniqueID = Me.IncidentID.Text objrs = CreateObject("BizClass.NET") cmd = objrs.EAUpdate(UniqueID, "Incident", updateCriteria, Agent, incidentSTR, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrs = Nothing End If 'Set Application Variable indicating the database has been updated, expiring any existing rendered Search Results Application("IncidentDBTimestamp") = Now() Application("IncidentSubmitterSessionID") = Request("ASP.NET_SessionID") If cmd = -1 Then Me.ErrorMessage.Text = "" Exit Sub End If Dim objrc Dim rc As Boolean Dim AssignmentCount As Boolean Dim AgentID As String Dim IncidentIDLong As VariantType IncidentIDLong = Me.IncidentID.Text AgentID = Session.Item("LoginID") objrc = CreateObject("BizClass.NET") rc = objrc.CheckNotificationCriteria(IncidentIDLong, AgentID, "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing objrc = CreateObject("BizClass.NET") cmd = objrc.checkSLA(IncidentIDLong, "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing 'Now add any predefined Approvals that Qualify objrc = CreateObject("BizClass.NET") cmd = objrc.checkPreDefinedApprovals(IncidentIDLong, "Incident", AgentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing 'If Agent Assignments are enabled, and the Incident is not assigned, Assign it to a member of the group if it qualifies If Trim(Me.AssignedTo.SelectedItem.Text) = "" And Session.Item("AgentAssignments") = "Enabled" And Not IsNothing(Me.AssignedToGroup.SelectedItem.Text) And Trim(Me.AssignedToGroup.SelectedItem.Text) <> "" Then Dim Group As String Dim AssignToAgent As String Group = Me.AssignedToGroup.SelectedItem.Text objrc = CreateObject("BizClass.NET") AssignToAgent = objrc.AssignToAgent("Incident", IncidentIDLong, Group, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing End If If Session.Item("AgentAssignments") = "Enabled" Then objrc = CreateObject("BizClass.NET") AssignmentCount = objrc.checkAssignmentCount(Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing End If 'change the text on the buttons Me.SaveIncident.Text = Application(Session.Item("Language") & " Modify Incident") Me.DeleteIncident.Enabled = True Me.CreateProblem.Enabled = True Me.RelateToProblem.Enabled = True Me.PrintIncident.Enabled = True 'Me.CreateKB.Enabled = True Me.Worklogs.Enabled = True Me.IncidentAssociations.Enabled = True Me.Attach.Enabled = True Me.Audit.Enabled = True 'If the contact does not exist, and they are not getting the info via LDAP, create it If Session.Item("ContactViaLDAP") = "Disabled" Then Call AutoSaveContact() End If Call ClearDirtyData() 'Special code for Duration and Resolution Date which appears on the IncidenResolution.aspx page as well Session.Remove("IncidentWorklogDate") Session.Add("IncidentWorklogDate", Me.ResolutionDate.Text) Session.Remove("IncidentProblemDuration") Session.Add("IncidentProblemDuration", Me.Duration.Text) 'Refresh the record to get the worklog Session.Remove("RecordLockIncidentID") Session.Add("RecordLockIncidentID", Me.IncidentID.Text) Session.Remove("RecordLockIncidentIDTryAndGetLock") Session.Add("RecordLockIncidentIDTryAndGetLock", Me.IncidentID.Text) Response.Redirect("Incident.aspx") exit_here: End Sub Private Sub Product_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Product.SelectedIndexChanged 'Populate the Version Listbox If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim Objrs Dim SelectedProduct As String Dim CurrentVersion As String Dim sdata(4) As Object Dim BizDataSet As DataSet Dim TableRow As DataRow SelectedProduct = Me.Product.SelectedItem.Value Me.Version.Items.Clear() Me.Version.Items.Add(" ") Me.Platform.Items.Clear() Me.Platform.Items.Add(" ") Me.Database.Items.Clear() Me.Database.Items.Add(" ") 'Populate the Version Dropdown of only valid Entries for the Contact If Not IsNothing(Me.Product.SelectedItem) Then Dim UniqueValue As String Me.Version.Items.Clear() Me.Version.Items.Add(" ") UniqueValue = "" Objrs = Server.CreateObject("BizClass.NET") If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then BizDataSet = Objrs.EAGet("Categorizations", "Version", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And (Company = '" & Trim(Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''")) & "' or Company is NULL or Company = '') or ( Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'))))", 9999, "Version Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else BizDataSet = Objrs.EAGet("Categorizations", "Version", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And (Company is NULL or Company = '') or ( Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'))))", 9999, "Version Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("Version").ToString) Then If UniqueValue <> TableRow("Version").ToString Then Me.Version.Items.Add(TableRow("Version").ToString) End If UniqueValue = TableRow("Version").ToString End If Next BizDataSet.Dispose() Objrs = Nothing End If 'Do the group assignments If Session.Item("GroupAssignments") = "Enabled" Then If Me.Product.SelectedItem.Value <> " " And Not IsNothing(Me.Product.SelectedItem) Then sdata(0) = Me.Product.SelectedItem.Value Else sdata(0) = "" End If If Me.Version.SelectedItem.Value <> " " And Not IsNothing(Me.Version.SelectedItem) Then sdata(1) = Me.Version.SelectedItem.Value Else sdata(1) = "" End If If Me.Platform.SelectedItem.Value <> " " And Not IsNothing(Me.Platform.SelectedItem) Then sdata(2) = Me.Platform.SelectedItem.Value Else sdata(2) = "" End If If Me.Database.SelectedItem.Value <> " " And Not IsNothing(Me.Database.SelectedItem) Then sdata(3) = Me.Database.SelectedItem.Value Else sdata(3) = "" End If Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.getAssignToGroup("Incident", sdata, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Me.AssignedToGroup.Items.Clear() Me.AssignedToGroup.Items.Add(" ") For Each TableRow In BizDataSet.Tables(0).Rows Me.AssignedToGroup.Items.Add(TableRow("GroupName").ToString) Next BizDataSet.Dispose() Objrs = Nothing 'If only one group is found, automatically assign it. If Me.AssignedToGroup.Items.Count = 2 Then Me.AssignedToGroup.SelectedIndex = 1 'Populate the AssignTo dropdown Dim CurrentAgent As String Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("GroupMembers, Groups, Agents", "GroupMembers.AgentID, Agents.AssignedIncidents, Agents.Name", "GroupName='" & Me.AssignedToGroup.SelectedItem.Value & "' And Agents.AgentStatus = 'Available' And GroupMembers.GroupID = Groups.GroupID And GroupMembers.AgentID = Agents.AgentID ", 200, "GroupMembers.AgentID", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If Me.AssignedTo.SelectedItem.Text <> " " Then CurrentAgent = Me.AssignedTo.SelectedItem.Text Else CurrentAgent = "" End If Me.AssignedTo.Items.Clear() If CurrentAgent <> "" Then Me.AssignedTo.Items.Add(CurrentAgent) End If Me.AssignedTo.Items.Add(" ") For Each TableRow In BizDataSet.Tables(0).Rows If TableRow("AgentID").ToString <> CurrentAgent Then Me.AssignedTo.Items.Add(TableRow("AgentID").ToString) End If Next BizDataSet.Dispose() Objrs = Nothing End If End If 'If Agent Assignments enabled, assign it to an agent If Session.Item("AgentAssignments") = "Enabled" Then If Me.AssignedTo.Items.Count = 2 Then Me.AssignedTo.SelectedIndex = 1 End If End If SetFocus(Me.Version) exit_here: End Sub Private Sub Version_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Version.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim Objrs Dim sdata(4) As Object Dim BizDataSet As DataSet Dim TableRow As DataRow Me.Platform.Items.Clear() Me.Platform.Items.Add(" ") Me.Database.Items.Clear() Me.Database.Items.Add(" ") 'Populate the Platform Dropdown of only valid Entries for the Contact If Not IsNothing(Me.Product.SelectedItem) And Not IsNothing(Me.Version.SelectedItem) Then Dim UniqueValue As String UniqueValue = "" Objrs = Server.CreateObject("BizClass.NET") If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then BizDataSet = Objrs.EAGet("Categorizations", "Platform", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And (Company = '" & Trim(Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''")) & "' or Company is NULL or Company = '') or (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'))))", 9999, "Platform Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else BizDataSet = Objrs.EAGet("Categorizations", "Platform", "(EAModule='Incident' or EAModule = '' or EAModule is Null) and (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And (Company is NULL or Company = '') or (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'))))", 9999, "Platform Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("Platform").ToString) Then If UniqueValue <> TableRow("Platform").ToString Then Me.Platform.Items.Add(TableRow("Platform").ToString) End If UniqueValue = TableRow("Platform").ToString End If Next BizDataSet.Dispose() Objrs = Nothing End If 'Do the Group Assignments If Session.Item("GroupAssignments") = "Enabled" Then If Me.Product.SelectedItem.Value <> " " And Not IsNothing(Me.Product.SelectedItem) Then sdata(0) = Me.Product.SelectedItem.Value Else sdata(0) = "" End If If Me.Version.SelectedItem.Value <> " " And Not IsNothing(Me.Version.SelectedItem) Then sdata(1) = Me.Version.SelectedItem.Value Else sdata(1) = "" End If If Me.Platform.SelectedItem.Value <> " " And Not IsNothing(Me.Platform.SelectedItem) Then sdata(2) = Me.Platform.SelectedItem.Value Else sdata(2) = "" End If If Me.Database.SelectedItem.Value <> " " And Not IsNothing(Me.Database.SelectedItem) Then sdata(3) = Me.Database.SelectedItem.Value Else sdata(3) = "" End If Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.getAssignToGroup("Incident", sdata, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count < 1 Then Me.AssignedToGroup.Items.Clear() Me.AssignedTo.Items.Clear() BizDataSet.Dispose() Objrs = Nothing Exit Sub End If Me.AssignedToGroup.Items.Clear() Me.AssignedToGroup.Items.Add(" ") For Each TableRow In BizDataSet.Tables(0).Rows Me.AssignedToGroup.Items.Add(TableRow("GroupName").ToString) Next BizDataSet.Dispose() Objrs = Nothing 'If only one group is found, automatically assign it. If Me.AssignedToGroup.Items.Count = 2 Then Me.AssignedToGroup.SelectedIndex = 1 'Populate the AssignTo dropdown Dim CurrentAgent As String Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("GroupMembers, Groups, Agents", "GroupMembers.AgentID, Agents.AssignedIncidents, Agents.Name", "GroupName='" & Me.AssignedToGroup.SelectedItem.Value & "' And Agents.AgentStatus = 'Available' And GroupMembers.GroupID = Groups.GroupID And GroupMembers.AgentID = Agents.AgentID ", 200, "GroupMembers.AgentID", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If Me.AssignedTo.SelectedItem.Text <> " " Then CurrentAgent = Me.AssignedTo.SelectedItem.Text Else CurrentAgent = "" End If Me.AssignedTo.Items.Clear() If CurrentAgent <> "" Then Me.AssignedTo.Items.Add(CurrentAgent) End If Me.AssignedTo.Items.Add(" ") If BizDataSet.Tables(0).Rows.Count < 1 Then BizDataSet.Dispose() Objrs = Nothing Exit Sub End If For Each TableRow In BizDataSet.Tables(0).Rows If TableRow("AgentID").ToString <> CurrentAgent Then Me.AssignedTo.Items.Add(TableRow("AgentID").ToString) End If Next BizDataSet.Dispose() Objrs = Nothing End If End If 'If Agent Assignments enabled, assign it to an agent If Session.Item("AgentAssignments") = "Enabled" Then If Me.AssignedTo.Items.Count = 2 Then Me.AssignedTo.SelectedIndex = 1 End If End If SetFocus(Me.Platform) exit_here: End Sub Private Sub Platform_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Platform.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim sdata(4) As Object Dim Objrs Dim Bizdataset As DataSet Dim Tablerow As DataRow 'Populate the Database Dropdown of only valid Entries for the Contact If Not IsNothing(Me.Product.SelectedItem) And Not IsNothing(Me.Version.SelectedItem) And Not IsNothing(Me.Platform.SelectedItem) Then Dim UniqueValue As String UniqueValue = "" Objrs = Server.CreateObject("BizClass.NET") If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then Bizdataset = Objrs.EAGet("Categorizations", "DB", "(EAModule='Incident' or EAModule = '' or EAModule Is Null) and (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And Platform = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "' And (Company = '" & Trim(Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''")) & "' or Company is NULL or Company = '') or (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And Platform = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "' And Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'))))", 9999, "DB Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else Bizdataset = Objrs.EAGet("Categorizations", "DB", "(EAModule='Incident' or EAModule = '' or EAModule Is Null) and (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And Platform = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "' And (Company is NULL or Company = '') or (Product = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "' And Version = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "' And Platform = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "' And Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'))))", 9999, "DB Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each Tablerow In Bizdataset.Tables(0).Rows If Not IsDBNull(Tablerow("DB").ToString) Then If UniqueValue <> Tablerow("DB").ToString Then Me.Database.Items.Add(Tablerow("DB").ToString) End If UniqueValue = Tablerow("DB").ToString End If Next Bizdataset.Dispose() Objrs = Nothing End If 'Do the Group Assignment If Session.Item("GroupAssignments") = "Enabled" Then If Me.Platform.SelectedItem.Value <> " " And Not IsNothing(Me.Platform.SelectedItem) Then sdata(0) = Me.Product.SelectedItem.Value Else sdata(0) = "" End If If Me.Version.SelectedItem.Value <> " " And Not IsNothing(Me.Version.SelectedItem) Then sdata(1) = Me.Version.SelectedItem.Value Else sdata(1) = "" End If If Me.Platform.SelectedItem.Value <> " " And Not IsNothing(Me.Platform.SelectedItem) Then sdata(2) = Me.Platform.SelectedItem.Value Else sdata(2) = "" End If If Me.Database.SelectedItem.Value <> " " And Not IsNothing(Me.Database.SelectedItem) Then sdata(3) = Me.Database.SelectedItem.Value Else sdata(3) = "" End If Objrs = CreateObject("BizClass.NET") Bizdataset = Objrs.getAssignToGroup("Incident", sdata, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If Bizdataset.Tables(0).Rows.Count < 1 Then Me.AssignedToGroup.Items.Clear() Me.AssignedTo.Items.Clear() Bizdataset.Dispose() Objrs = Nothing Exit Sub End If Me.AssignedToGroup.Items.Clear() Me.AssignedToGroup.Items.Add(" ") For Each Tablerow In Bizdataset.Tables(0).Rows Me.AssignedToGroup.Items.Add(Tablerow("GroupName").ToString) Next Bizdataset.Dispose() Objrs = Nothing 'If only one group is found, automatically assign it. If Me.AssignedToGroup.Items.Count = 2 Then Me.AssignedToGroup.SelectedIndex = 1 'Populate the AssignTo dropdown Dim CurrentAgent As String Objrs = CreateObject("BizClass.NET") Bizdataset = Objrs.EAGet("GroupMembers, Groups, Agents", "GroupMembers.AgentID, Agents.AssignedIncidents, Agents.Name", "GroupName='" & Me.AssignedToGroup.SelectedItem.Value & "' And Agents.AgentStatus = 'Available' And GroupMembers.GroupID = Groups.GroupID And GroupMembers.AgentID = Agents.AgentID ", 200, "GroupMembers.AgentID", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If Me.AssignedTo.SelectedItem.Text <> " " Then CurrentAgent = Me.AssignedTo.SelectedItem.Text Else CurrentAgent = "" End If Me.AssignedTo.Items.Clear() If CurrentAgent <> "" Then Me.AssignedTo.Items.Add(CurrentAgent) End If Me.AssignedTo.Items.Add(" ") If Bizdataset.Tables(0).Rows.Count < 1 Then Bizdataset.Dispose() Objrs = Nothing Exit Sub End If For Each Tablerow In Bizdataset.Tables(0).Rows If Tablerow("AgentID").ToString <> CurrentAgent Then Me.AssignedTo.Items.Add(Tablerow("AgentID").ToString) End If Next Bizdataset.Dispose() Objrs = Nothing End If 'If Agent Assignments enabled, assign it to an agent If Session.Item("AgentAssignments") = "Enabled" Then If Me.AssignedTo.Items.Count = 2 Then Me.AssignedTo.SelectedIndex = 1 End If End If End If SetFocus(Me.Database) exit_here: End Sub Private Sub AssignedToGroup_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AssignedToGroup.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim objrs Dim CurrentAgent As String Dim BizDataSet As DataSet Dim TableRow As DataRow objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("GroupMembers, Groups, Agents", "GroupMembers.AgentID, Agents.AssignedIncidents, Agents.Name", "GroupName='" & Me.AssignedToGroup.SelectedItem.Value & "' And Agents.AgentStatus = 'Available' And GroupMembers.GroupID = Groups.GroupID And GroupMembers.AgentID = Agents.AgentID ", 200, "GroupMembers.AgentID", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If Not IsNothing(Me.AssignedTo.SelectedItem) Then If Trim(Me.AssignedTo.SelectedItem.Text) <> "" Then CurrentAgent = Me.AssignedTo.SelectedItem.Text Else CurrentAgent = "" End If Else CurrentAgent = "" End If Me.AssignedTo.Items.Clear() Me.AssignedTo.Items.Add(CurrentAgent) Me.AssignedTo.Items.Add("") If BizDataSet.Tables(0).Rows.Count < 1 Then BizDataSet.Dispose() objrs = Nothing Exit Sub End If For Each TableRow In BizDataSet.Tables(0).Rows If TableRow("AgentID").ToString <> CurrentAgent Then Me.AssignedTo.Items.Add(TableRow("AgentID").ToString) End If Next BizDataSet.Dispose() objrs = Nothing SetFocus(Me.AssignedTo) exit_here: End Sub Private Sub CompanyDropDownList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CompanyDropDownList.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Session.Abandon() Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim Objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim SelectedCompanyID As String Dim i = 0 'Used as a counter Dim UniqueValue As String = "" Dim SearchCriteria As String If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then SearchCriteria = "(CompanyID = 0 or CompanyID is Null) " Else SearchCriteria = "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If End If 'Populate the Business Unit Dropdown of only valid Entries for the Company Me.BusinessUnit.Items.Clear() Me.BusinessUnit.Items.Add(" ") Me.BusinessUnit.Items(0).Text = " " Me.BusinessUnit.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("BusinessUnit", "BusinessUnitID, BusinessUnitName", SearchCriteria, 9999, "BusinessUnitName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If Not BizDataSet.Tables(0).Rows.Count < 1 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("BusinessUnitName").ToString) Then i = i + 1 Me.BusinessUnit.Items.Add(TableRow("BusinessUnitName").ToString) Me.BusinessUnit.Items(i).Text = TableRow("BusinessUnitName").ToString Me.BusinessUnit.Items(i).Value = TableRow("BusinessUnitID").ToString End If Next End If BizDataSet.Dispose() Objrs = Nothing If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then SearchCriteria = SearchCriteria & " and (BusinessUnitID = 0 or BusinessUnitID is Null) " End If End If Me.SiteDropDownList.Items.Clear() Me.SiteDropDownList.Items.Add(" ") Me.SiteDropDownList.Items(0).Text = " " Me.SiteDropDownList.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Site", "SiteID, SiteName", SearchCriteria, 9999, "SiteName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("SiteName").ToString) Then i = i + 1 Me.SiteDropDownList.Items.Add(TableRow("SiteName").ToString) Me.SiteDropDownList.Items(i).Text = TableRow("SiteName").ToString Me.SiteDropDownList.Items(i).Value = TableRow("SiteID").ToString End If Next End If BizDataSet.Dispose() Objrs = Nothing If Me.SiteDropDownList.Items.Count < 1 Then Me.SiteDropDownList.Items.Add(New ListItem(" ", 0)) End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then SearchCriteria = SearchCriteria & " and (SiteID = 0 or SiteID is Null) " End If End If Me.Organization.Items.Clear() Me.Organization.Items.Add(" ") Me.Organization.Items(0).Text = " " Me.Organization.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Organization", "OrganizationID, OrganizationName", SearchCriteria, 9999, "OrganizationName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("OrganizationName").ToString) Then i = i + 1 Me.Organization.Items.Add(TableRow("OrganizationName").ToString) Me.Organization.Items(i).Text = TableRow("OrganizationName").ToString Me.Organization.Items(i).Value = TableRow("OrganizationID").ToString End If Next End If BizDataSet.Dispose() Objrs = Nothing If Me.Organization.Items.Count < 1 Then Me.Organization.Items.Add(New ListItem(" ", 0)) End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then SearchCriteria = SearchCriteria & " and (OrganizationID = 0 or OrganizationID is Null) " End If End If Me.Department.Items.Clear() Me.Department.Items.Add(" ") Me.Department.Items(0).Text = " " Me.Department.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Department", "DepartmentID, DepartmentName", SearchCriteria, 9999, "DepartmentName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DepartmentName").ToString) Then i = i + 1 Me.Department.Items.Add(TableRow("DepartmentName").ToString) Me.Department.Items(i).Text = TableRow("DepartmentName").ToString Me.Department.Items(i).Value = TableRow("DepartmentID").ToString End If Next End If BizDataSet.Dispose() Objrs = Nothing 'Populate the Tier1 Dropdown of only valid Entries for the Company Dim OldProductValue As String Dim OriginalContactID As String If Not IsNothing(Me.Product.SelectedItem) Then OldProductValue = Me.Product.SelectedItem.Text End If Me.Product.Items.Clear() Me.Product.Items.Add(OldProductValue) Me.Product.Items.Add(" ") UniqueValue = "" 'Get the list of Categorizations for this Company If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Categorizations", "Product", "(EAModule = 'Incident' or EAModule = '' or EAModule is Null) And ((Company = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "' or (Company is NULL or Company = '') or (Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'))))) Group by Product", 9999, "Product Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("Product").ToString) Then If UniqueValue <> TableRow("Product").ToString Then Me.Product.Items.Add(TableRow("Product").ToString) End If UniqueValue = TableRow("Product").ToString End If Next BizDataSet.Dispose() Objrs = Nothing End If 'Get the list of ContactID's for this Company If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Not IsNothing(Me.ContactID.SelectedItem.Text) Then If Trim(Me.ContactID.SelectedItem.Text) <> "" Then OriginalContactID = Me.ContactID.SelectedItem.Text End If End If Me.ContactID.Items.Clear() Me.ContactID.Items.Add(OriginalContactID) Me.ContactID.Items.Add("") Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Contact", "ContactID", "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'", 9999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("ContactID").ToString) Then If UniqueValue <> TableRow("ContactID").ToString Then Me.ContactID.Items.Add(TableRow("ContactID").ToString) End If UniqueValue = TableRow("ContactID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing End If SetFocus(Me.BusinessUnit) exit_here: End Sub Private Sub ContactID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContactID.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim ContID As String Dim Objrs Dim Objrs2 Dim BizDataSet As DataSet Dim TableRow As DataRow Dim BizDataSet2 As DataSet Dim TableRow2 As DataRow 'populate contact fields with changed info caused by new contact selected ContID = Replace(Me.ContactID.SelectedItem.Value, "'", "''") Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Contact", "*", "ContactID = '" & ContID & "'", 1, "ContactID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count < 1 Then BizDataSet.Dispose() Objrs = Nothing Exit Sub End If TableRow = BizDataSet.Tables(0).Rows.Item(0) If Not IsDBNull(TableRow("FirstName").ToString) Then Me.FirstName.Text = TableRow("FirstName").ToString End If If Not IsDBNull(TableRow("LastName").ToString) Then Me.LastName.Text = TableRow("LastName").ToString End If If Not IsDBNull(TableRow("Phone").ToString) Then Me.Phone.Text = TableRow("Phone").ToString End If If Not IsDBNull(TableRow("EMail").ToString) Then Me.EMail.Text = TableRow("EMail").ToString End If If Not IsDBNull(TableRow("SLAName").ToString) Then Me.SLA.Items(0).Text = TableRow("SLAName").ToString End If If Not IsDBNull(TableRow("StreetAddress").ToString) Then Me.Address.Text = TableRow("StreetAddress").ToString End If If Not IsDBNull(TableRow("City").ToString) Then Me.City.Text = TableRow("City").ToString End If If Not IsDBNull(TableRow("StateProv").ToString) Then Me.State.Items(0).Text = TableRow("StateProv").ToString Me.State.Items(0).Value = TableRow("StateProv").ToString Me.State.SelectedIndex = 0 End If If Not IsDBNull(TableRow("PCode").ToString) Then Me.Zip.Text = TableRow("PCode").ToString End If 'Populate the Tier1 Dropdown of only valid Entries for the Company If Not IsDBNull(TableRow("CompanyName").ToString) Then Dim OldProductValue As String Dim OriginalContactID As String If Not IsNothing(Me.Product.SelectedItem) Then OldProductValue = Me.Product.SelectedItem.Text End If End If 'Re-Populates the Company Dropdown with all records Me.CompanyDropDownList.Items.Clear() If Not IsDBNull(TableRow("CompanyName").ToString) Then Me.CompanyDropDownList.Items.Add(New ListItem(TableRow("CompanyName").ToString, TableRow("CompanyName").ToString)) End If Me.CompanyDropDownList.Items.Add(New ListItem("", "")) Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Company", "CompanyName", "1=1", 99999, "CompanyName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows Me.CompanyDropDownList.Items.Add(New ListItem(TableRow2("CompanyName").ToString, TableRow2("CompanyName").ToString)) Next End If BizDataSet2.Dispose() Objrs2 = Nothing 'Re-populate the BusinessUnit Dropdown Me.BusinessUnit.Items.Clear() If Not IsDBNull(TableRow("BusinessUnitName").ToString) Then Me.BusinessUnit.Items.Add(New ListItem(TableRow("BusinessUnitName").ToString, TableRow("BusinessUnitName").ToString)) End If Me.BusinessUnit.Items.Add(New ListItem("", "")) 'Populates the BusinessUnit Dropdown with all records that are related to this company If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("BusinessUnit", "BusinessUnitName", "CompanyName = '" & Replace(Trim(Me.CompanyDropDownList.SelectedItem.Text), "'", "''") & "'", 99999, "BusinessUnitName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("BusinessUnitName").ToString) Then Me.BusinessUnit.Items.Add(New ListItem(TableRow2("BusinessUnitName").ToString, TableRow2("BusinessUnitName").ToString)) End If Next End If BizDataSet2.Dispose() Objrs2 = Nothing End If End If 'Now get all the Standalone Business Units If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("BusinessUnit", "BusinessUnitName", "CompanyID = 0 or CompanyID Is Null", 99999, "BusinessUnitName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("BusinessUnitName").ToString) Then Me.BusinessUnit.Items.Add(New ListItem(TableRow2("BusinessUnitName").ToString, TableRow2("BusinessUnitName").ToString)) End If Next End If BizDataSet2.Dispose() Objrs2 = Nothing End If 'Re-Populate the SiteID dropdown Me.SiteDropDownList.Items.Clear() If Not IsDBNull(TableRow("SiteName").ToString) Then Me.SiteDropDownList.Items.Add(New ListItem(TableRow("SiteName").ToString, TableRow("SiteName").ToString)) End If Me.SiteDropDownList.Items.Add(New ListItem("", "")) If Not IsNothing(Me.BusinessUnit.SelectedItem) Then If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Site", "SiteName", "BusinessUnitName = '" & Replace(Trim(Me.BusinessUnit.SelectedItem.Text), "'", "''") & "'", 99999, "SiteName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("SiteName").ToString) And Not IsDBNull(TableRow2("SiteName").ToString) Then Me.SiteDropDownList.Items.Add(New ListItem(TableRow2("SiteName").ToString, TableRow2("SiteName").ToString)) End If Next End If BizDataSet2.Dispose() Objrs2 = Nothing End If End If 'Now get all the Sites that do not have a Business Unit, but have the Company as a Parent If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Site", "SiteName", "(CompanyName = '" & Replace(Trim(Me.CompanyDropDownList.SelectedItem.Text), "'", "''") & "') and (BusinessUnitID = 0 or BusinessUnitID Is Null)", 99999, "SiteName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("SiteName").ToString) Then Me.SiteDropDownList.Items.Add(New ListItem(TableRow2("SiteName").ToString, TableRow2("SiteName").ToString)) End If Next BizDataSet2.Dispose() Objrs2 = Nothing End If End If End If 'Now get all the Standalone Sites If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" And Trim(Me.BusinessUnit.SelectedItem.Text) = "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Site", "SiteName", "(CompanyID = 0 or CompanyID Is Null) and (BusinessUnitID = 0 or BusinessUnitID Is Null)", 99999, "SiteName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("SiteName").ToString) Then Me.SiteDropDownList.Items.Add(New ListItem(TableRow2("SiteName").ToString, TableRow2("SiteName").ToString)) End If Next End If BizDataSet2.Dispose() Objrs2 = Nothing End If 'Re-Populate the Organization dropdown Me.Organization.Items.Clear() If Not IsDBNull(TableRow("OrganizationName").ToString) Then Me.Organization.Items.Add(New ListItem(TableRow("OrganizationName").ToString, TableRow("OrganizationName").ToString)) End If Me.Organization.Items.Add(New ListItem("", "")) If Not IsNothing(Me.SiteDropDownList.SelectedItem) Then If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Organization", "OrganizationName", "SiteName = '" & Replace(Trim(Me.SiteDropDownList.SelectedItem.Text), "'", "''") & "'", 99999, "OrganizationName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("OrganizationName").ToString) Then Me.Organization.Items.Add(New ListItem(TableRow2("OrganizationName").ToString, TableRow2("OrganizationName").ToString)) End If Next End If BizDataSet2.Dispose() Objrs2 = Nothing End If End If 'Now get all the Standalone Organizations If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" And Trim(Me.BusinessUnit.SelectedItem.Text) = "" And Trim(Me.SiteDropDownList.SelectedItem.Text) = "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Organization", "OrganizationName", "(CompanyID = 0 or CompanyID Is Null) and (BusinessUnitID = 0 or BusinessUnitID Is Null) and (SiteID = 0 or SiteID Is Null)", 99999, "OrganizationName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("OrganizationName").ToString) Then Me.Organization.Items.Add(New ListItem(TableRow2("OrganizationName").ToString, TableRow2("OrganizationName").ToString)) End If Next End If BizDataSet2.Dispose() Objrs2 = Nothing End If 'Re-Populate the Department dropdown Me.Department.Items.Clear() If Not IsDBNull(TableRow("DepartmentName").ToString) Then Me.Department.Items.Add(New ListItem(TableRow("DepartmentName").ToString, TableRow("DepartmentName").ToString)) End If Me.Department.Items.Add(New ListItem("", "")) If Not IsNothing(Me.Organization.SelectedItem) Then If Trim(Me.Organization.SelectedItem.Text) <> "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Department", "DepartmentName", "OrganizationName = '" & Replace(Trim(Me.Organization.SelectedItem.Text), "'", "''") & "'", 99999, "DepartmentName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("DepartmentName").ToString) Then Me.Department.Items.Add(New ListItem(TableRow2("DepartmentName").ToString, TableRow2("DepartmentName").ToString)) End If Next End If BizDataSet.Dispose() Objrs2 = Nothing End If End If 'Now get all the Standalone Departments If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" And Trim(Me.BusinessUnit.SelectedItem.Text) = "" And Trim(Me.SiteDropDownList.SelectedItem.Text) = "" And Trim(Me.Organization.SelectedItem.Text) = "" Then Objrs2 = CreateObject("BizClass.NET") BizDataSet2 = Objrs2.EAGet("Department", "DepartmentName", "(CompanyID = 0 or CompanyID Is Null) and (BusinessUnitID = 0 or BusinessUnitID Is Null) and (SiteID = 0 or SiteID Is Null) and (OrganizationID = 0 or OrganizationID Is Null)", 99999, "DepartmentName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet2.Tables(0).Rows.Count > 0 Then For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("DepartmentName").ToString) Then Me.Department.Items.Add(New ListItem(TableRow2("DepartmentName").ToString, TableRow2("DepartmentName").ToString)) End If Next End If BizDataSet2.Dispose() Objrs2 = Nothing End If BizDataSet.Dispose() Objrs = Nothing 'Get the contacts list of Assets Me.AssetDropDownList.Items.Clear() Me.AssetDropDownList.Items.Add(" ") Objrs = CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Asset", "Asset", "Owner = '" & Replace(Me.ContactID.SelectedItem.Value, "'", "''") & "'", 99999, "Asset Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("Asset").ToString) Then Me.AssetDropDownList.Items.Add(TableRow("Asset").ToString) End If Next BizDataSet.Dispose() Objrs = Nothing 'Populate the Product Dropdown of only valid Entries for the Company If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then 'Populate the Product Dropdown of only valid Entries for the Company If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then Dim UniqueValue As String Dim OldProductValue As String UniqueValue = "" If Not IsNothing(Me.Product.SelectedItem) Then OldProductValue = Me.Product.SelectedItem.Text End If Me.Product.Items.Clear() Me.Product.Items.Add(OldProductValue) Me.Product.Items.Add(" ") UniqueValue = "" Objrs2 = Server.CreateObject("BizClass.NET") BizDataSet = Objrs2.EAGet("Categorizations", "Product", "(EAModule = 'Incident' or EAModule = '' or EAModule is Null) And (Company = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "' or (Company is NULL or Company = '') or (Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "')))) Group by Product", 9999, "Product Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("Product").ToString) Then If UniqueValue <> TableRow("Product").ToString Then Me.Product.Items.Add(TableRow("Product").ToString) End If UniqueValue = TableRow("Product").ToString End If Next BizDataSet.Dispose() Objrs2 = Nothing End If End If SetFocus(Me.Summary) exit_here: End Sub Private Sub StartNewIncident_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartNewIncident.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If ClearIncident() exit_here: End Sub Private Sub Database_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Database.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim sdata(4) As Object Dim Objrs Dim BizDataset As DataSet Dim TableRow As DataRow Dim CurrentAssignedGroup As String CurrentAssignedGroup = Me.AssignedToGroup.SelectedItem.Text 'Do the Group Assignment If Session.Item("GroupAssignments") = "Enabled" Then If Me.Product.SelectedItem.Value <> " " And Not IsNothing(Me.Product.SelectedItem) Then sdata(0) = Me.Product.SelectedItem.Value Else sdata(0) = "" End If If Me.Version.SelectedItem.Value <> " " And Not IsNothing(Me.Version.SelectedItem) Then sdata(1) = Me.Version.SelectedItem.Value Else sdata(1) = "" End If If Me.Platform.SelectedItem.Value <> " " And Not IsNothing(Me.Platform.SelectedItem) Then sdata(2) = Me.Platform.SelectedItem.Value Else sdata(2) = "" End If If Me.Database.SelectedItem.Value <> " " And Not IsNothing(Me.Database.SelectedItem) Then sdata(3) = Me.Database.SelectedItem.Value Else sdata(3) = "" End If Objrs = CreateObject("BizClass.NET") BizDataset = Objrs.getAssignToGroup("Incident", sdata, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Me.AssignedToGroup.Items.Clear() Me.AssignedToGroup.Items.Add(CurrentAssignedGroup) For Each TableRow In BizDataset.Tables(0).Rows Me.AssignedToGroup.Items.Add(TableRow("GroupName").ToString) Next BizDataset.Dispose() Objrs = Nothing 'If only one group is found, automatically assign it. If Me.AssignedToGroup.Items.Count = 2 Then Me.AssignedToGroup.SelectedIndex = 1 'Populate the AssignTo dropdown Dim CurrentAgent As String Objrs = CreateObject("BizClass.NET") BizDataset = Objrs.EAGet("GroupMembers, Groups, Agents", "GroupMembers.AgentID, Agents.AssignedIncidents, Agents.Name", "GroupName='" & Me.AssignedToGroup.SelectedItem.Value & "' And Agents.AgentStatus = 'Available' And GroupMembers.GroupID = Groups.GroupID And GroupMembers.AgentID = Agents.AgentID ", 200, "GroupMembers.AgentID", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If Me.AssignedTo.SelectedItem.Text <> " " Then CurrentAgent = Me.AssignedTo.SelectedItem.Text Else CurrentAgent = "" End If Me.AssignedTo.Items.Clear() Me.AssignedTo.Items.Add(" ") If CurrentAgent <> "" Then Me.AssignedTo.Items.Add(CurrentAgent) End If If BizDataset.Tables(0).Rows.Count < 1 Then BizDataset.Dispose() Objrs = Nothing Exit Sub End If For Each TableRow In BizDataset.Tables(0).Rows If TableRow("AgentID").ToString <> CurrentAgent Then Me.AssignedTo.Items.Add(TableRow("AgentID").ToString) End If Next BizDataset.Dispose() Objrs = Nothing End If End If 'If Agent Assignments enabled, assign it to an agent If Session.Item("AgentAssignments") = "Enabled" Then If Me.AssignedTo.Items.Count = 2 Then Me.AssignedTo.SelectedIndex = 1 End If End If SetFocus(Me.Sequence) exit_here: End Sub Private Sub DeleteIncident_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteIncident.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Delete", "Incident") = False Then Me.ErrorMessage.Text = "" Exit Sub End If If Me.DeleteIncident.Text = Application(Session.Item("Language") & " Delete Incident") Then Me.DeleteIncident.Text = Application(Session.Item("Language") & " Are you sure?") Me.DeleteIncident.Enabled = False Me.YesButton.Enabled = True Me.NoButton.Enabled = True Else Me.DeleteIncident.Text = Application(Session.Item("Language") & " Delete Incident") Me.DeleteIncident.Enabled = True Me.YesButton.Enabled = False Me.NoButton.Enabled = False End If exit_here: End Sub Private Sub YesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesButton.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim AttachmentUNC As String Dim AttachmentDirectory As String Dim IncidentID As VariantType Dim Unassignment As String Dim Objrs Dim cmd As Boolean Dim DeleteCriteria As String If Me.IncidentID.Text = "" Then Exit Sub End If Objrs = CreateObject("BizClass.NET") cmd = Objrs.CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Delete", "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing If cmd = False Then Me.DeleteIncident.Text = Application(Session.Item("Language") & " Delete Incident") Me.YesButton.Enabled = False Me.NoButton.Enabled = False Exit Sub End If IncidentID = Me.IncidentID.Text Objrs = CreateObject("BizClass.NET") cmd = Objrs.EASQL("Delete From Incident Where IncidentID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing Objrs = CreateObject("BizClass.NET") cmd = Objrs.EASQL("Delete From IncidentWorkLog Where IncidentID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing Objrs = CreateObject("BizClass.NET") cmd = Objrs.EASQL("Delete From SLAMeasurement Where EAModuleID = " & IncidentID & " And EAModule = 'Incident'", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing Objrs = CreateObject("BizClass.NET") cmd = Objrs.EASQL("Delete From EscalationAudit Where EAModuleID = " & IncidentID & " And EAModule = 'Incident'", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing Objrs = CreateObject("BizClass.NET") cmd = Objrs.EASQL("Delete From NotificationAudit Where EAModuleID = " & IncidentID & " And EAModule = 'Incident'", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing Objrs = CreateObject("BizClass.NET") cmd = Objrs.EASQL("Delete From Attachments Where EAModuleID = " & IncidentID & " And EAModule = 'Incident'", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'Delete the Incident Impacted Areas Objrs = CreateObject("BizClass.NET") cmd = Objrs.EADelete("ImpactedArea", "EAModule = 'Incident' and EAModuleID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'Delete the Change Associations Entries DeleteCriteria = "(EAModule = 'Incident' and EAModuleID = " & IncidentID & ") or (AssociatedEAModule = 'Incident' and AssociatedEAModuleID = " & IncidentID & ")" Objrs = CreateObject("BizClass.NET") cmd = Objrs.EADelete("Association", DeleteCriteria, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'delete the attachment database pointer(s) Objrs = CreateObject("BizClass.NET") cmd = Objrs.EADelete("Attachments", "EAModule = 'Incident' And EAModuleID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'delete the Incident Attributes Objrs = CreateObject("BizClass.NET") cmd = Objrs.EADelete("Attribute", "EAModule = 'Incident' And EAModuleID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'delete the Incident NotificationAudit Objrs = CreateObject("BizClass.NET") cmd = Objrs.EADelete("NotificationAudit", "EAModule = 'Incident' And EAModuleID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'delete the Incident EscalationAudit Objrs = CreateObject("BizClass.NET") cmd = Objrs.EADelete("EscalationAudit", "EAModule = 'Incident' And EAModuleID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'delete the Incident SLAMeasurement Objrs = CreateObject("BizClass.NET") cmd = Objrs.EADelete("SLAMeasurement", "EAModule = 'Incident' And EAModuleID = " & IncidentID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing 'Write an Audit Record If Session.Item("Auditing") = "Enabled" Then Dim AuditData(255) AuditData(0) = "ID = " & IncidentID AuditData(1) = "AuditField = 'Delete Incident'" AuditData(2) = "AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'" AuditData(3) = "Action = 'Delete'" AuditData(4) = "EAModule = 'Incident'" AuditData(5) = "AuditDate = '" & Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "'" Objrs = CreateObject("BizClass.NET") cmd = Objrs.EASave("Audit", "AuditID", AuditData, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Objrs = Nothing End If 'Get the directory name AttachmentUNC = Session.Item("AttachmentUNC") On Error Resume Next If Right(AttachmentUNC, 1) = "\" Then AttachmentUNC = AttachmentUNC & "i" & IncidentID Else AttachmentUNC = AttachmentUNC & "\i" & IncidentID End If Kill(AttachmentUNC & "\*.*") RmDir(AttachmentUNC) 'Set Application Variable indicating the database has been updated, expiring any existing rendered Search Results Application("IncidentDBTimestamp") = Now() Application("IncidentSubmitterSessionID") = Request("ASP.NET_SessionID") Call ClearIncident() Session.Remove("RecordLockIncidentID") Response.Redirect("Incident.aspx") exit_here: End Sub Private Sub NoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoButton.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Me.DeleteIncident.Text = Application(Session.Item("Language") & " Delete Incident") Me.DeleteIncident.Enabled = True Me.YesButton.Enabled = False Me.NoButton.Enabled = False exit_here: End Sub Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim Objrs Dim BizDataSet As DataSet Dim Tablerow As DataRow Dim SelectedStatus As String Dim i = 0 'Used as a counter SelectedStatus = Me.Status.SelectedItem.Text Me.StatusReason.Items.Clear() Me.StatusReason.Items.Add(" ") Me.StatusReason.Items(0).Text = " " If Not IsNothing(Me.Status.SelectedItem) And Trim(SelectedStatus) <> "" Then i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("StatusReason", "Reason", "Status = '" & Replace(SelectedStatus, "'", "''") & "' AND EAModule = 'Incident'", 9999, "Reason Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each Tablerow In BizDataSet.Tables(0).Rows If Not IsDBNull(Tablerow("Reason").ToString) Then i = i + 1 Me.StatusReason.Items.Add(Tablerow("Reason").ToString) Me.StatusReason.Items(i).Text = Tablerow("Reason").ToString End If Next End If BizDataSet.Dispose() Objrs = Nothing End If If Me.Status.SelectedItem.Value = "Closed" Or Me.Status.SelectedItem.Value = "Resolved" Then Me.ResolutionDateLabel.Font.Bold = True End If exit_here: End Sub Public Function GetServerTime() As Date If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim ServerDate As Date ServerDate = Now() GetServerTime = ServerDate exit_here: End Function Public Sub LockIncident() Me.FirstName.Enabled = False Me.CompanyDropDownList.Enabled = False Me.LastName.Enabled = False Me.Phone.Enabled = False Me.EMail.Enabled = False Me.City.Enabled = False Me.CreateDate.Enabled = False Me.ContactID.Enabled = False Me.AssignedDate.Enabled = False Me.ServiceType.Enabled = False Me.StartDate.Enabled = False Me.Duration.Enabled = False Me.Sequence.Enabled = False Me.Resolution.Enabled = False Me.Submitter.Enabled = False Me.Summary.Enabled = False Me.Vendor.Enabled = False Me.Priority.Enabled = False Me.SLA.Enabled = False Me.Priority.Enabled = False Me.Version.Enabled = False Me.AssignedToGroup.Enabled = False Me.AssignedTo.Enabled = False Me.Product.Enabled = False Me.Version.Enabled = False Me.Platform.Enabled = False Me.Database.Enabled = False Me.Address.Enabled = False Me.State.Enabled = False Me.Zip.Enabled = False Me.Status.Enabled = False Me.AssignedTo.Enabled = False Me.AssignedToGroup.Enabled = False Me.ServiceType.Enabled = False Me.Duration.Enabled = False Me.Resolution.Enabled = False Me.AssignedDate.Enabled = False Me.SaveIncident.Enabled = False Me.DeleteIncident.Enabled = False Me.CreateProblem.Enabled = True Me.RelateToProblem.Enabled = True Me.PrintIncident.Enabled = False Me.CreateKB.Enabled = False Me.BusinessUnit.Enabled = False Me.SiteDropDownList.Enabled = False Me.Organization.Enabled = False Me.Department.Enabled = False Me.AssetDropDownList.Enabled = False Me.StatusReason.Enabled = False Me.ResolutionDate.Enabled = False Me.Impact.Enabled = False Me.Urgency.Enabled = False Me.Manager.Enabled = False Me.DefaultGroup.Enabled = False Me.VendorContact.Enabled = False Me.Ticket.Enabled = False Me.VendorEmail.Enabled = False Me.VendorPhone.Enabled = False Session.Remove("IncidentLocked") Session.Add("IncidentLocked", "True") End Sub Public Sub UnLockIncident() Me.FirstName.Enabled = True Me.CompanyDropDownList.Enabled = True Me.LastName.Enabled = True Me.Phone.Enabled = True Me.EMail.Enabled = True Me.StartDate.Enabled = True Me.City.Enabled = True Me.CreateDate.Enabled = True Me.ContactID.Enabled = True Me.AssignedDate.Enabled = True Me.ServiceType.Enabled = True Me.Duration.Enabled = True Me.Sequence.Enabled = True Me.Resolution.Enabled = True Me.Submitter.Enabled = True Me.Summary.Enabled = True Me.Vendor.Enabled = True Me.Priority.Enabled = True Me.SLA.Enabled = True Me.Priority.Enabled = True Me.Version.Enabled = True Me.AssignedToGroup.Enabled = True Me.AssignedTo.Enabled = True Me.Product.Enabled = True Me.Version.Enabled = True Me.Platform.Enabled = True Me.Database.Enabled = True Me.Address.Enabled = True Me.State.Enabled = True Me.Zip.Enabled = True Me.Status.Enabled = True Me.AssignedTo.Enabled = True Me.AssignedToGroup.Enabled = True Me.ServiceType.Enabled = True Me.Duration.Enabled = True Me.Resolution.Enabled = True Me.AssignedDate.Enabled = True Me.SaveIncident.Enabled = True Me.DeleteIncident.Enabled = False Me.CreateProblem.Enabled = True Me.RelateToProblem.Enabled = True Me.PrintIncident.Enabled = False Me.CreateKB.Enabled = False Me.BusinessUnit.Enabled = True Me.SiteDropDownList.Enabled = True Me.Organization.Enabled = True Me.Department.Enabled = True Me.AssetDropDownList.Enabled = True Me.StatusReason.Enabled = True Me.ResolutionDate.Enabled = True Me.Impact.Enabled = True Me.Urgency.Enabled = True Me.Manager.Enabled = True Me.DefaultGroup.Enabled = True Me.VendorContact.Enabled = True Me.Ticket.Enabled = True Me.VendorEmail.Enabled = True Me.VendorPhone.Enabled = True Session.Remove("IncidentLocked") Session.Add("IncidentLocked", "False") End Sub Public Function SetLoginView() If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If 'Enable or disable fields/buttons you don't want a Contact login to see on the Incident tab If Me.Session.Item("LoginType") = "Contact" Or Session.Item("LoginType") = "LDAP-Contact" Then 'Add your fields here Me.AssignedTo.Enabled = False Me.AssignedToGroup.Enabled = False End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Delete", "Incident") = False Then Me.DeleteIncident.Enabled = False End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Create", "Incident") = True Then Me.CreateProblem.Enabled = True End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Create", "Incident") = False Then Me.StartNewIncident.Enabled = False Me.SaveIncident.Enabled = False End If If Session.Item("RecordLockIncidentID") Is Nothing Then Me.Worklogs.Enabled = False Me.Attach.Enabled = False Me.Audit.Enabled = False Me.IncidentAssociations.Enabled = False Me.Resolution.Enabled = False Me.ImpactedAreas.Enabled = False Me.Attributes.Enabled = False Me.Approvals.Enabled = False Else Me.Worklogs.Enabled = True Me.Attach.Enabled = True Me.Audit.Enabled = True Me.IncidentAssociations.Enabled = True Me.Resolution.Enabled = True Me.ImpactedAreas.Enabled = True Me.Attributes.Enabled = True Me.Approvals.Enabled = True End If exit_here: End Function Private Sub Logout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Logout.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Session.Abandon() Response.Redirect("Login.aspx") exit_here: End Sub Private Sub ChangeSettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeSettings.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Response.Redirect("ChangeProfile.aspx") exit_here: End Sub Private Sub ChangePassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePassword.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Response.Redirect("ChangePassword.aspx") exit_here: End Sub Public Function ClearIncident() If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If 'Free up the record lock if there is one If Not IsNothing(Session.Item("RecordLockIncidentID")) Then Dim RecordLockObj Dim DeletedRecordLock As String Dim IncidentIDInt As VariantType IncidentIDInt = Session.Item("RecordLockIncidentID") RecordLockObj = CreateObject("BizClass.NET") DeletedRecordLock = RecordLockObj.deleteRecordLock(IncidentIDInt, "Incident", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) RecordLockObj = Nothing End If Me.FirstName.Text = "" Me.LastName.Text = "" Me.Address.Text = "" Me.City.Text = "" Me.Phone.Text = "" Me.EMail.Text = "" Me.Zip.Text = "" If Me.State.Items.Count < 1 Then Me.State.Items.Add("") End If Me.State.Items(0).Text = "" Me.State.Items(0).Value = "" Me.State.SelectedIndex = 0 Me.CreateDate.Text = "" Me.LastModifiedDate.Text = "" Me.LastModifiedBy.Text = "" Me.VendorPhone.Text = "" Me.VendorEmail.Text = "" If Me.VendorContact.Items.Count > 0 Then Me.VendorContact.SelectedIndex = 0 Me.VendorContact.SelectedItem.Text = "" End If Me.Ticket.Text = "" Me.Impact.Items.Clear() Me.DeleteIncident.Text = Application(Session.Item("Language") & " Delete Incident") Me.DeleteIncident.Enabled = False Me.YesButton.Enabled = False Me.NoButton.Enabled = False Me.Urgency.Items.Clear() Me.ServiceType.Items.Clear() Me.StatusReason.Items.Clear() Me.VendorSLA.Items.Clear() If Me.CompanyDropDownList.Items.Count > 0 Then Me.CompanyDropDownList.Items(0).Text = "" Me.CompanyDropDownList.SelectedIndex = 0 End If If Me.BusinessUnit.Items.Count > 0 Then Me.BusinessUnit.Items(0).Text = "" Me.BusinessUnit.SelectedIndex = 0 End If If Me.SiteDropDownList.Items.Count > 0 Then Me.SiteDropDownList.Items(0).Text = "" Me.SiteDropDownList.SelectedIndex = 0 End If If Me.Organization.Items.Count > 0 Then Me.Organization.Items(0).Text = "" Me.Organization.SelectedIndex = 0 End If If Me.Department.Items.Count > 0 Then Me.Department.Items(0).Text = "" Me.Department.SelectedIndex = 0 End If Me.StartDate.Text = "" If Me.Vendor.Items.Count > 0 Then Me.Vendor.SelectedIndex = 0 Me.Vendor.SelectedItem.Text = "" End If Me.AssetDropDownList.Items.Clear() Me.AssetDropDownList.Items.Add(" ") Me.Summary.Text = "" If Me.Priority.Items.Count < 1 Then Me.Priority.Items.Add("") End If Me.Priority.Items(0).Text = "" Me.Priority.SelectedIndex = 0 If Me.Status.Items.Count < 1 Then Me.Status.Items.Add("") End If Me.Status.Items(0).Text = " " Me.Status.Items(0).Value = " " Me.Status.SelectedIndex = 0 If Me.SLA.Items.Count > 0 Then Me.SLA.Items(0).Text = " " Me.SLA.SelectedIndex = 0 End If If Me.Product.Items.Count < 1 Then Me.Product.Items.Add("") End If Me.Product.Items(0).Text = " " Me.Version.Items.Clear() Me.Platform.Items.Clear() Me.Database.Items.Clear() Me.ServiceType.Items.Clear() Me.Submitter.Text = "" Me.AssignedDate.Text = "" Me.ResolutionDate.Text = "" Me.Duration.Text = "" Me.Sequence.Text = "" If Me.AssignedTo.Items.Count < 1 Then Me.AssignedTo.Items.Add("") End If Me.AssignedTo.Items(0).Text = " " Me.AssignedTo.SelectedIndex = 0 If Me.AssignedToGroup.Items.Count < 1 Then Me.AssignedToGroup.Items.Add("") End If Me.AssignedToGroup.Items(0).Text = " " Me.AssignedToGroup.SelectedIndex = 0 If Me.Manager.Items.Count < 1 Then Me.Manager.Items.Add("") End If Me.Manager.Items(0).Text = " " Me.Manager.SelectedIndex = 0 Me.IncidentID.Text = "" Me.IncidentLabel.Text = Application(Session.Item("Language") & " Incident") Session.Remove("RecordLockIncidentID") Session.Remove("RecordLockIncidentIDTryAndGetLock") Session.Remove("Priority1Redirect") Session.Remove("OpenIncidentRedirect") Session.Remove("CurrentIncidentID") Session.Remove("IncidentProblemID") Session.Remove("HighlightedIncidentImpactedArea") Session.Remove("IncidentImpactedAreaPageIndex") Session.Remove("HighlightedWorklog") Session.Remove("RecordLockWorklogID") Session.Remove("HighlightedWorklogDate") Session.Remove("HighlightedWorklogDuration") Session.Remove("HighlightedWorklogEntry") Session.Remove("IncidentWorklogEntry") Session.Remove("IncidentWorklogDuration") Session.Remove("IncidentWorklogDate") Session.Remove("OrigialIncidentStatus") Me.SaveIncident.Text = Application(Session.Item("Language") & " Save Incident") Me.DeleteIncident.Enabled = False Me.CreateProblem.Enabled = False Me.RelateToProblem.Enabled = False Me.PrintIncident.Enabled = False Me.CreateKB.Enabled = False Me.CreateKB.Text = Application(Session.Item("Language") & " Create Knowledge") Me.YesButton.Enabled = False Me.NoButton.Enabled = False Me.ServiceTypeLabel.Font.Bold = False Me.AssignedDateLabel.Font.Bold = False Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim i As Integer 'Re-Populate the Company DropDown Me.CompanyDropDownList.Items.Clear() If Session.Item("LoginType") = "Agent" Or Session.Item("LoginType") = "LDAP-Agent" Then Me.CompanyDropDownList.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Company", "*", "1=1", 99999, "CompanyName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.CompanyDropDownList.Items.Add(TableRow("CompanyName").ToString) Next BizDataSet.Dispose() objrs = Nothing Else 'Add the Contacts Company Name to the list Me.CompanyDropDownList.Items.Add(" ") End If ' If Me.Page.IsPostBack = False Then 'Initialize the BusinessUnit Dropdown Me.BusinessUnit.Items.Clear() Me.BusinessUnit.Items.Add(" ") Me.BusinessUnit.Items(0).Text = " " Me.BusinessUnit.Items(0).Value = 0 objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("BusinessUnit", "BusinessUnitID, BusinessUnitName", "CompanyID = 0 or CompanyID Is Null", 9999, "BusinessUnitName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("BusinessUnitName").ToString) Then i = i + 1 Me.BusinessUnit.Items.Add(TableRow("BusinessUnitName").ToString) Me.BusinessUnit.Items(i).Text = TableRow("BusinessUnitName").ToString Me.BusinessUnit.Items(i).Value = TableRow("BusinessUnitID").ToString End If Next End If BizDataSet.Dispose() objrs = Nothing 'Initialize the BusinessUnit Dropdown If Me.BusinessUnit.Items.Count < 1 Then Me.BusinessUnit.Items.Add(New ListItem(" ", 0)) End If Me.SiteDropDownList.Items.Clear() Me.SiteDropDownList.Items.Add(" ") Me.SiteDropDownList.Items(0).Text = " " Me.SiteDropDownList.Items(0).Value = 0 i = 0 objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Site", "SiteID, SiteName", "(BusinessUnitID = 0 or BusinessUnitID Is Null) and (CompanyID = 0 or CompanyID Is Null)", 9999, "SiteName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("SiteName").ToString) Then i = i + 1 Me.SiteDropDownList.Items.Add(TableRow("SiteName").ToString) Me.SiteDropDownList.Items(i).Text = TableRow("SiteName").ToString Me.SiteDropDownList.Items(i).Value = TableRow("SiteID").ToString End If Next End If BizDataSet.Dispose() objrs = Nothing If Me.SiteDropDownList.Items.Count < 1 Then Me.SiteDropDownList.Items.Add(New ListItem(" ", 0)) End If ' If Me.Page.IsPostBack = False Then Me.Organization.Items.Clear() Me.Organization.Items.Add(" ") Me.Organization.Items(0).Text = " " Me.Organization.Items(0).Value = 0 i = 0 objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Organization", "OrganizationID, OrganizationName", "(SiteID = 0 or SiteID Is Null) And (BusinessUnitID = 0 or BusinessUnitID Is Null) and (CompanyID = 0 or CompanyID Is Null)", 9999, "OrganizationName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("OrganizationName").ToString) Then i = i + 1 Me.Organization.Items.Add(TableRow("OrganizationName").ToString) Me.Organization.Items(i).Text = TableRow("OrganizationName").ToString Me.Organization.Items(i).Value = TableRow("OrganizationID").ToString End If Next End If BizDataSet.Dispose() objrs = Nothing If Me.Organization.Items.Count < 1 Then Me.Organization.Items.Add(New ListItem(" ", 0)) End If Me.Department.Items.Clear() Me.Department.Items.Add(" ") Me.Department.Items(0).Text = " " Me.Department.Items(0).Value = 0 i = 0 objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Department", "DepartmentID, DepartmentName", "(CompanyID = 0 or CompanyID Is Null) and (BusinessUnitID = 0 or BusinessUnitID Is Null) and (SiteID = 0 or SiteID Is Null) and (OrganizationID = 0 or OrganizationID Is Null)", 9999, "DepartmentName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DepartmentName").ToString) Then i = i + 1 Me.Department.Items.Add(TableRow("DepartmentName").ToString) Me.Department.Items(i).Text = TableRow("DepartmentName").ToString Me.Department.Items(i).Value = TableRow("DepartmentID").ToString End If Next End If BizDataSet.Dispose() objrs = Nothing 'Initialize the Department Dropdown If Me.Department.Items.Count < 1 Then Me.Department.Items.Add(New ListItem(" ", 0)) End If 'Re-Populate the ContactID dropdown Me.ContactID.Items.Clear() Me.ContactID.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") If Session.Item("LoginType") = "Contact" Or Session.Item("LoginType") = "LDAP-Contact" Then BizDataSet = objrs.EAGet("Contact", "ContactID", "ContactID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'", 99999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else BizDataSet = objrs.EAGet("Contact", "ContactID", "1=1", 99999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("ContactID").ToString) Then Me.ContactID.Items.Add(New ListItem(TableRow("ContactID").ToString)) End If Next BizDataSet.Dispose() objrs = Nothing 'Re-Populate the Product Dropdown Me.Product.Items.Clear() Me.Product.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Categorizations", "Product", "(EAModule='Incident' or EAModule = '' or EAModule Is Null) and ((Company is NULL or Company = '') or (Company in (select GroupName from Groups where GroupID in (select GroupID from GroupMembers where AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "')))) Group by Product", 9999, "Product Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Product.Items.Add(TableRow("Product").ToString) Next BizDataSet.Dispose() objrs = Nothing Me.Version.Items.Clear() Me.Version.Items.Add(" ") Me.Platform.Items.Clear() Me.Platform.Items.Add(" ") Me.Database.Items.Clear() Me.Database.Items.Add(" ") 'Re-Populate the SLA DropDown Me.SLA.Items.Clear() Me.SLA.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("SLA", "SLAName", "EAModule = 'Incident' and Enabled = 'TRUE'", 9999, "SLAName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.SLA.Items.Add(TableRow("SLAName").ToString) Next BizDataSet.Dispose() objrs = Nothing 'Re-Populate the AssignedToGroup dropdown Me.AssignedToGroup.Items.Clear() Me.AssignedToGroup.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Groups", "*", "GroupStatus <> 'Inactive' and GroupName <> 'Contacts'", 9999, "GroupName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.AssignedToGroup.Items.Add(TableRow("GroupName").ToString) Next BizDataSet.Dispose() objrs = Nothing 'Re-Populate the AssignedTo dropdown Me.AssignedTo.Items.Clear() Me.AssignedTo.Items.Add(" ") objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Agents", "AgentID", "AgentStatus <> 'Absent'", 9999, "AgentID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.AssignedTo.Items.Add(TableRow("AgentID").ToString) Next BizDataSet.Dispose() objrs = Nothing 'Populate the VendorSLA DropDown If Me.VendorSLA.Items.Count < 1 Then Me.VendorSLA.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("SLA", "SLAName", "Enabled = 'TRUE'", 9999, "SLAName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.VendorSLA.Items.Add(TableRow("SLAName").ToString) Next BizDataSet.Dispose() objrs = Nothing End If 'Populate the ServiceType dropdown If Me.ServiceType.Items.Count < 1 Then Me.ServiceType.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("ServiceType", "*", "EAModule='Incident'", 99999, "ServiceType Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.ServiceType.Items.Add(TableRow("ServiceType").ToString) Next BizDataSet.Dispose() objrs = Nothing End If 'Populate the Impact dropdown If Me.Impact.Items.Count < 1 Then Me.Impact.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Impact", "*", "EAModule='Incident'", 99999, "Impact Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Impact.Items.Add(TableRow("Impact").ToString) Next BizDataSet.Dispose() objrs = Nothing End If 'Populate the Urgency dropdown If Me.Urgency.Items.Count < 1 Then Me.Urgency.Items.Add(" ") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Urgency", "*", "EAModule='Incident'", 99999, "Urgency Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows Me.Urgency.Items.Add(TableRow("Urgency").ToString) Next BizDataSet.Dispose() objrs = Nothing End If Call UnLockIncident() Call ClearDirtyData() Call SetDefaultValues() Me.Worklogs.Enabled = False Me.Worklogs.ForeColor = System.Drawing.Color.Black Me.Worklogs.Font.Bold = False Me.Attach.ForeColor = System.Drawing.Color.Black Me.Attach.Font.Bold = False Me.Attach.Enabled = False Me.Attributes.Enabled = False Me.Attributes.ForeColor = System.Drawing.Color.Black Me.Attributes.Font.Bold = False Me.Approvals.Enabled = False Me.Approvals.ForeColor = System.Drawing.Color.Black Me.Approvals.Font.Bold = False Me.IncidentAssociations.Enabled = False Me.Resolution.Enabled = False Me.Audit.Enabled = False Me.ImpactedAreas.Enabled = False Me.CreateProblem.Text = "Create Problem" Me.Worklogs.Text = Application(Session.Item("Language") & " Worklogs") Me.Attach.Text = Application(Session.Item("Language") & " Attachments") Me.Approvals.Text = Application(Session.Item("Language") & " Approvals") Me.Attributes.Text = Application(Session.Item("Language") & " Service Request Fields") Session.Remove("IncidentContactSearchCriteria") Session.Add("IncidentContactSearchCriteria", "1=1") exit_here: End Function Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Session.Remove("OpenIncidentRedirect") Session.Add("OpenIncidentRedirect", "True") Session.Remove("Priority1Redirect") Session.Add("Priority1Redirect", "False") Session.Remove("SearchDatagridPage") Response.Redirect("Search.aspx") exit_here: End Sub Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Session.Remove("Priority1Redirect") Session.Add("Priority1Redirect", "True") Session.Remove("OpenIncidentRedirect") Session.Add("OpenIncidentRedirect", "False") Session.Remove("SearchDatagridPage") Response.Redirect("Search.aspx") exit_here: End Sub Private Sub LinkButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton3.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call ClearDirtyData() Session.Remove("StartNewIncident") Session.Add("StartNewIncident", "True") Response.Redirect("Incident.aspx") exit_here: End Sub Private Sub ShowAudit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Response.Redirect("Audit.aspx") End Sub Private Sub About_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles About.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("About.aspx") exit_here: End Sub Private Sub SiteFeedback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SiteFeedback.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Response.Redirect("Company.aspx") exit_here: End Sub Private Sub FrequentlyAsked_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FrequentlyAsked.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() If Session.Item("ContactViaLDAP") = "Enabled" Then Response.Redirect("LDAPContact.aspx") Else Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub MainConsole_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MainConsole.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Response.Redirect(Session.Item("ConsolePage")) exit_here: End Sub Private Sub Worklogs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Worklogs.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Response.Redirect("Worklog.aspx") exit_here: End Sub Private Sub Attach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Attach.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("Attachments.aspx") exit_here: End Sub Private Sub Audit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Audit.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Response.Redirect("Audit.aspx") exit_here: End Sub Private Sub Associations_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("IncidentAssociations.aspx") exit_here: End Sub Public Function CheckPermissions(ByVal AgentID As String, ByVal PermissionType As String, ByVal EAModule As String) As Boolean If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim objCommand Dim cmd As Boolean If Session.Item("LoginType") = "LDAP-Agent" Then AgentID = "LDAP-Agent" End If If Session.Item("LoginType") = "LDAP-Contact" Then AgentID = "LDAP-Contact" End If objCommand = CreateObject("BizClass.NET") cmd = objCommand.CheckPermissions(AgentID, PermissionType, EAModule, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) CheckPermissions = cmd objCommand = Nothing exit_here: End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() If Not IsNothing(Me.ContactID.SelectedItem) Then If Trim(Me.ContactID.SelectedItem.Value) <> "" Then Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactSearchCriteria") Session.Add("ContactSearchCriteria", "ContactID = '" & Replace(Me.ContactID.SelectedItem.Value, "'", "''") & "'") Session.Remove("ContactRedirect") Session.Add("ContactRedirect", "True") Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Contact", "Contact_ID", "ContactID = '" & Replace(Me.ContactID.SelectedItem.Value, "'", "''") & "'", 9999, "Contact_ID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 1 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) Session.Remove("RecordLockContactID") Session.Add("RecordLockContactID", TableRow("Contact_ID").ToString) End If BizDataSet.Dispose() objrs = Nothing End If End If If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") If Not IsNothing(Me.ContactID.SelectedItem) Then Session.Add("LDAPContactSearchCriteria", "(& (sAMAccountName=" & Me.ContactID.SelectedItem.Text & "*) )") End If Response.Redirect("LDAPContact.aspx") Else Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub FirstNameLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FirstNameLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() Session.Remove("ContactSearchCriteria") Session.Remove("RecordLockContactID") Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactRedirect") Session.Add("ContactRedirect", "True") Session.Remove("ContactInitialLoad") Session.Add("ContactInitialLoad", False) If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (givenname=" & Me.FirstName.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Session.Add("ContactSearchCriteria", "FirstName Like '%" & Replace(Me.FirstName.Text, "'", "''") & "%'") Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub LastNameLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LastNameLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() Session.Remove("ContactSearchCriteria") Session.Remove("RecordLockContactID") Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactRedirect") Session.Add("ContactRedirect", "True") Session.Remove("ContactInitialLoad") Session.Add("ContactInitialLoad", False) If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (sn=" & Me.LastName.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Session.Add("ContactSearchCriteria", "LastName Like '%" & Replace(Me.LastName.Text, "'", "''") & "%'") Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub PhoneLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() Session.Remove("ContactSearchCriteria") Session.Remove("RecordLockContactID") Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactRedirect") Session.Add("ContactRedirect", "True") Session.Remove("ContactInitialLoad") Session.Add("ContactInitialLoad", False) If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (telephoneNumber=" & Me.Phone.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Session.Add("ContactSearchCriteria", "Phone Like '%" & Me.Phone.Text & "%'") Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub EMailLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EMailLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() Session.Remove("ContactSearchCriteria") Session.Add("ContactSearchCriteria", "EMail Like '%" & Me.EMail.Text & "%'") Session.Remove("ContactInitialLoad") Session.Add("ContactInitialLoad", False) If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (mail=" & Me.EMail.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub CompanyLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CompanyLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim CompanyName As String Dim CompanyID As Long Call SaveDirtyData() If Me.CompanyDropDownList.SelectedItem.Text <> " " Then Session.Remove("CompanySearchCriteria") Session.Add("CompanySearchCriteria", "CompanyName Like '%" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "%'") CompanyName = Me.CompanyDropDownList.SelectedItem.Text objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Company", "CompanyID", "CompanyName = '" & Replace(CompanyName, "'", "''") & "'", 9999, "CompanyName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) CompanyID = TableRow("CompanyID").ToString Session.Remove("RecordLockCompanyID") Session.Add("RecordLockCompanyID", CompanyID) Session.Remove("CompanyRedirect") Session.Add("CompanyRedirect", "True") End If BizDataSet.Dispose() objrs = Nothing End If Session.Remove("CompanyInitialLoad") Session.Add("CompanyInitialLoad", False) Session.Remove("CompanyDatagridType") Session.Add("CompanyDatagridType", "Company") Session.Remove("HighlightedCompanyDatagridID") Session.Remove("CompanyPageIndex") If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (Company=" & Me.CompanyDropDownList.SelectedItem.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Response.Redirect("Company.aspx") End If exit_here: End Sub Private Sub AddressLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() Session.Remove("ContactSearchCriteria") Session.Remove("RecordLockContactID") Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactRedirect") Session.Add("ContactRedirect", "True") Session.Remove("ContactInitialLoad") Session.Add("ContactInitialLoad", False) If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (postalAddress=" & Me.Address.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Session.Add("ContactSearchCriteria", "StreetAddress Like '%" & Me.Address.Text & "%'") Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub CityLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CityLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() Session.Remove("ContactSearchCriteria") Session.Remove("RecordLockContactID") Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactRedirect") Session.Add("ContactRedirect", "True") Session.Remove("ContactInitialLoad") Session.Add("ContactInitialLoad", False) If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (l=" & Me.City.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Session.Add("ContactSearchCriteria", "City Like '%" & Me.City.Text & "%'") Response.Redirect("Contact.aspx") End If exit_here: End Sub Public Sub SaveDirtyData() If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If 'This routine populates session variables with the current/dirty data. This is for the case where a user 'types in changes, goes to another page, and returns expecting to see the changed data, without having to do a save If Not IsNothing(Me.ContactID.SelectedItem) Then Session.Remove("IncidentContactID") Session.Add("IncidentContactID", Me.ContactID.SelectedItem.Text) End If If Not IsNothing(Me.FirstName.Text) Then Session.Remove("IncidentFirstName") Session.Add("IncidentFirstName", Me.FirstName.Text) End If If Not IsNothing(Me.LastName.Text) Then Session.Remove("IncidentLastName") Session.Add("IncidentLastName", Me.LastName.Text) End If If Not IsNothing(Me.Phone.Text) Then Session.Remove("IncidentPhone") Session.Add("IncidentPhone", Me.Phone.Text) End If If Not IsNothing(Me.EMail.Text) Then Session.Remove("IncidentEMail") Session.Add("IncidentEMail", Me.EMail.Text) End If If Not IsNothing(Me.Address.Text) Then Session.Remove("IncidentAddress") Session.Add("IncidentAddress", Me.Address.Text) End If If Not IsNothing(Me.City.Text) Then Session.Remove("IncidentCity") Session.Add("IncidentCity", Me.City.Text) End If If Not IsNothing(Me.State.SelectedItem) Then Session.Remove("IncidentState") Session.Add("IncidentState", Me.State.SelectedItem.Text) End If If Not IsNothing(Me.Zip.Text) Then Session.Remove("IncidentZip") Session.Add("IncidentZip", Me.Zip.Text) End If If Not IsNothing(Me.Summary.Text) Then Session.Remove("IncidentSummary") Session.Add("IncidentSummary", Me.Summary.Text) End If If Not IsNothing(Me.Vendor.SelectedItem) Then Session.Remove("IncidentVendor") Session.Add("IncidentVendor", Me.Vendor.SelectedItem.Text) End If If Not IsNothing(Me.Priority.SelectedItem) Then Session.Remove("IncidentPriority") Session.Add("IncidentPriority", Me.Priority.SelectedItem.Value) End If If Not IsNothing(Me.Status.SelectedItem) Then Session.Remove("IncidentStatus") Session.Add("IncidentStatus", Me.Status.SelectedItem.Text) End If If Not IsNothing(Me.SLA.SelectedItem) Then Session.Remove("IncidentSLA") Session.Add("IncidentSLA", Me.SLA.SelectedItem.Text) End If If Not IsNothing(Me.Product.SelectedItem) Then Session.Remove("IncidentProduct") Session.Add("IncidentProduct", Me.Product.SelectedItem.Text) End If If Not IsNothing(Me.Version.SelectedItem) Then Session.Remove("IncidentVersion") Session.Add("IncidentVersion", Me.Version.SelectedItem.Text) End If If Not IsNothing(Me.Platform.SelectedItem) Then Session.Remove("IncidentPlatform") Session.Add("IncidentPlatform", Me.Platform.SelectedItem.Text) End If If Not IsNothing(Me.Database.SelectedItem) Then Session.Remove("IncidentDatabase") Session.Add("IncidentDatabase", Me.Database.SelectedItem.Text) End If If Not IsNothing(Me.AssignedToGroup.SelectedItem) Then Session.Remove("IncidentAssignedToGroup") Session.Add("IncidentAssignedToGroup", Me.AssignedToGroup.SelectedItem.Text) End If If Not IsNothing(Me.AssignedTo.SelectedItem) Then Session.Remove("IncidentAssignedTo") Session.Add("IncidentAssignedTo", Me.AssignedTo.SelectedItem.Text) End If If Not IsNothing(Me.AssignedDate.Text) Then Session.Remove("IncidentAssigneddate") Session.Add("IncidentAssigneddate", Me.AssignedDate.Text) End If If Not IsNothing(Me.StartDate.Text) Then Session.Remove("IncidentStartDate") Session.Add("IncidentStartDate", Me.StartDate.Text) End If If Not IsNothing(Me.ResolutionDate.Text) Then Session.Remove("IncidentResolutionDate") Session.Add("IncidentResolutionDate", Me.ResolutionDate.Text) End If If Not IsNothing(Me.ServiceType.SelectedItem) Then Session.Remove("IncidentServiceType") Session.Add("IncidentServiceType", Me.ServiceType.SelectedItem.Text) End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then Session.Remove("IncidentCompany") Session.Add("IncidentCompany", Me.CompanyDropDownList.SelectedItem.Text) End If If Not IsNothing(Me.BusinessUnit.SelectedItem) Then Session.Remove("IncidentBusinessUnit") Session.Add("IncidentBusinessUnit", Me.BusinessUnit.SelectedItem.Text) End If If Not IsNothing(Me.SiteDropDownList.SelectedItem) Then Session.Remove("IncidentSite") Session.Add("IncidentSite", Me.SiteDropDownList.SelectedItem.Text) End If If Not IsNothing(Me.Organization.SelectedItem) Then Session.Remove("IncidentOrganization") Session.Add("IncidentOrganization", Me.Organization.SelectedItem.Text) End If If Not IsNothing(Me.Department.SelectedItem) Then Session.Remove("IncidentDepartment") Session.Add("IncidentDepartment", Me.Department.SelectedItem.Text) End If If Not IsNothing(Me.Impact.SelectedItem) Then Session.Remove("IncidentImpact") Session.Add("IncidentImpact", Me.Impact.SelectedItem.Text) End If If Not IsNothing(Me.Urgency.SelectedItem) Then Session.Remove("IncidentUrgency") Session.Add("IncidentUrgency", Me.Urgency.SelectedItem.Text) End If If Not IsNothing(Me.Manager.SelectedItem) Then Session.Remove("IncidentManager") Session.Add("IncidentManager", Me.Manager.SelectedItem.Text) End If If Not IsNothing(Me.VendorSLA.SelectedItem) Then Session.Remove("IncidentVendorSLA") Session.Add("IncidentVendorSLA", Me.VendorSLA.SelectedItem.Text) End If If Not IsNothing(Me.VendorContact.SelectedItem) Then Session.Remove("IncidentVendorContact") Session.Add("IncidentVendorContact", Me.VendorContact.SelectedItem.Text) End If If Not IsNothing(Me.Duration.Text) Then Session.Remove("IncidentDuration") Session.Add("IncidentDuration", Me.Duration.Text) End If If Not IsNothing(Me.Sequence.Text) Then Session.Remove("IncidentSequence") Session.Add("IncidentSequence", Me.Sequence.Text) End If If Not IsNothing(Me.VendorEmail.Text) Then Session.Remove("IncidentVendorEmail") Session.Add("IncidentVendorEmail", Me.VendorEmail.Text) End If If Not IsNothing(Me.Ticket.Text) Then Session.Remove("IncidentTicket") Session.Add("IncidentTicket", Me.Ticket.Text) End If If Not IsNothing(Me.VendorPhone.Text) Then Session.Remove("IncidentVendorPhone") Session.Add("IncidentVendorPhone", Me.VendorPhone.Text) End If If Not IsNothing(Me.CreateDate.Text) Then Session.Remove("IncidentCreateDate") Session.Add("IncidentCreateDate", Me.CreateDate.Text) End If If Not IsNothing(Me.LastModifiedBy.Text) Then Session.Remove("IncidentLastModifiedBy") Session.Add("IncidentLastModifiedBy", Me.LastModifiedBy.Text) End If If Not IsNothing(Me.LastModifiedDate.Text) Then Session.Remove("IncidentLastModifiedDate") Session.Add("IncidentLastModifiedDate", Me.LastModifiedDate.Text) End If If Not IsNothing(Me.Submitter.Text) Then Session.Remove("IncidentSubmitter") Session.Add("IncidentSubmitter", Me.Submitter.Text) End If exit_here: End Sub Public Sub RestoreDirtyData() If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim IdentitySearchCriteria As String 'This routine restores data that has been changed but not saved. If Not IsNothing(Session.Item("IncidentContactID")) Then Me.ContactID.SelectedIndex = 0 Me.ContactID.SelectedItem.Text = Session.Item("IncidentContactID") End If If Not IsNothing(Session.Item("IncidentFirstName")) Then Me.FirstName.Text = Session.Item("IncidentFirstName") End If If Not IsNothing(Session.Item("IncidentLastName")) Then Me.LastName.Text = Session.Item("IncidentLastName") End If If Not IsNothing(Session.Item("IncidentPhone")) Then Me.Phone.Text = Session.Item("IncidentPhone") End If If Not IsNothing(Session.Item("IncidentEMail")) Then Me.EMail.Text = Session.Item("IncidentEMail") End If If Not IsNothing(Session.Item("IncidentAddress")) Then Me.Address.Text = Session.Item("IncidentAddress") End If If Not IsNothing(Session.Item("IncidentImpact")) Then Me.Impact.SelectedIndex = 0 Me.Impact.SelectedItem.Text = Session.Item("IncidentImpact") End If If Not IsNothing(Session.Item("IncidentUrgency")) Then Me.Urgency.SelectedIndex = 0 Me.Urgency.SelectedItem.Text = Session.Item("IncidentUrgency") End If If Not IsNothing(Session.Item("IncidentServiceType")) Then Me.ServiceType.SelectedIndex = 0 Me.ServiceType.SelectedItem.Text = Session.Item("IncidentServiceType") End If If Not IsNothing(Session.Item("IncidentManager")) Then Me.Manager.SelectedIndex = 0 Me.Manager.SelectedItem.Text = Session.Item("IncidentManager") End If If Not IsNothing(Session.Item("IncidentVendorSLA")) Then Me.VendorSLA.SelectedIndex = 0 Me.VendorSLA.SelectedItem.Text = Session.Item("IncidentVendorSLA") End If If Not IsNothing(Session.Item("IncidentCity")) Then Me.City.Text = Session.Item("IncidentCity") End If If Not IsNothing(Session.Item("IncidentState")) Then Me.State.SelectedItem.Text = Session.Item("IncidentState") End If If Not IsNothing(Session.Item("IncidentZip")) Then Me.Zip.Text = Session.Item("IncidentZip") End If If Not IsNothing(Session.Item("IncidentVendorName")) Then Me.Vendor.SelectedIndex = 0 Me.Vendor.SelectedItem.Text = Session.Item("IncidentVendorName") End If If Not IsNothing(Session.Item("IncidentVendorContact")) Then Me.VendorContact.SelectedIndex = 0 Me.VendorContact.SelectedItem.Text = Session.Item("IncidentVendorContact") End If If Not IsNothing(Session.Item("IncidentTicket")) Then Me.Ticket.Text = Session.Item("IncidentTicket") End If If Not IsNothing(Session.Item("IncidentVendorEmail")) Then Me.VendorEmail.Text = Session.Item("IncidentVendorEmail") End If If Not IsNothing(Session.Item("IncidentVendorPhone")) Then Me.VendorPhone.Text = Session.Item("IncidentVendorPhone") End If If Not IsNothing(Session.Item("IncidentAssignedDate")) Then Me.AssignedDate.Text = Session.Item("IncidentAssignedDate") End If If Not IsNothing(Session.Item("IncidentCreateDate")) Then Me.CreateDate.Text = Session.Item("IncidentCreateDate") End If If Not IsNothing(Session.Item("IncidentSubmitter")) Then Me.Submitter.Text = Session.Item("IncidentSubmitter") End If If Not IsNothing(Session.Item("IncidentLastModifiedBy")) Then Me.LastModifiedBy.Text = Session.Item("IncidentLastModifiedBy") End If If Not IsNothing(Session.Item("IncidentLastModifiedDate")) Then Me.LastModifiedDate.Text = Session.Item("IncidentLastModifiedDate") End If If Not IsNothing(Session.Item("IncidentStartDate")) Then Me.StartDate.Text = Session.Item("IncidentStartDate") End If If Not IsNothing(Session.Item("IncidentResolutionDate")) Then Me.ResolutionDate.Text = Session.Item("IncidentResolutionDate") End If If Not IsNothing(Session.Item("IncidentSummary")) Then Me.Summary.Text = Session.Item("IncidentSummary") End If If Not IsNothing(Session.Item("IncidentVendor")) Then Me.Vendor.SelectedIndex = 0 Me.Vendor.SelectedItem.Text = Session.Item("IncidentVendor") End If If Not IsNothing(Session.Item("IncidentPriority")) Then Me.Priority.SelectedIndex = 0 Me.Priority.SelectedItem.Text = Session.Item("IncidentPriority") Me.Priority.SelectedItem.Value = Session.Item("IncidentPriority") End If If Not IsNothing(Session.Item("IncidentStatus")) Then Me.Status.SelectedIndex = 0 Me.Status.SelectedItem.Text = Session.Item("IncidentStatus") End If If Not IsNothing(Session.Item("IncidentSLA")) Then Me.SLA.SelectedIndex = 0 Me.SLA.SelectedItem.Text = Session.Item("IncidentSLA") End If If Not IsNothing(Session.Item("IncidentStatusReason")) Then Me.StatusReason.SelectedIndex = 0 Me.StatusReason.SelectedItem.Text = Session.Item("IncidentStatusReason") End If If Not IsNothing(Session.Item("IncidentProduct")) Then Me.Product.SelectedIndex = 0 Me.Product.SelectedItem.Text = Session.Item("IncidentProduct") End If If Not IsNothing(Session.Item("IncidentVersion")) Then Me.Version.SelectedIndex = 0 Me.Version.SelectedItem.Text = Session.Item("IncidentVersion") End If If Not IsNothing(Session.Item("IncidentPlatform")) Then Me.Platform.SelectedIndex = 0 Me.Platform.SelectedItem.Text = Session.Item("IncidentPlatform") End If If Not IsNothing(Session.Item("IncidentDatabase")) Then Me.Database.SelectedIndex = 0 Me.Database.SelectedItem.Text = Session.Item("IncidentDatabase") End If If Not IsNothing(Session.Item("IncidentAssignedToGroup")) Then Me.AssignedToGroup.SelectedIndex = 0 Me.AssignedToGroup.SelectedItem.Text = Session.Item("IncidentAssignedToGroup") End If If Not IsNothing(Session.Item("IncidentAssignedTo")) Then Me.AssignedTo.SelectedIndex = 0 Me.AssignedTo.SelectedItem.Text = Session.Item("IncidentAssignedTo") End If If Not IsNothing(Session.Item("IncidentAssignedDate")) Then Me.AssignedDate.Text = Session.Item("IncidentAssignedDate") End If If Not IsNothing(Session.Item("IncidentServiceType")) Then Me.ServiceType.SelectedIndex = 0 Me.ServiceType.SelectedItem.Text = Session.Item("IncidentServiceType") End If If Not IsNothing(Session.Item("IncidentDuration")) Then Me.Duration.Text = Session.Item("IncidentDuration") End If If Not IsNothing(Session.Item("IncidentSequence")) Then Me.Sequence.Text = Session.Item("IncidentSequence") End If 'Re-populate the Identification dropdowns Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim objrs2 Dim BizDataSet2 As DataSet Dim TableRow2 As DataRow If Not IsNothing(Session.Item("IncidentCompany")) Then If Session.Item("IncidentCompany") <> Me.CompanyDropDownList.SelectedItem.Text Then 'Re-Populates the Company Dropdown with all records Me.CompanyDropDownList.Items.Clear() If Not IsNothing(Session.Item("IncidentCompany")) Then Me.CompanyDropDownList.Items.Add(New ListItem(Session.Item("IncidentCompany"), Session.Item("IncidentCompany"))) End If Me.CompanyDropDownList.Items.Add(New ListItem("", "")) objrs2 = CreateObject("BizClass.NET") BizDataSet2 = objrs2.EAGet("Company", "CompanyName, CompanyID", "1=1", 99999, "CompanyName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows Me.CompanyDropDownList.Items.Add(New ListItem(TableRow2("CompanyName").ToString, TableRow2("CompanyID").ToString)) Next BizDataSet2.Dispose() objrs2 = Nothing End If End If If Not IsNothing(Session.Item("IncidentBusinessUnit")) Then If Trim(Session.Item("IncidentBusinessUnit")) <> Trim(Me.BusinessUnit.SelectedItem.Text) Or Trim(Session.Item("IncidentBusinessUnit")) = "" Then 'Re-populate the BusinessUnit Dropdown Me.BusinessUnit.Items.Clear() If Not IsNothing(Session.Item("IncidentBusinessUnit")) Then Me.BusinessUnit.Items.Add(New ListItem(Session.Item("IncidentBusinessUnit"), Session.Item("IncidentBusinessUnit"))) End If Me.BusinessUnit.Items.Add(New ListItem("", "")) 'Populates the BusinessUnit Dropdown with all records that are related to this company If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then IdentitySearchCriteria = "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = "(CompanyID = 0 or CompanyID Is Null) " End If End If objrs2 = CreateObject("BizClass.NET") BizDataSet2 = objrs2.EAGet("BusinessUnit", "BusinessUnitName", IdentitySearchCriteria, 99999, "BusinessUnitName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("BusinessUnitName").ToString) Then Me.BusinessUnit.Items.Add(New ListItem(TableRow2("BusinessUnitName").ToString, TableRow2("BusinessUnitName").ToString)) End If Next BizDataSet2.Dispose() objrs2 = Nothing End If End If 'Re-Populate the SiteID dropdown If Not IsNothing(Session.Item("IncidentSite")) Then If Trim(Session.Item("IncidentSite")) <> Trim(Me.SiteDropDownList.SelectedItem.Text) Or Trim(Session.Item("IncidentSite")) = "" Then Me.SiteDropDownList.Items.Clear() If Not IsNothing(Session.Item("IncidentSite")) Then Me.SiteDropDownList.Items.Add(New ListItem(Session.Item("IncidentSite"), Session.Item("IncidentSite"))) End If Me.SiteDropDownList.Items.Add(New ListItem("", "")) 'Get all the Sites that belong to the Company and Business Unit If Not IsNothing(Me.BusinessUnit.SelectedItem) Then If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then If Len(IdentitySearchCriteria) = 0 Then IdentitySearchCriteria = " BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = IdentitySearchCriteria & " And BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If End If End If objrs2 = CreateObject("BizClass.NET") BizDataSet2 = objrs2.EAGet("Site", "SiteName", IdentitySearchCriteria, 99999, "SiteName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("SiteName").ToString) And Not IsDBNull(TableRow2("SiteName").ToString) Then Me.SiteDropDownList.Items.Add(New ListItem(TableRow2("SiteName").ToString, TableRow2("SiteName").ToString)) End If Next BizDataSet2.Dispose() objrs2 = Nothing End If End If 'Re-Populate the Organization dropdown If Not IsNothing(Session.Item("IncidentOrganization")) Then If Trim(Session.Item("IncidentOrganization")) <> Trim(Me.Organization.SelectedItem.Text) Or Trim(Session.Item("IncidentOrganization")) = "" Then Me.Organization.Items.Clear() If Not IsNothing(Session.Item("IncidentOrganization")) Then Me.Organization.Items.Add(New ListItem(Session.Item("IncidentOrganization"), Session.Item("IncidentOrganization"))) End If Me.Organization.Items.Add(New ListItem("", "")) If Not IsNothing(Me.SiteDropDownList.SelectedItem) Then If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then If Len(IdentitySearchCriteria) = 0 Then IdentitySearchCriteria = " SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = IdentitySearchCriteria & " And SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If End If End If objrs2 = CreateObject("BizClass.NET") BizDataSet2 = objrs2.EAGet("Organization", "OrganizationName", IdentitySearchCriteria, 99999, "OrganizationName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("OrganizationName").ToString) Then Me.Organization.Items.Add(New ListItem(TableRow2("OrganizationName").ToString, TableRow2("OrganizationName").ToString)) End If Next BizDataSet2.Dispose() objrs2 = Nothing Me.Organization.Items.Add(New ListItem("", "")) End If End If 'Re-Populate the department dropdown If Not IsNothing(Session.Item("IncidentDepartment")) Then If Trim(Session.Item("IncidentDepartment")) <> Trim(Me.Department.SelectedItem.Text) Or Trim(Session.Item("IncidentDepartment")) = "" Then Me.Department.Items.Clear() If Not IsNothing(Session.Item("IncidentDepartment")) Then Me.Department.Items.Add(New ListItem(Session.Item("IncidentDepartment"), Session.Item("IncidentDepartment"))) End If Me.Department.Items.Add(New ListItem("", "")) If Not IsNothing(Me.Organization.SelectedItem) Then If Trim(Me.Organization.SelectedItem.Text) <> "" Then If Len(IdentitySearchCriteria) = 0 Then IdentitySearchCriteria = " OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" Else IdentitySearchCriteria = IdentitySearchCriteria & " And OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" End If End If End If objrs2 = CreateObject("BizClass.NET") BizDataSet2 = objrs2.EAGet("Department", "DepartmentName", IdentitySearchCriteria, 99999, "DepartmentName", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow2 In BizDataSet2.Tables(0).Rows If Not IsDBNull(TableRow2("DepartmentName").ToString) Then Me.Department.Items.Add(New ListItem(TableRow2("DepartmentName").ToString, TableRow2("DepartmentName").ToString)) End If Next BizDataSet2.Dispose() objrs2 = Nothing End If End If exit_here: End Sub Public Sub ClearDirtyData() If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim BizCalls As New bizClass BizCalls.ClearIncidentDirtyData() BizCalls = Nothing exit_here: End Sub Private Sub Knowledgebase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Knowledgebase.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Session.Remove("KBSearchTier1") If Me.Product.SelectedItem.Text <> " " And Not IsNothing(Me.Product.SelectedItem) Then Session.Add("KBSearchTier1", Me.Product.SelectedItem.Text) End If Session.Remove("KBSearchTier2") If Not IsNothing(Me.Version.SelectedItem) Then Session.Add("KBSearchTier2", Me.Version.SelectedItem.Text) End If Session.Remove("KBSearchTier3") If Not IsNothing(Me.Platform.SelectedItem) Then Session.Add("KBSearchTier3", Me.Platform.SelectedItem.Text) End If Session.Remove("KBSearchTier4") If Not IsNothing(Me.Database.SelectedItem) Then Session.Add("KBSearchTier4", Me.Database.SelectedItem.Text) End If Session.Remove("KBIncidentSearch") Session.Add("KBIncidentSearch", "True") Response.Redirect("KnowledgebaseSearch.aspx") exit_here: End Sub Private Sub AssetLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AssetLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Asset") = False Then Me.ErrorMessage.Text = "" Exit Sub End If 'Get the AssetID to pass to Asset.aspx If Not IsNothing(Me.AssetDropDownList.SelectedItem) Then If Trim(Me.AssetDropDownList.SelectedItem.Text) <> "" Then Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim AssetID As Long objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Asset", "AssetID", "Asset = '" & Replace(Me.AssetDropDownList.SelectedItem.Text, "'", "''") & "'", 1, "AssetID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) TableRow = BizDataSet.Tables(0).Rows.Item(0) If Not IsDBNull(TableRow("AssetID").ToString) Then AssetID = TableRow("AssetID").ToString End If BizDataSet.Dispose() objrs = Nothing Session.Remove("RecordLockAssetID") Session.Add("RecordLockAssetID", AssetID) Session.Remove("RecordLockAssetIDTryAndGetLock") Session.Add("RecordLockAssetIDTryAndGetLock", AssetID) Response.Redirect("Asset.aspx") End If End If exit_here: End Sub Private Sub StateZipLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StateZipLookup.Click Call SaveDirtyData() If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim SearchCriteria As String If Me.State.SelectedItem.Text <> " " And Not IsNothing(Me.State.SelectedItem) Then SearchCriteria = "StateProv = '" & Me.State.SelectedItem.Value & "'" End If If Trim(Me.Zip.Text) <> "" Then If Len(SearchCriteria) > 0 Then SearchCriteria = SearchCriteria & " And PCode = '" & Replace(Me.Zip.Text, "'", "''") & "'" Else SearchCriteria = "PCode = '" & Replace(Me.Zip.Text, "'", "''") & "'" End If End If If Len(SearchCriteria) < 1 Then SearchCriteria = "1=1" End If Session.Remove("RecordLockContactID") Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactRedirect") Session.Add("ContactRedirect", "True") Session.Remove("ContactSearchCriteria") Session.Add("ContactSearchCriteria", SearchCriteria) Session.Remove("ContactInitialLoad") Session.Add("ContactInitialLoad", False) If Session.Item("ContactViaLDAP") = "Enabled" Then Session.Remove("LDAPContactSearchCriteria") Session.Add("LDAPContactSearchCriteria", "(& (postalCode=" & Me.Zip.Text & "*) )") Response.Redirect("LDAPContact.aspx") Else Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub EMailContact_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EMailContact.Click Call SaveDirtyData() Response.Redirect("EMailContact.aspx") End Sub Private Sub PrintIncident_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintIncident.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim paramFields As New ParameterFields Dim ReportIncidentID As New ParameterField Dim ReportIncidentIDVal As New ParameterDiscreteValue Dim dbTablesLogonInfo As New TableLogOnInfos Dim dbTableLogonInfo As New TableLogOnInfo Dim dbConnection As New ConnectionInfo Dim crReportDocument As New ReportDocument Dim dbTables As CrystalDecisions.CrystalReports.Engine.Tables Dim dbTable As CrystalDecisions.CrystalReports.Engine.Table Dim myExportOptions As CrystalDecisions.Shared.ExportOptions Dim myDiskFileDestinationOptions As CrystalDecisions.Shared.DiskFileDestinationOptions Dim myExportFile As String Dim ReportsURL As String If Right(Session.Item("ReportsURL"), 1) <> "\" Then ReportsURL = Session.Item("ReportsURL") & "\" Else ReportsURL = Session.Item("ReportsURL") End If If Not File.Exists(ReportsURL & "IncidentSummary.rpt") Then ReportsURL = Server.MapPath(".") & "\" & Session.Item("Version") & "\" End If If Not File.Exists(ReportsURL & "IncidentSummary.rpt") Then Me.ErrorMessage.Text = "" Exit Sub End If crReportDocument.Load(ReportsURL & "IncidentSummary.rpt") If Session.Item("Version") = "MSSQL" Then dbConnection.Password = Session.Item("ReportDBLoginIDPassword") dbConnection.DatabaseName = Session.Item("ReportDatabase") dbConnection.ServerName = Session.Item("ReportServerName") dbConnection.UserID = Session.Item("ReportDBLoginID") dbTables = crReportDocument.Database.Tables For Each dbTable In dbTables dbTableLogonInfo = dbTable.LogOnInfo dbTableLogonInfo.ConnectionInfo = dbConnection dbTable.ApplyLogOnInfo(dbTableLogonInfo) Next End If Me.CrystalReportViewer1.DisplayGroupTree = False Me.CrystalReportViewer1.DisplayToolbar = False 'Set the report temporary file myExportFile = Environ("Temp") & "\CrystalReportTempFile.pdf" myDiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions myDiskFileDestinationOptions.DiskFileName = myExportFile myExportOptions = crReportDocument.ExportOptions With myExportOptions .DestinationOptions = myDiskFileDestinationOptions .ExportDestinationType = .ExportDestinationType.DiskFile .ExportFormatType = .ExportFormatType.PortableDocFormat End With 'Set the parameters for the report ReportIncidentID.ParameterFieldName = "ReportIncidentID" ReportIncidentIDVal.Value = Me.IncidentID.Text ReportIncidentID.CurrentValues.Add(ReportIncidentIDVal) paramFields.Add(ReportIncidentID) crReportDocument.SetParameterValue("ReportIncidentID", ReportIncidentIDVal) crReportDocument.Export() Response.Clear() Response.Buffer = True Response.ContentType = "application/pdf" Response.WriteFile(myExportFile) Response.End() System.IO.File.Delete(myExportFile) exit_here: End Sub Public Sub AutoSaveContact() 'This routine will automatically save a contact if the firstname, lastname, phone 'are unique. If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim contactSTR(255) Dim objrs Dim rc Dim objrc Dim contID As String Dim response Dim cContactID As String Dim FirstName As String Dim LastName As String Dim Phone As String Dim updatecriteria As String Dim Agent As String Dim NewContact As Boolean Dim GroupMemberSTR(2) Dim objCommand Dim cmd As String Dim BizDataSet As DataSet If IsNothing(Me.FirstName) Or IsNothing(Me.LastName) Or IsNothing(Me.Phone) Or Me.FirstName.Text = "" Or Me.LastName.Text = "" Or Me.Phone.Text = "" Then Exit Sub End If FirstName = Me.FirstName.Text LastName = Me.LastName.Text Phone = Me.Phone.Text objrc = CreateObject("BizClass.NET") BizDataSet = objrc.EAGet("Contact", "ContactID", "FirstName = '" & Trim(Replace(FirstName, "'", "''")) & "' And LastName = '" & Trim(Replace(LastName, "'", "''")) & "' And Phone = '" & Trim(Replace(Phone, "'", "''")) & "'", 1, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then BizDataSet.Dispose() objrc = Nothing Exit Sub End If objrc = Nothing If Trim(Me.ContactID.SelectedItem.Text) <> "" Then contactSTR(0) = "ContactID = '" & Replace(Me.ContactID.SelectedItem.Text, "'", "''") & "'" Else contactSTR(0) = "ContactID = '" & Trim(Replace(Me.FirstName.Text, "'", "''")) & " " & Trim(Replace(Me.LastName.Text, "'", "''")) & "'" End If If Not IsNothing(Me.FirstName) And Me.FirstName.Text <> "" Then contactSTR(1) = "FirstName = '" & Replace(Me.FirstName.Text, "'", "''") & "'" Else contactSTR(1) = "FirstName = ''" End If If Not IsNothing(Me.LastName) And Me.LastName.Text <> "" Then contactSTR(2) = "LastName = '" & Replace(Me.LastName.Text, "'", "''") & "'" Else contactSTR(2) = "LastName = ''" End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem.Text) And Me.CompanyDropDownList.SelectedItem.Text <> "" Then contactSTR(3) = "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" Else contactSTR(3) = "CompanyName = ''" End If If Not IsNothing(Me.Address) And Me.Address.Text <> "" Then contactSTR(4) = "StreetAddress = '" & Replace(Me.Address.Text, "'", "''") & "'" Else contactSTR(4) = "StreetAddress = ''" End If If Not IsNothing(Me.City) And Me.City.Text <> "" Then contactSTR(6) = "City = '" & Replace(Me.City.Text, "'", "''") & "'" Else contactSTR(6) = "City = ''" End If If Not IsNothing(Me.State) And Me.State.SelectedItem.Text <> "" Then contactSTR(7) = "StateProv = '" & Replace(Me.State.SelectedItem.Text, "'", "''") & "'" Else contactSTR(7) = "StateProv = ''" End If If Not IsNothing(Me.Zip) And Me.Zip.Text <> "" Then contactSTR(8) = "PCode = '" & Replace(Me.Zip.Text, "'", "''") & "'" Else contactSTR(8) = "PCode = ''" End If If Not IsNothing(Me.Phone) And Me.Phone.Text <> "" Then contactSTR(9) = "Phone = '" & Replace(Me.Phone.Text, "'", "''") & "'" Else contactSTR(9) = "Phone = ''" End If If Not IsNothing(Me.EMail) And Me.EMail.Text <> "" Then contactSTR(10) = "EMail = '" & Replace(Me.EMail.Text, "'", "''") & "'" Else contactSTR(10) = "EMail = ''" End If 'Assign them a blank initial password contactSTR(11) = "ContactPassword = ''" objCommand = CreateObject("BizClass.NET") cmd = objCommand.EASave("Contact", "Contact_ID", contactSTR, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing 'Assign them to the Contact group, GroupID 4 GroupMemberSTR(0) = 4 If Trim(Me.ContactID.SelectedItem.Text) <> "" Then GroupMemberSTR(1) = Trim(Replace(Me.ContactID.SelectedItem.Text, "'", "''")) Else GroupMemberSTR(1) = Trim(Replace(Me.FirstName.Text, "'", "''")) & " " & Trim(Replace(Me.LastName.Text, "'", "''")) End If objCommand = CreateObject("BizClass.NET") cmd = objCommand.EASQL("Insert into GroupMembers values (4, '" & Replace(GroupMemberSTR(1), "'", "''") & "')", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing 'Update the Incident to reflect the new ContactID created for this user, so the incident appears on the ServiceRequestConsole.aspx objCommand = CreateObject("BizClass.NET") cmd = objCommand.EASQL("Update Incident Set ContactID = '" & Replace(GroupMemberSTR(1), "'", "''") & "' where IncidentID = " & Session.Item("RecordLockIncidentID"), Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing exit_here: End Sub Private Sub CreateKB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateKB.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If If Me.CreateKB.Text <> Application(Session.Item("Language") & " Create Knowledge") Then Call SaveDirtyData() Dim BizCalls As New bizClass BizCalls.ClearKnowledgebaseDirtyData() BizCalls = Nothing Session.Remove("RecordLockKBID") Session.Add("RecordLockKBID", Session.Item("IncidentKBID")) Response.Redirect("Knowledgebase.aspx") End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Create", "Incident") = False Then Me.ErrorMessage.Text = "" Exit Sub End If If Me.Summary.Text = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Summary) Exit Sub End If If Not IsNumeric(Me.IncidentID.Text) And Trim(Me.IncidentID.Text) <> "" Then Me.ErrorMessage.Text = "" Exit Sub End If Dim sdata(255) As Object Dim objrs Dim cmd Dim KBIDint Dim KBDate As String Dim CurrentTime As DateTime CurrentTime = Now() KBDate = Year(CurrentTime) & "-" & Month(CurrentTime) & "-" & Day(CurrentTime) & " " & Hour(CurrentTime) & ":" & Minute(CurrentTime) & ":" & Second(CurrentTime) sdata(0) = "KBStatus = 'Proposed'" sdata(1) = "KBDate = '" & Replace(KBDate, " '", "''") & "'" sdata(2) = "KBOwner = '" & Replace(Session.Item("LoginID"), "'", "''") & "'" sdata(3) = "KBSummary = '" & Replace(Me.Summary.Text, "'", "''") & "'" sdata(4) = "KBDescription = 'Knowledgebase created from Incident " & Me.IncidentID.Text & "'" sdata(5) = "KBProduct = '" & Replace(Me.Product.SelectedItem.Value, "'", "''") & "'" sdata(6) = "KBVersion = '" & Replace(Me.Version.SelectedItem.Value, "'", "''") & "'" sdata(7) = "KBPlatform = '" & Replace(Me.Platform.SelectedItem.Value, "'", "''") & "'" sdata(8) = "KBDB = '" & Replace(Me.Database.SelectedItem.Value, " '", "''") & "'" objrs = CreateObject("BizClass.NET") KBIDint = objrs.EASave("KnowledgeBase", "KBID", sdata, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrs = Nothing objrs = CreateObject("BizClass.NET") cmd = objrs.EASQL("Update Incident Set KBID = " & KBIDint & " Where IncidentID = " & Me.IncidentID.Text, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrs = Nothing Me.CreateKB.Text = "KB " & KBIDint & " " & Application(Session.Item("Language") & " Created!") Session.Remove("IncidentKBID") Session.Add("IncidentKBID", KBIDint) exit_here: End Sub Private Sub QuickTicket_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuickTicket.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Create", "Incident") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim incidentSTR(255) As Object Dim objCommand Dim updateCriteria Dim Agent As String Dim objrs Dim cmd Dim IncidentNumber As VariantType Dim CurrentTime As DateTime Dim USCurrentTime As String Dim QuickTicketID As Integer 'Check for required fields If Not IsNumeric(Me.Duration.Text) And Trim(Me.Duration.Text <> "") Then Me.ErrorMessage.Text = "" SetFocus(Me.Duration) Exit Sub End If If Not IsNumeric(Me.Sequence.Text) And Trim(Me.Sequence.Text <> "") Then Me.ErrorMessage.Text = "" SetFocus(Me.Sequence) Exit Sub End If If Not IsNothing(Me.StartDate.Text) And Not IsNothing(Me.AssignedDate.Text) And Me.AssignedDate.Text <> "" And Me.StartDate.Text <> "" Then If DateDiff("s", Me.StartDate.Text, Me.AssignedDate.Text) < 0 Then Me.ErrorMessage.Text = "" SetFocus(Me.StartDate) Exit Sub End If End If If Session.Item("ForceCategorizations") = "Enabled" Then If Trim(Me.Product.SelectedItem.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Product) Exit Sub End If End If If Me.ContactID.SelectedItem.Value = "" Or IsNothing(Me.ContactID.SelectedItem) Then incidentSTR(0) = "ContactID = '" & Trim(Replace(Me.FirstName.Text, "'", "''")) & " " & Trim(Replace(Me.LastName.Text, "'", "''")) & "'" Else incidentSTR(0) = "ContactID = '" & Replace(Me.ContactID.SelectedItem.Value, "'", "''") & "'" End If incidentSTR(1) = "FirstName = '" & Replace(Me.FirstName.Text, "'", "''") & "'" incidentSTR(2) = "LastName = '" & Replace(Me.LastName.Text, "'", "''") & "'" incidentSTR(3) = "Address = '" & Replace(Me.Address.Text, "'", "''") & "'" incidentSTR(4) = "City = '" & Replace(Me.City.Text, "'", "''") & "'" incidentSTR(5) = "State = '" & Replace(Me.State.SelectedItem.Value, "'", "''") & "'" incidentSTR(6) = "Zip = '" & Replace(Me.Zip.Text, "'", "''") & "'" If Not IsNothing(Me.Priority.SelectedItem) Then If Trim(Me.Priority.SelectedItem.Value) <> "" Then incidentSTR(7) = "Priority = " & Me.Priority.SelectedItem.Value End If End If If Not IsNothing(Me.Status.SelectedItem) And Trim(Me.Status.SelectedItem.Text) <> "" Then incidentSTR(8) = "Status = '" & Replace(Me.Status.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.SLA.SelectedItem) Then incidentSTR(9) = "SLAName = '" & Replace(Me.SLA.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(9) = "SLAName = 'Default SLA'" Me.SLA.Items(0).Text = "Default SLA" End If If Not IsNothing(Me.Product.SelectedItem) Then If Me.Product.SelectedItem.Value <> " " Then incidentSTR(11) = "Product = '" & Replace(Me.Product.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(11) = "Product = ''" End If End If If Not IsNothing(Me.Version.SelectedItem) Then If Me.Version.SelectedItem.Value <> " " Then incidentSTR(12) = "Version = '" & Replace(Me.Version.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(12) = "Version = ''" End If End If If Not IsNothing(Me.Platform.SelectedItem) Then If Me.Platform.SelectedItem.Value <> " " Then incidentSTR(13) = "Platform = '" & Replace(Me.Platform.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(13) = "Platform = ''" End If End If If Not IsNothing(Me.Database.SelectedItem) Then If Me.Database.SelectedItem.Value <> " " Then incidentSTR(14) = "DB = '" & Replace(Me.Database.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(14) = "DB = ''" End If End If incidentSTR(15) = "Summary = '" & Replace(Me.Summary.Text, "'", "''") & "'" If Session.Item("Version") = "Access" Then incidentSTR(16) = "StartDate = NULL" Else incidentSTR(16) = "StartDate = NULL" End If incidentSTR(17) = "ContactPhone = '" & Replace(Me.Phone.Text, "'", "''") & "'" incidentSTR(18) = "ContactEMail = '" & Replace(Me.EMail.Text, "'", "''") & "'" If Not IsNothing(Me.AssignedTo.SelectedItem) Then If Trim(Me.AssignedTo.SelectedItem.Text) <> "" Then incidentSTR(19) = "AssignedTo = '" & Replace(Me.AssignedTo.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(19) = "AssignedTo = ''" End If End If If Not IsNothing(Me.AssignedToGroup.SelectedItem) Then If Trim(Me.AssignedToGroup.SelectedItem.Text) <> "" Then incidentSTR(20) = "AssignedToGroup = '" & Replace(Me.AssignedToGroup.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(20) = "AssignedToGroup = ''" End If End If If Me.ServiceType.SelectedItem.Text <> " " And Not IsNothing(Me.ServiceType) Then incidentSTR(21) = "ServiceType = '" & Replace(Me.ServiceType.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(21) = "ServiceType = ''" End If If Session.Item("Version") = "Access" Then incidentSTR(22) = "ResolutionDate = NULL" Else incidentSTR(22) = "ResolutionDate = NULL" End If If Me.IncidentID.Text <> "" And Not IsNothing(Me.IncidentID) Then incidentSTR(24) = "Submitter = '" & Replace(Me.Submitter.Text, "'", "''") & "'" Else incidentSTR(24) = "Submitter = '" & Replace(Session.Item("LoginID"), "'", "''") & "'" End If If Not IsNothing(Me.AssetDropDownList.SelectedItem) Then If Trim(Me.AssetDropDownList.SelectedItem.Text) <> "" Then incidentSTR(25) = "IncidentAssetID = '" & Replace(Me.AssetDropDownList.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(25) = "IncidentAssetID = ''" End If End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then incidentSTR(26) = "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(26) = "CompanyName = ''" End If Else incidentSTR(26) = "CompanyName = ''" End If If Not IsNothing(Me.Impact.SelectedItem) Then If Trim(Me.Impact.SelectedItem.Text) <> "" Then incidentSTR(27) = "Impact = '" & Me.Impact.SelectedItem.Text & "'" End If End If If Not IsNothing(Me.Urgency.SelectedItem) Then If Trim(Me.Urgency.SelectedItem.Text) <> "" Then incidentSTR(28) = "Urgency = '" & Me.Urgency.SelectedItem.Text & "'" End If End If If Trim(Me.Sequence.Text) <> "" And Not IsNothing(Me.Sequence) Then incidentSTR(29) = "Sequence = " & Replace(Me.Sequence.Text, "'", "''") Else incidentSTR(29) = "Sequence = NULL" End If Me.Submitter.Text = Session.Item("LoginID") Agent = Session.Item("LoginID") objCommand = CreateObject("BizClass.NET") QuickTicketID = objCommand.EASave("Incident", "IncidentID", incidentSTR, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing objCommand = CreateObject("BizClass.NET") cmd = objCommand.EASQL("Update Incident Set IncidentID = -" & QuickTicketID & " Where IncidentID = " & QuickTicketID, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing If cmd = -1 Then Me.ErrorMessage.Text = "" Exit Sub End If Call ClearDirtyData() exit_here: End Sub Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton4.Click Response.Redirect("QuickTicket.aspx") End Sub Private Sub AgentLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AgentLookup.Click Response.Redirect("AgentLookup.aspx") End Sub Private Sub CreateProblem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateProblem.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If If Me.CreateProblem.Text <> Application(Session.Item("Language") & " Create Problem") Then Call SaveDirtyData() Dim BizCalls As New bizClass BizCalls.ClearProblemDirtyData() BizCalls = Nothing Session.Remove("RecordLockProblemIDTryAndGetLock") Session.Add("RecordLockProblemIDTryAndGetLock", Session.Item("IncidentProblemID")) Response.Redirect("Problem.aspx") End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Create", "Incident") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim incidentSTR(255) As Object Dim objCommand Dim updateCriteria Dim Agent As String Dim objrs Dim cmd Dim IncidentNumber As VariantType Dim CurrentTime As DateTime Dim USCurrentTime As String 'Check for required fields If Trim(Me.FirstName.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.FirstName) Exit Sub End If If Trim(Me.LastName.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.LastName) Exit Sub End If If Trim(Me.Phone.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Phone) Exit Sub End If If Trim(Me.Status.SelectedItem.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Status) Exit Sub End If If Trim(Me.Priority.SelectedItem.Text) = "" Or IsNothing(Me.Priority.SelectedItem) Then Me.ErrorMessage.Text = "" SetFocus(Me.Priority) Exit Sub End If If Trim(Me.Summary.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Summary) Exit Sub End If If IsDate(Me.StartDate.Text) = False And Me.StartDate.Text <> "" And Not IsNothing(Me.StartDate.Text) Then Me.ErrorMessage.Text = "" SetFocus(Me.StartDate) Exit Sub End If If Not IsNumeric(Me.Duration.Text) And Trim(Me.Duration.Text <> "") Then Me.ErrorMessage.Text = "" SetFocus(Me.Duration) Exit Sub End If If Not IsNumeric(Me.Sequence.Text) And Trim(Me.Sequence.Text <> "") Then Me.ErrorMessage.Text = "" SetFocus(Me.Sequence) Exit Sub End If If Not IsNothing(Me.StartDate.Text) And Not IsNothing(Me.AssignedDate.Text) And Me.AssignedDate.Text <> "" And Me.StartDate.Text <> "" Then If DateDiff("s", Me.StartDate.Text, Me.AssignedDate.Text) < 0 Then Me.ErrorMessage.Text = "" SetFocus(Me.StartDate) Exit Sub End If End If If Session.Item("ForceCategorizations") = "Enabled" Then If Trim(Me.Product.SelectedItem.Text) = "" Then Me.ErrorMessage.Text = "" SetFocus(Me.Product) Exit Sub End If End If If Me.ContactID.SelectedItem.Value = "" Or IsNothing(Me.ContactID.SelectedItem) Then incidentSTR(0) = "ContactID = '" & Trim(Replace(Me.FirstName.Text, "'", "''")) & " " & Trim(Replace(Me.LastName.Text, "'", "''")) & "'" Else incidentSTR(0) = "ContactID = '" & Replace(Me.ContactID.SelectedItem.Value, "'", "''") & "'" End If incidentSTR(1) = "FirstName = '" & Replace(Me.FirstName.Text, "'", "''") & "'" incidentSTR(2) = "LastName = '" & Replace(Me.LastName.Text, "'", "''") & "'" incidentSTR(3) = "Address = '" & Replace(Me.Address.Text, "'", "''") & "'" incidentSTR(4) = "City = '" & Replace(Me.City.Text, "'", "''") & "'" incidentSTR(5) = "State = '" & Replace(Me.State.SelectedItem.Value, "'", "''") & "'" incidentSTR(6) = "Zip = '" & Replace(Me.Zip.Text, "'", "''") & "'" If Not IsNothing(Me.Priority.SelectedItem) Then If Trim(Me.Priority.SelectedItem.Value) <> "" Then incidentSTR(7) = "Priority = " & Me.Priority.SelectedItem.Value End If End If If Not IsNothing(Me.Status.SelectedItem) And Trim(Me.Status.SelectedItem.Text) <> "" Then incidentSTR(8) = "Status = '" & Replace(Me.Status.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.SLA.SelectedItem) Then incidentSTR(9) = "SLAName = '" & Replace(Me.SLA.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(9) = "SLAName = 'Default SLA'" Me.SLA.Items(0).Text = "Default SLA" End If If Not IsNothing(Me.Product.SelectedItem) Then If Me.Product.SelectedItem.Value <> " " Then incidentSTR(11) = "Tier1 = '" & Replace(Me.Product.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(11) = "Tier1 = ''" End If End If If Not IsNothing(Me.Version.SelectedItem) Then If Me.Version.SelectedItem.Value <> " " Then incidentSTR(12) = "Tier2 = '" & Replace(Me.Version.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(12) = "Tier2 = ''" End If End If If Not IsNothing(Me.Platform.SelectedItem) Then If Me.Platform.SelectedItem.Value <> " " Then incidentSTR(13) = "Tier3 = '" & Replace(Me.Platform.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(13) = "Tier3 = ''" End If End If If Not IsNothing(Me.Database.SelectedItem) Then If Me.Database.SelectedItem.Value <> " " Then incidentSTR(14) = "Tier4 = '" & Replace(Me.Database.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(14) = "Tier4 = ''" End If End If incidentSTR(15) = "Summary = '" & Replace(Me.Summary.Text, "'", "''") & "'" If Trim(Me.CreateDate.Text) = "" Then If Session.Item("ServerTime") = "Enabled" Then CurrentTime = GetServerTime() Else CurrentTime = Now() End If Me.CreateDate.Text = CurrentTime USCurrentTime = Year(CurrentTime) & "-" & Month(CurrentTime) & "-" & Day(CurrentTime) & " " & Hour(CurrentTime) & ":" & Minute(CurrentTime) & ":" & Second(CurrentTime) If Session.Item("ServerTime") = "Enabled" Then incidentSTR(16) = "CreateDate = '" & USCurrentTime & "'" Else incidentSTR(16) = "CreateDate = '" & USCurrentTime & "'" End If Else CurrentTime = Me.CreateDate.Text USCurrentTime = Year(CurrentTime) & "-" & Month(CurrentTime) & "-" & Day(CurrentTime) & " " & Hour(CurrentTime) & ":" & Minute(CurrentTime) & ":" & Second(CurrentTime) incidentSTR(16) = "CreateDate = '" & USCurrentTime & "'" End If incidentSTR(17) = "ContactPhone = '" & Replace(Me.Phone.Text, "'", "''") & "'" incidentSTR(18) = "ContactEMail = '" & Replace(Me.EMail.Text, "'", "''") & "'" If Not IsNothing(Me.AssignedTo.SelectedItem) Then If Trim(Me.AssignedTo.SelectedItem.Text) <> "" Then incidentSTR(19) = "AssignedTo = '" & Replace(Me.AssignedTo.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(19) = "AssignedTo = ''" End If End If If Not IsNothing(Me.AssignedToGroup.SelectedItem) Then If Trim(Me.AssignedToGroup.SelectedItem.Text) <> "" Then incidentSTR(20) = "AssignedToGroup = '" & Replace(Me.AssignedToGroup.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(20) = "AssignedToGroup = ''" End If End If If Me.Status.SelectedItem.Text = "Closed" Or Me.Status.SelectedItem.Text = "Resolved" Then If Trim(Me.AssignedDate.Text) = "" Then If Session.Item("ServerTime") = "Enabled" Then Me.AssignedDate.Text = GetServerTime() Else Me.AssignedDate.Text = Now() End If End If End If If Me.AssignedDate.Text <> "" And IsDate(Me.AssignedDate.Text) Then CurrentTime = Me.AssignedDate.Text USCurrentTime = Year(CurrentTime) & "-" & Month(CurrentTime) & "-" & Day(CurrentTime) & " " & Hour(CurrentTime) & ":" & Minute(CurrentTime) & ":" & Second(CurrentTime) If Session.Item("Version") = "Access" Then incidentSTR(22) = "AssignedDate = #" & Replace(USCurrentTime, "'", "''") & "#" Else incidentSTR(22) = "AssignedDate = '" & Replace(USCurrentTime, "'", "''") & "'" End If Else If Session.Item("Version") = "Access" Then incidentSTR(22) = "AssignedDate = NULL" Else incidentSTR(22) = "AssignedDate = NULL" End If End If If Me.IncidentID.Text <> "" And Not IsNothing(Me.IncidentID) Then incidentSTR(24) = "Submitter = '" & Replace(Me.Submitter.Text, "'", "''") & "'" Else incidentSTR(24) = "Submitter = '" & Replace(Session.Item("LoginID"), "'", "''") & "'" End If If Not IsNothing(Me.AssetDropDownList.SelectedItem) Then If Trim(Me.AssetDropDownList.SelectedItem.Text) <> "" Then incidentSTR(25) = "ProblemAssetID = '" & Replace(Me.AssetDropDownList.SelectedItem.Value, "'", "''") & "'" Else incidentSTR(25) = "ProblemAssetID = ''" End If End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then incidentSTR(26) = "CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" Else incidentSTR(26) = "CompanyName = ''" End If Else incidentSTR(26) = "CompanyName = ''" End If If Not IsNothing(Me.BusinessUnit.SelectedItem) Then incidentSTR(27) = "BusinessUnit = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.SiteDropDownList.SelectedItem) Then incidentSTR(28) = "Site = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.Organization.SelectedItem) Then incidentSTR(29) = "Organization = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.Department.SelectedItem) Then incidentSTR(30) = "Department = '" & Replace(Me.Department.SelectedItem.Text, "'", "''") & "'" End If If Not IsNothing(Me.Impact.SelectedItem) Then If Trim(Me.Impact.SelectedItem.Text) <> "" Then incidentSTR(31) = "Impact = '" & Me.Impact.SelectedItem.Text & "'" Else incidentSTR(31) = "Impact = Null" End If End If If Not IsNothing(Me.Urgency.SelectedItem) Then If Trim(Me.Urgency.SelectedItem.Text) <> "" Then incidentSTR(32) = "Urgency = '" & Me.Urgency.SelectedItem.Text & "'" Else incidentSTR(32) = "Urgency = Null" End If End If incidentSTR(34) = "VendorName = '" & Replace(Me.Vendor.SelectedItem.Text, "'", "''") & "'" incidentSTR(35) = "VendorPhone = '" & Replace(Me.VendorPhone.Text, "'", "''") & "'" incidentSTR(36) = "VendorEmail = '" & Replace(Me.VendorEmail.Text, "'", "''") & "'" incidentSTR(37) = "VendorContact = '" & Replace(Me.VendorContact.SelectedItem.Text, "'", "''") & "'" incidentSTR(38) = "Ticket = '" & Replace(Me.Ticket.Text, "'", "''") & "'" If Not IsNothing(Me.VendorSLA.SelectedItem) Then incidentSTR(29) = "VendorSLA = '" & Replace(Me.VendorSLA.SelectedItem.Text, "'", "''") & "'" End If Me.Submitter.Text = Session.Item("LoginID") Agent = Session.Item("LoginID") objCommand = CreateObject("BizClass.NET") cmd = objCommand.EASave("Problem", "ProblemID", incidentSTR, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objCommand = Nothing Session.Remove("IncidentProblemID") Session.Add("IncidentProblemID", cmd) Me.CreateProblem.Text = "Problem " & cmd Me.CreateProblem.ToolTip = "Click here to view Problem " & cmd & " which was created by Incident " & Me.IncidentID.Text If cmd = -1 Then Me.ErrorMessage.Text = "" Exit Sub End If Dim objrc Dim rc As Boolean Dim AssignmentCount As Boolean Dim AgentID As String Dim IncidentIDLong As VariantType objrc = CreateObject("BizClass.NET") cmd = objrc.EASQL("Update Incident Set ProblemID = " & cmd & " Where IncidentID = " & Me.IncidentID.Text, Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing IncidentIDLong = Me.IncidentID.Text AgentID = Session.Item("LoginID") objrc = CreateObject("BizClass.NET") rc = objrc.CheckNotificationCriteria(IncidentIDLong, AgentID, "Problem", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing objrc = CreateObject("BizClass.NET") cmd = objrc.checkSLA(IncidentIDLong, "Problem", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) objrc = Nothing exit_here: End Sub Private Sub IncidentAssociations_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IncidentAssociations.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Response.Redirect("IncidentAssociations.aspx") exit_here: End Sub Private Sub IncidentConsole_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IncidentConsole.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("IncidentConsole.aspx") exit_here: End Sub Private Sub Resolution_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Resolution.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("IncidentResolution.aspx") exit_here: End Sub Private Sub ImpactedAreas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpactedAreas.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If SaveDirtyData() Response.Redirect("IncidentImpactedAreas.aspx") exit_here: End Sub Private Sub BusinessUnit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BusinessUnit.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim Objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim SelectedBusinessUnitName As String Dim SelectedCompanyName As String Dim i = 0 'Used as a counter Dim SearchCriteria As String SelectedBusinessUnitName = Me.BusinessUnit.SelectedItem.Text SelectedCompanyName = Me.CompanyDropDownList.SelectedItem.Text Me.SiteDropDownList.Items.Clear() Me.SiteDropDownList.Items.Add(" ") Me.SiteDropDownList.Items(0).Text = " " Me.Organization.Items.Clear() Me.Organization.Items.Add(" ") Me.Organization.Items(0).Text = " " Me.Department.Items.Clear() Me.Department.Items.Add(" ") Me.Department.Items(0).Text = " " Me.AssignedTo.Items.Clear() Me.AssignedTo.Items.Add(" ") Me.AssignedTo.Items(0).Text = " " If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then SearchCriteria = " (CompanyID = 0 or CompanyID is Null) " Else SearchCriteria = " CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then SearchCriteria = SearchCriteria & " and BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Site", "SiteName", SearchCriteria, 9999, "SiteName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("SiteName").ToString) Then i = i + 1 Me.SiteDropDownList.Items.Add(TableRow("SiteName").ToString) Me.SiteDropDownList.Items(i).Text = TableRow("SiteName").ToString End If Next BizDataSet.Dispose() Objrs = Nothing i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Organization", "OrganizationID, OrganizationName", SearchCriteria, 9999, "OrganizationName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("OrganizationName").ToString) Then i = i + 1 Me.Organization.Items.Add(TableRow("OrganizationName").ToString) Me.Organization.Items(i).Text = TableRow("OrganizationName").ToString Me.Organization.Items(i).Value = TableRow("OrganizationID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Department", "DepartmentID, DepartmentName", SearchCriteria, 9999, "DepartmentName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DepartmentName").ToString) Then i = i + 1 Me.Department.Items.Add(TableRow("DepartmentName").ToString) Me.Department.Items(i).Text = TableRow("DepartmentName").ToString Me.Department.Items(i).Value = TableRow("DepartmentID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing SetFocus(Me.SiteDropDownList) exit_here: End Sub Private Sub SiteDropDownList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SiteDropDownList.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim Objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim SelectedSiteID As String Dim SelectedBUID As String Dim SearchCriteria As String Dim i = 0 'Used as a counter If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then SearchCriteria = " (CompanyID = 0 or CompanyID is Null) " Else SearchCriteria = " CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.BusinessUnit.SelectedItem.Text) = "" Then SearchCriteria = SearchCriteria & " and (BusinessUnitID = 0 or BusinessUnitID is Null) " Else SearchCriteria = SearchCriteria & " and BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then SearchCriteria = SearchCriteria & " and SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If Me.Organization.Items.Clear() Me.Organization.Items.Add(" ") Me.Organization.Items(0).Text = " " Me.Organization.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Organization", "OrganizationID, OrganizationName", SearchCriteria, 9999, "OrganizationName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("OrganizationName").ToString) Then i = i + 1 Me.Organization.Items.Add(TableRow("OrganizationName").ToString) Me.Organization.Items(i).Text = TableRow("OrganizationName").ToString Me.Organization.Items(i).Value = TableRow("OrganizationID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing Me.Department.Items.Clear() Me.Department.Items.Add(New ListItem("", "")) i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Department", "DepartmentID, DepartmentName", SearchCriteria, 9999, "DepartmentName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DepartmentName").ToString) Then i = i + 1 Me.Department.Items.Add(TableRow("DepartmentName").ToString) Me.Department.Items(i).Text = TableRow("DepartmentName").ToString Me.Department.Items(i).Value = TableRow("DepartmentID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing SetFocus(Me.Organization) exit_here: End Sub Private Sub Organization_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Organization.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If Dim Objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim SelectedOrganizationID As String Dim i = 0 'Used as a counter Dim SearchCriteria If Trim(Me.CompanyDropDownList.SelectedItem.Text) = "" Then SearchCriteria = " (CompanyID = 0 or CompanyID is Null) " Else SearchCriteria = " CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.BusinessUnit.SelectedItem.Text) = "" Then SearchCriteria = SearchCriteria & " and (BusinessUnitID = 0 or BusinessUnitID is Null) " Else SearchCriteria = SearchCriteria & " and BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.SiteDropDownList.SelectedItem.Text) = "" Then SearchCriteria = SearchCriteria & " and (SiteID = 0 or SiteID is Null) " Else SearchCriteria = SearchCriteria & " and SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.Organization.SelectedItem.Text) <> "" Then SearchCriteria = SearchCriteria & " and OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" End If Me.Department.Items.Clear() Me.Department.Items.Add(" ") Me.Department.Items(0).Text = " " Me.Department.Items(0).Value = 0 i = 0 Objrs = Server.CreateObject("BizClass.NET") BizDataSet = Objrs.EAGet("Department", "DepartmentID, DepartmentName", SearchCriteria, 9999, "DepartmentName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DepartmentName").ToString) Then i = i + 1 Me.Department.Items.Add(TableRow("DepartmentName").ToString) Me.Department.Items(i).Text = TableRow("DepartmentName").ToString Me.Department.Items(i).Value = TableRow("DepartmentID").ToString End If Next BizDataSet.Dispose() Objrs = Nothing SetFocus(Me.Department) exit_here: End Sub Private Sub BusinessUnitLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BusinessUnitLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then Session.Remove("BusinessUnitSearchCriteria") Session.Add("BusinessUnitSearchCriteria", "BusinessUnitName Like '%" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "%'") Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim BusinessUnitName As String Dim BusinessUnitID As Long Dim SearchCriteria As String If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then SearchCriteria = " CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = " BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If End If objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("BusinessUnit", "BusinessUnitID", SearchCriteria, 9999, "BusinessUnitName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) BusinessUnitID = TableRow("BusinessUnitID").ToString Session.Remove("RecordLockBusinessUnitID") Session.Add("RecordLockBusinessUnitID", BusinessUnitID) End If BizDataSet.Dispose() objrs = Nothing End If Session.Remove("BusinessUnitInitialLoad") Session.Add("BusinessUnitInitialLoad", False) SaveDirtyData() Response.Redirect("BusinessUnit.aspx") exit_here: End Sub Private Sub SiteLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SiteLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim SiteName As String Dim SiteID As Long Dim SearchCriteria As String If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then SearchCriteria = " CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = " BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = "SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If End If Session.Remove("SiteSearchCriteria") Session.Add("SiteSearchCriteria", "SiteName Like '%" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "%'") SiteName = Me.SiteDropDownList.SelectedItem.Text objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Site", "SiteID", SearchCriteria, 9999, "SiteName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) SiteID = TableRow("SiteID").ToString Session.Remove("RecordLockSiteID") Session.Add("RecordLockSiteID", SiteID) End If BizDataSet.Dispose() objrs = Nothing End If Session.Remove("SiteInitialLoad") Session.Add("SiteInitialLoad", False) SaveDirtyData() Response.Redirect("Site.aspx") exit_here: End Sub Private Sub OrganizationLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrganizationLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim OrganizationName As String Dim OrganizationID As Long Dim SearchCriteria As String If Me.Organization.SelectedItem.Text <> " " Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then SearchCriteria = " CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = " BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = "SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.Organization.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = "OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " And OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" End If End If Session.Remove("OrganizationSearchCriteria") Session.Add("OrganizationSearchCriteria", "OrganizationName Like '%" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "%'") OrganizationName = Me.Organization.SelectedItem.Text objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Organization", "OrganizationID", SearchCriteria, 9999, "OrganizationName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) OrganizationID = TableRow("OrganizationID").ToString Session.Remove("RecordLockOrganizationID") Session.Add("RecordLockOrganizationID", OrganizationID) End If BizDataSet.Dispose() objrs = Nothing End If Session.Remove("OrganizationInitialLoad") Session.Add("OrganizationInitialLoad", False) SaveDirtyData() Response.Redirect("Organization.aspx") exit_here: End Sub Private Sub DepartmentLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DepartmentLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim DepartmentName As String Dim DepartmentID As Long Dim SearchCriteria As String If Trim(Me.Department.SelectedItem.Text) <> "" Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then SearchCriteria = " CompanyName = '" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = " BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and BusinessUnitName = '" & Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = "SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and SiteName = '" & Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.Organization.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = "OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " And OrganizationName = '" & Replace(Me.Organization.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.Department.SelectedItem.Text) <> "" Then If Len(SearchCriteria) = 0 Then SearchCriteria = " DepartmentName = '" & Replace(Me.Department.SelectedItem.Text, "'", "''") & "'" Else SearchCriteria = SearchCriteria & " and DepartmentName = '" & Replace(Me.Department.SelectedItem.Text, "'", "''") & "'" End If End If Session.Remove("DepartmentSearchCriteria") Session.Add("DepartmentSearchCriteria", "DepartmentName Like '%" & Replace(Me.Department.SelectedItem.Text, "'", "''") & "%'") DepartmentName = Me.Department.SelectedItem.Text objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Department", "DepartmentID", SearchCriteria, 9999, "DepartmentName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) DepartmentID = TableRow("DepartmentID").ToString Session.Remove("RecordLockDepartmentID") Session.Add("RecordLockDepartmentID", DepartmentID) End If BizDataSet.Dispose() objrs = Nothing End If Session.Remove("DepartmentInitialLoad") Session.Add("DepartmentInitialLoad", False) SaveDirtyData() Response.Redirect("Department.aspx") exit_here: End Sub Private Sub ContactInfoViaLDAP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContactInfoViaLDAP.Click SaveDirtyData() If Session.Item("ContactViaLDAP") = "Enabled" Then Response.Redirect("LDAPContact.aspx") Else Response.Redirect("Contact.aspx") End If End Sub Public Sub SetDefaultValues() If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow 'Get the Global Default values first objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("DefaultValues", "DefaultField, DefaultValue, AgentID", "AgentID = 'Global' and EAModule = 'Incident.aspx' ", 99999, "DefaultValuesID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DefaultField").ToString) And Not IsDBNull(TableRow("DefaultValue").ToString) Then If UCase(TableRow("DefaultField").ToString) = "PRIORITY" Then Me.Priority.SelectedIndex = 0 Me.Priority.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Priority.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "STATUS" Then Me.Status.SelectedIndex = 0 Me.Status.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Status.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "SLA" Then Me.SLA.SelectedIndex = 0 Me.SLA.SelectedItem.Text = TableRow("DefaultValue").ToString Me.SLA.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "IMPACT" Then Me.Impact.SelectedIndex = 0 Me.Impact.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Impact.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "URGENCY" Then Me.Urgency.SelectedIndex = 0 Me.Urgency.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Urgency.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "SERVICETYPE" Then Me.ServiceType.SelectedIndex = 0 Me.ServiceType.SelectedItem.Text = TableRow("DefaultValue").ToString Me.ServiceType.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "ASSIGNEDTOGROUP" Then Me.AssignedToGroup.SelectedIndex = 0 Me.AssignedToGroup.SelectedItem.Text = TableRow("DefaultValue").ToString Me.AssignedToGroup.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "ASSIGNEDTO" Then Me.AssignedTo.SelectedIndex = 0 Me.AssignedTo.SelectedItem.Text = TableRow("DefaultValue").ToString Me.AssignedTo.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER1" Then Me.Product.SelectedIndex = 0 Me.Product.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Product.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER2" Then Me.Version.SelectedIndex = 0 Me.Version.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Version.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER3" Then Me.Platform.SelectedIndex = 0 Me.Platform.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Platform.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER4" Then Me.Database.SelectedIndex = 0 Me.Database.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Database.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "SUMMARY" Then Me.Summary.Text = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "RESOLUTION" Then Me.Resolution.Text = TableRow("DefaultValue").ToString End If End If Next BizDataSet.Dispose() objrs = Nothing 'Now get the Agent Specific Default Values objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("DefaultValues", "DefaultField, DefaultValue, AgentID", "AgentID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'", 99999, "DefaultValuesID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("DefaultField").ToString) And Not IsDBNull(TableRow("DefaultValue").ToString) Then If UCase(TableRow("DefaultField").ToString) = "PRIORITY" Then Me.Priority.SelectedIndex = 0 Me.Priority.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Priority.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "STATUS" Then Me.Status.SelectedIndex = 0 Me.Status.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Status.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "ASSIGNEDTOGROUP" Then Me.AssignedToGroup.SelectedIndex = 0 Me.AssignedToGroup.SelectedItem.Text = TableRow("DefaultValue").ToString Me.AssignedToGroup.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "ASSIGNEDTO" Then Me.AssignedTo.SelectedIndex = 0 Me.AssignedTo.SelectedItem.Text = TableRow("DefaultValue").ToString Me.AssignedTo.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER1" Then Me.Product.SelectedIndex = 0 Me.Product.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Product.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER2" Then Me.Version.SelectedIndex = 0 Me.Version.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Version.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER3" Then Me.Platform.SelectedIndex = 0 Me.Platform.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Platform.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "TIER4" Then Me.Database.SelectedIndex = 0 Me.Database.SelectedItem.Text = TableRow("DefaultValue").ToString Me.Database.SelectedItem.Value = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "SUMMARY" Then Me.Summary.Text = TableRow("DefaultValue").ToString End If If UCase(TableRow("DefaultField").ToString) = "RESOLUTION" Then Me.Resolution.Text = TableRow("DefaultValue").ToString End If End If Next BizDataSet.Dispose() objrs = Nothing exit_here: End Sub Private Sub SetFocus(ByVal ctrl As Control) ' Define the JavaScript function for the specified control. Dim focusScript As String = "" ' Add the JavaScript code to the page. Page.RegisterStartupScript("FocusScript", focusScript) End Sub Private Sub Department_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Department.SelectedIndexChanged SetFocus(Me.AssetDropDownList) End Sub Public Sub Translate() Me.SearchButton.Text = Application(Session.Item("Language") & " Search") Me.IncidentButton.Text = Application(Session.Item("Language") & " Incident") Me.ImpactedAreas.Text = Application(Session.Item("Language") & " Impacted Areas") Me.Worklogs.Text = Application(Session.Item("Language") & " Worklogs") Me.Resolution.Text = Application(Session.Item("Language") & " Resolution") Me.Attach.Text = Application(Session.Item("Language") & " Attachments") Me.IncidentAssociations.Text = Application(Session.Item("Language") & " Associations") Me.Audit.Text = Application(Session.Item("Language") & " Audit") Me.EMailContact.Text = Application(Session.Item("Language") & " EMail Contact") Me.ContactInformation.Text = Application(Session.Item("Language") & " Contact Information") Me.ContactIDLabel.Text = Application(Session.Item("Language") & " Contact ID") Me.FirstNameLabel.Text = Application(Session.Item("Language") & " First Name") Me.LastNameLabel.Text = Application(Session.Item("Language") & " Last Name") Me.PhoneLabel.Text = Application(Session.Item("Language") & " Phone") Me.AddressLabel.Text = Application(Session.Item("Language") & " Address") Me.CityLabel.Text = Application(Session.Item("Language") & " City") Me.StateLabel.Text = Application(Session.Item("Language") & " State") Me.ZipLabel.Text = Application(Session.Item("Language") & " Zip") Me.CompanyLabel.Text = Application(Session.Item("Language") & " Company") Me.BusinessUnitLabel.Text = Application(Session.Item("Language") & " Business Unit") Me.SiteLabel.Text = Application(Session.Item("Language") & " Site") Me.OrganizationLabel.Text = Application(Session.Item("Language") & " Organization") Me.DepartmentLabel.Text = Application(Session.Item("Language") & " Department") Me.AssetsDropDownListLabel.Text = Application(Session.Item("Language") & " Assets") Me.EMailLabel.Text = Application(Session.Item("Language") & " E-mail") Me.IncidentDescriptionLabel.Text = Application(Session.Item("Language") & " Incident Description") Me.SummaryLabel.Text = Application(Session.Item("Language") & " Summary") Me.StatusLabel.Text = Application(Session.Item("Language") & " Status") Me.StatusReasonLabel.Text = Application(Session.Item("Language") & " Status Reason") Me.StartDateLabel2.Text = Application(Session.Item("Language") & " Start Date") Me.ResolutionDateLabel.Text = Application(Session.Item("Language") & " Resolution Date") Me.Categorizationlabel.Text = Application(Session.Item("Language") & " Categorization") Me.ProductLabel.Text = Application(Session.Item("Language") & " Tier 1") Me.VersionLabel.Text = Application(Session.Item("Language") & " Tier 2") Me.Platformlabel.Text = Application(Session.Item("Language") & " Tier 3") Me.DatabaseLabel.Text = Application(Session.Item("Language") & " Tier 4") Me.SequenceLabel.Text = Application(Session.Item("Language") & " Sequence") Me.ClassificationLabel.Text = Application(Session.Item("Language") & " Classification") Me.PriorityLabel.Text = Application(Session.Item("Language") & " Priority") Me.ImpactLabel.Text = Application(Session.Item("Language") & " Impact") Me.UrgencyLabel.Text = Application(Session.Item("Language") & " Urgency") Me.ServiceTypeLabel.Text = Application(Session.Item("Language") & " Service Type") Me.SLALabel.Text = Application(Session.Item("Language") & " SLA") Me.Assignmentlabel.Text = Application(Session.Item("Language") & " Assignment") Me.Assign.Text = Application(Session.Item("Language") & " Group") Me.AssignedToLabel.Text = Application(Session.Item("Language") & " Assigned To") Me.ManagerLabel.Text = Application(Session.Item("Language") & " Manager") Me.DefaultGroup.Text = Application(Session.Item("Language") & " My Default Group") Me.VendorInformationLabel.Text = Application(Session.Item("Language") & " Vendor Information") Me.VendorName.Text = Application(Session.Item("Language") & " Vendor Name") Me.TicketLabel.Text = Application(Session.Item("Language") & " Ticket") Me.VendorContactLabel.Text = Application(Session.Item("Language") & " Vendor Contact") Me.VendorEmailLabel.Text = Application(Session.Item("Language") & " Vendor E-mail") Me.AssignedDateLabel.Text = Application(Session.Item("Language") & " Assigned Date") Me.VendorSLALabel.Text = Application(Session.Item("Language") & " Vendor SLA") Me.VendorPhoneLabel.Text = Application(Session.Item("Language") & " Vendor Phone") Me.SaveIncident.Text = Application(Session.Item("Language") & " Save Incident") Me.StartNewIncident.Text = Application(Session.Item("Language") & " Clear Incident") Me.DeleteIncident.Text = Application(Session.Item("Language") & " Delete Incident") Me.NoButton.Text = Application(Session.Item("Language") & " No") Me.YesButton.Text = Application(Session.Item("Language") & " Yes") Me.PrintIncident.Text = Application(Session.Item("Language") & " Print Incident") Me.CreateKB.Text = Application(Session.Item("Language") & " Create Knowledge") Me.CreateProblem.Text = Application(Session.Item("Language") & " Create Problem") Me.RelateToProblem.Text = Application(Session.Item("Language") & " Relate to Problem") Me.MainConsole.Text = Application(Session.Item("Language") & " Main Console") Me.IncidentConsole.Text = Application(Session.Item("Language") & " Incident Console") Me.StartNewIncident.Text = Application(Session.Item("Language") & " Clear Incident") Me.HelpLink.Text = Application(Session.Item("Language") & " Help") Me.LinkButton2.Text = Application(Session.Item("Language") & " My Open Incidents") Me.LinkButton1.Text = Application(Session.Item("Language") & " Priority 1 Incidents") Me.ChangeSettings.Text = Application(Session.Item("Language") & " Change My Profile") Me.ChangePassword.Text = Application(Session.Item("Language") & " Change My Password") Me.QuickTicket.Text = Application(Session.Item("Language") & " Start Quick Ticket") Me.LinkButton4.Text = Application(Session.Item("Language") & " Manage Agents") Me.LinkButton3.Text = Application(Session.Item("Language") & " Start New Incident") Me.EMailContact.Text = Application(Session.Item("Language") & " E-Mail Contact") Me.AgentLookup.Text = Application(Session.Item("Language") & " Agent Lookup") Me.Logout.Text = Application(Session.Item("Language") & " Logout") End Sub Public Sub LoadToolTip() If Session.Item("Language") = "English" Then 'Create the Tooltip help Me.IncidentID.ToolTip = "Current Incident ID" Me.IncidentIDLabel.ToolTip = "Current IncidentID" Me.PriorityLabel.ToolTip = "Please select a Priority" Me.StatusLabel.ToolTip = "Please select a Status" Me.CreateDate.ToolTip = "Please enter the Start Date for the Incident" Me.SLA.ToolTip = "Please select an SLA for the Incident" Me.ProductLabel.ToolTip = "Please select the Tier 1" Me.VersionLabel.ToolTip = "Please select the Tier 2" Me.Platformlabel.ToolTip = "Please select the Tier 3" Me.DatabaseLabel.ToolTip = "Please select the Tier 4" Me.AssignedDate.ToolTip = "Please enter the Assigned Date for the Incident to this Vendor" Me.ServiceType.ToolTip = "Please select the Service Type for the Incident" Me.Duration.ToolTip = "Duration is the difference between Start Date and Resolution Date according to Business Hours" Me.Sequence.ToolTip = "Please enter the Sequence as a whole Number. Used for relating this Incident to a Project." Me.ContactInformation.ToolTip = "Please enter information about the person requesting service" Me.Summary.ToolTip = "Please enter the Summary of this Incident. Be brief and to the point, more information can be added in the Worklog." Me.Resolution.ToolTip = "Please enter the Resolution of this Incident" Me.AssignedToLabel.ToolTip = "Please select an Agent to assign to this Incident" Me.AssignedToGroup.ToolTip = "Please select a Group to assign to this Incident" Me.Submitter.ToolTip = "The person whom originally created the Incident" Me.DeleteIncident.ToolTip = "Click here to delete the current Incident" Me.StartNewIncident.ToolTip = "Click here to start a new Incident" Me.SaveIncident.ToolTip = "Click here to save the Incident" Me.Assign.ToolTip = "Please select the Group to Assign to this Incident" Me.ContactID.ToolTip = "Please select a Contact" Me.FirstName.ToolTip = "Please enter the First Name of the Contact" Me.CompanyLabel.ToolTip = "Please select the Company for the Contact" Me.LastName.ToolTip = "Please enter the Last Name of the Contact" Me.Address.ToolTip = "Please enter the Address of the Contact" Me.Phone.ToolTip = "Please enter the Phone Number of the Contact" Me.City.ToolTip = "Please enter the City of the Contact" Me.EMail.ToolTip = "Please enter the E-Mail of the Contact" Me.State.ToolTip = "Please enter the State or Province of the Contact" Me.Zip.ToolTip = "Please enter the Zip Code or Postal Code of the Contact" Me.YesButton.ToolTip = "Click here to confirm you want to delete the current Incident" Me.NoButton.ToolTip = "Click here to not delete the current Incident" Me.IncidentButton.ToolTip = "Current page - Incident" Me.SearchButton.ToolTip = "Click here to Search for Incidents" Me.SummaryLabel.ToolTip = "Please enter an Incident Summary" Me.ContactInformation.ToolTip = "Please enter the information about the person requesting this Incident" Me.Resolution.ToolTip = "Information about what resolved the Incident" Me.Assignmentlabel.ToolTip = "Information about whom is Assigned to the Incident" Me.Categorizationlabel.ToolTip = "Information about how the Incident has been Categorized" Me.IncidentDescriptionLabel.ToolTip = "Information describing this Incident" Me.Priority.ToolTip = "Please select a Priority" Me.CompanyDropDownList.ToolTip = "Please select a Company for this Incident" Me.AssetsDropDownListLabel.ToolTip = "List of Assets owned by this Contact" Me.CreateProblem.ToolTip = "Click here to create a Problem based on this Incident " Me.RelateToProblem.ToolTip = "Click here to Relate this Incident to an existing Problem. Initial Problem Search is based on the Categorization." Me.Vendor.ToolTip = "Please enter the name of the Vendor working on this problem." Me.ManagerLabel.ToolTip = "The Manager of the Assigned To Agent." Me.Manager.ToolTip = "The Manager of the Assigned To Agent." Me.Button1.ToolTip = "Click here to search for Contacts with this ContactID" Me.ContactIDLookup.ToolTip = "Click here to populate the ContactID drop down list with the Search results based on entered field values." Me.FirstNameLookup.ToolTip = "Click here to search for Contacts with this First Name" Me.LastNameLookup.ToolTip = "Click here to search for Contacts with this Last Name" Me.PhoneLookup.ToolTip = "Click here to search for Contacts with this Phone Number" Me.AddressLookup.ToolTip = "Click here to search for Contacts with this Address" Me.CityLookup.ToolTip = "Click here to search for Contacts with this City" Me.StateZipLookup.ToolTip = "Click here to search for Contacts with this Zip / Postal Code" Me.CompanyLookup.ToolTip = "Click here to search for Contacts with this Company" Me.BusinessUnitLookup.ToolTip = "Click here to search for Contacts with this Business Unit" Me.OrganizationLookup.ToolTip = "Click here to search for Contacts with this Organization" Me.SiteLookup.ToolTip = "Click here to search for Contacts with this Site" Me.Department.ToolTip = "Click here to search for Contacts with this Department" Me.AssetLookup.ToolTip = "Click here to search for Contacts with this Asset" Me.EMailLookup.ToolTip = "Click here to search for Contacts with this E-Mail Address" End If End Sub Private Sub Vendor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Vendor.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow 'Get the list of ContactID's for this Vendor If Not IsNothing(Me.Vendor.SelectedItem) Then Me.VendorContact.Items.Clear() Me.VendorEmail.Text = "" Me.VendorPhone.Text = "" Me.VendorContact.Items.Add("") objrs = Server.CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Contact", "ContactID", "CompanyName = '" & Replace(Me.Vendor.SelectedItem.Text, "'", "''") & "'", 9999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("ContactID").ToString) Then Me.VendorContact.Items.Add(TableRow("ContactID").ToString) End If Next BizDataSet.Dispose() objrs = Nothing End If exit_here: End Sub Private Sub VendorContact_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorContact.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow If Not IsNothing(Me.VendorContact.SelectedItem) Then If Trim(Me.VendorContact.SelectedItem.Text) <> "" Then objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Contact", "EMail, Phone", "ContactID = '" & Replace(Me.VendorContact.SelectedItem.Text, "'", "''") & "'", 1, "ContactID Desc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) If Not IsDBNull(TableRow("EMail").ToString) Then Me.VendorEmail.Text = TableRow("EMail").ToString End If If Not IsDBNull(TableRow("Phone").ToString) Then Me.VendorPhone.Text = TableRow("Phone").ToString End If End If BizDataSet.Dispose() objrs = Nothing End If End If exit_here: End Sub Private Sub VendorLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow Dim CompanyName As String Dim CompanyID As Long Call SaveDirtyData() If Me.CompanyDropDownList.SelectedItem.Text <> " " Then Session.Remove("CompanySearchCriteria") Session.Add("CompanySearchCriteria", "CompanyName Like '%" & Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''") & "%'") CompanyName = Me.CompanyDropDownList.SelectedItem.Text objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Company", "CompanyID", "CompanyName = '" & Replace(CompanyName, "'", "''") & "'", 9999, "CompanyName Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) CompanyID = TableRow("CompanyID").ToString Session.Remove("RecordLockCompanyID") Session.Add("RecordLockCompanyID", CompanyID) End If BizDataSet.Dispose() objrs = Nothing End If Session.Remove("CompanyInitialLoad") Session.Add("CompanyInitialLoad", False) Session.Remove("CompanyDatagridType") Session.Add("CompanyDatagridType", "Company") Session.Remove("HighlightedCompanyDatagridID") Session.Remove("CompanyPageIndex") Response.Redirect("Company.aspx") exit_here: End Sub Private Sub VendorContactLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorContactLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If CheckPermissions(Replace(Session.Item("LoginID"), "'", "''"), "Read", "Contact") = False Then Me.ErrorMessage.Text = "" Exit Sub End If Call SaveDirtyData() If Not IsNothing(Me.ContactID.SelectedItem) Then If Trim(Me.ContactID.SelectedItem.Text) <> "" Then Session.Remove("HighlightedContactDatagridID") Session.Remove("ContactPageIndex") Session.Remove("ContactDatagridType") Session.Add("ContactDatagridType", "Contact") Session.Remove("ContactSearchCriteria") Session.Add("ContactSearchCriteria", "ContactID = '" & Replace(Me.VendorContact.SelectedItem.Text, "'", "''") & "'") End If End If If Session.Item("ContactViaLDAP") = "Enabled" Then Response.Redirect("LDAPContact.aspx") Else Response.Redirect("Contact.aspx") End If exit_here: End Sub Private Sub AssignedTo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AssignedTo.SelectedIndexChanged If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If If Session.Item("LoggedIn") Is Nothing Then Response.Redirect("Login.aspx?SessionTimeout=True") End If If Trim(Me.AssignedTo.SelectedItem.Text) <> "" Then Dim objrs Dim BizDataSet As DataSet Dim TableRow As DataRow objrs = CreateObject("BizClass.NET") BizDataSet = objrs.EAGet("Agents", "Manager", "AgentID = '" & Replace(Me.AssignedTo.SelectedItem.Text, "'", "''") & "' ", 200, "Manager", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) If BizDataSet.Tables(0).Rows.Count > 0 Then TableRow = BizDataSet.Tables(0).Rows.Item(0) If Me.Manager.Items.Count < 1 Then Me.Manager.Items.Add("") Me.Manager.SelectedIndex = 0 Me.Manager.SelectedItem.Text = TableRow("Manager").ToString End If BizDataSet.Dispose() objrs = Nothing Else Me.Manager.SelectedIndex = 0 Me.Manager.SelectedItem.Text = "" End If SetFocus(Me.Manager) exit_here: End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Session.Remove("KBSearchTier1") If Not IsNothing(Me.Product.SelectedItem) Then If Trim(Me.Product.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier1", Trim(Me.Product.SelectedItem.Text)) End If End If Session.Remove("KBSearchTier2") If Not IsNothing(Me.Version.SelectedItem) Then If Trim(Me.Version.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier2", Trim(Me.Version.SelectedItem.Text)) End If End If Session.Remove("KBSearchTier3") If Not IsNothing(Me.Platform.SelectedItem) Then If Trim(Me.Platform.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier3", Trim(Me.Platform.SelectedItem.Text)) End If End If Session.Remove("KBSearchTier4") If Not IsNothing(Me.Database.SelectedItem) Then If Trim(Me.Database.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier4", Trim(Me.Database.SelectedItem.Text)) End If End If Session.Remove("KBIncidentSearch") Session.Add("KBIncidentSearch", "True") Response.Redirect("KnowledgebaseSearch.aspx") exit_here: End Sub Private Sub KnowledgeImage_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Session.Remove("KBSearchTier1") If Not IsNothing(Me.Product.SelectedItem) Then If Trim(Me.Product.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier1", Trim(Me.Product.SelectedItem.Text)) End If End If Session.Remove("KBSearchTier2") If Not IsNothing(Me.Version.SelectedItem) Then If Trim(Me.Version.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier2", Trim(Me.Version.SelectedItem.Text)) End If End If Session.Remove("KBSearchTier3") If Not IsNothing(Me.Platform.SelectedItem) Then If Trim(Me.Platform.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier3", Trim(Me.Platform.SelectedItem.Text)) End If End If Session.Remove("KBSearchTier4") If Not IsNothing(Me.Database.SelectedItem) Then If Trim(Me.Database.SelectedItem.Text) <> "" Then Session.Add("KBSearchTier4", Trim(Me.Database.SelectedItem.Text)) End If End If Session.Remove("KBIncidentSearch") Session.Add("KBIncidentSearch", "True") Response.Redirect("KnowledgebaseSearch.aspx") exit_here: End Sub Private Sub SearchSimilarProblems_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchSimilarProblems.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Dim ProblemSearchCriteria As String If Trim(Me.Product.SelectedItem.Text) <> "" And Not IsNothing(Me.Product.SelectedItem) Then ProblemSearchCriteria = "Tier1 = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.Version.SelectedItem.Text) <> "" And Not IsNothing(Me.Version.SelectedItem) Then If Len(ProblemSearchCriteria) < 1 Then ProblemSearchCriteria = "Tier2 = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "'" Else ProblemSearchCriteria = ProblemSearchCriteria & " And Tier2 = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.Platform.SelectedItem.Text) <> "" And Not IsNothing(Me.Platform.SelectedItem) Then If Len(ProblemSearchCriteria) < 1 Then ProblemSearchCriteria = "Tier3 = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "'" Else ProblemSearchCriteria = ProblemSearchCriteria & " And Tier3 = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.Database.SelectedItem.Text) <> "" And Not IsNothing(Me.Database.SelectedItem) Then If Len(ProblemSearchCriteria) < 1 Then ProblemSearchCriteria = "Tier4 = '" & Replace(Me.Database.SelectedItem.Text, "'", "''") & "'" Else ProblemSearchCriteria = ProblemSearchCriteria & " And Tier4 = '" & Replace(Me.Database.SelectedItem.Text, "'", "''") & "'" End If End If Session.Remove("gbl_ProblemSearchCriteriaString") Session.Add("gbl_ProblemSearchCriteriaString", ProblemSearchCriteria) Response.Redirect("ProblemSearch.aspx") exit_here: End Sub Private Sub SearchSimilarImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Call SaveDirtyData() Dim ProblemSearchCriteria As String Session.Remove("KBSearchTier1") If Trim(Me.Product.SelectedItem.Text) <> "" And Not IsNothing(Me.Product.SelectedItem) Then ProblemSearchCriteria = "KBProduct = '" & Replace(Me.Product.SelectedItem.Text, "'", "''") & "'" End If If Trim(Me.Version.SelectedItem.Text) <> "" And Not IsNothing(Me.Version.SelectedItem) Then If Len(ProblemSearchCriteria) < 1 Then ProblemSearchCriteria = "KBVersion = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "'" Else ProblemSearchCriteria = ProblemSearchCriteria & " And KBVersion = '" & Replace(Me.Version.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.Platform.SelectedItem.Text) <> "" And Not IsNothing(Me.Platform.SelectedItem) Then If Len(ProblemSearchCriteria) < 1 Then ProblemSearchCriteria = "KBPlatform = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "'" Else ProblemSearchCriteria = ProblemSearchCriteria & " And KBPlatform = '" & Replace(Me.Platform.SelectedItem.Text, "'", "''") & "'" End If End If If Trim(Me.Database.SelectedItem.Text) <> "" And Not IsNothing(Me.Database.SelectedItem) Then If Len(ProblemSearchCriteria) < 1 Then ProblemSearchCriteria = "KBDB = '" & Replace(Me.Database.SelectedItem.Text, "'", "''") & "'" Else ProblemSearchCriteria = ProblemSearchCriteria & " And KBDB = '" & Replace(Me.Database.SelectedItem.Text, "'", "''") & "'" End If End If Session.Remove("gbl_ProblemSearchCriteriaString") Session.Add("gbl_ProblemSearchCriteriaString", "1=1") Response.Redirect("ProblemSearch.aspx") exit_here: End Sub Private Sub Attributes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Attributes.Click Response.Redirect("IncidentAttributes.aspx") End Sub Private Sub Approvals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Approvals.Click Response.Redirect("IncidentApprovals.aspx") End Sub Private Sub HelpLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpLink.Click Response.Redirect("HelpConsole.aspx") End Sub Private Sub RelateToProblem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RelateToProblem.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim SearchCriteriaSTR As String If Not IsNothing(Me.Product.SelectedItem) Then If Trim(Me.Product.SelectedItem.Text) <> "" Then If SearchCriteriaSTR = "" Then SearchCriteriaSTR = SearchCriteriaSTR & " Tier1 = '" & Me.Product.SelectedItem.Value & "'" Else SearchCriteriaSTR = SearchCriteriaSTR & " And Tier1 = '" & Me.Product.SelectedItem.Value & "'" End If End If End If If Not IsNothing(Me.Version.SelectedItem) Then If Trim(Me.Version.SelectedItem.Value) <> "" Then If SearchCriteriaSTR = "" Then SearchCriteriaSTR = SearchCriteriaSTR & " Tier2 = '" & Me.Version.SelectedItem.Value & "'" Else SearchCriteriaSTR = SearchCriteriaSTR & " And Tier2 = '" & Me.Version.SelectedItem.Value & "'" End If End If End If If Not IsNothing(Me.Platform.SelectedItem) Then If Trim(Me.Platform.SelectedItem.Text) <> "" Then If SearchCriteriaSTR = "" Then SearchCriteriaSTR = SearchCriteriaSTR & " Tier3 = '" & Me.Platform.SelectedItem.Value & "'" Else SearchCriteriaSTR = SearchCriteriaSTR & " And Tier3 = '" & Me.Platform.SelectedItem.Value & "'" End If End If End If If Not IsNothing(Me.Database.SelectedItem) Then If Trim(Me.Database.SelectedItem.Text) <> "" Then If SearchCriteriaSTR = "" Then SearchCriteriaSTR = SearchCriteriaSTR & " Tier4 = '" & Me.Database.SelectedItem.Value & "'" Else SearchCriteriaSTR = SearchCriteriaSTR & " And Tier4 = '" & Me.Database.SelectedItem.Value & "'" End If End If End If Session.Remove("gbl_ProblemSearchCriteriaString") Session.Add("gbl_ProblemSearchCriteriaString", SearchCriteriaSTR) Session.Remove("ProblemSearchDatagridPage") Session.Add("ProblemSearchDatagridPage", 0) Response.Redirect("ProblemSearch.aspx") exit_here: End Sub Private Sub ContactIDLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContactIDLookup.Click If Session.Item("Tracing") = "False" Then On Error GoTo exit_here End If Dim SearchCriteria As String If Not IsNothing(Me.FirstName.Text) And Trim(Me.FirstName.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "FirstName Like '" & Replace(Me.FirstName.Text, "'", "''") & "%'" Else SearchCriteria = SearchCriteria & " And FirstName Like '" & Replace(Me.FirstName.Text, "'", "''") & "%'" End If End If If Not IsNothing(Me.LastName.Text) And Trim(Me.LastName.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "LastName Like '" & Replace(Me.LastName.Text, "'", "''") & "%'" Else SearchCriteria = SearchCriteria & " And LastName Like '" & Replace(Me.LastName.Text, "'", "''") & "%'" End If End If If Not IsNothing(Me.CompanyDropDownList.SelectedItem) Then If Trim(Me.CompanyDropDownList.SelectedItem.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "CompanyName = '" & Trim(Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''")) & "'" Else SearchCriteria = SearchCriteria & " And CompanyName = '" & Trim(Replace(Me.CompanyDropDownList.SelectedItem.Text, "'", "''")) & "'" End If End If End If If Not IsNothing(Me.BusinessUnit.SelectedItem) Then If Trim(Me.BusinessUnit.SelectedItem.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "BusinessUnitName = '" & Trim(Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''")) & "'" Else SearchCriteria = SearchCriteria & " And BusinessUnitName = '" & Trim(Replace(Me.BusinessUnit.SelectedItem.Text, "'", "''")) & "'" End If End If End If If Not IsNothing(Me.SiteDropDownList.SelectedItem) Then If Trim(Me.SiteDropDownList.SelectedItem.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "SiteName = '" & Trim(Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''")) & "'" Else SearchCriteria = SearchCriteria & " And SiteName = '" & Trim(Replace(Me.SiteDropDownList.SelectedItem.Text, "'", "''")) & "'" End If End If End If If Not IsNothing(Me.Department.SelectedItem) Then If Trim(Me.Department.SelectedItem.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "DepartmentName = '" & Trim(Replace(Me.Department.SelectedItem.Text, "'", "''")) & "'" Else SearchCriteria = SearchCriteria & " And DepartmentName = '" & Trim(Replace(Me.Department.SelectedItem.Text, "'", "''")) & "'" End If End If End If If Not IsNothing(Me.Address.Text) And Trim(Me.Address.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "StreetAddress Like '" & Replace(Me.Address.Text, "'", "''") & "%'" Else SearchCriteria = SearchCriteria & " And StreetAddress Like '" & Replace(Me.Address.Text, "'", "''") & "%'" End If End If If Not IsNothing(Me.City.Text) And Trim(Me.City.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "City Like '" & Replace(Me.City.Text, "'", "''") & "%'" Else SearchCriteria = SearchCriteria & " And City Like '" & Replace(Me.City.Text, "'", "''") & "%'" End If End If If Not IsNothing(Me.Zip.Text) And Trim(Me.Zip.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "PCode Like '" & Replace(Me.Zip.Text, "'", "''") & "%'" Else SearchCriteria = SearchCriteria & " And PCode Like '" & Replace(Me.Zip.Text, "'", "''") & "%'" End If End If If Not IsNothing(Me.State.SelectedItem) Then If Trim(Me.State.SelectedItem.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "StateProv = '" & Trim(Replace(Me.State.SelectedItem.Text, "'", "''")) & "'" Else SearchCriteria = SearchCriteria & " And StateProv = '" & Trim(Replace(Me.State.SelectedItem.Text, "'", "''")) & "'" End If End If End If If Not IsNothing(Me.Phone.Text) And Trim(Me.Phone.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "Phone Like '" & Replace(Me.Phone.Text, "'", "''") & "%'" Else SearchCriteria = SearchCriteria & " And Phone Like '" & Replace(Me.Phone.Text, "'", "''") & "%'" End If End If If Not IsNothing(Me.EMail.Text) And Trim(Me.EMail.Text) <> "" Then If Len(SearchCriteria) < 1 Then SearchCriteria = "EMail Like '" & Replace(Me.EMail.Text, "'", "''") & "%'" Else SearchCriteria = SearchCriteria & " And EMail Like '" & Replace(Me.EMail.Text, "'", "''") & "%'" End If End If If Len(SearchCriteria) = 0 Then SearchCriteria = "1=1" End If Session.Remove("IncidentContactSearchCriteria") Session.Add("IncidentContactSearchCriteria", SearchCriteria) 'Populate the ContactID dropdown Dim BizDataSet As DataSet Dim TableRow As DataRow Dim Objrs Me.ContactID.Items.Clear() Me.ContactID.Items.Add(" ") If IsNothing(Session.Item("IncidentContactSearchCriteria")) Then Session.Add("IncidentContactSearchCriteria", "1=1") End If Objrs = Server.CreateObject("BizClass.NET") If Session.Item("LoginType") = "Contact" Or Session.Item("LoginType") = "LDAP-Contact" Then BizDataSet = Objrs.EAGet("Contact", "ContactID", "ContactID = '" & Replace(Session.Item("LoginID"), "'", "''") & "'", 99999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) Else BizDataSet = Objrs.EAGet("Contact", "ContactID", "1=1", 99999, "ContactID Asc", Session.Item("LoginType"), Session.Item("LoginID"), Session.SessionID) End If For Each TableRow In BizDataSet.Tables(0).Rows If Not IsDBNull(TableRow("ContactID").t) Then Me.ContactID.Items.Add(New ListItem(TableRow("ContactID").ToString)) End If Next BizDataSet.Dispose() Objrs = Nothing SetFocus(Me.ContactID) exit_here: End Sub End Class