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

apply abort metrology when specific sub modes are selected

Browse Source
This commit is contained in:
Infineon\StieberD
2024-11-18 15:34:48 -07:00
parent bff81f70c4
commit 3c2a50af24
4 changed files with 596 additions and 438 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
LSL2/STPROC/NDW_NOTIFICATION_EVENTS.txt
View File

@ -45,7 +45,7 @@ Declare function Admin_User, Database_Services, Error_Services, Active_Directo
Declare subroutine PlaceDialog, Error_Services, Database_Services, Btree.Extract, ErrMsg
GoToEvent Event for CtrlEntId else
// Event not implemented
// Event not implemented
end
Return EventFlow or 1
@ -69,7 +69,7 @@ Event WINDOW.CREATE(CreateParam)
Send_Message(@Window:'.EDT_LSL_USERS', "COLOR_BY_POS", 2, 0, ColorArray)
Send_Message(@Window:'.EDT_AD_GROUPS', "COLOR_BY_POS", 1, 0, ColorArray)
Send_Message(@Window:'.EDT_AD_GROUPS', "COLOR_BY_POS", 2, 0, ColorArray)
Send_Message(@Window:'.EDT_AD_GROUPS', "COLOR_BY_POS", 3, 0, ColorArray)
Send_Message(@Window:'.EDT_AD_GROUPS', "COLOR_BY_POS", 3, 0, ColorArray)
end
End Event
@ -98,7 +98,7 @@ Event WINDOW.READ()
end
If EventFlow EQ EVENT_CONTINUE$ then
GoSub UnlockRec
Key = Get_Property(@Window:'.EDL_NOTIFICATION_ID', 'TEXT')
@ -172,7 +172,7 @@ end event
Event WINDOW.CLEAR(bSaveKey, bSuppressWarning, bMaintainFocus)
EventFlow = EVENT_CONTINUE$
OrigRec = Get_Property(@Window, '@RECORD')
EditRec = Get_Property(@Window, '@EDIT_RECORD')
@ -193,7 +193,7 @@ Event WINDOW.CLEAR(bSaveKey, bSuppressWarning, bMaintainFocus)
end
If EventFlow EQ EVENT_CONTINUE$ then
Set_Property(@Window, '@NEW_REC', False$)
GoSub UnlockRec
Forward_Event()
@ -305,7 +305,7 @@ Event PUB_LU_ID.CLICK()
end
If EventFlow EQ EVENT_CONTINUE$ then
TypeOver = ''
TypeOver<PSELECT$> = 1
NotifyID = Popup(@WINDOW,TypeOver,'NOTIFICATION')
@ -342,7 +342,7 @@ Event EDL_NOTIFICATION_ID.OPTIONS()
end
If EventFlow EQ EVENT_CONTINUE$ then
TypeOver = ''
TypeOver<PSELECT$> = 1
NotifyID = Popup(@WINDOW,TypeOver,'NOTIFICATION')
@ -352,7 +352,7 @@ Event EDL_NOTIFICATION_ID.OPTIONS()
Set_Property(CtrlEntId, 'TEXT', NotifyID)
Post_Event(@Window, 'READ')
end
end
end event
@ -373,7 +373,7 @@ end event
Event EDL_NOTIFICATION_ID.LOSTFOCUS(Flag, FocusID)
If Flag EQ 1 then
GoSub UnlockRec
Post_Event(@Window, 'READ')
@ -396,7 +396,7 @@ Event PUB_ADD_USERS.CLICK()
NewUserIDs = Popup(@WINDOW,'','SHOW_USERS')
If ( (NewUserIDs NE '') and (NewUserIDs NE CHAR(27)) ) then
For I = 1 TO COUNT(NewUserIDs,@VM) + (NewUserIDs NE '')
NewUserID = NewUserIDs<1,I>
Locate NewUserID in CurrUserIDs by 'AL' using @VM setting POS else
@ -449,7 +449,7 @@ Event PUB_ADD_GROUPS.CLICK()
GroupArray = Get_Property(@Window:'.EDT_AD_GROUPS', 'ARRAY')
GroupIds = GroupArray<1>
LSLUserNames = ''
LSLNames = ''
If GroupIds NE '' then
@ -457,7 +457,7 @@ Event PUB_ADD_GROUPS.CLICK()
MemberList = Active_Directory_Services('GetADGroupMembersByGroupName', GroupId, 'INFINEON')
MemberList = SRP_Array('Rotate', MemberList, @FM, @VM)
ADUserNames = MemberList<1>
Open 'DICT.LSL_USERS' to hDict then
For each ADUserName in ADUserNames using @VM setting vPos
Query = 'DOMAIN_USERNAME':@VM:ADUserName:@FM
@ -642,3 +642,4 @@ UnlockRec:
return