Hallo,

zum einen könnte man in der Untertabelle die Felder Tilgung und Zinszahlung als Berechnungsfelder dynamisch halten, je nach Datenmenge könnte die damit entstehende Vielzahl von Berechnungsfeldern sich dann allerdings irgendwann negativ auf die Performance auswirken (auch wenn ich's bisher noch nicht wirklich so weit gebracht habe :-).

Eine Alternative wäre, die Datensätze der Untertabelle nach Eingabe einer Sondertilgung per Skript anzupassen. Also in einem ersten Schritt alle vorhandenen Tilgungsdatensätze mit Datum nach der Sonderzahlung löschen und im zweiten Schritt gemäß der geänderten Bedingungen neu erstellen zu lassen.

lg, Torsten

Hallo Frederik,

das sollte prinzipiell kein Problem sein. In Unkenntnis des Datenmodells fällt's etwas schwer, einen brauchbaren Code vorzulegen. Gibt's die Möglichkeit, Deine DB-Version mit Spieldaten zu bekommen?

lg, Torsten

Hallo Frederik,

das ist doch mal ein Anfang - genau so etwas meinte ich das. Magst Deinen Ansatz zum Download zur Verfügung stellen?

lg, Torsten

Hallo Frederik,

wunderbar.

Kurzes Update:

Den Restschuldvortrag automatisch berechnen geht offensichtlich nicht, weil das Feld ja zur Ermittlung der Tilgung herangezogen wird, welche wiederum Einfluss auf den Restschuldvortrag hat. Ninox verweigert wegen der "circular reference" den entsprechenden Code. (Danke an dieser Stelle an Leo, der das mit mir gemeinsam heute erkundet/gestestet hat).

Die Lösung ist, den Vortrag a) beim Erstellen des Tilgungsplans berechnen zu lassen und b) bei Ergänzung durch Sondertilgung entsprechend zu aktualisieren. den Teil a) habe ich bereits implementiert, an Teil b) bin ich dran, kann aber noch was dauern...

lg, Torsten

Hallo Frederik,

https://www.dropbox.com/s/0ti5l2ux6jru62c/Immobilien3.ninox?dl=0

Der Button "Tilgungsplan erstellen" ist nur zu Beginn verfügbar, das dortige Skript müsste ggfls. um einen Starttermin ergänzt werden - im Moment nehme ich den nächsten Monatsersten an.

Die Überträge sollten sich automatisch aktualisieren, sobald sich im Datensatz des Kapitaldienstes etwas ändert.

Probier's mal aus und lass mich wissen, ob's so passt...

lg, Torsten

Hallo Frederik,

vielen Dank für die Rückmeldung.

lg, Torsten

Hallo Frederik,

ich habe Deine DB gerade mal importiert und einen Tilgungsplan erstellen lassen - bei mir driftet nichts weg:

Ich nutze die NinoxCloud in der MacApp - das "do as server ... end" sorgt dafür, dass das Script auf dem Ninox-Server direkt läuft. Den Effekt des Wegdriftens hatte ich bei dem Script, welches in der Tabelle Kapitaldienst den Tilgungsplan aktuell hält (waren immer nur ein paar Cent) - das habe ich mit "order by Datum" in den Griff bekommen. DAS Problem hast Du ja aber beim erstmaligen Erstellen des Tilgungsplans noch gar nicht bzw. das Skript arbeitet sich ja eh im Datum nach vorne.

lg, Torsten

Axo, die Excel hab ich mir nicht angeschaut, sorry - hab 'ne gewisse Antipathie fremden .xls gegenüber... :-)

Hallo Frederik,

Deine Erfahrung kann ich bestätigen - ich hatte die DB zwar in der MacApp, dort aber in der NinoxCloud liegen. Dort lief die Schleife ohne "do as server" wie bei Dir nicht vollständig durch... :-/

Woran das konkret liegt, oder ob bzw. wie man dem sonst entgegenwirken kann, kann ich leider nicht sagen, da müsste der Ninox-Support vielleicht mal draufschauen.

Hilfsweise könnte man dem Skript im Button als Schleifenstart, wenn bereits Datensätze im Tilgungsplan vorhanden, das letzte Datum +1 Monat - oder - wie gehabt den Tilgungsbeginn übergeben. Also sowas wie:

let myDate := if Kapitaldienst then let myLast := max(Kapitaldienst.Datum);date(year(myLast),month(myLast)+1,day(myLast)) else date(year(Tilgungsbeginn), month(Tilgungsbeginn), day(Tilgungsbeginn));

So sollte er nach weiterem Drücken den Tilgungsplan ergänzen, falls noch nicht vollständig...

lg, Torsten

do as server
let my := this;
let myDate := date(year(Tilgungsbeginn), month(Tilgungsbeginn), day(Tilgungsbeginn));
while myDate <= 'Ende der Zinsbindung' do
let myNew := (create Kapitaldienst);
myNew.(
Datum := myDate;
Darlehen := my;
'Kapitaldienst dieser Monat' := my.'Monatliche Rate';
RestschuldVorperiode := my.Nettodarlehensbetrag - sum(my.Kapitaldienst[Datum <= myDate].'Tilgung dieser Monat') - sum(my.Kapitaldienst[Datum <= myDate].Sondertilgung)
);
myDate := date(year(myDate), month(myDate) + 1, day(myDate))
end

end

Hallo! 

Ich habe den o. g. Code in der Beispiel-Datenbank verwendet. und kann auch einen Annuitätenplan erzeugen. Allerdings ändert sich das Datum nach ca. 4 Jahren vom Monatsultimo auf den 2. des Folgemonats.

Hat einer eine Idee?

Interessant wäre auch noch, wenn der Zahlungsplat mit einer vierteljährlichen Fälligkeit erzeugt werden kann.

Hallo zusammen,

ich komme mit dieser Formel gut klar, um eine Annuität zu berechnet, sofern die monatlichen Raten gleich hoch bleiben, ist ja auch eigentlich das Wesen einer Annuität.

do as server
    let my := this;
    let myDate := date(year(Tilgungsbeginn), month(Tilgungsbeginn), day(Tilgungsbeginn));
    for i in range(0, number(Laufzeit)) do
        let myNew := (create Kapitaldienst);
        myNew.(
            Datum := myDate;
            Darlehen := my;
            'Kapitaldienst dieser Monat' := my.'Monatliche Rate';
            RestschuldVorperiode := my.Nettodarlehensbetrag -
                sum(my.Kapitaldienst[Datum < myDate].'Tilgung dieser Monat') -
                sum(my.Kapitaldienst[Datum < myDate].Sondertilgung)
        );
        myDate := date(year(myDate), month(myDate) + 1, day(myDate))
    end
end

Aber wie muss ich das Skript ändern, wenn lediglich die 1. Rate sich von den Folgeraten unterscheidet? Ich habe Probleme diese zusätzliche Info und die Schleife so anzuordnen, dass der Zahlungsplan erstellt wird.