Trucs et astuces‎ > ‎

Recherche d’un code NAF

Préambule   

Rédigé le 26/11/2007 par Jessihash et extrait de son blog SuneidoFR.
Field_naf permet la recherche d’un code NAF (Nomenclature d’Activités Française) dans la base de donnée INSEE (NAF rév. 1, 2003) et l’affichage de la désignation complète de celui-ci.Tout d’abord nous devons définir une table qui importera la Nomenclature d’Activités Française Niveau 700 (la plus détaillée, voir le site de l’INSEE pour plus de détail)

Définition de la table naf700   

Database("ensure naf700 (naf_code, naf_libelle) key(naf_code) index(naf_libelle)" )
   File("naf/naf_700.txt" )
   { |f|
   while (false isnt (ligne = f.Readline()))
   {
   enr = Record()
   valeurs = ligne.Split('\t')
   for (i in valeurs.Members())
   enr[champs1[i]] = valeurs[i]
   QueryOutput ("naf700", enr)
   }
   }
Cette fonction définit la table naf700 qui est composée des colonnes naf_code et naf_libelle et a comme clé primaire naf_code.

Nous définissons ensuite un paramètre de champs pour un fichier d’import et importons dans la table naf700 les données du fichier naf/naf_700.txt.

Définition du champs naf700   

Field_string
   {
   Prompt: 'NAF'
   Control: (Key 'naf700' field:'naf_code', width: 4)
   Format: (Text width: 4)
   }
Le champ naf est défini comme un champ string qui est basé sur un contrôle Key prenant en paramètre la table naf700.