Définition...
Opérateurs...
Exemple...
Avertissement...
Traduction...
/****************************************************************/
Interface ISocieteConcurrent HeriteDe ISociete Metier Defaut
/* Objet : Definition d'une société. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* 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 ISociete. */
/*--------------------------------------------------------------*/
Public :
RaisonSociale : Caractere;
/*--------------------------------------------------------------*/
Coordonnees : ICoordonnees;
DateDImmatriculation : Nul Ou Date;
Holding : Nul Ou ISociete;
Filiales : Nul Ou CollectionDe ISociete;
SorteDeLaSociete : SorteSociete;
/* Definitions propres. */
/*--------------------------------------------------------------*/
Public :
Constructeur();
Fin Interface
=
pour l'affectation d'une société concurrente dans une autre société concurrente.
==
pour l'égalité entre deux sociétés concurrentes. Le résultat est un booléen.
!=
pour l'inégalité entre deux sociétés concurrentes. Le résultat est un booléen.
Variable
/******/
MonConcurrent : Nul Ou ISocieteConcurrent;
Principal
/********/
Variable
SC1 : Nul Ou ISocieteConcurrent;
SC2 : Nul Ou ISocieteConcurrent;
Debut
...
/* ------------------------------------------------ */
/* Creation de la societe concurrente. */
/* ------------------------------------------------ */
MonConcurrent=MonProgiciel.NouvelObjet(ISocieteConcurrent);
...
Si SC1==SC2 Alors
/* Egalité entre deux concurrents. */
...
Fin Si
Si SC1!=SC2 Alors
/* Inégalité entre deux concurrents. */
...
Fin Si
Fin Principal
IGeselschaftKonkurrent | ICompanyCompetitor | I公司竞争者 | ICompaniaCompetidor | - | - | - | - |