19 lines
913 B
VB.net
19 lines
913 B
VB.net
Namespace Schemas.Orders
|
|
Public Class Helpers
|
|
Public Shared Function GetOrderHead(pData As Input.MESOWebService) As Input.MESOWebServiceEXIMVRG_ordersT025
|
|
Dim oHead As Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items.
|
|
Where(Function(i) TypeOf i Is Input.MESOWebServiceEXIMVRG_ordersT025).
|
|
FirstOrDefault()
|
|
Return oHead
|
|
End Function
|
|
|
|
Public Shared Function GetOrderPositions(pData As Input.MESOWebService) As List(Of Input.MESOWebServiceEXIMVRG_ordersT026)
|
|
Dim oPositions As List(Of Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
|
|
Where(Function(i) TypeOf i Is Input.MESOWebServiceEXIMVRG_ordersT026).
|
|
Select(Of Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
|
|
ToList()
|
|
Return oPositions
|
|
End Function
|
|
End Class
|
|
End Namespace
|