MS22062016

This commit is contained in:
SchreiberM
2016-06-22 10:52:52 +02:00
parent d71de0dc2f
commit fd8e85146a
17 changed files with 1193 additions and 306 deletions

View File

@@ -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