Définition...
Opérateurs...
Exemple...
Avertissement...
Traduction...
/****************************************************************/
Interface ISocieteFinancier HeriteDe ISociete Metier Defaut
/* Objet : Definition d'une société fournisseuse. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* 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é fournisseuse dans une autre société fournisseuse.
==
pour l'égalité entre deux sociétés fournisseuses. Le résultat est un booléen.
!=
pour l'inégalité entre deux sociétés fournisseuses. Le résultat est un booléen.
Variable
/******/
MonFournisseur : Nul Ou ISocieteFournisseur;
Principal
/********/
Variable
SF1 : Nul Ou ISocieteFournisseur;
SF2 : Nul Ou ISocieteFournisseur;
Debut
...
/* ------------------------------------------------ */
/* Creation de la societe fournisseuse. */
/* ------------------------------------------------ */
MonFinancier=MonProgiciel.NouvelObjet(ISocieteFournisseur);
...
Si SF1==SF2 Alors
/* Egalité entre deux fournisseurs. */
...
Fin Si
Si SF1!=SF2 Alors
/* Inégalité entre deux fournisseurs. */
...
Fin Si
Fin Principal
IGeselschaftLieferant | ICompanySupplier | I公司供应商 | ICompaniaSurtidor | - | - | - | - |