diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2023-08-21 15:01:53 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2023-08-21 17:33:29 +0200 |
commit | 84bc3ffcf5c570f044843125552589456b07f5a1 (patch) | |
tree | 45f3bbb4174f4fd5f6a19bb0e48e25e6d89c0bfd /wizards | |
parent | 19281c62b5e315da422318dbc9d4ba619a6eeab5 (diff) |
ScriptForge - fix tdf#156836 Abort on MoveFirst()
The incident occurs when a move (last(),
first(), next()) within the form's resultset
is done from a Basic script immediately
after the opening of the document
containing the form.
The insertion of a
Wait 1
statement prevents the occurrence of
the incident by interrupting very shortly
the Basic process.
Change-Id: I5e798db6e3f9ffaeeef38fb9badd008cbb190d1f
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/155897
Reviewed-by: Jean-Pierre Ledure <jp@ledure.be>
Tested-by: Jenkins
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/sfdatabases/SF_Database.xba | 3 | ||||
-rw-r--r-- | wizards/source/sfdocuments/SF_Base.xba | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/wizards/source/sfdatabases/SF_Database.xba b/wizards/source/sfdatabases/SF_Database.xba index f93cf55d74c0..109d4c57d909 100644 --- a/wizards/source/sfdatabases/SF_Database.xba +++ b/wizards/source/sfdatabases/SF_Database.xba @@ -455,6 +455,9 @@ Try: Set oOpen = ScriptForge.SF_Services.CreateScriptService("SFDocuments.FormDocument", oNewForm) + ' Prevent desynchonization when using .last(), .next() etc immediately after component loading. Bug #156836 + Wait 1 + Finally: Set OpenFormDocument = oOpen ScriptForge.SF_Utils._ExitFunction(cstThisSub) diff --git a/wizards/source/sfdocuments/SF_Base.xba b/wizards/source/sfdocuments/SF_Base.xba index efc8bfeb148c..af1ebc1e4930 100644 --- a/wizards/source/sfdocuments/SF_Base.xba +++ b/wizards/source/sfdocuments/SF_Base.xba @@ -505,6 +505,9 @@ Try: Set oOpen = ScriptForge.SF_Services.CreateScriptService("SFDocuments.FormDocument", oNewForm) + ' Prevent desynchonization when using .last(), .next() etc immediately after component loading. Bug #156836 + Wait 1 + Finally: Set OpenFormDocument = oOpen ScriptForge.SF_Utils._ExitFunction(cstThisSub) |