BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Open Office Base Datum aus einem Kontrollfeld auslesen

BASE ermöglicht es Ihnen, Ihre Daten in einer Datenbank direkt mit OpenOffice.org zu bearbeiten.
Antworten
Frewer
Beiträge: 2
Registriert: Mi 4. Mär 2020, 18:27

Open Office Base Datum aus einem Kontrollfeld auslesen

Beitrag von Frewer » Mi 4. Mär 2020, 18:54

Hallo,
bin neu hier und auch im Programmieren von StarBasic Makros.
Habe folgende Probleme:
1. Datumabfrage, 2. Währungseingabe
zu 1. Datumabfrage
- Datenbank erstellt mit u.a. einer Zelle "DATUM", in die über das Eingabeformular ein Datum eingegeben wird.
- habe ein Eingabeformular in das ich beim "Laden" den letzten Datensatz einlese. Die entsprechende Zelle ist ein Datumsfeld mit dem Namen "fDatum" und der Eigenschaft Datenfeld = DATUM.
Grund ich will eine jahresabhängige lfdNr erstellen d.h. wenn sich das Jahr ändert soll wieder bei 1 begonnen werden.
- habe Makros programmiert, die funktionieren mit Ausnahme des Auslesens des Datums aus dem letzten Datensatz:

SUB Daten ermitteln
DIM oDoc AS OBJECT, oDrawpage AS OBJECT, oForm AS OBJECT, oFeld AS OBJECT
DIM stJahr as Long, stName as Long, intFeld as integer, intJahr as Integer
' DIM unoDate AS NEW com.sun.star.util.Date

oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("Eingabe")
oForm.last 'geht zur letzten Zeile der Datenbank
REM lfdNr auslesen
stName = oForm.findColumn("mlfdnr")
intFeld = oForm.getInt(stName)
!!!!!! bis hierher funktioniert alles, mit intFeld kann ich arbeiten !!!!!!!!!
REM altes Datum auslesen, Jahr ermitteln
stName = oForm.findColumn("Datum") 'ermittle die Spalte
stJahr = oForm.getDate(stName) '!!!! Fehler: Falscher Wert bei Eigenschaft !!!!
msgbox stJahr

REM neue Zeile einfügen
oForm.MoveToInsertRow()

zu 2. Das zweite Problem ist die Eingabe eines Währungsbetrages in ein Währungsfeld. Obwohl ich Währung mit 2 Nachkommastellen ausgewählt habe (Eigenschaften in Datenbank und Eingabeformular) und im Eingabeformular der Währungsbetrag auch korrekt eingegeben und angezeigt wird (zB 23,89€) steht in der Datenbank nur 23,00€.

Was mache ich in beiden Fällen falsch??

Gruß Frewer

Frewer
Beiträge: 2
Registriert: Mi 4. Mär 2020, 18:27

Re: Gelöst! Open Office Base Datum aus einem Kontrollfeld auslesen

Beitrag von Frewer » Fr 6. Mär 2020, 09:50

Probleme sind gelöst.
Frewer

Antworten