Imports System.Web.Configuration
Imports Stock_Control.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

  Protected Sub btnQF_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnQF.Click

    Dim rep As New RepQF("200807", "200906")
    rep.Run()
    'rep.Check()

  End Sub
End Class