31 lines
1.2 KiB
VB.net
31 lines
1.2 KiB
VB.net
Imports ImporterForm.Positions
|
|
Imports ImporterShared.Schemas
|
|
|
|
Public Class PositionData
|
|
Public Shared Function Load(pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) As List(Of Position)
|
|
Dim oPositions = Orders.Helpers.GetOrderPositions(pData)
|
|
Dim oPositionsOriginal = Orders.Helpers.GetOrderPositions(pDataOriginal)
|
|
Dim oPositionList As New List(Of Position)
|
|
|
|
For Each oPosition In oPositions
|
|
Dim oPositionOriginal = oPositionsOriginal.
|
|
Where(Function(p) p.Zeilennummer = oPosition.Zeilennummer).
|
|
SingleOrDefault()
|
|
|
|
oPositionList.Add(New Position With {
|
|
.ArticleNumber = oPosition.Artikelnummer,
|
|
.RowNumber = oPosition.Zeilennummer,
|
|
.ArticleDescription = oPosition.Bezeichnung,
|
|
.ArticleNumberVendor = oPosition.Lieferantenartikelnummer,
|
|
.EDIPrice = oPosition.Einzelpreis,
|
|
.WinLinePrice = 0,
|
|
.Price = 0,
|
|
.Amount = oPosition.Menge_bestellt,
|
|
.EuropeanArticleNumber = oPositionOriginal.Artikelnummer
|
|
})
|
|
Next
|
|
|
|
Return oPositionList
|
|
End Function
|
|
End Class
|