Description...
Exemple...
Voir aussi...
Traduction...
CalculerRemise : Nul Ou Fonction(OR : IOffreRemisee, Interlocuteur : IIndividu) Retourner TMontant;
Variable
OR : Nul Ou IOffreRemisee;
MaRemise : TMontant;
MonClient : Nul Ou IPersonnel;
Principal
Debut
...
Selon OR.SorteDeLaRemise Faire
Cas Pour SorteRemiseFixe Faire
/* Il s'agit d'une remise forfaitaire. */
...
MaRemise=OR.SorteDeLaRemise.RemiseFixe.Remise;
...
Fin Cas
Cas Pour SorteRemiseProportionnelle Faire
/* Il s'agit d'une remise proportionnelle au montant initial. */
...
MaRemise=OR.OffreRemisee.Prix.Cloner();
MaRemise.Montant*=R.SorteDeLaRemise.RemiseProportionnelle.Pourcent;
...
Fin Cas
Cas Pour SorteRemiseACalculer Faire
/* Il s'agit d'une remise dont le montant est defini par une fonction ad-hoc. */
...
MaRemise=OR.SorteDeLaRemise.RemiseAutre.CalculerRemise(OR, MonClient);
...
Fin Cas
Fin Selon
...
Fin Principal
DiskontBerechnen | ComputeDiscount | 计算折扣 | ComputarDescuento | - | - | - | - |