<%@ Page Language="VB" Inherits="System.Web.Mvc.ViewPage" %>

<%@ Register TagPrefix="uc" TagName="Menu" Src="~/Views/Shared/Menu.ascx" %>
<%@ Register TagPrefix="uc" TagName="ClientMenu" Src="~/Views/Accounting/AccountingMenu.ascx" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Index</title>
    
<style type="text/css">
.table_client tr th {
	text-align: left;
}
</style>
</head>
<body>
    <uc:Menu id="MenuTop" 
        runat="server" />

    <uc:ClientMenu id="SubMenu" 
        runat="server"/>

<h2>Liste des codes comptables</h2>
<br />

    <div>
   <%  
       Dim dt As CoursE.coursedata.ACCOUNTINGDataTable = Me.ViewData.Item("tableAccounting")
     
       %><table class="table_client"><tr><th width="130">Prénom</th><th width="490">Nom</th><th width="30"></th></tr>
       <%
           For intCpt As Integer = 0 To dt.DefaultView.ToTable.Rows.Count - 1
       %><tr><td><%                     
                     Response.Write(dt.DefaultView.Item(intCpt).Item("ACCOUNTING_CODE"))
       %></td><td><%
                      Response.Write(dt.DefaultView.Item(intCpt).Item("ACCOUNTING_DESCRIPTION"))
                      'Response.Write(dt.Item(intCpt).COURSE_DESCRIPTION)
       %></td><td><a href="accounting/Details/<% Response.Write(dt.DefaultView.Item(intCpt).Item("ACCOUNTING_ID")) %>">Voir</a></td></tr><%
             Next
                    %></table>
                    <%
                        Response.Write("<br />Total : " & dt.DefaultView.ToTable.Rows.Count)
   %> 
    </div>
</body>
</html>
