ExistsObjectsWhere (exp)
Ligne 2 : | Ligne 2 : | ||
Retourne 1 si il existe au moins un objet de iClassName vérifiant iExpression; retourne 0 sinon. | Retourne 1 si il existe au moins un objet de iClassName vérifiant iExpression; retourne 0 sinon. | ||
+ | |||
+ | Les fonctions CountObjectsWhere et ExistsObjectsWhere utilisent en argument une expression objet qui est elle même évaluée dans le contexte de l'expression qui la contient. Du point de vue SQL ces fonctions génèrent des sous requêtes. L'expression imbriquée peut utiliser les mêmes arguments que l'expression qui la contient et peut faire référence au contexte de l'expression qui la contient en utilisant le mot clé '''self'''. | ||
+ | |||
+ | {{info|Ils existent des fonctions simulaires CountObjectsWhere et ExistsObjectsWhere utilisable dans un contexte d'objets.}} | ||
+ | |||
Exemples : | Exemples : |
Version du 24 décembre 2013 à 11:42
function ExistsObjectsWhere(iClassName:string; iExpression:string):Integer;
Retourne 1 si il existe au moins un objet de iClassName vérifiant iExpression; retourne 0 sinon.
Les fonctions CountObjectsWhere et ExistsObjectsWhere utilisent en argument une expression objet qui est elle même évaluée dans le contexte de l'expression qui la contient. Du point de vue SQL ces fonctions génèrent des sous requêtes. L'expression imbriquée peut utiliser les mêmes arguments que l'expression qui la contient et peut faire référence au contexte de l'expression qui la contient en utilisant le mot clé self.
Note : Ils existent des fonctions simulaires CountObjectsWhere et ExistsObjectsWhere utilisable dans un contexte d'objets. |
Exemples :
Utilisation de ExistsObjectWhere pour charger des objets dans une liste
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;
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
//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;
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: