ReciprocalRoleName (Instance) - Historique des versions

Tdymon le 23 décembre 2011 à 14:22

2011-12-23T14:22:34Z

← Version précédente		Version du 23 décembre 2011 à 14:22
Ligne 28 :		Ligne 28 :
	//En déduire l'attribut du rôle réciproque, dans notre cas oidSessionImportation		//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.		//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.ArgCount := 1;
	vCursor.Args[1] := aSession.instanceoid;		vCursor.Args[1] := aSession.instanceoid;

Tdymon le 23 décembre 2011 à 14:21

2011-12-23T14:21:47Z

← Version précédente		Version du 23 décembre 2011 à 14:21
Ligne 15 :		Ligne 15 :
	<source lang='delphi'>		<source lang='delphi'>
	//Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor;		//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		var
	vClassName : String;		vClassName : String;
Ligne 25 :		Ligne 27 :
	vCursor := ClassManager.CreateCursor(vCursorClass);		vCursor := ClassManager.CreateCursor(vCursorClass);
	//En déduire l'attribut du rôle réciproque, dans notre cas oidSessionImportation		//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.Where := 'oid%' + aSession.ReciprocalRoleName('ImportDonneeList') +'=%1';
	vCursor.ArgCount := 1;		vCursor.ArgCount := 1;
	vCursor.Args[1] := aSession.instanceoid;		vCursor.Args[1] := aSession.instanceoid;

Tdymon le 23 décembre 2011 à 14:17

2011-12-23T14:17:40Z

← Version précédente		Version du 23 décembre 2011 à 14:17
Ligne 17 :		Ligne 17 :
	var		var
	vClassName : String;		vClassName : String;
			vCursor : TCursor;
	begin		begin

	//Recherche du nom de la classe enfant		//Recherche du nom de la classe enfant
	vClassName := aSession.RoleClassName('ImportDonneeList');		vClassName := aSession.RoleClassName('ImportDonneeList');

Tdymon le 23 décembre 2011 à 14:16

2011-12-23T14:16:48Z

← Version précédente		Version du 23 décembre 2011 à 14:16
Ligne 14 :		Ligne 14 :
	Exemple		Exemple
	<source lang='delphi'>		<source lang='delphi'>
	{Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor;}		//Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor;
	var		var
	vClassName : String;		vClassName : String;

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]]

ReciprocalRoleName (Instance) - Historique des versions

Tdymon le 23 décembre 2011 à 14:22

Tdymon le 23 décembre 2011 à 14:21

Tdymon le 23 décembre 2011 à 14:17

Tdymon le 23 décembre 2011 à 14:16

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

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