Public Class Segnalazioni
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents VisualizzaStatoTicket As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TableSegnalazioni As System.Web.UI.WebControls.Table
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents Panel As System.Web.UI.WebControls.Panel
    Protected WithEvents lblTabella As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim TicketList As UNIBO_TicketList.GetListOutputMapGetListValues()
        Dim TicketService As UNIBO_TicketList.UNIBO_TicketListService

        Dim qualification As String
        Dim i As Integer
        Dim authInfo As UNIBO_TicketList.AuthenticationInfo

        authInfo = New UNIBO_TicketList.AuthenticationInfo
        authInfo.userName = "Massimo"
        authInfo.password = "kid"

        TicketService = New UNIBO_TicketList.UNIBO_TicketListService
        TicketService.AuthenticationInfoValue = authInfo

        qualification = ""
        TicketList = TicketService.OpGetList(qualification)

        Dim scriptTable As String
        If TicketList.Length() > 0 Then
            'Prima Riga Tabella  INTESTAZIONE
            scriptTable = "<asp:table id=TableSegnalazioni runat=server Width=100%>" & _
                          "<asp:TableRow>" & _
                                  "<asp:TableCell HorizontalAlign=Center Text=Codice&lt;br&gt;Richiesta ID=CodiceRichiesta class=testataTabellaAutocomposta></asp:TableCell>" & _
                                  "<asp:TableCell HorizontalAlign=Center Text=Richiesta ID=Richiesta class=testataTabellaAutocomposta></asp:TableCell>" & _
                                  "<asp:TableCell HorizontalAlign=Center Text=Data&lt;br&gt;Richiesta ID=DataRichiesta class=testataTabellaAutocomposta></asp:TableCell>" & _
                                  "<asp:TableCell HorizontalAlign=Center Text=Priorita ID=Priorita class=testataTabellaAutocomposta></asp:TableCell>" & _
                                  "<asp:TableCell HorizontalAlign=Center Text=Stato ID=Stato class=testataTabellaAutocomposta></asp:TableCell>" & _
                          "</asp:TableRow>"

            '   For i = 0 To TicketList.Length() - 1
            For i = 0 To 2

                Dim ColorRow As String = "#EDEDED"
                Dim Resto As Integer = i Mod 2
                If Resto = 0 Then
                    ColorRow = "#FFFFFF"
                End If
                ' Righe Contenenti dati Ticket
                scriptTable = scriptTable + "<asp:TableRow>"
                scriptTable = scriptTable + "<asp:TableCell BackColor=" + ColorRow + " Text=""" + TicketList(i).Case_ID + """></asp:TableCell>"
                scriptTable = scriptTable + "<asp:TableCell BackColor=" + ColorRow + " Text=""" + TicketList(i).Summary + """></asp:TableCell>"
                scriptTable = scriptTable + "<asp:TableCell BackColor=" + ColorRow + " Text=""" + TicketList(i).Create_Time + """></asp:TableCell>"
                scriptTable = scriptTable + "<asp:TableCell BackColor=" + ColorRow + " Text=""" + TicketList(i).Case_ID + """></asp:TableCell>"
                scriptTable = scriptTable + "<asp:TableCell BackColor=" + ColorRow + " Text=""" + CStr(TicketList(i).Status) + """></asp:TableCell>"
                scriptTable = scriptTable + "</asp:TableRow>"
            Next
            'riga Chiusura Tabella
            scriptTable = scriptTable + "</asp:table>"
            Response.Write(scriptTable)
            lblTabella.Text = scriptTable
        End If
    End Sub

End Class