Partial Class SupplierDispatchDetails
    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
            FillGrid()
        End If
    End Sub
    Private Sub FillGrid()
        Dim strQuery As String = "SELECT OrderRequestToSupplier_Kid,OrderRequestToSupplier_Code, OrderRequestToSupplier_Date, OrderRequestToSupplier_BuyerInvoiceNo " & _
                                 " FROM OrderRequestToSupplier WHERE OrderRequestToSupplier_Kid IN (SELECT OrderRequestToSupplierProduct_OrderRequestToSupplierId " & _
                                 " FROM OrderRequestToSupplierProduct WHERE  (OrderRequestToSupplierProduct_SupplierId = '" & Session("SupplierId") & "') AND (OrderRequestToSupplierProduct_IsDeleted = '0'))"

        gvOrderDetails.DataSource = getTable(strQuery.Trim, "OrderDetails")
        gvOrderDetails.DataBind()
    End Sub
    Sub Node_Populate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs)
        If e.Node.ChildNodes.Count = 0 Then
            Select Case (e.Node.Depth)
                Case 0
                    FillModule(e.Node, "2")
                    Exit Sub
                Case 1
                    FillMenu(e.Node)
                    Exit Sub
                Case 2
                    FillSubMenu(e.Node)
                    Exit Sub
            End Select
        End If
    End Sub

End Class