ExistsObjectsWhere (exp)

<source lang='delphi'>function ExistsObjectsWhere(iClassName:string; iExpression:string):Integer;</source>

Retourne 1 si il existe au moins un objet de iClassName vérifiant iExpression; retourne 0 sinon.

Exemples :

Utilisation de ExistsObjectWhere pour charger des objets dans une liste <source lang='delphi'> var aList:TConstitutionSectionGCList; begin

 aList := TConstitutionSectionGC.CreateList;
 aList.AddWhere('ExistsObjectsWhere(TIdentificationCentreGC,(oidConstitutionSectionGC=self.oid) and (identificationCentreNF<>%1))',,,True,-1,[]);
 for idx := 0 to aList.count-1 do
 begin
 end;

end; </source>

Dans cet exemple la liste est chargée des objets de TConstitutionSectionGC pour lesquels il existe au moins une TidentificationCentreGC dont l'identificationCentreNF est non vide.

Notez :

• Le doublage des quotes nécessaires pour les arguments de ExistObjectsWhere
• L'utilisation de self pour faire référence au contexte de TConstitutionSectionGC dans la requête sur les TIdentificationCentreGC.

Utilisation de ExistsObjectWhere pour rechercher un objet <source lang='delphi'> //procedure RegleAlerte_EtatMetierList:boolean; var obj:TEtatPossible; begin

 //...
 obj := ClassManager.FindObject(
                        'TEtatPossible',
                        '(oidCircuitValidation = %1) and (ExistsObjectsWhere(TEtatEngagement,(oid = self.oidEtatMetier) and (autorisePropositionAchat = True)))',
                        'ordre',True,
                        [instanceOID]);

end; </source>

Dans cet exemple un objet de TEtatPossible ayant comme circuit de validation l'objet courant et pour lequel il existe au moins un TEtatEngagement pour lequel autorisePropositionAchat est vrai.

Voir aussi:

{{#if:Expressions objets (code)|

{{#if:Expressions objets (code)|— Expressions objets (code) |}} — Développement DSM —

|

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

}}