MS22062016
This commit is contained in:
@@ -53,9 +53,13 @@ Public Class frmSAP_FuBa
|
||||
Dim con As New R3Connection
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If ClassSAP.ConnectionInit(HostTextBox.Text, SystemNumberTextBox.Text, UserNameTextBox.Text, PasswordTextBox.Text, ClientTextBox.Text, LanguageTextBox.Text) = True Then
|
||||
lblConnectionopen.Text = "SAP Connection successfull"
|
||||
lblConnectionopen.BackColor = Color.Yellow
|
||||
lblConnectionopen.Visible = True
|
||||
Else
|
||||
lblConnectionopen.Visible = False
|
||||
lblConnectionopen.Text = "SAP Connection Error"
|
||||
lblConnectionopen.BackColor = Color.Red
|
||||
lblConnectionopen.Visible = True
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
'Try
|
||||
|
||||
Reference in New Issue
Block a user