Nombre : Entier;
Variable
/******/
A : Nul Ou IArticle;
Principal
/*******/
Debut
...
Selon A.Quotite Faire
Cas Pour SorteQuotitePiece Faire
/* L'article est vendu a la piece. */
...
Ecran.Ecrire("Nombre=",Caractere(A.Piece.Nombre));
...
Fin Cas
Cas Dans (SorteQuotiteLongueur, SorteQuotiteSurface, SorteQuotiteVolume) Faire
/* L'article est vendu au metre selon la longueur. */
...
Ecran.Ecrire("Dimension=",Caractere(A.Metrique.Dimension)
+Decoder(A.Metrique.Unite,
MetriqueMetre, " mètre(s)",
MetriqueYard, " yard(s)",
+Decoder(A.Quotite,
SorteQuotiteSurface, " carré(s)",
SorteQuotiteVolume, " cube(s)"));
...
Fin Cas
Cas Pour SorteQuotiteDuree Faire
/* L'article est vendu au metre selon la duree. */
...
Ecran.Ecrire("Dimension=",Caractere(A.Duree.Dimension)+Decoder(A.Metrique.Unite,
DureeJour, "jour(s)",
DureeMois, "mois(s)",
DureeAnnee, "année(s)",
DureeHeure, "heure(s)",
DureeMinute, "minute(s)",
DureeSeconde, "seconde(s)"));
...
Fin Cas
Fin Selon
...
Fin Principal
Progiciel. | Entité. |
Compiere. | - |
Oracle Applications. | - |
Peoplesoft. | - |
SAP. | - |
- | - | - | - | - | - | - | - | - |