MS_2911

app/DD-Record-Organiser/frmSAP_FuBa.vb

@@ -355,4 +355,24 @@ Public Class frmSAP_FuBa
         End If
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Cursor = Cursors.WaitCursor
+        lblResultBAPI.Visible = False
+        If ClassSAP.ConnectionInit(testHOST.Text, testSYSNR.Text, testUSERName.Text, testPW.Text, testClient.Text, testLanguage.Text) = True Then
+            lblSuccess.Visible = True
+        Else
+            lblSuccess.Visible = False
+            Me.Cursor = Cursors.Default
+            Exit Sub
+        End If
+        Dim result = ClassSAP.LINK_ARC_OBJECT(txtTableSendList.Text, txtBARCODESendlist.Text, txtCONTREPSendList.Text, txtDOC_IDSendList.Text, txtARDATESendList.Text, txtDoctypeSendList.Text)
+        lblResultBAPI.Visible = True
+        If result <> "" Then
+            lblResultBAPI.Text = result.ToString
+        Else
+            lblResultBAPI.Text = "Function executed successfully!"
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class