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

jj: fix clsPatterns usage in validator

Browse Source
This commit is contained in:
Jonathan Jenne
2018-06-12 16:29:26 +02:00
parent d967e82df0
commit df3e43cfd6
5 changed files with 466 additions and 1031 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -85,10 +85,10 @@ Public Class ClassInit
Dim dtUser As DataTable = ClassDatabase.Return_Datatable(sql)
CURRENT_USER_ID = dtUser.Rows(0).Item("GUID")
CURRENT_USER_SURNAME = dtUser.Rows(0).Item("NAME")
CURRENT_USER_PRENAME = dtUser.Rows(0).Item("PRENAME")
CURRENT_USER_SHORTNAME = dtUser.Rows(0).Item("SHORTNAME")
CURRENT_USER_EMAIL = dtUser.Rows(0).Item("EMAIL")
CURRENT_USER_SURNAME = IIf(IsDBNull(dtUser.Rows(0).Item("NAME")), "", dtUser.Rows(0).Item("NAME"))
CURRENT_USER_PRENAME = IIf(IsDBNull(dtUser.Rows(0).Item("PRENAME")), "", dtUser.Rows(0).Item("PRENAME"))
CURRENT_USER_SHORTNAME = IIf(IsDBNull(dtUser.Rows(0).Item("SHORTNAME")), "", dtUser.Rows(0).Item("SHORTNAME"))
CURRENT_USER_EMAIL = IIf(IsDBNull(dtUser.Rows(0).Item("EMAIL")), "", dtUser.Rows(0).Item("EMAIL"))
CURRENT_USER_LANGUAGE = dtUser.Rows(0).Item("LANGUAGE")
If IsDBNull(CURRENT_USER_ID) Or IsNothing(CURRENT_USER_ID) Then