Imports System.Data
Partial Class suppliers_InquirySupplier
    Inherits System.Web.UI.Page

#Region "Declaration"
    Dim objProduct As New clsProductInquiry
#End Region

#Region "Events"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Page.IsPostBack = False Then
                FillGrid()
            End If

        Catch ex As Exception

        End Try
    End Sub

    Protected Sub ibtndetailClose_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtndetailClose.Click
        Try
            pnlDetail.Visible = False
            tblGrid.Visible = True
        Catch ex As Exception

        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)
            Dim dtInqDetail As DataTable
            objProduct.Mode = "Select_InquiryDetailsForSupplier"
            objProduct.CmdType = "Select"
            objProduct.InquiryID = RemoveLiterals(lnkdet.CommandArgument.ToString)
            dtInqDetail = clsProductInquiry.Select_InquiryDetailsForSupplier(objProduct)
            If dtInqDetail.Rows.Count > 0 Then

                tblGrid.Visible = False
                pnlDetail.Visible = True

                lblCompanyName.Text = dtInqDetail.Rows(0).Item("CompanyName").ToString
                lblCOmpanyEmail.Text = dtInqDetail.Rows(0).Item("EmailAddress").ToString
                lblProductName.Text = dtInqDetail.Rows(0).Item("ProductName").ToString
                lblProductCode.Text = dtInqDetail.Rows(0).Item("ProductCode").ToString
                lblModelNo.Text = dtInqDetail.Rows(0).Item("ProductModelNo").ToString
                lblContactPerson.Text = dtInqDetail.Rows(0).Item("ContactPerson").ToString
                lblMobileNo.Text = dtInqDetail.Rows(0).Item("Mobile").ToString
                lblPhoneNo.Text = dtInqDetail.Rows(0).Item("Landline").ToString
                lblEmailID.Text = dtInqDetail.Rows(0).Item("ContactPersonEmail").ToString
                lblQtyRequired.Text = dtInqDetail.Rows(0).Item("Qty").ToString
                lblRequiredDate.Text = dtInqDetail.Rows(0).Item("ReqDate").ToString
                lblRequiredPlace.Text = dtInqDetail.Rows(0).Item("Place").ToString
                lblSpecificRequirement.Text = dtInqDetail.Rows(0).Item("Requirement").ToString
            End If
        Catch ex As Exception

        End Try
    End Sub

#End Region

#Region "Methods"

    Private Sub FillGrid()
        Try
            Dim dtInq As DataTable
            objProduct.Mode = "Select_InquiryForSupplier"
            objProduct.CmdType = "Select"
            objProduct.SupplierID = RemoveLiterals(Session("SupplierID").ToString)
            dtInq = clsProductInquiry.Select_InquiryForSupplier(objProduct)
            gvInquiry.DataSource = dtInq
            gvInquiry.DataBind()
        Catch ex As Exception

        End Try
    End Sub

#End Region

   
End Class