/****************************************************************/
Type GroupeMessagesEdifact Defaut Final TailleSegment 4 ConserverObjets
/* Objet : Description d'un groupe de messages. */
/****************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes du segment UNG. */
/*-------------------------------------------------------------*/
Prive :
NomGroupe : Caractere Virtuel Lecture Public Trace;
IdentifiantGroupe : Caractere Virtuel Lecture Public;
CodeControle : Caractere Virtuel Lecture Public;
VersionGroupe : Caractere Virtuel Lecture Public;
RevisionGroupe : Caractere Virtuel Lecture Public;
CodeVersionRevision : Nul Ou Caractere Virtuel Lecture Public;
Public :
LibelleEmetteur : Caractere Virtuel;
CodeEmetteur : Nul Ou Caractere Virtuel;
LibelleRecepteur : Caractere Virtuel;
CodeRecepteur : Nul Ou Caractere Virtuel;
MotDePasse : Nul Ou Caractere Virtuel;
/*-------------------------------------------------------------*/
/* Proprietes du segment UNE. */
/*-------------------------------------------------------------*/
Prive :
NbMessages : Entier Virtuel;
/*-------------------------------------------------------------*/
/* 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 :
Constructeur Habilitation (Nom : Caractere, Id : Caractere, CC : Caractere, VG : Caractere, RG : Caractere, CVR : Nul Ou Caractere=Nul);
Operateur Optimiser(Invariant, NulAbsorbant) ==(G : Nul Ou GroupeMessagesEdifact) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(G : Nul Ou GroupeMessagesEdifact) Retourner Nul Ou Booleen;
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type GroupeMessagesEdifact modélise l'en-tête d'un groupe de messages au cours d'un échange Edifact.
Le type GroupeMessagesEdifact possède un constructeur pour lequel les paramètres Nom, Id, CC, VG, RG et CVR représentent respectivement le nom du segment, l'identifiant du segment, le code de contrôle, la version du groupe, la révision du groupe et le code de version-révision du groupe de messages.
Variable
/******/
MonGroupeMessagesEdifact : Nul Ou GroupeMessagesEdifact;
Principal
/*******/
Debut
...
MonGroupeMessagesEdifact.LibelleEmetteur=NomProgramme;
MonGroupeMessagesEdifact.CodeEmetteur=Nul;
MonGroupeMessagesEdifact.LibelleRecepteur=NomProgramme;
MonGroupeMessagesEdifact.CodeRecepteur=Nul;
MonGroupeMessagesEdifact.MotDePasse="motdepasse";
...
Fin Principal
| - | - | - | - | - | - | - | - | - |