<%@ Language=VBScript %>
<!--#include file="includes/Functions.asp"-->

<%
' create an array of all users
	Dim rsUsers
	Set rsUsers = Server.CreateObject("ADODB.Recordset")
	If oBS.GetUsers(rsUsers) Then
	End If
	


' create an array of all teams
	Dim rsTeams
	Set rsTeams = Server.CreateObject("ADODB.Recordset")
	rsTeams.Open "Select * from Teams","DSN=bsDSN"
	







Dim isTasks
'if user has called this page with querystring

If Request("ProjectID") <> "" Then
	Session("ProjectID") = Request("ProjectID")
End If

'if updating a schedule task
	
If Request("ProjectTaskID") <> "" Then
	EditScheduleTask 
	' insert some time so that when task our called, updates are reflected
		' add some time
	for i = 0 to 1500000
	next
End If

'if deleting a schedule task
	
If Request("DeleteTask") <> "" Then
	DeleteScheduleTask(Request("DeleteTask"))
End If




	
'Get Project Date Information and Product Information

Dim rsProject,rsProduct
Set rsProject = Server.CreateObject("ADODB.Recordset")
Set rsProduct = Server.CreateObject("ADODB.Recordset")

If oBS.GetProjects(rsProject,Session("ProjectID")) Then
End If




'create default tasks if they have not been created
'Dim rsTest 
'Set rsTest = Server.CreateObject("ADODB.Recordset")
'rsTest.Open "Select * from ProjectTasks where ProjectID = " & Cstr(Session("ProjectID")),"DSN=bsDSN"
'if there are no tasks create default ones
'If rsTest.EOF Then
	'oBS.CreateSchedule rsProject("TypeID"),rsProject("ProjectID")
	'Response.Redirect("project_schedule.asp")
'End If
'rsTest.Close






	
'set product session (if coming to this page directly from INBOX)
Session("ProductID") = rsProject("ProductID")
	
'if updating project dates
If Request("isUpdating") = "isUpdating" Then
		UpdateDates()
End If
	
'if setting default dates

If Request("default") <> "" Then
		ChangeDates()
End If

		
'instantiate objects for form element creation
'objects to create form elements follow...

