- * *****************************************
- * * 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
* *****************************************
* * 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