Date: prev next · Thread: first prev next last
2014 Archives by date, by thread · List index


Hallo Robert,

das ist ja ganz toll, danke. Als "Dummy" habe ich aber immer noch eine Frage.
Hat die Numerierungsbezeichnung oFeld2, oFeld3, oFeld99 unten in Deinem Beispielsmakro irgendeine Bedeutung für die Auswahl des Feldes, müßte ich also die Felder (wenn ja, wo) auszählen, welches Feld1 oder Feld 4 ist?
Jürgen


REM  *****  BASIC  *****

SUB Berechnung_ohne_MWSt(oEvent AS OBJECT)
        oFeld = oEvent.Source.Model
        oForm = oFeld.Parent
        oFeld2 = oForm.getByName("Preis_ohne_MWSt")
        oFeld2.BoundField.UpdateDouble(oFeld.getCurrentValue / 1.19)
END SUB

SUB Berechnung_gesamt(oEvent AS OBJECT)
        oFeld = oEvent.Source.Model
        oForm = oFeld.Parent
        oFeld2 = oForm.getByName("Preis")
        oFeld3 = oForm.getByName("Preis_gesamt_mit_MWSt")
        oFeld4 = oForm.getByName("MWSt_gesamt")
        oFeld3.BoundField.UpdateDouble(oFeld.getCurrentValue * oFeld2.getCurrentValue)
oFeld4.BoundField.UpdateDouble(oFeld.getCurrentValue * oFeld2.getCurrentValue - oFeld.getCurrentValue * oFeld2.getCurrentValue / 1.19)
END SUB

Am 19.02.2014 19:16, schrieb Robert Großkopf:
Hallo Jürgen,

hier ist das Beispiel:
http://robert.familiegrosskopf.de/lo_hb_dev/
Eine Tabelle, eine Abfrage, in der Berechnungen gemacht werden (damit
die Werte direkt im Formular sichtbar sind und auch richtig in die
Felder geschrieben werden können), ein einfaches Formular.
In zwei Felder des Formulars sind die Makros eingebaut, gebunden an das
Verlassen des Feldes.
Die Reihenfolge der Felder ist so gesetzt, dass nicht gerade das letzte
Feld ein Feld ist, aus dem eine Berechnung erfolgen soll.

Gruß

Robert




--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.