<%@ Page Language="VB" Inherits="System.Web.Mvc.ViewPage" %>
<%@ Register TagPrefix="uc" TagName="Menu" Src="~/Views/Shared/Menu.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 runat="server">
    <title>Saisie de cartes</title>
</head>
    <uc:Menu id="MenuTop" 
        runat="server" />

<body>
<div>
<%
    Dim dtseance As CoursE.coursedata.scheduleDataTable = ViewData.Item("scannerseance")
    Dim drClient As CoursE.coursedata.clientRow = ViewData.Item("scannerclient")
    %>
    <div style="float:left;">
    Numéro du client :
    
    <form action="<%Response.Write(CoursE.MvcApplication.WebPath)%>Schedule/Scanner" method="post">
    <input name="CLIENT_ID" type="text" tabindex="0" />
    <%  If IsNothing(drClient) Then%>
    <h3>Aucun client sélectionné</h3>
    <% Else%>
                <table>
                <tr>
                <th>Client</th>
                <th>Point(s) au dossier</th>
                </tr>
                <tr>
                <td>
                <% Response.Write(drClient.CLIENT_FIRST_NAME & " " & drClient.CLIENT_LAST_NAME)%>
                </td>
                <td>
                <%  
                    Response.Write(drClient.CLIENT_POINT)%>
                </td>
                </tr>
                </table>
    <% End If%>
    </form>
    </div>
    <div style="float:right;">

    Séances de la journée
                <table>
                <tr><th>
                Début
                </th><th>
                Nom du cours
                </th><th>
                </th>
                </tr>
    <%  If Not IsNothing(dtseance) Then
            dtseance.DefaultView.Sort= "SCHEDULE_START"
            For intcpt As Integer = 0 To dtseance.Rows.Count - 1%>                
                <tr><td>
                <%  Response.Write(CDate(dtseance.DefaultView.Item(intcpt).Item("SCHEDULE_START").ToString).ToShortTimeString)%>
                </td><td>
                    <% Response.Write(dtseance.DefaultView.Item(intcpt).Item("COURSE_NAME").ToString)%>
                </td><td>
                <a href="#">Inscrire et prendre la présence($)</a><br />
                <a href="#">Inscrire et prendre la présence(Point)</a><br />
                <a href="#">Prendre la présence</a>
                </td></tr>
        <%  Next
        End If
            %>
    </table>
    </div>
</div>
</body>
</html>
