Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel.DataAnnotations
Imports System.Runtime.Serialization
Imports System.ServiceModel
Imports System.ServiceModel.DomainServices.Client
Imports System.ServiceModel.DomainServices.Client.ApplicationServices
Imports System.ServiceModel.Web

Namespace RiaSC
	Public NotInheritable Partial Class WebContext
		Inherits WebContextBase

		#Region "Extensibility Method Definitions"
		Partial Private Sub OnCreated()
		End Sub

		#End Region
		Public Sub New()
			Me.OnCreated()
		End Sub
		Public Shadows Shared ReadOnly Property Current() As WebContext
			Get
				Return (CType(WebContextBase.Current, WebContext))
			End Get
		End Property
	End Class
End Namespace
Namespace RiaSC.Web
	Public NotInheritable Partial Class SCContext
		Inherits DomainContext

		#Region "Extensibility Method Definitions"
		Partial Private Sub OnCreated()
		End Sub

		#End Region
		Public Sub New()
			Me.New(New WebDomainClient(Of ISCServiceContract)(New Uri("http://demos.devexpress.com/Services/RiaSC/RiaSC-Web-SCService.svc", UriKind.Absolute)))
		End Sub
		Public Sub New(ByVal serviceUri As Uri)
			Me.New(New WebDomainClient(Of ISCServiceContract)(serviceUri))
		End Sub
		Public Sub New(ByVal domainClient As DomainClient)
			MyBase.New(domainClient)
			Me.OnCreated()
		End Sub
		Public ReadOnly Property SCIssuesDemos() As EntitySet(Of SCIssuesDemo)
			Get
				Return MyBase.EntityContainer.GetEntitySet(Of SCIssuesDemo)()
			End Get
		End Property
		Public Function GetSCIssuesDemoQuery() As EntityQuery(Of SCIssuesDemo)
			Me.ValidateMethod("GetSCIssuesDemoQuery", Nothing)
			Return MyBase.CreateQuery(Of SCIssuesDemo)("GetSCIssuesDemo", Nothing, False, True)
		End Function
		Public Function GetSCIssuesDemoByTechnologyQuery(ByVal technologyName As String) As EntityQuery(Of SCIssuesDemo)
			Dim parameters As New Dictionary(Of String, Object)()
			parameters.Add("technologyName", technologyName)
			Me.ValidateMethod("GetSCIssuesDemoByTechnologyQuery", parameters)
			Return MyBase.CreateQuery(Of SCIssuesDemo)("GetSCIssuesDemoByTechnology", parameters, False, True)
		End Function
		Public Function GetSCIssuesDemoByTechnologyExtendedData(ByVal technologyName As String, ByVal extendedDataInfo As String, ByVal callback As Action(Of InvokeOperation(Of String)), ByVal userState As Object) As InvokeOperation(Of String)
			Dim parameters As New Dictionary(Of String, Object)()
			parameters.Add("technologyName", technologyName)
			parameters.Add("extendedDataInfo", extendedDataInfo)
			Me.ValidateMethod("GetSCIssuesDemoByTechnologyExtendedData", parameters)
			Return (CType(Me.InvokeOperation("GetSCIssuesDemoByTechnologyExtendedData", GetType(String), parameters, True, callback, userState), InvokeOperation(Of String)))
		End Function
		Public Function GetSCIssuesDemoByTechnologyExtendedData(ByVal technologyName As String, ByVal extendedDataInfo As String) As InvokeOperation(Of String)
			Dim parameters As New Dictionary(Of String, Object)()
			parameters.Add("technologyName", technologyName)
			parameters.Add("extendedDataInfo", extendedDataInfo)
			Me.ValidateMethod("GetSCIssuesDemoByTechnologyExtendedData", parameters)
			Return (CType(Me.InvokeOperation("GetSCIssuesDemoByTechnologyExtendedData", GetType(String), parameters, True, Nothing, Nothing), InvokeOperation(Of String)))
		End Function
		Public Function GetSCIssuesDemoExtendedData(ByVal extendedDataInfo As String, ByVal callback As Action(Of InvokeOperation(Of String)), ByVal userState As Object) As InvokeOperation(Of String)
			Dim parameters As New Dictionary(Of String, Object)()
			parameters.Add("extendedDataInfo", extendedDataInfo)
			Me.ValidateMethod("GetSCIssuesDemoExtendedData", parameters)
			Return (CType(Me.InvokeOperation("GetSCIssuesDemoExtendedData", GetType(String), parameters, True, callback, userState), InvokeOperation(Of String)))
		End Function
		Public Function GetSCIssuesDemoExtendedData(ByVal extendedDataInfo As String) As InvokeOperation(Of String)
			Dim parameters As New Dictionary(Of String, Object)()
			parameters.Add("extendedDataInfo", extendedDataInfo)
			Me.ValidateMethod("GetSCIssuesDemoExtendedData", parameters)
			Return (CType(Me.InvokeOperation("GetSCIssuesDemoExtendedData", GetType(String), parameters, True, Nothing, Nothing), InvokeOperation(Of String)))
		End Function
		Protected Overrides Function CreateEntityContainer() As EntityContainer
			Return New SCContextEntityContainer()
		End Function
		<ServiceContract()> _
		Public Interface ISCServiceContract
			<FaultContract(GetType(DomainServiceFault), Action:="http://tempuri.org/SCService/GetSCIssuesDemoDomainServiceFault", Name:="DomainServiceFault", Namespace:="DomainServices"), OperationContract(AsyncPattern:=True, Action:="http://tempuri.org/SCService/GetSCIssuesDemo", ReplyAction:="http://tempuri.org/SCService/GetSCIssuesDemoResponse"), WebGet()> _
			Function BeginGetSCIssuesDemo(ByVal callback As AsyncCallback, ByVal asyncState As Object) As IAsyncResult
			Function EndGetSCIssuesDemo(ByVal result As IAsyncResult) As QueryResult(Of SCIssuesDemo)
			<FaultContract(GetType(DomainServiceFault), Action:="http://tempuri.org/SCService/GetSCIssuesDemoByTechnologyDomainServiceFault", Name:="DomainServiceFault", Namespace:="DomainServices"), OperationContract(AsyncPattern:=True, Action:="http://tempuri.org/SCService/GetSCIssuesDemoByTechnology", ReplyAction:="http://tempuri.org/SCService/GetSCIssuesDemoByTechnologyResponse"), WebGet()> _
			Function BeginGetSCIssuesDemoByTechnology(ByVal technologyName As String, ByVal callback As AsyncCallback, ByVal asyncState As Object) As IAsyncResult
			Function EndGetSCIssuesDemoByTechnology(ByVal result As IAsyncResult) As QueryResult(Of SCIssuesDemo)
			<FaultContract(GetType(DomainServiceFault), Action:="http://tempuri.org/SCService/GetSCIssuesDemoByTechnologyExtendedDataDomainService" & "Fault", Name:="DomainServiceFault", Namespace:="DomainServices"), OperationContract(AsyncPattern:=True, Action:="http://tempuri.org/SCService/GetSCIssuesDemoByTechnologyExtendedData", ReplyAction:="http://tempuri.org/SCService/GetSCIssuesDemoByTechnologyExtendedDataResponse")> _
			Function BeginGetSCIssuesDemoByTechnologyExtendedData(ByVal technologyName As String, ByVal extendedDataInfo As String, ByVal callback As AsyncCallback, ByVal asyncState As Object) As IAsyncResult
			Function EndGetSCIssuesDemoByTechnologyExtendedData(ByVal result As IAsyncResult) As String
			<FaultContract(GetType(DomainServiceFault), Action:="http://tempuri.org/SCService/GetSCIssuesDemoExtendedDataDomainServiceFault", Name:="DomainServiceFault", Namespace:="DomainServices"), OperationContract(AsyncPattern:=True, Action:="http://tempuri.org/SCService/GetSCIssuesDemoExtendedData", ReplyAction:="http://tempuri.org/SCService/GetSCIssuesDemoExtendedDataResponse")> _
			Function BeginGetSCIssuesDemoExtendedData(ByVal extendedDataInfo As String, ByVal callback As AsyncCallback, ByVal asyncState As Object) As IAsyncResult
			Function EndGetSCIssuesDemoExtendedData(ByVal result As IAsyncResult) As String
		End Interface

		Friend NotInheritable Class SCContextEntityContainer
			Inherits EntityContainer

			Public Sub New()
				Me.CreateEntitySet(Of SCIssuesDemo)(EntitySetOperations.None)
			End Sub
		End Class
	End Class
	<DataContract(Namespace:="http://schemas.datacontract.org/2004/07/RiaSC.Web")> _
	Public NotInheritable Partial Class SCIssuesDemo
		Inherits Entity

		Private _createdOn? As DateTime

		Private _id As String

		Private _modifiedOn? As DateTime

		Private _oid As Guid

		Private _productName As String

		Private _status As String

		Private _subject As String

		Private _technologyName As String

		Private _urgent? As Boolean

		#Region "Extensibility Method Definitions"
		Partial Private Sub OnCreated()
		End Sub
		Partial Private Sub OnCreatedOnChanging(ByVal value? As DateTime)
		End Sub
		Partial Private Sub OnCreatedOnChanged()
		End Sub
		Partial Private Sub OnIDChanging(ByVal value As String)
		End Sub
		Partial Private Sub OnIDChanged()
		End Sub
		Partial Private Sub OnModifiedOnChanging(ByVal value? As DateTime)
		End Sub
		Partial Private Sub OnModifiedOnChanged()
		End Sub
		Partial Private Sub OnOidChanging(ByVal value As Guid)
		End Sub
		Partial Private Sub OnOidChanged()
		End Sub
		Partial Private Sub OnProductNameChanging(ByVal value As String)
		End Sub
		Partial Private Sub OnProductNameChanged()
		End Sub
		Partial Private Sub OnStatusChanging(ByVal value As String)
		End Sub
		Partial Private Sub OnStatusChanged()
		End Sub
		Partial Private Sub OnSubjectChanging(ByVal value As String)
		End Sub
		Partial Private Sub OnSubjectChanged()
		End Sub
		Partial Private Sub OnTechnologyNameChanging(ByVal value As String)
		End Sub
		Partial Private Sub OnTechnologyNameChanged()
		End Sub
		Partial Private Sub OnUrgentChanging(ByVal value? As Boolean)
		End Sub
		Partial Private Sub OnUrgentChanged()
		End Sub

		#End Region
		Public Sub New()
			Me.OnCreated()
		End Sub
		<DataMember()> _
		Public Property CreatedOn() As DateTime?
			Get
				Return Me._createdOn
			End Get
			Set(ByVal value? As DateTime)
				If (Not Me._createdOn.Equals(value)) Then
					Me.OnCreatedOnChanging(value)
					Me.RaiseDataMemberChanging("CreatedOn")
					Me.ValidateProperty("CreatedOn", value)
					Me._createdOn = value
					Me.RaiseDataMemberChanged("CreatedOn")
					Me.OnCreatedOnChanged()
				End If
			End Set
		End Property
		<DataMember(), StringLength(100)> _
		Public Property ID() As String
			Get
				Return Me._id
			End Get
			Set(ByVal value As String)
				If (Me._id <> value) Then
					Me.OnIDChanging(value)
					Me.RaiseDataMemberChanging("ID")
					Me.ValidateProperty("ID", value)
					Me._id = value
					Me.RaiseDataMemberChanged("ID")
					Me.OnIDChanged()
				End If
			End Set
		End Property
		<DataMember()> _
		Public Property ModifiedOn() As DateTime?
			Get
				Return Me._modifiedOn
			End Get
			Set(ByVal value? As DateTime)
				If (Not Me._modifiedOn.Equals(value)) Then
					Me.OnModifiedOnChanging(value)
					Me.RaiseDataMemberChanging("ModifiedOn")
					Me.ValidateProperty("ModifiedOn", value)
					Me._modifiedOn = value
					Me.RaiseDataMemberChanged("ModifiedOn")
					Me.OnModifiedOnChanged()
				End If
			End Set
		End Property
		<DataMember(), Editable(False, AllowInitialValue:=True), Key(), RoundtripOriginal()> _
		Public Property Oid() As Guid
			Get
				Return Me._oid
			End Get
			Set(ByVal value As Guid)
				If (Me._oid <> value) Then
					Me.OnOidChanging(value)
					Me.ValidateProperty("Oid", value)
					Me._oid = value
					Me.RaisePropertyChanged("Oid")
					Me.OnOidChanged()
				End If
			End Set
		End Property
		<DataMember(), StringLength(100)> _
		Public Property ProductName() As String
			Get
				Return Me._productName
			End Get
			Set(ByVal value As String)
				If (Me._productName <> value) Then
					Me.OnProductNameChanging(value)
					Me.RaiseDataMemberChanging("ProductName")
					Me.ValidateProperty("ProductName", value)
					Me._productName = value
					Me.RaiseDataMemberChanged("ProductName")
					Me.OnProductNameChanged()
				End If
			End Set
		End Property
		<DataMember(), StringLength(100)> _
		Public Property Status() As String
			Get
				Return Me._status
			End Get
			Set(ByVal value As String)
				If (Me._status <> value) Then
					Me.OnStatusChanging(value)
					Me.RaiseDataMemberChanging("Status")
					Me.ValidateProperty("Status", value)
					Me._status = value
					Me.RaiseDataMemberChanged("Status")
					Me.OnStatusChanged()
				End If
			End Set
		End Property
		<DataMember(), StringLength(255)> _
		Public Property Subject() As String
			Get
				Return Me._subject
			End Get
			Set(ByVal value As String)
				If (Me._subject <> value) Then
					Me.OnSubjectChanging(value)
					Me.RaiseDataMemberChanging("Subject")
					Me.ValidateProperty("Subject", value)
					Me._subject = value
					Me.RaiseDataMemberChanged("Subject")
					Me.OnSubjectChanged()
				End If
			End Set
		End Property
		<DataMember(), StringLength(100)> _
		Public Property TechnologyName() As String
			Get
				Return Me._technologyName
			End Get
			Set(ByVal value As String)
				If (Me._technologyName <> value) Then
					Me.OnTechnologyNameChanging(value)
					Me.RaiseDataMemberChanging("TechnologyName")
					Me.ValidateProperty("TechnologyName", value)
					Me._technologyName = value
					Me.RaiseDataMemberChanged("TechnologyName")
					Me.OnTechnologyNameChanged()
				End If
			End Set
		End Property
		<DataMember()> _
		Public Property Urgent() As Boolean?
			Get
				Return Me._urgent
			End Get
			Set(ByVal value? As Boolean)
				If (Not Me._urgent.Equals(value)) Then
					Me.OnUrgentChanging(value)
					Me.RaiseDataMemberChanging("Urgent")
					Me.ValidateProperty("Urgent", value)
					Me._urgent = value
					Me.RaiseDataMemberChanged("Urgent")
					Me.OnUrgentChanged()
				End If
			End Set
		End Property
		Public Overrides Function GetIdentity() As Object
			Return Me._oid
		End Function
	End Class
End Namespace