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

30
LSL2/STPROC/LOGON_EVENTS.txt
View File

@ -40,7 +40,7 @@ $insert LSL_USERS_EQUATES
Equ COMMA$ to ','
Declare subroutine SRP_EditTable_Manager, SRP_Show_Window, Logging_Services, obj_Notes
Declare subroutine SRP_EditTable_Manager, SRP_Show_Window, Logging_Services, obj_Notes, GetEngineVersion
Declare subroutine Database_Services, End_Window, ShowWindow, SRP_Run_Command, Placedialog
Declare function SRP_EditTable_Manager, Database_Services, Security_Services, Logging_Services, Environment_Services
Declare function GetPrivateProfileString, WritePrivateProfileString, GetPrivateProfileSection, SRP_Get_FileVersion
@ -108,13 +108,31 @@ Event WINDOW.CREATE(CreateParam)
OCXDir = ''
Server = Environment_Services('GetServer')
Version = ''
GetEngineVersion(Version)
MajorVersion = Version[1, 'F.']
OIX = (MajorVersion GE 10)
Begin Case
Case Server EQ 'MESSA005' or Server EQ 'MESSA012' or Server EQ 'MESSA01EC' or Server EQ 'MESTSA01EC'
OCXDir = 'D:\apps\OICurrent\SRPControls.ocx'
If OIX then
OCXDir = Drive():'\SRPControls64.ocx'
end else
OCXDir = Drive():'\SRPControls.ocx'
end
Case Server EQ 'MESST5201' or Server EQ 'MESST5202'
OCXDir = 'C:\Program Files (x86)\RevSoft\OIClient\SRPControls.ocx'
If OIX then
OCXDir = 'C:\Program Files\Revsoft\OIClient_10\SRPControls64.ocx'
end else
OCXDir = 'C:\Program Files (x86)\RevSoft\OIClient\SRPControls.ocx'
end
Case Otherwise$
OCXDir = 'C:\Revsoft\OIClient\SRPControls.ocx'
If OIX then
OCXDir = 'C:\Revsoft\OIClient_10\SRPControls64.ocx'
end else
OCXDir = 'C:\Revsoft\OIClient\SRPControls.ocx'
end
End Case
Version = SRP_Get_FileVersion(OCXDir)
@ -137,6 +155,7 @@ Event WINDOW.CREATE(CreateParam)
Database_Services('WriteDataRow', 'LSL_USERS', LSLUserID, UserRec, True$, False$, True$)
PlaceDialog(-2, -2)
Set_Property(@Window, 'VISIBLE', 1)
end event
@ -180,7 +199,7 @@ end event
Event PUB_OK.CLICK()
ShutdownFlag = Xlate('APP_INFO', 'APP_SHUTDOWN', '', 'X')
If ( (ShutdownFlag EQ False$) or (@Username _EQC 'STIEBERD') or (@User4 _EQC 'DANIEL_ST') ) then
If (ShutdownFlag EQ False$) then
Username = Get_Property(@Window : '.EDL_USERNAME', 'TEXT')
Password = Get_Property(@Window : '.EDL_PASSWORD', 'TEXT')
Utility('CURSOR', 'H')
@ -248,3 +267,4 @@ return