home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / viewClockInOutlist.aspx < prev    next >
Text File  |  2014-01-07  |  43KB  |  863 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="viewClockInOutlist.aspx.vb" Inherits="viewClockInOutlist" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <% If viewClockInOut.Export = "" Then %>
  4. <script type="text/javascript">
  5. <!--
  6. // Create page object
  7. var viewClockInOut_list = new ew_Page("viewClockInOut_list");
  8. // page properties
  9. viewClockInOut_list.PageID = "list"; // page ID
  10. var EW_PAGE_ID = viewClockInOut_list.PageID; // for backward compatibility
  11. // extend page with ValidateForm function
  12. viewClockInOut_list.ValidateForm = function(fobj) {
  13.     if (!this.ValidateRequired)
  14.         return true; // ignore validation
  15.     if (fobj.a_confirm && fobj.a_confirm.value == "F")
  16.         return true;
  17.     var i, elm, aelm, infix;
  18.     var rowcnt = (fobj.key_count) ? Number(fobj.key_count.value) : 1;
  19.     for (i=0; i<rowcnt; i++) {
  20.         infix = (fobj.key_count) ? String(i+1) : "";
  21.         elm = fobj.elements["x" + infix + "_schDate"];
  22.         if (elm && !ew_HasValue(elm))
  23.             return ew_OnError(this, elm, "Please enter required field - Date");
  24.         elm = fobj.elements["x" + infix + "_schDate"];
  25.         if (elm && !ew_CheckUSDate(elm.value))
  26.             return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Date");
  27.         elm = fobj.elements["x" + infix + "_schEvtID"];
  28.         if (elm && !ew_HasValue(elm))
  29.             return ew_OnError(this, elm, "Please enter required field - Event");
  30.         elm = fobj.elements["x" + infix + "_schPartsID"];
  31.         if (elm && !ew_HasValue(elm))
  32.             return ew_OnError(this, elm, "Please enter required field - Part");
  33.         elm = fobj.elements["x" + infix + "_schCallTime"];
  34.         if (elm && !ew_CheckTime(elm.value))
  35.             return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Call Time");
  36.         elm = fobj.elements["x" + infix + "_schStartTime"];
  37.         if (elm && !ew_CheckTime(elm.value))
  38.             return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Start Time");
  39.         elm = fobj.elements["x" + infix + "_schEndTime"];
  40.         if (elm && !ew_CheckTime(elm.value))
  41.             return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - End Time");
  42.         elm = fobj.elements["x" + infix + "_schOutTime"];
  43.         if (elm && !ew_CheckTime(elm.value))
  44.             return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Out Time");
  45.         elm = fobj.elements["x" + infix + "_schLocID"];
  46.         if (elm && !ew_HasValue(elm))
  47.             return ew_OnError(this, elm, "Please enter required field - Location");
  48.         elm = fobj.elements["x" + infix + "_schEmpID"];
  49.         if (elm && !ew_HasValue(elm))
  50.             return ew_OnError(this, elm, "Please enter required field - Employee");
  51.         elm = fobj.elements["x" + infix + "_schPosID"];
  52.         if (elm && !ew_HasValue(elm))
  53.             return ew_OnError(this, elm, "Please enter required field - Position");
  54.         elm = fobj.elements["x" + infix + "_schTypID"];
  55.         if (elm && !ew_HasValue(elm))
  56.             return ew_OnError(this, elm, "Please enter required field - Type");
  57.         elm = fobj.elements["x" + infix + "_schActualStart"];
  58.         if (elm && !ew_CheckTime(elm.value))
  59.             return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Actual Start");
  60.         elm = fobj.elements["x" + infix + "_schActualEnd"];
  61.         if (elm && !ew_CheckTime(elm.value))
  62.             return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Actual End");
  63.         elm = fobj.elements["x" + infix + "_schDateCreated"];
  64.         if (elm && !ew_CheckUSDate(elm.value))
  65.             return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Date Created");
  66.         elm = fobj.elements["x" + infix + "_schStatus"];
  67.         if (elm && !ew_HasValue(elm))
  68.             return ew_OnError(this, elm, "Please enter required field - Status");
  69.     }
  70.     return true;
  71. }
  72. <% If EW_CLIENT_VALIDATE Then %>
  73. viewClockInOut_list.ValidateRequired = true; // uses JavaScript validation
  74. <% Else %>
  75. viewClockInOut_list.ValidateRequired = false; // no JavaScript validation
  76. <% End If %>
  77. //-->
  78. </script>
  79. <link rel="stylesheet" type="text/css" media="all" href="calendar/calendar-win2k-1.css" title="win2k-1" />
  80. <script type="text/javascript" src="calendar/calendar.js"></script>
  81. <script type="text/javascript" src="calendar/lang/calendar-en.js"></script>
  82. <script type="text/javascript" src="calendar/calendar-setup.js"></script>
  83. <script language="JavaScript" type="text/javascript">
  84. <!--
  85. // Write your client script here, no need to add script tags.
  86. // To include another .js script, use:
  87. // ew_ClientScriptInclude("my_javascript.js"); 
  88. //-->
  89. </script>
  90. <% End If %>
  91. <% If viewClockInOut.Export = "" Then %>
  92. <% End If %>
  93. <%
  94.  
  95. ' Load recordset
  96. Rs = viewClockInOut_list.LoadRecordset()
  97.     viewClockInOut_list.lStartRec = 1
  98.     If viewClockInOut_list.lDisplayRecs <= 0 Then ' Display all records
  99.         viewClockInOut_list.lDisplayRecs = viewClockInOut_list.lTotalRecs
  100.     End If
  101.     If Not (viewClockInOut.ExportAll AndAlso viewClockInOut.Export <> "") Then
  102.         viewClockInOut_list.SetUpStartRec() ' Set up start record position
  103.     End If
  104. %>
  105. <p><span class="aspnetmaker" style="white-space: nowrap;">Clock In/Out
  106. </span></p>
  107. <%  viewClockInOut_list.ShowTLCMessage()%>
  108. <% viewClockInOut_list.ShowMessage() %>
  109. <br />
  110.  
  111. <% If Security.IsAdmin Then %>
  112. <a href="javascript:ew_ToggleSearchPanel(viewClockInOut_list);" style="text-decoration: none;"><img id="viewClockInOut_list_SearchImage" src="images/collapse.gif" alt="" width="9" height="9" border="0"></a><span class="aspnetmaker"> Filter</span><br>
  113. <div id="viewClockInOut_list_SearchPanel">
  114. <form name="fviewClockInOutlistsrch" id="fviewClockInOutlistsrch" class="ewForm" onsubmit="return viewClockInOut_list.ValidateSearch(this);">
  115. <input type="hidden" id="Hidden1" name="t" value="viewClockInOut" />
  116. <%
  117.     ' Render for search
  118.     viewClockInOut.RowType = EW_ROWTYPE_SEARCH
  119.     ' Render row
  120.     viewClockInOut_list.RenderRow()
  121. %>
  122. <table width="100%" class="tlcBasicSearchHeader">
  123.     <tr>
  124.         <td><span class="aspnetmaker">
  125.         Quick Filter
  126.         </span></td>
  127.     </tr>
  128. </table>
  129. <table width="100%" class="tlcBasicSearch">
  130.     <tr>
  131.         <td width="5%"><span class="aspnetmaker">Employee</span></td>
  132.         <td><span class="ewSearchOpr">=<input type="hidden" name="z_schEmpID" id="z_schEmpID" value="=" /></span></td>
  133.         <td>            
  134.             <table cellspacing="0" class="ewItemTable"><tr>
  135.                 <td><span class="aspnetmaker">
  136. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  137. <div<%= viewClockInOut.schEmpID.ViewAttributes %>><%= viewClockInOut.schEmpID.EditValue %></div>
  138. <input type="hidden" name="x_schEmpID" id="x_schEmpID" value="<%= ew_HTMLEncode(viewClockInOut.schEmpID.AdvancedSearch.SearchValue) %>" />
  139. <% Else %>
  140. <select id="x_schEmpID" name="x_schEmpID"<%= viewClockInOut.schEmpID.EditAttributes %>>
  141. <%
  142.     emptywrk = True
  143. If ew_IsArrayList(viewClockInOut.schEmpID.EditValue) Then
  144.     arwrk = viewClockInOut.schEmpID.EditValue
  145.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  146.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schEmpID.AdvancedSearch.SearchValue) Then
  147.             selwrk = " selected=""selected"""
  148.             emptywrk = False
  149.         Else
  150.             selwrk = ""
  151.         End If
  152. %>
  153. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  154. <%= arwrk(rowcntwrk)(1) %>
  155. </option>
  156. <%
  157.     Next
  158. End If
  159. %>
  160. </select>
  161. <% End If %>
  162. </span></td>
  163.             </tr></table>            
  164.         </td>
  165.     </tr>
  166. </table>
  167. <table width="100%" class="tlcBasicSearch">
  168.     <tr>
  169.         <td width="5%"> </td>
  170.         <td><span class="aspnetmaker">
  171.             <input type="Submit" name="Submit" id="Submit" value="Submit" /> 
  172.             <!-- <input type="Button" name="Reset" id="Reset" value="  Reset  " onclick="ew_ClearForm(this.form);if (this.form.<%= EW_TABLE_BASIC_SEARCH_TYPE %>) this.form.<%= EW_TABLE_BASIC_SEARCH_TYPE %>[0].checked = true;">  -->
  173.             <input type="Button" name="Reset" id="Reset" value="Clear Filter" onclick="parent.location='viewClockInOutlist.aspx?cmd=reset'"> 
  174.             <!--<a href="<%= viewClockInOut_list.PageUrl %>cmd=reset">Clear Filter</a>  -->
  175.         </span></td>
  176.     </tr>
  177. </table>
  178. </form>
  179. </div>
  180. <% End If%>
  181.  
  182. <br />
  183. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  184.  
  185. <div class="ewGridUpperPanel">
  186. <span class="aspmaker">
  187. <table width="90%" cellpadding="0" cellspacing="0" border="0">
  188. <tr>
  189. <td width="250px" align="left">Your Schedule for Today: <%= ew_FormatDateTime(Now(), 6) %> </td>
  190. <td > </td>
  191. <td ><a href="viewClockInOutadd.aspx">Clock In for Unscheduled Shift </a></td>
  192. </tr>
  193. </table>
  194. </span>
  195. </div>
  196.  
  197. <div class="ewGridMiddlePanel">
  198. <form name="fviewClockInOutlist" id="fviewClockInOutlist" class="ewForm" method="post">
  199. <input type="hidden" name="t" id="t" value="viewClockInOut" />
  200. <% If viewClockInOut_list.lTotalRecs > 0 Then %>
  201. <table cellspacing="0" rowhighlightclass="ewTableHighlightRow" rowselectclass="ewTableSelectRow" roweditclass="ewTableEditRow" class="ewTable ewTableSeparate">
  202. <%
  203.     viewClockInOut_list.lOptionCnt = 0
  204. If Security.CanView Then
  205.     viewClockInOut_list.lOptionCnt = viewClockInOut_list.lOptionCnt + 1 ' View
  206. End If
  207. If Security.CanEdit Then
  208.     viewClockInOut_list.lOptionCnt = viewClockInOut_list.lOptionCnt + 1 ' Edit
  209. End If
  210.     viewClockInOut_list.lOptionCnt = viewClockInOut_list.lOptionCnt + viewClockInOut_list.ListOptions.Items.Count ' Custom list options
  211. %>
  212. <%= viewClockInOut.TableCustomInnerHTML %>
  213. <thead><!-- Table header -->
  214.     <tr class="ewTableHeader">
  215. <% If viewClockInOut.Export = "" Then %>
  216. <% If Security.CanView Then %>
  217. <td style="white-space: nowrap;"> </td>
  218. <% End If %>
  219. <td style="white-space: nowrap;"> </td>
  220. <%
  221.  
  222. ' Custom list options
  223. For i As Integer = 0 to viewClockInOut_list.ListOptions.Items.Count -1
  224.     If viewClockInOut_list.ListOptions.Items(i).Visible Then Response.Write(viewClockInOut_list.ListOptions.Items(i).HeaderCellHtml)
  225. Next
  226. %>
  227. <% End If %>
  228. <% If viewClockInOut.schDate.Visible Then ' schDate %>
  229.     <% If viewClockInOut.SortUrl(viewClockInOut.schDate) = "" Then %>
  230.         <td>Date</td>
  231.     <% Else %>
  232.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schDate) %>',2);">
  233.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Date</td><td style="width: 10px;"><% If viewClockInOut.schDate.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schDate.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  234.         </td>
  235.     <% End If %>
  236. <% End If %>        
  237. <% If viewClockInOut.schEvtID.Visible Then ' schEvtID %>
  238.     <% If viewClockInOut.SortUrl(viewClockInOut.schEvtID) = "" Then %>
  239.         <td>Event</td>
  240.     <% Else %>
  241.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schEvtID) %>',2);">
  242.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Event</td><td style="width: 10px;"><% If viewClockInOut.schEvtID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schEvtID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  243.         </td>
  244.     <% End If %>
  245. <% End If %>        
  246. <% If viewClockInOut.schPartsID.Visible Then ' schPartsID %>
  247.     <% If viewClockInOut.SortUrl(viewClockInOut.schPartsID) = "" Then %>
  248.         <td>Part</td>
  249.     <% Else %>
  250.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schPartsID) %>',2);">
  251.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Part</td><td style="width: 10px;"><% If viewClockInOut.schPartsID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schPartsID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  252.         </td>
  253.     <% End If %>
  254. <% End If %>        
  255. <% If viewClockInOut.schCallTime.Visible Then ' schCallTime %>
  256.     <% If viewClockInOut.SortUrl(viewClockInOut.schCallTime) = "" Then %>
  257.         <td>Call Time</td>
  258.     <% Else %>
  259.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schCallTime) %>',2);">
  260.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Call Time</td><td style="width: 10px;"><% If viewClockInOut.schCallTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schCallTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  261.         </td>
  262.     <% End If %>
  263. <% End If %>        
  264. <% If viewClockInOut.schStartTime.Visible Then ' schStartTime %>
  265.     <% If viewClockInOut.SortUrl(viewClockInOut.schStartTime) = "" Then %>
  266.         <td>Start Time</td>
  267.     <% Else %>
  268.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schStartTime) %>',2);">
  269.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Start Time</td><td style="width: 10px;"><% If viewClockInOut.schStartTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schStartTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  270.         </td>
  271.     <% End If %>
  272. <% End If %>        
  273. <% If viewClockInOut.schEndTime.Visible Then ' schEndTime %>
  274.     <% If viewClockInOut.SortUrl(viewClockInOut.schEndTime) = "" Then %>
  275.         <td>End Time</td>
  276.     <% Else %>
  277.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schEndTime) %>',2);">
  278.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>End Time</td><td style="width: 10px;"><% If viewClockInOut.schEndTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schEndTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  279.         </td>
  280.     <% End If %>
  281. <% End If %>        
  282. <% If viewClockInOut.schOutTime.Visible Then ' schOutTime %>
  283.     <% If viewClockInOut.SortUrl(viewClockInOut.schOutTime) = "" Then %>
  284.         <td>Out Time</td>
  285.     <% Else %>
  286.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schOutTime) %>',2);">
  287.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Out Time</td><td style="width: 10px;"><% If viewClockInOut.schOutTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schOutTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  288.         </td>
  289.     <% End If %>
  290. <% End If %>        
  291. <% If viewClockInOut.schLocID.Visible Then ' schLocID %>
  292.     <% If viewClockInOut.SortUrl(viewClockInOut.schLocID) = "" Then %>
  293.         <td>Location</td>
  294.     <% Else %>
  295.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schLocID) %>',2);">
  296.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Location</td><td style="width: 10px;"><% If viewClockInOut.schLocID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schLocID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  297.         </td>
  298.     <% End If %>
  299. <% End If %>        
  300. <% If viewClockInOut.schEmpID.Visible Then ' schEmpID %>
  301.     <% If viewClockInOut.SortUrl(viewClockInOut.schEmpID) = "" Then %>
  302.         <td>Employee</td>
  303.     <% Else %>
  304.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schEmpID) %>',2);">
  305.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Employee</td><td style="width: 10px;"><% If viewClockInOut.schEmpID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schEmpID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  306.         </td>
  307.     <% End If %>
  308. <% End If %>        
  309. <% If viewClockInOut.schPosID.Visible Then ' schPosID %>
  310.     <% If viewClockInOut.SortUrl(viewClockInOut.schPosID) = "" Then %>
  311.         <td>Position</td>
  312.     <% Else %>
  313.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schPosID) %>',2);">
  314.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Position</td><td style="width: 10px;"><% If viewClockInOut.schPosID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schPosID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  315.         </td>
  316.     <% End If %>
  317. <% End If %>        
  318. <% If viewClockInOut.schTypID.Visible Then ' schTypID %>
  319.     <% If viewClockInOut.SortUrl(viewClockInOut.schTypID) = "" Then %>
  320.         <td>Type</td>
  321.     <% Else %>
  322.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schTypID) %>',2);">
  323.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Type</td><td style="width: 10px;"><% If viewClockInOut.schTypID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schTypID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  324.         </td>
  325.     <% End If %>
  326. <% End If %>        
  327. <% If viewClockInOut.schActualStart.Visible Then ' schActualStart %>
  328.     <% If viewClockInOut.SortUrl(viewClockInOut.schActualStart) = "" Then %>
  329.         <td>Actual Start</td>
  330.     <% Else %>
  331.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schActualStart) %>',2);">
  332.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Actual Start</td><td style="width: 10px;"><% If viewClockInOut.schActualStart.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schActualStart.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  333.         </td>
  334.     <% End If %>
  335. <% End If %>        
  336. <% If viewClockInOut.schActualEnd.Visible Then ' schActualEnd %>
  337.     <% If viewClockInOut.SortUrl(viewClockInOut.schActualEnd) = "" Then %>
  338.         <td>Actual End</td>
  339.     <% Else %>
  340.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schActualEnd) %>',2);">
  341.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Actual End</td><td style="width: 10px;"><% If viewClockInOut.schActualEnd.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schActualEnd.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  342.         </td>
  343.     <% End If %>
  344. <% End If %>        
  345. <% If viewClockInOut.schDateCreated.Visible Then ' schDateCreated %>
  346.     <% If viewClockInOut.SortUrl(viewClockInOut.schDateCreated) = "" Then %>
  347.         <td>Date Created</td>
  348.     <% Else %>
  349.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schDateCreated) %>',2);">
  350.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Date Created</td><td style="width: 10px;"><% If viewClockInOut.schDateCreated.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schDateCreated.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  351.         </td>
  352.     <% End If %>
  353. <% End If %>        
  354. <% If viewClockInOut.schStatus.Visible Then ' schStatus %>
  355.     <% If viewClockInOut.SortUrl(viewClockInOut.schStatus) = "" Then %>
  356.         <td>Status</td>
  357.     <% Else %>
  358.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= viewClockInOut.SortUrl(viewClockInOut.schStatus) %>',2);">
  359.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Status</td><td style="width: 10px;"><% If viewClockInOut.schStatus.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf viewClockInOut.schStatus.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  360.         </td>
  361.     <% End If %>
  362. <% End If %>        
  363.     </tr>
  364. </thead>
  365. <tbody><!-- Table body -->
  366. <%
  367. If (viewClockInOut.ExportAll AndAlso viewClockInOut.Export <> "") Then
  368.     viewClockInOut_list.lStopRec = viewClockInOut_list.lTotalRecs
  369. Else
  370.     viewClockInOut_list.lStopRec = viewClockInOut_list.lStartRec + viewClockInOut_list.lDisplayRecs - 1 ' Set the last record to display
  371. End If
  372. If viewClockInOut.CurrentAction = "gridadd" AndAlso viewClockInOut_list.lStopRec = -1 Then
  373.     viewClockInOut_list.lStopRec = EW_GRIDADD_ROWS
  374. End If 
  375.  
  376. ' Move to first record
  377. For i As Integer = 1 to viewClockInOut_list.lStartRec - 1
  378.     If Rs.Read() Then    viewClockInOut_list.lRecCnt = viewClockInOut_list.lRecCnt + 1
  379. Next        
  380. viewClockInOut_list.lRowCnt = 0
  381. viewClockInOut_list.lEditRowCnt = 0
  382. If viewClockInOut.CurrentAction = "edit" Then viewClockInOut_list.lRowIndex = 1
  383.  
  384. ' Output data rows
  385. Do While (viewClockInOut.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (viewClockInOut_list.lRecCnt < viewClockInOut_list.lStopRec)
  386.     viewClockInOut_list.lRecCnt = viewClockInOut_list.lRecCnt + 1
  387.     If viewClockInOut_list.lRecCnt >= viewClockInOut_list.lStartRec Then
  388.         viewClockInOut_list.lRowCnt = viewClockInOut_list.lRowCnt + 1
  389.     viewClockInOut.CssClass = ""
  390.     viewClockInOut.CssStyle = ""
  391.     viewClockInOut.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'"
  392.     If viewClockInOut.CurrentAction = "gridadd" Then
  393.         viewClockInOut_list.LoadDefaultValues() ' Load default values
  394.     Else
  395.         viewClockInOut_list.LoadRowValues(Rs) ' Load row values
  396.     End If
  397.     viewClockInOut.RowType = EW_ROWTYPE_VIEW ' Render view
  398.             'If viewClockInOut.CurrentAction = "edit" Then
  399.             '    If viewClockInOut_list.CheckInlineEditKey() AndAlso viewClockInOut_list.lEditRowCnt = 0 Then ' Inline edit
  400.             '        viewClockInOut.RowType = EW_ROWTYPE_EDIT ' Render edit
  401.             '    End If
  402.             'End If
  403.             'If viewClockInOut.RowType = EW_ROWTYPE_EDIT AndAlso viewClockInOut.EventCancelled Then ' update failed
  404.             '    If viewClockInOut.CurrentAction = "edit" Then
  405.             '        viewClockInOut_list.RestoreFormValues() ' Restore form values
  406.             '    End If
  407.             'End If
  408.             'If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit row
  409.             '    viewClockInOut_list.lEditRowCnt = viewClockInOut_list.lEditRowCnt + 1
  410.             '    viewClockInOut.RowClientEvents = "onmouseover='this.edit=true;ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'"
  411.             'End If
  412.             'If viewClockInOut.RowType = EW_ROWTYPE_ADD OrElse viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Add / Edit row
  413.             '    viewClockInOut.CssClass = "ewTableEditRow"
  414.             'End If
  415.  
  416.             ' Render row
  417.             viewClockInOut_list.RenderRow()
  418. %>
  419.     <tr<%= viewClockInOut.RowAttributes %>>
  420. <% If viewClockInOut.RowType = EW_ROWTYPE_ADD OrElse viewClockInOut.RowType = EW_ROWTYPE_EDIT Then %>
  421. <% If viewClockInOut.CurrentAction = "edit" Then %>
  422. <td colspan="<%= viewClockInOut_list.lOptionCnt %>" align="right"><span class="aspnetmaker">
  423. <a href="" onclick="f=ew_GetForm('fviewClockInOutlist');if (viewClockInOut_list.ValidateForm(f)) { f.action=location.pathname;f.submit(); }return false;"><img src='images/update.gif' alt='Update' title='Update' width='16' height='16' border='0'></a> <a href="<%= viewClockInOut_list.PageUrl %>a=cancel"><img src='images/cancel.gif' alt='Cancel' title='Cancel' width='16' height='16' border='0'></a>
  424. <input type="hidden" name="a_list" id="a_list" value="update" />
  425. </span></td>
  426. <% End If %>
  427. <% Else %>
  428. <% If viewClockInOut.Export = "" Then %>
  429. <% If Security.CanView Then %>
  430. <td style="white-space: nowrap;"><span class="aspnetmaker"><% If viewClockInOut_list.ShowOptionLink() Then %>
  431. <a href="<%= viewClockInOut.ViewUrl %>"><img src='images/view.gif' alt='View' title='View' width='16' height='16' border='0'></a>
  432. <% End If %></span></td>
  433. <% End If %>
  434.  
  435. <td style="white-space: nowrap;"><span class="aspmaker">
  436. <%
  437.     If viewClockInOut.schActualStart.ListViewValue <> " " And viewClockInOut.schActualEnd.ListViewValue <> " " Then
  438.         Response.Write(" ")
  439.     Else
  440.         If viewClockInOut.schActualStart.ListViewValue = " " Then
  441.             Response.Write("<a href=""" & viewClockInOut.EditInUrl & """><img src=""images/in.gif"" alt=""Clock In"" width=""16"" height=""16"" border=""0""></a>")
  442.         End If
  443.         If viewClockInOut.schPartsID.ListViewValue = "Unscheduled" Then
  444.             If viewClockInOut.schActualStart.ListViewValue <> " " Then
  445.                 Response.Write("<a href=""" & viewClockInOut.EditOutUrl2 & """><img src=""images/out.gif"" alt=""Clock Out"" width=""16"" height=""16"" border=""0""></a>")
  446.             End If
  447.         Else
  448.             If viewClockInOut.schActualStart.ListViewValue <> " " Then
  449.                 Response.Write("<a href=""" & viewClockInOut.EditOutUrl & """><img src=""images/out.gif"" alt=""Clock Out"" width=""16"" height=""16"" border=""0""></a>")
  450.             End If
  451.         End If
  452.     End If
  453. %>
  454. </span></td>
  455.  
  456. <%
  457.  
  458. ' Custom list options
  459. For i As Integer = 0 to viewClockInOut_list.ListOptions.Items.Count -1
  460.     If viewClockInOut_list.ListOptions.Items(i).Visible Then Response.Write(viewClockInOut_list.ListOptions.Items(i).BodyCellHtml)
  461. Next
  462. %>
  463. <% End If %>
  464. <% End If %>
  465.     <% If viewClockInOut.schDate.Visible Then ' schDate %>
  466.         <td<%= viewClockInOut.schDate.CellAttributes %>>
  467. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  468. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schDate" id="x<%= viewClockInOut_list.lRowIndex %>_schDate" value="<%= viewClockInOut.schDate.EditValue %>"<%= viewClockInOut.schDate.EditAttributes %> />
  469.  <img src="images/calendar.png" id="cal_x<%= viewClockInOut_list.lRowIndex %>_schDate" name="cal_x<%= viewClockInOut_list.lRowIndex %>_schDate" alt="Pick a date" style="cursor:pointer;cursor:hand;" />
  470. <script type="text/javascript">
  471. Calendar.setup({
  472.     inputField : "x<%= viewClockInOut_list.lRowIndex %>_schDate", // ID of the input field
  473.     ifFormat : "%m/%d/%Y", // the date format
  474.     button : "cal_x<%= viewClockInOut_list.lRowIndex %>_schDate" // ID of the button
  475. });
  476. </script>
  477. <% End If %>
  478. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  479. <div<%= viewClockInOut.schDate.ViewAttributes %>><%= viewClockInOut.schDate.ListViewValue %></div>
  480. <% End If %>
  481. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then %>
  482. <input type="hidden" name="x<%= viewClockInOut_list.lRowIndex %>_schSchID" id="x<%= viewClockInOut_list.lRowIndex %>_schSchID" value="<%= ew_HTMLEncode(viewClockInOut.schSchID.CurrentValue) %>" />
  483. <% End If %>
  484. </td>
  485.     <% End If %>
  486.     <% If viewClockInOut.schEvtID.Visible Then ' schEvtID %>
  487.         <td<%= viewClockInOut.schEvtID.CellAttributes %>>
  488. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  489. <select id="x<%= viewClockInOut_list.lRowIndex %>_schEvtID" name="x<%= viewClockInOut_list.lRowIndex %>_schEvtID"<%= viewClockInOut.schEvtID.EditAttributes %>>
  490. <%
  491. emptywrk = True
  492. If ew_IsArrayList(viewClockInOut.schEvtID.EditValue) Then
  493.     arwrk = viewClockInOut.schEvtID.EditValue
  494.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  495.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schEvtID.CurrentValue) Then
  496.             selwrk = " selected=""selected"""
  497.             emptywrk = False
  498.         Else
  499.             selwrk = ""
  500.         End If
  501. %>
  502. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  503. <%= arwrk(rowcntwrk)(1) %>
  504. </option>
  505. <%
  506.     Next
  507. End If
  508. %>
  509. </select>
  510. <% End If %>
  511. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  512. <div<%= viewClockInOut.schEvtID.ViewAttributes %>><%= viewClockInOut.schEvtID.ListViewValue %></div>
  513. <% End If %>
  514. </td>
  515.     <% End If %>
  516.     <% If viewClockInOut.schPartsID.Visible Then ' schPartsID %>
  517.         <td<%= viewClockInOut.schPartsID.CellAttributes %>>
  518. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  519. <select id="x<%= viewClockInOut_list.lRowIndex %>_schPartsID" name="x<%= viewClockInOut_list.lRowIndex %>_schPartsID"<%= viewClockInOut.schPartsID.EditAttributes %>>
  520. <%
  521. emptywrk = True
  522. If ew_IsArrayList(viewClockInOut.schPartsID.EditValue) Then
  523.     arwrk = viewClockInOut.schPartsID.EditValue
  524.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  525.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schPartsID.CurrentValue) Then
  526.             selwrk = " selected=""selected"""
  527.             emptywrk = False
  528.         Else
  529.             selwrk = ""
  530.         End If
  531. %>
  532. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  533. <%= arwrk(rowcntwrk)(1) %>
  534. </option>
  535. <%
  536.     Next
  537. End If
  538. %>
  539. </select>
  540. <% End If %>
  541. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  542. <div<%= viewClockInOut.schPartsID.ViewAttributes %>><%= viewClockInOut.schPartsID.ListViewValue %></div>
  543. <% End If %>
  544. </td>
  545.     <% End If %>
  546.     <% If viewClockInOut.schCallTime.Visible Then ' schCallTime %>
  547.         <td<%= viewClockInOut.schCallTime.CellAttributes %>>
  548. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  549. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schCallTime" id="x<%= viewClockInOut_list.lRowIndex %>_schCallTime" value="<%= viewClockInOut.schCallTime.EditValue %>"<%= viewClockInOut.schCallTime.EditAttributes %> />
  550. <% End If %>
  551. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  552. <div<%= viewClockInOut.schCallTime.ViewAttributes %>><%= viewClockInOut.schCallTime.ListViewValue %></div>
  553. <% End If %>
  554. </td>
  555.     <% End If %>
  556.     <% If viewClockInOut.schStartTime.Visible Then ' schStartTime %>
  557.         <td<%= viewClockInOut.schStartTime.CellAttributes %>>
  558. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  559. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schStartTime" id="x<%= viewClockInOut_list.lRowIndex %>_schStartTime" value="<%= viewClockInOut.schStartTime.EditValue %>"<%= viewClockInOut.schStartTime.EditAttributes %> />
  560. <% End If %>
  561. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  562. <div<%= viewClockInOut.schStartTime.ViewAttributes %>><%= viewClockInOut.schStartTime.ListViewValue %></div>
  563. <% End If %>
  564. </td>
  565.     <% End If %>
  566.     <% If viewClockInOut.schEndTime.Visible Then ' schEndTime %>
  567.         <td<%= viewClockInOut.schEndTime.CellAttributes %>>
  568. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  569. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schEndTime" id="x<%= viewClockInOut_list.lRowIndex %>_schEndTime" value="<%= viewClockInOut.schEndTime.EditValue %>"<%= viewClockInOut.schEndTime.EditAttributes %> />
  570. <% End If %>
  571. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  572. <div<%= viewClockInOut.schEndTime.ViewAttributes %>><%= viewClockInOut.schEndTime.ListViewValue %></div>
  573. <% End If %>
  574. </td>
  575.     <% End If %>
  576.     <% If viewClockInOut.schOutTime.Visible Then ' schOutTime %>
  577.         <td<%= viewClockInOut.schOutTime.CellAttributes %>>
  578. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  579. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schOutTime" id="x<%= viewClockInOut_list.lRowIndex %>_schOutTime" value="<%= viewClockInOut.schOutTime.EditValue %>"<%= viewClockInOut.schOutTime.EditAttributes %> />
  580. <% End If %>
  581. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  582. <div<%= viewClockInOut.schOutTime.ViewAttributes %>><%= viewClockInOut.schOutTime.ListViewValue %></div>
  583. <% End If %>
  584. </td>
  585.     <% End If %>
  586.     <% If viewClockInOut.schLocID.Visible Then ' schLocID %>
  587.         <td<%= viewClockInOut.schLocID.CellAttributes %>>
  588. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  589. <select id="x<%= viewClockInOut_list.lRowIndex %>_schLocID" name="x<%= viewClockInOut_list.lRowIndex %>_schLocID"<%= viewClockInOut.schLocID.EditAttributes %>>
  590. <%
  591. emptywrk = True
  592. If ew_IsArrayList(viewClockInOut.schLocID.EditValue) Then
  593.     arwrk = viewClockInOut.schLocID.EditValue
  594.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  595.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schLocID.CurrentValue) Then
  596.             selwrk = " selected=""selected"""
  597.             emptywrk = False
  598.         Else
  599.             selwrk = ""
  600.         End If
  601. %>
  602. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  603. <%= arwrk(rowcntwrk)(1) %>
  604. </option>
  605. <%
  606.     Next
  607. End If
  608. %>
  609. </select>
  610. <% End If %>
  611. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  612. <div<%= viewClockInOut.schLocID.ViewAttributes %>><%= viewClockInOut.schLocID.ListViewValue %></div>
  613. <% End If %>
  614. </td>
  615.     <% End If %>
  616.     <% If viewClockInOut.schEmpID.Visible Then ' schEmpID %>
  617.         <td<%= viewClockInOut.schEmpID.CellAttributes %>>
  618. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  619. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  620. <div<%= viewClockInOut.schEmpID.ViewAttributes %>><%= viewClockInOut.schEmpID.EditValue %></div>
  621. <input type="hidden" name="x<%= viewClockInOut_list.lRowIndex %>_schEmpID" id="x<%= viewClockInOut_list.lRowIndex %>_schEmpID" value="<%= ew_HTMLEncode(viewClockInOut.schEmpID.CurrentValue) %>" />
  622. <% Else %>
  623. <select id="x<%= viewClockInOut_list.lRowIndex %>_schEmpID" name="x<%= viewClockInOut_list.lRowIndex %>_schEmpID"<%= viewClockInOut.schEmpID.EditAttributes %>>
  624. <%
  625. emptywrk = True
  626. If ew_IsArrayList(viewClockInOut.schEmpID.EditValue) Then
  627.     arwrk = viewClockInOut.schEmpID.EditValue
  628.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  629.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schEmpID.CurrentValue) Then
  630.             selwrk = " selected=""selected"""
  631.             emptywrk = False
  632.         Else
  633.             selwrk = ""
  634.         End If
  635. %>
  636. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  637. <%= arwrk(rowcntwrk)(1) %>
  638. </option>
  639. <%
  640.     Next
  641. End If
  642. %>
  643. </select>
  644. <% End If %>
  645. <% End If %>
  646. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  647. <div<%= viewClockInOut.schEmpID.ViewAttributes %>><%= viewClockInOut.schEmpID.ListViewValue %></div>
  648. <% End If %>
  649. </td>
  650.     <% End If %>
  651.     <% If viewClockInOut.schPosID.Visible Then ' schPosID %>
  652.         <td<%= viewClockInOut.schPosID.CellAttributes %>>
  653. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  654. <select id="x<%= viewClockInOut_list.lRowIndex %>_schPosID" name="x<%= viewClockInOut_list.lRowIndex %>_schPosID"<%= viewClockInOut.schPosID.EditAttributes %>>
  655. <%
  656. emptywrk = True
  657. If ew_IsArrayList(viewClockInOut.schPosID.EditValue) Then
  658.     arwrk = viewClockInOut.schPosID.EditValue
  659.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  660.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schPosID.CurrentValue) Then
  661.             selwrk = " selected=""selected"""
  662.             emptywrk = False
  663.         Else
  664.             selwrk = ""
  665.         End If
  666. %>
  667. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  668. <%= arwrk(rowcntwrk)(1) %>
  669. </option>
  670. <%
  671.     Next
  672. End If
  673. %>
  674. </select>
  675. <% End If %>
  676. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  677. <div<%= viewClockInOut.schPosID.ViewAttributes %>><%= viewClockInOut.schPosID.ListViewValue %></div>
  678. <% End If %>
  679. </td>
  680.     <% End If %>
  681.     <% If viewClockInOut.schTypID.Visible Then ' schTypID %>
  682.         <td<%= viewClockInOut.schTypID.CellAttributes %>>
  683. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  684. <select id="x<%= viewClockInOut_list.lRowIndex %>_schTypID" name="x<%= viewClockInOut_list.lRowIndex %>_schTypID"<%= viewClockInOut.schTypID.EditAttributes %>>
  685. <%
  686. emptywrk = True
  687. If ew_IsArrayList(viewClockInOut.schTypID.EditValue) Then
  688.     arwrk = viewClockInOut.schTypID.EditValue
  689.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  690.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schTypID.CurrentValue) Then
  691.             selwrk = " selected=""selected"""
  692.             emptywrk = False
  693.         Else
  694.             selwrk = ""
  695.         End If
  696. %>
  697. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  698. <%= arwrk(rowcntwrk)(1) %>
  699. </option>
  700. <%
  701.     Next
  702. End If
  703. %>
  704. </select>
  705. <% End If %>
  706. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  707. <div<%= viewClockInOut.schTypID.ViewAttributes %>><%= viewClockInOut.schTypID.ListViewValue %></div>
  708. <% End If %>
  709. </td>
  710.     <% End If %>
  711.     <% If viewClockInOut.schActualStart.Visible Then ' schActualStart %>
  712.         <td<%= viewClockInOut.schActualStart.CellAttributes %>>
  713. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  714. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schActualStart" id="x<%= viewClockInOut_list.lRowIndex %>_schActualStart" value="<%= viewClockInOut.schActualStart.EditValue %>"<%= viewClockInOut.schActualStart.EditAttributes %> />
  715. <% End If %>
  716. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  717. <div<%= viewClockInOut.schActualStart.ViewAttributes %>><%= viewClockInOut.schActualStart.ListViewValue %></div>
  718. <% End If %>
  719. </td>
  720.     <% End If %>
  721.     <% If viewClockInOut.schActualEnd.Visible Then ' schActualEnd %>
  722.         <td<%= viewClockInOut.schActualEnd.CellAttributes %>>
  723. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  724. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schActualEnd" id="x<%= viewClockInOut_list.lRowIndex %>_schActualEnd" value="<%= viewClockInOut.schActualEnd.EditValue %>"<%= viewClockInOut.schActualEnd.EditAttributes %> />
  725. <% End If %>
  726. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  727. <div<%= viewClockInOut.schActualEnd.ViewAttributes %>><%= viewClockInOut.schActualEnd.ListViewValue %></div>
  728. <% End If %>
  729. </td>
  730.     <% End If %>
  731.     <% If viewClockInOut.schDateCreated.Visible Then ' schDateCreated %>
  732.         <td<%= viewClockInOut.schDateCreated.CellAttributes %>>
  733. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %>
  734. <input type="text" name="x<%= viewClockInOut_list.lRowIndex %>_schDateCreated" id="x<%= viewClockInOut_list.lRowIndex %>_schDateCreated" value="<%= viewClockInOut.schDateCreated.EditValue %>"<%= viewClockInOut.schDateCreated.EditAttributes %> />
  735. <% End If %>
  736. <% If viewClockInOut.RowType = EW_ROWTYPE_VIEW Then ' View Record %>
  737. <div<%= viewClockInOut.schDateCreated.ViewAttributes %>><%= viewClockInOut.schDateCreated.ListViewValue %></div>
  738. <% End If %>
  739. </td>
  740.     <% End If %>
  741.     
  742.     <% If viewClockInOut.schStatus.Visible Then ' schStatus %>
  743.         <td<%= viewClockInOut.schStatus.CellAttributes %>>
  744. <div<%= viewClockInOut.schStatus.ViewAttributes %>>
  745. <% 
  746. Select viewClockInOut.schStatus.ListViewValue
  747.         Case "Confirmed"
  748.         response.write("<img src=""images/Status_Confirmed.gif"" alt=""Confirmed""/>")
  749.         Case "Unconfirmed"
  750.         response.write("<img src=""images/Status_UnConfirmed.gif"" alt=""Unconfirmed""/>")
  751.         Case "Cannot Work"
  752.         response.write("<img src=""images/Status_CannotWork.gif"" alt=""Cannot Work""/>")
  753.         Case "Tentative"
  754.         response.write("<img src=""images/Status_Tentative.gif"" alt=""Tentative""/>")
  755.         Case "No Show"
  756.             Response.Write("<img src=""images/Status_NoShow.gif"" alt=""No Show""/>")
  757.         Case "Sick"
  758.             Response.Write("<img src=""images/Status_Sick.gif"" alt=""Sick""/>")
  759.     End Select
  760.  
  761. %></div>
  762.  
  763. </td>
  764.     <% End If %>
  765.     
  766.         </tr>
  767. <% If viewClockInOut.RowType = EW_ROWTYPE_EDIT Then %>
  768. <% End If %>
  769. <%
  770.     End If
  771. Loop
  772. %>
  773. </tbody>
  774. </table>
  775. <% End If %>
  776. <% If viewClockInOut.CurrentAction = "edit" Then %>
  777. <input type="hidden" name="key_count" id="key_count" value="<%= viewClockInOut_list.lRowIndex %>" />
  778. <% End If %>
  779. </form>
  780. <%
  781.  
  782. ' Close recordset
  783. Rs.Close()
  784. Rs.Dispose()
  785. %>
  786. </div>
  787. <% If viewClockInOut.Export = "" Then %>
  788. <div class="ewGridLowerPanel">
  789. <% If viewClockInOut.CurrentAction <> "gridadd" AndAlso viewClockInOut.CurrentAction <> "gridedit" Then %>
  790. <form name="ewpagerform" id="ewpagerform" class="ewForm">
  791. <table border="0" cellspacing="0" cellpadding="0" class="ewPager">
  792.     <tr>
  793.         <td>
  794. <span class="aspnetmaker">
  795. <% If viewClockInOut_list.Pager Is Nothing Then viewClockInOut_list.Pager = New cNumericPager(viewClockInOut_list.lStartRec, viewClockInOut_list.lDisplayRecs, viewClockInOut_list.lTotalRecs, viewClockInOut_list.lRecRange) %>
  796. <% If viewClockInOut_list.Pager.RecordCount > 0 Then %>
  797.     <% If viewClockInOut_list.Pager.FirstButton.Enabled Then %>
  798.     <a href="<%= viewClockInOut_list.PageUrl %>start=<%= viewClockInOut_list.Pager.FirstButton.Start %>">First</a> 
  799.     <% End If %>
  800.     <% If viewClockInOut_list.Pager.PrevButton.Enabled Then %>
  801.     <a href="<%= viewClockInOut_list.PageUrl %>start=<%= viewClockInOut_list.Pager.PrevButton.Start %>">Previous</a> 
  802.     <% End If %>
  803.     <% For Each PagerItem As cPagerItem In viewClockInOut_list.Pager.Items %>
  804.         <% If PagerItem.Enabled Then %><a href="<%= viewClockInOut_list.PageUrl %>start=<%= PagerItem.Start %>"><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %></a><% End If %> 
  805.     <% Next %>
  806.     <% If viewClockInOut_list.Pager.NextButton.Enabled Then %>
  807.     <a href="<%= viewClockInOut_list.PageUrl %>start=<%= viewClockInOut_list.Pager.NextButton.Start %>">Next</a> 
  808.     <% End If %>
  809.     <% If viewClockInOut_list.Pager.LastButton.Enabled Then %>
  810.     <a href="<%= viewClockInOut_list.PageUrl %>start=<%= viewClockInOut_list.Pager.LastButton.Start %>">Last</a> 
  811.     <% End If %>
  812.     <% If viewClockInOut_list.Pager.ButtonCount > 0 Then %>    <%    End If %>
  813.     Records <%= viewClockInOut_list.Pager.FromIndex %> to <%= viewClockInOut_list.Pager.ToIndex %> of <%= viewClockInOut_list.Pager.RecordCount %>
  814. <% Else %>
  815.     <% If Security.CanList Then %>
  816.     <% If viewClockInOut_list.sSrchWhere = "0=101" Then %>
  817.     Please enter search criteria
  818.     <% Else %>
  819.     No records found
  820.     <% End If %>
  821.     <% Else %>
  822.     You do not have the right permission to view the page
  823.     <% End If %>
  824. <% End If %>
  825. </span>
  826.         </td>
  827. <% If viewClockInOut_list.lTotalRecs > 0 Then %>
  828.         <td>    </td>
  829.         <td><table border="0" cellspacing="0" cellpadding="0"><tr><td>Page Size </td><td>
  830. <input type="hidden" id="t" name="t" value="viewClockInOut" />
  831. <select name="<%= EW_TABLE_REC_PER_PAGE %>" id="<%= EW_TABLE_REC_PER_PAGE %>" onchange="this.form.submit();" class="aspnetmaker">
  832. <option value="10"<% If viewClockInOut_list.lDisplayRecs = 10 Then %> selected="selected"<% End If %>>10</option>
  833. <option value="20"<% If viewClockInOut_list.lDisplayRecs = 20 Then %> selected="selected"<% End If %>>20</option>
  834. <option value="50"<% If viewClockInOut_list.lDisplayRecs = 50 Then %> selected="selected"<% End If %>>50</option>
  835. <option value="ALL"<% If viewClockInOut.RecordsPerPage = -1 Then %> selected="selected"<% End If %>>All</option>
  836. </select></td></tr></table>
  837.         </td>
  838. <% End If %>
  839.     </tr>
  840. </table>
  841. </form>
  842. <% End If %>
  843.  
  844. </div>
  845. <% End If %>
  846. </td></tr></table>
  847. <% If viewClockInOut.Export = "" AndAlso viewClockInOut.CurrentAction = "" Then %>
  848. <script type="text/javascript">
  849. <!--
  850. //ew_ToggleSearchPanel(viewClockInOut_list); // uncomment to init search panel as collapsed
  851. //-->
  852. </script>
  853. <% End If %>
  854. <% If viewClockInOut.Export = "" Then %>
  855. <script language="JavaScript" type="text/javascript">
  856. <!--
  857. // Write your table-specific startup script here
  858. // document.write("page loaded");
  859. //-->
  860. </script>
  861. <% End If %>
  862. </asp:Content>
  863.