Imports System.Collections.Generic Imports System.Xml Imports System.Xml.Serialization Namespace SalesReportData _ Public Class SalesReport Private _salesPersonList As New List(Of SalesReportSalesPerson) Private _beginDate As System.DateTime Private _endDate As System.DateTime Private _salesTotal As Decimal _ Public Property SalesPerson() As List(Of SalesReportSalesPerson) Get Return _salesPersonList End Get Set(ByVal value As List(Of SalesReportSalesPerson)) _salesPersonList = value End Set End Property _ Public Property beginDate() As System.DateTime Get Return _beginDate End Get Set(ByVal value As System.DateTime) _beginDate = value End Set End Property _ Public Property endDate() As System.DateTime Get Return _endDate End Get Set(ByVal value As System.DateTime) _endDate = value End Set End Property _ Public Property salesTotal() As Decimal Get Return _salesTotal End Get Set(ByVal value As Decimal) _salesTotal = value End Set End Property Public Sub New() End Sub End Class _ Public Class SalesReportSalesPerson Private _salesOrderList As New List(Of SalesReportSalesPersonSalesOrder) Private _salesPersonId As Integer Private _firstName As String Private _lastName As String Private _email As String Private _salesQuota As Decimal Private _salesQuotaSpecified As Boolean Private _salesTotal As Decimal _ Public Property SalesOrder() As List(Of SalesReportSalesPersonSalesOrder) Get Return _salesOrderList End Get Set(ByVal value As List(Of SalesReportSalesPersonSalesOrder)) _salesOrderList = value End Set End Property _ Public Property salesPersonId() As Integer Get Return _salesPersonId End Get Set(ByVal value As Integer) _salesPersonId = value End Set End Property _ Public Property firstName() As String Get Return _firstName End Get Set(ByVal value As String) _firstName = value End Set End Property _ Public Property lastName() As String Get Return _lastName End Get Set(ByVal value As String) _lastName = value End Set End Property _ Public Property email() As String Get Return _email End Get Set(ByVal value As String) _email = value End Set End Property _ Public Property salesQuota() As Decimal Get Return _salesQuota End Get Set(ByVal value As Decimal) _salesQuota = value End Set End Property _ Public Property salesQuotaSpecified() As Boolean Get Return _salesQuotaSpecified End Get Set(ByVal value As Boolean) _salesQuotaSpecified = value End Set End Property _ Public Property salesTotal() As Decimal Get Return _salesTotal End Get Set(ByVal value As Decimal) _salesTotal = value End Set End Property Public Sub New() End Sub End Class _ Public Class SalesReportSalesPersonSalesOrder Private _date As DateTime Private _territory As Territories Private _subTotal As Decimal Private _taxAmount As Decimal Private _freight As Decimal _ Public Property [date]() As DateTime Get Return _date End Get Set(ByVal value As DateTime) _date = value End Set End Property _ Public Property territory() As Territories Get Return _territory End Get Set(ByVal value As Territories) _territory = value End Set End Property _ Public Property subTotal() As Decimal Get Return _subTotal End Get Set(ByVal value As Decimal) _subTotal = value End Set End Property _ Public Property taxAmount() As Decimal Get Return _taxAmount End Get Set(ByVal value As Decimal) _taxAmount = value End Set End Property _ Public Property freight() As Decimal Get Return _freight End Get Set(ByVal value As Decimal) _freight = value End Set End Property Public Sub New() End Sub End Class Public Enum Territories Australia Canada Central France Germany Northeast Northwest Southeast Southwest UnitedKingdom End Enum End Namespace