Zelleinträge nach unten vererben

#Abfrage ob Element berechtigt ist

[‘BerechtigungUebersetzung’]=S:

IF(DB(‘A01 Kostenstellenberechtigung’, !}Groups, !KostenstellenAnalyse, ‘Berechtigung’)@=‘Ja’, ‘READ’, CONTINUE);

#Berechtigung nach unten weiterreichen

#Abfrage ob Vater berechtigt ist

[‘BerechtigungUebersetzung’]=S:

IF(DB(‘A01 Kostenstellenberechtigung’, !}Groups, ELPAR(‘KostenstellenAnalyse’, !KostenstellenAnalyse,1), ‘Berechtigung’)@=‘Ja’, ‘READ’, CONTINUE);

#Abfrage ob Großvater berechtigt ist

[‘BerechtigungUebersetzung’]=S:

IF(DB(‘A01 Kostenstellenberechtigung’, !}Groups, ELPAR(‘KostenstellenAnalyse’, ELPAR(‘KostenstellenAnalyse’, !KostenstellenAnalyse,1), 1), ‘Berechtigung’)@=‘Ja’, ‘READ’, CONTINUE);

#Abfrage ob Ur-Großvater berechtigt ist

[‘BerechtigungUebersetzung’]=S:

IF(DB(‘A01 Kostenstellenberechtigung’, !}Groups, ELPAR(‘KostenstellenAnalyse’, ELPAR(‘KostenstellenAnalyse’, ELPAR(‘KostenstellenAnalyse’, !KostenstellenAnalyse,1), 1), 1), ‘Berechtigung’)@=‘Ja’, ‘READ’, CONTINUE);