home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblScheduleupdate.aspx < prev    next >
Text File  |  2014-01-07  |  28KB  |  626 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblScheduleupdate.aspx.vb" Inherits="tblScheduleupdate" 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_update = new ew_Page("tblSchedule_update");
  7. // page properties
  8. tblSchedule_update.PageID = "update"; // page ID
  9. var EW_PAGE_ID = tblSchedule_update.PageID; // for backward compatibility
  10. // extend page with ValidateForm function
  11. tblSchedule_update.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.     if (!ew_UpdateSelected(fobj)) {
  17.         alert('No field selected for update');
  18.         return false;
  19.     }
  20.     var uelm;
  21.     var i, elm, aelm, infix;
  22.     var rowcnt = (fobj.key_count) ? Number(fobj.key_count.value) : 1;
  23.     for (i=0; i<rowcnt; i++) {
  24.         infix = (fobj.key_count) ? String(i+1) : "";
  25.         elm = fobj.elements["x" + infix + "_schDate"];
  26.         uelm = fobj.elements["u" + infix + "_schDate"];
  27.         if (uelm && uelm.checked) {
  28.             if (elm && !ew_HasValue(elm))
  29.                 return ew_OnError(this, elm, "Please enter required field - Date");
  30.         }
  31.         elm = fobj.elements["x" + infix + "_schDate"];
  32.         uelm = fobj.elements["u" + infix + "_schDate"];
  33.         if (uelm && uelm.checked) {
  34.             if (elm && !ew_CheckUSDate(elm.value))
  35.                 return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Date");
  36.         }
  37.         elm = fobj.elements["x" + infix + "_schEvtID"];
  38.         uelm = fobj.elements["u" + infix + "_schEvtID"];
  39.         if (uelm && uelm.checked) {
  40.             if (elm && !ew_HasValue(elm))
  41.                 return ew_OnError(this, elm, "Please enter required field - Event");
  42.         }
  43.         elm = fobj.elements["x" + infix + "_schPartsID"];
  44.         uelm = fobj.elements["u" + infix + "_schPartsID"];
  45.         if (uelm && uelm.checked) {
  46.             if (elm && !ew_HasValue(elm))
  47.                 return ew_OnError(this, elm, "Please enter required field - Part");
  48.         }
  49. //        elm = fobj.elements["x" + infix + "_schCallTime"];
  50. //        uelm = fobj.elements["u" + infix + "_schCallTime"];
  51. //        if (uelm && uelm.checked) {
  52. //            if (elm && !ew_CheckUSDate(elm.value))
  53. //                return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Call Time");
  54. //        }
  55. //        elm = fobj.elements["x" + infix + "_schStartTime"];
  56. //        uelm = fobj.elements["u" + infix + "_schStartTime"];
  57. //        if (uelm && uelm.checked) {
  58. //            if (elm && !ew_CheckUSDate(elm.value))
  59. //                return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Start Time");
  60. //        }
  61. //        elm = fobj.elements["x" + infix + "_schEndTime"];
  62. //        uelm = fobj.elements["u" + infix + "_schEndTime"];
  63. //        if (uelm && uelm.checked) {
  64. //            if (elm && !ew_CheckUSDate(elm.value))
  65. //                return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - End Time");
  66. //        }
  67. //        elm = fobj.elements["x" + infix + "_schOutTime"];
  68. //        uelm = fobj.elements["u" + infix + "_schOutTime"];
  69. //        if (uelm && uelm.checked) {
  70. //            if (elm && !ew_CheckUSDate(elm.value))
  71. //                return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Out Time");
  72. //        }
  73.         elm = fobj.elements["x" + infix + "_schLocID"];
  74.         uelm = fobj.elements["u" + infix + "_schLocID"];
  75.         if (uelm && uelm.checked) {
  76.             if (elm && !ew_HasValue(elm))
  77.                 return ew_OnError(this, elm, "Please enter required field - Location");
  78.         }
  79.         elm = fobj.elements["x" + infix + "_schEmpID"];
  80.         uelm = fobj.elements["u" + infix + "_schEmpID"];
  81.         if (uelm && uelm.checked) {
  82.             if (elm && !ew_HasValue(elm))
  83.                 return ew_OnError(this, elm, "Please enter required field - Employee");
  84.         }
  85.         elm = fobj.elements["x" + infix + "_schPosID"];
  86.         uelm = fobj.elements["u" + infix + "_schPosID"];
  87.         if (uelm && uelm.checked) {
  88.             if (elm && !ew_HasValue(elm))
  89.                 return ew_OnError(this, elm, "Please enter required field - Position");
  90.         }
  91.         elm = fobj.elements["x" + infix + "_schTypID"];
  92.         uelm = fobj.elements["u" + infix + "_schTypID"];
  93.         if (uelm && uelm.checked) {
  94.             if (elm && !ew_HasValue(elm))
  95.                 return ew_OnError(this, elm, "Please enter required field - Type");
  96.         }
  97.         elm = fobj.elements["x" + infix + "_schDepID"];
  98.         uelm = fobj.elements["u" + infix + "_schDepID"];
  99.         if (uelm && uelm.checked) {
  100.             if (elm && !ew_HasValue(elm))
  101.                 return ew_OnError(this, elm, "Please enter required field - Department");
  102.         }
  103.         elm = fobj.elements["x" + infix + "_schRate"];
  104.         uelm = fobj.elements["u" + infix + "_schRate"];
  105.         if (uelm && uelm.checked) {
  106.             if (elm && !ew_CheckNumber(elm.value))
  107.                 return ew_OnError(this, elm, "Incorrect floating point number - Rate");
  108.         }
  109. //        elm = fobj.elements["x" + infix + "_schActualStart"];
  110. //        uelm = fobj.elements["u" + infix + "_schActualStart"];
  111. //        if (uelm && uelm.checked) {
  112. //            if (elm && !ew_CheckUSDate(elm.value))
  113. //                return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Actual Start");
  114. //        }
  115. //        elm = fobj.elements["x" + infix + "_schActualEnd"];
  116. //        uelm = fobj.elements["u" + infix + "_schActualEnd"];
  117. //        if (uelm && uelm.checked) {
  118. //            if (elm && !ew_CheckUSDate(elm.value))
  119. //                return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Actual End");
  120. //        }
  121.         elm = fobj.elements["x" + infix + "_schStatus"];
  122.         uelm = fobj.elements["u" + infix + "_schStatus"];
  123.         if (uelm && uelm.checked) {
  124.             if (elm && !ew_HasValue(elm))
  125.                 return ew_OnError(this, elm, "Please enter required field - Status");
  126.         }
  127.         elm = fobj.elements["x" + infix + "_schDayOfWeek"];
  128.         uelm = fobj.elements["u" + infix + "_schDayOfWeek"];
  129.         if (uelm && uelm.checked) {
  130.             if (elm && !ew_HasValue(elm))
  131.                 return ew_OnError(this, elm, "Please enter required field - Day of Week");
  132.         }
  133.     }
  134.     return true;
  135. }
  136. tblSchedule_update.SelectAllKey = function(elem) {
  137.     ew_SelectAll(elem);
  138. }
  139. <% If EW_CLIENT_VALIDATE Then %>
  140. tblSchedule_update.ValidateRequired = true; // uses JavaScript validation
  141. <% Else %>
  142. tblSchedule_update.ValidateRequired = false; // no JavaScript validation
  143. <% End If %>
  144. // search highlight properties
  145. tblSchedule_update.ShowHighlightText = "Show highlight"; 
  146. tblSchedule_update.HideHighlightText = "Hide highlight";
  147. //-->
  148. </script>
  149. <link rel="stylesheet" type="text/css" media="all" href="calendar/calendar-win2k-1.css" title="win2k-1" />
  150. <script type="text/javascript" src="calendar/calendar.js"></script>
  151. <script type="text/javascript" src="calendar/lang/calendar-en.js"></script>
  152. <script type="text/javascript" src="calendar/calendar-setup.js"></script>
  153. <script language="JavaScript" type="text/javascript">
  154. <!--
  155. // Write your client script here, no need to add script tags.
  156. // To include another .js script, use:
  157. // ew_ClientScriptInclude("my_javascript.js"); 
  158. //-->
  159.     function setDayOfWeek(d) {
  160.         var tmpDate = new Date(d);
  161.         var tmpDay = tmpDate.getDay();
  162.         document.ftblScheduleupdate.x_schDayOfWeek.value = tmpDay + 1
  163.     }
  164. </script>
  165. <p><span class="aspnetmaker">Update TABLE: Schedule<br /><br />
  166. <a href="<%= tblSchedule.ReturnUrl %>">Back to List</a></span></p>
  167. <% tblSchedule_update.ShowMessage() %>
  168. <form name="ftblScheduleupdate" id="ftblScheduleupdate" method="post" onsubmit="this.action=location.pathname;return tblSchedule_update.ValidateForm(this);">
  169. <p />
  170. <input type="hidden" name="t" id="t" value="tblSchedule" />
  171. <input type="hidden" name="a_update" id="a_update" value="U" />
  172. <% For i As Integer = 0 to tblSchedule_update.arRecKeys.GetUpperBound(0) %>
  173. <input type="hidden" name="k<%= i+1 %>_key" id="key<%= i+1 %>" value="<%= Server.HtmlEncode(tblSchedule_update.arRecKeys(i)) %>" />
  174. <% Next %>
  175. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  176. <div class="ewGridMiddlePanel">
  177. <table cellspacing="0" class="ewTable">
  178.     <tr class="ewTableHeader">
  179.         <td>Update<input type="checkbox" name="u" id="u" onclick="ew_SelectAll(this);" /></td>
  180.         <td>Field Name</td>
  181.         <td>New Value</td>
  182.     </tr>
  183. <% If tblSchedule.schDate.Visible Then ' schDate %>
  184.     <tr<%= tblSchedule.schDate.RowAttributes %>>
  185.         <td<%= tblSchedule.schDate.CellAttributes %>>
  186. <input type="checkbox" name="u_schDate" id="u_schDate" value="1"<% If tblSchedule.schDate.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  187. </td>
  188.         <td<%= tblSchedule.schDate.CellAttributes %>>Date</td>
  189.         <td<%= tblSchedule.schDate.CellAttributes %>><span id="el_schDate">
  190. <input type="text" name="x_schDate" id="x_schDate" value="<%= tblSchedule.schDate.EditValue %>"<%= tblSchedule.schDate.EditAttributes %> onchange="setDayOfWeek(document.ftblScheduleupdate.x_schDate.value);" />
  191.  <img src="images/calendar.png" id="cal_x_schDate" name="cal_x_schDate" alt="Pick a date" style="cursor:pointer;cursor:hand;" />
  192. <script type="text/javascript">
  193. Calendar.setup({
  194.     inputField : "x_schDate", // ID of the input field
  195.     ifFormat : "%m/%d/%Y", // the date format
  196.     button : "cal_x_schDate" // ID of the button
  197. });
  198. </script>
  199. </span><%= tblSchedule.schDate.CustomMsg %></td>
  200.     </tr>
  201. <% End If %>
  202.  
  203. <input type="hidden" name="x_schDayOfWeek" id="x_schDayOfWeek" />
  204.  
  205. <%--<% If tblSchedule.schDayOfWeek.Visible Then ' schDayOfWeek %>
  206.     <tr<%= tblSchedule.schDayOfWeek.RowAttributes%>>
  207.         <td<%= tblSchedule.schDayOfWeek.CellAttributes%>>
  208. <input type="checkbox" name="u_schDayOfWeek" id="u_schDayOfWeek" value="1"<% If tblSchedule.schDayOfWeek.MultiUpdate = "1" Then Response.Write(" checked=""checked""")%> />
  209. </td>
  210.         <td<%= tblSchedule.schDayOfWeek.CellAttributes%>>Day of Week</td>
  211.         <td<%= tblSchedule.schDayOfWeek.CellAttributes%>><span id="Span2">
  212. <select id="x_schDayOfWeek" name="x_schDayOfWeek"<%= tblSchedule.schDayOfWeek.EditAttributes%>>
  213. <%
  214. emptywrk = True
  215.     If ew_IsArrayList(tblSchedule.schDayOfWeek.EditValue) Then
  216.         arwrk = tblSchedule.schDayOfWeek.EditValue
  217.         For rowcntwrk As Integer = 0 To arwrk.Count - 1
  218.             If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schDayOfWeek.CurrentValue) Then
  219.                 selwrk = " selected=""selected"""
  220.                 emptywrk = False
  221.             Else
  222.                 selwrk = ""
  223.             End If
  224. %>
  225. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  226. <%= arwrk(rowcntwrk)(1) %>
  227. </option>
  228. <%
  229.     Next
  230. End If
  231. %>
  232. </select>
  233. </span><%= tblSchedule.schDayOfWeek.CustomMsg%></td>
  234.     </tr>
  235. <% End If %>
  236. --%>
  237.  
  238. <% If tblSchedule.schEvtID.Visible Then ' schEvtID %>
  239.     <tr<%= tblSchedule.schEvtID.RowAttributes %>>
  240.         <td<%= tblSchedule.schEvtID.CellAttributes %>>
  241. <input type="checkbox" name="u_schEvtID" id="u_schEvtID" value="1"<% If tblSchedule.schEvtID.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  242. </td>
  243.         <td<%= tblSchedule.schEvtID.CellAttributes %>>Event</td>
  244.         <td<%= tblSchedule.schEvtID.CellAttributes %>><span id="el_schEvtID">
  245. <select id="x_schEvtID" name="x_schEvtID"<%= tblSchedule.schEvtID.EditAttributes %>>
  246. <%
  247. emptywrk = True
  248. If ew_IsArrayList(tblSchedule.schEvtID.EditValue) Then
  249.     arwrk = tblSchedule.schEvtID.EditValue
  250.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  251.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEvtID.CurrentValue) Then
  252.             selwrk = " selected=""selected"""
  253.             emptywrk = False
  254.         Else
  255.             selwrk = ""
  256.         End If
  257. %>
  258. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  259. <%= arwrk(rowcntwrk)(1) %>
  260. </option>
  261. <%
  262.     Next
  263. End If
  264. %>
  265. </select>
  266. </span><%= tblSchedule.schEvtID.CustomMsg %></td>
  267.     </tr>
  268. <% End If %>
  269. <% If tblSchedule.schPartsID.Visible Then ' schPartsID %>
  270.     <tr<%= tblSchedule.schPartsID.RowAttributes %>>
  271.         <td<%= tblSchedule.schPartsID.CellAttributes %>>
  272. <input type="checkbox" name="u_schPartsID" id="u_schPartsID" value="1"<% If tblSchedule.schPartsID.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  273. </td>
  274.         <td<%= tblSchedule.schPartsID.CellAttributes %>>Part</td>
  275.         <td<%= tblSchedule.schPartsID.CellAttributes %>><span id="el_schPartsID">
  276. <select id="x_schPartsID" name="x_schPartsID"<%= tblSchedule.schPartsID.EditAttributes %>>
  277. <%
  278. emptywrk = True
  279. If ew_IsArrayList(tblSchedule.schPartsID.EditValue) Then
  280.     arwrk = tblSchedule.schPartsID.EditValue
  281.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  282.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPartsID.CurrentValue) Then
  283.             selwrk = " selected=""selected"""
  284.             emptywrk = False
  285.         Else
  286.             selwrk = ""
  287.         End If
  288. %>
  289. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  290. <%= arwrk(rowcntwrk)(1) %>
  291. </option>
  292. <%
  293.     Next
  294. End If
  295. %>
  296. </select>
  297. </span><%= tblSchedule.schPartsID.CustomMsg %></td>
  298.     </tr>
  299. <% End If %>
  300. <% If tblSchedule.schCallTime.Visible Then ' schCallTime %>
  301.     <tr<%= tblSchedule.schCallTime.RowAttributes %>>
  302.         <td<%= tblSchedule.schCallTime.CellAttributes %>>
  303. <input type="checkbox" name="u_schCallTime" id="u_schCallTime" value="1"<% If tblSchedule.schCallTime.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  304. </td>
  305.         <td<%= tblSchedule.schCallTime.CellAttributes %>>Call Time</td>
  306.         <td<%= tblSchedule.schCallTime.CellAttributes %>><span id="el_schCallTime">
  307. <input type="text" name="x_schCallTime" id="x_schCallTime" value="<%= tblSchedule.schCallTime.EditValue %>"<%= tblSchedule.schCallTime.EditAttributes %> />
  308. </span><%= tblSchedule.schCallTime.CustomMsg %></td>
  309.     </tr>
  310. <% End If %>
  311. <%  If tblSchedule.schStartTime.Visible Then ' schStartTime %>
  312.     <tr<%= tblSchedule.schStartTime.RowAttributes %>>
  313.         <td<%= tblSchedule.schStartTime.CellAttributes %>>
  314. <input type="checkbox" name="u_schStartTime" id="u_schStartTime" value="1"<% If tblSchedule.schStartTime.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  315. </td>
  316.         <td<%= tblSchedule.schStartTime.CellAttributes %>>Call Time</td>
  317.         <td<%= tblSchedule.schStartTime.CellAttributes %>><span id="Span1">
  318. <input type="text" name="x_schStartTime" id="x_schStartTime" value="<%= tblSchedule.schStartTime.EditValue %>"<%= tblSchedule.schStartTime.EditAttributes %> />
  319. </span><%=tblSchedule.schStartTime.CustomMsg%></td>
  320.     </tr>
  321. <% End If %>
  322. <% If tblSchedule.schEndTime.Visible Then ' schEndTime %>
  323.     <tr<%= tblSchedule.schEndTime.RowAttributes %>>
  324.         <td<%= tblSchedule.schEndTime.CellAttributes %>>
  325. <input type="checkbox" name="u_schEndTime" id="u_schEndTime" value="1"<% If tblSchedule.schEndTime.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  326. </td>
  327.         <td<%= tblSchedule.schEndTime.CellAttributes %>>End Time</td>
  328.         <td<%= tblSchedule.schEndTime.CellAttributes %>><span id="el_schEndTime">
  329. <input type="text" name="x_schEndTime" id="x_schEndTime" value="<%= tblSchedule.schEndTime.EditValue %>"<%= tblSchedule.schEndTime.EditAttributes %> />
  330. </span><%= tblSchedule.schEndTime.CustomMsg %></td>
  331.     </tr>
  332. <% End If %>
  333. <% If tblSchedule.schOutTime.Visible Then ' schOutTime %>
  334.     <tr<%= tblSchedule.schOutTime.RowAttributes %>>
  335.         <td<%= tblSchedule.schOutTime.CellAttributes %>>
  336. <input type="checkbox" name="u_schOutTime" id="u_schOutTime" value="1"<% If tblSchedule.schOutTime.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  337. </td>
  338.         <td<%= tblSchedule.schOutTime.CellAttributes %>>Out Time</td>
  339.         <td<%= tblSchedule.schOutTime.CellAttributes %>><span id="el_schOutTime">
  340. <input type="text" name="x_schOutTime" id="x_schOutTime" value="<%= tblSchedule.schOutTime.EditValue %>"<%= tblSchedule.schOutTime.EditAttributes %> />
  341. </span><%= tblSchedule.schOutTime.CustomMsg %></td>
  342.     </tr>
  343. <% End If %>
  344. <% If tblSchedule.schLocID.Visible Then ' schLocID %>
  345.     <tr<%= tblSchedule.schLocID.RowAttributes %>>
  346.         <td<%= tblSchedule.schLocID.CellAttributes %>>
  347. <input type="checkbox" name="u_schLocID" id="u_schLocID" value="1"<% If tblSchedule.schLocID.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  348. </td>
  349.         <td<%= tblSchedule.schLocID.CellAttributes %>>Location</td>
  350.         <td<%= tblSchedule.schLocID.CellAttributes %>><span id="el_schLocID">
  351. <select id="x_schLocID" name="x_schLocID"<%= tblSchedule.schLocID.EditAttributes %>>
  352. <%
  353. emptywrk = True
  354. If ew_IsArrayList(tblSchedule.schLocID.EditValue) Then
  355.     arwrk = tblSchedule.schLocID.EditValue
  356.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  357.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schLocID.CurrentValue) Then
  358.             selwrk = " selected=""selected"""
  359.             emptywrk = False
  360.         Else
  361.             selwrk = ""
  362.         End If
  363. %>
  364. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  365. <%= arwrk(rowcntwrk)(1) %>
  366. </option>
  367. <%
  368.     Next
  369. End If
  370. %>
  371. </select>
  372. </span><%= tblSchedule.schLocID.CustomMsg %></td>
  373.     </tr>
  374. <% End If %>
  375. <% If tblSchedule.schEmpID.Visible Then ' schEmpID %>
  376.     <tr<%= tblSchedule.schEmpID.RowAttributes %>>
  377.         <td<%= tblSchedule.schEmpID.CellAttributes %>>
  378. <input type="checkbox" name="u_schEmpID" id="u_schEmpID" value="1"<% If tblSchedule.schEmpID.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  379. </td>
  380.         <td<%= tblSchedule.schEmpID.CellAttributes %>>Employee</td>
  381.         <td<%= tblSchedule.schEmpID.CellAttributes %>><span id="el_schEmpID">
  382. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  383. <div<%= tblSchedule.schEmpID.ViewAttributes %>><%= tblSchedule.schEmpID.EditValue %></div>
  384. <input type="hidden" name="x_schEmpID" id="x_schEmpID" value="<%= ew_HTMLEncode(tblSchedule.schEmpID.CurrentValue) %>" />
  385. <% Else %>
  386. <select id="x_schEmpID" name="x_schEmpID"<%= tblSchedule.schEmpID.EditAttributes %>>
  387. <%
  388. emptywrk = True
  389. If ew_IsArrayList(tblSchedule.schEmpID.EditValue) Then
  390.     arwrk = tblSchedule.schEmpID.EditValue
  391.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  392.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEmpID.CurrentValue) Then
  393.             selwrk = " selected=""selected"""
  394.             emptywrk = False
  395.         Else
  396.             selwrk = ""
  397.         End If
  398. %>
  399. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  400. <%= arwrk(rowcntwrk)(1) %>
  401. </option>
  402. <%
  403.     Next
  404. End If
  405. %>
  406. </select>
  407. <% End If %>
  408. </span><%= tblSchedule.schEmpID.CustomMsg %></td>
  409.     </tr>
  410. <% End If %>
  411. <% If tblSchedule.schPosID.Visible Then ' schPosID %>
  412.     <tr<%= tblSchedule.schPosID.RowAttributes %>>
  413.         <td<%= tblSchedule.schPosID.CellAttributes %>>
  414. <input type="checkbox" name="u_schPosID" id="u_schPosID" value="1"<% If tblSchedule.schPosID.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  415. </td>
  416.         <td<%= tblSchedule.schPosID.CellAttributes %>>Position</td>
  417.         <td<%= tblSchedule.schPosID.CellAttributes %>><span id="el_schPosID">
  418. <select id="x_schPosID" name="x_schPosID"<%= tblSchedule.schPosID.EditAttributes %>>
  419. <%
  420. emptywrk = True
  421. If ew_IsArrayList(tblSchedule.schPosID.EditValue) Then
  422.     arwrk = tblSchedule.schPosID.EditValue
  423.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  424.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPosID.CurrentValue) Then
  425.             selwrk = " selected=""selected"""
  426.             emptywrk = False
  427.         Else
  428.             selwrk = ""
  429.         End If
  430. %>
  431. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  432. <%= arwrk(rowcntwrk)(1) %>
  433. </option>
  434. <%
  435.     Next
  436. End If
  437. %>
  438. </select>
  439. </span><%= tblSchedule.schPosID.CustomMsg %></td>
  440.     </tr>
  441. <% End If %>
  442. <% If tblSchedule.schTypID.Visible Then ' schTypID %>
  443.     <tr<%= tblSchedule.schTypID.RowAttributes %>>
  444.         <td<%= tblSchedule.schTypID.CellAttributes %>>
  445. <input type="checkbox" name="u_schTypID" id="u_schTypID" value="1"<% If tblSchedule.schTypID.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  446. </td>
  447.         <td<%= tblSchedule.schTypID.CellAttributes %>>Type</td>
  448.         <td<%= tblSchedule.schTypID.CellAttributes %>><span id="el_schTypID">
  449. <select id="x_schTypID" name="x_schTypID"<%= tblSchedule.schTypID.EditAttributes %>>
  450. <%
  451. emptywrk = True
  452. If ew_IsArrayList(tblSchedule.schTypID.EditValue) Then
  453.     arwrk = tblSchedule.schTypID.EditValue
  454.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  455.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schTypID.CurrentValue) Then
  456.             selwrk = " selected=""selected"""
  457.             emptywrk = False
  458.         Else
  459.             selwrk = ""
  460.         End If
  461. %>
  462. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  463. <%= arwrk(rowcntwrk)(1) %>
  464. </option>
  465. <%
  466.     Next
  467. End If
  468. %>
  469. </select>
  470. </span><%= tblSchedule.schTypID.CustomMsg %></td>
  471.     </tr>
  472. <% End If %>
  473. <% If tblSchedule.schDepID.Visible Then ' schDepID %>
  474.     <tr<%= tblSchedule.schDepID.RowAttributes %>>
  475.         <td<%= tblSchedule.schDepID.CellAttributes %>>
  476. <input type="checkbox" name="u_schDepID" id="u_schDepID" value="1"<% If tblSchedule.schDepID.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  477. </td>
  478.         <td<%= tblSchedule.schDepID.CellAttributes %>>Department</td>
  479.         <td<%= tblSchedule.schDepID.CellAttributes %>><span id="el_schDepID">
  480. <select id="x_schDepID" name="x_schDepID"<%= tblSchedule.schDepID.EditAttributes %>>
  481. <%
  482. emptywrk = True
  483. If ew_IsArrayList(tblSchedule.schDepID.EditValue) Then
  484.     arwrk = tblSchedule.schDepID.EditValue
  485.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  486.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schDepID.CurrentValue) Then
  487.             selwrk = " selected=""selected"""
  488.             emptywrk = False
  489.         Else
  490.             selwrk = ""
  491.         End If
  492. %>
  493. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  494. <%= arwrk(rowcntwrk)(1) %>
  495. <% If ew_NotEmpty(arwrk(rowcntwrk)(2)) Then %>
  496. <%= ew_ValueSeparator(rowcntwrk) %><%= arwrk(rowcntwrk)(2) %>
  497. <% End If %>
  498. </option>
  499.  
  500. <%
  501.     Next
  502. End If
  503. %>
  504. </select>
  505. </span><%= tblSchedule.schDepID.CustomMsg %></td>
  506.     </tr>
  507. <% End If %>
  508. <% If tblSchedule.schNotes.Visible Then ' schNotes %>
  509.     <tr<%= tblSchedule.schNotes.RowAttributes %>>
  510.         <td<%= tblSchedule.schNotes.CellAttributes %>>
  511. <input type="checkbox" name="u_schNotes" id="u_schNotes" value="1"<% If tblSchedule.schNotes.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  512. </td>
  513.         <td<%= tblSchedule.schNotes.CellAttributes %>>Notes</td>
  514.         <td<%= tblSchedule.schNotes.CellAttributes %>><span id="el_schNotes">
  515. <textarea name="x_schNotes" id="x_schNotes" cols="35" rows="4"<%= tblSchedule.schNotes.EditAttributes %>><%= tblSchedule.schNotes.EditValue %></textarea>
  516. </span><%= tblSchedule.schNotes.CustomMsg %></td>
  517.     </tr>
  518. <% End If %>
  519. <% If tblSchedule.schRate.Visible And (Session("tfpssnet_Status_UserName") = "kirkm" Or Session("tfpssnet_Status_UserName") = "admin") Then ' schRate %>
  520.     <tr<%= tblSchedule.schRate.RowAttributes %>>
  521.         <td<%= tblSchedule.schRate.CellAttributes %>>
  522. <input type="checkbox" name="u_schRate" id="u_schRate" value="1"<% If tblSchedule.schRate.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  523. </td>
  524.         <td<%= tblSchedule.schRate.CellAttributes %>>Rate</td>
  525.         <td<%= tblSchedule.schRate.CellAttributes %>><span id="el_schRate">
  526. <input type="text" name="x_schRate" id="x_schRate" size="30" value="<%= tblSchedule.schRate.EditValue %>"<%= tblSchedule.schRate.EditAttributes %> />
  527. </span><%= tblSchedule.schRate.CustomMsg %></td>
  528.     </tr>
  529. <% End If %>
  530. <% If tblSchedule.schActualStart.Visible Then ' schActualStart %>
  531.     <tr<%= tblSchedule.schActualStart.RowAttributes %>>
  532.         <td<%= tblSchedule.schActualStart.CellAttributes %>>
  533. <input type="checkbox" name="u_schActualStart" id="u_schActualStart" value="1"<% If tblSchedule.schActualStart.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  534. </td>
  535.         <td<%= tblSchedule.schActualStart.CellAttributes %>>Actual Start</td>
  536.         <td<%= tblSchedule.schActualStart.CellAttributes %>><span id="el_schActualStart">
  537. <input type="text" name="x_schActualStart" id="x_schActualStart" value="<%= tblSchedule.schActualStart.EditValue %>"<%= tblSchedule.schActualStart.EditAttributes %> />
  538. </span><%= tblSchedule.schActualStart.CustomMsg %></td>
  539.     </tr>
  540. <% End If %>
  541. <% If tblSchedule.schActualEnd.Visible Then ' schActualEnd %>
  542.     <tr<%= tblSchedule.schActualEnd.RowAttributes %>>
  543.         <td<%= tblSchedule.schActualEnd.CellAttributes %>>
  544. <input type="checkbox" name="u_schActualEnd" id="u_schActualEnd" value="1"<% If tblSchedule.schActualEnd.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  545. </td>
  546.         <td<%= tblSchedule.schActualEnd.CellAttributes %>>Actual End</td>
  547.         <td<%= tblSchedule.schActualEnd.CellAttributes %>><span id="el_schActualEnd">
  548. <input type="text" name="x_schActualEnd" id="x_schActualEnd" value="<%= tblSchedule.schActualEnd.EditValue %>"<%= tblSchedule.schActualEnd.EditAttributes %> />
  549. </span><%= tblSchedule.schActualEnd.CustomMsg %></td>
  550.     </tr>
  551. <% End If %>
  552. <% tblschedule.schdatecreated.visible = false %>
  553. <% If tblSchedule.schDateCreated.Visible Then ' schDateCreated %>
  554.     <tr<%= tblSchedule.schDateCreated.RowAttributes %>>
  555.         <td<%= tblSchedule.schDateCreated.CellAttributes %>>
  556. <input type="checkbox" name="u_schDateCreated" id="u_schDateCreated" value="1"<% If tblSchedule.schDateCreated.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  557. </td>
  558.         <td<%= tblSchedule.schDateCreated.CellAttributes %>>Date Created</td>
  559.         <td<%= tblSchedule.schDateCreated.CellAttributes %>><span id="el_schDateCreated">
  560. </span><%= tblSchedule.schDateCreated.CustomMsg %></td>
  561.     </tr>
  562. <% End If %>
  563. <%  tblSchedule.schDoubleBooked.Visible = False%>
  564. <% If tblSchedule.schDoubleBooked.Visible Then ' schDoubleBooked %>
  565.     <tr<%= tblSchedule.schDoubleBooked.RowAttributes %>>
  566.         <td<%= tblSchedule.schDoubleBooked.CellAttributes %>>
  567. <input type="checkbox" name="u_schDoubleBooked" id="u_schDoubleBooked" value="1"<% If tblSchedule.schDoubleBooked.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  568. </td>
  569.         <td<%= tblSchedule.schDoubleBooked.CellAttributes %>>Dbl Bkd</td>
  570.         <td<%= tblSchedule.schDoubleBooked.CellAttributes %>><span id="el_schDoubleBooked">
  571. <%
  572. If ew_SameStr(tblSchedule.schDoubleBooked.CurrentValue, "1") Then
  573.     selwrk = " checked=""checked"""
  574. Else
  575.     selwrk = ""
  576. End If
  577. %>
  578. <input type="checkbox" name="x_schDoubleBooked" id="x_schDoubleBooked" value="1"<%= selwrk %><%= tblSchedule.schDoubleBooked.EditAttributes %> />
  579. </span><%= tblSchedule.schDoubleBooked.CustomMsg %></td>
  580.     </tr>
  581. <% End If %>
  582. <% If tblSchedule.schStatus.Visible Then ' schStatus %>
  583.     <tr<%= tblSchedule.schStatus.RowAttributes %>>
  584.         <td<%= tblSchedule.schStatus.CellAttributes %>>
  585. <input type="checkbox" name="u_schStatus" id="u_schStatus" value="1"<% If tblSchedule.schStatus.MultiUpdate = "1" Then Response.Write(" checked=""checked""") %> />
  586. </td>
  587.         <td<%= tblSchedule.schStatus.CellAttributes %>>Status</td>
  588.         <td<%= tblSchedule.schStatus.CellAttributes %>><span id="el_schStatus">
  589. <select id="x_schStatus" name="x_schStatus"<%= tblSchedule.schStatus.EditAttributes %>>
  590. <%
  591. emptywrk = True
  592. If ew_IsArrayList(tblSchedule.schStatus.EditValue) Then
  593.     arwrk = tblSchedule.schStatus.EditValue
  594.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  595.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schStatus.CurrentValue) Then
  596.             selwrk = " selected=""selected"""
  597.             emptywrk = False
  598.         Else
  599.             selwrk = ""
  600.         End If
  601. %>
  602. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  603. <%= arwrk(rowcntwrk)(1) %>
  604. </option>
  605. <%
  606.     Next
  607. End If
  608. %>
  609. </select>
  610. </span><%= tblSchedule.schStatus.CustomMsg %></td>
  611.     </tr>
  612. <% End If %>
  613. </table>
  614. </div>
  615. </td></tr></table>
  616. <p />
  617. <input type="submit" name="btnAction" id="btnAction" value="  Update  " />
  618. </form>
  619. <script language="JavaScript" type="text/javascript">
  620. <!--
  621. // Write your table-specific startup script here
  622. // document.write("page loaded");
  623. //-->
  624. </script>
  625. </asp:Content>
  626.