home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblScheduleedit.aspx < prev    next >
Text File  |  2014-01-08  |  21KB  |  494 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblScheduleedit.aspx.vb" Inherits="tblScheduleedit" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <script type="text/javascript">
  4. <!--
  5. // Create page object
  6. var tblSchedule_edit = new ew_Page("tblSchedule_edit");
  7. // page properties
  8. tblSchedule_edit.PageID = "edit"; // page ID
  9. var EW_PAGE_ID = tblSchedule_edit.PageID; // for backward compatibility
  10. // extend page with ValidateForm function
  11. tblSchedule_edit.ValidateForm = function(fobj) {
  12.     if (!this.ValidateRequired)
  13.         return true; // ignore validation
  14.     if (fobj.a_confirm && fobj.a_confirm.value == "F")
  15.         return true;
  16.     var i, elm, aelm, infix;
  17.     var rowcnt = (fobj.key_count) ? Number(fobj.key_count.value) : 1;
  18.     for (i=0; i<rowcnt; i++) {
  19.         infix = (fobj.key_count) ? String(i+1) : "";
  20.         elm = fobj.elements["x" + infix + "_schDate"];
  21.         if (elm && !ew_HasValue(elm))
  22.             return ew_OnError(this, elm, "Please enter required field - Date");
  23.         elm = fobj.elements["x" + infix + "_schDate"];
  24.         if (elm && !ew_CheckUSDate(elm.value))
  25.             return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Date");
  26.         elm = fobj.elements["x" + infix + "_schEvtID"];
  27.         if (elm && !ew_HasValue(elm))
  28.             return ew_OnError(this, elm, "Please enter required field - Event");
  29.         elm = fobj.elements["x" + infix + "_schPartsID"];
  30.         if (elm && !ew_HasValue(elm))
  31.             return ew_OnError(this, elm, "Please enter required field - Part");
  32. //        elm = fobj.elements["x" + infix + "_schCallTime"];
  33. //        if (elm && !ew_CheckTime(elm.value))
  34. //            return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Call Time");
  35. //        elm = fobj.elements["x" + infix + "_schStartTime"];
  36. //        if (elm && !ew_CheckTime(elm.value))
  37. //            return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Start Time");
  38. //        elm = fobj.elements["x" + infix + "_schEndTime"];
  39. //        if (elm && !ew_CheckTime(elm.value))
  40. //            return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - End Time");
  41. //        elm = fobj.elements["x" + infix + "_schOutTime"];
  42. //        if (elm && !ew_CheckTime(elm.value))
  43. //            return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Out Time");
  44.         elm = fobj.elements["x" + infix + "_schLocID"];
  45.         if (elm && !ew_HasValue(elm))
  46.             return ew_OnError(this, elm, "Please enter required field - Location");
  47.         elm = fobj.elements["x" + infix + "_schEmpID"];
  48.         if (elm && !ew_HasValue(elm))
  49.             return ew_OnError(this, elm, "Please enter required field - Employee");
  50.         elm = fobj.elements["x" + infix + "_schPosID"];
  51.         if (elm && !ew_HasValue(elm))
  52.             return ew_OnError(this, elm, "Please enter required field - Position");
  53.         elm = fobj.elements["x" + infix + "_schTypID"];
  54.         if (elm && !ew_HasValue(elm))
  55.             return ew_OnError(this, elm, "Please enter required field - Type");
  56.         elm = fobj.elements["x" + infix + "_schDepID"];
  57.         if (elm && !ew_HasValue(elm))
  58.             return ew_OnError(this, elm, "Please enter required field - Department");
  59.         elm = fobj.elements["x" + infix + "_schRate"];
  60.         if (elm && !ew_CheckNumber(elm.value))
  61.             return ew_OnError(this, elm, "Incorrect floating point number - Rate");
  62. //        elm = fobj.elements["x" + infix + "_schActualStart"];
  63. //        if (elm && !ew_CheckTime(elm.value))
  64. //            return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Actual Start");
  65. //        elm = fobj.elements["x" + infix + "_schActualEnd"];
  66. //        if (elm && !ew_CheckTime(elm.value))
  67. //            return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Actual End");
  68.         elm = fobj.elements["x" + infix + "_schStatus"];
  69.         if (elm && !ew_HasValue(elm))
  70.             return ew_OnError(this, elm, "Please enter required field - Status");
  71.         //elm = fobj.elements["x" + infix + "_schDayOfWeek"];
  72.         //if (elm && !ew_HasValue(elm))
  73.         //    return ew_OnError(this, elm, "Please enter required field - Day of Week");
  74.     }
  75.     return true;
  76. }
  77. tblSchedule_edit.SelectAllKey = function(elem) {
  78.     ew_SelectAll(elem);
  79. }
  80. <% If EW_CLIENT_VALIDATE Then %>
  81. tblSchedule_edit.ValidateRequired = true; // uses JavaScript validation
  82. <% Else %>
  83. tblSchedule_edit.ValidateRequired = false; // no JavaScript validation
  84. <% End If %>
  85. // search highlight properties
  86. tblSchedule_edit.ShowHighlightText = "Show highlight"; 
  87. tblSchedule_edit.HideHighlightText = "Hide highlight";
  88. //-->
  89. </script>
  90. <link rel="stylesheet" type="text/css" media="all" href="calendar/calendar-win2k-1.css" title="win2k-1" />
  91. <script type="text/javascript" src="calendar/calendar.js"></script>
  92. <script type="text/javascript" src="calendar/lang/calendar-en.js"></script>
  93. <script type="text/javascript" src="calendar/calendar-setup.js"></script>
  94. <script language="JavaScript" type="text/javascript">
  95. <!--
  96. // Write your client script here, no need to add script tags.
  97. // To include another .js script, use:
  98. // ew_ClientScriptInclude("my_javascript.js"); 
  99. //-->
  100.     function setDayOfWeek(d) {
  101.         var tmpDate = new Date(d);
  102.         var tmpDay = tmpDate.getDay();
  103.         document.ftblScheduleedit.x_schDayOfWeek.value = tmpDay + 1
  104.     }
  105. </script>
  106. <p><span class="aspnetmaker">Edit TABLE: Schedule<br /><br />
  107. <a href="<%= tblSchedule.ReturnUrl %>">Go Back</a></span>
  108.       
  109. <a href="" onclick="ftblScheduleedit.x_schCallTime.value='';ftblScheduleedit.x_schStartTime.value='';ftblScheduleedit.x_schEndTime.value='';ftblScheduleedit.x_schOutTime.value='';ftblScheduleedit.x_schTypID.value='16';ftblScheduleedit.x_schNotes.focus();return false;">Change to "Gone" Shift</a></span></p>
  110. <% tblSchedule_edit.ShowMessage() %>
  111. <form name="ftblScheduleedit" id="ftblScheduleedit" method="post" onsubmit="this.action=location.pathname;return tblSchedule_edit.ValidateForm(this);">
  112. <p />
  113. <input type="hidden" name="a_table" id="a_table" value="tblSchedule" />
  114. <input type="hidden" name="a_edit" id="a_edit" value="U" />
  115. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  116. <div class="ewGridMiddlePanel">
  117. <table cellspacing="0" class="ewTable">
  118. <% If tblSchedule.schDate.Visible Then ' schDate %>
  119.     <tr<%= tblSchedule.schDate.RowAttributes %>>
  120.         <td class="ewTableHeader">Date<span class="ewRequired"> *</span></td>
  121.         <td<%= tblSchedule.schDate.CellAttributes %>><span id="el_schDate">
  122. <input type="text" name="x_schDate" id="x_schDate" value="<%= tblSchedule.schDate.EditValue %>"<%= tblSchedule.schDate.EditAttributes %> onchange="setDayOfWeek(document.ftblScheduleedit.x_schDate.value);"/>
  123.  <img src="images/calendar.png" id="cal_x_schDate" name="cal_x_schDate" alt="Pick a date" style="cursor:pointer;cursor:hand;" />
  124. <script type="text/javascript">
  125. Calendar.setup({
  126.     inputField : "x_schDate", // ID of the input field
  127.     ifFormat : "%m/%d/%Y", // the date format
  128.     button : "cal_x_schDate" // ID of the button
  129. });
  130. </script>
  131. </span><%= tblSchedule.schDate.CustomMsg %></td>
  132.     </tr>
  133. <% End If %>
  134.  
  135.  
  136.  
  137. <input type="hidden" name="x_schDayOfWeek" id="x_schDayOfWeek" />
  138. <%--<% If tblSchedule.schDayOfWeek.Visible Then ' schDayOfWeek %>
  139.     <tr<%= tblSchedule.schDayOfWeek.RowAttributes%>>
  140.         <td class="ewTableHeader">Day of Week<span class="ewRequired"> *</span></td>
  141.         <td<%= tblSchedule.schDayOfWeek.CellAttributes%>><span id="el_schDayOfWeek">
  142. <select id="x_schDayOfWeek" name="x_schDayOfWeek"<%= tblSchedule.schDayOfWeek.EditAttributes%>>
  143. <%
  144. emptywrk = True
  145.     If ew_IsArrayList(tblSchedule.schDayOfWeek.EditValue) Then
  146.         arwrk = tblSchedule.schDayOfWeek.EditValue
  147.         For rowcntwrk As Integer = 0 To arwrk.Count - 1
  148.             If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schDayOfWeek.CurrentValue) Then
  149.                 selwrk = " selected=""selected"""
  150.                 emptywrk = False
  151.             Else
  152.                 selwrk = ""
  153.             End If
  154. %>
  155. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  156. <%= arwrk(rowcntwrk)(1) %>
  157. </option>
  158. <%
  159.     Next
  160. End If
  161. %>
  162. </select>
  163. </span><%= tblSchedule.schDayOfWeek.CustomMsg%></td>
  164.     </tr>
  165. <% End If %>--%>
  166.  
  167.  
  168. <% If tblSchedule.schEvtID.Visible Then ' schEvtID %>
  169.     <tr<%= tblSchedule.schEvtID.RowAttributes %>>
  170.         <td class="ewTableHeader">Event<span class="ewRequired"> *</span></td>
  171.         <td<%= tblSchedule.schEvtID.CellAttributes %>><span id="el_schEvtID">
  172. <select id="x_schEvtID" name="x_schEvtID"<%= tblSchedule.schEvtID.EditAttributes %>>
  173. <%
  174. emptywrk = True
  175. If ew_IsArrayList(tblSchedule.schEvtID.EditValue) Then
  176.     arwrk = tblSchedule.schEvtID.EditValue
  177.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  178.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEvtID.CurrentValue) Then
  179.             selwrk = " selected=""selected"""
  180.             emptywrk = False
  181.         Else
  182.             selwrk = ""
  183.         End If
  184. %>
  185. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  186. <%= arwrk(rowcntwrk)(1) %>
  187. </option>
  188. <%
  189.     Next
  190. End If
  191. %>
  192. </select>
  193. </span><%= tblSchedule.schEvtID.CustomMsg %></td>
  194.     </tr>
  195. <% End If %>
  196. <% If tblSchedule.schPartsID.Visible Then ' schPartsID %>
  197.     <tr<%= tblSchedule.schPartsID.RowAttributes %>>
  198.         <td class="ewTableHeader">Part<span class="ewRequired"> *</span></td>
  199.         <td<%= tblSchedule.schPartsID.CellAttributes %>><span id="el_schPartsID">
  200. <select id="x_schPartsID" name="x_schPartsID"<%= tblSchedule.schPartsID.EditAttributes %>>
  201. <%
  202. emptywrk = True
  203. If ew_IsArrayList(tblSchedule.schPartsID.EditValue) Then
  204.     arwrk = tblSchedule.schPartsID.EditValue
  205.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  206.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPartsID.CurrentValue) Then
  207.             selwrk = " selected=""selected"""
  208.             emptywrk = False
  209.         Else
  210.             selwrk = ""
  211.         End If
  212. %>
  213. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  214. <%= arwrk(rowcntwrk)(1) %>
  215. </option>
  216. <%
  217.     Next
  218. End If
  219. %>
  220. </select>
  221. </span><%= tblSchedule.schPartsID.CustomMsg %></td>
  222.     </tr>
  223. <% End If %>
  224. <% If tblSchedule.schCallTime.Visible Then ' schCallTime %>
  225.     <tr<%= tblSchedule.schCallTime.RowAttributes %>>
  226.         <td class="ewTableHeader">Call Time</td>
  227.         <td<%= tblSchedule.schCallTime.CellAttributes %>><span id="el_schCallTime">
  228. <input type="text" name="x_schCallTime" id="x_schCallTime" value="<%= tblSchedule.schCallTime.EditValue %>"<%= tblSchedule.schCallTime.EditAttributes %> />
  229. </span><%= tblSchedule.schCallTime.CustomMsg %></td>
  230.     </tr>
  231. <% End If %>
  232. <% If tblSchedule.schStartTime.Visible Then ' schStartTime %>
  233.     <tr<%= tblSchedule.schStartTime.RowAttributes %>>
  234.         <td class="ewTableHeader">Start Time</td>
  235.         <td<%= tblSchedule.schStartTime.CellAttributes %>><span id="el_schStartTime">
  236. <input type="text" name="x_schStartTime" id="x_schStartTime" value="<%= tblSchedule.schStartTime.EditValue %>"<%= tblSchedule.schStartTime.EditAttributes %> />
  237. </span><%= tblSchedule.schStartTime.CustomMsg %></td>
  238.     </tr>
  239. <% End If %>
  240. <% If tblSchedule.schEndTime.Visible Then ' schEndTime %>
  241.     <tr<%= tblSchedule.schEndTime.RowAttributes %>>
  242.         <td class="ewTableHeader">End Time</td>
  243.         <td<%= tblSchedule.schEndTime.CellAttributes %>><span id="el_schEndTime">
  244. <input type="text" name="x_schEndTime" id="x_schEndTime" value="<%= tblSchedule.schEndTime.EditValue %>"<%= tblSchedule.schEndTime.EditAttributes %> />
  245. </span><%= tblSchedule.schEndTime.CustomMsg %></td>
  246.     </tr>
  247. <% End If %>
  248. <% If tblSchedule.schOutTime.Visible Then ' schOutTime %>
  249.     <tr<%= tblSchedule.schOutTime.RowAttributes %>>
  250.         <td class="ewTableHeader">Out Time</td>
  251.         <td<%= tblSchedule.schOutTime.CellAttributes %>><span id="el_schOutTime">
  252. <input type="text" name="x_schOutTime" id="x_schOutTime" value="<%= tblSchedule.schOutTime.EditValue %>"<%= tblSchedule.schOutTime.EditAttributes %> />
  253. </span><%= tblSchedule.schOutTime.CustomMsg %></td>
  254.     </tr>
  255. <% End If %>
  256. <% If tblSchedule.schLocID.Visible Then ' schLocID %>
  257.     <tr<%= tblSchedule.schLocID.RowAttributes %>>
  258.         <td class="ewTableHeader">Location<span class="ewRequired"> *</span></td>
  259.         <td<%= tblSchedule.schLocID.CellAttributes %>><span id="el_schLocID">
  260. <select id="x_schLocID" name="x_schLocID"<%= tblSchedule.schLocID.EditAttributes %>>
  261. <%
  262. emptywrk = True
  263. If ew_IsArrayList(tblSchedule.schLocID.EditValue) Then
  264.     arwrk = tblSchedule.schLocID.EditValue
  265.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  266.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schLocID.CurrentValue) Then
  267.             selwrk = " selected=""selected"""
  268.             emptywrk = False
  269.         Else
  270.             selwrk = ""
  271.         End If
  272. %>
  273. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  274. <%= arwrk(rowcntwrk)(1) %>
  275. </option>
  276. <%
  277.     Next
  278. End If
  279. %>
  280. </select>
  281. </span><%= tblSchedule.schLocID.CustomMsg %></td>
  282.     </tr>
  283. <% End If %>
  284. <% If tblSchedule.schEmpID.Visible Then ' schEmpID %>
  285.     <tr<%= tblSchedule.schEmpID.RowAttributes %>>
  286.         <td class="ewTableHeader">Employee<span class="ewRequired"> *</span></td>
  287.         <td<%= tblSchedule.schEmpID.CellAttributes %>><span id="el_schEmpID">
  288. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  289. <div<%= tblSchedule.schEmpID.ViewAttributes %>><%= tblSchedule.schEmpID.EditValue %></div>
  290. <input type="hidden" name="x_schEmpID" id="x_schEmpID" value="<%= ew_HTMLEncode(tblSchedule.schEmpID.CurrentValue) %>" />
  291. <% Else %>
  292. <select id="x_schEmpID" name="x_schEmpID"<%= tblSchedule.schEmpID.EditAttributes %>>
  293. <%
  294. emptywrk = True
  295. If ew_IsArrayList(tblSchedule.schEmpID.EditValue) Then
  296.     arwrk = tblSchedule.schEmpID.EditValue
  297.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  298.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEmpID.CurrentValue) Then
  299.             selwrk = " selected=""selected"""
  300.             emptywrk = False
  301.         Else
  302.             selwrk = ""
  303.         End If
  304. %>
  305. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  306. <%= arwrk(rowcntwrk)(1) %>
  307. </option>
  308. <%
  309.     Next
  310. End If
  311. %>
  312. </select>
  313. <% End If %>
  314. </span><%= tblSchedule.schEmpID.CustomMsg %></td>
  315.     </tr>
  316. <% End If %>
  317. <% If tblSchedule.schPosID.Visible Then ' schPosID %>
  318.     <tr<%= tblSchedule.schPosID.RowAttributes %>>
  319.         <td class="ewTableHeader">Position<span class="ewRequired"> *</span></td>
  320.         <td<%= tblSchedule.schPosID.CellAttributes %>><span id="el_schPosID">
  321. <select id="x_schPosID" name="x_schPosID"<%= tblSchedule.schPosID.EditAttributes %>>
  322. <%
  323. emptywrk = True
  324. If ew_IsArrayList(tblSchedule.schPosID.EditValue) Then
  325.     arwrk = tblSchedule.schPosID.EditValue
  326.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  327.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPosID.CurrentValue) Then
  328.             selwrk = " selected=""selected"""
  329.             emptywrk = False
  330.         Else
  331.             selwrk = ""
  332.         End If
  333. %>
  334. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  335. <%= arwrk(rowcntwrk)(1) %>
  336. </option>
  337. <%
  338.     Next
  339. End If
  340. %>
  341. </select>
  342. </span><%= tblSchedule.schPosID.CustomMsg %></td>
  343.     </tr>
  344. <% End If %>
  345. <% If tblSchedule.schTypID.Visible Then ' schTypID %>
  346.     <tr<%= tblSchedule.schTypID.RowAttributes %>>
  347.         <td class="ewTableHeader">Type<span class="ewRequired"> *</span></td>
  348.         <td<%= tblSchedule.schTypID.CellAttributes %>><span id="el_schTypID">
  349. <select id="x_schTypID" name="x_schTypID"<%= tblSchedule.schTypID.EditAttributes %>>
  350. <%
  351. emptywrk = True
  352. If ew_IsArrayList(tblSchedule.schTypID.EditValue) Then
  353.     arwrk = tblSchedule.schTypID.EditValue
  354.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  355.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schTypID.CurrentValue) Then
  356.             selwrk = " selected=""selected"""
  357.             emptywrk = False
  358.         Else
  359.             selwrk = ""
  360.         End If
  361. %>
  362. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  363. <%= arwrk(rowcntwrk)(1) %>
  364. </option>
  365. <%
  366.     Next
  367. End If
  368. %>
  369. </select>
  370. </span><%= tblSchedule.schTypID.CustomMsg %></td>
  371.     </tr>
  372. <% End If %>
  373. <% If tblSchedule.schDepID.Visible Then ' schDepID %>
  374.     <tr<%= tblSchedule.schDepID.RowAttributes %>>
  375.         <td class="ewTableHeader">Department<span class="ewRequired"> *</span></td>
  376.         <td<%= tblSchedule.schDepID.CellAttributes %>><span id="el_schDepID">
  377. <select id="x_schDepID" name="x_schDepID"<%= tblSchedule.schDepID.EditAttributes %>>
  378. <%
  379. emptywrk = True
  380. If ew_IsArrayList(tblSchedule.schDepID.EditValue) Then
  381.     arwrk = tblSchedule.schDepID.EditValue
  382.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  383.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schDepID.CurrentValue) Then
  384.             selwrk = " selected=""selected"""
  385.             emptywrk = False
  386.         Else
  387.             selwrk = ""
  388.         End If
  389. %>
  390. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  391. <%= arwrk(rowcntwrk)(1) %>
  392. <% If ew_NotEmpty(arwrk(rowcntwrk)(2)) Then %>
  393. <%= ew_ValueSeparator(rowcntwrk) %><%= arwrk(rowcntwrk)(2) %>
  394. <% End If %>
  395. </option>
  396. <%
  397.     Next
  398. End If
  399. %>
  400. </select>
  401. </span><%= tblSchedule.schDepID.CustomMsg %></td>
  402.     </tr>
  403. <% End If %>
  404. <% If tblSchedule.schNotes.Visible Then ' schNotes %>
  405.     <tr<%= tblSchedule.schNotes.RowAttributes %>>
  406.         <td class="ewTableHeader">Notes</td>
  407.         <td<%= tblSchedule.schNotes.CellAttributes %>><span id="el_schNotes">
  408. <textarea name="x_schNotes" id="x_schNotes" cols="35" rows="4"<%= tblSchedule.schNotes.EditAttributes %>><%= tblSchedule.schNotes.EditValue %></textarea>
  409. </span><%= tblSchedule.schNotes.CustomMsg %></td>
  410.     </tr>
  411. <% End If %>
  412. <% If tblSchedule.schRate.Visible And (Session("tfpssnet_Status_UserName") = "kirkm" Or Session("tfpssnet_Status_UserName") = "admin") Then ' schRate %>
  413.     <tr<%= tblSchedule.schRate.RowAttributes %>>
  414.         <td class="ewTableHeader">Rate</td>
  415.         <td<%= tblSchedule.schRate.CellAttributes %>><span id="el_schRate">
  416. <input type="text" name="x_schRate" id="x_schRate" size="30" value="<%= tblSchedule.schRate.EditValue %>"<%= tblSchedule.schRate.EditAttributes %> />
  417. </span><%= tblSchedule.schRate.CustomMsg %></td>
  418.     </tr>
  419. <% End If %>
  420. <% If tblSchedule.schActualStart.Visible Then ' schActualStart %>
  421.     <tr<%= tblSchedule.schActualStart.RowAttributes %>>
  422.         <td class="ewTableHeader">Actual Start</td>
  423.         <td<%= tblSchedule.schActualStart.CellAttributes %>><span id="el_schActualStart">
  424. <input type="text" name="x_schActualStart" id="x_schActualStart" value="<%= tblSchedule.schActualStart.EditValue %>"<%= tblSchedule.schActualStart.EditAttributes %> />
  425. </span><%= tblSchedule.schActualStart.CustomMsg %></td>
  426.     </tr>
  427. <% End If %>
  428. <% If tblSchedule.schActualEnd.Visible Then ' schActualEnd %>
  429.     <tr<%= tblSchedule.schActualEnd.RowAttributes %>>
  430.         <td class="ewTableHeader">Actual End</td>
  431.         <td<%= tblSchedule.schActualEnd.CellAttributes %>><span id="el_schActualEnd">
  432. <input type="text" name="x_schActualEnd" id="x_schActualEnd" value="<%= tblSchedule.schActualEnd.EditValue %>"<%= tblSchedule.schActualEnd.EditAttributes %> />
  433. </span><%= tblSchedule.schActualEnd.CustomMsg %></td>
  434.     </tr>
  435. <% End If %>
  436. <% If tblSchedule.schDoubleBooked.Visible Then ' schDoubleBooked %>
  437.     <tr<%= tblSchedule.schDoubleBooked.RowAttributes %>>
  438.         <td class="ewTableHeader">Dbl Bkd</td>
  439.         <td<%= tblSchedule.schDoubleBooked.CellAttributes %>><span id="el_schDoubleBooked">
  440. <%
  441. If ew_SameStr(tblSchedule.schDoubleBooked.CurrentValue, "1") Then
  442.     selwrk = " checked=""checked"""
  443. Else
  444.     selwrk = ""
  445. End If
  446. %>
  447. <input type="checkbox" name="x_schDoubleBooked" id="x_schDoubleBooked" value="1"<%= selwrk %><%= tblSchedule.schDoubleBooked.EditAttributes %> />
  448. </span><%= tblSchedule.schDoubleBooked.CustomMsg %></td>
  449.     </tr>
  450. <% End If %>
  451. <% If tblSchedule.schStatus.Visible Then ' schStatus %>
  452.     <tr<%= tblSchedule.schStatus.RowAttributes %>>
  453.         <td class="ewTableHeader">Status<span class="ewRequired"> *</span></td>
  454.         <td<%= tblSchedule.schStatus.CellAttributes %>><span id="el_schStatus">
  455. <select id="x_schStatus" name="x_schStatus"<%= tblSchedule.schStatus.EditAttributes %>>
  456. <%
  457. emptywrk = True
  458. If ew_IsArrayList(tblSchedule.schStatus.EditValue) Then
  459.     arwrk = tblSchedule.schStatus.EditValue
  460.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  461.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schStatus.CurrentValue) Then
  462.             selwrk = " selected=""selected"""
  463.             emptywrk = False
  464.         Else
  465.             selwrk = ""
  466.         End If
  467. %>
  468. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  469. <%= arwrk(rowcntwrk)(1) %>
  470. </option>
  471. <%
  472.     Next
  473. End If
  474. %>
  475. </select>
  476. </span><%= tblSchedule.schStatus.CustomMsg %></td>
  477.     </tr>
  478. <% End If %>
  479.  
  480. </table>
  481. </div>
  482. </td></tr></table>
  483. <input type="hidden" name="x_schSchID" id="x_schSchID" value="<%= ew_HTMLEncode(tblSchedule.schSchID.CurrentValue) %>" />
  484. <p />
  485. <input type="submit" name="btnAction" id="btnAction" value="  Submit  " />
  486. </form>
  487. <script language="JavaScript" type="text/javascript">
  488. <!--
  489. // Write your table-specific startup script here
  490. // document.write("page loaded");
  491. //-->
  492. </script>
  493. </asp:Content>
  494.