home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblScheduleRecurringadd.aspx < prev    next >
Text File  |  2012-12-16  |  19KB  |  445 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblScheduleRecurringadd.aspx.vb" Inherits="tblScheduleRecurringadd" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <script type="text/javascript">
  4. <!--
  5. // Create page object
  6. var tblScheduleRecurring_add = new ew_Page("tblScheduleRecurring_add");
  7. // page properties
  8. tblScheduleRecurring_add.PageID = "add"; // page ID
  9. var EW_PAGE_ID = tblScheduleRecurring_add.PageID; // for backward compatibility
  10. // extend page with ValidateForm function
  11. tblScheduleRecurring_add.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.     }
  72.     return true;
  73. }
  74. tblScheduleRecurring_add.SelectAllKey = function(elem) {
  75.     ew_SelectAll(elem);
  76. }
  77. <% If EW_CLIENT_VALIDATE Then %>
  78. tblScheduleRecurring_add.ValidateRequired = true; // uses JavaScript validation
  79. <% Else %>
  80. tblScheduleRecurring_add.ValidateRequired = false; // no JavaScript validation
  81. <% End If %>
  82. // search highlight properties
  83. tblScheduleRecurring_add.ShowHighlightText = "Show highlight"; 
  84. tblScheduleRecurring_add.HideHighlightText = "Hide highlight";
  85. //-->
  86. </script>
  87. <link rel="stylesheet" type="text/css" media="all" href="calendar/calendar-win2k-1.css" title="win2k-1" />
  88. <script type="text/javascript" src="calendar/calendar.js"></script>
  89. <script type="text/javascript" src="calendar/lang/calendar-en.js"></script>
  90. <script type="text/javascript" src="calendar/calendar-setup.js"></script>
  91. <script language="JavaScript" type="text/javascript">
  92. <!--
  93. // Write your client script here, no need to add script tags.
  94. // To include another .js script, use:
  95. // ew_ClientScriptInclude("my_javascript.js"); 
  96. //-->
  97. </script>
  98. <p><span class="aspnetmaker">Add to TABLE: Schedule<br /><br />
  99. <a href="<%= tblSchedule.ReturnUrl %>">Go Back</a></span></p>
  100. <% tblScheduleRecurring_add.ShowMessage() %>
  101. <form name="ftblScheduleRecurringadd" id="ftblScheduleRecurringadd" method="post" onsubmit="this.action=location.pathname;return tblScheduleRecurring_add.ValidateForm(this);">
  102. <p />
  103. <input type="hidden" name="t" id="t" value="tblSchedule" />
  104. <input type="hidden" name="a_add" id="a_add" value="A" />
  105. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  106. <div class="ewGridMiddlePanel">
  107. <table cellspacing="0" class="ewTable">
  108. <% If tblSchedule.schDate.Visible Then ' schDate %>
  109.     <tr<%= tblSchedule.schDate.RowAttributes %>>
  110.         <td class="ewTableHeader">Date<span class="ewRequired"> *</span></td>
  111.         <td<%= tblSchedule.schDate.CellAttributes %>><span id="el_schDate">
  112. <input type="text" name="x_schDate" id="x_schDate" value="<%= tblSchedule.schDate.EditValue %>"<%= tblSchedule.schDate.EditAttributes %> />
  113.  <img src="images/calendar.png" id="cal_x_schDate" name="cal_x_schDate" alt="Pick a date" style="cursor:pointer;cursor:hand;" />
  114. <script type="text/javascript">
  115. Calendar.setup({
  116.     inputField : "x_schDate", // ID of the input field
  117.     ifFormat : "%m/%d/%Y", // the date format
  118.     button : "cal_x_schDate" // ID of the button
  119. });
  120. </script>
  121. </span><%= tblSchedule.schDate.CustomMsg %></td>
  122.     </tr>
  123. <% End If %>
  124. <% If tblSchedule.schEvtID.Visible Then ' schEvtID %>
  125.     <tr<%= tblSchedule.schEvtID.RowAttributes %>>
  126.         <td class="ewTableHeader">Event<span class="ewRequired"> *</span></td>
  127.         <td<%= tblSchedule.schEvtID.CellAttributes %>><span id="el_schEvtID">
  128. <select id="x_schEvtID" name="x_schEvtID"<%= tblSchedule.schEvtID.EditAttributes %>>
  129. <%
  130. emptywrk = True
  131. If ew_IsArrayList(tblSchedule.schEvtID.EditValue) Then
  132.     arwrk = tblSchedule.schEvtID.EditValue
  133.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  134.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEvtID.CurrentValue) Then
  135.             selwrk = " selected=""selected"""
  136.             emptywrk = False
  137.         Else
  138.             selwrk = ""
  139.         End If
  140. %>
  141. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  142. <%= arwrk(rowcntwrk)(1) %>
  143. </option>
  144. <%
  145.     Next
  146. End If
  147. %>
  148. </select>
  149. </span><%= tblSchedule.schEvtID.CustomMsg %></td>
  150.     </tr>
  151. <% End If %>
  152. <% If tblSchedule.schPartsID.Visible Then ' schPartsID %>
  153.     <tr<%= tblSchedule.schPartsID.RowAttributes %>>
  154.         <td class="ewTableHeader">Part<span class="ewRequired"> *</span></td>
  155.         <td<%= tblSchedule.schPartsID.CellAttributes %>><span id="el_schPartsID">
  156. <select id="x_schPartsID" name="x_schPartsID"<%= tblSchedule.schPartsID.EditAttributes %>>
  157. <%
  158. emptywrk = True
  159. If ew_IsArrayList(tblSchedule.schPartsID.EditValue) Then
  160.     arwrk = tblSchedule.schPartsID.EditValue
  161.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  162.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPartsID.CurrentValue) Then
  163.             selwrk = " selected=""selected"""
  164.             emptywrk = False
  165.         Else
  166.             selwrk = ""
  167.         End If
  168. %>
  169. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  170. <%= arwrk(rowcntwrk)(1) %>
  171. </option>
  172. <%
  173.     Next
  174. End If
  175. %>
  176. </select>
  177. </span><%= tblSchedule.schPartsID.CustomMsg %></td>
  178.     </tr>
  179. <% End If %>
  180. <% If tblSchedule.schCallTime.Visible Then ' schCallTime %>
  181.     <tr<%= tblSchedule.schCallTime.RowAttributes %>>
  182.         <td class="ewTableHeader">Call Time</td>
  183.         <td<%= tblSchedule.schCallTime.CellAttributes %>><span id="el_schCallTime">
  184. <input type="text" name="x_schCallTime" id="x_schCallTime" value="<%= tblSchedule.schCallTime.EditValue %>"<%= tblSchedule.schCallTime.EditAttributes %> />
  185. </span><%= tblSchedule.schCallTime.CustomMsg %></td>
  186.     </tr>
  187. <% End If %>
  188. <% If tblSchedule.schStartTime.Visible Then ' schStartTime %>
  189.     <tr<%= tblSchedule.schStartTime.RowAttributes %>>
  190.         <td class="ewTableHeader">Start Time</td>
  191.         <td<%= tblSchedule.schStartTime.CellAttributes %>><span id="el_schStartTime">
  192. <input type="text" name="x_schStartTime" id="x_schStartTime" value="<%= tblSchedule.schStartTime.EditValue %>"<%= tblSchedule.schStartTime.EditAttributes %> />
  193. </span><%= tblSchedule.schStartTime.CustomMsg %></td>
  194.     </tr>
  195. <% End If %>
  196. <% If tblSchedule.schEndTime.Visible Then ' schEndTime %>
  197.     <tr<%= tblSchedule.schEndTime.RowAttributes %>>
  198.         <td class="ewTableHeader">End Time</td>
  199.         <td<%= tblSchedule.schEndTime.CellAttributes %>><span id="el_schEndTime">
  200. <input type="text" name="x_schEndTime" id="x_schEndTime" value="<%= tblSchedule.schEndTime.EditValue %>"<%= tblSchedule.schEndTime.EditAttributes %> />
  201. </span><%= tblSchedule.schEndTime.CustomMsg %></td>
  202.     </tr>
  203. <% End If %>
  204. <% If tblSchedule.schOutTime.Visible Then ' schOutTime %>
  205.     <tr<%= tblSchedule.schOutTime.RowAttributes %>>
  206.         <td class="ewTableHeader">Out Time</td>
  207.         <td<%= tblSchedule.schOutTime.CellAttributes %>><span id="el_schOutTime">
  208. <input type="text" name="x_schOutTime" id="x_schOutTime" value="<%= tblSchedule.schOutTime.EditValue %>"<%= tblSchedule.schOutTime.EditAttributes %> />
  209. </span><%= tblSchedule.schOutTime.CustomMsg %></td>
  210.     </tr>
  211. <% End If %>
  212. <% If tblSchedule.schLocID.Visible Then ' schLocID %>
  213.     <tr<%= tblSchedule.schLocID.RowAttributes %>>
  214.         <td class="ewTableHeader">Location<span class="ewRequired"> *</span></td>
  215.         <td<%= tblSchedule.schLocID.CellAttributes %>><span id="el_schLocID">
  216. <select id="x_schLocID" name="x_schLocID"<%= tblSchedule.schLocID.EditAttributes %>>
  217. <%
  218. emptywrk = True
  219. If ew_IsArrayList(tblSchedule.schLocID.EditValue) Then
  220.     arwrk = tblSchedule.schLocID.EditValue
  221.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  222.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schLocID.CurrentValue) Then
  223.             selwrk = " selected=""selected"""
  224.             emptywrk = False
  225.         Else
  226.             selwrk = ""
  227.         End If
  228. %>
  229. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  230. <%= arwrk(rowcntwrk)(1) %>
  231. </option>
  232. <%
  233.     Next
  234. End If
  235. %>
  236. </select>
  237. </span><%= tblSchedule.schLocID.CustomMsg %></td>
  238.     </tr>
  239. <% End If %>
  240. <% If tblSchedule.schEmpID.Visible Then ' schEmpID %>
  241.     <tr<%= tblSchedule.schEmpID.RowAttributes %>>
  242.         <td class="ewTableHeader">Employee<span class="ewRequired"> *</span></td>
  243.         <td<%= tblSchedule.schEmpID.CellAttributes %>><span id="el_schEmpID">
  244. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  245. <div<%= tblSchedule.schEmpID.ViewAttributes %>><%= tblSchedule.schEmpID.EditValue %></div>
  246. <input type="hidden" name="x_schEmpID" id="x_schEmpID" value="<%= ew_HTMLEncode(tblSchedule.schEmpID.CurrentValue) %>" />
  247. <% Else %>
  248. <select id="x_schEmpID" name="x_schEmpID"<%= tblSchedule.schEmpID.EditAttributes %>>
  249. <%
  250. emptywrk = True
  251. If ew_IsArrayList(tblSchedule.schEmpID.EditValue) Then
  252.     arwrk = tblSchedule.schEmpID.EditValue
  253.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  254.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schEmpID.CurrentValue) Then
  255.             selwrk = " selected=""selected"""
  256.             emptywrk = False
  257.         Else
  258.             selwrk = ""
  259.         End If
  260. %>
  261. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  262. <%= arwrk(rowcntwrk)(1) %>
  263. </option>
  264. <%
  265.     Next
  266. End If
  267. %>
  268. </select>
  269. <% End If %>
  270. </span><%= tblSchedule.schEmpID.CustomMsg %></td>
  271.     </tr>
  272. <% End If %>
  273. <% If tblSchedule.schPosID.Visible Then ' schPosID %>
  274.     <tr<%= tblSchedule.schPosID.RowAttributes %>>
  275.         <td class="ewTableHeader">Position<span class="ewRequired"> *</span></td>
  276.         <td<%= tblSchedule.schPosID.CellAttributes %>><span id="el_schPosID">
  277. <select id="x_schPosID" name="x_schPosID"<%= tblSchedule.schPosID.EditAttributes %>>
  278. <%
  279. emptywrk = True
  280. If ew_IsArrayList(tblSchedule.schPosID.EditValue) Then
  281.     arwrk = tblSchedule.schPosID.EditValue
  282.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  283.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schPosID.CurrentValue) Then
  284.             selwrk = " selected=""selected"""
  285.             emptywrk = False
  286.         Else
  287.             selwrk = ""
  288.         End If
  289. %>
  290. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  291. <%= arwrk(rowcntwrk)(1) %>
  292. </option>
  293. <%
  294.     Next
  295. End If
  296. %>
  297. </select>
  298. </span><%= tblSchedule.schPosID.CustomMsg %></td>
  299.     </tr>
  300. <% End If %>
  301. <% If tblSchedule.schTypID.Visible Then ' schTypID %>
  302.     <tr<%= tblSchedule.schTypID.RowAttributes %>>
  303.         <td class="ewTableHeader">Type<span class="ewRequired"> *</span></td>
  304.         <td<%= tblSchedule.schTypID.CellAttributes %>><span id="el_schTypID">
  305. <select id="x_schTypID" name="x_schTypID"<%= tblSchedule.schTypID.EditAttributes %>>
  306. <%
  307. emptywrk = True
  308. If ew_IsArrayList(tblSchedule.schTypID.EditValue) Then
  309.     arwrk = tblSchedule.schTypID.EditValue
  310.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  311.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schTypID.CurrentValue) Then
  312.             selwrk = " selected=""selected"""
  313.             emptywrk = False
  314.         Else
  315.             selwrk = ""
  316.         End If
  317. %>
  318. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  319. <%= arwrk(rowcntwrk)(1) %>
  320. </option>
  321. <%
  322.     Next
  323. End If
  324. %>
  325. </select>
  326. </span><%= tblSchedule.schTypID.CustomMsg %></td>
  327.     </tr>
  328. <% End If %>
  329. <% If tblSchedule.schDepID.Visible Then ' schDepID %>
  330.     <tr<%= tblSchedule.schDepID.RowAttributes %>>
  331.         <td class="ewTableHeader">Department<span class="ewRequired"> *</span></td>
  332.         <td<%= tblSchedule.schDepID.CellAttributes %>><span id="el_schDepID">
  333. <select id="x_schDepID" name="x_schDepID"<%= tblSchedule.schDepID.EditAttributes %>>
  334. <%
  335. emptywrk = True
  336. If ew_IsArrayList(tblSchedule.schDepID.EditValue) Then
  337.     arwrk = tblSchedule.schDepID.EditValue
  338.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  339.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schDepID.CurrentValue) Then
  340.             selwrk = " selected=""selected"""
  341.             emptywrk = False
  342.         Else
  343.             selwrk = ""
  344.         End If
  345. %>
  346. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  347. <%= arwrk(rowcntwrk)(1) %>
  348. </option>
  349. <%
  350.     Next
  351. End If
  352. %>
  353. </select>
  354. </span><%= tblSchedule.schDepID.CustomMsg %></td>
  355.     </tr>
  356. <% End If %>
  357. <% If tblSchedule.schNotes.Visible Then ' schNotes %>
  358.     <tr<%= tblSchedule.schNotes.RowAttributes %>>
  359.         <td class="ewTableHeader">Notes</td>
  360.         <td<%= tblSchedule.schNotes.CellAttributes %>><span id="el_schNotes">
  361. <textarea name="x_schNotes" id="x_schNotes" cols="35" rows="4"<%= tblSchedule.schNotes.EditAttributes %>><%= tblSchedule.schNotes.EditValue %></textarea>
  362. </span><%= tblSchedule.schNotes.CustomMsg %></td>
  363.     </tr>
  364. <% End If %>
  365. <% If tblSchedule.schRate.Visible And (Session("tfpssnet_Status_UserName") = "kirkm" Or Session("tfpssnet_Status_UserName") = "admin") Then ' schRate %>
  366.     <tr<%= tblSchedule.schRate.RowAttributes %>>
  367.         <td class="ewTableHeader">Rate</td>
  368.         <td<%= tblSchedule.schRate.CellAttributes %>><span id="el_schRate">
  369. <input type="text" name="x_schRate" id="x_schRate" size="30" value="<%= tblSchedule.schRate.EditValue %>"<%= tblSchedule.schRate.EditAttributes %> />
  370. </span><%= tblSchedule.schRate.CustomMsg %></td>
  371.     </tr>
  372. <% End If %>
  373. <% If tblSchedule.schActualStart.Visible Then ' schActualStart %>
  374.     <tr<%= tblSchedule.schActualStart.RowAttributes %>>
  375.         <td class="ewTableHeader">Actual Start</td>
  376.         <td<%= tblSchedule.schActualStart.CellAttributes %>><span id="el_schActualStart">
  377. <input type="text" name="x_schActualStart" id="x_schActualStart" value="<%= tblSchedule.schActualStart.EditValue %>"<%= tblSchedule.schActualStart.EditAttributes %> />
  378. </span><%= tblSchedule.schActualStart.CustomMsg %></td>
  379.     </tr>
  380. <% End If %>
  381. <% If tblSchedule.schActualEnd.Visible Then ' schActualEnd %>
  382.     <tr<%= tblSchedule.schActualEnd.RowAttributes %>>
  383.         <td class="ewTableHeader">Actual End</td>
  384.         <td<%= tblSchedule.schActualEnd.CellAttributes %>><span id="el_schActualEnd">
  385. <input type="text" name="x_schActualEnd" id="x_schActualEnd" value="<%= tblSchedule.schActualEnd.EditValue %>"<%= tblSchedule.schActualEnd.EditAttributes %> />
  386. </span><%= tblSchedule.schActualEnd.CustomMsg %></td>
  387.     </tr>
  388. <% End If %>
  389. <% If tblSchedule.schDoubleBooked.Visible Then ' schDoubleBooked %>
  390.     <tr<%= tblSchedule.schDoubleBooked.RowAttributes %>>
  391.         <td class="ewTableHeader">Dbl Bkd</td>
  392.         <td<%= tblSchedule.schDoubleBooked.CellAttributes %>><span id="el_schDoubleBooked">
  393. <%
  394. If ew_SameStr(tblSchedule.schDoubleBooked.CurrentValue, "1") Then
  395.     selwrk = " checked=""checked"""
  396. Else
  397.     selwrk = ""
  398. End If
  399. %>
  400. <input type="checkbox" name="x_schDoubleBooked" id="x_schDoubleBooked" value="1"<%= selwrk %><%= tblSchedule.schDoubleBooked.EditAttributes %> />
  401. </span><%= tblSchedule.schDoubleBooked.CustomMsg %></td>
  402.     </tr>
  403. <% End If %>
  404. <% If tblSchedule.schStatus.Visible Then ' schStatus %>
  405.     <tr<%= tblSchedule.schStatus.RowAttributes %>>
  406.         <td class="ewTableHeader">Status<span class="ewRequired"> *</span></td>
  407.         <td<%= tblSchedule.schStatus.CellAttributes %>><span id="el_schStatus">
  408. <select id="x_schStatus" name="x_schStatus"<%= tblSchedule.schStatus.EditAttributes %>>
  409. <%
  410. emptywrk = True
  411. If ew_IsArrayList(tblSchedule.schStatus.EditValue) Then
  412.     arwrk = tblSchedule.schStatus.EditValue
  413.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  414.         If ew_SameStr(arwrk(rowcntwrk)(0), tblSchedule.schStatus.CurrentValue) Then
  415.             selwrk = " selected=""selected"""
  416.             emptywrk = False
  417.         Else
  418.             selwrk = ""
  419.         End If
  420. %>
  421. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  422. <%= arwrk(rowcntwrk)(1) %>
  423. </option>
  424. <%
  425.     Next
  426. End If
  427. %>
  428. </select>
  429. </span><%= tblSchedule.schStatus.CustomMsg %></td>
  430.     </tr>
  431. <% End If %>
  432. </table>
  433. </div>
  434. </td></tr></table>
  435. <p />
  436. <input type="submit" name="btnAction" id="btnAction" value="    Add    " />
  437. </form>
  438. <script language="JavaScript" type="text/javascript">
  439. <!--
  440. // Write your table-specific startup script here
  441. // document.write("page loaded");
  442. //-->
  443. </script>
  444. </asp:Content>
  445.