From edf07f804ca915c14f6864ff13cc4b83bad80b8a Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Thu, 6 Dec 2001 12:11:43 +0000 Subject: #95671# converting of texdocumentfields now improved --- wizards/source/euro/Writer.xba | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'wizards') diff --git a/wizards/source/euro/Writer.xba b/wizards/source/euro/Writer.xba index 3c5999796331..3833402baa85 100644 --- a/wizards/source/euro/Writer.xba +++ b/wizards/source/euro/Writer.xba @@ -57,12 +57,12 @@ Dim MaxIndex as Integer If CheckFormatType(oTextField) Then If oTextField.PropertySetInfo.HasPropertybyName("Value") Then If Not oTextField.SupportsService("com.sun.star.text.TextField.GetExpression") Then - oTextField.Content = Str(oTextField.Value/CurrFactor) + oTextField.Content = CStr(Round(oTextField.Value/CurrFactor,2)) End If ElseIf oTextField.TextFieldMaster.PropertySetInfo.HasPropertyByName("Value") Then CurInstanceName = oTextField.TextFieldMaster.InstanceName If Not FieldinArray(InstanceNames(), MaxIndex, CurInstanceName) Then - oTextField.TextFieldMaster.Content = Str(oTextField.TextFieldMaster.Value/CurrFactor) + oTextField.TextFieldMaster.Content = CStr(Round(oTextField.TextFieldMaster.Value/CurrFactor,2)) InstanceNames(MaxIndex) = CurInstanceName MaxIndex = MaxIndex + 1 End If -- cgit