« ReciprocalRoleName (Instance) » : différence entre les versions
(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… ») |
mAucun résumé des modifications |
||
| Ligne 14 : | Ligne 14 : | ||
Exemple | Exemple | ||
<source lang='delphi'> | <source lang='delphi'> | ||
//Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor; | |||
var | var | ||
vClassName : String; | vClassName : String; | ||
Version du 23 décembre 2011 à 14:16
<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
| 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
{{#if:Objets métiers (tech)|
{{#if:Objets métiers (tech)|— Objets métiers (tech) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}