/****************************************************************/
Type MessageEdifact Defaut Final TailleSegment 4 ConserverObjets
/* Objet : Description d'un message Edifact. */
/****************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes du segment UNH. */
/*-------------------------------------------------------------*/
Prive :
NomMessage : Caractere Virtuel Lecture Public Trace;
TypeMessage : Caractere Virtuel Lecture Public;
VersionMessage : Caractere Virtuel Lecture Public;
RevisionMessage : Caractere Virtuel Lecture Public;
CodeControle : Caractere Virtuel Lecture Public;
CodeControle2 : Nul Ou Caractere Virtuel Lecture Public;
Public :
CleMessage : Nul Ou Caractere Virtuel;
CompteurTransfert : Entier Virtuel;
PremierTransfert : Booleen Virtuel;
/*-------------------------------------------------------------*/
/* Proprietes du segment UNT. */
/*-------------------------------------------------------------*/
Prive :
NbSegments : Entier 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 :
Procedure MettreAJourSegmentsMessages(ListeSegmentsMessages : Nul Ou ListeDe Nul Ou SegmentMessage);
Fonction ListerSegmentsMessages(CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou SegmentMessage;
Constructeur Habilitation (Nom : Caractere, TM : Caractere, VM : Caractere, RM : Caractere, CC : Caractere, CC2 : Nul Ou Caractere=Nul);
Operateur Optimiser(Invariant, NulAbsorbant) ==(M : Nul Ou MessageEdifact) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(M : Nul Ou MessageEdifact) Retourner Nul Ou Booleen;
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type MessageEdifact modélise un message Edifact.
Le type MessageEdifact possède un constructeur pour lequel les paramètres Nom, TM, VM, RM, CC et CC2 représentent respectivement le nom du message, le type du message, la version du message, la révision du message, le premier code de contrôle et le second code de contrôle du message.
Variable
/******/
MonMessageEdifact : Nul Ou MessageEdifact;
MesSegments : ListeDe Nul Ou SegmentMessage;
Principal
/*******/
Debut
...
MonMessageEdifact.ListeSegments=MesSegments;
MonMessageEdifact.CleMessage=Nul;
MonMessageEdifact.CompteurTransfert=1;
MonMessageEdifact.PremierTransfert=Vrai;
...
Fin Principal
| - | - | - | - | - | - | - | - | - |