/htdocs/core/class/html.form.class.php

<?php

/* Copyright (c) 2002-2007	Rodolphe Quiedeville	<rodolphe@quiedeville.org>
 * Copyright (C) 2004-2012	Laurent Destailleur		<eldy@users.sourceforge.net>
 * Copyright (C) 2004		Benoit Mortier			<benoit.mortier@opensides.be>
 * Copyright (C) 2004		Sebastien Di Cintio		<sdicintio@ressource-toi.org>
 * Copyright (C) 2004		Eric Seigne				<eric.seigne@ryxeo.com>
 * Copyright (C) 2005-2013	Regis Houssin			<regis.houssin@capnetworks.com>
 * Copyright (C) 2006		Andre Cianfarani		<acianfa@free.fr>
 * Copyright (C) 2006		Marc Barilley/Ocebo		<marc@ocebo.com>
 * Copyright (C) 2007		Franky Van Liedekerke	<franky.van.liedekerker@telenet.be>
 * Copyright (C) 2007		Patrick Raguin			<patrick.raguin@gmail.com>
 * Copyright (C) 2010		Juanjo Menent			<jmenent@2byte.es>
 * Copyright (C) 2010		Philippe Grand			<philippe.grand@atoo-net.com>
 * Copyright (C) 2011-2012	Herve Prot				<herve.prot@symeos.com>
 * Copyright (C) 2012		Marcos García			<marcosgdf@gmail.com>
 *
 * 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 3 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, see <http://www.gnu.org/licenses/>.
 */

/**
 * 	\file       htdocs/core/class/html.form.class.php
 *  \ingroup    core
 * 	\brief      File of class with all html predefined components
 */

/**
 * 	Class to manage generation of HTML components
 * 	Only common components must be here.
 */
class Form {

	var $db;
	var $error;
	var $num;
	// Cache arrays
	var $cache_types_paiements = array();
	var $cache_conditions_paiements = array();
	var $cache_availability = array();
	var $cache_demand_reason = array();
	var $cache_types_fees = array();
	var $cache_currencies = array();
	var $cache_vatrates = array();
	var $tva_taux_value;
	var $tva_taux_libelle;

	/**
	 * Constructor
	 */
	public function __construct($db = '') {
		$this->db = $db;
	}

	/**
	 * Output key field for an editable field
	 *
	 * @param   string	$text			Text of label or key to translate
	 * @param   string	$htmlname		Name of select field
	 * @param   string	$preselected	Name of Value to show/edit (not used in this function)
	 * @param	object	$object			Object
	 * @param	boolean	$perm			Permission to allow button to edit parameter
	 * @param	string	$typeofdata		Type of data ('string' by default, 'email', 'numeric:99', 'text' or 'textarea:rows:cols', 'day' or 'datepicker', 'ckeditor:dolibarr_zzz:width:height:savemethod:1:rows:cols', 'select:xxx'...)
	 * @param	string	$moreparam		More param to add on a href URL
	 * @return	string					HTML edit field
	 */
	function editfieldkey($text, $htmlname, $preselected, $object, $perm, $typeofdata = 'string', $moreparam = '') {
		global $conf, $langs;

		$ret = '';

		// TODO change for compatibility
		if (!preg_match('/^select;/', $typeofdata)) {
			if ($perm) {
				$tmp = explode(':', $typeofdata);
				$ret.= '<div class="editkey_' . $tmp[0] . (!empty($tmp[1]) ? ' ' . $tmp[1] : '') . '" id="' . $htmlname . '">';
				$ret.= $langs->trans($text);
				$ret.= '</div>' . "\n";
			} else {
				$ret.= $langs->trans($text);
			}
		} else {
			$ret.='<table class="nobordernopadding" width="100%"><tr><td nowrap="nowrap">';
			$ret.=$langs->trans($text);
			$ret.='</td>';
			if (GETPOST('action') != 'edit' . $htmlname && $perm)
				$ret.='<td align="right"><a href="' . $_SERVER["PHP_SELF"] . '?action=edit' . $htmlname . '&amp;id=' . $object->id . $moreparam . '">' . img_edit($langs->trans('Edit'), 1) . '</a></td>';
			$ret.='</tr></table>';
		}

		return $ret;
	}

	/**
	 * Output val field for an editable field
	 *
	 * @param	string	$text			Text of label (not used in this function)
	 * @param	string	$htmlname		Name of select field
	 * @param	string	$value			Value to show/edit
	 * @param	object	$object			Object
	 * @param	boolean	$perm			Permission to allow button to edit parameter
	 * @param	string	$typeofdata		Type of data ('string' by default, 'email', 'numeric:99', 'text' or 'textarea:rows:cols', 'day' or 'datepicker', 'ckeditor:dolibarr_zzz:width:height:savemethod:toolbarstartexpanded:rows:cols', 'select:xxx'...)
	 * @param	string	$editvalue		When in edit mode, use this value as $value instead of value
	 * @param	object	$extObject		External object
	 * @param	string	$success		Success message
	 * @param	string	$moreparam		More param to add on a href URL
	 * @return  string					HTML edit field
	 */
	function editfieldval($text, $htmlname, $value, $object, $perm, $typeofdata = 'string', $editvalue = '', $extObject = null, $success = null, $moreparam = '') {
		global $conf, $langs, $db;

		$ret = '';

		// When option to edit inline is activated
		$ret.=$this->editInPlace($object, $value, $htmlname, $perm, $typeofdata, $editvalue, $extObject, $success);
		return $ret;
	}

	/**
	 * Output edit in place form
	 *
	 * @param	object	$object			Object
	 * @param	string	$value			Value to show/edit
	 * @param	string	$htmlname		DIV ID (field name)
	 * @param	int		$condition		Condition to edit
	 * @param	string	$inputType		Type of input ('numeric', 'datepicker', 'textarea:rows:cols', 'ckeditor:dolibarr_zzz:width:height:?:1:rows:cols', 'select:xxx')
	 * @param	string	$editvalue		When in edit mode, use this value as $value instead of value
	 * @param	object	$extObject		External object
	 * @param	string	$success		Success message
	 * @return	string   		      	HTML edit in place
	 */
	private function editInPlace($object, $value, $htmlname, $condition, $inputType = 'text', $editvalue = null, $extObject = null, $success = null) {
		global $conf;

		$out = '';

		// Check parameters
		if (preg_match('/^text/', $inputType))
			$value = dol_nl2br($value);
		else if (preg_match('/^numeric/', $inputType))
			$value = price($value);
		else if ($inputType == 'datepicker')
			$value = dol_print_date($value, 'day');

		if ($condition) {
			$element = false;
			$table_element = false;
			$fk_element = false;
			$loadmethod = false;
			$savemethod = false;
			$ext_element = false;
			$button_only = true;

			if (is_object($object)) {
				$element = $object->element;
				$table_element = $object->table_element;
				$fk_element = $object->id;
			}

			if (is_object($extObject)) {
				$ext_element = $extObject->element;
			}

			if (preg_match('/^(string|email|numeric)/', $inputType)) {
				$tmp = explode(':', $inputType);
				$inputType = $tmp[0];
				if (!empty($tmp[1]))
					$inputOption = $tmp[1];
				if (!empty($tmp[2]))
					$savemethod = $tmp[2];
			}
			else if (preg_match('/^datepicker/', $inputType)) {
				$tmp = explode(':', $inputType);
				$inputType = $tmp[0];
				if (!empty($tmp[1]))
					$inputOption = $tmp[1];
				if (!empty($tmp[2]))
					$savemethod = $tmp[2];

				$out.= '<input id="timestamp" type="hidden"/>' . "\n"; // Use for timestamp format
			}
			else if (preg_match('/^(select|autocomplete)/', $inputType)) {
				$tmp = explode(':', $inputType);
				$inputType = $tmp[0];
				$loadmethod = $tmp[1];
				if (!empty($tmp[2]))
					$savemethod = $tmp[2];
				if (!empty($tmp[3]))
					$button_only = true;
			}
			else if (preg_match('/^text/', $inputType)) {
				$tmp = explode(':', $inputType);
				$inputType = $tmp[0];
				if (!empty($tmp[1]))
					$rows = $tmp[1];
				if (!empty($tmp[2]))
					$cols = $tmp[2];
			}
			else if (preg_match('/^ckeditor/', $inputType)) {
				$tmp = explode(':', $inputType);
				$inputType = $tmp[0];
				$toolbar = $tmp[1];
				if (!empty($tmp[2]))
					$width = $tmp[2];
				if (!empty($tmp[3]))
					$heigth = $tmp[3];
				if (!empty($tmp[4]))
					$savemethod = $tmp[4];

				$out.= '<input id="ckeditor_toolbar" value="' . $toolbar . '" type="hidden"/>' . "\n";
			}

			$out.= '<input id="element_id_' . $htmlname . '" type="hidden" value="' . $object->id . '"/>';
			$out.= '<input id="element_class_' . $htmlname . '" type="hidden" value="' . get_class($object) . '"/>';

			if (!empty($loadmethod))
				$out.= '<input id="loadmethod_' . $htmlname . '" value="' . $loadmethod . '" type="hidden"/>' . "\n";
			if (!empty($savemethod))
				$out.= '<input id="savemethod_' . $htmlname . '" value="' . $savemethod . '" type="hidden"/>' . "\n";
			if (!empty($ext_element))
				$out.= '<input id="ext_element_' . $htmlname . '" value="' . $ext_element . '" type="hidden"/>' . "\n";
			if (!empty($success))
				$out.= '<input id="success_' . $htmlname . '" value="' . $success . '" type="hidden"/>' . "\n";

			$out.= '<span id="viewval_' . $htmlname . '" class="viewval_' . $inputType . ($button_only ? ' inactive' : ' active') . '">';
			$out.= $object->print_fk_extrafields($htmlname);
			$out.= '</span>' . "\n";

			if (preg_match('/^tag/', $inputType)) {
				$out.= '<ul class="array_tag_handler" id="editval_' . $htmlname . '"></ul>';
			} else {
				$out.= '<span id="editval_' . $htmlname . '" class="editval_' . $inputType . ($button_only ? ' inactive' : ' active') . ' hideobject">';
				$out.= (!empty($editvalue) ? $editvalue : $value);
				$out.= '</span>' . "\n";
			}
		} else {
			if (preg_match('/^tag/', $inputType)) {
				$out.= $object->LibTag($value, array("key" => $htmlname));
			} else {
				$out.= $object->print_fk_extrafields($htmlname);
			}
		}

		return $out;
	}

	/**
	 * 	Show a text and picto with tooltip on text or picto
	 *
	 * 	@param	string		$text				Text to show
	 * 	@param	string		$htmltext			Content html of tooltip. Must be HTML/UTF8 encoded.
	 * 	@param	int			$tooltipon			1=tooltip sur texte, 2=tooltip sur picto, 3=tooltip sur les 2
	 * 	@param	int			$direction			-1=Le picto est avant, 0=pas de picto, 1=le picto est apres
	 * 	@param	string		$img				Code img du picto (use img_xxx() function to get it)
	 * 	@param	string		$extracss			Add a CSS style to td tags
	 * 	@param	int			$notabs				0=Include table and tr tags, 1=Do not include table and tr tags, 2=use div, 3=use span
	 * 	@param	string		$incbefore			Include code before the text
	 * 	@param	int			$noencodehtmltext	Do not encode into html entity the htmltext
	 * 	@return	string							Code html du tooltip (texte+picto)
	 * 	@see	Use function textwithpicto if you can.
	 */
	function textwithtooltip($text, $htmltext, $tooltipon = 1, $direction = 0, $img = '', $extracss = '', $notabs = 0, $incbefore = '', $noencodehtmltext = 0) {
		global $conf;

		if ($incbefore)
			$text = $incbefore . $text;
		if (!$htmltext)
			return $text;

		$tag = 'td';
		if ($notabs == 2)
			$tag = 'div';
		if ($notabs == 3)
			$tag = 'span';
		// Sanitize tooltip
		$htmltext = str_replace("\\", "\\\\", $htmltext);
		$htmltext = str_replace("\r", "", $htmltext);
		$htmltext = str_replace("\n", "", $htmltext);

		$htmltext = str_replace('"', "&quot;", $htmltext);
		if ($tooltipon == 2 || $tooltipon == 3)
			$paramfortooltipimg = ' class="classfortooltip' . ($extracss ? ' ' . $extracss : '') . '" title="' . ($noencodehtmltext ? $htmltext : dol_escape_htmltag($htmltext, 1)) . '"'; // Attribut to put on td img tag to store tooltip
		else
			$paramfortooltipimg = ($extracss ? ' class="' . $extracss . '"' : ''); // Attribut to put on td text tag
		if ($tooltipon == 1 || $tooltipon == 3)
			$paramfortooltiptd = ' class="classfortooltip' . ($extracss ? ' ' . $extracss : '') . '" title="' . ($noencodehtmltext ? $htmltext : dol_escape_htmltag($htmltext, 1)) . '"'; // Attribut to put on td tag to store tooltip
		else
			$paramfortooltiptd = ($extracss ? ' class="' . $extracss . '"' : ''); // Attribut to put on td text tag

		$s = "";
		if (empty($notabs))
			$s.='<table class="nobordernopadding" summary=""><tr>';
		if ($direction < 0)
			$s.='<' . $tag . $paramfortooltipimg . ' valign="top" width="14">' . $img . '</' . $tag . '>';
		if ($text != '')
			$s.='<' . $tag . $paramfortooltiptd . '>' . (($direction < 0) ? '&nbsp;' : '') . $text . (($direction > 0) ? '&nbsp;' : '') . '</' . $tag . '>';
		if ($direction > 0)
			$s.='<' . $tag . $paramfortooltipimg . ' valign="top" width="14">' . $img . '</' . $tag . '>';
		if (empty($notabs))
			$s.='</tr></table>';

		return $s;
	}

	/**
	 * 	Show a text with a picto and a tooltip on picto
	 *
	 * 	@param	string	$text				Text to show
	 * 	@param  string	$htmltext	     	Content of tooltip
	 * 	@param	int		$direction			1=Icon is after text, -1=Icon is before text, 0=no icon
	 * 	@param	string	$type				Type of picto (info, help, warning, superadmin...)
	 *  @param  string	$extracss           Add a CSS style to td tags
	 *  @param  int		$noencodehtmltext   Do not encode into html entity the htmltext
	 *  @param	int		$notabs				0=Include table and tr tags, 1=Do not include table and tr tags, 2=use div, 3=use span
	 * 	@return	string						HTML code of text, picto, tooltip
	 */
	function textwithpicto($text, $htmltext, $direction = 1, $type = 'help', $extracss = '', $noencodehtmltext = 0, $notabs = 0) {
		global $conf;

		$alt = '';

		//For backwards compatibility
		if ($type == '0')
			$type = 'info';
		elseif ($type == '1')
			$type = 'help';

		// If info or help with no javascript, show only text
		if (empty($conf->use_javascript_ajax)) {
			if ($type == 'info' || $type == 'help')
				return $text;
			else {
				$alt = $htmltext;
				$htmltext = '';
			}
		}
		// If info or help with smartphone, show only text
		if (!empty($conf->browser->phone)) {
			if ($type == 'info' || $type == 'help')
				return $text;
		}

		if ($type == 'info')
			$img = img_help(0, $alt);
		elseif ($type == 'help')
			$img = img_help(1, $alt);
		elseif ($type == 'superadmin')
			$img = img_picto($alt, 'redstar');
		elseif ($type == 'admin')
			$img = img_picto($alt, 'star');
		elseif ($type == 'warning')
			$img = img_warning($alt);

		return $this->textwithtooltip($text, $htmltext, 2, $direction, $img, $extracss, $notabs, '', $noencodehtmltext);
	}

	/**
	 * 	Return list of types of lines (product or service)
	 * 	Example: 0=product, 1=service, 9=other (for external module)
	 *
	 * 	@param  string	$selected       Preselected type
	 * 	@param  string	$htmlname       Name of field in html form
	 * 	@param	int		$showempty		Add an empty field
	 * 	@param	int		$hidetext		Do not show label before combo box
	 * 	@param	string	$forceall		Force to show products and services in combo list, whatever are activated modules
	 *  @return	void
	 */
	function select_type_of_lines($selected = '', $htmlname = 'type', $showempty = 0, $hidetext = 0, $forceall = 0) {
		global $db, $langs, $user, $conf;

		// If product & services are enabled or both disabled.
		if ($forceall || (!empty($conf->product->enabled) && !empty($conf->service->enabled))
				|| (empty($conf->product->enabled) && empty($conf->service->enabled))) {
			if (empty($hidetext))
				print $langs->trans("Type") . ': ';
			print '<select class="flat" id="select_' . $htmlname . '" name="' . $htmlname . '">';
			if ($showempty) {
				print '<option value="-1"';
				if ($selected == -1)
					print ' selected="selected"';
				print '>&nbsp;</option>';
			}

			print '<option value="0"';
			if (0 == $selected)
				print ' selected="selected"';
			print '>' . $langs->trans("Product");

			print '<option value="1"';
			if (1 == $selected)
				print ' selected="selected"';
			print '>' . $langs->trans("Service");

			print '</select>';
			//if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
		}
		if (!$forceall && empty($conf->product->enabled) && !empty($conf->service->enabled)) {
			print '<input type="hidden" name="' . $htmlname . '" value="1">';
		}
		if (!$forceall && !empty($conf->product->enabled) && empty($conf->service->enabled)) {
			print '<input type="hidden" name="' . $htmlname . '" value="0">';
		}
	}

