AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_1705

Browse Source
This commit is contained in:
SchreiberM
2016-05-17 14:05:44 +02:00
parent d0bb9cb0b9
commit 621a6cd469
20 changed files with 4547 additions and 5186 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD-Record-Organiser/ClassInit.vb
View File

@@ -70,6 +70,7 @@ Public Class ClassInit
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
Else
USER_WAN = ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID)
Dim i As Integer = 0