<?php
/* Copyright (c) 2013 Florian Henry  <florian.henry@open-concept.pro>
 * Copyright (C) 2015 Marcos García  <marcosgdf@gmail.com>
 * Copyright (C) 2018 Charlene Benke <charlie@patas-monkey.com>
 * Copyright (C) 2024		Frédéric France				<frederic.france@free.fr>
 * Copyright (C) 2024		MDW							<mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024		Benjamin Falière			<benjamin.faliere@altairis.fr>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

/**
 *      \file       htdocs/core/class/html.formprojet.class.php
 *      \ingroup    core
 *      \brief      Class file for html component project
 */

require_once DOL_DOCUMENT_ROOT.'/core/class/html.form.class.php';

/**
 *      Class to manage building of HTML components
 */
class FormProjets extends Form
{
	/**
	 * @var DoliDB Database handler.
	 */
	public $db;

	/**
	 * @var string Error code (or message)
	 */
	public $error = '';

	public $errors = array();


	public $nboftasks;


	/**
	 *    Constructor
	 *
	 * @param DoliDB $db Database handler
	 */
	public function __construct($db)
	{
		$this->db = $db;
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps

	/**
	 * Output a combo list with projects qualified for a third party / user
	 *
	 * @param int 		$socid 			Id third party (-1=all, 0=only projects not linked to a third party, id=projects not linked or linked to third party id)
	 * @param string|Project $selected Id of preselected project or Project (or ''). Note: If you know the ref, you can also provide it into $selected_input_value to save one request in some cases.
	 * @param string 	$htmlname 		Name of HTML field
	 * @param int 		$maxlength 		Maximum length of label
	 * @param int 		$option_only 	Return only html options lines without the select tag
	 * @param int|string	$show_empty 	Add an empty line
	 * @param int 		$discard_closed Discard closed projects (0=Keep, 1=hide completely, 2=Disable). Use a negative value to not show the "discarded" tooltip.
	 * @param int 		$forcefocus 	Force focus on field (works with javascript only)
	 * @param int 		$disabled 		Disabled
	 * @param int 		$mode 			0 for HTML mode and 1 for JSON mode
	 * @param string 	$filterkey 		Key to filter on ref or title
	 * @param int 		$nooutput 		No print output. Return it only.
	 * @param int 		$forceaddid 	Force to add project id in list, event if not qualified
	 * @param string 	$morecss 		More css
	 * @param string	$htmlid 		Html id to use instead of htmlname, by example id="htmlid"
	 * @param string 	$morefilter 	More filters (Must be a sql sanitized string)
	 * @return string                   Return html content
	 */
	public function select_projects($socid = -1, $selected = '', $htmlname = 'projectid', $maxlength = 16, $option_only = 0, $show_empty = 1, $discard_closed = 0, $forcefocus = 0, $disabled = 0, $mode = 0, $filterkey = '', $nooutput = 0, $forceaddid = 0, $morecss = '', $htmlid = '', $morefilter = '')
	{
		// phpcs:enable
		global $langs, $conf, $form;

		$selected_input_value = '';
		if (is_object($selected)) {
			$selected_input_value = $selected->ref;
			$selected = $selected->id;
		}

		$out = '';

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

			if ($selected && empty($selected_input_value)) {
				require_once DOL_DOCUMENT_ROOT . '/projet/class/project.class.php';
				$project = new Project($this->db);
				$project->fetch($selected);
				$selected_input_value = $project->ref;
			}
			$urloption = 'socid=' . ((int) $socid) . '&htmlname=' . urlencode($htmlname) . '&discardclosed=' . ((int) $discard_closed);
			if ($morefilter == 'usage_organize_event=1') {
				$urloption .= '&usage_organize_event=1';
			}
			$out .= '<input type="text" class="minwidth200' . ($morecss ? ' ' . $morecss : '') . '" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . $placeholder . ' />';

			$out .= ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT . '/projet/ajax/projects.php', $urloption, $conf->global->PROJECT_USE_SEARCH_TO_SELECT, 0, array());
		} else {
			$out .= $this->select_projects_list($socid, $selected, $htmlname, $maxlength, $option_only, $show_empty, abs($discard_closed), $forcefocus, $disabled, 0, $filterkey, 1, $forceaddid, $htmlid, $morecss, $morefilter);
		}
		if ($discard_closed > 0) {
			if (!empty($form)) {
				$out .= $form->textwithpicto('', $langs->trans("ClosedProjectsAreHidden"));
			}
		}

