Gelöst mit Makro in Currenc Formularfeld schreiben

[lxxfanbase]

Hallo an alle,

ich habe mein Problem gelöst mit Makro in ein Currency Feld zuschreiben

hier mein Code:

sub gesamtpreistd
Main (Module laden)
dim oeinzel as Object
dim ogesamt as Object
dim stdanzahl as Object
dim oelementview as Object
dim namef as String
dim oCtl as Object
dim einzelpr as Currency
dim gesamtpreis as Currency
dim stdanzahlp as Currency
oDoc = ThisComponent
oForm1 = oDoc.Drawpage.forms.getByname("leistungform")
oForm2=oForm1.getByName("subleistungform")
oeinzel = oForm2.getByName( "einzelpreisstd" )
stdanzahl=oForm2.getByname("stdanzahl")
ogesamt=oForm2.getByName("preisstd")
stdanzahlp=stdanzahl.value
einzelpr=oeinzel.Value
if einzelpr=0 then Exit sub
if stdanzahlp=0 then exit sub
gesamtpreis=stdanzahlp*einzelpr
ogesamt.value=gesamtpreis
ogesamt.commit()
oForm2.upDateRow()
oForm2.reload()
end sub

ich bitte euch wenns auch eine andere Lösung gibt hier zu Antworten
Danke euch im voraus.

mfg

Georg