begin process at 2010 03 15 05:31:15
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > CALCUL DE LA CLE DU MATRICULE SECURITE SOCIALE

CALCUL DE LA CLE DU MATRICULE SECURITE SOCIALE


 Information sur la source

Note :
Aucune note
Catégorie :Divers Classé sous :sécurité, sociale, clé Niveau :Débutant Date de création :02/11/2004 Vu :21 317
Auteur : Roland38

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Calcul de la clé (deux dernier caractères) de votre n° de Sécurité sociale.
Utile pour les contrôles des données transmisent par les partenaires de santé vers la CPAM.

Source

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

 Conclusion

Il est possible d'intégrer les 2 instructions IIF directement dans le calcul de la clé, mais pour des raisons de lisibilité, j'ai préféré décomposer l'action.


 Sources du même auteur

PROGRESBAR
Toutes les sources de Roland38

 Sources de la même categorie

RENOMMER LE PRÉFIXE DE TOUS LES FICHIERS D'UN DOSSIER par mike_vk
COULEUR HEXADECIMAL par tmcuh
Source avec Zip ITERATION par DDU de AtoutFox
CRYPTE/DECRYPTE par FredArmoni
CONTRÔLE DU NUMÉRO DE TVA (BELGE) par johnmary
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

RECHERCHE D'UNE VALEUR DE CLEF DANS LE REGISTRE par johnmary
Source avec Zip CACLUL D'UNE CLEF DE HACHAGE MD5 (RFC 1321) par pgilles

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Trouver clé primaire [ par ducker88 ] Bonjour,Est t'il possible de trouvé automatiquement la clé primaire en connaissant la table ?Je voudrais realiser une fonction permettant&nb Recursivité [ par ducker88 ] Bonjour a tous,Voici mon probleme, j'ai besoin de realiser une recursivité sur une table et j'aimerai savoir si cela est possible en foxpro.En fa La propriété de clé primaire n'est pas valide [ par ducker88 ] Bonjour à tous,Voici mon problème, auquel je ne trouve aucune solution.J'ai une database et dans celle-ci j'ai une table qui me renvoi l'erreur "La pr "traduction" [ par Inferno8 ] Bonjour tout le monde Je suis en stage pour l'AFPA pour être développeur informatique et mon maitre de stage m'a donné un ch'tit exercice : il m'a do


Nos sponsors


Appels d'offres

Sondage...

Comparez les prix


Console Sony PSP-3000 Black
Entre 200€ et 200€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

Photo Playa 
  

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,671 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)