OpenOffice.info

[url=http://de.openoffice.info/viewtopic.php?f=3&t=12975]Verbesserungsvorschläge und Fehlermeldungen zu OOo[/url]

Ok. Vielen Dank für deinen motivierten Versuch. Das heißt, wir sind uns einig, dass es ein Bug ist? Kann/sollte ich den irgendwo reporten?

Sub Main
	
	oTextFieldCon = thisComponent.getTextFields()
	oTextFields = oTextFieldCon.createEnumeration()
	Do while oTextFields.hasMoreElements()
		oTextField = oTextFields.nextElement()
		
		if oTextField.VariableName = "TEST" then
			oTextField.Content =  FORMAT( "2010-04-04" , "DD.MM.YYYY" )

			oFormats = ThisComponent.NumberFormats
			Dim aLocale As New com.sun.star.lang.Locale
			Dim lMeinFormat as Long
			lMeinFormat = oFormats.queryKey( "TT.MM.JJJJ" , aLocale, True )

			oTextField.NumberFormat = lMeinFormat
XRAY oTextField 			
		end if
	loop
	oTextFieldCon.refresh()
XRAY oTextField
End Sub

Du setzt den Wert auf [color=#0040FF]2009-5-1 [/color]= [color=#0040FF]2003[/color]. Das ist, als Datum formatiert, der [color=#0040FF]25.06.1905[/color].

Ansonsten scheint hier ein Bug vorzuliegen... die [color=#008000].CurrentPresentation[/color] ändert sich [u]nicht[/u] durch den [color=#008000].refresh()[/color]-Befehl (per Code). Die Anzeige wird erst korrekt, wenn das Format über die Oberfläche umgestellt wird.

[code]
Sub Main

oTextFieldCon = thisComponent.getTextFields()
oTextFields = oTextFieldCon.createEnumeration()
Do while oTextFields.hasMoreElements()
oTextField = oTextFields.nextElement()

if oTextField.VariableName = "TEST" then
oTextField.Content = FORMAT( "2010-04-04" , "DD.MM.YYYY" )

oFormats = ThisComponent.NumberFormats
Dim aLocale As New com.sun.star.lang.Locale
Dim lMeinFormat as Long
lMeinFormat = oFormats.queryKey( "TT.MM.JJJJ" , aLocale, True )

oTextField.NumberFormat = lMeinFormat
XRAY oTextField
end if
loop
oTextFieldCon.refresh()
XRAY oTextField
End Sub[/code]

[color=#008000]NumberFormats[/color] frage ich deswegen ab, da die Codes sich pro Installation ändern können

XRAY zeigt mir den ansich korrekten Inhalt an... bin ratlos, wie Dir das weierhelfen kann... :cry:

oTextFieldCon = thisComponent.getTextFields()
oTextFields = oTextFieldCon.createEnumeration()
Do while oTextFields.hasMoreElements()
	oTextField = oTextFields.nextElement()
		
	if oTextField.VariableName = "TEST" then
		oTextField.NumberFormat = 5036
		oTextField.setPropertyValue("Content", "2009-05-01")
	end if
loop
oTextFieldCon.refresh()

oTextField.CurrentPresentation

Hi *,

heute lass ich es hier richtig krachen, aber vielleicht hilft es ja noch mehr Leuten, die dann nicht mehr fragen müssen. ;)
Angenommen ich möchte eine Feldvariable mit einem Datum der Form "2009-05-01" füllen, aber in der Ausgabe "01.05.2009" erhalten.

Dieser Code:
[code]
oTextFieldCon = thisComponent.getTextFields()
oTextFields = oTextFieldCon.createEnumeration()
Do while oTextFields.hasMoreElements()
oTextField = oTextFields.nextElement()

if oTextField.VariableName = "TEST" then
oTextField.NumberFormat = 5036
oTextField.setPropertyValue("Content", "2009-05-01")
end if
loop
oTextFieldCon.refresh()
[/code]

...erzeugt folgendes:
[attachment=1]DatumFehler.jpg[/attachment]

Vielleicht kann mir auch hier die Zeile [code]oTextField.CurrentPresentation[/code] irgendwie helfen, ich weiß aber leider nicht wie... alle Tests waren bisher erfolglos!

Hier mal das File zum rumspielen:
[attachment=0]TEST.odt[/attachment]