WIP

MultiTool.Form/frmImportMain.vb

@@ -364,7 +364,7 @@ Public Class frmImportMain
                 oGrid.DataSource = oDataTable
             Next
 
-            txtCurrentFile.Caption = String.Format(My.Resources.frmImportMainExtra.Aktuelle_Datei___0_, pDocument.Name)
+            txtCurrentFile.Caption = String.Format(My.Resources.frmImportMainExtra.Aktuelle_Datei___0_, pDocument.FileName)
 
             CurrentDocument = pDocument
             SetDocumentButtonsEnabled(True)
@@ -515,8 +515,6 @@ Public Class frmImportMain
     End Sub
 
     Private Function GenerateReport(pDocument As Document) As ReportPrintTool
-
-
         Dim oPrintTool As ReportPrintTool = Nothing
 
         Dim oMapperConfig As New Mapper(LogConfig)
@@ -550,6 +548,7 @@ Public Class frmImportMain
         Dim oReportHead = oHeadMapper.Map(Of Dictionary(Of String, FieldValue), ReportHead)(oHeadRow)
         oReportHead.Title = "EDI Bestellung (orders)"
         oReportHead.Subtitle = "Schaum"
+        oReportHead.Filename = pDocument.FileName
 
         Dim oReportPositions As New List(Of ReportPosition)
 
@@ -612,4 +611,33 @@ Public Class frmImportMain
             e.Appearance.BackColor = Color.LightCoral
         End If
     End Sub
+
+    Private Async Sub btnTestTransferFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnTestTransferFile.ItemClick
+        Try
+            SplashScreenManager.ShowWaitForm()
+            SetDocumentButtonsEnabled(False)
+            GridControlFiles.Enabled = False
+            btnLoadFiles.Enabled = False
+            SplitContainerGrids.Enabled = False
+
+            Dim oDocument As Document = GridViewFiles.GetRow(GridViewFiles.FocusedRowHandle)
+            Await WebService.TransferDocumentToWinline(oDocument, lookupMandator.EditValue, pIsTest:=True)
+
+            MsgBox(My.Resources.frmImportMainExtra.Datei_erfolgreich_in_die_WinLine_übertragen, MsgBoxStyle.Information, Text)
+        Catch ex As HttpRequestException
+            FormHelper.ShowError(ex, My.Resources.frmImportMainExtra.Übertragung_zur_WinLine, My.Resources.frmImportMainExtra.Die_Verbindung_zum_WinLine_Server_ist_fehlgeschlagen)
+
+        Catch ex As Exception
+            FormHelper.ShowError(ex, My.Resources.frmImportMainExtra.Übertragung_zur_WinLine)
+
+        Finally
+            SplitContainerGrids.Enabled = True
+            btnLoadFiles.Enabled = True
+            GridControlFiles.Enabled = True
+            SetDocumentButtonsEnabled(True)
+            SplashScreenManager.CloseWaitForm()
+        End Try
+    End Sub
+
+
 End Class