[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure (via logerrit)]

 wizards/source/sfdatabases/SF_Database.xba |    3 +++
 wizards/source/sfdocuments/SF_Base.xba     |    3 +++
 2 files changed, 6 insertions(+)

New commits:
commit 84bc3ffcf5c570f044843125552589456b07f5a1
Author:     Jean-Pierre Ledure <j...@ledure.be>
AuthorDate: Mon Aug 21 15:01:53 2023 +0200
Commit:     Jean-Pierre Ledure <j...@ledure.be>
CommitDate: Mon Aug 21 17:33:29 2023 +0200

    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 <j...@ledure.be>
    Tested-by: Jenkins

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(&quot;SFDocuments.FormDocument&quot;,
 oNewForm)
 
+       &apos;  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(&quot;SFDocuments.FormDocument&quot;,
 oNewForm)
 
+       &apos;  Prevent desynchonization when using .last(), .next() etc 
immediately after component loading. Bug #156836
+       Wait 1
+
 Finally:
        Set OpenFormDocument = oOpen
        ScriptForge.SF_Utils._ExitFunction(cstThisSub)