Imports System
Imports System.Data
Imports System.Data.SqlClient
Partial Class SupplierPaymentOutstanding
    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
            'Session("SupplierID") = "0000JJ["
            fillprdouctgrid()
            rowcourier.Visible = False
            rowvat.Visible = False

        End If
    End Sub


    Function fillprdouctgrid()
        Dim str As String = "SELECT     SupplierInv.SupplierInv_SupplierDispatchProdDetailId as SupIv_Spdpd, SupplierProductInvoice.SupplierProductInvoice_ProductId as productid,  SupplierProductInvoice.SupplierProductInvoice_UnitPrice as price, SupplierProductInvoice.SupplierProductInvoice_Quantity as qty, SupplierInv.SupplierInv_NetAmount as netamt, SupplierInv.SupplierInv_No, convert(varchar(25),SupplierInv.SupplierInv_GenrateDate,103) as SupplierInv_GenrateDate , SupplierInv.SupplierInv_Kid,SupplierInv.SupplierInv_code , Product_Master.Product_Name as PName  FROM  SupplierInv INNER JOIN   SupplierProductInvoice ON SupplierInv.SupplierInv_Kid = SupplierProductInvoice.SupplierProductInvoice_SupplierInvId INNER JOIN  Product_Master ON SupplierProductInvoice.SupplierProductInvoice_ProductId = Product_Master.Product_Kid where  Product_Master.Product_SupplierId='" & Session("SupplierID") & "' and SupplierProductInvoice_Status='Pending'"
        gvProductDetails.Columns(1).Visible = True
        gvProductDetails.Columns(2).Visible = True
        gvProductDetails.Columns(3).Visible = True
        fillgridview(gvProductDetails, str)
        gvProductDetails.Columns(1).Visible = False
        gvProductDetails.Columns(2).Visible = False
        gvProductDetails.Columns(3).Visible = False
    End Function


    Function fillgridview(ByVal gv As GridView, ByVal str As String)
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        Dim da As New SqlDataAdapter(str, con)
        Dim ds As New DataSet
        da.Fill(ds)
        gv.DataSource = ds.Tables(0)
        gv.DataBind()
        con.Close()

    End Function

    Protected Sub gvProductDetails_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvProductDetails.PageIndexChanging
        gvProductDetails.PageIndex = e.NewPageIndex
        fillprdouctgrid()
    End Sub




  
    Protected Sub gvProductDetails_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvProductDetails.SelectedIndexChanged
        gvProductDetails.Columns(1).Visible = True
        Dim str As String = "SELECT      SupplierInv_ExciseDuty, SupplierInv_EduCess, SupplierInv_VAT, SupplierInv_CST, SupplierInv_CSTAgainstC, (SupplierInv_ExciseDuty+SupplierInv_EduCess+ SupplierInv_VAT + SupplierInv_CST + SupplierInv_CSTAgainstC) as amt   FROM SupplierInv where SupplierInv_Kid='" & gvProductDetails.SelectedRow.Cells(2).Text & "'"
        fillgridview(gvvatdetails, str)
        gvProductDetails.Columns(1).Visible = False
        rowcourier.Visible = False
        rowvat.Visible = True


    End Sub

    Protected Sub lnksuppinvno_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        rowcourier.Visible = True
        rowvat.Visible = False
        Dim lnk As LinkButton = CType(sender, LinkButton)
        Dim str As String = "SELECT  SupplierDispatchProductDetails.SupplierDispatchProductDetails_CourierId as CourierId, SupplierDispatchProductDetails.SupplierDispatchProductDetails_CourierNo as CourierNo ,  SupplierDispatchProductDetails.SupplierDispatchProductDetails_CourierDate as CourierDate,  SupplierDispatchProductDetails.SupplierDispatchProductDetails_BuyerShippingAddressId as BuyerShippingAddressId,Courier_Master.Courier_Name,SupplierDispatchDetails.SupplierDispatchDetails_Code as sddcode FROM SupplierDispatchProductDetails INNER JOIN SupplierInv ON SupplierDispatchProductDetails.SupplierDispatchProductDetails_Kid = SupplierInv.SupplierInv_SupplierDispatchProdDetailId  INNER JOIN  Courier_Master ON  SupplierDispatchProductDetails.SupplierDispatchProductDetails_CourierId = dbo.Courier_Master.Courier_Kid INNER JOIN  SupplierDispatchDetails ON  SupplierDispatchProductDetails.SupplierDispatchProductDetails_SupplierDispatchDetailsId = SupplierDispatchDetails.SupplierDispatchDetails_Kid  where SupplierInv.SupplierInv_Kid='" & lnk.CommandArgument & "'"
        Dim dt As DataTable = getTable(str.Trim, "CourierDetails")
        lblcourierdetails.Text = "<b>Dipatched Order No :</b> " & dt.Rows(0).Item("sddcode").ToString & "<br><b>Courier Name:</b> " & dt.Rows(0).Item("Courier_Name").ToString & "<br><b>Courier No:</b>" & dt.Rows(0).Item("CourierNo").ToString & "<br><b>Courier Date:</b>" & dt.Rows(0).Item("CourierDate").ToString
        lblcourierdetails.Visible = True
        Dim shipid As String = dt.Rows(0).Item("BuyerShippingAddressId").ToString
        str = "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"
        dt = 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