<%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblSchedulelist.aspx.vb" Inherits="tblSchedulelist" CodeFileBaseClass="AspNetMaker7_tfpssnet" %> <% If tblSchedule.Export = "" Then %> <% End If %> <% If tblSchedule.Export = "" Then %> <% End If %> <% ' Load recordset Rs = tblSchedule_list.LoadRecordset() tblSchedule_list.lStartRec = 1 If tblSchedule_list.lDisplayRecs <= 0 Then ' Display all records tblSchedule_list.lDisplayRecs = tblSchedule_list.lTotalRecs End If If Not (tblSchedule.ExportAll AndAlso tblSchedule.Export <> "") Then tblSchedule_list.SetUpStartRec() ' Set up start record position End If %>

TABLE: Schedule

<% If Security.CanSearch Then %> <% If tblSchedule.Export = "" AndAlso tblSchedule.CurrentAction = "" Then %> Advanced Filter       Quick Filter

<% If gsSearchError = "" Then tblSchedule_list.LoadAdvancedSearch() ' Load advanced search End If ' Render for search tblSchedule.RowType = EW_ROWTYPE_SEARCH ' Render row tblSchedule_list.RenderRow() %>
Quick Filter
Date >=
/>  Pick a date   />  Pick a date     
Event =
Part =
Location =
Employee =
<% If Not Security.IsAdmin And Security.IsLoggedIn() And Session("tfpssnet_Status_UserLevel") <> 4 Then ' Non system admin %> ><%= tblSchedule.schEmpID.EditValue %> <% Else %> <% End If %> <% If Session("tfpssnet_Status_UserLevel") = 4 Then%>      <% end if %>
Day of Week =
Position =
Type =
Department =
Status =
     
