AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-07-26 11:09:38 +02:00
parent 0f8f8ddf65
commit 3ae24fe471
35 changed files with 59894 additions and 1899 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD-Record-Organizer/frmSAP_FuBa.vb
View File

@@ -97,6 +97,7 @@ Public Class frmSAP_FuBa
Private Sub TBPMO_SAP_FUBABindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_SAP_FUBABindingSource.CurrentChanged
lblSave.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
lblConnectionopen.Visible = False
If MethodTextBox.Text <> "" Then
If MethodTextBox.Text = "TABLE" Then
@@ -117,6 +118,7 @@ Public Class frmSAP_FuBa
Me.Cursor = Cursors.Default
lblResult.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
lblSave.Visible = False
Exit Sub
End If
@@ -143,6 +145,7 @@ Public Class frmSAP_FuBa
Me.Cursor = Cursors.Default
lblSave.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
ClassLogger.Add(">> SAPResulttable is nothing", False)
Exit Sub
End If
@@ -252,6 +255,7 @@ Public Class frmSAP_FuBa
Me.Cursor = Cursors.Default
lblResult.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
lblSave.Visible = False
sw.Stop()
Exit Sub
@@ -280,6 +284,7 @@ Public Class frmSAP_FuBa
Me.Cursor = Cursors.Default
lblSave.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
sw.Stop()
ClassLogger.Add(">> SAPResulttable is nothing", False)
Exit Sub
@@ -294,6 +299,7 @@ Public Class frmSAP_FuBa
Else
Try
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
Catch ex As Exception
End Try
@@ -317,6 +323,7 @@ Public Class frmSAP_FuBa
Me.Cursor = Cursors.Default
lblSave.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
ClassLogger.Add(">> Unexpected Error in GridControl2 >> DataTable 2: " & ex.Message, False)
MsgBox("Error in GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
End Try