diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-06-11 08:46:10 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-06-11 08:46:10 +0000 |
| commit | e5cb6771e3542cebd3b3df845286ff6d4c3d62da (patch) | |
| tree | cca04e90f475e8fbee8cb5c56082e269fb34c56d /wizards | |
| parent | b8f9457b70357956f5b43e41140405b12843f6d6 (diff) | |
#87217# now the DB beamer is opened with the correct DB
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/template/Correspondence.xba | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba index 927c168da6ab..9f1383334dfa 100644 --- a/wizards/source/template/Correspondence.xba +++ b/wizards/source/template/Correspondence.xba @@ -121,6 +121,24 @@ Dim oDocSettings as Object InsertPlaceholder(sFoundContent) End If Next i + If bDBFields Then + 'Open the DB beamer with the right DB + Dim oDisp as Object + Dim oTransformer + Dim aURL as new com.sun.star.util.URL + aURL.complete = ".component:DB/DataSourceBrowser" + oTransformer = createUnoService("com.sun.star.util.URLTransformer") + oTransformer.parseStrict(aURL) + oDisp = oDocument.getCurrentController.getFrame.queryDispatch(aURL, "_beamer", com.sun.star.frame.FrameSearchFlag.CHILDREN + com.sun.star.frame.FrameSearchFlag.CREATE) + Dim aArgs(3) as new com.sun.star.beans.PropertyValue + aArgs(1).Name = "DataSourceName" + aArgs(1).Value = sAddressbook + aArgs(2).Name = "CommandType" + aArgs(2).Value = com.sun.star.sdb.CommandType.TABLE + aArgs(3).Name = "Command" + aArgs(3).Value = Table + oDisp.dispatch(aURL, aArgs()) + End If End Sub |