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

fixed psn and reactor log query forms

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-18 14:38:58 -07:00
committed by Stieber Daniel (IT FI MES)
parent e1442352c0
commit 1c69c61d16
7 changed files with 200 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
LSL2/STPROC/PROD_SPEC_EVENTS.txt
View File

@ -37,6 +37,7 @@ $Insert APP_INSERTS
$Insert EVENT_SETUP
$Insert PROD_SPEC_EQUATES
$Insert SECURITY_RIGHTS_EQU
$Insert MSG_EQUATES
Declare function NextKey, Error_Services, Security_Check
Declare subroutine Database_Services, Comm_Prod_Spec, Security_Err_Msg
@ -88,8 +89,15 @@ end event
Event PUB_LU_PSN.CLICK()
SelPSN = Popup(@Window, '', 'PSN_QUERY')
Def = ""
Def<MCOL$> = '-2'
Def<MROW$> = '-2'
Def<MTEXT$> = "Loading all PSNs. Please wait..."
Def<MTYPE$> = "U"
MsgUp = Msg(@window, Def) ;* display the processing message
SelPSN = Popup(@Window, '', 'PSN_QUERY')
Msg(@window, MsgUp) ;* take down the processing message
If SelPSN NE '' then
Set_Property(@Window:'.PROD_SPEC_ID', 'TEXT', SelPSN)
Post_Event(@Window, 'READ')