<% End If %> <% End If %> <% tblSchedule_list.ShowMessage() %>
For Selected Records: Confirm     Un-confirm     Cannot Work     Tentative      Send to Calendar      Delete from Calendar      alert('Employee not selected');return false;<% end if %>">Email Unconfirmed Shifts  Print Schedule  
<% If tblSchedule.CurrentAction <> "gridadd" AndAlso tblSchedule.CurrentAction <> "gridedit" Then %>
<% If tblSchedule_list.lTotalRecs > 0 Then %> <% End If %>
<% If tblSchedule_list.Pager Is Nothing Then tblSchedule_list.Pager = New cNumericPager(tblSchedule_list.lStartRec, tblSchedule_list.lDisplayRecs, tblSchedule_list.lTotalRecs, tblSchedule_list.lRecRange) %> <% If tblSchedule_list.Pager.RecordCount > 0 Then %> <% If tblSchedule_list.Pager.FirstButton.Enabled Then %> First  <% End If %> <% If tblSchedule_list.Pager.PrevButton.Enabled Then %> Previous  <% End If %> <% For Each PagerItem As cPagerItem In tblSchedule_list.Pager.Items %> <% If PagerItem.Enabled Then %><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %><% End If %>  <% Next %> <% If tblSchedule_list.Pager.NextButton.Enabled Then %> Next  <% End If %> <% If tblSchedule_list.Pager.LastButton.Enabled Then %> Last  <% End If %> <% If tblSchedule_list.Pager.ButtonCount > 0 Then %>    <% End If %> Records <%= tblSchedule_list.Pager.FromIndex %> to <%= tblSchedule_list.Pager.ToIndex %> of <%= tblSchedule_list.Pager.RecordCount %> <% Else %> <% If Security.CanList Then %> <% If tblSchedule_list.sSrchWhere = "0=101" Then %> Please enter search criteria <% Else %> No records found <% End If %> <% Else %> You do not have the right permission to view the page <% End If %> <% End If %>     
Page Size 
<% End If %>
<% If Security.CanAdd Then %> Add Single Shift   <% End If %> <% If Security.CanAdd Then %> Add Recurring Shifts   <% End If %> <% If Security.CanEdit Then %> Update Selected Records           <% End If %> <% If Security.CanDelete Then%> Delete Selected Records     <% End If %>
<% If tblSchedule_list.lTotalRecs > 0 Then %> <% tblSchedule_list.lOptionCnt = 0 If Security.CanView Then tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' View End If If Security.CanEdit Then tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' Edit End If If Security.CanDelete Then tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' Delete End If If Security.CanEdit Then tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' Multi-select End If tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + tblSchedule_list.ListOptions.Items.Count ' Custom list options %> <%= tblSchedule.TableCustomInnerHTML %> <% If tblSchedule.Export = "" Then %> <% If Security.CanView Then %> <% End If %> <% If Security.CanEdit Then %> <% End If %> <% If Security.CanAdd Then%> <% End If %> <% If Security.CanDelete Then %> <% End If %> <% If Security.CanEdit Then %> <% End If %> <% ' Custom list options For i As Integer = 0 to tblSchedule_list.ListOptions.Items.Count -1 If tblSchedule_list.ListOptions.Items(i).Visible Then Response.Write(tblSchedule_list.ListOptions.Items(i).HeaderCellHtml) Next %> <% End If %> <% If tblSchedule.schDate.Visible Then ' schDate %> <% If tblSchedule.SortUrl(tblSchedule.schDate) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schDayOfWeek.Visible Then ' schDayOfWeek %> <% If tblSchedule.SortUrl(tblSchedule.schDayOfWeek) = "" Then%> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schEvtID.Visible Then ' schEvtID %> <% If tblSchedule.SortUrl(tblSchedule.schEvtID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schPartsID.Visible Then ' schPartsID %> <% If tblSchedule.SortUrl(tblSchedule.schPartsID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schNotes.Visible Then ' schNotes %> <% If tblSchedule.SortUrl(tblSchedule.schNotes) = "" Then%> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schCallTime.Visible Then ' schCallTime %> <% If tblSchedule.SortUrl(tblSchedule.schCallTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schStartTime.Visible Then ' schStartTime %> <% If tblSchedule.SortUrl(tblSchedule.schStartTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schEndTime.Visible Then ' schEndTime %> <% If tblSchedule.SortUrl(tblSchedule.schEndTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schOutTime.Visible Then ' schOutTime %> <% If tblSchedule.SortUrl(tblSchedule.schOutTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schLocID.Visible Then ' schLocID %> <% If tblSchedule.SortUrl(tblSchedule.schLocID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schEmpID.Visible Then ' schEmpID %> <% If tblSchedule.SortUrl(tblSchedule.schEmpID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schPosID.Visible Then ' schPosID %> <% If tblSchedule.SortUrl(tblSchedule.schPosID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schTypID.Visible Then ' schTypID %> <% If tblSchedule.SortUrl(tblSchedule.schTypID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schDepID.Visible Then ' schDepID %> <% If tblSchedule.SortUrl(tblSchedule.schDepID) = "" Then%> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schActualStart.Visible Then ' schActualStart %> <% If tblSchedule.SortUrl(tblSchedule.schActualStart) = "" Then %> <% Else %> <% End If %> <% End If %> <% If tblSchedule.schActualEnd.Visible Then ' schActualEnd %> <% If tblSchedule.SortUrl(tblSchedule.schActualEnd) = "" Then %> <% Else %> <% End If %> <% End If %> <%--<% If tblSchedule.schDoubleBooked.Visible Then ' schDoubleBooked %> <% If tblSchedule.SortUrl(tblSchedule.schDoubleBooked) = "" Then %> <% Else %> <% End If %> <% End If %> --%> <% If tblSchedule.schStatus.Visible Then ' schStatus %> <% If tblSchedule.SortUrl(tblSchedule.schStatus) = "" Then %> <% Else %> <% End If %> <% End If %> <% If (tblSchedule.ExportAll AndAlso tblSchedule.Export <> "") Then tblSchedule_list.lStopRec = tblSchedule_list.lTotalRecs Else tblSchedule_list.lStopRec = tblSchedule_list.lStartRec + tblSchedule_list.lDisplayRecs - 1 ' Set the last record to display End If If tblSchedule.CurrentAction = "gridadd" AndAlso tblSchedule_list.lStopRec = -1 Then tblSchedule_list.lStopRec = EW_GRIDADD_ROWS End If ' Move to first record For i As Integer = 1 to tblSchedule_list.lStartRec - 1 If Rs.Read() Then tblSchedule_list.lRecCnt = tblSchedule_list.lRecCnt + 1 Next tblSchedule_list.lRowCnt = 0 ' Output data rows Do While (tblSchedule.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (tblSchedule_list.lRecCnt < tblSchedule_list.lStopRec) tblSchedule_list.lRecCnt = tblSchedule_list.lRecCnt + 1 If tblSchedule_list.lRecCnt >= tblSchedule_list.lStartRec Then tblSchedule_list.lRowCnt = tblSchedule_list.lRowCnt + 1 tblSchedule.CssClass = "" tblSchedule.CssStyle = "" tblSchedule.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'" If tblSchedule.CurrentAction = "gridadd" Then tblSchedule_list.LoadDefaultValues() ' Load default values Else tblSchedule_list.LoadRowValues(Rs) ' Load row values End If tblSchedule.RowType = EW_ROWTYPE_VIEW ' Render view ' Render row tblSchedule_list.RenderRow() %> > <% If tblSchedule.Export = "" Then %> <% If Security.CanView Then %> <% End If %> <% If Security.CanEdit Then %> <% End If %> <% If Security.CanAdd Then %> <% End If %> <% If Security.CanDelete Then %> <% End If %> <% If Security.CanEdit Then %> <% End If %> <% ' Custom list options For i As Integer = 0 to tblSchedule_list.ListOptions.Items.Count -1 If tblSchedule_list.ListOptions.Items(i).Visible Then Response.Write(tblSchedule_list.ListOptions.Items(i).BodyCellHtml) Next %> <% End If %> <% If tblSchedule.schDate.Visible Then ' schDate %> > > <% Response.Write(tblSchedule.schDate.ListViewValue & " ") 'Try ' Select Case CDate(tblSchedule.schDate.ListViewValue).DayOfWeek ' Case DayOfWeek.Sunday ' Response.Write("(Sun)") ' Case DayOfWeek.Monday ' Response.Write("(Mon)") ' Case DayOfWeek.Tuesday ' Response.Write("(Tue)") ' Case DayOfWeek.Wednesday ' Response.Write("(Wed)") ' Case DayOfWeek.Thursday ' Response.Write("(Thu)") ' Case DayOfWeek.Friday ' Response.Write("(Fri)") ' Case DayOfWeek.Saturday ' Response.Write("(Sat)") ' End Select 'Catch 'End Try %> <% End If %> <% If tblSchedule.schDayOfWeek.Visible Then ' schDayOfWeek %> > ><%= tblSchedule.schDayOfWeek.ListViewValue%> <% End If %> <% If tblSchedule.schEvtID.Visible Then ' schEvtID %> > ><%= tblSchedule.schEvtID.ListViewValue %> <% End If %> <% If tblSchedule.schPartsID.Visible Then ' schPartsID %> > ><%= tblSchedule.schPartsID.ListViewValue %> <% End If %> <% If tblSchedule.schNotes.Visible Then ' schNotes %> <% If Len(tblSchedule.schNotes.ListViewValue) < 30 then %> > ><%= tblSchedule.schNotes.ListViewValue%> <% Else%> title="<%=tblSchedule.schNotes.ListViewValue%>"> ><%= Left(tblSchedule.schNotes.ListViewValue, 30) & "..."%> <% End If %> <% End If %> <% If tblSchedule.schCallTime.Visible Then ' schCallTime %> > ><%= tblSchedule.schCallTime.ListViewValue %> <% End If %> <% If tblSchedule.schStartTime.Visible Then ' schStartTime %> > ><%= tblSchedule.schStartTime.ListViewValue %> <% End If %> <% If tblSchedule.schEndTime.Visible Then ' schEndTime %> > ><%= tblSchedule.schEndTime.ListViewValue %> <% End If %> <% If tblSchedule.schOutTime.Visible Then ' schOutTime %> > ><%= tblSchedule.schOutTime.ListViewValue %> <% End If %> <% If tblSchedule.schLocID.Visible Then ' schLocID %> > ><%= tblSchedule.schLocID.ListViewValue %> <% End If %> <% If tblSchedule.schEmpID.Visible Then ' schEmpID %> > ><%= tblSchedule.schEmpID.ListViewValue %> <% End If %> <% If tblSchedule.schPosID.Visible Then ' schPosID %> > ><%= tblSchedule.schPosID.ListViewValue %> <% End If %> <% If tblSchedule.schTypID.Visible Then ' schTypID %> > ><%= tblSchedule.schTypID.ListViewValue %> <% End If %> <% If tblSchedule.schDepID.Visible Then ' schDepID %> > ><%= tblSchedule.schDepID.ListViewValue%> <% End If %> <% If tblSchedule.schActualStart.Visible Then ' schActualStart %> > ><%= tblSchedule.schActualStart.ListViewValue %> <% End If %> <% If tblSchedule.schActualEnd.Visible Then ' schActualEnd %> > ><%= tblSchedule.schActualEnd.ListViewValue %> <% End If %> <%-- <% If tblSchedule.schDoubleBooked.Visible Then ' schDoubleBooked %> > <% If Convert.ToString(tblSchedule.schDoubleBooked.CurrentValue) = "1" Then %> <% Else %> <% End If %> <% End If %> --%> <% If tblSchedule.schStatus.Visible Then ' schStatus %> > > <% Select tblSchedule.schStatus.ListViewValue Case "Confirmed" Response.Write("") Case "Unconfirmed" Response.Write("") Case "Cannot Work" Response.Write("") Case "Tentative" Response.Write("") Case "No Show" Response.Write("") Case "Sick" Response.Write("") End Select %> <% End If %> <% End If Loop %>
     Date
Date<% If tblSchedule.schDate.Sort = "ASC" Then %><% ElseIf tblSchedule.schDate.Sort = "DESC" Then %><% End If %>
Day
Day<% If tblSchedule.schDayOfWeek.Sort = "ASC" Then%><% ElseIf tblSchedule.schDayOfWeek.Sort = "DESC" Then%><% End If %>
Event
Event<% If tblSchedule.schEvtID.Sort = "ASC" Then %><% ElseIf tblSchedule.schEvtID.Sort = "DESC" Then %><% End If %>
Part
Part<% If tblSchedule.schPartsID.Sort = "ASC" Then %><% ElseIf tblSchedule.schPartsID.Sort = "DESC" Then %><% End If %>
Note
Note<% If tblSchedule.schNotes.Sort = "ASC" Then%><% ElseIf tblSchedule.schNotes.Sort = "DESC" Then%><% End If %>
Call Time
Call Time<% If tblSchedule.schCallTime.Sort = "ASC" Then %><% ElseIf tblSchedule.schCallTime.Sort = "DESC" Then %><% End If %>
Start Time
Start Time<% If tblSchedule.schStartTime.Sort = "ASC" Then %><% ElseIf tblSchedule.schStartTime.Sort = "DESC" Then %><% End If %>
End Time
End Time<% If tblSchedule.schEndTime.Sort = "ASC" Then %><% ElseIf tblSchedule.schEndTime.Sort = "DESC" Then %><% End If %>
Out Time
Out Time<% If tblSchedule.schOutTime.Sort = "ASC" Then %><% ElseIf tblSchedule.schOutTime.Sort = "DESC" Then %><% End If %>
Location
Location<% If tblSchedule.schLocID.Sort = "ASC" Then %><% ElseIf tblSchedule.schLocID.Sort = "DESC" Then %><% End If %>
Employee
Employee<% If tblSchedule.schEmpID.Sort = "ASC" Then %><% ElseIf tblSchedule.schEmpID.Sort = "DESC" Then %><% End If %>
Position
Position<% If tblSchedule.schPosID.Sort = "ASC" Then %><% ElseIf tblSchedule.schPosID.Sort = "DESC" Then %><% End If %>
Type
Type<% If tblSchedule.schTypID.Sort = "ASC" Then %><% ElseIf tblSchedule.schTypID.Sort = "DESC" Then %><% End If %>
Department
Department<% If tblSchedule.schDepID.Sort = "ASC" Then%><% ElseIf tblSchedule.schDepID.Sort = "DESC" Then%><% End If %>
Actual Start
Actual Start<% If tblSchedule.schActualStart.Sort = "ASC" Then %><% ElseIf tblSchedule.schActualStart.Sort = "DESC" Then %><% End If %>
Actual End
Actual End<% If tblSchedule.schActualEnd.Sort = "ASC" Then %><% ElseIf tblSchedule.schActualEnd.Sort = "DESC" Then %><% End If %>
Dbl Bkd
Dbl Bkd<% If tblSchedule.schDoubleBooked.Sort = "ASC" Then %><% ElseIf tblSchedule.schDoubleBooked.Sort = "DESC" Then %><% End If %>
Status
Status<% If tblSchedule.schStatus.Sort = "ASC" Then %><% ElseIf tblSchedule.schStatus.Sort = "DESC" Then %><% End If %>
<% If tblSchedule_list.ShowOptionLink() Then %> View <% End If %><% If tblSchedule_list.ShowOptionLink() Then %> Edit <% End If %><% If tblSchedule_list.ShowOptionLink() Then %> Copy <% End If %><% If tblSchedule_list.ShowOptionLink() Then %> Delete <% End If %><% If tblSchedule_list.ShowOptionLink() Then %> <% End If %>
<% End If %>
<% ' Close recordset Rs.Close() Rs.Dispose() %>
<% If tblSchedule.Export = "" Then %>
<% If tblSchedule.CurrentAction <> "gridadd" AndAlso tblSchedule.CurrentAction <> "gridedit" Then %>
<% If tblSchedule_list.lTotalRecs > 0 Then %> <% End If %>
<% If tblSchedule_list.Pager Is Nothing Then tblSchedule_list.Pager = New cNumericPager(tblSchedule_list.lStartRec, tblSchedule_list.lDisplayRecs, tblSchedule_list.lTotalRecs, tblSchedule_list.lRecRange) %> <% If tblSchedule_list.Pager.RecordCount > 0 Then %> <% If tblSchedule_list.Pager.FirstButton.Enabled Then %> First  <% End If %> <% If tblSchedule_list.Pager.PrevButton.Enabled Then %> Previous  <% End If %> <% For Each PagerItem As cPagerItem In tblSchedule_list.Pager.Items %> <% If PagerItem.Enabled Then %><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %><% End If %>  <% Next %> <% If tblSchedule_list.Pager.NextButton.Enabled Then %> Next  <% End If %> <% If tblSchedule_list.Pager.LastButton.Enabled Then %> Last  <% End If %> <% If tblSchedule_list.Pager.ButtonCount > 0 Then %>    <% End If %> Records <%= tblSchedule_list.Pager.FromIndex %> to <%= tblSchedule_list.Pager.ToIndex %> of <%= tblSchedule_list.Pager.RecordCount %> <% Else %> <% If Security.CanList Then %> <% If tblSchedule_list.sSrchWhere = "0=101" Then %> Please enter search criteria <% Else %> No records found <% End If %> <% Else %> You do not have the right permission to view the page <% End If %> <% End If %>     
Page Size 
<% End If %> <% 'If tblSchedule_list.lTotalRecs > 0 Then %>
<% If Security.CanAdd Then %> Add Single Shift   <% End If %> <% If Security.CanAdd Then %> Add Recurring Shifts   <% End If %> <% If Security.CanEdit Then %> Update Selected Records           <% End If %> <% If Security.CanDelete Then%> Delete Selected Records     <% End If %>
<% End If %>
<% If tblSchedule.Export = "" AndAlso tblSchedule.CurrentAction = "" Then %> <% End If %> <% If tblSchedule.Export = "" Then %> <% End If %>