Imports System.Web.Configuration
Imports Superbowl.sqlDB

Partial Public Class ImportList
  Inherits System.Web.UI.Page

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

  Private Sub MyLoadPage()
    Dim db As New sqlDB
    Dim ds As DataSet
    Dim s, sH1, sR1 As String
    Dim intWidth As Integer

    WebConfigurationManager.AppSettings("strPage") = "ImportList"

    Try
      '"<td class='redBold' align='center'>Period</td>"
      '"<td width='" & intWidth & "' class='redBold' align='center'>Opening</td>" & _
      '"<td width='" & intWidth & "' class='redBold' align='center'>Forecast</td>" & _
      '"<td width='" & intWidth & "' class='redBold' align='center'>Receipts</td>" & _
      '"<td width='" & intWidth & "' class='redBold' align='center'>Damages</td>" & _
      '"<td width='" & intWidth & "' class='redBold' align='center'>Repack</td>" & _
      '"<td width='" & intWidth & "' class='redBold' align='center'>Cognos14</td>" & _
      '"<td width='" & intWidth & "' class='redBold' align='center'>Cognos24</td>" & _

      sH1 = "<table width='80%' align='center'><tr>"
      ds = db.doQueryDS(db.sql_get_ImportLog())
      intWidth = Math.Truncate(100 / (ds.Tables(0).Columns.Count - 3))
      For i As Integer = 0 To ds.Tables(0).Columns.Count - 3
        sH1 &= "<td width='" & intWidth & "%' class='redBold' align='center'>" & ds.Tables(0).Columns(i).ColumnName.Substring(3) & "</td>"
      Next
      sH1 &= "</TR>"

      For Each dr As DataRow In ds.Tables(0).Rows
        sR1 &= "<tr><td align='center'>" & dr!mstPeriod & "</td>"
        For i As Integer = 1 To ds.Tables(0).Columns.Count - 3
          If dr.Item(i) Then
            sR1 &= "<td align='center'><img src='yes.gif' /></td>"
          Else
            sR1 &= "<td align='center'><img src='no.gif' /></td>"
          End If
        Next
        sR1 &= "</tr>"
      Next

      'For Each dr As DataRow In ds.Tables(0).Rows
      '	s = s & "<tr><td align='center'>" & dr!mstPeriod & "</td>"
      '	If dr!blnOpening Then
      '		s = s & "<td align='center'><img src='yes.gif' /></td>"
      '	Else
      '		s = s & "<td align='center'><img src='no.gif' /></td>"
      '	End If
      '	If dr!blnForecast Then
      '		s = s & "<td align='center'><img src='yes.gif' /></td>"
      '	Else
      '		s = s & "<td align='center'><img src='no.gif' /></td>"
      '	End If
      '	If dr!blnReceipts Then
      '		s = s & "<td align='center'><img src='yes.gif' /></td>"
      '	Else
      '		s = s & "<td align='center'><img src='no.gif' /></td>"
      '	End If
      '	If dr!blnDamages Then
      '		s = s & "<td align='center'><img src='yes.gif' /></td>"
      '	Else
      '		s = s & "<td align='center'><img src='no.gif' /></td>"
      '	End If
      '	If dr!blnRepack Then
      '		s = s & "<td align='center'><img src='yes.gif' /></td>"
      '	Else
      '		s = s & "<td align='center'><img src='no.gif' /></td>"
      '	End If
      '	If dr!blnCognos24 Then
      '		s = s & "<td align='center'><img src='yes.gif' /></td>"
      '	Else
      '		s = s & "<td align='center'><img src='no.gif' /></td>"
      '	End If
      '	s = s & "</tr>"
      'Next
      ds.Clear()
    Catch ex As Exception
      s = "No import logs found!"
    End Try
    Me.lblTable.Text = sH1 & sR1
  End Sub

  Protected Sub btnImport_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnImport.Click
    Response.Redirect("Import.aspx")
  End Sub
End Class