'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Imports System.Runtime.Serialization Namespace MNBArfolyamService _ Partial Public Class GetCurrenciesRequestBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ 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 _ Partial Public Class GetCurrenciesResponseBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private GetCurrenciesResultField As String _ 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 Property GetCurrenciesResult() As String Get Return Me.GetCurrenciesResultField End Get Set If (Object.ReferenceEquals(Me.GetCurrenciesResultField, value) <> true) Then Me.GetCurrenciesResultField = value Me.RaisePropertyChanged("GetCurrenciesResult") 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 _ Partial Public Class GetCurrencyUnitsRequestBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private currencyNamesField As String _ 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 Property currencyNames() As String Get Return Me.currencyNamesField End Get Set If (Object.ReferenceEquals(Me.currencyNamesField, value) <> true) Then Me.currencyNamesField = value Me.RaisePropertyChanged("currencyNames") 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 _ Partial Public Class GetCurrencyUnitsResponseBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private GetCurrencyUnitsResultField As String _ 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 Property GetCurrencyUnitsResult() As String Get Return Me.GetCurrencyUnitsResultField End Get Set If (Object.ReferenceEquals(Me.GetCurrencyUnitsResultField, value) <> true) Then Me.GetCurrencyUnitsResultField = value Me.RaisePropertyChanged("GetCurrencyUnitsResult") 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 _ Partial Public Class GetCurrentExchangeRatesRequestBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ 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 _ Partial Public Class GetCurrentExchangeRatesResponseBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private GetCurrentExchangeRatesResultField As String _ 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 Property GetCurrentExchangeRatesResult() As String Get Return Me.GetCurrentExchangeRatesResultField End Get Set If (Object.ReferenceEquals(Me.GetCurrentExchangeRatesResultField, value) <> true) Then Me.GetCurrentExchangeRatesResultField = value Me.RaisePropertyChanged("GetCurrentExchangeRatesResult") 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 _ Partial Public Class GetDateIntervalRequestBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ 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 _ Partial Public Class GetDateIntervalResponseBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private GetDateIntervalResultField As String _ 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 Property GetDateIntervalResult() As String Get Return Me.GetDateIntervalResultField End Get Set If (Object.ReferenceEquals(Me.GetDateIntervalResultField, value) <> true) Then Me.GetDateIntervalResultField = value Me.RaisePropertyChanged("GetDateIntervalResult") 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 _ Partial Public Class GetExchangeRatesRequestBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private startDateField As String _ Private endDateField As String _ Private currencyNamesField As String _ 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 Property startDate() As String Get Return Me.startDateField End Get Set If (Object.ReferenceEquals(Me.startDateField, value) <> true) Then Me.startDateField = value Me.RaisePropertyChanged("startDate") End If End Set End Property _ Public Property endDate() As String Get Return Me.endDateField End Get Set If (Object.ReferenceEquals(Me.endDateField, value) <> true) Then Me.endDateField = value Me.RaisePropertyChanged("endDate") End If End Set End Property _ Public Property currencyNames() As String Get Return Me.currencyNamesField End Get Set If (Object.ReferenceEquals(Me.currencyNamesField, value) <> true) Then Me.currencyNamesField = value Me.RaisePropertyChanged("currencyNames") 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 _ Partial Public Class GetExchangeRatesResponseBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private GetExchangeRatesResultField As String _ 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 Property GetExchangeRatesResult() As String Get Return Me.GetExchangeRatesResultField End Get Set If (Object.ReferenceEquals(Me.GetExchangeRatesResultField, value) <> true) Then Me.GetExchangeRatesResultField = value Me.RaisePropertyChanged("GetExchangeRatesResult") 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 _ Partial Public Class GetInfoRequestBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ 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 _ Partial Public Class GetInfoResponseBody Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private GetInfoResultField As String _ 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 Property GetInfoResult() As String Get Return Me.GetInfoResultField End Get Set If (Object.ReferenceEquals(Me.GetInfoResultField, value) <> true) Then Me.GetInfoResultField = value Me.RaisePropertyChanged("GetInfoResult") 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 _ Public Interface MNBArfolyamServiceSoap 'CODEGEN: Generating message contract since the operation GetCurrencies is neither RPC nor document wrapped. _ Function GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse 'CODEGEN: Generating message contract since the operation GetCurrencyUnits is neither RPC nor document wrapped. _ Function GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse 'CODEGEN: Generating message contract since the operation GetCurrentExchangeRates is neither RPC nor document wrapped. _ Function GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse 'CODEGEN: Generating message contract since the operation GetDateInterval is neither RPC nor document wrapped. _ Function GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse 'CODEGEN: Generating message contract since the operation GetExchangeRates is neither RPC nor document wrapped. _ Function GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse 'CODEGEN: Generating message contract since the operation GetInfo is neither RPC nor document wrapped. _ Function GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse End Interface _ Partial Public Class GetCurrenciesRequest _ Public GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody) MyBase.New Me.GetCurrencies = GetCurrencies End Sub End Class _ Partial Public Class GetCurrenciesResponse _ Public GetCurrenciesResponse1 As MNBArfolyamService.GetCurrenciesResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrenciesResponse1 As MNBArfolyamService.GetCurrenciesResponseBody) MyBase.New Me.GetCurrenciesResponse1 = GetCurrenciesResponse1 End Sub End Class _ Partial Public Class GetCurrencyUnitsRequest _ Public GetCurrencyUnits As MNBArfolyamService.GetCurrencyUnitsRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrencyUnits As MNBArfolyamService.GetCurrencyUnitsRequestBody) MyBase.New Me.GetCurrencyUnits = GetCurrencyUnits End Sub End Class _ Partial Public Class GetCurrencyUnitsResponse _ Public GetCurrencyUnitsResponse1 As MNBArfolyamService.GetCurrencyUnitsResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrencyUnitsResponse1 As MNBArfolyamService.GetCurrencyUnitsResponseBody) MyBase.New Me.GetCurrencyUnitsResponse1 = GetCurrencyUnitsResponse1 End Sub End Class _ Partial Public Class GetCurrentExchangeRatesRequest _ Public GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) MyBase.New Me.GetCurrentExchangeRates = GetCurrentExchangeRates End Sub End Class _ Partial Public Class GetCurrentExchangeRatesResponse _ Public GetCurrentExchangeRatesResponse1 As MNBArfolyamService.GetCurrentExchangeRatesResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrentExchangeRatesResponse1 As MNBArfolyamService.GetCurrentExchangeRatesResponseBody) MyBase.New Me.GetCurrentExchangeRatesResponse1 = GetCurrentExchangeRatesResponse1 End Sub End Class _ Partial Public Class GetDateIntervalRequest _ Public GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody) MyBase.New Me.GetDateInterval = GetDateInterval End Sub End Class _ Partial Public Class GetDateIntervalResponse _ Public GetDateIntervalResponse1 As MNBArfolyamService.GetDateIntervalResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetDateIntervalResponse1 As MNBArfolyamService.GetDateIntervalResponseBody) MyBase.New Me.GetDateIntervalResponse1 = GetDateIntervalResponse1 End Sub End Class _ Partial Public Class GetExchangeRatesRequest _ Public GetExchangeRates As MNBArfolyamService.GetExchangeRatesRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetExchangeRates As MNBArfolyamService.GetExchangeRatesRequestBody) MyBase.New Me.GetExchangeRates = GetExchangeRates End Sub End Class _ Partial Public Class GetExchangeRatesResponse _ Public GetExchangeRatesResponse1 As MNBArfolyamService.GetExchangeRatesResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetExchangeRatesResponse1 As MNBArfolyamService.GetExchangeRatesResponseBody) MyBase.New Me.GetExchangeRatesResponse1 = GetExchangeRatesResponse1 End Sub End Class _ Partial Public Class GetInfoRequest _ Public GetInfo As MNBArfolyamService.GetInfoRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetInfo As MNBArfolyamService.GetInfoRequestBody) MyBase.New Me.GetInfo = GetInfo End Sub End Class _ Partial Public Class GetInfoResponse _ Public GetInfoResponse1 As MNBArfolyamService.GetInfoResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetInfoResponse1 As MNBArfolyamService.GetInfoResponseBody) MyBase.New Me.GetInfoResponse1 = GetInfoResponse1 End Sub End Class _ Public Interface MNBArfolyamServiceSoapChannel Inherits MNBArfolyamService.MNBArfolyamServiceSoap, System.ServiceModel.IClientChannel End Interface _ Partial Public Class MNBArfolyamServiceSoapClient Inherits System.ServiceModel.ClientBase(Of MNBArfolyamService.MNBArfolyamServiceSoap) Implements MNBArfolyamService.MNBArfolyamServiceSoap Public Sub New() MyBase.New End Sub Public Sub New(ByVal endpointConfigurationName As String) MyBase.New(endpointConfigurationName) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(binding, remoteAddress) End Sub _ Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencies Return MyBase.Channel.GetCurrencies(request) End Function Public Function GetCurrencies(ByVal GetCurrencies1 As MNBArfolyamService.GetCurrenciesRequestBody) As MNBArfolyamService.GetCurrenciesResponseBody Dim inValue As MNBArfolyamService.GetCurrenciesRequest = New MNBArfolyamService.GetCurrenciesRequest() inValue.GetCurrencies = GetCurrencies1 Dim retVal As MNBArfolyamService.GetCurrenciesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencies(inValue) Return retVal.GetCurrenciesResponse1 End Function _ Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencyUnits Return MyBase.Channel.GetCurrencyUnits(request) End Function Public Function GetCurrencyUnits(ByVal GetCurrencyUnits1 As MNBArfolyamService.GetCurrencyUnitsRequestBody) As MNBArfolyamService.GetCurrencyUnitsResponseBody Dim inValue As MNBArfolyamService.GetCurrencyUnitsRequest = New MNBArfolyamService.GetCurrencyUnitsRequest() inValue.GetCurrencyUnits = GetCurrencyUnits1 Dim retVal As MNBArfolyamService.GetCurrencyUnitsResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencyUnits(inValue) Return retVal.GetCurrencyUnitsResponse1 End Function _ Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrentExchangeRates Return MyBase.Channel.GetCurrentExchangeRates(request) End Function Public Function GetCurrentExchangeRates(ByVal GetCurrentExchangeRates1 As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) As MNBArfolyamService.GetCurrentExchangeRatesResponseBody Dim inValue As MNBArfolyamService.GetCurrentExchangeRatesRequest = New MNBArfolyamService.GetCurrentExchangeRatesRequest() inValue.GetCurrentExchangeRates = GetCurrentExchangeRates1 Dim retVal As MNBArfolyamService.GetCurrentExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrentExchangeRates(inValue) Return retVal.GetCurrentExchangeRatesResponse1 End Function _ Function MNBArfolyamService_MNBArfolyamServiceSoap_GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetDateInterval Return MyBase.Channel.GetDateInterval(request) End Function Public Function GetDateInterval(ByVal GetDateInterval1 As MNBArfolyamService.GetDateIntervalRequestBody) As MNBArfolyamService.GetDateIntervalResponseBody Dim inValue As MNBArfolyamService.GetDateIntervalRequest = New MNBArfolyamService.GetDateIntervalRequest() inValue.GetDateInterval = GetDateInterval1 Dim retVal As MNBArfolyamService.GetDateIntervalResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetDateInterval(inValue) Return retVal.GetDateIntervalResponse1 End Function _ Function MNBArfolyamService_MNBArfolyamServiceSoap_GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetExchangeRates Return MyBase.Channel.GetExchangeRates(request) End Function Public Function GetExchangeRates(ByVal GetExchangeRates1 As MNBArfolyamService.GetExchangeRatesRequestBody) As MNBArfolyamService.GetExchangeRatesResponseBody Dim inValue As MNBArfolyamService.GetExchangeRatesRequest = New MNBArfolyamService.GetExchangeRatesRequest() inValue.GetExchangeRates = GetExchangeRates1 Dim retVal As MNBArfolyamService.GetExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetExchangeRates(inValue) Return retVal.GetExchangeRatesResponse1 End Function _ Function MNBArfolyamService_MNBArfolyamServiceSoap_GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetInfo Return MyBase.Channel.GetInfo(request) End Function Public Function GetInfo(ByVal GetInfo1 As MNBArfolyamService.GetInfoRequestBody) As MNBArfolyamService.GetInfoResponseBody Dim inValue As MNBArfolyamService.GetInfoRequest = New MNBArfolyamService.GetInfoRequest() inValue.GetInfo = GetInfo1 Dim retVal As MNBArfolyamService.GetInfoResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetInfo(inValue) Return retVal.GetInfoResponse1 End Function End Class End Namespace