<% Session("PriorPage") = Session("CurrentPage") Session("CurrentPage") = "openinv.asp" ' ***** Initialize Query ***** Dim ConnStr Dim Conn Dim rs Dim rsTrack Dim SQL Dim SQL2 Dim PriorStatus Dim PriorAssign Dim StatusID Dim HeadName Dim Debtor Dim Vehicle Dim UpdateDate Dim strAgentName ' *************************************** ' Connect to Database ' *************************************** connectdb If Err.number <> 0 Then strErrorMsg = strErrorMsg & "305. Error Unable to connect to database.
" Err.Clear End If ' *************************************** ' Select Case Information ' *************************************** SQL = "SELECT C.CaseID, " SQL = SQL & "C.Status, " SQL = SQL & "C.AssignType, " SQL = SQL & "C.Agent, " SQL = SQL & "R1.Lname, " SQL = SQL & "R1.Fname, " SQL = SQL & "R1.Addr1, " SQL = SQL & "R1.City, " SQL = SQL & "R1.State, " SQL = SQL & "R1.Zip, " SQL = SQL & "C.Year, " SQL = SQL & "C.Make, " SQL = SQL & "C.Model, " SQL = SQL & "C.ClientAcct, " SQL = SQL & "C.VIN, " SQL = SQL & "Cd1.CodeDesc as StatusDesc, " SQL = SQL & "Cd2.CodeDesc as AssignDesc, " SQL = SQL & "R2.Lname as AgentLname, " SQL = SQL & "R2.Fname as AgentFname, " SQL = SQL & "R3.Lname as ClientLname " SQL = SQL & "FROM tCase C, Rdex R1, Rdex R2, Rdex R3, Codes Cd1, Codes Cd2 " SQL = SQL & "Where R1.Type = '3' " SQL = SQL & "AND R1.Active = 'Y' " if session("UserType") = 2 then SQL = SQL & "AND R1.MasterID = " & session("userid") & " " end if if session("UserType") = 3 then SQL = SQL & "AND C.Agent = " & session("userid") & " " end if SQL = SQL & "AND C.CaseID = R1.ID " SQL = SQL & "AND C.Status = Cd1.CodeID " SQL = SQL & "AND C.AssignType = Cd2.CodeID " SQL = SQL & "AND C.Agent = R2.ID " SQL = SQL & "AND R1.MasterID = R3.ID " if session("UserType") = 3 then SQL = SQL & " UNION " SQL = SQL & "SELECT C.CaseID, " SQL = SQL & "C.Status, " SQL = SQL & "C.AssignType, " SQL = SQL & "C.Agent, " SQL = SQL & "R1.Lname, " SQL = SQL & "R1.Fname, " SQL = SQL & "R1.Addr1, " SQL = SQL & "R1.City, " SQL = SQL & "R1.State, " SQL = SQL & "R1.Zip, " SQL = SQL & "C.Year, " SQL = SQL & "C.Make, " SQL = SQL & "C.Model, " SQL = SQL & "C.ClientAcct, " SQL = SQL & "C.VIN, " SQL = SQL & "Cd1.CodeDesc as StatusDesc, " SQL = SQL & "Cd2.CodeDesc as AssignDesc, " SQL = SQL & "R2.Lname as AgentLname, " SQL = SQL & "R2.Fname as AgentFname, " SQL = SQL & "R3.Lname as ClientLname " SQL = SQL & "FROM tCase C, Rdex R1, Rdex R2, Rdex R3, Codes Cd1, Codes Cd2, Team T " SQL = SQL & "Where R1.Type = '3' " SQL = SQL & "AND R1.Active = 'Y' " SQL = SQL & "AND T.CaseID = R1.ID " SQL = SQL & "AND T.EmpID = " & session("userid") & " " SQL = SQL & "AND T.Active = 'Y' " SQL = SQL & "AND C.CaseID = R1.ID " SQL = SQL & "AND C.Status = Cd1.CodeID " SQL = SQL & "AND C.AssignType = Cd2.CodeID " SQL = SQL & "AND C.Agent = R2.ID " SQL = SQL & "AND R1.MasterID = R3.ID " else ' Add the "processing" status SQL = SQL & " UNION " SQL = SQL & "SELECT C.CaseID, " SQL = SQL & "9999, " SQL = SQL & "C.AssignType, " SQL = SQL & "C.Agent, " SQL = SQL & "R1.Lname, " SQL = SQL & "R1.Fname, " SQL = SQL & "R1.Addr1, " SQL = SQL & "R1.City, " SQL = SQL & "R1.State, " SQL = SQL & "R1.Zip, " SQL = SQL & "C.Year, " SQL = SQL & "C.Make, " SQL = SQL & "C.Model, " SQL = SQL & "C.ClientAcct, " SQL = SQL & "C.VIN, " SQL = SQL & "'Processing New Assignment' as StatusDesc, " SQL = SQL & "Cd2.CodeDesc as AssignDesc, " SQL = SQL & "' ' as AgentLname, " SQL = SQL & "' ' as AgentFname, " SQL = SQL & "R3.Lname as ClientLname " SQL = SQL & "FROM tCase C, Rdex R1, Rdex R3, Codes Cd1, Codes Cd2 " SQL = SQL & "Where R1.Type = '3' " SQL = SQL & "AND R1.Active = 'Y' " if session("UserType") = 2 then SQL = SQL & "AND R1.MasterID = " & session("userid") & " " end if SQL = SQL & "AND C.CaseID = R1.ID " SQL = SQL & "AND C.Status = Cd1.CodeID " SQL = SQL & "AND C.AssignType = Cd2.CodeID " SQL = SQL & "AND C.Agent = 0 " SQL = SQL & "AND R1.MasterID = R3.ID " end if ' SQL = SQL & "Order by Cd1.CodeDesc, Cd2.CodeDesc, R1.Lname, R1.Fname, C.CaseID " SQL = SQL & "Order by 16 DESC, 17, 5, 6, 1 " ' ***** Start Page ***** %> Open Inventory

