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