SorteDocument Dans (SorteDocumentContrat, SorteDocumentLibre, SorteDocumentPieceComptable);
La signification des valeurs est la suivante :
Variable
/******/
	D : Nul Ou IDccument;
	C : Nul Ou IContrat;
   PC : Nul Ou IPieceComptable;
Principal
/*******/
Debut
...
Selon D.SorteDuDocument Faire
   Cas Pour SorteDocumentContrat Faire
   /* Le document est un contrat. */ 
   
	   C=IContrat(D);
      ...
   
Fin Cas
   Cas Pour SorteDocumentPieceComptable Faire
   /* Le document est une piece comptable. */ 
   
	   PC=IPieceComptable(C);
	   ...
   
Fin Cas
   Defaut
   /* Le document est libre. */ 
   
	   ...
   
Fin Defaut
Fin Selon
...
Fin Principal
| - | - | - | - | - | - | - | - | - |