[Libreoffice-bugs] [Bug 109093] New: Macro using com.sun.star.ui.dialogs.FilePicker (save as) stops working and presents "open" window

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=109093

            Bug ID: 109093
           Summary: Macro using com.sun.star.ui.dialogs.FilePicker (save
                    as) stops working and presents "open" window
           Product: LibreOffice
           Version: 5.2.7.2 release
          Hardware: All
                OS: All
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: Calc
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: kwenzig at diw.de

Created attachment 134608
  --> https://bugs.documentfoundation.org/attachment.cgi?id=134608&action=edit
Screenshot. "Öffnen" is german and translates to "open"

The macro below saves a table as csv (with defined settings). It worked in
5.2.6.2 but in 5.2.7.2 it opens an "open"-Window (instead of save as) and does
not save the file.

Sub DDICSVsave
dim aUrl(), s$
Dim Arg()
dim fileProps(1) as new com.sun.star.beans.PropertyValue
fileProps(0).Name = "FilterName"
fileProps(0).Value = "Text - txt - csv (StarCalc)"
fileProps(1).Name = "FilterOptions"
fileProps(1).Value = "44,34,76,1,,0,false,true,true,false"
oDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
oDlg.setMultiSelectionMode(false)
oDlg.initialize(array(1)) ' Speichern unter
oDlg.execute
aUrl = oDlg.getFiles()
thisComponent.storeAsURL(aURL(0), fileProps())
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20170713/98e351f8/attachment.html>