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

pre cutover push

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

34
LSL2/STPROC/NDW_VERIFY_USER_EVENTS.txt
View File

@ -121,14 +121,12 @@ Event WINDOW.CREATE(CreateParam)
Set_Property(@Window : '.EDL_PASSWORD', 'FOCUS', True$)
FormSize = ''
PlaceDialog( -2, -2 )
* If @User4 EQ 'DANIEL_ST' then Set_Property('SYSTEM', 'MODAL', 1:@FM:@Window)
end event
Event WINDOW.CLOSE(CancelFlag)
* If @User4 EQ 'DANIEL_ST' then Set_Property('SYSTEM', 'MODAL', 0)
Result = False$
End_Dialog(@Window, Result)
@ -142,13 +140,6 @@ Event EDL_USERNAME.GOTFOCUS(PrevFocusID)
end event
Event EDL_USERNAME.LOSTFOCUS(Flag, FocusID)
*Form_Services('CloseControlMessage', CtrlEntId)
end event
Event EDL_USERNAME.CHAR(VirtCode, ScanCode, CtrlKey, ShiftKey, AltKey)
Form_Services('CloseControlMessage', CtrlEntId)
@ -165,15 +156,7 @@ end event
Event EDL_PASSWORD.GOTFOCUS(PrevFocusID)
// This is a hack to prevent the form from highlighting the first character.
// For some reason OpenInsight seems to be firing a lostfocus event upon the initial
// character stroke. This requires further investigation as it did not do this in the past.
FirstPass = Get_Property(@Window, '@FIRST_PASS')
If FirstPass EQ True$ then
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
end else
Set_Property(@Window, '@FIRST_PASS', True$)
end
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
end event
@ -182,7 +165,6 @@ Event EDL_PASSWORD.CHAR(VirtCode, ScanCode, CtrlKey, ShiftKey, AltKey)
PopupVis = Get_Property(@Window:'.OLE_POPUP', "OLE.Visible")
If PopupVis then Form_Services('CloseControlMessage', CtrlEntId)
Form_Services('CloseControlMessage', CtrlEntId)
Username = Get_Property(@Window : '.EDL_USERNAME', 'TEXT')
Password = Get_Property(CtrlEntId, 'TEXT')
If (Username NE '') AND (Password NE '') then
@ -228,12 +210,7 @@ Event PUB_OK.CLICK()
Case (Password EQ Credentials<PASSWORD$>) AND (Member EQ True$)
Result = True$ : @FM : Credentials<USERNAME$>
* If @User4 EQ 'DANIEL_ST' then
* If @User4 EQ 'DANIEL_ST' then Set_Property('SYSTEM', 'MODAL', 0)
* Post_Event(@Window, 'CLOSE')
* end else
End_Dialog(@WINDOW, Result)
* end
End_Dialog(@WINDOW, Result)
Case (Password EQ Credentials<PASSWORD$>) AND (Member EQ False$)
Set_Property(@Window : '.EDL_USERNAME', 'FOCUS', True$)
@ -248,10 +225,10 @@ Event PUB_OK.CLICK()
Form_Services('DisplayControlMessage', Message, 'Incorrect Group', @Window : '.EDL_USERNAME', 'VALIDATION', 'RGB(229,20,0)')
Case Password NE Credentials<PASSWORD$>
Set_Property(@Window : '.EDL_USERNAME', 'FOCUS', True$)
Set_Property(@Window : '.EDL_USERNAME', 'SELECTION', 1 : @FM : 999)
Set_Property(@Window : '.EDL_PASSWORD', 'FOCUS', True$)
Set_Property(@Window : '.EDL_PASSWORD', 'SELECTION', 1 : @FM : 999)
Message = 'Unable to validate username. Please re-enter.'
Form_Services('DisplayControlMessage', Message, 'Incorrect Password', @Window : '.EDL_USERNAME', 'VALIDATION', 'RGB(229,20,0)')
Form_Services('DisplayControlMessage', Message, 'Incorrect Password', @Window : '.EDL_PASSWORD', 'VALIDATION', 'RGB(229,20,0)')
End Case
@ -278,4 +255,3 @@ Setup_OLE_Controls:
return