New: La table des types d'entreprises apparait dans l'admin des dictionnaires

htdocs/admin/dict.php

@@ -50,7 +50,7 @@ $active = 1;
 // Mettre ici tous les caractéristiques des dictionnaires
 
 // Ordres d'affichage des dictionnaires (0 pour espace)
-$taborder=array(4,3,2,0,1,0,5,0,6,0,7);
+$taborder=array(4,3,2,0,1,8,0,5,0,6,0,7);
 
 // Nom des tables des dictionnaires
 $tabname[1] = MAIN_DB_PREFIX."c_forme_juridique";
@@ -60,15 +60,17 @@ $tabname[4] = MAIN_DB_PREFIX."c_pays";
 $tabname[5] = MAIN_DB_PREFIX."c_civilite";
 $tabname[6] = MAIN_DB_PREFIX."c_actioncomm";
 $tabname[7] = MAIN_DB_PREFIX."c_chargesociales";
+$tabname[8] = MAIN_DB_PREFIX."c_typent";
 
 // Libellé des dictionnaires
-$tablib[1] = $langs->trans("DictionnaryCompanyType");
+$tablib[1] = $langs->trans("DictionnaryCompanyJuridicalType");
 $tablib[2] = $langs->trans("DictionnaryCanton");
 $tablib[3] = $langs->trans("DictionnaryRegion");
 $tablib[4] = $langs->trans("DictionnaryCountry");
 $tablib[5] = $langs->trans("DictionnaryCivility");
 $tablib[6] = $langs->trans("DictionnaryActions");
 $tablib[7] = $langs->trans("DictionnarySocialContributions");
+$tablib[8] = $langs->trans("DictionnaryCompanyType");
 
 // Requete pour extraction des données des dictionnaires
 $tabsql[1] = "SELECT f.rowid as rowid, f.code, f.libelle, p.libelle as pays, f.active FROM llx_c_forme_juridique as f, llx_c_pays as p WHERE f.fk_pays=p.rowid";
@@ -78,6 +80,7 @@ $tabsql[4] = "SELECT rowid   as rowid, code, libelle, active FROM llx_c_pays";
 $tabsql[5] = "SELECT c.rowid as rowid, c.code as code, c.civilite AS libelle, c.active FROM llx_c_civilite AS c";
 $tabsql[6] = "SELECT a.id    as rowid, a.code as code, a.libelle AS libelle, a.type, a.active FROM llx_c_actioncomm AS a";
 $tabsql[7] = "SELECT a.id    as rowid, a.id as code, a.libelle AS libelle, a.deductible, a.active FROM llx_c_chargesociales AS a";
+$tabsql[8] = "SELECT id      as rowid, code, libelle, active FROM llx_c_typent";
 
 // Tri par defaut
 $tabsqlsort[1]="pays, code ASC";
@@ -87,6 +90,7 @@ $tabsqlsort[4]="libelle ASC";
 $tabsqlsort[5]="libelle ASC";
 $tabsqlsort[6]="a.type ASC, a.code ASC";
 $tabsqlsort[7]="a.libelle ASC";
+$tabsqlsort[8]="libelle ASC";
  
 // Nom des champs en resultat de select pour affichage du dictionnaire
 $tabfield[1] = "code,libelle,pays";
@@ -96,6 +100,7 @@ $tabfield[4] = "code,libelle";
 $tabfield[5] = "code,libelle";
 $tabfield[6] = "code,libelle,type";
 $tabfield[7] = "libelle,deductible";
+$tabfield[8] = "code,libelle";
 
 // Nom des champs dans la table pour insertion d'un enregistrement
 $tabfieldinsert[1] = "code,libelle,fk_pays";
@@ -105,6 +110,7 @@ $tabfieldinsert[4] = "code,libelle";
 $tabfieldinsert[5] = "code,civilite";
 $tabfieldinsert[6] = "code,libelle,type";
 $tabfieldinsert[7] = "libelle,deductible";
+$tabfieldinsert[8] = "code,libelle";
 
 // Nom du rowid si le champ n'est pas de type autoincrément
 $tabrowid[1] = "";
@@ -113,7 +119,7 @@ $tabrowid[3] = "";
 $tabrowid[4] = "rowid";
 $tabrowid[5] = "rowid";
 $tabrowid[6] = "id";
-$tabrowid[7] = "id";
+$tabrowid[8] = "id";
 
 
 $msg='';
@@ -133,7 +139,7 @@ if ($_POST["actionadd"]) {
     foreach ($listfield as $f => $value) {
         if (! isset($_POST[$value]) || $_POST[$value]=='') {
             $ok=0;
-            $msg.="Le champ '".$listfield[$f]."' n'est pas renseigné.<br>";
+            $msg.=$langs->trans("ErrorFieldRequired",$listfield[$f]).'<br>';
         }
     }
     // Autres verif
@@ -143,7 +149,7 @@ if ($_POST["actionadd"]) {
     }
     if (isset($_POST["pays"]) && $_POST["pays"]=='0') {
         $ok=0;
-        $msg.="Le Pays n'a pas été choisi<br>";
+        $msg.=$langs->trans("ErrorFieldRequired",$langs->trans("Country")).'<br>';
     }
     
     // Si verif ok, on ajoute la ligne
@@ -183,7 +189,7 @@ if ($_POST["actionadd"]) {
         if (!$result)
         {
             if ($db->errno() == DB_ERROR_RECORD_ALREADY_EXISTS) {
-                $msg="Une entrée pour cette clé existe déjà<br>";
+                $msg=$langs->trans("ErrorRecordAlreadyExists").'<br>';
             }
             else {
                 dolibarr_print_error($db);
@@ -392,7 +398,7 @@ if ($_GET["id"])
 
                 // Est-ce une entrée du dictionnaire qui peut etre désactivée ?
                 $iserasable=1;  // Oui par defaut
-                if (isset($obj->code) && ($obj->code == '0' || $obj->code == '')) $iserasable=0;
+                if (isset($obj->code) && ($obj->code == '0' || $obj->code == '' || eregi('unknown',$obj->code))) $iserasable=0;
                 if ($obj->type && $obj->type == 'system') $iserasable=0;
 
                 if ($iserasable) {

htdocs/langs/en_US/admin.lang

@@ -157,7 +157,8 @@ Permission1002=Create/modify stocks
 Permission1003=Delete stocks
 Permission1004=Read stock's movements
 Permission1005=Create/modify stock's movements
-DictionnaryCompanyType=Juridical kinds of company
+DictionnaryCompanyType=Company types
+DictionnaryCompanyJuridicalType=Juridical kinds of company
 DictionnaryCanton=Cantons
 DictionnaryRegion=Regions
 DictionnaryCountry=Countries

htdocs/langs/fr_FR/admin.lang

@@ -157,7 +157,8 @@ Permission1002=Cr
 Permission1003=Supprimer les stocks
 Permission1004=Lire les mouvements de stocks
 Permission1005=Créer/modifier les mouvements de stocks
-DictionnaryCompanyType=Formes juridiques
+DictionnaryCompanyType=Types de sociétés
+DictionnaryCompanyJuridicalType=Formes juridiques
 DictionnaryCanton=Départements/Provinces/Cantons
 DictionnaryRegion=Régions
 DictionnaryCountry=Pays