home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / ltgFixtureLocationlist.aspx < prev    next >
Text File  |  2014-01-25  |  15KB  |  297 lines
  1. <%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="ltgFixtureLocationlist.aspx.vb" Inherits="ltgFixtureLocationlist" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
  2. <asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
  3. <% If ltgFixtureLocation.Export = "" Then %>
  4. <script type="text/javascript">
  5. <!--
  6. // Create page object
  7. var ltgFixtureLocation_list = new ew_Page("ltgFixtureLocation_list");
  8. // page properties
  9. ltgFixtureLocation_list.PageID = "list"; // page ID
  10. var EW_PAGE_ID = ltgFixtureLocation_list.PageID; // for backward compatibility
  11. <% If EW_CLIENT_VALIDATE Then %>
  12. ltgFixtureLocation_list.ValidateRequired = true; // uses JavaScript validation
  13. <% Else %>
  14. ltgFixtureLocation_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 ltgFixtureLocation.Export = "" Then %>
  27. <% End If %>
  28. <%
  29.  
  30. ' Load recordset
  31. Rs = ltgFixtureLocation_list.LoadRecordset()
  32.     ltgFixtureLocation_list.lStartRec = 1
  33.     If ltgFixtureLocation_list.lDisplayRecs <= 0 Then ' Display all records
  34.         ltgFixtureLocation_list.lDisplayRecs = ltgFixtureLocation_list.lTotalRecs
  35.     End If
  36.     If Not (ltgFixtureLocation.ExportAll AndAlso ltgFixtureLocation.Export <> "") Then
  37.         ltgFixtureLocation_list.SetUpStartRec() ' Set up start record position
  38.     End If
  39. %>
  40. <p><span class="aspnetmaker" style="white-space: nowrap;">TABLE: ltg Fixture Location
  41. </span></p>
  42. <% If Security.CanSearch Then %>
  43. <% If ltgFixtureLocation.Export = "" AndAlso ltgFixtureLocation.CurrentAction = "" Then %>
  44. <a href="javascript:ew_ToggleSearchPanel(ltgFixtureLocation_list);" style="text-decoration: none;"><img id="ltgFixtureLocation_list_SearchImage" src="images/collapse.gif" alt="" width="9" height="9" border="0"></a><span class="aspnetmaker"> Search</span><br>
  45. <div id="ltgFixtureLocation_list_SearchPanel">
  46. <form name="fltgFixtureLocationlistsrch" id="fltgFixtureLocationlistsrch" class="ewForm">
  47. <input type="hidden" id="t" name="t" value="ltgFixtureLocation" />
  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(ltgFixtureLocation.BasicSearchKeyword) %>" />
  52.             <input type="Submit" name="Submit" id="Submit" value="Search (*)" /> 
  53.             <a href="<%= ltgFixtureLocation_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 ltgFixtureLocation.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 ltgFixtureLocation.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 ltgFixtureLocation.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. <% ltgFixtureLocation_list.ShowMessage() %>
  65. <br />
  66. <table cellspacing="0" class="ewGrid"><tr><td class="ewGridContent">
  67. <div class="ewGridMiddlePanel">
  68. <form name="fltgFixtureLocationlist" id="fltgFixtureLocationlist" class="ewForm" method="post">
  69. <% If ltgFixtureLocation_list.lTotalRecs > 0 Then %>
  70. <table cellspacing="0" rowhighlightclass="ewTableHighlightRow" rowselectclass="ewTableSelectRow" roweditclass="ewTableEditRow" class="ewTable ewTableSeparate">
  71. <%
  72.     ltgFixtureLocation_list.lOptionCnt = 0
  73. If Security.CanView Then
  74.     ltgFixtureLocation_list.lOptionCnt = ltgFixtureLocation_list.lOptionCnt + 1 ' View
  75. End If
  76. If Security.CanEdit Then
  77.     ltgFixtureLocation_list.lOptionCnt = ltgFixtureLocation_list.lOptionCnt + 1 ' Edit
  78. End If
  79. If Security.CanDelete Then
  80.     ltgFixtureLocation_list.lOptionCnt = ltgFixtureLocation_list.lOptionCnt + 1 ' Delete
  81. End If
  82.     ltgFixtureLocation_list.lOptionCnt = ltgFixtureLocation_list.lOptionCnt + ltgFixtureLocation_list.ListOptions.Items.Count ' Custom list options
  83. %>
  84. <%= ltgFixtureLocation.TableCustomInnerHTML %>
  85. <thead><!-- Table header -->
  86.     <tr class="ewTableHeader">
  87. <% If ltgFixtureLocation.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 ltgFixtureLocation_list.ListOptions.Items.Count -1
  101.     If ltgFixtureLocation_list.ListOptions.Items(i).Visible Then Response.Write(ltgFixtureLocation_list.ListOptions.Items(i).HeaderCellHtml)
  102. Next
  103. %>
  104. <% End If %>
  105. <% If ltgFixtureLocation.floDescription.Visible Then ' floDescription %>
  106.     <% If ltgFixtureLocation.SortUrl(ltgFixtureLocation.floDescription) = "" Then %>
  107.         <td>Description</td>
  108.     <% Else %>
  109.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= ltgFixtureLocation.SortUrl(ltgFixtureLocation.floDescription) %>',2);">
  110.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Description (*)</td><td style="width: 10px;"><% If ltgFixtureLocation.floDescription.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf ltgFixtureLocation.floDescription.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. <% If ltgFixtureLocation.floIsActive.Visible Then ' floIsActive %>
  115.     <% If ltgFixtureLocation.SortUrl(ltgFixtureLocation.floIsActive) = "" Then %>
  116.         <td>Is Active</td>
  117.     <% Else %>
  118.         <td class="ewPointer" onmousedown="ew_Sort(event,'<%= ltgFixtureLocation.SortUrl(ltgFixtureLocation.floIsActive) %>',2);">
  119.             <table cellspacing="0" class="ewTableHeaderBtn"><tr><td>Is Active</td><td style="width: 10px;"><% If ltgFixtureLocation.floIsActive.Sort = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf ltgFixtureLocation.floIsActive.Sort = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></td></tr></table>
  120.         </td>
  121.     <% End If %>
  122. <% End If %>        
  123.     </tr>
  124. </thead>
  125. <tbody><!-- Table body -->
  126. <%
  127. If (ltgFixtureLocation.ExportAll AndAlso ltgFixtureLocation.Export <> "") Then
  128.     ltgFixtureLocation_list.lStopRec = ltgFixtureLocation_list.lTotalRecs
  129. Else
  130.     ltgFixtureLocation_list.lStopRec = ltgFixtureLocation_list.lStartRec + ltgFixtureLocation_list.lDisplayRecs - 1 ' Set the last record to display
  131. End If
  132. If ltgFixtureLocation.CurrentAction = "gridadd" AndAlso ltgFixtureLocation_list.lStopRec = -1 Then
  133.     ltgFixtureLocation_list.lStopRec = EW_GRIDADD_ROWS
  134. End If 
  135.  
  136. ' Move to first record
  137. For i As Integer = 1 to ltgFixtureLocation_list.lStartRec - 1
  138.     If Rs.Read() Then    ltgFixtureLocation_list.lRecCnt = ltgFixtureLocation_list.lRecCnt + 1
  139. Next        
  140. ltgFixtureLocation_list.lRowCnt = 0
  141.  
  142. ' Output data rows
  143. Do While (ltgFixtureLocation.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (ltgFixtureLocation_list.lRecCnt < ltgFixtureLocation_list.lStopRec)
  144.     ltgFixtureLocation_list.lRecCnt = ltgFixtureLocation_list.lRecCnt + 1
  145.     If ltgFixtureLocation_list.lRecCnt >= ltgFixtureLocation_list.lStartRec Then
  146.         ltgFixtureLocation_list.lRowCnt = ltgFixtureLocation_list.lRowCnt + 1
  147.     ltgFixtureLocation.CssClass = ""
  148.     ltgFixtureLocation.CssStyle = ""
  149.     ltgFixtureLocation.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'"
  150.     If ltgFixtureLocation.CurrentAction = "gridadd" Then
  151.         ltgFixtureLocation_list.LoadDefaultValues() ' Load default values
  152.     Else
  153.         ltgFixtureLocation_list.LoadRowValues(Rs) ' Load row values
  154.     End If
  155.     ltgFixtureLocation.RowType = EW_ROWTYPE_VIEW ' Render view
  156.  
  157.     ' Render row
  158.     ltgFixtureLocation_list.RenderRow()
  159. %>
  160.     <tr<%= ltgFixtureLocation.RowAttributes %>>
  161. <% If ltgFixtureLocation.Export = "" Then %>
  162. <% If Security.CanView Then %>
  163. <td style="white-space: nowrap;"><span class="aspnetmaker">
  164. <a href="<%= ltgFixtureLocation.ViewUrl %>"><img src='images/view.gif' alt='View' title='View' width='16' height='16' border='0'></a>
  165. </span></td>
  166. <% End If %>
  167. <% If Security.CanEdit Then %>
  168. <td style="white-space: nowrap;"><span class="aspnetmaker">
  169. <a href="<%= ltgFixtureLocation.EditUrl %>"><img src='images/edit.gif' alt='Edit' title='Edit' width='16' height='16' border='0'></a>
  170. </span></td>
  171. <% End If %>
  172. <% If Security.CanDelete Then %>
  173. <td style="white-space: nowrap;"><span class="aspnetmaker">
  174. <a href="<%= ltgFixtureLocation.DeleteUrl %>"><img src='images/delete.gif' alt='Delete' title='Delete' width='16' height='16' border='0'></a>
  175. </span></td>
  176. <% End If %>
  177. <%
  178.  
  179. ' Custom list options
  180. For i As Integer = 0 to ltgFixtureLocation_list.ListOptions.Items.Count -1
  181.     If ltgFixtureLocation_list.ListOptions.Items(i).Visible Then Response.Write(ltgFixtureLocation_list.ListOptions.Items(i).BodyCellHtml)
  182. Next
  183. %>
  184. <% End If %>
  185.     <% If ltgFixtureLocation.floDescription.Visible Then ' floDescription %>
  186.         <td<%= ltgFixtureLocation.floDescription.CellAttributes %>>
  187. <div<%= ltgFixtureLocation.floDescription.ViewAttributes %>><%= ltgFixtureLocation.floDescription.ListViewValue %></div>
  188. </td>
  189.     <% End If %>
  190.     <% If ltgFixtureLocation.floIsActive.Visible Then ' floIsActive %>
  191.         <td<%= ltgFixtureLocation.floIsActive.CellAttributes %>>
  192. <% If Convert.ToString(ltgFixtureLocation.floIsActive.CurrentValue) = "1" Then %>
  193. <input type="checkbox" value="<%= ltgFixtureLocation.floIsActive.ListViewValue %>" checked onclick="this.form.reset();" disabled="disabled" />
  194. <% Else %>
  195. <input type="checkbox" value="<%= ltgFixtureLocation.floIsActive.ListViewValue %>" onclick="this.form.reset();" disabled="disabled" />
  196. <% End If %>
  197. </td>
  198.     <% End If %>
  199.     </tr>
  200. <%
  201.     End If
  202. Loop
  203. %>
  204. </tbody>
  205. </table>
  206. <% End If %>
  207. </form>
  208. <%
  209.  
  210. ' Close recordset
  211. Rs.Close()
  212. Rs.Dispose()
  213. %>
  214. </div>
  215. <% If ltgFixtureLocation.Export = "" Then %>
  216. <div class="ewGridLowerPanel">
  217. <% If ltgFixtureLocation.CurrentAction <> "gridadd" AndAlso ltgFixtureLocation.CurrentAction <> "gridedit" Then %>
  218. <form name="ewpagerform" id="ewpagerform" class="ewForm">
  219. <table border="0" cellspacing="0" cellpadding="0" class="ewPager">
  220.     <tr>
  221.         <td>
  222. <span class="aspnetmaker">
  223. <% If ltgFixtureLocation_list.Pager Is Nothing Then ltgFixtureLocation_list.Pager = New cNumericPager(ltgFixtureLocation_list.lStartRec, ltgFixtureLocation_list.lDisplayRecs, ltgFixtureLocation_list.lTotalRecs, ltgFixtureLocation_list.lRecRange) %>
  224. <% If ltgFixtureLocation_list.Pager.RecordCount > 0 Then %>
  225.     <% If ltgFixtureLocation_list.Pager.FirstButton.Enabled Then %>
  226.     <a href="<%= ltgFixtureLocation_list.PageUrl %>start=<%= ltgFixtureLocation_list.Pager.FirstButton.Start %>">First</a> 
  227.     <% End If %>
  228.     <% If ltgFixtureLocation_list.Pager.PrevButton.Enabled Then %>
  229.     <a href="<%= ltgFixtureLocation_list.PageUrl %>start=<%= ltgFixtureLocation_list.Pager.PrevButton.Start %>">Previous</a> 
  230.     <% End If %>
  231.     <% For Each PagerItem As cPagerItem In ltgFixtureLocation_list.Pager.Items %>
  232.         <% If PagerItem.Enabled Then %><a href="<%= ltgFixtureLocation_list.PageUrl %>start=<%= PagerItem.Start %>"><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %></a><% End If %> 
  233.     <% Next %>
  234.     <% If ltgFixtureLocation_list.Pager.NextButton.Enabled Then %>
  235.     <a href="<%= ltgFixtureLocation_list.PageUrl %>start=<%= ltgFixtureLocation_list.Pager.NextButton.Start %>">Next</a> 
  236.     <% End If %>
  237.     <% If ltgFixtureLocation_list.Pager.LastButton.Enabled Then %>
  238.     <a href="<%= ltgFixtureLocation_list.PageUrl %>start=<%= ltgFixtureLocation_list.Pager.LastButton.Start %>">Last</a> 
  239.     <% End If %>
  240.     <% If ltgFixtureLocation_list.Pager.ButtonCount > 0 Then %>    <%    End If %>
  241.     Records <%= ltgFixtureLocation_list.Pager.FromIndex %> to <%= ltgFixtureLocation_list.Pager.ToIndex %> of <%= ltgFixtureLocation_list.Pager.RecordCount %>
  242. <% Else %>
  243.     <% If Security.CanList Then %>
  244.     <% If ltgFixtureLocation_list.sSrchWhere = "0=101" Then %>
  245.     Please enter search criteria
  246.     <% Else %>
  247.     No records found
  248.     <% End If %>
  249.     <% Else %>
  250.     You do not have the right permission to view the page
  251.     <% End If %>
  252. <% End If %>
  253. </span>
  254.         </td>
  255. <% If ltgFixtureLocation_list.lTotalRecs > 0 Then %>
  256.         <td>    </td>
  257.         <td><table border="0" cellspacing="0" cellpadding="0"><tr><td>Page Size </td><td>
  258. <input type="hidden" id="t" name="t" value="ltgFixtureLocation" />
  259. <select name="<%= EW_TABLE_REC_PER_PAGE %>" id="<%= EW_TABLE_REC_PER_PAGE %>" onchange="this.form.submit();" class="aspnetmaker">
  260. <option value="10"<% If ltgFixtureLocation_list.lDisplayRecs = 10 Then %> selected="selected"<% End If %>>10</option>
  261. <option value="20"<% If ltgFixtureLocation_list.lDisplayRecs = 20 Then %> selected="selected"<% End If %>>20</option>
  262. <option value="50"<% If ltgFixtureLocation_list.lDisplayRecs = 50 Then %> selected="selected"<% End If %>>50</option>
  263. <option value="ALL"<% If ltgFixtureLocation.RecordsPerPage = -1 Then %> selected="selected"<% End If %>>All</option>
  264. </select></td></tr></table>
  265.         </td>
  266. <% End If %>
  267.     </tr>
  268. </table>
  269. </form>
  270. <% End If %>
  271. <% 'If ltgFixtureLocation_list.lTotalRecs > 0 Then %>
  272. <div class="aspnetmaker">
  273. <% If Security.CanAdd Then %>
  274. <a href="<%= ltgFixtureLocation.AddUrl %>">Add</a>  
  275. <% End If %>
  276. </div>
  277. <% 'End If %>
  278. </div>
  279. <% End If %>
  280. </td></tr></table>
  281. <% If ltgFixtureLocation.Export = "" AndAlso ltgFixtureLocation.CurrentAction = "" Then %>
  282. <script type="text/javascript">
  283. <!--
  284. //ew_ToggleSearchPanel(ltgFixtureLocation_list); // uncomment to init search panel as collapsed
  285. //-->
  286. </script>
  287. <% End If %>
  288. <% If ltgFixtureLocation.Export = "" Then %>
  289. <script language="JavaScript" type="text/javascript">
  290. <!--
  291. // Write your table-specific startup script here
  292. // document.write("page loaded");
  293. //-->
  294. </script>
  295. <% End If %>
  296. </asp:Content>
  297.