CalculerRemise : Nul Ou Fonction(OR : IOffreRemisee, Interlocuteur : IIndividu) Retourner Reel;
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.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
Progiciel. | Entité. |
Compiere. | - |
Oracle Applications. | - |
Peoplesoft. | - |
SAP. | - |
- | - | - | - | - | - | - | - | - |