AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS WISAG

Browse Source
This commit is contained in:
SchreiberM
2019-12-10 17:27:39 +01:00
parent 5babf515ee
commit ad1611802a
29 changed files with 4212 additions and 3310 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -134,11 +134,10 @@ Public Class ClassInit
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
Else
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
ERROR_STATE = "NO CLIENT"
Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Client relation")
' Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
MsgBox("You are not related to a client!" & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Exclamation)
Exit Sub
End If
Catch ex As Exception
@@ -262,7 +261,7 @@ Public Class ClassInit
GDPICTURE_LICENSE = oROW.Item("LICENSE")
End If
Next
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE Where MODULE = 'PM'"
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
CURRENT_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql)
Catch ex As Exception
LOGGER.Error(ex)