CreateViews (role)

De Wiki1000
Révision datée du 26 juillet 2009 à 16:41 par Syfre (discussion | contributions) (Nouvelle page : <source lang='delphi'>function CreateViews(const iRefRole,iWhereSQL,iWhereObject,iOrderBy:string; iDescendants:Boolean; iKeepSourceObjects:Boolean; iMaxInstances:Integer; const iArgs...)
(diff) ← Version précédente | Voir la version actuelle (diff) | Version suivante → (diff)

<source lang='delphi'>function CreateViews(const iRefRole,iWhereSQL,iWhereObject,iOrderBy:string; iDescendants:Boolean; iKeepSourceObjects:Boolean; iMaxInstances:Integer; const iArgs:Array of Variant)</source>

Cette fonction crée des objets dans un rôle liste référençant une classe non persistante (NP) ayant une référence (R) sur une classe métier persistante (P).

Result Le nombre d'objets créées.
iRefRole Nom du role référence (R) sur la classe persistante (P) dans la classe non persistante référencée (NP).
iWhereSQL Expression objet principale.

Cette expression sera appliquée sur la classe métier persistante (P).

iWhereObject Expression objet appliquée sur les objets vérifiant l'expression principale.

Cette expression sera appliquée sur les objets de la classe métier persistante (P) vérifiant l'expression principale.

iOrderBy Ordre de tri.
iDescendants Inclure les classes descendantes.
iKeepSourceObject Conserver les objets sources (P) dans la référence créée (NP).
iMaxInstances Nombre d'instance maximale à créer.
iArgs Tableau d'argument des expressions.

Exemple <source lang='delphi'> //Procedure CreationVueDetailEngagement; var

 vWhere : String;
 vObjWhere : String;

begin

 // DetailEngagementList : List of TVueDetailEngagement.
 // TVueDetailEngagement.DetailEngagement : Reference to TDetailEngagement 
 //
 DetailEngagementList.BeginUpdate;
 DetailEngagementList.RemoveAll;
 try
   // initialize criterias
   vWhere := ....;
   vObjWhere := ...;
   //
   DetailEngagementList.CreateViews('DetailEngagement', 
                           vWhere,
                           vObjWhere,
                           'Date',    //order by date
                           False,     //no descendants
                           False,     //don't keep objects
                           -1,        //load all instances
                           [...]);
 finally
   DetailEngagementList.EndUpdate;
 end;

end;</source>

Voir aussi

{{#if:Rôles (tech)|

{{#if:Rôles (tech)|— Rôles (tech) |}} — Développement DSM

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM

}}