MS_17022016

This commit is contained in:
SchreiberM
2016-02-17 11:11:35 +01:00
parent 880a2b04f3
commit 39da7d9b0c
29 changed files with 8613 additions and 7351 deletions

View File

@@ -50,7 +50,7 @@ Public Class frmConstructorDesigner
End Sub
Sub Load_Head()
Try
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR)
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID)
Catch ex As Exception
MsgBox("Error Loading Form:" & vbNewLine & ex.Message)
End Try
@@ -203,6 +203,7 @@ Public Class frmConstructorDesigner
formloaded = True
Load_TreeViewEbene()
Load_ConstructorUser()
LANGUAGETextBox.Text = USER_LANGUAGE
End Sub
Sub Load_TreeViewEbene()
Try
@@ -260,6 +261,7 @@ Public Class frmConstructorDesigner
If formloaded = True Then
Try
If CONSTRUCTOR_IDTextBox.Text <> "" Then
LANGUAGETextBox.Text = USER_LANGUAGE
Load_TreeViewEbene()
Load_ConstructorUser()
End If