Domino 9 und frühere Versionen > ND8: Entwicklung

Verschachtelte Gruppen auflösen

<< < (2/2)

botschi:
Das ist ja aber genau das, was ich wollte...! Die Anzahl der Personen in den verschachtelten Gruppen.
Ich habs jetzt so gemacht, müsste eigentlich tun

--- Code: ---grp := gruppe;
ndb := @ServerName:"names.nsf";
vfield:=@IfError(@DbLookup("":"nocache";ndb;"($VIMGroups)";grp;"Members");
"Falsch");
REM {Store result here};
resultList:="";
REM {List of processed groups to avoid infinite loops};
processGroups:="";
counter:=0;
@While(@Trim(vfield)!= "";
 allv := @Trim(vfield);
 current := allv[1];

 type := @NameLookup([NoUpdate];current;"Type");
 @If( @LowerCase(type)="group";
  @Do(
   add:= @If( @IsMember(current;processGroups);
      "";
      @IfError(@DbLookup("":"nocache";ndb;"
($Users)";current;"Members");current));
   @If(@Trim(add)="";
    resultlist:=resultlist:add;
    add=current;
    resultlist:=resultlist:add;
    resultList:=@Replace(resultList:add;current;"")
   );
   processGroups:=@Trim(processGroups:current);
   vfield:=@Trim(@Replace(allv;current;""):add)
  );
  @Do(
   resultList:=resultList:current;
   vfield:=@Trim(@Replace(allv;current;""))
  )
  );
 @StatusBar(@Text(counter)+" - "+
@Text(@Elements(vfield))+") > " + vfield[1] + "...");
 counter:=counter+1
);
@Trim(@Unique(resultList));
@For(n := 1;n <= 5;n := n + 1;
resultList := @Transform(resultList;"var";

@IfError(@DbLookup("":"NoCache";@ServerName:"names.nsf";"($VIMGroups)"; var; "Members");var)

));

erg := @Elements(@Trim(@Unique(resultList)));
@SetField("ergebnis";erg)
--- Ende Code ---

Matthias

Navigation

[0] Themen-Index

[*] Vorherige Sete