Imports RGBC_Forecast.SystemFunctions
Imports RGBC_Forecast.ProjectFunctions
Imports RGBC_Forecast.db

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

  Private Shared strPeriod, strBrandID, strCustomerNo As String

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

  End Sub

  Private Sub Comments_LoadComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadComplete
    If Not Page.IsPostBack Then
      ' ini
      strPeriod = CleanString(Request("P"))
      strBrandID = CleanString(Request("BID"))
      strCustomerNo = CleanString(Request("c"))
#If DEBUG Then  'test data
      If Request.QueryString.Keys.Count = 0 Then
        strPeriod = "200909"
        strBrandID = "6"
        strCustomerNo = "HISTJ1H"
      End If
#End If

      LoadComments()
    End If
  End Sub

  Private Sub LoadComments()
    If Session.Item("User") Is Nothing Then 'lame
      LogginUser(Request, Session)
    End If

    Dim dr As DataRow
    dr = db.getRow("SELECT * FROM dwfQFAdjustment WHERE strPeriod = '" & strPeriod & "' AND refBrandID = " & strBrandID & " AND strCustomerNo = '" & strCustomerNo & "'")
    If Not dr Is Nothing Then
      txtNotes.Text = dr!strNotes
      lblLog.Text = "<li>" & dr!strLog.ToString.Replace(Chr(13), "<BR /><li>") 'change chr13 to <br/>
      lblLastEdit.Text = "Last Edit: " & dr!strLastUser & " - " & DisplayDate(dr!dtStamp)
    End If
  End Sub

  Private Sub btnCommentsSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCommentsSave.Click
    If Session.Item("User") Is Nothing Then 'lame
      LogginUser(Request, Session)
    End If

    txtNotes.Text = CleanString(txtNotes.Text)
    'Session("USER")!strUserName 
    db.doQuery("UPDATE dwfQFAdjustment SET strNotes = '" & txtNotes.Text & "', strLastUser = '" & Session("USER")!strUserName & "', dtStamp = '" & Date.Now.ToString("yyyyMMddHHmm") & "' WHERE strPeriod = '" & strPeriod & "' AND refBrandID = " & strBrandID & " AND strCustomerNo = '" & strCustomerNo & "'")

    LoadComments() ' reload
  End Sub
End Class