Abschreibungsdatensätze auf verbucht setzen

Mit "Formel anwenden" können nachträglich manuell erfasste und früher bereits erfolgte Abschreibungen auf Anlagen (z.B. beim Neuaufsetzen der Anlagenbuchhaltung) auf verbucht gesetzt werden.

Script dazu:

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