AddParameter (selector)
<source lang='delphi'>procedure AddParameter(const iName:string; iValue:variant);</source>
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 :
<source lang="delphi">
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; </source>
Voir aussi :
{{#if:Selecteur (tech)|
{{#if:Selecteur (tech)|— Selecteur (tech) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}