Dim oAddTask, sRedirect
Set oAddTask = oCD.GetInputbox
oAddTask.id = "AddTask"
oAddTask.group = 4
oAddTask.className = "Buttons"
oAddTask.style = "HEIGHT: 25px; LEFT: 24px; POSITION: absolute; TOP: 69px; WIDTH: 67px"
oAddTask.value = "Add Task"
sRedirect = "window.open('project_schedule_addtask.asp?ProjectID=" & Session("ProjectID") & "','','height=220,width=475,resizable')"
oAddTask.extra = "onClick=""" & sRedirect & """"
DisableIfNotTM(oAddTask)

If oBS.GetProducts(rsProduct,CInt(rsProject("ProductID"))) Then
End If
	
Dim oProjectStartDate
Set oProjectStartDate = oCD.GetInputbox
EnableDisable(oProjectStartDate)
oProjectStartDate.id = "ProjectStartDate"
oProjectStartDate.className = "Buttons"
oProjectStartDate.style = "HEIGHT: 17px; LEFT: 277px; POSITION: absolute; TOP: 69px; WIDTH: 66px"
oProjectStartDate.value = rsProject("ProjectStartDate")
If Session("SecurityProfile") <> "TM" Then
	oProjectStartDate.disabled = true
End If

Dim oTargetCompletionDate
Set oTargetCompletionDate = oCD.GetInputbox
EnableDisable(oTargetCompletionDate)
oTargetCompletionDate.id = "TargetCompletionDate"
oTargetCompletionDate.className = "Buttons"
oTargetCompletionDate.style = "HEIGHT: 19px; LEFT: 277px; POSITION: absolute; TOP: 94px; WIDTH: 66px"
oTargetCompletionDate.value = rsProject("TargetCompletionDate")
If Session("SecurityProfile") <> "TM" Then
	oTargetCompletionDate.disabled = true
End If
	
'rest of form elements comprise the schedule for the project.
'the total number of elements depends on the project and project
'type.  Therefore, need to call ListTasks(rs,iProjectID) function.
	
Dim rsTasks
Set rsTasks = Server.CreateObject("ADODB.Recordset")


Dim iCount,iTask
If oBS.ListTasks(rsTasks,Session("ProjectID")) Then
	
	'get number of tasks
	iCount = rsTasks.RecordCount
	
	If iCount = 0 Then
		isTasks = False
	Else
		isTasks = True
	End If
	
	'Dim an array for task form elements
	
	Dim oSchedule()
	Redim oSchedule(iCount-1,6)
	
	Dim fTotalHours
	fTotalHours = 0.0
	
	'with for loop, instantiate the objects (with set) and
	'assign properties
	
	For iTask = 0 to iCount-1
	

	
		
		Set oSchedule(iTask,0) = oCD.GetSelectbox
		oSchedule(iTask,0).id = "TeamID" & CStr(iTask+1)
		oSchedule(iTask,0).className = "Buttons"
		oSchedule(iTask,0).style= "POSITION: relative; WIDTH: 90px;VERTICAL-ALIGN: top"
		DisableIfNotTM(oSchedule(iTask,0))
		oSchedule(iTask,0).extra = "onChange=""AddUsers(" & "TeamID" & CStr(itask+1) & ".options[" & "TeamID" & CStr(itask+1) & ".selectedIndex].value," & "UserID" & CStr(itask+1) &");"""
		
		
		Set oSchedule(iTask,1) = oCD.GetSelectbox
		oSchedule(iTask,1).id = "UserID" & CStr(iTask+1)
		oSchedule(iTask,1).className = "Buttons"
		oSchedule(iTask,1).style= "POSITION: relative; WIDTH: 90px;VERTICAL-ALIGN: top"

		
		
		'DisableIfNotTM(oSchedule(iTask,1))
		
		Set oSchedule(iTask,2) = oCD.GetInputbox
		oSchedule(iTask,2).id = "TargetCompletionDate" & CStr(iTask+1)
		oSchedule(iTask,2).className = "Buttons"
		oSchedule(iTask,2).style= "HEIGHT: 17px; WIDTH: 45px; VERTICAL-ALIGN: top"
		oSchedule(iTask,2).value = rsTasks("TargetCompletionDate")
		DisableIfNotTM(oSchedule(iTask,2))
		oSchedule(iTask,2).extra = "onBlur=""return validateDatesOnBlur(this.value,'Target Date');"""
		
		Set oSchedule(iTask,3) = oCD.GetInputbox
		oSchedule(iTask,3).id = "AssignedDateTime" & CStr(iTask+1)
		oSchedule(iTask,3).className = "Buttons"
		oSchedule(iTask,3).style= "HEIGHT: 17px; WIDTH: 45px; VERTICAL-ALIGN: top"
		oSchedule(iTask,3).value = rsTasks("AssignedDateTime")
		DisableIfNotTM(oSchedule(iTask,3))
		oSchedule(iTask,3).extra = "onBlur=""return validateDatesOnBlur(this.value,'Assigned Date');"""
		
		Set oSchedule(iTask,4) = oCD.GetInputbox
		oSchedule(iTask,4).id = "CompletedDateTime" & CStr(iTask+1)
		oSchedule(iTask,4).className = "Buttons"
		oSchedule(iTask,4).style= "HEIGHT: 17px; WIDTH: 45px; VERTICAL-ALIGN: top"
		oSchedule(iTask,4).value = rsTasks("CompletedDateTime")
		DisablePopulated oSchedule(iTask,4),rsTasks
		oSchedule(iTask,4).extra = "onBlur=""return validateDatesOnBlur(this.value,'Completion Date');"""
					
		Set oSchedule(iTask,5) = oCD.GetInputbox
		oSchedule(iTask,5).id = "ReviewedDateTime" & CStr(iTask+1)
		oSchedule(iTask,5).className = "Buttons"
		oSchedule(iTask,5).style= "HEIGHT: 17px; WIDTH: 45px; VERTICAL-ALIGN: top"
		oSchedule(iTask,5).value = rsTasks("ReviewedDateTime")
		DisableIfNotTM(oSchedule(iTask,5))
		oSchedule(iTask,5).extra = "onBlur=""return validateDatesOnBlur(this.value,'Reviewed Date');"""
		
		Set oSchedule(iTask,6) = oCD.GetInputbox
		oSchedule(iTask,6).id = "Hours" & CStr(iTask+1)
		oSchedule(iTask,6).className = "Buttons"
		oSchedule(iTask,6).style= "HEIGHT: 17px; WIDTH: 25px; VERTICAL-ALIGN: top"
		oSchedule(iTask,6).value = rsTasks("Hours")
		oSchedule(iTask,6).extra = "onBlur=""return validateNumbersOnBlur(this.value,'Hours');"""
		
		'keep running total of Hours column
		
		If Not isNull(rsTasks("Hours")) Then
			fTotalHours = fTotalHours + CSng(rsTasks("Hours"))
		End If
		
		rsTasks.MoveNext
	Next
End If 'end create form elements for tasks

'begin server-side functions

'*****************************************************
'
' FUNCTION DISABLEIFNOTTM
'
' Purpose:   to disable an object if the user isn't
'            a TM
' Inputs:	 nothing
' Returns:   nothing
'*****************************************************

Function DisableIfNotTM(ByRef oItem)
	If Session("SecurityProfile") <> "TM" Then
		oItem.disabled = True
	End If
End Function

'*****************************************************
'
' FUNCTION EDITSCHEDULETASK
'
' Purpose:   Edits a task
' Inputs:	 Project Task ID, sequence
' Returns:   nothing
'*****************************************************

Function EditScheduleTask()

	Dim rsEdit,sFieldName,iFields
	Set rsEdit = Server.CreateObject("ADODB.Recordset")
	
	Dim iProjectTaskID
	Dim iTaskID
	
	iProjectTaskID = Request("ProjectTaskID")
	iTaskID = Request("iTask")
	
	oBS.GetTasks rsEdit,iProjectTaskID
	
	
		If Not isNull(Request("UserID" & CStr(iTaskID)))  Then	
			If Request("UserID"& CStr(iTaskID)) <> "" Then
				rsEdit("UserID") = Request("UserID" & CStr(iTaskID))
			Else
				rsEdit("UserID") = null
			End If
		End If
		
		
	'only TM can update the following fields...
	
	If Session("SecurityProfile") = "TM" Then
	
		' update the sequence
		If isNumeric(Request("Sequence" & CStr(iTaskID))) Then	
			If Request("Sequence" & CStr(iTaskID)) > 0 Then
				rsEdit("Sequence") = Request("Sequence" & CStr(iTaskID))
			End If
		End If
	
	
		If isNumeric(Request("TeamID" & CStr(iTaskID)))  Then	
			rsEdit("TeamID") = Request("TeamID" & CStr(iTaskID))
		Else
			rsEdit("TeamID") = null
		End If


	
		If isDate(Request("AssignedDateTime" & CStr(iTaskID))) Then
			rsEdit("AssignedDateTime") = Request("AssignedDateTime" & CStr(iTaskID))
		Else
			rsEdit("AssignedDateTime") = null
		End If
		
		If isDate(Request("TargetCompletionDate" & CStr(iTaskID))) Then
			rsEdit("TargetCompletionDate") = Request("TargetCompletionDate" & CStr(iTaskID))
		Else
			rsEdit("TargetCompletionDate")= null
		End If
		
		If isDate(Request("ReviewedDateTime" & CStr(iTaskID))) Then
			rsEdit("ReviewedDateTime") = Request("ReviewedDateTime" & CStr(iTaskID))
		Else
			rsEdit("ReviewedDateTime") = null
		End If
	
	End If 'End if TM
	
	'anyone can update Completed Date Time and Hours
	'once completion date is populated, it's disabled
	'don't let general user write over it.
	
	
	If isDate(Request("CompletedDateTime" & CStr(iTaskID))) Then
			rsEdit("CompletedDateTime") = Request("CompletedDateTime" & CStr(iTaskID))
	Else
		If Session("SecurityProfile") = "TM" Then
			rsEdit("CompletedDateTime") = null
		End If
	End If
	
	
	If isNumeric(Request("Hours" & CStr(iTaskID))) Then
		rsEdit("Hours") = Request("Hours" & CStr(iTaskID))
	Else
		rsEdit("Hours") = 0
	End If
	
	If oBS.UpdateTask(rsEdit) = 0 Then
		'Response.Redirect "project_schedule.asp"
	End If
	
