AddParameter (selector)
De Wiki1000
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 :