Imports System.Data.SqlClient
Imports System.IO

Imports iTEXT = iTextSharp.text
Imports iHTML = iTextSharp.text.html
Imports iPDF = iTextSharp.text.pdf
Partial Class Administrators_EMSR_Default
    Inherits System.Web.UI.Page

#Region "Top Stuff"
    Private oSQLConn As SqlConnection
    Private oSQLCmd As SqlCommand
    Private oReader As SqlDataReader
    Private query As String

    Private menu_ID As String
    Private ueMenu_ID As String
    Private menu_Name As String
    Private rpt_ID As String
    Private ueRPT_ID As String
    Private rpt_Name As String
    Private rpt_Query As String
#End Region

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            loadReport()
        End If
    End Sub

    Private Sub loadReport()
        query = "SELECT [ProductID], [ProductName], [SupplierID], [CategoryID], [QuantityPerUnit], [UnitPrice], [UnitsInStock], [UnitsOnOrder], [ReorderLevel], [Discontinued], [CategoryName] FROM [Alphabetical list of products]"
        oSQLConn = New SqlConnection("Data Source=ROIOFFICE02;Initial Catalog=Northwind;Integrated Security=True")
        oSQLConn.Open()

        oSQLCmd = New SqlCommand(query, oSQLConn)
        oSQLCmd.CommandType = Data.CommandType.Text

        oReader = oSQLCmd.ExecuteReader()

        reportGrid.DataSource = oReader
        reportGrid.DataBind()

        oReader.Close()
        oSQLConn.Close()
    End Sub

    Private Enum docType
        MSWord
        MSExcel
        PDF
    End Enum

    Protected Sub ExportToolBar_ItemClick(ByVal sender As Object, ByVal e As EO.Web.ToolBarEventArgs) Handles ExportToolBar.ItemClick
        If e.Item.CommandName = "MSWord" Then
            BuildMSDoc(docType.MSWord)
        ElseIf e.Item.CommandName = "MSExcel" Then
            BuildMSDoc(docType.MSExcel)
        ElseIf e.Item.CommandName = "PDF" Then
            BuildPDFDoc(docType.PDF)
        End If
    End Sub

    Private Sub BuildMSDoc(ByVal exportType As docType)
        Dim sExportedGrid As New StringBuilder()
        Dim sFormattingInfo As String = ""

        ' START TABLE
        sExportedGrid.Append("<table border='1'><tr>")

        ' BUILD COLUMNS
        For Each oColumn As Obout.Grid.Column In reportGrid.Columns
            sFormattingInfo = "style='width:" + oColumn.Width + "px;'"
            sFormattingInfo += " align='" + oColumn.HeaderAlign + "'"
            sExportedGrid.Append("<td " + sFormattingInfo + "><b>" + oColumn.HeaderText + "</b></td>")
        Next
        sExportedGrid.Append("</tr>")

        ' BUILD ROWS
        For Each oRow As Obout.Grid.GridRow In reportGrid.Rows
            Dim currentRow As Hashtable = oRow.ToHashtable()
            sExportedGrid.Append("<tr>")

            For Each oColumn As Obout.Grid.Column In reportGrid.Columns
                sFormattingInfo = ""
                sFormattingInfo = "style='width:" + oColumn.Width + "px;'"
                sFormattingInfo += " align='" + oColumn.Align + "'"

                If Not currentRow(oColumn.DataField) = Nothing Then
                    sExportedGrid.Append("<td " + sFormattingInfo + ">" + System.Web.HttpUtility.HtmlEncode(currentRow(oColumn.DataField).ToString()) + "</td>")
                Else
                    sExportedGrid.Append("<td " + sFormattingInfo + ">" + System.Web.HttpUtility.HtmlEncode("...") + "</td>")
                End If
            Next
            sExportedGrid.Append("</tr>")
        Next

        ' END TABLE
        sExportedGrid.Append("</table>")
        ExportToBrowser(exportType, sExportedGrid)
    End Sub

    Private Sub BuildPDFDoc(ByVal exportType As docType)
        Dim pTable As New iPDF.PdfPTable(reportGrid.Columns.Count)

        Dim arWD As New ArrayList()
        For Each oColumn As Obout.Grid.Column In reportGrid.Columns
            Dim pCell As New iPDF.PdfPCell(New iTEXT.Phrase(0, oColumn.HeaderText.ToString()))
            pCell.BackgroundColor = iTEXT.Color.GREEN
            pCell.NoWrap = False
            pTable.AddCell(pCell)
        Next

        ' BUILD ROWS
        For Each oRow As Obout.Grid.GridRow In reportGrid.Rows
            Dim currentRow As Hashtable = oRow.ToHashtable()

            For Each oColumn As Obout.Grid.Column In reportGrid.Columns
                Dim pCell As New iPDF.PdfPCell(New iTEXT.Phrase(0, currentRow(oColumn.DataField).ToString()))
                pCell.BackgroundColor = iTEXT.Color.ORANGE
                pCell.NoWrap = False
                pTable.AddCell(pCell)
            Next
        Next


        Dim ms As New MemoryStream
        Dim document As New iTEXT.Document(iTEXT.PageSize.A4.Rotate())
        'Dim document As New iTEXT.Document(iTEXT.PageSize.A4)
        document.SetMargins(0, 0, 50, 50)
        Try
            Response.ContentType = "application/pdf"
            iPDF.PdfWriter.GetInstance(document, ms)

            document.Open()
            document.Add(pTable)
            document.Close()

            'document.Open()
            'Dim xmlReader As New System.Xml.XmlTextReader(New StringReader(strHTMLContent.ToString()))
            'iHTML.HtmlParser.Parse(document, xmlReader)
            'document.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Response.OutputStream.Write(ms.GetBuffer(), 0, ms.GetBuffer().Length)
        Response.OutputStream.Flush()
        Response.OutputStream.Close()
    End Sub

    Private Sub ExportToBrowser(ByVal exportType As docType, ByVal TableString As StringBuilder)
        HttpContext.Current.Response.Clear()
        HttpContext.Current.Response.Charset = ""

        Dim sFilename As String = ""
        Dim sTimeStamp As String = DateTime.Now.Month.ToString() + "." + DateTime.Now.Day.ToString() + "." + DateTime.Now.Year.ToString()
        sTimeStamp += "_" + DateTime.Now.Hour.ToString() + DateTime.Now.Minute.ToString() + DateTime.Now.Second.ToString()

        If exportType = docType.MSWord Then
            HttpContext.Current.Response.ContentType = "application/msword"
            sFilename = lblReportTitle.Text + "_(" + sTimeStamp + ").doc"
        ElseIf exportType = docType.MSExcel Then
            HttpContext.Current.Response.ContentType = "application/msexcel"
            sFilename = lblReportTitle.Text + "_(" + sTimeStamp + ").xls"
        End If

        HttpContext.Current.Response.AddHeader("Content-Disposition", "inline;filename=" + sFilename)
        HttpContext.Current.Response.Write(TableString.ToString())
        HttpContext.Current.Response.End()
        HttpContext.Current.Response.Flush()
    End Sub
End Class