diff options
Diffstat (limited to 'wizards/source/template/Correspondence.xba')
| -rw-r--r-- | wizards/source/template/Correspondence.xba | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba index 9f1383334dfa..f6a490806be3 100644 --- a/wizards/source/template/Correspondence.xba +++ b/wizards/source/template/Correspondence.xba @@ -37,9 +37,9 @@ Function LoadLanguageCorrespondence() as Boolean End Function -Function GetFieldName(oFieldKnot as Object, GeneralFieldName as String) +Function GetFieldName(oFieldKnot as Object, GeneralFieldName as String) If oFieldKnot.HasByName(GeneralFieldName) Then - GetFieldName = oFieldKnot.GetByName(GeneralFieldName).FieldName + GetFieldName = oFieldKnot.GetByName(GeneralFieldName).DatabaseFieldName Else GetFieldName = "" End If @@ -63,7 +63,7 @@ Dim oFields as Object Dim oDocSettings as Object bDBFields = DialogModel.Optmerge.State 'db oder PLatzhalter - + If bDBFields Then oDBAccess = GetRegistryKeyContent("org.openoffice.Office.DataAccess/AddressBook/") sAddressbook = oDBAccess.DataSourceName @@ -83,7 +83,7 @@ Dim oDocSettings as Object TemplateDialog.EndExecute() DialogExited = TRUE - + ParaBreak = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK oDocument = StarDesktop.ActiveFrame.Controller.Model If bDBFields Then @@ -91,11 +91,11 @@ Dim oDocSettings as Object oDocSettings = oDocument.createInstance("com.sun.star.document.DocumentSettings") oDocSettings.CurrentDatabaseDataSource = sAddressbook oDocSettings.CurrentDatabaseCommand = Table - oDocSettings.CurrentDatabaseCommandType = 0 + oDocSettings.CurrentDatabaseCommandType = 0 End If oBookmarks = oDocument.Bookmarks oText = oDocument.Text - + oSearchDesc = oDocument.createsearchDescriptor() oSearchDesc.SearchRegularExpression = True oSearchDesc.SearchWords = True @@ -128,7 +128,7 @@ Dim oDocSettings as Object Dim aURL as new com.sun.star.util.URL aURL.complete = ".component:DB/DataSourceBrowser" oTransformer = createUnoService("com.sun.star.util.URLTransformer") - oTransformer.parseStrict(aURL) + 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" @@ -139,7 +139,7 @@ Dim oDocSettings as Object aArgs(3).Value = Table oDisp.dispatch(aURL, aArgs()) End If - + End Sub |