UpsBiz.SorteSociete


SorteSociete Dans (SorteSocieteClient, SorteSocieteConcurrent, SorteSocieteDistributeur, SorteSocieteFinancier, SorteSocieteFournisseur, SorteSocieteGroupe, SorteSocietePartenaire);

Description

L'énuméré SorteSociete spécifie la spécialisation d'une société de l'environnement de l'entreprise. Cet énuméré est utilisé pour la propriété Sorte de l'interface ISociete.

La signification des valeurs est la suivante :

SorteSocieteClient :
Société cliente de l'une des sociétés du groupe.
SorteSocieteConcurrent :
Société concurrente de l'une des sociétés du groupe.
SorteSocieteDistributeur :
Société distributrice pour l'une des sociétés du groupe.
SorteSocieteFinancier :
Société finançant l'une des sociétés du groupe.
SorteSocieteFournisseur :
Société fournisseuse de l'une des sociétés du groupe.
SorteSocieteGroupe :
Société appartenant au groupe.
SorteSocietePartenaire :
Société partenaire de l'une des sociétés du groupe.

Exemple


Variable

/******/


	S : Nul Ou ISociete;

   SCl : Nul Ou ISocieteClient;

   SCo : Nul Ou ISocieteConcurrent;

   SD : Nul Ou ISocieteDistributeur;

   SFi : Nul Ou ISocieteFinancier;

   SFo : Nul Ou ISocieteFournisseur;

   SG : Nul Ou ISocieteGroupe;

   SP : Nul Ou ISocietePartenaire;




Principal

/*******/

Debut

...

Selon S.Sorte Faire

   Cas Pour SorteSocieteClient Faire

   /* Société cliente d'une des societes du groupe. */ 
   
	   SCl=ISocieteClient(S);

      ...
   
   Fin Cas

   Cas Pour SorteSocieteConcurrent Faire

   /* Societe concurrente d'une des societes du groupe. */ 
   
	   SCo=ISocieteConcurrent(P);

	   ...
   
   Fin Cas

   Cas Pour SorteSocieteDistributeur Faire

   /* Societe distributrice pour l'une des societes du groupe. */ 
   
	   SD=ISocieteDistributeur(P);

	   ...
   
   Fin Cas

   Cas Pour SorteSocieteFinancier Faire

   /* Societe finançant l'une des societes du groupe. */ 
   
	   SFi=ISocieteFinancier(S);

	   ...
   
   Fin Cas

   Cas Pour SorteSocieteFournisseur Faire

   /* Societe fournisseuse d'une des societes du groupe. */ 
   
	   SFo=IPersonnelFournisseur(S);

	   ...
   
   Fin Cas

   Cas Pour SorteSocieteGroupe Faire

   /* Société du groupe. */ 
   
	   SG=ISocieteGroupe(S);

	   ...
   
   Fin Cas

   Cas Pour SorteSocietePartenaire Faire

   /* Société partenaire d'une des societes du groupe. */ 
   
	   SP=ISocietePartenaire(S);

	   ...
   
   Fin Cas


Fin Selon

...

Fin Principal

Traduction


-	-	-	-	-	-	-	-	-