ReciprocalRoleName (Instance) - Historique des versions

Tdymon le 23 décembre 2011 à 14:22

2011-12-23T14:22:34Z

Tdymon le 23 décembre 2011 à 14:21

2011-12-23T14:21:47Z

Tdymon le 23 décembre 2011 à 14:17

2011-12-23T14:17:40Z

Tdymon le 23 décembre 2011 à 14:16

2011-12-23T14:16:48Z

Tdymon : Page créée avec « function ReciprocalRoleName(const iRoleListName:string):string; Cette fonction retourne le nom du rôle réciproque en fonction du nom du rôl… »

2011-12-23T13:37:26Z

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… »

Nouvelle page

<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ôle liste

{|class="wikitable"
|-
|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
<source lang='delphi'>
{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;
</source>

Voir aussi

{{Footer|Objets métiers (tech)}}
[[category:Objets métiers]]

@@ Ligne 28 : / Ligne 28 : @@
    //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.Where := 'oid' + aSession.ReciprocalRoleName('ImportDonneeList') +'=%1';
    vCursor.ArgCount := 1;
    vCursor.Args[1] := aSession.instanceoid;

@@ Ligne 15 : / Ligne 15 : @@
 <source lang='delphi'>
 //Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor;
 var
    vClassName : String;
@@ Ligne 25 : / Ligne 27 : @@
    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';
+  //car nous avons un rôle liste ImportDonneeList et le rôle réciproque référençant le parent SessionImportation.
    vCursor.ArgCount := 1;
    vCursor.Args[1] := aSession.instanceoid;

@@ Ligne 17 : / Ligne 17 : @@
 var
    vClassName : String;
 begin
    //Recherche du nom de la classe enfant
    vClassName := aSession.RoleClassName('ImportDonneeList');