Définition...
Opérateurs...
Exemple...
Traduction...
/****************************************************************/
Interface IOffreCatalogue HeriteDe ITransaction Metier Defaut
/* Objet : Definition d'une offre commerciale inscrite au catalogue. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* 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;
/* Definitions propres. */
/*--------------------------------------------------------------*/
Public :
Article : Nul Ou IArticle;
Fin Interface
Prix : PMontant;
Taxe : ITaxe;
DateDeDebutDeCommercialisation : Date;
DateDeFinDeCommercialisation : Date;
CompteDImputation : Nul Ou ICompteGeneral;
CenteDAnalyse : Nul Ou ICentreDAnalyse;
SorteDeLOffre : SorteOffre;
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 IOffreCatalogue;
MonArticle : Nul Ou IArticle;
MonPrix : Nul Ou TMontant;
MonCompteDImputation : Nul Ou ICompteGeneral;
MonCentreDAnalyse : Nul Ou ICentreDAnalyse;
MonProgiciel : Nul Ou Module;
Principal
/********/
Variable
OC1 : Nul Ou IOffreCatalogue;
OC2 : Nul Ou IOffreCatalogue;
Debut
...
/* ------------------------------------------------ */
/* Creation d'une offre inscrite au catalogue. */
/* ------------------------------------------------ */
MonOffre=MonProgiciel.NouvelObjet(IOffreCatalogue);
...
MonOffre.Prix=DateSysteme();
MonOffre.Article=MonArticle;
MonOffre.Prix=MonPrix;
MonOffre.DateDeDebutDActivite=DateSysteme().AjouterJours(10);
MonOffre.DateDeDebutDActivite=Nul;
MonOffre.CompteDImputation=MonCompteDImputation;
MonOffre.CentreDAnalyse=MonCentreDAnalyse;
...
Si OC1==OC2 Alors
/* Egalité entre deux offres. */
...
Fin Si
Si OC1!=OC2 Alors
/* Inégalité entre deux offres. */
...
Fin Si
Fin Principal
IKatalogAngebot | ICatalogOffer | I编目提议 | IOfertaCatalogo | - | - | - | - |