Syfre : Nouvelle page : function ExistsObjectsWhere(const iClassName:string; const iExpression:string):Boolean; Cette fonction teste si il existe des objets d'une classe vér...

2009-07-25T09:36:52Z

Nouvelle page : <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ér...

Nouvelle page

<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.

{|class="wikitable"
|-
|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.
|}

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

{{Footer|Objets métiers (tech)}}
[[category:Objets métiers]]

ExistsObjectsWhere (Instance) - Historique des versions

Syfre : Nouvelle page : function ExistsObjectsWhere(const iClassName:string; const iExpression:string):Boolean; Cette fonction teste si il existe des objets d'une classe vér...

Syfre : Nouvelle page : function ExistsObjectsWhere(const iClassName:string; const iExpression:string):Boolean; Cette fonction teste si il existe des objets d'une classe vér...