home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblSchedulelist.aspx < prev    next >
Text File  |  2014-01-07  |  53KB  |  1,171 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblSchedulelist.aspx.vb" Inherits="tblSchedulelist" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <% If tblSchedule.Export = "" Then %>
  4. <script type="text/javascript">
  5. <!--
  6. // Create page object
  7. var tblSchedule_list = new ew_Page("tblSchedule_list");
  8. // page properties
  9. tblSchedule_list.PageID = "list"; // page ID
  10. var EW_PAGE_ID = tblSchedule_list.PageID; // for backward compatibility
  11. // extend page with validate function for search
  12. tblSchedule_list.ValidateSearch = function(fobj) {
  13.     if (!this.ValidateRequired)
  14.         return true; // ignore validation
  15.     var infix = "";
  16.     elm = fobj.elements["x" + infix + "_schDate"];
  17.     if (elm && !ew_CheckUSDate(elm.value))
  18.         return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Date");
  19.     for (var i=0;i<fobj.elements.length;i++) {
  20.         var elem = fobj.elements[i];
  21.         if (elem.name.substring(0,2) == "s_" || elem.name.substring(0,3) == "sv_")
  22.             elem.value = "";
  23.     }
  24.     return true;
  25. }
  26. tblSchedule_list.SelectAllKey = function(elem) {
  27.     ew_SelectAll(elem);
  28. }
  29. <% If EW_CLIENT_VALIDATE Then %>
  30. tblSchedule_list.ValidateRequired = true; // uses JavaScript validation
  31. <% Else %>
  32. tblSchedule_list.ValidateRequired = false; // no JavaScript validation
  33. <% End If %>
  34. // search highlight properties
  35. tblSchedule_list.ShowHighlightText = "Show highlight"; 
  36. tblSchedule_list.HideHighlightText = "Hide highlight";
  37. //-->
  38. </script>
  39. <link rel="stylesheet" type="text/css" media="all" href="calendar/calendar-win2k-1.css" title="win2k-1" />
  40. <script type="text/javascript" src="calendar/calendar.js"></script>
  41. <script type="text/javascript" src="calendar/lang/calendar-en.js"></script>
  42. <script type="text/javascript" src="calendar/calendar-setup.js"></script>
  43. <script language="JavaScript" type="text/javascript">
  44. <!--
  45. // Write your client script here, no need to add script tags.
  46. // To include another .js script, use:
  47. // ew_ClientScriptInclude("my_javascript.js"); 
  48. function tlc_SetToday(objForm){
  49.     objForm.elements.x_schDate.value = "<%= FormatDateTime(now(),vbShortDate) %>";
  50.     objForm.elements.y_schDate.value = "<%= FormatDateTime(now(),vbShortDate) %>";
  51.     return true;
  52. }
  53. function tlc_ReSetToday(objForm){
  54.     objForm.elements.x_schDate.value = "<%= FormatDateTime(now(),vbShortDate) %>";
  55.     objForm.elements.y_schDate.value = "";
  56.     return true;
  57. }
  58. function tlc_SetMe(objForm) {
  59.     objForm.elements.x_schEmpID.value = "<%= session("tfpssnet_Status_UserID") %>";
  60.     return true;
  61. }
  62. function tlc_ReSetMe(objForm) {
  63.     objForm.elements.x_schEmpID.value = "";
  64.     return true;
  65. }
  66. //-->
  67. </script>
  68. <% End If %>
  69. <% If tblSchedule.Export = "" Then %>
  70. <% End If %>
  71. <%
  72.  
  73. ' Load recordset
  74. Rs = tblSchedule_list.LoadRecordset()
  75.     tblSchedule_list.lStartRec = 1
  76.     If tblSchedule_list.lDisplayRecs <= 0 Then ' Display all records
  77.         tblSchedule_list.lDisplayRecs = tblSchedule_list.lTotalRecs
  78.     End If
  79.     If Not (tblSchedule.ExportAll AndAlso tblSchedule.Export <> "") Then
  80.         tblSchedule_list.SetUpStartRec() ' Set up start record position
  81.     End If
  82. %>
  83. <p><span class="aspnetmaker" style="white-space: nowrap;">TABLE: Schedule
  84. </span></p>
  85. <% If Security.CanSearch Then %>
  86. <% If tblSchedule.Export = "" AndAlso tblSchedule.CurrentAction = "" Then %>
  87. <a href="tblSchedulesrch.aspx">Advanced Filter</a>     
  88. <a href="javascript:ew_ToggleSearchPanel(tblSchedule_list);" style="text-decoration: none;"><img id="tblSchedule_list_SearchImage" src="images/collapse.gif" alt="" width="9" height="9" border="0"></a><span class="aspnetmaker"> Quick Filter</span><br>
  89. <br>
  90. <div id="tblSchedule_list_SearchPanel">
  91. <form name="ftblSchedulelistsrch" id="ftblSchedulelistsrch" class="ewForm" onsubmit="return tblSchedule_list.ValidateSearch(this);">
  92. <input type="hidden" id="t" name="t" value="tblSchedule" />
  93. <%
  94. If gsSearchError = "" Then
  95.     tblSchedule_list.LoadAdvancedSearch() ' Load advanced search
  96. End If
  97.  
  98. ' Render for search
  99. tblSchedule.RowType = EW_ROWTYPE_SEARCH
  100.  
  101. ' Render row
  102. tblSchedule_list.RenderRow()
  103. %>
  104. <table width="100%" class="tlcBasicSearchHeader">
  105.     <tr>
  106.         <td><span class="aspnetmaker">
  107.         Quick Filter
  108.         </span></td>
  109.     </tr>
  110. </table>
  111.  
  112. <table width="100%" class="tlcBasicSearch">
  113. <tr><td width="40%">
  114.  
  115. <table width="100%"  >
  116.     <tr>
  117.         <td width="75px"><span class="aspnetmaker">Date</span></td>
  118.         <td width="35px"><span class="ewSearchOpr">>=<input type="hidden" name="z_schDate" id="z_schDate" value=">=" /></span></td>
  119.         <td width="475px">
  120.             <table cellspacing="0" class="ewItemTable">
  121.                <tr>
  122.                 <td><span class="aspnetmaker">
  123. <input type="text" name="x_schDate" id="x_schDate" value="<%= tblSchedule.schDate.EditValue %>"<%= tblSchedule.schDate.EditAttributes %> />
  124.  <img src="images/calendar.png" id="cal_x_schDate" name="cal_x_schDate" alt="Pick a date" style="cursor:pointer;cursor:hand;" />
  125. <script type="text/javascript">
  126. Calendar.setup({
  127.     inputField : "x_schDate", // ID of the input field
  128.     ifFormat : "%m/%d/%Y", // the date format
  129.     button : "cal_x_schDate" // ID of the button
  130. });
  131. </script>
  132.                 </span></td>
  133.                 <td><span class="ewSearchOpr" id="btw0_schDate" name="btw0_schDate"><label> and </label></span></td>
  134.                 <td><span class="ewSearchOpr" id="btw0_schDate" name="btw0_schDate" ><label><=</label> <input type="hidden" name="w_schDate" id="w_schDate" value="<=" /></span></td>
  135.                 <td><span class="aspnetmaker">
  136. <input type="text" name="y_schDate" id="y_schDate" value="<%= tblSchedule.schDate.EditValue2 %>"<%= tblSchedule.schDate.EditAttributes %> />
  137.  <img src="images/calendar.png" id="cal_y_schDate" name="cal_y_schDate" alt="Pick a date" style="cursor:pointer;cursor:hand;" />
  138. <script type="text/javascript">
  139. Calendar.setup({
  140.     inputField : "y_schDate", // ID of the input field
  141.     ifFormat : "%m/%d/%Y", // the date format
  142.     button : "cal_y_schDate" // ID of the button
  143. });
  144. </script>
  145.                 </span></td>
  146.                 <td>   <span class="ewSearchOpr" id="dt_schDate" name="dt_schDate"><label><input type="radio" name="t_schDate" id="t_schDate" value="Today" onclick="tlc_SetToday(this.form);"/>Today</label> <label><input type="radio" name="t_schDate" id="t_schDate" value="Reset" onclick="tlc_ReSetToday(this.form);"/>Reset </label></span></td>
  147.             </tr>
  148.           </table>            
  149.         </td>
  150.         <td></td>
  151.     </tr>
  152.  
  153. <!-- event -->
  154.     <tr>
  155.         <td width="75px"><span class="aspnetmaker">Event</span></td>
  156.         <td width="35px"><span class="ewSearchOpr">=<input type="hidden" name="z_schEvtID" id="z_schEvtID" value="=" /></span></td>
  157.         <td width="475px">            
  158.             <table cellspacing="0" class="ewItemTable"><tr>
  159.                 <td><span class="aspnetmaker">
  160. <select id="x_schEvtID" name="x_schEvtID"<%= tblSchedule.schEvtID.EditAttributes %>>
  161. <%
  162. emptywrk = True
  163. If ew_IsArrayList(tblSchedule.schEvtID.EditValue) Then
  164.     arwrk = tblSchedule.schEvtID.EditValue
  165.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  166.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEvtID.AdvancedSearch.SearchValue) Then
  167.             selwrk = " selected=""selected"""
  168.             emptywrk = False
  169.         Else
  170.             selwrk = ""
  171.         End If
  172. %>
  173. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  174. <%= arwrk(rowcntwrk)(1) %>
  175. </option>
  176. <%
  177.     Next
  178. End If
  179. %>
  180. </select>
  181. </span></td>
  182.             </tr></table>            
  183.         </td>
  184.         <td></td>
  185.     </tr>
  186.  
  187. <!-- Part -->
  188.     <tr>
  189.         <td><span class="aspnetmaker">Part</span></td>
  190.         <td><span class="ewSearchOpr">=<input type="hidden" name="z_schPartsID" id="z_schPartsID" value="=" /></span></td>
  191.         <td>            
  192.             <table cellspacing="0" class="ewItemTable"><tr>
  193.                 <td><span class="aspnetmaker">
  194. <select id="x_schPartsID" name="x_schPartsID"<%= tblSchedule.schPartsID.EditAttributes %>>
  195. <%
  196. emptywrk = True
  197. If ew_IsArrayList(tblSchedule.schPartsID.EditValue) Then
  198.     arwrk = tblSchedule.schPartsID.EditValue
  199.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  200.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPartsID.AdvancedSearch.SearchValue) Then
  201.             selwrk = " selected=""selected"""
  202.             emptywrk = False
  203.         Else
  204.             selwrk = ""
  205.         End If
  206. %>
  207. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  208. <%= arwrk(rowcntwrk)(1) %>
  209. </option>
  210. <%
  211.     Next
  212. End If
  213. %>
  214. </select>
  215. </span></td>
  216.             </tr></table>            
  217.         </td>
  218.         <td></td>
  219.     </tr>
  220.  
  221. <!--location-->
  222.     <tr>
  223.         <td><span class="aspnetmaker">Location</span></td>
  224.         <td><span class="ewSearchOpr">=<input type="hidden" name="z_schLocID" id="z_schLocID" value="=" /></span></td>
  225.         <td>            
  226.             <table cellspacing="0" class="ewItemTable"><tr>
  227.                 <td><span class="aspnetmaker">
  228. <select id="x_schLocID" name="x_schLocID"<%= tblSchedule.schLocID.EditAttributes %>>
  229. <%
  230. emptywrk = True
  231. If ew_IsArrayList(tblSchedule.schLocID.EditValue) Then
  232.     arwrk = tblSchedule.schLocID.EditValue
  233.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  234.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schLocID.AdvancedSearch.SearchValue) Then
  235.             selwrk = " selected=""selected"""
  236.             emptywrk = False
  237.         Else
  238.             selwrk = ""
  239.         End If
  240. %>
  241. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  242. <%= arwrk(rowcntwrk)(1) %>
  243. </option>
  244. <%
  245.     Next
  246. End If
  247. %>
  248. </select>
  249. </span></td>
  250.             </tr></table>            
  251.         </td>
  252.     </tr>
  253.  
  254. <!--Employee-->
  255.     <tr>
  256.         <td><span class="aspnetmaker">Employee</span></td>
  257.         <td><span class="ewSearchOpr">=<input type="hidden" name="z_schEmpID" id="z_schEmpID" value="=" /></span></td>
  258.         <td>            
  259.             <table cellspacing="0" class="ewItemTable">
  260.                <tr>
  261.                 <td><span class="aspnetmaker">
  262. <%  If Not Security.IsAdmin And Security.IsLoggedIn() And Session("tfpssnet_Status_UserLevel") <> 4 Then ' Non system admin %>
  263. <div<%= tblSchedule.schEmpID.ViewAttributes %>><%= tblSchedule.schEmpID.EditValue %></div>
  264. <input type="hidden" name="x_schEmpID" id="x_schEmpID" value="<%= ew_HTMLEncode(tblSchedule.schEmpID.AdvancedSearch.SearchValue) %>" />
  265. <% Else %>
  266. <select id="x_schEmpID" name="x_schEmpID"<%= tblSchedule.schEmpID.EditAttributes %>>
  267. <%
  268. emptywrk = True
  269. If ew_IsArrayList(tblSchedule.schEmpID.EditValue) Then
  270.     arwrk = tblSchedule.schEmpID.EditValue
  271.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  272.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEmpID.AdvancedSearch.SearchValue) Then
  273.             selwrk = " selected=""selected"""
  274.             emptywrk = False
  275.         Else
  276.             selwrk = ""
  277.         End If
  278. %>
  279. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  280. <%= arwrk(rowcntwrk)(1) %>
  281. </option>
  282. <%
  283.     Next
  284. End If
  285. %>
  286. </select>
  287. <% End If %>
  288.               </span></td>
  289.               <td>
  290. <%  If Session("tfpssnet_Status_UserLevel") = 4 Then%>
  291.            <span class="ewSearchOpr" id="dt_schEmp" name="dt_schEmp"><label><input type="radio" name="t_schEmp" id="t_schEmp" value="Me" onclick="tlc_SetMe(this.form);"/>Me</label> <label><input type="radio" name="t_schEmp" id="t_schEmp" value="Everyone" onclick="tlc_ReSetMe(this.form);"/>Everyone </label></span>
  292. <% end if %>
  293.              </td>
  294.             </tr></table>            
  295.         </td>
  296.     </tr>
  297.  
  298.  
  299. </table>
  300.  
  301. </td>
  302. <!-- Day of Week -->
  303. <td valign="top">
  304. <table width="100%"  >
  305.     <tr>
  306.         <td width="75px"><span class="aspnetmaker">Day of Week</span></td>
  307.         <td width="35px"><span class="ewSearchOpr">=<input type="hidden" name="z_schDayOfWeek" id="z_schDayOfWeek" value="=" /></span></td>
  308.         <td width="475px">            
  309.             <table cellspacing="0" class="ewItemTable"><tr>
  310.                 <td><span class="aspnetmaker">
  311. <select id="x_schDayOfWeek" name="x_schDayOfWeek"<%= tblSchedule.schDayOfWeek.EditAttributes%>>
  312. <%
  313. emptywrk = True
  314.     If ew_IsArrayList(tblSchedule.schDayOfWeek.EditValue) Then
  315.         arwrk = tblSchedule.schDayOfWeek.EditValue
  316.         For rowcntwrk As Integer = 0 To arwrk.Count - 1
  317.             If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schDayOfWeek.AdvancedSearch.SearchValue) Then
  318.                 selwrk = " selected=""selected"""
  319.                 emptywrk = False
  320.             Else
  321.                 selwrk = ""
  322.             End If
  323. %>
  324. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  325. <%= arwrk(rowcntwrk)(1) %>
  326. </option>
  327. <%
  328.     Next
  329. End If
  330. %>
  331. </select>
  332.  
  333. </span></td>
  334.             </tr></table>            
  335.         </td>
  336.         <td></td>
  337.     </tr>
  338. <!-- Position -->
  339.     <tr>
  340.         <td width="75px"><span class="aspnetmaker">Position</span></td>
  341.         <td width="35px"><span class="ewSearchOpr">=<input type="hidden" name="z_schPosid" id="z_schPosid" value="=" /></span></td>
  342.         <td width="475px">            
  343.             <table cellspacing="0" class="ewItemTable"><tr>
  344.                 <td><span class="aspnetmaker">
  345. <select id="x_schPosID" name="x_schPosID"<%= tblSchedule.schPosID.EditAttributes %>>
  346. <%
  347.     emptywrk = True
  348.     If ew_IsArrayList(tblSchedule.schPosID.EditValue) Then
  349.         arwrk = tblSchedule.schPosID.EditValue
  350.         For rowcntwrk As Integer = 0 To arwrk.Count - 1
  351.             If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPosID.AdvancedSearch.SearchValue) Then
  352.                 selwrk = " selected=""selected"""
  353.                 emptywrk = False
  354.             Else
  355.                 selwrk = ""
  356.             End If
  357. %>
  358. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  359. <%= arwrk(rowcntwrk)(1) %>
  360. </option>
  361. <%
  362.     Next
  363. End If
  364. %>
  365. </select>
  366. </span></td>
  367.             </tr></table>            
  368.         </td>
  369.         <td></td>
  370.     </tr>
  371.  
  372. <!-- Type -->
  373.     <tr>
  374.         <td width="75px"><span class="aspnetmaker">Type</span></td>
  375.         <td width="35px"><span class="ewSearchOpr">=<input type="hidden" name="z_schTypid" id="z_schTypid" value="=" /></span></td>
  376.         <td width="475px">            
  377.             <table cellspacing="0" class="ewItemTable"><tr>
  378.                 <td><span class="aspnetmaker">
  379. <select id="x_schTypID" name="x_schTypID"<%= tblSchedule.schTypID.EditAttributes %>>
  380. <%
  381. emptywrk = True
  382.     If ew_IsArrayList(tblSchedule.schTypID.EditValue) Then
  383.         arwrk = tblSchedule.schTypID.EditValue
  384.         For rowcntwrk As Integer = 0 To arwrk.Count - 1
  385.             If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schTypID.AdvancedSearch.SearchValue) Then
  386.                 selwrk = " selected=""selected"""
  387.                 emptywrk = False
  388.             Else
  389.                 selwrk = ""
  390.             End If
  391. %>
  392. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  393. <%= arwrk(rowcntwrk)(1) %>
  394. </option>
  395. <%
  396.     Next
  397. End If
  398. %>
  399. </select>
  400. </span></td>
  401.             </tr></table>            
  402.         </td>
  403.         <td></td>
  404.     </tr>
  405.  
  406. <!-- Department -->
  407.     <tr>
  408.         <td width="75px"><span class="aspnetmaker">Department</span></td>
  409.         <td width="35px"><span class="ewSearchOpr">=<input type="hidden" name="z_schDepid" id="z_schDepid" value="=" /></span></td>
  410.         <td width="475px">            
  411.             <table cellspacing="0" class="ewItemTable"><tr>
  412.                 <td><span class="aspnetmaker">
  413. <select id="x_schDepID" name="x_schDepID"<%= tblSchedule.schDepID.EditAttributes %>>
  414. <%
  415.     emptywrk = True
  416.     If ew_IsArrayList(tblSchedule.schDepID.EditValue) Then
  417.         arwrk = tblSchedule.schDepID.EditValue
  418.         For rowcntwrk As Integer = 0 To arwrk.Count - 1
  419.             If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schDepID.AdvancedSearch.SearchValue) Then
  420.                 selwrk = " selected=""selected"""
  421.                 emptywrk = False
  422.             Else
  423.                 selwrk = ""
  424.             End If
  425. %>
  426. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  427. <%= arwrk(rowcntwrk)(1) %>
  428. </option>
  429. <%
  430.     Next
  431. End If
  432. %>
  433. </select>
  434. </span></td>
  435.             </tr></table>            
  436.         </td>
  437.         <td></td>
  438.     </tr>
  439.  
  440. <!--status-->
  441.     <tr>
  442.         <td><span class="aspnetmaker">Status</span></td>
  443.         <td><span class="ewSearchOpr">=<input type="hidden" name="z_schStatus" id="z_schStatus" value="=" /></span></td>
  444.         <td>            
  445.             <table cellspacing="0" class="ewItemTable"><tr>
  446.                 <td><span class="aspnetmaker">
  447. <select id="x_schStatus" name="x_schStatus"<%= tblSchedule.schStatus.EditAttributes %>>
  448. <%
  449. emptywrk = True
  450. If ew_IsArrayList(tblSchedule.schStatus.EditValue) Then
  451.     arwrk = tblSchedule.schStatus.EditValue
  452.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  453.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schStatus.AdvancedSearch.SearchValue) Then
  454.             selwrk = " selected=""selected"""
  455.             emptywrk = False
  456.         Else
  457.             selwrk = ""
  458.         End If
  459. %>
  460. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  461. <%= arwrk(rowcntwrk)(1) %>
  462. </option>
  463. <%
  464.     Next
  465. End If
  466. %>
  467. </select>
  468. </span></td>
  469.             </tr></table>            
  470.         </td>
  471.         <td></td>
  472.     </tr>
  473.  
  474. </table>
  475. </td></tr>
  476.  
  477. </table>
  478.  
  479.  
  480. <table width="100%" class="tlcBasicSearch">
  481.     <tr>
  482.         <td width="5%"> </td>
  483.         <td><span class="aspnetmaker">
  484.             <input type="Submit" name="Submit" id="Submit" value="Submit" /> 
  485.             <!-- <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;">  -->
  486.             <input type="Button" name="Reset" id="Reset" value="Clear Filter" onclick="parent.location='tblSchedulelist.aspx?cmd=reset'"> 
  487.             <!--<a href="<%= tblSchedule_list.PageUrl %>cmd=reset">Clear Filter</a>  -->
  488.         </span></td>
  489.     </tr>
  490. </table>
  491. </form>
  492. </div>
  493. <% End If %>
  494. <% End If %>
  495. <% tblSchedule_list.ShowMessage() %>
  496. <br />
  497. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  498.  
  499. <div class="ewGridUpperPanel">
  500. <span class="aspmaker">
  501. <table width="95%" cellpadding="0" cellspacing="0" border="0">
  502. <tr>
  503. <td width="15%" align="left">For Selected Records: </td>
  504. <td width="75%" ><a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulelist.aspx?a=confirm&key='+f.key_m;f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Confirm</a>    
  505. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulelist.aspx?a=unconfirm&key='+f.key_m;f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Un-confirm</a>    
  506. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulelist.aspx?a=cannotwork&key='+f.key_m;f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Cannot Work</a>    
  507. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulelist.aspx?a=tentative&key='+f.key_m;f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Tentative</a>     
  508. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulelist.aspx?a=mailAdd&key='+f.key_m;f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Send to Calendar</a>     
  509. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulelist.aspx?a=mailDel&key='+f.key_m;f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Delete from Calendar</a>     
  510. <a href="askEmailUnconfirmedform.aspx?empID=<%=tblSchedule.schEmpID.AdvancedSearch.SearchValue %>" onclick="<% if tblSchedule.schEmpID.AdvancedSearch.SearchValue = nothing or tblSchedule.schEmpID.AdvancedSearch.SearchValue = "$3D" then %>alert('Employee not selected');return false;<% end if %>">Email Unconfirmed Shifts</a>
  511. </td>
  512. </td>
  513. <td width="10%"><img src="images/print.gif"> <a href="askScheduleReportform.aspx">Print Schedule</a>  </td>
  514. </tr>
  515. </table>
  516. </span>
  517. </div>
  518.  
  519. <div class="ewGridUpperPanel">
  520. <span class="aspmaker">
  521. <table width="90%" cellpadding="0" cellspacing="0" border="0">
  522.  
  523. <tr>
  524. <td>
  525. <% If tblSchedule.CurrentAction <> "gridadd" AndAlso tblSchedule.CurrentAction <> "gridedit" Then %>
  526. <form name="ewpagerform" id="Form1" class="ewForm">
  527. <table border="0" cellspacing="0" cellpadding="0" class="ewPager">
  528.     <tr>
  529.         <td>
  530. <span class="aspnetmaker">
  531. <% If tblSchedule_list.Pager Is Nothing Then tblSchedule_list.Pager = New cNumericPager(tblSchedule_list.lStartRec, tblSchedule_list.lDisplayRecs, tblSchedule_list.lTotalRecs, tblSchedule_list.lRecRange) %>
  532. <% If tblSchedule_list.Pager.RecordCount > 0 Then %>
  533.     <% If tblSchedule_list.Pager.FirstButton.Enabled Then %>
  534.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.FirstButton.Start %>">First</a> 
  535.     <% End If %>
  536.     <% If tblSchedule_list.Pager.PrevButton.Enabled Then %>
  537.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.PrevButton.Start %>">Previous</a> 
  538.     <% End If %>
  539.     <% For Each PagerItem As cPagerItem In tblSchedule_list.Pager.Items %>
  540.         <% If PagerItem.Enabled Then %><a href="<%= tblSchedule_list.PageUrl %>start=<%= PagerItem.Start %>"><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %></a><% End If %> 
  541.     <% Next %>
  542.     <% If tblSchedule_list.Pager.NextButton.Enabled Then %>
  543.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.NextButton.Start %>">Next</a> 
  544.     <% End If %>
  545.     <% If tblSchedule_list.Pager.LastButton.Enabled Then %>
  546.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.LastButton.Start %>">Last</a> 
  547.     <% End If %>
  548.     <% If tblSchedule_list.Pager.ButtonCount > 0 Then %>    <%    End If %>
  549.     Records <%= tblSchedule_list.Pager.FromIndex %> to <%= tblSchedule_list.Pager.ToIndex %> of <%= tblSchedule_list.Pager.RecordCount %>
  550. <% Else %>
  551.     <% If Security.CanList Then %>
  552.     <% If tblSchedule_list.sSrchWhere = "0=101" Then %>
  553.     Please enter search criteria
  554.     <% Else %>
  555.     No records found
  556.     <% End If %>
  557.     <% Else %>
  558.     You do not have the right permission to view the page
  559.     <% End If %>
  560. <% End If %>
  561. </span>
  562.         </td>
  563. <% If tblSchedule_list.lTotalRecs > 0 Then %>
  564.         <td>    </td>
  565.         <td><table border="0" cellspacing="0" cellpadding="0"><tr><td>Page Size </td><td>
  566. <input type="hidden" id="Hidden1" name="t" value="tblSchedule" />
  567. <select name="<%= EW_TABLE_REC_PER_PAGE %>" id="Select1" onchange="this.form.submit();" class="aspnetmaker">
  568. <option value="10"<% If tblSchedule_list.lDisplayRecs = 10 Then %> selected="selected"<% End If %>>10</option>
  569. <option value="20"<% If tblSchedule_list.lDisplayRecs = 20 Then %> selected="selected"<% End If %>>20</option>
  570. <option value="50"<% If tblSchedule_list.lDisplayRecs = 50 Then %> selected="selected"<% End If %>>50</option>
  571. <option value="ALL"<% If tblSchedule.RecordsPerPage = -1 Then %> selected="selected"<% End If %>>All</option>
  572. </select></td></tr></table>
  573.         </td>
  574. <% End If %>
  575.     </tr>
  576. </table>
  577. </form>
  578. <% End If %>
  579. </td>
  580. </tr>
  581. </table>
  582. <table border="0" cellspacing="0" cellpadding="0" class="ewPager">
  583. <tr>
  584. <td width="140px" align="left">
  585. <% If Security.CanAdd Then %>
  586. <a href="<%= tblSchedule.AddUrl %>">Add Single Shift</a>  
  587. <% End If %>
  588. </td>
  589. <td width="160px" align="left">
  590. <% If Security.CanAdd Then %>
  591. <a href="askScheduleRecurringform.aspx">Add Recurring Shifts</a>  
  592. <% End If %>
  593. </td>
  594. <td>
  595. <% If Security.CanEdit Then %>
  596. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblScheduleupdate.aspx';f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Update Selected Records</a>          
  597. <% End If %>
  598. <%  If Security.CanDelete Then%>
  599. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulemdelete.aspx';f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Delete Selected Records</a>    
  600. <% End If %>
  601. </td>
  602. </tr>
  603. </table>
  604. </span>
  605. </div>
  606.  
  607. <div class="ewGridMiddlePanel">
  608. <form name="ftblSchedulelist" id="ftblSchedulelist" class="ewForm" method="post">
  609. <% If tblSchedule_list.lTotalRecs > 0 Then %>
  610. <table cellspacing="0" rowhighlightclass="ewTableHighlightRow" rowselectclass="ewTableSelectRow" roweditclass="ewTableEditRow" class="ewTable ewTableSeparate">
  611. <%
  612.     tblSchedule_list.lOptionCnt = 0
  613. If Security.CanView Then
  614.     tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' View
  615. End If
  616. If Security.CanEdit Then
  617.     tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' Edit
  618. End If
  619. If Security.CanDelete Then
  620.     tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' Delete
  621. End If
  622. If Security.CanEdit Then
  623.     tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + 1 ' Multi-select
  624. End If
  625.     tblSchedule_list.lOptionCnt = tblSchedule_list.lOptionCnt + tblSchedule_list.ListOptions.Items.Count ' Custom list options
  626. %>
  627. <%= tblSchedule.TableCustomInnerHTML %>
  628. <thead><!-- Table header -->
  629.     <tr class="ewTableHeader">
  630. <% If tblSchedule.Export = "" Then %>
  631. <% If Security.CanView Then %>
  632. <td style="white-space: nowrap;"> </td>
  633. <% End If %>
  634. <% If Security.CanEdit Then %>
  635. <td style="white-space: nowrap;"> </td>
  636. <% End If %>
  637. <%  If Security.CanAdd Then%>
  638. <td style="white-space: nowrap;"> </td>
  639. <% End If %>
  640. <% If Security.CanDelete Then %>
  641. <td style="white-space: nowrap;"> </td>
  642. <% End If %>
  643. <% If Security.CanEdit Then %>
  644. <td style="white-space: nowrap;">
  645. <input type="checkbox" name="key" id="key" class="aspnetmaker" onclick="tblSchedule_list.SelectAllKey(this);" />
  646. </td>
  647. <% End If %>
  648. <%
  649.  
  650. ' Custom list options
  651. For i As Integer = 0 to tblSchedule_list.ListOptions.Items.Count -1
  652.     If tblSchedule_list.ListOptions.Items(i).Visible Then Response.Write(tblSchedule_list.ListOptions.Items(i).HeaderCellHtml)
  653. Next
  654. %>
  655. <% End If %>
  656. <% If tblSchedule.schDate.Visible Then ' schDate %>
  657.     <% If tblSchedule.SortUrl(tblSchedule.schDate) = "" Then %>
  658.         <td>Date</td>
  659.     <% Else %>
  660.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schDate) %>',2);">
  661.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Date</td><td style="width: 10px;"><% If tblSchedule.schDate.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schDate.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  662.         </td>
  663.     <% End If %>
  664. <% End If %>        
  665.  
  666. <% If tblSchedule.schDayOfWeek.Visible Then ' schDayOfWeek %>
  667.     <% If tblSchedule.SortUrl(tblSchedule.schDayOfWeek) = "" Then%>
  668.         <td>Day</td>
  669.     <% Else %>
  670.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schDayOfWeek)%>',2);">
  671.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Day</td><td style="width: 10px;"><% If tblSchedule.schDayOfWeek.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schDayOfWeek.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  672.         </td>
  673.     <% End If %>
  674. <% End If %>        
  675.  
  676.  
  677. <% If tblSchedule.schEvtID.Visible Then ' schEvtID %>
  678.     <% If tblSchedule.SortUrl(tblSchedule.schEvtID) = "" Then %>
  679.         <td>Event</td>
  680.     <% Else %>
  681.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schEvtID) %>',2);">
  682.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Event</td><td style="width: 10px;"><% If tblSchedule.schEvtID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schEvtID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  683.         </td>
  684.     <% End If %>
  685. <% End If %>        
  686.  
  687. <% If tblSchedule.schPartsID.Visible Then ' schPartsID %>
  688.     <% If tblSchedule.SortUrl(tblSchedule.schPartsID) = "" Then %>
  689.         <td>Part</td>
  690.     <% Else %>
  691.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schPartsID) %>',2);">
  692.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Part</td><td style="width: 10px;"><% If tblSchedule.schPartsID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schPartsID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  693.         </td>
  694.     <% End If %>
  695. <% End If %>        
  696.  
  697. <%  If tblSchedule.schNotes.Visible Then ' schNotes %>
  698.     <% If tblSchedule.SortUrl(tblSchedule.schNotes) = "" Then%>
  699.         <td>Note</td>
  700.     <% Else %>
  701.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schNotes) %>',2);">
  702.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Note</td><td style="width: 10px;"><% If tblSchedule.schNotes.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schNotes.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  703.         </td>
  704.     <% End If %>
  705. <% End If %>        
  706.  
  707. <% If tblSchedule.schCallTime.Visible Then ' schCallTime %>
  708.     <% If tblSchedule.SortUrl(tblSchedule.schCallTime) = "" Then %>
  709.         <td>Call Time</td>
  710.     <% Else %>
  711.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schCallTime) %>',2);">
  712.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Call Time</td><td style="width: 10px;"><% If tblSchedule.schCallTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schCallTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  713.         </td>
  714.     <% End If %>
  715. <% End If %>        
  716. <% If tblSchedule.schStartTime.Visible Then ' schStartTime %>
  717.     <% If tblSchedule.SortUrl(tblSchedule.schStartTime) = "" Then %>
  718.         <td>Start Time</td>
  719.     <% Else %>
  720.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schStartTime) %>',2);">
  721.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Start Time</td><td style="width: 10px;"><% If tblSchedule.schStartTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schStartTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  722.         </td>
  723.     <% End If %>
  724. <% End If %>        
  725. <% If tblSchedule.schEndTime.Visible Then ' schEndTime %>
  726.     <% If tblSchedule.SortUrl(tblSchedule.schEndTime) = "" Then %>
  727.         <td>End Time</td>
  728.     <% Else %>
  729.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schEndTime) %>',2);">
  730.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>End Time</td><td style="width: 10px;"><% If tblSchedule.schEndTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schEndTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  731.         </td>
  732.     <% End If %>
  733. <% End If %>        
  734. <% If tblSchedule.schOutTime.Visible Then ' schOutTime %>
  735.     <% If tblSchedule.SortUrl(tblSchedule.schOutTime) = "" Then %>
  736.         <td>Out Time</td>
  737.     <% Else %>
  738.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schOutTime) %>',2);">
  739.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Out Time</td><td style="width: 10px;"><% If tblSchedule.schOutTime.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schOutTime.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  740.         </td>
  741.     <% End If %>
  742. <% End If %>        
  743. <% If tblSchedule.schLocID.Visible Then ' schLocID %>
  744.     <% If tblSchedule.SortUrl(tblSchedule.schLocID) = "" Then %>
  745.         <td>Location</td>
  746.     <% Else %>
  747.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schLocID) %>',2);">
  748.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Location</td><td style="width: 10px;"><% If tblSchedule.schLocID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schLocID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  749.         </td>
  750.     <% End If %>
  751. <% End If %>        
  752. <% If tblSchedule.schEmpID.Visible Then ' schEmpID %>
  753.     <% If tblSchedule.SortUrl(tblSchedule.schEmpID) = "" Then %>
  754.         <td>Employee</td>
  755.     <% Else %>
  756.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schEmpID) %>',2);">
  757.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Employee</td><td style="width: 10px;"><% If tblSchedule.schEmpID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schEmpID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  758.         </td>
  759.     <% End If %>
  760. <% End If %>        
  761. <% If tblSchedule.schPosID.Visible Then ' schPosID %>
  762.     <% If tblSchedule.SortUrl(tblSchedule.schPosID) = "" Then %>
  763.         <td>Position</td>
  764.     <% Else %>
  765.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schPosID) %>',2);">
  766.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Position</td><td style="width: 10px;"><% If tblSchedule.schPosID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schPosID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  767.         </td>
  768.     <% End If %>
  769. <% End If %>        
  770.  
  771. <% If tblSchedule.schTypID.Visible Then ' schTypID %>
  772.     <% If tblSchedule.SortUrl(tblSchedule.schTypID) = "" Then %>
  773.         <td>Type</td>
  774.     <% Else %>
  775.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schTypID) %>',2);">
  776.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Type</td><td style="width: 10px;"><% If tblSchedule.schTypID.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schTypID.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  777.         </td>
  778.     <% End If %>
  779. <% End If %>        
  780.  
  781. <%  If tblSchedule.schDepID.Visible Then ' schDepID %>
  782.     <% If tblSchedule.SortUrl(tblSchedule.schDepID) = "" Then%>
  783.         <td>Department</td>
  784.     <% Else %>
  785.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schDepID) %>',2);">
  786.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Department</td><td style="width: 10px;"><% If tblSchedule.schDepID.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schDepID.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  787.         </td>
  788.     <% End If %>
  789. <% End If %>        
  790.  
  791. <% If tblSchedule.schActualStart.Visible Then ' schActualStart %>
  792.     <% If tblSchedule.SortUrl(tblSchedule.schActualStart) = "" Then %>
  793.         <td>Actual Start</td>
  794.     <% Else %>
  795.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schActualStart) %>',2);">
  796.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Actual Start</td><td style="width: 10px;"><% If tblSchedule.schActualStart.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schActualStart.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  797.         </td>
  798.     <% End If %>
  799. <% End If %>        
  800. <% If tblSchedule.schActualEnd.Visible Then ' schActualEnd %>
  801.     <% If tblSchedule.SortUrl(tblSchedule.schActualEnd) = "" Then %>
  802.         <td>Actual End</td>
  803.     <% Else %>
  804.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schActualEnd) %>',2);">
  805.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Actual End</td><td style="width: 10px;"><% If tblSchedule.schActualEnd.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schActualEnd.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  806.         </td>
  807.     <% End If %>
  808. <% End If %>        
  809.  
  810. <%--<% If tblSchedule.schDoubleBooked.Visible Then ' schDoubleBooked %>
  811.     <% If tblSchedule.SortUrl(tblSchedule.schDoubleBooked) = "" Then %>
  812.         <td>Dbl Bkd</td>
  813.     <% Else %>
  814.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schDoubleBooked) %>',2);">
  815.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Dbl Bkd</td><td style="width: 10px;"><% If tblSchedule.schDoubleBooked.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schDoubleBooked.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  816.         </td>
  817.     <% End If %>
  818. <% End If %>        
  819. --%>
  820.  
  821. <% If tblSchedule.schStatus.Visible Then ' schStatus %>
  822.     <% If tblSchedule.SortUrl(tblSchedule.schStatus) = "" Then %>
  823.         <td>Status</td>
  824.     <% Else %>
  825.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblSchedule.SortUrl(tblSchedule.schStatus) %>',2);">
  826.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Status</td><td style="width: 10px;"><% If tblSchedule.schStatus.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblSchedule.schStatus.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  827.         </td>
  828.     <% End If %>
  829. <% End If %>        
  830.  
  831.     </tr>
  832. </thead>
  833. <tbody><!-- Table body -->
  834. <%
  835. If (tblSchedule.ExportAll AndAlso tblSchedule.Export <> "") Then
  836.     tblSchedule_list.lStopRec = tblSchedule_list.lTotalRecs
  837. Else
  838.     tblSchedule_list.lStopRec = tblSchedule_list.lStartRec + tblSchedule_list.lDisplayRecs - 1 ' Set the last record to display
  839. End If
  840. If tblSchedule.CurrentAction = "gridadd" AndAlso tblSchedule_list.lStopRec = -1 Then
  841.     tblSchedule_list.lStopRec = EW_GRIDADD_ROWS
  842. End If 
  843.  
  844. ' Move to first record
  845. For i As Integer = 1 to tblSchedule_list.lStartRec - 1
  846.     If Rs.Read() Then    tblSchedule_list.lRecCnt = tblSchedule_list.lRecCnt + 1
  847. Next        
  848. tblSchedule_list.lRowCnt = 0
  849.  
  850. ' Output data rows
  851. Do While (tblSchedule.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (tblSchedule_list.lRecCnt < tblSchedule_list.lStopRec)
  852.     tblSchedule_list.lRecCnt = tblSchedule_list.lRecCnt + 1
  853.     If tblSchedule_list.lRecCnt >= tblSchedule_list.lStartRec Then
  854.         tblSchedule_list.lRowCnt = tblSchedule_list.lRowCnt + 1
  855.     tblSchedule.CssClass = ""
  856.     tblSchedule.CssStyle = ""
  857.     tblSchedule.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'"
  858.     If tblSchedule.CurrentAction = "gridadd" Then
  859.         tblSchedule_list.LoadDefaultValues() ' Load default values
  860.     Else
  861.         tblSchedule_list.LoadRowValues(Rs) ' Load row values
  862.     End If
  863.     tblSchedule.RowType = EW_ROWTYPE_VIEW ' Render view
  864.  
  865.     ' Render row
  866.     tblSchedule_list.RenderRow()
  867. %>
  868.     <tr<%= tblSchedule.RowAttributes %>>
  869. <% If tblSchedule.Export = "" Then %>
  870. <% If Security.CanView Then %>
  871. <td style="white-space: nowrap;"><span class="aspnetmaker"><% If tblSchedule_list.ShowOptionLink() Then %>
  872. <a href="<%= tblSchedule.ViewUrl %>"><img src='images/view.gif' alt='View' title='View' width='16' height='16' border='0'></a>
  873. <% End If %></span></td>
  874. <% End If %>
  875. <% If Security.CanEdit Then %>
  876. <td style="white-space: nowrap;"><span class="aspnetmaker"><% If tblSchedule_list.ShowOptionLink() Then %>
  877. <a href="<%= tblSchedule.EditUrl %>"><img src='images/edit.gif' alt='Edit' title='Edit' width='16' height='16' border='0'></a>
  878. <% End If %></span></td>
  879. <% End If %>
  880.  
  881. <% If Security.CanAdd Then %>
  882. <td style="white-space: nowrap;"><span class="aspnetmaker"><% If tblSchedule_list.ShowOptionLink() Then %>
  883. <a href="<%= tblSchedule.CopyUrl %>"><img src='images/copy.gif' alt='Copy' title='Copy' width='16' height='16' border='0'></a>
  884. <% End If %></span></td>
  885. <% End If %>
  886.  
  887. <% If Security.CanDelete Then %>
  888. <td style="white-space: nowrap;"><span class="aspnetmaker"><% If tblSchedule_list.ShowOptionLink() Then %>
  889. <a href="<%= tblSchedule.DeleteUrl %>"><img src='images/delete.gif' alt='Delete' title='Delete' width='16' height='16' border='0'></a>
  890. <% End If %></span></td>
  891. <% End If %>
  892. <% If Security.CanEdit Then %>
  893. <td style="white-space: nowrap;"><span class="aspnetmaker"><% If tblSchedule_list.ShowOptionLink() Then %>
  894. <input type="checkbox" name="key_m" id="key_m" value="<%= Server.HtmlEncode(Convert.ToString(tblSchedule.schSchID.CurrentValue)) %>" class="aspnetmaker" onclick='ew_ClickMultiCheckbox(this);' />
  895. <% End If %></span></td>
  896. <% End If %>
  897. <%
  898.  
  899. ' Custom list options
  900. For i As Integer = 0 to tblSchedule_list.ListOptions.Items.Count -1
  901.     If tblSchedule_list.ListOptions.Items(i).Visible Then Response.Write(tblSchedule_list.ListOptions.Items(i).BodyCellHtml)
  902. Next
  903. %>
  904. <% End If %>
  905.     <% If tblSchedule.schDate.Visible Then ' schDate %>
  906.         <td<%= tblSchedule.schDate.CellAttributes %>>
  907. <div<%= tblSchedule.schDate.ViewAttributes %>>
  908. <% 
  909.     Response.Write(tblSchedule.schDate.ListViewValue & " ")
  910.     'Try
  911.     '    Select Case CDate(tblSchedule.schDate.ListViewValue).DayOfWeek
  912.     '        Case DayOfWeek.Sunday
  913.     '            Response.Write("(Sun)")
  914.     '        Case DayOfWeek.Monday
  915.     '            Response.Write("(Mon)")
  916.     '        Case DayOfWeek.Tuesday
  917.     '            Response.Write("(Tue)")
  918.     '        Case DayOfWeek.Wednesday
  919.     '            Response.Write("(Wed)")
  920.     '        Case DayOfWeek.Thursday
  921.     '            Response.Write("(Thu)")
  922.     '        Case DayOfWeek.Friday
  923.     '            Response.Write("(Fri)")
  924.     '        Case DayOfWeek.Saturday
  925.     '            Response.Write("(Sat)")
  926.     '    End Select
  927.     'Catch
  928.     'End Try
  929. %></div>
  930. </td>
  931.     <% End If %>
  932.  
  933.     <% If tblSchedule.schDayOfWeek.Visible Then ' schDayOfWeek %>
  934.         <td<%= tblSchedule.schDayOfWeek.CellAttributes%>>
  935. <div<%= tblSchedule.schDayOfWeek.ViewAttributes%>><%= tblSchedule.schDayOfWeek.ListViewValue%></div>
  936. </td>
  937.     <% End If %>
  938.  
  939.     <% If tblSchedule.schEvtID.Visible Then ' schEvtID %>
  940.         <td<%= tblSchedule.schEvtID.CellAttributes %>>
  941. <div<%= tblSchedule.schEvtID.ViewAttributes %>><%= tblSchedule.schEvtID.ListViewValue %></div>
  942. </td>
  943.     <% End If %>
  944.     
  945.     <% If tblSchedule.schPartsID.Visible Then ' schPartsID %>
  946.         <td<%= tblSchedule.schPartsID.CellAttributes %>>
  947. <div<%= tblSchedule.schPartsID.ViewAttributes %>><%= tblSchedule.schPartsID.ListViewValue %></div>
  948. </td>
  949.     <% End If %>
  950.  
  951.     <% If tblSchedule.schNotes.Visible Then ' schNotes %>
  952.     <% If Len(tblSchedule.schNotes.ListViewValue) < 30 then %>
  953.         <td<%= tblSchedule.schNotes.CellAttributes %>>
  954. <div<%= tblSchedule.schNotes.ViewAttributes %>><%= tblSchedule.schNotes.ListViewValue%></div>
  955. </td>
  956.     <% Else%>
  957.         <td<%= tblSchedule.schNotes.CellAttributes %> title="<%=tblSchedule.schNotes.ListViewValue%>">
  958. <div<%= tblSchedule.schNotes.ViewAttributes %>><%= Left(tblSchedule.schNotes.ListViewValue, 30) & "..."%></div>
  959. </td>
  960.     <% End If %>
  961.     <% End If %>
  962.  
  963.     <% If tblSchedule.schCallTime.Visible Then ' schCallTime %>
  964.         <td<%= tblSchedule.schCallTime.CellAttributes %>>
  965. <div<%= tblSchedule.schCallTime.ViewAttributes %>><%= tblSchedule.schCallTime.ListViewValue %></div>
  966. </td>
  967.     <% End If %>
  968.     <% If tblSchedule.schStartTime.Visible Then ' schStartTime %>
  969.         <td<%= tblSchedule.schStartTime.CellAttributes %>>
  970. <div<%= tblSchedule.schStartTime.ViewAttributes %>><%= tblSchedule.schStartTime.ListViewValue %></div>
  971. </td>
  972.     <% End If %>
  973.     <% If tblSchedule.schEndTime.Visible Then ' schEndTime %>
  974.         <td<%= tblSchedule.schEndTime.CellAttributes %>>
  975. <div<%= tblSchedule.schEndTime.ViewAttributes %>><%= tblSchedule.schEndTime.ListViewValue %></div>
  976. </td>
  977.     <% End If %>
  978.     <% If tblSchedule.schOutTime.Visible Then ' schOutTime %>
  979.         <td<%= tblSchedule.schOutTime.CellAttributes %>>
  980. <div<%= tblSchedule.schOutTime.ViewAttributes %>><%= tblSchedule.schOutTime.ListViewValue %></div>
  981. </td>
  982.     <% End If %>
  983.     <% If tblSchedule.schLocID.Visible Then ' schLocID %>
  984.         <td<%= tblSchedule.schLocID.CellAttributes %>>
  985. <div<%= tblSchedule.schLocID.ViewAttributes %>><%= tblSchedule.schLocID.ListViewValue %></div>
  986. </td>
  987.     <% End If %>
  988.     <% If tblSchedule.schEmpID.Visible Then ' schEmpID %>
  989.         <td<%= tblSchedule.schEmpID.CellAttributes %>>
  990. <div<%= tblSchedule.schEmpID.ViewAttributes %>><%= tblSchedule.schEmpID.ListViewValue %></div>
  991. </td>
  992.     <% End If %>
  993.     <% If tblSchedule.schPosID.Visible Then ' schPosID %>
  994.         <td<%= tblSchedule.schPosID.CellAttributes %>>
  995. <div<%= tblSchedule.schPosID.ViewAttributes %>><%= tblSchedule.schPosID.ListViewValue %></div>
  996. </td>
  997.     <% End If %>
  998.  
  999.     <% If tblSchedule.schTypID.Visible Then ' schTypID %>
  1000.         <td<%= tblSchedule.schTypID.CellAttributes %>>
  1001. <div<%= tblSchedule.schTypID.ViewAttributes %>><%= tblSchedule.schTypID.ListViewValue %></div>
  1002. </td>
  1003.     <% End If %>
  1004.  
  1005.     <% If tblSchedule.schDepID.Visible Then ' schDepID %>
  1006.         <td<%= tblSchedule.schDepID.CellAttributes %>>
  1007. <div<%= tblSchedule.schDepID.ViewAttributes %>><%= tblSchedule.schDepID.ListViewValue%></div>
  1008. </td>
  1009.     <% End If %>
  1010.  
  1011.     <% If tblSchedule.schActualStart.Visible Then ' schActualStart %>
  1012.         <td<%= tblSchedule.schActualStart.CellAttributes %>>
  1013. <div<%= tblSchedule.schActualStart.ViewAttributes %>><%= tblSchedule.schActualStart.ListViewValue %></div>
  1014. </td>
  1015.     <% End If %>
  1016.     <% If tblSchedule.schActualEnd.Visible Then ' schActualEnd %>
  1017.         <td<%= tblSchedule.schActualEnd.CellAttributes %>>
  1018. <div<%= tblSchedule.schActualEnd.ViewAttributes %>><%= tblSchedule.schActualEnd.ListViewValue %></div>
  1019. </td>
  1020.     <% End If %>
  1021.  
  1022. <%--    <% If tblSchedule.schDoubleBooked.Visible Then ' schDoubleBooked %>
  1023.         <td<%= tblSchedule.schDoubleBooked.CellAttributes %>>
  1024. <% If Convert.ToString(tblSchedule.schDoubleBooked.CurrentValue) = "1" Then %>
  1025. <input type="checkbox" value="<%= tblSchedule.schDoubleBooked.ListViewValue %>" checked onclick="this.form.reset();" disabled="disabled" />
  1026. <% Else %>
  1027. <input type="checkbox" value="<%= tblSchedule.schDoubleBooked.ListViewValue %>" onclick="this.form.reset();" disabled="disabled" />
  1028. <% End If %>
  1029. </td>
  1030.     <% End If %>
  1031. --%>
  1032.  
  1033.     <% If tblSchedule.schStatus.Visible Then ' schStatus %>
  1034.         <td<%= tblSchedule.schStatus.CellAttributes %>>
  1035. <div<%= tblSchedule.schStatus.ViewAttributes %>>
  1036. <% 
  1037. Select tblSchedule.schStatus.ListViewValue
  1038.         Case "Confirmed"
  1039.             Response.Write("<img src=""images/Status_Confirmed.gif"" alt=""Confirmed""/>")
  1040.         Case "Unconfirmed"
  1041.             Response.Write("<img src=""images/Status_UnConfirmed.gif"" alt=""Unconfirmed""/>")
  1042.         Case "Cannot Work"
  1043.             Response.Write("<img src=""images/Status_CannotWork.gif"" alt=""Cannot Work""/>")
  1044.         Case "Tentative"
  1045.             Response.Write("<img src=""images/Status_Tentative.gif"" alt=""Tentative""/>")
  1046.         Case "No Show"
  1047.             Response.Write("<img src=""images/Status_NoShow.gif"" alt=""No Show""/>")
  1048.         Case "Sick"
  1049.             Response.Write("<img src=""images/Status_Sick.gif"" alt=""Sick""/>")
  1050.     End Select
  1051.  
  1052. %></div>
  1053. </td>
  1054.     <% End If %>
  1055.  
  1056.     </tr>
  1057. <%
  1058.     End If
  1059. Loop
  1060. %>
  1061. </tbody>
  1062. </table>
  1063. <% End If %>
  1064. </form>
  1065. <%
  1066.  
  1067. ' Close recordset
  1068. Rs.Close()
  1069. Rs.Dispose()
  1070. %>
  1071. </div>
  1072. <% If tblSchedule.Export = "" Then %>
  1073. <div class="ewGridLowerPanel">
  1074. <% If tblSchedule.CurrentAction <> "gridadd" AndAlso tblSchedule.CurrentAction <> "gridedit" Then %>
  1075. <form name="ewpagerform" id="ewpagerform" class="ewForm">
  1076. <table border="0" cellspacing="0" cellpadding="0" class="ewPager">
  1077.     <tr>
  1078.         <td>
  1079. <span class="aspnetmaker">
  1080. <% If tblSchedule_list.Pager Is Nothing Then tblSchedule_list.Pager = New cNumericPager(tblSchedule_list.lStartRec, tblSchedule_list.lDisplayRecs, tblSchedule_list.lTotalRecs, tblSchedule_list.lRecRange) %>
  1081. <% If tblSchedule_list.Pager.RecordCount > 0 Then %>
  1082.     <% If tblSchedule_list.Pager.FirstButton.Enabled Then %>
  1083.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.FirstButton.Start %>">First</a> 
  1084.     <% End If %>
  1085.     <% If tblSchedule_list.Pager.PrevButton.Enabled Then %>
  1086.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.PrevButton.Start %>">Previous</a> 
  1087.     <% End If %>
  1088.     <% For Each PagerItem As cPagerItem In tblSchedule_list.Pager.Items %>
  1089.         <% If PagerItem.Enabled Then %><a href="<%= tblSchedule_list.PageUrl %>start=<%= PagerItem.Start %>"><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %></a><% End If %> 
  1090.     <% Next %>
  1091.     <% If tblSchedule_list.Pager.NextButton.Enabled Then %>
  1092.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.NextButton.Start %>">Next</a> 
  1093.     <% End If %>
  1094.     <% If tblSchedule_list.Pager.LastButton.Enabled Then %>
  1095.     <a href="<%= tblSchedule_list.PageUrl %>start=<%= tblSchedule_list.Pager.LastButton.Start %>">Last</a> 
  1096.     <% End If %>
  1097.     <% If tblSchedule_list.Pager.ButtonCount > 0 Then %>    <%    End If %>
  1098.     Records <%= tblSchedule_list.Pager.FromIndex %> to <%= tblSchedule_list.Pager.ToIndex %> of <%= tblSchedule_list.Pager.RecordCount %>
  1099. <% Else %>
  1100.     <% If Security.CanList Then %>
  1101.     <% If tblSchedule_list.sSrchWhere = "0=101" Then %>
  1102.     Please enter search criteria
  1103.     <% Else %>
  1104.     No records found
  1105.     <% End If %>
  1106.     <% Else %>
  1107.     You do not have the right permission to view the page
  1108.     <% End If %>
  1109. <% End If %>
  1110. </span>
  1111.         </td>
  1112. <% If tblSchedule_list.lTotalRecs > 0 Then %>
  1113.         <td>    </td>
  1114.         <td><table border="0" cellspacing="0" cellpadding="0"><tr><td>Page Size </td><td>
  1115. <input type="hidden" id="t" name="t" value="tblSchedule" />
  1116. <select name="<%= EW_TABLE_REC_PER_PAGE %>" id="<%= EW_TABLE_REC_PER_PAGE %>" onchange="this.form.submit();" class="aspnetmaker">
  1117. <option value="10"<% If tblSchedule_list.lDisplayRecs = 10 Then %> selected="selected"<% End If %>>10</option>
  1118. <option value="20"<% If tblSchedule_list.lDisplayRecs = 20 Then %> selected="selected"<% End If %>>20</option>
  1119. <option value="50"<% If tblSchedule_list.lDisplayRecs = 50 Then %> selected="selected"<% End If %>>50</option>
  1120. <option value="ALL"<% If tblSchedule.RecordsPerPage = -1 Then %> selected="selected"<% End If %>>All</option>
  1121. </select></td></tr></table>
  1122.         </td>
  1123. <% End If %>
  1124.     </tr>
  1125. </table>
  1126. </form>
  1127. <% End If %>
  1128. <% 'If tblSchedule_list.lTotalRecs > 0 Then %>
  1129. <div class="aspnetmaker">
  1130. <table border="0" cellspacing="0" cellpadding="0" class="ewPager">
  1131. <tr>
  1132. <td width="140px" align="left">
  1133. <% If Security.CanAdd Then %>
  1134. <a href="<%= tblSchedule.AddUrl %>">Add Single Shift</a>  
  1135. <% End If %>
  1136. </td>
  1137. <td width="160px" align="left">
  1138. <% If Security.CanAdd Then %>
  1139. <a href="askScheduleRecurringform.aspx">Add Recurring Shifts</a>  
  1140. <% End If %>
  1141. </td>
  1142. <td>
  1143. <% If Security.CanEdit Then %>
  1144. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblScheduleupdate.aspx';f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Update Selected Records</a>          
  1145. <% End If %>
  1146. <%  If Security.CanDelete Then%>
  1147. <a href="" onclick="f=ew_GetForm('ftblSchedulelist');if (!ew_KeySelected(f)) alert('No records selected'); else {f.action='tblSchedulemdelete.aspx';f.encoding='application/x-www-form-urlencoded';f.submit();};return false;">Delete Selected Records</a>    
  1148. <% End If %>
  1149. </td>
  1150. </tr>
  1151. </table>
  1152. </div>
  1153. <% End If %>
  1154. </td></tr></table>
  1155. <% If tblSchedule.Export = "" AndAlso tblSchedule.CurrentAction = "" Then %>
  1156. <script type="text/javascript">
  1157. <!--
  1158. //ew_ToggleSearchPanel(tblSchedule_list); // uncomment to init search panel as collapsed
  1159. //-->
  1160. </script>
  1161. <% End If %>
  1162. <% If tblSchedule.Export = "" Then %>
  1163. <script language="JavaScript" type="text/javascript">
  1164. <!--
  1165. // Write your table-specific startup script here
  1166. // document.write("page loaded");
  1167. //-->
  1168. </script>
  1169. <% End If %>
  1170. </asp:Content>
  1171.