Hallo nochmal an alle
> Hallo Marko,
>>
>> Ich möchte ein Formular in Writer erstellen. Ich habe eine kleine
>> Tabelle
>> in der ich Textfelder drin habe. In die Textfelder kommen Mengenangaben.
>> Jetzt möchte ich zum Abschluss eine Summe aller Mengenangaben in eine
>> Spalte der Tabelle haben.
>> Geht das überhaupt das ich Summen aus Textfeldeingaben bilden kann?
>> Ich habe bis jetzt noch keine Möglichkeit gefunden.
>
Also ich mache es als Textfelder weil ich das ganze später als PDF
Formular haben möchte. Vielleicht gebe ich da noch etwas mehr
informationen.
Es soll ein PDF Formular erstellt werden in das später Mengenangaben
eingetragen werden sollen. Diese Werte welche in das Formular eingetragen
werden, sollen am Ende des Formulars zusammen gerechnet werden.
Also fals da jemand eine Bessere Idee hat höre ich sehr gerne zu.
> Warum machst Du das mit Textfeldern? Warum nutzt Du nicht einfach eine
> Tabelle
> und lässt in der letzten Spalte summieren?
>
> Ansonsten ist ein Formular erst einmal nur etwas, was zum Eingeben von
> Daten
> dient. Das Rechnen mit diesen Daten erfolgt dann entweder über eine
> Datenbank
> oder, wenn es nichts mit einer Datenbank zu tun hat, nur über Makros.
>
> Beispiel dafür:
>
> SUB Summieren
> REM zuerst alle Variablen deklarieren
> REM Für Dezimalzahlen statt INTEGER DOUBLE wählen
> DIM oDoc AS OBJECT
> DIM oDrawpage AS OBJECT
> DIM oForm AS OBJECT
> DIM oFeld AS OBJECT
> DIM in1 AS INTEGER
> DIM in2 AS INTEGER
> DIM inSumme AS INTEGER
> REM Auf das Dokument zugreifen
> oDoc=thisComponent
> oDrawpage=oDoc.drawpage
> REM Das Formular muss im Formularnavigator mit dem Namen "MainForm"
> versehen sein (Standardwert)
> oForm=oDrawpage.forms.getByName("MainForm")
> REM Das Zielfeld soll "Summe" heißen, die beiden Beispielfelder
> "Eingabe1" und "Eingabe2"
> oFeld=oForm.getByName("Summe")
> in1 = oForm.getByName("Eingabe1").CurrentValue
> in2 = oForm.getByName("Eingabe2").CurrentValue
> REM Da die Variablen als Integer deklariert sind kann damit gerechnet
> werden (natürlich nur, wenn auch eine Ganzzahl da drin stand ...)
> inSumme = in1 + in2
> REM Das Rechenergebnis wird in dem Feld "Summe" ausgegeben
> oFeld.BoundField.updateInt("inSumme")
> END SUB
>
> Dieses Makro packst Du an die Textfelder "Eingabe1" und "Eingabe2", in die
> Du
> etwas eingeben willst, vermutlich am günstigsten an die Eigenschaft "Bei
> Fokusverlust".
>
> Gruß
>
> Robert
Gruß
Marko
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
>
>
>
--
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
