diff --git a/htdocs/html.form.class.php b/htdocs/html.form.class.php index 2fa941a7f11..5e71fca221d 100644 --- a/htdocs/html.form.class.php +++ b/htdocs/html.form.class.php @@ -1,1959 +1,1959 @@ - - * Copyright (C) 2004-2005 Laurent Destailleur - * Copyright (C) 2004 Benoit Mortier - * Copyright (C) 2004 Sebastien Di Cintio - * Copyright (C) 2004 Eric Seigne - * Copyright (C) 2006 Andre Cianfarani - * - * 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. - * - * $Id$ - * $Source$ - */ - -/** - \file htdocs/html.form.class.php - \brief Fichier de la classe des fonctions prédéfinie de composants html - \version $Revision$ -*/ - - -/** - \class Form - \brief Classe permettant la génération de composants html -*/ - -class Form -{ - var $db; - var $errorstr; - - var $cache_types_paiements_code=array(); - var $cache_types_paiements_libelle=array(); - var $cache_conditions_paiements_code=array(); - var $cache_conditions_paiements_libelle=array(); - - - /** - \brief Constructeur - \param DB handler d'accès base de donnée - */ - function Form($DB) - { - $this->db = $DB; - - return 1; - } - - /** - \brief Retourne propriétés pour affichae d'un tooltip - \param htmltooltip Contenu html du tooltip - \return string Chaine des propriétés de declenchement du tooltip - */ - function tooltip_properties($htmltooltip='Text for tooltip') - { - global $conf; - $s =''; - if ($conf->use_javascript) - { - $s.=' onmouseover="showtip(\''.$htmltooltip.'\')"'; - $s.=' onMouseout="hidetip()"'; - } - return $s; - } - - /** - \brief Efface champ alt et title pour permettre utiliser dans un tooltip - \param string Chaine a nettoyer - \return string Chaine nettoyé - */ - function tooltip_sanitize($string) - { - global $conf; - if ($conf->use_javascript) - { - // Supprime alt et title de text pour eviter conflit avec tooltip - $string=eregi_replace('alt="[^"]+"','',$string); - $string=eregi_replace('title="[^"]+"','',$string); - } - return $string; - } - - /** - * \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 nom som. - * \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; - $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"; - - $result=$this->db->query($sql); - if ($result) - { - print ''; - } - 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 nom som. - */ - - 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"; - - if ($this->db->query($sql)) - { - print ''; - } - else { - dolibarr_print_error($this->db); - } - } - - /** - * \brief Retourne la liste déroulante des pays actifs, dans la langue de l'utilisateur - * \param selected Code pays pré-sélectionné - * \param htmlname Nom de la liste deroulante - * \param htmloption Options html sur le select - * \todo trier liste sur noms après traduction plutot que avant - */ - - function select_pays($selected='',$htmlname='pays_id',$htmloption='') - { - global $conf,$langs; - $langs->load("dict"); - - $sql = "SELECT rowid, libelle, code, active FROM ".MAIN_DB_PREFIX."c_pays"; - $sql .= " WHERE active = 1"; - $sql .= " ORDER BY code ASC;"; - - if ($this->db->query($sql)) - { - print ''; - return 0; - } - else { - dolibarr_print_error($this->db); - return 1; - } - } - - - /** - * \brief Retourne la liste déroulante des langues disponibles - * \param selected Langue présélectionnée - * \param htmlname Nom de la zone select - * \param showauto Affiche choix auto - */ - function select_lang($selected='',$htmlname='lang_id',$showauto=0) - { - global $langs; - - $langs_available=$langs->get_available_languages(); - - print ''; - } - - - /** - * \brief Retourne la liste déroulante des menus disponibles - * \param selected Menu pré-sélectionnée - * \param htmlname Nom de la zone select - * \param dirmenu Repértoire à scanner - */ - function select_menu($selected='',$htmlname,$dirmenu) - { - global $langs; - - if ($selected == 'eldy.php') $selected='eldy_backoffice.php'; // Pour compatibilité - - print ''; - } - - /** - * \brief Retourne la liste des types de comptes financiers - * \param selected Type pré-sélectionné - * \param htmlname Nom champ formulaire - */ - - function select_type_comptes_financiers($selected=1,$htmlname='type') - { - global $langs; - $langs->load("banks"); - - $type_available=array(0,1,2); - - print ''; - } - - - /** - * \brief Retourne la liste déroulante des sociétés - * \param selected Societe présélectionnée - * \param htmlname Nom champ formulaire - * \param filter Criteres optionnels de filtre - */ - function select_societes($selected='',$htmlname='soc_id',$filter='') - { - // On recherche les societes - $sql = "SELECT s.idp, s.nom FROM"; - $sql.= " ".MAIN_DB_PREFIX ."societe as s"; - if ($filter) $sql.= " WHERE $filter"; - $sql.= " ORDER BY nom ASC"; - - $resql=$this->db->query($sql); - if ($resql) - { - print ''; - } - else { - dolibarr_print_error($this->db); - } - } - - - /** - * \brief Retourne la liste déroulante des contacts d'une société donnée - * \param socid Id de la société - * \param selected Id contact pré-sélectionn - * \param htmlname Nom champ formulaire - */ - function select_contacts($socid,$selected='',$htmlname='contactid') - { - // On recherche les societes - $sql = "SELECT s.idp, s.name, s.firstname FROM "; - $sql .= MAIN_DB_PREFIX ."socpeople as s"; - $sql .= " WHERE fk_soc=".$socid; - $sql .= " ORDER BY s.name ASC"; - - if ($this->db->query($sql)) - { - print ''; - } - else - { - dolibarr_print_error($this->db); - } - } - - - /** - * \brief Retourne la liste déroulante des utilisateurs - * \param selected Id contact pré-sélectionn - * \param htmlname Nom champ formulaire - */ - function select_users($selected='',$htmlname='userid') - { - // On recherche les societes - $sql = "SELECT u.rowid, u.name, u.firstname FROM "; - $sql .= MAIN_DB_PREFIX ."user as u"; - $sql .= " ORDER BY u.name ASC"; - - if ($this->db->query($sql)) - { - print ''; - } - else - { - dolibarr_print_error($this->db); - } - } - - - /** - * \brief Affiche la liste déroulante des projets d'une société donnée - * \param socid Id société - * \param selected Id projet présélectionné - * \param htmlname Nom de la zone html - * \return int Nbre de projet si ok, <0 si ko - */ - function select_projects($socid='', $selected='', $htmlname='projectid') - { - // On recherche les projets - $sql = 'SELECT p.rowid, p.title FROM '; - $sql.= MAIN_DB_PREFIX .'projet as p'; - $sql.= " WHERE fk_soc='".$socid."'"; - $sql.= " ORDER BY p.title ASC"; - - $result=$this->db->query($sql); - if ($result) - { - print ''; - return $num; - } - else - { - dolibarr_print_error($this->db); - return -1; - } - } - - /** - * \brief Retourne la liste des produits - * \param selected Produit présélectionné - * \param htmlname Nom de la zone select - * \param filtretype Pour filtre sur type de produit - * \param limit Limite sur le nombre de lignes retournées - */ - function select_produits($selected='',$htmlname='productid',$filtretype='',$limit=20,$price_level=0) - { - global $langs,$conf; - - $sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration"; - $sql.= " FROM ".MAIN_DB_PREFIX."product as p "; - $sql.= " WHERE p.envente = 1"; - if ($filtretype && $filtretype != '') $sql.=" AND p.fk_product_type=".$filtretype; - $sql.= " ORDER BY p.nbvente DESC"; - if ($limit) $sql.= " LIMIT $limit"; - - $result=$this->db->query($sql); - if ($result) - { - print ''; - - $this->db->free($result); - } - else - { - dolibarr_print_error($db); - } - } - - - /** - * \brief Retourne la liste des produits fournisseurs - * \param selected Produit présélectionné - * \param htmlname Nom de la zone select - * \param filtretype Pour filtre sur type de produit - * \param limit Limite sur le nombre de lignes retournées - * \param filtre Pour filtre - */ - function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtretype='',$filtre='') - { - global $langs,$conf; - - $sql = "SELECT p.rowid, p.label, p.ref, p.price as price, pf.price as fprice, pf.quantity, p.duration"; - $sql.= " FROM ".MAIN_DB_PREFIX."product as p "; - $sql .= " , ".MAIN_DB_PREFIX."product_fournisseur_price as pf "; - $sql.= " WHERE p.rowid = pf.fk_product AND pf.fk_soc = ".$socid; - if ($filtretype && $filtretype != '') $sql.=" AND p.fk_product_type=".$filtretype; - if ($filtre) $sql.="$filtre"; - $sql.= " ORDER BY p.ref DESC"; - - $result=$this->db->query($sql); - if ($result) - { - print ''; - - $this->db->free($result); - } - else - { - dolibarr_print_error($db); - } - } - - - /** - * \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 - */ - function load_cache_conditions_paiements() - { - global $langs; - - if (sizeof($this->cache_conditions_paiements_code)) return 0; // Cache déja chargé - - dolibarr_syslog('html.form.class.php::load_cache_conditions_paiements'); - $sql = "SELECT rowid, libelle"; - $sql.= " FROM ".MAIN_DB_PREFIX."cond_reglement"; - $sql.= " WHERE active=1"; - $sql.= " ORDER BY sortorder"; - $resql = $this->db->query($sql); - if ($resql) - { - $num = $this->db->num_rows($result); - $i = 0; - while ($i < $num) - { - $obj = $this->db->fetch_object($resql); - - // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut - $libelle=($langs->trans($obj->code)!=$obj->code?$langs->trans($obj->code):($obj->libelle!='-'?$obj->libelle:'')); - $this->cache_conditions_paiements_code[$obj->rowid]=$obj->code; - $this->cache_conditions_paiements_libelle[$obj->rowid]=$libelle; - $i++; - } - return 1; - } - else { - dolibarr_print_error($this->db); - return -1; - } - } - - /** - * \brief Charge dans cache la liste des types de paiements possibles - * \return int Nb lignes chargées, 0 si déjà chargées, <0 si ko - */ - function load_cache_types_paiements() - { - global $langs; - - if (sizeof($this->cache_types_paiements_code)) return 0; // Cache déja chargé - - dolibarr_syslog('html.form.class.php::load_cache_types_paiements'); - $sql = "SELECT id, code, libelle, type"; - $sql.= " FROM ".MAIN_DB_PREFIX."c_paiement"; - $sql.= " WHERE active > 0"; - $sql.= " ORDER BY id"; - $resql = $this->db->query($sql); - if ($resql) - { - $num = $this->db->num_rows($result); - $i = 0; - while ($i < $num) - { - $obj = $this->db->fetch_object($resql); - - // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut - $libelle=($langs->trans($obj->code)!=$obj->code?$langs->trans($obj->code):($obj->libelle!='-'?$obj->libelle:'')); - $this->cache_types_paiements_code[$obj->id]=$obj->code; - $this->cache_types_paiements_libelle[$obj->id]=$libelle; - $this->cache_types_paiements_type[$obj->id]=$obj->type; - $i++; - } - return $num; - } - else { - dolibarr_print_error($this->db); - return -1; - } - } - - - - /** - * \brief Retourne la liste des types de paiements possibles - * \param selected Id du type de paiement présélectionné - * \param htmlname Nom de la zone select - * \param filtertype Pour filtre - */ - function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1) - { - global $langs; - - $this->load_cache_conditions_paiements(); - - print ''; - } - - - - - /** - * \brief Retourne la liste des modes de paiements possibles - * \param selected Id du mode de paiement présélectionné - * \param htmlname Nom de la zone select - * \param filtertype Pour filtre - * \param format 0=id+libelle, 1=code+code, 2=code+libelle - */ - function select_types_paiements($selected='',$htmlname='paiementtype',$filtertype='',$format=0) - { - global $langs; - - $filterarray=array(); - if ($filtertype && $filtertype != '-1') $filterarray=split(',',$filtertype); - - $this->load_cache_types_paiements(); - - print ''; - } - - - /** - * \brief Retourne la liste des comptes - * \param selected Id compte présélectionné - * \param htmlname Nom de la zone select - * \param statut Statut des comptes recherchés - * \param filtre Pour filtre sur la liste - * \param useempty Affiche valeur vide dans liste - */ - function select_comptes($selected='',$htmlname='accountid',$statut=0,$filtre='',$useempty=0) - { - global $langs; - - $sql = "SELECT rowid, label, bank"; - $sql.= " FROM ".MAIN_DB_PREFIX."bank_account"; - $sql.= " WHERE clos = '".$statut."'"; - if ($filtre) $sql.=" AND ".$filtre; - $sql.= " ORDER BY rowid"; - $result = $this->db->query($sql); - if ($result) - { - 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; - $langs->load("dict"); - - $sql = "SELECT rowid, code, civilite, active FROM ".MAIN_DB_PREFIX."c_civilite"; - $sql .= " WHERE active = 1"; - - if ($this->db->query($sql)) - { - print ''; - } - else - { - dolibarr_print_error($this->db); - } - } - - - /** - * \brief Retourne le nom traduit de la civilité - * \param code Code de la civilité - * \return string Nom traduit de la civilité - */ - function civilite_name($code) - { - global $langs; - $langs->load("dict"); - return $langs->trans("Civility".$code)!="Civility".$code ? $langs->trans("Civility".$code) : $code; - } - - - /** - * \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; - $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"; - - $result=$this->db->query($sql); - if ($result) - { - print ''; - } - else - { - dolibarr_print_error($this->db); - } - } - - - /** - * \brief Retourne le nom traduit de la forme juridique - * \param code Code de la forme juridique - * \return string Nom traduit du pays - */ - function forme_juridique_name($code) - { - global $langs; - - if (! $code) return ''; - - $sql = "SELECT libelle FROM ".MAIN_DB_PREFIX."c_forme_juridique"; - $sql.= " WHERE code='$code';"; - - if ($this->db->query($sql)) - { - $num = $this->db->num_rows(); - - if ($num) - { - $obj = $this->db->fetch_object(); - $label=($obj->libelle!='-' ? $obj->libelle : ''); - return $label; - } - else - { - return $langs->trans("NotDefined"); - } - - } - } - - - /** - * \brief Retourne le formulaire de saisie d'un identifiant professionnel (siren, siret, etc...) - * \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm) - * \param soc Objet societe - * \param htmlname Nom de la zone input - */ - function id_prof($idprof,$soc,$htmlname,$selected='') - { - global $langs; - $formlength=16; - if ($idprof==1 && $soc->pays_code == 'FR') $formlength=9; - if ($idprof==2 && $soc->pays_code == 'FR') $formlength=14; - if ($idprof==3 && $soc->pays_code == 'FR') $formlength=4; - if ($idprof==4 && $soc->pays_code == 'FR') $formlength=4; - print ''; - } - - - /** - * \brief Retourne le nom traduit ou code+nom d'un pays - * \param id id du pays - * \param withcode 1=affiche code + nom - * \return string Nom traduit du pays - */ - function pays_name($id,$withcode=0) - { - global $langs; - - $sql = "SELECT rowid, code, libelle FROM ".MAIN_DB_PREFIX."c_pays"; - $sql.= " WHERE rowid=$id;"; - - if ($this->db->query($sql)) - { - $num = $this->db->num_rows(); - - if ($num) - { - $obj = $this->db->fetch_object(); - $label=$obj->code && $langs->trans("Country".$obj->code)!="Country".$obj->code?$langs->trans("Country".$obj->code):($obj->libelle!='-'?$obj->libelle:''); - if ($withcode) return $label==$obj->code?"$obj->code":"$obj->code - $label"; - else return $label; - } - else - { - return $langs->trans("NotDefined"); - } - - } - } - - - /** - * \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; - - // Si il existe une traduction, on peut renvoyer de suite le libellé - if ($langs->trans("Currency".$code_iso)!="Currency".$code_iso) - { - return $langs->trans("Currency".$code_iso); - } - - // Si pas de traduction, on consulte libellé par défaut en table - $sql = "SELECT label FROM ".MAIN_DB_PREFIX."c_currencies"; - $sql.= " WHERE code_iso='$code_iso';"; - - if ($this->db->query($sql)) - { - $num = $this->db->num_rows(); - - if ($num) - { - $obj = $this->db->fetch_object(); - $label=($obj->label!='-'?$obj->label:''); - if ($withcode) return $label==$code_iso?"$code_iso":"$code_iso - $label"; - else return $label; - } - else - { - return $code_iso; - } - - } - } - - - /** - * \brief Affiche formulaire de demande de confirmation - * \param page page - * \param title title - * \param question question - * \param action action - */ - - function form_confirm($page, $title, $question, $action) - { - global $langs; - - print '
'; - print ''; - print ''; - // Ligne titre - print ''; - // Ligne message - print '\n"; - print ''; - - print '
'.$title.'
'.$question.''; - $this->selectyesno("confirm","no"); - print "
'; - print "
\n"; - } - - - /** - * \brief Affiche formulaire de selection de projet - * \param page Page - * \param socid Id societe - * \param selected Id projet présélectionné - * \param htmlname Nom du formulaire select - */ - function form_project($page, $socid, $selected='', $htmlname='projectid') - { - global $langs; - $langs->load("project"); - if ($htmlname != "none") - { - print '
'; - print ''; - print ''; - print ''; - print ''; - print '
'; - $this->select_projects($socid,$selected,$htmlname); - print '
'; - } - else - { - if ($selected) { - $projet = New Project($this->db); - $projet->fetch($selected); - print ''.$projet->title.''; - } else { - print " "; - } - } - } - - /** - * \brief Affiche formulaire de selection de conditions de paiement - * \param page Page - * \param selected Id condition présélectionnée - * \param htmlname Nom du formulaire select - */ - function form_conditions_reglement($page, $selected='', $htmlname='cond_reglement_id') - { - global $langs; - if ($htmlname != "none") - { - print '
'; - print ''; - print ''; - print ''; - print ''; - print '
'; - $this->select_conditions_paiements($selected,$htmlname); - print '
'; - } - else - { - if ($selected) - { - $this->load_cache_conditions_paiements(); - print $this->cache_conditions_paiements_libelle[$selected]; - } else { - print " "; - } - } - } - - - /** - * \brief Affiche formulaire de selection des modes de reglement - * \param page Page - * \param selected Id mode présélectionné - * \param htmlname Nom du formulaire select - */ - function form_modes_reglement($page, $selected='', $htmlname='mode_reglement_id') - { - global $langs; - if ($htmlname != "none") - { - print '
'; - print ''; - print ''; - print ''; - print ''; - print '
'; - $this->select_types_paiements($selected,$htmlname); - print '
'; - } - else - { - if ($selected) - { - $this->load_cache_types_paiements(); - print $this->cache_types_paiements_libelle[$selected]; - } else { - print " "; - } - } - } - - - /** - * \brief Retourne la liste des devises, dans la langue de l'utilisateur - * \param selected code devise pré-sélectionnée - * \param htmlname nom de la liste deroulante - * \todo trier liste sur noms après traduction plutot que avant - */ - function select_currency($selected='',$htmlname='currency_id') - { - global $conf,$langs; - $langs->load("dict"); - - if ($selected=='euro' || $selected=='euros') $selected='EUR'; // Pour compatibilité - - $sql = "SELECT code_iso, label, active FROM ".MAIN_DB_PREFIX."c_currencies"; - $sql .= " WHERE active = 1"; - $sql .= " ORDER BY code_iso ASC;"; - - if ($this->db->query($sql)) - { - print ''; - return 0; - } - else { - dolibarr_print_error($this->db); - return 1; - } - } - - - /** - * \brief Selection du taux de tva - * \param name Nom champ html - * \param defaulttx Taux tva présélectionné (deprecated) - * \param societe_vendeuse Objet société vendeuse - * \param societe_acheteuse Objet société acheteuse - * \param taux_produit Taux par defaut du produit vendu - * \remarks Si vendeur non assujeti à TVA, TVA par défaut=0. Fin de règle. - * Si le (pays vendeur = pays acheteur) alors la TVA par défaut=TVA du produit vendu. Fin de règle. - * Si vendeur et acheteur dans Communauté européenne et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par défaut=0 (La TVA doit être payé par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de règle. - * Si vendeur et acheteur dans Communauté européenne et bien vendu autre que transport neuf alors la TVA par défaut=TVA du produit vendu. Fin de règle. - * Sinon la TVA proposée par défaut=0. Fin de règle. - */ - function select_tva($name='tauxtva', $defaulttx='', $societe_vendeuse='', $societe_acheteuse='', $taux_produit='') - { - global $langs,$conf; - - // \todo Si pays vendeur non défini - if (1 == 2) - { - // \todo si pays vendeur = soi-même - if (1 == 1) - { - print ''.$langs->trans("ErrorYourCountryIsNotDefined").''; - } - else - { - print ''.$langs->trans("ErrorSupplierCountryIsNotDefined").''; - } - return; - } - - // \todo Ecraser defaulttx par valeur en fonction de la règle de gestion TVA - //$defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$taux_produit); - - // \todo Initialiser code_pays avec code_pays société vendeuse - $code_pays=$conf->global->MAIN_INFO_SOCIETE_PAYS; - $sql = "SELECT t.taux,t.recuperableonly"; - $sql .= " FROM ".MAIN_DB_PREFIX."c_tva AS t"; - $sql .= " WHERE t.fk_pays = '".$code_pays."'"; - $sql .= " AND t.active = 1"; - $sql .= " ORDER BY t.taux ASC, t.recuperableonly ASC"; - - if ($this->db->query($sql)) - { - $num = $this->db->num_rows(); - for ($i = 0; $i < $num; $i++) - { - $obj = $this->db->fetch_object(); - $txtva[ $i ] = $obj->taux; - $libtva[ $i ] = $obj->taux.'%'.($obj->recuperableonly ? ' *':''); - } - } - - // Si taux par defaut n'a pu etre trouvé, on prend dernier. - // Comme ils sont triés par ordre croissant, dernier = plus élevé = taux courant - if ($defaulttx == '') $defaulttx = $txtva[sizeof($txtva)-1]; - - $taille = sizeof($txtva); - - print ''; - } - - - /** - * \brief Affiche zone de selection de date - * Liste deroulante pour les jours, mois, annee et eventuellement heurs et minutes - * Les champs sont présélectionnées avec: - * - La date set_time (timestamps ou date au format YYYY-MM-DD ou YYYY-MM-DD HH:MM) - * - La date du jour si set_time vaut '' - * - Aucune date (champs vides) si set_time vaut -1 - */ - function select_date($set_time='', $prefix='re', $h = 0, $m = 0, $empty=0) - { - global $conf,$langs; - - if (! $set_time && $empty == 0) $set_time = time(); - - $strmonth[1] = $langs->trans("January"); - $strmonth[2] = $langs->trans("February"); - $strmonth[3] = $langs->trans("March"); - $strmonth[4] = $langs->trans("April"); - $strmonth[5] = $langs->trans("May"); - $strmonth[6] = $langs->trans("June"); - $strmonth[7] = $langs->trans("July"); - $strmonth[8] = $langs->trans("August"); - $strmonth[9] = $langs->trans("September"); - $strmonth[10] = $langs->trans("October"); - $strmonth[11] = $langs->trans("November"); - $strmonth[12] = $langs->trans("December"); - - // Analyse de la date de préselection - if (eregi('^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?',$set_time,$reg)) { - // Date au format 'YYYY-MM-DD' ou 'YYYY-MM-DD HH:MM:SS' - $syear = $reg[1]; - $smonth = $reg[2]; - $sday = $reg[3]; - $shour = $reg[4]; - $smin = $reg[5]; - } - elseif ($set_time) { - // Date est un timestamps - $syear = date("Y", $set_time); - $smonth = date("n", $set_time); - $sday = date("d", $set_time); - $shour = date("H", $set_time); - $smin = date("i", $set_time); - } - else { - // Date est vide - $syear = ''; - $smonth = ''; - $sday = ''; - $shour = ''; - $smin = ''; - } - - $conf->use_popup_date=0; // Mettre 1 pour avoir date en popup (experimental) - - /* - * Affiche date en popup - */ - if ($conf->use_javascript && $conf->use_popup_date) - { - $timearray=getDate($set_time); - $formated_date=dolibarr_print_date($set_time,$conf->format_date_short); - print ' '; - print ''."\n"; - print ''."\n"; - print ''."\n"; - } - - /* - * Affiche date en select - */ - if (! $conf->use_javascript || ! $conf->use_popup_date) - { - - // Jour - print '"; - - print '"; - - // Année - if ($empty || $set_time == -1) - { - print ''; - } - else - { - print '\n"; - } - } - - /* - * Affiche heure en select - */ - if ($h) - { - print 'H\n"; - - if ($m) - { - print 'M\n"; - } - - } - - } - - /** - * \brief Affiche liste déroulante depuis requete SQL - * \param name Nom de la zone select - * \param sql Requete sql - * \param id Id présélectionné - */ - function select($name, $sql, $id='') - { - $resql = $this->db->query($sql); - if ($resql) - { - print '\n"; - } - else - { - dolibarr_print_error($this->db); - } - } - - /** - \brief Affiche un select à partir d'un tableau - \param htmlname Nom de la zone select - \param array Tableau de key+valeur - \param id Key pré-sélectionnée - \param show_empty 1 si il faut un valeur " " dans la liste, 0 sinon - \param key_in_label 1 pour afficher la key dans la valeur "[key] value" - \param value_as_key 1 pour utiliser la valeur comme clé - */ - function select_array($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0) - { - print '\n"; - } - - - /** - * \brief Renvoie la chaîne de caractère décrivant l'erreur - */ - function error() - { - return $this->errorstr; - } - - - /** - * \brief Selection de oui/non en chaine (renvoie yes/no) - * \param name Nom du select - * \param value Valeur présélectionnée - * \param option 0 retourne yes/no, 1 retourne 1/0 - */ - function selectyesno($name,$value='',$option=0) - { - global $langs; - - $yes="yes"; $no="no"; - - if ($option) - { - $yes="1"; - $no="0"; - } - - print ''."\n"; - } - - /** - * \brief Selection de oui/non en chiffre (renvoie 1/0) - * \param name Nom du select - * \param value Valeur présélectionnée - */ - function selectyesnonum($name,$value='') - { - $this->selectyesno($name,$value,1); - } - - /** - * \brief Checkbox - * - */ - function checkbox($name,$checked=0,$value=1) - { - if ($checked==1){ - print "\n"; - }else{ - print "\n"; - } - } - - - /** - * \brief Affiche la cartouche générique d'un rapport - * \param nom Valeur pour nom du rapport - * \param variante Lien optionnel de variante du rapport - * \param period Periode du reporting - * \param periodlink Lien pour changer de période - * \param description Description - * \param builddate Date génération - * \param exportlink Lien pour export - */ - function report_header($nom,$variante='',$period,$periodlink,$description,$builddate,$exportlink) - { - global $langs; - - print "\n\n\n"; - - $h=0; - $head[$h][0] = $_SERVER["PHP_SELF"]; - $head[$h][1] = $langs->trans("Report"); - dolibarr_fiche_head($head, $hselected, $societe->nom); - - print ''; - - // Ligne de titre - print ''; - print ''; - if (! $variante) print ''; - print ''; - - // Ligne de la periode d'analyse du rapport - print ''; - print ''; - if (! $periodlink) print ''; - print ''; - - // Ligne de description - print ''; - print ''; - print ''; - print ''; - - // Ligne d'export - print ''; - print ''; - if (! $exportlink) print ''; - - print '
'.$langs->trans("ReportName").''; - else print ''; - print $nom; - if ($variante) print ''.$variante; - print '
'.$langs->trans("ReportPeriod").''; - else print ''; - print $period; - if ($periodlink) print ''.$periodlink; - print '
'.$langs->trans("ReportDescription").''.$description.'
'.$langs->trans("GeneratedOn").''; - else print ''; - print dolibarr_print_date($builddate); - if ($exportlink) print ''.$langs->trans("Export").''.$exportlink; - print '
'; - print ''; - print "\n\n\n"; - } - - /** - * \brief Affiche la cartouche de la liste des documents d'une propale, facture... - * \param modulepart propal=propal, facture=facture, ... - * \param filename Nom fichier sans extension - * \param filedir Repertoire à scanner - * \param urlsource Url page origine - * \param genallowed Génération autorisée (1/0 ou array des formats) - * \param delallowed Suppression autorisée (1/0) - * \param modelselected Modele à présélectionner par défaut - * \remarks Le fichier de facture détaillée est de la forme - * REFFACTURE-XXXXXX-detail.pdf ou XXXXX est une forme diverse - */ - function show_documents($modulepart,$filename,$filedir,$urlsource,$genallowed,$delallowed=0,$modelselected='',$modelliste=array()) - { - // filedir = conf->...dir_ouput."/".get_exdir(id) - - global $langs,$bc; - $var=true; - - $filename = sanitize_string($filename); - $headershown=0; - - // Affiche en-tete tableau - if ($genallowed) - { - $modellist=array(); - if ($modulepart == 'propal') - { - if (is_array($genallowed)) $modellist=$genallowed; - else - { - include_once(DOL_DOCUMENT_ROOT.'/includes/modules/propale/modules_propale.php'); - $model=new ModelePDFPropales(); - $modellist=$model->liste_modeles($this->db); - } - } - else if ($modulepart == 'commande') - { - if (is_array($genallowed)) $modellist=$genallowed; - else - { - include_once(DOL_DOCUMENT_ROOT.'/includes/modules/commande/modules_commande.php'); - $model=new ModelePDFCommandes(); - $modellist=$model->liste_modeles(); - } - } - elseif ($modulepart == 'facture') - { - if (is_array($genallowed)) $modellist=$genallowed; - else - { - include_once(DOL_DOCUMENT_ROOT.'/includes/modules/facture/modules_facture.php'); - $model=new ModelePDFFactures(); - $modellist=$model->liste_modeles($this->db); - } - } - elseif ($modulepart == 'export') - { - if (is_array($genallowed)) $modellist=$genallowed; - else - { - include_once(DOL_DOCUMENT_ROOT.'/includes/modules/export/modules_export.php'); - $model=new ModeleExports(); - $modellist=$model->liste_modeles($this->db); - } - } - else - { - dolibarr_print_error($this->db,'Bad value for modulepart'); - return -1; - } - - $headershown=1; - - print '
'; - print ''; - - print_titre($langs->trans("Documents")); - print ''; - - print ''; - } - - // Affiche lignes - if (is_dir($filedir)) - { - $i=0; - - $handle=opendir($filedir); - while (($file = readdir($handle))!==false) - { - // Si fichier non lisible ou mauvaise extension, on passe au suivant - if (! is_readable($filedir."/".$file) || - eregi('\.meta$',$file) || - eregi('\.$',$file) - ) continue; - - if (! $headershown) - { - // Affiche en-tete tableau - $headershown=1; - - print_titre($langs->trans("Documents")); - print '
'.$langs->trans('Model').''; - $this->select_array('model',$modellist,$modelselected,0,0,1); - $texte=$langs->trans('Generate'); - print ''; - print '
'; - } - - // Défini chemin relatif par rapport au module pour lien download - $relativepath=$filename."/".$file; - if ($modulepart == 'expedition') { $relativepath = get_exdir($filename).$file; } - if ($modulepart == 'don') { $relativepath = get_exdir($filename).$file; } - if ($modulepart == 'export') { $relativepath = $file; } - - // Défini le type MIME du document - if (eregi('\.([^\.]+)$',$file,$reg)) $extension=$reg[1]; - $mimetype=strtoupper($extension); - if ($extension == 'pdf') $mimetype='PDF'; - if ($extension == 'html') $mimetype='HTML'; - if (eregi('\-detail\.pdf',$file)) $mimetype='PDF Détaillé'; - - print ""; - - // Affiche colonne type MIME - print ''; - // Affiche nom fichier avec lien download - print ''; - // Affiche taille fichier - print ''; - // Affiche date fichier - print ''; - - print ''; - - $i++; - } - } - - if ($headershown) - { - // Affiche pied du tableau - print "
'.$mimetype.''.$file.''.filesize($filedir."/".$file). ' bytes'.strftime("%d %b %Y %H:%M:%S",filemtime($filedir."/".$file)).'
\n"; - if ($genallowed) - { - print '
'; - } - } - - } - -} - -?> + + * Copyright (C) 2004-2005 Laurent Destailleur + * Copyright (C) 2004 Benoit Mortier + * Copyright (C) 2004 Sebastien Di Cintio + * Copyright (C) 2004 Eric Seigne + * Copyright (C) 2006 Andre Cianfarani + * + * 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. + * + * $Id$ + * $Source$ + */ + +/** + \file htdocs/html.form.class.php + \brief Fichier de la classe des fonctions prédéfinie de composants html + \version $Revision$ +*/ + + +/** + \class Form + \brief Classe permettant la génération de composants html +*/ + +class Form +{ + var $db; + var $errorstr; + + var $cache_types_paiements_code=array(); + var $cache_types_paiements_libelle=array(); + var $cache_conditions_paiements_code=array(); + var $cache_conditions_paiements_libelle=array(); + + + /** + \brief Constructeur + \param DB handler d'accès base de donnée + */ + function Form($DB) + { + $this->db = $DB; + + return 1; + } + + /** + \brief Retourne propriétés pour affichae d'un tooltip + \param htmltooltip Contenu html du tooltip + \return string Chaine des propriétés de declenchement du tooltip + */ + function tooltip_properties($htmltooltip='Text for tooltip') + { + global $conf; + $s =''; + if ($conf->use_javascript) + { + $s.=' onmouseover="showtip(\''.$htmltooltip.'\')"'; + $s.=' onMouseout="hidetip()"'; + } + return $s; + } + + /** + \brief Efface champ alt et title pour permettre utiliser dans un tooltip + \param string Chaine a nettoyer + \return string Chaine nettoyé + */ + function tooltip_sanitize($string) + { + global $conf; + if ($conf->use_javascript) + { + // Supprime alt et title de text pour eviter conflit avec tooltip + $string=eregi_replace('alt="[^"]+"','',$string); + $string=eregi_replace('title="[^"]+"','',$string); + } + return $string; + } + + /** + * \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 nom som. + * \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; + $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"; + + $result=$this->db->query($sql); + if ($result) + { + print ''; + } + 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 nom som. + */ + + 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"; + + if ($this->db->query($sql)) + { + print ''; + } + else { + dolibarr_print_error($this->db); + } + } + + /** + * \brief Retourne la liste déroulante des pays actifs, dans la langue de l'utilisateur + * \param selected Code pays pré-sélectionné + * \param htmlname Nom de la liste deroulante + * \param htmloption Options html sur le select + * \todo trier liste sur noms après traduction plutot que avant + */ + + function select_pays($selected='',$htmlname='pays_id',$htmloption='') + { + global $conf,$langs; + $langs->load("dict"); + + $sql = "SELECT rowid, libelle, code, active FROM ".MAIN_DB_PREFIX."c_pays"; + $sql .= " WHERE active = 1"; + $sql .= " ORDER BY code ASC;"; + + if ($this->db->query($sql)) + { + print ''; + return 0; + } + else { + dolibarr_print_error($this->db); + return 1; + } + } + + + /** + * \brief Retourne la liste déroulante des langues disponibles + * \param selected Langue présélectionnée + * \param htmlname Nom de la zone select + * \param showauto Affiche choix auto + */ + function select_lang($selected='',$htmlname='lang_id',$showauto=0) + { + global $langs; + + $langs_available=$langs->get_available_languages(); + + print ''; + } + + + /** + * \brief Retourne la liste déroulante des menus disponibles + * \param selected Menu pré-sélectionnée + * \param htmlname Nom de la zone select + * \param dirmenu Repértoire à scanner + */ + function select_menu($selected='',$htmlname,$dirmenu) + { + global $langs; + + if ($selected == 'eldy.php') $selected='eldy_backoffice.php'; // Pour compatibilité + + print ''; + } + + /** + * \brief Retourne la liste des types de comptes financiers + * \param selected Type pré-sélectionné + * \param htmlname Nom champ formulaire + */ + + function select_type_comptes_financiers($selected=1,$htmlname='type') + { + global $langs; + $langs->load("banks"); + + $type_available=array(0,1,2); + + print ''; + } + + + /** + * \brief Retourne la liste déroulante des sociétés + * \param selected Societe présélectionnée + * \param htmlname Nom champ formulaire + * \param filter Criteres optionnels de filtre + */ + function select_societes($selected='',$htmlname='soc_id',$filter='') + { + // On recherche les societes + $sql = "SELECT s.idp, s.nom FROM"; + $sql.= " ".MAIN_DB_PREFIX ."societe as s"; + if ($filter) $sql.= " WHERE $filter"; + $sql.= " ORDER BY nom ASC"; + + $resql=$this->db->query($sql); + if ($resql) + { + print ''; + } + else { + dolibarr_print_error($this->db); + } + } + + + /** + * \brief Retourne la liste déroulante des contacts d'une société donnée + * \param socid Id de la société + * \param selected Id contact pré-sélectionn + * \param htmlname Nom champ formulaire + */ + function select_contacts($socid,$selected='',$htmlname='contactid') + { + // On recherche les societes + $sql = "SELECT s.idp, s.name, s.firstname FROM "; + $sql .= MAIN_DB_PREFIX ."socpeople as s"; + $sql .= " WHERE fk_soc=".$socid; + $sql .= " ORDER BY s.name ASC"; + + if ($this->db->query($sql)) + { + print ''; + } + else + { + dolibarr_print_error($this->db); + } + } + + + /** + * \brief Retourne la liste déroulante des utilisateurs + * \param selected Id contact pré-sélectionn + * \param htmlname Nom champ formulaire + */ + function select_users($selected='',$htmlname='userid') + { + // On recherche les societes + $sql = "SELECT u.rowid, u.name, u.firstname FROM "; + $sql .= MAIN_DB_PREFIX ."user as u"; + $sql .= " ORDER BY u.name ASC"; + + if ($this->db->query($sql)) + { + print ''; + } + else + { + dolibarr_print_error($this->db); + } + } + + + /** + * \brief Affiche la liste déroulante des projets d'une société donnée + * \param socid Id société + * \param selected Id projet présélectionné + * \param htmlname Nom de la zone html + * \return int Nbre de projet si ok, <0 si ko + */ + function select_projects($socid='', $selected='', $htmlname='projectid') + { + // On recherche les projets + $sql = 'SELECT p.rowid, p.title FROM '; + $sql.= MAIN_DB_PREFIX .'projet as p'; + $sql.= " WHERE fk_soc='".$socid."'"; + $sql.= " ORDER BY p.title ASC"; + + $result=$this->db->query($sql); + if ($result) + { + print ''; + return $num; + } + else + { + dolibarr_print_error($this->db); + return -1; + } + } + + /** + * \brief Retourne la liste des produits + * \param selected Produit présélectionné + * \param htmlname Nom de la zone select + * \param filtretype Pour filtre sur type de produit + * \param limit Limite sur le nombre de lignes retournées + */ + function select_produits($selected='',$htmlname='productid',$filtretype='',$limit=20,$price_level=0) + { + global $langs,$conf; + + $sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration"; + $sql.= " FROM ".MAIN_DB_PREFIX."product as p "; + $sql.= " WHERE p.envente = 1"; + if ($filtretype && $filtretype != '') $sql.=" AND p.fk_product_type=".$filtretype; + $sql.= " ORDER BY p.nbvente DESC"; + if ($limit) $sql.= " LIMIT $limit"; + + $result=$this->db->query($sql); + if ($result) + { + print ''; + + $this->db->free($result); + } + else + { + dolibarr_print_error($db); + } + } + + + /** + * \brief Retourne la liste des produits fournisseurs + * \param selected Produit présélectionné + * \param htmlname Nom de la zone select + * \param filtretype Pour filtre sur type de produit + * \param limit Limite sur le nombre de lignes retournées + * \param filtre Pour filtre + */ + function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtretype='',$filtre='') + { + global $langs,$conf; + + $sql = "SELECT p.rowid, p.label, p.ref, p.price as price, pf.price as fprice, pf.quantity, p.duration"; + $sql.= " FROM ".MAIN_DB_PREFIX."product as p "; + $sql .= " , ".MAIN_DB_PREFIX."product_fournisseur_price as pf "; + $sql.= " WHERE p.rowid = pf.fk_product AND pf.fk_soc = ".$socid; + if ($filtretype && $filtretype != '') $sql.=" AND p.fk_product_type=".$filtretype; + if ($filtre) $sql.="$filtre"; + $sql.= " ORDER BY p.ref DESC"; + + $result=$this->db->query($sql); + if ($result) + { + print ''; + + $this->db->free($result); + } + else + { + dolibarr_print_error($db); + } + } + + + /** + * \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 + */ + function load_cache_conditions_paiements() + { + global $langs; + + if (sizeof($this->cache_conditions_paiements_code)) return 0; // Cache déja chargé + + dolibarr_syslog('html.form.class.php::load_cache_conditions_paiements'); + $sql = "SELECT rowid, libelle"; + $sql.= " FROM ".MAIN_DB_PREFIX."cond_reglement"; + $sql.= " WHERE active=1"; + $sql.= " ORDER BY sortorder"; + $resql = $this->db->query($sql); + if ($resql) + { + $num = $this->db->num_rows($result); + $i = 0; + while ($i < $num) + { + $obj = $this->db->fetch_object($resql); + + // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut + $libelle=($langs->trans($obj->code)!=$obj->code?$langs->trans($obj->code):($obj->libelle!='-'?$obj->libelle:'')); + $this->cache_conditions_paiements_code[$obj->rowid]=$obj->code; + $this->cache_conditions_paiements_libelle[$obj->rowid]=$libelle; + $i++; + } + return 1; + } + else { + dolibarr_print_error($this->db); + return -1; + } + } + + /** + * \brief Charge dans cache la liste des types de paiements possibles + * \return int Nb lignes chargées, 0 si déjà chargées, <0 si ko + */ + function load_cache_types_paiements() + { + global $langs; + + if (sizeof($this->cache_types_paiements_code)) return 0; // Cache déja chargé + + dolibarr_syslog('html.form.class.php::load_cache_types_paiements'); + $sql = "SELECT id, code, libelle, type"; + $sql.= " FROM ".MAIN_DB_PREFIX."c_paiement"; + $sql.= " WHERE active > 0"; + $sql.= " ORDER BY id"; + $resql = $this->db->query($sql); + if ($resql) + { + $num = $this->db->num_rows($result); + $i = 0; + while ($i < $num) + { + $obj = $this->db->fetch_object($resql); + + // Si traduction existe, on l'utilise, sinon on prend le libellé par défaut + $libelle=($langs->trans($obj->code)!=$obj->code?$langs->trans($obj->code):($obj->libelle!='-'?$obj->libelle:'')); + $this->cache_types_paiements_code[$obj->id]=$obj->code; + $this->cache_types_paiements_libelle[$obj->id]=$libelle; + $this->cache_types_paiements_type[$obj->id]=$obj->type; + $i++; + } + return $num; + } + else { + dolibarr_print_error($this->db); + return -1; + } + } + + + + /** + * \brief Retourne la liste des types de paiements possibles + * \param selected Id du type de paiement présélectionné + * \param htmlname Nom de la zone select + * \param filtertype Pour filtre + */ + function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1) + { + global $langs; + + $this->load_cache_conditions_paiements(); + + print ''; + } + + + + + /** + * \brief Retourne la liste des modes de paiements possibles + * \param selected Id du mode de paiement présélectionné + * \param htmlname Nom de la zone select + * \param filtertype Pour filtre + * \param format 0=id+libelle, 1=code+code, 2=code+libelle + */ + function select_types_paiements($selected='',$htmlname='paiementtype',$filtertype='',$format=0) + { + global $langs; + + $filterarray=array(); + if ($filtertype && $filtertype != '-1') $filterarray=split(',',$filtertype); + + $this->load_cache_types_paiements(); + + print ''; + } + + + /** + * \brief Retourne la liste des comptes + * \param selected Id compte présélectionné + * \param htmlname Nom de la zone select + * \param statut Statut des comptes recherchés + * \param filtre Pour filtre sur la liste + * \param useempty Affiche valeur vide dans liste + */ + function select_comptes($selected='',$htmlname='accountid',$statut=0,$filtre='',$useempty=0) + { + global $langs; + + $sql = "SELECT rowid, label, bank"; + $sql.= " FROM ".MAIN_DB_PREFIX."bank_account"; + $sql.= " WHERE clos = '".$statut."'"; + if ($filtre) $sql.=" AND ".$filtre; + $sql.= " ORDER BY rowid"; + $result = $this->db->query($sql); + if ($result) + { + 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; + $langs->load("dict"); + + $sql = "SELECT rowid, code, civilite, active FROM ".MAIN_DB_PREFIX."c_civilite"; + $sql .= " WHERE active = 1"; + + if ($this->db->query($sql)) + { + print ''; + } + else + { + dolibarr_print_error($this->db); + } + } + + + /** + * \brief Retourne le nom traduit de la civilité + * \param code Code de la civilité + * \return string Nom traduit de la civilité + */ + function civilite_name($code) + { + global $langs; + $langs->load("dict"); + return $langs->trans("Civility".$code)!="Civility".$code ? $langs->trans("Civility".$code) : $code; + } + + + /** + * \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; + $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"; + + $result=$this->db->query($sql); + if ($result) + { + print ''; + } + else + { + dolibarr_print_error($this->db); + } + } + + + /** + * \brief Retourne le nom traduit de la forme juridique + * \param code Code de la forme juridique + * \return string Nom traduit du pays + */ + function forme_juridique_name($code) + { + global $langs; + + if (! $code) return ''; + + $sql = "SELECT libelle FROM ".MAIN_DB_PREFIX."c_forme_juridique"; + $sql.= " WHERE code='$code';"; + + if ($this->db->query($sql)) + { + $num = $this->db->num_rows(); + + if ($num) + { + $obj = $this->db->fetch_object(); + $label=($obj->libelle!='-' ? $obj->libelle : ''); + return $label; + } + else + { + return $langs->trans("NotDefined"); + } + + } + } + + + /** + * \brief Retourne le formulaire de saisie d'un identifiant professionnel (siren, siret, etc...) + * \param idprof 1,2,3,4 (Exemple: 1=siren,2=siret,3=naf,4=rcs/rm) + * \param soc Objet societe + * \param htmlname Nom de la zone input + */ + function id_prof($idprof,$soc,$htmlname,$selected='') + { + global $langs; + $formlength=16; + if ($idprof==1 && $soc->pays_code == 'FR') $formlength=9; + if ($idprof==2 && $soc->pays_code == 'FR') $formlength=14; + if ($idprof==3 && $soc->pays_code == 'FR') $formlength=4; + if ($idprof==4 && $soc->pays_code == 'FR') $formlength=4; + print ''; + } + + + /** + * \brief Retourne le nom traduit ou code+nom d'un pays + * \param id id du pays + * \param withcode 1=affiche code + nom + * \return string Nom traduit du pays + */ + function pays_name($id,$withcode=0) + { + global $langs; + + $sql = "SELECT rowid, code, libelle FROM ".MAIN_DB_PREFIX."c_pays"; + $sql.= " WHERE rowid=$id;"; + + if ($this->db->query($sql)) + { + $num = $this->db->num_rows(); + + if ($num) + { + $obj = $this->db->fetch_object(); + $label=$obj->code && $langs->trans("Country".$obj->code)!="Country".$obj->code?$langs->trans("Country".$obj->code):($obj->libelle!='-'?$obj->libelle:''); + if ($withcode) return $label==$obj->code?"$obj->code":"$obj->code - $label"; + else return $label; + } + else + { + return $langs->trans("NotDefined"); + } + + } + } + + + /** + * \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; + + // Si il existe une traduction, on peut renvoyer de suite le libellé + if ($langs->trans("Currency".$code_iso)!="Currency".$code_iso) + { + return $langs->trans("Currency".$code_iso); + } + + // Si pas de traduction, on consulte libellé par défaut en table + $sql = "SELECT label FROM ".MAIN_DB_PREFIX."c_currencies"; + $sql.= " WHERE code_iso='$code_iso';"; + + if ($this->db->query($sql)) + { + $num = $this->db->num_rows(); + + if ($num) + { + $obj = $this->db->fetch_object(); + $label=($obj->label!='-'?$obj->label:''); + if ($withcode) return $label==$code_iso?"$code_iso":"$code_iso - $label"; + else return $label; + } + else + { + return $code_iso; + } + + } + } + + + /** + * \brief Affiche formulaire de demande de confirmation + * \param page page + * \param title title + * \param question question + * \param action action + */ + + function form_confirm($page, $title, $question, $action) + { + global $langs; + + print '
'; + print ''; + print ''; + // Ligne titre + print ''; + // Ligne message + print '\n"; + print ''; + + print '
'.$title.'
'.$question.''; + $this->selectyesno("confirm","no"); + print "
'; + print "
\n"; + } + + + /** + * \brief Affiche formulaire de selection de projet + * \param page Page + * \param socid Id societe + * \param selected Id projet présélectionné + * \param htmlname Nom du formulaire select + */ + function form_project($page, $socid, $selected='', $htmlname='projectid') + { + global $langs; + $langs->load("project"); + if ($htmlname != "none") + { + print '
'; + print ''; + print ''; + print ''; + print ''; + print '
'; + $this->select_projects($socid,$selected,$htmlname); + print '
'; + } + else + { + if ($selected) { + $projet = New Project($this->db); + $projet->fetch($selected); + print ''.$projet->title.''; + } else { + print " "; + } + } + } + + /** + * \brief Affiche formulaire de selection de conditions de paiement + * \param page Page + * \param selected Id condition présélectionnée + * \param htmlname Nom du formulaire select + */ + function form_conditions_reglement($page, $selected='', $htmlname='cond_reglement_id') + { + global $langs; + if ($htmlname != "none") + { + print '
'; + print ''; + print ''; + print ''; + print ''; + print '
'; + $this->select_conditions_paiements($selected,$htmlname); + print '
'; + } + else + { + if ($selected) + { + $this->load_cache_conditions_paiements(); + print $this->cache_conditions_paiements_libelle[$selected]; + } else { + print " "; + } + } + } + + + /** + * \brief Affiche formulaire de selection des modes de reglement + * \param page Page + * \param selected Id mode présélectionné + * \param htmlname Nom du formulaire select + */ + function form_modes_reglement($page, $selected='', $htmlname='mode_reglement_id') + { + global $langs; + if ($htmlname != "none") + { + print '
'; + print ''; + print ''; + print ''; + print ''; + print '
'; + $this->select_types_paiements($selected,$htmlname); + print '
'; + } + else + { + if ($selected) + { + $this->load_cache_types_paiements(); + print $this->cache_types_paiements_libelle[$selected]; + } else { + print " "; + } + } + } + + + /** + * \brief Retourne la liste des devises, dans la langue de l'utilisateur + * \param selected code devise pré-sélectionnée + * \param htmlname nom de la liste deroulante + * \todo trier liste sur noms après traduction plutot que avant + */ + function select_currency($selected='',$htmlname='currency_id') + { + global $conf,$langs; + $langs->load("dict"); + + if ($selected=='euro' || $selected=='euros') $selected='EUR'; // Pour compatibilité + + $sql = "SELECT code_iso, label, active FROM ".MAIN_DB_PREFIX."c_currencies"; + $sql .= " WHERE active = 1"; + $sql .= " ORDER BY code_iso ASC;"; + + if ($this->db->query($sql)) + { + print ''; + return 0; + } + else { + dolibarr_print_error($this->db); + return 1; + } + } + + + /** + * \brief Selection du taux de tva + * \param name Nom champ html + * \param defaulttx Taux tva présélectionné (deprecated) + * \param societe_vendeuse Objet société vendeuse + * \param societe_acheteuse Objet société acheteuse + * \param taux_produit Taux par defaut du produit vendu + * \remarks Si vendeur non assujeti à TVA, TVA par défaut=0. Fin de règle. + * Si le (pays vendeur = pays acheteur) alors la TVA par défaut=TVA du produit vendu. Fin de règle. + * Si vendeur et acheteur dans Communauté européenne et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par défaut=0 (La TVA doit être payé par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de règle. + * Si vendeur et acheteur dans Communauté européenne et bien vendu autre que transport neuf alors la TVA par défaut=TVA du produit vendu. Fin de règle. + * Sinon la TVA proposée par défaut=0. Fin de règle. + */ + function select_tva($name='tauxtva', $defaulttx='', $societe_vendeuse='', $societe_acheteuse='', $taux_produit='') + { + global $langs,$conf; + + // \todo Si pays vendeur non défini + if (1 == 2) + { + // \todo si pays vendeur = soi-même + if (1 == 1) + { + print ''.$langs->trans("ErrorYourCountryIsNotDefined").''; + } + else + { + print ''.$langs->trans("ErrorSupplierCountryIsNotDefined").''; + } + return; + } + + // \todo Ecraser defaulttx par valeur en fonction de la règle de gestion TVA + //$defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$taux_produit); + + // \todo Initialiser code_pays avec code_pays société vendeuse + $code_pays=$conf->global->MAIN_INFO_SOCIETE_PAYS; + $sql = "SELECT t.taux,t.recuperableonly"; + $sql .= " FROM ".MAIN_DB_PREFIX."c_tva AS t"; + $sql .= " WHERE t.fk_pays = '".$code_pays."'"; + $sql .= " AND t.active = 1"; + $sql .= " ORDER BY t.taux ASC, t.recuperableonly ASC"; + + if ($this->db->query($sql)) + { + $num = $this->db->num_rows(); + for ($i = 0; $i < $num; $i++) + { + $obj = $this->db->fetch_object(); + $txtva[ $i ] = $obj->taux; + $libtva[ $i ] = $obj->taux.'%'.($obj->recuperableonly ? ' *':''); + } + } + + // Si taux par defaut n'a pu etre trouvé, on prend dernier. + // Comme ils sont triés par ordre croissant, dernier = plus élevé = taux courant + if ($defaulttx == '') $defaulttx = $txtva[sizeof($txtva)-1]; + + $taille = sizeof($txtva); + + print ''; + } + + + /** + * \brief Affiche zone de selection de date + * Liste deroulante pour les jours, mois, annee et eventuellement heurs et minutes + * Les champs sont présélectionnées avec: + * - La date set_time (timestamps ou date au format YYYY-MM-DD ou YYYY-MM-DD HH:MM) + * - La date du jour si set_time vaut '' + * - Aucune date (champs vides) si set_time vaut -1 + */ + function select_date($set_time='', $prefix='re', $h = 0, $m = 0, $empty=0) + { + global $conf,$langs; + + if (! $set_time && $empty == 0) $set_time = time(); + + $strmonth[1] = $langs->trans("January"); + $strmonth[2] = $langs->trans("February"); + $strmonth[3] = $langs->trans("March"); + $strmonth[4] = $langs->trans("April"); + $strmonth[5] = $langs->trans("May"); + $strmonth[6] = $langs->trans("June"); + $strmonth[7] = $langs->trans("July"); + $strmonth[8] = $langs->trans("August"); + $strmonth[9] = $langs->trans("September"); + $strmonth[10] = $langs->trans("October"); + $strmonth[11] = $langs->trans("November"); + $strmonth[12] = $langs->trans("December"); + + // Analyse de la date de préselection + if (eregi('^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?',$set_time,$reg)) { + // Date au format 'YYYY-MM-DD' ou 'YYYY-MM-DD HH:MM:SS' + $syear = $reg[1]; + $smonth = $reg[2]; + $sday = $reg[3]; + $shour = $reg[4]; + $smin = $reg[5]; + } + elseif ($set_time) { + // Date est un timestamps + $syear = date("Y", $set_time); + $smonth = date("n", $set_time); + $sday = date("d", $set_time); + $shour = date("H", $set_time); + $smin = date("i", $set_time); + } + else { + // Date est vide + $syear = ''; + $smonth = ''; + $sday = ''; + $shour = ''; + $smin = ''; + } + + $conf->use_popup_date=0; // Mettre 1 pour avoir date en popup (experimental) + + /* + * Affiche date en popup + */ + if ($conf->use_javascript && $conf->use_popup_date) + { + $timearray=getDate($set_time); + $formated_date=dolibarr_print_date($set_time,$conf->format_date_short); + print ' '; + print ''."\n"; + print ''."\n"; + print ''."\n"; + } + + /* + * Affiche date en select + */ + if (! $conf->use_javascript || ! $conf->use_popup_date) + { + + // Jour + print '"; + + print '"; + + // Année + if ($empty || $set_time == -1) + { + print ''; + } + else + { + print '\n"; + } + } + + /* + * Affiche heure en select + */ + if ($h) + { + print 'H\n"; + + if ($m) + { + print 'M\n"; + } + + } + + } + + /** + * \brief Affiche liste déroulante depuis requete SQL + * \param name Nom de la zone select + * \param sql Requete sql + * \param id Id présélectionné + */ + function select($name, $sql, $id='') + { + $resql = $this->db->query($sql); + if ($resql) + { + print '\n"; + } + else + { + dolibarr_print_error($this->db); + } + } + + /** + \brief Affiche un select à partir d'un tableau + \param htmlname Nom de la zone select + \param array Tableau de key+valeur + \param id Key pré-sélectionnée + \param show_empty 1 si il faut un valeur " " dans la liste, 0 sinon + \param key_in_label 1 pour afficher la key dans la valeur "[key] value" + \param value_as_key 1 pour utiliser la valeur comme clé + */ + function select_array($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0) + { + print '\n"; + } + + + /** + * \brief Renvoie la chaîne de caractère décrivant l'erreur + */ + function error() + { + return $this->errorstr; + } + + + /** + * \brief Selection de oui/non en chaine (renvoie yes/no) + * \param name Nom du select + * \param value Valeur présélectionnée + * \param option 0 retourne yes/no, 1 retourne 1/0 + */ + function selectyesno($name,$value='',$option=0) + { + global $langs; + + $yes="yes"; $no="no"; + + if ($option) + { + $yes="1"; + $no="0"; + } + + print ''."\n"; + } + + /** + * \brief Selection de oui/non en chiffre (renvoie 1/0) + * \param name Nom du select + * \param value Valeur présélectionnée + */ + function selectyesnonum($name,$value='') + { + $this->selectyesno($name,$value,1); + } + + /** + * \brief Checkbox + * + */ + function checkbox($name,$checked=0,$value=1) + { + if ($checked==1){ + print "\n"; + }else{ + print "\n"; + } + } + + + /** + * \brief Affiche la cartouche générique d'un rapport + * \param nom Valeur pour nom du rapport + * \param variante Lien optionnel de variante du rapport + * \param period Periode du reporting + * \param periodlink Lien pour changer de période + * \param description Description + * \param builddate Date génération + * \param exportlink Lien pour export + */ + function report_header($nom,$variante='',$period,$periodlink,$description,$builddate,$exportlink) + { + global $langs; + + print "\n\n\n"; + + $h=0; + $head[$h][0] = $_SERVER["PHP_SELF"]; + $head[$h][1] = $langs->trans("Report"); + dolibarr_fiche_head($head, $hselected, $societe->nom); + + print ''; + + // Ligne de titre + print ''; + print ''; + if (! $variante) print ''; + print ''; + + // Ligne de la periode d'analyse du rapport + print ''; + print ''; + if (! $periodlink) print ''; + print ''; + + // Ligne de description + print ''; + print ''; + print ''; + print ''; + + // Ligne d'export + print ''; + print ''; + if (! $exportlink) print ''; + + print '
'.$langs->trans("ReportName").''; + else print ''; + print $nom; + if ($variante) print ''.$variante; + print '
'.$langs->trans("ReportPeriod").''; + else print ''; + print $period; + if ($periodlink) print ''.$periodlink; + print '
'.$langs->trans("ReportDescription").''.$description.'
'.$langs->trans("GeneratedOn").''; + else print ''; + print dolibarr_print_date($builddate); + if ($exportlink) print ''.$langs->trans("Export").''.$exportlink; + print '
'; + print ''; + print "\n\n\n"; + } + + /** + * \brief Affiche la cartouche de la liste des documents d'une propale, facture... + * \param modulepart propal=propal, facture=facture, ... + * \param filename Nom fichier sans extension + * \param filedir Repertoire à scanner + * \param urlsource Url page origine + * \param genallowed Génération autorisée (1/0 ou array des formats) + * \param delallowed Suppression autorisée (1/0) + * \param modelselected Modele à présélectionner par défaut + * \remarks Le fichier de facture détaillée est de la forme + * REFFACTURE-XXXXXX-detail.pdf ou XXXXX est une forme diverse + */ + function show_documents($modulepart,$filename,$filedir,$urlsource,$genallowed,$delallowed=0,$modelselected='',$modelliste=array()) + { + // filedir = conf->...dir_ouput."/".get_exdir(id) + + global $langs,$bc; + $var=true; + + $filename = sanitize_string($filename); + $headershown=0; + + // Affiche en-tete tableau + if ($genallowed) + { + $modellist=array(); + if ($modulepart == 'propal') + { + if (is_array($genallowed)) $modellist=$genallowed; + else + { + include_once(DOL_DOCUMENT_ROOT.'/includes/modules/propale/modules_propale.php'); + $model=new ModelePDFPropales(); + $modellist=$model->liste_modeles($this->db); + } + } + else if ($modulepart == 'commande') + { + if (is_array($genallowed)) $modellist=$genallowed; + else + { + include_once(DOL_DOCUMENT_ROOT.'/includes/modules/commande/modules_commande.php'); + $model=new ModelePDFCommandes(); + $modellist=$model->liste_modeles(); + } + } + elseif ($modulepart == 'facture') + { + if (is_array($genallowed)) $modellist=$genallowed; + else + { + include_once(DOL_DOCUMENT_ROOT.'/includes/modules/facture/modules_facture.php'); + $model=new ModelePDFFactures(); + $modellist=$model->liste_modeles($this->db); + } + } + elseif ($modulepart == 'export') + { + if (is_array($genallowed)) $modellist=$genallowed; + else + { + include_once(DOL_DOCUMENT_ROOT.'/includes/modules/export/modules_export.php'); + $model=new ModeleExports(); + $modellist=$model->liste_modeles($this->db); + } + } + else + { + dolibarr_print_error($this->db,'Bad value for modulepart'); + return -1; + } + + $headershown=1; + + print '
'; + print ''; + + print_titre($langs->trans("Documents")); + print ''; + + print ''; + } + + // Affiche lignes + if (is_dir($filedir)) + { + $i=0; + + $handle=opendir($filedir); + while (($file = readdir($handle))!==false) + { + // Si fichier non lisible ou mauvaise extension, on passe au suivant + if (! is_readable($filedir."/".$file) || + eregi('\.meta$',$file) || + eregi('\.$',$file) + ) continue; + + if (! $headershown) + { + // Affiche en-tete tableau + $headershown=1; + + print_titre($langs->trans("Documents")); + print '
'.$langs->trans('Model').''; + $this->select_array('model',$modellist,$modelselected,0,0,1); + $texte=$langs->trans('Generate'); + print ''; + print '
'; + } + + // Défini chemin relatif par rapport au module pour lien download + $relativepath=$filename."/".$file; + if ($modulepart == 'expedition') { $relativepath = get_exdir($filename).$file; } + if ($modulepart == 'don') { $relativepath = get_exdir($filename).$file; } + if ($modulepart == 'export') { $relativepath = $file; } + + // Défini le type MIME du document + if (eregi('\.([^\.]+)$',$file,$reg)) $extension=$reg[1]; + $mimetype=strtoupper($extension); + if ($extension == 'pdf') $mimetype='PDF'; + if ($extension == 'html') $mimetype='HTML'; + if (eregi('\-detail\.pdf',$file)) $mimetype='PDF Détaillé'; + + print ""; + + // Affiche colonne type MIME + print ''; + // Affiche nom fichier avec lien download + print ''; + // Affiche taille fichier + print ''; + // Affiche date fichier + print ''; + + print ''; + + $i++; + } + } + + if ($headershown) + { + // Affiche pied du tableau + print "
'.$mimetype.''.$file.''.filesize($filedir."/".$file). ' bytes'.strftime("%d %b %Y %H:%M:%S",filemtime($filedir."/".$file)).'
\n"; + if ($genallowed) + { + print '
'; + } + } + + } + +} + +?>