ReciprocalRoleName (Instance)

Tdymon (discuter | contributions)
(Page créée avec « <source lang='delphi'>function ReciprocalRoleName(const iRoleListName:string):string;</source> Cette fonction retourne le nom du rôle réciproque en fonction du nom du rôl… »)
Modification suivante →

---

Version du 23 décembre 2011 à 15:37

function ReciprocalRoleName(const iRoleListName:string):string;

Cette fonction retourne le nom du rôle réciproque en fonction du nom du rôle liste

Result	Le nom du rôle réciproque de la classe référencée par le rôle.
iRoleListName	Un nom de rôle liste.

Exemple

{Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor;}
var
  vClassName : String;
begin
 
  //Recherche du nom de la classe enfant
  vClassName := aSession.RoleClassName('ImportDonneeList');
 
  //Créer le curseur
  vCursor := ClassManager.CreateCursor(vCursorClass);
  //En déduire l'attribut du rôle réciproque, dans notre cas oidSessionImportation
  vCursor.Where := 'oid%' + aSession.ReciprocalRoleName(aRoleListName) +'=%1';
  vCursor.ArgCount := 1;
  vCursor.Args[1] := aSession.instanceoid;
  vCursor.Nolock := True;
  vCursor.Descendants := True;
 
  result := vCursor;   
end;

Voir aussi

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

Whos here now:   Members 0   Guests 0   Bots & Crawlers 1