'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:4.0.30319.18051 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace MNBArfolyamService _ Public Interface MNBArfolyamServiceSoap 'CODEGEN: Generating message contract since element name GetInfoResult from namespace http://www.mnb.hu/webservices/ is not marked nillable _ Function GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse 'CODEGEN: Generating message contract since element name GetCurrentExchangeRatesResult from namespace http://www.mnb.hu/webservices/ is not marked nillable _ Function GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse 'CODEGEN: Generating message contract since element name startDate from namespace http://www.mnb.hu/webservices/ is not marked nillable _ Function GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse 'CODEGEN: Generating message contract since element name GetDateIntervalResult from namespace http://www.mnb.hu/webservices/ is not marked nillable _ Function GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse 'CODEGEN: Generating message contract since element name GetCurrenciesResult from namespace http://www.mnb.hu/webservices/ is not marked nillable _ Function GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse 'CODEGEN: Generating message contract since element name currencyNames from namespace http://www.mnb.hu/webservices/ is not marked nillable _ Function GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse End Interface _ Partial Public Class GetInfoRequest _ Public Body As MNBArfolyamService.GetInfoRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetInfoRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetInfoRequestBody Public Sub New() MyBase.New End Sub End Class _ Partial Public Class GetInfoResponse _ Public Body As MNBArfolyamService.GetInfoResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetInfoResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetInfoResponseBody _ Public GetInfoResult As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetInfoResult As String) MyBase.New Me.GetInfoResult = GetInfoResult End Sub End Class _ Partial Public Class GetCurrentExchangeRatesRequest _ Public Body As MNBArfolyamService.GetCurrentExchangeRatesRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetCurrentExchangeRatesRequestBody Public Sub New() MyBase.New End Sub End Class _ Partial Public Class GetCurrentExchangeRatesResponse _ Public Body As MNBArfolyamService.GetCurrentExchangeRatesResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetCurrentExchangeRatesResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetCurrentExchangeRatesResponseBody _ Public GetCurrentExchangeRatesResult As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrentExchangeRatesResult As String) MyBase.New Me.GetCurrentExchangeRatesResult = GetCurrentExchangeRatesResult End Sub End Class _ Partial Public Class GetExchangeRatesRequest _ Public Body As MNBArfolyamService.GetExchangeRatesRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetExchangeRatesRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetExchangeRatesRequestBody _ Public startDate As String _ Public endDate As String _ Public currencyNames As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal startDate As String, ByVal endDate As String, ByVal currencyNames As String) MyBase.New Me.startDate = startDate Me.endDate = endDate Me.currencyNames = currencyNames End Sub End Class _ Partial Public Class GetExchangeRatesResponse _ Public Body As MNBArfolyamService.GetExchangeRatesResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetExchangeRatesResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetExchangeRatesResponseBody _ Public GetExchangeRatesResult As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetExchangeRatesResult As String) MyBase.New Me.GetExchangeRatesResult = GetExchangeRatesResult End Sub End Class _ Partial Public Class GetDateIntervalRequest _ Public Body As MNBArfolyamService.GetDateIntervalRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetDateIntervalRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetDateIntervalRequestBody Public Sub New() MyBase.New End Sub End Class _ Partial Public Class GetDateIntervalResponse _ Public Body As MNBArfolyamService.GetDateIntervalResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetDateIntervalResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetDateIntervalResponseBody _ Public GetDateIntervalResult As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetDateIntervalResult As String) MyBase.New Me.GetDateIntervalResult = GetDateIntervalResult End Sub End Class _ Partial Public Class GetCurrenciesRequest _ Public Body As MNBArfolyamService.GetCurrenciesRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetCurrenciesRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetCurrenciesRequestBody Public Sub New() MyBase.New End Sub End Class _ Partial Public Class GetCurrenciesResponse _ Public Body As MNBArfolyamService.GetCurrenciesResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetCurrenciesResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetCurrenciesResponseBody _ Public GetCurrenciesResult As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrenciesResult As String) MyBase.New Me.GetCurrenciesResult = GetCurrenciesResult End Sub End Class _ Partial Public Class GetCurrencyUnitsRequest _ Public Body As MNBArfolyamService.GetCurrencyUnitsRequestBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetCurrencyUnitsRequestBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetCurrencyUnitsRequestBody _ Public currencyNames As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal currencyNames As String) MyBase.New Me.currencyNames = currencyNames End Sub End Class _ Partial Public Class GetCurrencyUnitsResponse _ Public Body As MNBArfolyamService.GetCurrencyUnitsResponseBody Public Sub New() MyBase.New End Sub Public Sub New(ByVal Body As MNBArfolyamService.GetCurrencyUnitsResponseBody) MyBase.New Me.Body = Body End Sub End Class _ Partial Public Class GetCurrencyUnitsResponseBody _ Public GetCurrencyUnitsResult As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCurrencyUnitsResult As String) MyBase.New Me.GetCurrencyUnitsResult = GetCurrencyUnitsResult 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_GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetInfo Return MyBase.Channel.GetInfo(request) End Function Public Function GetInfo() As String Dim inValue As MNBArfolyamService.GetInfoRequest = New MNBArfolyamService.GetInfoRequest() inValue.Body = New MNBArfolyamService.GetInfoRequestBody() Dim retVal As MNBArfolyamService.GetInfoResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetInfo(inValue) Return retVal.Body.GetInfoResult 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() As String Dim inValue As MNBArfolyamService.GetCurrentExchangeRatesRequest = New MNBArfolyamService.GetCurrentExchangeRatesRequest() inValue.Body = New MNBArfolyamService.GetCurrentExchangeRatesRequestBody() Dim retVal As MNBArfolyamService.GetCurrentExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrentExchangeRates(inValue) Return retVal.Body.GetCurrentExchangeRatesResult 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 startDate As String, ByVal endDate As String, ByVal currencyNames As String) As String Dim inValue As MNBArfolyamService.GetExchangeRatesRequest = New MNBArfolyamService.GetExchangeRatesRequest() inValue.Body = New MNBArfolyamService.GetExchangeRatesRequestBody() inValue.Body.startDate = startDate inValue.Body.endDate = endDate inValue.Body.currencyNames = currencyNames Dim retVal As MNBArfolyamService.GetExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetExchangeRates(inValue) Return retVal.Body.GetExchangeRatesResult 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() As String Dim inValue As MNBArfolyamService.GetDateIntervalRequest = New MNBArfolyamService.GetDateIntervalRequest() inValue.Body = New MNBArfolyamService.GetDateIntervalRequestBody() Dim retVal As MNBArfolyamService.GetDateIntervalResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetDateInterval(inValue) Return retVal.Body.GetDateIntervalResult End Function _ 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() As String Dim inValue As MNBArfolyamService.GetCurrenciesRequest = New MNBArfolyamService.GetCurrenciesRequest() inValue.Body = New MNBArfolyamService.GetCurrenciesRequestBody() Dim retVal As MNBArfolyamService.GetCurrenciesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencies(inValue) Return retVal.Body.GetCurrenciesResult 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 currencyNames As String) As String Dim inValue As MNBArfolyamService.GetCurrencyUnitsRequest = New MNBArfolyamService.GetCurrencyUnitsRequest() inValue.Body = New MNBArfolyamService.GetCurrencyUnitsRequestBody() inValue.Body.currencyNames = currencyNames Dim retVal As MNBArfolyamService.GetCurrencyUnitsResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencyUnits(inValue) Return retVal.Body.GetCurrencyUnitsResult End Function End Class End Namespace