48 lines
2.3 KiB
VB.net
48 lines
2.3 KiB
VB.net
Imports System.Globalization
|
|
Imports AutoMapper
|
|
Imports AutoMapper.Configuration
|
|
|
|
Public Class MapperFactory
|
|
Private Shared MapperConfig As Object
|
|
|
|
Public Shared Function GetMapper() As Mapper
|
|
MapperConfig = New MapperConfiguration(CreateMapperConfig())
|
|
MapperConfig.AssertConfigurationIsValid()
|
|
Return MapperConfig.CreateMapper()
|
|
End Function
|
|
|
|
Private Shared Function CreateMapperConfig() As MapperConfigurationExpression
|
|
Dim oConfig As New MapperConfigurationExpression()
|
|
|
|
oConfig.CreateMap(Of String, Integer)().ConvertUsing(New IntegerTypeConverter())
|
|
oConfig.CreateMap(Of String, Decimal)().ConvertUsing(New DecimalTypeConverter())
|
|
oConfig.CreateMap(Of String, DateTime)().ConvertUsing(New DateTimeTypeConverter())
|
|
oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebService, Schemas.Orders.Output.MESOWebService)()
|
|
oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT025, Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT025)()
|
|
oConfig.CreateMap(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026, Schemas.Orders.Output.MESOWebServiceEXIMVRG_ordersT026)()
|
|
|
|
Return oConfig
|
|
End Function
|
|
|
|
Private Class DateTimeTypeConverter
|
|
Implements ITypeConverter(Of String, DateTime)
|
|
|
|
Public Function Convert(source As String, destination As Date, context As ResolutionContext) As Date Implements ITypeConverter(Of String, Date).Convert
|
|
Return System.Convert.ToDateTime(source)
|
|
End Function
|
|
End Class
|
|
Private Class IntegerTypeConverter
|
|
Implements ITypeConverter(Of String, Integer)
|
|
Public Function Convert(source As String, destination As Integer, context As ResolutionContext) As Integer Implements ITypeConverter(Of String, Integer).Convert
|
|
Return System.Convert.ToInt32(source)
|
|
End Function
|
|
End Class
|
|
Private Class DecimalTypeConverter
|
|
Implements ITypeConverter(Of String, Decimal)
|
|
Public Function Convert(source As String, destination As Decimal, context As ResolutionContext) As Decimal Implements ITypeConverter(Of String, Decimal).Convert
|
|
Return System.Convert.ToDecimal(source, CultureInfo.InvariantCulture)
|
|
End Function
|
|
End Class
|
|
|
|
End Class
|