Définition...
Opérateurs...
Exemple...
Traduction...
/****************************************************************/
Interface IOffreRemisee HeriteDe IOffreCatalogue Metier Defaut
/* Objet : Definition d'une offre remisee. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* Heritage de IObjetMetier. */
/*--------------------------------------------------------------*/
Prive :
Identification : Nul Ou Binaire Lecture Public;
Public :
VersionMetier : Caractere;
/*--------------------------------------------------------------*/
CreePar : Nul Ou IUtilisateur;
CreeLe : Date;
ModifiePar : Nul Ou IUtilisateur;
ModifieLe : Date;
Etat : EtatObjetMetier;
Categorie : Nul Ou ICategorie;
Commentaire : Nul Ou Caractere;
/* Heritage de ITransaction. */
/*--------------------------------------------------------------*/
Public :
Selon SorteDeLaTransaction : SorteTransaction Faire
/*--------------------------------------------------------------*/
Cas Achat Pour SorteTransactionAchat Faire
Fin Selon
SocietesFournisseurs : Nul Ou CollectionDe ISociete;
Fin Cas
ContactsFournisseurs : Nul Ou CollectionDe IIndividu;
Cas Vente Pour SorteTransactionAchat Faire
SocietesClients : Nul Ou CollectionDe ISociete;
Fin Cas
ContactsClients : Nul Ou CollectionDe IIndividu;
SocietesPartenaires : Nul Ou CollectionDe ISociete;
ContactsPartenaires : Nul Ou CollectionDe IIndividu;
/* Heritage de IOffreCatalogue. */
/*--------------------------------------------------------------*/
Public :
Article : Nul Ou IArticle;
/*--------------------------------------------------------------*/
Prix : PMontant;
Taxe : ITaxe;
DateDeDebutDeCommercialisation : Date;
DateDeFinDeCommercialisation : Date;
CompteDImputation : Nul Ou ICompteGeneral;
CenteDAnalyse : Nul Ou ICentreDAnalyse;
SorteDeLOffre : SorteOffre;
/* Definitions propres. */
/*--------------------------------------------------------------*/
Public :
OffreRemisee : Nul Ou IOffreCatalogue;
Fin Interface
Selon SorteDeLaRemise : SorteRemise Faire
Cas RemiseFixe Pour SorteRemiseFixe Faire
Fin Selon
Remise : TMontant;
Fin Cas
Cas RemiseProportionnelle Pour SorteRemiseProportionnelle Faire
Pourcent : Reel;
Fin Cas
Cas RemiseAutre Pour SorteRemiseACalculer Faire
CalculerRemise : Nul Ou Fonction(OR:IOffreRemisee, Interlocuteur:IPersonnel) Retourner TMontant;
Fin Cas
CompteDImputationDeLaRemise : Nul Ou ICompteGeneral;
CentreDAnalyseDeLaRemise : Nul Ou ICentreDAnalyse;
Constructeur();
=
pour l'affectation d'une offre dans une autre offre.
==
pour l'égalité entre deux offres. Le résultat est un booléen.
!=
pour l'inégalité entre deux offres. Le résultat est un booléen.
Variable
/******/
MonOffre : Nul Ou IOffreRemisee;
MonOffreCatalogue : Nul Ou IOffreCatalogue;
MaRemise : Nul Ou TMontant;
MonCompteDImputation : Nul Ou ICompteGeneral;
MonCentreDAnalyse : Nul Ou ICentreDAnalyse;
MonProgiciel : Nul Ou Module;
Principal
/********/
Variable
OR1 : Nul Ou IOffreRemisee;
OR2 : Nul Ou IOffreRemisee;
Debut
...
/* ------------------------------------------------ */
/* Creation d'une offre remisee. */
/* ------------------------------------------------ */
MonOffre=MonProgiciel.NouvelObjet(IOffreRemisee);
...
MonOffre.OffreRemisee=MonOffreCatalogue;
MonOffre.SorteDeLaRemise=SorteRemiseFixe;
MonOffre.SorteDeLaRemise.Fixe.Remise=MaRemise;
MonOffre.CompteDImputationDeLaRemise=MonCompteDImputation;
MonOffre.CentreDAnalyseDeLaRemise=MonCentreDAnalyse;
...
Si OR1==OR2 Alors
/* Egalité entre deux offres. */
...
Fin Si
Si OR1!=OR2 Alors
/* Inégalité entre deux offres. */
...
Fin Si
Fin Principal
IDiskontiertenAngebot | IDiscountedOffer | I打折了提议 | IOfertaDescontada | - | - | - | - |