phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed a small bug on Notification form

Browse Source
This commit is contained in:
Infineon\StieberD 2024-10-24 17:05:21 -07:00
parent 2a5abee93e
commit d4be43a478
1 changed files with 34 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
LSL2/STPROC/NDW_NOTIFICATION_EVENTS.txt
View File

@ -288,6 +288,7 @@ Event PUB_ADD_GROUPS.CLICK()
GroupArray = Get_Property(@Window:'.EDT_AD_GROUPS', 'ARRAY') GroupArray = Get_Property(@Window:'.EDT_AD_GROUPS', 'ARRAY')
GroupIds = GroupArray<1> GroupIds = GroupArray<1>
SelGroups = Dialog_Box('NDW_ACTIVE_DIRECTORY_GROUPS', @Window, GroupIds) SelGroups = Dialog_Box('NDW_ACTIVE_DIRECTORY_GROUPS', @Window, GroupIds)
If SelGroups NE '' then
Set_Property(@Window:'.EDT_AD_GROUPS', 'LIST', SelGroups) Set_Property(@Window:'.EDT_AD_GROUPS', 'LIST', SelGroups)
Def = "" Def = ""
@ -300,9 +301,9 @@ Event PUB_ADD_GROUPS.CLICK()
GroupArray = Get_Property(@Window:'.EDT_AD_GROUPS', 'ARRAY') GroupArray = Get_Property(@Window:'.EDT_AD_GROUPS', 'ARRAY')
GroupIds = GroupArray<1> GroupIds = GroupArray<1>
If GroupIds NE '' then
LSLUserNames = '' LSLUserNames = ''
LSLNames = '' LSLNames = ''
If GroupIds NE '' then
For each GroupId in GroupIds using @VM For each GroupId in GroupIds using @VM
MemberList = Active_Directory_Services('GetADGroupMembersByGroupName', GroupId, 'INFINEON') MemberList = Active_Directory_Services('GetADGroupMembersByGroupName', GroupId, 'INFINEON')
MemberList = SRP_Array('Rotate', MemberList, @FM, @VM) MemberList = SRP_Array('Rotate', MemberList, @FM, @VM)
@ -326,6 +327,7 @@ Event PUB_ADD_GROUPS.CLICK()
Set_Property(@Window:'.EDT_LSL_USERS', 'ARRAY', Array) Set_Property(@Window:'.EDT_LSL_USERS', 'ARRAY', Array)
Msg(@window, MsgUp) ;* take down the processing message Msg(@window, MsgUp) ;* take down the processing message
end
end event end event
@ -436,3 +438,4 @@ UnlockRec:
return return