	/**
	 * 	Load into cache cache_types_fees, array of types of fees
	 *
	 * 	@return     int             Nb of lines loaded, 0 if already loaded, <0 if ko
	 * 	TODO move in DAO class
	 */
	function load_cache_types_fees() {

		return false;
		/*
		  global $langs;

		  $langs->load("trips");

		  if (count($this->cache_types_fees))
		  return 0;    // Cache already load

		  $sql = "SELECT c.code, c.libelle as label";
		  $sql.= " FROM " . MAIN_DB_PREFIX . "c_type_fees as c";
		  $sql.= " ORDER BY lower(c.libelle) ASC";

		  dol_syslog(get_class($this) . '::load_cache_types_fees sql=' . $sql, LOG_DEBUG);
		  $resql = $this->db->query($sql);
		  if ($resql) {
		  $num = $this->db->num_rows($resql);
		  $i = 0;

		  while ($i < $num) {
		  $obj = $this->db->fetch_object($resql);

		  // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
		  $label = ($obj->code != $langs->trans($obj->code) ? $langs->trans($obj->code) : $langs->trans($obj->label));
		  $this->cache_types_fees[$obj->code] = $label;
		  $i++;
		  }
		  return $num;
		  } else {
		  dol_print_error($this->db);
		  return -1;
		  }
		 */
	}

	/**
	 * 	Return list of types of notes
	 *
	 * 	@param	string		$selected		Preselected type
	 * 	@param  string		$htmlname		Name of field in form
	 * 	@param	int			$showempty		Add an empty field
	 * 	@return	void
	 */
	function select_type_fees($selected = '', $htmlname = 'type', $showempty = 0) {
		global $user, $langs;

		dol_syslog(get_class($this) . "::select_type_fees " . $selected . ", " . $htmlname, LOG_DEBUG);

		$this->load_cache_types_fees();

		print '<select class="flat" name="' . $htmlname . '">';
		if ($showempty) {
			print '<option value="-1"';
			if ($selected == -1)
				print ' selected="selected"';
			print '>&nbsp;</option>';
		}

		foreach ($this->cache_types_fees as $key => $value) {
			print '<option value="' . $key . '"';
			if ($key == $selected)
				print ' selected="selected"';
			print '>';
			print $value;
			print '</option>';
		}

		print '</select>';
		if ($user->admin)
			print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"), 1);
	}

	/**
	 *  Output html form to select a third party
	 *
	 * 	@param	string	$selected       Preselected type
	 * 	@param  string	$htmlname       Name of field in form
	 *  @param  string	$filter         Optionnal filters criteras
	 * 	@param	int		$showempty		Add an empty field
	 * 	@param	int		$showtype		Show third party type in combolist (customer, prospect or supplier)
	 * 	@param	int		$forcecombo		Force to use combo box
	 *  @param	array	$event			Event options
	 * 	@return	string					HTML string with
	 */
	function select_company($selected = '', $htmlname = 'socid', $filter = '', $showempty = 0, $showtype = 0, $forcecombo = 0, $event = array()) {
		global $conf, $user, $langs;

		$out = '';

		$object = new Societe($this->db);

		try {
			$result = $object->getView("list");
		} catch (Exception $e) {
			$this->error = "Fetch : Something weird happened: " . $e->getMessage() . " (errcode=" . $e->getCode() . ")\n";
			dol_print_error($this->db, $this->error);
			return 0;
		}

		$out.= '<select id="' . $htmlname . '" class="flat" name="' . $htmlname . '">';
		if ($showempty)
			$out.= '<option value="0"></option>';

		if (count($result->rows) > 0) {
			foreach ($result->rows as $aRow) {
				$obj = $aRow->value;

				$label = $obj->name;
				if ($showtype) {
					if ($obj->client || $obj->fournisseur)
						$label.=' (';
					if ($obj->client == 1 || $obj->client == 3)
						$label.=$langs->trans("Customer");
					if ($obj->client == 2 || $obj->client == 3)
						$label.=($obj->client == 3 ? ', ' : '') . $langs->trans("Prospect");
					if ($obj->fournisseur)
						$label.=($obj->client ? ', ' : '') . $langs->trans("Supplier");
					if ($obj->client || $obj->fournisseur)
						$label.=')';
				}
				if ($selected > 0 && $selected == $obj->_id) {
					$out.= '<option value="' . $obj->_id . '" selected="selected">' . $label . '</option>';
				} else {
					$out.= '<option value="' . $obj->_id . '">' . $label . '</option>';
				}
				$i++;
			}
		}
		$out.= '</select>';

		return $out;
	}

	/**
	 *    	Return HTML combo list of absolute discounts
	 *
	 *    	@param	string	$selected       Id remise fixe pre-selectionnee
	 *    	@param  string	$htmlname       Nom champ formulaire
	 *    	@param  string	$filter         Criteres optionnels de filtre
	 * 		@param	int		$socid			Id of thirdparty
	 * 		@param	int		$maxvalue		Max value for lines that can be selected
	 * 		@return	int						Return number of qualifed lines in list
	 */
	function select_remises($selected, $htmlname, $filter, $socid, $maxvalue = 0) {
		global $langs, $conf, $db;

		$discount = new DiscountAbsolute($db);
		$result = $discount->getView('listAvailableDiscountsPerSociete', array('key' => $socid));

		// On recherche les remises
//        $sql = "SELECT re.rowid, re.amount_ht, re.amount_tva, re.amount_ttc,";
//        $sql.= " re.description, re.fk_facture_source";
//        $sql.= " FROM " . MAIN_DB_PREFIX . "societe_remise_except as re";
//        $sql.= " WHERE fk_soc = " . $socid;
//        if ($filter)
//            $sql.= " AND " . $filter;
//        $sql.= " ORDER BY re.description ASC";
//
//        dol_syslog(get_class($this) . "::select_remises sql=" . $sql);
//        $resql = $this->db->query($sql);
		if (true) {
			print '<select class="flat" name="' . $htmlname . '">';
			$num = count($result->rows); //$this->db->num_rows($resql);

			$qualifiedlines = $num;

			$i = 0;
			if ($num) {
				print '<option value="0">&nbsp;</option>';
				while ($i < $num) {
					$obj = new DiscountAbsolute($this->db); //$this->db->fetch_object($resql);
					$obj->fetch($result->rows[$i]->id);
					$desc = dol_trunc($obj->description, 40);
					if ($desc == '(CREDIT_NOTE)')
						$desc = $langs->trans("CreditNote");
					if ($desc == '(DEPOSIT)')
						$desc = $langs->trans("Deposit");

					$selectstring = '';
					if ($selected > 0 && $selected == $obj->rowid)
						$selectstring = ' selected="selected"';

					$disabled = '';
					if ($maxvalue > 0 && $obj->amount_ttc > $maxvalue) {
						$qualifiedlines--;
						$disabled = ' disabled="disabled"';
					}

					print '<option value="' . $obj->id . '"' . $selectstring . $disabled . '>' . $desc . ' (' . price($obj->amount_ht) . ' ' . $langs->trans("HT") . ' - ' . price($obj->amount_ttc) . ' ' . $langs->trans("TTC") . ')</option>';
					$i++;
				}
			}
			print '</select>';
			return $qualifiedlines;
		} else {
			dol_print_error($this->db);
			return -1;
		}
	}

	/**
	 * 	Return list of all contacts (for a third party or all)
	 *
	 * 	@param	int		$socid      	Id ot third party or 0 for all
	 * 	@param  string	$selected   	Id contact pre-selectionne
	 * 	@param  string	$htmlname  	    Name of HTML field ('none' for a not editable field)
	 * 	@param  int		$showempty      0=no empty value, 1=add an empty value
	 * 	@param  string	$exclude        List of contacts id to exclude
	 * 	@param	string	$limitto		Disable answers that are not id in this array list
	 * 	@param	string	$showfunction   Add function into label
	 * 	@param	string	$moreclass		Add more class to class style
	 * 	@param	string	$showsoc	    Add company into label
	 * 	@return	int						<0 if KO, Nb of contact in list if OK
	 */
	function select_contacts($socid, $selected = '', $htmlname = 'contactid', $showempty = 0, $exclude = '', $limitto = '', $showfunction = 0, $moreclass = '', $showsoc = 0) {
		print $this->selectcontacts($socid, $selected, $htmlname, $showempty, $exclude, $limitto, $showfunction, $moreclass, $showsoc);
		return $this->num;
	}

	/**
	 * 	Return list of all contacts (for a third party or all)
	 *
	 * 	@param	int		$socid      	Id ot third party or 0 for all
	 * 	@param  string	$selected   	Id contact pre-selectionne
	 * 	@param  string	$htmlname  	    Name of HTML field ('none' for a not editable field)
	 * 	@param  int		$showempty     	0=no empty value, 1=add an empty value
	 * 	@param  string	$exclude        List of contacts id to exclude
	 * 	@param	string	$limitto		Disable answers that are not id in this array list
	 * 	@param	string	$showfunction   Add function into label
	 * 	@param	string	$moreclass		Add more class to class style
	 * 	@param	bool	$options_only	Return options only (for ajax treatment)
	 * 	@param	string	$showsoc	    Add company into label
	 * 	@return	 int						<0 if KO, Nb of contact in list if OK
	 */
	function selectcontacts($socid, $selected = '', $htmlname = 'contactid', $showempty = 0, $exclude = '', $limitto = '', $showfunction = 0, $moreclass = '', $options_only = false, $showsoc = 0) {
		return false;

		/*
		  global $conf, $langs;

		  $langs->load('companies');

		  $out = '';

		  // On recherche les societes
		  $sql = "SELECT sp.rowid, sp.name as name, sp.firstname, sp.poste";
		  if ($showsoc > 0) {
		  $sql.= " , s.nom as company";
		  }
		  $sql.= " FROM " . MAIN_DB_PREFIX . "socpeople as sp";
		  if ($showsoc > 0) {
		  $sql.= " LEFT OUTER JOIN  " . MAIN_DB_PREFIX . "societe as s ON s.rowid=sp.fk_soc ";
		  }
		  $sql.= " WHERE sp.entity IN (" . getEntity('societe', 1) . ")";
		  if ($socid > 0)
		  $sql.= " AND sp.fk_soc=" . $socid;
		  $sql.= " ORDER BY sp.name ASC";

		  dol_syslog(get_class($this) . "::select_contacts sql=" . $sql);
		  $resql = $this->db->query($sql);
		  if ($resql) {
		  $num = $this->db->num_rows($resql);

		  if ($htmlname != 'none' || $options_only)
		  $out.= '<select class="flat' . ($moreclass ? ' ' . $moreclass : '') . '" id="' . $htmlname . '" name="' . $htmlname . '">';
		  if ($showempty)
		  $out.= '<option value="0"></option>';
		  $num = $this->db->num_rows($resql);
		  $i = 0;
		  if ($num) {
		  include_once DOL_DOCUMENT_ROOT . '/contact/class/contact.class.php';
		  $contactstatic = new Contact($this->db);

		  while ($i < $num) {
		  $obj = $this->db->fetch_object($resql);

		  $contactstatic->id = $obj->rowid;
		  $contactstatic->name = $obj->name;
		  $contactstatic->lastname = $obj->name;
		  $contactstatic->firstname = $obj->firstname;

		  if ($htmlname != 'none') {
		  $disabled = 0;
		  if (is_array($exclude) && count($exclude) && in_array($obj->rowid, $exclude))
		  $disabled = 1;
		  if (is_array($limitto) && count($limitto) && !in_array($obj->rowid, $limitto))
		  $disabled = 1;
		  if ($selected && $selected == $obj->rowid) {
		  $out.= '<option value="' . $obj->rowid . '"';
		  if ($disabled)
		  $out.= ' disabled="disabled"';
		  $out.= ' selected="selected">';
		  $out.= $contactstatic->getFullName($langs);
		  if ($showfunction && $obj->poste)
		  $out.= ' (' . $obj->poste . ')';
		  if (($showsoc > 0) && $obj->company)
		  $out.= ' - (' . $obj->company . ')';
		  $out.= '</option>';
		  }
		  else {
		  $out.= '<option value="' . $obj->rowid . '"';
		  if ($disabled)
		  $out.= ' disabled="disabled"';
		  $out.= '>';
		  $out.= $contactstatic->getFullName($langs);
		  if ($showfunction && $obj->poste)
		  $out.= ' (' . $obj->poste . ')';
		  if (($showsoc > 0) && $obj->company)
		  $out.= ' - (' . $obj->company . ')';
		  $out.= '</option>';
		  }
		  }
		  else {
		  if ($selected == $obj->rowid) {
		  $out.= $contactstatic->getFullName($langs);
		  if ($showfunction && $obj->poste)
		  $out.= ' (' . $obj->poste . ')';
		  if (($showsoc > 0) && $obj->company)
		  $out.= ' - (' . $obj->company . ')';
		  }
		  }
		  $i++;
		  }
		  }
		  else {
		  $out.= '<option value="-1" selected="selected" disabled="disabled">' . $langs->trans("NoContactDefined") . '</option>';
		  }
		  if ($htmlname != 'none' || $options_only) {
		  $out.= '</select>';
		  }

		  $this->num = $num;
		  return $out;
		  } else {
		  dol_print_error($this->db);
		  return -1;
		  }
		 */
	}

	/**
	 *  Return list of products for customer in Ajax if Ajax activated or go to select_produits_do
	 *
	 *  @param		int			$selected				Preselected products
	 *  @param		string		$htmlname				Name of HTML seletc field (must be unique in page)
	 *  @param		int			$filtertype				Filter on product type (''=nofilter, 0=product, 1=service)
	 *  @param		int			$limit					Limit on number of returned lines
	 *  @param		int			$price_level			Level of price to show
	 *  @param		int			$status					-1=Return all products, 0=Products not on sell, 1=Products on sell
	 *  @param		int			$finished				2=all, 1=finished, 0=raw material
	 *  @param		string		$selected_input_value	Value of preselected input text (with ajax)
	 *  @param		int			$hidelabel				Hide label (0=no, 1=yes, 2=show search icon (before) and placeholder, 3 search icon after)
	 *  @param		array		$ajaxoptions			Options for ajax_autocompleter
	 *  @return		void
	 */
	function select_produits($selected = '', $htmlname = 'productid', $filtertype = '', $limit = 20, $price_level = 0, $status = 1, $finished = 2, $selected_input_value = '', $hidelabel = 0, $ajaxoptions = array()) {
		global $langs, $conf;

		$price_level = (!empty($price_level) ? $price_level : 0);

		if (!empty($conf->use_javascript_ajax) && !empty($conf->global->PRODUIT_USE_SEARCH_TO_SELECT)) {
			$placeholder = '';

			if ($selected && empty($selected_input_value)) {
				require_once DOL_DOCUMENT_ROOT . '/product/class/product.class.php';
				$product = new Product($this->db);
				$product->fetch($selected);
				$selected_input_value = $product->ref;
			}
			// mode=1 means customers products
			$urloption = 'htmlname=' . $htmlname . '&outjson=1&price_level=' . $price_level . '&type=' . $filtertype . '&mode=1&status=' . $status . '&finished=' . $finished;
			print ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT . '/product/ajax/products.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 0, $ajaxoptions);
			if (empty($hidelabel))
				print $langs->trans("RefOrLabel") . ' : ';
			else if ($hidelabel > 1) {
				if (!empty($conf->global->MAIN_HTML5_PLACEHOLDER))
					$placeholder = ' placeholder="' . $langs->trans("RefOrLabel") . '"';
				else
					$placeholder = ' title="' . $langs->trans("RefOrLabel") . '"';
				if ($hidelabel == 2) {
					print img_picto($langs->trans("Search"), 'search');
				}
			}
			print '<input type="text" size="20" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . $placeholder . ' />';
			if ($hidelabel == 3) {
				print img_picto($langs->trans("Search"), 'search');
			}
		} else {
			$this->select_produits_do($selected, $htmlname, $filtertype, $limit, $price_level, '', $status, $finished, 0);
		}
	}

