pre cutover push
This commit is contained in:
@ -106,7 +106,7 @@ RETURN
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
IF MemberOf(@USER4,'OI_ADMIN') OR @USERNAME = 'BRYCE_BARB' THEN
|
||||
IF MemberOf(@USER4,'OI_ADMIN') THEN
|
||||
Set_Property(@WINDOW:'.SEQ','VISIBLE',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.SEQ','VISIBLE',0)
|
||||
@ -180,12 +180,7 @@ IF EntryID = '' THEN
|
||||
IF AttachWindow NE '' THEN Set_Property(@WINDOW:'.ATTACH_WINDOW','DEFPROP',AttachWindow)
|
||||
IF AttachKey NE '' THEN Set_Property(@WINDOW:'.ATTACH_KEY','DEFPROP',AttachKey)
|
||||
|
||||
IF @USERNAME = 'BRYCE_BARB' THEN
|
||||
Set_Property(@WINDOW:'.FROM','DEFPROP',@USERNAME)
|
||||
Set_Property(@WINDOW:'.ENTRY_ID','DEFPROP',@USERNAME)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.FROM','DEFPROP',@USER4)
|
||||
END
|
||||
Set_Property(@WINDOW:'.FROM','DEFPROP',@USER4)
|
||||
Send_Event(@WINDOW:'.FROM','LOSTFOCUS')
|
||||
Send_Event(@WINDOW:'.ENTRY_ID','LOSTFOCUS')
|
||||
|
||||
@ -355,7 +350,7 @@ NEXT I
|
||||
|
||||
SendToYourself = Get_Property(@WINDOW:'.COPY_YOURSELF','CHECK')
|
||||
|
||||
IF @USERNAME = 'BRYCE_BARB' THEN Myself = @USERNAME ELSE Myself = @USER4
|
||||
Myself = @USER4
|
||||
|
||||
LOCATE Myself IN SendToIDs BY 'AL' USING @VM SETTING Pos THEN
|
||||
IF SendToYourSelf = 0 THEN SendToIDs = DELETE(SendToIDS,1,Pos,0)
|
||||
|
Reference in New Issue
Block a user