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

Merged PR 15046: Buffered the current QBF position and used that buffered value to override th...

Browse Source 
Buffered the current QBF position and used that buffered value to override the QBF Next function that is occuring at the system level. Removed unnessecary writing of the window title, and commented out code.

Related work items: #252917
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-04-15 01:38:09 +02:00
parent 781274c395
commit 8b0eb3e468
2 changed files with 6 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
LSL2/STPROC/RDS_COMM.txt
View File

@ -276,15 +276,8 @@ IF SkipSaveWarn THEN
Set_Property(@WINDOW,'@SKIP_SAVEWARN','')
END
*IF Get_Property( @window, 'SAVEWARN' ) THEN
* MsgInfo = ''
* MsgInfo<mtext$> = 'You must either save this first or clear the form.'
* MsgInfo<micon$> = '!'
* Void = msg( '', MsgInfo )
*END ELSE
RdsWindowToCall = Get_Property( @window, '@RdsWindowToCall' )
QbfList = Get_Property( @window, 'QBFLIST' )
QbfPos = Get_Property( @window, 'QBFPOS' )
IF QbfList THEN
@ -300,20 +293,6 @@ END
Void = Start_Window( RdsWindowToCall, Parent, QbfList:'*CENTER', '', '' )
IF QbfPos THEN
Void = Set_Property( RdsWindowToCall, 'QBFPOS', QbfPos )
Void = Send_Event( RdsWindowToCall, 'READ' )
* The reason we have to fill in the title with the qbf stuff is
* when setting the qbfpos and then calling read it does not show
* N of N in the title - OI bug a boo
CurTitle = Get_Property( RdsWindowToCall, 'TEXT' )
CurTitle:= ' - <QBF Browse: ':QbfPos:' of ':fieldcount( QbfList, @vm ):'>'
Void = Set_Property( RdsWindowToCall, 'TEXT', CurTitle )
END
*END
RETURN
*============================================================================*
@ -558,3 +537,4 @@ SET_ML_LIMITS:
return
*===============================================================================================*