' <fileinfo name="OrderDetailsExtendedRow_Base.vb">
' <copyright>
' All rights reserved.
' </copyright>
' <remarks>
' Do not change this source code manually. Changes to this file may
' cause incorrect behavior and will be lost if the code is regenerated.
' </remarks>
' <generator rewritefile="True" infourl="http://www.SharpPower.com">RapTier</generator>
' </fileinfo>
Option Strict Off
Option Explicit On
Imports System
''' <summary>
''' The base class for <see cref="OrderDetailsExtendedRow"/> that
''' represents a record in the <c>Order Details Extended</c> view.
''' </summary>
''' <remarks>
''' Do not change this source code manually. Update the <see cref="OrderDetailsExtendedRow"/>
''' class if you need to add or change some functionality.
''' </remarks>
Public MustInherit Class OrderDetailsExtendedRow_Base
Private _orderID As Integer
Private _productID As Integer
Private _productName As String
Private _unitPrice As Decimal
Private _quantity As Short
Private _discount As Single
Private _extendedPrice As Decimal
Private _extendedPriceNull As Boolean = True
''' <summary>
''' Initializes a new instance of the <see cref="OrderDetailsExtendedRow_Base"/> class.
''' </summary>
Public Sub New()
MyBase.New()
' EMPTY
End Sub
''' <summary>
''' Gets or sets the <c>OrderID</c> column value.
''' </summary>
''' <value>The <c>OrderID</c> column value.</value>
Public Property OrderID As Integer
Get
Return _orderID
End Get
Set
_orderID = value
End Set
End Property
''' <summary>
''' Gets or sets the <c>ProductID</c> column value.
''' </summary>
''' <value>The <c>ProductID</c> column value.</value>
Public Property ProductID As Integer
Get
Return _productID
End Get
Set
_productID = value
End Set
End Property
''' <summary>
''' Gets or sets the <c>ProductName</c> column value.
''' </summary>
''' <value>The <c>ProductName</c> column value.</value>
Public Property ProductName As String
Get
Return _productName
End Get
Set
_productName = value
End Set
End Property
''' <summary>
''' Gets or sets the <c>UnitPrice</c> column value.
''' </summary>
''' <value>The <c>UnitPrice</c> column value.</value>
Public Property UnitPrice As Decimal
Get
Return _unitPrice
End Get
Set
_unitPrice = value
End Set
End Property
''' <summary>
''' Gets or sets the <c>Quantity</c> column value.
''' </summary>
''' <value>The <c>Quantity</c> column value.</value>
Public Property Quantity As Short
Get
Return _quantity
End Get
Set
_quantity = value
End Set
End Property
''' <summary>
''' Gets or sets the <c>Discount</c> column value.
''' </summary>
''' <value>The <c>Discount</c> column value.</value>
Public Property Discount As Single
Get
Return _discount
End Get
Set
_discount = value
End Set
End Property
''' <summary>
''' Gets or sets the <c>ExtendedPrice</c> column value.
''' This column is nullable.
''' </summary>
''' <value>The <c>ExtendedPrice</c> column value.</value>
Public Property ExtendedPrice As Decimal
Get
If IsExtendedPriceNull Then
Throw New InvalidOperationException("Cannot get value because it is DBNull.")
End If
Return _extendedPrice
End Get
Set
_extendedPriceNull = false
_extendedPrice = value
End Set
End Property
''' <summary>
''' Indicates whether the <see cref="ExtendedPrice"/>
''' property value is null.
''' </summary>
''' <value>true if the property value is null, otherwise false.</value>
Public Property IsExtendedPriceNull As Boolean
Get
Return _extendedPriceNull
End Get
Set
_extendedPriceNull = value
End Set
End Property
''' <summary>
''' Returns the string representation of this instance.
''' </summary>
''' <returns>The string representation of this instance.</returns>
Public Overrides Function ToString() As String
Dim dynStr As System.Text.StringBuilder = New System.Text.StringBuilder(Me.GetType().Name)
dynStr.Append(":")
dynStr.Append(" OrderID=")
dynStr.Append(Me.OrderID)
dynStr.Append(" ProductID=")
dynStr.Append(Me.ProductID)
dynStr.Append(" ProductName=")
dynStr.Append(Me.ProductName)
dynStr.Append(" UnitPrice=")
dynStr.Append(Me.UnitPrice)
dynStr.Append(" Quantity=")
dynStr.Append(Me.Quantity)
dynStr.Append(" Discount=")
dynStr.Append(Me.Discount)
dynStr.Append(" ExtendedPrice=")
If IsExtendedPriceNull Then
dynStr.Append("<NULL>")
Else
dynStr.Append(Me.ExtendedPrice)
End If
Return dynStr.ToString()
End Function
End Class