	/**
	 * 	Return list of products for a customer
	 *
	 * 	@param      int		$selected       Preselected product
	 * 	@param      string	$htmlname       Name of select html
	 *  @param		string	$filtertype     Filter on product type (''=nofilter, 0=product, 1=service)
	 * 	@param      int		$limit          Limite sur le nombre de lignes retournees
	 * 	@param      int		$price_level    Level of price to show
	 * 	@param      string	$filterkey      Filter on product
	 * 	@param		int		$status         -1=Return all products, 0=Products not on sell, 1=Products on sell
	 *  @param      int		$finished       Filter on finished field: 2=No filter
	 *  @param      int		$disableout     Disable print output
	 *  @return     array    				Array of keys for json
	 */
	function select_produits_do($selected = '', $htmlname = 'productid', $filtertype = '', $limit = 20, $price_level = 0, $filterkey = '', $status = 1, $finished = 2, $disableout = 0) {
		return false;
		/*
		  global $langs, $conf, $user, $db;

		  $sql = "SELECT ";
		  $sql.= " p.rowid, p.label, p.ref, p.description, p.fk_product_type, p.price, p.price_ttc, p.price_base_type, p.tva_tx, p.duration, p.stock";
		  // Multilang : we add translation
		  if (!empty($conf->global->MAIN_MULTILANGS)) {
		  $sql.= ", pl.label as label_translated";
		  }
		  $sql.= " FROM " . MAIN_DB_PREFIX . "product as p";
		  // Multilang : we add translation
		  if (!empty($conf->global->MAIN_MULTILANGS)) {
		  $sql.= " LEFT JOIN " . MAIN_DB_PREFIX . "product_lang as pl ON pl.fk_product = p.rowid AND pl.lang='" . $langs->getDefaultLang() . "'";
		  }
		  $sql.= ' WHERE p.entity IN (' . getEntity('product', 1) . ')';
		  if ($finished == 0) {
		  $sql.= " AND p.finished = " . $finished;
		  } elseif ($finished == 1) {
		  $sql.= " AND p.finished = " . $finished;
		  if ($status >= 0)
		  $sql.= " AND p.tosell = " . $status;
		  }
		  elseif ($status >= 0) {
		  $sql.= " AND p.tosell = " . $status;
		  }
		  if (strval($filtertype) != '')
		  $sql.=" AND p.fk_product_type=" . $filtertype;
		  // Add criteria on ref/label
		  if ($filterkey && $filterkey != '') {
		  if (!empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE)) {   // Can use index
		  $sql.=" AND (p.ref LIKE '" . $filterkey . "%' OR p.label LIKE '" . $filterkey . "%'";
		  if (!empty($conf->global->MAIN_MULTILANGS))
		  $sql.=" OR pl.label LIKE '" . $filterkey . "%'";
		  $sql.=")";
		  }
		  else {
		  $sql.=" AND (p.ref LIKE '%" . $filterkey . "%' OR p.label LIKE '%" . $filterkey . "%'";
		  if (!empty($conf->global->MAIN_MULTILANGS))
		  $sql.=" OR pl.label LIKE '%" . $filterkey . "%'";
		  $sql.=")";
		  }

		  if (!empty($conf->barcode->enabled)) {
		  $sql .= " OR p.barcode LIKE '" . $filterkey . "'";
		  }
		  }
		  $sql.= $db->order("p.ref");
		  $sql.= $db->plimit($limit);

		  // Build output string
		  $outselect = '';
		  $outjson = array();

		  $result = $this->db->query($sql);
		  if ($result) {
		  $num = $this->db->num_rows($result);

		  $outselect.='<select class="flat" name="' . $htmlname . '" id="' . $htmlname . '">';
		  $outselect.='<option value="0" selected="selected">&nbsp;</option>';

		  $i = 0;
		  while ($num && $i < $num) {
		  $outkey = '';
		  $outval = '';
		  $outref = '';
		  $outlabel = '';
		  $outdesc = '';
		  $outtype = '';
		  $outprice_ht = '';
		  $outprice_ttc = '';
		  $outpricebasetype = '';
		  $outtva_tx = '';

		  $objp = $this->db->fetch_object($result);

		  $label = $objp->label;
		  if (!empty($objp->label_translated))
		  $label = $objp->label_translated;
		  if ($filterkey && $filterkey != '')
		  $label = preg_replace('/(' . preg_quote($filterkey) . ')/i', '<strong>$1</strong>', $label, 1);

		  $outkey = $objp->rowid;
		  $outref = $objp->ref;
		  $outlabel = $objp->label;
		  $outdesc = $objp->description;
		  $outtype = $objp->fk_product_type;

		  $opt = '<option value="' . $objp->rowid . '"';
		  $opt.= ($objp->rowid == $selected) ? ' selected="selected"' : '';
		  if (!empty($conf->stock->enabled) && $objp->fk_product_type == 0 && isset($objp->stock)) {
		  if ($objp->stock > 0) {
		  $opt.= ' style="background-color:#32CD32; color:#F5F5F5;"';
		  } else if ($objp->stock <= 0) {
		  $opt.= ' style="background-color:#FF0000; color:#F5F5F5;"';
		  }
		  }
		  $opt.= '>';
		  $opt.= $objp->ref . ' - ' . dol_trunc($label, 32) . ' - ';

		  $objRef = $objp->ref;
		  if ($filterkey && $filterkey != '')
		  $objRef = preg_replace('/(' . preg_quote($filterkey) . ')/i', '<strong>$1</strong>', $objRef, 1);
		  $outval.=$objRef . ' - ' . dol_trunc($label, 32) . ' - ';

		  $found = 0;
		  $currencytext = $langs->trans("Currency" . $conf->currency);
		  $currencytextnoent = $langs->transnoentities("Currency" . $conf->currency);
		  if (dol_strlen($currencytext) > 10)
		  $currencytext = $conf->currency; // If text is too long, we use the short code
		  if (dol_strlen($currencytextnoent) > 10)
		  $currencytextnoent = $conf->currency;   // If text is too long, we use the short code













		  // Multiprice
		  if ($price_level >= 1) {  // If we need a particular price level (from 1 to 6)
		  $sql = "SELECT price, price_ttc, price_base_type, tva_tx";
		  $sql.= " FROM " . MAIN_DB_PREFIX . "product_price";
		  $sql.= " WHERE fk_product='" . $objp->rowid . "'";
		  $sql.= " AND price_level=" . $price_level;
		  $sql.= " ORDER BY date_price";
		  $sql.= " DESC LIMIT 1";

		  dol_syslog(get_class($this) . "::select_produits_do search price for level '.$price_level.' sql=" . $sql);
		  $result2 = $this->db->query($sql);
		  if ($result2) {
		  $objp2 = $this->db->fetch_object($result2);
		  if ($objp2) {
		  $found = 1;
		  if ($objp2->price_base_type == 'HT') {
		  $opt.= price($objp2->price, 1) . ' ' . $currencytext . ' ' . $langs->trans("HT");
		  $outval.= price($objp2->price, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("HT");
		  } else {
		  $opt.= price($objp2->price_ttc, 1) . ' ' . $currencytext . ' ' . $langs->trans("TTC");
		  $outval.= price($objp2->price_ttc, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("TTC");
		  }
		  $outprice_ht = price($objp2->price);
		  $outprice_ttc = price($objp2->price_ttc);
		  $outpricebasetype = $objp2->price_base_type;
		  $outtva_tx = $objp2->tva_tx;
		  }
		  } else {
		  dol_print_error($this->db);
		  }
		  }

		  // If level no defined or multiprice not found, we used the default price
		  if (!$found) {
		  if ($objp->price_base_type == 'HT') {
		  $opt.= price($objp->price, 1) . ' ' . $currencytext . ' ' . $langs->trans("HT");
		  $outval.= price($objp->price, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("HT");
		  } else {
		  $opt.= price($objp->price_ttc, 1) . ' ' . $currencytext . ' ' . $langs->trans("TTC");
		  $outval.= price($objp->price_ttc, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("TTC");
		  }
		  $outprice_ht = price($objp->price);
		  $outprice_ttc = price($objp->price_ttc);
		  $outpricebasetype = $objp->price_base_type;
		  $outtva_tx = $objp->tva_tx;
		  }

		  if (!empty($conf->stock->enabled) && isset($objp->stock) && $objp->fk_product_type == 0) {
		  $opt.= ' - ' . $langs->trans("Stock") . ':' . $objp->stock;
		  $outval.=' - ' . $langs->transnoentities("Stock") . ':' . $objp->stock;
		  }

		  if ($objp->duration) {
		  $duration_value = substr($objp->duration, 0, dol_strlen($objp->duration) - 1);
		  $duration_unit = substr($objp->duration, -1);
		  if ($duration_value > 1) {
		  $dur = array("h" => $langs->trans("Hours"), "d" => $langs->trans("Days"), "w" => $langs->trans("Weeks"), "m" => $langs->trans("Months"), "y" => $langs->trans("Years"));
		  } else {
		  $dur = array("h" => $langs->trans("Hour"), "d" => $langs->trans("Day"), "w" => $langs->trans("Week"), "m" => $langs->trans("Month"), "y" => $langs->trans("Year"));
		  }
		  $opt.= ' - ' . $duration_value . ' ' . $langs->trans($dur[$duration_unit]);
		  $outval.=' - ' . $duration_value . ' ' . $langs->transnoentities($dur[$duration_unit]);
		  }

		  $opt.= "</option>\n";

		  // Add new entry
		  // "key" value of json key array is used by jQuery automatically as selected value
		  // "label" value of json key array is used by jQuery automatically as text for combo box
		  $outselect.=$opt;
		  array_push($outjson, array('key' => $outkey, 'value' => $outref, 'label' => $outval, 'label2' => $outlabel, 'desc' => $outdesc, 'type' => $outtype, 'price_ht' => $outprice_ht, 'price_ttc' => $outprice_ttc, 'pricebasetype' => $outpricebasetype, 'tva_tx' => $outtva_tx));

		  $i++;
		  }

		  $outselect.='</select>';

		  $this->db->free($result);

		  if (empty($disableout))
		  print $outselect;
		  return $outjson;
		  }
		  else {
		  dol_print_error($db);
		  }
		 */
	}

