ReciprocalRoleName (Instance)

function ReciprocalRoleName(const iRoleListName:string):string;

//Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor;
//Création d'un curseur afin de retourner tous les objets de la session quelque
//soit le type de la session et des objets de la session.
var
  vClassName : String;
  vCursor    : TCursor;
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
  //car nous avons un rôle liste ImportDonneeList et le rôle réciproque référençant le parent SessionImportation.
  vCursor.Where := 'oid' + aSession.ReciprocalRoleName('ImportDonneeList') +'=%1';
  vCursor.ArgCount := 1;
  vCursor.Args[1] := aSession.instanceoid;
  vCursor.Nolock := True;
  vCursor.Descendants := True;
 
  result := vCursor;   
end;