details.aspx.vb

its it tracker and used for track

Imports System.Data.SqlClient

Partial Public Class Details
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            BuildVendorList()
            If Not Request.QueryString("id") Is Nothing Then
                If Request.QueryString("id") = "new" Then
                    ' NEW
                    BuildNew()
                Else
                    ' item
                    GetDetails(CInt(Request.QueryString("id")))
                End If
            Else
                ' NEW
                BuildNew()
            End If
        End If
    End Sub

    Private Sub BuildNew()
        lblID.Text = ""
        Me.Title = "ITracker: Add Item"
        lblPageHeader.Text = "New Item Details: "
    End Sub

    Private Sub BuildVendorList()

        Dim _vendorList As Generic.List(Of dfs.ITracker.Business.Vendor) = dfs.ITracker.Business.Vendor.FetchList()
        ddlVendor.DataTextField = "Name"
        ddlVendor.DataValueField = "ID"
        ddlVendor.DataSource = _vendorList
        ddlVendor.DataBind()

    End Sub
    Private Sub GetDetails(ByVal id As Integer)
        Me.Title = "ITracker: Item Details"

        Dim _invItem As dfs.ITracker.Business.InventoryItem = dfs.ITracker.Business.InventoryItem.Fetch(id)

        lblPageHeader.Text = "Item Details: " & _invItem.Description
        lblID.Text = id.ToString
        txtDesc.Text = _invItem.Description
        txtMFGNum.Text = _invItem.MFGNumber
        txtNotes.Text = _invItem.Notes
        txtPartNum.Text = _invItem.PartNumber
        txtQTY.Text = _invItem.Quantity
        txtReorderPt.Text = _invItem.ReorderPoint
        ddlVendor.SelectedValue = _invItem.VendorID

    End Sub

    Protected Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        lblError.Text = ""
        Dim _item As New dfs.ITracker.Business.InventoryItem
        If lblID.Text.Trim.Length > 0 Then
            _item = dfs.ITracker.Business.InventoryItem.Fetch(CInt(lblID.Text.Trim))
        End If
        With _item
            .Description = txtDesc.Text.Trim
            .MFGNumber = txtMFGNum.Text.Trim
            .Notes = txtNotes.Text.Trim
            .PartNumber = txtPartNum.Text.Trim
            .Quantity = CInt(txtQTY.Text.Trim)
            .ReorderPoint = CInt(txtReorderPt.Text.Trim)
            .VendorID = CInt(ddlVendor.SelectedValue)
        End With
        If dfs.ITracker.Business.InventoryItem.Save(_item) Then
            Response.Redirect("~/Default.aspx")
        Else
            lblError.Text = "Error saving inventory item."
        End If
    End Sub

    Private Sub Details_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
        Me.MasterPageFile = System.Configuration.ConfigurationManager.AppSettings("MasterPageName")
    End Sub
End Class