OpenOffice.info

SUB Datum_aktuell
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM unoDate
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("MainForm") 
	oFeld = oForm.getByName("datDatum")
	IF isEmpty(oFeld.Date) = 0 THEN 	
		unoDate = createUnoStruct("com.sun.star.util.Date")
		unoDate.Year = Year(Date)
		unoDate.Month = Month(Date)
		unoDate.Day = Day(Date)
		oFeld.BoundField.updateDate(unoDate)
	END IF
END SUB

Hallo Gernot,

Base behandelt Defaultwerte und Standardwerte der GUI unterschiedlich. Default-Werte werden in der Datenbank definiert und springen dann ein, wenn ein neuer Datensatz abgespeichert wird, aber keinen Wert für das entsprechende Feld erhält. Standardwerte der GUI sind bei einer Eingabe direkt im Feld sichtbar, müssen also auch gegebenenfalls gelöscht werden.
Du möchtest den Datumswert vorher sehen, bevor er in die Tabelle eingefügt wurde? Das geht dann mit dem folgenden Makro:
[code]
SUB Datum_aktuell
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM unoDate
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("MainForm")
oFeld = oForm.getByName("datDatum")
IF isEmpty(oFeld.Date) = 0 THEN
unoDate = createUnoStruct("com.sun.star.util.Date")
unoDate.Year = Year(Date)
unoDate.Month = Month(Date)
unoDate.Day = Day(Date)
oFeld.BoundField.updateDate(unoDate)
END IF
END SUB
[/code]
Das Formular dazu wurde mit dem Assistenten erstellt. Deshalb die entsprechenden Bezeichnungen des Formulars und des Datumfeldes.

Gruß

Robert

Hallo,
da liegst Du falsch.
[quote="F3K Total"]In dem [color=#FF0000]Augenblick[/color], in dem du einen neuen Datensatz [color=#FF0000]speicherst[/color], wird das aktuelle Datum gesetzt[/quote]
Einfach kein Datum eintragen, Datensatz speichern. Geht definitiv im Formular genauso.
Gruß R

Danke R,

wenn ich direkt auf der Datenbank arbeite klappt das. Aber um einigermaßen komfortabel Belege inkl. Positionen zu erfassen habe ich ein Formular. Und das berücksichtigt leider nicht diesen Defaultwert :(
Weitere Vorschläge?

Grüße,
Gernot

Alter table "Tabelle1" alter column "Datum" set default current_date

Genot,
dafür benötigbst du kein Makro. Die interne HSQL Datenbank kann das selber.
Angenommen deine Tabelle zur heißt [color=#0040FF]Tabelle1[/color], die Spalte, in der das Datum stehen soll, heißt [color=#0040FF]Datum[/color], dann
gib einmalig unter Extras/SQL ... diesen Befehl ein:
[code]Alter table "Tabelle1" alter column "Datum" set default current_date[/code]
In dem Augenblick, in dem du einen neuen Datensatz speicherst, wird das aktuelle Datum gesetzt, es ist überschreibbar.

Gruß R

Hallo,
ich habe eine OO Datenbank in der ich Belege erfasse. Um Dinge besser nachvollziehen zu können, ist ein Feld das Erfassungsdatum - welches ich momentan bei jedem neuen Beleg von Hand fülle :?
Das muss doch besser gehen. Soweit ich verstehe sind dafür Makros zuständig, oder? Wie kann ich entweder an der Tabelle oder im Formular ein Makro eintragen, welches das Feld Erfassungsdatum mit dem aktuellen Tag füllt, [b]sofern es leer ist[/b] (damit bei der Korrektur an alten Belegen das Datum nicht wieder überschrieben wird).
Hier im Forum bin ich noch nicht fündig geworden. Wer kann mir helfen - gerne auch mit einem Link zum relevanten Teil der Doku.

Danke,
Gernot