End Function 'end EditScheduleTask() Function

'*****************************************************
'
' FUNCTION DELETESCHEDULETASK
'
' Purpose:   Deletes a task and updates the schedule
' Inputs:	 Project Task ID
' Returns:   nothing
'*****************************************************

Function DeleteScheduleTask(iProjectTaskID)

	If oBS.DeleteTask(CInt(iProjectTaskID)) = 0 Then
	End If
	
	'Insert some time
	
	'Dim x
	'x = Second(Now())
  
	'If x = 59 Then
		'Do While Second(Now()) < 60 And Second(Now()) <> 1
		'Loop
	'Else
		'Do While Second(Now()) < x + 2
		'Loop
	'End If
	
	'If oBS.UpdateSchedule(CInt(Session("ProjectID")),-1) = 0 Then
	'End If

	'set session variable so page knows delete was just made
	
	Session("hasDeleted") = True

	Response.Redirect "project_schedule.asp"
	
End Function

'*****************************************************
'
' FUNCTION GETPROJECTTYPE
'
' Purpose:   Gets the Type Description corresponding
'			 to a Type ID from the ProjectTypes lookup
' Inputs:
'   iTaskIUD:   the TypeID
' 
' Returns:   The Type Description
'*****************************************************

Function GetProjectType(iTypeID)
	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	Dim sSQL
	sSQL = "SELECT * FROM ProjectTypes WHERE TypeID = " & CStr(iTypeID)
	rs.Open sSQL,"DSN=bsDSN"
	If Not rs.EOF Then
		GetProjectType = rs("TypeDescription")
	End If
End Function

'*****************************************************
'
' FUNCTION HIGHLIGHTCURRENTTASK
'
' Purpose:   If the Task is the current one for
'			 the project, make the text red
' Inputs:
'   iTaskIUD:   the ProjectID
' 
' Returns:   a style string = "COLOR:RED"
'*****************************************************

Function HighlightCurrentTask(iSequence,iProjectID)

	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	Dim sSQL
	sSQL = "SELECT * FROM ProjectTasks WHERE ProjectID = " & CStr(iProjectID) & "and isNull(ReviewedDateTime)  order by Sequence"
	rs.Open sSQL,"DSN=bsDSN"
	If Not rs.EOF Then
		If iSequence = rs("Sequence") Then
			HighlightCurrentTask = "COLOR:RED"
		End If
	End If
End Function

'******************************************************
'
' FUNCTION UPDATEDATES
'
' Purpose:   to update the project start and completion
'			 dates
'
' Inputs:    nothing
' 
' Returns:   nothing
'******************************************************

Function UpdateDates()

	'If Request("ProjectStartDate") <> "" Then
		If isDate(Request("ProjectStartDate")) Then
			rsProject("ProjectStartDate") = Request("ProjectStartDate")
		Else
			rsProject("ProjectStartDate") = null
		End If
	'End If

	'If Request("TargetCompletionDate") <> "" Then
		If isDate(Request("TargetCompletionDate")) Then
			rsProject("TargetCompletionDate") = Request("TargetCompletionDate")
		Else
			rsProject("TargetCompletionDate") = null
		End If
	'End If

	oBS.UpdateProject rsProject

