Vue locale (langage)

De Wiki1000

{{#images:version650-32x32.png|stock}}

Les vues locales sont des type de données vues déclarées localement à l'intérieur d'une opération.

Par exemple le code suivant déclare une vue MyView et effectue une recherche sur cette vue :

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA)
 unCode:string = unCodeA;
 unEntier:Integer = refB.unEntierB;
 end;

var inst:MyView; begin 

 inst := MyView.Find('unCode=%1',,true,['B1']);
 if Assigned(inst) then
  begin
    ...
  end;

end </source>

Le périmètre du type est limité à la procédure, il n'est donc pas possible de passer les objets de la vue en paramètre à d'autres fonctions (pour cela utilisez une vue globale).

La syntaxe pour définir une vue locale : 

  BNF style grammar : 

  <nom_vue> ::= ViewOf(<class_dec>) [<attributes>] end 
  <class_dec> ::= <class_names> | <class_name> <class_dec>
  <class_names> ::= <class_name>| [<class_name> ,]
  <class_name> ::= identifier
  <class_dec> ::= distinct
  <attributes> ::= <attribute_def> | <attribute_def> <where_def>
  <attribute_def> ::= <simple_attribute_def> | <simple_attribute_def> <attribute_directive> 
  <simple_attribute_def> ::= <attribute_dec> | <attribute_dec> = <attribute_ref>
  <attribute_dec> ::= <attribute_name> : <type_name>
  <attribute_ref> ::= <main_class_attribute_name> | <operator>(<main_class_attribute_name>)
  <operator> ::= <aggregate_operator> | <date_operator> | <join_operator>
  <aggregate_operator> ::= count|sum|max|min
  <date_operator> ::= year|month|quarter|week|day|dayofyear|dayofweek|hour|minute|second
  <join_operator> ::= join
  <attribute_directive> ::=  primary | orderby | orderby desc 
  <where_def> ::= [ <expression> ]

  Type
    NomDeVue = ViewOf(NomDeClassePrincipale)
      Attribut : Type;
      Attribut : Type = AliasDe;
      Attribut : Type = operator(AliasDe);
      Attribut : Type = AliasDe primary;
      Attribut : Type = AliasDe orderby;
      Attribut : Type = AliasDe orderby desc;
      [ expression ]
    end;

Les vues peuvent utiles pour effectuer des traitement sur des classes complexes, par exemples :

Exemples

Curseur sur une classe vue

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA)
   newCode:string;
   unCode:string = unCodeA;
   unEntier:Integer = refB.unEntierB;
 end;

var inst:MyView; cursor:MyViewCursor begin 

 Result := 0;
 cursor := MyView.CreateCursorWhere(unCode=%1,',true,[S]);
 foreach inst in cursor do
  begin
    Result := Result + inst.unEntier;
  end;

end; </source>

Vue avec jointure externe

<source lang="delphi"> function ViewExternalJoin(const S:string):Boolean; Type 

 MyView = viewof(ClassA)
   newCode:string;
   unCodeAA:string = unCodeA;
   unCodeBB:string = refB+unCodeB;
 end;

var inst:MyView; begin 

 inst := MyView.Find('unCodeAA=%1',,true,[S]);
 if Assigned(inst) and (inst.unCodeAA=S)
    then Result := True
    else Result := False;

end;

</source>

Vue sur une interface

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(InterfaceA, ClassA1, ClassA2)
   unCode:string = unCodeA primary;
   ....
 end;

begin 

 ...

end; </source>

Vue sur des combinaisons uniques d'attributs

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA distinct)
   unCode:string = unCodeA primary;
   unEntier:Integer = refB.unEntierB;
 end;

begin 

 ...

end; </source>

Vue avec agrégats

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA)
   unCode:string = unCodeA primary;
   unEntier:Integer = sum(unEntier);
 end;

begin 

 ...

end; </source>

Vue avec agrégats sur un montant

<source lang="delphi"> Type 

 myView = viewof(WFClasseX)
  mysum:TMoney = sum(credit) orderby;
 end;

var sel:TSelector; inst:MyView; S,stag:string; begin 

 sel := MyView.CreateSelector(,,true,[]);

 S := ; stag := ;
 foreach inst in Sel.AsCursor do
  begin
    S := S+stag+Formatfloat('0.00',inst.mysum.Value);
    stag := ',';
  end;
 showmessage(S);

 Result := FALSE;

end; </source> 

select sum(t0.credit) "mysum",t0.credit_CodeDevise "mysum_CodeDevise" from dbo.WFCLASSEX t0
group by t0.credit_CodeDevise
order by sum(t0.credit)

Vue avec agrégats sur un attribut enfant

<source lang="delphi"> Type 

 myView = viewof(WFClasseX)
  mysum:TMoney = sum(credit:TCValue) orderby;
 end;

begin 

 ...

end; </source> 

select sum(t0.credit_TCValue) "mysum" from dbo.WFCLASSEX t0
order by sum(t0.credit_TCValue)

Vue avec un opérateur de date

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassC distinct)
   unCode:string = unCodeC primary;
   unMois:Integer = month(uneDate);
 end;

begin 

 ...

end; </source>

Vue avec un opérateur de date (diff)

<source lang="delphi"> function foo(iDayDiff):string; Type 

 MyView = viewof(ClassC distinct)
   unCode:string = unCodeC primary;
   DayDiff:Integer = DayDiff(uneDateStart,uneDateEnd);
 end;

begin 

 inst := MyView.Find('DayDiff >= %1',,true,[iDayDiff]);
   if Assigned(inst)
      then Result := inst.unCode
      else Result := 'Not found';

end; </source>

Vue avec référence

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA)
   unCodeAA:string = unCodeA;
   refB:reference = refB;
 end;

begin 

 ...

end; </source>

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA)
   unCodeAA:string = unCodeA;
   refB:ClassB = refB;
 end;

begin 

 ...

end; </source>

Vue avec variable référence

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA)
   unCodeAA:string = unCodeA;
   refB:ClassB;
 end;

begin 

 ...

end; </source>

Vue avec filtre

<source lang="delphi"> function foo(const S:string):Integer; Type 

 MyView = viewof(ClassA)
   unCodeAA:string = unCodeA;
   unCodeBB:string = refB.unCodeB;
   [ unCodeA='A1' ]
 end;

begin 

 ...

end; </source>

Vue avec traversée de liste

<source lang="delphi"> function _Concat(const S:string):string; Type 

 MyView = viewof(ClassF)
   unCodeF:string = unCodeF;
   unCodeG:string = refFG.unCodeG;
   unCodeH:string = refFG.listH.unCodeH;
 end;

var ls:MyViewList; stag:string; idx:integer; begin 

 ls := MyView.CreateListWhere('unCodeG=%1',,'unCodeH',true,-1,[S]);
 Result := ; stag := ;
 for idx:=0 to ls.Count-1 do
  begin
    Result := Result+stag+ls.Refs[idx].unCodeH;
    stag := ',';
  end;

end; </source>

Vue avec jointure

<source lang="delphi"> //Procedure expensePendings(req:Tjson; var res:TObject); Type 

 ExpenseView = viewOf(TNoteFrais)
  vp: TValideurPossible = join(ValidationEtat.EtatPossible.EtatMetier, EtatNF);
  aManager:string = vp.ContactEtablissement.oidutilisateur;
  //
  aDate:TDatetime = nDate;
  aRef:string = referencePiece;
  aReason:string = Caption;
  aAmountOrg:TMoney = MontantTTC;
  aAmountAct:TMoney = MontantRetenu;
  aQuantity:TQuantity = Quantite;
  aUser:string = Salarie.Operateur.oidutilisateur;
  aType:string = FraisSalarie.Caption;
  aMode:Integer = FraisSalarie.modeRemboursement;
  aAmountMax:TMoney = FraisSalarie.montantPlafond;
  aStatus:Integer = Statut;
 end;

var json:TJson; ls:TSelector; indx,ctn:Integer; inst:ExpenseView; 

   AWhere,AOrder:string; Args:Array[0..5] of variant;

begin 

 json := TJson.Create();
 res  := json;
 //
 AWhere := '(aManager=%1) and (aStatus=%2)';
 Args[0] := GlbUserName;
 Args[1] := StatutNF_AValider;
 AOrder := 'aUser,-aDate';

 indx := 0; ctn := 0; 
 ls := ExpenseView.CreateSelector(AWhere,AOrder,true,Args);
 foreachP inst in ls.AsCursor do
  begin
    . . . 
  end;

end; </source>

Dans cette exemple le modèle est celui-ci :

La classe TEtatMetier est atteinte par deux chemins différents, un issu de la classe TValideurPossible et un issu de la classe TNoteFrais. La jointure est réalisée sur l'objet TEtatMetier. 

   vp: TValideurPossible = join(ValidationEtat.EtatPossible.EtatMetier, EtatNF);
  • TValideurPossible est la classe qui va être jointe
  • vp défini un alias sur cette classe qui peut être ensuite utilisé dans la définition de la vue.
  • ValidationEtat.EtatPossible.EtatMetier est le chemin issu de la classe jointe
  • EtatNF est le chemin issu de la classe de la vue.

Opérateurs

Opérateur portant sur un type numérique

Opérateur Arguments Action
sum 1 Effectue la somme de l'attribut
min 1 Effectue la somme de l'attribut
max 1 Retourne le max de l'attribut
add 2 Retourne la somme de deux attributs
sub 2 Retourne la différence entre deux attributs
sumdiff 2 Retourne la somme de la différence entre deux attributs
mindiff 2 Retourne le min de la différence entre deux attributs
maxdiff 2 Retourne le max de la différence entre deux attributs
sumconcat 2 Retourne la somme de la somme entre deux attributs
minconcat 2 Retourne la min de la somme entre deux attributs
maxconcat 2 Retourne le max de la somme entre deux attributs
count 1 Compte le nombre d'attribut

Opérateur portant sur OID

Opérateur Arguments Action
count 1 Compte les éléments de la vue

Opérateur portant sur une date

Ces opérateur prennent une date comme argument.

Opérateur Arguments Action
year 1 Retourne l'année de la date
quarter 1 Retourne le trimestre de la date
month 1 Retourne le mois de la date
dayofyear 1 Retourne le jour de l'année de la date
dayofweek 1 Retourne le jour de la semaine de la date
hour 1 Retourne le nombre d'heures de la date
minute 1 Retourne le nombre de minutes de la date
second 1 Retourne le nombre de secondes de la date
millisecond 1 Retourne le nombre de millisecondes de la date
daydiff 2 Retourne le nombre de jour entre deux dates

Opérateur portant sur une référence

Opérateur Arguments Action
join 2 Réalise une jointure sur une référence

Agrégat portant sur un montant :

C'est le type de l'attribut défini dans la vue qui détermine le résultat de l'agrégation.

Type Source Type Vue Opération
source:Money vue:Money = sum(source) sum(Value) group by CodeDevise
source:MoneyDT vue:Money = sum(source) sum(Value) group by CodeDevise
source:Money vue:MoneyDT = sum(source) ** ERREUR **
source:MoneyDT vue:MoneyDT = sum(source) sum(Value) group by CodeDevise,Date,RPConv,RPValue,TCConv,TCValue
source:Money vue:Currency = sum(source) sum (Value)
source:MoneyDT vue:Currency = sum(source) sum (Value)
source:MoneyDT vue:Currency = sum(source:TCValue) sum (TCValue)
source:MoneyDT vue:Currency = sum(source:RPValue) sum (RPValue)
source:Currency vue:Currency = sum(source) sum (Value)

Voir aussi :

Récupérée de « http://wiki.sage.fr/index.php?title=Vue_locale_(langage)&oldid=12440 »