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

[Jean-Pierre Ledure]

 wizards/source/access2base/Application.xba |   11 +++++++++--
 wizards/source/access2base/Root_.xba       |    2 +-
 2 files changed, 10 insertions(+), 3 deletions(-)

New commits:
commit fa7f2ec536b477acb6ba2cc1ec42b7f6ec97a024
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Thu Nov 16 16:15:05 2017 +0100

    Access2Base - FIX AllDialogs() should run when no active document
    
    Stopped erroneously with error message "No active connection"

diff --git a/wizards/source/access2base/Application.xba 
b/wizards/source/access2base/Application.xba
index 13b97fda0927..611bfde517d6 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -195,6 +195,7 @@ Dim iMode As Integer, vDialogs() As Variant, i As Integer, 
j As Integer, iCount
 Dim oMacLibraries As Object, vAllDialogs As Variant, oLibrary As Object, 
vNames() As Variant, bFound As Boolean
 Dim oLibDialog As Object, sLibrary As String, oDocLibraries As Object, 
bLocalStorage As Boolean
 Dim vLibraries() As Variant, vMacLibraries() As Variant, vDocLibraries() As 
Variant, oDocMacLib As Object
+Dim vCurrentDocument As Variant
 Const cstCount = 0
 Const cstByIndex = 1
 Const cstByName = 2
@@ -209,8 +210,14 @@ Const cstSepar = &quot;!&quot;
 
        Set vAllDialogs = Nothing
 
-       Set oDocLibraries = _A2B_.CurrentDocument.Document.DialogLibraries      
&apos;  ThisComponent.DialogLibraries
-       vDocLibraries = oDocLibraries.getElementNames()
+       Set vCurrentDocument = _A2B_.CurrentDocument
+       If IsNull(vCurrentDocument) Then
+               Set oDocLibraries = Nothing
+               vDocLibraries = Array()
+       Else
+               Set oDocLibraries = 
_A2B_.CurrentDocument.Document.DialogLibraries      &apos;  
ThisComponent.DialogLibraries
+               vDocLibraries = oDocLibraries.getElementNames()
+       End If
        Set oMacLibraries = DialogLibraries
        vMacLibraries = oMacLibraries.getElementNames()
        &apos;Remove Access2Base from the list
diff --git a/wizards/source/access2base/Root_.xba 
b/wizards/source/access2base/Root_.xba
index 01f50923b6cd..a95fe87ca1f3 100644
--- a/wizards/source/access2base/Root_.xba
+++ b/wizards/source/access2base/Root_.xba
@@ -202,7 +202,7 @@ Public Function CurrentDocument(ByVal Optional piDocIndex 
As Integer) As Variant
 &apos; Returns the CurrentDoc(...) referring to the current document or to the 
argument
 
 Dim iDocIndex As Integer
-       If IsMissing(piDocIndex) Then iDocIndex = CurrentDocIndex() Else 
iDocIndex = piDocIndex
+       If IsMissing(piDocIndex) Then iDocIndex = CurrentDocIndex(, False) Else 
iDocIndex = piDocIndex
        If iDocIndex &gt;= 0 And iDocIndex &lt;= UBound(CurrentDoc) Then Set 
CurrentDocument = CurrentDoc(iDocIndex) Else Set CurrentDocument = Nothing
 
 End Function
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits