Seite 1 von 1

[gelöst] Datum in Rechnungsvorlage automatisch berechnen

Verfasst: Mi, 24.03.2010 14:26
von createc
Hallo,

ich habe folgendes Problem:
In einer Rechnungsvorlage möchte ich das Datum automatisch setzen. Als Datum soll immer der nächste Samstag genommen werden.

Beispiel:
Rechnungserstellung am 22.03.2010 -> Datum nächster Samstag 27.03.2010
Rechnungserstellung am 24.03.2010 -> Datum nächster Samstag auch 27.03.2010
Rechnungserstellung am 28.03.2010 -> Datum nächster Samstag 03.04.2010

Die Möglichkeit das Datum mit Korrektur in Tagen einzusetzen fällt somit leider weg, da ich ja nicht weiß wie viele Tage es bis zum nächsten Samstag sind.
Hat jemand einen Lösungsansatz?

Grüße Jochen

Re: Datum in Rechnungsvorlage automatisch berechnen

Verfasst: Do, 25.03.2010 12:18
von createc
Hallo paljass,

danke erstmal, die Idee ist nicht schlecht. Leider kann ich das in meinem Fall nicht Anwenden. Da es sich um eine Rechnungsvorlage handelt, sollte sich das Datum nach der Erstellung des Dokuments nicht mehr ändern.

Grüße Jochen

Re: Datum in Rechnungsvorlage automatisch berechnen

Verfasst: Do, 25.03.2010 23:41
von createc
OK, ich hab das Problem über ein Makro gelöst, welches ich mit dem Ereignis "neues Dokument" verknüpft habe:

Code: Alles auswählen

sub setRDate
	dim dDate as date
	dim oDoc as object
	dim oSuche as object
	
	dDate = date() - weekday(now()) + 7
	
	oDoc = ThisComponent
	oSuche = oDoc.createReplaceDescriptor()
	oSuche.setSearchString("###RDATE###")
	oSuche.setReplaceString(dDate)
	oDoc.replaceAll(oSuche)
end sub
Jetzt kann man in der Vorlage an belibiger Stelle den Platzhalter ###RDATE### setzen, der dann durch das berechnete Datum ersetzt wird sobald ein neues Dokument aus der Vorlage erzeugt wird.


Grüße Jochen