Définition...
Opérateurs...
Exemple...
Avertissement...
Traduction...
/****************************************************************/
Interface ISocieteFinancier HeriteDe ISociete Metier Defaut
/* Objet : Definition d'une société partenaire. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* 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é partenaire dans une autre société partenaire.
==
pour l'égalité entre deux sociétés partenaires. Le résultat est un booléen.
!=
pour l'inégalité entre deux sociétés partenaires. Le résultat est un booléen.
Variable
/******/
MonPartenaire : Nul Ou ISocietePartenaire;
Principal
/********/
Variable
SP1 : Nul Ou ISocietePartenaire;
SP2 : Nul Ou ISocietePartenaire;
Debut
...
/* ------------------------------------------------ */
/* Creation de la societe partenaire. */
/* ------------------------------------------------ */
MonPartenaire=MonProgiciel.NouvelObjet(ISocietePartenaire);
...
Si SP1==SP2 Alors
/* Egalité entre deux partenaires. */
...
Fin Si
Si SP1!=SP2 Alors
/* Inégalité entre deux partenaires. */
...
Fin Si
Fin Principal
IGeselschaftPartner | ICompanyPartner | I公司伙伴 | ICompaniaSocio | - | - | - | - |