ICategorie

Définition...
Opérateurs...
Exemple...
Traduction...

L'interface ICategorie modélise un ensemble d'objets métiers selon la sémantique ad hoc de l'ensemble qui peut être propre à la culture de l'entreprise.

Voici des catégories possibles :

/****************************************************************/
Interface ICategorie HeriteDe IObjetMetier Metier Defaut
/* Objet : Definition d'une categorie. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* Heritage de IObjetMetier. */
/*--------------------------------------------------------------*/
Prive :

Public : /*--------------------------------------------------------------*/
/* Definitions propres. */
/*--------------------------------------------------------------*/
Public : Fin Interface

Revenir en haut de la page...

L'interface ICategorie possède les opérateurs standards suivants : L'interface ICategorie possède un constructeur implicite.

Revenir en haut de la page...

Variable
/******/

Principal
/********/
Variable Debut ...
/* ------------------------------------------------ */
/* Creation de la categorie des classes de comptes. */
/* ------------------------------------------------ */
CategorieComptesGeneraux=MonProgiciel.NouvelObjet(ICategorie);
CategorieComptesGeneraux.Libelle="Comptes généraux";
/* Actifs immobilises. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Actifs immobilisés";
CategorieComptesGeneraux.SousCategories=CollectionDe(C1);
/* Actifs circulants. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Actifs circulants";
CategorieComptesGeneraux.SousCategories+=C1;
/* Tresorerie. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Trésorerie";
CategorieComptesGeneraux.SousCategories+=C1;
/* Capitaux propres. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Capitaux propres";
CategorieComptesGeneraux.SousCategories+=C1;
/* Resultat. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Résultat";
CategorieComptesGeneraux.SousCategories+=C1;
/* Dettes financieres. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Dettes financières";
CategorieComptesGeneraux.SousCategories+=C1;
/* Autres dettes. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Autres dettes";
CategorieComptesGeneraux.SousCategories+=C1;
/* Autres. */
C1=MonProgiciel.NouvelObjet(ICategorie);
C1.Libelle="Autres";
CategorieComptesGeneraux.SousCategories+=C1;
...
Si C1==C2 Alors
/* Egalité entre deux categories. */ Fin Si
Si C1!=C2 Alors
/* Inégalité entre deux categories. */ Fin Si
Fin Principal

Revenir en haut de la page...

IKategorieICategoryI类别ICategoria----

Revenir en haut de la page...