AfAPlan()
AfAPlan() – Abschreibungsplan eines Anlagegutes (FiBu)
Die Funktion liefert den Abschreibungsplan eines Anlagegutes in Form eines Arrays. Das Array beinhaltet die
AfA-Werte für die einzelnen Geschäftsjahre während des Abschreibungszeitraumes.
Hinweis
Funktion ist nur im Rahmen der FiBu einsetzbar.
Der Aufruf dieser Funktion kann auch mit einem Inventar-Datensatz als erstem Parameter erfolgen (s. unten Variante 2).
In diesem Fall werden alle Parameter dem Datensatz entnommen.
Bei Verwendung von Aufruf-Variante 1 müssen die Parameter entsprechend der AfA-Art gefüllt werden (s. Parameterliste).
Mehrere Parameter übergeben Werte als Arrays, wobei ein Element des Arrays meist einem Geschäftsjahr entspricht.
Die Anzahl der Array-Elemente ergibt sich nicht zwangsläufig aus dem Parameter nAfAJahre, denn Geschäftsjahre können auch
Rumpfgeschäftsjahre sein (verkürztes GJ) . Weiterhin muss berücksichtigt werden, dass bedingt durch den Parameter dAfADat
im ersten und letzten Jahr der AfA evtl. nur anteilig abgeschrieben werden kann, wodurch das Array um ein weiteres Element
vergrößert werden muss. Zur Berechnung der Array-Länge siehe auch Funktion AfAGJahrTab().
Parameter | Beschreibung |
---|---|
uAfAArt:U | Variante 1: Abschreibungsart |
nAHKosten:N | Anschaffungs- / Herstellungs-Kosten |
dAfADat:D | Anfangsdatum des Abschreibungszeitraumes |
nAfAJahre:N | Dauer der Abschreibung in Kalenderjahren |
nRestWert:N | Restwert des Anlagegutes zum Ende des Abschreibungszeitraumes |
nDegProz:N | Prozentsatz der degressiven Abschreibung |
lDegLin:L | automatischer Wechsel von degressiver zu linearer AfA |
dUebDat:D | Datum der Übernahme des Anlagegutes |
nUebWert:N | Buchwert des Anlagegutes zum Zeitpunkt der Übernahme |
nLeistGes:N | Gesamtleistung bei leistungsbezogener AfA |
aLeistTab:A | Array mit Angaben zur Leistung je Geschäftsjahr; es wird nur die anteilige Leistung an nLeistGes je GJ übergeben |
aManuTab:A | Array mit Angaben zur manuellen AfA je Geschäftsjahr; eine Element besteht aus AfA-Betrag und Anmerkung; ein AfA-Betrag von Null bewirkt, dass in diesem GJ mit Normal-AfA gerechnet wird |
nSoAJahre:N | Sonder-AfA; Anzahl der Jahre; muss der Anzahl der Elemente in aSoATab entsprechen |
aSoATab:A | Array mit Angaben zur Sonder-AfA je Geschäftsjahr; eine Element besteht aus Prozentsatz und AfA-Betrag |
nGAbProz:N | Prozentsatz Gebäude-AfA bei linearer Abschreibung |
aGAbTab:A | Array mit Angaben zur degressiven Gebäude-AfA; ein Element enthält Anzahl der Geschäftsjahre und den Prozentsatz der AfA |
aBewegTab:A | Array mit Angaben zu Anlagenbewegungen |
aEBTab:A | Array mit Angaben zur Eröffnungsbilanz |
lRedBem:L | Restwert reduziert Bemessungsgrundlage |
nGAbRProz:N | Prozentsatz der AfA nach Ablauf der regulären degressiven Gebäude-AfA (s. aGAbTab) |
dAbgDat:D | Datum des Vollabgangs |
nSonderPlan:N | Erstellt für die AfA-Art 'Leistung' im Modus safaLeistOhneLin einen AfA-Plan ohne Berücksichtigung des automatischen Übergangs von Leistungs-AfA zur linearen AfA bei Unterschreitung des linearen Wertes. |
dGJBeginn:D | Beginn des aktuellen Geschäftsjahres; falls angegeben, wird der AfA-Plan unter Berücksichtigung dieses Datums erstellt, sonst mit dem aktuellen GJ aus den FiBu-Parametern |
Rückgabewert
Array mit AfA-Werten je Geschäftsjahr
Ein Array-Element besteht aus:
01. lfd. Nr. des Jahres
02. Text zum GJ
03. Buchwert zu Beginn des GJ
04. Zugang und Abgang saldiert
05. AfA-Summe im GJ
06. kumulierte AfA bis GJ
07. Buchwert am Ende des GJ
08. Art der Berechnung
09. Zusatzinfos
10. vor Übernahme (Kennzeichen, dass hier keine Berechnung stattfand)
11. Soll-AfA im GJ
12. Summe der periodisch gebuchten AfA im GJ (tatsächliche Buchungen)
13. Summe außerplanmässigen AfA im GJ
14. Summe sonst. AfA im GJ
15. Anzahl der buchbaren Perioden im GJ
16. Anteil der Sonder-AfA
Beispiel
// Berechung des AfA-Plans eines Wirtschaftgutes mit Anschaffungskosten von € 5000,--
// bei einer AfA-Laufzeit von 8 Jahren und einem Restwert von € 1,-- ab dem aktuellen
// Datum
| aPlan, nAHKosten, nJahre, nRestWert, i |
nAHKosten := 5000,
nJahre := 8,
nRestWert := 1,
aPlan := AfAPlan(afa_Linear, nAHKosten, Date(), nJahre, nRestWert),
For i := 1 to ALen(aPlan) do
WriteLn(aPlan[i])
Next