Imports System.Data.SqlClient
Imports System.Data
Imports System.Net.Mail
Imports ModCommon

Partial Class reply_inquiry
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
    Shared ReInquiry As String
    Shared strdetailid As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            ''If Session("AdminID") = Nothing Then
            '    Response.Redirect("AdminLogin.aspx")
            'End If
            If Session("AdminID") Is Nothing Then
                Response.Redirect("AdminLogin.aspx?sesn=expire")
                Exit Sub
            End If
            lblerror.Visible = False
            If Not IsPostBack() Then
                fillgrid()
                ReInquiry = ""
                pnlReply.Visible = False
                strdetailid = ""
                pnlDetail.Visible = False
                'ibtnClose.Attributes.dd("onclick", "ClosePanel(this)")
                'Dim lnkdel As LinkButton = CType(gvInquiryMaster.FindControl("lnkDelete"), LinkButton)
                'lnkdel.Attributes.Add("onclick", "return ConfrmMsg();")
            End If
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub
    Protected Sub fillgrid()
        Try

            Dim strQry As String = "SELECT DISTINCT   Inquiry_Master.Inquiry_Name, InquiryDetails.InquriyDetails_Kid, InquiryDetails.InquiryDetails_For, InquiryDetails.InquiryDetails_Purpose, InquiryDetails.InquiryDetails_Detail, InquiryDetails.InquiryDetails_EmailFrom, InquiryDetails.InquiryDetails_Status, InquiryDetails.InquiryDetails_DateTime FROM         InquiryDetails INNER JOIN  Inquiry_Master ON InquiryDetails.InquiryDetails_For = Inquiry_Master.Inquiry_Kid WHERE     (Inquiry_Master.Inquiry_IsDeleted = N'0') AND (InquiryDetails.InquiryDetails_IsDeleted = N'0')"
            Dim sda As New SqlDataAdapter(strQry, con)
            Dim ds As New DataSet()
            sda.Fill(ds)
            gvInquiryMaster.DataSource = ds
            gvInquiryMaster.DataBind()
            '      dr = Nothing
            con.Close()
            'cmd.Dispose()
            'con.Dispose()
           
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub
    Protected Sub lnkDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            Dim lnkdel As LinkButton = CType(sender, LinkButton)
            ExecuteQuery("DELETE FROM InquiryDetails WHERE     (InquriyDetails_Kid = '" & lnkdel.CommandArgument & "')")
            fillgrid()
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub

    Protected Sub lnkReply_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            pnlDetail.Visible = False
            Dim lnkRe As LinkButton = CType(sender, LinkButton)
            ReInquiry = lnkRe.CommandArgument.Trim
            Dim strstatus As String = ReturnValue("select InquiryDetails_Status from InquiryDetails where InquriyDetails_Kid = '" & ReInquiry & "'")
            If strstatus <> "Solved" Then
                pnlReply.Visible = True
                txtReply.Text = ""
                ScriptManager1.SetFocus(txtReply)

            Else
                showmessage("Inquiry is already solved", lblerror)
            End If
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub

    Protected Sub btnReply_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReply.Click
        Try
           


            ExecuteQuery("UPDATE    InquiryDetails SET              InquiryDetails_Reply = '" & txtReply.Text & "',InquiryDetails_Status='Solved' WHERE     InquriyDetails_Kid = '" & ReInquiry & "'")
            showmessage("Reply sent successfully", lblerror)
            fillgrid()
            Dim frommail As String = ReturnValue("SELECT     InquiryDetails_EmailFrom     FROM InquiryDetails WHERE     InquriyDetails_Kid = '" & ReInquiry & "'")
            Dim tomail As String = ReturnValue("SELECT     InquiryDetails_EmailTo     FROM InquiryDetails WHERE     InquriyDetails_Kid = '" & ReInquiry & "'")
            Dim mail As New System.Net.Mail.MailMessage(frommail, tomail)
            mail.Body = txtReply.Text
            Dim smtp As New System.Net.Mail.SmtpClient("localhost")
            txtReply.Text = ""
            pnlReply.Visible = False
            smtp.Send(mail)
            
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            txtReply.Text = ""
            ScriptManager1.SetFocus(txtReply)
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub

    Protected Sub gvInquiryMaster_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)

    End Sub

  
   
    Protected Sub gvInquiryMaster_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvInquiryMaster.PageIndexChanging
        Try
            gvInquiryMaster.PageIndex = e.NewPageIndex
            fillgrid()
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub

    Protected Sub btnClose_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtnClose.Click
        Try
            pnlReply.Visible = False
            'fillgrid()
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub

    Protected Sub lnkDetail_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            Dim lnkdet As LinkButton = CType(sender, LinkButton)
            strdetailid = lnkdet.CommandArgument
            tdDetail.InnerText = ReturnValue("select InquiryDetails_Detail from InquiryDetails where InquriyDetails_Kid='" & strdetailid & "'")
            pnlDetail.Visible = True
            pnlReply.Visible = False
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try

    End Sub

    Protected Sub ibtndetailClose_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Try
            pnlDetail.Visible = False
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyval")
        End Try
    End Sub
End Class