Définition...
Opérateurs...
Exemple...
Traduction...
/****************************************************************/
Interface ILettrage HeriteDe IObjetMetier Metier Defaut
/* Objet : Definition d'un lettrage. */
/****************************************************************/
/*--------------------------------------------------------------*/
/* Heritage de IObjetMetier. */
/*--------------------------------------------------------------*/
Prive :
Identification : Nul Ou Binaire Lecture Public;
Public :
VersionMetier : Caractere;
/*--------------------------------------------------------------*/
CreePar : Nul Ou IUtilisateur;
CreeLe : Date;
ModifiePar : Nul Ou IUtilisateur;
ModifieLe : Date;
Etat : EtatObjetMetier;
Categorie : Nul Ou ICategorie;
Commentaire : Nul Ou Caractere;
/* Definitions propres. */
/*--------------------------------------------------------------*/
Public :
DateDeLettrage : Date;
Fin Interface
MontantToutesTaxes : TMontant;
MontantHorsTaxes : TMontant;
PiecesDeDebit: CollectionDe IPieceComptable;
PiecesDeCredit : CollectionDe IPieceComptable;
Constructeur();
=
pour l'affectation d'un lettrage dans un autre lettrage.
==
pour l'égalité entre deux lettrages. Le résultat est un booléen.
!=
pour l'inégalité entre deux lettrages. Le résultat est un booléen.
Variable
/******/
MonLettrage : Nul Ou ILettrage;
MaFacture : Nul Ou IFacture;
MonReglement : Nul Ou IReglement;
MonProgiciel : Nul Ou Module;
Principal
/********/
Variable
L1 : Nul Ou ILettrage;
L2 : Nul Ou ILettrage;
Debut
...
/* ------------------------------------------------ */
/* Creation du lettrage. */
/* ------------------------------------------------ */
MonLettrage=MonProgiciel.NouvelObjet(ILettrage);
...
MonLettrage.DateLettrage=DateSysteme();
MonLettrage.MontantToutesTaxes=MaFacture.MontantTotal;
MonLettrage.MontantHorsTaxes=Mafacture.MontantTotalHorsTaxes;
MonLettrage.PiecesDeDebit=CollectionDe(MaFacture);
MonIndividu.PiecesDeCredit=CollectionDe(MonReglement);
...
Si L1==L2 Alors
/* Egalité entre deux lettrages. */
...
Fin Si
Si I1!=I2 Alors
/* Inégalité entre deux lettrages. */
...
Fin Si
Fin Principal
IBeschriftung | ILettering | I字法 | IDeletreado | - | - | - | - |