Imports System.Web.Configuration
Imports Superbowl.sqlDB
'modified the update querry -lloyd 20210422
'modified the insert querry - lloyd  20210422
Partial Public Class RepManagerDetails
  Inherits System.Web.UI.Page

  Public Shared RepManagerID As Integer = 0

  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") = "RepManagerDetails"
      If WebConfigurationManager.AppSettings("ULEVEL") <> 5 Then
        btnSave.Enabled = False
      End If
      Try
        RepManagerID = Request.QueryString("RMID")
      Catch ex As Exception
        RepManagerID = 0
      End Try

      If RepManagerID <> 0 Then
        Try
          drIni = sqlDB.GetRow(db.sql_get_RepManager(RepManagerID))
          strRepManager.Text = drIni!strRepManager

          ' ddlBranch.SelectedValue = Nz(drIni!refBranchID, 0)

          strEmail.Text = Nz(drIni!strEmail, "")


                    ddRegion.SelectedValue = drIni!strRegion.ToString() 'new entry to the db added 20210422 -lloyd

                    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 = "RepManager ID, <font color=black>" & RepManagerID & "</font>, was not found!"
          drIni = Nothing
        End Try
      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 strRepManager.Text.Trim() = "" Then lblMessage.Text &= "Rep Manager name required.<BR>"

    If sqlDB.CountRows(db.sql_get_RepManager(strRepManager.Text.Trim, RepManagerID)) > 0 Then lblMessage.Text &= "Rep Manager """ & strRepManager.Text.Trim & """ already exists!"

    If Not lblMessage.Text.Length > 0 Then

            If RepManagerID <> 0 Then
                If ddRegion.SelectedValue = "" Then
                    Dim nullString = "NULL"
                    sqlDB.doQueryDS(db.sql_update_RepManager(RepManagerID, strRepManager.Text.Trim, strEmail.Text.Trim, Session.Item("User")))
                    '2-Update into DW	
                Else
                    sqlDB.doQueryDS(db.sql_update_RepManager(RepManagerID, strRepManager.Text.Trim, strEmail.Text.Trim, Session.Item("User"), ddRegion.SelectedValue.Trim))
                End If
            Else
                If ddRegion.SelectedValue = "" Then
                    sqlDB.doQueryDS(db.sql_insert_RepManager(strRepManager.Text.Trim, strEmail.Text.Trim, Session.Item("User")))
                Else
                    sqlDB.doQueryDS(db.sql_insert_RepManager(strRepManager.Text.Trim, strEmail.Text.Trim, Session.Item("User"), ddRegion.SelectedValue.Trim))
                End If
            End If
            Response.Redirect("RepManagerList.aspx")
    End If

  End Sub

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

End Class