CALCUL DE LA CLE DU MATRICULE SECURITE SOCIALE

*	*****************************************	
*	*  Calcul de la clé d'un numéro de Sécurité Sociale	*
*	*	-------------------------------------------	*
*	*  - Pour les assurés nés en 	Corse		*
*	*        2A = 19				*
*	*        2B = 18				*
*	*****************************************	
*

*	*****************************************
*	* Une personne née sur le continent		*
*	*****************************************
*	* 
nSecuSoc	= "1290278551031"
DO Convertir WITH nSecuSoc


*	*********************************
*	* Une personne née en Corse		*
*	*********************************
*	* 
nSecuSoc	= "129022A551031"
DO Convertir WITH nSecuSoc


*	*********************************
*	* Une personne née en Corse		*
*	*********************************
*	* 
nSecuSoc	= "129022B551031"
DO Convertir WITH nSecuSoc


PROCEDURE convertir
PARAMETERS  nCode
    nCode 	= Iif(substr(nCode,6,2)="2A",LEFT(nCode,5)+"19"+RIGHT(nCode,6), ;
                   Iif(substr(nCode,6,2)="2B",LEFT(nCode,5)+"18"+RIGHT(nCode,6), nCode))	
   ? "    La clé calculée est égale à : " + ALLTRIM(STR(97 - MOD(VAL(nCode),97))) ;
           + "  ----- "+ nCode