pre cutover push

This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions

View File

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