home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / viewClockInOutadd.aspx < prev    next >
Text File  |  2013-01-05  |  17KB  |  391 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="viewClockInOutadd.aspx.vb" Inherits="viewClockInOutadd" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <script type="text/javascript">
  4. <!--
  5. // Create page object
  6. var viewClockInOut_add = new ew_Page("viewClockInOut_add");
  7. // page properties
  8. viewClockInOut_add.PageID = "add"; // page ID
  9. var EW_PAGE_ID = viewClockInOut_add.PageID; // for backward compatibility
  10. // extend page with ValidateForm function
  11. viewClockInOut_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 + "_schLocID"];
  39. //        if (elm && !ew_HasValue(elm))
  40. //            return ew_OnError(this, elm, "Please enter required field - Location");
  41.         elm = fobj.elements["x" + infix + "_schEmpID"];
  42.         if (elm && !ew_HasValue(elm))
  43.             return ew_OnError(this, elm, "Please enter required field - Employee");
  44. //        elm = fobj.elements["x" + infix + "_schPosID"];
  45. //        if (elm && !ew_HasValue(elm))
  46. //            return ew_OnError(this, elm, "Please enter required field - Position");
  47.         elm = fobj.elements["x" + infix + "_schTypID"];
  48.         if (elm && !ew_HasValue(elm))
  49.             return ew_OnError(this, elm, "Please enter required field - Type");
  50.         elm = fobj.elements["x" + infix + "_schNotes"];
  51.         if (elm && !ew_HasValue(elm))
  52.             return ew_OnError(this, elm, "Please enter required field - Reason for Unscheduled Shift");
  53. //        elm = fobj.elements["x" + infix + "_schActualStart"];
  54. //        if (elm && !ew_CheckTime(elm.value))
  55. //            return ew_OnError(this, elm, "Incorrect time (hh:mm:ss) - Actual Start");
  56.         elm = fobj.elements["x" + infix + "_schDateCreated"];
  57.         if (elm && !ew_CheckUSDate(elm.value))
  58.             return ew_OnError(this, elm, "Incorrect date, format = mm/dd/yyyy - Date Created");
  59.         elm = fobj.elements["x" + infix + "_schStatus"];
  60.         if (elm && !ew_HasValue(elm))
  61.             return ew_OnError(this, elm, "Please enter required field - Status");
  62.     }
  63.     return true;
  64. }
  65. <% If EW_CLIENT_VALIDATE Then %>
  66. viewClockInOut_add.ValidateRequired = true; // uses JavaScript validation
  67. <% Else %>
  68. viewClockInOut_add.ValidateRequired = false; // no JavaScript validation
  69. <% End If %>
  70. //-->
  71. </script>
  72. <link rel="stylesheet" type="text/css" media="all" href="calendar/calendar-win2k-1.css" title="win2k-1" />
  73. <script type="text/javascript" src="calendar/calendar.js"></script>
  74. <script type="text/javascript" src="calendar/lang/calendar-en.js"></script>
  75. <script type="text/javascript" src="calendar/calendar-setup.js"></script>
  76. <script language="JavaScript" type="text/javascript">
  77. <!--
  78. // Write your client script here, no need to add script tags.
  79. // To include another .js script, use:
  80. // ew_ClientScriptInclude("my_javascript.js"); 
  81. //-->
  82. </script>
  83. <p><span class="aspnetmaker">Clock In/Out<br /><br />
  84. <a href="<%= viewClockInOut.ReturnUrl %>">Go Back</a></span></p>
  85. <% viewClockInOut_add.ShowMessage() %>
  86. <form name="fviewClockInOutadd" id="fviewClockInOutadd" method="post" onsubmit="this.action=location.pathname;return viewClockInOut_add.ValidateForm(this);">
  87. <p />
  88. <input type="hidden" name="t" id="t" value="viewClockInOut" />
  89. <input type="hidden" name="a_add" id="a_add" value="A" />
  90. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  91. <div class="ewGridMiddlePanel">
  92. <table cellspacing="0" class="ewTable">
  93. <% If viewClockInOut.schDate.Visible Then ' schDate %>
  94.     <tr<%= viewClockInOut.schDate.RowAttributes %>>
  95.         <td class="ewTableHeader">Date<span class="ewRequired"> *</span></td>
  96.         <td<%= viewClockInOut.schDate.CellAttributes %>><span id="el_schDate">
  97. <div<%= viewClockInOut.schDate.ViewAttributes %>><%=viewClockInOut.schDate.EditValue%></div>
  98. <input type="hidden" name="x_schDate" id="x_schDate" value="<%= ew_HTMLEncode(viewClockInOut.schDate.CurrentValue) %>" />
  99. </span><%= viewClockInOut.schDate.CustomMsg %></td>
  100.     </tr>
  101. <% End If %>
  102. <% If viewClockInOut.schEvtID.Visible Then ' schEvtID %>
  103.     <tr<%= viewClockInOut.schEvtID.RowAttributes %>>
  104.         <td class="ewTableHeader">Event<span class="ewRequired"> *</span></td>
  105.         <td<%= viewClockInOut.schEvtID.CellAttributes %>><span id="el_schEvtID">
  106. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  107. <div<%= viewClockInOut.schEvtID.ViewAttributes %>><%=viewClockInOut.schEvtID.EditValue%></div>
  108. <input type="hidden" name="x_schEvtID" id="x_schEvtID" value="<%= ew_HTMLEncode(viewClockInOut.schEvtID.CurrentValue) %>" />
  109. <% Else %>
  110. <select id="x_schEvtID" name="x_schEvtID"<%= viewClockInOut.schEvtID.EditAttributes %>>
  111. <%
  112. emptywrk = True
  113. If ew_IsArrayList(viewClockInOut.schEvtID.EditValue) Then
  114.     arwrk = viewClockInOut.schEvtID.EditValue
  115.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  116.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schEvtID.CurrentValue) Then
  117.             selwrk = " selected=""selected"""
  118.             emptywrk = False
  119.         Else
  120.             selwrk = ""
  121.         End If
  122. %>
  123. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  124. <%= arwrk(rowcntwrk)(1) %>
  125. </option>
  126. <%
  127.     Next
  128. End If
  129. %>
  130. </select>
  131. <% End If%>
  132. </span><%= viewClockInOut.schEvtID.CustomMsg %></td>
  133.     </tr>
  134. <% End If %>
  135. <% If viewClockInOut.schPartsID.Visible Then ' schPartsID %>
  136.     <tr<%= viewClockInOut.schPartsID.RowAttributes %>>
  137.         <td class="ewTableHeader">Part<span class="ewRequired"> *</span></td>
  138.         <td<%= viewClockInOut.schPartsID.CellAttributes %>><span id="el_schPartsID">
  139. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  140. <div<%= viewClockInOut.schPartsID.ViewAttributes %>><%=viewClockInOut.schPartsID.EditValue%></div>
  141. <input type="hidden" name="x_schPartsID" id="x_schPartsID" value="<%= ew_HTMLEncode(viewClockInOut.schPartsID.CurrentValue) %>" />
  142. <% Else %>
  143. <select id="x_schPartsID" name="x_schPartsID"<%= viewClockInOut.schPartsID.EditAttributes %>>
  144. <%
  145. emptywrk = True
  146. If ew_IsArrayList(viewClockInOut.schPartsID.EditValue) Then
  147.     arwrk = viewClockInOut.schPartsID.EditValue
  148.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  149.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schPartsID.CurrentValue) Then
  150.             selwrk = " selected=""selected"""
  151.             emptywrk = False
  152.         Else
  153.             selwrk = ""
  154.         End If
  155. %>
  156. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  157. <%= arwrk(rowcntwrk)(1) %>
  158. </option>
  159. <%
  160.     Next
  161. End If
  162. %>
  163. </select>
  164. <% End if %>
  165. </span><%= viewClockInOut.schPartsID.CustomMsg %></td>
  166.     </tr>
  167. <% End If %>
  168. <% If viewClockInOut.schCallTime.Visible Then ' schCallTime %>
  169.     <tr<%= viewClockInOut.schCallTime.RowAttributes %>>
  170.         <td class="ewTableHeader">Call Time</td>
  171.         <td<%= viewClockInOut.schCallTime.CellAttributes %>><span id="el_schCallTime">
  172. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  173. <div<%= viewClockInOut.schCallTime.ViewAttributes %>><%=viewClockInOut.schCallTime.EditValue%></div>
  174. <input type="hidden" name="x_schCallTime" id="x_schCallTime" value="<%= ew_HTMLEncode(viewClockInOut.schCallTime.CurrentValue) %>" />
  175. <% Else %>
  176. <input type="text" name="x_schCallTime" id="x_schCallTime" value="<%= viewClockInOut.schCallTime.EditValue %>"<%= viewClockInOut.schCallTime.EditAttributes %> />
  177. <% End If%>
  178. </span><%= viewClockInOut.schCallTime.CustomMsg %></td>
  179.     </tr>
  180. <% End If %>
  181. <% If viewClockInOut.schStartTime.Visible Then ' schStartTime %>
  182.     <tr<%= viewClockInOut.schStartTime.RowAttributes %>>
  183.         <td class="ewTableHeader">Start Time</td>
  184.         <td<%= viewClockInOut.schStartTime.CellAttributes %>><span id="el_schStartTime">
  185. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  186. <div<%= viewClockInOut.schStartTime.ViewAttributes %>><%=viewClockInOut.schStartTime.EditValue%></div>
  187. <input type="hidden" name="x_schStartTime" id="x_schStartTime" value="<%= ew_HTMLEncode(viewClockInOut.schStartTime.CurrentValue) %>" />
  188. <% Else %>
  189. <input type="text" name="x_schStartTime" id="x_schStartTime" value="<%= viewClockInOut.schStartTime.EditValue %>"<%= viewClockInOut.schStartTime.EditAttributes %> />
  190. <% End If%>
  191. </span><%= viewClockInOut.schStartTime.CustomMsg %></td>
  192.     </tr>
  193. <% End If %>
  194. <% If viewClockInOut.schLocID.Visible Then ' schLocID %>
  195.     <tr<%= viewClockInOut.schLocID.RowAttributes %>>
  196.         <td class="ewTableHeader">Location<span class="ewRequired"> *</span></td>
  197.         <td<%= viewClockInOut.schLocID.CellAttributes %>><span id="el_schLocID">
  198. <select id="x_schLocID" name="x_schLocID"<%= viewClockInOut.schLocID.EditAttributes %>>
  199. <%
  200. emptywrk = True
  201. If ew_IsArrayList(viewClockInOut.schLocID.EditValue) Then
  202.     arwrk = viewClockInOut.schLocID.EditValue
  203.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  204.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schLocID.CurrentValue) Then
  205.             selwrk = " selected=""selected"""
  206.             emptywrk = False
  207.         Else
  208.             selwrk = ""
  209.         End If
  210. %>
  211. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  212. <%= arwrk(rowcntwrk)(1) %>
  213. </option>
  214. <%
  215.     Next
  216. End If
  217. %>
  218. </select>
  219. </span><%= viewClockInOut.schLocID.CustomMsg %></td>
  220.     </tr>
  221. <% End If %>
  222. <% If viewClockInOut.schEmpID.Visible Then ' schEmpID %>
  223.     <tr<%= viewClockInOut.schEmpID.RowAttributes %>>
  224.         <td class="ewTableHeader">Employee<span class="ewRequired"> *</span></td>
  225.         <td<%= viewClockInOut.schEmpID.CellAttributes %>><span id="el_schEmpID">
  226. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  227. <div<%= viewClockInOut.schEmpID.ViewAttributes %>><%= viewClockInOut.schEmpID.EditValue %></div>
  228. <input type="hidden" name="x_schEmpID" id="x_schEmpID" value="<%= ew_HTMLEncode(viewClockInOut.schEmpID.CurrentValue) %>" />
  229. <% Else %>
  230. <select id="x_schEmpID" name="x_schEmpID"<%= viewClockInOut.schEmpID.EditAttributes %>>
  231. <%
  232. emptywrk = True
  233. If ew_IsArrayList(viewClockInOut.schEmpID.EditValue) Then
  234.     arwrk = viewClockInOut.schEmpID.EditValue
  235.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  236.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schEmpID.CurrentValue) Then
  237.             selwrk = " selected=""selected"""
  238.             emptywrk = False
  239.         Else
  240.             selwrk = ""
  241.         End If
  242. %>
  243. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  244. <%= arwrk(rowcntwrk)(1) %>
  245. </option>
  246. <%
  247.     Next
  248. End If
  249. %>
  250. </select>
  251. <% End If %>
  252. </span><%= viewClockInOut.schEmpID.CustomMsg %></td>
  253.     </tr>
  254. <% End If %>
  255. <% If viewClockInOut.schPosID.Visible Then ' schPosID %>
  256.     <tr<%= viewClockInOut.schPosID.RowAttributes %>>
  257.         <td class="ewTableHeader">Position<span class="ewRequired"> *</span></td>
  258.         <td<%= viewClockInOut.schPosID.CellAttributes %>><span id="el_schPosID">
  259. <select id="x_schPosID" name="x_schPosID"<%= viewClockInOut.schPosID.EditAttributes %>>
  260. <%
  261. emptywrk = True
  262. If ew_IsArrayList(viewClockInOut.schPosID.EditValue) Then
  263.     arwrk = viewClockInOut.schPosID.EditValue
  264.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  265.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schPosID.CurrentValue) Then
  266.             selwrk = " selected=""selected"""
  267.             emptywrk = False
  268.         Else
  269.             selwrk = ""
  270.         End If
  271. %>
  272. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  273. <%= arwrk(rowcntwrk)(1) %>
  274. </option>
  275. <%
  276.     Next
  277. End If
  278. %>
  279. </select>
  280. </span><%= viewClockInOut.schPosID.CustomMsg %></td>
  281.     </tr>
  282. <% End If %>
  283. <% If viewClockInOut.schTypID.Visible Then ' schTypID %>
  284.     <tr<%= viewClockInOut.schTypID.RowAttributes %>>
  285.         <td class="ewTableHeader">Type<span class="ewRequired"> *</span></td>
  286.         <td<%= viewClockInOut.schTypID.CellAttributes %>><span id="el_schTypID">
  287. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  288. <div<%= viewClockInOut.schTypID.ViewAttributes %>><%=viewClockInOut.schTypID.EditValue%></div>
  289. <input type="hidden" name="x_schTypID" id="x_schTypID" value="<%= ew_HTMLEncode(viewClockInOut.schTypID.CurrentValue) %>" />
  290. <% Else %>
  291. <select id="x_schTypID" name="x_schTypID"<%= viewClockInOut.schTypID.EditAttributes %>>
  292. <%
  293. emptywrk = True
  294. If ew_IsArrayList(viewClockInOut.schTypID.EditValue) Then
  295.     arwrk = viewClockInOut.schTypID.EditValue
  296.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  297.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schTypID.CurrentValue) Then
  298.             selwrk = " selected=""selected"""
  299.             emptywrk = False
  300.         Else
  301.             selwrk = ""
  302.         End If
  303. %>
  304. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  305. <%= arwrk(rowcntwrk)(1) %>
  306. </option>
  307. <%
  308.     Next
  309. End If
  310. %>
  311. </select>
  312. <% End If %>
  313. </span><%= viewClockInOut.schTypID.CustomMsg %></td>
  314.     </tr>
  315. <% End If %>
  316. <% If viewClockInOut.schNotes.Visible Then ' schNotes %>
  317.     <tr<%= viewClockInOut.schNotes.RowAttributes %>>
  318.         <td class="ewTableHeader">Reason for Unscheduled Shift<span class="ewRequired"> *</span></td>
  319.         <td<%= viewClockInOut.schNotes.CellAttributes %>><span id="el_schNotes">
  320. <textarea name="x_schNotes" id="x_schNotes" cols="35" rows="4"<%= viewClockInOut.schNotes.EditAttributes %>><%= viewClockInOut.schNotes.EditValue %></textarea>
  321. </span><%= viewClockInOut.schNotes.CustomMsg %></td>
  322.     </tr>
  323. <% End If %>
  324. <% If viewClockInOut.schActualStart.Visible Then ' schActualStart %>
  325.     <tr<%= viewClockInOut.schActualStart.RowAttributes %>>
  326.         <td class="ewTableHeader">Actual Start</td>
  327.         <td<%= viewClockInOut.schActualStart.CellAttributes %>><span id="el_schActualStart">
  328. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  329. <div<%= viewClockInOut.schActualStart.ViewAttributes %>><%=viewClockInOut.schActualStart.EditValue%></div>
  330. <input type="hidden" name="x_schActualStart" id="x_schActualStart" value="<%= ew_HTMLEncode(viewClockInOut.schActualStart.CurrentValue) %>" />
  331. <% Else %>
  332. <input type="text" name="x_schActualStart" id="x_schActualStart" value="<%= viewClockInOut.schActualStart.EditValue %>"<%= viewClockInOut.schActualStart.EditAttributes %> />
  333. <% End If%>
  334. </span><%= viewClockInOut.schActualStart.CustomMsg %></td>
  335.     </tr>
  336. <% End If %>
  337. <% If viewClockInOut.schDateCreated.Visible Then ' schDateCreated %>
  338.     <tr<%= viewClockInOut.schDateCreated.RowAttributes %>>
  339.         <td class="ewTableHeader">Date Created</td>
  340.         <td<%= viewClockInOut.schDateCreated.CellAttributes %>><span id="el_schDateCreated">
  341. <% If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin %>
  342. <div<%= viewClockInOut.schDateCreated.ViewAttributes %>><%=viewClockInOut.schDateCreated.EditValue%></div>
  343. <input type="hidden" name="x_schDateCreated" id="x_schDateCreated" value="<%= ew_HTMLEncode(viewClockInOut.schDateCreated.CurrentValue) %>" />
  344. <% Else %>
  345. <input type="text" name="x_schDateCreated" id="x_schDateCreated" value="<%= viewClockInOut.schDateCreated.EditValue %>"<%= viewClockInOut.schDateCreated.EditAttributes %> />
  346. <% End If%>
  347. </span><%= viewClockInOut.schDateCreated.CustomMsg %></td>
  348.     </tr>
  349. <% End If %>
  350. <% If viewClockInOut.schStatus.Visible Then ' schStatus %>
  351.     <tr<%= viewClockInOut.schStatus.RowAttributes %>>
  352.         <td class="ewTableHeader">Status<span class="ewRequired"> *</span></td>
  353.         <td<%= viewClockInOut.schStatus.CellAttributes %>><span id="el_schStatus">
  354. <select id="x_schStatus" name="x_schStatus"<%= viewClockInOut.schStatus.EditAttributes %>>
  355. <%
  356. emptywrk = True
  357. If ew_IsArrayList(viewClockInOut.schStatus.EditValue) Then
  358.     arwrk = viewClockInOut.schStatus.EditValue
  359.     For rowcntwrk As Integer = 0 To arwrk.Count - 1
  360.         If ew_SameStr(arwrk(rowcntwrk)(0), viewClockInOut.schStatus.CurrentValue) Then
  361.             selwrk = " selected=""selected"""
  362.             emptywrk = False
  363.         Else
  364.             selwrk = ""
  365.         End If
  366. %>
  367. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  368. <%= arwrk(rowcntwrk)(1) %>
  369. </option>
  370. <%
  371.     Next
  372. End If
  373. %>
  374. </select>
  375. </span><%= viewClockInOut.schStatus.CustomMsg %></td>
  376.     </tr>
  377. <% End If %>
  378. </table>
  379. </div>
  380. </td></tr></table>
  381. <p />
  382. <input type="submit" name="btnAction" id="btnAction" value="    Add    " />
  383. </form>
  384. <script language="JavaScript" type="text/javascript">
  385. <!--
  386. // Write your table-specific startup script here
  387. // document.write("page loaded");
  388. //-->
  389. </script>
  390. </asp:Content>
  391.