/*-------------------------------------------------------------------
Fichier     : $monmodule$.upi
Objet       : 

Module      : $Mon ! Module$
Auteur-Date : DUVAL-Jean-Pierre - Novembre 2003.
---------------------------------------------------------------------
                        Observations
                   
Substituer $monmodule$ par le nom du module en minuscule -> upskrn.
Substituer $MonModule$ par le nom du module en maj/minuscule -> UpsKrn.
Substituer $Mon Module$ par le libelle du module  -> Up ! Kernel.

---------------------------------------------------------------------*/ 

Interface Module "$Mon Module$" Version 1.0.0 ModuleDynamique;

Constante
/*******/
   ConstanteA=123;
   ConstanteB==123.456;

Enumere
/*****/
   EnumereA Dans (EnumereA_A, EnumereA_B);
   EnumereB Dans (EnumereB_A, EnumereB_B);

Entrepot
/******/
   EntrepotA;
   EntrepotB;

/****************************************************************/
Type TypeA Defaut
/* Objet : Type A.                             						 */
/****************************************************************/
Public :
   Constructeur();
   Procedure P(A:Enumere, B:Entier, C:Reel, D:Caractere, E:Nul Ou Objet);
   Fonction F(A:Enumere, B:Entier, C:Reel, D:Caractere, E:Nul Ou Objet) Retourner Nul Ou Objet;
Fin Type

/****************************************************************/
Type TypeB Defaut
/* Objet : Type B.                             						 */
/****************************************************************/
Public :
   Constructeur();
   Procedure P(A:Enumere, B:Entier, C:Reel, D:Caractere, E:Nul Ou Objet);
   Fonction F(A:Enumere, B:Entier, C:Reel, D:Caractere, E:Nul Ou Objet) Retourner Nul Ou Objet;
Fin Type


Variable 
/******/
Public :
   A : EnumereA;
   B : Entier;
   C : Reel;
   D : Caractere;
   E : Nul Ou Objet;

Exception 
/*******/
   ExceptionA("ExceptionA", 1, TransactionToutesInvalidees);
   ExceptionB("ExceptionB", 2, TransactionToutesInvalidees);

FileDAttente
/**********/
   FileDAttenteA("FileDAttenteA", 1);
   FileDAttenteB("FileDAttenteB", 2);
   
Procedure P(A:Enumere, B:Entier, C:Reel, D:Caractere, E:Nul Ou Objet);
Fonction F(A:Enumere, B:Entier, C:Reel, D:Caractere, E:Nul Ou Objet) Retourner Nul Ou Objet;