Imports System.Data
Imports System.Data.SqlClient
Imports System.Net.Mail
Imports System.IO
Partial Class Buyer_agreement
    Inherits System.Web.UI.Page
    Shared dtAssocMem As New Data.DataTable
    Shared g_User As String
    Shared g_Company As String
    Shared g_FinYear As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Try
                Dim str As StreamReader
                'str = File.OpenText(Server.MapPath("~/Upload Image/MOU.txt"))
                str = File.OpenText(Server.MapPath("~/Upload Image/MOUBuyer.txt"))
                txtMessage.InnerHtml = str.ReadToEnd().ToString
                str.Close()
                RadioButtonList1.SelectedValue = "Y"
            Catch ex As Exception

            End Try
        End If
    End Sub
    Protected Sub GenerateCode()
        Try
            Dim i As String
            Dim qry As String
            Dim code As String
            i = "1"
            i = Format(Val(i), "000")
            While True
                code = "SUPP" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i
                qry = "select count(*) from SignAgreement_Buyer where signagreement_Code='" & code & "'"
                If IsAlreadyPresent(qry) Then
                    i = Val(i) + 1
                    i = Format(Val(i), "000")
                Else
                    TextBox2.Text = code
                    Exit Sub
                End If
            End While
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")     'Display the Error Message
        End Try
    End Sub


    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If RadioButtonList1.SelectedIndex = 0 Then
                Dim Con As New SqlConnection
                Dim cmd As New SqlCommand
                Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                cmd.Connection = Con
                cmd.CommandText = "SignAgreement_BuyerProc"
                cmd.CommandType = CommandType.StoredProcedure
                Dim agreementid As String = RemoveLiterals(NewPrimaryKey(Me))
                cmd.Parameters.Add(New SqlParameter("@signagreement_Kid", SqlDbType.NVarChar)).Value = agreementid
                GenerateCode()
                cmd.Parameters.Add(New SqlParameter("@signagreement_Code", SqlDbType.NVarChar)).Value = TextBox2.Text
                cmd.Parameters.Add(New SqlParameter("@signagreement_Agree", SqlDbType.NVarChar)).Value = RadioButtonList1.SelectedItem.Text
                cmd.Parameters.Add(New SqlParameter("@signagreement_Date", SqlDbType.NVarChar)).Value = System.DateTime.Now
                cmd.Parameters.Add(New SqlParameter("@signagreement_FinancialYear", SqlDbType.NVarChar)).Value = Year(DateTime.Now).ToString

                cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "Buyer_Registration"
                cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 50)).Value = "Insert"
                Con.Open()
                cmd.ExecuteNonQuery()
                Con.Close()
                Response.Redirect(Page.ResolveUrl("~/Buyer/Register.aspx?agree=Yes&bryes=" & agreementid))
            Else
                Response.Redirect(Page.ResolveUrl("~/Buyer/buyer-home.aspx"))
            End If
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub
End Class