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

Clock In/Out

<% viewClockInOut_list.ShowTLCMessage()%> <% viewClockInOut_list.ShowMessage() %>
<% If Security.IsAdmin Then %>  Filter
<% ' Render for search viewClockInOut.RowType = EW_ROWTYPE_SEARCH ' Render row viewClockInOut_list.RenderRow() %>
Quick Filter
Employee =
<% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %> ><%= viewClockInOut.schEmpID.EditValue %> <% Else %> <% End If %>
     
<% End If%>
Your Schedule for Today: <%= ew_FormatDateTime(Now(), 6) %>    Clock In for Unscheduled Shift 
<% If viewClockInOut_list.lTotalRecs > 0 Then %> <% viewClockInOut_list.lOptionCnt = 0 If Security.CanView Then viewClockInOut_list.lOptionCnt = viewClockInOut_list.lOptionCnt + 1 ' View End If If Security.CanEdit Then viewClockInOut_list.lOptionCnt = viewClockInOut_list.lOptionCnt + 1 ' Edit End If viewClockInOut_list.lOptionCnt = viewClockInOut_list.lOptionCnt + viewClockInOut_list.ListOptions.Items.Count ' Custom list options %> <%= viewClockInOut.TableCustomInnerHTML %> <% If viewClockInOut.Export = "" Then %> <% If Security.CanView Then %> <% End If %> <% ' Custom list options For i As Integer = 0 to viewClockInOut_list.ListOptions.Items.Count -1 If viewClockInOut_list.ListOptions.Items(i).Visible Then Response.Write(viewClockInOut_list.ListOptions.Items(i).HeaderCellHtml) Next %> <% End If %> <% If viewClockInOut.schDate.Visible Then ' schDate %> <% If viewClockInOut.SortUrl(viewClockInOut.schDate) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schEvtID.Visible Then ' schEvtID %> <% If viewClockInOut.SortUrl(viewClockInOut.schEvtID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schPartsID.Visible Then ' schPartsID %> <% If viewClockInOut.SortUrl(viewClockInOut.schPartsID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schCallTime.Visible Then ' schCallTime %> <% If viewClockInOut.SortUrl(viewClockInOut.schCallTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schStartTime.Visible Then ' schStartTime %> <% If viewClockInOut.SortUrl(viewClockInOut.schStartTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schEndTime.Visible Then ' schEndTime %> <% If viewClockInOut.SortUrl(viewClockInOut.schEndTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schOutTime.Visible Then ' schOutTime %> <% If viewClockInOut.SortUrl(viewClockInOut.schOutTime) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schLocID.Visible Then ' schLocID %> <% If viewClockInOut.SortUrl(viewClockInOut.schLocID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schEmpID.Visible Then ' schEmpID %> <% If viewClockInOut.SortUrl(viewClockInOut.schEmpID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schPosID.Visible Then ' schPosID %> <% If viewClockInOut.SortUrl(viewClockInOut.schPosID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schTypID.Visible Then ' schTypID %> <% If viewClockInOut.SortUrl(viewClockInOut.schTypID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schActualStart.Visible Then ' schActualStart %> <% If viewClockInOut.SortUrl(viewClockInOut.schActualStart) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schActualEnd.Visible Then ' schActualEnd %> <% If viewClockInOut.SortUrl(viewClockInOut.schActualEnd) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schDateCreated.Visible Then ' schDateCreated %> <% If viewClockInOut.SortUrl(viewClockInOut.schDateCreated) = "" Then %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.schStatus.Visible Then ' schStatus %> <% If viewClockInOut.SortUrl(viewClockInOut.schStatus) = "" Then %> <% Else %> <% End If %> <% End If %> <% If (viewClockInOut.ExportAll AndAlso viewClockInOut.Export <> "") Then viewClockInOut_list.lStopRec = viewClockInOut_list.lTotalRecs Else viewClockInOut_list.lStopRec = viewClockInOut_list.lStartRec + viewClockInOut_list.lDisplayRecs - 1 ' Set the last record to display End If If viewClockInOut.CurrentAction = "gridadd" AndAlso viewClockInOut_list.lStopRec = -1 Then viewClockInOut_list.lStopRec = EW_GRIDADD_ROWS End If ' Move to first record For i As Integer = 1 to viewClockInOut_list.lStartRec - 1 If Rs.Read() Then viewClockInOut_list.lRecCnt = viewClockInOut_list.lRecCnt + 1 Next viewClockInOut_list.lRowCnt = 0 viewClockInOut_list.lEditRowCnt = 0 If viewClockInOut.CurrentAction = "edit" Then viewClockInOut_list.lRowIndex = 1 ' Output data rows Do While (viewClockInOut.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (viewClockInOut_list.lRecCnt < viewClockInOut_list.lStopRec) viewClockInOut_list.lRecCnt = viewClockInOut_list.lRecCnt + 1 If viewClockInOut_list.lRecCnt >= viewClockInOut_list.lStartRec Then viewClockInOut_list.lRowCnt = viewClockInOut_list.lRowCnt + 1 viewClockInOut.CssClass = "" viewClockInOut.CssStyle = "" viewClockInOut.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'" If viewClockInOut.CurrentAction = "gridadd" Then viewClockInOut_list.LoadDefaultValues() ' Load default values Else viewClockInOut_list.LoadRowValues(Rs) ' Load row values End If viewClockInOut.RowType = EW_ROWTYPE_VIEW ' Render view 'If viewClockInOut.CurrentAction = "edit" Then ' If viewClockInOut_list.CheckInlineEditKey() AndAlso viewClockInOut_list.lEditRowCnt = 0 Then ' Inline edit ' viewClockInOut.RowType = EW_ROWTYPE_EDIT ' Render edit ' End If 'End If 'If viewClockInOut.RowType = EW_ROWTYPE_EDIT AndAlso viewClockInOut.EventCancelled Then ' update failed ' If viewClockInOut.CurrentAction = "edit" Then ' viewClockInOut_list.RestoreFormValues() ' Restore form values ' End If 'End If 'If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit row ' viewClockInOut_list.lEditRowCnt = viewClockInOut_list.lEditRowCnt + 1 ' viewClockInOut.RowClientEvents = "onmouseover='this.edit=true;ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'" 'End If 'If viewClockInOut.RowType = EW_ROWTYPE_ADD OrElse viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Add / Edit row ' viewClockInOut.CssClass = "ewTableEditRow" 'End If ' Render row viewClockInOut_list.RenderRow() %> > <% If viewClockInOut.RowType = EW_ROWTYPE_ADD OrElse viewClockInOut.RowType = EW_ROWTYPE_EDIT Then %> <% If viewClockInOut.CurrentAction = "edit" Then %> <% End If %> <% Else %> <% If viewClockInOut.Export = "" Then %> <% If Security.CanView Then %> <% End If %> <% ' Custom list options For i As Integer = 0 to viewClockInOut_list.ListOptions.Items.Count -1 If viewClockInOut_list.ListOptions.Items(i).Visible Then Response.Write(viewClockInOut_list.ListOptions.Items(i).BodyCellHtml) Next %> <% End If %> <% End If %> <% If viewClockInOut.schDate.Visible Then ' schDate %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> />  Pick a date <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schDate.ListViewValue %> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then %> <% End If %> <% End If %> <% If viewClockInOut.schEvtID.Visible Then ' schEvtID %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schEvtID.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schPartsID.Visible Then ' schPartsID %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schPartsID.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schCallTime.Visible Then ' schCallTime %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> /> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schCallTime.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schStartTime.Visible Then ' schStartTime %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> /> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schStartTime.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schEndTime.Visible Then ' schEndTime %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> /> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schEndTime.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schOutTime.Visible Then ' schOutTime %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> /> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schOutTime.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schLocID.Visible Then ' schLocID %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schLocID.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schEmpID.Visible Then ' schEmpID %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %> ><%= viewClockInOut.schEmpID.EditValue %> <% Else %> <% End If %> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schEmpID.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schPosID.Visible Then ' schPosID %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schPosID.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schTypID.Visible Then ' schTypID %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schTypID.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schActualStart.Visible Then ' schActualStart %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> /> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schActualStart.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schActualEnd.Visible Then ' schActualEnd %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> /> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schActualEnd.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schDateCreated.Visible Then ' schDateCreated %> > <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> /> <% End If %> <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= viewClockInOut.schDateCreated.ListViewValue %> <% End If %> <% End If %> <% If viewClockInOut.schStatus.Visible Then ' schStatus %> > > <% Select viewClockInOut.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 %> <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then %> <% End If %> <% End If Loop %>
  Date
Date<% If viewClockInOut.schDate.Sort = "ASC" Then %><% ElseIf viewClockInOut.schDate.Sort = "DESC" Then %><% End If %>
Event
Event<% If viewClockInOut.schEvtID.Sort = "ASC" Then %><% ElseIf viewClockInOut.schEvtID.Sort = "DESC" Then %><% End If %>
Part
Part<% If viewClockInOut.schPartsID.Sort = "ASC" Then %><% ElseIf viewClockInOut.schPartsID.Sort = "DESC" Then %><% End If %>
Call Time
Call Time<% If viewClockInOut.schCallTime.Sort = "ASC" Then %><% ElseIf viewClockInOut.schCallTime.Sort = "DESC" Then %><% End If %>
Start Time
Start Time<% If viewClockInOut.schStartTime.Sort = "ASC" Then %><% ElseIf viewClockInOut.schStartTime.Sort = "DESC" Then %><% End If %>
End Time
End Time<% If viewClockInOut.schEndTime.Sort = "ASC" Then %><% ElseIf viewClockInOut.schEndTime.Sort = "DESC" Then %><% End If %>
Out Time
Out Time<% If viewClockInOut.schOutTime.Sort = "ASC" Then %><% ElseIf viewClockInOut.schOutTime.Sort = "DESC" Then %><% End If %>
Location
Location<% If viewClockInOut.schLocID.Sort = "ASC" Then %><% ElseIf viewClockInOut.schLocID.Sort = "DESC" Then %><% End If %>
Employee
Employee<% If viewClockInOut.schEmpID.Sort = "ASC" Then %><% ElseIf viewClockInOut.schEmpID.Sort = "DESC" Then %><% End If %>
Position
Position<% If viewClockInOut.schPosID.Sort = "ASC" Then %><% ElseIf viewClockInOut.schPosID.Sort = "DESC" Then %><% End If %>
Type
Type<% If viewClockInOut.schTypID.Sort = "ASC" Then %><% ElseIf viewClockInOut.schTypID.Sort = "DESC" Then %><% End If %>
Actual Start
Actual Start<% If viewClockInOut.schActualStart.Sort = "ASC" Then %><% ElseIf viewClockInOut.schActualStart.Sort = "DESC" Then %><% End If %>
Actual End
Actual End<% If viewClockInOut.schActualEnd.Sort = "ASC" Then %><% ElseIf viewClockInOut.schActualEnd.Sort = "DESC" Then %><% End If %>
Date Created
Date Created<% If viewClockInOut.schDateCreated.Sort = "ASC" Then %><% ElseIf viewClockInOut.schDateCreated.Sort = "DESC" Then %><% End If %>
Status
Status<% If viewClockInOut.schStatus.Sort = "ASC" Then %><% ElseIf viewClockInOut.schStatus.Sort = "DESC" Then %><% End If %>
Update Cancel <% If viewClockInOut_list.ShowOptionLink() Then %> View <% End If %> <% If viewClockInOut.schActualStart.ListViewValue <> " " And viewClockInOut.schActualEnd.ListViewValue <> " " Then Response.Write(" ") Else If viewClockInOut.schActualStart.ListViewValue = " " Then Response.Write("") End If If viewClockInOut.schPartsID.ListViewValue = "Unscheduled" Then If viewClockInOut.schActualStart.ListViewValue <> " " Then Response.Write("") End If Else If viewClockInOut.schActualStart.ListViewValue <> " " Then Response.Write("") End If End If End If %>
<% End If %> <% If viewClockInOut.CurrentAction = "edit" Then %> <% End If %>
<% ' Close recordset Rs.Close() Rs.Dispose() %>
<% If viewClockInOut.Export = "" Then %>
<% If viewClockInOut.CurrentAction <> "gridadd" AndAlso viewClockInOut.CurrentAction <> "gridedit" Then %>
<% If viewClockInOut_list.lTotalRecs > 0 Then %> <% End If %>
<% If viewClockInOut_list.Pager Is Nothing Then viewClockInOut_list.Pager = New cNumericPager(viewClockInOut_list.lStartRec, viewClockInOut_list.lDisplayRecs, viewClockInOut_list.lTotalRecs, viewClockInOut_list.lRecRange) %> <% If viewClockInOut_list.Pager.RecordCount > 0 Then %> <% If viewClockInOut_list.Pager.FirstButton.Enabled Then %> First  <% End If %> <% If viewClockInOut_list.Pager.PrevButton.Enabled Then %> Previous  <% End If %> <% For Each PagerItem As cPagerItem In viewClockInOut_list.Pager.Items %> <% If PagerItem.Enabled Then %><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %><% End If %>  <% Next %> <% If viewClockInOut_list.Pager.NextButton.Enabled Then %> Next  <% End If %> <% If viewClockInOut_list.Pager.LastButton.Enabled Then %> Last  <% End If %> <% If viewClockInOut_list.Pager.ButtonCount > 0 Then %>    <% End If %> Records <%= viewClockInOut_list.Pager.FromIndex %> to <%= viewClockInOut_list.Pager.ToIndex %> of <%= viewClockInOut_list.Pager.RecordCount %> <% Else %> <% If Security.CanList Then %> <% If viewClockInOut_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 %>
<% End If %>
<% If viewClockInOut.Export = "" AndAlso viewClockInOut.CurrentAction = "" Then %> <% End If %> <% If viewClockInOut.Export = "" Then %> <% End If %>