AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First Testable Version

Browse Source
This commit is contained in:
Jonathan Jenne
2021-08-27 15:20:35 +02:00
parent b99627359a
commit f45540a283
14 changed files with 612 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
EDIDocumentImport/Positions/PositionData.vb
View File

@@ -14,8 +14,8 @@ Public Class PositionData
End Sub
Public Function Load(pMandator As Mandator, 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 oPositions = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pData)
Dim oPositionsOriginal = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pDataOriginal)
Dim oPositionList As New List(Of Position)
For Each oPosition In oPositions