End Function

'******************************************************
'
' FUNCTION CHANGEDATES
'
' Purpose:   to update the default schedule dates
'
' Inputs:    nothing
' 
' Returns:   nothing
'******************************************************

Function ChangeDates()

	If oBS.DefaultSchedule(CInt(Session("ProjectID"))) <> 0 Then
		Response.Redirect("error.asp?msg=defaultschedulenowork")
	End If
	
End Function

'*********************************************************************
' FUNCTION GETNAMEFROMREQUESTERID
'
' Purpose: to obtain First Name and Last Name from a User ID
'
' Input:   User ID
'
' Returns: string containing First Name, then Last Name, separated by
'          a space
'*********************************************************************

Function GetNameFromRequesterID(sID)
	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	Dim sSQL
	sSQL = "SELECT FirstName,LastName FROM Users WHERE UserID = '" & CStr(sID) & "'"
	rs.Open sSQL,"DSN=bsDSN"
	If Not rs.EOF Then
		GetNameFromRequesterID = rs("FirstName") & " " & rs("LastName")
	End If
	rs.Close
End Function

'*********************************************************************
' FUNCTION SHOWCENTS
'
' Purpose: to display floating point numbers with two decimal places,
'          but without dollar-signs (unlike MakeMoney() function)
'
' Input:   number
'
' Returns: formatted number
'*********************************************************************

Function ShowCents(item)
	If isNumeric(item) Then
		ShowCents = FormatNumber(item,2)
	End If
End Function

%>

<HTML>
<HEAD>
	<TITLE>Project - Schedule</TITLE>
	<LINK REL=STYLESHEET TYPE="text/css" HREF="bstone.css">
	<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
	
	<Script Language = "JavaScript">

	function validateDeleteTask(iProjectTaskID){

	//confirm deletion of task
	
	if (confirm("Press OK if you really wish to delete this task.")) {
		var theTask = "" + iProjectTaskID;
		var theWindow = "project_schedule.asp?DeleteTask=" + theTask;
		window.location = theWindow;
		}
	}
	
	function validateInput(){
	
	//check to make sure project dates are in correct format
	
	var sMsg = new String;
	
	if (!(validateDate(ff.ProjectStartDate.value))){
		sMsg = "Project Start Date is not a Date. \n";
		}
	if (!(validateDate(ff.TargetCompletionDate.value))){
		sMsg += "Project Target Completion Date is not a Date. \n";
		}
	if (sMsg.length > 0 ) {
		alert(sMsg);
		return false;
		}
	return true;
	}
	
	function validateDatesOnBlur(x,y){
	
	//validate dates of schedule table items
	
	var sMsg = new String;
	
	if (!(validateDate(x))){
		sMsg = y + " needs to be a Date. \n";
		}
	if (sMsg.length > 0 ) {
		alert(sMsg);
		return false;
		}
	return true;
	}
	
	function validateNumbersOnBlur(x,y){
	
	//validate numbers of schedule table hours
	
	var sMsg = new String;
	
	if (!(validateNum(x))){
		sMsg = y + " needs to be a Number. \n";
		}
	if (sMsg.length > 0 ) {
		alert(sMsg);
		return false;
		}
	return true;
	}
	
	function sendDefault(){
	
	//redirects page on itself to call default dates function
	
	if (confirm("This action may overwrite target start dates")==true){
		window.location = 'project_schedule.asp?default=yes'
		}
	}

	
	</script>
	
</HEAD>
<BODY bgcolor=white background=media/images/bsback.gif>

<!-- Begin Include -->
<!--#include file="includes/BSBegin.asp"-->

<!-- Begin Main Application Area -->
<DIV id=Main style="HEIGHT: 650px; LEFT: 110px; POSITION: absolute; TOP: 70px; WIDTH: 625px; Z-INDEX: 103">

