Zooflow: WIP

This commit is contained in:
Jonathan Jenne
2021-12-01 16:22:51 +01:00
parent 8a76425c94
commit 77621193f2
45 changed files with 768 additions and 270 deletions

View File

@@ -117,6 +117,7 @@ Namespace EDMIServiceReference
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ObjectDoesNotExistFault)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NewFileRequest)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NewFileResponse)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.FileProperties)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.SetAttributeValueRequest)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.SetAttributeValueResponse)), _
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.RightsAccessRight))> _
@@ -151,8 +152,8 @@ Namespace EDMIServiceReference
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="NewFileResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.FileStor"& _
"age.NewFile"), _
System.Runtime.Serialization.DataContractAttribute(Name:="NewFileResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _
"NewFile"), _
System.SerializableAttribute()> _
Partial Public Class NewFileResponse
Inherits EDMIServiceReference.BaseResponse
@@ -176,8 +177,8 @@ Namespace EDMIServiceReference
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="SetAttributeValueResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.FileStor"& _
"age.SetAttributeValue"), _
System.Runtime.Serialization.DataContractAttribute(Name:="SetAttributeValueResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _
"SetAttributeValue"), _
System.SerializableAttribute()> _
Partial Public Class SetAttributeValueResponse
Inherits EDMIServiceReference.BaseResponse
@@ -336,8 +337,8 @@ Namespace EDMIServiceReference
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="NewFileRequest", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.FileStor"& _
"age.NewFile"), _
System.Runtime.Serialization.DataContractAttribute(Name:="NewFileRequest", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _
"NewFile"), _
System.SerializableAttribute()> _
Partial Public Class NewFileRequest
Inherits Object
@@ -350,22 +351,7 @@ Namespace EDMIServiceReference
Private BusinessEntityField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileChangedAtField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileChecksumField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileContentsField() As Byte
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileCreatedAtField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileImportedAtField As Date
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileNameField As String
Private FileField As EDMIServiceReference.FileProperties
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KindTypeField As String
@@ -402,6 +388,120 @@ Namespace EDMIServiceReference
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property File() As EDMIServiceReference.FileProperties
Get
Return Me.FileField
End Get
Set
If (Object.ReferenceEquals(Me.FileField, value) <> true) Then
Me.FileField = value
Me.RaisePropertyChanged("File")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property KindType() As String
Get
Return Me.KindTypeField
End Get
Set
If (Object.ReferenceEquals(Me.KindTypeField, value) <> true) Then
Me.KindTypeField = value
Me.RaisePropertyChanged("KindType")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property Language() As String
Get
Return Me.LanguageField
End Get
Set
If (Object.ReferenceEquals(Me.LanguageField, value) <> true) Then
Me.LanguageField = value
Me.RaisePropertyChanged("Language")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property StoreName() As String
Get
Return Me.StoreNameField
End Get
Set
If (Object.ReferenceEquals(Me.StoreNameField, value) <> true) Then
Me.StoreNameField = value
Me.RaisePropertyChanged("StoreName")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property Who() As String
Get
Return Me.WhoField
End Get
Set
If (Object.ReferenceEquals(Me.WhoField, value) <> true) Then
Me.WhoField = value
Me.RaisePropertyChanged("Who")
End If
End Set
End Property
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Sub RaisePropertyChanged(ByVal propertyName As String)
Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (propertyChanged) Is Nothing) Then
propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="FileProperties", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods"), _
System.SerializableAttribute()> _
Partial Public Class FileProperties
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileChangedAtField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileChecksumField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileContentsField() As Byte
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileCreatedAtField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileImportedAtField As Date
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FileNameField As String
<Global.System.ComponentModel.BrowsableAttribute(false)> _
Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
Get
Return Me.extensionDataField
End Get
Set
Me.extensionDataField = value
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property FileChangedAt() As String
Get
@@ -480,58 +580,6 @@ Namespace EDMIServiceReference
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property KindType() As String
Get
Return Me.KindTypeField
End Get
Set
If (Object.ReferenceEquals(Me.KindTypeField, value) <> true) Then
Me.KindTypeField = value
Me.RaisePropertyChanged("KindType")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property Language() As String
Get
Return Me.LanguageField
End Get
Set
If (Object.ReferenceEquals(Me.LanguageField, value) <> true) Then
Me.LanguageField = value
Me.RaisePropertyChanged("Language")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property StoreName() As String
Get
Return Me.StoreNameField
End Get
Set
If (Object.ReferenceEquals(Me.StoreNameField, value) <> true) Then
Me.StoreNameField = value
Me.RaisePropertyChanged("StoreName")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property Who() As String
Get
Return Me.WhoField
End Get
Set
If (Object.ReferenceEquals(Me.WhoField, value) <> true) Then
Me.WhoField = value
Me.RaisePropertyChanged("Who")
End If
End Set
End Property
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Sub RaisePropertyChanged(ByVal propertyName As String)
@@ -544,8 +592,8 @@ Namespace EDMIServiceReference
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="SetAttributeValueRequest", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.FileStor"& _
"age.SetAttributeValue"), _
System.Runtime.Serialization.DataContractAttribute(Name:="SetAttributeValueRequest", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _
"SetAttributeValue"), _
System.SerializableAttribute()> _
Partial Public Class SetAttributeValueRequest
Inherits Object
@@ -560,6 +608,9 @@ Namespace EDMIServiceReference
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private AttributeValueField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private LanguageField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private ObjectIdField As Long
@@ -602,6 +653,19 @@ Namespace EDMIServiceReference
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property Language() As String
Get
Return Me.LanguageField
End Get
Set
If (Object.ReferenceEquals(Me.LanguageField, value) <> true) Then
Me.LanguageField = value
Me.RaisePropertyChanged("Language")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property ObjectId() As Long
Get