PageRenderTime 76ms CodeModel.GetById 25ms RepoModel.GetById 0ms app.codeStats 1ms

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

https://github.com/asterix14/dolibarr
PHP | 3852 lines | 2695 code | 371 blank | 786 comment | 790 complexity | 4cf4b83662b932defac5e6b03335469a MD5 | raw file
Possible License(s): LGPL-2.0 
    

  1. <?php
    2. 

  2. /* Copyright (c) 2002-2007 Rodolphe Quiedeville  <rodolphe@quiedeville.org>
    3. 

  3.  * Copyright (C) 2004-2011 Laurent Destailleur   <eldy@users.sourceforge.net>
    4. 

  4.  * Copyright (C) 2004      Benoit Mortier        <benoit.mortier@opensides.be>
    5. 

  5.  * Copyright (C) 2004      Sebastien Di Cintio   <sdicintio@ressource-toi.org>
    6. 

  6.  * Copyright (C) 2004      Eric Seigne           <eric.seigne@ryxeo.com>
    7. 

  7.  * Copyright (C) 2005-2011 Regis Houssin         <regis@dolibarr.fr>
    8. 

  8.  * Copyright (C) 2006      Andre Cianfarani      <acianfa@free.fr>
    9. 

  9.  * Copyright (C) 2006      Marc Barilley/Ocebo   <marc@ocebo.com>
    10. 

  10.  * Copyright (C) 2007      Franky Van Liedekerke <franky.van.liedekerker@telenet.be>
    11. 

  11.  * Copyright (C) 2007      Patrick Raguin        <patrick.raguin@gmail.com>
    12. 

  12.  * Copyright (C) 2010      Juanjo Menent         <jmenent@2byte.es>
    13. 

  13.  * Copyright (C) 2010      Philippe Grand        <philippe.grand@atoo-net.com>
    14. 

  14.  * Copyright (C) 2011      Herve Prot            <herve.prot@symeos.com>
    15. 

  15.  *
    16. 

  16.  * This program is free software; you can redistribute it and/or modify
    17. 

  17.  * it under the terms of the GNU General Public License as published by
    18. 

  18.  * the Free Software Foundation; either version 2 of the License, or
    19. 

  19.  * (at your option) any later version.
    20. 

  20.  *
    21. 

  21.  * This program is distributed in the hope that it will be useful,
    22. 

  22.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
    23. 

  23.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    24. 

  24.  * GNU General Public License for more details.
    25. 

  25.  *
    26. 

  26.  * You should have received a copy of the GNU General Public License
    27. 

  27.  * along with this program. If not, see <http://www.gnu.org/licenses/>.
    28. 

  28.  */
    29. 

  29. 

  30. /**
    31. 

  31.  *	\file       htdocs/core/class/html.form.class.php
    32. 

  32.  *  \ingroup    core
    33. 

  33.  *	\brief      File of class with all html predefined components
    34. 

  34.  */
    35. 

  35. 

  36. 

  37. /**
    38. 

  38.  *	\class      Form
    39. 

  39.  *	\brief      Class to manage generation of HTML components
    40. 

  40.  *	\remarks	Only common components must be here.
    41. 

  41.  */
    42. 

  42. class Form
    43. 

  43. {
    44. 

  44. 	var $db;
    45. 

  45. 	var $error;
    46. 

  46. 

  47. 	// Cache arrays
    48. 

  48. 	var $cache_types_paiements=array();
    49. 

  49. 	var $cache_conditions_paiements=array();
    50. 

  50. 	var $cache_availability=array();
    51. 

  51. 	var $cache_demand_reason=array();
    52. 

  52. 	var $cache_type_fees=array();
    53. 

  53. 

  54. 	var $tva_taux_value;
    55. 

  55. 	var $tva_taux_libelle;
    56. 

  56. 

  57. 

  58. 	/**
    59. 

  59. 	 * Constructor
    60. 

  60. 	 *
    61. 

  61. 	 * @param		DoliDB		$db      Database handler
    62. 

  62. 	 */
    63. 

  63. 	public function __construct($db)
    64. 

  64. 	{
    65. 

  65. 		$this->db = $db;
    66. 

  66. 	}
    67. 

  67. 

  68. 	/**
    69. 

  69. 	 * Output key field for an editable field
    70. 

  70. 	 *
    71. 

  71. 	 * @param   string	$text			Text of label or key to translate
    72. 

  72. 	 * @param   string	$htmlname		Name of select field
    73. 

  73. 	 * @param   string	$preselected	Name of Value to show/edit (not used in this function)
    74. 

  74. 	 * @param	object	$object			Object
    75. 

  75. 	 * @param	boolean	$perm			Permission to allow button to edit parameter
    76. 

  76. 	 * @param	string	$typeofdata		Type of data ('string' by default, 'email', 'numeric:99', 'text' or 'textarea', 'day' or 'datepicker', 'ckeditor:dolibarr_zzz:width:height', 'select:xxx'...)
    77. 

  77. 	 * @return	string					HTML edit field
    78. 

  78. 	 */
    79. 

  79. 	function editfieldkey($text,$htmlname,$preselected,$object,$perm,$typeofdata='string')
    80. 

  80. 	{
    81. 

  81. 		global $conf,$langs;
    82. 

  82. 

  83. 		$ret='';
    84. 

  84. 

  85. 		if (! empty($conf->global->MAIN_USE_JQUERY_JEDITABLE))
    86. 

  86. 		{
    87. 

  87. 			if ($perm)
    88. 

  88. 			{
    89. 

  89. 				$tmp=explode(':',$typeofdata);
    90. 

  90. 				$ret.= '<div class="editkey_'.$tmp[0].'" id="'.$htmlname.'">';
    91. 

  91. 				$ret.= $langs->trans($text);
    92. 

  92. 				$ret.= '</div>'."\n";
    93. 

  93. 			}
    94. 

  94. 			else
    95. 

  95. 			{
    96. 

  96. 				$ret.= $langs->trans($text);
    97. 

  97. 			}
    98. 

  98. 		}
    99. 

  99. 		else
    100. 

  100. 		{
    101. 

  101. 			$ret.='<table class="nobordernopadding" width="100%"><tr><td nowrap="nowrap">';
    102. 

  102. 			$ret.=$langs->trans($text);
    103. 

  103. 			$ret.='</td>';
    104. 

  104. 			if (GETPOST('action') != 'edit'.$htmlname && $perm) $ret.='<td align="right"><a href="'.$_SERVER["PHP_SELF"].'?action=edit'.$htmlname.'&amp;id='.$object->id.'">'.img_edit($langs->trans('Edit'),1).'</a></td>';
    105. 

  105. 			$ret.='</tr></table>';
    106. 

  106. 		}
    107. 

  107. 

  108. 		return $ret;
    109. 

  109. 	}
    110. 

  110. 

  111. 	/**
    112. 

  112. 	 * Output val field for an editable field
    113. 

  113. 	 *
    114. 

  114. 	 * @param	string	$text			Text of label (not used in this function)
    115. 

  115. 	 * @param	string	$htmlname		Name of select field
    116. 

  116. 	 * @param	string	$value			Value to show/edit
    117. 

  117. 	 * @param	object	$object			Object
    118. 

  118. 	 * @param	boolean	$perm			Permission to allow button to edit parameter
    119. 

  119. 	 * @param	string	$typeofdata		Type of data ('string' by default, 'email', 'numeric:99', 'text' or 'textarea', 'day' or 'datepicker', 'ckeditor:dolibarr_zzz:width:height', 'select:xxx'...)
    120. 

  120. 	 * @param	string	$editvalue		When in edit mode, use this value as $value instead of value
    121. 

  121. 	 * @param	object	$extObject		External object
    122. 

  122. 	 * @return  string					HTML edit field
    123. 

  123. 	 */
    124. 

  124. 	function editfieldval($text,$htmlname,$value,$object,$perm,$typeofdata='string',$editvalue='',$extObject=false)
    125. 

  125. 	{
    126. 

  126. 		global $conf,$langs,$db;
    127. 

  127. 

  128. 		$ret='';
    129. 

  129. 

  130. 		// When option to edit inline is activated
    131. 

  131. 		if (! empty($conf->global->MAIN_USE_JQUERY_JEDITABLE))
    132. 

  132. 		{
    133. 

  133. 			$ret.=$this->editInPlace($object, $value, $htmlname, $perm, $typeofdata, $extObject);
    134. 

  134. 		}
    135. 

  135. 		else
    136. 

  136. 		{
    137. 

  137. 			if (GETPOST('action') == 'edit'.$htmlname)
    138. 

  138. 			{
    139. 

  139. 				$ret.="\n";
    140. 

  140. 				$ret.='<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
    141. 

  141. 				$ret.='<input type="hidden" name="action" value="set'.$htmlname.'">';
    142. 

  142. 				$ret.='<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    143. 

  143. 				$ret.='<input type="hidden" name="id" value="'.$object->id.'">';
    144. 

  144. 				$ret.='<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    145. 

  145. 				$ret.='<tr><td>';
    146. 

  146. 				if (preg_match('/^(string|email|numeric)/',$typeofdata))
    147. 

  147. 				{
    148. 

  148. 					$tmp=explode(':',$typeofdata);
    149. 

  149. 					$ret.='<input type="text" id="'.$htmlname.'" name="'.$htmlname.'" value="'.($editvalue?$editvalue:$value).'"'.($tmp[1]?' size="'.$tmp[1].'"':'').'>';
    150. 

  150. 				}
    151. 

  151. 				else if ($typeofdata == 'text' || $typeofdata == 'textarea' || $typeofdata == 'note')
    152. 

  152. 				{
    153. 

  153. 					$ret.='<textarea id="'.$htmlname.'" name="'.$htmlname.'" wrap="soft" cols="70">'.($editvalue?$editvalue:$value).'</textarea>';
    154. 

  154. 				}
    155. 

  155. 				else if ($typeofdata == 'day' || $typeofdata == 'datepicker')
    156. 

  156. 				{
    157. 

  157. 					$ret.=$this->form_date($_SERVER['PHP_SELF'].'?id='.$object->id,$value,$htmlname);
    158. 

  158. 				}
    159. 

  159. 				else if (preg_match('/^ckeditor/',$typeofdata))
    160. 

  160. 				{
    161. 

  161. 					$tmp=explode(':',$typeofdata);
    162. 

  162. 					require_once(DOL_DOCUMENT_ROOT."/core/class/doleditor.class.php");
    163. 

  163. 					$doleditor=new DolEditor($htmlname,($editvalue?$editvalue:$value),($tmp[2]?$tmp[2]:''),($tmp[3]?$tmp[3]:'100'),($tmp[1]?$tmp[1]:'dolibarr_notes'),'In',false,true,true);
    164. 

  164. 					$ret.=$doleditor->Create(1);
    165. 

  165. 				}
    166. 

  166. 				$ret.='</td>';
    167. 

  167. 				if ($typeofdata != 'day' && $typeofdata != 'datepicker') $ret.='<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    168. 

  168. 				$ret.='</tr></table>'."\n";
    169. 

  169. 				$ret.='</form>'."\n";
    170. 

  170. 			}
    171. 

  171. 			else
    172. 

  172. 			{
    173. 

  173. 				if ($typeofdata == 'email')   $ret.=dol_print_email($value,0,0,0,0,1);
    174. 

  174. 				elseif ($typeofdata == 'day' || $typeofdata == 'datepicker') $ret.=dol_print_date($value,'day');
    175. 

  175. 				elseif ($typeofdata == 'text' || $typeofdata == 'textarea')  $ret.=dol_htmlentitiesbr($value);
    176. 

  176. 				else if (preg_match('/^ckeditor/',$typeofdata))
    177. 

  177. 				{
    178. 

  178. 					$tmpcontent=dol_htmlentitiesbr($value);
    179. 

  179. 					$firstline=preg_replace('/<br>.*/','',$tmpcontent);
    180. 

  180. 					$firstline=preg_replace('/[\n\r].*/','',$firstline);
    181. 

  181. 					$ret.=$firstline.((strlen($firstline) != strlen($tmpcontent))?'...':'');
    182. 

  182. 				}
    183. 

  183. 				else $ret.=$value;
    184. 

  184. 			}
    185. 

  185. 		}
    186. 

  186. 		return $ret;
    187. 

  187. 	}
    188. 

  188. 

  189. 	/**
    190. 

  190. 	 * Output edit in place form
    191. 

  191. 	 *
    192. 

  192.      * @param	object	$object			Object
    193. 

  193.      * @param	string	$value			Value to show/edit
    194. 

  194.      * @param	string	$htmlname		DIV ID (field name)
    195. 

  195.      * @param	int		$condition		Condition to edit
    196. 

  196.      * @param	string	$inputType		Type of input ('numeric', 'datepicker', 'textarea', 'ckeditor:dolibarr_zzz', 'select:xxx')
    197. 

  197.      * @param	object	$extObject		External object
    198. 

  198.      * @return	string   		      	HTML edit in place
    199. 

  199.      */
    200. 

  200. 	private function editInPlace($object, $value, $htmlname, $condition, $inputType='textarea', $extObject=false)
    201. 

  201. 	{
    202. 

  202. 		global $conf;
    203. 

  203. 

  204. 		$out='';
    205. 

  205. 

  206. 		// Check parameters
    207. 

  207. 		if ($inputType == 'textarea') $value = dol_nl2br($value);
    208. 

  208. 		else if (preg_match('/^numeric/',$inputType)) $value = price($value);
    209. 

  209. 		else if ($inputType == 'datepicker') $value = dol_print_date($value, 'day');
    210. 

  210. 

  211. 		if ($condition)
    212. 

  212. 		{
    213. 

  213. 			$element = false;
    214. 

  214. 			$table_element = false;
    215. 

  215. 			$fk_element = false;
    216. 

  216. 			$loadmethod = false;
    217. 

  217. 			$savemethod = false;
    218. 

  218. 			$ext_element = false;
    219. 

  219. 			//$ext_table_element = false;
    220. 

  220. 			//$ext_fk_element = false;
    221. 

  221. 

  222. 			if (is_object($object))
    223. 

  223. 			{
    224. 

  224. 				$element = $object->element;
    225. 

  225. 				$table_element = $object->table_element;
    226. 

  226. 				$fk_element = $object->id;
    227. 

  227. 			}
    228. 

  228. 

  229. 			if (is_object($extObject))
    230. 

  230. 			{
    231. 

  231. 				$ext_element = $extObject->element;
    232. 

  232. 				//$ext_table_element = $extObject->table_element;
    233. 

  233. 				//$ext_fk_element = $extObject->id;
    234. 

  234. 			}
    235. 

  235. 

  236. 			if (preg_match('/^(string|email|numeric)/',$inputType))
    237. 

  237. 			{
    238. 

  238. 				$tmp=explode(':',$inputType);
    239. 

  239. 				$inputType=$tmp[0]; $inputOption=$tmp[1];
    240. 

  240. 				if (! empty($tmp[2])) $savemethod=$tmp[2];
    241. 

  241. 			}
    242. 

  242. 			if (preg_match('/^datepicker/',$inputType))
    243. 

  243. 			{
    244. 

  244. 				$tmp=explode(':',$inputType);
    245. 

  245. 				$inputType=$tmp[0]; $inputOption=$tmp[1];
    246. 

  246. 				if (! empty($tmp[2])) $savemethod=$tmp[2];
    247. 

  247. 

  248. 				$out.= '<input id="timestamp" type="hidden"/>'."\n"; // Use for timestamp format
    249. 

  249. 			}
    250. 

  250. 			else if (preg_match('/^select/',$inputType))
    251. 

  251. 			{
    252. 

  252. 				$tmp=explode(':',$inputType);
    253. 

  253. 				$inputType=$tmp[0]; $loadmethod=$tmp[1];
    254. 

  254. 				if (! empty($tmp[2])) $savemethod=$tmp[2];
    255. 

  255. 			}
    256. 

  256. 			else if (preg_match('/^ckeditor/',$inputType))
    257. 

  257. 			{
    258. 

  258. 				$tmp=explode(':',$inputType);
    259. 

  259. 				$inputType=$tmp[0]; $toolbar=$tmp[1];
    260. 

  260. 				if (! empty($tmp[2])) $width=$tmp[2];
    261. 

  261. 				if (! empty($tmp[3])) $heigth=$tmp[3];
    262. 

  262. 				if (! empty($tmp[4])) $savemethod=$tmp[4];
    263. 

  263. 

  264. 				if (! empty($conf->fckeditor->enabled))
    265. 

  265. 				{
    266. 

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

  267. 				}
    268. 

  268. 				else
    269. 

  269. 				{
    270. 

  270. 					$inputType = 'textarea';
    271. 

  271. 				}
    272. 

  272. 			}
    273. 

  273. 

  274. 			$out.= '<input id="element_'.$htmlname.'" value="'.$element.'" type="hidden"/>'."\n";
    275. 

  275. 			$out.= '<input id="table_element_'.$htmlname.'" value="'.$table_element.'" type="hidden"/>'."\n";
    276. 

  276. 			$out.= '<input id="fk_element_'.$htmlname.'" value="'.$fk_element.'" type="hidden"/>'."\n";
    277. 

  277. 			$out.= '<input id="loadmethod_'.$htmlname.'" value="'.$loadmethod.'" type="hidden"/>'."\n";
    278. 

  278. 			$out.= '<input id="savemethod_'.$htmlname.'" value="'.$savemethod.'" type="hidden"/>'."\n";
    279. 

  279. 			$out.= '<input id="ext_element_'.$htmlname.'" value="'.$ext_element.'" type="hidden"/>'."\n";
    280. 

  280. 			//$out.= '<input id="ext_table_element_'.$htmlname.'" value="'.$ext_table_element.'" type="hidden"/>'."\n";
    281. 

  281. 			//$out.= '<input id="ext_fk_element_'.$htmlname.'" value="'.$ext_fk_element.'" type="hidden"/>'."\n";
    282. 

  282. 

  283. 			$out.= '<div id="val_'.$htmlname.'" class="editval_'.$inputType.'">'.$value.'</div>'."\n";
    284. 

  284. 		}
    285. 

  285. 		else
    286. 

  286. 		{
    287. 

  287. 			$out = $value;
    288. 

  288. 		}
    289. 

  289. 

  290. 		return $out;
    291. 

  291. 	}
    292. 

  292. 

  293. 	/**
    294. 

  294. 	 *	Show a text and picto with tooltip on text or picto
    295. 

  295. 	 *
    296. 

  296. 	 *	@param	string		$text				Text to show
    297. 

  297. 	 *	@param	string		$htmltext			Content html of tooltip. Must be HTML/UTF8 encoded.
    298. 

  298. 	 *	@param	int			$tooltipon			1=tooltip sur texte, 2=tooltip sur picto, 3=tooltip sur les 2
    299. 

  299. 	 *	@param	int			$direction			-1=Le picto est avant, 0=pas de picto, 1=le picto est apres
    300. 

  300. 	 *	@param	string		$img				Code img du picto (use img_xxx() function to get it)
    301. 

  301. 	 *	@param	string		$extracss			Add a CSS style to td tags
    302. 

  302. 	 *	@param	int			$notabs				Do not include table and tr tags
    303. 

  303. 	 *	@param	string		$incbefore			Include code before the text
    304. 

  304. 	 *	@param	int			$noencodehtmltext	Do not encode into html entity the htmltext
    305. 

  305. 	 *	@return	string							Code html du tooltip (texte+picto)
    306. 

  306. 	 *	@see	Use function textwithpicto if you can.
    307. 

  307. 	 */
    308. 

  308. 	function textwithtooltip($text,$htmltext,$tooltipon=1,$direction=0,$img='',$extracss='',$notabs=0,$incbefore='',$noencodehtmltext=0)
    309. 

  309. 	{
    310. 

  310. 		global $conf;
    311. 

  311. 

  312. 		if ($incbefore) $text = $incbefore.$text;
    313. 

  313. 		if (! $htmltext) return $text;
    314. 

  314. 

  315. 		// Sanitize tooltip
    316. 

  316. 		$htmltext=str_replace("\\","\\\\",$htmltext);
    317. 

  317. 		$htmltext=str_replace("\r","",$htmltext);
    318. 

  318. 		$htmltext=str_replace("\n","",$htmltext);
    319. 

  319. 

  320. 		$htmltext=str_replace('"',"&quot;",$htmltext);
    321. 

  321. 		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
    322. 

  322. 		else $paramfortooltipimg =($extracss?' class="'.$extracss.'"':''); // Attribut to put on td text tag
    323. 

  323. 		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
    324. 

  324. 		else $paramfortooltiptd =($extracss?' class="'.$extracss.'"':''); // Attribut to put on td text tag
    325. 

  325. 

  326. 		$s="";
    327. 

  327. 		if (empty($notabs)) $s.='<table class="nobordernopadding" summary=""><tr>';
    328. 

  328. 		if ($direction > 0)
    329. 

  329. 		{
    330. 

  330. 			if ($text != '')
    331. 

  331. 			{
    332. 

  332. 				$s.='<td'.$paramfortooltiptd.'>'.$text;
    333. 

  333. 				if ($direction) $s.='&nbsp;';
    334. 

  334. 				$s.='</td>';
    335. 

  335. 			}
    336. 

  336. 			if ($direction) $s.='<td'.$paramfortooltipimg.' valign="top" width="14">'.$img.'</td>';
    337. 

  337. 		}
    338. 

  338. 		else
    339. 

  339. 		{
    340. 

  340. 			if ($direction) $s.='<td'.$paramfortooltipimg.' valign="top" width="14">'.$img.'</td>';
    341. 

  341. 			if ($text != '')
    342. 

  342. 			{
    343. 

  343. 				$s.='<td'.$paramfortooltiptd.'>';
    344. 

  344. 				if ($direction) $s.='&nbsp;';
    345. 

  345. 				$s.=$text.'</td>';
    346. 

  346. 			}
    347. 

  347. 		}
    348. 

  348. 		if (empty($notabs)) $s.='</tr></table>';
    349. 

  349. 

  350. 		return $s;
    351. 

  351. 	}
    352. 

  352. 

  353.     /**
    354. 

  354.      *	Show a text with a picto and a tooltip on picto
    355. 

  355.      *
    356. 

  356.      *	@param     	text				Text to show
    357. 

  357.      *	@param   	htmltooltip     	Content of tooltip
    358. 

  358.      *	@param		direction			1=Icon is after text, -1=Icon is before text, 0=no icon
    359. 

  359.      * 	@param		type				Type of picto (info, help, warning, superadmin...)
    360. 

  360.      *  @param  	extracss            Add a CSS style to td tags
    361. 

  361.      *  @param      noencodehtmltext    Do not encode into html entity the htmltext
    362. 

  362.      * 	@return		string				HTML code of text, picto, tooltip
    363. 

  363.      */
    364. 

  364.     function textwithpicto($text,$htmltext,$direction=1,$type='help',$extracss='',$noencodehtmltext=0)
    365. 

  365.     {
    366. 

  366.         global $conf;
    367. 

  367. 

  368.         if ("$type" == "0") $type='info';	// For backward compatibility
    369. 

  369. 

  370.         $alt='';
    371. 

  371.         // If info or help with no javascript, show only text
    372. 

  372.         if (empty($conf->use_javascript_ajax))
    373. 

  373.         {
    374. 

  374.             if ($type == 'info' || $type == 'help')	return $text;
    375. 

  375.             else { $alt=$htmltext; $htmltext=''; }
    376. 

  376.         }
    377. 

  377.         // If info or help with smartphone, show only text
    378. 

  378.         if (! empty($conf->browser->phone))
    379. 

  379.         {
    380. 

  380.             if ($type == 'info' || $type == 'help') return $text;
    381. 

  381.         }
    382. 

  382.         // Info or help
    383. 

  383.         if ($type == 'info') 				$img=img_help(0,$alt);
    384. 

  384.         if ($type == 'help' || $type ==1)	$img=img_help(1,$alt);
    385. 

  385.         if ($type == 'superadmin') 			$img=img_picto($alt,"redstar");
    386. 

  386.         if ($type == 'admin')				$img=img_picto($alt,"star");
    387. 

  387.         // Warnings
    388. 

  388.         if ($type == 'warning') 			$img=img_warning($alt);
    389. 

  389. 

  390.         return $this->textwithtooltip($text,$htmltext,2,$direction,$img,$extracss,0,'',$noencodehtmltext);
    391. 

  391.     }
    392. 

  392. 

  393.     /**
    394. 

  394.      *    Return combo list of activated countries, into language of user
    395. 

  395.      *
    396. 

  396.      *    @param     selected         Id or Code or Label of preselected country
    397. 

  397.      *    @param     htmlname         Name of html select object
    398. 

  398.      *    @param     htmloption       Options html on select object
    399. 

  399.      */
    400. 

  400.     function select_pays($selected='',$htmlname='pays_id',$htmloption='')
    401. 

  401.     {
    402. 

  402.     	print $this->select_country($selected,$htmlname,$htmloption);
    403. 

  403.     }
    404. 

  404. 

  405.     /**
    406. 

  406.      *    Return combo list of activated countries, into language of user
    407. 

  407.      *
    408. 

  408.      *    @param     selected         Id or Code or Label of preselected country
    409. 

  409.      *    @param     htmlname         Name of html select object
    410. 

  410.      *    @param     htmloption       Options html on select object
    411. 

  411.      *    @return    string           HTML string with select
    412. 

  412.      */
    413. 

  413.     function select_country($selected='',$htmlname='pays_id',$htmloption='')
    414. 

  414.     {
    415. 

  415.         global $conf,$langs;
    416. 

  416. 

  417.         $langs->load("dict");
    418. 

  418. 

  419.         $out='';
    420. 

  420.         $countryArray=array();
    421. 

  421.         $label=array();
    422. 

  422. 

  423.         $sql = "SELECT rowid, code as code_iso, libelle as label";
    424. 

  424.         $sql.= " FROM ".MAIN_DB_PREFIX."c_pays";
    425. 

  425.         $sql.= " WHERE active = 1";
    426. 

  426.         $sql.= " ORDER BY code ASC";
    427. 

  427. 

  428.         dol_syslog("Form::select_country sql=".$sql);
    429. 

  429.         $resql=$this->db->query($sql);
    430. 

  430.         if ($resql)
    431. 

  431.         {
    432. 

  432.             $out.= '<select id="select'.$htmlname.'" class="flat selectpays" name="'.$htmlname.'" '.$htmloption.'>';
    433. 

  433.             $num = $this->db->num_rows($resql);
    434. 

  434.             $i = 0;
    435. 

  435.             if ($num)
    436. 

  436.             {
    437. 

  437.                 $foundselected=false;
    438. 

  438. 

  439.             	while ($i < $num)
    440. 

  440.             	{
    441. 

  441.                     $obj = $this->db->fetch_object($resql);
    442. 

  442.                     $countryArray[$i]['rowid'] 		= $obj->rowid;
    443. 

  443.                     $countryArray[$i]['code_iso'] 	= $obj->code_iso;
    444. 

  444.                     $countryArray[$i]['label']		= ($obj->code_iso && $langs->transnoentitiesnoconv("Country".$obj->code_iso)!="Country".$obj->code_iso?$langs->transnoentitiesnoconv("Country".$obj->code_iso):($obj->label!='-'?$obj->label:''));
    445. 

  445.                 	$label[$i] 	= $countryArray[$i]['label'];
    446. 

  446.                     $i++;
    447. 

  447.                 }
    448. 

  448. 

  449.                 array_multisort($label, SORT_ASC, $countryArray);
    450. 

  450. 

  451.                 foreach ($countryArray as $row)
    452. 

  452.                 {
    453. 

  453. 					//print 'rr'.$selected.'-'.$row['label'].'-'.$row['code_iso'].'<br>';
    454. 

  454.                 	if ($selected && $selected != '-1' && ($selected == $row['rowid'] || $selected == $row['code_iso'] || $selected == $row['label']) )
    455. 

  455.                 	{
    456. 

  456.                 		$foundselected=true;
    457. 

  457.                         $out.= '<option value="'.$row['rowid'].'" selected="selected">';
    458. 

  458.                     }
    459. 

  459.                     else
    460. 

  460.                     {
    461. 

  461.                         $out.= '<option value="'.$row['rowid'].'">';
    462. 

  462.                     }
    463. 

  463.                     $out.= $row['label'];
    464. 

  464.                     if ($row['code_iso']) $out.= ' ('.$row['code_iso'] . ')';
    465. 

  465.                     $out.= '</option>';
    466. 

  466.                 }
    467. 

  467.             }
    468. 

  468.             $out.= '</select>';
    469. 

  469.         }
    470. 

  470.         else
    471. 

  471.         {
    472. 

  472.             dol_print_error($this->db);
    473. 

  473.         }
    474. 

  474. 

  475.         return $out;
    476. 

  476.     }
    477. 

  477. 

  478. 

  479.     /**
    480. 

  480.      *    Retourne la liste des types de comptes financiers
    481. 

  481.      *
    482. 

  482.      *    @param      selected        Type pre-selectionne
    483. 

  483.      *    @param      htmlname        Nom champ formulaire
    484. 

  484.      */
    485. 

  485.     function select_type_comptes_financiers($selected=1,$htmlname='type')
    486. 

  486.     {
    487. 

  487.         global $langs;
    488. 

  488.         $langs->load("banks");
    489. 

  489. 

  490.         $type_available=array(0,1,2);
    491. 

  491. 

  492.         print '<select class="flat" name="'.$htmlname.'">';
    493. 

  493.         $num = count($type_available);
    494. 

  494.         $i = 0;
    495. 

  495.         if ($num)
    496. 

  496.         {
    497. 

  497.             while ($i < $num)
    498. 

  498.             {
    499. 

  499.                 if ($selected == $type_available[$i])
    500. 

  500.                 {
    501. 

  501.                     print '<option value="'.$type_available[$i].'" selected="selected">'.$langs->trans("BankType".$type_available[$i]).'</option>';
    502. 

  502.                 }
    503. 

  503.                 else
    504. 

  504.                 {
    505. 

  505.                     print '<option value="'.$type_available[$i].'">'.$langs->trans("BankType".$type_available[$i]).'</option>';
    506. 

  506.                 }
    507. 

  507.                 $i++;
    508. 

  508.             }
    509. 

  509.         }
    510. 

  510.         print '</select>';
    511. 

  511.     }
    512. 

  512. 

  513. 

  514.     /**
    515. 

  515.      *		Return list of social contributions.
    516. 

  516.      * 		Use mysoc->pays_id or mysoc->pays_code so they must be defined.
    517. 

  517.      *
    518. 

  518.      *		@param      selected        Preselected type
    519. 

  519.      *		@param      htmlname        Name of field in form
    520. 

  520.      * 		@param		useempty		Set to 1 if we want an empty value
    521. 

  521.      * 		@param		maxlen			Max length of text in combo box
    522. 

  522.      * 		@param		help			Add or not the admin help picto
    523. 

  523.      */
    524. 

  524.     function select_type_socialcontrib($selected='',$htmlname='actioncode', $useempty=0, $maxlen=40, $help=1)
    525. 

  525.     {
    526. 

  526.         global $db,$langs,$user,$mysoc;
    527. 

  527. 

  528.         if (empty($mysoc->pays_id) && empty($mysoc->pays_code))
    529. 

  529.         {
    530. 

  530.             dol_print_error('','Call to select_type_socialcontrib with mysoc country not yet defined');
    531. 

  531.             exit;
    532. 

  532.         }
    533. 

  533. 

  534.         if (! empty($mysoc->pays_id))
    535. 

  535.         {
    536. 

  536.             $sql = "SELECT c.id, c.libelle as type";
    537. 

  537.             $sql.= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c";
    538. 

  538.             $sql.= " WHERE c.active = 1";
    539. 

  539.             $sql.= " AND c.fk_pays = ".$mysoc->pays_id;
    540. 

  540.             $sql.= " ORDER BY c.libelle ASC";
    541. 

  541.         }
    542. 

  542.         else
    543. 

  543.         {
    544. 

  544.             $sql = "SELECT c.id, c.libelle as type";
    545. 

  545.             $sql.= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."c_pays as p";
    546. 

  546.             $sql.= " WHERE c.active = 1 AND c.fk_pays = p.rowid";
    547. 

  547.             $sql.= " AND p.code = '".$mysoc->pays_code."'";
    548. 

  548.             $sql.= " ORDER BY c.libelle ASC";
    549. 

  549.         }
    550. 

  550. 

  551.         dol_syslog("Form::select_type_socialcontrib sql=".$sql, LOG_DEBUG);
    552. 

  552.         $resql=$db->query($sql);
    553. 

  553.         if ($resql)
    554. 

  554.         {
    555. 

  555.             $num = $db->num_rows($resql);
    556. 

  556.             if ($num)
    557. 

  557.             {
    558. 

  558.                 print '<select class="flat" name="'.$htmlname.'">';
    559. 

  559.                 $i = 0;
    560. 

  560. 

  561.                 if ($useempty) print '<option value="0">&nbsp;</option>';
    562. 

  562.                 while ($i < $num)
    563. 

  563.                 {
    564. 

  564.                     $obj = $db->fetch_object($resql);
    565. 

  565.                     print '<option value="'.$obj->id.'"';
    566. 

  566.                     if ($obj->id == $selected) print ' selected="selected"';
    567. 

  567.                     print '>'.dol_trunc($obj->type,$maxlen);
    568. 

  568.                     $i++;
    569. 

  569.                 }
    570. 

  570.                 print '</select>';
    571. 

  571.                 if ($user->admin && $help) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    572. 

  572.             }
    573. 

  573.             else
    574. 

  574.             {
    575. 

  575.                 print $langs->trans("ErrorNoSocialContributionForSellerCountry",$mysoc->pays_code);
    576. 

  576.             }
    577. 

  577.         }
    578. 

  578.         else
    579. 

  579.         {
    580. 

  580.             dol_print_error($db,$db->lasterror());
    581. 

  581.         }
    582. 

  582.     }
    583. 

  583. 

  584.     /**
    585. 

  585.      *		Return list of types of lines (product or service)
    586. 

  586.      * 		Example: 0=product, 1=service, 9=other (for external module)
    587. 

  587.      *
    588. 

  588.      *		@param      selected        Preselected type
    589. 

  589.      *		@param      htmlname        Name of field in html form
    590. 

  590.      * 		@param		showempty		Add an empty field
    591. 

  591.      * 		@param		hidetext		Do not show label before combo box
    592. 

  592.      * 		@param		forceall		Force to show products and services in combo list, whatever are activated modules
    593. 

  593.      */
    594. 

  594.     function select_type_of_lines($selected='',$htmlname='type',$showempty=0,$hidetext=0,$forceall=0)
    595. 

  595.     {
    596. 

  596.         global $db,$langs,$user,$conf;
    597. 

  597. 

  598.         // If product & services are enabled or both disabled.
    599. 

  599.         if ($forceall || ($conf->product->enabled && $conf->service->enabled)
    600. 

  600.         || (empty($conf->product->enabled) && empty($conf->service->enabled)))
    601. 

  601.         {
    602. 

  602.             if (empty($hidetext)) print $langs->trans("Type").': ';
    603. 

  603.             print '<select class="flat" name="'.$htmlname.'">';
    604. 

  604.             if ($showempty)
    605. 

  605.             {
    606. 

  606.                 print '<option value="-1"';
    607. 

  607.                 if ($selected == -1) print ' selected="selected"';
    608. 

  608.                 print '>&nbsp;</option>';
    609. 

  609.             }
    610. 

  610. 

  611.             print '<option value="0"';
    612. 

  612.             if (0 == $selected) print ' selected="selected"';
    613. 

  613.             print '>'.$langs->trans("Product");
    614. 

  614. 

  615.             print '<option value="1"';
    616. 

  616.             if (1 == $selected) print ' selected="selected"';
    617. 

  617.             print '>'.$langs->trans("Service");
    618. 

  618. 

  619.             print '</select>';
    620. 

  620.             //if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    621. 

  621.         }
    622. 

  622.         if (! $forceall && empty($conf->product->enabled) && $conf->service->enabled)
    623. 

  623.         {
    624. 

  624.             print '<input type="hidden" name="'.$htmlname.'" value="1">';
    625. 

  625.         }
    626. 

  626.         if (! $forceall && $conf->product->enabled && empty($conf->service->enabled))
    627. 

  627.         {
    628. 

  628.             print '<input type="hidden" name="'.$htmlname.'" value="0">';
    629. 

  629.         }
    630. 

  630. 

  631.     }
    632. 

  632. 

  633.     /**
    634. 

  634.      *	Load into cache cache_types_fees, array of types of fees
    635. 

  635.      *
    636. 

  636.      *	@return     int             Nb of lines loaded, 0 if already loaded, <0 if ko
    637. 

  637.      *	TODO move in DAO class
    638. 

  638.      */
    639. 

  639.     function load_cache_types_fees()
    640. 

  640.     {
    641. 

  641.     	global $langs;
    642. 

  642. 

  643.     	$langs->load("trips");
    644. 

  644. 

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

  646. 

  647.     	$sql = "SELECT c.code, c.libelle as label";
    648. 

  648.     	$sql.= " FROM ".MAIN_DB_PREFIX."c_type_fees as c";
    649. 

  649.     	$sql.= " ORDER BY lower(c.libelle) ASC";
    650. 

  650. 

  651.     	dol_syslog(get_class($this).'::load_cache_types_fees sql='.$sql, LOG_DEBUG);
    652. 

  652.     	$resql=$this->db->query($sql);
    653. 

  653.     	if ($resql)
    654. 

  654.     	{
    655. 

  655.     		$num = $this->db->num_rows($resql);
    656. 

  656.     		$i = 0;
    657. 

  657. 

  658.     		while ($i < $num)
    659. 

  659.     		{
    660. 

  660.     			$obj = $this->db->fetch_object($resql);
    661. 

  661. 

  662.     			// Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
    663. 

  663.     			$label=($obj->code != $langs->trans($obj->code) ? $langs->trans($obj->code) : $langs->trans($obj->label));
    664. 

  664.     			$this->cache_types_fees[$obj->code] = $label;
    665. 

  665.     			$i++;
    666. 

  666.     		}
    667. 

  667.     		return $num;
    668. 

  668.     	}
    669. 

  669.     	else
    670. 

  670.     	{
    671. 

  671.     		dol_print_error($this->db);
    672. 

  672.     		return -1;
    673. 

  673.     	}
    674. 

  674.     }
    675. 

  675. 

  676.     /**
    677. 

  677.      *	Return list of types of notes
    678. 

  678.      *
    679. 

  679.      *	@param      string		$selected		Preselected type
    680. 

  680.      *	@param      string		$htmlname		Name of field in form
    681. 

  681.      * 	@param		int			$showempty		Add an empty field
    682. 

  682.      * 	@return		void
    683. 

  683.      */
    684. 

  684.     function select_type_fees($selected='',$htmlname='type',$showempty=0)
    685. 

  685.     {
    686. 

  686.         global $user, $langs;
    687. 

  687. 

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

  689. 

  690.         $this->load_cache_types_fees();
    691. 

  691. 

  692.         print '<select class="flat" name="'.$htmlname.'">';
    693. 

  693.         if ($showempty)
    694. 

  694.         {
    695. 

  695.             print '<option value="-1"';
    696. 

  696.             if ($selected == -1) print ' selected="selected"';
    697. 

  697.             print '>&nbsp;</option>';
    698. 

  698.         }
    699. 

  699. 

  700.         foreach($this->cache_types_fees as $key => $value)
    701. 

  701.         {
    702. 

  702.         	print '<option value="'.$key.'"';
    703. 

  703.         	if ($key == $selected) print ' selected="selected"';
    704. 

  704.         	print '>';
    705. 

  705.         	print $value;
    706. 

  706.         	print '</option>';
    707. 

  707.         }
    708. 

  708. 

  709.         print '</select>';
    710. 

  710.         if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    711. 

  711.     }
    712. 

  712. 

  713.     /**
    714. 

  714.      *    	Output html form to select a third party
    715. 

  715.      *
    716. 

  716.      *		@param      selected        Preselected type
    717. 

  717.      *		@param      htmlname        Name of field in form
    718. 

  718.      *    	@param      filter          Optionnal filters criteras
    719. 

  719.      *		@param		showempty		Add an empty field
    720. 

  720.      * 		@param		showtype		Show third party type in combolist (customer, prospect or supplier)
    721. 

  721.      * 		@param		forcecombo		Force to use combo box
    722. 

  722.      */
    723. 

  723.     function select_societes($selected='',$htmlname='socid',$filter='',$showempty=0, $showtype=0, $forcecombo=0)
    724. 

  724.     {
    725. 

  725.     	print $this->select_company($selected,$htmlname,$filter,$showempty,$showtype,$forcecombo);
    726. 

  726.     }
    727. 

  727. 

  728.     /**
    729. 

  729.      *    	Output html form to select a third party
    730. 

  730.      *
    731. 

  731.      *		@param      selected        Preselected type
    732. 

  732.      *		@param      htmlname        Name of field in form
    733. 

  733.      *    	@param      filter          Optionnal filters criteras
    734. 

  734.      *		@param		showempty		Add an empty field
    735. 

  735.      * 		@param		showtype		Show third party type in combolist (customer, prospect or supplier)
    736. 

  736.      * 		@param		forcecombo		Force to use combo box
    737. 

  737.      */
    738. 

  738.     function select_company($selected='',$htmlname='socid',$filter='',$showempty=0, $showtype=0, $forcecombo=0)
    739. 

  739.     {
    740. 

  740.         global $conf,$user,$langs;
    741. 

  741. 

  742.         $out='';
    743. 

  743. 

  744.         // On recherche les societes
    745. 

  745.         $sql = "SELECT s.rowid, s.nom, s.client, s.fournisseur, s.code_client, s.code_fournisseur";
    746. 

  746.         $sql.= " FROM ".MAIN_DB_PREFIX ."societe as s";
    747. 

  747.         if (!$user->rights->societe->client->voir && !$user->societe_id) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
    748. 

  748.         $sql.= " WHERE s.entity = ".$conf->entity;
    749. 

  749.         if ($filter) $sql.= " AND ".$filter;
    750. 

  750.         if (!$user->rights->societe->client->voir && !$user->societe_id) $sql.= " AND s.rowid = sc.fk_soc AND sc.fk_user = " .$user->id;
    751. 

  751.         $sql.= " ORDER BY nom ASC";
    752. 

  752. 

  753.         dol_syslog("Form::select_societes sql=".$sql);
    754. 

  754.         $resql=$this->db->query($sql);
    755. 

  755.         if ($resql)
    756. 

  756.         {
    757. 

  757.             if ($conf->use_javascript_ajax && $conf->global->COMPANY_USE_SEARCH_TO_SELECT && ! $forcecombo)
    758. 

  758.             {
    759. 

  759.                 //$minLength = (is_numeric($conf->global->COMPANY_USE_SEARCH_TO_SELECT)?$conf->global->COMPANY_USE_SEARCH_TO_SELECT:2);
    760. 

  760. 

  761.             	$out.= ajax_combobox($htmlname);
    762. 

  762.             }
    763. 

  763. 

  764.             $out.= '<select id="'.$htmlname.'" class="flat" name="'.$htmlname.'">';
    765. 

  765.             if ($showempty) $out.= '<option value="-1">&nbsp;</option>';
    766. 

  766.             $num = $this->db->num_rows($resql);
    767. 

  767.             $i = 0;
    768. 

  768.             if ($num)
    769. 

  769.             {
    770. 

  770.                 while ($i < $num)
    771. 

  771.                 {
    772. 

  772.                     $obj = $this->db->fetch_object($resql);
    773. 

  773.                     $label=$obj->nom;
    774. 

  774.                     if ($showtype)
    775. 

  775.                     {
    776. 

  776.                         if ($obj->client || $obj->fournisseur) $label.=' (';
    777. 

  777.                         if ($obj->client == 1 || $obj->client == 3) $label.=$langs->trans("Customer");
    778. 

  778.                         if ($obj->client == 2 || $obj->client == 3) $label.=($obj->client==3?', ':'').$langs->trans("Prospect");
    779. 

  779.                         if ($obj->fournisseur) $label.=($obj->client?', ':'').$langs->trans("Supplier");
    780. 

  780.                         if ($obj->client || $obj->fournisseur) $label.=')';
    781. 

  781.                     }
    782. 

  782.                     if ($selected > 0 && $selected == $obj->rowid)
    783. 

  783.                     {
    784. 

  784.                         $out.= '<option value="'.$obj->rowid.'" selected="selected">'.$label.'</option>';
    785. 

  785.                     }
    786. 

  786.                     else
    787. 

  787.                     {
    788. 

  788.                         $out.= '<option value="'.$obj->rowid.'">'.$label.'</option>';
    789. 

  789.                     }
    790. 

  790.                     $i++;
    791. 

  791.                 }
    792. 

  792.             }
    793. 

  793.             $out.= '</select>';
    794. 

  794.         }
    795. 

  795.         else
    796. 

  796.         {
    797. 

  797.             dol_print_error($this->db);
    798. 

  798.         }
    799. 

  799. 

  800.         return $out;
    801. 

  801.     }
    802. 

  802. 

  803. 

  804.     /**
    805. 

  805.      *    	Return HTML combo list of absolute discounts
    806. 

  806.      *
    807. 

  807.      *    	@param      selected        Id remise fixe pre-selectionnee
    808. 

  808.      *    	@param      htmlname        Nom champ formulaire
    809. 

  809.      *    	@param      filter          Criteres optionnels de filtre
    810. 

  810.      * 		@param		maxvalue		Max value for lines that can be selected
    811. 

  811.      * 		@return		int				Return number of qualifed lines in list
    812. 

  812.      */
    813. 

  813.     function select_remises($selected='',$htmlname='remise_id',$filter='',$socid, $maxvalue=0)
    814. 

  814.     {
    815. 

  815.         global $langs,$conf;
    816. 

  816. 

  817.         // On recherche les remises
    818. 

  818.         $sql = "SELECT re.rowid, re.amount_ht, re.amount_tva, re.amount_ttc,";
    819. 

  819.         $sql.= " re.description, re.fk_facture_source";
    820. 

  820.         $sql.= " FROM ".MAIN_DB_PREFIX ."societe_remise_except as re";
    821. 

  821.         $sql.= " WHERE fk_soc = ".$socid;
    822. 

  822.         if ($filter) $sql.= " AND ".$filter;
    823. 

  823.         $sql.= " ORDER BY re.description ASC";
    824. 

  824. 

  825.         dol_syslog("Form::select_remises sql=".$sql);
    826. 

  826.         $resql=$this->db->query($sql);
    827. 

  827.         if ($resql)
    828. 

  828.         {
    829. 

  829.             print '<select class="flat" name="'.$htmlname.'">';
    830. 

  830.             $num = $this->db->num_rows($resql);
    831. 

  831. 

  832.             $qualifiedlines=$num;
    833. 

  833. 

  834.             $i = 0;
    835. 

  835.             if ($num)
    836. 

  836.             {
    837. 

  837.                 print '<option value="0">&nbsp;</option>';
    838. 

  838.                 while ($i < $num)
    839. 

  839.                 {
    840. 

  840.                     $obj = $this->db->fetch_object($resql);
    841. 

  841.                     $desc=dol_trunc($obj->description,40);
    842. 

  842.                     if ($desc=='(CREDIT_NOTE)') $desc=$langs->trans("CreditNote");
    843. 

  843.                     if ($desc=='(DEPOSIT)')     $desc=$langs->trans("Deposit");
    844. 

  844. 

  845.                     $selectstring='';
    846. 

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

  847. 

  848.                     $disabled='';
    849. 

  849.                     if ($maxvalue > 0 && $obj->amount_ttc > $maxvalue)
    850. 

  850.                     {
    851. 

  851.                         $qualifiedlines--;
    852. 

  852.                         $disabled=' disabled="disabled"';
    853. 

  853.                     }
    854. 

  854. 

  855.                     print '<option value="'.$obj->rowid.'"'.$selectstring.$disabled.'>'.$desc.' ('.price($obj->amount_ht).' '.$langs->trans("HT").' - '.price($obj->amount_ttc).' '.$langs->trans("TTC").')</option>';
    856. 

  856.                     $i++;
    857. 

  857.                 }
    858. 

  858.             }
    859. 

  859.             print '</select>';
    860. 

  860.             return $qualifiedlines;
    861. 

  861.         }
    862. 

  862.         else
    863. 

  863.         {
    864. 

  864.             dol_print_error($this->db);
    865. 

  865.             return -1;
    866. 

  866.         }
    867. 

  867.     }
    868. 

  868. 

  869. 

  870.     /**
    871. 

  871.      *    	Return list of all contacts (for a third party or all)
    872. 

  872.      *
    873. 

  873.      *    	@param      socid      	    Id ot third party or 0 for all
    874. 

  874.      *    	@param      selected   	    Id contact pre-selectionne
    875. 

  875.      *    	@param      htmlname  	    Name of HTML field ('none' for a not editable field)
    876. 

  876.      *      @param      show_empty      0=no empty value, 1=add an empty value
    877. 

  877.      *      @param      exclude         List of contacts id to exclude
    878. 

  878.      * 		@param		limitto			Disable answers that are not id in this array list
    879. 

  879.      * 	    @param		showfunction    Add function into label
    880. 

  880.      * 		@param		moreclass		Add more class to class style
    881. 

  881.      *		@return		int				<0 if KO, Nb of contact in list if OK
    882. 

  882.      */
    883. 

  883.     function select_contacts($socid,$selected='',$htmlname='contactid',$showempty=0,$exclude='',$limitto='',$showfunction=0, $moreclass='')
    884. 

  884.     {
    885. 

  885.         global $conf,$langs;
    886. 

  886. 

  887.         // On recherche les societes
    888. 

  888.         $sql = "SELECT s.rowid, s.name, s.firstname, s.poste FROM";
    889. 

  889.         $sql.= " ".MAIN_DB_PREFIX ."socpeople as s";
    890. 

  890.         $sql.= " WHERE entity = ".$conf->entity;
    891. 

  891.         if ($socid > 0) $sql.= " AND fk_soc=".$socid;
    892. 

  892.         $sql.= " ORDER BY s.name ASC";
    893. 

  893. 

  894.         dol_syslog("Form::select_contacts sql=".$sql);
    895. 

  895.         $resql=$this->db->query($sql);
    896. 

  896.         if ($resql)
    897. 

  897.         {
    898. 

  898.             $num=$this->db->num_rows($resql);
    899. 

  899.             if ($num == 0) return 0;
    900. 

  900. 

  901.             if ($htmlname != 'none') print '<select class="flat'.($moreclass?' '.$moreclass:'').'" id="'.$htmlname.'" name="'.$htmlname.'">';
    902. 

  902.             if ($showempty) print '<option value="0"></option>';
    903. 

  903.             $num = $this->db->num_rows($resql);
    904. 

  904.             $i = 0;
    905. 

  905.             if ($num)
    906. 

  906.             {
    907. 

  907.             	include_once(DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php');
    908. 

  908.                 $contactstatic=new Contact($this->db);
    909. 

  909. 

  910.                 while ($i < $num)
    911. 

  911.                 {
    912. 

  912.                     $obj = $this->db->fetch_object($resql);
    913. 

  913. 

  914.                     $contactstatic->id=$obj->rowid;
    915. 

  915.                     $contactstatic->name=$obj->name;
    916. 

  916.                     $contactstatic->firstname=$obj->firstname;
    917. 

  917. 

  918.                     if ($htmlname != 'none')
    919. 

  919.                     {
    920. 

  920.                         $disabled=0;
    921. 

  921.                         if (is_array($exclude) && count($exclude) && in_array($obj->rowid,$exclude)) $disabled=1;
    922. 

  922.                         if (is_array($limitto) && count($limitto) && ! in_array($obj->rowid,$limitto)) $disabled=1;
    923. 

  923.                         if ($selected && $selected == $obj->rowid)
    924. 

  924.                         {
    925. 

  925.                             print '<option value="'.$obj->rowid.'"';
    926. 

  926.                             if ($disabled) print ' disabled="disabled"';
    927. 

  927.                             print ' selected="selected">';
    928. 

  928.                             print $contactstatic->getFullName($langs);
    929. 

  929.                             if ($showfunction && $obj->poste) print ' ('.$obj->poste.')';
    930. 

  930.                             print '</option>';
    931. 

  931.                         }
    932. 

  932.                         else
    933. 

  933.                         {
    934. 

  934.                             print '<option value="'.$obj->rowid.'"';
    935. 

  935.                             if ($disabled) print ' disabled="disabled"';
    936. 

  936.                             print '>';
    937. 

  937.                             print $contactstatic->getFullName($langs);
    938. 

  938.                             if ($showfunction && $obj->poste) print ' ('.$obj->poste.')';
    939. 

  939.                             print '</option>';
    940. 

  940.                         }
    941. 

  941.                     }
    942. 

  942.                     else
    943. 

  943.                     {
    944. 

  944.                         if ($selected == $obj->rowid)
    945. 

  945.                         {
    946. 

  946.                             print $contactstatic->getFullName($langs);
    947. 

  947.                             if ($showfunction && $obj->poste) print ' ('.$obj->poste.')';
    948. 

  948.                         }
    949. 

  949.                     }
    950. 

  950.                     $i++;
    951. 

  951.                 }
    952. 

  952.             }
    953. 

  953.             if ($htmlname != 'none')
    954. 

  954.             {
    955. 

  955.                 print '</select>';
    956. 

  956.             }
    957. 

  957.             return $num;
    958. 

  958.         }
    959. 

  959.         else
    960. 

  960.         {
    961. 

  961.             dol_print_error($this->db);
    962. 

  962.             return -1;
    963. 

  963.         }
    964. 

  964.     }
    965. 

  965. 

  966.     /**
    967. 

  967.      *	Return select list of users
    968. 

  968.      *
    969. 

  969.      *  @param      selected        Id user preselected
    970. 

  970.      *  @param      htmlname        Field name in form
    971. 

  971.      *  @param      show_empty      0=liste sans valeur nulle, 1=ajoute valeur inconnue
    972. 

  972.      *  @param      exclude         Array list of users id to exclude
    973. 

  973.      * 	@param		disabled		If select list must be disabled
    974. 

  974.      *  @param      include         Array list of users id to include
    975. 

  975.      * 	@param		enableonly		Array list of users id to be enabled. All other must be disabled
    976. 

  976.      *  @param		force_entity	Possibility to force entity
    977. 

  977.      */
    978. 

  978.     function select_users($selected='',$htmlname='userid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='',$force_entity=0)
    979. 

  979.     {
    980. 

  980.     	print $this->select_dolusers($selected,$htmlname,$show_empty,$exclude,$disabled,$include,$enableonly,$force_entity);
    981. 

  981.     }
    982. 

  982. 

  983.     /**
    984. 

  984.      *	Return select list of users
    985. 

  985.      *
    986. 

  986.      *  @param      selected        User id or user object of user preselected. If -1, we use id of current user.
    987. 

  987.      *  @param      htmlname        Field name in form
    988. 

  988.      *  @param      show_empty      0=liste sans valeur nulle, 1=ajoute valeur inconnue
    989. 

  989.      *  @param      exclude         Array list of users id to exclude
    990. 

  990.      * 	@param		disabled		If select list must be disabled
    991. 

  991.      *  @param      include         Array list of users id to include
    992. 

  992.      * 	@param		enableonly		Array list of users id to be enabled. All other must be disabled
    993. 

  993.      *  @param		force_entity	Possibility to force entity
    994. 

  994.      */
    995. 

  995.     function select_dolusers($selected='',$htmlname='userid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='',$force_entity=0)
    996. 

  996.     {
    997. 

  997.         global $conf,$user,$langs;
    998. 

  998. 

  999.         // If no preselected user defined, we take current user
    1000. 

  1000.         if ($selected < -1 && empty($conf->global->SOCIETE_DISABLE_DEFAULT_SALESREPRESENTATIVE)) $selected=$user->id;
    1001. 

  1001. 

  1002.         // Permettre l'exclusion d'utilisateurs
    1003. 

  1003.         if (is_array($exclude))	$excludeUsers = implode("','",$exclude);
    1004. 

  1004.         // Permettre l'inclusion d'utilisateurs
    1005. 

  1005.         if (is_array($include))	$includeUsers = implode("','",$include);
    1006. 

  1006. 

  1007.         $out='';
    1008. 

  1008. 

  1009.         // On recherche les utilisateurs
    1010. 

  1010.         $sql = "SELECT u.rowid, u.name, u.firstname, u.login, u.admin, u.entity";
    1011. 

  1011.         if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
    1012. 

  1012.         {
    1013. 

  1013.         	$sql.= ", e.label";
    1014. 

  1014.         }
    1015. 

  1015.         $sql.= " FROM ".MAIN_DB_PREFIX ."user as u";
    1016. 

  1016.         if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
    1017. 

  1017.         {
    1018. 

  1018.             $sql.= " LEFT JOIN ".MAIN_DB_PREFIX ."entity as e on e.rowid=u.entity";
    1019. 

  1019.             if ($force_entity) $sql.= " WHERE u.entity IN (0,".$force_entity.")";
    1020. 

  1020.             else $sql.= " WHERE u.entity IS NOT NULL";
    1021. 

  1021.         }
    1022. 

  1022.         else
    1023. 

  1023.         {
    1024. 

  1024.         	$sql.= " WHERE u.entity IN (0,".$conf->entity.")";
    1025. 

  1025.         }
    1026. 

  1026.         if (is_array($exclude) && $excludeUsers) $sql.= " AND u.rowid NOT IN ('".$excludeUsers."')";
    1027. 

  1027.         if (is_array($include) && $includeUsers) $sql.= " AND u.rowid IN ('".$includeUsers."')";
    1028. 

  1028.         $sql.= " ORDER BY u.name ASC";
    1029. 

  1029. 

  1030.         dol_syslog("Form::select_dolusers sql=".$sql);
    1031. 

  1031.         $resql=$this->db->query($sql);
    1032. 

  1032.         if ($resql)
    1033. 

  1033.         {
    1034. 

  1034.             $num = $this->db->num_rows($resql);
    1035. 

  1035.             $i = 0;
    1036. 

  1036.             if ($num)
    1037. 

  1037.             {
    1038. 

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

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

  1040. 

  1041.             	$userstatic=new User($this->db);
    1042. 

  1042. 

  1043.                 while ($i < $num)
    1044. 

  1044.                 {
    1045. 

  1045.                     $obj = $this->db->fetch_object($resql);
    1046. 

  1046. 

  1047.                     $userstatic->id=$obj->rowid;
    1048. 

  1048.                     $userstatic->nom=$obj->name;
    1049. 

  1049.                     $userstatic->prenom=$obj->firstname;
    1050. 

  1050. 

  1051.                     $disableline=0;
    1052. 

  1052.                     if (is_array($enableonly) && count($enableonly) && ! in_array($obj->rowid,$enableonly)) $disableline=1;
    1053. 

  1053. 

  1054.                     if ((is_object($selected) && $selected->id == $obj->rowid) || (! is_object($selected) && $selected == $obj->rowid))
    1055. 

  1055.                     {
    1056. 

  1056.                         $out.= '<option value="'.$obj->rowid.'"';
    1057. 

  1057.                         if ($disableline) $out.= ' disabled="disabled"';
    1058. 

  1058.                         $out.= ' selected="selected">';
    1059. 

  1059.                     }
    1060. 

  1060.                     else
    1061. 

  1061.                     {
    1062. 

  1062.                         $out.= '<option value="'.$obj->rowid.'"';
    1063. 

  1063.                         if ($disableline) $out.= ' disabled="disabled"';
    1064. 

  1064.                         $out.= '>';
    1065. 

  1065.                     }
    1066. 

  1066.                     $out.= $userstatic->getFullName($langs);
    1067. 

  1067. 

  1068.                     if(! empty($conf->multicompany->enabled) && empty($conf->multicompany->transverse_mode) && $conf->entity == 1 && $user->admin && ! $user->entity)
    1069. 

  1069.                     {
    1070. 

  1070.                     	if ($obj->admin && ! $obj->entity) $out.=" (".$langs->trans("AllEntities").")";
    1071. 

  1071. 						else $out.=" (".$obj->label.")";
    1072. 

  1072.                     }
    1073. 

  1073. 

  1074.                     //if ($obj->admin) $out.= ' *';
    1075. 

  1075.                     if ($conf->global->MAIN_SHOW_LOGIN) $out.= ' ('.$obj->login.')';
    1076. 

  1076.                     $out.= '</option>';
    1077. 

  1077.                     $i++;
    1078. 

  1078.                 }
    1079. 

  1079.             }
    1080. 

  1080.         	else
    1081. 

  1081.             {
    1082. 

  1082.             	$out.= '<select class="flat" name="'.$htmlname.'" disabled="disabled">';
    1083. 

  1083.             	$out.= '<option value="">'.$langs->trans("None").'</option>';
    1084. 

  1084.             }
    1085. 

  1085.             $out.= '</select>';
    1086. 

  1086.         }
    1087. 

  1087.         else
    1088. 

  1088.         {
    1089. 

  1089.             dol_print_error($this->db);
    1090. 

  1090.         }
    1091. 

  1091. 

  1092.         return $out;
    1093. 

  1093.     }
    1094. 

  1094. 

  1095. 

  1096.     /**
    1097. 

  1097.      *  Return list of products for customer in Ajax if Ajax activated or go to select_produits_do
    1098. 

  1098.      *
    1099. 

  1099.      *  @param		int			$selected				Preselected products
    1100. 

  1100.      *  @param		string		$htmlname				Name of HTML seletc field (must be unique in page)
    1101. 

  1101.      *  @param		int			$filtertype				Filter on product type (''=nofilter, 0=product, 1=service)
    1102. 

  1102.      *  @param		int			$limit					Limit on number of returned lines
    1103. 

  1103.      *  @param		int			$price_level			Level of price to show
    1104. 

  1104.      *  @param		int			$status					-1=Return all products, 0=Products not on sell, 1=Products on sell
    1105. 

  1105.      *  @param		int			$finished				2=all, 1=finished, 0=raw material
    1106. 

  1106.      *  @param		string		$selected_input_value	Value of preselected input text (with ajax)
    1107. 

  1107.      *  @return		void
    1108. 

  1108.      */
    1109. 

  1109.     function select_produits($selected='',$htmlname='productid',$filtertype='',$limit=20,$price_level=0,$status=1,$finished=2,$selected_input_value='',$hidelabel=0)
    1110. 

  1110.     {
    1111. 

  1111.         global $langs,$conf;
    1112. 

  1112. 

  1113.         $price_level = (! empty($price_level) ? $price_level : 0);
    1114. 

  1114. 

  1115.         if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT)
    1116. 

  1116.         {
    1117. 

  1117.         	if ($selected && empty($selected_input_value))
    1118. 

  1118.         	{
    1119. 

  1119.         		require_once(DOL_DOCUMENT_ROOT."/product/class/product.class.php");
    1120. 

  1120.         		$product = new Product($this->db);
    1121. 

  1121.         		$product->fetch($selected);
    1122. 

  1122.         		$selected_input_value=$product->ref;
    1123. 

  1123.         	}
    1124. 

  1124.             // mode=1 means customers products
    1125. 

  1125.             print ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT.'/product/ajaxproducts.php', 'htmlname='.$htmlname.'&outjson=1&price_level='.$price_level.'&type='.$filtertype.'&mode=1&status='.$status.'&finished='.$finished, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT);
    1126. 

  1126.             if (! $hidelabel) print $langs->trans("RefOrLabel").' : ';
    1127. 

  1127.             print '<input type="text" size="20" name="search_'.$htmlname.'" id="search_'.$htmlname.'" value="'.$selected_input_value.'" />';
    1128. 

  1128.         }
    1129. 

  1129.         else
    1130. 

  1130.         {
    1131. 

  1131.             $this->select_produits_do($selected,$htmlname,$filtertype,$limit,$price_level,'',$status,$finished,0);
    1132. 

  1132.         }
    1133. 

  1133. 

  1134.         print '<br>';
    1135. 

  1135.     }
    1136. 

  1136. 

  1137.     /**
    1138. 

  1138.      *	Return list of products for a customer
    1139. 

  1139.      *
    1140. 

  1140.      *	@param      int		$selected       Preselected product
    1141. 

  1141.      *	@param      string	$htmlname       Name of select html
    1142. 

  1142.      *  @param		string	$filtertype     Filter on product type (''=nofilter, 0=product, 1=service)
    1143. 

  1143.      *	@param      int		$limit          Limite sur le nombre de lignes retournees
    1144. 

  1144.      *	@param      int		$price_level    Level of price to show
    1145. 

  1145.      * 	@param      string	$filterkey      Filter on product
    1146. 

  1146.      *	@param		int		$status         -1=Return all products, 0=Products not on sell, 1=Products on sell
    1147. 

  1147.      *  @param      int		$finished       Filter on finished field: 2=No filter
    1148. 

  1148.      *  @param      int		$disableout     Disable print output
    1149. 

  1149.      *  @return     array    				Array of keys for json
    1150. 

  1150.      */
    1151. 

  1151.     function select_produits_do($selected='',$htmlname='productid',$filtertype='',$limit=20,$price_level=0,$filterkey='',$status=1,$finished=2,$disableout=0)
    1152. 

  1152.     {
    1153. 

  1153.         global $langs,$conf,$user,$db;
    1154. 

  1154. 

  1155.         $sql = "SELECT ";
    1156. 

  1156.         $sql.= " p.rowid, p.label, p.ref, p.fk_product_type, p.price, p.price_ttc, p.price_base_type, p.duration, p.stock";
    1157. 

  1157.         // Multilang : we add translation
    1158. 

  1158.         if ($conf->global->MAIN_MULTILANGS)
    1159. 

  1159.         {
    1160. 

  1160.             $sql.= ", pl.label as label_translated";
    1161. 

  1161.         }
    1162. 

  1162.         $sql.= " FROM ".MAIN_DB_PREFIX."product as p";
    1163. 

  1163.         // Multilang : we add translation
    1164. 

  1164.         if ($conf->global->MAIN_MULTILANGS)
    1165. 

  1165.         {
    1166. 

  1166.             $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_lang as pl ON pl.fk_product = p.rowid AND pl.lang='". $langs->getDefaultLang() ."'";
    1167. 

  1167.         }
    1168. 

  1168.         $sql.= ' WHERE p.entity IN (0,'.(! empty($conf->entities['product']) ? $conf->entities['product'] : $conf->entity).')';
    1169. 

  1169.         if ($finished == 0)
    1170. 

  1170.         {
    1171. 

  1171.             $sql.= " AND p.finished = ".$finished;
    1172. 

  1172.         }
    1173. 

  1173.         elseif ($finished == 1)
    1174. 

  1174.         {
    1175. 

  1175.             $sql.= " AND p.finished = ".$finished;
    1176. 

  1176.             if ($status >= 0)  $sql.= " AND p.tosell = ".$status;
    1177. 

  1177.         }
    1178. 

  1178.         elseif ($status >= 0)
    1179. 

  1179.         {
    1180. 

  1180.             $sql.= " AND p.tosell = ".$status;
    1181. 

  1181.         }
    1182. 

  1182.         if (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype;
    1183. 

  1183.         // Add criteria on ref/label
    1184. 

  1184.         if ($filterkey && $filterkey != '')
    1185. 

  1185.         {
    1186. 

  1186. 	        if (! empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE))   // Can use index
    1187. 

  1187. 	        {
    1188. 

  1188. 	            $sql.=" AND (p.ref LIKE '".$filterkey."%' OR p.label LIKE '".$filterkey."%'";
    1189. 

  1189. 	            if ($conf->global->MAIN_MULTILANGS) $sql.=" OR pl.label LIKE '".$filterkey."%'";
    1190. 

  1190. 	            $sql.=")";
    1191. 

  1191. 	        }
    1192. 

  1192. 	        else
    1193. 

  1193. 	        {
    1194. 

  1194. 	            $sql.=" AND (p.ref LIKE '%".$filterkey."%' OR p.label LIKE '%".$filterkey."%'";
    1195. 

  1195. 	            if ($conf->global->MAIN_MULTILANGS) $sql.=" OR pl.label LIKE '%".$filterkey."%'";
    1196. 

  1196. 	            $sql.=")";
    1197. 

  1197. 	        }
    1198. 

  1198.         }
    1199. 

  1199.         $sql.= $db->order("p.ref");
    1200. 

  1200.         $sql.= $db->plimit($limit);
    1201. 

  1201. 

  1202.         // Build output string
    1203. 

  1203.         $outselect='';
    1204. 

  1204.         $outjson=array();
    1205. 

  1205. 

  1206.         dol_syslog("Form::select_produits_do search product sql=".$sql, LOG_DEBUG);
    1207. 

  1207.         $result=$this->db->query($sql);
    1208. 

  1208.         if ($result)
    1209. 

  1209.         {
    1210. 

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

  1211. 

  1212.             $outselect.='<select class="flat" name="'.$htmlname.'" id="'.$htmlname.'">';
    1213. 

  1213. 			$outselect.='<option value="0" selected="selected">&nbsp;</option>';
    1214. 

  1214. 

  1215.             $i = 0;
    1216. 

  1216.             while ($num && $i < $num)
    1217. 

  1217.             {
    1218. 

  1218.                 $outkey='';
    1219. 

  1219.                 $outval='';
    1220. 

  1220.                 $outref='';
    1221. 

  1221. 

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

  1223. 

  1224.                 $label=$objp->label;
    1225. 

  1225.                 if (! empty($objp->label_translated)) $label=$objp->label_translated;
    1226. 

  1226.                 if ($filterkey && $filterkey != '') $label=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$label,1);
    1227. 

  1227. 

  1228.                 $outkey=$objp->rowid;
    1229. 

  1229.                 $outref=$objp->ref;
    1230. 

  1230. 

  1231.                 $opt = '<option value="'.$objp->rowid.'"';
    1232. 

  1232.                 $opt.= ($objp->rowid == $selected)?' selected="selected"':'';
    1233. 

  1233.                 if ($conf->stock->enabled && $objp->fk_product_type == 0 && isset($objp->stock))
    1234. 

  1234.                 {
    1235. 

  1235.                     if ($objp->stock > 0)
    1236. 

  1236.                     {
    1237. 

  1237.                         $opt.= ' style="background-color:#32CD32; color:#F5F5F5;"';
    1238. 

  1238.                     }
    1239. 

  1239.                     else if ($objp->stock <= 0)
    1240. 

  1240.                     {
    1241. 

  1241.                         $opt.= ' style="background-color:#FF0000; color:#F5F5F5;"';
    1242. 

  1242.                     }
    1243. 

  1243.                 }
    1244. 

  1244.                 $opt.= '>';
    1245. 

  1245.                 $opt.= $langs->convToOutputCharset($objp->ref).' - '.$langs->convToOutputCharset(dol_trunc($label,32)).' - ';
    1246. 

  1246. 

  1247.                 $objRef = $objp->ref;
    1248. 

  1248.                 if ($filterkey && $filterkey != '') $objRef=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$objRef,1);
    1249. 

  1249.                 $outval.=$objRef.' - '.dol_trunc($label,32).' - ';
    1250. 

  1250. 

  1251.                 $found=0;
    1252. 

  1252.                 $currencytext=$langs->trans("Currency".$conf->monnaie);
    1253. 

  1253.                 $currencytextnoent=$langs->transnoentities("Currency".$conf->monnaie);
    1254. 

  1254.                 if (dol_strlen($currencytext) > 10) $currencytext=$conf->monnaie;	// If text is too long, we use the short code
    1255. 

  1255.                 if (dol_strlen($currencytextnoent) > 10) $currencytextnoent=$conf->monnaie;   // If text is too long, we use the short code
    1256. 

  1256. 

  1257.                 // Multiprice
    1258. 

  1258.                 if ($price_level >= 1)		// If we need a particular price level (from 1 to 6)
    1259. 

  1259.                 {
    1260. 

  1260.                     $sql= "SELECT price, price_ttc, price_base_type ";
    1261. 

  1261.                     $sql.= "FROM ".MAIN_DB_PREFIX."product_price ";
    1262. 

  1262.                     $sql.= "WHERE fk_product='".$objp->rowid."'";
    1263. 

  1263.                     $sql.= " AND price_level=".$price_level;
    1264. 

  1264.                     $sql.= " ORDER BY date_price";
    1265. 

  1265.                     $sql.= " DESC limit 1";
    1266. 

  1266. 

  1267.                     dol_syslog("Form::select_produits_do search price for level '.$price_level.' sql=".$sql);
    1268. 

  1268.                     $result2 = $this->db->query($sql);
    1269. 

  1269.                     if ($result2)
    1270. 

  1270.                     {
    1271. 

  1271.                         $objp2 = $this->db->fetch_object($result2);
    1272. 

  1272.                         if ($objp2)
    1273. 

  1273.                         {
    1274. 

  1274.                             $found=1;
    1275. 

  1275.                             if ($objp2->price_base_type == 'HT')
    1276. 

  1276.                             {
    1277. 

  1277.                                 $opt.= price($objp2->price,1).' '.$currencytext.' '.$langs->trans("HT");
    1278. 

  1278.                                 $outval.= price($objp2->price,1).' '.$currencytextnoent.' '.$langs->transnoentities("HT");
    1279. 

  1279.                             }
    1280. 

  1280.                             else
    1281. 

  1281.                             {
    1282. 

  1282.                                 $opt.= price($objp2->price_ttc,1).' '.$currencytext.' '.$langs->trans("TTC");
    1283. 

  1283.                                 $outval.= price($objp2->price_ttc,1).' '.$currencytextnoent.' '.$langs->transnoentities("TTC");
    1284. 

  1284.                             }
    1285. 

  1285.                         }
    1286. 

  1286.                     }
    1287. 

  1287.                     else
    1288. 

  1288.                     {
    1289. 

  1289.                         dol_print_error($this->db);
    1290. 

  1290.                     }
    1291. 

  1291.                 }
    1292. 

  1292. 

  1293.                 // If level no defined or multiprice not found, we used the default price
    1294. 

  1294.                 if (! $found)
    1295. 

  1295.                 {
    1296. 

  1296.                     if ($objp->price_base_type == 'HT')
    1297. 

  1297.                     {
    1298. 

  1298.                         $opt.= price($objp->price,1).' '.$currencytext.' '.$langs->trans("HT");
    1299. 

  1299.                         $outval.= price($objp->price,1).' '.$currencytextnoent.' '.$langs->transnoentities("HT");
    1300. 

  1300.                     }
    1301. 

  1301.                     else
    1302. 

  1302.                     {
    1303. 

  1303.                         $opt.= price($objp->price_ttc,1).' '.$currencytext.' '.$langs->trans("TTC");
    1304. 

  1304.                         $outval.= price($objp->price_ttc,1).' '.$currencytextnoent.' '.$langs->transnoentities("TTC");
    1305. 

  1305.                     }
    1306. 

  1306.                 }
    1307. 

  1307. 

  1308.                 if ($conf->stock->enabled && isset($objp->stock) && $objp->fk_product_type == 0)
    1309. 

  1309.                 {
    1310. 

  1310.                     $opt.= ' - '.$langs->trans("Stock").':'.$objp->stock;
    1311. 

  1311.                     $outval.=' - '.$langs->transnoentities("Stock").':'.$objp->stock;
    1312. 

  1312.                 }
    1313. 

  1313. 

  1314.                 if ($objp->duration)
    1315. 

  1315.                 {
    1316. 

  1316.                     $duration_value = substr($objp->duration,0,dol_strlen($objp->duration)-1);
    1317. 

  1317.                     $duration_unit = substr($objp->duration,-1);
    1318. 

  1318.                     if ($duration_value > 1)
    1319. 

  1319.                     {
    1320. 

  1320.                         $dur=array("h"=>$langs->trans("Hours"),"d"=>$langs->trans("Days"),"w"=>$langs->trans("Weeks"),"m"=>$langs->trans("Months"),"y"=>$langs->trans("Years"));
    1321. 

  1321.                     }
    1322. 

  1322.                     else
    1323. 

  1323.                     {
    1324. 

  1324.                         $dur=array("h"=>$langs->trans("Hour"),"d"=>$langs->trans("Day"),"w"=>$langs->trans("Week"),"m"=>$langs->trans("Month"),"y"=>$langs->trans("Year"));
    1325. 

  1325.                     }
    1326. 

  1326.                     $opt.= ' - '.$duration_value.' '.$langs->trans($dur[$duration_unit]);
    1327. 

  1327.                     $outval.=' - '.$duration_value.' '.$langs->transnoentities($dur[$duration_unit]);
    1328. 

  1328.                 }
    1329. 

  1329. 

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

  1331. 

  1332.                 // Add new entry
    1333. 

  1333.                 // "key" value of json key array is used by jQuery automatically as selected value
    1334. 

  1334.                 // "label" value of json key array is used by jQuery automatically as text for combo box
    1335. 

  1335.                 $outselect.=$opt;
    1336. 

  1336.                 array_push($outjson,array('key'=>$outkey,'value'=>$outref,'label'=>$outval));
    1337. 

  1337. 

  1338.                 $i++;
    1339. 

  1339.             }
    1340. 

  1340. 

  1341.             $outselect.='</select>';
    1342. 

  1342. 

  1343.             $this->db->free($result);
    1344. 

  1344. 

  1345.             if (empty($disableout)) print $outselect;
    1346. 

  1346.             return $outjson;
    1347. 

  1347.         }
    1348. 

  1348.         else
    1349. 

  1349.         {
    1350. 

  1350.             dol_print_error($db);
    1351. 

  1351.         }
    1352. 

  1352.     }
    1353. 

  1353. 

  1354.     /**
    1355. 

  1355.      *	Return list of products for customer in Ajax if Ajax activated or go to select_produits_fournisseurs_do
    1356. 

  1356.      *
    1357. 

  1357.      *	@param	int		$socid			Id third party
    1358. 

  1358.      *	@param  string	$selected        Preselected product
    1359. 

  1359.      *	@param  string	$htmlname        Name of HTML Select
    1360. 

  1360.      *  @param	string	$filtertype      Filter on product type (''=nofilter, 0=product, 1=service)
    1361. 

  1361.      *	@param  string	$filtre          For a SQL filter
    1362. 

  1362.      *	@return	void
    1363. 

  1363.      */
    1364. 

  1364.     function select_produits_fournisseurs($socid,$selected='',$htmlname='productid',$filtertype='',$filtre)
    1365. 

  1365.     {
    1366. 

  1366.         global $langs,$conf;
    1367. 

  1367.         if ($conf->global->PRODUIT_USE_SEARCH_TO_SELECT)
    1368. 

  1368.         {
    1369. 

  1369.             // mode=2 means suppliers products
    1370. 

  1370.             print ajax_autocompleter('', $htmlname, DOL_URL_ROOT.'/product/ajaxproducts.php', ($socid > 0?'socid='.$socid.'&':'').'htmlname='.$htmlname.'&outjson=1&price_level='.$price_level.'&type='.$filtertype.'&mode=2&status='.$status.'&finished='.$finished, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT);
    1371. 

  1371.             print $langs->trans("RefOrLabel").' : <input type="text" size="16" name="search_'.$htmlname.'" id="search_'.$htmlname.'">';
    1372. 

  1372.             print '<br>';
    1373. 

  1373.         }
    1374. 

  1374.         else
    1375. 

  1375.         {
    1376. 

  1376.             $this->select_produits_fournisseurs_do($socid,$selected,$htmlname,$filtertype,$filtre,'',-1,0);
    1377. 

  1377.         }
    1378. 

  1378.     }
    1379. 

  1379. 

  1380.     /**
    1381. 

  1381.      *	Retourne la liste des produits de fournisseurs
    1382. 

  1382.      *
    1383. 

  1383.      *	@param		socid   		Id societe fournisseur (0 pour aucun filtre)
    1384. 

  1384.      *	@param      selected        Produit pre-selectionne
    1385. 

  1385.      *	@param      htmlname        Nom de la zone select
    1386. 

  1386.      *  @param		filtertype      Filter on product type (''=nofilter, 0=product, 1=service)
    1387. 

  1387.      *	@param      filtre          Pour filtre sql
    1388. 

  1388.      *	@param      filterkey       Filtre des produits
    1389. 

  1389.      *  @param      status          -1=Return all products, 0=Products not on sell, 1=Products on sell
    1390. 

  1390.      *  @param      disableout      Disable print output
    1391. 

  1391.      *  @return     array           Array of keys for json
    1392. 

  1392.      */
    1393. 

  1393.     function select_produits_fournisseurs_do($socid,$selected='',$htmlname='productid',$filtertype='',$filtre='',$filterkey='',$statut=-1,$disableout=0)
    1394. 

  1394.     {
    1395. 

  1395.         global $langs,$conf;
    1396. 

  1396. 

  1397.         $langs->load('stocks');
    1398. 

  1398. 

  1399.         $sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration,";
    1400. 

  1400.         $sql.= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.unitprice,";
    1401. 

  1401.         $sql.= " s.nom";
    1402. 

  1402.         $sql.= " FROM ".MAIN_DB_PREFIX."product as p";
    1403. 

  1403.         $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
    1404. 

  1404.         $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON pfp.fk_soc = s.rowid";
    1405. 

  1405.         $sql.= " WHERE p.entity = ".$conf->entity;
    1406. 

  1406.         $sql.= " AND p.tobuy = 1";
    1407. 

  1407.         if ($socid) $sql.= " AND pfp.fk_soc = ".$socid;
    1408. 

  1408.         if (strval($filtertype) != '') $sql.=" AND p.fk_product_type=".$filtertype;
    1409. 

  1409.         if (! empty($filtre)) $sql.=" ".$filtre;
    1410. 

  1410.         // Add criteria on ref/label
    1411. 

  1411.         if ($filterkey && $filterkey != '')
    1412. 

  1412.         {
    1413. 

  1413. 	        if (! empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE))
    1414. 

  1414. 	        {
    1415. 

  1415. 	            $sql.=" AND (pfp.ref_fourn LIKE '".$filterkey."%' OR p.ref LIKE '".$filterkey."%' OR p.label LIKE '".$filterkey."%')";
    1416. 

  1416. 	        }
    1417. 

  1417. 	        else
    1418. 

  1418. 	        {
    1419. 

  1419. 	            $sql.=" AND (pfp.ref_fourn LIKE '%".$filterkey."%' OR p.ref LIKE '%".$filterkey."%' OR p.label LIKE '%".$filterkey."%')";
    1420. 

  1420. 	        }
    1421. 

  1421.         }
    1422. 

  1422.         $sql.= " ORDER BY pfp.ref_fourn DESC";
    1423. 

  1423. 

  1424.         // Build output string
    1425. 

  1425.         $outselect='';
    1426. 

  1426.         $outjson=array();
    1427. 

  1427. 

  1428.         dol_syslog(get_class($this)."::select_produits_fournisseurs_do sql=".$sql,LOG_DEBUG);
    1429. 

  1429.         $result=$this->db->query($sql);
    1430. 

  1430.         if ($result)
    1431. 

  1431.         {
    1432. 

  1432. 

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

  1434. 

  1435.             $outselect.='<select class="flat" id="select'.$htmlname.'" name="'.$htmlname.'">';
    1436. 

  1436.             if (! $selected) $outselect.='<option value="0" selected="selected">&nbsp;</option>';
    1437. 

  1437.             else $outselect.='<option value="0">&nbsp;</option>';
    1438. 

  1438. 

  1439.             $i = 0;
    1440. 

  1440.             while ($i < $num)
    1441. 

  1441.             {
    1442. 

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

  1443. 

  1444.                 $outkey=$objp->idprodfournprice;
    1445. 

  1445.                 $outref=$objp->ref;
    1446. 

  1446.                 $outval='';
    1447. 

  1447. 

  1448.                 $opt = '<option value="'.$objp->idprodfournprice.'"';
    1449. 

  1449.                 if ($selected == $objp->idprodfournprice) $opt.= ' selected="selected"';
    1450. 

  1450.                 if ($objp->fprice == '') $opt.=' disabled="disabled"';
    1451. 

  1451.                 $opt.= '>';
    1452. 

  1452. 

  1453.                 $objRef = $objp->ref;
    1454. 

  1454.                 if ($filterkey && $filterkey != '') $objRef=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$objRef,1);
    1455. 

  1455.                 $objRefFourn = $objp->ref_fourn;
    1456. 

  1456.                 if ($filterkey && $filterkey != '') $objRefFourn=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$objRefFourn,1);
    1457. 

  1457.                 $label = $objp->label;
    1458. 

  1458.                 if ($filterkey && $filterkey != '') $label=preg_replace('/('.preg_quote($filterkey).')/i','<strong>$1</strong>',$label,1);
    1459. 

  1459. 

  1460.                 $opt.=$langs->convToOutputCharset($objp->ref).' ('.$langs->convToOutputCharset($objp->ref_fourn).') - ';
    1461. 

  1461.                 $outval.=$objRef.' ('.$objRefFourn.') - ';
    1462. 

  1462.                 $opt.=$langs->convToOutputCharset(dol_trunc($objp->label,18)).' - ';
    1463. 

  1463.                 $outval.=dol_trunc($label,18).' - ';
    1464. 

  1464. 

  1465.                 if ($objp->fprice != '') 	// Keep != ''
    1466. 

  1466.                 {
    1467. 

  1467.                     $currencytext=$langs->trans("Currency".$conf->monnaie);
    1468. 

  1468.                     $currencytextnoent=$langs->transnoentities("Currency".$conf->monnaie);
    1469. 

  1469.                     if (dol_strlen($currencytext) > 10) $currencytext=$conf->monnaie;   // If text is too long, we use the short code
    1470. 

  1470.                     if (dol_strlen($currencytextnoent) > 10) $currencytextnoent=$conf->monnaie;   // If text is too long, we use the short code
    1471. 

  1471. 

  1472.                     $opt.= price($objp->fprice).' '.$currencytext."/".$objp->quantity;
    1473. 

  1473.                     $outval.= price($objp->fprice).' '.$currencytextnoent."/".$objp->quantity;
    1474. 

  1474.                     if ($objp->quantity == 1)
    1475. 

  1475.                     {
    1476. 

  1476.                         $opt.= strtolower($langs->trans("Unit"));
    1477. 

  1477.                         $outval.=strtolower($langs->transnoentities("Unit"));
    1478. 

  1478.                     }
    1479. 

  1479.                     else
    1480. 

  1480.                     {
    1481. 

  1481.                         $opt.= strtolower($langs->trans("Units"));
    1482. 

  1482.                         $outval.=strtolower($langs->transnoentities("Units"));
    1483. 

  1483.                     }
    1484. 

  1484.                     if ($objp->quantity >= 1)
    1485. 

  1485.                     {
    1486. 

  1486.                         $opt.=" (".price($objp->unitprice).' '.$currencytext."/".strtolower($langs->trans("Unit")).")";
    1487. 

  1487.                         $outval.=" (".price($objp->unitprice).' '.$currencytextnoent."/".strtolower($langs->transnoentities("Unit")).")";
    1488. 

  1488.                     }
    1489. 

  1489.                     if ($objp->duration)
    1490. 

  1490.                     {
    1491. 

  1491.                         $opt .= " - ".$objp->duration;
    1492. 

  1492.                         $outval.=" - ".$objp->duration;
    1493. 

  1493.                     }
    1494. 

  1494.                     if (! $socid)
    1495. 

  1495.                     {
    1496. 

  1496.                         $opt .= " - ".dol_trunc($objp->nom,8);
    1497. 

  1497.                         $outval.=" - ".dol_trunc($objp->nom,8);
    1498. 

  1498.                     }
    1499. 

  1499.                 }
    1500. 

  1500.                 else
    1501. 

  1501.                 {
    1502. 

  1502.                     $opt.= $langs->trans("NoPriceDefinedForThisSupplier");
    1503. 

  1503.                     $outval.=$langs->transnoentities("NoPriceDefinedForThisSupplier");
    1504. 

  1504.                 }
    1505. 

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

  1506. 

  1507.                 // Add new entry
    1508. 

  1508.                 // "key" value of json key array is used by jQuery automatically as selected value
    1509. 

  1509.                 // "label" value of json key array is used by jQuery automatically as text for combo box
    1510. 

  1510.                 $outselect.=$opt;
    1511. 

  1511.                 array_push($outjson,array('key'=>$outkey,'value'=>$outref,'label'=>$outval));
    1512. 

  1512. 

  1513.                 $i++;
    1514. 

  1514.             }
    1515. 

  1515.             $outselect.='</select>';
    1516. 

  1516. 

  1517.             $this->db->free($result);
    1518. 

  1518. 

  1519.             if (empty($disableout)) print $outselect;
    1520. 

  1520.             return $outjson;
    1521. 

  1521.         }
    1522. 

  1522.         else
    1523. 

  1523.         {
    1524. 

  1524.             dol_print_error($db);
    1525. 

  1525.         }
    1526. 

  1526.     }
    1527. 

  1527. 

  1528.     /**
    1529. 

  1529.      *	Return list of suppliers prices for a product
    1530. 

  1530.      *
    1531. 

  1531.      *  @param		int		$productid       Id of product
    1532. 

  1532.      *  @param      string	$htmlname        Name of HTML field
    1533. 

  1533.      *  @return		void
    1534. 

  1534.      */
    1535. 

  1535.     function select_product_fourn_price($productid,$htmlname='productfournpriceid')
    1536. 

  1536.     {
    1537. 

  1537.         global $langs,$conf;
    1538. 

  1538. 

  1539.         $langs->load('stocks');
    1540. 

  1540. 

  1541.         $sql = "SELECT p.rowid, p.label, p.ref, p.price, p.duration,";
    1542. 

  1542.         $sql.= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.unitprice,";
    1543. 

  1543.         $sql.= " s.nom";
    1544. 

  1544.         $sql.= " FROM ".MAIN_DB_PREFIX."product as p";
    1545. 

  1545.         $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
    1546. 

  1546.         $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON pfp.fk_soc = s.rowid";
    1547. 

  1547.         $sql.= " WHERE p.entity = ".$conf->entity;
    1548. 

  1548.         $sql.= " AND p.tobuy = 1";
    1549. 

  1549.         $sql.= " AND s.fournisseur = 1";
    1550. 

  1550.         $sql.= " AND p.rowid = ".$productid;
    1551. 

  1551.         $sql.= " ORDER BY s.nom, pfp.ref_fourn DESC";
    1552. 

  1552. 

  1553.         dol_syslog("Form::select_product_fourn_price sql=".$sql,LOG_DEBUG);
    1554. 

  1554.         $result=$this->db->query($sql);
    1555. 

  1555. 

  1556.         if ($result)
    1557. 

  1557.         {
    1558. 

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

  1559. 

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

  1561. 

  1562.             if (! $num)
    1563. 

  1563.             {
    1564. 

  1564.                 $form.= '<option value="0">-- '.$langs->trans("NoSupplierPriceDefinedForThisProduct").' --</option>';
    1565. 

  1565.             }
    1566. 

  1566.             else
    1567. 

  1567.             {
    1568. 

  1568.                 $form.= '<option value="0">&nbsp;</option>';
    1569. 

  1569. 

  1570.                 $i = 0;
    1571. 

  1571.                 while ($i < $num)
    1572. 

  1572.                 {
    1573. 

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

  1574. 

  1575.                     $opt = '<option value="'.$objp->idprodfournprice.'"';
    1576. 

  1576.                     $opt.= '>'.$objp->nom.' - '.$objp->ref_fourn.' - ';
    1577. 

  1577. 

  1578.                     if ($objp->quantity == 1)
    1579. 

  1579.                     {
    1580. 

  1580.                         $opt.= price($objp->fprice);
    1581. 

  1581.                         $opt.= $langs->trans("Currency".$conf->monnaie)."/";
    1582. 

  1582.                     }
    1583. 

  1583. 

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

  1585. 

  1586.                     if ($objp->quantity == 1)
    1587. 

  1587.                     {
    1588. 

  1588.                         $opt.= strtolower($langs->trans("Unit"));
    1589. 

  1589.                     }
    1590. 

  1590.                     else
    1591. 

  1591.                     {
    1592. 

  1592.                         $opt.= strtolower($langs->trans("Units"));
    1593. 

  1593.                     }
    1594. 

  1594.                     if ($objp->quantity > 1)
    1595. 

  1595.                     {
    1596. 

  1596.                         $opt.=" - ";
    1597. 

  1597.                         $opt.= price($objp->unitprice).$langs->trans("Currency".$conf->monnaie)."/".strtolower($langs->trans("Unit"));
    1598. 

  1598.                     }
    1599. 

  1599.                     if ($objp->duration) $opt .= " - ".$objp->duration;
    1600. 

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

  1601. 

  1602.                     $form.= $opt;
    1603. 

  1603.                     $i++;
    1604. 

  1604.                 }
    1605. 

  1605.                 $form.= '</select>';
    1606. 

  1606. 

  1607.                 $this->db->free($result);
    1608. 

  1608.             }
    1609. 

  1609.             return $form;
    1610. 

  1610.         }
    1611. 

  1611.         else
    1612. 

  1612.         {
    1613. 

  1613.             dol_print_error($db);
    1614. 

  1614.         }
    1615. 

  1615.     }
    1616. 

  1616. 

  1617.     /**
    1618. 

  1618.      *    Return list of delivery address
    1619. 

  1619.      *
    1620. 

  1620.      *    @param    string	$selected          	Id contact pre-selectionn
    1621. 

  1621.      *    @param    int		$socid				Id of company
    1622. 

  1622.      *    @param    string	$htmlname          	Name of HTML field
    1623. 

  1623.      *    @param    int		$showempty         	Add an empty field
    1624. 

  1624.      *    @return	void
    1625. 

  1625.      */
    1626. 

  1626.     function select_address($selected='', $socid, $htmlname='address_id',$showempty=0)
    1627. 

  1627.     {
    1628. 

  1628.         // On recherche les utilisateurs
    1629. 

  1629.         $sql = "SELECT a.rowid, a.label";
    1630. 

  1630.         $sql .= " FROM ".MAIN_DB_PREFIX ."societe_address as a";
    1631. 

  1631.         $sql .= " WHERE a.fk_soc = ".$socid;
    1632. 

  1632.         $sql .= " ORDER BY a.label ASC";
    1633. 

  1633. 

  1634.         dol_syslog("Form::select_address sql=".$sql);
    1635. 

  1635.         $resql=$this->db->query($sql);
    1636. 

  1636.         if ($resql)
    1637. 

  1637.         {
    1638. 

  1638.             print '<select class="flat" name="'.$htmlname.'">';
    1639. 

  1639.             if ($showempty) print '<option value="0">&nbsp;</option>';
    1640. 

  1640.             $num = $this->db->num_rows($resql);
    1641. 

  1641.             $i = 0;
    1642. 

  1642.             if ($num)
    1643. 

  1643.             {
    1644. 

  1644.                 while ($i < $num)
    1645. 

  1645.                 {
    1646. 

  1646.                     $obj = $this->db->fetch_object($resql);
    1647. 

  1647. 

  1648.                     if ($selected && $selected == $obj->rowid)
    1649. 

  1649.                     {
    1650. 

  1650.                         print '<option value="'.$obj->rowid.'" selected="selected">'.$obj->label.'</option>';
    1651. 

  1651.                     }
    1652. 

  1652.                     else
    1653. 

  1653.                     {
    1654. 

  1654.                         print '<option value="'.$obj->rowid.'">'.$obj->label.'</option>';
    1655. 

  1655.                     }
    1656. 

  1656.                     $i++;
    1657. 

  1657.                 }
    1658. 

  1658.             }
    1659. 

  1659.             print '</select>';
    1660. 

  1660.             return $num;
    1661. 

  1661.         }
    1662. 

  1662.         else
    1663. 

  1663.         {
    1664. 

  1664.             dol_print_error($this->db);
    1665. 

  1665.         }
    1666. 

  1666.     }
    1667. 

  1667. 

  1668. 

  1669.     /**
    1670. 

  1670.      *      Charge dans cache la liste des conditions de paiements possibles
    1671. 

  1671.      *
    1672. 

  1672.      *      @return     int             Nb lignes chargees, 0 si deja chargees, <0 si ko
    1673. 

  1673.      */
    1674. 

  1674.     function load_cache_conditions_paiements()
    1675. 

  1675.     {
    1676. 

  1676.         global $langs;
    1677. 

  1677. 

  1678.         if (count($this->cache_conditions_paiements)) return 0;    // Cache deja charge
    1679. 

  1679. 

  1680.         $sql = "SELECT rowid, code, libelle";
    1681. 

  1681.         $sql.= " FROM ".MAIN_DB_PREFIX.'c_payment_term';
    1682. 

  1682.         $sql.= " WHERE active=1";
    1683. 

  1683.         $sql.= " ORDER BY sortorder";
    1684. 

  1684.         dol_syslog('Form::load_cache_conditions_paiements sql='.$sql,LOG_DEBUG);
    1685. 

  1685.         $resql = $this->db->query($sql);
    1686. 

  1686.         if ($resql)
    1687. 

  1687.         {
    1688. 

  1688.             $num = $this->db->num_rows($resql);
    1689. 

  1689.             $i = 0;
    1690. 

  1690.             while ($i < $num)
    1691. 

  1691.             {
    1692. 

  1692.                 $obj = $this->db->fetch_object($resql);
    1693. 

  1693. 

  1694.                 // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
    1695. 

  1695.                 $libelle=($langs->trans("PaymentConditionShort".$obj->code)!=("PaymentConditionShort".$obj->code)?$langs->trans("PaymentConditionShort".$obj->code):($obj->libelle!='-'?$obj->libelle:''));
    1696. 

  1696.                 $this->cache_conditions_paiements[$obj->rowid]['code'] =$obj->code;
    1697. 

  1697.                 $this->cache_conditions_paiements[$obj->rowid]['label']=$libelle;
    1698. 

  1698.                 $i++;
    1699. 

  1699.             }
    1700. 

  1700.             return 1;
    1701. 

  1701.         }
    1702. 

  1702.         else {
    1703. 

  1703.             dol_print_error($this->db);
    1704. 

  1704.             return -1;
    1705. 

  1705.         }
    1706. 

  1706.     }
    1707. 

  1707. 

  1708.     /**
    1709. 

  1709.      *      Charge dans cache la liste des dĂŠlais de livraison possibles
    1710. 

  1710.      *
    1711. 

  1711.      *      @return     int             Nb lignes chargees, 0 si deja chargees, <0 si ko
    1712. 

  1712.      */
    1713. 

  1713.     function load_cache_availability()
    1714. 

  1714.     {
    1715. 

  1715.         global $langs;
    1716. 

  1716. 

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

  1718. 

  1719.         $sql = "SELECT rowid, code, label";
    1720. 

  1720.         $sql.= " FROM ".MAIN_DB_PREFIX.'c_availability';
    1721. 

  1721.         $sql.= " WHERE active=1";
    1722. 

  1722.         $sql.= " ORDER BY rowid";
    1723. 

  1723.         dol_syslog('Form::load_cache_availability sql='.$sql,LOG_DEBUG);
    1724. 

  1724.         $resql = $this->db->query($sql);
    1725. 

  1725.         if ($resql)
    1726. 

  1726.         {
    1727. 

  1727.             $num = $this->db->num_rows($resql);
    1728. 

  1728.             $i = 0;
    1729. 

  1729.             while ($i < $num)
    1730. 

  1730.             {
    1731. 

  1731.                 $obj = $this->db->fetch_object($resql);
    1732. 

  1732. 

  1733.                 // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
    1734. 

  1734.                 $label=($langs->trans("AvailabilityType".$obj->code)!=("AvailabilityType".$obj->code)?$langs->trans("AvailabilityType".$obj->code):($obj->label!='-'?$obj->label:''));
    1735. 

  1735.                 $this->cache_availability[$obj->rowid]['code'] =$obj->code;
    1736. 

  1736.                 $this->cache_availability[$obj->rowid]['label']=$label;
    1737. 

  1737.                 $i++;
    1738. 

  1738.             }
    1739. 

  1739.             return 1;
    1740. 

  1740.         }
    1741. 

  1741.         else {
    1742. 

  1742.             dol_print_error($this->db);
    1743. 

  1743.             return -1;
    1744. 

  1744.         }
    1745. 

  1745.     }
    1746. 

  1746. 

  1747. 	/**
    1748. 

  1748.      *      Retourne la liste des types de delais de livraison possibles
    1749. 

  1749.      *
    1750. 

  1750.      *      @param      selected        Id du type de delais pre-selectionne
    1751. 

  1751.      *      @param      htmlname        Nom de la zone select
    1752. 

  1752.      *      @param      filtertype      To add a filter
    1753. 

  1753.      *		@param		addempty		Add empty entry
    1754. 

  1754.      */
    1755. 

  1755.     function select_availability($selected='',$htmlname='availid',$filtertype='',$addempty=0)
    1756. 

  1756.     {
    1757. 

  1757.         global $langs,$user;
    1758. 

  1758. 

  1759.         $this->load_cache_availability();
    1760. 

  1760. 

  1761.         print '<select class="flat" name="'.$htmlname.'">';
    1762. 

  1762.         if ($addempty) print '<option value="0">&nbsp;</option>';
    1763. 

  1763.         foreach($this->cache_availability as $id => $arrayavailability)
    1764. 

  1764.         {
    1765. 

  1765.             if ($selected == $id)
    1766. 

  1766.             {
    1767. 

  1767.                 print '<option value="'.$id.'" selected="selected">';
    1768. 

  1768.             }
    1769. 

  1769.             else
    1770. 

  1770.             {
    1771. 

  1771.                 print '<option value="'.$id.'">';
    1772. 

  1772.             }
    1773. 

  1773.             print $arrayavailability['label'];
    1774. 

  1774.             print '</option>';
    1775. 

  1775.         }
    1776. 

  1776.         print '</select>';
    1777. 

  1777.         if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    1778. 

  1778.     }
    1779. 

  1779. 

  1780. 	/**
    1781. 

  1781.      *      Load into cache cache_demand_reason, array of input reasons
    1782. 

  1782.      *
    1783. 

  1783.      *      @return     int             Nb of lines loaded, 0 if already loaded, <0 if ko
    1784. 

  1784.      */
    1785. 

  1785.     function load_cache_demand_reason()
    1786. 

  1786.     {
    1787. 

  1787.         global $langs;
    1788. 

  1788. 

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

  1790. 

  1791.         $sql = "SELECT rowid, code, label";
    1792. 

  1792.         $sql.= " FROM ".MAIN_DB_PREFIX.'c_input_reason';
    1793. 

  1793.         $sql.= " WHERE active=1";
    1794. 

  1794.         $sql.= " ORDER BY rowid";
    1795. 

  1795.         dol_syslog('Form::load_cache_demand_reason sql='.$sql,LOG_DEBUG);
    1796. 

  1796.         $resql = $this->db->query($sql);
    1797. 

  1797.         if ($resql)
    1798. 

  1798.         {
    1799. 

  1799.             $num = $this->db->num_rows($resql);
    1800. 

  1800.             $i = 0;
    1801. 

  1801.             $tmparray=array();
    1802. 

  1802.             while ($i < $num)
    1803. 

  1803.             {
    1804. 

  1804.                 $obj = $this->db->fetch_object($resql);
    1805. 

  1805. 

  1806.                 // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
    1807. 

  1807.                 $label=($langs->trans("DemandReasonType".$obj->code)!=("DemandReasonType".$obj->code)?$langs->trans("DemandReasonType".$obj->code):($obj->label!='-'?$obj->label:''));
    1808. 

  1808.                 $tmparray[$obj->rowid]['id']   =$obj->rowid;
    1809. 

  1809.                 $tmparray[$obj->rowid]['code'] =$obj->code;
    1810. 

  1810.                 $tmparray[$obj->rowid]['label']=$label;
    1811. 

  1811.                 $i++;
    1812. 

  1812.             }
    1813. 

  1813.             $this->cache_demand_reason=dol_sort_array($tmparray,'label', $order='asc');
    1814. 

  1814. 

  1815.             unset($tmparray);
    1816. 

  1816.             return 1;
    1817. 

  1817.         }
    1818. 

  1818.         else {
    1819. 

  1819.             dol_print_error($this->db);
    1820. 

  1820.             return -1;
    1821. 

  1821.         }
    1822. 

  1822.     }
    1823. 

  1823. 

  1824. 	/**
    1825. 

  1825.      *      Return list of events that triggered an object creation
    1826. 

  1826.      *
    1827. 

  1827.      *      @param      selected        Id du type d'origine pre-selectionne
    1828. 

  1828.      *      @param      htmlname        Nom de la zone select
    1829. 

  1829.      *      @param      exclude         To exclude a code value (Example: SRC_PROP)
    1830. 

  1830.      *		@param		addempty		Add an empty entry
    1831. 

  1831.      */
    1832. 

  1832.     function select_demand_reason($selected='',$htmlname='demandreasonid',$exclude='',$addempty=0)
    1833. 

  1833.     {
    1834. 

  1834.         global $langs,$user;
    1835. 

  1835. 

  1836.         $this->load_cache_demand_reason();
    1837. 

  1837. 

  1838.         print '<select class="flat" name="'.$htmlname.'">';
    1839. 

  1839.         if ($addempty) print '<option value="0"'.(empty($selected)?' selected="selected"':'').'>&nbsp;</option>';
    1840. 

  1840.         foreach($this->cache_demand_reason as $id => $arraydemandreason)
    1841. 

  1841.         {
    1842. 

  1842.             if ($arraydemandreason['code']==$exclude) continue;
    1843. 

  1843. 

  1844.             if ($selected == $arraydemandreason['id'])
    1845. 

  1845.             {
    1846. 

  1846.                 print '<option value="'.$arraydemandreason['id'].'" selected="selected">';
    1847. 

  1847.             }
    1848. 

  1848.             else
    1849. 

  1849.             {
    1850. 

  1850.                 print '<option value="'.$arraydemandreason['id'].'">';
    1851. 

  1851.             }
    1852. 

  1852.             print $arraydemandreason['label'];
    1853. 

  1853.             print '</option>';
    1854. 

  1854.         }
    1855. 

  1855.         print '</select>';
    1856. 

  1856.         if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    1857. 

  1857.     }
    1858. 

  1858. 

  1859.     /**
    1860. 

  1860.      *      Charge dans cache la liste des types de paiements possibles
    1861. 

  1861.      *
    1862. 

  1862.      *      @return     int             Nb lignes chargees, 0 si deja chargees, <0 si ko
    1863. 

  1863.      */
    1864. 

  1864.     function load_cache_types_paiements()
    1865. 

  1865.     {
    1866. 

  1866.         global $langs;
    1867. 

  1867. 

  1868.         if (count($this->cache_types_paiements)) return 0;    // Cache deja charge
    1869. 

  1869. 

  1870.         $sql = "SELECT id, code, libelle, type";
    1871. 

  1871.         $sql.= " FROM ".MAIN_DB_PREFIX."c_paiement";
    1872. 

  1872.         $sql.= " WHERE active > 0";
    1873. 

  1873.         $sql.= " ORDER BY id";
    1874. 

  1874.         dol_syslog('Form::load_cache_types_paiements sql='.$sql,LOG_DEBUG);
    1875. 

  1875.         $resql = $this->db->query($sql);
    1876. 

  1876.         if ($resql)
    1877. 

  1877.         {
    1878. 

  1878.             $num = $this->db->num_rows($resql);
    1879. 

  1879.             $i = 0;
    1880. 

  1880.             while ($i < $num)
    1881. 

  1881.             {
    1882. 

  1882.                 $obj = $this->db->fetch_object($resql);
    1883. 

  1883. 

  1884.                 // Si traduction existe, on l'utilise, sinon on prend le libelle par defaut
    1885. 

  1885.                 $libelle=($langs->trans("PaymentTypeShort".$obj->code)!=("PaymentTypeShort".$obj->code)?$langs->trans("PaymentTypeShort".$obj->code):($obj->libelle!='-'?$obj->libelle:''));
    1886. 

  1886.                 $this->cache_types_paiements[$obj->id]['code'] =$obj->code;
    1887. 

  1887.                 $this->cache_types_paiements[$obj->id]['label']=$libelle;
    1888. 

  1888.                 $this->cache_types_paiements[$obj->id]['type'] =$obj->type;
    1889. 

  1889.                 $i++;
    1890. 

  1890.             }
    1891. 

  1891.             return $num;
    1892. 

  1892.         }
    1893. 

  1893.         else
    1894. 

  1894.         {
    1895. 

  1895.             dol_print_error($this->db);
    1896. 

  1896.             return -1;
    1897. 

  1897.         }
    1898. 

  1898.     }
    1899. 

  1899. 

  1900. 

  1901.     /**
    1902. 

  1902.      *      Retourne la liste des types de paiements possibles
    1903. 

  1903.      *
    1904. 

  1904.      *      @param      selected        Id du type de paiement pre-selectionne
    1905. 

  1905.      *      @param      htmlname        Nom de la zone select
    1906. 

  1906.      *      @param      filtertype      Pour filtre
    1907. 

  1907.      *		@param		addempty		Ajoute entree vide
    1908. 

  1908.      */
    1909. 

  1909.     function select_conditions_paiements($selected='',$htmlname='condid',$filtertype=-1,$addempty=0)
    1910. 

  1910.     {
    1911. 

  1911.         global $langs,$user;
    1912. 

  1912. 

  1913.         $this->load_cache_conditions_paiements();
    1914. 

  1914. 

  1915.         print '<select class="flat" name="'.$htmlname.'">';
    1916. 

  1916.         if ($addempty) print '<option value="0">&nbsp;</option>';
    1917. 

  1917.         foreach($this->cache_conditions_paiements as $id => $arrayconditions)
    1918. 

  1918.         {
    1919. 

  1919.             if ($selected == $id)
    1920. 

  1920.             {
    1921. 

  1921.                 print '<option value="'.$id.'" selected="selected">';
    1922. 

  1922.             }
    1923. 

  1923.             else
    1924. 

  1924.             {
    1925. 

  1925.                 print '<option value="'.$id.'">';
    1926. 

  1926.             }
    1927. 

  1927.             print $arrayconditions['label'];
    1928. 

  1928.             print '</option>';
    1929. 

  1929.         }
    1930. 

  1930.         print '</select>';
    1931. 

  1931.         if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    1932. 

  1932.     }
    1933. 

  1933. 

  1934. 

  1935.     /**
    1936. 

  1936.      *      Return list of payment methods
    1937. 

  1937.      *
    1938. 

  1938.      *      @param      selected        Id du mode de paiement pre-selectionne
    1939. 

  1939.      *      @param      htmlname        Nom de la zone select
    1940. 

  1940.      *      @param      filtertype      To filter on field type in llx_c_paiement (array('code'=>xx,'label'=>zz))
    1941. 

  1941.      *      @param      format          0=id+libelle, 1=code+code, 2=code+libelle, 3=id+code
    1942. 

  1942.      *      @param      empty			1=peut etre vide, 0 sinon
    1943. 

  1943.      * 		@param		noadmininfo		0=Add admin info, 1=Disable admin info
    1944. 

  1944.      *      @param      maxlength       Max length of label
    1945. 

  1945.      */
    1946. 

  1946.     function select_types_paiements($selected='',$htmlname='paiementtype',$filtertype='',$format=0, $empty=0, $noadmininfo=0,$maxlength=0)
    1947. 

  1947.     {
    1948. 

  1948.         global $langs,$user;
    1949. 

  1949. 

  1950.         dol_syslog("Form::select_type_paiements $selected, $htmlname, $filtertype, $format",LOG_DEBUG);
    1951. 

  1951. 

  1952.         $filterarray=array();
    1953. 

  1953.         if ($filtertype == 'CRDT')  	$filterarray=array(0,2);
    1954. 

  1954.         elseif ($filtertype == 'DBIT') 	$filterarray=array(1,2);
    1955. 

  1955.         elseif ($filtertype != '' && $filtertype != '-1') $filterarray=explode(',',$filtertype);
    1956. 

  1956. 

  1957.         $this->load_cache_types_paiements();
    1958. 

  1958. 

  1959.         print '<select id="select'.$htmlname.'" class="flat selectpaymenttypes" name="'.$htmlname.'">';
    1960. 

  1960.         if ($empty) print '<option value="">&nbsp;</option>';
    1961. 

  1961.         foreach($this->cache_types_paiements as $id => $arraytypes)
    1962. 

  1962.         {
    1963. 

  1963.             // On passe si on a demande de filtrer sur des modes de paiments particuliers
    1964. 

  1964.             if (count($filterarray) && ! in_array($arraytypes['type'],$filterarray)) continue;
    1965. 

  1965. 

  1966.             // We discard empty line if showempty is on because an empty line has already been output.
    1967. 

  1967.             if ($empty && empty($arraytypes['code'])) continue;
    1968. 

  1968. 

  1969.             if ($format == 0) print '<option value="'.$id.'"';
    1970. 

  1970.             if ($format == 1) print '<option value="'.$arraytypes['code'].'"';
    1971. 

  1971.             if ($format == 2) print '<option value="'.$arraytypes['code'].'"';
    1972. 

  1972.             if ($format == 3) print '<option value="'.$id.'"';
    1973. 

  1973.             // Si selected est text, on compare avec code, sinon avec id
    1974. 

  1974.             if (preg_match('/[a-z]/i', $selected) && $selected == $arraytypes['code']) print ' selected="selected"';
    1975. 

  1975.             elseif ($selected == $id) print ' selected="selected"';
    1976. 

  1976.             print '>';
    1977. 

  1977.             if ($format == 0) $value=($maxlength?dol_trunc($arraytypes['label'],$maxlength):$arraytypes['label']);
    1978. 

  1978.             if ($format == 1) $value=$arraytypes['code'];
    1979. 

  1979.             if ($format == 2) $value=($maxlength?dol_trunc($arraytypes['label'],$maxlength):$arraytypes['label']);
    1980. 

  1980.             if ($format == 3) $value=$arraytypes['code'];
    1981. 

  1981.             print $value?$value:'&nbsp;';
    1982. 

  1982.             print '</option>';
    1983. 

  1983.         }
    1984. 

  1984.         print '</select>';
    1985. 

  1985.         if ($user->admin && ! $noadmininfo) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    1986. 

  1986.     }
    1987. 

  1987. 

  1988. 

  1989.     /**
    1990. 

  1990.      *      Selection HT or TTC
    1991. 

  1991.      *
    1992. 

  1992.      *      @param      selected        Id pre-selectionne
    1993. 

  1993.      *      @param      htmlname        Nom de la zone select
    1994. 

  1994.      */
    1995. 

  1995.     function select_PriceBaseType($selected='',$htmlname='price_base_type')
    1996. 

  1996.     {
    1997. 

  1997.         print $this->load_PriceBaseType($selected,$htmlname);
    1998. 

  1998.     }
    1999. 

  1999. 

  2000. 

  2001.     /**
    2002. 

  2002.      *      Selection HT or TTC
    2003. 

  2003.      *
    2004. 

  2004.      *      @param      selected        Id pre-selectionne
    2005. 

  2005.      *      @param      htmlname        Nom de la zone select
    2006. 

  2006.      */
    2007. 

  2007.     function load_PriceBaseType($selected='',$htmlname='price_base_type')
    2008. 

  2008.     {
    2009. 

  2009.         global $langs;
    2010. 

  2010. 

  2011.         $return='';
    2012. 

  2012. 

  2013.         $return.= '<select class="flat" name="'.$htmlname.'">';
    2014. 

  2014.         $options = array(
    2015. 

  2015. 					'HT'=>$langs->trans("HT"),
    2016. 

  2016. 					'TTC'=>$langs->trans("TTC")
    2017. 

  2017.         );
    2018. 

  2018.         foreach($options as $id => $value)
    2019. 

  2019.         {
    2020. 

  2020.             if ($selected == $id)
    2021. 

  2021.             {
    2022. 

  2022.                 $return.= '<option value="'.$id.'" selected="selected">'.$value;
    2023. 

  2023.             }
    2024. 

  2024.             else
    2025. 

  2025.             {
    2026. 

  2026.                 $return.= '<option value="'.$id.'">'.$value;
    2027. 

  2027.             }
    2028. 

  2028.             $return.= '</option>';
    2029. 

  2029.         }
    2030. 

  2030.         $return.= '</select>';
    2031. 

  2031. 

  2032.         return $return;
    2033. 

  2033.     }
    2034. 

  2034. 

  2035. 

  2036.     /**
    2037. 

  2037.      *    Return combo list of differents status of a proposal
    2038. 

  2038.      *    Values are id of table c_propalst
    2039. 

  2039.      *
    2040. 

  2040.      *    @param    selected    etat pre-selectionne
    2041. 

  2041.      *    @param	short		Use short labels
    2042. 

  2042.      */
    2043. 

  2043.     function select_propal_statut($selected='',$short=0)
    2044. 

  2044.     {
    2045. 

  2045.         global $langs;
    2046. 

  2046. 

  2047.         $sql = "SELECT id, code, label, active FROM ".MAIN_DB_PREFIX."c_propalst";
    2048. 

  2048.         $sql .= " WHERE active = 1";
    2049. 

  2049. 

  2050.         dol_syslog("Form::select_propal_statut sql=".$sql);
    2051. 

  2051.         $resql=$this->db->query($sql);
    2052. 

  2052.         if ($resql)
    2053. 

  2053.         {
    2054. 

  2054.             print '<select class="flat" name="propal_statut">';
    2055. 

  2055.             print '<option value="">&nbsp;</option>';
    2056. 

  2056.             $num = $this->db->num_rows($resql);
    2057. 

  2057.             $i = 0;
    2058. 

  2058.             if ($num)
    2059. 

  2059.             {
    2060. 

  2060.                 while ($i < $num)
    2061. 

  2061.                 {
    2062. 

  2062.                     $obj = $this->db->fetch_object($resql);
    2063. 

  2063.                     if ($selected == $obj->id)
    2064. 

  2064.                     {
    2065. 

  2065.                         print '<option value="'.$obj->id.'" selected="selected">';
    2066. 

  2066.                     }
    2067. 

  2067.                     else
    2068. 

  2068.                     {
    2069. 

  2069.                         print '<option value="'.$obj->id.'">';
    2070. 

  2070.                     }
    2071. 

  2071.                     $key=$obj->code;
    2072. 

  2072.                     if ($langs->trans("PropalStatus".$key.($short?'Short':'')) != "PropalStatus".$key.($short?'Short':''))
    2073. 

  2073.                     {
    2074. 

  2074.                         print $langs->trans("PropalStatus".$key.($short?'Short':''));
    2075. 

  2075.                     }
    2076. 

  2076.                     else
    2077. 

  2077.                     {
    2078. 

  2078.                         $conv_to_new_code=array('PR_DRAFT'=>'Draft','PR_OPEN'=>'Opened','PR_CLOSED'=>'Closed','PR_SIGNED'=>'Signed','PR_NOTSIGNED'=>'NotSigned','PR_FAC'=>'Billed');
    2079. 

  2079.                         if (! empty($conv_to_new_code[$obj->code])) $key=$conv_to_new_code[$obj->code];
    2080. 

  2080.                         print ($langs->trans("PropalStatus".$key.($short?'Short':''))!="PropalStatus".$key.($short?'Short':''))?$langs->trans("PropalStatus".$key.($short?'Short':'')):$obj->label;
    2081. 

  2081.                     }
    2082. 

  2082.                     print '</option>';
    2083. 

  2083.                     $i++;
    2084. 

  2084.                 }
    2085. 

  2085.             }
    2086. 

  2086.             print '</select>';
    2087. 

  2087.         }
    2088. 

  2088.         else
    2089. 

  2089.         {
    2090. 

  2090.             dol_print_error($this->db);
    2091. 

  2091.         }
    2092. 

  2092.     }
    2093. 

  2093. 

  2094. 

  2095.     /**
    2096. 

  2096.      *    Return a HTML select list of bank accounts
    2097. 

  2097.      *
    2098. 

  2098.      *    @param      selected          Id account pre-selected
    2099. 

  2099.      *    @param      htmlname          Name of select zone
    2100. 

  2100.      *    @param      statut            Status of searched accounts (0=open, 1=closed)
    2101. 

  2101.      *    @param      filtre            To filter list
    2102. 

  2102.      *    @param      useempty          1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
    2103. 

  2103.      *    @param      moreattrib        To add more attribute on select
    2104. 

  2104.      */
    2105. 

  2105.     function select_comptes($selected='',$htmlname='accountid',$statut=0,$filtre='',$useempty=0,$moreattrib='')
    2106. 

  2106.     {
    2107. 

  2107.         global $langs, $conf;
    2108. 

  2108. 

  2109.         $langs->load("admin");
    2110. 

  2110. 

  2111.         $sql = "SELECT rowid, label, bank";
    2112. 

  2112.         $sql.= " FROM ".MAIN_DB_PREFIX."bank_account";
    2113. 

  2113.         $sql.= " WHERE clos = '".$statut."'";
    2114. 

  2114.         $sql.= " AND entity = ".$conf->entity;
    2115. 

  2115.         if ($filtre) $sql.=" AND ".$filtre;
    2116. 

  2116.         $sql.= " ORDER BY label";
    2117. 

  2117. 

  2118.         dol_syslog("Form::select_comptes sql=".$sql);
    2119. 

  2119.         $result = $this->db->query($sql);
    2120. 

  2120.         if ($result)
    2121. 

  2121.         {
    2122. 

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

  2123.             $i = 0;
    2124. 

  2124.             if ($num)
    2125. 

  2125.             {
    2126. 

  2126.                 print '<select id="select'.$htmlname.'" class="flat selectbankaccount" name="'.$htmlname.'"'.($moreattrib?' '.$moreattrib:'').'>';
    2127. 

  2127.                 if ($useempty == 1 || ($useempty == 2 && $num > 1))
    2128. 

  2128.                 {
    2129. 

  2129.                     print '<option value="'.$obj->rowid.'">&nbsp;</option>';
    2130. 

  2130.                 }
    2131. 

  2131. 

  2132.                 while ($i < $num)
    2133. 

  2133.                 {
    2134. 

  2134.                     $obj = $this->db->fetch_object($result);
    2135. 

  2135.                     if ($selected == $obj->rowid)
    2136. 

  2136.                     {
    2137. 

  2137.                         print '<option value="'.$obj->rowid.'" selected="selected">';
    2138. 

  2138.                     }
    2139. 

  2139.                     else
    2140. 

  2140.                     {
    2141. 

  2141.                         print '<option value="'.$obj->rowid.'">';
    2142. 

  2142.                     }
    2143. 

  2143.                     print $obj->label;
    2144. 

  2144.                     print '</option>';
    2145. 

  2145.                     $i++;
    2146. 

  2146.                 }
    2147. 

  2147.                 print "</select>";
    2148. 

  2148.             }
    2149. 

  2149.             else
    2150. 

  2150.             {
    2151. 

  2151.                 print $langs->trans("NoActiveBankAccountDefined");
    2152. 

  2152.             }
    2153. 

  2153.         }
    2154. 

  2154.         else {
    2155. 

  2155.             dol_print_error($this->db);
    2156. 

  2156.         }
    2157. 

  2157.     }
    2158. 

  2158. 

  2159.     /**
    2160. 

  2160.      *    Return list of categories having choosed type
    2161. 

  2161.      *
    2162. 

  2162.      *    @param    type			Type de categories (0=product, 1=supplier, 2=customer, 3=member)
    2163. 

  2163.      *    @param    selected    	Id of category preselected
    2164. 

  2164.      *    @param    select_name		HTML field name
    2165. 

  2165.      *    @param    maxlength       Maximum length for labels
    2166. 

  2166.      *    @param    excludeafterid  Exclude all categories after this leaf in category tree.
    2167. 

  2167.      */
    2168. 

  2168.     function select_all_categories($type, $selected='', $select_name="", $maxlength=64, $excludeafterid=0)
    2169. 

  2169.     {
    2170. 

  2170.         global $langs;
    2171. 

  2171.         $langs->load("categories");
    2172. 

  2172. 

  2173.         if ($select_name=="") $select_name="catMere";
    2174. 

  2174. 

  2175.         $cat = new Categorie($this->db);
    2176. 

  2176.         $cate_arbo = $cat->get_full_arbo($type,$excludeafterid);
    2177. 

  2177. 

  2178.         $output = '<select class="flat" name="'.$select_name.'">';
    2179. 

  2179.         if (is_array($cate_arbo))
    2180. 

  2180.         {
    2181. 

  2181.             if (! count($cate_arbo)) $output.= '<option value="-1" disabled="disabled">'.$langs->trans("NoCategoriesDefined").'</option>';
    2182. 

  2182.             else
    2183. 

  2183.             {
    2184. 

  2184.                 $output.= '<option value="-1">&nbsp;</option>';
    2185. 

  2185.                 foreach($cate_arbo as $key => $value)
    2186. 

  2186.                 {
    2187. 

  2187.                     if ($cate_arbo[$key]['id'] == $selected)
    2188. 

  2188.                     {
    2189. 

  2189.                         $add = 'selected="selected" ';
    2190. 

  2190.                     }
    2191. 

  2191.                     else
    2192. 

  2192.                     {
    2193. 

  2193.                         $add = '';
    2194. 

  2194.                     }
    2195. 

  2195.                     $output.= '<option '.$add.'value="'.$cate_arbo[$key]['id'].'">'.dol_trunc($cate_arbo[$key]['fulllabel'],$maxlength,'middle').'</option>';
    2196. 

  2196.                 }
    2197. 

  2197.             }
    2198. 

  2198.         }
    2199. 

  2199.         $output.= '</select>';
    2200. 

  2200.         $output.= "\n";
    2201. 

  2201.         return $output;
    2202. 

  2202.     }
    2203. 

  2203. 

  2204. 	/**
    2205. 

  2205.      *     Show a confirmation HTML form or AJAX popup
    2206. 

  2206.      *
    2207. 

  2207.      *     @param  page        	   Url of page to call if confirmation is OK
    2208. 

  2208.      *     @param  title       	   title
    2209. 

  2209.      *     @param  question    	   question
    2210. 

  2210.      *     @param  action      	   action
    2211. 

  2211.      *	   @param  formquestion	   an array with forms complementary inputs
    2212. 

  2212.      * 	   @param  selectedchoice  "" or "no" or "yes"
    2213. 

  2213.      * 	   @param  useajax		   0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No
    2214. 

  2214.      *     @param  height          Force height of box
    2215. 

  2215.      *     @return string          'ajax' if a confirm ajax popup is shown, 'html' if it's an html form
    2216. 

  2216.      */
    2217. 

  2217.     function form_confirm($page, $title, $question, $action, $formquestion='', $selectedchoice="", $useajax=0, $height=170, $width=500)
    2218. 

  2218.     {
    2219. 

  2219.     	print $this->formconfirm($page, $title, $question, $action, $formquestion, $selectedchoice, $useajax, $height, $width);
    2220. 

  2220.     }
    2221. 

  2221. 

  2222.     /**
    2223. 

  2223.      *     Show a confirmation HTML form or AJAX popup
    2224. 

  2224.      *
    2225. 

  2225.      *     @param  	string	$page        	   	Url of page to call if confirmation is OK
    2226. 

  2226.      *     @param	string	$title       	   	Title
    2227. 

  2227.      *     @param	string	$question    	   	Question
    2228. 

  2228.      *     @param 	string	$action      	   	Action
    2229. 

  2229.      *	   @param  	array	$formquestion	   	An array with complementary inputs to add into forms: array(array('label'=> ,'type'=> , ))
    2230. 

  2230.      * 	   @param  	string	$selectedchoice  	"" or "no" or "yes"
    2231. 

  2231.      * 	   @param  	int		$useajax		   	0=No, 1=Yes, 2=Yes but submit page with &confirm=no if choice is No
    2232. 

  2232.      *     @param  	int		$height          	Force height of box
    2233. 

  2233.      *     @return 	string          			'ajax' if a confirm ajax popup is shown, 'html' if it's an html form
    2234. 

  2234.      */
    2235. 

  2235.     function formconfirm($page, $title, $question, $action, $formquestion='', $selectedchoice="", $useajax=0, $height=170, $width=500)
    2236. 

  2236.     {
    2237. 

  2237.         global $langs,$conf;
    2238. 

  2238. 

  2239.         $more='';
    2240. 

  2240.         $formconfirm='';
    2241. 

  2241.         $inputarray=array();
    2242. 

  2242. 

  2243.         if (is_array($formquestion) && count($formquestion) > 0)
    2244. 

  2244.         {
    2245. 

  2245.         	$more.='<table class="paddingrightonly" width="100%">'."\n";
    2246. 

  2246.             $more.='<tr><td colspan="3" valign="top">'.$formquestion['text'].'</td></tr>'."\n";
    2247. 

  2247.             foreach ($formquestion as $key => $input)
    2248. 

  2248.             {
    2249. 

  2249.             	if (is_array($input))
    2250. 

  2250.             	{
    2251. 

  2251.             		if ($input['type'] == 'text')
    2252. 

  2252. 	                {
    2253. 

  2253. 	                    $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="'.$input['size'].'" value="'.$input['value'].'" /></td></tr>'."\n";
    2254. 

  2254. 	                }
    2255. 

  2255. 	                else if ($input['type'] == 'password')
    2256. 

  2256. 	                {
    2257. 

  2257. 	                    $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="'.$input['size'].'" value="'.$input['value'].'" /></td></tr>'."\n";
    2258. 

  2258. 	                }
    2259. 

  2259. 	                else if ($input['type'] == 'select')
    2260. 

  2260. 	                {
    2261. 

  2261. 	                	$more.='<tr><td valign="top" style="padding: 4px !important;">';
    2262. 

  2262. 	                	if (! empty($input['label'])) $more.=$input['label'].'</td><td valign="top" colspan="2" align="left" style="padding: 4px !important;">';
    2263. 

  2263. 	                    $more.=$this->selectarray($input['name'],$input['values'],$input['default'],1);
    2264. 

  2264. 	                    $more.='</td></tr>'."\n";
    2265. 

  2265. 	                }
    2266. 

  2266. 	                else if ($input['type'] == 'checkbox')
    2267. 

  2267. 	                {
    2268. 

  2268. 	                    $more.='<tr>';
    2269. 

  2269. 	                    $more.='<td valign="top">'.$input['label'].' </td><td valign="top" align="left">';
    2270. 

  2270. 	                    $more.='<input type="checkbox" class="flat" id="'.$input['name'].'" name="'.$input['name'].'"';
    2271. 

  2271. 	                    if (! is_bool($input['value']) && $input['value'] != 'false') $more.=' checked="checked"';
    2272. 

  2272. 	                    if (is_bool($input['value']) && $input['value']) $more.=' checked="checked"';
    2273. 

  2273. 	                    if ($input['disabled']) $more.=' disabled="disabled"';
    2274. 

  2274. 	                    $more.=' /></td>';
    2275. 

  2275. 	                    $more.='<td valign="top" align="left">&nbsp;</td>';
    2276. 

  2276. 	                    $more.='</tr>'."\n";
    2277. 

  2277. 	                }
    2278. 

  2278. 	                else if ($input['type'] == 'radio')
    2279. 

  2279. 	                {
    2280. 

  2280. 	                    $i=0;
    2281. 

  2281. 	                    foreach($input['values'] as $selkey => $selval)
    2282. 

  2282. 	                    {
    2283. 

  2283. 	                        $more.='<tr>';
    2284. 

  2284. 	                        if ($i==0) $more.='<td valign="top">'.$input['label'].'</td>';
    2285. 

  2285. 	                        else $more.='<td>&nbsp;</td>';
    2286. 

  2286. 	                        $more.='<td valign="top" width="20"><input type="radio" class="flat" id="'.$input['name'].'" name="'.$input['name'].'" value="'.$selkey.'"';
    2287. 

  2287. 	                        if ($input['disabled']) $more.=' disabled="disabled"';
    2288. 

  2288. 	                        $more.=' /></td>';
    2289. 

  2289. 	                        $more.='<td valign="top" align="left">';
    2290. 

  2290. 	                        $more.=$selval;
    2291. 

  2291. 	                        $more.='</td></tr>'."\n";
    2292. 

  2292. 	                        $i++;
    2293. 

  2293. 	                    }
    2294. 

  2294. 	                }
    2295. 

  2295. 	            	else if ($input['type'] == 'other')
    2296. 

  2296. 	                {
    2297. 

  2297. 	                	$more.='<tr><td valign="top">';
    2298. 

  2298. 	                	if (! empty($input['label'])) $more.=$input['label'].'</td><td valign="top" colspan="2" align="left">';
    2299. 

  2299. 	                    $more.=$input['value'];
    2300. 

  2300. 	                    $more.='</td></tr>'."\n";
    2301. 

  2301. 	                }
    2302. 

  2302. 	                array_push($inputarray,$input['name']);
    2303. 

  2303.             	}
    2304. 

  2304.             }
    2305. 

  2305.             $more.='</table>'."\n";
    2306. 

  2306.         }
    2307. 

  2307. 

  2308.         $formconfirm.= "\n<!-- begin form_confirm -->\n";
    2309. 

  2309. 

  2310.         if ($useajax && $conf->use_javascript_ajax)
    2311. 

  2311.         {
    2312. 

  2312.         	$autoOpen=true;
    2313. 

  2313.         	$dialogconfirm='dialog-confirm';
    2314. 

  2314.         	if (! is_int($useajax)) {
    2315. 

  2315.         		$button=$useajax;
    2316. 

  2316.         		$useajax=1;
    2317. 

  2317.         		$autoOpen=false;
    2318. 

  2318.         		$dialogconfirm.='-'.$button;
    2319. 

  2319.         	}
    2320. 

  2320.             $pageyes=$page.'&action='.$action.'&confirm=yes';
    2321. 

  2321.             $pageno=($useajax == 2?$page.'&confirm=no':'');
    2322. 

  2322. 

  2323.             // New code using jQuery only
    2324. 

  2324.             $formconfirm.= '<div id="'.$dialogconfirm.'" title="'.dol_escape_htmltag($title).'" style="display: none;">';
    2325. 

  2325.             if (! empty($more)) $formconfirm.= '<p>'.$more.'</p>';
    2326. 

  2326.             $formconfirm.= img_help('','').' '.$question;
    2327. 

  2327.             $formconfirm.= '</div>'."\n";
    2328. 

  2328.             $formconfirm.= '<script type="text/javascript">
    2329. 

  2329.             $(function() {
    2330. 

  2330.                 var choice=\'ko\';
    2331. 

  2331.                 var	$inputarray='.json_encode($inputarray).';
    2332. 

  2332.                 var button=\''.$button.'\';
    2333. 

  2333.             	var dialogconfirm=\''.$dialogconfirm.'\';
    2334. 

    2335. 

  2335. 			    $( "#" + dialogconfirm ).dialog({
    2336. 

  2336. 			        autoOpen: '.($autoOpen?'true':'false').',
    2337. 

  2337. 			        resizable: false,
    2338. 

  2338. 			        height:'.$height.',
    2339. 

  2339. 			        width:'.$width.',
    2340. 

  2340. 			        modal: true,
    2341. 

  2341. 			        closeOnEscape: false,
    2342. 

  2342. 			        close: function(event, ui) {
    2343. 

  2343. 			             if (choice == \'ok\') {
    2344. 

  2344. 			             	var options="";
    2345. 

  2345. 			             	if ($inputarray.length>0) {
    2346. 

  2346. 			             		$.each($inputarray, function() {
    2347. 

  2347. 			             			var inputname = this;
    2348. 

  2348. 			             			var inputvalue = $("#" + this).val();
    2349. 

  2349. 			             			options += \'&\' + inputname + \'=\' + inputvalue;
    2350. 

  2350. 			             		});
    2351. 

  2351. 			             		//alert(options);
    2352. 

  2352. 			             	}
    2353. 

  2353. 			             	location.href=\''.$pageyes.'\' + options;
    2354. 

  2354. 			             }
    2355. 

  2355.                          '.($pageno?'if (choice == \'ko\') location.href=\''.$pageno.'\';':'').'
    2356. 

  2356. 		              },
    2357. 

  2357. 			        buttons: {
    2358. 

  2358. 			            \''.dol_escape_js($langs->transnoentities("Yes")).'\': function() {
    2359. 

  2359. 			                choice=\'ok\';
    2360. 

  2360. 			                $(this).dialog(\'close\');
    2361. 

  2361. 			            },
    2362. 

  2362. 			            \''.dol_escape_js($langs->transnoentities("No")).'\': function() {
    2363. 

  2363. 			            	choice=\'ko\';
    2364. 

  2364. 			                $(this).dialog(\'close\');
    2365. 

  2365. 			            }
    2366. 

  2366. 			        }
    2367. 

  2367. 			    });
    2368. 

  2368. 

  2369. 			    if (button.length > 0) {
    2370. 

  2370. 			    	$( "#" + button ).click(function() {
    2371. 

  2371. 			    		$("#" + dialogconfirm ).dialog(\'open\');
    2372. 

  2372. 			    	});
    2373. 

  2373. 			    }
    2374. 

  2374. 			});
    2375. 

  2375. 			</script>';
    2376. 

    2377. 

  2377.             $formconfirm.= "\n";
    2378. 

  2378.         }
    2379. 

  2379.         else
    2380. 

  2380.         {
    2381. 

  2381.             $formconfirm.= '<form method="POST" action="'.$page.'" class="notoptoleftroright">'."\n";
    2382. 

  2382.             $formconfirm.= '<input type="hidden" name="action" value="'.$action.'">';
    2383. 

  2383.             $formconfirm.= '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">'."\n";
    2384. 

  2384. 

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

  2386. 

  2387.             // Ligne titre
    2388. 

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

  2389. 

  2390.             // Ligne formulaire
    2391. 

  2391.             if ($more)
    2392. 

  2392.             {
    2393. 

  2393.                 $formconfirm.='<tr class="valid"><td class="valid" colspan="3">'."\n";
    2394. 

  2394.                 $formconfirm.=$more;
    2395. 

  2395.                 $formconfirm.='</td></tr>'."\n";
    2396. 

  2396.             }
    2397. 

  2397. 

  2398.             // Ligne message
    2399. 

  2399.             $formconfirm.= '<tr class="valid">';
    2400. 

  2400.             $formconfirm.= '<td class="valid">'.$question.'</td>';
    2401. 

  2401.             $formconfirm.= '<td class="valid">';
    2402. 

  2402.             $newselectedchoice=empty($selectedchoice)?"no":$selectedchoice;
    2403. 

  2403.             $formconfirm.= $this->selectyesno("confirm",$newselectedchoice);
    2404. 

  2404.             $formconfirm.= '</td>';
    2405. 

  2405.             $formconfirm.= '<td class="valid" align="center"><input class="button" type="submit" value="'.$langs->trans("Validate").'"></td>';
    2406. 

  2406.             $formconfirm.= '</tr>'."\n";
    2407. 

  2407. 

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

  2409. 

  2410.             if (is_array($formquestion))
    2411. 

  2411.             {
    2412. 

  2412.                 foreach ($formquestion as $key => $input)
    2413. 

  2413.                 {
    2414. 

  2414.                     if ($input['type'] == 'hidden') $formconfirm.= '<input type="hidden" name="'.$input['name'].'" value="'.$input['value'].'">';
    2415. 

  2415.                 }
    2416. 

  2416.             }
    2417. 

  2417. 

  2418.             $formconfirm.= "</form>\n";
    2419. 

  2419.             $formconfirm.= '<br>';
    2420. 

  2420.         }
    2421. 

  2421. 

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

  2423.         return $formconfirm;
    2424. 

  2424.     }
    2425. 

  2425. 

  2426. 

  2427.     /**
    2428. 

  2428.      *    Show a form to select a project
    2429. 

  2429.      *
    2430. 

  2430.      *    @param	int		$page        Page
    2431. 

  2431.      *    @param	int		$socid       Id third party
    2432. 

  2432.      *    @param    int		$selected    Id pre-selected project
    2433. 

  2433.      *    @param    string	$htmlname    Name of select field
    2434. 

  2434.      *    @return	void
    2435. 

  2435.      */
    2436. 

  2436.     function form_project($page, $socid, $selected='', $htmlname='projectid')
    2437. 

  2437.     {
    2438. 

  2438.         global $langs;
    2439. 

  2439. 

  2440.         require_once(DOL_DOCUMENT_ROOT."/core/lib/project.lib.php");
    2441. 

  2441. 

  2442.         $langs->load("project");
    2443. 

  2443.         if ($htmlname != "none")
    2444. 

  2444.         {
    2445. 

  2445.             print '<form method="post" action="'.$page.'">';
    2446. 

  2446.             print '<input type="hidden" name="action" value="classin">';
    2447. 

  2447.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2448. 

  2448.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2449. 

  2449.             print '<tr><td>';
    2450. 

  2450.             //print "$socid,$selected,$htmlname";
    2451. 

  2451.             select_projects($socid,$selected,$htmlname);
    2452. 

  2452.             print '</td>';
    2453. 

  2453.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2454. 

  2454.             print '</tr></table></form>';
    2455. 

  2455.         }
    2456. 

  2456.         else
    2457. 

  2457.         {
    2458. 

  2458.             if ($selected)
    2459. 

  2459.             {
    2460. 

  2460.                 $projet = new Project($this->db);
    2461. 

  2461.                 $projet->fetch($selected);
    2462. 

  2462.                 //print '<a href="'.DOL_URL_ROOT.'/projet/fiche.php?id='.$selected.'">'.$projet->title.'</a>';
    2463. 

  2463.                 print $projet->getNomUrl(0,'',1);
    2464. 

  2464.             }
    2465. 

  2465.             else
    2466. 

  2466.             {
    2467. 

  2467.                 print "&nbsp;";
    2468. 

  2468.             }
    2469. 

  2469.         }
    2470. 

  2470.     }
    2471. 

  2471. 

  2472.     /**
    2473. 

  2473.      *    	Show a form to select payment conditions
    2474. 

  2474.      *
    2475. 

  2475.      *    	@param      page        	Page
    2476. 

  2476.      *    	@param      selected    	Id condition pre-selectionne
    2477. 

  2477.      *    	@param      htmlname    	Name of select html field
    2478. 

  2478.      *		@param		addempty		Ajoute entree vide
    2479. 

  2479.      *    @return	void
    2480. 

  2480.      */
    2481. 

  2481.     function form_conditions_reglement($page, $selected='', $htmlname='cond_reglement_id', $addempty=0)
    2482. 

  2482.     {
    2483. 

  2483.         global $langs;
    2484. 

  2484.         if ($htmlname != "none")
    2485. 

  2485.         {
    2486. 

  2486.             print '<form method="post" action="'.$page.'">';
    2487. 

  2487.             print '<input type="hidden" name="action" value="setconditions">';
    2488. 

  2488.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2489. 

  2489.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2490. 

  2490.             print '<tr><td>';
    2491. 

  2491.             $this->select_conditions_paiements($selected,$htmlname,-1,$addempty);
    2492. 

  2492.             print '</td>';
    2493. 

  2493.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2494. 

  2494.             print '</tr></table></form>';
    2495. 

  2495.         }
    2496. 

  2496.         else
    2497. 

  2497.         {
    2498. 

  2498.             if ($selected)
    2499. 

  2499.             {
    2500. 

  2500.                 $this->load_cache_conditions_paiements();
    2501. 

  2501.                 print $this->cache_conditions_paiements[$selected]['label'];
    2502. 

  2502.             } else {
    2503. 

  2503.                 print "&nbsp;";
    2504. 

  2504.             }
    2505. 

  2505.         }
    2506. 

  2506.     }
    2507. 

  2507. 

  2508. 	 /**
    2509. 

  2509.      *    	Show a form to select a delivery delay
    2510. 

  2510.      *
    2511. 

  2511.      *    	@param      page        	Page
    2512. 

  2512.      *    	@param      selected    	Id condition pre-selectionne
    2513. 

  2513.      *    	@param      htmlname    	Name of select html field
    2514. 

  2514.      *		@param		addempty		Ajoute entree vide
    2515. 

  2515.      *    @return	void
    2516. 

  2516.      */
    2517. 

  2517.     function form_availability($page, $selected='', $htmlname='availability', $addempty=0)
    2518. 

  2518.     {
    2519. 

  2519.         global $langs;
    2520. 

  2520.         if ($htmlname != "none")
    2521. 

  2521.         {
    2522. 

  2522.             print '<form method="post" action="'.$page.'">';
    2523. 

  2523.             print '<input type="hidden" name="action" value="setavailability">';
    2524. 

  2524.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2525. 

  2525.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2526. 

  2526.             print '<tr><td>';
    2527. 

  2527.             $this->select_availability($selected,$htmlname,-1,$addempty);
    2528. 

  2528.             print '</td>';
    2529. 

  2529.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2530. 

  2530.             print '</tr></table></form>';
    2531. 

  2531.         }
    2532. 

  2532.         else
    2533. 

  2533.         {
    2534. 

  2534.             if ($selected)
    2535. 

  2535.             {
    2536. 

  2536.                 $this->load_cache_availability();
    2537. 

  2537.                 print $this->cache_availability[$selected]['label'];
    2538. 

  2538.             } else {
    2539. 

  2539.                 print "&nbsp;";
    2540. 

  2540.             }
    2541. 

  2541.         }
    2542. 

  2542.     }
    2543. 

  2543. 

  2544. 	/**
    2545. 

  2545.      *    	Show a select form to select origin
    2546. 

  2546.      *
    2547. 

  2547.      *    	@param      page        	Page
    2548. 

  2548.      *    	@param      selected    	Id condition pre-selectionne
    2549. 

  2549.      *    	@param      htmlname    	Name of select html field
    2550. 

  2550.      *		@param		addempty		Add empty entry
    2551. 

  2551.      *    @return	void
    2552. 

  2552.      */
    2553. 

  2553.     function form_demand_reason($page, $selected='', $htmlname='demandreason', $addempty=0)
    2554. 

  2554.     {
    2555. 

  2555.         global $langs;
    2556. 

  2556.         if ($htmlname != "none")
    2557. 

  2557.         {
    2558. 

  2558.             print '<form method="post" action="'.$page.'">';
    2559. 

  2559.             print '<input type="hidden" name="action" value="setdemandreason">';
    2560. 

  2560.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2561. 

  2561.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2562. 

  2562.             print '<tr><td>';
    2563. 

  2563.             $this->select_demand_reason($selected,$htmlname,-1,$addempty);
    2564. 

  2564.             print '</td>';
    2565. 

  2565.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2566. 

  2566.             print '</tr></table></form>';
    2567. 

  2567.         }
    2568. 

  2568.         else
    2569. 

  2569.         {
    2570. 

  2570.             if ($selected)
    2571. 

  2571.             {
    2572. 

  2572.                 $this->load_cache_demand_reason();
    2573. 

  2573.                 foreach ($this->cache_demand_reason as $key => $val)
    2574. 

  2574.                 {
    2575. 

  2575.                     if ($val['id'] == $selected)
    2576. 

  2576.                     {
    2577. 

  2577.                         print $val['label'];
    2578. 

  2578.                         break;
    2579. 

  2579.                     }
    2580. 

  2580.                 }
    2581. 

  2581.             } else {
    2582. 

  2582.                 print "&nbsp;";
    2583. 

  2583.             }
    2584. 

  2584.         }
    2585. 

  2585.     }
    2586. 

  2586. 

  2587.     /**
    2588. 

  2588.      *    Show a form to select a date
    2589. 

  2589.      *
    2590. 

  2590.      *    @param      page        Page
    2591. 

  2591.      *    @param      selected    Date preselected
    2592. 

  2592.      *    @param      htmlname    Name of input html field
    2593. 

  2593.      *    @return	void
    2594. 

  2594.      */
    2595. 

  2595.     function form_date($page, $selected='', $htmlname)
    2596. 

  2596.     {
    2597. 

  2597.         global $langs;
    2598. 

  2598. 

  2599.         if ($htmlname != "none")
    2600. 

  2600.         {
    2601. 

  2601.             print '<form method="post" action="'.$page.'" name="form'.$htmlname.'">';
    2602. 

  2602.             print '<input type="hidden" name="action" value="set'.$htmlname.'">';
    2603. 

  2603.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2604. 

  2604.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2605. 

  2605.             print '<tr><td>';
    2606. 

  2606.             print $this->select_date($selected,$htmlname,0,0,1,'form'.$htmlname);
    2607. 

  2607.             print '</td>';
    2608. 

  2608.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2609. 

  2609.             print '</tr></table></form>';
    2610. 

  2610.         }
    2611. 

  2611.         else
    2612. 

  2612.         {
    2613. 

  2613.             if ($selected)
    2614. 

  2614.             {
    2615. 

  2615.                 $this->load_cache_types_paiements();
    2616. 

  2616.                 print $this->cache_types_paiements[$selected]['label'];
    2617. 

  2617.             } else {
    2618. 

  2618.                 print "&nbsp;";
    2619. 

  2619.             }
    2620. 

  2620.         }
    2621. 

  2621.     }
    2622. 

  2622. 

  2623. 

  2624.     /**
    2625. 

  2625.      *    	Show a select form to choose a user
    2626. 

  2626.      *
    2627. 

  2627.      *    	@param      page        	Page
    2628. 

  2628.      *   	@param      selected    	Id of user preselected
    2629. 

  2629.      *    	@param      htmlname    	Name of input html field
    2630. 

  2630.      *  	@param      exclude         List of users id to exclude
    2631. 

  2631.      *  	@param      include         List of users id to include
    2632. 

  2632.      *    @return	void
    2633. 

  2633.      */
    2634. 

  2634.     function form_users($page, $selected='', $htmlname='userid', $exclude='', $include='')
    2635. 

  2635.     {
    2636. 

  2636.         global $langs;
    2637. 

  2637. 

  2638.         if ($htmlname != "none")
    2639. 

  2639.         {
    2640. 

  2640.             print '<form method="POST" action="'.$page.'" name="form'.$htmlname.'">';
    2641. 

  2641.             print '<input type="hidden" name="action" value="set'.$htmlname.'">';
    2642. 

  2642.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2643. 

  2643.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2644. 

  2644.             print '<tr><td>';
    2645. 

  2645.             print $this->select_users($selected,$htmlname,1,$exclude,0,$include);
    2646. 

  2646.             print '</td>';
    2647. 

  2647.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2648. 

  2648.             print '</tr></table></form>';
    2649. 

  2649.         }
    2650. 

  2650.         else
    2651. 

  2651.         {
    2652. 

  2652.             if ($selected)
    2653. 

  2653.             {
    2654. 

  2654.                 require_once(DOL_DOCUMENT_ROOT ."/user/class/user.class.php");
    2655. 

  2655.                 //$this->load_cache_contacts();
    2656. 

  2656.                 //print $this->cache_contacts[$selected];
    2657. 

  2657.                 $theuser=new User($this->db);
    2658. 

  2658.                 $theuser->fetch($selected);
    2659. 

  2659.                 print $theuser->getNomUrl(1);
    2660. 

  2660.             } else {
    2661. 

  2661.                 print "&nbsp;";
    2662. 

  2662.             }
    2663. 

  2663.         }
    2664. 

  2664.     }
    2665. 

  2665. 

  2666. 

  2667.     /**
    2668. 

  2668.      *    Affiche formulaire de selection des modes de reglement
    2669. 

  2669.      *
    2670. 

  2670.      *    @param      page        Page
    2671. 

  2671.      *    @param      selected    Id mode pre-selectionne
    2672. 

  2672.      *    @param      htmlname    Name of select html field
    2673. 

  2673.      *    @return	void
    2674. 

  2674.      */
    2675. 

  2675.     function form_modes_reglement($page, $selected='', $htmlname='mode_reglement_id')
    2676. 

  2676.     {
    2677. 

  2677.         global $langs;
    2678. 

  2678.         if ($htmlname != "none")
    2679. 

  2679.         {
    2680. 

  2680.             print '<form method="POST" action="'.$page.'">';
    2681. 

  2681.             print '<input type="hidden" name="action" value="setmode">';
    2682. 

  2682.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2683. 

  2683.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2684. 

  2684.             print '<tr><td>';
    2685. 

  2685.             $this->select_types_paiements($selected,$htmlname);
    2686. 

  2686.             print '</td>';
    2687. 

  2687.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2688. 

  2688.             print '</tr></table></form>';
    2689. 

  2689.         }
    2690. 

  2690.         else
    2691. 

  2691.         {
    2692. 

  2692.             if ($selected)
    2693. 

  2693.             {
    2694. 

  2694.                 $this->load_cache_types_paiements();
    2695. 

  2695.                 print $this->cache_types_paiements[$selected]['label'];
    2696. 

  2696.             } else {
    2697. 

  2697.                 print "&nbsp;";
    2698. 

  2698.             }
    2699. 

  2699.         }
    2700. 

  2700.     }
    2701. 

  2701. 

  2702. 

  2703.     /**
    2704. 

  2704.      *	Show a select box with available absolute discounts
    2705. 

  2705.      *
    2706. 

  2706.      *  @param  string	$page        	Page URL where form is shown
    2707. 

  2707.      *  @param  int		$selected    	Value pre-selected
    2708. 

  2708.      *	@param  string	$htmlname    	Nom du formulaire select. Si none, non modifiable
    2709. 

  2709.      *	@param	int		$socid			Third party id
    2710. 

  2710.      * 	@param	float	$amount			Total amount available
    2711. 

  2711.      * 	@param	string	$filter			SQL filter on discounts
    2712. 

  2712.      * 	@param	int		$maxvalue		Max value for lines that can be selected
    2713. 

  2713.      *  @param  string	$more           More string to add
    2714. 

  2714.      *  @return	void
    2715. 

  2715.      */
    2716. 

  2716.     function form_remise_dispo($page, $selected='', $htmlname='remise_id',$socid, $amount, $filter='', $maxvalue=0, $more='')
    2717. 

  2717.     {
    2718. 

  2718.         global $conf,$langs;
    2719. 

  2719.         if ($htmlname != "none")
    2720. 

  2720.         {
    2721. 

  2721.             print '<form method="post" action="'.$page.'">';
    2722. 

  2722.             print '<input type="hidden" name="action" value="setabsolutediscount">';
    2723. 

  2723.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2724. 

  2724.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2725. 

  2725.             print '<tr><td nowrap="nowrap">';
    2726. 

  2726.             //if (! $filter || $filter=="fk_facture_source IS NULL") print $langs->trans("CompanyHasAbsoluteDiscount",price($amount),$langs->transnoentities("Currency".$conf->monnaie)).': ';    // If we want deposit to be substracted to payments only and not to total of final invoice
    2727. 

  2727.             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->monnaie)).': ';
    2728. 

  2728.             else print $langs->trans("CompanyHasCreditNote",price($amount),$langs->transnoentities("Currency".$conf->monnaie)).': ';
    2729. 

  2729.             $newfilter='fk_facture IS NULL AND fk_facture_line IS NULL';	// Remises disponibles
    2730. 

  2730.             if ($filter) $newfilter.=' AND ('.$filter.')';
    2731. 

  2731.             $nbqualifiedlines=$this->select_remises($selected,$htmlname,$newfilter,$socid,$maxvalue);
    2732. 

  2732.             print '</td>';
    2733. 

  2733.             print '<td>';
    2734. 

  2734.             if ($nbqualifiedlines > 0)
    2735. 

  2735.             {
    2736. 

  2736.                 print ' &nbsp; <input type="submit" class="button" value="'.$langs->trans("UseLine").'"';
    2737. 

  2737.                 if ($filter && $filter != "fk_facture_source IS NULL OR (fk_facture_source IS NOT NULL AND description='(DEPOSIT)')") print '" title="'.$langs->trans("UseCreditNoteInInvoicePayment");
    2738. 

  2738.                 print '">';
    2739. 

  2739.             }
    2740. 

  2740.             if ($more) print $more;
    2741. 

  2741.             print '</td>';
    2742. 

  2742.             print '</tr></table></form>';
    2743. 

  2743.         }
    2744. 

  2744.         else
    2745. 

  2745.         {
    2746. 

  2746.             if ($selected)
    2747. 

  2747.             {
    2748. 

  2748.                 print $selected;
    2749. 

  2749.             }
    2750. 

  2750.             else
    2751. 

  2751.             {
    2752. 

  2752.                 print "0";
    2753. 

  2753.             }
    2754. 

  2754.         }
    2755. 

  2755.     }
    2756. 

  2756. 

  2757. 

  2758.     /**
    2759. 

  2759.      *    Affiche formulaire de selection des contacts
    2760. 

  2760.      *
    2761. 

  2761.      *    @param      page        Page
    2762. 

  2762.      *    @param      selected    Id contact pre-selectionne
    2763. 

  2763.      *    @param      htmlname    Nom du formulaire select
    2764. 

  2764.      *    @return	void
    2765. 

  2765.      */
    2766. 

  2766.     function form_contacts($page, $societe, $selected='', $htmlname='contactidp')
    2767. 

  2767.     {
    2768. 

  2768.         global $langs;
    2769. 

  2769. 

  2770.         if ($htmlname != "none")
    2771. 

  2771.         {
    2772. 

  2772.             print '<form method="post" action="'.$page.'">';
    2773. 

  2773.             print '<input type="hidden" name="action" value="set_contact">';
    2774. 

  2774.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2775. 

  2775.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2776. 

  2776.             print '<tr><td>';
    2777. 

  2777.             $num=$this->select_contacts($societe->id, $selected, $htmlname);
    2778. 

  2778.             if ($num==0)
    2779. 

  2779.             {
    2780. 

  2780.                 print '<font class="error">Cette societe n\'a pas de contact, veuillez en cr�er un avant de faire votre proposition commerciale</font><br>';
    2781. 

  2781.                 print '<a href="'.DOL_URL_ROOT.'/contact/fiche.php?socid='.$societe->id.'&amp;action=create&amp;backtoreferer=1">'.$langs->trans('AddContact').'</a>';
    2782. 

  2782.             }
    2783. 

  2783.             print '</td>';
    2784. 

  2784.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2785. 

  2785.             print '</tr></table></form>';
    2786. 

  2786.         }
    2787. 

  2787.         else
    2788. 

  2788.         {
    2789. 

  2789.             if ($selected)
    2790. 

  2790.             {
    2791. 

  2791.                 require_once(DOL_DOCUMENT_ROOT ."/contact/class/contact.class.php");
    2792. 

  2792.                 //$this->load_cache_contacts();
    2793. 

  2793.                 //print $this->cache_contacts[$selected];
    2794. 

  2794.                 $contact=new Contact($this->db);
    2795. 

  2795.                 $contact->fetch($selected);
    2796. 

  2796.                 print $contact->getFullName($langs);
    2797. 

  2797.             } else {
    2798. 

  2798.                 print "&nbsp;";
    2799. 

  2799.             }
    2800. 

  2800.         }
    2801. 

  2801.     }
    2802. 

  2802. 

  2803. /**
    2804. 

  2804.      *    Affiche formulaire de selection des tiers
    2805. 

  2805.      *
    2806. 

  2806.      *    @param      page        Page
    2807. 

  2807.      *    @param      selected    Id contact pre-selectionne
    2808. 

  2808.      *    @param      htmlname    Nom du formulaire select
    2809. 

  2809.      *    @return	void
    2810. 

  2810.      */
    2811. 

  2811.     function form_thirdparty($page, $selected='', $htmlname='socid')
    2812. 

  2812.     {
    2813. 

  2813.         global $langs;
    2814. 

  2814. 

  2815.         if ($htmlname != "none")
    2816. 

  2816.         {
    2817. 

  2817.             print '<form method="post" action="'.$page.'">';
    2818. 

  2818.             print '<input type="hidden" name="action" value="set_thirdparty">';
    2819. 

  2819.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2820. 

  2820.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2821. 

  2821.             print '<tr><td>';
    2822. 

  2822.             $num=$this->select_societes($selected , $htmlname);
    2823. 

  2823.             print '</td>';
    2824. 

  2824.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
    2825. 

  2825.             print '</tr></table></form>';
    2826. 

  2826.         }
    2827. 

  2827.         else
    2828. 

  2828.         {
    2829. 

  2829.             if ($selected)
    2830. 

  2830.             {
    2831. 

  2831.                 require_once(DOL_DOCUMENT_ROOT ."/societe/class/societe.class.php");
    2832. 

  2832.                 $soc = new Societe($this->db);
    2833. 

  2833.                 $soc->fetch($selected);
    2834. 

  2834.                 print $soc->getNomUrl($langs);
    2835. 

  2835.             } else {
    2836. 

  2836.                 print "&nbsp;";
    2837. 

  2837.             }
    2838. 

  2838.         }
    2839. 

  2839.     }
    2840. 

  2840. 

  2841.     /**
    2842. 

  2842.      *    	Affiche formulaire de selection de l'adresse
    2843. 

  2843.      *
    2844. 

  2844.      *    	@param      page        	Page
    2845. 

  2845.      *    	@param      selected    	Id condition pre-selectionne
    2846. 

  2846.      *    	@param      htmlname    	Nom du formulaire select
    2847. 

  2847.      *		@param		origin        	Origine de l'appel pour pouvoir creer un retour
    2848. 

  2848.      *      @param      originid      	Id de l'origine
    2849. 

  2849.      *    @return	void
    2850. 

  2850.      */
    2851. 

  2851.     function form_address($page, $selected='', $socid, $htmlname='address_id', $origin='', $originid='')
    2852. 

  2852.     {
    2853. 

  2853.         global $langs,$conf;
    2854. 

  2854.         if ($htmlname != "none")
    2855. 

  2855.         {
    2856. 

  2856.             print '<form method="post" action="'.$page.'">';
    2857. 

  2857.             print '<input type="hidden" name="action" value="setaddress">';
    2858. 

  2858.             print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    2859. 

  2859.             print '<table class="nobordernopadding" cellpadding="0" cellspacing="0">';
    2860. 

  2860.             print '<tr><td>';
    2861. 

  2861.             $this->select_address($selected, $socid, $htmlname, 1);
    2862. 

  2862.             print '</td>';
    2863. 

  2863.             print '<td align="left"><input type="submit" class="button" value="'.$langs->trans("Modify").'">';
    2864. 

  2864.             $langs->load("companies");
    2865. 

  2865.             print ' &nbsp; <a href='.DOL_URL_ROOT.'/comm/address.php?socid='.$socid.'&action=create&origin='.$origin.'&originid='.$originid.'>'.$langs->trans("AddAddress").'</a>';
    2866. 

  2866.             print '</td></tr></table></form>';
    2867. 

  2867.         }
    2868. 

  2868.         else
    2869. 

  2869.         {
    2870. 

  2870.             if ($selected)
    2871. 

  2871.             {
    2872. 

  2872.                 require_once(DOL_DOCUMENT_ROOT ."/societe/class/address.class.php");
    2873. 

  2873.                 $address=new Address($this->db);
    2874. 

  2874.                 $result=$address->fetch_address($selected);
    2875. 

  2875.                 print '<a href='.DOL_URL_ROOT.'/comm/address.php?socid='.$address->socid.'&id='.$address->id.'&action=edit&origin='.$origin.'&originid='.$originid.'>'.$address->label.'</a>';
    2876. 

  2876.             }
    2877. 

  2877.             else
    2878. 

  2878.             {
    2879. 

  2879.                 print "&nbsp;";
    2880. 

  2880.             }
    2881. 

  2881.         }
    2882. 

  2882.     }
    2883. 

  2883. 

  2884.     /**
    2885. 

  2885.      *    Retourne la liste des devises, dans la langue de l'utilisateur
    2886. 

  2886.      *
    2887. 

  2887.      *    @param     selected    code devise pre-selectionne
    2888. 

  2888.      *    @param     htmlname    nom de la liste deroulante
    2889. 

  2889.      *    @return	void
    2890. 

  2890.      */
    2891. 

  2891.     function select_currency($selected='',$htmlname='currency_id')
    2892. 

  2892.     {
    2893. 

  2893.     	print $this->selectcurrency($selected,$htmlname);
    2894. 

  2894.     }
    2895. 

  2895. 

  2896.     /**
    2897. 

  2897.      *    Retourne la liste des devises, dans la langue de l'utilisateur
    2898. 

  2898.      *
    2899. 

  2899.      *    @param     selected    code devise pre-selectionne
    2900. 

  2900.      *    @param     htmlname    nom de la liste deroulante
    2901. 

  2901.      */
    2902. 

  2902.     function selectcurrency($selected='',$htmlname='currency_id')
    2903. 

  2903.     {
    2904. 

  2904.         global $conf,$langs,$user;
    2905. 

  2905. 

  2906.         $langs->load("dict");
    2907. 

  2907. 

  2908.         $out='';
    2909. 

  2909.         $currencyArray=array();
    2910. 

  2910.         $label=array();
    2911. 

  2911. 

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

  2913. 

  2914.         $sql = "SELECT code_iso, label";
    2915. 

  2915.         $sql.= " FROM ".MAIN_DB_PREFIX."c_currencies";
    2916. 

  2916.         $sql.= " WHERE active = 1";
    2917. 

  2917.         $sql.= " ORDER BY code_iso ASC";
    2918. 

  2918. 

  2919.         $resql=$this->db->query($sql);
    2920. 

  2920.         if ($resql)
    2921. 

  2921.         {
    2922. 

  2922.             $out.= '<select class="flat" name="'.$htmlname.'">';
    2923. 

  2923.             $num = $this->db->num_rows($resql);
    2924. 

  2924.             $i = 0;
    2925. 

  2925.             if ($num)
    2926. 

  2926.             {
    2927. 

  2927.                 $foundselected=false;
    2928. 

  2928. 

  2929.                 while ($i < $num) {
    2930. 

  2930.                     $obj = $this->db->fetch_object($resql);
    2931. 

  2931.                     $currencyArray[$i]['code_iso'] 	= $obj->code_iso;
    2932. 

  2932.                     $currencyArray[$i]['label']		= ($obj->code_iso && $langs->trans("Currency".$obj->code_iso)!="Currency".$obj->code_iso?$langs->trans("Currency".$obj->code_iso):($obj->label!='-'?$obj->label:''));
    2933. 

  2933.                 	$label[$i] 	= $currencyArray[$i]['label'];
    2934. 

  2934.                     $i++;
    2935. 

  2935.                 }
    2936. 

  2936. 

  2937.                 array_multisort($label, SORT_ASC, $currencyArray);
    2938. 

  2938. 

  2939.                 foreach ($currencyArray as $row) {
    2940. 

  2940.                 	if ($selected && $selected == $row['code_iso']) {
    2941. 

  2941.                         $foundselected=true;
    2942. 

  2942.                         $out.= '<option value="'.$row['code_iso'].'" selected="selected">';
    2943. 

  2943.                     } else {
    2944. 

  2944.                         $out.= '<option value="'.$row['code_iso'].'">';
    2945. 

  2945.                     }
    2946. 

  2946.                     $out.= $row['label'];
    2947. 

  2947.                     if ($row['code_iso']) $out.= ' ('.$row['code_iso'] . ')';
    2948. 

  2948.                     $out.= '</option>';
    2949. 

  2949.                 }
    2950. 

  2950.             }
    2951. 

  2951.             $out.= '</select>';
    2952. 

  2952.             if ($user->admin) $out.= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionnarySetup"),1);
    2953. 

  2953.             return $out;
    2954. 

  2954.         }
    2955. 

  2955.         else
    2956. 

  2956.         {
    2957. 

  2957.             dol_print_error($this->db);
    2958. 

  2958.         }
    2959. 

  2959.     }
    2960. 

  2960. 

  2961.     /**
    2962. 

  2962.      *      Output an HTML select vat rate
    2963. 

  2963.      *
    2964. 

  2964.      *      @param      htmlname            Nom champ html
    2965. 

  2965.      *      @param      selectedrate        Forcage du taux tva pre-selectionne. Mettre '' pour aucun forcage.
    2966. 

  2966.      *      @param      societe_vendeuse    Objet societe vendeuse
    2967. 

  2967.      *      @param      societe_acheteuse   Objet societe acheteuse
    2968. 

  2968.      *      @param      idprod              Id product
    2969. 

  2969.      *      @param      info_bits           Miscellaneous information on line
    2970. 

  2970.      *      @param      type               ''=Unknown, 0=Product, 1=Service (Used if idprod not defined)
    2971. 

  2971.      *                  Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle.
    2972. 

  2972.      *                  Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle.
    2973. 

  2973.      *                  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.
    2974. 

  2974.      *                  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.
    2975. 

  2975.      *                  Sinon la TVA proposee par defaut=0. Fin de regle.
    2976. 

  2976.      *      @deprecated
    2977. 

  2977.      *    @return	void
    2978. 

  2978.      */
    2979. 

  2979.     function select_tva($htmlname='tauxtva', $selectedrate='', $societe_vendeuse='', $societe_acheteuse='', $idprod=0, $info_bits=0, $type='')
    2980. 

  2980.     {
    2981. 

  2981.     	print $this->load_tva($htmlname, $selectedrate, $societe_vendeuse, $societe_acheteuse, $idprod, $info_bits, $type);
    2982. 

  2982.     }
    2983. 

  2983. 

  2984. 

  2985.     /**
    2986. 

  2986.      *      Output an HTML select vat rate
    2987. 

  2987.      *
    2988. 

  2988.      *      @param      htmlname           Nom champ html
    2989. 

  2989.      *      @param      selectedrate       Forcage du taux tva pre-selectionne. Mettre '' pour aucun forcage.
    2990. 

  2990.      *      @param      societe_vendeuse   Objet societe vendeuse
    2991. 

  2991.      *      @param      societe_acheteuse  Objet societe acheteuse
    2992. 

  2992.      *      @param      idprod             Id product
    2993. 

  2993.      *      @param      info_bits          Miscellaneous information on line (1 for NPR)
    2994. 

  2994.      *      @param      type               ''=Unknown, 0=Product, 1=Service (Used if idprod not defined)
    2995. 

  2995.      *                  Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle.
    2996. 

  2996.      *                  Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle.
    2997. 

  2997.      *                  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.
    2998. 

  2998.      *                  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.
    2999. 

  2999.      *                  Sinon la TVA proposee par defaut=0. Fin de regle.
    3000. 

  3000.      *    @return	void
    3001. 

  3001.      */
    3002. 

  3002.     function load_tva($htmlname='tauxtva', $selectedrate='', $societe_vendeuse='', $societe_acheteuse='', $idprod=0, $info_bits=0, $type='')
    3003. 

  3003.     {
    3004. 

  3004.         global $langs,$conf,$mysoc;
    3005. 

  3005. 

  3006.         $return='';
    3007. 

  3007.         $txtva=array();
    3008. 

  3008.         $libtva=array();
    3009. 

  3009.         $nprtva=array();
    3010. 

  3010. 

  3011.         // Define defaultnpr and defaultttx
    3012. 

  3012.         $defaultnpr=($info_bits & 0x01);
    3013. 

  3013.         $defaultnpr=(preg_match('/\*/',$selectedrate) ? 1 : $defaultnpr);
    3014. 

  3014.         $defaulttx=str_replace('*','',$selectedrate);
    3015. 

  3015. 

  3016.         // Check parameters
    3017. 

  3017.         if (is_object($societe_vendeuse) && ! $societe_vendeuse->pays_code)
    3018. 

  3018.         {
    3019. 

  3019.             if ($societe_vendeuse->id == $mysoc->id)
    3020. 

  3020.             {
    3021. 

  3021.                 $return.= '<font class="error">'.$langs->trans("ErrorYourCountryIsNotDefined").'</div>';
    3022. 

  3022.             }
    3023. 

  3023.             else
    3024. 

  3024.             {
    3025. 

  3025.                 $return.= '<font class="error">'.$langs->trans("ErrorSupplierCountryIsNotDefined").'</div>';
    3026. 

  3026.             }
    3027. 

  3027.             return $return;
    3028. 

  3028.         }
    3029. 

  3029. 

  3030.         //var_dump($societe_acheteuse);
    3031. 

  3031.         //print "name=$name, selectedrate=$selectedrate, seller=".$societe_vendeuse->pays_code." buyer=".$societe_acheteuse->pays_code." buyer is company=".$societe_acheteuse->isACompany()." idprod=$idprod, info_bits=$info_bits type=$type";
    3032. 

  3032.         //exit;
    3033. 

  3033. 

  3034.         // Get list of all VAT rates to show
    3035. 

  3035.         // First we defined code_pays to use to find list
    3036. 

  3036.         if (is_object($societe_vendeuse))
    3037. 

  3037.         {
    3038. 

  3038.             $code_pays="'".$societe_vendeuse->pays_code."'";
    3039. 

  3039.         }
    3040. 

  3040.         else
    3041. 

  3041.         {
    3042. 

  3042.             $code_pays="'".$mysoc->pays_code."'";   // Pour compatibilite ascendente
    3043. 

  3043.         }
    3044. 

  3044.         if (! empty($conf->global->SERVICE_ARE_ECOMMERCE_200238EC))    // If option to have vat for end customer for services is on
    3045. 

  3045.         {
    3046. 

  3046.             if (! $societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC() && ! $societe_acheteuse->isACompany())
    3047. 

  3047.             {
    3048. 

  3048.                 // We also add the buyer
    3049. 

  3049.                 if (is_numeric($type))
    3050. 

  3050.                 {
    3051. 

  3051.                     if ($type == 1) // We know product is a service
    3052. 

  3052.                     {
    3053. 

  3053.                         $code_pays.=",'".$societe_acheteuse->pays_code."'";
    3054. 

  3054.                     }
    3055. 

  3055.                 }
    3056. 

  3056.                 else if (! $idprod)  // We don't know type of product
    3057. 

  3057.                 {
    3058. 

  3058.                     $code_pays.=",'".$societe_acheteuse->pays_code."'";
    3059. 

  3059.                 }
    3060. 

  3060.                 else
    3061. 

  3061.                 {
    3062. 

  3062.                     $prodstatic=new Product($this->db);
    3063. 

  3063.                     $prodstatic->fetch($idprod);
    3064. 

  3064.                     if ($prodstatic->type == 1)   // We know product is a service
    3065. 

  3065.                     {
    3066. 

  3066.                         $code_pays.=",'".$societe_acheteuse->pays_code."'";
    3067. 

  3067.                     }
    3068. 

  3068.                 }
    3069. 

  3069.             }
    3070. 

  3070.         }
    3071. 

  3071.         // Now we get list
    3072. 

  3072.         $sql  = "SELECT DISTINCT t.taux, t.recuperableonly";
    3073. 

  3073.         $sql.= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_pays as p";
    3074. 

  3074.         $sql.= " WHERE t.fk_pays = p.rowid";
    3075. 

  3075.         $sql.= " AND t.active = 1";
    3076. 

  3076.         $sql.= " AND p.code in (".$code_pays.")";
    3077. 

  3077.         $sql.= " ORDER BY t.taux ASC, t.recuperableonly ASC";
    3078. 

  3078. 

  3079.         $resql=$this->db->query($sql);
    3080. 

  3080.         if ($resql)
    3081. 

  3081.         {
    3082. 

  3082.             $num = $this->db->num_rows($resql);
    3083. 

  3083.             if ($num)
    3084. 

  3084.             {
    3085. 

  3085.                 for ($i = 0; $i < $num; $i++)
    3086. 

  3086.                 {
    3087. 

  3087.                     $obj = $this->db->fetch_object($resql);
    3088. 

  3088.                     $txtva[$i]  = $obj->taux;
    3089. 

  3089.                     $libtva[$i] = $obj->taux.'%';
    3090. 

  3090.                     $nprtva[$i] = $obj->recuperableonly;
    3091. 

  3091.                 }
    3092. 

  3092.             }
    3093. 

  3093.             else
    3094. 

  3094.             {
    3095. 

  3095.                 $return.= '<font class="error">'.$langs->trans("ErrorNoVATRateDefinedForSellerCountry",$code_pays).'</font>';
    3096. 

  3096.             }
    3097. 

  3097.         }
    3098. 

  3098.         else
    3099. 

  3099.         {
    3100. 

  3100.             $return.= '<font class="error">'.$this->db->error().'</font>';
    3101. 

  3101.         }
    3102. 

  3102. 

  3103.         // Definition du taux a pre-selectionner (si defaulttx non force et donc vaut -1 ou '')
    3104. 

  3104.         if ($defaulttx < 0 || dol_strlen($defaulttx) == 0)
    3105. 

  3105.         {
    3106. 

  3106.             $defaulttx=get_default_tva($societe_vendeuse,$societe_acheteuse,$idprod);
    3107. 

  3107.             $defaultnpr=get_default_npr($societe_vendeuse,$societe_acheteuse,$idprod);
    3108. 

  3108.         }
    3109. 

  3109. 

  3110.         // Si taux par defaut n'a pu etre determine, on prend dernier de la liste.
    3111. 

  3111.         // Comme ils sont tries par ordre croissant, dernier = plus eleve = taux courant
    3112. 

  3112.         if ($defaulttx < 0 || dol_strlen($defaulttx) == 0)
    3113. 

  3113.         {
    3114. 

  3114.             $defaulttx = $txtva[count($txtva)-1];
    3115. 

  3115.         }
    3116. 

  3116. 

  3117.         $nbdetaux = count($txtva);
    3118. 

  3118.         if ($nbdetaux > 0)
    3119. 

  3119.         {
    3120. 

  3120.             $return.= '<select class="flat" id="'.$htmlname.'" name="'.$htmlname.'">';
    3121. 

  3121. 

  3122.             for ($i = 0 ; $i < $nbdetaux ; $i++)
    3123. 

  3123.             {
    3124. 

  3124.                 //print "xxxxx".$txtva[$i]."-".$nprtva[$i];
    3125. 

  3125.                 $return.= '<option value="'.$txtva[$i];
    3126. 

  3126.                 $return.= $nprtva[$i] ? '*': '';
    3127. 

  3127.                 $return.= '"';
    3128. 

  3128.                 if ($txtva[$i] == $defaulttx && $nprtva[$i] == $defaultnpr)
    3129. 

  3129.                 {
    3130. 

  3130.                     $return.= ' selected="selected"';
    3131. 

  3131.                 }
    3132. 

  3132.                 $return.= '>'.vatrate($libtva[$i]);
    3133. 

  3133.                 $return.= $nprtva[$i] ? ' *': '';
    3134. 

  3134.                 $return.= '</option>';
    3135. 

  3135. 

  3136.                 $this->tva_taux_value[$i] = $txtva[$i];
    3137. 

  3137.                 $this->tva_taux_libelle[$i] = $libtva[$i];
    3138. 

  3138.                 $this->tva_taux_npr[$i] = $nprtva[$i];
    3139. 

  3139.             }
    3140. 

  3140.             $return.= '</select>';
    3141. 

  3141.         }
    3142. 

  3142. 

  3143.         return $return;
    3144. 

  3144.     }
    3145. 

  3145. 

  3146. 

  3147.     /**
    3148. 

  3148.      *		Show a HTML widget to input a date or combo list for day, month, years and optionnaly hours and minutes
    3149. 

  3149.      *      Fields are preselected with :
    3150. 

  3150.      *            	- set_time date (Local PHP server timestamps or date format YYYY-MM-DD or YYYY-MM-DD HH:MM)
    3151. 

  3151.      *            	- local date of PHP server if set_time is ''
    3152. 

  3152.      *            	- Empty (fields empty) if set_time is -1 (in this case, parameter empty must also have value 1)
    3153. 

  3153.      *
    3154. 

  3154.      *		@param	set_time 		Pre-selected date (must be a local PHP server timestamp)
    3155. 

  3155.      *		@param	prefix			Prefix for fields name
    3156. 

  3156.      *		@param	h				1=Show also hours
    3157. 

  3157.      *		@param	m				1=Show also minutes
    3158. 

  3158.      *		@param	empty			0=Fields required, 1=Empty input is allowed
    3159. 

  3159.      *		@param	form_name 		Form name. Used by popup dates.
    3160. 

  3160.      *		@param	d				1=Show days, month, years
    3161. 

  3161.      * 		@param	addnowbutton	Add a button "Now"
    3162. 

  3162.      * 		@param	nooutput		Do not output html string but return it
    3163. 

  3163.      * 		@param 	disabled		Disable input fields
    3164. 

  3164.      *      @param  fullday         When a checkbox with this html name is on, hour and day are set with 00:00 or 23:59
    3165. 

  3165.      * 		@return	nothing or string if nooutput is 1
    3166. 

  3166.      */
    3167. 

  3167.     function select_date($set_time='', $prefix='re', $h=0, $m=0, $empty=0, $form_name="", $d=1, $addnowbutton=0, $nooutput=0, $disabled=0, $fullday='')
    3168. 

  3168.     {
    3169. 

  3169.         global $conf,$langs;
    3170. 

  3170. 

  3171.         $retstring='';
    3172. 

  3172. 

  3173.         if($prefix=='') $prefix='re';
    3174. 

  3174.         if($h == '') $h=0;
    3175. 

  3175.         if($m == '') $m=0;
    3176. 

  3176.         if($empty == '') $empty=0;
    3177. 

  3177. 

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

  3179. 

  3180.         // Analysis of the pre-selection date
    3181. 

  3181.         if (preg_match('/^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?/',$set_time,$reg))
    3182. 

  3182.         {
    3183. 

  3183.             // Date format 'YYYY-MM-DD' or 'YYYY-MM-DD HH:MM:SS'
    3184. 

  3184.             $syear = $reg[1];
    3185. 

  3185.             $smonth = $reg[2];
    3186. 

  3186.             $sday = $reg[3];
    3187. 

  3187.             $shour = $reg[4];
    3188. 

  3188.             $smin = $reg[5];
    3189. 

  3189.         }
    3190. 

  3190.         elseif (strval($set_time) != '' && $set_time != -1)
    3191. 

  3191.         {
    3192. 

  3192.             // set_time est un timestamps (0 possible)
    3193. 

  3193.             $syear = dol_print_date($set_time, "%Y");
    3194. 

  3194.             $smonth = dol_print_date($set_time, "%m");
    3195. 

  3195.             $sday = dol_print_date($set_time, "%d");
    3196. 

  3196.             $shour = dol_print_date($set_time, "%H");
    3197. 

  3197.             $smin = dol_print_date($set_time, "%M");
    3198. 

  3198.         }
    3199. 

  3199.         else
    3200. 

  3200.         {
    3201. 

  3201.             // Date est '' ou vaut -1
    3202. 

  3202.             $syear = '';
    3203. 

  3203.             $smonth = '';
    3204. 

  3204.             $sday = '';
    3205. 

  3205.             $shour = '';
    3206. 

  3206.             $smin = '';
    3207. 

  3207.         }
    3208. 

  3208. 

  3209.         if ($d)
    3210. 

  3210.         {
    3211. 

  3211.             // Show date with popup
    3212. 

  3212.             if ($conf->use_javascript_ajax && (empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR != "none"))
    3213. 

  3213.             {
    3214. 

  3214.                 //print "e".$set_time." t ".$conf->format_date_short;
    3215. 

  3215.                 if (strval($set_time) != '' && $set_time != -1)
    3216. 

  3216.                 {
    3217. 

  3217.                     //$formated_date=dol_print_date($set_time,$conf->format_date_short);
    3218. 

  3218.                     $formated_date=dol_print_date($set_time,$langs->trans("FormatDateShort"));  // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript
    3219. 

  3219.                 }
    3220. 

  3220. 

  3221.                 // Calendrier popup version eldy
    3222. 

  3222.                 if (empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR == "eldy")
    3223. 

  3223.                 {
    3224. 

  3224.                     // Zone de saisie manuelle de la date
    3225. 

  3225.                     $retstring.='<input id="'.$prefix.'" name="'.$prefix.'" type="text" size="9" maxlength="11" value="'.$formated_date.'"';
    3226. 

  3226.                     $retstring.=($disabled?' disabled="disabled"':'');
    3227. 

  3227.                     $retstring.=' onChange="dpChangeDay(\''.$prefix.'\',\''.$langs->trans("FormatDateShortJava").'\'); "';  // FormatDateShort for dol_print_date/FormatDateShortJava that is same for javascript
    3228. 

  3228.                     $retstring.='>';
    3229. 

  3229. 

  3230.                     // Icone calendrier
    3231. 

  3231.                     if (! $disabled)
    3232. 

  3232.                     {
    3233. 

  3233.                         $retstring.='<button id="'.$prefix.'Button" type="button" class="dpInvisibleButtons"';
    3234. 

  3234.                         $base=DOL_URL_ROOT.'/core/';
    3235. 

  3235.                         $retstring.=' onClick="showDP(\''.$base.'\',\''.$prefix.'\',\''.$langs->trans("FormatDateShortJava").'\',\''.$langs->defaultlang.'\');">'.img_object($langs->trans("SelectDate"),'calendarday').'</button>';
    3236. 

  3236.                     }
    3237. 

  3237. 

  3238.                     $retstring.='<input type="hidden" id="'.$prefix.'day"   name="'.$prefix.'day"   value="'.$sday.'">'."\n";
    3239. 

  3239.                     $retstring.='<input type="hidden" id="'.$prefix.'month" name="'.$prefix.'month" value="'.$smonth.'">'."\n";
    3240. 

  3240.                     $retstring.='<input type="hidden" id="'.$prefix.'year"  name="'.$prefix.'year"  value="'.$syear.'">'."\n";
    3241. 

  3241.                 }
    3242. 

  3242.                 else
    3243. 

  3243.                 {
    3244. 

  3244.                     print "Bad value of calendar";
    3245. 

  3245.                 }
    3246. 

  3246.             }
    3247. 

  3247. 

  3248.             // Show date with combo selects
    3249. 

  3249.             if (empty($conf->use_javascript_ajax) || $conf->global->MAIN_POPUP_CALENDAR == "none")
    3250. 

  3250.             {
    3251. 

  3251.                 // Day
    3252. 

  3252.                 $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat" name="'.$prefix.'day">';
    3253. 

  3253. 

  3254.                 if ($empty || $set_time == -1)
    3255. 

  3255.                 {
    3256. 

  3256.                     $retstring.='<option value="0" selected="selected">&nbsp;</option>';
    3257. 

  3257.                 }
    3258. 

  3258. 

  3259.                 for ($day = 1 ; $day <= 31; $day++)
    3260. 

  3260.                 {
    3261. 

  3261.                     if ($day == $sday)
    3262. 

  3262.                     {
    3263. 

  3263.                         $retstring.="<option value=\"$day\" selected=\"selected\">$day";
    3264. 

  3264.                     }
    3265. 

  3265.                     else
    3266. 

  3266.                     {
    3267. 

  3267.                         $retstring.="<option value=\"$day\">$day";
    3268. 

  3268.                     }
    3269. 

  3269.                     $retstring.="</option>";
    3270. 

  3270.                 }
    3271. 

  3271. 

  3272.                 $retstring.="</select>";
    3273. 

  3273. 

  3274.                 $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat" name="'.$prefix.'month">';
    3275. 

  3275.                 if ($empty || $set_time == -1)
    3276. 

  3276.                 {
    3277. 

  3277.                     $retstring.='<option value="0" selected="selected">&nbsp;</option>';
    3278. 

  3278.                 }
    3279. 

  3279. 

  3280.                 // Month
    3281. 

  3281.                 for ($month = 1 ; $month <= 12 ; $month++)
    3282. 

  3282.                 {
    3283. 

  3283.                     $retstring.='<option value="'.$month.'"'.($month == $smonth?' selected="selected"':'').'>';
    3284. 

  3284.                     $retstring.=dol_print_date(mktime(12,0,0,$month,1,2000),"%b");
    3285. 

  3285.                     $retstring.="</option>";
    3286. 

  3286.                 }
    3287. 

  3287.                 $retstring.="</select>";
    3288. 

  3288. 

  3289.                 // Year
    3290. 

  3290.                 if ($empty || $set_time == -1)
    3291. 

  3291.                 {
    3292. 

  3292.                     $retstring.='<input'.($disabled?' disabled="disabled"':'').' class="flat" type="text" size="3" maxlength="4" name="'.$prefix.'year" value="'.$syear.'">';
    3293. 

  3293.                 }
    3294. 

  3294.                 else
    3295. 

  3295.                 {
    3296. 

  3296.                     $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat" name="'.$prefix.'year">';
    3297. 

  3297. 

  3298.                     for ($year = $syear - 5; $year < $syear + 10 ; $year++)
    3299. 

  3299.                     {
    3300. 

  3300.                         if ($year == $syear)
    3301. 

  3301.                         {
    3302. 

  3302.                             $retstring.="<option value=\"$year\" selected=\"true\">".$year;
    3303. 

  3303.                         }
    3304. 

  3304.                         else
    3305. 

  3305.                         {
    3306. 

  3306.                             $retstring.="<option value=\"$year\">".$year;
    3307. 

  3307.                         }
    3308. 

  3308.                         $retstring.="</option>";
    3309. 

  3309.                     }
    3310. 

  3310.                     $retstring.="</select>\n";
    3311. 

  3311.                 }
    3312. 

  3312.             }
    3313. 

  3313.         }
    3314. 

  3314. 

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

  3316. 

  3317.         if ($h)
    3318. 

  3318.         {
    3319. 

  3319.             // Show hour
    3320. 

  3320.         	$retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat '.($fullday?$fullday.'hour':'').'" name="'.$prefix.'hour">';
    3321. 

  3321.             if ($empty) $retstring.='<option value="-1">&nbsp;</option>';
    3322. 

  3322.             for ($hour = 0; $hour < 24; $hour++)
    3323. 

  3323.             {
    3324. 

  3324.                 if (dol_strlen($hour) < 2)
    3325. 

  3325.                 {
    3326. 

  3326.                     $hour = "0" . $hour;
    3327. 

  3327.                 }
    3328. 

  3328.                 if ($hour == $shour)
    3329. 

  3329.                 {
    3330. 

  3330.                     $retstring.="<option value=\"$hour\" selected=\"true\">$hour</option>";
    3331. 

  3331.                 }
    3332. 

  3332.                 else
    3333. 

  3333.                 {
    3334. 

  3334.                     $retstring.="<option value=\"$hour\">$hour</option>";
    3335. 

  3335.                 }
    3336. 

  3336.             }
    3337. 

  3337.             $retstring.="</select>";
    3338. 

  3338.             $retstring.="H\n";
    3339. 

  3339.         }
    3340. 

  3340. 

  3341.         if ($m)
    3342. 

  3342.         {
    3343. 

  3343.             // Show minutes
    3344. 

  3344.             $retstring.='<select'.($disabled?' disabled="disabled"':'').' class="flat '.($fullday?$fullday.'min':'').'" name="'.$prefix.'min">';
    3345. 

  3345.             if ($empty) $retstring.='<option value="-1">&nbsp;</option>';
    3346. 

  3346.             for ($min = 0; $min < 60 ; $min++)
    3347. 

  3347.             {
    3348. 

  3348.                 if (dol_strlen($min) < 2)
    3349. 

  3349.                 {
    3350. 

  3350.                     $min = "0" . $min;
    3351. 

  3351.                 }
    3352. 

  3352.                 if ($min == $smin)
    3353. 

  3353.                 {
    3354. 

  3354.                     $retstring.="<option value=\"$min\" selected=\"true\">$min</option>";
    3355. 

  3355.                 }
    3356. 

  3356.                 else
    3357. 

  3357.                 {
    3358. 

  3358.                     $retstring.="<option value=\"$min\">$min</option>";
    3359. 

  3359.                 }
    3360. 

  3360.             }
    3361. 

  3361.             $retstring.="</select>";
    3362. 

  3362.             $retstring.="M\n";
    3363. 

  3363.         }
    3364. 

  3364. 

  3365.         // Add a "Now" button
    3366. 

  3366.         if ($conf->use_javascript_ajax && $addnowbutton)
    3367. 

  3367.         {
    3368. 

  3368.             // Script which will be inserted in the OnClick of the "Now" button
    3369. 

  3369.             $reset_scripts = "";
    3370. 

  3370. 

  3371.             // Generate the date part, depending on the use or not of the javascript calendar
    3372. 

  3372.             if (empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR == "eldy")
    3373. 

  3373.             {
    3374. 

  3374.                 $base=DOL_URL_ROOT.'/core/lib/';
    3375. 

  3375.                 $reset_scripts .= 'resetDP(\''.$base.'\',\''.$prefix.'\',\''.$langs->trans("FormatDateShortJava").'\',\''.$langs->defaultlang.'\');';
    3376. 

  3376.             }
    3377. 

  3377.             else
    3378. 

  3378.             {
    3379. 

  3379.                 $reset_scripts .= 'this.form.elements[\''.$prefix.'day\'].value=formatDate(new Date(), \'d\'); ';
    3380. 

  3380.                 $reset_scripts .= 'this.form.elements[\''.$prefix.'month\'].value=formatDate(new Date(), \'M\'); ';
    3381. 

  3381.                 $reset_scripts .= 'this.form.elements[\''.$prefix.'year\'].value=formatDate(new Date(), \'yyyy\'); ';
    3382. 

  3382.             }
    3383. 

  3383.             // Generate the hour part
    3384. 

  3384.             if ($h)
    3385. 

  3385.             {
    3386. 

  3386.                 if ($fullday) $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
    3387. 

  3387.                 $reset_scripts .= 'this.form.elements[\''.$prefix.'hour\'].value=formatDate(new Date(), \'HH\'); ';
    3388. 

  3388.                 if ($fullday) $reset_scripts .= ' } ';
    3389. 

  3389.             }
    3390. 

  3390.             // Generate the minute part
    3391. 

  3391.             if ($m)
    3392. 

  3392.             {
    3393. 

  3393.                 if ($fullday) $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
    3394. 

  3394.                 $reset_scripts .= 'this.form.elements[\''.$prefix.'min\'].value=formatDate(new Date(), \'mm\'); ';
    3395. 

  3395.                 if ($fullday) $reset_scripts .= ' } ';
    3396. 

  3396.             }
    3397. 

  3397.             // If reset_scripts is not empty, print the button with the reset_scripts in OnClick
    3398. 

  3398.             if ($reset_scripts)
    3399. 

  3399.             {
    3400. 

  3400.                 $retstring.='<button class="dpInvisibleButtons" id="'.$prefix.'ButtonNow" type="button" name="_useless" value="Now" onClick="'.$reset_scripts.'">';
    3401. 

  3401.                 $retstring.=$langs->trans("Now");
    3402. 

  3402.                 $retstring.='</button> ';
    3403. 

  3403.             }
    3404. 

  3404.         }
    3405. 

  3405. 

  3406.         if (! empty($nooutput)) return $retstring;
    3407. 

  3407. 

  3408.         print $retstring;
    3409. 

  3409.         return;
    3410. 

  3410.     }
    3411. 

  3411. 

  3412.     /**
    3413. 

  3413.      *	Function to show a form to select a duration on a page
    3414. 

  3414.      *
    3415. 

  3415.      *	@param	string	$prefix   	prefix
    3416. 

  3416.      *	@param  int		$iSecond  	Default preselected duration (number of seconds)
    3417. 

  3417.      * 	@param	int		$disabled	Disable the combo box
    3418. 

  3418.      *  @return	void
    3419. 

  3419.      */
    3420. 

  3420.     function select_duration($prefix,$iSecond='',$disabled=0)
    3421. 

  3421.     {
    3422. 

  3422.         if ($iSecond)
    3423. 

  3423.         {
    3424. 

  3424.             require_once(DOL_DOCUMENT_ROOT."/core/lib/date.lib.php");
    3425. 

  3425. 

  3426.             $hourSelected = ConvertSecondToTime($iSecond,'hour');
    3427. 

  3427.             $minSelected = ConvertSecondToTime($iSecond,'min');
    3428. 

  3428.         }
    3429. 

  3429. 

  3430.         print '<select class="flat" name="'.$prefix.'hour"'.($disabled?' disabled="disabled"':'').'>';
    3431. 

  3431.         for ($hour = 0; $hour < 24; $hour++)
    3432. 

  3432.         {
    3433. 

  3433.             print '<option value="'.$hour.'"';
    3434. 

  3434.             if ($hourSelected == $hour)
    3435. 

  3435.             {
    3436. 

  3436.                 print " selected=\"true\"";
    3437. 

  3437.             }
    3438. 

  3438.             print ">".$hour."</option>";
    3439. 

  3439.         }
    3440. 

  3440.         print "</select>";
    3441. 

  3441.         print "H &nbsp;";
    3442. 

  3442.         print '<select class="flat" name="'.$prefix.'min"'.($disabled?' disabled="disabled"':'').'>';
    3443. 

  3443.         for ($min = 0; $min <= 55; $min=$min+5)
    3444. 

  3444.         {
    3445. 

  3445.             print '<option value="'.$min.'"';
    3446. 

  3446.             if ($minSelected == $min) print ' selected="selected"';
    3447. 

  3447.             print '>'.$min.'</option>';
    3448. 

  3448.         }
    3449. 

  3449.         print "</select>";
    3450. 

  3450.         print "M&nbsp;";
    3451. 

  3451.     }
    3452. 

  3452. 

  3453. 

  3454.     /**
    3455. 

  3455.      *	Show a select form from an array
    3456. 

  3456.      *
    3457. 

  3457.      *	@param	htmlname        Name of html select area
    3458. 

  3458.      *	@param	array           Array with key+value
    3459. 

  3459.      *	@param	id              Preselected key
    3460. 

  3460.      *	@param	show_empty      1 si il faut ajouter une valeur vide dans la liste, 0 sinon
    3461. 

  3461.      *	@param	key_in_label    1 pour afficher la key dans la valeur "[key] value"
    3462. 

  3462.      *	@param	value_as_key    1 to use value as key
    3463. 

  3463.      *	@param  option          Valeur de l'option en fonction du type choisi
    3464. 

  3464.      *	@param  translate       Translate and encode value
    3465. 

  3465.      * 	@param	maxlen			Length maximum for labels
    3466. 

  3466.      * 	@param	disabled		Html select box is disabled
    3467. 

  3467.      * 	@return	string			HTML select string
    3468. 

  3468.      */
    3469. 

  3469.     function selectarray($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0, $option='', $translate=0, $maxlen=0, $disabled=0)
    3470. 

  3470.     {
    3471. 

  3471.         global $langs;
    3472. 

  3472. 

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

  3474. 

  3475.         if ($show_empty)
    3476. 

  3476.         {
    3477. 

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

  3478.         }
    3479. 

  3479. 

  3480.         if (is_array($array))
    3481. 

  3481.         {
    3482. 

  3482.             foreach($array as $key => $value)
    3483. 

  3483.             {
    3484. 

  3484.                 $out.='<option value="'.($value_as_key?$value:$key).'"';
    3485. 

  3485.                 // Si il faut pre-selectionner une valeur
    3486. 

  3486.                 if ($id != '' && ($id == $key || $id == $value))
    3487. 

  3487.                 {
    3488. 

  3488.                     $out.=' selected="selected"';
    3489. 

  3489.                 }
    3490. 

  3490. 

  3491.                 $out.='>';
    3492. 

  3492. 

  3493.                 if ($key_in_label)
    3494. 

  3494.                 {
    3495. 

  3495.                     $newval=($translate?$langs->trans($value):$value);
    3496. 

  3496.                     $selectOptionValue = dol_htmlentitiesbr($key.' - '.($maxlen?dol_trunc($newval,$maxlen):$newval));
    3497. 

  3497.                     $out.=$selectOptionValue;
    3498. 

  3498.                 }
    3499. 

  3499.                 else
    3500. 

  3500.                 {
    3501. 

  3501.                     $newval=($translate?$langs->trans($value):$value);
    3502. 

  3502.                     $selectOptionValue = dol_htmlentitiesbr($maxlen?dol_trunc($newval,$maxlen):$newval);
    3503. 

  3503.                     if ($value == '' || $value == '-') { $selectOptionValue='&nbsp;'; }
    3504. 

  3504.                     $out.=$selectOptionValue;
    3505. 

  3505.                 }
    3506. 

  3506.                 $out.="</option>\n";
    3507. 

  3507.             }
    3508. 

  3508.         }
    3509. 

  3509. 

  3510.         $out.="</select>";
    3511. 

  3511.         return $out;
    3512. 

  3512.     }
    3513. 

  3513. 

  3514.     /**
    3515. 

  3515.      *	Show a select form from an array
    3516. 

  3516.      *
    3517. 

  3517.      * 	@deprecated				Use selectarray instead
    3518. 

  3518.      *  @return	void
    3519. 

  3519.      */
    3520. 

  3520.     function select_array($htmlname, $array, $id='', $show_empty=0, $key_in_label=0, $value_as_key=0, $option='', $translate=0, $maxlen=0)
    3521. 

  3521.     {
    3522. 

  3522.         print $this->selectarray($htmlname, $array, $id, $show_empty, $key_in_label, $value_as_key, $option, $translate, $maxlen);
    3523. 

  3523.     }
    3524. 

  3524. 

  3525. 

  3526.     /**
    3527. 

  3527.      *    	Return an html string with a select combo box to choose yes or no
    3528. 

  3528.      *
    3529. 

  3529.      *    	@param      name            Name of html select field
    3530. 

  3530.      *    	@param      value           Pre-selected value
    3531. 

  3531.      *  	@param      option          0 return yes/no, 1 return 1/0
    3532. 

  3532.      * 		@return		int or string	See option
    3533. 

  3533.      */
    3534. 

  3534.     function selectyesno($htmlname,$value='',$option=0)
    3535. 

  3535.     {
    3536. 

  3536.         global $langs;
    3537. 

  3537. 

  3538.         $yes="yes"; $no="no";
    3539. 

  3539. 

  3540.         if ($option)
    3541. 

  3541.         {
    3542. 

  3542.             $yes="1";
    3543. 

  3543.             $no="0";
    3544. 

  3544.         }
    3545. 

  3545. 

  3546.         $resultyesno = '<select class="flat" id="'.$htmlname.'" name="'.$htmlname.'">'."\n";
    3547. 

  3547.         if (("$value" == 'yes') || ($value == 1))
    3548. 

  3548.         {
    3549. 

  3549.             $resultyesno .= '<option value="'.$yes.'" selected="selected">'.$langs->trans("Yes").'</option>'."\n";
    3550. 

  3550.             $resultyesno .= '<option value="'.$no.'">'.$langs->trans("No").'</option>'."\n";
    3551. 

  3551.         }
    3552. 

  3552.         else
    3553. 

  3553.         {
    3554. 

  3554.             $resultyesno .= '<option value="'.$yes.'">'.$langs->trans("Yes").'</option>'."\n";
    3555. 

  3555.             $resultyesno .= '<option value="'.$no.'" selected="selected">'.$langs->trans("No").'</option>'."\n";
    3556. 

  3556.         }
    3557. 

  3557.         $resultyesno .= '</select>'."\n";
    3558. 

  3558.         return $resultyesno;
    3559. 

  3559.     }
    3560. 

  3560. 

  3561. 

  3562. 

  3563.     /**
    3564. 

  3564.      *    Return list of export templates
    3565. 

  3565.      *
    3566. 

  3566.      *    @param      selected          Id modele pre-selectionne
    3567. 

  3567.      *    @param      htmlname          Nom de la zone select
    3568. 

  3568.      *    @param      type              Type des modeles recherches
    3569. 

  3569.      *    @param      useempty          Affiche valeur vide dans liste
    3570. 

  3570.      *  @return	void
    3571. 

  3571.      */
    3572. 

  3572.     function select_export_model($selected='',$htmlname='exportmodelid',$type='',$useempty=0)
    3573. 

  3573.     {
    3574. 

  3574. 

  3575.         $sql = "SELECT rowid, label";
    3576. 

  3576.         $sql.= " FROM ".MAIN_DB_PREFIX."export_model";
    3577. 

  3577.         $sql.= " WHERE type = '".$type."'";
    3578. 

  3578.         $sql.= " ORDER BY rowid";
    3579. 

  3579.         $result = $this->db->query($sql);
    3580. 

  3580.         if ($result)
    3581. 

  3581.         {
    3582. 

  3582.             print '<select class="flat" name="'.$htmlname.'">';
    3583. 

  3583.             if ($useempty)
    3584. 

  3584.             {
    3585. 

  3585.                 print '<option value="-1">&nbsp;</option>';
    3586. 

  3586.             }
    3587. 

  3587. 

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

  3589.             $i = 0;
    3590. 

  3590.             while ($i < $num)
    3591. 

  3591.             {
    3592. 

  3592.                 $obj = $this->db->fetch_object($result);
    3593. 

  3593.                 if ($selected == $obj->rowid)
    3594. 

  3594.                 {
    3595. 

  3595.                     print '<option value="'.$obj->rowid.'" selected="selected">';
    3596. 

  3596.                 }
    3597. 

  3597.                 else
    3598. 

  3598.                 {
    3599. 

  3599.                     print '<option value="'.$obj->rowid.'">';
    3600. 

  3600.                 }
    3601. 

  3601.                 print $obj->label;
    3602. 

  3602.                 print '</option>';
    3603. 

  3603.                 $i++;
    3604. 

  3604.             }
    3605. 

  3605.             print "</select>";
    3606. 

  3606.         }
    3607. 

  3607.         else {
    3608. 

  3608.             dol_print_error($this->db);
    3609. 

  3609.         }
    3610. 

  3610.     }
    3611. 

  3611. 

  3612.     /**
    3613. 

  3613.      *    Return a HTML area with the reference of object and a navigation bar for a business object
    3614. 

  3614.      *    To add a particular filter on select, you must set $object->next_prev_filter to SQL criteria.
    3615. 

  3615.      *
    3616. 

  3616.      *    @param      object		Object to show
    3617. 

  3617.      *    @param      paramid   	Name of parameter to use to name the id into the URL link
    3618. 

  3618.      *    @param      morehtml  	More html content to output just before the nav bar
    3619. 

  3619.      *    @param	  shownav	  	Show Condition (navigation is shown if value is 1)
    3620. 

  3620.      *    @param      fieldid   	Nom du champ en base a utiliser pour select next et previous
    3621. 

  3621.      *    @param      fieldref   	Nom du champ objet ref (object->ref) a utiliser pour select next et previous
    3622. 

  3622.      *    @param      morehtmlref  	Code html supplementaire a afficher apres ref
    3623. 

  3623.      *    @param      moreparam  	More param to add in nav link url.
    3624. 

  3624.      * 	  @return     string    	Portion HTML avec ref + boutons nav
    3625. 

  3625.      */
    3626. 

  3626.     function showrefnav($object,$paramid,$morehtml='',$shownav=1,$fieldid='rowid',$fieldref='ref',$morehtmlref='',$moreparam='')
    3627. 

  3627.     {
    3628. 

  3628.         $ret='';
    3629. 

  3629. 

  3630.         //print "$paramid,$morehtml,$shownav,$fieldid,$fieldref,$morehtmlref,$moreparam";
    3631. 

  3631.         $object->load_previous_next_ref((isset($object->next_prev_filter)?$object->next_prev_filter:''),$fieldid);
    3632. 

  3632.         $previous_ref = $object->ref_previous?'<a href="'.$_SERVER["PHP_SELF"].'?'.$paramid.'='.urlencode($object->ref_previous).$moreparam.'">'.img_previous().'</a>':'';
    3633. 

  3633.         $next_ref     = $object->ref_next?'<a href="'.$_SERVER["PHP_SELF"].'?'.$paramid.'='.urlencode($object->ref_next).$moreparam.'">'.img_next().'</a>':'';
    3634. 

  3634. 

  3635.         //print "xx".$previous_ref."x".$next_ref;
    3636. 

  3636.         if ($previous_ref || $next_ref || $morehtml) {
    3637. 

  3637.             $ret.='<table class="nobordernopadding" width="100%"><tr class="nobordernopadding"><td class="nobordernopadding">';
    3638. 

  3638.         }
    3639. 

  3639. 

  3640.         $ret.=$object->$fieldref;
    3641. 

  3641.         if ($morehtmlref) {
    3642. 

  3642.             $ret.=' '.$morehtmlref;
    3643. 

  3643.         }
    3644. 

  3644. 

  3645.         if ($morehtml) {
    3646. 

  3646.             $ret.='</td><td class="nobordernopadding" align="right">'.$morehtml;
    3647. 

  3647.         }
    3648. 

  3648.         if ($shownav && ($previous_ref || $next_ref)) {
    3649. 

  3649.             $ret.='</td><td class="nobordernopadding" align="center" width="20">'.$previous_ref.'</td>';
    3650. 

  3650.             $ret.='<td class="nobordernopadding" align="center" width="20">'.$next_ref;
    3651. 

  3651.         }
    3652. 

  3652.         if ($previous_ref || $next_ref || $morehtml)
    3653. 

  3653.         {
    3654. 

  3654.             $ret.='</td></tr></table>';
    3655. 

  3655.         }
    3656. 

  3656.         return $ret;
    3657. 

  3657.     }
    3658. 

  3658. 

  3659. 

  3660.     /**
    3661. 

  3661.      *    	Return HTML code to output a photo
    3662. 

  3662.      *
    3663. 

  3663.      *    	@param      modulepart		Key to define module concerned ('societe', 'userphoto', 'memberphoto')
    3664. 

  3664.      *     	@param      object			Object containing data to retrieve file name
    3665. 

  3665.      * 		@param		width			Width of photo
    3666. 

  3666.      * 	  	@return     string    		HTML code to output photo
    3667. 

  3667.      */
    3668. 

  3668.     function showphoto($modulepart,$object,$width=100)
    3669. 

  3669.     {
    3670. 

  3670.         global $conf;
    3671. 

  3671. 

  3672.         $ret='';$dir='';$file='';$altfile='';$email='';
    3673. 

  3673. 

  3674.         if ($modulepart=='societe')
    3675. 

  3675.         {
    3676. 

  3676.             $dir=$conf->societe->dir_output;
    3677. 

  3677.             $smallfile=$object->logo;
    3678. 

  3678.             $smallfile=preg_replace('/(\.png|\.gif|\.jpg|\.jpeg|\.bmp)/i','_small\\1',$smallfile);
    3679. 

  3679.             if ($object->logo) $file=$object->id.'/logos/thumbs/'.$smallfile;
    3680. 

  3680.         }
    3681. 

  3681.         else if ($modulepart=='userphoto')
    3682. 

  3682.         {
    3683. 

  3683.             $dir=$conf->user->dir_output;
    3684. 

  3684.             if ($object->photo) $file=get_exdir($object->id,2).$object->photo;
    3685. 

  3685.             if (! empty($conf->global->MAIN_OLD_IMAGE_LINKS)) $altfile=$object->id.".jpg";	// For backward compatibility
    3686. 

  3686.             $email=$object->email;
    3687. 

  3687.         }
    3688. 

  3688.         else if ($modulepart=='memberphoto')
    3689. 

  3689.         {
    3690. 

  3690.             $dir=$conf->adherent->dir_output;
    3691. 

  3691.             if ($object->photo) $file=get_exdir($object->id,2).'photos/'.$object->photo;
    3692. 

  3692.             if (! empty($conf->global->MAIN_OLD_IMAGE_LINKS)) $altfile=$object->id.".jpg";	// For backward compatibility
    3693. 

  3693.             $email=$object->email;
    3694. 

  3694.         }
    3695. 

  3695. 

  3696.         if ($dir)
    3697. 

  3697.         {
    3698. 

  3698.             $cache='0';
    3699. 

  3699.             if ($file && file_exists($dir."/".$file))
    3700. 

  3700.             {
    3701. 

  3701.                 // TODO Link to large image
    3702. 

  3702.                 $ret.='<a href="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&file='.urlencode($file).'&cache='.$cache.'">';
    3703. 

  3703.                 $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.'&file='.urlencode($file).'&cache='.$cache.'">';
    3704. 

  3704.                 $ret.='</a>';
    3705. 

  3705.             }
    3706. 

  3706.             else if ($altfile && file_exists($dir."/".$altfile))
    3707. 

  3707.             {
    3708. 

  3708.                 $ret.='<a href="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&file='.urlencode($file).'&cache='.$cache.'">';
    3709. 

  3709.                 $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.'&file='.urlencode($altfile).'&cache='.$cache.'">';
    3710. 

  3710.                 $ret.='</a>';
    3711. 

  3711.             }
    3712. 

  3712.             else
    3713. 

  3713.             {
    3714. 

  3714.                 if ($conf->gravatar->enabled && $email)
    3715. 

  3715.                 {
    3716. 

  3716.                     global $dolibarr_main_url_root;
    3717. 

  3717.                     $ret.='<!-- Put link to gravatar -->';
    3718. 

  3718.                     $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) ).'">';
    3719. 

  3719.                 }
    3720. 

  3720.                 else
    3721. 

  3721.                 {
    3722. 

  3722.                     $ret.='<img alt="No photo" border="0" width="'.$width.'" src="'.DOL_URL_ROOT.'/theme/common/nophoto.jpg">';
    3723. 

  3723.                 }
    3724. 

  3724.             }
    3725. 

  3725.         }
    3726. 

  3726.         else dol_print_error('','Call of showphoto with wrong parameters');
    3727. 

  3727. 

  3728.         /* Disabled. lightbox seems to not work. I don't know why.
    3729. 

  3729.         $ret.="\n<script type=\"text/javascript\">
    3730. 

  3730.               jQuery(function() {
    3731. 

  3731.                      jQuery('.photologo').lightBox();
    3732. 

  3732.               });
    3733. 

  3733.               </script>\n";
    3734. 

    3735. 

  3735.         $ret.="\n<script type=\"text/javascript\">
    3736. 

  3736.               jQuery(function() {
    3737. 

  3737.                      jQuery('.photologo').lightBox({
    3738. 

  3738.                         overlayBgColor: '#FFF',
    3739. 

  3739.                         overlayOpacity: 0.6,
    3740. 

  3740.                         imageLoading: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-ico-loading.gif',
    3741. 

  3741.                         imageBtnClose: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-close.gif',
    3742. 

  3742.                         imageBtnPrev: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-prev.gif',
    3743. 

  3743.                         imageBtnNext: '".DOL_URL_ROOT."/includes/jquery/plugins/lightbox/images/lightbox-btn-next.gif',
    3744. 

  3744.                         containerResizeSpeed: 350,
    3745. 

  3745.                         txtImage: 'Imagem',
    3746. 

  3746.                         txtOf: 'de'
    3747. 

  3747.                      });
    3748. 

  3748.               });
    3749. 

  3749.               </script>\n";
    3750. 

  3750.         */
    3751. 

  3751. 

  3752.         return $ret;
    3753. 

  3753.     }
    3754. 

  3754. 

  3755.     /**
    3756. 

  3756.      *	Return select list of groups
    3757. 

  3757.      *
    3758. 

  3758.      *  @param	string	$selected        Id group preselected
    3759. 

  3759.      *  @param  string	$htmlname        Field name in form
    3760. 

  3760.      *  @param  int		$show_empty      0=liste sans valeur nulle, 1=ajoute valeur inconnue
    3761. 

  3761.      *  @param  string	$exclude         Array list of groups id to exclude
    3762. 

  3762.      * 	@param	int		$disabled		If select list must be disabled
    3763. 

  3763.      *  @param  string	$include         Array list of groups id to include
    3764. 

  3764.      * 	@param	int		$enableonly		Array list of groups id to be enabled. All other must be disabled
    3765. 

  3765.      * 	@param	int		$force_entity	Possibility to force entity
    3766. 

  3766.      *  @return	void
    3767. 

  3767.      */
    3768. 

  3768.     function select_dolgroups($selected='',$htmlname='groupid',$show_empty=0,$exclude='',$disabled=0,$include='',$enableonly='',$force_entity='')
    3769. 

  3769.     {
    3770. 

  3770.         global $conf,$user,$langs;
    3771. 

  3771. 

  3772.         // Permettre l'exclusion de groupes
    3773. 

  3773.         if (is_array($exclude))	$excludeGroups = implode("','",$exclude);
    3774. 

  3774.         // Permettre l'inclusion de groupes
    3775. 

  3775.         if (is_array($include))	$includeGroups = implode("','",$include);
    3776. 

  3776. 

  3777.         $out='';
    3778. 

  3778. 

  3779.         // On recherche les groupes
    3780. 

  3780.         $sql = "SELECT ug.rowid, ug.nom ";
    3781. 

  3781.         if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
    3782. 

  3782.         {
    3783. 

  3783.         	$sql.= ", e.label";
    3784. 

  3784.         }
    3785. 

  3785.         $sql.= " FROM ".MAIN_DB_PREFIX."usergroup as ug ";
    3786. 

  3786.         if(! empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && ! $user->entity)
    3787. 

  3787.         {
    3788. 

  3788.             $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."entity as e on e.rowid=ug.entity";
    3789. 

  3789.             if ($force_entity) $sql.= " WHERE ug.entity IN (0,".$force_entity.")";
    3790. 

  3790.             else $sql.= " WHERE ug.entity IS NOT NULL";
    3791. 

  3791.         }
    3792. 

  3792.         else
    3793. 

  3793.         {
    3794. 

  3794.         	$sql.= " WHERE ug.entity IN (0,".$conf->entity.")";
    3795. 

  3795.         }
    3796. 

  3796.         if (is_array($exclude) && $excludeGroups) $sql.= " AND ug.rowid NOT IN ('".$excludeGroups."')";
    3797. 

  3797.         if (is_array($include) && $includeGroups) $sql.= " AND ug.rowid IN ('".$includeGroups."')";
    3798. 

  3798. 		$sql.= " ORDER BY ug.nom ASC";
    3799. 

  3799. 

  3800.         dol_syslog("Form::select_dolgroups sql=".$sql);
    3801. 

  3801.         $resql=$this->db->query($sql);
    3802. 

  3802.         if ($resql)
    3803. 

  3803.         {
    3804. 

  3804.             $num = $this->db->num_rows($resql);
    3805. 

  3805.             $i = 0;
    3806. 

  3806.             if ($num)
    3807. 

  3807.             {
    3808. 

  3808.             	$out.= '<select class="flat" name="'.$htmlname.'"'.($disabled?' disabled="disabled"':'').'>';
    3809. 

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

  3810. 

  3811.                 while ($i < $num)
    3812. 

  3812.                 {
    3813. 

  3813.                     $obj = $this->db->fetch_object($resql);
    3814. 

  3814.                     $disableline=0;
    3815. 

  3815.                     if (is_array($enableonly) && count($enableonly) && ! in_array($obj->rowid,$enableonly)) $disableline=1;
    3816. 

  3816. 

  3817.                     $out.= '<option value="'.$obj->rowid.'"';
    3818. 

  3818.                     if ($disableline) $out.= ' disabled="disabled"';
    3819. 

  3819.                     if ((is_object($selected) && $selected->id == $obj->rowid) || (! is_object($selected) && $selected == $obj->rowid))
    3820. 

  3820.                     {
    3821. 

  3821.                         $out.= ' selected="selected"';
    3822. 

  3822.                     }
    3823. 

  3823.                     $out.= '>';
    3824. 

  3824. 

  3825.                     $out.= $obj->nom;
    3826. 

  3826.                     if(! empty($conf->multicompany->enabled) && empty($conf->multicompany->transverse_mode) && $conf->entity == 1)
    3827. 

  3827.                     {
    3828. 

  3828.                     	$out.= " (".$obj->label.")";
    3829. 

  3829.                     }
    3830. 

  3830. 

  3831.                     $out.= '</option>';
    3832. 

  3832.                     $i++;
    3833. 

  3833.                 }
    3834. 

  3834.             }
    3835. 

  3835.             else
    3836. 

  3836.             {
    3837. 

  3837.             	$out.= '<select class="flat" name="'.$htmlname.'" disabled="disabled">';
    3838. 

  3838.             	$out.= '<option value="">'.$langs->trans("None").'</option>';
    3839. 

  3839.             }
    3840. 

  3840.             $out.= '</select>';
    3841. 

  3841.         }
    3842. 

  3842.         else
    3843. 

  3843.         {
    3844. 

  3844.             dol_print_error($this->db);
    3845. 

  3845.         }
    3846. 

  3846. 

  3847.         return $out;
    3848. 

  3848.     }
    3849. 

  3849. 

  3850. }
    3851. 

  3851. 

  3852. ?>
    3853. 

  3853.