Imports System.Web.Configuration
Imports Superbowl.sqlDB

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

  Public Shared BranchID As Integer = 0
  Public Shared dwBranch 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") = "BranchDetails"
      If WebConfigurationManager.AppSettings("ULEVEL") <> 5 Then
        btnSave.Enabled = False
      End If
      Try
        BranchID = Request.QueryString("BID")
      Catch ex As Exception
        BranchID = 0
      End Try

      If BranchID <> 0 Then
        Try
          drIni = sqlDB.GetRow(db.sql_get_Branch(BranchID))

          dwBranch = drIni!strBranch                                'get ori BranchName for dw
          strBranch.Text = drIni!strBranch

          strSalesOffice.Text = Nz(drIni!strSalesoffice, "")
          strRegion.Text = Nz(drIni!strRegion, "")
          strRegionDesc2.Text = Nz(drIni!strRegionDesc2, "")

          strCode.Text = Nz(drIni!strCode, "")
          strSAPCode.Text = Nz(drIni!strSAPCode, "")
          strRegionCode.Text = Nz(drIni!strRegionCode, "")
          strRegionDesc.Text = Nz(drIni!strRegionDesc, "")
          strRegionAccpacCode.Text = Nz(drIni!strRegionAccpacCode, "")

          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 = "Branch ID, <font color=black>" & BranchID & "</font>, was not found!"
          drIni = Nothing
        End Try
      Else
        dwBranch = ""
      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 strBranch.Text.Trim() = "" Then lblMessage.Text &= "Branch name required.<BR>"
    If strSalesOffice.Text.Trim() = "" Then lblMessage.Text &= "Branch name required.<BR>"
    If strRegion.Text.Trim() = "" Then lblMessage.Text &= "Branch name required.<BR>"
    If strCode.Text.Trim() = "" Then lblMessage.Text &= "Branch name required.<BR>"
    If strSAPCode.Text.Trim() = "" Then lblMessage.Text &= "Branch name required.<BR>"
    If strRegionDesc2.Text.Trim() = "" Then lblMessage.Text &= "Branch name required.<BR>"

    If sqlDB.CountRows(db.sql_get_Branch(strCode.Text.Trim, strSAPCode.Text.Trim, BranchID)) > 0 Then lblMessage.Text &= "Branch """ & strBranch.Text.Trim & """ already exists!"

    If Not lblMessage.Text.Length > 0 Then

      If BranchID <> 0 Then
            sqlDB.doQueryDS(db.sql_update_Branch(BranchID, strCode.Text.Trim, strBranch.Text.Trim, strSalesOffice.Text.Trim, strRegion.Text.Trim, strSAPCode.Text.Trim, strRegionCode.Text.Trim, strRegionDesc.Text.Trim, strRegionAccpacCode.Text.Trim, strRegionDesc2.Text.Trim, Session.Item("User")))
        '2-Update into DW	
        sqlDB.doQueryDS(db.sql_update_Branch_dw(dwBranch))

      Else
            sqlDB.doQueryDS(db.sql_insert_Branch(strCode.Text.Trim, strBranch.Text.Trim, strSalesOffice.Text.Trim, strRegion.Text.Trim, strSAPCode.Text.Trim, strRegionCode.Text.Trim, strRegionDesc.Text.Trim, strRegionAccpacCode.Text.Trim, strRegionDesc2.Text.Trim, Session.Item("User")))
      End If

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

  End Sub

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

End Class