Open Inventory

<% ' ***** Run Query ***** Set rs = Conn.Execute(SQL) If Err.number <> 0 Then strErrorMsg = strErrorMsg & "Database Read failure.
" & Err.Description Err.Clear showerror(strErrorMsg) return End If priorStatus = -1 priorAssign = -1 While Not rs.EOF StatusID = rs.fields("Status") AssignID = rs.fields("AssignType") if (StatusID <> PriorStatus) _ or (AssignID <> PriorAssign) then if priorStatus > 0 then ' ***** Close prior section ***** %>

 

<% ' ***** Case Variables ***** end if HeadName = rs.fields("StatusDesc") & " - " & rs.fields("AssignDesc") ' ***** Format new Section ***** %>

<%=HeadName%>

<% ' %> <% end if ' ***** Format Detail Line ***** Debtor = rs.fields("Lname") if rs.fields("Fname") > "" then Debtor = Debtor & ", " & rs.fields("Fname") end if strAgentName = trim(rs.fields("AgentLname")) if rs.fields("AgentFname") > "" then strAgentName = strAgentName & ", " & trim(rs.fields("AgentFname")) end if strAgentName = Left(strAgentName,15) Vehicle = rs.fields("Year") Vehicle = Vehicle & " " & rs.fields("Make") Vehicle = Vehicle & " " & rs.fields("Model") %> <% 'comment %> <% 'if session("UserType") = 2 then ' >< 'else %><% 'end if ' read date of last tracking note SQL2 = "SELECT EntryDate " SQL2 = SQL2 & "FROM Track " SQL2 = SQL2 & "WHERE ID = " & cstr(rs.fields("CaseID")) & " " SQL2 = SQL2 & "ORDER BY EntryDate Desc " Set rsTrack = Conn.Execute(SQL2) UpdateDate = " " if NOT rsTrack.EOF then if NOT IsNull(rsTrack.fields("EntryDate")) then UpdateDate = rsTrack.fields("EntryDate") end if end if rsTrack.close set rsTrack = Nothing %> <% priorStatus = StatusID priorAssign = AssignID rs.MoveNext Wend rs.close set rs = nothing conn.close set conn = nothing %>
CaseAccountName Vehicle VIN Leinholder Last Update Action
"><%=cstr(rs.fields("CaseID"))%>< %=rs.fields("ClientAcct")% > <%=Debtor%> <% if INVSTYLE = "DETAIL" then if rs.fields("addr1") > "" then %>
<%=rs.fields("addr1")%> <% end if %>
<%=rs.fields("city")%>, <%=rs.fields("state")%> <%=rs.fields("zip")%> <% end if %> 		<%=Vehicle%>  <%=rs.fields("Vin")%> <=strAgentName><%=left(rs.fields("ClientLName"),15)%><%=UpdateDate%> ">Update <% ' if StatusID = 2 then %> ">Repo Data<% ' end if %>