MS Anpassungen Views und Spalten
This commit is contained in:
@@ -6,11 +6,11 @@ Public Class ClassLicense
|
||||
Private Shared Sub Get_License(CLIENT_ID As Integer)
|
||||
Try
|
||||
Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WHERE SHORT_NAME = 'CW'")
|
||||
lic_string = Database.GetScalarValue(sql)
|
||||
lic_string = MyDB_DDECM.GetScalarValue(sql)
|
||||
Catch ex As Exception
|
||||
Try
|
||||
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
|
||||
lic_string = Database.GetScalarValue(sql)
|
||||
lic_string = MyDB_DDECM.GetScalarValue(sql)
|
||||
Catch ex1 As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:")
|
||||
End Try
|
||||
|
||||
Reference in New Issue
Block a user