<!-- SKU Label -->
<DIV STYLE="HEIGHT: 9px; LEFT: 0px; POSITION: absolute; TOP: 6px; WIDTH: 28px" class=LabelBold>
SKU:</DIV>
<!-- SKU Dropdown -->
<div name=SKU id=SKU STYLE="HEIGHT: 19px; LEFT: 0px; POSITION: absolute; TOP: 20px; WIDTH: 56px" class=Buttons>
<%= rsProduct("SKU") %></div>

<!-- Product Label -->
<DIV STYLE="LEFT: 87px; POSITION: absolute; TOP: 6px" class=LabelBold>
Name:</DIV>
<!-- Product Dropdown -->
<div name=ProductName id=ProductName STYLE="HEIGHT: 11px; LEFT: 86px; POSITION: absolute; TOP: 20px; WIDTH: 147px" class=Buttons>
<%= rsProduct("ProductName") %></div>

<!-- Requester Label -->
<DIV STYLE="HEIGHT: 17px; LEFT: 261px; POSITION: absolute; TOP: 6px; WIDTH: 54px" class=LabelBold>
Requester:</DIV>
<!-- Requester Dropdown -->
<div name=RequesterID id=RequesterID STYLE="HEIGHT: 12px; LEFT: 261px; POSITION: absolute; TOP: 20px; WIDTH: 118px" class=Buttons>
<%= GetNameFromRequesterID(rsProduct("RequesterID")) %></div>

<!-- ETA Label -->
<DIV STYLE="HEIGHT: 17px; LEFT: 402px; POSITION: absolute; TOP: 6px; WIDTH: 22px" class=LabelBold>
ETA:</DIV>
<!-- ETA Input -->
<div Name=ETADate id=ETADate style="HEIGHT: 19px; LEFT: 401px; POSITION: absolute; TOP: 20px; WIDTH: 70px" class=Buttons>
<%= rsProduct("ETADate") %></div>

<!-- Horizontal Line -->
<HR SIZE=1 style="HEIGHT: 1px; LEFT: 0px; POSITION: absolute; TOP: 33px; WIDTH: 475px" width=475 color=black>
 
<!-- Project Type Label-->
<DIV STYLE="HEIGHT: 10px; LEFT: 0px; POSITION: absolute; TOP: 45px; WIDTH: 70px" class=Label>
Project Type:</DIV>  
<!-- Project Type -->
<DIV id=TypeID STYLE="HEIGHT: 13px; LEFT: 70px; POSITION: absolute; TOP: 45px; WIDTH: 187px" class=LabelBold>  
<%= GetProjectType(CInt(rsProject("TypeID"))) %></DIV>

<!-- Project Budget Label-->
<DIV STYLE="HEIGHT: 16px; LEFT: 256px; POSITION: absolute; TOP: 42px; WIDTH: 101px" class=SmallTitle>
Project Schedule</DIV>  
<!-- Project Budget -->  

<!-- AddTask Button-->

<%= oAddTask.CreateBox %>

<form name=ff action=project_schedule.asp method=get>

<!-- Update Dates Button -->
<INPUT onClick="return validateInput();"
       style="HEIGHT: 25px; LEFT: 410px; POSITION: absolute; TOP: 69px; WIDTH: 90px"
       type="submit" value="Enter Dates" id=button1 name=button1 class=Buttons
       <% If Session("SecurityProfile") <> "TM" or Session("PageMode") = "View" Then %> disabled<% End If %>>

<!-- Default Dates Button -->
<INPUT onClick="sendDefault()"
       style="HEIGHT: 25px; LEFT: 410px; POSITION: absolute; TOP: 100px; WIDTH: 90px"
       type="button" value="Schedule" id=button1 name=button1 class=Buttons
       <% If Session("SecurityProfile") <> "TM" or Session("PageMode") = "View" Then %> disabled<% End If %>>

