Imports System.Web.Configuration
Imports Stock_Control.sqlDB

Partial Class BrandDetails
	Inherits System.Web.UI.Page

	Private Shared BrandID As Integer
	Private Shared strBrand As String = ""
	Private Shared intMonths As Integer
	Private db As New sqlDB
	'Private Shared mem As MembershipUser

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

		If Not Page.IsPostBack Then
			WebConfigurationManager.AppSettings("strPage") = "BrandDetails"
			BrandID = Request.QueryString("BID")
			'UserName = Request.QueryString("N")
			Try												'this is beyond lame!
				Dim i As Integer = BrandID
			Catch ex As Exception
				BrandID = 0
			End Try
			If BrandID <> 0 Then
				'lblPassword.Text = "**leave empty to keep current password"
				Try
					dr = sqlDB.getRow(db.sql_get_Brand(BrandID))
					txtBrand.Text = dr!strBrand
					txtMonths.Text = dr!intLeadMonths
					txtVariance.Text = dr!dblVariance
					chkActive.Checked = dr!blnActive

					If (nz(dr!refBrandManagerID, 0)) > 0 Then ddlBrandManager.SelectedValue = dr!refBrandManagerID
					If (nz(dr!refBrandManager2ID, 0)) > 0 Then ddlBrandManager2.SelectedValue = dr!refBrandManager2ID

				Catch ex As Exception
					lblMessage.Text = "Brand Not Found!"
				End Try

			End If
		End If
	End Sub

	Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
		Dim msg As String = ""

		If txtBrand.Text.Trim() = "" Then
			msg = "Brand name required."
		End If

		Try
			If CInt(txtMonths.Text) < 0 Or CInt(txtMonths.Text) > 12 Then
				msg = "Lead Months must be between 0 and 12"
			End If
		Catch ex As Exception
			msg = "Lead Months must be between 0 and 12"
		End Try

		Try
			If CDbl(txtVariance.Text) < 0 Then
				msg = "Variance must be a positive number"
			End If
		Catch ex As Exception
			msg = "Variance must be a positive number"
		End Try

		If msg.Length > 0 Then
			lblMessage.Text = msg
		Else
			lblMessage.Text = ""

			If sqlDB.countRows(db.sql_get_Brand(txtBrand.Text, BrandID)) > 0 Then
				lblMessage.Text = "Brand """ & txtBrand.Text & """ already exists!"
			Else
				If BrandID <> 0 Then
					sqlDB.doQueryDS(db.sql_update_Brand(BrandID, txtBrand.Text, txtMonths.Text, txtVariance.Text, ddlBrandManager.SelectedValue, ddlBrandManager2.SelectedValue, CInt(chkActive.Checked)))
				Else
					sqlDB.doQueryDS(db.sql_insert_Brand(txtBrand.Text, txtMonths.Text, txtVariance.Text, ddlBrandManager.SelectedValue, ddlBrandManager2.SelectedValue, 1))
				End If
				Response.Redirect("BrandList.aspx")
			End If
		End If

	End Sub

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

End Class