MS0211

app/DD-Record-Organiser/frmSAP_FuBa.vb

@@ -291,6 +291,12 @@ Public Class frmSAP_FuBa
         Try
             If SAPResulttable.Rows.Count > 0 Then
                 GridControl2.DataSource = SAPResulttable
+            Else
+                Try
+                    GridControl2.DataSource = Nothing
+                Catch ex As Exception
+
+                End Try
             End If
             ClassSAP.SAP_CONNECTION.Close()
             Dim elapsed As Double
@@ -325,4 +331,28 @@ Public Class frmSAP_FuBa
             lblSplitchr.Visible = False
         End If
     End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Refresh_Fubas()
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Cursor = Cursors.WaitCursor
+        lblresultFunction.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.INSERT_ARCHIVE_OBJECT(testArchiveID.Text, testDOCID.Text, testAROBJECT.Text, testAROBJECT.Text, testSAP_OBJECT.Text, testDOCTYPE.Text, testTablename.Text)
+        lblresultFunction.Visible = True
+        If result <> "" Then
+            lblresultFunction.Text = result.ToString
+        Else
+            lblresultFunction.Text = "Function executed successfully!"
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class