<!-- ProjectStartDate Label -->
<DIV name=ProjectStartDate id=ProjectStartDate STYLE="HEIGHT: 15px; LEFT: 183px; POSITION: absolute; TOP: 72px; WIDTH: 89px" class=Label>
Project Start Date:</DIV>  
<!-- ProjectStartDate Input -->
<%= oProjectStartDate.CreateBox %>

<!-- Project Target Completion Date Label -->
<DIV STYLE="HEIGHT: 17px; LEFT: 115px; POSITION: absolute; TOP: 95px; WIDTH: 159px" class=Label>
Project Target Completion Date:</DIV>  
<!-- Project Target Completion Date  Input -->
<%= oTargetCompletionDate.CreateBox %>

<input type="hidden" name="isUpdating" value="isUpdating">
</form>

<!-- Page Title Label-->  
<%	If isTasks = True Then %>
<div STYLE="LEFT: 0px; POSITION: absolute; TOP: 125px; WIDTH: 635px" id=TABLE1>
<table border=0>
<tr>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" class=label>Task</span>
</td>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" class=label>Responsible Team</span>
</td>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" class=label>Responsible Indiv</span>
</td>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" class=label>Target<BR>Start Date</span>
</td>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" class=label>Assigned</span>
</td>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" class=label>Completed</span>
</td>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" class=label>Reviewed</span>
</td>
<td valign=bottom>
	<span STYLE="TEXT-DECORATION: underline;" id=DIV1 class=label>Hours</span>
</td>
</tr>

<!-- the number of ***TASK*** rows will be set by a FOR LOOP -->

<%

Dim sStyleString1,sStyleString2,sEdit,sDelete
rsTasks.MoveFirst
For iTask = 0 to iCount-1

%>
<tr>
<form id=form<%= iTask+1 %> name=form<%= iTask+1 %> action=project_schedule.asp method=post>
<td>

<% If Session("SecurityProfile") = "TM" Then %>
<INPUT class=Schedule style="width=15" type="text" id=Sequence<%= iTask+1%> name=Sequence<%= iTask+1%> value=<%= rsTasks("Sequence")%>>
<SPAN STYLE="<%=sStyleString1%>" class=Schedule id=TaskID>
<%= rsTasks("TaskDescription") %></SPAN>

<% Else %>
<SPAN STYLE="<%=sStyleString1%>" class=Schedule id=TaskID>
<%= rsTasks("Sequence")%>. <%= rsTasks("TaskDescription") %></SPAN>


<% End If %>

</td>
<td>          
<%

'Populate Teams and Users only if they've been chosen.  Some default tasks
'don't have Default Teams and/or Individuals.


%>
            
<!-- TeamID Dropdown -->	
    <%= oSchedule(iTask,0).CreateBox %>
    
    
    
    
<%  

		Response.Write("<OPTION value="""">")

 
	rsTeams.MoveFirst

	Do While Not rsTeams.EOF
		If rsTeams("TeamID") = rsTasks("TeamID") Then
			Response.Write("<option selected value=" & rsTeams("TeamID") & ">" & rsTeams("Team"))
		Else
			Response.Write("<option value=" & rsTeams("TeamID") & ">" & rsTeams("Team"))
		End If
	rsTeams.MoveNext
	Loop
%>   
    </SELECT>

    


</td>
<td>


	<!-- UserID Dropdown -->
	<%= oSchedule(iTask,1).CreateBox %>


<%
	rsUsers.MoveFirst

	If isNull(rsTasks("UserID")) Then
		Response.Write("<OPTION selected value="""">")
		Response.Write("<OPTION value=""a"">")
	End If
	
	
	Do While Not rsUsers.EOF
		If isNumeric(rsUsers("TeamID")) Then
			If rsUsers("TeamID") = rsTasks("TeamID") Then
				If rsUsers("UserID") = rsTasks("UserID") Then
					Response.Write("<option selected>" & rsUsers("UserID"))
				Else
					Response.Write("<option>" & rsUsers("UserID"))
				End If
			End If
		End If
		rsUsers.MoveNext
	Loop
			
