SorteRemise Dans (SorteRemiseFixe, SorteRemiseProportionnelle, SorteRemiseACalculer);
La signification des valeurs est la suivante :
Variable
/******/
OR : Nul Ou IOffreRemisee;
MaRemise : Reel;
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.OffreInitiale.Prix.Cloner();
MaRemise.Montant*=R.SorteDeLaRemise.RemiseProportionnelle.Pourcentage;
...
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
- | - | - | - | - | - | - | - | - |