Imports System.Web.Configuration
Imports Superbowl.sqlDB

Partial Class SegmentDetails
	Inherits System.Web.UI.Page

	Public Shared SegmentID As Integer = 0
	Public Shared dwSegment As String = ""
	Private db As New sqlDB
	Private ds As DataSet
	Private dr, drIni As DataRow

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

		If Not Page.IsPostBack Then
			WebConfigurationManager.AppSettings("strPage") = "SegmentDetails"
			If WebConfigurationManager.AppSettings("ULEVEL") <> 5 Then
				btnSave.Enabled = False
			End If
			Try
				SegmentID = Request.QueryString("SID")
			Catch ex As Exception
				SegmentID = 0
			End Try

			If SegmentID <> 0 Then
				Try
					drIni = sqlDB.GetRow(db.sql_get_Segment(SegmentID))
					dwSegment = drIni!strSegment															  'get ori Segment for dw
					txtSegment.Text = drIni!strSegment

					lblLastEdit.Text = Nz(drIni!strLastUser, "unknown") & " - " & SqlDate(Nz(drIni!dtStamp, ""), "d MMMM yyyy HH:mm")

				Catch ex As IndexOutOfRangeException							  'dr = ds.tables(0).rows(0) doesn't exist
					lblMessage.Text = "Segment ID, <font color=black>" & SegmentID & "</font>, was not found!"
					drIni = Nothing
				End Try
			Else
				dwSegment = ""
				'txtSegment.ReadOnly = False
			End If
		End If
	End Sub

	Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
		lblMessage.Text = ""

		If txtSegment.Text.Trim() = "" Then lblMessage.Text &= "Segment name required."

		If sqlDB.CountRows(db.sql_get_Segment(txtSegment.Text.Trim, SegmentID)) > 0 Then lblMessage.Text &= "Segment """ & txtSegment.Text.Trim & """ already exists!"

		If Not lblMessage.Text.Length > 0 Then

			If SegmentID <> 0 Then
            sqlDB.doQueryDS(db.sql_update_Segment(SegmentID, txtSegment.Text.Trim, Session.Item("User")))
				'2-Update into DW		
				If dwSegment <> txtSegment.Text.Trim Then
					sqlDB.doQueryDS(db.sql_update_Segment_dw(dwSegment, txtSegment.Text))
				End If
			Else
            sqlDB.doQueryDS(db.sql_insert_Segment(txtSegment.Text.Trim, Session.Item("User")))
			End If

			Response.Redirect("SegmentList.aspx")
		End If

	End Sub

	Protected Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click
		Response.Redirect("SegmentList.aspx")
	End Sub

End Class