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

modified passdown commuter module to clear form on successful entry post

Browse Source
This commit is contained in:
Infineon\StieberD 2025-06-05 13:07:21 -07:00
parent 869787e0f3
commit e5f0e9b7f1
2 changed files with 1479 additions and 286 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1614
LSL2/OIWIN/DIALOG_PASSDOWN.json
View File

File diff suppressed because it is too large Load Diff

21
LSL2/STPROC/COMM_DIALOG_PASSDOWN.txt
View File

@ -104,8 +104,6 @@ NEXT Line
RETURN
* * * * * * *
Cancel:
* * * * * * *
@ -115,7 +113,6 @@ End_Dialog(@WINDOW,'')
RETURN
* * * * * * *
PostEntries:
* * * * * * *
@ -144,15 +141,21 @@ IF ReactNos NE '' AND Comment NE '' THEN
CurrMode = XLATE('REACTOR',ReactNo,'CURR_MODE','X')
obj_React_Event('Create',ReactNo:@RM:EventDTM:@RM:EventType:@RM:LoggedBy:@RM:Comment:@RM:@RM:CurrMode)
ErrCode = ''
If Get_Status(ErrCode) then
Msg(@Window, '', 'OK', '', 'Process Error':@FM:'Error posting entries. ':ErrCode)
end else
Set_Property(@Window:'.REACT_NO', 'LIST', '')
Set_Property(@Window:'.COMMENT', 'TEXT', '')
end
EventKeys<I> = ReactNo:'*':ICONV(EventDTM,'DT')
NEXT I
END
End_Dialog(@WINDOW,EventKeys)
END else
Msg(@Window, '', 'OK', '', 'Process Error':@FM:'React No(s) and Comment must not be null!')
end
RETURN