\n";
+
+ /* Je désactive cette option "facturation" car ce statut fiscal n'existe pas. Seul le réel et franchise existe.
+ Cette option ne doit donc pas etre en "exclusif" avec l'option fiscale de gestion de tva. Peut etre faut-il
+ une option a part qui n'entre pas en conflit avec les choix "assujéti TVA" ou "non".
+ $var=!$var;
+ print "
";
+ print "
L'option 'facturation' est utilisée par les entreprises qui payent la TVA à facturation (vente de matériel).
';
+
+ print ' ';
}
$db->close();
@@ -741,13 +744,13 @@ $db->close();
llxFooter('$Date$ - $Revision$');
-
+
/**
-* \brief Retourne le nom traduit ou code+nom d'une devise
-* \param code_iso Code iso de la devise
-* \param withcode 1=affiche code + nom
-* \return string Nom traduit de la devise
-*/
+ * \brief Retourne le nom traduit ou code+nom d'une devise
+ * \param code_iso Code iso de la devise
+ * \param withcode 1=affiche code + nom
+ * \return string Nom traduit de la devise
+ */
function currency_name($code_iso,$withcode=0)
{
global $langs,$db;
@@ -757,7 +760,7 @@ function currency_name($code_iso,$withcode=0)
{
return $langs->trans("Currency".$code_iso);
}
-
+
// Si pas de traduction, on consulte le libellé par défaut en table
$sql = "SELECT label FROM ".MAIN_DB_PREFIX."c_currencies";
$sql.= " WHERE code_iso='".$code_iso."'";
diff --git a/htdocs/admin/dict.php b/htdocs/admin/dict.php
index e5f43346673..c917372c262 100644
--- a/htdocs/admin/dict.php
+++ b/htdocs/admin/dict.php
@@ -28,6 +28,7 @@
require("./pre.inc.php");
require_once(DOL_DOCUMENT_ROOT."/html.formadmin.class.php");
+require_once(DOL_DOCUMENT_ROOT."/html.formcompany.class.php");
$langs->load("other");
$langs->load("admin");
@@ -715,6 +716,7 @@ function fieldList($fieldlist,$obj='')
$html = new Form($db);
$formadmin = new FormAdmin($db);
+ $formcompany = new FormCompany($db);
foreach ($fieldlist as $field => $value)
{
@@ -730,7 +732,7 @@ function fieldList($fieldlist,$obj='')
}
elseif ($fieldlist[$field] == 'region') {
print '
';
diff --git a/htdocs/html.form.class.php b/htdocs/html.form.class.php
index 630a458f1ab..66393537303 100644
--- a/htdocs/html.form.class.php
+++ b/htdocs/html.form.class.php
@@ -170,207 +170,6 @@ class Form
}
- /**
- * \brief Retourne la liste déroulante des départements/province/cantons tout pays confondu ou pour un pays donné.
- * \remarks Dans le cas d'une liste tout pays confondus, l'affichage fait une rupture sur le pays.
- * \remarks La cle de la liste est le code (il peut y avoir plusieurs entrée pour
- * un code donnée mais dans ce cas, le champ pays diffère).
- * Ainsi les liens avec les départements se font sur un département indépendemment de son nom.
- * \param selected code forme juridique a présélectionné
- * \param pays_code 0=liste tous pays confondus, sinon code du pays à afficher
- */
- function select_departement($selected='',$pays_code=0)
- {
- global $conf,$langs,$user;
-
- dolibarr_syslog("Form::select_departement selected=$selected, pays_code=$pays_code",LOG_DEBUG);
-
- $langs->load("dict");
-
- $htmlname='departement_id';
-
- // On recherche les départements/cantons/province active d'une region et pays actif
- $sql = "SELECT d.rowid, d.code_departement as code , d.nom, d.active, p.libelle as libelle_pays, p.code as code_pays FROM";
- $sql .= " ".MAIN_DB_PREFIX ."c_departements as d, ".MAIN_DB_PREFIX."c_regions as r,".MAIN_DB_PREFIX."c_pays as p";
- $sql .= " WHERE d.fk_region=r.code_region and r.fk_pays=p.rowid";
- $sql .= " AND d.active = 1 AND r.active = 1 AND p.active = 1";
- if ($pays_code) $sql .= " AND p.code = '".$pays_code."'";
- $sql .= " ORDER BY p.code, d.code_departement";
-
- dolibarr_syslog("Form::select_departement sql=".$sql);
- $result=$this->db->query($sql);
- if ($result)
- {
- print '';
- if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- else {
- dolibarr_print_error($this->db);
- }
- }
-
-
- /**
- * \brief Retourne la liste déroulante des regions actives dont le pays est actif
- * \remarks La cle de la liste est le code (il peut y avoir plusieurs entrée pour
- * un code donnée mais dans ce cas, le champ pays et lang diffère).
- * Ainsi les liens avec les regions se font sur une region independemment
- * de son nom.
- */
-
- function select_region($selected='',$htmlname='region_id')
- {
- global $conf,$langs;
- $langs->load("dict");
-
- $sql = "SELECT r.rowid, r.code_region as code, r.nom as libelle, r.active, p.libelle as libelle_pays FROM ".MAIN_DB_PREFIX."c_regions as r, ".MAIN_DB_PREFIX."c_pays as p";
- $sql .= " WHERE r.fk_pays=p.rowid AND r.active = 1 and p.active = 1 ORDER BY libelle_pays, libelle ASC";
-
- dolibarr_syslog("Form::select_region sql=".$sql);
- if ($this->db->query($sql))
- {
- print '';
- }
- else {
- dolibarr_print_error($this->db);
- }
- }
-
-
- /**
- * \brief Renvoie la liste des sources de commandes
- * \param selected Id de la source pré-sélectionnée
- * \param htmlname Nom de la liste deroulante
- * \param addempty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
- * \return array Tableau des sources de commandes
- */
- function selectSourcesCommande($selected='',$htmlname='source_id',$addempty=0)
- {
- global $conf,$langs;
- print '';
- }
-
-
- /**
- *
- *
- */
- function select_methodes_commande($selected='',$htmlname='source_id',$addempty=0)
- {
- global $conf,$langs;
- $listemethodes=array();
-
- $sql = "SELECT rowid, libelle ";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_methode_commande_fournisseur";
- $sql.= " WHERE active = 1";
-
- dolibarr_syslog("Form::select_methodes_commande sql=".$sql);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $i = 0;
- $num = $this->db->num_rows($resql);
- while ($i < $num)
- {
- $obj = $this->db->fetch_object($resql);
- $listemethodes[$obj->rowid] = $obj->libelle;
- $i++;
- }
- }
- else
- {
- dolibarr_print_error($this->db);
- return -1;
- }
-
- print $this->select_array($htmlname,$listemethodes,$selected,$addempty);
- return 1;
- }
/**
* \brief Retourne la liste déroulante des pays actifs, dans la langue de l'utilisateur
@@ -515,27 +314,6 @@ class Form
}
- /**
- * \brief Retourne la liste des types de comptes financiers
- * \param selected Type pré-sélectionné
- * \param htmlname Nom champ formulaire
- */
- function select_type_actions($selected='',$htmlname='actioncode')
- {
- global $langs,$user;
-
- require_once(DOL_DOCUMENT_ROOT."/cactioncomm.class.php");
- $caction=new CActionComm($this->db);
-
- $arraylist=$caction->liste_array(1,'code');
- $arraylist[0]=' ';
- asort($arraylist);
-
- $this->select_array($htmlname, $arraylist, $selected);
- if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
-
-
/**
* \brief Return list of social contributions
* \param selected Preselected type
@@ -1361,110 +1139,6 @@ class Form
}
- /**
- * \brief Renvoie la liste des types d'effectifs possibles (pas de traduction car nombre)
- * \param mode 0=renvoi id+libelle, 1=renvoi code+libelle
- * \return array tableau des types d'effectifs
- */
- function effectif_array($mode=0)
- {
- $effs = array();
-
- $sql = "SELECT id, code, libelle";
- $sql .= " FROM ".MAIN_DB_PREFIX."c_effectif";
- $sql.= " WHERE active = 1";
- $sql .= " ORDER BY id ASC";
- dolibarr_syslog('Form::effectif_array sql='.$sql,LOG_DEBUG);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
-
- while ($i < $num)
- {
- $objp = $this->db->fetch_object($resql);
- if (! $mode) $key=$objp->id;
- else $key=$objp->code;
-
- $effs[$key] = $objp->libelle!='-'?$objp->libelle:'';
- $i++;
- }
- $this->db->free($resql);
- }
- return $effs;
- }
-
- /**
- * \brief Renvoie la liste des formes juridiques existantes (pas de traduction car unique au pays)
- * \return array tableau des formes juridiques
- */
- function forme_juridique_array()
- {
- $fj = array();
-
- $sql = "SELECT code, libelle";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_forme_juridique";
- $sql.= " WHERE active = 1";
- $sql.= " ORDER BY code ASC";
- dolibarr_syslog('Form::forme_juridique_array sql='.$sql,LOG_DEBUG);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
-
- while ($i < $num)
- {
- $objp = $this->db->fetch_object($resql);
- $fj[$objp->code] = $objp->libelle!='-'?$objp->libelle:'';
- $i++;
- }
- $this->db->free($resql);
- }
- return $fj;
- }
-
- /**
- * \brief Renvoie la liste des libelles traduits des types actifs de societes
- * \param mode 0=renvoi id+libelle, 1=renvoi code+libelle
- * \return array tableau des types
- */
- function typent_array($mode=0)
- {
- global $langs;
-
- $effs = array();
-
- $sql = "SELECT id, code, libelle";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_typent";
- $sql.= " WHERE active = 1";
- $sql.= " ORDER by id";
- dolibarr_syslog('Form::typent_array sql='.$sql,LOG_DEBUG);
- $resql=$this->db->query($sql);
- if ($resql)
- {
- $num = $this->db->num_rows($resql);
- $i = 0;
-
- while ($i < $num)
- {
- $objp = $this->db->fetch_object($resql);
- if (! $mode) $key=$objp->id;
- else $key=$objp->code;
-
- if ($langs->trans($objp->code) != $objp->code)
- $effs[$key] = $langs->trans($objp->code);
- else
- $effs[$key] = $objp->libelle!='-'?$objp->libelle:'';
- $i++;
- }
- $this->db->free($resql);
- }
-
- return $effs;
- }
-
/**
* \brief Charge dans cache la liste des conditions de paiements possibles
* \return int Nb lignes chargées, 0 si déjà chargées, <0 si ko
@@ -1791,128 +1465,6 @@ class Form
}
-
- /**
- * \brief Retourne la liste déroulante des civilite actives
- * \param selected civilite pré-sélectionnée
- */
- function select_civilite($selected='')
- {
- global $conf,$langs,$user;
- $langs->load("dict");
-
- $sql = "SELECT rowid, code, civilite, active FROM ".MAIN_DB_PREFIX."c_civilite";
- $sql .= " WHERE active = 1";
-
- dolibarr_syslog("Form::select_civilite sql=".$sql);
- if ($this->db->query($sql))
- {
- print '';
- if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
- }
- else
- {
- dolibarr_print_error($this->db);
- }
- }
-
-
- /**
- * \brief Retourne la liste déroulante des formes juridiques tous pays confondus ou pour un pays donné.
- * \remarks Dans le cas d'une liste tous pays confondu, on affiche une rupture sur le pays
- * \param selected Code forme juridique a pré-sélectionné
- * \param pays_code 0=liste tous pays confondus, sinon code du pays à afficher
- */
- function select_forme_juridique($selected='',$pays_code=0)
- {
- global $conf,$langs,$user;
- $langs->load("dict");
-
- // On recherche les formes juridiques actives des pays actifs
- $sql = "SELECT f.rowid, f.code as code , f.libelle as nom, f.active, p.libelle as libelle_pays, p.code as code_pays";
- $sql .= " FROM llx_c_forme_juridique as f, llx_c_pays as p";
- $sql .= " WHERE f.fk_pays=p.rowid";
- $sql .= " AND f.active = 1 AND p.active = 1";
- if ($pays_code) $sql .= " AND p.code = '".$pays_code."'";
- $sql .= " ORDER BY p.code, f.code";
-
- dolibarr_syslog("Form::select_forme_juridique sql=".$sql);
- $result=$this->db->query($sql);
- if ($result)
- {
- print '
';
- }
- else
- {
- dolibarr_print_error($this->db);
- }
- }
-
-
/**
* \brief Affiche formulaire de demande de confirmation
* \param page page
@@ -2082,38 +1634,6 @@ class Form
}
}
- /**
- * \brief Affiche formulaire de selection de l'assujétissement à la TVA
- * \param page Page
- * \param selected Id condition pré-sélectionnée
- * \param htmlname Nom du formulaire select
- */
- function form_assujetti_tva($page, $selected='', $htmlname='')
- {
- global $langs;
- $options = array(0=>"non",1=>"oui");
- if ($htmlname != "none")
- {
- print '';
- }
- else
- {
- if ($selected != "")
- {
- print $options[$selected];
- } else {
- print " ";
- }
- }
- }
-
/**
* \brief Affiche formulaire de selection des modes de reglement
@@ -2148,58 +1668,6 @@ class Form
}
- /**
- * \brief Affiche formulaire de selection des modes de reglement
- * \param page Page
- * \param selected Id or code preselected
- * \param htmlname Nom du formulaire select
- * \param empty Add empty value in list
- */
- function form_prospect_level($page, $selected='', $htmlname='prospect_level_id', $empty=0)
- {
- global $langs;
-
- print '';
- }
-
/**
* \brief Affiche formulaire de selection de la remise fixe
* \param page Page URL where form is shown
diff --git a/htdocs/html.formactions.class.php b/htdocs/html.formactions.class.php
index 09c7de801df..16457a369dd 100644
--- a/htdocs/html.formactions.class.php
+++ b/htdocs/html.formactions.class.php
@@ -148,4 +148,27 @@ class FormActions
}
}
+
+ /**
+ * \brief Retourne la liste des types de comptes financiers
+ * \param selected Type pré-sélectionné
+ * \param htmlname Nom champ formulaire
+ */
+ function select_type_actions($selected='',$htmlname='actioncode')
+ {
+ global $langs,$user;
+
+ require_once(DOL_DOCUMENT_ROOT."/cactioncomm.class.php");
+ require_once(DOL_DOCUMENT_ROOT."/html.form.class.php");
+ $caction=new CActionComm($this->db);
+ $form=new Form($this->db);
+
+ $arraylist=$caction->liste_array(1,'code');
+ $arraylist[0]=' ';
+ asort($arraylist);
+
+ $form->select_array($htmlname, $arraylist, $selected);
+ if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
+ }
+
}
diff --git a/htdocs/html.formcompany.class.php b/htdocs/html.formcompany.class.php
new file mode 100644
index 00000000000..94600a9c226
--- /dev/null
+++ b/htdocs/html.formcompany.class.php
@@ -0,0 +1,441 @@
+
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+/**
+ * \file htdocs/html.formcompany.class.php
+ * \brief Fichier de la classe des fonctions prédéfinie de composants html
+ * \version $Id$
+ */
+
+
+/**
+ * \class FormCompany
+ * \brief Classe permettant la génération de composants html
+ * \remarks Only common components must be here.
+ */
+class FormCompany
+{
+ var $db;
+ var $error;
+
+
+
+ /**
+ * \brief Constructeur
+ * \param DB handler d'accès base de donnée
+ */
+ function FormCompany($DB)
+ {
+ $this->db = $DB;
+
+ return 1;
+ }
+
+
+ /**
+ * \brief Renvoie la liste des libelles traduits des types actifs de societes
+ * \param mode 0=renvoi id+libelle, 1=renvoi code+libelle
+ * \return array tableau des types
+ */
+ function typent_array($mode=0)
+ {
+ global $langs;
+
+ $effs = array();
+
+ $sql = "SELECT id, code, libelle";
+ $sql.= " FROM ".MAIN_DB_PREFIX."c_typent";
+ $sql.= " WHERE active = 1";
+ $sql.= " ORDER by id";
+ dolibarr_syslog('Form::typent_array sql='.$sql,LOG_DEBUG);
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ $num = $this->db->num_rows($resql);
+ $i = 0;
+
+ while ($i < $num)
+ {
+ $objp = $this->db->fetch_object($resql);
+ if (! $mode) $key=$objp->id;
+ else $key=$objp->code;
+
+ if ($langs->trans($objp->code) != $objp->code)
+ $effs[$key] = $langs->trans($objp->code);
+ else
+ $effs[$key] = $objp->libelle!='-'?$objp->libelle:'';
+ $i++;
+ }
+ $this->db->free($resql);
+ }
+
+ return $effs;
+ }
+
+ /**
+ * \brief Renvoie la liste des types d'effectifs possibles (pas de traduction car nombre)
+ * \param mode 0=renvoi id+libelle, 1=renvoi code+libelle
+ * \return array tableau des types d'effectifs
+ */
+ function effectif_array($mode=0)
+ {
+ $effs = array();
+
+ $sql = "SELECT id, code, libelle";
+ $sql .= " FROM ".MAIN_DB_PREFIX."c_effectif";
+ $sql.= " WHERE active = 1";
+ $sql .= " ORDER BY id ASC";
+ dolibarr_syslog('Form::effectif_array sql='.$sql,LOG_DEBUG);
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ $num = $this->db->num_rows($resql);
+ $i = 0;
+
+ while ($i < $num)
+ {
+ $objp = $this->db->fetch_object($resql);
+ if (! $mode) $key=$objp->id;
+ else $key=$objp->code;
+
+ $effs[$key] = $objp->libelle!='-'?$objp->libelle:'';
+ $i++;
+ }
+ $this->db->free($resql);
+ }
+ return $effs;
+ }
+
+
+ /**
+ * \brief Affiche formulaire de selection des modes de reglement
+ * \param page Page
+ * \param selected Id or code preselected
+ * \param htmlname Nom du formulaire select
+ * \param empty Add empty value in list
+ */
+ function form_prospect_level($page, $selected='', $htmlname='prospect_level_id', $empty=0)
+ {
+ global $langs;
+
+ print '';
+ }
+
+
+ /**
+ * \brief Retourne la liste déroulante des départements/province/cantons tout pays confondu ou pour un pays donné.
+ * \remarks Dans le cas d'une liste tout pays confondus, l'affichage fait une rupture sur le pays.
+ * \remarks La cle de la liste est le code (il peut y avoir plusieurs entrée pour
+ * un code donnée mais dans ce cas, le champ pays diffère).
+ * Ainsi les liens avec les départements se font sur un département indépendemment de son nom.
+ * \param selected code forme juridique a présélectionné
+ * \param pays_code 0=liste tous pays confondus, sinon code du pays à afficher
+ */
+ function select_departement($selected='',$pays_code=0)
+ {
+ global $conf,$langs,$user;
+
+ dolibarr_syslog("Form::select_departement selected=$selected, pays_code=$pays_code",LOG_DEBUG);
+
+ $langs->load("dict");
+
+ $htmlname='departement_id';
+
+ // On recherche les départements/cantons/province active d'une region et pays actif
+ $sql = "SELECT d.rowid, d.code_departement as code , d.nom, d.active, p.libelle as libelle_pays, p.code as code_pays FROM";
+ $sql .= " ".MAIN_DB_PREFIX ."c_departements as d, ".MAIN_DB_PREFIX."c_regions as r,".MAIN_DB_PREFIX."c_pays as p";
+ $sql .= " WHERE d.fk_region=r.code_region and r.fk_pays=p.rowid";
+ $sql .= " AND d.active = 1 AND r.active = 1 AND p.active = 1";
+ if ($pays_code) $sql .= " AND p.code = '".$pays_code."'";
+ $sql .= " ORDER BY p.code, d.code_departement";
+
+ dolibarr_syslog("Form::select_departement sql=".$sql);
+ $result=$this->db->query($sql);
+ if ($result)
+ {
+ print '';
+ if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
+ }
+ else
+ {
+ dolibarr_print_error($this->db);
+ }
+ }
+
+
+ /**
+ * \brief Retourne la liste déroulante des regions actives dont le pays est actif
+ * \remarks La cle de la liste est le code (il peut y avoir plusieurs entrée pour
+ * un code donnée mais dans ce cas, le champ pays et lang diffère).
+ * Ainsi les liens avec les regions se font sur une region independemment
+ * de son nom.
+ */
+ function select_region($selected='',$htmlname='region_id')
+ {
+ global $conf,$langs;
+ $langs->load("dict");
+
+ $sql = "SELECT r.rowid, r.code_region as code, r.nom as libelle, r.active, p.libelle as libelle_pays FROM ".MAIN_DB_PREFIX."c_regions as r, ".MAIN_DB_PREFIX."c_pays as p";
+ $sql .= " WHERE r.fk_pays=p.rowid AND r.active = 1 and p.active = 1 ORDER BY libelle_pays, libelle ASC";
+
+ dolibarr_syslog("Form::select_region sql=".$sql);
+ if ($this->db->query($sql))
+ {
+ print '';
+ }
+ else
+ {
+ dolibarr_print_error($this->db);
+ }
+ }
+
+
+ /**
+ * \brief Retourne la liste déroulante des civilite actives
+ * \param selected civilite pré-sélectionnée
+ */
+ function select_civilite($selected='')
+ {
+ global $conf,$langs,$user;
+ $langs->load("dict");
+
+ $sql = "SELECT rowid, code, civilite, active FROM ".MAIN_DB_PREFIX."c_civilite";
+ $sql .= " WHERE active = 1";
+
+ dolibarr_syslog("Form::select_civilite sql=".$sql);
+ if ($this->db->query($sql))
+ {
+ print '';
+ if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
+ }
+ else
+ {
+ dolibarr_print_error($this->db);
+ }
+ }
+
+
+ /**
+ * \brief Retourne la liste déroulante des formes juridiques tous pays confondus ou pour un pays donné.
+ * \remarks Dans le cas d'une liste tous pays confondu, on affiche une rupture sur le pays
+ * \param selected Code forme juridique a pré-sélectionné
+ * \param pays_code 0=liste tous pays confondus, sinon code du pays à afficher
+ */
+ function select_forme_juridique($selected='',$pays_code=0)
+ {
+ global $conf,$langs,$user;
+ $langs->load("dict");
+
+ // On recherche les formes juridiques actives des pays actifs
+ $sql = "SELECT f.rowid, f.code as code , f.libelle as nom, f.active, p.libelle as libelle_pays, p.code as code_pays";
+ $sql .= " FROM llx_c_forme_juridique as f, llx_c_pays as p";
+ $sql .= " WHERE f.fk_pays=p.rowid";
+ $sql .= " AND f.active = 1 AND p.active = 1";
+ if ($pays_code) $sql .= " AND p.code = '".$pays_code."'";
+ $sql .= " ORDER BY p.code, f.code";
+
+ dolibarr_syslog("Form::select_forme_juridique sql=".$sql);
+ $result=$this->db->query($sql);
+ if ($result)
+ {
+ print '
';
+ }
+ else
+ {
+ dolibarr_print_error($this->db);
+ }
+ }
+
+}
+
+?>
diff --git a/htdocs/html.formorder.class.php b/htdocs/html.formorder.class.php
new file mode 100644
index 00000000000..c8ce07f0a0f
--- /dev/null
+++ b/htdocs/html.formorder.class.php
@@ -0,0 +1,114 @@
+
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+/**
+ * \file htdocs/html.formorder.class.php
+ * \brief Fichier de la classe des fonctions prédéfinie de composants html
+ * \version $Id$
+ */
+
+
+/**
+ * \class FormOrder
+ * \brief Classe permettant la génération de composants html
+ * \remarks Only common components must be here.
+ */
+class FormOrder
+{
+ var $db;
+ var $error;
+
+
+
+ /**
+ * \brief Constructeur
+ * \param DB handler d'accès base de donnée
+ */
+ function FormOrder($DB)
+ {
+ $this->db = $DB;
+
+ return 1;
+ }
+
+
+ /**
+ * \brief Renvoie la liste des sources de commandes
+ * \param selected Id de la source pré-sélectionnée
+ * \param htmlname Nom de la liste deroulante
+ * \param addempty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
+ * \return array Tableau des sources de commandes
+ */
+ function selectSourcesCommande($selected='',$htmlname='source_id',$addempty=0)
+ {
+ global $conf,$langs;
+ print '';
+ }
+
+
+ /**
+ *
+ *
+ */
+ function select_methodes_commande($selected='',$htmlname='source_id',$addempty=0)
+ {
+ global $conf,$langs;
+ $listemethodes=array();
+
+ $sql = "SELECT rowid, libelle ";
+ $sql.= " FROM ".MAIN_DB_PREFIX."c_methode_commande_fournisseur";
+ $sql.= " WHERE active = 1";
+
+ dolibarr_syslog("Form::select_methodes_commande sql=".$sql);
+ $resql=$this->db->query($sql);
+ if ($resql)
+ {
+ $i = 0;
+ $num = $this->db->num_rows($resql);
+ while ($i < $num)
+ {
+ $obj = $this->db->fetch_object($resql);
+ $listemethodes[$obj->rowid] = $obj->libelle;
+ $i++;
+ }
+ }
+ else
+ {
+ dolibarr_print_error($this->db);
+ return -1;
+ }
+
+ print $this->select_array($htmlname,$listemethodes,$selected,$addempty);
+ return 1;
+ }
+
+}
+
+?>
diff --git a/htdocs/soc.php b/htdocs/soc.php
index 7b4024f3632..5a53fd81d6c 100644
--- a/htdocs/soc.php
+++ b/htdocs/soc.php
@@ -30,6 +30,7 @@
require("pre.inc.php");
require_once(DOL_DOCUMENT_ROOT."/lib/company.lib.php");
+require_once(DOL_DOCUMENT_ROOT."/html.formcompany.class.php");
require_once(DOL_DOCUMENT_ROOT."/contact.class.php");
$langs->load("companies");
@@ -266,6 +267,8 @@ if ($_REQUEST["action"] == 'confirm_delete' && $_REQUEST["confirm"] == 'yes' &&
llxHeader();
$form = new Form($db);
+$formcompany = new FormCompany($db);
+
$countrynotdefined=$langs->trans("ErrorSetACountryFirst").' ('.$langs->trans("SeeAbove").')';
@@ -390,7 +393,7 @@ $_GET["action"] == 'create' || $_POST["action"] == 'create')
print '
';
- }
+ $var=!$var;
+ print '