%>	  
    
    
    </SELECT>

    


</td>
<td>
	<!-- TargetCompletionDate Input -->	
	<%= oSchedule(iTask,2).CreateBox %>
</td>
<td>	
	<!-- AssignedDateTime Input -->	
	<%= oSchedule(iTask,3).CreateBox %>
</td>
<td>	
	<!-- CompletedDateTime Input -->	
	<%= oSchedule(iTask,4).CreateBox %>
</td>
<td>	
	<!-- ReviewedDateTime Input -->	
	<%= oSchedule(iTask,5).CreateBox %>
</td>
<td>
	<!-- Hours Input -->	
	<%= oSchedule(iTask,6).CreateBox %>
</td>
<td>	

<INPUT type="hidden" id=ProjectTaskID name=ProjectTaskID value="<%= rsTasks("ProjectTaskID")%>">
<INPUT type="hidden" id=iTask name=iTask value="<%=iTask+1%>">

	<%
	sStyleString2 = "COLOR: BLUE; TEXT-DECORATION: underline; CURSOR: Hand; TEXT-ALIGN: bottom"
	sEdit = "Edit" & CStr(iTask+1)
	sDelete = "Delete" & CStr(iTask+1)
	%>
	<!-- Edit Link -->
	<SPAN id=<%=sEdit%> name=<%=sEdit%> style="<%=sStyleString2%>"
	onClick="form<%= iTask+1%>.submit()" class=label size=5>Update</SPAN>
	</td>
<td>

<% If Session("SecurityProfile") = "TM" Then %>
	
	<!-- Delete Link -->
	<SPAN id=<%=sDelete%> name=<%=sDelete%> style="<%=sStyleString2%>"
	onClick="validateDeleteTask(<%=rsTasks("ProjectTaskID")%>)" class=label size=5>
	Delete</SPAN> 

<% End If %>

</td>
</form>
</tr>

<%
	rsTasks.MoveNext
Next
Else
%>
<DIV style="position:absolute;top:200;left:100">No Project Tasks</DIV>
<%
End If

%>
<!-- *** END TASKS *** -->

<% If isTasks = True Then %>
<!-- Insert Total Hours -->
<tr>
<td colspan=7></td>
<td class=SmallTitle><center><%= ShowCents(fTotalHours) %></center></td>
</tr>
<% End If %>


</table>

</div>
<!-- End Schedule -->

</DIV>
<!-- End Main Application Area -->

<%
	Dim rsGetUsers
	Set rsGetUsers = Server.CreateObject("ADODB.Recordset")
	rsGetUsers.Open "SELECT * FROM Users","DSN=bsDSN"

	Dim i
	i = 0
	
	Response.Write("<script>" & vbCrLf)
	Response.Write("var a = new Array();" & vbCrLf)
	Do while not rsGetUsers.EOF
		If Not isNull(rsGetUsers("TeamID")) Then	
			Response.Write("a[" & i & "] = """ & rsGetUsers("TeamID") & rsGetusers("userID") & """" & vbCrLf) 
		Else 
			Response.Write("a[" & i & "] = ""0" & rsGetusers("userID") & """" & vbCrLf) 
		End If
		i=i+1
		rsGetUsers.MoveNext
	Loop
	Response.Write("</script>")
%>


<script>
function RemoveUsers(y){
	for (var i = 0; i < y.length;){
		y.remove(0)
	}
}

function AddUsers(x,y){
	RemoveUsers(y);
	for (var i = 0; i <=  a.length-1;i++){
		if (a[i].slice(0,1) == x){
			zz = document.createElement("OPTION");
			zz.text = a[i].slice(1);
			y.add(zz);
		}
	}
	zz = document.createElement("OPTION");
	zz.text = "";
	y.add(zz);
	y.selectedIndex = 0;
}
</script>

</BODY>
</HTML>