	/**
	 * 	Return list of products for a customer
	 *
	 * 	@param      int		$selected       Preselected product
	 * 	@param      string	$htmlname       Name of select html
	 *  @param		string	$filtertype     Filter on product type (''=nofilter, 0=product, 1=service)
	 * 	@param      int		$limit          Limite sur le nombre de lignes retournees
	 * 	@param      int		$price_level    Level of price to show
	 * 	@param      string	$filterkey      Filter on product
	 * 	@param		int		$status         -1=Return all products, 0=Products not on sell, 1=Products on sell
	 *  @param      int		$finished       Filter on finished field: 2=No filter
	 *  @param      int		$disableout     Disable print output
	 *  @return     array    				Array of keys for json
	 */
	function select_products($selected = '', $htmlname = 'productid', $filtertype = '', $limit = 20, $price_level = 0, $filterkey = '', $status = 1, $finished = 2, $disableout = 0) {
		global $langs, $conf, $user, $db;

		require_once(DOL_DOCUMENT_ROOT . '/product/class/product.class.php');
		$object = new Product($db);
		$result = $object->getView('list', array('startkey' => $filterkey, 'endkey' => $filterkey . 'Z'));

//        $sql = "SELECT ";
//        $sql.= " p.rowid, p.label, p.ref, p.description, p.fk_product_type, p.price, p.price_ttc, p.price_base_type, p.tva_tx, p.duration, p.stock";
//        // Multilang : we add translation
//        if (!empty($conf->global->MAIN_MULTILANGS)) {
//            $sql.= ", pl.label as label_translated";
//        }
//        $sql.= " FROM " . MAIN_DB_PREFIX . "product as p";
//        // Multilang : we add translation
//        if (!empty($conf->global->MAIN_MULTILANGS)) {
//            $sql.= " LEFT JOIN " . MAIN_DB_PREFIX . "product_lang as pl ON pl.fk_product = p.rowid AND pl.lang='" . $langs->getDefaultLang() . "'";
//        }
//        $sql.= ' WHERE p.entity IN (' . getEntity('product', 1) . ')';
//        if ($finished == 0) {
//            $sql.= " AND p.finished = " . $finished;
//        } elseif ($finished == 1) {
//            $sql.= " AND p.finished = " . $finished;
//            if ($status >= 0)
//                $sql.= " AND p.tosell = " . $status;
//        }
//        elseif ($status >= 0) {
//            $sql.= " AND p.tosell = " . $status;
//        }
//        if (strval($filtertype) != '')
//            $sql.=" AND p.fk_product_type=" . $filtertype;
//        // Add criteria on ref/label
//        if ($filterkey && $filterkey != '') {
//            if (!empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE)) {   // Can use index
//                $sql.=" AND (p.ref LIKE '" . $filterkey . "%' OR p.label LIKE '" . $filterkey . "%'";
//                if (!empty($conf->global->MAIN_MULTILANGS))
//                    $sql.=" OR pl.label LIKE '" . $filterkey . "%'";
//                $sql.=")";
//            }
//            else {
//                $sql.=" AND (p.ref LIKE '%" . $filterkey . "%' OR p.label LIKE '%" . $filterkey . "%'";
//                if (!empty($conf->global->MAIN_MULTILANGS))
//                    $sql.=" OR pl.label LIKE '%" . $filterkey . "%'";
//                $sql.=")";
//            }
//
//            if (!empty($conf->barcode->enabled)) {
//                $sql .= " OR p.barcode LIKE '" . $filterkey . "'";
//            }
//        }
//        $sql.= $db->order("p.ref");
//        $sql.= $db->plimit($limit);
//
//        // Build output string
		$outselect = '';
		$outjson = array();
//
//        dol_syslog(get_class($this) . "::select_produits_do search product sql=" . $sql, LOG_DEBUG);
//        $result = $this->db->query($sql);
		if (!empty($result->rows)) {
			$num = count($result->rows);

			$outselect.='<select class="flat" name="' . $htmlname . '" id="' . $htmlname . '">';
			$outselect.='<option value="0" selected="selected">&nbsp;</option>';

			$i = 0;
			while ($num && $i < $num) {
				$outkey = '';
				$outval = '';
				$outref = '';
				$outlabel = '';
				$outdesc = '';
				$outtype = '';
				$outprice_ht = '';
				$outprice_ttc = '';
				$outpricebasetype = '';
				$outtva_tx = '';

//                $objp = $this->db->fetch_object($result);
				$objp = new Product($db);
				$objp->fetch($result->rows[$i]->value->_id);

				$label = $objp->label;
				if (!empty($objp->label_translated))
					$label = $objp->label_translated;
				if ($filterkey && $filterkey != '')
					$label = preg_replace('/(' . preg_quote($filterkey) . ')/i', '<strong>$1</strong>', $label, 1);

				$outkey = $objp->id;
				$outref = $objp->name;
				$outlabel = $objp->label;
				$outdesc = isset($objp->description) ? $objp->description : '';
				$outtype = $objp->type;

				$opt = '<option value="' . $objp->id . '"';
				$opt.= ($objp->id == $selected) ? ' selected="selected"' : '';
				if (!empty($conf->stock->enabled) && $objp->type == 'PRODUCT' && isset($objp->stock)) {
					if ($objp->stock > 0) {
						$opt.= ' style="background-color:#32CD32; color:#F5F5F5;"';
					} else if ($objp->stock <= 0) {
						$opt.= ' style="background-color:#FF0000; color:#F5F5F5;"';
					}
				}
				$opt.= '>';
				$opt.= $objp->name . ' - ' . dol_trunc($label, 32) . ' - ';

				$objRef = $objp->name;
				if ($filterkey && $filterkey != '')
					$objRef = preg_replace('/(' . preg_quote($filterkey) . ')/i', '<strong>$1</strong>', $objRef, 1);
				$outval.=$objRef . ' - ' . dol_trunc($label, 32) . ' - ';

				$found = 0;
				$currencytext = $langs->trans("Currency" . $conf->currency);
				$currencytextnoent = $langs->transnoentities("Currency" . $conf->currency);
				if (dol_strlen($currencytext) > 10)
					$currencytext = $conf->currency; // If text is too long, we use the short code
				if (dol_strlen($currencytextnoent) > 10)
					$currencytextnoent = $conf->currency;   // If text is too long, we use the short code















					
// Multiprice
//                if ($price_level >= 1) {  // If we need a particular price level (from 1 to 6)
//                    $sql = "SELECT price, price_ttc, price_base_type, tva_tx";
//                    $sql.= " FROM " . MAIN_DB_PREFIX . "product_price";
//                    $sql.= " WHERE fk_product='" . $objp->rowid . "'";
//                    $sql.= " AND price_level=" . $price_level;
//                    $sql.= " ORDER BY date_price";
//                    $sql.= " DESC LIMIT 1";
//
//                    dol_syslog(get_class($this) . "::select_produits_do search price for level '.$price_level.' sql=" . $sql);
//                    $result2 = $this->db->query($sql);
//                    if ($result2) {
//                        $objp2 = $this->db->fetch_object($result2);
//                        if ($objp2) {
//                            $found = 1;
//                            if ($objp2->price_base_type == 'HT') {
//                                $opt.= price($objp2->price, 1) . ' ' . $currencytext . ' ' . $langs->trans("HT");
//                                $outval.= price($objp2->price, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("HT");
//                            } else {
//                                $opt.= price($objp2->price_ttc, 1) . ' ' . $currencytext . ' ' . $langs->trans("TTC");
//                                $outval.= price($objp2->price_ttc, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("TTC");
//                            }
//                            $outprice_ht = price($objp2->price);
//                            $outprice_ttc = price($objp2->price_ttc);
//                            $outpricebasetype = $objp2->price_base_type;
//                            $outtva_tx = $objp2->tva_tx;
//                        }
//                    } else {
//                        dol_print_error($this->db);
//                    }
//                }
				// If level no defined or multiprice not found, we used the default price
				if (!$found) {
					if ($objp->price->price_base_type == 'HT') {
						$opt.= price($objp->price->price, 1) . ' ' . $currencytext . ' ' . $langs->trans("HT");
						$outval.= price($objp->price->price, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("HT");
					} else {
						$opt.= price($objp->price->price_ttc, 1) . ' ' . $currencytext . ' ' . $langs->trans("TTC");
						$outval.= price($objp->price->price_ttc, 1) . ' ' . $currencytextnoent . ' ' . $langs->transnoentities("TTC");
					}
					$outprice_ht = price($objp->price->price);
					$outprice_ttc = price($objp->price->price_ttc);
					$outpricebasetype = $objp->price->price_base_type;
					$outtva_tx = $objp->price->tva_tx;
				}

				if (!empty($conf->stock->enabled) && isset($objp->stock) && $objp->type == "PRODUCT") {
					$opt.= ' - ' . $langs->trans("Stock") . ':' . $objp->stock;
					$outval.=' - ' . $langs->transnoentities("Stock") . ':' . $objp->stock;
				}

				if ($objp->duration) {
					$duration_value = substr($objp->duration, 0, dol_strlen($objp->duration) - 1);
					$duration_unit = substr($objp->duration, -1);
					if ($duration_value > 1) {
						$dur = array("h" => $langs->trans("Hours"), "d" => $langs->trans("Days"), "w" => $langs->trans("Weeks"), "m" => $langs->trans("Months"), "y" => $langs->trans("Years"));
					} else {
						$dur = array("h" => $langs->trans("Hour"), "d" => $langs->trans("Day"), "w" => $langs->trans("Week"), "m" => $langs->trans("Month"), "y" => $langs->trans("Year"));
					}
					$opt.= ' - ' . $duration_value . ' ' . $langs->trans($dur[$duration_unit]);
					$outval.=' - ' . $duration_value . ' ' . $langs->transnoentities($dur[$duration_unit]);
				}

				$opt.= "</option>\n";

				// Add new entry
				// "key" value of json key array is used by jQuery automatically as selected value
				// "label" value of json key array is used by jQuery automatically as text for combo box
				$outselect.=$opt;
				array_push($outjson, array('key' => $outkey, 'value' => $outref, 'label' => $outval, 'label2' => $outlabel, 'desc' => $outdesc, 'type' => $outtype, 'price_ht' => $outprice_ht, 'price_ttc' => $outprice_ttc, 'pricebasetype' => $outpricebasetype, 'tva_tx' => $outtva_tx));

				$i++;
			}

			$outselect.='</select>';

//            $this->db->free($result);

			if (empty($disableout))
				print $outselect;
			return $outjson;
		}
	}

	/**
	 * 	Return list of products for customer (in Ajax if Ajax activated or go to select_produits_fournisseurs_do)
	 *
	 * 	@param	int		$socid			Id third party
	 * 	@param  string	$selected       Preselected product
	 * 	@param  string	$htmlname       Name of HTML Select
	 *  @param	string	$filtertype     Filter on product type (''=nofilter, 0=product, 1=service)
	 * 	@param  string	$filtre			For a SQL filter
	 * 	@param	array	$ajaxoptions	Options for ajax_autocompleter
	 * 	@return	void
	 */
	function select_produits_fournisseurs($socid, $selected = '', $htmlname = 'productid', $filtertype = '', $filtre = '', $ajaxoptions = array()) {
		global $langs, $conf;
		global $price_level, $status, $finished;

		if (!empty($conf->use_javascript_ajax) && !empty($conf->global->PRODUIT_USE_SEARCH_TO_SELECT)) {
			// mode=2 means suppliers products
			$urloption = ($socid > 0 ? 'socid=' . $socid . '&' : '') . 'htmlname=' . $htmlname . '&outjson=1&price_level=' . $price_level . '&type=' . $filtertype . '&mode=2&status=' . $status . '&finished=' . $finished;
			print ajax_autocompleter('', $htmlname, DOL_URL_ROOT . '/product/ajax/products.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 0, $ajaxoptions);
			print $langs->trans("RefOrLabel") . ' : <input type="text" size="16" name="search_' . $htmlname . '" id="search_' . $htmlname . '">';
			print '<br>';
		} else {
			$this->select_produits_fournisseurs_do($socid, $selected, $htmlname, $filtertype, $filtre, '', -1, 0);
		}
	}

	/**
	 * 	Return list of suppliers products
	 *
	 * 	@param	int		$socid   		Id societe fournisseur (0 pour aucun filtre)
	 * 	@param  int		$selected       Produit pre-selectionne
	 * 	@param  string	$htmlname       Nom de la zone select
	 *  @param	string	$filtertype     Filter on product type (''=nofilter, 0=product, 1=service)
	 * 	@param  string	$filtre         Pour filtre sql
	 * 	@param  string	$filterkey      Filtre des produits
	 *  @param  int		$statut         -1=Return all products, 0=Products not on sell, 1=Products on sell
	 *  @param  int		$disableout     Disable print output
	 *  @return array           		Array of keys for json
	 */
	function select_produits_fournisseurs_do($socid, $selected = '', $htmlname = 'productid', $filtertype = '', $filtre = '', $filterkey = '', $statut = -1, $disableout = 0) {
		global $langs, $conf;

		$langs->load('stocks');

		$sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration,";
		$sql.= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.remise_percent, pfp.remise, pfp.unitprice,";
		$sql.= " s.nom";
		$sql.= " FROM " . MAIN_DB_PREFIX . "product as p";
		$sql.= " LEFT JOIN " . MAIN_DB_PREFIX . "product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
		if ($socid)
			$sql.= " AND pfp.fk_soc = " . $socid;
		$sql.= " LEFT JOIN " . MAIN_DB_PREFIX . "societe as s ON pfp.fk_soc = s.rowid";
		$sql.= " WHERE p.entity IN (" . getEntity('product', 1) . ")";
		$sql.= " AND p.tobuy = 1";
		if (strval($filtertype) != '')
			$sql.=" AND p.fk_product_type=" . $filtertype;
		if (!empty($filtre))
			$sql.=" " . $filtre;
		// Add criteria on ref/label
		if ($filterkey && $filterkey != '') {
			if (!empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE)) {
				$sql.=" AND (pfp.ref_fourn LIKE '" . $filterkey . "%' OR p.ref LIKE '" . $filterkey . "%' OR p.label LIKE '" . $filterkey . "%')";
			} else {
				$sql.=" AND (pfp.ref_fourn LIKE '%" . $filterkey . "%' OR p.ref LIKE '%" . $filterkey . "%' OR p.label LIKE '%" . $filterkey . "%')";
			}

			if (!empty($conf->barcode->enabled)) {
				$sql .= " OR p.barcode LIKE '" . $filterkey . "'";
			}
		}
		$sql.= " ORDER BY pfp.ref_fourn DESC, pfp.quantity ASC";

		// Build output string
		$outselect = '';
		$outjson = array();

		dol_syslog(get_class($this) . "::select_produits_fournisseurs_do sql=" . $sql, LOG_DEBUG);
		$result = $this->db->query($sql);
		if ($result) {

			$num = $this->db->num_rows($result);

			$outselect.='<select class="flat" id="select' . $htmlname . '" name="' . $htmlname . '">';
			if (!$selected)
				$outselect.='<option value="0" selected="selected">&nbsp;</option>';
			else
				$outselect.='<option value="0">&nbsp;</option>';

			$i = 0;
			while ($i < $num) {
				$objp = $this->db->fetch_object($result);

				$outkey = $objp->idprodfournprice;
				$outref = $objp->ref;
				$outval = '';
				$outqty = 1;
				$outdiscount = 0;

				$opt = '<option value="' . $objp->idprodfournprice . '"';
				if ($selected && $selected == $objp->idprodfournprice)
					$opt.= ' selected="selected"';
				if (empty($objp->idprodfournprice))
					$opt.=' disabled="disabled"';
				$opt.= '>';

				$objRef = $objp->ref;
				if ($filterkey && $filterkey != '')
					$objRef = preg_replace('/(' . preg_quote($filterkey) . ')/i', '<strong>$1</strong>', $objRef, 1);
				$objRefFourn = $objp->ref_fourn;
				if ($filterkey && $filterkey != '')
					$objRefFourn = preg_replace('/(' . preg_quote($filterkey) . ')/i', '<strong>$1</strong>', $objRefFourn, 1);
				$label = $objp->label;
				if ($filterkey && $filterkey != '')
					$label = preg_replace('/(' . preg_quote($filterkey) . ')/i', '<strong>$1</strong>', $label, 1);

				$opt.=$objp->ref . ' (' . $objp->ref_fourn . ') - ';
				$outval.=$objRef . ' (' . $objRefFourn . ') - ';
				$opt.=dol_trunc($objp->label, 18) . ' - ';
				$outval.=dol_trunc($label, 18) . ' - ';

				if (!empty($objp->idprodfournprice)) {
					$currencytext = $langs->trans("Currency" . $conf->currency);
					$currencytextnoent = $langs->transnoentities("Currency" . $conf->currency);
					if (dol_strlen($currencytext) > 10)
						$currencytext = $conf->currency;   // If text is too long, we use the short code
					if (dol_strlen($currencytextnoent) > 10)
						$currencytextnoent = $conf->currency;   // If text is too long, we use the short code

					$opt.= price($objp->fprice) . ' ' . $currencytext . "/" . $objp->quantity;
					$outval.= price($objp->fprice) . ' ' . $currencytextnoent . "/" . $objp->quantity;
					$outqty = $objp->quantity;
					$outdiscount = $objp->remise_percent;
					if ($objp->quantity == 1) {
						$opt.= strtolower($langs->trans("Unit"));
						$outval.=strtolower($langs->transnoentities("Unit"));
					} else {
						$opt.= strtolower($langs->trans("Units"));
						$outval.=strtolower($langs->transnoentities("Units"));
					}
					if ($objp->quantity >= 1) {
						$opt.=" (" . price($objp->unitprice) . ' ' . $currencytext . "/" . strtolower($langs->trans("Unit")) . ")";
						$outval.=" (" . price($objp->unitprice) . ' ' . $currencytextnoent . "/" . strtolower($langs->transnoentities("Unit")) . ")";
					}
					if ($objp->remise_percent >= 1) {
						$opt.=" - " . $langs->trans("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
						$outval.=" - " . $langs->transnoentities("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
					}
					if ($objp->duration) {
						$opt .= " - " . $objp->duration;
						$outval.=" - " . $objp->duration;
					}
					if (!$socid) {
						$opt .= " - " . dol_trunc($objp->nom, 8);
						$outval.=" - " . dol_trunc($objp->nom, 8);
					}
				} else {
					$opt.= $langs->trans("NoPriceDefinedForThisSupplier");
					$outval.=$langs->transnoentities("NoPriceDefinedForThisSupplier");
				}
				$opt .= "</option>\n";

				// Add new entry
				// "key" value of json key array is used by jQuery automatically as selected value
				// "label" value of json key array is used by jQuery automatically as text for combo box
				$outselect.=$opt;
				array_push($outjson, array('key' => $outkey, 'value' => $outref, 'label' => $outval, 'qty' => $outqty, 'discount' => $outdiscount, 'disabled' => (empty($objp->idprodfournprice) ? true : false)));

				$i++;
			}
			$outselect.='</select>';

			$this->db->free($result);

			if (empty($disableout))
				print $outselect;
			return $outjson;
		}
		else {
			dol_print_error($this->db);
		}
	}

	/**
	 * 	Return list of suppliers prices for a product
	 *
	 *  @param		int		$productid       Id of product
	 *  @param      string	$htmlname        Name of HTML field
	 *  @return		void
	 */
	function select_product_fourn_price($productid, $htmlname = 'productfournpriceid') {
		global $langs, $conf;

		$langs->load('stocks');

		$sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration,";
		$sql.= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.unitprice,";
		$sql.= " s.nom";
		$sql.= " FROM " . MAIN_DB_PREFIX . "product as p";
		$sql.= " LEFT JOIN " . MAIN_DB_PREFIX . "product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
		$sql.= " LEFT JOIN " . MAIN_DB_PREFIX . "societe as s ON pfp.fk_soc = s.rowid";
		$sql.= " WHERE p.entity IN (" . getEntity('product', 1) . ")";
		$sql.= " AND p.tobuy = 1";
		$sql.= " AND s.fournisseur = 1";
		$sql.= " AND p.rowid = " . $productid;
		$sql.= " ORDER BY s.nom, pfp.ref_fourn DESC";

		dol_syslog(get_class($this) . "::select_product_fourn_price sql=" . $sql, LOG_DEBUG);
		$result = $this->db->query($sql);

		if ($result) {
			$num = $this->db->num_rows($result);

			$form = '<select class="flat" name="' . $htmlname . '">';

			if (!$num) {
				$form.= '<option value="0">-- ' . $langs->trans("NoSupplierPriceDefinedForThisProduct") . ' --</option>';
			} else {
				$form.= '<option value="0">&nbsp;</option>';

				$i = 0;
				while ($i < $num) {
					$objp = $this->db->fetch_object($result);

					$opt = '<option value="' . $objp->idprodfournprice . '"';
					$opt.= '>' . $objp->nom . ' - ' . $objp->ref_fourn . ' - ';

					if ($objp->quantity == 1) {
						$opt.= price($objp->fprice);
						$opt.= $langs->trans("Currency" . $conf->currency) . "/";
					}

					$opt.= $objp->quantity . ' ';

					if ($objp->quantity == 1) {
						$opt.= strtolower($langs->trans("Unit"));
					} else {
						$opt.= strtolower($langs->trans("Units"));
					}
					if ($objp->quantity > 1) {
						$opt.=" - ";
						$opt.= price($objp->unitprice) . $langs->trans("Currency" . $conf->currency) . "/" . strtolower($langs->trans("Unit"));
					}
					if ($objp->duration)
						$opt .= " - " . $objp->duration;
					$opt .= "</option>\n";

					$form.= $opt;
					$i++;
				}
				$form.= '</select>';

				$this->db->free($result);
			}
			return $form;
		}
		else {
			dol_print_error($this->db);
		}
	}

	/**
	 *    Return list of delivery address
	 *
	 *    @param    string	$selected          	Id contact pre-selectionn
	 *    @param    int		$socid				Id of company
	 *    @param    string	$htmlname          	Name of HTML field
	 *    @param    int		$showempty         	Add an empty field
	 *    @return	void
	 */
	function select_address($selected, $socid, $htmlname = 'address_id', $showempty = 0) {
		// On recherche les utilisateurs
		$sql = "SELECT a.rowid, a.label";
		$sql .= " FROM " . MAIN_DB_PREFIX . "societe_address as a";
		$sql .= " WHERE a.fk_soc = " . $socid;
		$sql .= " ORDER BY a.label ASC";

		dol_syslog(get_class($this) . "::select_address sql=" . $sql);
		$resql = $this->db->query($sql);
		if ($resql) {
			print '<select class="flat" name="' . $htmlname . '">';
			if ($showempty)
				print '<option value="0">&nbsp;</option>';
			$num = $this->db->num_rows($resql);
			$i = 0;
			if ($num) {
				while ($i < $num) {
					$obj = $this->db->fetch_object($resql);

					if ($selected && $selected == $obj->rowid) {
						print '<option value="' . $obj->rowid . '" selected="selected">' . $obj->label . '</option>';
					} else {
						print '<option value="' . $obj->rowid . '">' . $obj->label . '</option>';
					}
					$i++;
				}
			}
			print '</select>';
			return $num;
		} else {
			dol_print_error($this->db);
		}
	}

	/**
	 *      Charge dans cache la liste des délais de livraison possibles
	 *
	 *      @return     int             Nb lignes chargees, 0 si deja chargees, <0 si ko
	 */
	function load_cache_availability() {
		global $langs;

		if (count($this->cache_availability))
			return 0; // Cache deja charge

		$sql = "SELECT rowid, code, label";
		$sql.= " FROM " . MAIN_DB_PREFIX . 'c_availability';
		$sql.= " WHERE active=1";
		$sql.= " ORDER BY rowid";
		dol_syslog(get_class($this) . '::load_cache_availability sql=' . $sql, LOG_DEBUG);
		$resql = $this->db->query($sql);
		if ($resql) {
			$num = $this->db->num_rows($resql);
			$i = 0;
			while ($i < $num) {
				$obj = $this->db->fetch_object($resql);

				// Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
				$label = ($langs->trans("AvailabilityType" . $obj->code) != ("AvailabilityType" . $obj->code) ? $langs->trans("AvailabilityType" . $obj->code) : ($obj->label != '-' ? $obj->label : ''));
				$this->cache_availability[$obj->rowid]['code'] = $obj->code;
				$this->cache_availability[$obj->rowid]['label'] = $label;
				$i++;
			}
			return 1;
		} else {
			dol_print_error($this->db);
			return -1;
		}
	}

	/**
	 *      Retourne la liste des types de delais de livraison possibles
	 *
	 *      @param	int		$selected        Id du type de delais pre-selectionne
	 *      @param  string	$htmlname        Nom de la zone select
	 *      @param  string	$filtertype      To add a filter
	 * 		@param	int		$addempty		Add empty entry
	 * 		@return	void
	 */
	function select_availability($selected = '', $htmlname = 'availid', $filtertype = '', $addempty = 0) {
		global $langs, $user;

		$this->load_cache_availability();

		print '<select class="flat" name="' . $htmlname . '">';
		if ($addempty)
			print '<option value="0">&nbsp;</option>';
		foreach ($this->cache_availability as $id => $arrayavailability) {
			if ($selected == $id) {
				print '<option value="' . $id . '" selected="selected">';
			} else {
				print '<option value="' . $id . '">';
			}
			print $arrayavailability['label'];
			print '</option>';
		}
		print '</select>';
		if ($user->admin)
			print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"), 1);
	}

	/**
	 *      Load into cache cache_demand_reason, array of input reasons
	 *
	 *      @return     int             Nb of lines loaded, 0 if already loaded, <0 if ko
	 */
	function load_cache_demand_reason() {
		global $langs;

		if (count($this->cache_demand_reason))
			return 0; // Cache already loaded

		$sql = "SELECT rowid, code, label";
		$sql.= " FROM " . MAIN_DB_PREFIX . 'c_input_reason';
		$sql.= " WHERE active=1";
		$sql.= " ORDER BY rowid";
		dol_syslog(get_class($this) . "::load_cache_demand_reason sql=" . $sql, LOG_DEBUG);
		$resql = $this->db->query($sql);
		if ($resql) {
			$num = $this->db->num_rows($resql);
			$i = 0;
			$tmparray = array();
			while ($i < $num) {
				$obj = $this->db->fetch_object($resql);

				// Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
				$label = ($langs->trans("DemandReasonType" . $obj->code) != ("DemandReasonType" . $obj->code) ? $langs->trans("DemandReasonType" . $obj->code) : ($obj->label != '-' ? $obj->label : ''));
				$tmparray[$obj->rowid]['id'] = $obj->rowid;
				$tmparray[$obj->rowid]['code'] = $obj->code;
				$tmparray[$obj->rowid]['label'] = $label;
				$i++;
			}
			$this->cache_demand_reason = dol_sort_array($tmparray, 'label', 'asc');

			unset($tmparray);
			return 1;
		} else {
			dol_print_error($this->db);
			return -1;
		}
	}

	/**
	 *      Return list of events that triggered an object creation
	 *
	 *      @param	int		$selected        Id du type d'origine pre-selectionne
	 *      @param  string	$htmlname        Nom de la zone select
	 *      @param  string	$exclude         To exclude a code value (Example: SRC_PROP)
	 * 		@param	int		$addempty		Add an empty entry
	 * 		@return	void
	 */
	function select_demand_reason($selected = '', $htmlname = 'demandreasonid', $exclude = '', $addempty = 0) {
		global $langs, $user;

		$this->load_cache_demand_reason();

		print '<select class="flat" name="' . $htmlname . '">';
		if ($addempty)
			print '<option value="0"' . (empty($selected) ? ' selected="selected"' : '') . '>&nbsp;</option>';
		foreach ($this->cache_demand_reason as $id => $arraydemandreason) {
			if ($arraydemandreason['code'] == $exclude)
				continue;

			if ($selected == $arraydemandreason['id']) {
				print '<option value="' . $arraydemandreason['id'] . '" selected="selected">';
			} else {
				print '<option value="' . $arraydemandreason['id'] . '">';
			}
			print $arraydemandreason['label'];
			print '</option>';
		}
		print '</select>';
		if ($user->admin)
			print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"), 1);
	}

	/**
	 *      Selection HT or TTC
	 *
	 *      @param	string	$selected        Id pre-selectionne
	 *      @param  string	$htmlname        Nom de la zone select
	 * 		@return	void
	 */
	function select_PriceBaseType($selected = '', $htmlname = 'price_base_type') {
		print $this->load_PriceBaseType($selected, $htmlname);
	}

	/**
	 *      Selection HT or TTC
	 *
	 *      @param	string	$selected        Id pre-selectionne
	 *      @param  string	$htmlname        Nom de la zone select
	 * 		@return	void
	 */
	function load_PriceBaseType($selected = '', $htmlname = 'price_base_type') {
		global $langs;

		$return = '';

		$return.= '<select class="flat" name="' . $htmlname . '">';
		$options = array(
			'HT' => $langs->trans("HT"),
			'TTC' => $langs->trans("TTC")
		);
		foreach ($options as $id => $value) {
			if ($selected == $id) {
				$return.= '<option value="' . $id . '" selected="selected">' . $value;
			} else {
				$return.= '<option value="' . $id . '">' . $value;
			}
			$return.= '</option>';
		}
		$return.= '</select>';

		return $return;
	}

	/**
	 *  Return a HTML select list of bank accounts
	 *
	 *  @param	string	$selected          Id account pre-selected
	 *  @param  string	$htmlname          Name of select zone
	 *  @param  int		$statut            Status of searched accounts (0=open, 1=closed)
	 *  @param  string	$filtre            To filter list
	 *  @param  int		$useempty          1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
	 *  @param  string	$moreattrib        To add more attribute on select
	 * 	@return	void
	 */
	function select_comptes($selected = '', $htmlname = 'accountid', $statut = 0, $filtre = '', $useempty = 0, $moreattrib = '') {
		global $langs, $conf;

		$langs->load("admin");

		$sql = "SELECT rowid, label, bank";
		$sql.= " FROM " . MAIN_DB_PREFIX . "bank_account";
		$sql.= " WHERE clos = '" . $statut . "'";
		$sql.= " AND entity = " . $conf->entity;
		if ($filtre)
			$sql.=" AND " . $filtre;
		$sql.= " ORDER BY label";

		dol_syslog(get_class($this) . "::select_comptes sql=" . $sql);
		$result = $this->db->query($sql);
		if ($result) {
			$num = $this->db->num_rows($result);
			$i = 0;
			if ($num) {
				print '<select id="select' . $htmlname . '" class="flat selectbankaccount" name="' . $htmlname . '"' . ($moreattrib ? ' ' . $moreattrib : '') . '>';
				if ($useempty == 1 || ($useempty == 2 && $num > 1)) {
					print '<option value="-1">&nbsp;</option>';
				}

				while ($i < $num) {
					$obj = $this->db->fetch_object($result);
					if ($selected == $obj->rowid) {
						print '<option value="' . $obj->rowid . '" selected="selected">';
					} else {
						print '<option value="' . $obj->rowid . '">';
					}
					print $obj->label;
					print '</option>';
					$i++;
				}
				print "</select>";
			} else {
				print $langs->trans("NoActiveBankAccountDefined");
			}
		} else {
			dol_print_error($this->db);
		}
	}

	/**
	 *    Return list of categories having choosed type
	 *
	 *    @param	int		$type				Type de categories (0=product, 1=supplier, 2=customer, 3=member)
	 *    @param    string	$selected    		Id of category preselected
	 *    @param    string	$htmlname			HTML field name
	 *    @param    int		$maxlength      	Maximum length for labels
	 *    @param    int		$excludeafterid 	Exclude all categories after this leaf in category tree.
	 *    @return	void
	 */
	function select_all_categories($type, $selected = '', $htmlname = "parent", $maxlength = 64, $excludeafterid = 0) {
		global $langs;
		$langs->load("categories");

		$cat = new Categorie($this->db);
		$cate_arbo = $cat->get_full_arbo($type, $excludeafterid);

		$output = '<select class="flat" name="' . $htmlname . '">';
		if (is_array($cate_arbo)) {
			if (!count($cate_arbo))
				$output.= '<option value="-1" disabled="disabled">' . $langs->trans("NoCategoriesDefined") . '</option>';
			else {
				$output.= '<option value="-1">&nbsp;</option>';
				foreach ($cate_arbo as $key => $value) {
					if ($cate_arbo[$key]['id'] == $selected) {
						$add = 'selected="selected" ';
					} else {
						$add = '';
					}
					$output.= '<option ' . $add . 'value="' . $cate_arbo[$key]['id'] . '">' . dol_trunc($cate_arbo[$key]['fulllabel'], $maxlength, 'middle') . '</option>';
				}
			}
		}
		$output.= '</select>';
		$output.= "\n";
		return $output;
	}

	/**
	 *     Show a confirmation HTML form or AJAX popup
	 *
	 *     @param	string		$page        	   	Url of page to call if confirmation is OK
	 *     @param	string		$title       	   	Title
	 *     @param	string		$question    	   	Question
	 *     @param 	string		$action      	   	Action
	 * 	   @param	array		$formquestion	   	An array with forms complementary inputs
	 * 	   @param	string		$selectedchoice		"" or "no" or "yes"
	 * 	   @param	int			$useajax		   	0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No
	 *     @param	int			$height          	Force height of box
	 *     @param	int			$width				Force width of box
	 *     @return 	void
	 */
	function form_confirm($page, $title, $question, $action, $formquestion = '', $selectedchoice = "", $useajax = 0, $height = 170, $width = 500) {
		print $this->formconfirm($page, $title, $question, $action, $formquestion, $selectedchoice, $useajax, $height, $width);
	}

	/**
	 *     Show a confirmation HTML form or AJAX popup
	 *
	 *     @param  	string		$page        	   	Url of page to call if confirmation is OK
	 *     @param	string		$title       	   	Title
	 *     @param	string		$question    	   	Question
	 *     @param 	string		$action      	   	Action
	 * 	   @param  	array		$formquestion	   	An array with complementary inputs to add into forms: array(array('label'=> ,'type'=> , ))
	 * 	   @param  	string		$selectedchoice  	"" or "no" or "yes"
	 * 	   @param  	int			$useajax		   	0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No, 'xxx'=preoutput confirm box with div id=dialog-confirm-xxx
	 *     @param  	int			$height          	Force height of box
	 *     @param	int			$width				Force width of bow
	 *     @return 	string      	    			HTML ajax code if a confirm ajax popup is required, Pure HTML code if it's an html form
	 */
	function formconfirm($page, $title, $question, $action, $formquestion = '', $selectedchoice = "", $useajax = 0, $height = 170, $width = 500) {
		global $langs, $conf;
		global $useglobalvars;

		$more = '';
		$formconfirm = '';
		$inputok = array();
		$inputko = array();

		if (is_array($formquestion) && !empty($formquestion)) {
			$more.='<table class="paddingrightonly" width="100%">' . "\n";
			$more.='<tr><td colspan="3" valign="top">' . (!empty($formquestion['text']) ? $formquestion['text'] : '') . '</td></tr>' . "\n";
			foreach ($formquestion as $key => $input) {
				if (is_array($input) && !empty($input)) {
					$size = (!empty($input['size']) ? ' size="' . $input['size'] . '"' : '');

					if ($input['type'] == 'text') {
						$more.='<tr><td valign="top">' . $input['label'] . '</td><td valign="top" colspan="2" align="left"><input type="text" class="flat" id="' . $input['name'] . '" name="' . $input['name'] . '"' . $size . ' value="' . $input['value'] . '" /></td></tr>' . "\n";
					} else if ($input['type'] == 'password') {
						$more.='<tr><td valign="top">' . $input['label'] . '</td><td valign="top" colspan="2" align="left"><input type="password" class="flat" id="' . $input['name'] . '" name="' . $input['name'] . '"' . $size . ' value="' . $input['value'] . '" /></td></tr>' . "\n";
					} else if ($input['type'] == 'select') {
						$more.='<tr><td valign="top" style="padding: 4px !important;">';
						if (!empty($input['label']))
							$more.=$input['label'] . '</td><td valign="top" colspan="2" align="left" style="padding: 4px !important;">';
						$more.=$this->selectarray($input['name'], $input['values'], $input['default'], 1);
						$more.='</td></tr>' . "\n";
					}
					else if ($input['type'] == 'checkbox') {
						$more.='<tr>';
						$more.='<td valign="top">' . $input['label'] . ' </td><td valign="top" align="left">';
						$more.='<input type="checkbox" class="flat" id="' . $input['name'] . '" name="' . $input['name'] . '"';
						if (!is_bool($input['value']) && $input['value'] != 'false')
							$more.=' checked="checked"';
						if (is_bool($input['value']) && $input['value'])
							$more.=' checked="checked"';
						if (isset($input['disabled']))
							$more.=' disabled="disabled"';
						$more.=' /></td>';
						$more.='<td valign="top" align="left">&nbsp;</td>';
						$more.='</tr>' . "\n";
					}
					else if ($input['type'] == 'radio') {
						$i = 0;
						foreach ($input['values'] as $selkey => $selval) {
							$more.='<tr>';
							if ($i == 0)
								$more.='<td valign="top">' . $input['label'] . '</td>';
							else
								$more.='<td>&nbsp;</td>';
							$more.='<td valign="top" width="20"><input type="radio" class="flat" id="' . $input['name'] . '" name="' . $input['name'] . '" value="' . $selkey . '"';
							if ($input['disabled'])
								$more.=' disabled="disabled"';
							$more.=' /></td>';
							$more.='<td valign="top" align="left">';
							$more.=$selval;
							$more.='</td></tr>' . "\n";
							$i++;
						}
					}
					else if ($input['type'] == 'other') {
						$more.='<tr><td valign="top">';
						if (!empty($input['label']))
							$more.=$input['label'] . '</td><td valign="top" colspan="2" align="left">';
						$more.=$input['value'];
						$more.='</td></tr>' . "\n";
					}
					else if ($input['type'] == 'hidden') {
						$more.='<input type="hidden" id="' . $input['name'] . '" name="' . $input['name'] . '" value="' . $input['value'] . '">';
					}
				}
			}
			$more.='</table>' . "\n";
		}

		if ($useajax && $conf->use_javascript_ajax) {
			$autoOpen = true;
			$dialogconfirm = 'dialog-confirm';
			$button = '';
			if (!is_int($useajax)) {
				$button = $useajax;
				$useajax = 1;
				$autoOpen = false;
				$dialogconfirm.='-' . $button;
			}
			$pageyes = $page . '&action=' . $action . '&confirm=yes';
			$pageno = ($useajax == 2 ? $page . '&confirm=no' : '');
			// Add input fields into list of fields to read during submit (inputok and inputko)
			if (is_array($formquestion)) {
				foreach ($formquestion as $key => $input) {
					if (isset($input['name']))
						array_push($inputok, $input['name']);
					if (isset($input['inputko']) && $input['inputko'] == 1)
						array_push($inputko, $input['name']);
				}
			}

			// Show JQuery confirm box. Note that global var $useglobalvars is used inside this template
			$formconfirm.= '<div id="' . $dialogconfirm . '" title="' . dol_escape_htmltag($title) . '" style="display: none;">';
			if (!empty($more)) {
				$formconfirm.= '<p>' . $more . '</p>';
			}
			$formconfirm.= img_help('', '') . ' ' . $question;
			$formconfirm.= '</div>';

			$formconfirm.= '<script type="text/javascript">';
			$formconfirm.='
            $(function() {
            	$( "#' . $dialogconfirm . '" ).dialog({
                    autoOpen: ' . ($autoOpen ? "true" : "false") . ',
                    resizable: false,
                    height: "' . $height . '",
                    width: "' . $width . '",
                    modal: true,
                    closeOnEscape: false,
                    buttons: {
                        "' . dol_escape_js($langs->transnoentities("Yes")) . '": function() {
                        	var options="";
                        	var inputok = ' . json_encode($inputok) . ';
                         	var pageyes = "' . dol_escape_js(!empty($pageyes) ? $pageyes : '') . '";
                         	if (inputok.length>0) {
                         		$.each(inputok, function(i, inputname) {
                         			var more = "";
                         			if ($("#" + inputname).attr("type") == "checkbox") { more = ":checked"; }
                         			var inputvalue = $("#" + inputname + more).val();
                         			if (typeof inputvalue == "undefined") { inputvalue=""; }
                         			options += "&" + inputname + "=" + inputvalue;
                         		});
                         	}
                         	var urljump = pageyes + (pageyes.indexOf("?") < 0 ? "?" : "") + options;
                         	//alert(urljump);
            				if (pageyes.length > 0) { location.href = urljump; }
                            $(this).dialog("close");
                        },
                        "' . dol_escape_js($langs->transnoentities("No")) . '": function() {
                        	var options = "";
                         	var inputko = ' . json_encode($inputko) . ';
                         	var pageno="' . dol_escape_js(!empty($pageno) ? $pageno : '') . '";
                         	if (inputko.length>0) {
                         		$.each(inputko, function(i, inputname) {
                         			var more = "";
                         			if ($("#" + inputname).attr("type") == "checkbox") { more = ":checked"; }
                         			var inputvalue = $("#" + inputname + more).val();
                         			if (typeof inputvalue == "undefined") { inputvalue=""; }
                         			options += "&" + inputname + "=" + inputvalue;
                         		});
                         	}
                         	var urljump=pageno + (pageno.indexOf("?") < 0 ? "?" : "") + options;
                         	//alert(urljump);
            				if (pageno.length > 0) { location.href = urljump; }
                            $(this).dialog("close");
                        }
                    }
                });

            	var button = "' . $button . '";
                if (button.length > 0) {
                	$( "#" + button ).click(function() {
                		$("#' . $dialogconfirm . '").dialog("open");
                	});
                }
            });
            </script>';
		} else {
			$formconfirm.= "\n<!-- begin form_confirm page=" . $page . " -->\n";

			$formconfirm.= '<form method="POST" action="' . $page . '" class="notoptoleftroright">' . "\n";
			$formconfirm.= '<input type="hidden" name="action" value="' . $action . '">';
			$formconfirm.= '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">' . "\n";

			$formconfirm.= '<table width="100%" class="valid">' . "\n";

			// Line title
			$formconfirm.= '<tr class="validtitre"><td class="validtitre" colspan="3">' . img_picto('', 'recent') . ' ' . $title . '</td></tr>' . "\n";

			// Line form fields
			if ($more) {
				$formconfirm.='<tr class="valid"><td class="valid" colspan="3">' . "\n";
				$formconfirm.=$more;
				$formconfirm.='</td></tr>' . "\n";
			}

			// Line with question
			$formconfirm.= '<tr class="valid">';
			$formconfirm.= '<td class="valid">' . $question . '</td>';
			$formconfirm.= '<td class="valid">';
			$newselectedchoice = empty($selectedchoice) ? "no" : $selectedchoice;
			$formconfirm.= $this->selectyesno("confirm", $newselectedchoice);
			$formconfirm.= '</td>';
			$formconfirm.= '<td class="valid" align="center"><input class="button" type="submit" value="' . $langs->trans("Validate") . '"></td>';
			$formconfirm.= '</tr>' . "\n";

			$formconfirm.= '</table>' . "\n";

			$formconfirm.= "</form>\n";
			$formconfirm.= '<br>';

			$formconfirm.= "<!-- end form_confirm -->\n";
		}

		return $formconfirm;
	}

	/**
	 *    Show a form to select a project
	 *
	 *    @param	int		$page        Page
	 *    @param	int		$socid       Id third party
	 *    @param    int		$selected    Id pre-selected project
	 *    @param    string	$htmlname    Name of select field
	 *    @return	void
	 */
	function form_project($page, $socid, $selected = '', $htmlname = 'projectid') {
		global $langs;

		require_once DOL_DOCUMENT_ROOT . '/core/lib/project.lib.php';

		$langs->load("project");
		if ($htmlname != "none") {
			print '<form method="post" action="' . $page . '">';
			print '<input type="hidden" name="action" value="classin">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td>';
			//print "$socid,$selected,$htmlname";
			select_projects($socid, $selected, $htmlname);
			print '</td>';
			print '<td align="left"><input type="submit" class="button" value="' . $langs->trans("Modify") . '"></td>';
			print '</tr></table></form>';
		} else {
			if ($selected) {
				$projet = new Project($this->db);
				$projet->fetch($selected);
				//print '<a href="'.DOL_URL_ROOT.'/projet/fiche.php?id='.$selected.'">'.$projet->title.'</a>';
				print $projet->getNomUrl(0, '', 1);
			} else {
				print "&nbsp;";
			}
		}
	}

	/**
	 *  Show a form to select a delivery delay
	 *
	 *  @param  int		$page        	Page
	 *  @param  string	$selected    	Id condition pre-selectionne
	 *  @param  string	$htmlname    	Name of select html field
	 * 	@param	int		$addempty		Ajoute entree vide
	 *  @return	void
	 */
	function form_availability($page, $selected = '', $htmlname = 'availability', $addempty = 0) {
		global $langs;
		if ($htmlname != "none") {
			print '<form method="post" action="' . $page . '">';
			print '<input type="hidden" name="action" value="setavailability">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td>';
			$this->select_availability($selected, $htmlname, -1, $addempty);
			print '</td>';
			print '<td align="left"><input type="submit" class="button" value="' . $langs->trans("Modify") . '"></td>';
			print '</tr></table></form>';
		} else {
			if ($selected) {
				$this->load_cache_availability();
				print $this->cache_availability[$selected]['label'];
			} else {
				print "&nbsp;";
			}
		}
	}

	/**
	 *  Show a select form to select origin
	 *
	 *  @param  string	$page        	Page
	 *  @param  string	$selected    	Id condition pre-selectionne
	 *  @param  string	$htmlname    	Name of select html field
	 * 	@param	int		$addempty		Add empty entry
	 *  @return	void
	 */
	function form_demand_reason($page, $selected = '', $htmlname = 'demandreason', $addempty = 0) {
		global $langs;
		if ($htmlname != "none") {
			print '<form method="post" action="' . $page . '">';
			print '<input type="hidden" name="action" value="setdemandreason">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td>';
			$this->select_demand_reason($selected, $htmlname, -1, $addempty);
			print '</td>';
			print '<td align="left"><input type="submit" class="button" value="' . $langs->trans("Modify") . '"></td>';
			print '</tr></table></form>';
		} else {
			if ($selected) {
				$this->load_cache_demand_reason();
				foreach ($this->cache_demand_reason as $key => $val) {
					if ($val['id'] == $selected) {
						print $val['label'];
						break;
					}
				}
			} else {
				print "&nbsp;";
			}
		}
	}

	/**
	 *    Show a form to select a date
	 *
	 *    @param	string		$page        Page
	 *    @param	string		$selected    Date preselected
	 *    @param    string		$htmlname    Name of input html field
	 *    @return	void
	 */
	function form_date($page, $selected, $htmlname) {
		global $langs;

		if ($htmlname != "none") {
			print '<form method="post" action="' . $page . '" name="form' . $htmlname . '">';
			print '<input type="hidden" name="action" value="set' . $htmlname . '">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td>';
			print $this->select_date($selected, $htmlname, 0, 0, 1, 'form' . $htmlname);
			print '</td>';
			print '<td align="left"><input type="submit" class="button" value="' . $langs->trans("Modify") . '"></td>';
			print '</tr></table></form>';
		} else {
			if ($selected) {
				$this->load_cache_types_paiements();
				print $this->cache_types_paiements[$selected]['label'];
			} else {
				print "&nbsp;";
			}
		}
	}

	/**
	 *  Show a select form to choose a user
	 *
	 *  @param	string	$page        	Page
	 *  @param  string	$selected    	Id of user preselected
	 *  @param  string	$htmlname    	Name of input html field
	 *  @param  array	$exclude         List of users id to exclude
	 *  @param  array	$include         List of users id to include
	 *  @return	void
	 */
	function form_users($page, $selected = '', $htmlname = 'userid', $exclude = '', $include = '') {
		global $langs;

		if ($htmlname != "none") {
			print '<form method="POST" action="' . $page . '" name="form' . $htmlname . '">';
			print '<input type="hidden" name="action" value="set' . $htmlname . '">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td>';
			print $this->select_users($selected, $htmlname, 1, $exclude, 0, $include); // TODO where is this function
			print '</td>';
			print '<td align="left"><input type="submit" class="button" value="' . $langs->trans("Modify") . '"></td>';
			print '</tr></table></form>';
		} else {
			if ($selected) {
				require_once DOL_DOCUMENT_ROOT . '/user/class/user.class.php';
				//$this->load_cache_contacts();
				//print $this->cache_contacts[$selected];
				$theuser = new User($this->db);
				$theuser->fetch($selected);
				print $theuser->getNomUrl(1);
			} else {
				print "&nbsp;";
			}
		}
	}

	/**
	 * 	Show a select box with available absolute discounts
	 *
	 *  @param  string	$page        	Page URL where form is shown
	 *  @param  int		$selected    	Value pre-selected
	 * 	@param  string	$htmlname    	Nom du formulaire select. Si 'none', non modifiable. Example 'remise_id'.
	 * 	@param	int		$socid			Third party id
	 * 	@param	float	$amount			Total amount available
	 * 	@param	string	$filter			SQL filter on discounts
	 * 	@param	int		$maxvalue		Max value for lines that can be selected
	 *  @param  string	$more           More string to add
	 *  @return	void
	 */
	function form_remise_dispo($page, $selected, $htmlname, $socid, $amount, $filter = '', $maxvalue = 0, $more = '') {
		global $conf, $langs;
		if ($htmlname != "none") {
			print '<form method="post" action="' . $page . '">';
			print '<input type="hidden" name="action" value="setabsolutediscount">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td nowrap="nowrap">';
			if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
				if (!$filter || $filter == "fk_facture_source IS NULL")
					print $langs->trans("CompanyHasAbsoluteDiscount", price($amount), $langs->transnoentities("Currency" . $conf->currency)) . ': '; // If we want deposit to be substracted to payments only and not to total of final invoice
				else
					print $langs->trans("CompanyHasCreditNote", price($amount), $langs->transnoentities("Currency" . $conf->currency)) . ': ';
			}
			else {
				if (!$filter || $filter == "fk_facture_source IS NULL OR (fk_facture_source IS NOT NULL AND description='(DEPOSIT)')")
					print $langs->trans("CompanyHasAbsoluteDiscount", price($amount), $langs->transnoentities("Currency" . $conf->currency)) . ': ';
				else
					print $langs->trans("CompanyHasCreditNote", price($amount), $langs->transnoentities("Currency" . $conf->currency)) . ': ';
			}
			$newfilter = 'fk_facture IS NULL AND fk_facture_line IS NULL'; // Remises disponibles
			if ($filter)
				$newfilter.=' AND (' . $filter . ')';
			$nbqualifiedlines = $this->select_remises($selected, $htmlname, $newfilter, $socid, $maxvalue);
			print '</td>';
			print '<td nowrap="nowrap">';
			if ($nbqualifiedlines > 0) {
				print ' &nbsp; <input type="submit" class="button" value="' . dol_escape_htmltag($langs->trans("UseLine")) . '"';
				if ($filter && $filter != "fk_facture_source IS NULL OR (fk_facture_source IS NOT NULL AND description='(DEPOSIT)')")
					print ' title="' . $langs->trans("UseCreditNoteInInvoicePayment") . '"';
				print '>';
			}
			if ($more)
				print $more;
			print '</td>';
			print '</tr></table></form>';
		}
		else {
			if ($selected) {
				print $selected;
			} else {
				print "0";
			}
		}
	}

	/**
	 *    Affiche formulaire de selection des contacts
	 *
	 *    @param	string	$page        	Page
	 *    @param	Societe	$societe		Third party
	 *    @param    int		$selected    	Id contact pre-selectionne
	 *    @param    string	$htmlname    	Nom du formulaire select
	 *    @return	void
	 */
	function form_contacts($page, $societe, $selected = '', $htmlname = 'contactidp') {
		global $langs;

		if ($htmlname != "none") {
			print '<form method="post" action="' . $page . '">';
			print '<input type="hidden" name="action" value="set_contact">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td>';
			$num = $this->select_contacts($societe->id, $selected, $htmlname);
			if ($num == 0) {
				$addcontact = (!empty($conf->global->SOCIETE_ADDRESSES_MANAGEMENT) ? $langs->trans("AddContact") : $langs->trans("AddContactAddress"));
				print '<font class="error">Cette societe n\'a pas de contact, veuillez en cr�er un avant de faire votre proposition commerciale</font><br>';
				print '<a href="' . DOL_URL_ROOT . '/contact/fiche.php?socid=' . $societe->id . '&amp;action=create&amp;backtoreferer=1">' . $addcontact . '</a>';
			}
			print '</td>';
			print '<td align="left"><input type="submit" class="button" value="' . $langs->trans("Modify") . '"></td>';
			print '</tr></table></form>';
		} else {
			if ($selected) {
				require_once DOL_DOCUMENT_ROOT . '/contact/class/contact.class.php';
				//$this->load_cache_contacts();
				//print $this->cache_contacts[$selected];
				$contact = new Contact($this->db);
				$contact->fetch($selected);
				print $contact->getFullName($langs);
			} else {
				print "&nbsp;";
			}
		}
	}

	/**
	 *    Output html select to select thirdparty
	 *
	 *    @param	string	$page       Page
	 *    @param    string	$selected   Id preselected
	 *    @param    string	$htmlname	Name of HTML select
	 *  @param  string	$filter         Optionnal filters criteras
	 * 	@param	int		$showempty		Add an empty field
	 * 	@param	int		$showtype		Show third party type in combolist (customer, prospect or supplier)
	 * 	@param	int		$forcecombo		Force to use combo box
	 *  @param	array	$event			Event options
	 *    @return	void
	 */
	function form_thirdparty($page, $selected = '', $htmlname = 'socid', $filter = '', $showempty = 0, $showtype = 0, $forcecombo = 0, $event = array()) {
		global $langs;

		if ($htmlname != "none") {
			print '<form method="post" action="' . $page . '">';
			print '<input type="hidden" name="action" value="set_thirdparty">';
			print '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
			print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
			print '<tr><td>';
			print $this->select_company($selected, $htmlname, $filter, $showempty, $showtype, $forcecombo, $event);
			print '</td>';
			print '<td align="left"><input type="submit" class="button" value="' . $langs->trans("Modify") . '"></td>';
			print '</tr></table></form>';
		} else {
			if ($selected) {
				require_once DOL_DOCUMENT_ROOT . '/societe/class/societe.class.php';
				$soc = new Societe($this->db);
				$soc->fetch($selected);
				print $soc->getNomUrl($langs);
			} else {
				print "&nbsp;";
			}
		}
	}

	/**
	 *    Retourne la liste des devises, dans la langue de l'utilisateur
	 *
	 *    @param	string	$selected    preselected currency code
	 *    @param    string	$htmlname    name of HTML select list
	 *    @return	void
	 */
	function select_currency($selected = '', $htmlname = 'currency_id') {
		print $this->selectcurrency($selected, $htmlname);
	}

	/**
	 *  Retourne la liste des devises, dans la langue de l'utilisateur
	 *
	 *  @param	string	$selected    preselected currency code
	 *  @param  string	$htmlname    name of HTML select list
	 * 	@return	void
	 */
	function selectcurrency($selected = '', $htmlname = 'currency_id') {
		global $conf, $langs, $user;

		$langs->load("dict");

		$langs->load_cache_currencies();

		$out = '';

		if ($selected == 'euro' || $selected == 'euros')
			$selected = 'EUR';   // Pour compatibilite

		$out.= '<select class="flat" name="' . $htmlname . '">';
		foreach ($langs->cache_currencies as $code_iso => $currency) {
			if ($selected && $selected == $code_iso) {
				$out.= '<option value="' . $code_iso . '" selected="selected">';
			} else {
				$out.= '<option value="' . $code_iso . '">';
			}
			$out.= $currency['label'];
			$out.= ' (' . $langs->getCurrencySymbol($code_iso) . ')';
			$out.= '</option>';
		}
		$out.= '</select>';
		if ($user->admin)
			$out.= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"), 1);
		return $out;
	}

	/**
	 * 	Load into the cache vat rates of a country
	 *
	 * 	@param	string	$country_code		Country code
	 * 	@return	int							Nb of loaded lines, 0 if already loaded, <0 if KO
	 */
	function load_cache_vatrates($country_code) {
		return false;
		/*
		  global $langs;

		  $num = count($this->cache_vatrates);
		  if ($num > 0)
		  return $num;    // Cache deja charge

		  $sql = "SELECT DISTINCT t.taux, t.recuperableonly";
		  $sql.= " FROM " . MAIN_DB_PREFIX . "c_tva as t, " . MAIN_DB_PREFIX . "c_pays as p";
		  $sql.= " WHERE t.fk_pays = p.rowid";
		  $sql.= " AND t.active = 1";
		  $sql.= " AND p.code IN (" . $country_code . ")";
		  $sql.= " ORDER BY t.taux ASC, t.recuperableonly ASC";

		  $resql = $this->db->query($sql);
		  if ($resql) {
		  $num = $this->db->num_rows($resql);
		  if ($num) {
		  for ($i = 0; $i < $num; $i++) {
		  $obj = $this->db->fetch_object($resql);
		  $this->cache_vatrates[$i]['txtva'] = $obj->taux;
		  $this->cache_vatrates[$i]['libtva'] = $obj->taux . '%';
		  $this->cache_vatrates[$i]['nprtva'] = $obj->recuperableonly;
		  }

		  return $num;
		  } else {
		  $this->error = '<font class="error">' . $langs->trans("ErrorNoVATRateDefinedForSellerCountry", $country_code) . '</font>';
		  return -1;
		  }
		  } else {
		  $this->error = '<font class="error">' . $this->db->error() . '</font>';
		  return -2;
		  }
		 */
	}

	/**
	 *  Output an HTML select vat rate
	 *
	 *  @param	string	$htmlname           Nom champ html
	 *  @param  float	$selectedrate       Forcage du taux tva pre-selectionne. Mettre '' pour aucun forcage.
	 *  @param  Societe	$societe_vendeuse   Objet societe vendeuse
	 *  @param  Societe	$societe_acheteuse  Objet societe acheteuse
	 *  @param  int		$idprod             Id product
	 *  @param  int		$info_bits          Miscellaneous information on line (1 for NPR)
	 *  @param  int		$type               ''=Unknown, 0=Product, 1=Service (Used if idprod not defined)
	 *                  					Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle.
	 *                  					Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle.
	 *                  					Si (vendeur et acheteur dans Communaute europeenne) et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par defaut=0 (La TVA doit etre paye par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de regle.
	 *                  					Si (vendeur et acheteur dans Communaute europeenne) et bien vendu autre que transport neuf alors la TVA par defaut=TVA du produit vendu. Fin de regle.
	 *                  					Sinon la TVA proposee par defaut=0. Fin de regle.
	 *  @param	bool	$options_only		Return options only (for ajax treatment)
	 *  @return	void
	 */
	function load_tva($htmlname = 'tauxtva', $selectedrate = '', $societe_vendeuse = '', $societe_acheteuse = '', $idprod = 0, $info_bits = 0, $type = '', $options_only = false) {
		global $langs, $conf, $mysoc;

		$return = '';
		$txtva = array();
		$libtva = array();
		$nprtva = array();

		// Define defaultnpr and defaultttx
		$defaultnpr = ($info_bits & 0x01);
		$defaultnpr = (preg_match('/\*/', $selectedrate) ? 1 : $defaultnpr);
		$defaulttx = str_replace('*', '', $selectedrate);

		// Check parameters
		if (is_object($societe_vendeuse) && !$societe_vendeuse->country_id) {
			if ($societe_vendeuse->id == $mysoc->id) {
				$return.= '<font class="error">' . $langs->trans("ErrorYourCountryIsNotDefined") . '</div>';
			} else {
				$return.= '<font class="error">' . $langs->trans("ErrorSupplierCountryIsNotDefined") . '</div>';
			}
			return $return;
		}

		//var_dump($societe_acheteuse);
		//print "name=$name, selectedrate=$selectedrate, seller=".$societe_vendeuse->country_id." buyer=".$societe_acheteuse->country_id." buyer is company=".$societe_acheteuse->isACompany()." idprod=$idprod, info_bits=$info_bits type=$type";
		//exit;
		// Get list of all VAT rates to show
		// First we defined code_pays to use to find list
		if (is_object($societe_vendeuse)) {
			$code_pays = "'" . $societe_vendeuse->country_id . "'";
		} else {
			$code_pays = "'" . $mysoc->country_id . "'";   // Pour compatibilite ascendente
		}
		if (!empty($conf->global->SERVICE_ARE_ECOMMERCE_200238EC)) { // If option to have vat for end customer for services is on
			if (!$societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC() && !$societe_acheteuse->isACompany()) {
				// We also add the buyer
				if (is_numeric($type)) {
					if ($type == 1) { // We know product is a service
						$code_pays.=",'" . $societe_acheteuse->country_id . "'";
					}
				} else if (!$idprod) {  // We don't know type of product
					$code_pays.=",'" . $societe_acheteuse->country_id . "'";
				} else {
					$prodstatic = new Product($this->db);
					$prodstatic->fetch($idprod);
					if ($prodstatic->type == 1) {   // We know product is a service
						$code_pays.=",'" . $societe_acheteuse->country_id . "'";
					}
				}
			}
		}

		// Now we get list
		$num = $this->load_cache_vatrates($code_pays);

		if ($num > 0) {
			// Definition du taux a pre-selectionner (si defaulttx non force et donc vaut -1 ou '')
			if ($defaulttx < 0 || dol_strlen($defaulttx) == 0) {
				$defaulttx = get_default_tva($societe_vendeuse, $societe_acheteuse, $idprod);
				$defaultnpr = get_default_npr($societe_vendeuse, $societe_acheteuse, $idprod);
			}

			// Si taux par defaut n'a pu etre determine, on prend dernier de la liste.
			// Comme ils sont tries par ordre croissant, dernier = plus eleve = taux courant
			if ($defaulttx < 0 || dol_strlen($defaulttx) == 0) {
				$defaulttx = $this->cache_vatrates[$num - 1]['txtva'];
			}

			// Disabled if seller is not subject to VAT
			$disabled = false;
			$title = '';
			if (is_object($societe_vendeuse) && $societe_vendeuse->id == $mysoc->id && $societe_vendeuse->tva_assuj == "0") {
				$title = ' title="' . $langs->trans('VATIsNotUsed') . '"';
				$disabled = true;
			}

			if (!$options_only)
				$return.= '<select class="flat" id="' . $htmlname . '" name="' . $htmlname . '"' . ($disabled ? ' disabled="disabled"' : '') . $title . '>';

			foreach ($this->cache_vatrates as $rate) {
				// Keep only 0 if seller is not subject to VAT
				if ($disabled && $rate['txtva'] != 0)
					continue;

				$return.= '<option value="' . $rate['txtva'];
				$return.= $rate['nprtva'] ? '*' : '';
				$return.= '"';
				if ($rate['txtva'] == $defaulttx && $rate['nprtva'] == $defaultnpr) {
					$return.= ' selected="selected"';
				}
				$return.= '>' . vatrate($rate['libtva']);
				$return.= $rate['nprtva'] ? ' *' : '';
				$return.= '</option>';

				$this->tva_taux_value[] = $rate['txtva'];
				$this->tva_taux_libelle[] = $rate['libtva'];
				$this->tva_taux_npr[] = $rate['nprtva'];
			}

			if (!$options_only)
				$return.= '</select>';
		}
		else {
			$return.= $this->error;
		}

		$this->num = $num;
		return $return;
	}

	/**
	 * 	Show a HTML widget to input a date or combo list for day, month, years and optionnaly hours and minutes
	 *  Fields are preselected with :
	 *            	- set_time date (Local PHP server timestamps or date format YYYY-MM-DD or YYYY-MM-DD HH:MM)
	 *            	- local date of PHP server if set_time is ''
	 *            	- Empty (fields empty) if set_time is -1 (in this case, parameter empty must also have value 1)
	 *
	 * 	@param	timestamp	$set_time 		Pre-selected date (must be a local PHP server timestamp)
	 * 	@param	string		$prefix			Prefix for fields name
	 * 	@param	int			$h				1=Show also hours
	 * 	@param	int			$m				1=Show also minutes
	 * 	@param	int			$empty			0=Fields required, 1=Empty input is allowed
	 * 	@param	string		$form_name 		Not used
	 * 	@param	int			$d				1=Show days, month, years
	 * 	@param	int			$addnowbutton	Add a button "Now"
	 * 	@param	int			$nooutput		Do not output html string but return it
	 * 	@param 	int			$disabled		Disable input fields
	 *  @param  int			$fullday        When a checkbox with this html name is on, hour and day are set with 00:00 or 23:59
	 * 	@return	mixed						Nothing or string if nooutput is 1
	 */
	function select_date($set_time = '', $prefix = 're', $h = 0, $m = 0, $empty = 0, $form_name = "", $d = 1, $addnowbutton = 0, $nooutput = 0, $disabled = 0, $fullday = '') {
		global $conf, $langs;

		$retstring = '';

		if ($prefix == '')
			$prefix = 're';
		if ($h == '')
			$h = 0;
		if ($m == '')
			$m = 0;
		if ($empty == '')
			$empty = 0;

		if (!$set_time && $empty == 0)
			$set_time = dol_now('tzuser');

		// Analysis of the pre-selection date
		if (preg_match('/^([0-9]+)\-([0-9]+)\-([0-9]+)T?([0-9]+)?:?([0-9]+)?/', $set_time, $reg)) {
			// Date format 'YYYY-MM-DD' or 'YYYY-MM-DDTHH:MM:SS'
			$syear = (!empty($reg[1]) ? $reg[1] : '');
			$smonth = (!empty($reg[2]) ? $reg[2] : '');
			$sday = (!empty($reg[3]) ? $reg[3] : '');
			$shour = (!empty($reg[4]) ? $reg[4] : '');
			$smin = (!empty($reg[5]) ? $reg[5] : '');
		} else {
			// Date est '' ou vaut -1
			$syear = '';
			$smonth = '';
			$sday = '';
			$shour = '';
			$smin = '';
		}

		if ($d) {
			// Show date with popup
			$formated_date = '';
			//print "e".$set_time." t ".$conf->format_date_short;
			if (strval($set_time) != '' && $set_time != -1) {
				if ($h)
					$formated_date = dol_print_date($set_time, "%d-%m-%Y %H:%M");
				else
					$formated_date = dol_print_date($set_time, "%d-%m-%Y");
				//$formated_date = dol_print_date($set_time, $langs->trans("FormatDateShort"));  // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript
			}

			// Zone de saisie manuelle de la date
			$retstring.='<span class="input">';
			$retstring.='<span class="icon-calendar"></span>';
			$retstring.='<input id="' . $prefix . '" name="' . $prefix . '" class="input-unstyled datepicker _gldp" type="text" value="' . $formated_date . '"';
			$retstring.=($disabled ? ' disabled="disabled"' : '');
			//$retstring.=' onChange="dpChangeDay(\'' . $prefix . '\',\'' . $langs->trans("FormatDateShortJava") . '\'); "';  // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript
			$retstring.='>';
			$retstring.='</span>';

			if ($h)
				$retstring.='<script> $(function() {
							$("input#' . $prefix . '").datetimepicker({
								dateFormat: "dd-mm-yy",
								timeFormat: "HH:mm",
								showAnim: "slide"
								});
						}); </script>';
			else
				$retstring.='<script> $(function() {
							$("input#' . $prefix . '").datepicker({
								dateFormat: "dd-mm-yy",
								showAnim: "slide"
							});
						}); </script>';
		}

		if ($d && $h)
			$retstring.='&nbsp;';

		if (!empty($nooutput))
			return $retstring;

		print $retstring;
		return;
	}

	/**
	 * 	Function to show a form to select a duration on a page
	 *
	 * 	@param	string	$prefix   	prefix
	 * 	@param  int		$iSecond  	Default preselected duration (number of seconds)
	 * 	@param	int		$disabled	Disable the combo box
	 *  @return	void
	 */
	function select_duration($prefix, $iSecond = '', $disabled = 0) {
		if ($iSecond) {
			require_once DOL_DOCUMENT_ROOT . '/core/lib/date.lib.php';

			$hourSelected = convertSecondToTime($iSecond, 'hour');
			$minSelected = convertSecondToTime($iSecond, 'min');
		}

		print '<select class="flat" name="' . $prefix . 'hour"' . ($disabled ? ' disabled="disabled"' : '') . '>';
		for ($hour = 0; $hour < 24; $hour++) {
			print '<option value="' . $hour . '"';
			if ($hourSelected == $hour) {
				print " selected=\"true\"";
			}
			print ">" . $hour . "</option>";
		}
		print "</select>";
		print "H &nbsp;";
		print '<select class="flat" name="' . $prefix . 'min"' . ($disabled ? ' disabled="disabled"' : '') . '>';
		for ($min = 0; $min <= 55; $min = $min + 5) {
			print '<option value="' . $min . '"';
			if ($minSelected == $min)
				print ' selected="selected"';
			print '>' . $min . '</option>';
		}
		print "</select>";
		print "M&nbsp;";
	}

	/**
	 * 	Show a select form from an array
	 *
	 * 	@param	string	$htmlname       Name of html select area
	 * 	@param	array	$array          Array with key+value
	 * 	@param	int		$id             Preselected key
	 * 	@param	int		$show_empty     1 si il faut ajouter une valeur vide dans la liste, 0 sinon
	 * 	@param	int		$key_in_label   1 pour afficher la key dans la valeur "[key] value"
	 * 	@param	int		$value_as_key   1 to use value as key
	 * 	@param  string	$option         Valeur de l'option en fonction du type choisi
	 * 	@param  int		$translate		Translate and encode value
	 * 	@param	int		$maxlen			Length maximum for labels
	 * 	@param	int		$disabled		Html select box is disabled
	 * 	@return	string					HTML select string
	 */
	function selectarray($htmlname, $array, $id = '', $show_empty = 0, $key_in_label = 0, $value_as_key = 0, $option = '', $translate = 0, $maxlen = 0, $disabled = 0) {
		global $langs;

		if ($value_as_key)
			$array = array_combine($array, $array);

		$out = '<select id="' . $htmlname . '" ' . ($disabled ? 'disabled="disabled" ' : '') . 'class="flat" name="' . $htmlname . '" ' . ($option != '' ? $option : '') . '>';

		if ($show_empty) {
			$out.='<option value="-1"' . ($id == -1 ? ' selected="selected"' : '') . '>&nbsp;</option>' . "\n";
		}

		if (is_array($array)) {
			foreach ($array as $key => $value) {
				$out.='<option value="' . $key . '"';
				// Si il faut pre-selectionner une valeur
				if ($id != '' && $id == $key) {
					$out.=' selected="selected"';
				}

				$out.='>';

				$newval = ($translate ? $langs->trans(ucfirst($value)) : $value);
				if ($key_in_label) {
					$selectOptionValue = dol_htmlentitiesbr($key . ' - ' . ($maxlen ? dol_trunc($newval, $maxlen) : $newval));
				} else {
					$selectOptionValue = dol_htmlentitiesbr($maxlen ? dol_trunc($newval, $maxlen) : $newval);
					if ($value == '' || $value == '-') {
						$selectOptionValue = '&nbsp;';
					}
				}
				$out.=$selectOptionValue;
				$out.="</option>\n";
			}
		}

		$out.="</select>";
		return $out;
	}

	/**
	 * 	Show a multiselect form from an array.
	 *
	 * 	@param	string	$htmlname		Name of select
	 * 	@param	array	$array			Array with key+value
	 * 	@param	array	$selected		Preselected keys
	 * 	@param	int		$key_in_label   1 pour afficher la key dans la valeur "[key] value"
	 * 	@param	int		$value_as_key   1 to use value as key
	 * 	@param  string	$option         Valeur de l'option en fonction du type choisi
	 * 	@param  int		$translate		Translate and encode value
	 * 	@return	string					HTML multiselect string
	 */
	function multiselectarray($htmlname, $array, $selected = array(), $key_in_label = 0, $value_as_key = 0, $option = '', $translate = 0) {
		global $conf, $langs;

		$out = '<select id="' . $htmlname . '" class="multiselect" multiple="multiple" name="' . $htmlname . '[]"' . $option . '>' . "\n";
		if (is_array($array) && !empty($array)) {
			if ($value_as_key)
				$array = array_combine($array, $array);

			if (!empty($conf->global->MAIN_USE_JQUERY_MULTISELECT) && is_array($selected) && !empty($selected)) {
				foreach ($selected as $selected_value) {
					foreach ($array as $key => $value) {
						if ($selected_value == $key) {
							$value = $array[$selected_value];
							$out.= '<option value="' . $key . '" selected="selected">';
							$newval = ($translate ? $langs->trans(ucfirst($value)) : $value);
							$newval = ($key_in_label ? $key . ' - ' . $newval : $newval);
							$out.= dol_htmlentitiesbr($newval);
							$out.= '</option>' . "\n";
							unset($array[$key]);
						}
					}
				}

				if (!empty($array)) {
					foreach ($array as $key => $value) {
						$out.= '<option value="' . $key . '">';
						$newval = ($translate ? $langs->trans(ucfirst($value)) : $value);
						$newval = ($key_in_label ? $key . ' - ' . $newval : $newval);
						$out.= dol_htmlentitiesbr($newval);
						$out.= '</option>' . "\n";
					}
				}
			} else {
				foreach ($array as $key => $value) {
					$out.= '<option value="' . $key . '"';
					if (is_array($selected) && !empty($selected) && in_array($key, $selected)) {
						$out.= ' selected="selected"';
					}
					$out.= '>';

					$newval = ($translate ? $langs->trans(ucfirst($value)) : $value);
					$newval = ($key_in_label ? $key . ' - ' . $newval : $newval);
					$out.= dol_htmlentitiesbr($newval);
					$out.= '</option>' . "\n";
				}
			}
		}
		$out.= '</select>' . "\n";

		return $out;
	}

	/**
	 * 	Return an html string with a select combo box to choose yes or no
	 *
	 * 	@param	string	$htmlname		Name of html select field
	 * 	@param	string	$value			Pre-selected value
	 * 	@param	int		$option			0 return yes/no, 1 return 1/0
	 * 	@param	bool	$disabled		true or false
	 * 	@return	mixed					See option
	 */
	function selectyesno($htmlname, $value = '', $option = 0, $disabled = false) {
		global $langs;

		$yes = "yes";
		$no = "no";

		if ($option) {
			$yes = "1";
			$no = "0";
		}

		$disabled = ($disabled ? ' disabled="disabled"' : '');

		$resultyesno = '<select class="flat" id="' . $htmlname . '" name="' . $htmlname . '"' . $disabled . '>' . "\n";
		if (("$value" == 'yes') || ($value == 1)) {
			$resultyesno .= '<option value="' . $yes . '" selected="selected">' . $langs->trans("Yes") . '</option>' . "\n";
			$resultyesno .= '<option value="' . $no . '">' . $langs->trans("No") . '</option>' . "\n";
		} else {
			$resultyesno .= '<option value="' . $yes . '">' . $langs->trans("Yes") . '</option>' . "\n";
			$resultyesno .= '<option value="' . $no . '" selected="selected">' . $langs->trans("No") . '</option>' . "\n";
		}
		$resultyesno .= '</select>' . "\n";
		return $resultyesno;
	}

	/**
	 *  Return list of export templates
	 *
	 *  @param	string	$selected          Id modele pre-selectionne
	 *  @param  string	$htmlname          Name of HTML select
	 *  @param  string	$type              Type of searched templates
	 *  @param  int		$useempty          Affiche valeur vide dans liste
	 *  @return	void
	 */
	function select_export_model($selected = '', $htmlname = 'exportmodelid', $type = '', $useempty = 0) {

		$sql = "SELECT rowid, label";
		$sql.= " FROM " . MAIN_DB_PREFIX . "export_model";
		$sql.= " WHERE type = '" . $type . "'";
		$sql.= " ORDER BY rowid";
		$result = $this->db->query($sql);
		if ($result) {
			print '<select class="flat" name="' . $htmlname . '">';
			if ($useempty) {
				print '<option value="-1">&nbsp;</option>';
			}

			$num = $this->db->num_rows($result);
			$i = 0;
			while ($i < $num) {
				$obj = $this->db->fetch_object($result);
				if ($selected == $obj->rowid) {
					print '<option value="' . $obj->rowid . '" selected="selected">';
				} else {
					print '<option value="' . $obj->rowid . '">';
				}
				print $obj->label;
				print '</option>';
				$i++;
			}
			print "</select>";
		} else {
			dol_print_error($this->db);
		}
	}

	/**
	 *    Return a HTML area with the reference of object and a navigation bar for a business object
	 *    To add a particular filter on select, you must set $object->next_prev_filter to SQL criteria.
	 *
	 *    @param	Object	$object			Object to show
	 *    @param   string	$paramid   		Name of parameter to use to name the id into the URL link
	 *    @param   string	$morehtml  		More html content to output just before the nav bar
	 *    @param	int		$shownav	  	Show Condition (navigation is shown if value is 1)
	 *    @param   string	$fieldid   		Nom du champ en base a utiliser pour select next et previous
	 *    @param   string	$fieldref   	Nom du champ objet ref (object->ref) a utiliser pour select next et previous
	 *    @param   string	$morehtmlref  	Code html supplementaire a afficher apres ref
	 *    @param   string	$moreparam  	More param to add in nav link url.
	 * 	  @return  tring    				Portion HTML avec ref + boutons nav
	 */
	function showrefnav($object, $paramid, $morehtml = '', $shownav = 1, $fieldid = 'rowid', $fieldref = 'ref', $morehtmlref = '', $moreparam = '') {
		$ret = '';
		if (empty($fieldid))
			$fieldid = 'rowid';
		if (empty($fieldref))
			$fieldref = 'ref';

		if (isset($object->class))
			return $object->_id . ' / ' . $object->_rev;

		//print "paramid=$paramid,morehtml=$morehtml,shownav=$shownav,$fieldid,$fieldref,$morehtmlref,$moreparam";
		$object->load_previous_next_ref((isset($object->next_prev_filter) ? $object->next_prev_filter : ''), $fieldid);
		$previous_ref = $object->ref_previous ? '<a href="' . $_SERVER["PHP_SELF"] . '?' . $paramid . '=' . urlencode($object->ref_previous) . $moreparam . '">' . img_previous() . '</a>' : '';
		$next_ref = $object->ref_next ? '<a href="' . $_SERVER["PHP_SELF"] . '?' . $paramid . '=' . urlencode($object->ref_next) . $moreparam . '">' . img_next() . '</a>' : '';

		//print "xx".$previous_ref."x".$next_ref;
		if ($previous_ref || $next_ref || $morehtml) {
			$ret.='<table class="nobordernopadding" width="100%"><tr class="nobordernopadding"><td class="nobordernopadding">';
		}

		$ret.=$object->$fieldref;
		if ($morehtmlref) {
			$ret.=' ' . $morehtmlref;
		}

		if ($morehtml) {
			$ret.='</td><td class="nobordernopadding" align="right">' . $morehtml;
		}
		if ($shownav && ($previous_ref || $next_ref)) {
			$ret.='</td><td class="nobordernopadding" align="center" width="20">' . $previous_ref . '</td>';
			$ret.='<td class="nobordernopadding" align="center" width="20">' . $next_ref;
		}
		if ($previous_ref || $next_ref || $morehtml) {
			$ret.='</td></tr></table>';
		}
		return $ret;
	}

	/**
	 *    	Return HTML code to output a barcode
	 *
	 *     	@param	Object	&$object		Object containing data to retrieve file name
	 * 		@param	int		$width			Width of photo
	 * 	  	@return string    				HTML code to output barcode
	 */
	function showbarcode(&$object, $width = 100) {
		global $conf;

		//Check if barcode is filled in the card
		if (empty($object->barcode))
			return '';

		// Complete object if not complete
		if (empty($object->barcode_type_code) || empty($object->barcode_type_coder)) {
			$result = $object->fetch_barcode();
			//Check if fetch_barcode() failed
			if ($result < 1)
				return '<!-- ErrorFetchBarcode -->';
		}

		// Barcode image
		$url = DOL_URL_ROOT . '/viewimage.php?modulepart=barcode&generator=' . urlencode($object->barcode_type_coder) . '&code=' . urlencode($object->barcode) . '&encoding=' . urlencode($object->barcode_type_code);
		$out = '<!-- url barcode = ' . $url . ' -->';
		$out.='<img src="' . $url . '">';
		return $out;
	}

	/**
	 *    	Return HTML code to output a photo
	 *
	 *    	@param	string		$modulepart		Key to define module concerned ('societe', 'userphoto', 'memberphoto')
	 *     	@param  Object		$object			Object containing data to retrieve file name
	 * 		@param	int			$width			Width of photo
	 * 	  	@return string    					HTML code to output photo
	 */
	function showphoto($modulepart, $object, $width = 180) {
		global $conf;

		$ret = '';
		$dir = '';
		$file = '';
		$altfile = '';
		$email = '';

		if ($modulepart == 'societe') {
			$dir = $conf->societe->multidir_output[$object->entity];
			$smallfile = $object->logo;
			$smallfile = preg_replace('/(\.png|\.gif|\.jpg|\.jpeg|\.bmp)/i', '_small\\1', $smallfile);
			if ($object->logo)
				$file = $object->id . '/logos/thumbs/' . $smallfile;
		}
		else if ($modulepart == 'userphoto') {
			if ($object->Photo)
				$file = $object->Photo;
			$email = $object->email;
		}
		else if ($modulepart == 'memberphoto') {
			if ($object->photo)
				$file = $object->photo;
			$email = $object->email;
		}

		if ($object->class) { // Photo in the database
			if ($file)
				$ret.='<img alt="Photo" id="photologo' . (preg_replace('/[^a-z]/i', '_', $file)) . '" class="photologo" border="0" width="' . $width . '" src="' . $object->getFile($file) . '">';
			else
				$ret.='<img alt="No photo" border="0" width="' . $width . '" src="' . DOL_URL_ROOT . '/theme/common/nophoto.jpg">';
		} elseif ($dir) {
			$cache = '0';
			if ($file && file_exists($dir . "/" . $file)) {
				// TODO Link to large image
				$ret.='<a href="' . DOL_URL_ROOT . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $object->entity . '&file=' . urlencode($file) . '&cache=' . $cache . '">';
				$ret.='<img alt="Photo" id="photologo' . (preg_replace('/[^a-z]/i', '_', $file)) . '" class="photologo" border="0" width="' . $width . '" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $object->entity . '&file=' . urlencode($file) . '&cache=' . $cache . '">';
				$ret.='</a>';
			} elseif ($altfile && file_exists($dir . "/" . $altfile)) {
				$ret.='<a href="' . DOL_URL_ROOT . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $object->entity . '&file=' . urlencode($file) . '&cache=' . $cache . '">';
				$ret.='<img alt="Photo alt" id="photologo' . (preg_replace('/[^a-z]/i', '_', $file)) . '" class="photologo" border="0" width="' . $width . '" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $object->entity . '&file=' . urlencode($altfile) . '&cache=' . $cache . '">';
				$ret.='</a>';
			} else {
				if (!empty($conf->gravatar->enabled) && $email) {
					global $dolibarr_main_url_root;
					$ret.='<!-- Put link to gravatar -->';
					$ret.='<img alt="Photo found on Gravatar" title="Photo Gravatar.com - email ' . $email . '" border="0" width="' . $width . '" src="http://www.gravatar.com/avatar/' . dol_hash($email) . '?s=' . $width . '&d=' . urlencode(dol_buildpath('/theme/common/nophoto.jpg', 2)) . '">';
				} else {
					$ret.='<img alt="No photo" border="0" width="' . $width . '" src="' . DOL_URL_ROOT . '/theme/common/nophoto.jpg">';
				}
			}
		}
		else
			dol_print_error('', 'Call of showphoto with wrong parameters');

		/* Disabled. lightbox seems to not work. I don't know why.
		  $ret.="\n<script type=\"text/javascript\">
		  jQuery(function() {
		  jQuery('.photologo').lightBox();
		  });
		  </script>\n";

		  $ret.="\n<script type=\"text/javascript\">
		  jQuery(function() {
		  jQuery('.photologo').lightBox({
		  overlayBgColor: '#FFF',
		  overlayOpacity: 0.6,
		  imageLoading: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-ico-loading.gif',
		  imageBtnClose: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-close.gif',
		  imageBtnPrev: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-prev.gif',
		  imageBtnNext: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-next.gif',
		  containerResizeSpeed: 350,
		  txtImage: 'Imagem',
		  txtOf: 'de'
		  });
		  });
		  </script>\n";
		 */

		return $ret;
	}

	/**
	 * 	Return select list of groups
	 *
	 *  @param	string	$selected        Id group preselected
	 *  @param  string	$htmlname        Field name in form
	 *  @param  int		$show_empty      0=liste sans valeur nulle, 1=ajoute valeur inconnue
	 *  @param  string	$exclude         Array list of groups id to exclude
	 * 	@param	int		$disabled		If select list must be disabled
	 *  @param  string	$include         Array list of groups id to include
	 * 	@param	int		$enableonly		Array list of groups id to be enabled. All other must be disabled
	 *  @return	void
	 */
	function select_dolgroups($selected = '', $htmlname = 'groupid', $show_empty = 0, $exclude = '', $disabled = 0, $include = '', $enableonly = '') {
		global $conf, $user, $langs;

		$out = '';

		$object = new UserGroup($db);
		$result = $object->getView("list");

		if (count($result->rows) && is_array($exclude)) {
			foreach ($result->rows as $key => $obj) {
				if (in_array($obj->value->name, $exclude, true)) {
					unset($result->rows[$key]);
				}
			}
		}

		$i = 0;
		if (count($result->rows)) {
			$out.= '<select class="flat" name="' . $htmlname . '"' . ($disabled ? ' disabled="disabled"' : '') . '>';
			if ($show_empty)
				$out.= '<option value="-1"' . ($selected == -1 ? ' selected="selected"' : '') . '>&nbsp;</option>' . "\n";

			foreach ($result->rows as $obj) {
				$disableline = 0;
				if (is_array($enableonly) && count($enableonly) && !in_array($obj->value->name, $enableonly))
					$disableline = 1;

				$out.= '<option value="' . $obj->value->name . '"';
				if ($disableline)
					$out.= ' disabled="disabled"';
				if ((is_object($selected) && $selected->id == $obj->value->name) || (!is_object($selected) && $selected == $obj->value->name)) {
					$out.= ' selected="selected"';
				}
				$out.= '>';

				$out.= $obj->value->name;

				$out.= '</option>';
				$i++;
			}
		} else {
			$out.= '<select class="flat" name="' . $htmlname . '" disabled="disabled">';
			$out.= '<option value="">' . $langs->trans("None") . '</option>';
		}
		$out.= '</select>';

		return $out;
	}

	/**
	 * 	Return select list of databases
	 *
	 *  @param	string	$selected        Id group preselected
	 *  @param  string	$htmlname        Field name in form
	 *  @param  int		$show_empty      0=liste sans valeur nulle, 1=ajoute valeur inconnue
	 *  @param  string	$exclude         Array list of groups id to exclude
	 * 	@param	int		$disabled		If select list must be disabled
	 *  @param  string	$include         Array list of groups id to include
	 * 	@param	int		$enableonly		Array list of groups id to be enabled. All other must be disabled
	 *  @return	void
	 */
	function select_doldatabases($selected = '', $htmlname = 'databaseid', $show_empty = 0, $exclude = '', $disabled = 0, $include = '', $enableonly = '') {
		global $conf, $user, $langs;

		$out = '';
		$object = new UserDatabase($db);
		try {
			$result = $object->couchdb->listDatabases();
		} catch (Exception $exc) {
			print $exc->getMessage();
		}

		if (count($result) && is_array($exclude)) {
			foreach ($result as $key => $obj) {
				if (in_array($obj, $exclude, true)) {
					unset($result[$key]);
				}
			}
		}

		$i = 0;
		if (count($result)) {
			$out.= '<select class="flat" name="' . $htmlname . '"' . ($disabled ? ' disabled="disabled"' : '') . '>';
			if ($show_empty)
				$out.= '<option value="-1"' . ($selected == -1 ? ' selected="selected"' : '') . '>&nbsp;</option>' . "\n";

			foreach ($result as $aRow) {
				if ($aRow[0] != "_") { // Not _users and _replicator
					try {
						$object->fetch($aRow);
						$obj = $object->values;
						$secu = $object->couchAdmin->getSecurity();

						if (count($secu->admins->names) + count($secu->readers->names) + count($secu->admins->roles) + count($secu->admins->roles) > 0)
							$obj->Status = "SECURE";
						else
							$obj->Status = "INSECURE";
					} catch (Exception $exc) {
						print $exc->getMessage();
					}

					$disableline = 0;
					if (is_array($enableonly) && count($enableonly) && !in_array($obj->db_name, $enableonly))
						$disableline = 1;

					$out.= '<option value="' . $obj->db_name . '"';
					if ($disableline)
						$out.= ' disabled="disabled"';
					if ((is_object($selected) && $selected->id == $obj->db_name) || (!is_object($selected) && $selected == $obj->db_name)) {
						$out.= ' selected="selected"';
					}
					$out.= '>';

					$out.= $obj->db_name;

					$out.= '</option>';
					$i++;
				}
			}
		} else {
			$out.= '<select class="flat" name="' . $htmlname . '" disabled="disabled">';
			$out.= '<option value="">' . $langs->trans("None") . '</option>';
		}
		$out.= '</select>';

		return $out;
	}

}

?>