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])