Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Net.Mail
Imports System.Web.Mail

Partial Class Admin_Supplier_Approval
    Inherits System.Web.UI.Page
    Shared kid As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Session("AdminID") Is Nothing Then
                Response.Redirect("AdminLogin.aspx?sesn=expire")
                Exit Sub
            End If
            If Page.IsPostBack = False Then

                g_User = Session("g_User").ToString
                g_Company = Session("g_Company").ToString
                g_FinYear = Session("g_FinYear").ToString
                fillgridJ()
                'DetailsView1.Visible = False
            End If
            lblMsg.Visible = False
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fillgridJ()
        Try

            Dim con As New SqlConnection
            con.ConnectionString = ConfigurationManager.AppSettings("ConnectionString")
            Dim myAdapter As New SqlDataAdapter("Select SupplierApp_Kid, SupplierApp_Name From SupplierApproval where SupplierApp_Approved='N' and SupplierApp_Verification = 'Verified' and SupplierApp_Isdeleted ='0' Order by SupplierApp_Name", con)
            Dim myDataSet As New DataSet
            myAdapter.Fill(myDataSet, "ProdTotal")

            Dim dt As DataTable = myDataSet.Tables("ProdTotal")
            Dim Id As DataColumn = dt.Columns.Add("SrNo", GetType(Integer))

            Dim i As Integer = 1
            For Each dr As DataRow In dt.Rows
                dr("SrNo") = i
                i = i + 1
            Next
            gvApp.Columns(0).Visible = True
            gvApp.DataSource = dt
            gvApp.DataBind()
            gvApp.Columns(0).Visible = False
        Catch ex As Exception

        End Try
    End Sub

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

            Dim phone As String
            Dim mobile As String
            Dim contact_person As String

            Dim b As Button
            b = sender
            DetailsView1.Visible = True
            'Dim str As String
            'str = b.CommandArgument
            'DetailsView1.Visible = True
            'DV.Visible = False
            Dim dt As DataTable
            dt = ReturnDataTable("Select * From SupplierApproval where SupplierApp_Kid='" & RemoveLiterals(b.CommandArgument) & "'")
            DetailsView1.DataSource = dt
            DetailsView1.DataBind()


            'Dim i As Integer
            'For i = 0 To DetailsView1.Rows.Count - 1
            If dt.Rows(0).Item("SupplierApp_AgreementFlag").ToString = "Y" Then
                DetailsView1.Rows(1).Cells(1).Text = "Yes"
            Else
                DetailsView1.Rows(1).Cells(1).Text = "NO"
            End If
            phone = dt.Rows(0).Item("SupplierApp_TelCountryCode").ToString & " - " & dt.Rows(0).Item("SupplierApp_TelCityCode").ToString & " - " & dt.Rows(0).Item("SupplierApp_TelNumber").ToString & "-" & dt.Rows(0).Item("SupplierApp_TelExtn").ToString
            mobile = dt.Rows(0).Item("SupplierAppContactPerson_MobileCode") & " - " & dt.Rows(0).Item("SupplierAppContactPerson_MobileNo")
            contact_person = dt.Rows(0).Item("SupplierAppContactPerson_Title") & "  " & dt.Rows(0).Item("SupplierAppContactPerson_Name")


            DetailsView1.Rows(5).Cells(1).Text = phone
            DetailsView1.Rows(6).Cells(1).Text = contact_person
            DetailsView1.Rows(8).Cells(1).Text = mobile
            DetailsView1.Rows(9).Cells(1).Text = dt.Rows(0).Item("SupplierAppContactPerson_AMobileCode") & " - " & dt.Rows(0).Item("SupplierAppContactPerson_AMobileNo")
            'Next

            If dt.Rows(0).Item("SupplierApp_IsPriceList").ToString = "Y" Then
                DetailsView1.Rows(13).Cells(1).Text = "Yes"
            Else
                DetailsView1.Rows(13).Cells(1).Text = "NO"
            End If

            Dim CatID As String
            CatID = dt.Rows(0).Item("SupplierApp_CategoryId").ToString
            If CatID <> "" Then

                CatID = CatID.Remove(CatID.LastIndexOf("-"))
                CatID = CatID.Replace("-", "','")
                CatID = CatID.Insert(0, "'")
                CatID = CatID.Insert(CatID.Length, "'")

                Dim dt1 As DataTable
                dt1 = ReturnDataTable("Select Category_Name from Category_Master where Category_KId In (" & CatID & ")")

                Dim i As Integer
                For i = 0 To dt1.Rows.Count - 1
                    DetailsView1.Rows(14).Cells(1).Text += dt1.Rows(i).Item("Category_Name").ToString & "  -  "
                Next
            Else
                DetailsView1.Rows(14).Cells(1).Text = "N.A."

            End If

            CType(DetailsView1.Rows(16).Cells(1).FindControl("btnDelete"), Button).Attributes.Add("onclick", "return confirm('Are you Sure ! Want to Delete ?');")


            '' Matching the  Data with Already Approved Suppliers

            ViewState("sup_add") = dt.Rows(0).Item("SupplierApp_Address").ToString
            ViewState("sup_phone") = dt.Rows(0).Item("SupplierApp_TelNumber").ToString
            ViewState("sup_pin") = dt.Rows(0).Item("SupplierApp_PinCode").ToString
            ViewState("sup_website") = dt.Rows(0).Item("SupplierApp_WebSiteURL").ToString
            ViewState("sup_mob") = dt.Rows(0).Item("SupplierAppContactPerson_MobileNo").ToString
            ViewState("sup_contact_person") = dt.Rows(0).Item("SupplierAppContactPerson_Name").ToString
            ViewState("mykid") = b.CommandArgument.ToString
            gvMatchingSupplier.PageIndex = 0
            Fill_MatchingData(ViewState("mykid").ToString, ViewState("sup_add").ToString, ViewState("sup_phone").ToString, ViewState("sup_pin").ToString, ViewState("sup_website").ToString, ViewState("sup_mob").ToString, ViewState("sup_contact_person").ToString)

            If gvMatchingSupplier.Rows.Count <> 0 Then
                CType(DetailsView1.Rows(16).Cells(1).FindControl("btnApprove"), Button).Attributes.Add("onclick", "return confirm('Other Supplier Also has Some Details are Same. Still You Want to Approve ?');")
            Else
                CType(DetailsView1.Rows(16).Cells(1).FindControl("btnApprove"), Button).Attributes.Add("onclick", "return confirm('Are You Sure ! Want to Approve ?');")
            End If

            DVMatchingData.Visible = False
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub Fill_MatchingData(ByVal kid As String, ByVal sup_add As String, ByVal sup_phone As String, ByVal sup_pin As String, ByVal sup_website As String, ByVal sup_mob As String, ByVal sup_contact_person As String)
        Try

            Dim ret_val As DataTable = ReturnDataTable("SELECT     Supplier_Master.Supplier_Kid, Supplier_Master.Supplier_Name, SupplierContactPerson_Master.SupplierContactPerson_EmailId, Supplier_Master.Supplier_TelNumber as TelePhone   FROM         Supplier_Master left outer JOIN    SupplierContactPerson_Master ON Supplier_Master.Supplier_Kid = SupplierContactPerson_Master.SupplierContactPerson_SupplierId    CROSS Join  SupplierApproval   WHERE     (SupplierApproval.SupplierApp_Kid = '" & RemoveLiterals(kid.ToString) & "') AND (Supplier_Master.Supplier_IsDeleted = N'0') AND ((Supplier_Master.Supplier_TelNumber = '" & sup_phone & "') OR (Supplier_Master.Supplier_PinCode = '" & sup_pin & "') OR (Supplier_Master.Supplier_Address = '" & sup_add & "') OR (Supplier_Master.Supplier_WebSiteUrl = '" & sup_website & "') OR (SupplierContactPerson_Master.SupplierContactPerson_MobileNo = '" & sup_mob & "') OR (SupplierContactPerson_Master.SupplierContactPerson_Name = '" & sup_contact_person & "')) Order By Supplier_Master.Supplier_Name")
            Dim Id As DataColumn = ret_val.Columns.Add("SrNo", GetType(Integer))

            Dim i As Integer = 1
            For Each dr As DataRow In ret_val.Rows
                dr("SrNo") = i
                i = i + 1
            Next
            tdExisting.Visible = True
            gvMatchingSupplier.DataSource = ret_val
            gvMatchingSupplier.DataBind()

        Catch ex As Exception

        End Try
    End Sub

    Private Sub ExecuteQueryForVoffice(ByVal StrQry As String)
        Try
            Dim ConVoffice As New SqlConnection(ConfigurationManager.AppSettings("ConnectionVoffice")) 'Define connection variable for connecting to SQL-Server
            If ConVoffice.State = ConnectionState.Closed Then
                ConVoffice.Open()                                             'Open the Connection
            End If

            Dim cmd As New SqlCommand(StrQry, ConVoffice)                 'Define command variable to execute the query
            cmd.ExecuteNonQuery()                                ' Executes the command
            If ConVoffice.State = ConnectionState.Open Then ConVoffice.Close() ' If Connection Exists Then Close
            ConVoffice = Nothing                                        ' Set Connnection Object as nothing       
            cmd = Nothing                                        ' Set Command Object as nothing
        Catch ex As Exception
            ' MsgBox(ex.Message, MsgBoxStyle.Information) 'Display the Error Message
        End Try
    End Sub

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

            'save the data in Supplier_Master Table
            Dim b As Button
            b = sender
            Dim dt As DataTable
            dt = ReturnDataTable("Select * From SupplierApproval where SupplierApp_Kid='" & RemoveLiterals(b.CommandArgument) & "'")
            Dim strMemberKid As String
            Dim cmd As New Data.SqlClient.SqlCommand()
            Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters
            strMemberKid = NewPrimaryKey(Me)
            sqlcoll.Clear()
            Dim sup_code As String = GenerateSuppCode()
            sqlcoll.Add("@Supplier_Kid", Data.SqlDbType.NVarChar, 10).Value = strMemberKid.Trim
            sqlcoll.Add("@Supplier_Code", Data.SqlDbType.NVarChar, 25).Value = sup_code.Trim
            sqlcoll.Add("@Supplier_Name", Data.SqlDbType.NVarChar, 150).Value = dt.Rows(0).Item("SupplierApp_Name").ToString
            sqlcoll.Add("@Supplier_CityId", Data.SqlDbType.NVarChar, 10).Value = dt.Rows(0).Item("SupplierApp_CityId").ToString
            sqlcoll.Add("@Supplier_Address", Data.SqlDbType.NVarChar, 500).Value = dt.Rows(0).Item("SupplierApp_Address").ToString
            sqlcoll.Add("@Supplier_PinCode", Data.SqlDbType.NVarChar, 100).Value = dt.Rows(0).Item("SupplierApp_PinCode").ToString
            sqlcoll.Add("@Supplier_TelCountryCode", Data.SqlDbType.NVarChar, 10).Value = dt.Rows(0).Item("SupplierApp_TelCountryCode").ToString
            sqlcoll.Add("@Supplier_TelCityCode", Data.SqlDbType.NVarChar, 10).Value = dt.Rows(0).Item("SupplierApp_TelCityCode").ToString
            sqlcoll.Add("@Supplier_TelNumber", Data.SqlDbType.NVarChar, 10).Value = dt.Rows(0).Item("SupplierApp_TelNumber").ToString
            sqlcoll.Add("@Supplier_TelExtn", Data.SqlDbType.NVarChar, 25).Value = dt.Rows(0).Item("SupplierApp_TelExtn").ToString
            sqlcoll.Add("@Supplier_WebSiteUrl", Data.SqlDbType.NVarChar, 100).Value = dt.Rows(0).Item("SupplierApp_WebSiteUrl").ToString

            sqlcoll.Add("@Supplier_NoOFYear", Data.SqlDbType.NVarChar, 10).Value = dt.Rows(0).Item("SupplierApp_NoOfYear").ToString
            sqlcoll.Add("@Supplier_AnnualTO", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(0).Item("SupplierApp_AnnualTO").ToString
            sqlcoll.Add("@Supplier_AnnualTOType", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(0).Item("SupplierApp_AnnualTOType").ToString
            sqlcoll.Add("@Supplier_AnnualTOYear", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(0).Item("SupplierApp_AnnualTOYear").ToString
            sqlcoll.Add("@Supplier_IsISO", Data.SqlDbType.NVarChar, 1).Value = dt.Rows(0).Item("SupplierApp_IsISO").ToString
            sqlcoll.Add("@Supplier_IsBuyer", Data.SqlDbType.NVarChar, 1).Value = dt.Rows(0).Item("SupplierApp_IsBuyer").ToString
            sqlcoll.Add("@Supplier_BuyerID", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(0).Item("SupplierApp_BuyerID").ToString

            sqlcoll.Add("@Supplier_IsPriceList", Data.SqlDbType.NVarChar, 1).Value = dt.Rows(0).Item("SupplierApp_IsPriceList").ToString
            sqlcoll.Add("@Supplier_CategoryId", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(0).Item("SupplierApp_CategoryID").ToString

            sqlcoll.Add("@Supplier_AgreementFlag", Data.SqlDbType.NVarChar, 1).Value = dt.Rows(0).Item("SupplierApp_AgreementFlag").ToString
            If dt.Rows(0).Item("SupplierApp_NoOfProductsBrands").ToString = "" Then
                sqlcoll.Add("@Supplier_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = 0
            Else
                sqlcoll.Add("@Supplier_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = Convert.ToInt32(dt.Rows(0).Item("SupplierApp_NoOfProductsBrands").ToString)
            End If

            'sqlcoll.Add("@Supplier_NoOfProductsBrands", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(0).Item("SupplierApp_NoOfProductsBrands").ToString
            sqlcoll.Add("@Supplier_Remarks", Data.SqlDbType.NVarChar, 100).Value = CType(DetailsView1.Rows(11).Cells(1).FindControl("txtRemarks"), TextBox).Text
            sqlcoll.Add("@Supplier_Approved", Data.SqlDbType.NVarChar, 10).Value = "Y"
            sqlcoll.Add("@Supplier_RegDate", Data.SqlDbType.DateTime).Value = dt.Rows(0).Item("SupplierApp_RegDate")
            sqlcoll.Add("@Supplier_ApprovalDate", Data.SqlDbType.DateTime).Value = System.DateTime.Now
            sqlcoll.Add("@Supplier_FinancialYearId", Data.SqlDbType.NVarChar, 100).Value = Session("g_FinYear")
            sqlcoll.Add("@Supplier_CompanyId", Data.SqlDbType.NVarChar, 10).Value = Session("g_Company").Trim
            sqlcoll.Add("@Supplier_UserId", Data.SqlDbType.NVarChar, 10).Value = Session("g_User").Trim
            'Dim strIp As String = Request.UserHostAddress()
            sqlcoll.Add("@Supplier_ClientIP", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(0).Item("SupplierApp_ClientIP").ToString
            sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
            sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert"
            ExecQuery("SupplierNew_Proc", sqlcoll)
            sqlcoll.Clear()

            '' By Mitesh 01 Aug 2009 --- For Updating Communication Thread with New Supplier KID 
            ExecuteQueryForVoffice("Update AtcoCommunicationThread Set ProspectID = '" & strMemberKid.Trim & "' Where ProspectID='" & RemoveLiterals(b.CommandArgument) & "'")
            '' End Updating


            'save the Password & Other Detail in the AdminUser Table
            Dim adminkid As String
            adminkid = NewPrimaryKey(Me)
            Dim cipher As String
            Dim passwrd As String

            If dt.Rows(0).Item("SupplierApp_Password").ToString = "" Then
                passwrd = GetRandomPasswordUsingGUID(6)
            Else
                passwrd = dt.Rows(0).Item("SupplierApp_Password").ToString
            End If

            cipher = Encrypt(passwrd)
            Dim cmdp As New Data.SqlClient.SqlCommand()
            Dim sqlcollp As Data.SqlClient.SqlParameterCollection = cmdp.Parameters
            sqlcollp.Clear()
            sqlcollp.Add("@AdminUser_Kid", Data.SqlDbType.NVarChar, 20).Value = adminkid.Trim
            sqlcollp.Add("@AdminUser_Code", Data.SqlDbType.NVarChar, 20).Value = Generate_Code("select count(*) from AdminUser_Master where AdminUser_Code='", "AU")
            sqlcollp.Add("@AdminUser_Name", Data.SqlDbType.NVarChar, 200).Value = dt.Rows(0).Item("SupplierAppContactPerson_EmailId").Trim
            sqlcollp.Add("@AdminUser_UserTypeId", Data.SqlDbType.NVarChar, 20).Value = "00000E6"
            sqlcollp.Add("@AdminUser_Password", Data.SqlDbType.NVarChar, 100).Value = cipher.ToString
            sqlcollp.Add("@AdminUser_ActiveFlag", Data.SqlDbType.NVarChar, 20).Value = "Y"
            sqlcollp.Add("@AdminUser_Assigned", Data.SqlDbType.NVarChar, 20).Value = "Y"
            sqlcollp.Add("@AdminUser_FinancialYearId", Data.SqlDbType.NVarChar, 20).Value = Session("g_FinYear")
            sqlcollp.Add("@AdminUser_CompanyID", Data.SqlDbType.NVarChar, 20).Value = Session("g_Company").Trim
            sqlcollp.Add("@AdminUser_UserID", Data.SqlDbType.NVarChar, 20).Value = Session("g_User").Trim
            Dim strIp As String = Request.UserHostAddress()
            sqlcollp.Add("@AdminUser_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIp
            sqlcollp.Add("@FormName", Data.SqlDbType.NVarChar, 20).Value = Me.Title.ToString
            sqlcollp.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert"
            ExecQuery("AdminUser_Proc", sqlcollp).StartsWith("True")
            ExecuteQuery("Update Supplier_Master set Supplier_AdminUserID='" & adminkid.Trim & "' where Supplier_Kid='" & strMemberKid.Trim & "'")
            cmdp = Nothing
            sqlcollp = Nothing

            'send the password into mail
            email(dt.Rows(0).Item("SupplierAppContactPerson_EmailId").Trim, passwrd)


            'insert the data in the Supplier Contact Table
            Dim cmd1 As New Data.SqlClient.SqlCommand()
            Dim sqlcoll1 As Data.SqlClient.SqlParameterCollection = cmd.Parameters
            Dim i As Int32
            sqlcoll1.Clear()
            For i = 0 To dt.Rows.Count - 1
                sqlcoll.Clear()
                sqlcoll.Add("@SupplierContactPerson_Kid", Data.SqlDbType.NVarChar, 10).Value = NewPrimaryKey(Me)
                sqlcoll.Add("@SupplierContactPerson_Code", Data.SqlDbType.NVarChar, 25).Value = Generate_Code("select count(*) from SupplierContactPerson_Master where SupplierContactPerson_Code='", "MCP")
                sqlcoll.Add("@SupplierContactPerson_Title", Data.SqlDbType.NVarChar, 15).Value = dt.Rows(i).Item("SupplierAppContactPerson_Title").Trim
                sqlcoll.Add("@SupplierContactPerson_Name", Data.SqlDbType.NVarChar, 100).Value = dt.Rows(i).Item("SupplierAppContactPerson_Name").Trim
                sqlcoll.Add("@SupplierContactPerson_Designation", Data.SqlDbType.NVarChar, 100).Value = dt.Rows(i).Item("SupplierAppContactPerson_Designation").Trim

                If IsDBNull(dt.Rows(i).Item("SupplierAppContactPerson_MobileCode")) Then
                Else
                    sqlcoll.Add("@SupplierContactPerson_MobileCode", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(i).Item("SupplierAppContactPerson_MobileCode").Trim
                End If

                If IsDBNull(dt.Rows(i).Item("SupplierAppContactPerson_MobileNo")) Then
                Else
                    sqlcoll.Add("@SupplierContactPerson_MobileNo", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(i).Item("SupplierAppContactPerson_MobileNo").Trim
                End If

                If IsDBNull(dt.Rows(i).Item("SupplierAppContactPerson_AMobileCode")) Then
                Else
                    sqlcoll.Add("@SupplierContactPerson_AMobileCode", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(i).Item("SupplierAppContactPerson_AMobileCode").Trim
                End If

                If IsDBNull(dt.Rows(i).Item("SupplierAppContactPerson_AMobileNo")) Then
                Else
                    sqlcoll.Add("@SupplierContactPerson_AMobileNo", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(i).Item("SupplierAppContactPerson_AMobileNo").Trim
                End If

                If IsDBNull(dt.Rows(i).Item("SupplierAppContactPerson_EmailId")) Then
                Else
                    sqlcoll.Add("@SupplierContactPerson_EmailId", Data.SqlDbType.NVarChar, 100).Value = dt.Rows(i).Item("SupplierAppContactPerson_EmailId").Trim
                End If

                If IsDBNull(dt.Rows(i).Item("SupplierAppContactPerson_AlternateEmailID")) Then
                Else
                    sqlcoll.Add("@SupplierContactPerson_AlternateEmailID", Data.SqlDbType.NVarChar, 100).Value = dt.Rows(i).Item("SupplierAppContactPerson_AlternateEmailID").Trim
                End If
                sqlcoll.Add("@SupplierContactPerson_SupplierId", Data.SqlDbType.NVarChar, 10).Value = strMemberKid.Trim
                sqlcoll.Add("@SupplierContactPerson_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = Session("g_FinYear")
                sqlcoll.Add("@SupplierContactPerson_CompanyId", Data.SqlDbType.NVarChar, 10).Value = Session("g_Company")
                sqlcoll.Add("@SupplierContactPerson_UserId", Data.SqlDbType.NVarChar, 10).Value = Session("g_User")
                If IsDBNull(dt.Rows(i).Item("SupplierAppContactPerson_ClientIP")) Then
                Else
                    sqlcoll.Add("@SupplierContactPerson_ClientIP", Data.SqlDbType.NVarChar, 50).Value = dt.Rows(i).Item("SupplierAppContactPerson_ClientIP").ToString
                End If

                sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
                sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim
                ExecQuery("SupplierContactPerson_Master_Proc", sqlcoll)
                sqlcoll.Clear()
            Next
            dt.Rows.Clear()

            'update the status of Approved
            Dim strQuery As String
            strQuery = "update SupplierApp_Master set SupplierApp_Approved='Y' , SupplierApp_Status='Approved' where SupplierApp_Kid='" & b.CommandArgument & "'"
            ExecuteQuery(strQuery)

            'update the SignAgreement
            strQuery = "update SignAgreement_Supplier set signagreement_Approved='Y' , signagreement_SupplierId='" & strMemberKid.Trim & "' where signagreement_SupplierId='" & b.CommandArgument & "'"
            ExecuteQuery(strQuery)
            fillgridJ()

            'DV.Visible = True
            DetailsView1.Visible = False
            'Response.Redirect("AdminUser_Master.aspx?ID=" & strMemberKid)
            showmessage("Supplier Approved Successfully.", lblMsg)
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblMsg)
        End Try
    End Sub

    Public Sub email(ByVal username As String, ByVal pwd As String)
        Try


            Dim StrMail As String = ""
            StrMail = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
            StrMail = StrMail & "<html>" & "<head>" & "<meta http-equiv=""Content-Type"""
            StrMail = StrMail & "<content=""text/html""; charset=""iso-8859-1"">"
            StrMail = StrMail & "<title>Contact Us</title>" & "</head><body><P align=left>"
            StrMail = StrMail & "<table style='BORDER-RIGHT: #8c8e81 thin solid; BORDER-TOP: #8c8e81 thin solid; FONT-SIZE: 9pt;  BORDER-LEFT: #8c8e81 thin solid; BORDER-BOTTOM: #8c8e81 thin solid; FONT-FAMILY: Verdana' width='700' border='0' cellspacing='0' cellpadding='0' align='left' >"
            StrMail = StrMail & "<tr>" & "<td>"
            StrMail = StrMail & "<br>"
            StrMail = StrMail & "<br>"
            StrMail = StrMail & "Dear Supplier," & "</td></tr>"
            StrMail = StrMail & "<tr><td>" & "Your User ID and password are as given below:"
            StrMail = StrMail & "<tr><td height='20'></td></tr>"
            StrMail = StrMail & "<tr><td>&nbsp;&nbsp;&nbsp;<B>" & "UserID " & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & ":" & "&nbsp;&nbsp;&nbsp;&nbsp; " & username.Trim & "</B>"
            StrMail = StrMail & "</td></tr>"
            StrMail = StrMail & "<tr><td>"
            StrMail = StrMail & "&nbsp;&nbsp;&nbsp;<B>" & "Password " & "&nbsp;&nbsp;&nbsp;" & ":" & "&nbsp;&nbsp;&nbsp;&nbsp; " & pwd.Trim & "</B>"
            StrMail = StrMail & "</td></tr>"
            StrMail = StrMail & "<tr><td height='20'></td></tr>"
            StrMail = StrMail & "<tr><td>" & "Now you can upload your products and be in touch with your customers." & "</td></tr>"
            StrMail = StrMail & "<tr><td>" & "Enjoy using different services of ATCOMAART." & "</td></tr>"
            StrMail = StrMail & "<tr><td height='20'></td></tr>"
            StrMail = StrMail & "<tr><td>" & "Click on the below link for login in your account: " & "</td></tr>"
            StrMail = StrMail & "<tr><td>" & "<a href='http://www.atcomaart.com/suppliers/home.aspx'>http://www.atcomaart.com/suppliers/home.aspx</a> " & "</td></tr>"
            StrMail = StrMail & "<tr><td height='20'></td></tr>"
            StrMail = StrMail & "<tr><td>" & "If unable to view the page, please copy the link and paste it in a new browser window." & "</td></tr>"
            StrMail = StrMail & "<tr><td>" & "Please contact our product management team at <a href='mailto:contact@atcomaart.com'>contact@atcomaart.com</a> for any further support." & "</td></tr>"
            StrMail = StrMail & "<tr><td height='20'></td></tr>"
            StrMail = StrMail & "<tr><td>" & "Thanks & Regards " & "</td></tr>"
            StrMail = StrMail & "<tr><td>" & "ATCOMAART TEAM!" & "</td></tr>"
            StrMail = StrMail & "<tr><td> <a href='http://www.atcomaart.com/'>www.atcomaart.com</a></td></tr>"
            StrMail = StrMail & "<tr><td> <a href='mailto:supplier@atcomaart.com'>supplier@atcomaart.com</a></td></tr>"
            StrMail = StrMail & "<tr><td> <a href='mailto:contact@atcomaart.com'> contact@atcomaart.com</a></td></tr>"

            StrMail = StrMail & "</table></p></body></html>"
            ' ''Dim objmessage As New MailMessage()
            ' ''objmessage.From = New MailAddress("contact.atcomaart@atco.in", "Atcomaart Ltd.")
            ' ''objmessage.To.Add(username.Trim)
            ' ''objmessage.CC.Add("contact.atcomaart@atco.in") ', "Atcomaart Ltd."))
            '' '' objmessage.Bcc.Add("it@atcomaart.com") ', "CC Name"))
            ' ''objmessage.Subject = "Supplier UserID And Password"
            ' ''objmessage.Body = StrMail
            ' ''objmessage.IsBodyHtml = True
            ' ''objmessage.Priority = MailPriority.High
            ' ''Dim smtp As New SmtpClient("smtp.rediffmailpro.com")
            ' ''smtp.Credentials = New Net.NetworkCredential("contact.atcomaart@atco.in", "contact@55017_atco")
            ' ''smtp.Send(objmessage)

            MailSender.SendEmail(username.Trim, "Supplier UserID And Password", StrMail, MailFormat.Html, "")



        Catch ex As Exception
            showmessage(ex.Message.ToString, lblMsg)
        End Try

    End Sub

    Protected Sub btnDelete_Click1(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            Dim b As Button
            b = sender
            ExecuteQuery("DELETE FROM SupplierApp_Master where SupplierApp_Kid = '" & b.CommandArgument & "'")
            ExecuteQuery("Delete From SupplierAppContactPerson_Master where SupplierAppContactPerson_SupplierAppID = '" & b.CommandArgument & "'")
            fillgridJ()
            'DV.Visible = True
            DetailsView1.Visible = False
            showmessage("Supplier Deleted Successfully.", lblMsg)
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        DetailsView1.Visible = False
        'DV.Visible = True
    End Sub

    Protected Sub gvApp_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvApp.PageIndexChanging
        gvApp.PageIndex = e.NewPageIndex
        fillgridJ()
        DetailsView1.Visible = False
    End Sub

    Protected Sub gvMatchingSupplier_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvMatchingSupplier.PageIndexChanging
        gvMatchingSupplier.PageIndex = e.NewPageIndex
        Fill_MatchingData(ViewState("mykid").ToString, ViewState("sup_add").ToString, ViewState("sup_phone").ToString, ViewState("sup_pin").ToString, ViewState("sup_website").ToString, ViewState("sup_mob").ToString, ViewState("sup_contact_person").ToString)
        DVMatchingData.Visible = False
    End Sub

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

            Dim b As Button
            b = sender
            DVMatchingData.Visible = True

            Dim dt_match As DataTable
            dt_match = ReturnDataTable("SELECT     Supplier_Master.*, SupplierContactPerson_Master.SupplierContactPerson_Designation, SupplierContactPerson_Master.SupplierContactPerson_Name,    SupplierContactPerson_Master.SupplierContactPerson_Title, SupplierContactPerson_Master.SupplierContactPerson_PhoneNo,    SupplierContactPerson_Master.SupplierContactPerson_ExtNo, SupplierContactPerson_Master.SupplierContactPerson_MobileNo,   SupplierContactPerson_Master.SupplierContactPerson_MobileCode, SupplierContactPerson_Master.SupplierContactPerson_AMobileNo,   SupplierContactPerson_Master.SupplierContactPerson_AMobileCode, SupplierContactPerson_Master.SupplierContactPerson_EmailId,  SupplierContactPerson_Master.SupplierContactPerson_AlternateEmailID FROM         Supplier_Master INNER JOIN    SupplierContactPerson_Master ON Supplier_Master.Supplier_Kid = SupplierContactPerson_Master.SupplierContactPerson_SupplierId WHERE   (Supplier_Master.Supplier_IsDeleted = N'0') AND Supplier_Kid='" & RemoveLiterals(b.CommandArgument) & "'")
            DVMatchingData.DataSource = dt_match
            DVMatchingData.DataBind()


            If dt_match.Rows(0).Item("Supplier_AgreementFlag").ToString = "Y" Then
                DVMatchingData.Rows(1).Cells(1).Text = "Yes"
            Else
                DVMatchingData.Rows(1).Cells(1).Text = "NO"
            End If

            DVMatchingData.Rows(5).Cells(1).Text = dt_match.Rows(0).Item("Supplier_TelCountryCode").ToString & " - " & dt_match.Rows(0).Item("Supplier_TelCityCode").ToString & " - " & dt_match.Rows(0).Item("Supplier_TelNumber").ToString & "-" & dt_match.Rows(0).Item("Supplier_TelExtn").ToString


            DVMatchingData.Rows(6).Cells(1).Text = dt_match.Rows(0).Item("SupplierContactPerson_Title") & "  " & dt_match.Rows(0).Item("SupplierContactPerson_Name")
            DVMatchingData.Rows(8).Cells(1).Text = dt_match.Rows(0).Item("SupplierContactPerson_MobileCode") & " - " & dt_match.Rows(0).Item("SupplierContactPerson_MobileNo")
            DVMatchingData.Rows(9).Cells(1).Text = dt_match.Rows(0).Item("SupplierContactPerson_AMobileCode") & " - " & dt_match.Rows(0).Item("SupplierContactPerson_AMobileNo")


            If dt_match.Rows(0).Item("Supplier_IsPriceList").ToString = "Y" Then
                DVMatchingData.Rows(13).Cells(1).Text = "Yes"
            Else
                DVMatchingData.Rows(13).Cells(1).Text = "NO"
            End If

            Dim CatID As String
            CatID = dt_match.Rows(0).Item("Supplier_CategoryId").ToString
            If CatID <> "" Then

                CatID = CatID.Remove(CatID.LastIndexOf("-"))
                CatID = CatID.Replace("-", "','")
                CatID = CatID.Insert(0, "'")
                CatID = CatID.Insert(CatID.Length, "'")

                Dim dt11 As DataTable
                dt11 = ReturnDataTable("Select Category_Name from Category_Master where Category_KId In (" & CatID & ")")

                Dim i As Integer
                For i = 0 To dt11.Rows.Count - 1
                    DVMatchingData.Rows(14).Cells(1).Text += dt11.Rows(i).Item("Category_Name").ToString & "  -  "
                Next
            Else
                DVMatchingData.Rows(14).Cells(1).Text = "N.A."

            End If
        Catch ex As Exception

        End Try

    End Sub

End Class