ExistsObjectsWhere (Instance)

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

Cette fonction teste si il existe des objets d'une classe vérifiant une expression.

Result	True si il existe des objets de la classe vérifiant l'expression.
iClassName	Nom de la classe
iExpression	Expression objet que doivent vérifier les objets.

Note : Cette fonction est présente à ce niveau du fait de son utilisation dans les expressions objets.

Exemple <source lang='delphi'> {Procedure SetEtatSuivant(aOidContactEtablissement:String);} begin

 if ClassManager.TranCount=0 then Exit;

 if (aOidContactEtablissement=) or (oidRegleValidationDetail=) or (estValide) then Exit;

 //S'assurer d'abord que le valideur est autorisé
 if not ExistsObjectsWhere('TValideurPossible',
                           '(ValidationEtat.oidRegleValidation = +oidRegleValidationDetail+) and '+
                           '(oidContactEtablissement = +aOidContactEtablissement+) and '+
                           '(ValidationEtat.EtatPossible.oidEtatMetier =+ oidEtatNF+)'
                           ) then Exit;
 ...

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 —

}}