Abschreibungsflag setzen

Beim Initialieren der Anlagebuchhaltung werden bisherige Anlagen und deren Abschreibungen nacherfasst, um eine Übersicht über die bisherigen Abschreibungen und Restwerte zu erhalten.
Damit die manuell nachgetragenen Abschreibungen auf verbucht gesetzt werden können, ist folgende Formel auf die markierten Anlagen anwendbar:
Query([r3_Abschreibung];[r3_Abschreibung]m_Anlage=[s0_Anlage]i_ID)
SRGanzzahl01:=Records in selection([r3_Abschreibung])
C_LONGINT(l_Anzahl)
For(l_Anzahl;1;SRGanzzahl01)
GOTO SELECTED RECORD([r3_Abschreibung];l_Anzahl)
READ WRITE([r3_Abschreibung])
[r3_Abschreibung]m_Finanzjahr__FiBu:=Finanzjahr_ID_Get ([s0_Anlage]m_Betrieb;0;[r3_Abschreibung]s_Valutadatum)
[r3_Abschreibung]s_Ist__verbucht__FiBu:=True
[r3_Abschreibung]s_Ist__verbucht__BeBu:=True
SAVE RECORD([r3_Abschreibung])
End For
ALERT(string(SRGAnzzahl01)+” Abschreibungen wurden auf verbucht gesetzt”)