ReciprocalRoleName (Instance)

function ReciprocalRoleName(const iRoleListName:string):string;

//Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor;
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
  vCursor.Where := 'oid%' + aSession.ReciprocalRoleName(aRoleListName) +'=%1';
  vCursor.ArgCount := 1;
  vCursor.Args[1] := aSession.instanceoid;
  vCursor.Nolock := True;
  vCursor.Descendants := True;
 
  result := vCursor;   
end;