' Options:
'Date: 2024-11-21 20:26:05
'Version: 6.111
'Tip: To override a DTO option, remove "''" prefix before updating
'BaseUrl: https://sharpscript.net
'
'''GlobalNamespace: 
'''MakePartial: True
'''MakeVirtual: True
'''MakeDataContractsExtensible: False
'''AddReturnMarker: True
'''AddDescriptionAsComments: True
'''AddDataContractAttributes: False
'''AddIndexesToDataMembers: False
'''AddGeneratedCodeAttributes: False
'''AddResponseStatus: False
'''AddImplicitVersion: 
'''InitializeCollections: True
'''ExportValueTypes: False
'IncludeTypes: QueryCustomers.*
'''ExcludeTypes: 
'''AddNamespaces: 
'''AddDefaultXmlNamespace: http://schemas.servicestack.net/types

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Runtime.Serialization
Imports ServiceStack
Imports ServiceStack.DataAnnotations
Imports SharpScript

Namespace Global

    Namespace SharpScript

        Public Partial Class Customer
            Public Sub New()
                Orders = New List(Of Order)
            End Sub

            Public Overridable Property CustomerId As String
            Public Overridable Property CompanyName As String
            Public Overridable Property Address As String
            Public Overridable Property City As String
            Public Overridable Property Region As String
            Public Overridable Property PostalCode As String
            Public Overridable Property Country As String
            Public Overridable Property Phone As String
            Public Overridable Property Fax As String
            Public Overridable Property Orders As List(Of Order)
        End Class

        Public Partial Class Order
            Public Overridable Property OrderId As Integer
            Public Overridable Property CustomerId As String
            Public Overridable Property OrderDate As Date
            Public Overridable Property Total As Double
        End Class

        Public Partial Class QueryCustomers
            Inherits QueryDb(Of Customer)
            Implements IReturn(Of QueryResponse(Of Customer))
            Public Overridable Property CustomerId As String
            Public Overridable Property CompanyNameContains As String
            Public Overridable Property CountryIn As String()
        End Class
    End Namespace
End Namespace