AddParameter (selector)

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

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;