home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblEventsadd.aspx < prev    next >
Text File  |  2015-05-13  |  7KB  |  157 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblEventsadd.aspx.vb" Inherits="tblEventsadd" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <script type="text/javascript">
  4. <!--
  5. // Create page object
  6. var tblEvents_add = new ew_Page("tblEvents_add");
  7. // page properties
  8. tblEvents_add.PageID = "add"; // page ID
  9. var EW_PAGE_ID = tblEvents_add.PageID; // for backward compatibility
  10. // extend page with ValidateForm function
  11. tblEvents_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 + "_evtTierLevel"];
  21.         if (elm && !ew_CheckInteger(elm.value))
  22.             return ew_OnError(this, elm, "Invalid number - Tier Level");
  23.         elm = fobj.elements["x" + infix + "_evtOverTimePriority"];
  24.         if (elm && !ew_CheckInteger(elm.value))
  25.             return ew_OnError(this, elm, "Invalid number - Overtime Priority Level");
  26.     }
  27.     return true;
  28. }
  29. <% If EW_CLIENT_VALIDATE Then %>
  30. tblEvents_add.ValidateRequired = true; // uses JavaScript validation
  31. <% Else %>
  32. tblEvents_add.ValidateRequired = false; // no JavaScript validation
  33. <% End If %>
  34. //-->
  35. </script>
  36. <script language="JavaScript" type="text/javascript">
  37. <!--
  38. // Write your client script here, no need to add script tags.
  39. // To include another .js script, use:
  40. // ew_ClientScriptInclude("my_javascript.js"); 
  41. //-->
  42. </script>
  43. <p><span class="aspnetmaker">Add to TABLE: Events<br /><br />
  44. <a href="<%= tblEvents.ReturnUrl %>">Go Back</a></span></p>
  45. <% tblEvents_add.ShowMessage() %>
  46. <form name="ftblEventsadd" id="ftblEventsadd" method="post" onsubmit="this.action=location.pathname;return tblEvents_add.ValidateForm(this);">
  47. <p />
  48. <input type="hidden" name="t" id="t" value="tblEvents" />
  49. <input type="hidden" name="a_add" id="a_add" value="A" />
  50. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  51. <div class="ewGridMiddlePanel">
  52. <table cellspacing="0" class="ewTable">
  53. <% If tblEvents.evtDescription.Visible Then ' evtDescription %>
  54.     <tr<%= tblEvents.evtDescription.RowAttributes %>>
  55.         <td class="ewTableHeader">Description</td>
  56.         <td<%= tblEvents.evtDescription.CellAttributes %>><span id="el_evtDescription">
  57. <input type="text" name="x_evtDescription" id="x_evtDescription" size="30" maxlength="255" value="<%= tblEvents.evtDescription.EditValue %>"<%= tblEvents.evtDescription.EditAttributes %> />
  58. </span><%= tblEvents.evtDescription.CustomMsg %></td>
  59.     </tr>
  60. <% End If %>
  61.  
  62. <% If tblEvents.evtIsActive.Visible Then ' evtIsActive %>
  63.     <tr<%= tblEvents.evtIsActive.RowAttributes%>>
  64.         <td class="ewTableHeader">Is Active</td>
  65.         <td<%= tblEvents.evtIsActive.CellAttributes%>><span id="el_evtIsActive">
  66. <%
  67.     If ew_SameStr(tblEvents.evtIsActive.CurrentValue, "1") Then
  68.         selwrk = " checked=""checked"""
  69.     Else
  70.         selwrk = ""
  71.     End If
  72. %>
  73. <input type="checkbox" name="x_evtIsActive" id="x_evtIsActive" value="1"<%= selwrk %><%= tblEvents.evtIsActive.EditAttributes%> />
  74. </span><%= tblEvents.evtIsActive.CustomMsg%></td>
  75.     </tr>
  76. <% End If %>
  77.  
  78. <% If tblEvents.evtAllocateBilling.Visible Then ' evtAllocateBilling %>
  79.     <tr<%= tblEvents.evtAllocateBilling.RowAttributes%>>
  80.         <td class="ewTableHeader">Allocate Billing</td>
  81.         <td<%= tblEvents.evtAllocateBilling.CellAttributes%>><span id="el_evtAllocateBilling">
  82. <%
  83.     If ew_SameStr(tblEvents.evtAllocateBilling.CurrentValue, "1") Then
  84.         selwrk = " checked=""checked"""
  85.     Else
  86.         selwrk = ""
  87.     End If
  88. %>
  89. <input type="checkbox" name="x_evtAllocateBilling" id="x_evtAllocateBilling" value="1"<%= selwrk %><%= tblEvents.evtAllocateBilling.EditAttributes%> />
  90. </span><%= tblEvents.evtAllocateBilling.CustomMsg%></td>
  91.     </tr>
  92. <% End If %>
  93.  
  94. <% If tblEvents.evtBillingNotes.Visible Then ' evtBillingNotes %>
  95.     <tr<%= tblEvents.evtBillingNotes.RowAttributes%>>
  96.         <td class="ewTableHeader">Notes</td>
  97.         <td<%= tblEvents.evtBillingNotes.CellAttributes%>><span id="el_evtBillingNotes">
  98. <textarea name="x_evtBillingNotes" id="x_evtBillingNotes" cols="35" rows="4"<%= tblEvents.evtBillingNotes.EditAttributes%>><%= tblEvents.evtBillingNotes.EditValue%></textarea>
  99. </span><%= tblEvents.evtBillingNotes.CustomMsg%></td>
  100.     </tr>
  101. <% End If %>
  102.  
  103.  
  104. <% If tblEvents.evtTierLevel.Visible Then ' evtTierLevel %>
  105.     <tr<%= tblEvents.evtTierLevel.RowAttributes%>>
  106.         <td class="ewTableHeader">Tier Level<span class="ewRequired"> *</span></td>
  107.         <td<%= tblEvents.evtTierLevel.CellAttributes%>><span id="el_evtTierLevel">
  108. <select id="x_evtTierLevel" name="x_evtTierLevel"<%= tblEvents.evtTierLevel.EditAttributes%>>
  109. <%
  110. emptywrk = True
  111.     If ew_IsArrayList(tblEvents.evtTierLevel.EditValue) Then
  112.         arwrk = tblEvents.evtTierLevel.EditValue
  113.         For rowcntwrk As Integer = 0 To arwrk.Count - 1
  114.             If ew_SameStr(arwrk(rowcntwrk)(0), tblEvents.evtTierLevel.CurrentValue) Then
  115.                 selwrk = " selected=""selected"""
  116.                 emptywrk = False
  117.             Else
  118.                 selwrk = ""
  119.             End If
  120. %>
  121. <option value="<%= ew_HtmlEncode(arwrk(rowcntwrk)(0)) %>"<%= selwrk %>>
  122. <%= arwrk(rowcntwrk)(1) %>
  123. </option>
  124. <%
  125.     Next
  126. End If
  127. %>
  128. </select>
  129. </span><%= tblEvents.evtTierLevel.CustomMsg%></td>
  130.     </tr>
  131. <% End If %>
  132.             
  133. <% If tblEvents.evtOverTimePriority.Visible Then ' evtOverTimePriority %>
  134.     <tr<%= tblEvents.evtOverTimePriority.RowAttributes%>>
  135.         <td class="ewTableHeader">Overtime Priority</td>
  136.         <td<%= tblEvents.evtOverTimePriority.CellAttributes%>><span id="el_evtOverTimePriority">
  137. <input type="text" name="x_evtOverTimePriority" id="x_evtOverTimePriority" size="30" maxlength="255" value="<%= tblEvents.evtOverTimePriority.EditValue%>"<%= tblEvents.evtOverTimePriority.EditAttributes%> />
  138. </span><%= tblEvents.evtOverTimePriority.CustomMsg%></td>
  139.     </tr>
  140. <% End If %>
  141.  
  142.  
  143. </table>
  144. </div>
  145. </td></tr></table>
  146. <p />
  147. <input type="submit" name="btnAction" id="btnAction" value="    Add    " />
  148. </form>
  149. <script language="JavaScript" type="text/javascript">
  150. <!--
  151. // Write your table-specific startup script here
  152. // document.write("page loaded");
  153. //-->
  154.     document.all('x_evtDescription').focus();
  155. </script>
  156. </asp:Content>
  157.