Définition...
Opérateurs...
Exemple...
Avertissement...
Traduction...
/****************************************************************/
Interface ISocieteClient HeriteDe ISociete Metier Defaut
/* Objet : Definition d'une cliente. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* 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é cliente dans une autre société cliente.
==
pour l'égalité entre deux sociétés clientes. Le résultat est un booléen.
!=
pour l'inégalité entre deux sociétés clientes. Le résultat est un booléen.
Variable
/******/
MonClient : Nul Ou ISocieteClient;
Principal
/********/
Variable
SC1 : Nul Ou ISocieteClient;
SC2 : Nul Ou ISocieteClient;
Debut
...
/* ------------------------------------------------ */
/* Creation de la societe cliente. */
/* ------------------------------------------------ */
MonClient=MonProgiciel.NouvelObjet(ISocieteClient);
...
Si SC1==SC2 Alors
/* Egalité entre deux clients. */
...
Fin Si
Si SC1!=SC2 Alors
/* Inégalité entre deux clients. */
...
Fin Si
Fin Principal
IGeselschaftKlient | ICompanyClient | I公司客户 | ICompaniaCliente | - | - | - | - |