Improve Validation, Report, Transfer document with selected mandator

MultiTool.Shared/Winline/WebService.vb

@@ -22,7 +22,7 @@ Namespace Winline
             AppDataPath = pAppDataPath
         End Sub
 
-        Public Async Function TransferDocumentToWinline(pDocument As Document) As Task(Of Boolean)
+        Public Async Function TransferDocumentToWinline(pDocument As Document, pMandator As Mandator) As Task(Of Boolean)
             Dim oBytes As Byte() = GetBytesFromDocument(pDocument)
             Dim oWS As Config.WebServiceConfig = Config.Webservice
 
@@ -163,8 +163,6 @@ Namespace Winline
                 "Fakt_Name"
             }
 
-
-
             Using oStream As New IO.MemoryStream()
                 Dim w = XmlWriter.Create(oStream)
 
@@ -175,6 +173,8 @@ Namespace Winline
                 w.WriteAttributeString("option", pDocument.Option)
                 w.WriteAttributeString("printVoucher", pDocument.PrintVoucher)
 
+                pDocument.Rows.Sort()
+
                 For Each oRow In pDocument.Rows
                     w.WriteStartElement(oRow.Name)