/****************************************************************/
Type ValeurElementaire Defaut Final TailleSegment 16 ConserverObjets
/* Objet : Description d'une valeur elementaire. */
/****************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
NomElement : Nul Ou Caractere Virtuel Lecture Public Trace;
TailleElement : Entier Virtuel Lecture Public;
TailleFixe : Booleen Virtuel Lecture Public;
TypeElement : ChampType Virtuel Lecture Public;
EstOptionnel : Booleen Virtuel Lecture Public;
ValeurParDefautElement : Nul Ou Objet Virtuel Lecture Public;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'Objet. */
/*-------------------------------------------------------------*/
Public :
Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
Procedure Convertir(O : Nul Ou Objet);
Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
Procedure SupprimerPropriete(NomPropriete : Caractere);
Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;
Prive :
Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Public :
Fonction ListerValeursComposites(CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou ValeurComposite;
Constructeur Habilitation (Nom : Nul Ou Caractere, Taille : Entier, EstFixe : Booleen, TypeDeLElement : ChampType, Optionnel : Booleen,
ValeurParDefaut : Nul Ou Objet=Nul, ValeursDesComposites : Nul Ou ListeDe Nul Ou ValeurComposite=Nul);
Operateur Optimiser(Invariant, NulAbsorbant) ==(E : Nul Ou ValeurElementaire) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(E : Nul Ou ValeurElementaire) Retourner Nul Ou Booleen;
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type ValeurElementaire modélise une valeur élémentaire d'un segment de message Edifact.
Le type ValeurElementaire possède un constructeur pour lequel les paramètres Nom, Taille, EstFixe, TypeDeLElement, Optionnel, ValeurParDefaut et ValeursComposites représentent respectivement le nom de la valeur élémentaire, sa taille, son état de taille fixe, son type, son état d'option, sa valeur par défaut et la liste de ses valeurs composites.
Le nom de la valeur élémentaire Nom correspond à l'étiquette Edifact.
La taille de la valeur élémentaire Taille s'exprime en nombre de caractères.
L'état EstFixe a pour valeur Vrai si la valeur est de taille fixe. Sinon, la taille est variable bornée par Taille caractères.
L'état Optionnel a pour valeur Vrai si la valeur est optionnelle.
La valeur par défaut ValeurParDefaut doit être cohérente avec le type de la valeur. Elle est utilisée pour une valeur ignorée à exporter.
Les composites ValeursComposites sont associés à l'étiquette Nom.
Variable
/******/
MaValeurElementaire : Nul Ou ValeurElementaire;
MesValeursComposites : ListeDe Nul Ou ValeurComposite;
Principal
/*******/
Debut
...
MaValeurElementaire=ValeurElementaire("MaValeur", 10, Vrai, ChampTypeCaractere, Faux, "coucou", MesValeursComposites);
...
Fin Principal
| - | - | - | - | - | - | - | - | - |