Expressions objets (code)

Version du 18 juillet 2009 à 18:31

Introduction

Le framework 1000 utilise des expressions objets pour exprimer sous forme objets des conditions utilisées dans les requêtes objets. Ces expressions objets sont ensuite traduites en clauses dans les requêtes SQL ou évaluées directement sur les objets métiers.

La syntaxe de ces expressions est généralement identique à leur équivalent dans le langage 1000, des fonctionnalités suplémentaires ont été introduites pour utiliser les possibilités offertes par les bases de données.

Notation

Les expressions objets utilisent la notation pointée et la syntaxe Pascal.

Arguments

Les expressions peuvent être paramétrés par des arguments généralement passés sous forme d'un tableau de variant ou placés dans une propriété tableau.

La référence aux arguments se fait par le signe % suivi du numéro de l'argument.

La numérotation des arguments commence à 1.

Exemple :

'(code=%1) and (date>%2) and (date<%3)', ['FRF',Now-1,Now+1]

Opérateurs

Les opérateurs de comparaison et les opérateurs logiques du langage sont utilisables dans les expressions objets.

Exemple

codeCompte like '10%'

codePays in ('FR','EN','US')

codePays in %1

typeCompte.value = compteBilan

Fonctions

Certaines fonctions peuvent être utilisées dans les expressions objets :

function CountObjectsWhere(iClassName:string; iExpression:string):Integer;

function ExistsObjectsWhere(iClassName:string; iExpression:string):Integer;

function DatePart(const PartOfDate:TPartOfDate; const Attribute:Identifier):Integer;

function Round(value:Double; len:Integer):Double;

function Assigned(const value:Identifier):Boolean;

function True():boolean;

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.

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.

Note : Ils existent des fonctions simulaires CountObjectsWhere et ExistsObjectsWhere utilisable dans un contexte d'objets.

Jointures

La traversée d’un rôle se traduit en terme SQL par une jointure.

Un certain nombre d’extensions ont été ajoutées à cette notation pour permettre de spécifier certaines caractéristiques supplémentaires :

Ordre de trie