AddParameter (selector)

procedure AddParameter(const iName:string; iValue:variant);

Cette méthode permet d'ajouter un paramètre nommée à la requête qui sera exécutée.

Paramètre	Usage
iParameterName	Le nom du paramètre
iValue	La valeur du paramètre.

Les paramètres nommés peuvent être utilisé dans les expression de requêtes.

Exemple :

TVueCompteBalanceAux.GetSelector:TSelector;
Type
  VueRoleTiers = viewOf(TCumulPeriodeAuxiliaire) 

   ....

   [(typeLot>=%ArgTypeDeLot) and (Periode.dateFin<=%ArgDateFinPeriode) and (oidApprocheComptable=%ArgApprocheComptable)] 
  end;
   
begin
 Result := VueRoleTiers.CreateSelector('','',True,[]);
 Result.useCTE := True; 
end;


TProcessusBalance.GetSelector:TSelector;
var aWhere:string;
begin
  aWhere := ...
  ...
  
  Result := TVueCompteBalanceAux.CreateSelector(aWhere,'codeTiers,libelleRoleTiers',True,[
   dateDebutPeriode,
   dateFinPeriode, 
   aTypeLot, 
   tiersDebut,
   tiersFin, 
   aOTP,
   oidApprocheComptable, 
   etablissementDebut,
   etablissementFin,
   perimetre
   ]); 
  
   // TVueCompteBalanceAux use implicit named parameters which must be defined
   
   Result.AddParameter('ArgDateDebutPeriode',dateDebutPeriode);
   Result.AddParameter('ArgDateFinPeriode',dateFinPeriode);
   Result.AddParameter('ArgTypeDeLot',aTypeLot);
   Result.AddParameter('ArgApprocheComptable',oidApprocheComptable);
  
   Result.ApplyRights := True
end;

Voir aussi :

• Vue locale

— Selecteur (tech) — Développement DSM —