added AD group support to notifications system

This commit is contained in:
Infineon\StieberD
2024-10-04 17:35:08 -07:00
parent 0b5ce72c39
commit 2a5abee93e
38 changed files with 9811 additions and 2732 deletions

View File

@ -666,7 +666,6 @@ Service SearchIndex(TableName, ColumnName, SearchValue, UpdateIndex)
ServiceKeyID := '*' : TableName : '*' : ColumnName : '*' : SearchValue
ServiceKeyID = SRP_Encode(ServiceKeyID, 'BASE64')
* KeyIDList = Memory_Services('GetValue', ServiceKeyID, True$, 5)
KeyIDList = ''
If TableName NE '' AND ColumnName NE '' AND SearchValue NE '' then
@ -674,7 +673,7 @@ Service SearchIndex(TableName, ColumnName, SearchValue, UpdateIndex)
DictTableHandle = Database_Services('GetTableHandle', 'DICT.' : TableName)
If Error_Services('NoError') then
Set_Status(0)
If UpdateIndex then Update_Index(TableName, ColumnName 0)
If UpdateIndex then Update_Index(TableName, ColumnName, False$, True$)
Set_Status(0)
Flag = ''
Btree.Extract(ColumnName : @VM : SearchValue : @FM, Tablename, DictTableHandle, KeyIDList, 'S', Flag)
@ -1045,3 +1044,4 @@ end service
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////