MS Anpassungen Views und Spalten

This commit is contained in:
Developer01
2025-02-20 08:26:52 +01:00
parent 81b0e44d45
commit 6945585ca3
20 changed files with 901 additions and 741 deletions

View File

@@ -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