Imports System.Data
Imports System.Data.SqlClient
Partial Class BusinessAssociates_SSA_QuotationBank
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Not Session("SSAID") = Nothing Then
                txtVCompanyID.Text = "f6b59677-9946-489c-8628-465872369428"
                txtSSAID.Text = Session("SSAID").ToString
                txtLeadID.Text = Request("ID").ToString
                SelectCustomerByCustomerID(txtLeadID.Text.ToString)
                FillGrid()
            End If
        End If
    End Sub

    Public Sub FillGrid()
        Dim cn As New System.Data.SqlClient.SqlConnection(ConfigurationManager.AppSettings("Connection4Voffice"))
        Dim objAdapter As SqlDataAdapter
        Dim ObjDS As New DataSet


        If txtDateFrom.Text = "" And txtDateTo.Text = "" Then

            cn.Open()

            Try
                objAdapter = New SqlDataAdapter("Select_CRMQuotationByCustomerID_Proc", cn)
                objAdapter.SelectCommand.CommandType = CommandType.StoredProcedure

                objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@CompanyID", SqlDbType.VarChar))
                objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@CustomerID", SqlDbType.VarChar))

                objAdapter.SelectCommand.Parameters("@CustomerID").Value = txtLeadID.Text.Trim
                objAdapter.SelectCommand.Parameters("@CompanyID").Value = txtVCompanyID.Text.Trim

                objAdapter.Fill(ObjDS, "QuotationBank")

                gvQuotationBank.DataSource = ObjDS
                gvQuotationBank.DataBind()

                ObjDS.Clear()
                ObjDS.Dispose()

            Catch ex As Exception

            Finally
                cn.Close()
                cn.Dispose()
            End Try
        Else

            cn.Open()

            Try
                objAdapter = New SqlDataAdapter("Select_CRMQuotationByCustomerIDAndDateRange_Proc", cn)
                objAdapter.SelectCommand.CommandType = CommandType.StoredProcedure

                objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@CompanyID", SqlDbType.VarChar))
                objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@CustomerID", SqlDbType.VarChar))
                objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@DateFrom", SqlDbType.DateTime))
                objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@Dateto", SqlDbType.DateTime))

                objAdapter.SelectCommand.Parameters("@CustomerID").Value = txtLeadID.Text.Trim
                objAdapter.SelectCommand.Parameters("@CompanyID").Value = txtVCompanyID.Text.Trim
                objAdapter.SelectCommand.Parameters("@DateFrom").Value = txtDateFrom.Text
                objAdapter.SelectCommand.Parameters("@Dateto").Value = txtDateTo.Text

                objAdapter.Fill(ObjDS, "QuotationBank")

                gvQuotationBank.DataSource = ObjDS
                gvQuotationBank.DataBind()

                ObjDS.Clear()
                ObjDS.Dispose()

            Catch ex As Exception

            Finally
                cn.Close()
                cn.Dispose()
            End Try
        End If

    End Sub

    Public Sub SelectCustomerByCustomerID(ByVal CustomerID As String)
        Dim cn As New System.Data.SqlClient.SqlConnection(ConfigurationManager.AppSettings("Connection4Voffice"))
        Dim objAdapter As SqlDataAdapter
        Dim ObjDS As DataSet

        cn.Open()

        Try
            objAdapter = New SqlDataAdapter("Select_CRMCustomerByCustomerID_Proc", cn)
            objAdapter.SelectCommand.CommandType = CommandType.StoredProcedure

            objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@CustomerID", SqlDbType.VarChar))

            objAdapter.SelectCommand.Parameters("@CustomerID").Value = CustomerID.ToString

            ObjDS = New DataSet
            objAdapter.Fill(ObjDS, "CustomerDetails")

            If ObjDS.Tables(0).Rows.Count > 0 Then
                lblName.Text = ObjDS.Tables(0).Rows(0).Item("V_CRM_ContactPerson")
                lblCompanyName.Text = ObjDS.Tables(0).Rows(0).Item("V_CRM_CompanyName")
            End If

        Catch ex As Exception

        Finally
            cn.Close()
            cn.Dispose()
        End Try
    End Sub

    Protected Sub gvQuotationBank_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs)
        gvQuotationBank.PageIndex = e.NewPageIndex
        FillGrid()
    End Sub

    Protected Sub gvQuotationBank_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvQuotationBank.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(2).Text = Format$(Convert.ToDateTime(e.Row.Cells(2).Text), "MMM-dd-yyyy")
        End If
    End Sub

    Protected Sub cmdGo_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        lblErrorData.Text = ""
        lblErrorData.Visible = False

        If DateDiff(DateInterval.Day, CDate(txtDateFrom.Text), CDate(txtDateTo.Text)) < 0 Then
            showmessage("Date To Must Be Greater Than Date From.", lblErrorData)
            txtDateTo.Focus()
            Exit Sub
        End If

        FillGrid()

    End Sub
End Class