CreateViews (role)
function CreateViews(const iRefRole,iWhereSQL,iWhereObject,iOrderBy:string; iDescendants:Boolean; iKeepSourceObjects:Boolean; iMaxInstances:Integer; const iArgs:Array of Variant)
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
//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;
Voir aussi