Lohnanteil im Rechnungsfuß ausgeben 35a

In der Sektion Fußzeile der Positionstabelle eine Zeilendefinition integrieren.
Diese sollen angezeigt werden, wenn im Adressenstamm Datenfeld Selekt2 das Wort Privat  enthalten ist.

Zeilendefinition –>  LohnAnteileinfach select2 privat
Eigenschaft  –> Darstellungsbedingungen
 @_Lohn35a = „J“ .and. Lastpage () .and. contains(selekt2,’rivat‘) .and. Contains(AusdruckArt,“R“) .and. AusdruckArt<>“AR“ .and. Val(@LohnanteilNetto)<>0 .and. @SteuerSatzBruttorechnung=““
Inhalt–>
if( @SteuerSatzBruttorechnung=““ ,
/*Rechnung plus MWSt*/
„Hinweis lt. § 35a EStG: Diese Rechnung enthält Lohnkosten in Höhe von “ + @LohnanteilNetto +
“ plus einer hierauf ¶entfallenden Mehrwertsteuer (“ + if(@SteuerSatz=““,“0″,@SteuerSatz) + “ %) von “ +
if(fGesNetto=@LohnanteilNetto, fMwSt,LocCurrL$(Round(Val(StrSubst$(@LohnanteilNetto,“.“,““))*Val(@SteuerSatz)/100,2))) +
„, ergibt zusammen einen Gesamtanteil von “ +
if(fGesNetto=@LohnanteilNetto, LocCurrL$(Val(StrSubst$(fGesNetto,“.“,““)) +Val(StrSubst$(fMWSt,“.“,““))) ,LocCurrL$( (Round(Val(StrSubst$(@LohnanteilNetto,“.“,““))*Val(@SteuerSatz)/100,2)) +Val(StrSubst$(@LohnanteilNetto,“.“,““)))+“.“) ,

/*Bruttorechnung*/
„Hinweis lt. § 35a EStG: Diese Rechnung enthält Lohnkosten in Höhe von “ +
LocCurrL$( Val(StrSubst$(@LohnanteilNetto,“.“,““)) – Round(Val(StrSubst$(@LohnanteilNetto,“.“,““)) / (1 + Val(@SteuerSatzBruttorechnung)/100) * Val(@SteuerSatzBruttorechnung)/100,2)) +
“ plus einer hierauf ¶entfallenden Mehrwertsteuer (“ + if(@SteuerSatzBruttorechnung=““,“0″,@SteuerSatzBruttorechnung) + “ %) von “ +
LocCurrL$(Round(Val(StrSubst$(@LohnanteilNetto,“.“,““)) / (1 + Val(@SteuerSatzBruttorechnung)/100) * Val(@SteuerSatzBruttorechnung)/100,2)) +
„, ergibt zusammen einen Gesamtanteil von “ + @LohnanteilNetto +“.“ )