'Imports System.Web.Configuration
'Imports Superbowl.sqlDB

'Partial Class ZZDetails
'  Inherits System.Web.UI.Page

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

'      If ZZID <> 0 Then
'        Try
'          'drIni = sqlDB.GetRow(db.sql_get_ZZ(ZZID))
'          txtZZID.Text = drIni!ZZID
'          txtZZID.ReadOnly = True

'          dwZZ = drIni!strZZ                                'get ori ZZName for dw
'          strZZ.Text = drIni!strZZ

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

'          strZZEmail.Text = Nz(drIni!strZZEmail, "")

'          chkZZ.Checked = Nz(drIni!blnZZ, True)
'          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 = "ZZ ID, <font color=black>" & ZZID & "</font>, was not found!"
'          drIni = Nothing
'        End Try
'      Else
'        dwZZ = ""
'        txtZZID.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 strZZ.Text.Trim() = "" Then lblMessage.Text &= "ZZ name required.<BR>"

'    'If sqlDB.CountRows(db.sql_get_ZZ(txtZZID.Text.Trim, ZZID)) > 0 Then lblMessage.Text &= "ZZ """ & txtZZID.Text.Trim & """ already exists!"

'    If Not lblMessage.Text.Length > 0 Then

'      If ZZID <> 0 Then
'        'sqlDB.doQueryDS(db.sql_update_ZZ(ZZID, strZZ.Text.Trim, CInt(chkZZ.Checked)))
'        '2-Update into DW	
'        If dwZZ <> strZZ.Text Then
'          'sqlDB.doQueryDS(db.sql_update_ZZ_dw(dwZZ, strZZ.Text.Trim))
'        End If
'      Else
'        'sqlDB.doQueryDS(db.sql_insert_ZZ(strZZ.Text.Trim, CInt(chkZZ.Checked)))
'      End If

'      Response.Redirect("ZZList.aspx")
'    End If

'  End Sub

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

'  Protected Sub txtZZID_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtZZID.TextChanged
'    'load rep
'    If db.CountRows("SELECT * FROM mstZZ WHERE ZZID = '" & sqlDB.CleanString(txtZZID.Text.Trim) & "' ") > 0 Then
'      Response.Redirect("ZZDetails.aspx?ZZID=" & sqlDB.CleanString(txtZZID.Text.Trim))
'    Else
'      strZZ.Focus()
'    End If
'  End Sub
'End Class