Bereinigung von Restwerten

Es kann sein, dass die detaillierten Restwertangaben in den Abschreibungsdatensätze nicht mit dem korrekten Restwert der Anlage übereinstimmen.
Materiell ist der Anlagerestwert korrekt. Um die detaillierten Restwerte richtig zu stellen, kann dies mit der nachstehenden Formel berichtigt werden.

Beispiel

Formel

auf den markierten Datensatz anwenden
UNLOAD RECORD([r3_Abschreibung])
REDUCE SELECTION([r3_Abschreibung];0)
READ WRITE([r3_Abschreibung])
C_REAL(r_1;r_2;r_3)
r_1:=[s0_Anlage]s_Anschaffungswert__FiBu
r_2:=[s0_Anlage]s_Anschaffungswert__BeBu
r_3:=[s0_Anlage]s_Anschaffungswert__Steuer
QUERY([r3_Abschreibung];[r3_Abschreibung]m_Anlage=[s0_Anlage]i_ID)
ORDER BY([r3_Abschreibung];[r3_Abschreibung]s_Valutadatum;>;[r3_Abschreibung]i_ID;>) //ascending
C_LONGINT(l_Counter)
For (l_Counter;1;Records in selection([r3_Abschreibung]))
GOTO SELECTED RECORD([r3_Abschreibung];l_Counter)
[r3_Abschreibung]s_Vorwert__FiBu:=r_1
[r3_Abschreibung]s_Vorwert__BeBu:=r_2
[r3_Abschreibung]s_Vorwert__Steuer:=r_3
[r3_Abschreibung]s_Restwert__FiBu:=Round([r3_Abschreibung]s_Vorwert__FiBu-[r3_Abschreibung]s_Abschreibung__FiBu;2)
[r3_Abschreibung]s_Restwert__BeBu:=Round([r3_Abschreibung]s_Vorwert__BeBu-[r3_Abschreibung]s_Abschreibung__BeBu;2)
[r3_Abschreibung]s_Restwert__Steuer:=Round([r3_Abschreibung]s_Vorwert__Steuer-[r3_Abschreibung]s_Abschreibung__Steuer;2)
SAVE RECORD([r3_Abschreibung])
r_1:=[r3_Abschreibung]s_Restwert__FiBu
r_2:=[r3_Abschreibung]s_Restwert__BeBu
r_3:=[r3_Abschreibung]s_Restwert__Steuer
End for
UNLOAD RECORD([r3_Abschreibung])
REDUCE SELECTION([r3_Abschreibung];0)
READ ONLY([r3_Abschreibung])