ExistsObjectsWhere (Instance)

function ExistsObjectsWhere(const iClassName:string; const iExpression:string):Boolean;

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

{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;

Voir aussi

— Objets métiers (tech) — Développement DSM —