Imports System
Imports System.Data
Partial Class supplier_dispatch_order
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("SupplierID") = Nothing Then
            Response.Redirect("supplier-transaction-login.aspx")
        End If
        If Page.IsPostBack = False Then
            FillGrid()
        End If
    End Sub
    Private Sub FillGrid()

        Label2.Visible = False
        gvDispatchDetails.Columns(1).Visible = True
        Dim dt As Data.DataTable = getTable("select SupplierDispatchDetails.*,convert(varchar(25),SupplierDispatchDetails_Date,103) as SupplierDispatchDetails_Date1 from SupplierDispatchDetails where SupplierDispatchDetails_SupplierId='" & Session("SupplierID") & "'", "DD")
        gvDispatchDetails.DataSource = dt
        gvDispatchDetails.DataBind()
        gvDispatchDetails.Columns(1).Visible = False
    End Sub
    Private Sub FillChildGrid(ByVal strkid As String)
        lblshipaddress.Visible = False
        Dim strQuery As String = " SELECT     dbo.SupplierDispatchProductDetails.*, dbo.Product_Master.Product_Name, dbo.Courier_Master.Courier_Name,convert(varchar(25),SupplierDispatchProductDetails_CourierDate,103) as SupplierDispatchProductDetails_CourierDate1 " & _
                               " FROM         dbo.SupplierDispatchProductDetails INNER JOIN " & _
                       " dbo.Product_Master ON dbo.SupplierDispatchProductDetails.SupplierDispatchProductDetails_ProductId = dbo.Product_Master.Product_Kid INNER JOIN " & _
                      " dbo.Courier_Master ON dbo.SupplierDispatchProductDetails.SupplierDispatchProductDetails_CourierId = dbo.Courier_Master.Courier_Kid where SupplierDispatchProductDetails_SupplierDispatchDetailsId='" & strkid.Trim & "'"

        Dim dt As Data.DataTable = getTable(strQuery, "DPD")
        gvDispatchProdDetails.DataSource = dt
        gvDispatchProdDetails.DataBind()
        Label2.Visible = True
    End Sub

    Protected Sub gvDispatchDetails_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvDispatchDetails.PageIndexChanging
        gvDispatchDetails.PageIndex = e.NewPageIndex
        FillGrid()
    End Sub

    Protected Sub gvDispatchDetails_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvDispatchDetails.SelectedIndexChanged

        FillChildGrid(gvDispatchDetails.SelectedRow.Cells(1).Text.Trim)


    End Sub

    Protected Sub lnkshipaddress_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim lnk As LinkButton = CType(sender, LinkButton)
        Dim shipid As String = lnk.CommandArgument

        Dim str As String = "SELECT     BillingAddress.BillingAddress_AddID, AddressBook.AddressBook_UserName, AddressBook.AddressBook_Add1, AddressBook.AddressBook_Zipcode, " & _
                     " AddressBook.AddressBook_TelNumber, AddressBook.AddressBook_TelExtn, AddressBook.AddressBook_MobNumber, " & _
        " AddressBook.AddressBook_Email, City_Master.City_Name, State_Master.State_Name, Country_Master.Country_Name" & _
        " FROM BillingAddress INNER JOIN  AddressBook ON BillingAddress.BillingAddress_ShipAddID = AddressBook.AddressBook_Kid INNER JOIN" & _
                      " City_Master ON AddressBook.AddressBook_CityID = City_Master.City_Kid INNER JOIN" & _
                      " State_Master ON AddressBook.AddressBook_StateID = State_Master.State_Kid INNER JOIN" & _
                      " Country_Master ON AddressBook.AddressBook_CountryID = Country_Master.Country_Kid where   BillingAddress.BillingAddress_ShipAddID='" & shipid & "'"

        '= OrderRequestToSupplierProduct.OrderRequestToSupplierProduct_Address"
        Dim dt As DataTable = getTable(str.Trim, "ShippingDetails")
        lblshipaddress.Text = "<b>Name:</b> " & dt.Rows(0).Item(1).ToString & "<br><b>Address:</b>" & dt.Rows(0).Item(2).ToString & "<br><b>PinCode:</b>" & dt.Rows(0).Item(3).ToString & "<br>" & dt.Rows(0).Item(8).ToString & "<br>" & dt.Rows(0).Item(9).ToString & "," & dt.Rows(0).Item(10).ToString & "<br><b>Telephone:</b>" & dt.Rows(0).Item(4).ToString & ",<b>Ext No:</b> " & dt.Rows(0).Item(5).ToString & "<br><b>Mobile:</b>" & dt.Rows(0).Item(6).ToString & "<br><b>EmailId:</b>" & dt.Rows(0).Item(7).ToString
        lblshipaddress.Visible = True
    End Sub
End Class