		if (empty($nooutput)) {
			print $out;
			return '';
		} else {
			return $out;
		}
	}

	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps

	/**
	 * Returns an array with projects qualified for a third party
	 *
	 * @param int 		$socid 			Id third party (-1=all, 0=only projects not linked to a third party, id=projects not linked or linked to third party id)
	 * @param int 		$selected 		Id project preselected
	 * @param string 	$htmlname 		Name of html component
	 * @param int 		$maxlength 		Maximum length of label
	 * @param int 		$option_only 	Return only html options lines without the select tag
	 * @param int|string	$show_empty Add an empty line
	 * @param int 		$discard_closed Discard closed projects (0=Keep,1=hide completely,2=Disable)
	 * @param int 		$forcefocus 	Force focus on field (works with javascript only)
	 * @param int 		$disabled 		Disabled
	 * @param int 		$mode 			0 for HTML mode and 1 for array return (to be used by json_encode for example)
	 * @param string 	$filterkey 		Key to filter on title or ref
	 * @param int 		$nooutput 		No print output. Return it only.
	 * @param int 		$forceaddid 	Force to add project id in list, event if not qualified
	 * @param string	$htmlid 		Html id to use instead of htmlname
	 * @param string 	$morecss 		More CSS
	 * @param string 	$morefilter 	More filters (Must be a sql sanitized string)
	 * @return int|string|array         HTML string or array of option or <0 if KO
	 */
	public function select_projects_list($socid = -1, $selected = 0, $htmlname = 'projectid', $maxlength = 24, $option_only = 0, $show_empty = 1, $discard_closed = 0, $forcefocus = 0, $disabled = 0, $mode = 0, $filterkey = '', $nooutput = 0, $forceaddid = 0, $htmlid = '', $morecss = 'maxwidth500', $morefilter = '')
	{
		// phpcs:enable
		global $user, $conf, $langs;

		require_once DOL_DOCUMENT_ROOT . '/projet/class/project.class.php';

		if (empty($htmlid)) {
			$htmlid = $htmlname;
		}

		$out = '';
		$outarray = array();

		$hideunselectables = false;
		if (getDolGlobalString('PROJECT_HIDE_UNSELECTABLES')) {
			$hideunselectables = true;
		}
		if (getDolGlobalInt('PROJECT_ALWAYS_DISCARD_CLOSED_PROJECTS_IN_SELECT')) {
			$discard_closed = 1;
		}

		$projectsListId = false;
		if (!$user->hasRight('projet', 'all', 'lire')) {
			$projectstatic = new Project($this->db);
			$projectsListId = $projectstatic->getProjectsAuthorizedForUser($user, 0, 1);
		}

		// Search all projects
		$sql = "SELECT p.rowid, p.ref, p.title, p.fk_soc, p.fk_statut, p.public, s.nom as name, s.name_alias";
		$sql .= " FROM " . $this->db->prefix() . "projet as p LEFT JOIN " . $this->db->prefix() . "societe as s ON s.rowid = p.fk_soc";
		$sql .= " WHERE p.entity IN (" . getEntity('project') . ")";
		if ($projectsListId !== false) {
			$sql .= " AND p.rowid IN (" . $this->db->sanitize($projectsListId) . ")";
		}
		if ($socid == 0) {
			$sql .= " AND (p.fk_soc=0 OR p.fk_soc IS NULL)";
		}
		if ($socid > 0) {
			if (!getDolGlobalString('PROJECT_ALLOW_TO_LINK_FROM_OTHER_COMPANY')) {
				$sql .= " AND (p.fk_soc=" . ((int) $socid) . " OR p.fk_soc IS NULL)";
			} elseif (getDolGlobalString('PROJECT_ALLOW_TO_LINK_FROM_OTHER_COMPANY') != 'all') {    // PROJECT_ALLOW_TO_LINK_FROM_OTHER_COMPANY is 'all' or a list of ids separated by coma.
				$sql .= " AND (p.fk_soc IN (" . $this->db->sanitize(((int) $socid) . ", " . getDolGlobalString('PROJECT_ALLOW_TO_LINK_FROM_OTHER_COMPANY')) . ") OR p.fk_soc IS NULL)";
			}
		}
		if (!empty($filterkey)) {
			$sql .= natural_search(array('p.title', 'p.ref'), $filterkey);
		}
		if ($morefilter) {
			$sql .= ' AND (' . $this->db->sanitize($morefilter, 0, 1) . ')';
		}
		$sql .= " ORDER BY p.ref ASC";

		$resql = $this->db->query($sql);
		if ($resql) {
			if (!empty($conf->use_javascript_ajax)) {
				$morecss .= ' minwidth100';
			}
			if (empty($option_only)) {
				$out .= '<select class="flat' . ($morecss ? ' ' . $morecss : '') . '"' . ($disabled ? ' disabled="disabled"' : '') . ' id="' . $htmlid . '" name="' . $htmlname . '">';
			}
			if (!empty($show_empty)) {
				if (is_numeric($show_empty)) {
					$out .= '<option value="0">&nbsp;</option>';
				} else {
					$out .= '<option value="-1">'.$show_empty.'</option>';
				}
			}
			$num = $this->db->num_rows($resql);
			$i = 0;
			if ($num) {
				while ($i < $num) {
					$obj = $this->db->fetch_object($resql);
					// If we ask to filter on a company and user has no permission to see all companies and project is linked to another company, we hide project.
					if ($socid > 0 && (empty($obj->fk_soc) || $obj->fk_soc == $socid) && !$user->hasRight('societe', 'lire')) {
						// Do nothing
					} else {
						if ($discard_closed == 1 && $obj->fk_statut == 2 && $obj->rowid != $selected) { // We discard closed except if selected
							$i++;
							continue;
						}

						$labeltoshow = dol_trunc($obj->ref, 18);
						//if ($obj->public) $labeltoshow.=' ('.$langs->trans("SharedProject").')';
						//else $labeltoshow.=' ('.$langs->trans("Private").')';
						$labeltoshow .= ', ' . dol_trunc($obj->title, $maxlength);
						if ($obj->name) {
							$labeltoshow .= ' - ' . $obj->name;
							if ($obj->name_alias) {
								$labeltoshow .= ' (' . $obj->name_alias . ')';
							}
						}

						$disabled = 0;
						if ($obj->fk_statut == 0) {
							$disabled = 1;
							$labeltoshow .= ' - ' . $langs->trans("Draft");
						} elseif ($obj->fk_statut == 2) {
							if ($discard_closed == 2) {
								$disabled = 1;
							}
							$labeltoshow .= ' - ' . $langs->trans("Closed");
						} elseif (!getDolGlobalString('PROJECT_ALLOW_TO_LINK_FROM_OTHER_COMPANY') && $socid > 0 && (!empty($obj->fk_soc) && $obj->fk_soc != $socid)) {
							$disabled = 1;
							$labeltoshow .= ' - ' . $langs->trans("LinkedToAnotherCompany");
						}

						if (!empty($selected) && $selected == $obj->rowid) {
							$out .= '<option value="' . $obj->rowid . '" selected';
							//if ($disabled) $out.=' disabled';						// with select2, field can't be preselected if disabled
							$out .= '>' . $labeltoshow . '</option>';
						} else {
							if ($hideunselectables && $disabled && ($selected != $obj->rowid)) {
								$resultat = '';
							} else {
								$resultat = '<option value="' . $obj->rowid . '"';
								if ($disabled) {
									$resultat .= ' disabled';
								}
								//if ($obj->public) $labeltoshow.=' ('.$langs->trans("Public").')';
								//else $labeltoshow.=' ('.$langs->trans("Private").')';
								$resultat .= '>';
								$resultat .= $labeltoshow;
								$resultat .= '</option>';
							}
							$out .= $resultat;

							$outarray[] = array(
								'key' => (int) $obj->rowid,
								'value' => $obj->ref,
								'ref' => $obj->ref,
								'labelx' => $labeltoshow,
								'label' => ($disabled ? '<span class="opacitymedium">' . $labeltoshow . '</span>' : $labeltoshow),
								'disabled' => (bool) $disabled
							);
						}
					}
					$i++;
				}
			}

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

			if (!$mode) {
				if (empty($option_only)) {
					$out .= '</select>';
				}

				// Use select2 selector
				if (!empty($conf->use_javascript_ajax)) {
					include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
					$comboenhancement = ajax_combobox($htmlid, array(), 0, $forcefocus);
					$out .= $comboenhancement;
					$morecss .= ' minwidth100';
				}

				if (empty($nooutput)) {
					print $out;
					return '';
				} else {
					return $out;
				}
			} else {
				return $outarray;
			}
		} else {
			dol_print_error($this->db);
			return -1;
		}
	}

	/**
	 *  Output a combo list with tasks qualified for a third party
	 *
	 * @param int 		$socid 			Id third party (-1=all, 0=only projects not linked to a third party, id=projects not linked or linked to third party id)
	 * @param int 		$selected 		Id task preselected
	 * @param string 	$htmlname 		Name of HTML select
	 * @param int 		$maxlength 		Maximum length of label
	 * @param int 		$option_only 	Return only html options lines without the select tag
	 * @param string 	$show_empty 	Add an empty line ('1' or string to show for empty line)
	 * @param int 		$discard_closed Discard closed projects (0=Keep, 1=hide completely, 2=Disable)
	 * @param int 		$forcefocus 	Force focus on field (works with javascript only)
	 * @param int 		$disabled 		Disabled
	 * @param string 	$morecss 		More css added to the select component
	 * @param string 	$projectsListId ''=Automatic filter on project allowed. List of id=Filter on project ids.
	 * @param string 	$showmore 		'all' = Show project info, 'progress' = Show task progression, ''=Show nothing more
	 * @param User 		$usertofilter 	User object to use for filtering
	 * @param int 		$nooutput 		1=Return string, do not send to output
	 *
	 * @return int|string                   Nbr of tasks if OK, <0 if KO. If nooutput=1: Return a HTML select string.
	 */
	public function selectTasks($socid = -1, $selected = 0, $htmlname = 'taskid', $maxlength = 24, $option_only = 0, $show_empty = '1', $discard_closed = 0, $forcefocus = 0, $disabled = 0, $morecss = 'maxwidth500', $projectsListId = '', $showmore = 'all', $usertofilter = null, $nooutput = 0)
	{
		global $user, $conf, $langs;

		require_once DOL_DOCUMENT_ROOT . '/projet/class/project.class.php';

		if (is_null($usertofilter)) {
			$usertofilter = $user;
		}

		$out = '';

		$hideunselectables = false;
		if (getDolGlobalString('PROJECT_HIDE_UNSELECTABLES')) {
			$hideunselectables = true;
		}

		if (empty($projectsListId)) {
			if (!$usertofilter->hasRight('projet', 'all', 'lire')) {
				$projectstatic = new Project($this->db);
				$projectsListId = $projectstatic->getProjectsAuthorizedForUser($usertofilter, 0, 1);
			}
		}

		// Search all projects
		$sql = "SELECT t.rowid, t.ref as tref, t.label as tlabel, t.progress,";
		$sql .= " p.rowid as pid, p.ref, p.title, p.fk_soc, p.fk_statut, p.public, p.usage_task,";
		$sql .= " s.nom as name";
		$sql .= " FROM " . $this->db->prefix() . "projet as p";
		$sql .= " LEFT JOIN " . $this->db->prefix() . "societe as s ON s.rowid = p.fk_soc,";
		$sql .= " " . $this->db->prefix() . "projet_task as t";
		$sql .= " WHERE p.entity IN (" . getEntity('project') . ")";
		$sql .= " AND t.fk_projet = p.rowid";
		if ($projectsListId) {
			$sql .= " AND p.rowid IN (" . $this->db->sanitize($projectsListId) . ")";
		}
		if ($socid == 0) {
			$sql .= " AND (p.fk_soc=0 OR p.fk_soc IS NULL)";
		}
		if ($socid > 0) {
			$sql .= " AND (p.fk_soc=" . ((int) $socid) . " OR p.fk_soc IS NULL)";
		}
		$sql .= " ORDER BY p.ref, t.ref ASC";

		$resql = $this->db->query($sql);
		if ($resql) {
			// Use select2 selector
			if (empty($option_only) && !empty($conf->use_javascript_ajax)) {
				include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
				$comboenhancement = ajax_combobox($htmlname, '', 0, $forcefocus);
				$out .= $comboenhancement;
				$morecss .= ' minwidth150imp';
			}

			if (empty($option_only)) {
				$out .= '<select class="valignmiddle flat' . ($morecss ? ' ' . $morecss : '') . '"' . ($disabled ? ' disabled="disabled"' : '') . ' id="' . $htmlname . '" name="' . $htmlname . '">';
			}
			if (!empty($show_empty)) {
				$out .= '<option value="0" class="optiongrey">';
				if (!is_numeric($show_empty)) {
					//if (!empty($conf->use_javascript_ajax)) $out .= '<span class="opacitymedium">aaa';
					$out .= $show_empty;
					//if (!empty($conf->use_javascript_ajax)) $out .= '</span>';
				} else {
					$out .= '&nbsp;';
				}
				$out .= '</option>';
			}

			$num = $this->db->num_rows($resql);
			$i = 0;
			if ($num) {
				while ($i < $num) {
					$obj = $this->db->fetch_object($resql);
					// If we ask to filter on a company and user has no permission to see all companies and project is linked to another company, we hide project.
					if ($socid > 0 && (empty($obj->fk_soc) || $obj->fk_soc == $socid) && !$usertofilter->hasRight('societe', 'lire')) {
						// Do nothing
					} else {
						if ($discard_closed == 1 && $obj->fk_statut == Project::STATUS_CLOSED) {
							$i++;
							continue;
						}

						$labeltoshow = '';
						$labeltoshowhtml = '';

						$disabled = 0;
						if ($obj->fk_statut == Project::STATUS_DRAFT) {
							$disabled = 1;
						} elseif ($obj->fk_statut == Project::STATUS_CLOSED) {
							if ($discard_closed == 2) {
								$disabled = 1;
							}
						} elseif ($socid > 0 && (!empty($obj->fk_soc) && $obj->fk_soc != $socid)) {
							$disabled = 1;
						}

						if (preg_match('/all/', $showmore)) {
							$labeltoshow .= dol_trunc($obj->ref, 18); // Project ref
							//if ($obj->public) $labeltoshow.=' ('.$langs->trans("SharedProject").')';
							//else $labeltoshow.=' ('.$langs->trans("Private").')';
							$labeltoshow .= ' ' . dol_trunc($obj->title, $maxlength);
							$labeltoshowhtml = $labeltoshow;

							if ($obj->name) {
								$labeltoshow .= ' (' . $obj->name . ')';
								$labeltoshowhtml .= ' <span class="opacitymedium">(' . $obj->name . ')</span>';
							}

							$disabled = 0;
							if ($obj->fk_statut == Project::STATUS_DRAFT) {
								$disabled = 1;
								$labeltoshow .= ' - ' . $langs->trans("Draft");
								$labeltoshowhtml .= ' -  <span class="opacitymedium">' . $langs->trans("Draft") . '</span>';
							} elseif ($obj->fk_statut == Project::STATUS_CLOSED) {
								if ($discard_closed == 2) {
									$disabled = 1;
								}
								$labeltoshow .= ' - ' . $langs->trans("Closed");
								$labeltoshowhtml .= ' - <span class="opacitymedium">' . $langs->trans("Closed") . '</span>';
							} elseif ($socid > 0 && (!empty($obj->fk_soc) && $obj->fk_soc != $socid)) {
								$disabled = 1;
								$labeltoshow .= ' - ' . $langs->trans("LinkedToAnotherCompany");
								$labeltoshowhtml .= ' - <span class="opacitymedium">' . $langs->trans("LinkedToAnotherCompany") . '</span>';
							}
							$labeltoshow .= ' - ';
							$labeltoshowhtml .= ' - ';
						}

						// Label for task
						$labeltoshow .= $obj->tref . ' ' . dol_trunc($obj->tlabel, $maxlength);
						$labeltoshowhtml .= $obj->tref . ' - ' . dol_trunc($obj->tlabel, $maxlength);
						if ($obj->usage_task && preg_match('/progress/', $showmore)) {
							$labeltoshow .= ' <span class="opacitymedium">(' . $obj->progress . '%)</span>';
							$labeltoshowhtml .= ' <span class="opacitymedium">(' . $obj->progress . '%)</span>';
						}

						if (!empty($selected) && $selected == $obj->rowid) {
							$out .= '<option value="' . $obj->rowid . '" selected';
							$out .= ' data-html="' . dol_escape_htmltag($labeltoshowhtml) . '"';
							//if ($disabled) $out.=' disabled';						// with select2, field can't be preselected if disabled
							$out .= '>' . $labeltoshow . '</option>';
						} else {
							if ($hideunselectables && $disabled && ($selected != $obj->rowid)) {
								$resultat = '';
							} else {
								$resultat = '<option value="' . $obj->rowid . '"';
								if ($disabled) {
									$resultat .= ' disabled';
								}
								//if ($obj->public) $labeltoshow.=' ('.$langs->trans("Public").')';
								//else $labeltoshow.=' ('.$langs->trans("Private").')';
								$resultat .= ' data-html="' . dol_escape_htmltag($labeltoshowhtml) . '"';
								$resultat .= '>';
								$resultat .= $labeltoshow;
								$resultat .= '</option>';
							}
							$out .= $resultat;
						}
					}
					$i++;
				}
			}
			if (empty($option_only)) {
				$out .= '</select>';
			}

			$this->nboftasks = $num;
			$this->db->free($resql);

			// Output or return
			if (empty($nooutput)) {
				print $out;
			} else {
				return $out;
			}

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


	// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps

	/**
	 *    Build a HTML select list of element of same thirdparty to suggest to link them to project
	 *
	 * @param string $table_element Table of the element to update
	 * @param int|string $socid If of thirdparty to use as filter or 'id1,id2,...'
	 * @param string $morecss More CSS
	 * @param int $limitonstatus Add filters to limit length of list to opened status (for example to avoid ERR_RESPONSE_HEADERS_TOO_BIG on project/element.php page). TODO To implement
	 * @param string $projectkey Equivalent key  to fk_projet for actual table_element
	 * @param string $placeholder Placeholder
	 * @return    int|string                        The HTML select list of element or '' if nothing or -1 if KO
	 */
	public function select_element($table_element, $socid = 0, $morecss = '', $limitonstatus = -2, $projectkey = "fk_projet", $placeholder = '')
	{
		// phpcs:enable
		global $conf, $langs;

		if ($table_element == 'projet_task') {
			return ''; // Special cas of element we never link to a project (already always done)
		}

		$linkedtothirdparty = false;
		if (!in_array(
			$table_element,
			array(
				'don',
				'expensereport_det',
				'expensereport', 'loan',
				'stock_mouvement',
				'payment_salary',
				'payment_various',
				'salary',
				'chargesociales',
				'entrepot')
		)) {
			$linkedtothirdparty = true;
		}

		$sqlfilter = '';

		//print $table_element;
		switch ($table_element) {
			case "loan":
				$sql = "SELECT t.rowid, t.label as ref";
				break;
			case "facture":
				$sql = "SELECT t.rowid, t.ref as ref";
				break;
			case "facture_fourn":
				$sql = "SELECT t.rowid, t.ref, t.ref_supplier";
				break;
			case "commande_fourn":
			case "commande_fournisseur":
				$sql = "SELECT t.rowid, t.ref, t.ref_supplier";
				break;
			case "facture_rec":
				$sql = "SELECT t.rowid, t.titre as ref";
				break;
			case "actioncomm":
				$sql = "SELECT t.id as rowid, t.label as ref";
				$projectkey = "fk_project";
				break;
			case "expensereport":
				return '';
			case "expensereport_det":
				/*$sql = "SELECT rowid, '' as ref";	// table is llx_expensereport_det
				$projectkey="fk_projet";
				break;*/
				return '';
			case "commande":
			case "contrat":
			case "fichinter":
				$sql = "SELECT t.rowid, t.ref";
				break;
			case 'stock_mouvement':
				$sql = "SELECT t.rowid, t.label as ref";
				$projectkey = 'fk_origin';
				break;
			case "payment_salary":
				$sql = "SELECT t.rowid, t.num_payment as ref"; // TODO In a future fill and use real ref field
				break;
			case "payment_various":
				$sql = "SELECT t.rowid, t.num_payment as ref";
				break;
			case "chargesociales":
			default:
				$sql = "SELECT t.rowid, t.ref";
				break;
		}
		if ($linkedtothirdparty) {
			$sql .= ", s.nom as name";
		}
		$sql .= " FROM " . $this->db->prefix() . $table_element . " as t";
		if ($linkedtothirdparty) {
			$sql .= ", " . $this->db->prefix() . "societe as s";
		}
		$sql .= " WHERE " . $projectkey . " is null";
		if (!empty($socid) && $linkedtothirdparty) {
			if (is_numeric($socid)) {
				$sql .= " AND t.fk_soc = " . ((int) $socid);
			} else {
				$sql .= " AND t.fk_soc IN (" . $this->db->sanitize($socid) . ")";
			}
		}
		if (!in_array($table_element, array('expensereport_det', 'stock_mouvement'))) {
			$sql .= ' AND t.entity IN (' . getEntity('project') . ')';
		}
		if ($linkedtothirdparty) {
			$sql .= " AND s.rowid = t.fk_soc";
		}
		if ($sqlfilter) {
			$sql .= " AND " . $sqlfilter;
		}
		$sql .= " ORDER BY ref DESC";

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

			if ($num > 0) {
				$sellist = '<select class="flat elementselect css' . $table_element . ($morecss ? ' ' . $morecss : '') . '" name="elementselect">';
				$sellist .= '<option value="-1"' . ($placeholder ? ' class="optiongrey"' : '') . '>' . $placeholder . '</option>';
				while ($i < $num) {
					$obj = $this->db->fetch_object($resql);
					$ref = $obj->ref ? $obj->ref : $obj->rowid;
					if (!empty($obj->ref_supplier)) {
						$ref .= ' (' . $obj->ref_supplier . ')';
					}
					if (!empty($obj->name)) {
						$ref .= ' - ' . $obj->name;
					}
					$sellist .= '<option value="' . $obj->rowid . '">' . $ref . '</option>';
					$i++;
				}
				$sellist .= '</select>';
			}
			/*else
			{
				$sellist = '<select class="flat" name="elementselect">';
				$sellist.= '<option value="0" disabled>'.$langs->trans("None").'</option>';
				$sellist.= '</select>';
			}*/
			$this->db->free($resql);

			return $sellist;
		} else {
			dol_print_error($this->db);
			$this->error = $this->db->lasterror();
			$this->errors[] = $this->db->lasterror();
			dol_syslog(get_class($this) . "::select_element " . $this->error, LOG_ERR);
			return -1;
		}
	}


	/**
	 *    Build a HTML select list of element of same thirdparty to suggest to link them to project
	 *
	 * @param string $htmlname HTML name
	 * @param string $preselected Preselected (int or 'all' or 'none')
	 * @param int $showempty Add an empty line
	 * @param int $useshortlabel Use short label
	 * @param int $showallnone Add choice "All" and "None"
	 * @param int $showpercent Show default probability for status
	 * @param string $morecss Add more css
	 * @param int $noadmininfo 0=Add admin info, 1=Disable admin info
	 * @param int $addcombojs 1=Add a js combo
	 * @return  int<-1,-1>|string                      The HTML select list of element or '' if nothing or -1 if KO
	 */
	public function selectOpportunityStatus($htmlname, $preselected = '-1', $showempty = 1, $useshortlabel = 0, $showallnone = 0, $showpercent = 0, $morecss = '', $noadmininfo = 0, $addcombojs = 0)
	{
		global $conf, $langs, $user;

		$sql = "SELECT rowid, code, label, percent";
		$sql .= " FROM " . $this->db->prefix() . 'c_lead_status';
		$sql .= " WHERE active = 1";
		$sql .= " ORDER BY position";

		$resql = $this->db->query($sql);
		if ($resql) {
			$num = $this->db->num_rows($resql);
			$i = 0;
			$sellist = '';
			if ($num > 0) {
				$sellist = '<select class="flat oppstatus' . ($morecss ? ' ' . $morecss : '') . '" id="' . $htmlname . '" name="' . $htmlname . '">';
				if ($showempty) {
					// Without &nbsp, strange move of screen when switching value
					$sellist .= '<option value="-1">&nbsp;</option>';
				}
				if ($showallnone) {
					$sellist .= '<option value="all"' . ($preselected == 'all' ? ' selected="selected"' : '') . '>-- ' . $langs->trans("OnlyOpportunitiesShort") . '</option>';
					$sellist .= '<option value="openedopp"' . ($preselected == 'openedopp' ? ' selected="selected"' : '') . '>-- ' . $langs->trans("OpenedOpportunitiesShort") . '</option>';
					$sellist .= '<option value="notopenedopp"' . ($preselected == 'notopenedopp' ? ' selected="selected"' : '') . '>-- ' . $langs->trans("NotOpenedOpportunitiesShort") . '</option>';
					$sellist .= '<option value="none"' . ($preselected == 'none' ? ' selected="selected"' : '') . '>-- ' . $langs->trans("NotAnOpportunityShort") . '</option>';
				}
				while ($i < $num) {
					$obj = $this->db->fetch_object($resql);

					$sellist .= '<option value="' . $obj->rowid . '" defaultpercent="' . $obj->percent . '" elemcode="' . $obj->code . '"';
					if ($obj->rowid == $preselected) {
						$sellist .= ' selected="selected"';
					}
					$sellist .= '>';
					if ($useshortlabel) {
						$finallabel = ($langs->transnoentitiesnoconv("OppStatus" . $obj->code) != "OppStatus" . $obj->code ? $langs->transnoentitiesnoconv("OppStatus" . $obj->code) : $obj->label);
					} else {
						$finallabel = ($langs->transnoentitiesnoconv("OppStatus" . $obj->code) != "OppStatus" . $obj->code ? $langs->transnoentitiesnoconv("OppStatus" . $obj->code) : $obj->label);
						if ($showpercent) {
							$finallabel .= ' (' . $obj->percent . '%)';
						}
					}
					$sellist .= $finallabel;
					$sellist .= '</option>';
					$i++;
				}
				$sellist .= '</select>';

				if ($user->admin && !$noadmininfo) {
					$sellist .= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
				}

				if ($addcombojs) {
					$sellist .= ajax_combobox($htmlname);
				}
			}
			/*else
			{
				$sellist = '<select class="flat" name="elementselect">';
				$sellist.= '<option value="0" disabled>'.$langs->trans("None").'</option>';
				$sellist.= '</select>';
			}*/
			$this->db->free($resql);

			return $sellist;
		} else {
			$this->error = $this->db->lasterror();
			$this->errors[] = $this->db->lasterror();
			dol_syslog(get_class($this) . "::selectOpportunityStatus " . $this->error, LOG_ERR);
			return -1;
		}
	}

	/**
	 *  Return combo list of different statuses of orders
	 *
	 *  @param	string	$selected   Preselected value
	 *  @param	int		$short		Use short labels
	 *  @param	string	$hmlname	Name of HTML select element
	 *  @return	void
	 */
	public function selectProjectsStatus($selected = '', $short = 0, $hmlname = 'order_status')
	{
		$options = array();

		// 7 is same label than 6. 8 does not exists (billed is another field)
		$statustohow = array(
			'0' => '0',
			'1' => '1',
			'2' => '2',
		);

		$tmpproject = new Project($this->db);

		foreach ($statustohow as $key => $value) {
			$tmpproject->statut = $key;
			$options[$value] = $tmpproject->getLibStatut($short);
		}

		if (is_array($selected)) {
			$selectedarray = $selected;
		} elseif ($selected == 99) {
			$selectedarray = array(0,1);
		} else {
			$selectedarray = explode(',', $selected);
		}

		print Form::multiselectarray($hmlname, $options, $selectedarray, 0, 0, 'minwidth100');
	}

	/**
	 *  Output a combo list with invoices and lines qualified for a project
	 *
	 * @param int $selectedInvoiceId Id invoice preselected
	 * @param int $selectedLineId Id invoice line preselected
	 * @param string $htmlNameInvoice Name of HTML select for Invoice
	 * @param string $htmlNameInvoiceLine Name of HTML select for Invoice Line
	 * @param string $morecss More css added to the select component
	 * @param array $filters Array of filters
	 * @param int $lineOnly return only option for line
	 * @return string                    HTML Select
	 */
	public function selectInvoiceAndLine($selectedInvoiceId = 0, $selectedLineId = 0, $htmlNameInvoice = 'invoiceid', $htmlNameInvoiceLine = 'invoicelineid', $morecss = 'maxwidth500', $filters = array(), $lineOnly = 0)
	{
		global $user, $conf, $langs;

		require_once DOL_DOCUMENT_ROOT . '/projet/class/project.class.php';

		$out = '';
		if (empty($lineOnly)) {
			// Search Invoice
			$sql = "SELECT f.rowid, f.ref as fref,";
			$sql .= ' s.nom as name';
			$sql .= ' FROM ' . $this->db->prefix() . 'projet as p';
			$sql .= ' INNER JOIN ' . $this->db->prefix() . 'societe as s ON s.rowid = p.fk_soc';
			$sql .= ' INNER JOIN ' . $this->db->prefix() . 'facture as f ON f.fk_projet = p.rowid';
			$sql .= " WHERE p.entity IN (" . getEntity('project') . ")";
			if (!empty($filters)) {
				foreach ($filters as $key => $value) {
					if ($key == 'p.rowid') {
						$sql .= " AND p.rowid=" . (int) $value;
					}
					if ($key == 'f.rowid') {
						$sql .= " AND f.rowid=" . (int) $value;
					}
				}
			}
			$sql .= " ORDER BY p.ref, f.ref ASC";

			$resql = $this->db->query($sql);
			if ($resql) {
				// Use select2 selector
				if (!empty($conf->use_javascript_ajax)) {
					include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
					$comboenhancement = ajax_combobox($htmlNameInvoice, array(array('method' => 'getLines', 'url' => dol_buildpath('/core/ajax/ajaxinvoiceline.php', 1), 'htmlname' => $htmlNameInvoiceLine)), 0, 0);
					$out .= $comboenhancement;
					$morecss = 'minwidth200imp maxwidth500';
				}

				$out .= '<select class="valignmiddle flat' . ($morecss ? ' ' . $morecss : '') . '" id="' . $htmlNameInvoice . '" name="' . $htmlNameInvoice . '">';
				$num = $this->db->num_rows($resql);
				if ($num) {
					while ($obj = $this->db->fetch_object($resql)) {
						$labeltoshow = $obj->fref; // Invoice ref
						if ($obj->name) {
							$labeltoshow .= ' - ' . $obj->name;
						}

						$out .= '<option value="' . $obj->rowid . '" ';
						if (!empty($selectedInvoiceId) && $selectedInvoiceId == $obj->rowid) {
							$out .= ' selected ';
						}
						$out .= '>' . $labeltoshow . '</option>';
					}
				}
				$out .= '</select>';
			} else {
				dol_print_error($this->db, $this->db->lasterror);
				return '';
			}
		}

		// Search Invoice Line
		$sql = "SELECT fd.rowid, fd.label, fd.description";
		$sql .= ' FROM ' . $this->db->prefix() . 'projet as p';
		$sql .= ' INNER JOIN ' . $this->db->prefix() . 'societe as s ON s.rowid = p.fk_soc';
		$sql .= ' INNER JOIN ' . $this->db->prefix() . 'facture as f ON f.fk_projet = p.rowid';
		$sql .= ' INNER JOIN ' . $this->db->prefix() . 'facturedet as fd ON fd.fk_facture = f.rowid';
		$sql .= " WHERE p.entity IN (" . getEntity('project') . ")";
		if (!empty($filters)) {
			foreach ($filters as $key => $value) {
				if ($key == 'p.rowid') {
					$sql .= " AND p.rowid=" . (int) $value;
				}
			}
		}
		if (!empty($selectedInvoiceId)) {
			$sql .= " AND f.rowid=" . (int) $selectedInvoiceId;
		}
		$sql .= " ORDER BY p.ref, f.ref ASC";
		$resql = $this->db->query($sql);
		if ($resql) {
			// Use select2 selector
			if (empty($lineOnly)) {
				if (!empty($conf->use_javascript_ajax)) {
					include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
					$comboenhancement = ajax_combobox($htmlNameInvoiceLine, '', 0, 0);
					$out .= $comboenhancement;
					$morecss = 'minwidth200imp maxwidth500';
				}

				$out .= '<select class="valignmiddle flat' . ($morecss ? ' ' . $morecss : '') . '" id="' . $htmlNameInvoiceLine . '" name="' . $htmlNameInvoiceLine . '">';
			}
			$num = $this->db->num_rows($resql);
			if ($num) {
				while ($obj = $this->db->fetch_object($resql)) {
					$labeltoshow .= $obj->description; // Invoice ref

					$out .= '<option value="' . $obj->rowid . '" ';
					if (!empty($selectedLineId) && $selectedLineId == $obj->rowid) {
						$out .= ' selected ';
					}
					$out .= '>' . $labeltoshow . '</option>';
				}
			}
			if (empty($lineOnly)) {
				$out .= '</select>';
			}
		} else {
			dol_print_error($this->db, $this->db->lasterror);
			return '';
		}

		return $out;
	}

	/**
	 *  Output html select to select opportunity status
	 *
	 *  @param	string $page       		Page
	 *  @param  string $selected   		Id preselected
	 *  @param 	int    $percent_value		percentage of the opportunity
	 *  @param	string $htmlname_status	name of HTML element for status select
	 *  @param	string $htmlname_percent	name of HTML element for percent input
	 *  @param  string $filter         	optional filters criteras
	 *  @param  int    $nooutput       	No print output. Return it only.
	 *  @return	void|string
	 */
	public function formOpportunityStatus($page, $selected = '', $percent_value = 0, $htmlname_status = 'none', $htmlname_percent = 'none', $filter = '', $nooutput = 0)
	{
		// phpcs:enable
		global $conf, $langs;

		$out = '';
		if ($htmlname_status != "none" && $htmlname_percent != 'none') {
			$out .= '<form method="post" action="' . $page . '">';
			$out .= '<input type="hidden" name="action" value="set_opp_status">';
			$out .= '<input type="hidden" name="token" value="' . newToken() . '">';
			$out .= $this-> selectOpportunityStatus($htmlname_status, $selected, 1, 0, 0, 0, 'minwidth150 inline-block valignmiddle', 1, 1);
			$out .= ' / <span title="'.$langs->trans("OpportunityProbability").'"> ';
			$out .= '<input class="width50 right" type="text" id="'.$htmlname_percent.'" name="'.$htmlname_percent.'" title="'.dol_escape_htmltag($langs->trans("OpportunityProbability")).'" value="'.$percent_value.'"> %';
			$out .= '</span>';
			$out .= '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
			$out .= '</form>';
		} else {
			if ($selected > 0) {
				$code = dol_getIdFromCode($this->db, $selected, 'c_lead_status', 'rowid', 'code');
				$out .= $langs->trans("OppStatus".$code);

				// Opportunity percent
				$out .= ' / <span title="'.$langs->trans("OpportunityProbability").'"> ';
				$out .= price($percent_value, 0, $langs, 1, 0).' %';
				$out .= '</span>';
			} else {
				$out .= "&nbsp;";
			}
		}

		if ($nooutput) {
			return $out;
		} else {
			print $out;
		}
	}
}