RoleClassName (Instance)

function RoleClassName(const iRoleName:string):string;

Cette fonction retourne la classe référencée par un rôle.

Result	Le nom de la classe référencée par le rôle.
iRoleName	Un nom de rôle.

Exemple

{Procedure _AffecterRole(aObjetDest:TitObject; aRoleName:String; aRoleSuffixe:String; aValeurRecherche:String);}
var
  vClassName : String;
  vSearchObj : TitObject;
begin
  // Ce code affecte dynamiquement un rôle référence 
  //
  // Retrouve la classe référencée par le rôle
  vClassName := aObjetDest.RoleClassName(aRoleName);
  
  // Recherche l'objet de la classe du rôle a affecté suivant les critères
  vSearchObj := ClassManager.FindObject(vClassName,'('+aRoleSuffixe+'=%1)','',True,[aValeurRecherche]);

  // Affecte l'objet retrouvé au rôle.
  if Assigned(vSearchObj) then aObjetDest.PropAsVariant('oid'+aRoleName) := vSearchObj.oid;
end;

Voir aussi

— Objets métiers (tech) — Développement DSM —