home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblEventslist.aspx < prev    next >
Text File  |  2015-05-13  |  17KB  |  375 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblEventslist.aspx.vb" Inherits="tblEventslist" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <% If tblEvents.Export = "" Then %>
  4. <script type="text/javascript">
  5. <!--
  6. // Create page object
  7. var tblEvents_list = new ew_Page("tblEvents_list");
  8. // page properties
  9. tblEvents_list.PageID = "list"; // page ID
  10. var EW_PAGE_ID = tblEvents_list.PageID; // for backward compatibility
  11. <% If EW_CLIENT_VALIDATE Then %>
  12. tblEvents_list.ValidateRequired = true; // uses JavaScript validation
  13. <% Else %>
  14. tblEvents_list.ValidateRequired = false; // no JavaScript validation
  15. <% End If %>
  16. //-->
  17. </script>
  18. <script language="JavaScript" type="text/javascript">
  19. <!--
  20. // Write your client script here, no need to add script tags.
  21. // To include another .js script, use:
  22. // ew_ClientScriptInclude("my_javascript.js"); 
  23. //-->
  24. </script>
  25. <% End If %>
  26. <% If tblEvents.Export = "" Then %>
  27. <% End If %>
  28. <%
  29.  
  30. ' Load recordset
  31. Rs = tblEvents_list.LoadRecordset()
  32.     tblEvents_list.lStartRec = 1
  33.     If tblEvents_list.lDisplayRecs <= 0 Then ' Display all records
  34.         tblEvents_list.lDisplayRecs = tblEvents_list.lTotalRecs
  35.     End If
  36.     If Not (tblEvents.ExportAll AndAlso tblEvents.Export <> "") Then
  37.         tblEvents_list.SetUpStartRec() ' Set up start record position
  38.     End If
  39. %>
  40. <p><span class="aspnetmaker" style="white-space: nowrap;">TABLE: Events
  41. </span></p>
  42. <% If Security.CanSearch Then %>
  43. <% If tblEvents.Export = "" AndAlso tblEvents.CurrentAction = "" Then %>
  44. <a href="javascript:ew_ToggleSearchPanel(tblEvents_list);" style="text-decoration: none;"><img id="tblEvents_list_SearchImage" src="images/collapse.gif" alt="" width="9" height="9" border="0"></a><span class="aspnetmaker"> Search</span><br>
  45. <div id="tblEvents_list_SearchPanel">
  46. <form name="ftblEventslistsrch" id="ftblEventslistsrch" class="ewForm">
  47. <input type="hidden" id="t" name="t" value="tblEvents" />
  48. <table class="ewBasicSearch">
  49.     <tr>
  50.         <td><span class="aspnetmaker">
  51.             <input type="text" name="<%= EW_TABLE_BASIC_SEARCH %>" id="<%= EW_TABLE_BASIC_SEARCH %>" size="20" value="<%= ew_HtmlEncode(tblEvents.BasicSearchKeyword) %>" />
  52.             <input type="Submit" name="Submit" id="Submit" value="Search (*)" /> 
  53.             <a href="<%= tblEvents_list.PageUrl %>cmd=reset">Show all</a> 
  54.         </span></td>
  55.     </tr>
  56.     <tr>
  57.     <td><span class="aspnetmaker"><label><input type="radio" name="<%= EW_TABLE_BASIC_SEARCH_TYPE %>" id="<%= EW_TABLE_BASIC_SEARCH_TYPE %>" value=""<% If tblEvents.BasicSearchType = "" Then %> checked="checked"<% End If %> />Exact phrase</label>  <label><input type="radio" name="<%= EW_TABLE_BASIC_SEARCH_TYPE %>" id="<%= EW_TABLE_BASIC_SEARCH_TYPE %>" value="AND"<% If tblEvents.BasicSearchType = "AND" Then %> checked="checked"<% End If %> />All words</label>  <label><input type="radio" name="<%= EW_TABLE_BASIC_SEARCH_TYPE %>" id="<%= EW_TABLE_BASIC_SEARCH_TYPE %>" value="OR"<% If tblEvents.BasicSearchType = "OR" Then %> checked="checked"<% End If %> />Any word</label></span></td>
  58.     </tr>
  59. </table>
  60. </form>
  61. </div>
  62. <% End If %>
  63. <% End If %>
  64. <% tblEvents_list.ShowMessage() %>
  65. <br />
  66. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  67. <div class="ewGridMiddlePanel">
  68. <form name="ftblEventslist" id="ftblEventslist" class="ewForm" method="post">
  69. <% If tblEvents_list.lTotalRecs > 0 Then %>
  70. <table cellspacing="0" rowhighlightclass="ewTableHighlightRow" rowselectclass="ewTableSelectRow" roweditclass="ewTableEditRow" class="ewTable ewTableSeparate">
  71. <%
  72.     tblEvents_list.lOptionCnt = 0
  73. If Security.CanView Then
  74.     tblEvents_list.lOptionCnt = tblEvents_list.lOptionCnt + 1 ' View
  75. End If
  76. If Security.CanEdit Then
  77.     tblEvents_list.lOptionCnt = tblEvents_list.lOptionCnt + 1 ' Edit
  78. End If
  79. If Security.CanDelete Then
  80.     tblEvents_list.lOptionCnt = tblEvents_list.lOptionCnt + 1 ' Delete
  81. End If
  82.     tblEvents_list.lOptionCnt = tblEvents_list.lOptionCnt + tblEvents_list.ListOptions.Items.Count ' Custom list options
  83. %>
  84. <%= tblEvents.TableCustomInnerHTML %>
  85. <thead><!-- Table header -->
  86.     <tr class="ewTableHeader">
  87. <% If tblEvents.Export = "" Then %>
  88. <% If Security.CanView Then %>
  89. <td style="white-space: nowrap;"> </td>
  90. <% End If %>
  91. <% If Security.CanEdit Then %>
  92. <td style="white-space: nowrap;"> </td>
  93. <% End If %>
  94. <% If Security.CanDelete Then %>
  95. <td style="white-space: nowrap;"> </td>
  96. <% End If %>
  97. <%
  98.  
  99. ' Custom list options
  100. For i As Integer = 0 to tblEvents_list.ListOptions.Items.Count -1
  101.     If tblEvents_list.ListOptions.Items(i).Visible Then Response.Write(tblEvents_list.ListOptions.Items(i).HeaderCellHtml)
  102. Next
  103. %>
  104. <% End If %>
  105. <% If tblEvents.evtDescription.Visible Then ' evtDescription %>
  106.     <% If tblEvents.SortUrl(tblEvents.evtDescription) = "" Then %>
  107.         <td>Description</td>
  108.     <% Else %>
  109.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblEvents.SortUrl(tblEvents.evtDescription) %>',2);">
  110.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Description (*)</td><td style="width: 10px;"><% If tblEvents.evtDescription.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblEvents.evtDescription.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  111.         </td>
  112.     <% End If %>
  113. <% End If %>        
  114.  
  115. <% If tblEvents.evtIsActive.Visible Then ' evtIsActive %>
  116.     <% If tblEvents.SortUrl(tblEvents.evtIsActive) = "" Then%>
  117.         <td>Is Active</td>
  118.     <% Else %>
  119.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblEvents.SortUrl(tblEvents.evtIsActive)%>',2);">
  120.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Is Active</td><td style="width: 10px;"><% If tblEvents.evtIsActive.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblEvents.evtIsActive.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  121.         </td>
  122.     <% End If %>
  123. <% End If %>        
  124.  
  125. <% If tblEvents.evtAllocateBilling.Visible Then ' evtAllocateBilling %>
  126.     <% If tblEvents.SortUrl(tblEvents.evtAllocateBilling) = "" Then%>
  127.         <td>Allocate Billing</td>
  128.     <% Else %>
  129.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblEvents.SortUrl(tblEvents.evtAllocateBilling)%>',2);">
  130.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Allocate Billing</td><td style="width: 10px;"><% If tblEvents.evtAllocateBilling.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblEvents.evtAllocateBilling.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  131.         </td>
  132.     <% End If %>
  133. <% End If %>        
  134.  
  135. <% If tblEvents.evtBillingNotes.Visible Then ' evtBillingNotes %>
  136.     <% If tblEvents.SortUrl(tblEvents.evtBillingNotes) = "" Then%>
  137.         <td>Billing Notes</td>
  138.     <% Else %>
  139.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblEvents.SortUrl(tblEvents.evtBillingNotes)%>',2);">
  140.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Billing Notes (*)</td><td style="width: 10px;"><% If tblEvents.evtBillingNotes.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblEvents.evtBillingNotes.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  141.         </td>
  142.     <% End If %>
  143. <% End If %>        
  144.  
  145. <% If tblEvents.evtTierLevel.Visible Then ' evtTierLevel %>
  146.     <% If tblEvents.SortUrl(tblEvents.evtTierLevel) = "" Then%>
  147.         <td>Tier Level</td>
  148.     <% Else %>
  149.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblEvents.SortUrl(tblEvents.evtTierLevel)%>',2);">
  150.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Tier Level (*)</td><td style="width: 10px;"><% If tblEvents.evtTierLevel.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblEvents.evtTierLevel.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  151.         </td>
  152.     <% End If %>
  153. <% End If %>        
  154.  
  155. <% If tblEvents.evtOverTimePriority.Visible Then ' evtOverTimePriority %>
  156.     <% If tblEvents.SortUrl(tblEvents.evtOverTimePriority) = "" Then%>
  157.         <td>Overtime Priority</td>
  158.     <% Else %>
  159.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= tblEvents.SortUrl(tblEvents.evtOverTimePriority)%>',2);">
  160.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Overtime Priority (*)</td><td style="width: 10px;"><% If tblEvents.evtOverTimePriority.Sort = "ASC" Then%><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf tblEvents.evtOverTimePriority.Sort = "DESC" Then%><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  161.         </td>
  162.     <% End If %>
  163. <% End If %>        
  164.  
  165.     </tr>
  166. </thead>
  167. <tbody><!-- Table body -->
  168. <%
  169. If (tblEvents.ExportAll AndAlso tblEvents.Export <> "") Then
  170.     tblEvents_list.lStopRec = tblEvents_list.lTotalRecs
  171. Else
  172.     tblEvents_list.lStopRec = tblEvents_list.lStartRec + tblEvents_list.lDisplayRecs - 1 ' Set the last record to display
  173. End If
  174. If tblEvents.CurrentAction = "gridadd" AndAlso tblEvents_list.lStopRec = -1 Then
  175.     tblEvents_list.lStopRec = EW_GRIDADD_ROWS
  176. End If 
  177.  
  178. ' Move to first record
  179. For i As Integer = 1 to tblEvents_list.lStartRec - 1
  180.     If Rs.Read() Then    tblEvents_list.lRecCnt = tblEvents_list.lRecCnt + 1
  181. Next        
  182. tblEvents_list.lRowCnt = 0
  183.  
  184. ' Output data rows
  185. Do While (tblEvents.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (tblEvents_list.lRecCnt < tblEvents_list.lStopRec)
  186.     tblEvents_list.lRecCnt = tblEvents_list.lRecCnt + 1
  187.     If tblEvents_list.lRecCnt >= tblEvents_list.lStartRec Then
  188.         tblEvents_list.lRowCnt = tblEvents_list.lRowCnt + 1
  189.     tblEvents.CssClass = ""
  190.     tblEvents.CssStyle = ""
  191.     tblEvents.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'"
  192.     If tblEvents.CurrentAction = "gridadd" Then
  193.         tblEvents_list.LoadDefaultValues() ' Load default values
  194.     Else
  195.         tblEvents_list.LoadRowValues(Rs) ' Load row values
  196.     End If
  197.     tblEvents.RowType = EW_ROWTYPE_VIEW ' Render view
  198.  
  199.     ' Render row
  200.     tblEvents_list.RenderRow()
  201. %>
  202.     <tr<%= tblEvents.RowAttributes %>>
  203. <% If tblEvents.Export = "" Then %>
  204. <% If Security.CanView Then %>
  205. <td style="white-space: nowrap;"><span class="aspnetmaker">
  206. <a href="<%= tblEvents.ViewUrl %>"><img src='images/view.gif' alt='View' title='View' width='16' height='16' border='0'></a>
  207. </span></td>
  208. <% End If %>
  209. <% If Security.CanEdit Then %>
  210. <td style="white-space: nowrap;"><span class="aspnetmaker">
  211. <a href="<%= tblEvents.EditUrl %>"><img src='images/edit.gif' alt='Edit' title='Edit' width='16' height='16' border='0'></a>
  212. </span></td>
  213. <% End If %>
  214. <% If Security.CanDelete Then %>
  215. <td style="white-space: nowrap;"><span class="aspnetmaker">
  216. <a href="<%= tblEvents.DeleteUrl %>"><img src='images/delete.gif' alt='Delete' title='Delete' width='16' height='16' border='0'></a>
  217. </span></td>
  218. <% End If %>
  219. <%
  220.  
  221. ' Custom list options
  222. For i As Integer = 0 to tblEvents_list.ListOptions.Items.Count -1
  223.     If tblEvents_list.ListOptions.Items(i).Visible Then Response.Write(tblEvents_list.ListOptions.Items(i).BodyCellHtml)
  224. Next
  225. %>
  226. <% End If %>
  227.     <% If tblEvents.evtDescription.Visible Then ' evtDescription %>
  228.         <td<%= tblEvents.evtDescription.CellAttributes %>>
  229. <div<%= tblEvents.evtDescription.ViewAttributes %>><%= tblEvents.evtDescription.ListViewValue %></div>
  230. </td>
  231.     <% End If %>
  232.  
  233.     <% If tblEvents.evtIsActive.Visible Then ' evtIsActive %>
  234.         <td<%= tblEvents.evtIsActive.CellAttributes%>>
  235. <% If Convert.ToString(tblEvents.evtIsActive.CurrentValue) = "1" Then%>
  236. <input type="checkbox" value="<%= tblEvents.evtIsActive.ListViewValue%>" checked onclick="this.form.reset();" disabled="disabled" />
  237. <% Else %>
  238. <input type="checkbox" value="<%= tblEvents.evtIsActive.ListViewValue%>" onclick="this.form.reset();" disabled="disabled" />
  239. <% End If %>
  240. </td>
  241.     <% End If %>
  242.  
  243.     <% If tblEvents.evtAllocateBilling.Visible Then ' evtAllocateBilling %>
  244.         <td<%= tblEvents.evtAllocateBilling.CellAttributes%>>
  245. <% If Convert.ToString(tblEvents.evtAllocateBilling.CurrentValue) = "1" Then%>
  246. <input type="checkbox" value="<%= tblEvents.evtAllocateBilling.ListViewValue%>" checked onclick="this.form.reset();" disabled="disabled" />
  247. <% Else %>
  248. <input type="checkbox" value="<%= tblEvents.evtAllocateBilling.ListViewValue%>" onclick="this.form.reset();" disabled="disabled" />
  249. <% End If %>
  250. </td>
  251.     <% End If %>
  252.  
  253.     <% If tblEvents.evtBillingNotes.Visible Then ' evtBillingNotes %>
  254.         <td<%= tblEvents.evtBillingNotes.CellAttributes%>>
  255. <div<%= tblEvents.evtBillingNotes.ViewAttributes%>><%= tblEvents.evtBillingNotes.ListViewValue%></div>
  256. </td>
  257.     <% End If %>
  258.  
  259.         <% If tblEvents.evtTierLevel.Visible Then ' evtTierLevel %>
  260.         <td<%= tblEvents.evtTierLevel.CellAttributes%>>
  261. <div<%= tblEvents.evtTierLevel.ViewAttributes%>><%= tblEvents.evtTierLevel.ListViewValue%></div>
  262. </td>
  263.     <% End If %>
  264.  
  265.         <% If tblEvents.evtOverTimePriority.Visible Then ' evtOverTimePriority %>
  266.         <td<%= tblEvents.evtOverTimePriority.CellAttributes%>>
  267. <div<%= tblEvents.evtOverTimePriority.ViewAttributes%>><%= tblEvents.evtOverTimePriority.ListViewValue %></div>
  268. </td>
  269.     <% End If %>
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.     </tr>
  278. <%
  279.     End If
  280. Loop
  281. %>
  282. </tbody>
  283. </table>
  284. <% End If %>
  285. </form>
  286. <%
  287.  
  288. ' Close recordset
  289. Rs.Close()
  290. Rs.Dispose()
  291. %>
  292. </div>
  293. <% If tblEvents.Export = "" Then %>
  294. <div class="ewGridLowerPanel">
  295. <% If tblEvents.CurrentAction <> "gridadd" AndAlso tblEvents.CurrentAction <> "gridedit" Then %>
  296. <form name="ewpagerform" id="ewpagerform" class="ewForm">
  297. <table border="0" cellspacing="0" cellpadding="0" class="ewPager">
  298.     <tr>
  299.         <td>
  300. <span class="aspnetmaker">
  301. <% If tblEvents_list.Pager Is Nothing Then tblEvents_list.Pager = New cNumericPager(tblEvents_list.lStartRec, tblEvents_list.lDisplayRecs, tblEvents_list.lTotalRecs, tblEvents_list.lRecRange) %>
  302. <% If tblEvents_list.Pager.RecordCount > 0 Then %>
  303.     <% If tblEvents_list.Pager.FirstButton.Enabled Then %>
  304.     <a href="<%= tblEvents_list.PageUrl %>start=<%= tblEvents_list.Pager.FirstButton.Start %>">First</a> 
  305.     <% End If %>
  306.     <% If tblEvents_list.Pager.PrevButton.Enabled Then %>
  307.     <a href="<%= tblEvents_list.PageUrl %>start=<%= tblEvents_list.Pager.PrevButton.Start %>">Previous</a> 
  308.     <% End If %>
  309.     <% For Each PagerItem As cPagerItem In tblEvents_list.Pager.Items %>
  310.         <% If PagerItem.Enabled Then %><a href="<%= tblEvents_list.PageUrl %>start=<%= PagerItem.Start %>"><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %></a><% End If %> 
  311.     <% Next %>
  312.     <% If tblEvents_list.Pager.NextButton.Enabled Then %>
  313.     <a href="<%= tblEvents_list.PageUrl %>start=<%= tblEvents_list.Pager.NextButton.Start %>">Next</a> 
  314.     <% End If %>
  315.     <% If tblEvents_list.Pager.LastButton.Enabled Then %>
  316.     <a href="<%= tblEvents_list.PageUrl %>start=<%= tblEvents_list.Pager.LastButton.Start %>">Last</a> 
  317.     <% End If %>
  318.     <% If tblEvents_list.Pager.ButtonCount > 0 Then %>    <%    End If %>
  319.     Records <%= tblEvents_list.Pager.FromIndex %> to <%= tblEvents_list.Pager.ToIndex %> of <%= tblEvents_list.Pager.RecordCount %>
  320. <% Else %>
  321.     <% If Security.CanList Then %>
  322.     <% If tblEvents_list.sSrchWhere = "0=101" Then %>
  323.     Please enter search criteria
  324.     <% Else %>
  325.     No records found
  326.     <% End If %>
  327.     <% Else %>
  328.     You do not have the right permission to view the page
  329.     <% End If %>
  330. <% End If %>
  331. </span>
  332.         </td>
  333. <% If tblEvents_list.lTotalRecs > 0 Then %>
  334.         <td>    </td>
  335.         <td><table border="0" cellspacing="0" cellpadding="0"><tr><td>Page Size </td><td>
  336. <input type="hidden" id="t" name="t" value="tblEvents" />
  337. <select name="<%= EW_TABLE_REC_PER_PAGE %>" id="<%= EW_TABLE_REC_PER_PAGE %>" onchange="this.form.submit();" class="aspnetmaker">
  338. <option value="10"<% If tblEvents_list.lDisplayRecs = 10 Then %> selected="selected"<% End If %>>10</option>
  339. <option value="20"<% If tblEvents_list.lDisplayRecs = 20 Then %> selected="selected"<% End If %>>20</option>
  340. <option value="50"<% If tblEvents_list.lDisplayRecs = 50 Then %> selected="selected"<% End If %>>50</option>
  341. <option value="ALL"<% If tblEvents.RecordsPerPage = -1 Then %> selected="selected"<% End If %>>All</option>
  342. </select></td></tr></table>
  343.         </td>
  344. <% End If %>
  345.     </tr>
  346. </table>
  347. </form>
  348. <% End If %>
  349. <% 'If tblEvents_list.lTotalRecs > 0 Then %>
  350. <div class="aspnetmaker">
  351. <% If Security.CanAdd Then %>
  352. <a href="<%= tblEvents.AddUrl %>">Add</a>  
  353. <% End If %>
  354. </div>
  355. <% 'End If %>
  356. </div>
  357. <% End If %>
  358. </td></tr></table>
  359. <% If tblEvents.Export = "" AndAlso tblEvents.CurrentAction = "" Then %>
  360. <script type="text/javascript">
  361. <!--
  362. //ew_ToggleSearchPanel(tblEvents_list); // uncomment to init search panel as collapsed
  363. //-->
  364. </script>
  365. <% End If %>
  366. <% If tblEvents.Export = "" Then %>
  367. <script language="JavaScript" type="text/javascript">
  368. <!--
  369. // Write your table-specific startup script here
  370. // document.write("page loaded");
  371. //-->
  372. </script>
  373. <% End If %>
  374. </asp:Content>
  375.