Imports System.Data.SqlClient
Imports System.Data
Imports ModCommon
Partial Class Inquiry_Details
    Inherits System.Web.UI.Page

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

        If Page.IsPostBack = False Then

            Dim con As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
            con.Open()
            Dim myCommandString As String = "SELECT Inquiry_Kid, Inquiry_Name FROM Inquiry_Master WHERE Inquiry_IsDeleted = N'0'"
            Dim myCommand As SqlCommand = New SqlCommand(myCommandString, con)
            Dim myAdapter As New SqlDataAdapter
            myAdapter.SelectCommand = myCommand
            Dim myDataSet As New DataSet
            myAdapter.Fill(myDataSet, "Inquiry_Master")

            ddlInquiryFor.DataSource = myDataSet
            ddlInquiryFor.DataTextField = myDataSet.Tables(0).Columns("Inquiry_Name").ToString
            ddlInquiryFor.DataValueField = myDataSet.Tables(0).Columns("Inquiry_Kid").ToString
            ddlInquiryFor.DataBind()

            myDataSet.Clear()

            con.Close()

        End If

    End Sub

    Protected Sub btnSent_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSent.Click
        Dim con As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
        con.Open()
        Dim myCommand As New SqlCommand
        myCommand.Connection = con
        myCommand.CommandType = CommandType.StoredProcedure
        myCommand.CommandText = "InquiryDetails_Proc"

        myCommand.Parameters.Add(New SqlParameter("@InquriyDetails_Kid", Data.SqlDbType.NVarChar, 20)).Value = NewPrimaryKey(Me)
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_Code", Data.SqlDbType.NVarChar, 50)).Value = GenerateInquiryDetailsCode().ToString()
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_For", SqlDbType.NVarChar, 200)).Value = ddlInquiryFor.SelectedItem.Value.ToString()
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_Purpose", SqlDbType.NVarChar, 500)).Value = txtPurpose.Text.ToString()
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_Detail", SqlDbType.NVarChar, 1000)).Value = txtDetails.Text.ToString()
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_EmailFrom", SqlDbType.NVarChar, 100)).Value = txtEmailId.Text.ToString()
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_EmailTo", SqlDbType.NVarChar, 100)).Value = "-"
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_Status", SqlDbType.NVarChar, 100)).Value = "-"
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_FinancialYearId", SqlDbType.NVarChar, 20)).Value = "-"
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_CompanyId", SqlDbType.NVarChar, 20)).Value = "-"
        myCommand.Parameters.Add(New SqlParameter("@InquiryDetails_UserId", SqlDbType.NVarChar, 20)).Value = "-"
        myCommand.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "Inquiry Details"
        myCommand.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 15)).Value = "Insert"
        myCommand.ExecuteNonQuery()

        CreateMessageAlert(Me, "Inquiry Sent", "Strkey")

    End Sub

    Protected Function GenerateInquiryDetailsCode() As String
        Try
            Dim i As String
            Dim qry As String
            Dim code As String
            i = "1"
            i = Format(Val(i), "000")
            While True
                code = "ASS" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i
                qry = "select count(*) from InquiryDetails where InquiryDetails_Code='" & code & "'"
                If IsAlreadyPresent(qry) Then
                    i = Val(i) + 1
                    i = Format(Val(i), "000")
                    Return code
                    Exit Function
                Else
                    Return code
                    Exit Function
                End If
            End While
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")     'Display the Error Message
        End Try
    End Function

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        ddlInquiryFor.ClearSelection()
        ddlInquiryFor.SelectedIndex = 0
        txtDetails.Text = ""
        txtEmailId.Text = ""
        txtPurpose.Text = ""
    End Sub

    Protected Sub ddlInquiryFor_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlInquiryFor.DataBound
        ddlInquiryFor.Items.Insert(0, New ListItem("Select", "Select"))
    End Sub
End Class