Rebase Develop

2021-04-07 11:23:42 +02:00
parent 8a700d7162
commit 11a8d4b6af
67 changed files with 608 additions and 429 deletions
@@ -11,135 +11,9 @@
 Option Strict On
 Option Explicit On

-Imports System
-Imports System.Runtime.Serialization

 Namespace MNBArfolyamService
    
-    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
-     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
-     System.Runtime.Serialization.DataContractAttribute(Name:="GetCurrenciesRequestBody", [Namespace]:="http://www.mnb.hu/webservices/"),  _
-     System.SerializableAttribute()>  _
-    Partial Public Class GetCurrenciesRequestBody
-        Inherits Object
-        Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
-        
-        <System.NonSerializedAttribute()>  _
-        Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
-        
-        <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
-        
-        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:="GetCurrentExchangeRatesRequestBody", [Namespace]:="http://www.mnb.hu/webservices/"),  _
-     System.SerializableAttribute()>  _
-    Partial Public Class GetCurrentExchangeRatesRequestBody
-        Inherits Object
-        Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
-        
-        <System.NonSerializedAttribute()>  _
-        Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
-        
-        <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
-        
-        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:="GetDateIntervalRequestBody", [Namespace]:="http://www.mnb.hu/webservices/"),  _
-     System.SerializableAttribute()>  _
-    Partial Public Class GetDateIntervalRequestBody
-        Inherits Object
-        Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
-        
-        <System.NonSerializedAttribute()>  _
-        Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
-        
-        <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
-        
-        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:="GetInfoRequestBody", [Namespace]:="http://www.mnb.hu/webservices/"),  _
-     System.SerializableAttribute()>  _
-    Partial Public Class GetInfoRequestBody
-        Inherits Object
-        Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
-        
-        <System.NonSerializedAttribute()>  _
-        Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
-        
-        <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
-        
-        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.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"),  _
     System.ServiceModel.ServiceContractAttribute([Namespace]:="http://www.mnb.hu/webservices/", ConfigurationName:="MNBArfolyamService.MNBArfolyamServiceSoap")>  _
    Public Interface MNBArfolyamServiceSoap
@@ -184,13 +58,13 @@ Namespace MNBArfolyamService
    Partial Public Class GetCurrenciesRequest
        
        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://www.mnb.hu/webservices/", Order:=0)>  _
-        Public GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody
+        Public GetCurrencies As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesRequestBody
        
        Public Sub New()
            MyBase.New
        End Sub
        
-        Public Sub New(ByVal GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody)
+        Public Sub New(ByVal GetCurrencies As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesRequestBody)
            MyBase.New
            Me.GetCurrencies = GetCurrencies
        End Sub
@@ -260,13 +134,13 @@ Namespace MNBArfolyamService
    Partial Public Class GetCurrentExchangeRatesRequest
        
        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://www.mnb.hu/webservices/", Order:=0)>  _
-        Public GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody
+        Public GetCurrentExchangeRates As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesRequestBody
        
        Public Sub New()
            MyBase.New
        End Sub
        
-        Public Sub New(ByVal GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody)
+        Public Sub New(ByVal GetCurrentExchangeRates As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesRequestBody)
            MyBase.New
            Me.GetCurrentExchangeRates = GetCurrentExchangeRates
        End Sub
@@ -298,13 +172,13 @@ Namespace MNBArfolyamService
    Partial Public Class GetDateIntervalRequest
        
        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://www.mnb.hu/webservices/", Order:=0)>  _
-        Public GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody
+        Public GetDateInterval As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalRequestBody
        
        Public Sub New()
            MyBase.New
        End Sub
        
-        Public Sub New(ByVal GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody)
+        Public Sub New(ByVal GetDateInterval As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalRequestBody)
            MyBase.New
            Me.GetDateInterval = GetDateInterval
        End Sub
@@ -374,13 +248,13 @@ Namespace MNBArfolyamService
    Partial Public Class GetInfoRequest
        
        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://www.mnb.hu/webservices/", Order:=0)>  _
-        Public GetInfo As MNBArfolyamService.GetInfoRequestBody
+        Public GetInfo As SISBusiness.[Module].MNBArfolyamService.GetInfoRequestBody
        
        Public Sub New()
            MyBase.New
        End Sub
        
-        Public Sub New(ByVal GetInfo As MNBArfolyamService.GetInfoRequestBody)
+        Public Sub New(ByVal GetInfo As SISBusiness.[Module].MNBArfolyamService.GetInfoRequestBody)
            MyBase.New
            Me.GetInfo = GetInfo
        End Sub
@@ -441,7 +315,7 @@ Namespace MNBArfolyamService
            Return MyBase.Channel.GetCurrencies(request)
        End Function
        
-        Public Function GetCurrencies(ByVal GetCurrencies1 As MNBArfolyamService.GetCurrenciesRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesResponseBody
+        Public Function GetCurrencies(ByVal GetCurrencies1 As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesResponseBody
            Dim inValue As MNBArfolyamService.GetCurrenciesRequest = New MNBArfolyamService.GetCurrenciesRequest()
            inValue.GetCurrencies = GetCurrencies1
            Dim retVal As MNBArfolyamService.GetCurrenciesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencies(inValue)
@@ -465,7 +339,7 @@ Namespace MNBArfolyamService
            Return MyBase.Channel.GetCurrentExchangeRates(request)
        End Function
        
-        Public Function GetCurrentExchangeRates(ByVal GetCurrentExchangeRates1 As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesResponseBody
+        Public Function GetCurrentExchangeRates(ByVal GetCurrentExchangeRates1 As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesResponseBody
            Dim inValue As MNBArfolyamService.GetCurrentExchangeRatesRequest = New MNBArfolyamService.GetCurrentExchangeRatesRequest()
            inValue.GetCurrentExchangeRates = GetCurrentExchangeRates1
            Dim retVal As MNBArfolyamService.GetCurrentExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrentExchangeRates(inValue)
@@ -477,7 +351,7 @@ Namespace MNBArfolyamService
            Return MyBase.Channel.GetDateInterval(request)
        End Function
        
-        Public Function GetDateInterval(ByVal GetDateInterval1 As MNBArfolyamService.GetDateIntervalRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalResponseBody
+        Public Function GetDateInterval(ByVal GetDateInterval1 As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalResponseBody
            Dim inValue As MNBArfolyamService.GetDateIntervalRequest = New MNBArfolyamService.GetDateIntervalRequest()
            inValue.GetDateInterval = GetDateInterval1
            Dim retVal As MNBArfolyamService.GetDateIntervalResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetDateInterval(inValue)
@@ -501,7 +375,7 @@ Namespace MNBArfolyamService
            Return MyBase.Channel.GetInfo(request)
        End Function
        
-        Public Function GetInfo(ByVal GetInfo1 As MNBArfolyamService.GetInfoRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetInfoResponseBody
+        Public Function GetInfo(ByVal GetInfo1 As SISBusiness.[Module].MNBArfolyamService.GetInfoRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetInfoResponseBody
            Dim inValue As MNBArfolyamService.GetInfoRequest = New MNBArfolyamService.GetInfoRequest()
            inValue.GetInfo = GetInfo1
            Dim retVal As MNBArfolyamService.GetInfoResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetInfo(inValue)