WIP

EDIDocumentImport/Exceptions.vb

@@ -7,6 +7,14 @@
         End Sub
     End Class
 
+    Public Class WebServiceException
+        Inherits ApplicationException
+
+        Public Sub New(message As String)
+            MyBase.New(message)
+        End Sub
+    End Class
+
     Public Class NoMandatorException
         Inherits DocumentShowException
 

EDIDocumentImport/frmMain.vb

@@ -328,15 +328,26 @@ Public Class frmMain
         SplitContainerControl3.Collapsed = Not checkShowXml.Checked
     End Sub
 
-    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+    Private Async Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
         Dim oDocument As Document = GetFocusedDocument()
         If oDocument Is Nothing Then
             Exit Sub
         End If
 
-        WebService.TransferDocumentToWinLine(oDocument)
+        Try
+            Dim oFinalDocument As Document = TransferChangesToDocument(oDocument)
+            Dim oResult = Await WebService.TransferDocumentToWinLine(oFinalDocument)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Dim oMessage = $"Fehler beim Übertragen des Dokuments:{vbNewLine}{vbNewLine}{ex.Message}"
+            MsgBox(oMessage, MsgBoxStyle.Critical, Text)
+        End Try
     End Sub
 
+    Private Function TransferChangesToDocument(pDocument As Document)
+        Return pDocument
+    End Function
+
     Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
         TryOpenDirectory(LogConfig.LogDirectory, "Logverzeichnis")
     End Sub