Form::select_contact() - Code Metrics - Inspection of "The Filters library is created." - alxarafe/alixar - Measure and Improve Code Quality continuously with Scrutinizer

Passed
Push — REFACTOR_MAIN_INC_241020 ( 0ab19e )

by Rafael
created 2024-10-20 18:34 UTC
Form::select_contact() C

↳ Parent: Form
Complexity

Conditions
Size

Total Lines	55
Code Lines	30
Duplication

Lines	0
Ratio	0 %
Importance

Changes
Metric	Value
cc	14
eloc	30
nop	16
dl	0
loc	55
rs	6.2666
c	0
b	0
f	0
How to fix Long Method Complexity Many Parameters

<?php

/* Copyright (c) 2002-2007  Rodolphe Quiedeville        <[email protected]>
 * Copyright (C) 2004-2012  Laurent Destailleur         <[email protected]>
 * Copyright (C) 2004       Benoit Mortier              <[email protected]>
 * Copyright (C) 2004       Sebastien Di Cintio         <[email protected]>
 * Copyright (C) 2004       Eric Seigne                 <[email protected]>
 * Copyright (C) 2005-2017  Regis Houssin               <[email protected]>
 * Copyright (C) 2006       Andre Cianfarani            <[email protected]>
 * Copyright (C) 2006       Marc Barilley/Ocebo         <[email protected]>
 * Copyright (C) 2007       Franky Van Liedekerke       <[email protected]>
 * Copyright (C) 2007       Patrick Raguin              <[email protected]>
 * Copyright (C) 2010       Juanjo Menent               <[email protected]>
 * Copyright (C) 2010-2021  Philippe Grand              <[email protected]>
 * Copyright (C) 2011       Herve Prot                  <[email protected]>
 * Copyright (C) 2012-2016  Marcos García               <[email protected]>
 * Copyright (C) 2012       Cedric Salvador             <[email protected]>
 * Copyright (C) 2012-2015  Raphaël Doursenaud          <[email protected]>
 * Copyright (C) 2014-2023  Alexandre Spangaro          <[email protected]>
 * Copyright (C) 2018-2022  Ferran Marcet               <[email protected]>
 * Copyright (C) 2018-2024  Frédéric France             <[email protected]>
 * Copyright (C) 2018       Nicolas ZABOURI	            <[email protected]>
 * Copyright (C) 2018       Christophe Battarel         <[email protected]>
 * Copyright (C) 2018       Josep Lluis Amador          <[email protected]>
 * Copyright (C) 2023		Joachim Kueter			    <[email protected]>
 * Copyright (C) 2023		Nick Fragoulis
 * Copyright (C) 2024		MDW							<[email protected]>
 * Copyright (C) 2024       Rafael San José             <[email protected]>
 *
 * 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/>.
 */

namespace Dolibarr\Code\Core\Classes;

use Dolibarr\Code\Adherents\Classes\Adherent;
use Dolibarr\Code\Categories\Classes\Categorie;
use Dolibarr\Code\Compta\Classes\Facture;
use Dolibarr\Code\Contact\Classes\Contact;
use Dolibarr\Code\Fourn\Classes\ProductFournisseur;
use Dolibarr\Code\Product\Classes\Entrepot;
use Dolibarr\Code\Product\Classes\PriceParser;
use Dolibarr\Code\Product\Classes\Product;
use Dolibarr\Code\Projet\Classes\Project;
use Dolibarr\Code\Resource\Classes\Dolresource;
use Dolibarr\Code\Resource\Classes\FormResource;
use Dolibarr\Code\Societe\Classes\Societe;
use Dolibarr\Code\Ticket\Classes\Ticket;
use Dolibarr\Code\User\Classes\User;
use Dolibarr\Core\Base\CommonObject;
use Dolibarr\Lib\Filters;
use Dolibarr\Lib\Misc;
use DoliDB;
use stdClass;

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


/**
 * Class to manage generation of HTML components
 * Only common components must be here.
 *
 * TODO Merge all function load_cache_* and loadCache* (except load_cache_vatrates) into one generic function loadCacheTable
 */
class Form
{
    /**
     * @var DoliDB Database handler.
     */
    public $db;

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

    /**
     * @var string[]    Array of error strings
     */
    public $errors = array();

    // Some properties used to return data by some methods
    /** @var array<string,int> */
    public $result;
    /** @var int */
    public $num;

    // Cache arrays
    public $cache_types_paiements = array();
    public $cache_conditions_paiements = array();
    public $cache_transport_mode = array();
    public $cache_availability = array();
    public $cache_demand_reason = array();
    public $cache_types_fees = array();
    public $cache_vatrates = array();
    public $cache_invoice_subtype = array();


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

    /**
     *    Return a HTML select string, built from an array of key+value, but content returned into select come from an Ajax call of an URL.
     *  Note: Do not apply langs->trans function on returned content of Ajax service, content may be entity encoded twice.
     *
     * @param string $htmlname Name of html select area
     * @param string $url Url. Must return a json_encode of array(key=>array('text'=>'A text', 'url'=>'An url'), ...)
     * @param string $id Preselected key
     * @param string $moreparam Add more parameters onto the select tag
     * @param string $moreparamtourl Add more parameters onto the Ajax called URL
     * @param int $disabled Html select box is disabled
     * @param int $minimumInputLength Minimum Input Length
     * @param string $morecss Add more class to css styles
     * @param int $callurlonselect If set to 1, some code is added so an url return by the ajax is called when value is selected.
     * @param string $placeholder String to use as placeholder
     * @param integer $acceptdelayedhtml 1 = caller is requesting to have html js content not returned but saved into global $delayedhtmlcontent (so caller can show it at end of page to avoid flash FOUC effect)
     * @return    string                        HTML select string
     * @see selectArrayFilter(), ajax_combobox() in ajax.lib.php
     */
    public static function selectArrayAjax($htmlname, $url, $id = '', $moreparam = '', $moreparamtourl = '', $disabled = 0, $minimumInputLength = 1, $morecss = '', $callurlonselect = 0, $placeholder = '', $acceptdelayedhtml = 0)
    {
        global $conf, $langs;
        global $delayedhtmlcontent;    // Will be used later outside of this function

        // TODO Use an internal dolibarr component instead of select2
        if (!getDolGlobalString('MAIN_USE_JQUERY_MULTISELECT') && !defined('REQUIRE_JQUERY_MULTISELECT')) {
            return '';
        }

        $out = '<select type="text" class="' . $htmlname . ($morecss ? ' ' . $morecss : '') . '" ' . ($moreparam ? $moreparam . ' ' : '') . 'name="' . $htmlname . '"></select>';

        $outdelayed = '';
        if (!empty($conf->use_javascript_ajax)) {
            $tmpplugin = 'select2';
            $outdelayed = "\n" . '<!-- JS CODE TO ENABLE ' . $tmpplugin . ' for id ' . $htmlname . ' -->
		    	<script nonce="' . getNonce() . '">
		    	$(document).ready(function () {

	    	        ' . ($callurlonselect ? 'var saveRemoteData = [];' : '') . '

	                $(".' . $htmlname . '").select2({
				    	ajax: {
					    	dir: "ltr",
					    	url: "' . $url . '",
					    	dataType: \'json\',
					    	delay: 250,
					    	data: function (params) {
					    		return {
							    	q: params.term, 	// search term
					    			page: params.page
					    		}
				    		},
				    		processResults: function (data) {
				    			// parse the results into the format expected by Select2.
				    			// since we are using custom formatting functions we do not need to alter the remote JSON data
				    			//console.log(data);
								saveRemoteData = data;
					    	    /* format json result for select2 */
					    	    result = []
					    	    $.each( data, function( key, value ) {
					    	       result.push({id: key, text: value.text});
	                            });
				    			//return {results:[{id:\'none\', text:\'aa\'}, {id:\'rrr\', text:\'Red\'},{id:\'bbb\', text:\'Search a into projects\'}], more:false}
				    			//console.log(result);
				    			return {results: result, more: false}
				    		},
				    		cache: true
				    	},
		 				language: select2arrayoflanguage,
						containerCssClass: \':all:\',					/* Line to add class of origin SELECT propagated to the new <span class="select2-selection...> tag */
					    placeholder: "' . dol_escape_js($placeholder) . '",
				    	escapeMarkup: function (markup) { return markup; }, 	// let our custom formatter work
				    	minimumInputLength: ' . ((int)$minimumInputLength) . ',
				        formatResult: function (result, container, query, escapeMarkup) {
	                        return escapeMarkup(result.text);
	                    },
				    });

	                ' . ($callurlonselect ? '
	                /* Code to execute a GET when we select a value */
	                $(".' . $htmlname . '").change(function() {
				    	var selected = $(".' . $htmlname . '").val();
	                	console.log("We select in selectArrayAjax the entry "+selected)
				        $(".' . $htmlname . '").val("");  /* reset visible combo value */
	    			    $.each( saveRemoteData, function( key, value ) {
	    				        if (key == selected)
	    			            {
	    			                 console.log("selectArrayAjax - Do a redirect to "+value.url)
	    			                 location.assign(value.url);
	    			            }
	                    });
	    			});' : '') . '

	    	   });
		       </script>';
        }

        if ($acceptdelayedhtml) {
            $delayedhtmlcontent .= $outdelayed;
        } else {
            $out .= $outdelayed;
        }
        return $out;
    }

    /**
     *  Return a HTML select string, built from an array of key+value, but content returned into select is defined into $array parameter.
     *  Note: Do not apply langs->trans function on returned content of Ajax service, content may be entity encoded twice.
     *
     * @param string $htmlname Name of html select area
     * @param array<string,array{text:string,url:string}> $array Array (key=>array('text'=>'A text', 'url'=>'An url'), ...)
     * @param string $id Preselected key
     * @param string $moreparam Add more parameters onto the select tag
     * @param int<0,1> $disableFiltering If set to 1, results are not filtered with searched string
     * @param int<0,1> $disabled Html select box is disabled
     * @param int $minimumInputLength Minimum Input Length
     * @param string $morecss Add more class to css styles
     * @param int<0,1> $callurlonselect If set to 1, some code is added so an url return by the ajax is called when value is selected.
     * @param string $placeholder String to use as placeholder
     * @param int<0,1> $acceptdelayedhtml 1 = caller is requesting to have html js content not returned but saved into global $delayedhtmlcontent (so caller can show it at end of page to avoid flash FOUC effect)
     * @param string $textfortitle Text to show on title.
     * @return  string                          HTML select string
     * @see selectArrayAjax(), ajax_combobox() in ajax.lib.php
     */
    public static function selectArrayFilter($htmlname, $array, $id = '', $moreparam = '', $disableFiltering = 0, $disabled = 0, $minimumInputLength = 1, $morecss = '', $callurlonselect = 0, $placeholder = '', $acceptdelayedhtml = 0, $textfortitle = '')
    {
        global $conf, $langs;
        global $delayedhtmlcontent;    // Will be used later outside of this function

        // TODO Use an internal dolibarr component instead of select2
        if (!getDolGlobalString('MAIN_USE_JQUERY_MULTISELECT') && !defined('REQUIRE_JQUERY_MULTISELECT')) {
            return '';
        }

        $out = '<select type="text"' . ($textfortitle ? ' title="' . dol_escape_htmltag($textfortitle) . '"' : '') . ' id="' . $htmlname . '" class="' . $htmlname . ($morecss ? ' ' . $morecss : '') . '"' . ($moreparam ? ' ' . $moreparam : '') . ' name="' . $htmlname . '"><option></option></select>';

        $formattedarrayresult = array();

        foreach ($array as $key => $value) {
            $o = new stdClass();
            $o->id = $key;
            $o->text = $value['text'];
            $o->url = $value['url'];
            $formattedarrayresult[] = $o;
        }

        $outdelayed = '';
        if (!empty($conf->use_javascript_ajax)) {
            $tmpplugin = 'select2';
            $outdelayed = "\n" . '<!-- JS CODE TO ENABLE ' . $tmpplugin . ' for id ' . $htmlname . ' -->
				<script nonce="' . getNonce() . '">
				$(document).ready(function () {
					var data = ' . json_encode($formattedarrayresult) . ';

					' . ($callurlonselect ? 'var saveRemoteData = ' . json_encode($array) . ';' : '') . '

					$(".' . $htmlname . '").select2({
						data: data,
						language: select2arrayoflanguage,
						containerCssClass: \':all:\',					/* Line to add class of origin SELECT propagated to the new <span class="select2-selection...> tag */
						placeholder: "' . dol_escape_js($placeholder) . '",
						escapeMarkup: function (markup) { return markup; }, 	// let our custom formatter work
						minimumInputLength: ' . $minimumInputLength . ',
						formatResult: function (result, container, query, escapeMarkup) {
							return escapeMarkup(result.text);
						},
						matcher: function (params, data) {

							if(! data.id) return null;';

            if ($callurlonselect) {
                // We forge the url with 'sall='
                $outdelayed .= '

							var urlBase = data.url;
							var separ = urlBase.indexOf("?") >= 0 ? "&" : "?";
							/* console.log("params.term="+params.term); */
							/* console.log("params.term encoded="+encodeURIComponent(params.term)); */
							saveRemoteData[data.id].url = urlBase + separ + "search_all=" + encodeURIComponent(params.term.replace(/\"/g, ""));';
            }

            if (!$disableFiltering) {
                $outdelayed .= '

							if(data.text.match(new RegExp(params.term))) {
								return data;
							}

							return null;';
            } else {
                $outdelayed .= '

							return data;';
            }

            $outdelayed .= '
						}
					});

					' . ($callurlonselect ? '
					/* Code to execute a GET when we select a value */
					$(".' . $htmlname . '").change(function() {
						var selected = $(".' . $htmlname . '").val();
						console.log("We select "+selected)

						$(".' . $htmlname . '").val("");  /* reset visible combo value */
						$.each( saveRemoteData, function( key, value ) {
							if (key == selected)
							{
								console.log("selectArrayFilter - Do a redirect to "+value.url)
								location.assign(value.url);
							}
						});
					});' : '') . '

				});
				</script>';
        }

        if ($acceptdelayedhtml) {
            $delayedhtmlcontent .= $outdelayed;
        } else {
            $out .= $outdelayed;
        }
        return $out;
    }

    /**
     * Show a multiselect dropbox from an array.
     * If a saved selection of fields exists for user (into $user->conf->MAIN_SELECTEDFIELDS_contextofpage), we use this one instead of default.
     *
     * @param string $htmlname Name of HTML field
     * @param array<string,array{label:string,checked:string,enabled?:string,type?:string,langfile?:string}> $array Array with array of fields we could show. This array may be modified according to setup of user.
     * @param string $varpage Id of context for page. Can be set by caller with $varpage=(empty($contextpage)?$_SERVER["PHP_SELF"]:$contextpage);
     * @param string $pos Position colon on liste value 'left' or '' (meaning 'right').
     * @return string               HTML multiselect string
     * @see selectarray()
     */
    public static function multiSelectArrayWithCheckbox($htmlname, &$array, $varpage, $pos = '')
    {
        global $langs, $user;

        if (getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
            return '';
        }
        if (empty($array)) {
            return '';
        }

        $tmpvar = "MAIN_SELECTEDFIELDS_" . $varpage; // To get list of saved selected fields to show

        if (!empty($user->conf->$tmpvar)) {        // A list of fields was already customized for user
            $tmparray = explode(',', $user->conf->$tmpvar);
            foreach ($array as $key => $val) {
                //var_dump($key);
                //var_dump($tmparray);
                if (in_array($key, $tmparray)) {
                    $array[$key]['checked'] = 1;
                } else {
                    $array[$key]['checked'] = 0;
                }
            }
        } else {                                // There is no list of fields already customized for user
            foreach ($array as $key => $val) {
                if (!empty($array[$key]['checked']) && $array[$key]['checked'] < 0) {
                    $array[$key]['checked'] = 0;
                }
            }
        }

        $listoffieldsforselection = '';
        $listcheckedstring = '';

        foreach ($array as $key => $val) {
            // var_dump($val);
            // var_dump(array_key_exists('enabled', $val));
            // var_dump(!$val['enabled']);
            if (array_key_exists('enabled', $val) && isset($val['enabled']) && !$val['enabled']) {
                unset($array[$key]); // We don't want this field
                continue;
            }
            if (!empty($val['type']) && $val['type'] == 'separate') {
                // Field remains in array but we don't add it into $listoffieldsforselection
                //$listoffieldsforselection .= '<li>-----</li>';
                continue;
            }
            if (!empty($val['label']) && $val['label']) {
                if (!empty($val['langfile']) && is_object($langs)) {
                    $langs->load($val['langfile']);
                }

                // Note: $val['checked'] <> 0 means we must show the field into the combo list  @phan-suppress-next-line PhanTypePossiblyInvalidDimOffset
                $listoffieldsforselection .= '<li><input type="checkbox" id="checkbox' . $key . '" value="' . $key . '"' . ((!array_key_exists('checked', $val) || empty($val['checked']) || $val['checked'] == '-1') ? '' : ' checked="checked"') . '/><label for="checkbox' . $key . '">' . dol_escape_htmltag($langs->trans($val['label'])) . '</label></li>';
                $listcheckedstring .= (empty($val['checked']) ? '' : $key . ',');
            }
        }

        $out = '<!-- Component multiSelectArrayWithCheckbox ' . $htmlname . ' -->

        <dl class="dropdown">
            <dt>
            <a href="#' . $htmlname . '">
              ' . img_picto('', 'list') . '
            </a>
            <input type="hidden" class="' . $htmlname . '" name="' . $htmlname . '" value="' . $listcheckedstring . '">
            </dt>
            <dd class="dropdowndd">
                <div class="multiselectcheckbox' . $htmlname . '">
                    <ul class="' . $htmlname . ($pos == '1' ? 'left' : '') . '">
                    <li><input class="inputsearch_dropdownselectedfields width90p minwidth200imp" style="width:90%;" type="text" placeholder="' . $langs->trans('Search') . '"></li>
                    ' . $listoffieldsforselection . '
                    </ul>
                </div>
            </dd>
        </dl>

        <script nonce="' . getNonce() . '" type="text/javascript">
          jQuery(document).ready(function () {
              $(\'.multiselectcheckbox' . $htmlname . ' input[type="checkbox"]\').on(\'click\', function () {
                  console.log("A new field was added/removed, we edit field input[name=formfilteraction]");

                  $("input:hidden[name=formfilteraction]").val(\'listafterchangingselectedfields\');	// Update field so we know we changed something on selected fields after POST

                  var title = $(this).val() + ",";
                  if ($(this).is(\':checked\')) {
                      $(\'.' . $htmlname . '\').val(title + $(\'.' . $htmlname . '\').val());
                  }
                  else {
                      $(\'.' . $htmlname . '\').val( $(\'.' . $htmlname . '\').val().replace(title, \'\') )
                  }
                  // Now, we submit page
                  //$(this).parents(\'form:first\').submit();
              });
              $("input.inputsearch_dropdownselectedfields").on("keyup", function() {
			    var value = $(this).val().toLowerCase();
			    $(\'.multiselectcheckbox' . $htmlname . ' li > label\').filter(function() {
			      $(this).parent().toggle($(this).text().toLowerCase().indexOf(value) > -1)
			    });
			  });


           });
        </script>

        ';
        return $out;
    }

    /**
     * Return HTML code to output a photo
     *
     * @param string $modulepart Key to define module concerned ('societe', 'userphoto', 'memberphoto')
     * @param Societe|Adherent|Contact|User|CommonObject $object Object containing data to retrieve file name
     * @param int $width Width of photo
     * @param int $height Height of photo (auto if 0)
     * @param int<0,1> $caneditfield Add edit fields
     * @param string $cssclass CSS name to use on img for photo
     * @param string $imagesize 'mini', 'small' or '' (original)
     * @param int<0,1> $addlinktofullsize Add link to fullsize image
     * @param int<0,1> $cache 1=Accept to use image in cache
     * @param string $forcecapture '', 'user' or 'environment'. Force parameter capture on HTML input file element to ask a smartphone to allow to open camera to take photo. Auto if ''.
     * @param int<0,1> $noexternsourceoverwrite No overwrite image with extern source (like 'gravatar' or other module)
     * @return string                               HTML code to output photo
     * @see getImagePublicURLOfObject()
     */
    public static function showphoto($modulepart, $object, $width = 100, $height = 0, $caneditfield = 0, $cssclass = 'photowithmargin', $imagesize = '', $addlinktofullsize = 1, $cache = 0, $forcecapture = '', $noexternsourceoverwrite = 0)
    {
        global $conf, $langs;

        $entity = (empty($object->entity) ? $conf->entity : $object->entity);
        $id = (empty($object->id) ? $object->rowid : $object->id);  // @phan-suppress-current-line PhanUndeclaredProperty (->rowid)


        $dir = '';
        $file = '';
        $originalfile = '';
        $altfile = '';
        $email = '';
        $capture = '';
        if ($modulepart == 'societe') {
            $dir = $conf->societe->multidir_output[$entity];
            if (!empty($object->logo)) {

                if (dolIsAllowedForPreview($object->logo)) {
                    if ((string)$imagesize == 'mini') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'thirdparty') . 'logos/' . getImageFileNameForSize($object->logo, '_mini'); // getImageFileNameForSize include the thumbs
                    } elseif ((string)$imagesize == 'small') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'thirdparty') . 'logos/' . getImageFileNameForSize($object->logo, '_small');
                    } else {
                        $file = get_exdir(0, 0, 0, 0, $object, 'thirdparty') . 'logos/' . $object->logo;
                    }
                    $originalfile = get_exdir(0, 0, 0, 0, $object, 'thirdparty') . 'logos/' . $object->logo;
                }
            }
            $email = $object->email;

        } elseif ($modulepart == 'contact') {
            $dir = $conf->societe->multidir_output[$entity] . '/contact';
            if (!empty($object->photo)) {

                if (dolIsAllowedForPreview($object->photo)) {
                    if ((string)$imagesize == 'mini') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'contact') . 'photos/' . getImageFileNameForSize($object->photo, '_mini');
                    } elseif ((string)$imagesize == 'small') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'contact') . 'photos/' . getImageFileNameForSize($object->photo, '_small');
                    } else {
                        $file = get_exdir(0, 0, 0, 0, $object, 'contact') . 'photos/' . $object->photo;
                    }
                    $originalfile = get_exdir(0, 0, 0, 0, $object, 'contact') . 'photos/' . $object->photo;
                }
            }
            $email = $object->email;
            $capture = 'user';
        } elseif ($modulepart == 'userphoto') {
            $dir = $conf->user->dir_output;
            if (!empty($object->photo)) {
                if (dolIsAllowedForPreview($object->photo)) {
                    if ((string)$imagesize == 'mini') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'user') . 'photos/' . getImageFileNameForSize($object->photo, '_mini');
                    } elseif ((string)$imagesize == 'small') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'user') . 'photos/' . getImageFileNameForSize($object->photo, '_small');
                    } else {
                        $file = get_exdir(0, 0, 0, 0, $object, 'user') . 'photos/' . $object->photo;
                    }
                    $originalfile = get_exdir(0, 0, 0, 0, $object, 'user') . 'photos/' . $object->photo;
                }
            }
            if (getDolGlobalString('MAIN_OLD_IMAGE_LINKS')) {
                $altfile = $object->id . ".jpg"; // For backward compatibility
            }
            $email = $object->email;
            $capture = 'user';
        } elseif ($modulepart == 'memberphoto') {
            $dir = $conf->adherent->dir_output;
            if (!empty($object->photo)) {
                if (dolIsAllowedForPreview($object->photo)) {
                    if ((string)$imagesize == 'mini') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'member') . 'photos/' . getImageFileNameForSize($object->photo, '_mini');
                    } elseif ((string)$imagesize == 'small') {
                        $file = get_exdir(0, 0, 0, 0, $object, 'member') . 'photos/' . getImageFileNameForSize($object->photo, '_small');
                    } else {
                        $file = get_exdir(0, 0, 0, 0, $object, 'member') . 'photos/' . $object->photo;
                    }
                    $originalfile = get_exdir(0, 0, 0, 0, $object, 'member') . 'photos/' . $object->photo;
                }
            }
            if (getDolGlobalString('MAIN_OLD_IMAGE_LINKS')) {
                $altfile = $object->id . ".jpg"; // For backward compatibility
            }
            $email = $object->email;
            $capture = 'user';
        } else {
            // Generic case to show photos
            // TODO Implement this method in previous objects so we can always use this generic method.
            if ($modulepart != "unknown" && method_exists($object, 'getDataToShowPhoto')) {
                $tmpdata = $object->getDataToShowPhoto($modulepart, $imagesize);

                $dir = $tmpdata['dir'];
                $file = $tmpdata['file'];
                $originalfile = $tmpdata['originalfile'];
                $altfile = $tmpdata['altfile'];
                $email = $tmpdata['email'];
                $capture = $tmpdata['capture'];
            }
        }

        if ($forcecapture) {
            $capture = $forcecapture;
        }

        $ret = '';

        if ($dir) {
            if ($file && file_exists($dir . "/" . $file)) {
                if ($addlinktofullsize) {
                    $urladvanced = getAdvancedPreviewUrl($modulepart, $originalfile, 0, '&entity=' . $entity);
                    if ($urladvanced) {
                        $ret .= '<a href="' . $urladvanced . '">';
                    } else {
                        $ret .= '<a href="' . constant('BASE_URL') . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $entity . '&file=' . urlencode($originalfile) . '&cache=' . $cache . '">';
                    }
                }
                $ret .= '<img alt="" class="photo' . $modulepart . ($cssclass ? ' ' . $cssclass : '') . ' photologo' . (preg_replace('/[^a-z]/i', '_', $file)) . '" ' . ($width ? ' width="' . $width . '"' : '') . ($height ? ' height="' . $height . '"' : '') . ' src="' . constant('BASE_URL') . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $entity . '&file=' . urlencode($file) . '&cache=' . $cache . '">';
                if ($addlinktofullsize) {
                    $ret .= '</a>';
                }
            } elseif ($altfile && file_exists($dir . "/" . $altfile)) {
                if ($addlinktofullsize) {
                    $urladvanced = getAdvancedPreviewUrl($modulepart, $originalfile, 0, '&entity=' . $entity);
                    if ($urladvanced) {
                        $ret .= '<a href="' . $urladvanced . '">';
                    } else {
                        $ret .= '<a href="' . constant('BASE_URL') . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $entity . '&file=' . urlencode($originalfile) . '&cache=' . $cache . '">';
                    }
                }
                $ret .= '<img class="photo' . $modulepart . ($cssclass ? ' ' . $cssclass : '') . '" alt="Photo alt" id="photologo' . (preg_replace('/[^a-z]/i', '_', $file)) . '" class="' . $cssclass . '" ' . ($width ? ' width="' . $width . '"' : '') . ($height ? ' height="' . $height . '"' : '') . ' src="' . constant('BASE_URL') . '/viewimage.php?modulepart=' . $modulepart . '&entity=' . $entity . '&file=' . urlencode($altfile) . '&cache=' . $cache . '">';
                if ($addlinktofullsize) {
                    $ret .= '</a>';
                }
            } else {
                $nophoto = '/public/theme/common/nophoto.png';
                $defaultimg = 'identicon';        // For gravatar
                if (in_array($modulepart, array('societe', 'userphoto', 'contact', 'memberphoto'))) {    // For modules that need a special image when photo not found
                    if ($modulepart == 'societe' || ($modulepart == 'memberphoto' && !empty($object->morphy) && strpos($object->morphy, 'mor') !== false)) {

                        $nophoto = 'company';
                    } else {
                        $nophoto = '/public/theme/common/user_anonymous.png';
                        if (!empty($object->gender) && $object->gender == 'man') {

                            $nophoto = '/public/theme/common/user_man.png';
                        }
                        if (!empty($object->gender) && $object->gender == 'woman') {
                            $nophoto = '/public/theme/common/user_woman.png';
                        }
                    }
                }

                if (isModEnabled('gravatar') && $email && empty($noexternsourceoverwrite)) {
                    // see https://gravatar.com/site/implement/images/php/
                    $ret .= '<!-- Put link to gravatar -->';
                    $ret .= '<img class="photo' . $modulepart . ($cssclass ? ' ' . $cssclass : '') . '" alt="" title="' . $email . ' Gravatar avatar" ' . ($width ? ' width="' . $width . '"' : '') . ($height ? ' height="' . $height . '"' : '') . ' src="https://www.gravatar.com/avatar/' . dol_hash(strtolower(trim($email)), 'sha256', 1) . '?s=' . $width . '&d=' . $defaultimg . '">'; // gravatar need md5 hash
                } else {
                    if ($nophoto == 'company') {
                        $ret .= '<div class="divforspanimg valignmiddle center photo' . $modulepart . ($cssclass ? ' ' . $cssclass : '') . '" alt="" ' . ($width ? ' width="' . $width . '"' : '') . ($height ? ' height="' . $height . '"' : '') . '>' . img_picto('', 'company') . '</div>';
                        //$ret .= '<div class="difforspanimgright"></div>';
                    } else {
                        $ret .= '<img class="photo' . $modulepart . ($cssclass ? ' ' . $cssclass : '') . '" alt="" ' . ($width ? ' width="' . $width . '"' : '') . ($height ? ' height="' . $height . '"' : '') . ' src="' . constant('DOL_URL_ROOT') . $nophoto . '">';
                    }
                }
            }

            if ($caneditfield) {
                if ($object->photo) {
                    $ret .= "<br>\n";
                }
                $ret .= '<table class="nobordernopadding centpercent">';
                if ($object->photo) {
                    $ret .= '<tr><td><input type="checkbox" class="flat photodelete" name="deletephoto" id="photodelete"> <label for="photodelete">' . $langs->trans("Delete") . '</label><br><br></td></tr>';
                }
                $ret .= '<tr><td class="tdoverflow">';
                $maxfilesizearray = getMaxFileSizeArray();
                $maxmin = $maxfilesizearray['maxmin'];
                if ($maxmin > 0) {
                    $ret .= '<input type="hidden" name="MAX_FILE_SIZE" value="' . ($maxmin * 1024) . '">';    // MAX_FILE_SIZE must precede the field type=file
                }
                $ret .= '<input type="file" class="flat maxwidth200onsmartphone" name="photo" id="photoinput" accept="image/*"' . ($capture ? ' capture="' . $capture . '"' : '') . '>';
                $ret .= '</td></tr>';
                $ret .= '</table>';
            }
        }

        return $ret;
    }

    /**
     * Output key field for an editable field
     *
     * @param string $text Text of label or key to translate
     * @param string $htmlname Name of select field ('edit' prefix will be added)
     * @param string $preselected Value to show/edit (not used in this function)
     * @param object $object Object (on the page we show)
     * @param boolean $perm Permission to allow button to edit parameter. Set it to 0 to have a not edited field.
     * @param string $typeofdata Type of data ('string' by default, 'email', 'amount:99', 'numeric:99', 'text' or 'textarea:rows:cols', 'datepicker' ('day' do not work, don't know why), 'dayhour' or 'datehourpicker' 'checkbox:ckeditor:dolibarr_zzz:width:height:savemethod:1:rows:cols', 'select;xxx[:class]'...)
     * @param string $moreparam More param to add on a href URL.
     * @param int $fieldrequired 1 if we want to show field as mandatory using the "fieldrequired" CSS.
     * @param int $notabletag 1=Do not output table tags but output a ':', 2=Do not output table tags and no ':', 3=Do not output table tags but output a ' '
     * @param string $paramid Key of parameter for id ('id', 'socid')
     * @param string $help Tooltip help
     * @return  string                  HTML edit field
     */
    public function editfieldkey($text, $htmlname, $preselected, $object, $perm, $typeofdata = 'string', $moreparam = '', $fieldrequired = 0, $notabletag = 0, $paramid = 'id', $help = '')
    {
        global $langs;

        $ret = '';

        // TODO change for compatibility
        if (getDolGlobalString('MAIN_USE_JQUERY_JEDITABLE') && !preg_match('/^select;/', $typeofdata)) {
            if (!empty($perm)) {
                $tmp = explode(':', $typeofdata);
                $ret .= '<div class="editkey_' . $tmp[0] . (!empty($tmp[1]) ? ' ' . $tmp[1] : '') . '" id="' . $htmlname . '">';
                if ($fieldrequired) {
                    $ret .= '<span class="fieldrequired">';
                }
                if ($help) {
                    $ret .= $this->textwithpicto($langs->trans($text), $help);
                } else {
                    $ret .= $langs->trans($text);
                }
                if ($fieldrequired) {
                    $ret .= '</span>';
                }
                $ret .= '</div>' . "\n";
            } else {
                if ($fieldrequired) {
                    $ret .= '<span class="fieldrequired">';
                }
                if ($help) {
                    $ret .= $this->textwithpicto($langs->trans($text), $help);
                } else {
                    $ret .= $langs->trans($text);
                }
                if ($fieldrequired) {
                    $ret .= '</span>';
                }
            }
        } else {
            if (empty($notabletag) && $perm) {
                $ret .= '<table class="nobordernopadding centpercent"><tr><td class="nowrap">';
            }
            if ($fieldrequired) {
                $ret .= '<span class="fieldrequired">';
            }
            if ($help) {
                $ret .= $this->textwithpicto($langs->trans($text), $help);
            } else {
                $ret .= $langs->trans($text);
            }
            if ($fieldrequired) {
                $ret .= '</span>';
            }
            if (!empty($notabletag)) {
                $ret .= ' ';
            }
            if (empty($notabletag) && $perm) {
                $ret .= '</td>';
            }
            if (empty($notabletag) && $perm) {
                $ret .= '<td class="right">';
            }
            if ($htmlname && GETPOST('action', 'aZ09') != 'edit' . $htmlname && $perm) {
                $ret .= '<a class="editfielda reposition" href="' . $_SERVER["PHP_SELF"] . '?action=edit' . $htmlname . '&token=' . newToken() . '&' . $paramid . '=' . $object->id . $moreparam . '">' . img_edit($langs->trans('Edit'), ($notabletag ? 0 : 1)) . '</a>';
            }
            if (!empty($notabletag) && $notabletag == 1) {
                if ($text) {
                    $ret .= ' : ';
                } else {
                    $ret .= ' ';
                }
            }
            if (!empty($notabletag) && $notabletag == 3) {
                $ret .= ' ';
            }
            if (empty($notabletag) && $perm) {
                $ret .= '</td>';
            }
            if (empty($notabletag) && $perm) {
                $ret .= '</tr></table>';
            }
        }

        return $ret;
    }

    /**
     * Show a text with a picto and a tooltip on picto
     *
     * @param string $text Text to show
     * @param string $htmltext Content of tooltip
     * @param int $direction 1=Icon is after text, -1=Icon is before text, 0=no icon
     * @param string $type Type of picto ('info', 'infoclickable', 'help', 'helpclickable', 'warning', 'superadmin', 'mypicto@mymodule', ...) or image filepath or 'none'
     * @param string $extracss Add a CSS style to td, div or span tag
     * @param int $noencodehtmltext Do not encode into html entity the htmltext
     * @param int $notabs 0=Include table and tr tags, 1=Do not include table and tr tags, 2=use div, 3=use span
     * @param string $tooltiptrigger ''=Tooltip on hover and hidden on smartphone, 'abconsmartphone'=Tooltip on hover and on click on smartphone, 'abc'=Tooltip on click (abc is a unique key, clickable link is on image or on link if param $type='none' or on both if $type='xxxclickable')
     * @param int $forcenowrap Force no wrap between text and picto (works with notabs=2 only)
     * @return  string                          HTML code of text, picto, tooltip
     */
    public function textwithpicto($text, $htmltext, $direction = 1, $type = 'help', $extracss = '', $noencodehtmltext = 0, $notabs = 3, $tooltiptrigger = '', $forcenowrap = 0)
    {
        global $conf, $langs;

        //For backwards compatibility
        if ($type == '0') {
            $type = 'info';
        } elseif ($type == '1') {
            $type = 'help';
        }
        // Clean parameters
        $tooltiptrigger = preg_replace('/[^a-z0-9]/i', '', $tooltiptrigger);

        if (preg_match('/onsmartphone$/', $tooltiptrigger) && empty($conf->dol_no_mouse_hover)) {
            $tooltiptrigger = preg_replace('/^.*onsmartphone$/', '', $tooltiptrigger);
        }
        $alt = '';
        if ($tooltiptrigger) {
            $alt = $langs->transnoentitiesnoconv("ClickToShowHelp");
        }

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

        // If info or help with smartphone, show only text (tooltip hover can't works)
        if (!empty($conf->dol_no_mouse_hover) && empty($tooltiptrigger)) {
            if ($type == 'info' || $type == 'infoclickable' || $type == 'help' || $type == 'helpclickable') {
                return $text;
            }
        }
        // If info or help with smartphone, show only text (tooltip on click does not works with dialog on smaprtphone)
        //if (!empty($conf->dol_no_mouse_hover) && !empty($tooltiptrigger))
        //{
        //if ($type == 'info' || $type == 'help') return '<a href="'..'">'.$text.'</a>';
        //}

        $img = '';
        if ($type == 'info') {
            $img = img_help(0, $alt);
        } elseif ($type == 'help') {
            $img = img_help(($tooltiptrigger != '' ? 2 : 1), $alt);
        } elseif ($type == 'helpclickable') {
            $img = img_help(($tooltiptrigger != '' ? 2 : 1), $alt);
        } elseif ($type == 'superadmin') {
            // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
            $img = img_picto($alt, 'redstar');
        } elseif ($type == 'admin') {
            // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
            $img = img_picto($alt, 'star');
        } elseif ($type == 'warning') {
            $img = img_warning($alt);
        } elseif ($type != 'none') {
            // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
            $img = img_picto($alt, $type); // $type can be an image path
        }

        return $this->textwithtooltip($text, $htmltext, ((($tooltiptrigger && !$img) || strpos($type, 'clickable')) ? 3 : 2), $direction, $img, $extracss, $notabs, '', $noencodehtmltext, $tooltiptrigger, $forcenowrap);
    }

    /**
     *  Show a text and picto with tooltip on text or picto.
     *  Can be called by an instancied $form->textwithtooltip or by a static call Form::textwithtooltip
     *
     * @param string $text Text to show
     * @param string $htmltext HTML content of tooltip. Must be HTML/UTF8 encoded.
     * @param int $tooltipon 1=tooltip on text, 2=tooltip on image, 3=tooltip on both
     * @param int $direction -1=image is before, 0=no image, 1=image is after
     * @param string $img Html code for image (use img_xxx() function to get it)
     * @param string $extracss Add a CSS style to td tags
     * @param int $notabs 0=Include table and tr tags, 1=Do not include table and tr tags, 2=use div, 3=use span
     * @param string $incbefore Include code before the text
     * @param int $noencodehtmltext Do not encode into html entity the htmltext
     * @param string $tooltiptrigger ''=Tooltip on hover, 'abc'=Tooltip on click (abc is a unique key)
     * @param int $forcenowrap Force no wrap between text and picto (works with notabs=2 only)
     * @return string                      Code html du tooltip (texte+picto)
     * @see    textwithpicto()             Use textwithpicto() instead of textwithtooltip if you can.
     */
    public function textwithtooltip($text, $htmltext, $tooltipon = 1, $direction = 0, $img = '', $extracss = '', $notabs = 3, $incbefore = '', $noencodehtmltext = 0, $tooltiptrigger = '', $forcenowrap = 0)
    {
        if ($incbefore) {
            $text = $incbefore . $text;
        }
        if (!$htmltext) {
            return $text;
        }
        $direction = (int)$direction;    // For backward compatibility when $direction was set to '' instead of 0

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

        $extrastyle = '';
        if ($direction < 0) {
            $extracss = ($extracss ? $extracss . ' ' : '') . ($notabs != 3 ? 'inline-block' : '');
            $extrastyle = 'padding: 0px; padding-left: 3px;';
        }
        if ($direction > 0) {
            $extracss = ($extracss ? $extracss . ' ' : '') . ($notabs != 3 ? 'inline-block' : '');
            $extrastyle = 'padding: 0px; padding-right: 3px;';
        }

        $classfortooltip = 'classfortooltip';

        $s = '';
        $textfordialog = '';

        if ($tooltiptrigger == '') {
            $htmltext = str_replace('"', '&quot;', $htmltext);
        } else {
            $classfortooltip = 'classfortooltiponclick';
            $textfordialog .= '<div style="display: none;" id="idfortooltiponclick_' . $tooltiptrigger . '" class="classfortooltiponclicktext">' . $htmltext . '</div>';
        }
        if ($tooltipon == 2 || $tooltipon == 3) {
            $paramfortooltipimg = ' class="' . $classfortooltip . ($notabs != 3 ? ' inline-block' : '') . ($extracss ? ' ' . $extracss : '') . '" style="padding: 0px;' . ($extrastyle ? ' ' . $extrastyle : '') . '"';
            if ($tooltiptrigger == '') {
                $paramfortooltipimg .= ' title="' . ($noencodehtmltext ? $htmltext : dol_escape_htmltag($htmltext, 1)) . '"'; // Attribute to put on img tag to store tooltip
            } else {
                $paramfortooltipimg .= ' dolid="' . $tooltiptrigger . '"';
            }
        } else {
            $paramfortooltipimg = ($extracss ? ' class="' . $extracss . '"' : '') . ($extrastyle ? ' style="' . $extrastyle . '"' : ''); // Attribute to put on td text tag
        }
        if ($tooltipon == 1 || $tooltipon == 3) {
            $paramfortooltiptd = ' class="' . ($tooltipon == 3 ? 'cursorpointer ' : '') . $classfortooltip . ' inline-block' . ($extracss ? ' ' . $extracss : '') . '" style="padding: 0px;' . ($extrastyle ? ' ' . $extrastyle : '') . '" ';
            if ($tooltiptrigger == '') {
                $paramfortooltiptd .= ' title="' . ($noencodehtmltext ? $htmltext : dol_escape_htmltag($htmltext, 1)) . '"'; // Attribute to put on td tag to store tooltip
            } else {
                $paramfortooltiptd .= ' dolid="' . $tooltiptrigger . '"';
            }
        } else {
            $paramfortooltiptd = ($extracss ? ' class="' . $extracss . '"' : '') . ($extrastyle ? ' style="' . $extrastyle . '"' : ''); // Attribute to put on td text tag
        }
        if (empty($notabs)) {
            $s .= '<table class="nobordernopadding"><tr style="height: auto;">';
        } elseif ($notabs == 2) {
            $s .= '<div class="inline-block' . ($forcenowrap ? ' nowrap' : '') . '">';
        }
        // Define value if value is before
        if ($direction < 0) {
            $s .= '<' . $tag . $paramfortooltipimg;
            if ($tag == 'td') {
                $s .= ' class="valigntop" width="14"';
            }
            $s .= '>' . $textfordialog . $img . '</' . $tag . '>';
        }
        // Use another method to help avoid having a space in value in order to use this value with jquery
        // Define label
        if ((string)$text != '') {
            $s .= '<' . $tag . $paramfortooltiptd . '>' . $text . '</' . $tag . '>';
        }
        // Define value if value is after
        if ($direction > 0) {
            $s .= '<' . $tag . $paramfortooltipimg;
            if ($tag == 'td') {
                $s .= ' class="valignmiddle" width="14"';
            }
            $s .= '>' . $textfordialog . $img . '</' . $tag . '>';
        }
        if (empty($notabs)) {
            $s .= '</tr></table>';
        } elseif ($notabs == 2) {
            $s .= '</div>';
        }

        return $s;
    }

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

    /**
     * Output value of a field for an editable field
     *
     * @param string $text Text of label (not used in this function)
     * @param string $htmlname Name of select field
     * @param string $value Value to show/edit
     * @param CommonObject $object Object (that we want to show)
     * @param boolean $perm Permission to allow button to edit parameter
     * @param string $typeofdata Type of data ('string' by default, 'checkbox', 'email', 'phone', 'amount:99', 'numeric:99',
     *                                  'text' or 'textarea:rows:cols%', 'safehtmlstring', 'restricthtml',
     *                                  'datepicker' ('day' do not work, don't know why), 'dayhour' or 'datehourpicker', 'ckeditor:dolibarr_zzz:width:height:savemethod:toolbarstartexpanded:rows:cols', 'select;xkey:xval,ykey:yval,...')
     * @param string $editvalue When in edit mode, use this value as $value instead of value (for example, you can provide here a formatted price instead of numeric value, or a select combo). Use '' to use same than $value
     * @param ?CommonObject $extObject External object ???
     * @param mixed $custommsg String or Array of custom messages : eg array('success' => 'MyMessage', 'error' => 'MyMessage')
     * @param string $moreparam More param to add on the form on action href URL parameter
     * @param int $notabletag Do no output table tags
     * @param string $formatfunc Call a specific method of $object->$formatfunc to output field in view mode (For example: 'dol_print_email')
     * @param string $paramid Key of parameter for id ('id', 'socid')
     * @param string $gm 'auto' or 'tzuser' or 'tzuserrel' or 'tzserver' (when $typeofdata is a date)
     * @param array<string,int> $moreoptions Array with more options. For example array('addnowlink'=>1), array('valuealreadyhtmlescaped'=>1)
     * @param string $editaction [=''] use GETPOST default action or set action to edit mode
     * @return string                   HTML edit field
     */
    public function editfieldval($text, $htmlname, $value, $object, $perm, $typeofdata = 'string', $editvalue = '', $extObject = null, $custommsg = null, $moreparam = '', $notabletag = 1, $formatfunc = '', $paramid = 'id', $gm = 'auto', $moreoptions = array(), $editaction = '')
    {
        global $conf, $langs;

        $ret = '';

        // Check parameters
        if (empty($typeofdata)) {
            return 'ErrorBadParameter typeofdata is empty';
        }
        // Clean parameter $typeofdata
        if ($typeofdata == 'datetime') {
            $typeofdata = 'dayhour';
        }
        $reg = array();
        if (preg_match('/^(\w+)\((\d+)\)$/', $typeofdata, $reg)) {
            if ($reg[1] == 'varchar') {
                $typeofdata = 'string';
            } elseif ($reg[1] == 'int') {
                $typeofdata = 'numeric';
            } else {
                return 'ErrorBadParameter ' . $typeofdata;
            }
        }

        // When option to edit inline is activated
        if (getDolGlobalString('MAIN_USE_JQUERY_JEDITABLE') && !preg_match('/^select;|day|datepicker|dayhour|datehourpicker/', $typeofdata)) { // TODO add jquery timepicker and support select
            $ret .= $this->editInPlace($object, $value, $htmlname, $perm, $typeofdata, $editvalue, $extObject, $custommsg);
        } else {
            if ($editaction == '') {
                $editaction = GETPOST('action', 'aZ09');
            }
            $editmode = ($editaction == 'edit' . $htmlname);
            if ($editmode) {    // edit mode
                $ret .= "\n";
                $ret .= '<form method="post" action="' . $_SERVER["PHP_SELF"] . ($moreparam ? '?' . $moreparam : '') . '">';
                $ret .= '<input type="hidden" name="action" value="set' . $htmlname . '">';
                $ret .= '<input type="hidden" name="token" value="' . newToken() . '">';
                $ret .= '<input type="hidden" name="' . $paramid . '" value="' . $object->id . '">';
                if (empty($notabletag)) {
                    $ret .= '<table class="nobordernopadding centpercent">';
                }
                if (empty($notabletag)) {
                    $ret .= '<tr><td>';
                }
                if (preg_match('/^(string|safehtmlstring|email|phone|url)/', $typeofdata)) {
                    $tmp = explode(':', $typeofdata);
                    $ret .= '<input type="text" id="' . $htmlname . '" name="' . $htmlname . '" value="' . ($editvalue ? $editvalue : $value) . '"' . (empty($tmp[1]) ? '' : ' size="' . $tmp[1] . '"') . ' autofocus>';
                } elseif (preg_match('/^(integer)/', $typeofdata)) {
                    $tmp = explode(':', $typeofdata);
                    $valuetoshow = price2num($editvalue ? $editvalue : $value, 0);
                    $ret .= '<input type="text" id="' . $htmlname . '" name="' . $htmlname . '" value="' . $valuetoshow . '"' . (empty($tmp[1]) ? '' : ' size="' . $tmp[1] . '"') . ' autofocus>';
                } elseif (preg_match('/^(numeric|amount)/', $typeofdata)) {
                    $tmp = explode(':', $typeofdata);
                    $valuetoshow = price2num($editvalue ? $editvalue : $value);
                    $ret .= '<input type="text" id="' . $htmlname . '" name="' . $htmlname . '" value="' . ($valuetoshow != '' ? price($valuetoshow) : '') . '"' . (empty($tmp[1]) ? '' : ' size="' . $tmp[1] . '"') . ' autofocus>';
                } elseif (preg_match('/^(checkbox)/', $typeofdata)) {
                    $tmp = explode(':', $typeofdata);
                    $ret .= '<input type="checkbox" id="' . $htmlname . '" name="' . $htmlname . '" value="' . ($value ? $value : 'on') . '"' . ($value ? ' checked' : '') . (empty($tmp[1]) ? '' : $tmp[1]) . '/>';
                } elseif (preg_match('/^text/', $typeofdata) || preg_match('/^note/', $typeofdata)) {    // if wysiwyg is enabled $typeofdata = 'ckeditor'
                    $tmp = explode(':', $typeofdata);
                    $cols = (empty($tmp[2]) ? '' : $tmp[2]);
                    $morealt = '';
                    if (preg_match('/%/', $cols)) {
                        $morealt = ' style="width: ' . $cols . '"';
                        $cols = '';
                    }
                    $valuetoshow = ($editvalue ? $editvalue : $value);
                    $ret .= '<textarea id="' . $htmlname . '" name="' . $htmlname . '" wrap="soft" rows="' . (empty($tmp[1]) ? '20' : $tmp[1]) . '"' . ($cols ? ' cols="' . $cols . '"' : 'class="quatrevingtpercent"') . $morealt . '" autofocus>';
                    // textarea convert automatically entities chars into simple chars.
                    // So we convert & into &amp; so a string like 'a &lt; <b>b</b><br>é<br>&lt;script&gt;alert('X');&lt;script&gt;' stay a correct html and is not converted by textarea component when wysiwyg is off.
                    $valuetoshow = str_replace('&', '&amp;', $valuetoshow);
                    $ret .= dol_htmlwithnojs(dol_string_neverthesehtmltags($valuetoshow, array('textarea')));
                    $ret .= '</textarea>';
                } elseif ($typeofdata == 'day' || $typeofdata == 'datepicker') {
                    $addnowlink = empty($moreoptions['addnowlink']) ? 0 : $moreoptions['addnowlink'];
                    $adddateof = empty($moreoptions['adddateof']) ? '' : $moreoptions['adddateof'];
                    $labeladddateof = empty($moreoptions['labeladddateof']) ? '' : $moreoptions['labeladddateof'];
                    $ret .= $this->selectDate($value, $htmlname, 0, 0, 1, 'form' . $htmlname, 1, $addnowlink, 0, '', '', $adddateof, '', 1, $labeladddateof, '', $gm);
                } elseif ($typeofdata == 'dayhour' || $typeofdata == 'datehourpicker') {
                    $addnowlink = empty($moreoptions['addnowlink']) ? 0 : $moreoptions['addnowlink'];
                    $adddateof = empty($moreoptions['adddateof']) ? '' : $moreoptions['adddateof'];
                    $labeladddateof = empty($moreoptions['labeladddateof']) ? '' : $moreoptions['labeladddateof'];
                    $ret .= $this->selectDate($value, $htmlname, 1, 1, 1, 'form' . $htmlname, 1, $addnowlink, 0, '', '', $adddateof, '', 1, $labeladddateof, '', $gm);
                } elseif (preg_match('/^select;/', $typeofdata)) {
                    $arraydata = explode(',', preg_replace('/^select;/', '', $typeofdata));
                    $arraylist = array();
                    foreach ($arraydata as $val) {
                        $tmp = explode(':', $val);
                        $tmpkey = str_replace('|', ':', $tmp[0]);
                        $arraylist[$tmpkey] = $tmp[1];
                    }
                    $ret .= $this->selectarray($htmlname, $arraylist, $value);
                } elseif (preg_match('/^link/', $typeofdata)) {
                    // TODO Not yet implemented. See code for extrafields
                } elseif (preg_match('/^ckeditor/', $typeofdata)) {
                    $tmp = explode(':', $typeofdata); // Example: ckeditor:dolibarr_zzz:width:height:savemethod:toolbarstartexpanded:rows:cols:uselocalbrowser
                    $doleditor = new DolEditor($htmlname, ($editvalue ? $editvalue : $value), (empty($tmp[2]) ? '' : $tmp[2]), (empty($tmp[3]) ? '100' : $tmp[3]), (empty($tmp[1]) ? 'dolibarr_notes' : $tmp[1]), 'In', (empty($tmp[5]) ? 0 : $tmp[5]), (isset($tmp[8]) ? ($tmp[8] ? true : false) : true), true, (empty($tmp[6]) ? '20' : $tmp[6]), (empty($tmp[7]) ? '100' : $tmp[7]));
                    $ret .= $doleditor->Create(1);
                } elseif ($typeofdata == 'asis') {
                    $ret .= ($editvalue ? $editvalue : $value);
                }
                if (empty($notabletag)) {
                    $ret .= '</td>';
                }

                // Button save-cancel
                if (empty($notabletag)) {
                    $ret .= '<td>';
                }
                //else $ret.='<div class="clearboth"></div>';
                $ret .= '<input type="submit" class="smallpaddingimp button' . (empty($notabletag) ? '' : ' ') . '" name="modify" value="' . $langs->trans("Modify") . '">';
                if (preg_match('/ckeditor|textarea/', $typeofdata) && empty($notabletag)) {
                    $ret .= '<br>' . "\n";
                }
                $ret .= '<input type="submit" class="smallpaddingimp button button-cancel' . (empty($notabletag) ? '' : ' ') . '" name="cancel" value="' . $langs->trans("Cancel") . '">';
                if (empty($notabletag)) {
                    $ret .= '</td>';
                }

                if (empty($notabletag)) {
                    $ret .= '</tr></table>' . "\n";
                }
                $ret .= '</form>' . "\n";
            } else {        // view mode
                if (preg_match('/^email/', $typeofdata)) {
                    $ret .= dol_print_email($value, 0, 0, 0, 0, 1);
                } elseif (preg_match('/^phone/', $typeofdata)) {
                    $ret .= dol_print_phone($value, '_blank', 32, 1);
                } elseif (preg_match('/^url/', $typeofdata)) {
                    $ret .= dol_print_url($value, '_blank', 32, 1);
                } elseif (preg_match('/^(amount|numeric)/', $typeofdata)) {
                    $ret .= ($value != '' ? price($value, 0, $langs, 0, -1, -1, $conf->currency) : '');
                } elseif (preg_match('/^checkbox/', $typeofdata)) {
                    $tmp = explode(':', $typeofdata);
                    $ret .= '<input type="checkbox" disabled id="' . $htmlname . '" name="' . $htmlname . '" value="' . $value . '"' . ($value ? ' checked' : '') . ($tmp[1] ? $tmp[1] : '') . '/>';
                } elseif (preg_match('/^text/', $typeofdata) || preg_match('/^note/', $typeofdata)) {
                    $ret .= dol_htmlwithnojs(dol_string_onlythesehtmltags(dol_htmlentitiesbr($value), 1, 1, 1));
                } elseif (preg_match('/^(safehtmlstring|restricthtml)/', $typeofdata)) {    // 'restricthtml' is not an allowed type for editfieldval. Value is 'safehtmlstring'
                    $ret .= dol_htmlwithnojs(dol_string_onlythesehtmltags($value));
                } elseif ($typeofdata == 'day' || $typeofdata == 'datepicker') {
                    $ret .= '<span class="valuedate">' . dol_print_date($value, 'day', $gm) . '</span>';
                } elseif ($typeofdata == 'dayhour' || $typeofdata == 'datehourpicker') {
                    $ret .= '<span class="valuedate">' . dol_print_date($value, 'dayhour', $gm) . '</span>';
                } elseif (preg_match('/^select;/', $typeofdata)) {
                    $arraydata = explode(',', preg_replace('/^select;/', '', $typeofdata));
                    $arraylist = array();
                    foreach ($arraydata as $val) {
                        $tmp = explode(':', $val);
                        $arraylist[$tmp[0]] = $tmp[1];
                    }
                    $ret .= $arraylist[$value];
                    if ($htmlname == 'fk_product_type') {
                        if ($value == 0) {
                            $ret = img_picto($langs->trans("Product"), 'product', 'class="paddingleftonly paddingrightonly colorgrey"') . $ret;
                        } else {
                            $ret = img_picto($langs->trans("Service"), 'service', 'class="paddingleftonly paddingrightonly colorgrey"') . $ret;
                        }
                    }
                } elseif (preg_match('/^ckeditor/', $typeofdata)) {
                    $tmpcontent = dol_htmlentitiesbr($value);
                    if (getDolGlobalString('MAIN_DISABLE_NOTES_TAB')) {
                        $firstline = preg_replace('/<br>.*/', '', $tmpcontent);
                        $firstline = preg_replace('/[\n\r].*/', '', $firstline);
                        $tmpcontent = $firstline . ((strlen($firstline) != strlen($tmpcontent)) ? '...' : '');
                    }
                    // We don't use dol_escape_htmltag to get the html formatting active, but this need we must also
                    // clean data from some dangerous html
                    $ret .= dol_string_onlythesehtmltags(dol_htmlentitiesbr($tmpcontent));
                } else {
                    if (empty($moreoptions['valuealreadyhtmlescaped'])) {
                        $ret .= dol_escape_htmltag($value);
                    } else {
                        $ret .= $value;        // $value must be already html escaped.
                    }
                }

                // Custom format if parameter $formatfunc has been provided
                if ($formatfunc && method_exists($object, $formatfunc)) {
                    $ret = $object->$formatfunc($ret);
                }
            }
        }
        return $ret;
    }

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

    /**
     * Output edit in place form
     *
     * @param CommonObject $object Object
     * @param string $value Value to show/edit
     * @param string $htmlname DIV ID (field name)
     * @param int $condition Condition to edit
     * @param string $inputType Type of input ('string', 'numeric', 'datepicker' ('day' do not work, don't know why), 'textarea:rows:cols', 'ckeditor:dolibarr_zzz:width:height:?:1:rows:cols', 'select:loadmethod:savemethod:buttononly')
     * @param string $editvalue When in edit mode, use this value as $value instead of value
     * @param   ?CommonObject $extObject External object
     * @param mixed $custommsg String or Array of custom messages : eg array('success' => 'MyMessage', 'error' => 'MyMessage')
     * @return  string              HTML edit in place
     */
    protected function editInPlace($object, $value, $htmlname, $condition, $inputType = 'textarea', $editvalue = null, $extObject = null, $custommsg = null)
    {
        $out = '';

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

        if ($condition) {
            $element = false;
            $table_element = false;
            $fk_element = false;
            $loadmethod = false;
            $savemethod = false;
            $ext_element = false;
            $button_only = false;
            $inputOption = '';
            $rows = '';
            $cols = '';

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

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

            if (preg_match('/^(string|email|numeric)/', $inputType)) {
                $tmp = explode(':', $inputType);
                $inputType = $tmp[0];
                if (!empty($tmp[1])) {
                    $inputOption = $tmp[1];
                }
                if (!empty($tmp[2])) {
                    $savemethod = $tmp[2];
                }
                $out .= '<input id="width_' . $htmlname . '" value="' . $inputOption . '" type="hidden"/>' . "\n";
            } elseif ((preg_match('/^day$/', $inputType)) || (preg_match('/^datepicker/', $inputType)) || (preg_match('/^datehourpicker/', $inputType))) {
                $tmp = explode(':', $inputType);
                $inputType = $tmp[0];
                if (!empty($tmp[1])) {
                    $inputOption = $tmp[1];
                }
                if (!empty($tmp[2])) {
                    $savemethod = $tmp[2];
                }

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

                if (isModEnabled('fckeditor')) {
                    $out .= '<input id="ckeditor_toolbar" value="' . $toolbar . '" type="hidden"/>' . "\n";
                } else {
                    $inputType = 'textarea';
                }
            }

            $out .= '<input id="element_' . $htmlname . '" value="' . $element . '" type="hidden"/>' . "\n";
            $out .= '<input id="table_element_' . $htmlname . '" value="' . $table_element . '" type="hidden"/>' . "\n";
            $out .= '<input id="fk_element_' . $htmlname . '" value="' . $fk_element . '" type="hidden"/>' . "\n";
            $out .= '<input id="loadmethod_' . $htmlname . '" value="' . $loadmethod . '" type="hidden"/>' . "\n";
            if (!empty($savemethod)) {
                $out .= '<input id="savemethod_' . $htmlname . '" value="' . $savemethod . '" type="hidden"/>' . "\n";
            }
            if (!empty($ext_element)) {
                $out .= '<input id="ext_element_' . $htmlname . '" value="' . $ext_element . '" type="hidden"/>' . "\n";
            }
            if (!empty($custommsg)) {
                if (is_array($custommsg)) {
                    if (!empty($custommsg['success'])) {
                        $out .= '<input id="successmsg_' . $htmlname . '" value="' . $custommsg['success'] . '" type="hidden"/>' . "\n";
                    }
                    if (!empty($custommsg['error'])) {
                        $out .= '<input id="errormsg_' . $htmlname . '" value="' . $custommsg['error'] . '" type="hidden"/>' . "\n";
                    }
                } else {
                    $out .= '<input id="successmsg_' . $htmlname . '" value="' . $custommsg . '" type="hidden"/>' . "\n";
                }
            }
            if ($inputType == 'textarea') {
                $out .= '<input id="textarea_' . $htmlname . '_rows" value="' . $rows . '" type="hidden"/>' . "\n";
                $out .= '<input id="textarea_' . $htmlname . '_cols" value="' . $cols . '" type="hidden"/>' . "\n";
            }
            $out .= '<span id="viewval_' . $htmlname . '" class="viewval_' . $inputType . ($button_only ? ' inactive' : ' active') . '">' . $value . '</span>' . "\n";
            $out .= '<span id="editval_' . $htmlname . '" class="editval_' . $inputType . ($button_only ? ' inactive' : ' active') . ' hideobject">' . (!empty($editvalue) ? $editvalue : $value) . '</span>' . "\n";
        } else {
            $out = $value;
        }

        return $out;
    }

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

    /**
     *  Show a HTML widget to input a date or combo list for day, month, years and optionally hours and minutes.
     *  Fields are preselected with :
     *              - set_time date (must be a local PHP server timestamp or string date with format 'YYYY-MM-DD' or 'YYYY-MM-DD HH:MM')
     *              - local date in user area, if set_time is '' (so if set_time is '', output may differs when done from two different location)
     *              - Empty (fields empty), if set_time is -1 (in this case, parameter empty must also have value 1)
     *
     * @param integer|string $set_time Pre-selected date (must be a local PHP server timestamp), -1 to keep date not preselected, '' to use current date with 00:00 hour (Parameter 'empty' must be 0 or 2).
     * @param string $prefix Prefix for fields name
     * @param int $h 1 or 2=Show also hours (2=hours on a new line), -1 has same effect but hour and minutes are prefilled with 23:59 if date is empty, 3 or 4 (4=hours on a new line)=Show hour always empty
     * @param int $m 1=Show also minutes, -1 has same effect but hour and minutes are prefilled with 23:59 if date is empty, 3 show minutes always empty
     * @param int $empty 0=Fields required, 1=Empty inputs are allowed, 2=Empty inputs are allowed for hours only
     * @param string $form_name Not used
     * @param int<0,1> $d 1=Show days, month, years
     * @param int<0,2> $addnowlink Add a link "Now", 1 with server time, 2 with local computer time
     * @param int<0,1> $disabled Disable input fields
     * @param int|string $fullday When a checkbox with id #fullday is checked, hours are set with 00:00 (if value if 'fulldaystart') or 23:59 (if value is 'fulldayend')
     * @param string $addplusone Add a link "+1 hour". Value must be name of another selectDate field.
     * @param int|string|array $adddateof Add a link "Date of ..." using the following date. Must be array(array('adddateof'=>..., 'labeladddateof'=>...))
     * @param string $openinghours Specify hour start and hour end for the select ex 8,20
     * @param int $stepminutes Specify step for minutes between 1 and 30
     * @param string $labeladddateof Label to use for the $adddateof parameter. Deprecated. Used only when $adddateof is not an array.
     * @param string $placeholder Placeholder
     * @param mixed $gm 'auto' (for backward compatibility, avoid this), 'gmt' or 'tzserver' or 'tzuserrel'
     * @return string                               Html for selectDate
     * @see    form_date(), select_month(), select_year(), select_dayofweek()
     */
    public function selectDate($set_time = '', $prefix = 're', $h = 0, $m = 0, $empty = 0, $form_name = "", $d = 1, $addnowlink = 0, $disabled = 0, $fullday = '', $addplusone = '', $adddateof = '', $openinghours = '', $stepminutes = 1, $labeladddateof = '', $placeholder = '', $gm = 'auto')
    {
        global $conf, $langs;

        if ($gm === 'auto') {
            $gm = (empty($conf) ? 'tzserver' : $conf->tzuserinputkey);
        }

        $retstring = '';

        if ($prefix == '') {
            $prefix = 're';
        }
        if ($h == '') {
            $h = 0;
        }
        if ($m == '') {
            $m = 0;
        }
        $emptydate = 0;
        $emptyhours = 0;
        if ($stepminutes <= 0 || $stepminutes > 30) {
            $stepminutes = 1;
        }
        if ($empty == 1) {
            $emptydate = 1;
            $emptyhours = 1;
        }
        if ($empty == 2) {
            $emptydate = 0;
            $emptyhours = 1;
        }
        $orig_set_time = $set_time;

        if ($set_time === '' && $emptydate == 0) {
            include_once DOL_DOCUMENT_ROOT . '/core/lib/date.lib.php';
            if ($gm == 'tzuser' || $gm == 'tzuserrel') {
                $set_time = dol_now($gm);
            } else {
                $set_time = dol_now('tzuser') - (getServerTimeZoneInt('now') * 3600); // set_time must be relative to PHP server timezone
            }
        }

        // Analysis of the pre-selection date
        $reg = array();
        $shour = '';
        $smin = '';
        $ssec = '';
        if (preg_match('/^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?/', $set_time, $reg)) {    // deprecated usage
            // Date format 'YYYY-MM-DD' or 'YYYY-MM-DD HH:MM:SS'
            $syear = (!empty($reg[1]) ? $reg[1] : '');
            $smonth = (!empty($reg[2]) ? $reg[2] : '');
            $sday = (!empty($reg[3]) ? $reg[3] : '');
            $shour = (!empty($reg[4]) ? $reg[4] : '');
            $smin = (!empty($reg[5]) ? $reg[5] : '');
        } elseif (strval($set_time) != '' && $set_time != -1) {
            // set_time est un timestamps (0 possible)
            $syear = dol_print_date($set_time, "%Y", $gm);
            $smonth = dol_print_date($set_time, "%m", $gm);
            $sday = dol_print_date($set_time, "%d", $gm);
            if ($orig_set_time != '') {
                $shour = dol_print_date($set_time, "%H", $gm);
                $smin = dol_print_date($set_time, "%M", $gm);
                $ssec = dol_print_date($set_time, "%S", $gm);
            }
        } else {
            // Date est '' ou vaut -1
            $syear = '';
            $smonth = '';
            $sday = '';
            $shour = getDolGlobalString('MAIN_DEFAULT_DATE_HOUR', ($h == -1 ? '23' : ''));
            $smin = getDolGlobalString('MAIN_DEFAULT_DATE_MIN', ($h == -1 ? '59' : ''));
            $ssec = getDolGlobalString('MAIN_DEFAULT_DATE_SEC', ($h == -1 ? '59' : ''));
        }
        if ($h == 3 || $h == 4) {
            $shour = '';
        }
        if ($m == 3) {
            $smin = '';
        }

        $nowgmt = dol_now('gmt');
        //var_dump(dol_print_date($nowgmt, 'dayhourinputnoreduce', 'tzuserrel'));

        // You can set MAIN_POPUP_CALENDAR to 'eldy' or 'jquery'
        $usecalendar = 'combo';
        if (!empty($conf->use_javascript_ajax) && (!getDolGlobalString('MAIN_POPUP_CALENDAR') || getDolGlobalString('MAIN_POPUP_CALENDAR') != "none")) {
            $usecalendar = ((!getDolGlobalString('MAIN_POPUP_CALENDAR') || getDolGlobalString('MAIN_POPUP_CALENDAR') == 'eldy') ? 'jquery' : $conf->global->MAIN_POPUP_CALENDAR);
        }
        if (getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
            // If we use a text browser or screen reader, we use the 'combo' date selector
            $usecalendar = 'html';
        }

        if ($d) {
            // Show date with popup
            if ($usecalendar != 'combo') {
                $formated_date = '';
                //print "e".$set_time." t ".$conf->format_date_short;
                if (strval($set_time) != '' && $set_time != -1) {
                    //$formated_date=dol_print_date($set_time,$conf->format_date_short);
                    $formated_date = dol_print_date($set_time, $langs->trans("FormatDateShortInput"), $gm); // FormatDateShortInput for dol_print_date / FormatDateShortJavaInput that is same for javascript
                }

                // Calendrier popup version eldy
                if ($usecalendar == "eldy") {
                    // Input area to enter date manually
                    $retstring .= '<input id="' . $prefix . '" name="' . $prefix . '" type="text" class="maxwidthdate center" maxlength="11" value="' . $formated_date . '"';
                    $retstring .= ($disabled ? ' disabled' : '');
                    $retstring .= ' onChange="dpChangeDay(\'' . $prefix . '\',\'' . $langs->trans("FormatDateShortJavaInput") . '\'); "'; // FormatDateShortInput for dol_print_date / FormatDateShortJavaInput that is same for javascript
                    $retstring .= ' autocomplete="off">';

                    // Icon calendar
                    $retstringbuttom = '';
                    if (!$disabled) {
                        $retstringbuttom = '<button id="' . $prefix . 'Button" type="button" class="dpInvisibleButtons"';
                        $base = constant('BASE_URL') . '/core/';
                        $retstringbuttom .= ' onClick="showDP(\'' . $base . '\',\'' . $prefix . '\',\'' . $langs->trans("FormatDateShortJavaInput") . '\',\'' . $langs->defaultlang . '\');"';
                        $retstringbuttom .= '>' . img_object($langs->trans("SelectDate"), 'calendarday', 'class="datecallink"') . '</button>';
                    } else {
                        $retstringbuttom = '<button id="' . $prefix . 'Button" type="button" class="dpInvisibleButtons">' . img_object($langs->trans("Disabled"), 'calendarday', 'class="datecallink"') . '</button>';
                    }
                    $retstring = $retstringbuttom . $retstring;

                    $retstring .= '<input type="hidden" id="' . $prefix . 'day"   name="' . $prefix . 'day"   value="' . $sday . '">' . "\n";
                    $retstring .= '<input type="hidden" id="' . $prefix . 'month" name="' . $prefix . 'month" value="' . $smonth . '">' . "\n";
                    $retstring .= '<input type="hidden" id="' . $prefix . 'year"  name="' . $prefix . 'year"  value="' . $syear . '">' . "\n";
                } elseif ($usecalendar == 'jquery' || $usecalendar == 'html') {
                    if (!$disabled && $usecalendar != 'html') {
                        // Output javascript for datepicker
                        $minYear = getDolGlobalInt('MIN_YEAR_SELECT_DATE', (idate('Y') - 100));
                        $maxYear = getDolGlobalInt('MAX_YEAR_SELECT_DATE', (idate('Y') + 100));

                        $retstring .= '<script nonce="' . getNonce() . '" type="text/javascript">';
                        $retstring .= "$(function(){ $('#" . $prefix . "').datepicker({
							dateFormat: '" . $langs->trans("FormatDateShortJQueryInput") . "',
							autoclose: true,
							todayHighlight: true,
							yearRange: '" . $minYear . ":" . $maxYear . "',";
                        if (!empty($conf->dol_use_jmobile)) {
                            $retstring .= "
								beforeShow: function (input, datePicker) {
									input.disabled = true;
								},
								onClose: function (dateText, datePicker) {
									this.disabled = false;
								},
								";
                        }
                        // Note: We don't need monthNames, monthNamesShort, dayNames, dayNamesShort, dayNamesMin, they are set globally on datepicker component in lib_head.js.php
                        if (!getDolGlobalString('MAIN_POPUP_CALENDAR_ON_FOCUS')) {
                            $retstring .= "
								showOn: 'button',	/* both has problem with autocompletion */
								buttonImage: '" . constant('DOL_URL_ROOT') . "/theme/" . dol_escape_js($conf->theme) . "/img/object_calendarday.png',
								buttonImageOnly: true";
                        }
                        $retstring .= "
							}) });";
                        $retstring .= "</script>";
                    }

                    // Input area to enter date manually
                    $retstring .= '<div class="nowraponall inline-block divfordateinput">';
                    $retstring .= '<input id="' . $prefix . '" name="' . $prefix . '" type="text" class="maxwidthdate center" maxlength="11" value="' . $formated_date . '"';
                    $retstring .= ($disabled ? ' disabled' : '');
                    $retstring .= ($placeholder ? ' placeholder="' . dol_escape_htmltag($placeholder) . '"' : '');
                    $retstring .= ' onChange="dpChangeDay(\'' . dol_escape_js($prefix) . '\',\'' . dol_escape_js($langs->trans("FormatDateShortJavaInput")) . '\'); "'; // FormatDateShortInput for dol_print_date / FormatDateShortJavaInput that is same for javascript
                    $retstring .= ' autocomplete="off">';

                    // Icone calendrier
                    if ($disabled) {
                        $retstringbutton = '<button id="' . $prefix . 'Button" type="button" class="dpInvisibleButtons">' . img_object($langs->trans("Disabled"), 'calendarday', 'class="datecallink"') . '</button>';
                        $retstring = $retstringbutton . $retstring;
                    }

                    $retstring .= '</div>';
                    $retstring .= '<input type="hidden" id="' . $prefix . 'day"   name="' . $prefix . 'day"   value="' . $sday . '">' . "\n";
                    $retstring .= '<input type="hidden" id="' . $prefix . 'month" name="' . $prefix . 'month" value="' . $smonth . '">' . "\n";
                    $retstring .= '<input type="hidden" id="' . $prefix . 'year"  name="' . $prefix . 'year"  value="' . $syear . '">' . "\n";
                } else {
                    $retstring .= "Bad value of MAIN_POPUP_CALENDAR";
                }
            } else {
                // Show date with combo selects
                // Day
                $retstring .= '<select' . ($disabled ? ' disabled' : '') . ' class="flat valignmiddle maxwidth50imp" id="' . $prefix . 'day" name="' . $prefix . 'day">';

                if ($emptydate || $set_time == -1) {
                    $retstring .= '<option value="0" selected>&nbsp;</option>';
                }

                for ($day = 1; $day <= 31; $day++) {
                    $retstring .= '<option value="' . $day . '"' . ($day == $sday ? ' selected' : '') . '>' . $day . '</option>';
                }

                $retstring .= "</select>";

                $retstring .= '<select' . ($disabled ? ' disabled' : '') . ' class="flat valignmiddle maxwidth75imp" id="' . $prefix . 'month" name="' . $prefix . 'month">';
                if ($emptydate || $set_time == -1) {
                    $retstring .= '<option value="0" selected>&nbsp;</option>';
                }

                // Month
                for ($month = 1; $month <= 12; $month++) {
                    $retstring .= '<option value="' . $month . '"' . ($month == $smonth ? ' selected' : '') . '>';
                    $retstring .= dol_print_date(mktime(12, 0, 0, $month, 1, 2000), "%b");
                    $retstring .= "</option>";
                }
                $retstring .= "</select>";

                // Year
                if ($emptydate || $set_time == -1) {
                    $retstring .= '<input' . ($disabled ? ' disabled' : '') . ' placeholder="' . dol_escape_htmltag($langs->trans("Year")) . '" class="flat maxwidth50imp valignmiddle" type="number" min="0" max="3000" maxlength="4" id="' . $prefix . 'year" name="' . $prefix . 'year" value="' . $syear . '">';
                } else {
                    $retstring .= '<select' . ($disabled ? ' disabled' : '') . ' class="flat valignmiddle maxwidth75imp" id="' . $prefix . 'year" name="' . $prefix . 'year">';

                    $syear = (int)$syear;
                    for ($year = $syear - 10; $year < (int)$syear + 10; $year++) {
                        $retstring .= '<option value="' . $year . '"' . ($year == $syear ? ' selected' : '') . '>' . $year . '</option>';
                    }
                    $retstring .= "</select>\n";
                }
            }
        }

        if ($d && $h) {
            $retstring .= (($h == 2 || $h == 4) ? '<br>' : ' ');
            $retstring .= '<span class="nowraponall">';
        }

        if ($h) {
            $hourstart = 0;
            $hourend = 24;
            if ($openinghours != '') {
                $openinghours = explode(',', $openinghours);
                $hourstart = $openinghours[0];
                $hourend = $openinghours[1];
                if ($hourend < $hourstart) {
                    $hourend = $hourstart;
                }
            }
            // Show hour
            $retstring .= '<select' . ($disabled ? ' disabled' : '') . ' class="flat valignmiddle maxwidth50 ' . ($fullday ? $fullday . 'hour' : '') . '" id="' . $prefix . 'hour" name="' . $prefix . 'hour">';
            if ($emptyhours) {
                $retstring .= '<option value="-1">&nbsp;</option>';
            }
            for ($hour = $hourstart; $hour < $hourend; $hour++) {
                if (strlen($hour) < 2) {
                    $hour = "0" . $hour;
                }
                $retstring .= '<option value="' . $hour . '"' . (($hour == $shour) ? ' selected' : '') . '>' . $hour;
                //$retstring .= (empty($conf->dol_optimize_smallscreen) ? '' : 'H');
                $retstring .= '</option>';
            }
            $retstring .= '</select>';
            //if ($m && empty($conf->dol_optimize_smallscreen)) $retstring .= ":";
            if ($m) {
                $retstring .= ":";
            }
        }

        if ($m) {
            // Show minutes
            $retstring .= '<select' . ($disabled ? ' disabled' : '') . ' class="flat valignmiddle maxwidth50 ' . ($fullday ? $fullday . 'min' : '') . '" id="' . $prefix . 'min" name="' . $prefix . 'min">';
            if ($emptyhours) {
                $retstring .= '<option value="-1">&nbsp;</option>';
            }
            for ($min = 0; $min < 60; $min += $stepminutes) {
                $min_str = sprintf("%02d", $min);
                $retstring .= '<option value="' . $min_str . '"' . (($min_str == $smin) ? ' selected' : '') . '>' . $min_str . '</option>';
            }
            $retstring .= '</select>';

            $retstring .= '<input type="hidden" name="' . $prefix . 'sec" value="' . $ssec . '">';
        }

        if ($d && $h) {
            $retstring .= '</span>';
        }

        // Add a "Now" link
        if (!empty($conf->use_javascript_ajax) && $addnowlink) {
            // Script which will be inserted in the onClick of the "Now" link
            $reset_scripts = "";
            if ($addnowlink == 2) { // local computer time
                // pad add leading 0 on numbers
                $reset_scripts .= "Number.prototype.pad = function(size) {
                        var s = String(this);
                        while (s.length < (size || 2)) {s = '0' + s;}
                        return s;
                    };
                    var d = new Date();";
            }

            // Generate the date part, depending on the use or not of the javascript calendar
            if ($addnowlink == 1) { // server time expressed in user time setup
                $reset_scripts .= 'jQuery(\'#' . $prefix . '\').val(\'' . dol_print_date($nowgmt, 'day', 'tzuserrel') . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'day\').val(\'' . dol_print_date($nowgmt, '%d', 'tzuserrel') . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'month\').val(\'' . dol_print_date($nowgmt, '%m', 'tzuserrel') . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'year\').val(\'' . dol_print_date($nowgmt, '%Y', 'tzuserrel') . '\');';
            } elseif ($addnowlink == 2) {
                /* Disabled because the output does not use the string format defined by FormatDateShort key to forge the value into #prefix.
                 * This break application for foreign languages.
                $reset_scripts .= 'jQuery(\'#'.$prefix.'\').val(d.toLocaleDateString(\''.str_replace('_', '-', $langs->defaultlang).'\'));';
                $reset_scripts .= 'jQuery(\'#'.$prefix.'day\').val(d.getDate().pad());';
                $reset_scripts .= 'jQuery(\'#'.$prefix.'month\').val(parseInt(d.getMonth().pad()) + 1);';
                $reset_scripts .= 'jQuery(\'#'.$prefix.'year\').val(d.getFullYear());';
                */
                $reset_scripts .= 'jQuery(\'#' . $prefix . '\').val(\'' . dol_print_date($nowgmt, 'day', 'tzuserrel') . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'day\').val(\'' . dol_print_date($nowgmt, '%d', 'tzuserrel') . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'month\').val(\'' . dol_print_date($nowgmt, '%m', 'tzuserrel') . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'year\').val(\'' . dol_print_date($nowgmt, '%Y', 'tzuserrel') . '\');';
            }
            /*if ($usecalendar == "eldy")
            {
                $base=DOL_URL_ROOT.'/core/';
                $reset_scripts .= 'resetDP(\''.$base.'\',\''.$prefix.'\',\''.$langs->trans("FormatDateShortJavaInput").'\',\''.$langs->defaultlang.'\');';
            }
            else
            {
                $reset_scripts .= 'this.form.elements[\''.$prefix.'day\'].value=formatDate(new Date(), \'d\'); ';
                $reset_scripts .= 'this.form.elements[\''.$prefix.'month\'].value=formatDate(new Date(), \'M\'); ';
                $reset_scripts .= 'this.form.elements[\''.$prefix.'year\'].value=formatDate(new Date(), \'yyyy\'); ';
            }*/
            // Update the hour part
            if ($h) {
                if ($fullday) {
                    $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
                }
                //$reset_scripts .= 'this.form.elements[\''.$prefix.'hour\'].value=formatDate(new Date(), \'HH\'); ';
                if ($addnowlink == 1) {
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'hour\').val(\'' . dol_print_date($nowgmt, '%H', 'tzuserrel') . '\');';
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'hour\').change();';
                } elseif ($addnowlink == 2) {
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'hour\').val(d.getHours().pad());';
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'hour\').change();';
                }

                if ($fullday) {
                    $reset_scripts .= ' } ';
                }
            }
            // Update the minute part
            if ($m) {
                if ($fullday) {
                    $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
                }
                //$reset_scripts .= 'this.form.elements[\''.$prefix.'min\'].value=formatDate(new Date(), \'mm\'); ';
                if ($addnowlink == 1) {
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'min\').val(\'' . dol_print_date($nowgmt, '%M', 'tzuserrel') . '\');';
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'min\').change();';
                } elseif ($addnowlink == 2) {
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'min\').val(d.getMinutes().pad());';
                    $reset_scripts .= 'jQuery(\'#' . $prefix . 'min\').change();';
                }
                if ($fullday) {
                    $reset_scripts .= ' } ';
                }
            }
            // If reset_scripts is not empty, print the link with the reset_scripts in the onClick
            if ($reset_scripts && !getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
                $retstring .= ' <button class="dpInvisibleButtons datenowlink" id="' . $prefix . 'ButtonNow" type="button" name="_useless" value="now" onClick="' . $reset_scripts . '">';
                $retstring .= $langs->trans("Now");
                $retstring .= '</button> ';
            }
        }

        // Add a "Plus one hour" link
        if ($conf->use_javascript_ajax && $addplusone) {
            // Script which will be inserted in the onClick of the "Add plusone" link
            $reset_scripts = "";

            // Generate the date part, depending on the use or not of the javascript calendar
            $reset_scripts .= 'jQuery(\'#' . $prefix . '\').val(\'' . dol_print_date($nowgmt, 'dayinputnoreduce', 'tzuserrel') . '\');';
            $reset_scripts .= 'jQuery(\'#' . $prefix . 'day\').val(\'' . dol_print_date($nowgmt, '%d', 'tzuserrel') . '\');';
            $reset_scripts .= 'jQuery(\'#' . $prefix . 'month\').val(\'' . dol_print_date($nowgmt, '%m', 'tzuserrel') . '\');';
            $reset_scripts .= 'jQuery(\'#' . $prefix . 'year\').val(\'' . dol_print_date($nowgmt, '%Y', 'tzuserrel') . '\');';
            // Update the hour part
            if ($h) {
                if ($fullday) {
                    $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
                }
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'hour\').val(\'' . dol_print_date($nowgmt, '%H', 'tzuserrel') . '\');';
                if ($fullday) {
                    $reset_scripts .= ' } ';
                }
            }
            // Update the minute part
            if ($m) {
                if ($fullday) {
                    $reset_scripts .= " if (jQuery('#fullday:checked').val() == null) {";
                }
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'min\').val(\'' . dol_print_date($nowgmt, '%M', 'tzuserrel') . '\');';
                if ($fullday) {
                    $reset_scripts .= ' } ';
                }
            }
            // If reset_scripts is not empty, print the link with the reset_scripts in the onClick
            if ($reset_scripts && empty($conf->dol_optimize_smallscreen)) {
                $retstring .= ' <button class="dpInvisibleButtons datenowlink" id="' . $prefix . 'ButtonPlusOne" type="button" name="_useless2" value="plusone" onClick="' . $reset_scripts . '">';
                $retstring .= $langs->trans("DateStartPlusOne");
                $retstring .= '</button> ';
            }
        }

        // Add a link to set data
        if ($conf->use_javascript_ajax && !empty($adddateof)) {
            if (!is_array($adddateof)) {
                $arrayofdateof = array(array('adddateof' => $adddateof, 'labeladddateof' => $labeladddateof));
            } else {
                $arrayofdateof = $adddateof;
            }
            foreach ($arrayofdateof as $valuedateof) {
                $tmpadddateof = empty($valuedateof['adddateof']) ? 0 : $valuedateof['adddateof'];
                $tmplabeladddateof = empty($valuedateof['labeladddateof']) ? '' : $valuedateof['labeladddateof'];
                $tmparray = dol_getdate($tmpadddateof);
                if (empty($tmplabeladddateof)) {
                    $tmplabeladddateof = $langs->trans("DateInvoice");
                }
                $reset_scripts = 'console.log(\'Click on now link\'); ';
                $reset_scripts .= 'jQuery(\'#' . $prefix . '\').val(\'' . dol_print_date($tmpadddateof, 'dayinputnoreduce') . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'day\').val(\'' . $tmparray['mday'] . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'month\').val(\'' . $tmparray['mon'] . '\');';
                $reset_scripts .= 'jQuery(\'#' . $prefix . 'year\').val(\'' . $tmparray['year'] . '\');';
                $retstring .= ' - <button class="dpInvisibleButtons datenowlink" id="dateofinvoice" type="button" name="_dateofinvoice" value="now" onclick="' . $reset_scripts . '">' . $tmplabeladddateof . '</button>';
            }
        }

        return $retstring;
    }

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

    /**
     *  Return a HTML select string, built from an array of key+value.
     *  Note: Do not apply langs->trans function on returned content, content may be entity encoded twice.
     *
     * @param string $htmlname Name of html select area. Try to start name with "multi" or "search_multi" if this is a multiselect
     * @param array{label:string,data-html:string,disable?:int<0,1>,css?:string} $array Array like array(key => value) or array(key=>array('label'=>..., 'data-...'=>..., 'disabled'=>..., 'css'=>...))

     * @param string|string[] $id Preselected key or array of preselected keys for multiselect. Use 'ifone' to autoselect record if there is only one record.
     * @param int<0,1>|string $show_empty 0 no empty value allowed, 1 or string to add an empty value into list (If 1: key is -1 and value is '' or '&nbsp;', If placeholder string: key is -1 and value is the string), <0 to add an empty value with key that is this value.
     * @param int<0,1> $key_in_label 1 to show key into label with format "[key] value"
     * @param int<0,1> $value_as_key 1 to use value as key
     * @param string $moreparam Add more parameters onto the select tag. For example 'style="width: 95%"' to avoid select2 component to go over parent container
     * @param int<0,1> $translate 1=Translate and encode value
     * @param int $maxlen Length maximum for labels
     * @param int<0,1> $disabled Html select box is disabled
     * @param string $sort 'ASC' or 'DESC' = Sort on label, '' or 'NONE' or 'POS' = Do not sort, we keep original order
     * @param string $morecss Add more class to css styles
     * @param int $addjscombo Add js combo
     * @param string $moreparamonempty Add more param on the empty option line. Not used if show_empty not set
     * @param int $disablebademail 1=Check if a not valid email, 2=Check string '---', and if found into value, disable and colorize entry
     * @param int $nohtmlescape No html escaping (not recommended, use 'data-html' if you need to use label with HTML content).
     * @return string                           HTML select string.
     * @see multiselectarray(), selectArrayAjax(), selectArrayFilter()
     */
    public static function selectarray($htmlname, $array, $id = '', $show_empty = 0, $key_in_label = 0, $value_as_key = 0, $moreparam = '', $translate = 0, $maxlen = 0, $disabled = 0, $sort = '', $morecss = 'minwidth75', $addjscombo = 1, $moreparamonempty = '', $disablebademail = 0, $nohtmlescape = 0)
    {
        global $conf, $langs;

        // Do we want a multiselect ?
        //$jsbeautify = 0;
        //if (preg_match('/^multi/',$htmlname)) $jsbeautify = 1;
        $jsbeautify = 1;

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

        '@phan-var-force array{label:string,data-html:string,disable?:int<0,1>,css?:string}	$array'; // Array combine breaks information

        $out = '';

        if ($addjscombo < 0) {
            if (!getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
                $addjscombo = 1;
            } else {
                $addjscombo = 0;
            }
        }
        $idname = str_replace(array('[', ']'), array('', ''), $htmlname);
        $out .= '<select id="' . preg_replace('/^\./', '', $idname) . '" ' . ($disabled ? 'disabled="disabled" ' : '') . 'class="flat ' . (preg_replace('/^\./', '', $htmlname)) . ($morecss ? ' ' . $morecss : '') . ' selectformat"';
        $out .= ' name="' . preg_replace('/^\./', '', $htmlname) . '" ' . ($moreparam ? $moreparam : '');
        $out .= '>' . "\n";

        if ($show_empty) {
            $textforempty = ' ';
            if (!empty($conf->use_javascript_ajax)) {
                $textforempty = '&nbsp;'; // If we use ajaxcombo, we need &nbsp; here to avoid to have an empty element that is too small.
            }
            if (!is_numeric($show_empty)) {
                $textforempty = $show_empty;
            }
            $out .= '<option class="optiongrey" ' . ($moreparamonempty ? $moreparamonempty . ' ' : '') . 'value="' . (((int)$show_empty) < 0 ? $show_empty : -1) . '"' . ($id == $show_empty ? ' selected' : '') . '>' . $textforempty . '</option>' . "\n";
        }
        if (is_array($array)) {
            // Translate
            if ($translate) {
                foreach ($array as $key => $value) {
                    if (!is_array($value)) {
                        $array[$key] = $langs->trans($value);
                    } else {
                        $array[$key]['label'] = $langs->trans($value['label']);
                    }
                }
            }
            // Sort
            if ($sort == 'ASC') {
                asort($array);
            } elseif ($sort == 'DESC') {
                arsort($array);
            }

            foreach ($array as $key => $tmpvalue) {
                if (is_array($tmpvalue)) {
                    $value = $tmpvalue['label'];
                    //$valuehtml = empty($tmpvalue['data-html']) ? $value : $tmpvalue['data-html'];
                    $disabled = empty($tmpvalue['disabled']) ? '' : ' disabled';
                    $style = empty($tmpvalue['css']) ? '' : ' class="' . $tmpvalue['css'] . '"';
                } else {
                    $value = $tmpvalue;
                    //$valuehtml = $tmpvalue;
                    $disabled = '';
                    $style = '';
                }
                if (!empty($disablebademail)) {
                    if (
                        ($disablebademail == 1 && !preg_match('/&lt;.+@.+&gt;/', $value))
                        || ($disablebademail == 2 && preg_match('/---/', $value))
                    ) {
                        $disabled = ' disabled';
                        $style = ' class="warning"';
                    }
                }
                if ($key_in_label) {
                    if (empty($nohtmlescape)) {
                        $selectOptionValue = dol_escape_htmltag($key . ' - ' . ($maxlen ? dol_trunc($value, $maxlen) : $value));
                    } else {
                        $selectOptionValue = $key . ' - ' . ($maxlen ? dol_trunc($value, $maxlen) : $value);
                    }
                } else {
                    if (empty($nohtmlescape)) {
                        $selectOptionValue = dol_escape_htmltag($maxlen ? dol_trunc($value, $maxlen) : $value);
                    } else {
                        $selectOptionValue = $maxlen ? dol_trunc($value, $maxlen) : $value;
                    }
                    if ($value == '' || $value == '-') {
                        $selectOptionValue = '&nbsp;';
                    }
                }
                $out .= '<option value="' . $key . '"';
                $out .= $style . $disabled;
                if (is_array($id)) {
                    if (in_array($key, $id) && !$disabled) {
                        $out .= ' selected'; // To preselect a value
                    }
                } else {
                    $id = (string)$id; // if $id = 0, then $id = '0'
                    if ($id != '' && ($id == $key || ($id == 'ifone' && count($array) == 1)) && !$disabled) {
                        $out .= ' selected'; // To preselect a value
                    }
                }
                if (!empty($nohtmlescape)) {    // deprecated. Use instead the key 'data-html' into input $array, managed at next step to use HTML content.
                    $out .= ' data-html="' . dol_escape_htmltag($selectOptionValue) . '"';
                }

                if (is_array($tmpvalue)) {
                    foreach ($tmpvalue as $keyforvalue => $valueforvalue) {
                        if (preg_match('/^data-/', $keyforvalue)) { // The best solution if you want to use HTML values into the list is to use data-html.
                            $out .= ' ' . dol_escape_htmltag($keyforvalue) . '="' . dol_escape_htmltag($valueforvalue) . '"';
                        }
                    }
                }
                $out .= '>';
                $out .= $selectOptionValue;
                $out .= "</option>\n";
            }
        }
        $out .= "</select>";

        // Add code for jquery to use multiselect
        if ($addjscombo && $jsbeautify) {
            // Enhance with select2
            include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
            $out .= ajax_combobox($idname, array(), 0, 0, 'resolve', (((int)$show_empty) < 0 ? (string)$show_empty : '-1'), $morecss);
        }

        return $out;
    }

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

    /**
     * Output edit in place form
     *
     * @param string $fieldname Name of the field
     * @param CommonObject $object Object
     * @param boolean $perm Permission to allow button to edit parameter. Set it to 0 to have a not edited field.
     * @param string $typeofdata Type of data ('string' by default, 'email', 'amount:99', 'numeric:99', 'text' or 'textarea:rows:cols', 'datepicker' ('day' do not work, don't know why), 'ckeditor:dolibarr_zzz:width:height:savemethod:1:rows:cols', 'select;xxx[:class]'...)
     * @param string $check Same coe than $check parameter of GETPOST()
     * @param string $morecss More CSS
     * @return  string              HTML code for the edit of alternative language
     */
    public function widgetForTranslation($fieldname, $object, $perm, $typeofdata = 'string', $check = '', $morecss = '')
    {
        global $conf, $langs, $extralanguages;

        $result = '';

        // List of extra languages
        $arrayoflangcode = array();
        if (getDolGlobalString('PDF_USE_ALSO_LANGUAGE_CODE')) {
            $arrayoflangcode[] = getDolGlobalString('PDF_USE_ALSO_LANGUAGE_CODE');
        }

        if (is_array($arrayoflangcode) && count($arrayoflangcode)) {
            if (!is_object($extralanguages)) {
                include_once DOL_DOCUMENT_ROOT . '/core/class/extralanguages.class.php';
                $extralanguages = new ExtraLanguages($this->db);
            }
            $extralanguages->fetch_name_extralanguages('societe');

            if (!is_array($extralanguages->attributes[$object->element]) || empty($extralanguages->attributes[$object->element][$fieldname])) {
                return ''; // No extralang field to show
            }

            $result .= '<!-- Widget for translation -->' . "\n";
            $result .= '<div class="inline-block paddingleft image-' . $object->element . '-' . $fieldname . '">';
            $s = img_picto($langs->trans("ShowOtherLanguages"), 'language', '', false, 0, 0, '', 'fa-15 editfieldlang');
            $result .= $s;
            $result .= '</div>';

            $result .= '<div class="inline-block hidden field-' . $object->element . '-' . $fieldname . '">';

            $resultforextrlang = '';
            foreach ($arrayoflangcode as $langcode) {
                $valuetoshow = GETPOSTISSET('field-' . $object->element . "-" . $fieldname . "-" . $langcode) ? GETPOST('field-' . $object->element . '-' . $fieldname . "-" . $langcode, $check) : '';
                if (empty($valuetoshow)) {
                    $object->fetchValuesForExtraLanguages();
                    //var_dump($object->array_languages);
                    $valuetoshow = $object->array_languages[$fieldname][$langcode];
                }

                $s = picto_from_langcode($langcode, 'class="pictoforlang paddingright"');
                $resultforextrlang .= $s;

                // TODO Use the showInputField() method of ExtraLanguages object
                if ($typeofdata == 'textarea') {
                    $resultforextrlang .= '<textarea name="field-' . $object->element . "-" . $fieldname . "-" . $langcode . '" id="' . $fieldname . "-" . $langcode . '" class="' . $morecss . '" rows="' . ROWS_2 . '" wrap="soft">';
                    $resultforextrlang .= $valuetoshow;
                    $resultforextrlang .= '</textarea>';
                } else {
                    $resultforextrlang .= '<input type="text" class="inputfieldforlang ' . ($morecss ? ' ' . $morecss : '') . '" name="field-' . $object->element . '-' . $fieldname . '-' . $langcode . '" value="' . $valuetoshow . '">';
                }
            }
            $result .= $resultforextrlang;

            $result .= '</div>';
            $result .= '<script nonce="' . getNonce() . '">$(".image-' . $object->element . '-' . $fieldname . '").click(function() { console.log("Toggle lang widget"); jQuery(".field-' . $object->element . '-' . $fieldname . '").toggle(); });</script>';
        }

        return $result;
    }


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

    /**
     * Generate select HTML to choose massaction
     *
     * @param string $selected Value auto selected when at least one record is selected. Not a preselected value. Use '0' by default.
     * @param array<string,string> $arrayofaction array('code'=>'label', ...). The code is the key stored into the GETPOST('massaction') when submitting action.
     * @param int $alwaysvisible 1=select button always visible
     * @param string $name Name for massaction
     * @param string $cssclass CSS class used to check for select
     * @return string|void              Select list
     */
    public function selectMassAction($selected, $arrayofaction, $alwaysvisible = 0, $name = 'massaction', $cssclass = 'checkforselect')
    {
        global $conf, $langs, $hookmanager;

        $disabled = 0;
        $ret = '<div class="centpercent center">';
        $ret .= '<select class="flat' . (empty($conf->use_javascript_ajax) ? '' : ' hideobject') . ' ' . $name . ' ' . $name . 'select valignmiddle alignstart" id="' . $name . '" name="' . $name . '"' . ($disabled ? ' disabled="disabled"' : '') . '>';

        // Complete list with data from external modules. THe module can use $_SERVER['PHP_SELF'] to know on which page we are, or use the $parameters['currentcontext'] completed by executeHooks.
        $parameters = array();
        $reshook = $hookmanager->executeHooks('addMoreMassActions', $parameters); // Note that $action and $object may have been modified by hook
        // check if there is a mass action

        if (is_array($arrayofaction) && count($arrayofaction) == 0 && empty($hookmanager->resPrint)) {
            return;
        }
        if (empty($reshook)) {
            $ret .= '<option value="0"' . ($disabled ? ' disabled="disabled"' : '') . '>-- ' . $langs->trans("SelectAction") . ' --</option>';
            if (is_array($arrayofaction)) {
                foreach ($arrayofaction as $code => $label) {
                    $ret .= '<option value="' . $code . '"' . ($disabled ? ' disabled="disabled"' : '') . ' data-html="' . dol_escape_htmltag($label) . '">' . $label . '</option>';
                }
            }
        }
        $ret .= $hookmanager->resPrint;

        $ret .= '</select>';

        if (empty($conf->dol_optimize_smallscreen)) {
            $ret .= ajax_combobox('.' . $name . 'select');
        }

        // Warning: if you set submit button to disabled, post using 'Enter' will no more work if there is no another input submit. So we add a hidden button
        $ret .= '<input type="submit" name="confirmmassactioninvisible" style="display: none" tabindex="-1">'; // Hidden button BEFORE so it is the one used when we submit with ENTER.
        $ret .= '<input type="submit" disabled name="confirmmassaction"' . (empty($conf->use_javascript_ajax) ? '' : ' style="display: none"') . ' class="reposition button smallpaddingimp' . (empty($conf->use_javascript_ajax) ? '' : ' hideobject') . ' ' . $name . ' ' . $name . 'confirmed" value="' . dol_escape_htmltag($langs->trans("Confirm")) . '">';
        $ret .= '</div>';

        if (!empty($conf->use_javascript_ajax)) {
            $ret .= '<!-- JS CODE TO ENABLE mass action select -->
    		<script nonce="' . getNonce() . '">
                        function initCheckForSelect(mode, name, cssclass)	/* mode is 0 during init of page or click all, 1 when we click on 1 checkboxi, "name" refers to the class of the massaction button, "cssclass" to the class of the checkfor select boxes */
        		{
        			atleastoneselected=0;
                                jQuery("."+cssclass).each(function( index ) {
    	  				/* console.log( index + ": " + $( this ).text() ); */
    	  				if ($(this).is(\':checked\')) atleastoneselected++;
    	  			});

					console.log("initCheckForSelect mode="+mode+" name="+name+" cssclass="+cssclass+" atleastoneselected="+atleastoneselected);

    	  			if (atleastoneselected || ' . $alwaysvisible . ')
    	  			{
                                    jQuery("."+name).show();
        			    ' . ($selected ? 'if (atleastoneselected) { jQuery("."+name+"select").val("' . $selected . '").trigger(\'change\'); jQuery("."+name+"confirmed").prop(\'disabled\', false); }' : '') . '
        			    ' . ($selected ? 'if (! atleastoneselected) { jQuery("."+name+"select").val("0").trigger(\'change\'); jQuery("."+name+"confirmed").prop(\'disabled\', true); } ' : '') . '
    	  			}
    	  			else
    	  			{
                                    jQuery("."+name).hide();
                                    jQuery("."+name+"other").hide();
    	            }
        		}

        	jQuery(document).ready(function () {
                    initCheckForSelect(0, "' . $name . '", "' . $cssclass . '");
                    jQuery(".' . $cssclass . '").click(function() {
                        initCheckForSelect(1, "' . $name . '", "' . $cssclass . '");
                    });
                        jQuery(".' . $name . 'select").change(function() {
        			var massaction = $( this ).val();
        			var urlform = $( this ).closest("form").attr("action").replace("#show_files","");
        			if (massaction == "builddoc")
                    {
                        urlform = urlform + "#show_files";
    	            }
        			$( this ).closest("form").attr("action", urlform);
                    console.log("we select a mass action name=' . $name . ' massaction="+massaction+" - "+urlform);
        	        /* Warning: if you set submit button to disabled, post using Enter will no more work if there is no other button */
        			if ($(this).val() != \'0\')
    	  			{
                                        jQuery(".' . $name . 'confirmed").prop(\'disabled\', false);
										jQuery(".' . $name . 'other").hide();	/* To disable if another div was open */
                                        jQuery(".' . $name . '"+massaction).show();
    	  			}
    	  			else
    	  			{
                                        jQuery(".' . $name . 'confirmed").prop(\'disabled\', true);
										jQuery(".' . $name . 'other").hide();	/* To disable any div open */
    	  			}
    	        });
        	});
    		</script>
        	';
        }

        return $ret;
    }


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

    /**
     *  Return combo list of activated countries, into language of user
     *
     * @param string $selected Id or Code or Label of preselected country
     * @param string $htmlname Name of html select object
     * @param string $htmloption More html options on select object
     * @param integer $maxlength Max length for labels (0=no limit)
     * @param string $morecss More css class
     * @param string $usecodeaskey ''=Use id as key (default), 'code3'=Use code on 3 alpha as key, 'code2"=Use code on 2 alpha as key
     * @param int<0,1>|string $showempty Show empty choice
     * @param int<0,1> $disablefavorites 1=Disable favorites,
     * @param int<0,1> $addspecialentries 1=Add dedicated entries for group of countries (like 'European Economic Community', ...)
     * @param string[] $exclude_country_code Array of country code (iso2) to exclude
     * @param int<0,1> $hideflags Hide flags
     * @return string                               HTML string with select
     */
    public function select_country($selected = '', $htmlname = 'country_id', $htmloption = '', $maxlength = 0, $morecss = 'minwidth300', $usecodeaskey = '', $showempty = 1, $disablefavorites = 0, $addspecialentries = 0, $exclude_country_code = array(), $hideflags = 0)
    {
        // phpcs:enable
        global $conf, $langs, $mysoc;

        $langs->load("dict");

        $out = '';
        $countryArray = array();
        $favorite = array();
        $label = array();
        $atleastonefavorite = 0;

        $sql = "SELECT rowid, code as code_iso, code_iso as code_iso3, label, favorite, eec";
        $sql .= " FROM " . $this->db->prefix() . "c_country";
        $sql .= " WHERE active > 0";
        //$sql.= " ORDER BY code ASC";

        dol_syslog(get_only_class($this) . "::select_country", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql) {
            $out .= '<select id="select' . $htmlname . '" class="flat maxwidth200onsmartphone selectcountry' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '" ' . $htmloption . '>';
            $num = $this->db->num_rows($resql);
            $i = 0;
            if ($num) {
                while ($i < $num) {
                    $obj = $this->db->fetch_object($resql);

                    $countryArray[$i]['rowid'] = $obj->rowid;
                    $countryArray[$i]['code_iso'] = $obj->code_iso;
                    $countryArray[$i]['code_iso3'] = $obj->code_iso3;
                    $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 : ''));
                    $countryArray[$i]['favorite'] = $obj->favorite;
                    $countryArray[$i]['eec'] = $obj->eec;
                    $favorite[$i] = $obj->favorite;
                    $label[$i] = dol_string_unaccent($countryArray[$i]['label']);
                    $i++;
                }

                if (empty($disablefavorites)) {
                    $array1_sort_order = SORT_DESC;
                    $array2_sort_order = SORT_ASC;
                    array_multisort($favorite, $array1_sort_order, $label, $array2_sort_order, $countryArray);
                } else {
                    $countryArray = dol_sort_array($countryArray, 'label');
                }

                if ($showempty) {
                    if (is_numeric($showempty)) {
                        $out .= '<option value="">&nbsp;</option>' . "\n";
                    } else {
                        $out .= '<option value="-1">' . $langs->trans($showempty) . '</option>' . "\n";
                    }
                }

                if ($addspecialentries) {    // Add dedicated entries for groups of countries
                    //if ($showempty) $out.= '<option value="" disabled class="selectoptiondisabledwhite">--------------</option>';
                    $out .= '<option value="special_allnotme"' . ($selected == 'special_allnotme' ? ' selected' : '') . '>' . $langs->trans("CountriesExceptMe", $langs->transnoentitiesnoconv("Country" . $mysoc->country_code)) . '</option>';
                    $out .= '<option value="special_eec"' . ($selected == 'special_eec' ? ' selected' : '') . '>' . $langs->trans("CountriesInEEC") . '</option>';
                    if ($mysoc->isInEEC()) {
                        $out .= '<option value="special_eecnotme"' . ($selected == 'special_eecnotme' ? ' selected' : '') . '>' . $langs->trans("CountriesInEECExceptMe", $langs->transnoentitiesnoconv("Country" . $mysoc->country_code)) . '</option>';
                    }
                    $out .= '<option value="special_noteec"' . ($selected == 'special_noteec' ? ' selected' : '') . '>' . $langs->trans("CountriesNotInEEC") . '</option>';
                    $out .= '<option value="" disabled class="selectoptiondisabledwhite">------------</option>';
                }

                foreach ($countryArray as $row) {
                    //if (empty($showempty) && empty($row['rowid'])) continue;
                    if (empty($row['rowid'])) {
                        continue;
                    }
                    if (is_array($exclude_country_code) && count($exclude_country_code) && in_array($row['code_iso'], $exclude_country_code)) {
                        continue; // exclude some countries
                    }

                    if (empty($disablefavorites) && $row['favorite'] && $row['code_iso']) {
                        $atleastonefavorite++;
                    }
                    if (empty($row['favorite']) && $atleastonefavorite) {
                        $atleastonefavorite = 0;
                        $out .= '<option value="" disabled class="selectoptiondisabledwhite">------------</option>';
                    }

                    $labeltoshow = '';
                    if ($row['label']) {
                        $labeltoshow .= dol_trunc($row['label'], $maxlength, 'middle');
                    } else {
                        $labeltoshow .= '&nbsp;';
                    }
                    if ($row['code_iso']) {
                        $labeltoshow .= ' <span class="opacitymedium">(' . $row['code_iso'] . ')</span>';
                        if (empty($hideflags)) {
                            $tmpflag = picto_from_langcode($row['code_iso'], 'class="saturatemedium paddingrightonly"', 1);
                            $labeltoshow = $tmpflag . ' ' . $labeltoshow;
                        }
                    }

                    if ($selected && $selected != '-1' && ($selected == $row['rowid'] || $selected == $row['code_iso'] || $selected == $row['code_iso3'] || $selected == $row['label'])) {
                        $out .= '<option value="' . ($usecodeaskey ? ($usecodeaskey == 'code2' ? $row['code_iso'] : $row['code_iso3']) : $row['rowid']) . '" selected data-html="' . dol_escape_htmltag($labeltoshow) . '" data-eec="' . ((int)$row['eec']) . '">';
                    } else {
                        $out .= '<option value="' . ($usecodeaskey ? ($usecodeaskey == 'code2' ? $row['code_iso'] : $row['code_iso3']) : $row['rowid']) . '" data-html="' . dol_escape_htmltag($labeltoshow) . '" data-eec="' . ((int)$row['eec']) . '">';
                    }
                    $out .= $labeltoshow;
                    $out .= '</option>' . "\n";
                }
            }
            $out .= '</select>';
        } else {
            dol_print_error($this->db);
        }

        // Make select dynamic
        include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
        $out .= ajax_combobox('select' . $htmlname, array(), 0, 0, 'resolve');

        return $out;
    }


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

    /**
     *  Return select list of incoterms
     *
     * @param string $selected Id or Code of preselected incoterm
     * @param string $location_incoterms Value of input location
     * @param string $page Defined the form action
     * @param string $htmlname Name of html select object
     * @param string $htmloption Options html on select object
     * @param int<0,1> $forcecombo Force to load all values and output a standard combobox (with no beautification)
     * @param array<array{method:string,url:string,htmlname:string,params:array<string,string>}> $events Event options to run on change. Example: array(array('method'=>'getContacts', 'url'=>dol_buildpath('/core/ajax/contacts.php',1), 'htmlname'=>'contactid', 'params'=>array('add-customer-contact'=>'disabled')))
     * @param int<0,1> $disableautocomplete Disable autocomplete
     * @return  string                          HTML string with select and input
     */
    public function select_incoterms($selected = '', $location_incoterms = '', $page = '', $htmlname = 'incoterm_id', $htmloption = '', $forcecombo = 1, $events = array(), $disableautocomplete = 0)
    {
        // phpcs:enable
        global $conf, $langs;

        $langs->load("dict");

        $out = '';
        $moreattrib = '';
        $incotermArray = array();

        $sql = "SELECT rowid, code";
        $sql .= " FROM " . $this->db->prefix() . "c_incoterms";
        $sql .= " WHERE active > 0";
        $sql .= " ORDER BY code ASC";

        dol_syslog(get_only_class($this) . "::select_incoterm", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql) {
            if ($conf->use_javascript_ajax && !$forcecombo) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname, $events);
            }

            if (!empty($page)) {
                $out .= '<form method="post" action="' . $page . '">';
                $out .= '<input type="hidden" name="action" value="set_incoterms">';
                $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
            }

            $out .= '<select id="' . $htmlname . '" class="flat selectincoterm width75" name="' . $htmlname . '" ' . $htmloption . '>';
            $out .= '<option value="0">&nbsp;</option>';
            $num = $this->db->num_rows($resql);
            $i = 0;
            if ($num) {
                while ($i < $num) {
                    $obj = $this->db->fetch_object($resql);
                    $incotermArray[$i]['rowid'] = $obj->rowid;
                    $incotermArray[$i]['code'] = $obj->code;
                    $i++;
                }

                foreach ($incotermArray as $row) {
                    if ($selected && ($selected == $row['rowid'] || $selected == $row['code'])) {
                        $out .= '<option value="' . $row['rowid'] . '" selected>';
                    } else {
                        $out .= '<option value="' . $row['rowid'] . '">';
                    }

                    if ($row['code']) {
                        $out .= $row['code'];
                    }

                    $out .= '</option>';
                }
            }
            $out .= '</select>';

            if ($conf->use_javascript_ajax && empty($disableautocomplete)) {
                $out .= ajax_multiautocompleter('location_incoterms', array(), constant('BASE_URL') . '/core/ajax/locationincoterms.php') . "\n";
                $moreattrib .= ' autocomplete="off"';
            }
            $out .= '<input id="location_incoterms" class="maxwidthonsmartphone type="text" name="location_incoterms" value="' . $location_incoterms . '">' . "\n";

            if (!empty($page)) {
                $out .= '<input type="submit" class="button valignmiddle smallpaddingimp nomargintop nomarginbottom" value="' . $langs->trans("Modify") . '"></form>';
            }
        } else {
            dol_print_error($this->db);
        }

        return $out;
    }

    /**
     * Return list of types of lines (product or service)
     * Example: 0=product, 1=service, 9=other (for external module)
     *
     * @param string $selected Preselected type
     * @param string $htmlname Name of field in html form
     * @param int<0,1>|string $showempty Add an empty field
     * @param int $hidetext Do not show label 'Type' before combo box (used only if there is at least 2 choices to select)
     * @param integer $forceall 1=Force to show products and services in combo list, whatever are activated modules, 0=No force, 2=Force to show only Products, 3=Force to show only services, -1=Force none (and set hidden field to 'service')
     * @param string $morecss More css
     * @return  void
     */
    public function select_type_of_lines($selected = '', $htmlname = 'type', $showempty = 0, $hidetext = 0, $forceall = 0, $morecss = "")
    {
        // phpcs:enable
        global $langs;

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

            print '<option value="0"';
            if (0 == $selected || ($selected == -1 && getDolGlobalString('MAIN_FREE_PRODUCT_CHECKED_BY_DEFAULT') == 'product')) {
                print ' selected';
            }
            print '>' . $langs->trans("Product");

            print '<option value="1"';
            if (1 == $selected || ($selected == -1 && getDolGlobalString('MAIN_FREE_PRODUCT_CHECKED_BY_DEFAULT') == 'service')) {
                print ' selected';
            }
            print '>' . $langs->trans("Service");

            print '</select>';
            print ajax_combobox('select_' . $htmlname);
            //if ($user->admin) print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"),1);
        }
        if ((empty($forceall) && !isModEnabled('product') && isModEnabled("service")) || $forceall == 3) {
            print $langs->trans("Service");
            print '<input type="hidden" name="' . $htmlname . '" value="1">';
        }
        if ((empty($forceall) && isModEnabled("product") && !isModEnabled('service')) || $forceall == 2) {
            print $langs->trans("Product");
            print '<input type="hidden" name="' . $htmlname . '" value="0">';
        }
        if ($forceall < 0) {    // This should happened only for contracts when both predefined product and service are disabled.
            print '<input type="hidden" name="' . $htmlname . '" value="1">'; // By default we set on service for contract. If CONTRACT_SUPPORT_PRODUCTS is set, forceall should be 1 not -1
        }
    }


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

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

        dol_syslog(__METHOD__ . " selected=" . $selected . ", htmlname=" . $htmlname, LOG_DEBUG);

        $this->load_cache_types_fees();

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

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

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


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

    /**
     *    Load into cache cache_types_fees, array of types of fees
     *
     * @return     int             Nb of lines loaded, <0 if KO
     */
    public function load_cache_types_fees()
    {
        // phpcs:enable
        global $langs;

        $num = count($this->cache_types_fees);
        if ($num > 0) {
            return 0; // Cache already loaded
        }

        dol_syslog(__METHOD__, LOG_DEBUG);

        $langs->load("trips");

        $sql = "SELECT c.code, c.label";
        $sql .= " FROM " . $this->db->prefix() . "c_type_fees as c";
        $sql .= " WHERE active > 0";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;

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

                // Si traduction existe, on l'utilise, sinon on prend le libelle par default
                $label = ($obj->code != $langs->trans($obj->code) ? $langs->trans($obj->code) : $langs->trans($obj->label));
                $this->cache_types_fees[$obj->code] = $label;
                $i++;
            }

            asort($this->cache_types_fees);

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

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

    /**
     * Output html form to select a contact
     * This call select_contacts() or ajax depending on setup. This component is not able to support multiple select.
     *
     * Return HTML code of the SELECT of list of all contacts (for a third party or all).
     * This also set the number of contacts found into $this->num
     *
     * @param int $socid Id of third party or 0 for all or -1 for empty list
     * @param int|string $selected ID of preselected contact id
     * @param string $htmlname Name of HTML field ('none' for a not editable field)
     * @param int<0,3>|string $showempty 0=no empty value, 1=add an empty value, 2=add line 'Internal' (used by user edit), 3=add an empty value only if more than one record into list
     * @param string $exclude List of contacts id to exclude
     * @param string $limitto Not used
     * @param integer $showfunction Add function into label
     * @param string $morecss Add more class to class style
     * @param bool $nokeyifsocid When 1, we force the option "Press a key to show list" to 0 if there is a value for $socid
     * @param integer $showsoc Add company into label
     * @param int $forcecombo 1=Force to use combo box (so no ajax beautify effect)
     * @param array<array{method:string,url:string,htmlname:string,params:array<string,string>}> $events Event options. Example: array(array('method'=>'getContacts', 'url'=>dol_buildpath('/core/ajax/contacts.php',1), 'htmlname'=>'contactid', 'params'=>array('add-customer-contact'=>'disabled')))
     * @param string $moreparam Add more parameters onto the select tag. For example 'style="width: 95%"' to avoid select2 component to go over parent container
     * @param string $htmlid Html id to use instead of htmlname
     * @param string $selected_input_value Value of preselected input text (for use with ajax)
     * @param string $filter Optional filters criteras. WARNING: To avoid SQL injection, only few chars [.a-z0-9 =<>()] are allowed here. Example: ((s.client:IN:1,3) AND (s.status:=:1)). Do not use a filter coming from input of users.
     * @return  int|string                          Return integer <0 if KO, HTML with select string if OK.
     */
    public function select_contact($socid, $selected = '', $htmlname = 'contactid', $showempty = 0, $exclude = '', $limitto = '', $showfunction = 0, $morecss = '', $nokeyifsocid = true, $showsoc = 0, $forcecombo = 0, $events = array(), $moreparam = '', $htmlid = '', $selected_input_value = '', $filter = '')
    {
        // phpcs:enable

        global $conf, $langs;

        $out = '';

        $sav = getDolGlobalString('CONTACT_USE_SEARCH_TO_SELECT');
        if ($nokeyifsocid && $socid > 0) {
            $conf->global->CONTACT_USE_SEARCH_TO_SELECT = 0;
        }

        if (!empty($conf->use_javascript_ajax) && getDolGlobalString('CONTACT_USE_SEARCH_TO_SELECT') && !$forcecombo) {
            if (is_null($events)) {
                $events = array();
            }

            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/ajax.lib.php';

            // No immediate load of all database
            $placeholder = '';
            if ($selected && empty($selected_input_value)) {
                $contacttmp = new Contact($this->db);
                $contacttmp->fetch($selected);
                $selected_input_value = $contacttmp->getFullName($langs);
                unset($contacttmp);
            }
            if (!is_numeric($showempty)) {
                $placeholder = $showempty;
            }

            // mode 1
            $urloption = 'htmlname=' . urlencode((string)(str_replace('.', '_', $htmlname))) . '&outjson=1&filter=' . urlencode((string)($filter)) . (empty($exclude) ? '' : '&exclude=' . urlencode($exclude)) . ($showsoc ? '&showsoc=' . urlencode((string)($showsoc)) : '');

            $out .= '<!-- force css to be higher than dialog popup --><style type="text/css">.ui-autocomplete { z-index: 1010; }</style>';

            $out .= '<input type="text" class="' . $morecss . '" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . ($placeholder ? ' placeholder="' . dol_escape_htmltag($placeholder) . '"' : '') . ' ' . (getDolGlobalString('CONTACT_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';

            $out .= ajax_event($htmlname, $events);

            $out .= ajax_autocompleter($selected, $htmlname, constant('BASE_URL') . '/contact/ajax/contact.php', $urloption, getDolGlobalString('CONTACT_USE_SEARCH_TO_SELECT'), 0, $events);
        } else {
            // Immediate load of all database
            $multiple = false;
            $disableifempty = 0;
            $options_only = false;
            $limitto = '';

            $out .= $this->selectcontacts($socid, $selected, $htmlname, $showempty, $exclude, $limitto, $showfunction, $morecss, $options_only, $showsoc, $forcecombo, $events, $moreparam, $htmlid, $multiple, $disableifempty);
        }

        $conf->global->CONTACT_USE_SEARCH_TO_SELECT = $sav;

        return $out;
    }


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

    /**
     * Return HTML code of the SELECT of list of all contacts (for a third party or all).
     * This also set the number of contacts found into $this->num
     * Note: you must use the select_contact() to get the component to select a contact. This function must only be called by select_contact.
     *
     * @param int $socid Id of third party or 0 for all or -1 for empty list
     * @param array|int|string $selected Array of ID of preselected contact id
     * @param string $htmlname Name of HTML field ('none' for a not editable field)
     * @param int<0,3>|string $showempty 0=no empty value, 1=add an empty value, 2=add line 'Internal' (used by user edit), 3=add an empty value only if more than one record into list
     * @param string $exclude List of contacts id to exclude
     * @param string $limitto Disable answers that are not id in this array list
     * @param integer $showfunction Add function into label
     * @param string $morecss Add more class to class style
     * @param int $options_only 1=Return options only (for ajax treatment), 2=Return array
     * @param integer $showsoc Add company into label
     * @param int $forcecombo Force to use combo box (so no ajax beautify effect)
     * @param array<array{method:string,url:string,htmlname:string,params:array<string,string>}> $events Event options. Example: array(array('method'=>'getContacts', 'url'=>dol_buildpath('/core/ajax/contacts.php',1), 'htmlname'=>'contactid', 'params'=>array('add-customer-contact'=>'disabled')))
     * @param string $moreparam Add more parameters onto the select tag. For example 'style="width: 95%"' to avoid select2 component to go over parent container
     * @param string $htmlid Html id to use instead of htmlname
     * @param bool $multiple add [] in the name of element and add 'multiple' attribute
     * @param integer $disableifempty Set tag 'disabled' on select if there is no choice
     * @param string $filter Optional filters criteras. WARNING: To avoid SQL injection, only few chars [.a-z0-9 =<>] are allowed here, example: 's.rowid <> x'
     *                                                  If you need parenthesis, use the Universal Filter Syntax, example: '(s.client:in:1,3)'
     *                                                  Do not use a filter coming from input of users.
     * @return  int|string|array<int,array{key:int,value:string,label:string,labelhtml:string}>     Return integer <0 if KO, HTML with select string if OK.
     */
    public function selectcontacts($socid, $selected = array(), $htmlname = 'contactid', $showempty = 0, $exclude = '', $limitto = '', $showfunction = 0, $morecss = '', $options_only = 0, $showsoc = 0, $forcecombo = 0, $events = array(), $moreparam = '', $htmlid = '', $multiple = false, $disableifempty = 0, $filter = '')
    {
        global $conf, $langs, $hookmanager, $action;

        $langs->load('companies');

        if (empty($htmlid)) {
            $htmlid = $htmlname;
        }
        $num = 0;
        $out = '';
        $outarray = array();

        if ($selected === '') {
            $selected = array();
        } elseif (!is_array($selected)) {
            $selected = array((int)$selected);
        }

        // Clean $filter that may contains sql conditions so sql code
        if (Filters::testSqlAndScriptInject($filter, 3) > 0) {
            $filter = '';
            return 'SQLInjectionTryDetected';
        }

        if ($filter != '') {    // If a filter was provided
            if (preg_match('/[\(\)]/', $filter)) {
                // If there is one parenthesis inside the criteria, we assume it is an Universal Filter Syntax.
                $errormsg = '';
                $filter = forgeSQLFromUniversalSearchCriteria($filter, $errormsg, 1);

                // Redo clean $filter that may contains sql conditions so sql code
                if (Filters::testSqlAndScriptInject($filter, 3) > 0) {
                    $filter = '';
                    return 'SQLInjectionTryDetected';
                }
            } else {
                // If not, we do nothing. We already know that there is no parenthesis
                // TODO Disallow this case in a future.
                dol_syslog("Warning, select_thirdparty_list was called with a filter criteria not using the Universal Search Syntax.", LOG_WARNING);
            }
        }

        if (!is_object($hookmanager)) {
            $hookmanager = new HookManager($this->db);
        }

        // We search third parties
        $sql = "SELECT sp.rowid, sp.lastname, sp.statut, sp.firstname, sp.poste, sp.email, sp.phone, sp.phone_perso, sp.phone_mobile, sp.town AS contact_town";
        if ($showsoc > 0 || getDolGlobalString('CONTACT_SHOW_EMAIL_PHONE_TOWN_SELECTLIST')) {
            $sql .= ", s.nom as company, s.town AS company_town";
        }
        $sql .= " FROM " . $this->db->prefix() . "socpeople as sp";
        if ($showsoc > 0 || getDolGlobalString('CONTACT_SHOW_EMAIL_PHONE_TOWN_SELECTLIST')) {
            $sql .= " LEFT OUTER JOIN  " . $this->db->prefix() . "societe as s ON s.rowid=sp.fk_soc";
        }
        $sql .= " WHERE sp.entity IN (" . getEntity('contact') . ")";
        if ($socid > 0 || $socid == -1) {
            $sql .= " AND sp.fk_soc = " . ((int)$socid);
        }
        if (getDolGlobalString('CONTACT_HIDE_INACTIVE_IN_COMBOBOX')) {
            $sql .= " AND sp.statut <> 0";
        }
        if ($filter) {
            // $filter is safe because, if it contains '(' or ')', it has been sanitized by testSqlAndScriptInject() and forgeSQLFromUniversalSearchCriteria()
            // if not, by testSqlAndScriptInject() only.
            $sql .= " AND (" . $filter . ")";
        }
        // Add where from hooks
        $parameters = array();
        $reshook = $hookmanager->executeHooks('selectContactListWhere', $parameters); // Note that $action and $object may have been modified by hook
        $sql .= $hookmanager->resPrint;
        $sql .= " ORDER BY sp.lastname ASC";

        dol_syslog(get_only_class($this) . "::selectcontacts", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);

            if ($htmlname != 'none' && !$options_only) {
                $out .= '<select class="flat' . ($morecss ? ' ' . $morecss : '') . '" id="' . $htmlid . '" name="' . $htmlname . ($multiple ? '[]' : '') . '" ' . (($num || empty($disableifempty)) ? '' : ' disabled') . ($multiple ? 'multiple' : '') . ' ' . (!empty($moreparam) ? $moreparam : '') . '>';
            }

            if ($showempty && !is_numeric($showempty)) {
                $textforempty = $showempty;
                $out .= '<option class="optiongrey" value="-1"' . (in_array(-1, $selected) ? ' selected' : '') . '>' . $textforempty . '</option>';
            } else {
                if (($showempty == 1 || ($showempty == 3 && $num > 1)) && !$multiple) {

                    $out .= '<option value="0"' . (in_array(0, $selected) ? ' selected' : '') . '>&nbsp;</option>';
                }
                if ($showempty == 2) {
                    $out .= '<option value="0"' . (in_array(0, $selected) ? ' selected' : '') . '>-- ' . $langs->trans("Internal") . ' --</option>';
                }
            }

            $i = 0;
            if ($num) {
                $contactstatic = new Contact($this->db);

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

                    // Set email (or phones) and town extended infos
                    $extendedInfos = '';
                    if (getDolGlobalString('CONTACT_SHOW_EMAIL_PHONE_TOWN_SELECTLIST')) {
                        $extendedInfos = array();
                        $email = trim($obj->email);
                        if (!empty($email)) {
                            $extendedInfos[] = $email;
                        } else {
                            $phone = trim($obj->phone);
                            $phone_perso = trim($obj->phone_perso);
                            $phone_mobile = trim($obj->phone_mobile);
                            if (!empty($phone)) {
                                $extendedInfos[] = $phone;
                            }
                            if (!empty($phone_perso)) {
                                $extendedInfos[] = $phone_perso;
                            }
                            if (!empty($phone_mobile)) {
                                $extendedInfos[] = $phone_mobile;
                            }
                        }
                        $contact_town = trim($obj->contact_town);
                        $company_town = trim($obj->company_town);
                        if (!empty($contact_town)) {
                            $extendedInfos[] = $contact_town;
                        } elseif (!empty($company_town)) {
                            $extendedInfos[] = $company_town;
                        }
                        $extendedInfos = implode(' - ', $extendedInfos);
                        if (!empty($extendedInfos)) {
                            $extendedInfos = ' - ' . $extendedInfos;
                        }
                    }

                    $contactstatic->id = $obj->rowid;
                    $contactstatic->lastname = $obj->lastname;
                    $contactstatic->firstname = $obj->firstname;
                    if ($obj->statut == 1) {
                        $tmplabel = '';
                        if ($htmlname != 'none') {
                            $disabled = 0;
                            if (is_array($exclude) && count($exclude) && in_array($obj->rowid, $exclude)) {
                                $disabled = 1;
                            }
                            if (is_array($limitto) && count($limitto) && !in_array($obj->rowid, $limitto)) {
                                $disabled = 1;
                            }
                            if (!empty($selected) && in_array($obj->rowid, $selected)) {
                                $out .= '<option value="' . $obj->rowid . '"';
                                if ($disabled) {
                                    $out .= ' disabled';
                                }
                                $out .= ' selected>';

                                $tmplabel = $contactstatic->getFullName($langs) . $extendedInfos;
                                if ($showfunction && $obj->poste) {
                                    $tmplabel .= ' (' . $obj->poste . ')';
                                }
                                if (($showsoc > 0) && $obj->company) {
                                    $tmplabel .= ' - (' . $obj->company . ')';
                                }

                                $out .= $tmplabel;
                                $out .= '</option>';
                            } else {
                                $out .= '<option value="' . $obj->rowid . '"';
                                if ($disabled) {
                                    $out .= ' disabled';
                                }
                                $out .= '>';

                                $tmplabel = $contactstatic->getFullName($langs) . $extendedInfos;
                                if ($showfunction && $obj->poste) {
                                    $tmplabel .= ' (' . $obj->poste . ')';
                                }
                                if (($showsoc > 0) && $obj->company) {
                                    $tmplabel .= ' - (' . $obj->company . ')';
                                }

                                $out .= $tmplabel;
                                $out .= '</option>';
                            }
                        } else {
                            if (in_array($obj->rowid, $selected)) {
                                $tmplabel = $contactstatic->getFullName($langs) . $extendedInfos;
                                if ($showfunction && $obj->poste) {
                                    $tmplabel .= ' (' . $obj->poste . ')';
                                }
                                if (($showsoc > 0) && $obj->company) {
                                    $tmplabel .= ' - (' . $obj->company . ')';
                                }

                                $out .= $tmplabel;
                            }
                        }

                        if ($tmplabel != '') {
                            array_push($outarray, array('key' => $obj->rowid, 'value' => $tmplabel, 'label' => $tmplabel, 'labelhtml' => $tmplabel));
                        }
                    }
                    $i++;
                }
            } else {
                $labeltoshow = ($socid != -1) ? ($langs->trans($socid ? "NoContactDefinedForThirdParty" : "NoContactDefined")) : $langs->trans('SelectAThirdPartyFirst');
                $out .= '<option class="disabled" value="-1"' . (($showempty == 2 || $multiple) ? '' : ' selected') . ' disabled="disabled">';
                $out .= $labeltoshow;
                $out .= '</option>';
            }

            $parameters = array(
                'socid' => $socid,
                'htmlname' => $htmlname,
                'resql' => $resql,
                'out' => &$out,
                'showfunction' => $showfunction,
                'showsoc' => $showsoc,
            );

            $reshook = $hookmanager->executeHooks('afterSelectContactOptions', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks

            if ($htmlname != 'none' && !$options_only) {
                $out .= '</select>';
            }

            if ($conf->use_javascript_ajax && !$forcecombo && !$options_only) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlid, $events, getDolGlobalInt("CONTACT_USE_SEARCH_TO_SELECT"));
            }

            $this->num = $num;

            if ($options_only === 2) {
                // Return array of options
                return $outarray;
            } else {
                return $out;
            }
        } else {
            dol_print_error($this->db);
            return -1;
        }
    }

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

    /**
     * Return the HTML select list of users
     *
     * @param string $selected Id user preselected
     * @param string $htmlname Field name in form
     * @param int<0,1> $show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
     * @param int[] $exclude Array list of users id to exclude
     * @param int<0,1> $disabled If select list must be disabled
     * @param int[]|string $include Array list of users id to include. User '' for all users or 'hierarchy' to have only supervised users or 'hierarchyme' to have supervised + me
     * @param int[]|int $enableonly Array list of users id to be enabled. All other must be disabled
     * @param string $force_entity '0' or Ids of environment to force
     * @return    void
     * @deprecated        Use select_dolusers instead
     * @see select_dolusers()
     */
    public function select_users($selected = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = '', $enableonly = array(), $force_entity = '0')
    {
        // phpcs:enable
        print $this->select_dolusers($selected, $htmlname, $show_empty, $exclude, $disabled, $include, $enableonly, $force_entity);
    }

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

    /**
     * Return select list of users
     *
     * @param string|int|User $selected User id or user object of user preselected. If 0 or < -2, we use id of current user. If -1 or '', keep unselected (if empty is allowed)
     * @param string $htmlname Field name in form
     * @param int<0,1>|string $show_empty 0=list with no empty value, 1=add also an empty value into list
     * @param int[]|null $exclude Array list of users id to exclude
     * @param int $disabled If select list must be disabled
     * @param int[]|string $include Array list of users id to include. User '' for all users or 'hierarchy' to have only supervised users or 'hierarchyme' to have supervised + me
     * @param array|string $enableonly Array list of users id to be enabled. If defined, it means that others will be disabled
     * @param string $force_entity '0' or list of Ids of environment to force, separated by a coma, or 'default' = do no extend to all entities allowed to superadmin.
     * @param int $maxlength Maximum length of string into list (0=no limit)
     * @param int<-1,1> $showstatus 0=show user status only if status is disabled, 1=always show user status into label, -1=never show user status
     * @param string $morefilter Add more filters into sql request (Example: 'employee = 1'). This value must not come from user input.
     * @param integer $show_every 0=default list, 1=add also a value "Everybody" at beginning of list
     * @param string $enableonlytext If option $enableonlytext is set, we use this text to explain into label why record is disabled. Not used if enableonly is empty.
     * @param string $morecss More css
     * @param int<0,1> $notdisabled Show only active users (this will also happened whatever is this option if USER_HIDE_INACTIVE_IN_COMBOBOX is on).
     * @param int<0,2> $outputmode 0=HTML select string, 1=Array, 2=Detailed array
     * @param bool $multiple add [] in the name of element and add 'multiple' attribute
     * @param int<0,1> $forcecombo Force the component to be a simple combo box without ajax
     * @return string|array<int,string|array{id:int,label:string,labelhtml:string,color:string,picto:string}>   HTML select string
     * @see select_dolgroups()
     */
    public function select_dolusers($selected = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = '', $enableonly = '', $force_entity = '', $maxlength = 0, $showstatus = 0, $morefilter = '', $show_every = 0, $enableonlytext = '', $morecss = '', $notdisabled = 0, $outputmode = 0, $multiple = false, $forcecombo = 0)
    {
        // phpcs:enable
        global $conf, $user, $langs, $hookmanager;
        global $action;

        // If no preselected user defined, we take current user
        if ((is_numeric($selected) && ($selected < -2 || empty($selected))) && !getDolGlobalString('SOCIETE_DISABLE_DEFAULT_SALESREPRESENTATIVE')) {
            $selected = $user->id;
        }

        if ($selected === '') {
            $selected = array();
        } elseif (!is_array($selected)) {
            $selected = array($selected);
        }

        $excludeUsers = null;
        $includeUsers = null;

        // Exclude some users
        if (is_array($exclude)) {
            $excludeUsers = implode(",", $exclude);
        }
        // Include some uses
        if (is_array($include)) {
            $includeUsers = implode(",", $include);
        } elseif ($include == 'hierarchy') {
            // Build list includeUsers to have only hierarchy
            $includeUsers = implode(",", $user->getAllChildIds(0));
        } elseif ($include == 'hierarchyme') {
            // Build list includeUsers to have only hierarchy and current user
            $includeUsers = implode(",", $user->getAllChildIds(1));
        }

        $num = 0;

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

        // Do we want to show the label of entity into the combo list ?
        $showlabelofentity = isModEnabled('multicompany') && !getDolGlobalInt('MULTICOMPANY_TRANSVERSE_MODE') && $conf->entity == 1 && !empty($user->admin) && empty($user->entity);
        $userissuperadminentityone = isModEnabled('multicompany') && $conf->entity == 1 && $user->admin && empty($user->entity);

        // Forge request to select users
        $sql = "SELECT DISTINCT u.rowid, u.lastname as lastname, u.firstname, u.statut as status, u.login, u.admin, u.entity, u.gender, u.photo";
        if ($showlabelofentity) {
            $sql .= ", e.label";
        }
        $sql .= " FROM " . $this->db->prefix() . "user as u";
        if ($showlabelofentity) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "entity as e ON e.rowid = u.entity";
        }
        // Condition here should be the same than into societe->getSalesRepresentatives().
        if ($userissuperadminentityone && $force_entity != 'default') {
            if (!empty($force_entity)) {
                $sql .= " WHERE u.entity IN (0, " . $this->db->sanitize($force_entity) . ")";
            } else {
                $sql .= " WHERE u.entity IS NOT NULL";
            }
        } else {
            if (isModEnabled('multicompany') && getDolGlobalInt('MULTICOMPANY_TRANSVERSE_MODE')) {
                $sql .= " WHERE u.rowid IN (SELECT ug.fk_user FROM " . $this->db->prefix() . "usergroup_user as ug WHERE ug.entity IN (" . getEntity('usergroup') . "))";
            } else {
                $sql .= " WHERE u.entity IN (" . getEntity('user') . ")";
            }
        }

        if (!empty($user->socid)) {
            $sql .= " AND u.fk_soc = " . ((int)$user->socid);
        }
        if (is_array($exclude) && $excludeUsers) {
            $sql .= " AND u.rowid NOT IN (" . $this->db->sanitize($excludeUsers) . ")";
        }
        if ($includeUsers) {
            $sql .= " AND u.rowid IN (" . $this->db->sanitize($includeUsers) . ")";
        }
        if (getDolGlobalString('USER_HIDE_INACTIVE_IN_COMBOBOX') || $notdisabled) {
            $sql .= " AND u.statut <> 0";
        }
        if (getDolGlobalString('USER_HIDE_NONEMPLOYEE_IN_COMBOBOX') || $notdisabled) {
            $sql .= " AND u.employee <> 0";
        }
        if (getDolGlobalString('USER_HIDE_EXTERNAL_IN_COMBOBOX') || $notdisabled) {
            $sql .= " AND u.fk_soc IS NULL";
        }
        if (!empty($morefilter)) {
            $sql .= " " . $morefilter;
        }

        //Add hook to filter on user (for example on usergroup define in custom modules)
        $reshook = $hookmanager->executeHooks('addSQLWhereFilterOnSelectUsers', array(), $this, $action);
        if (!empty($reshook)) {
            $sql .= $hookmanager->resPrint;
        }

        if (!getDolGlobalString('MAIN_FIRSTNAME_NAME_POSITION')) {    // MAIN_FIRSTNAME_NAME_POSITION is 0 means firstname+lastname
            $sql .= " ORDER BY u.statut DESC, u.firstname ASC, u.lastname ASC";
        } else {
            $sql .= " ORDER BY u.statut DESC, u.lastname ASC, u.firstname ASC";
        }

        dol_syslog(get_only_class($this) . "::select_dolusers", LOG_DEBUG);

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
            if ($num) {
                // do not use maxwidthonsmartphone by default. Set it by caller so auto size to 100% will work when not defined
                $out .= '<select class="flat' . ($morecss ? ' ' . $morecss : ' minwidth200') . '" id="' . $htmlname . '" name="' . $htmlname . ($multiple ? '[]' : '') . '" ' . ($multiple ? 'multiple' : '') . ' ' . ($disabled ? ' disabled' : '') . '>';
                if ($show_empty && !$multiple) {
                    $textforempty = ' ';
                    if (!empty($conf->use_javascript_ajax)) {
                        $textforempty = '&nbsp;'; // If we use ajaxcombo, we need &nbsp; here to avoid to have an empty element that is too small.
                    }
                    if (!is_numeric($show_empty)) {
                        $textforempty = $show_empty;
                    }
                    $out .= '<option class="optiongrey" value="' . ($show_empty < 0 ? $show_empty : -1) . '"' . ((empty($selected) || in_array(-1, $selected)) ? ' selected' : '') . '>' . $textforempty . '</option>' . "\n";
                }
                if ($show_every) {
                    $out .= '<option value="-2"' . ((in_array(-2, $selected)) ? ' selected' : '') . '>-- ' . $langs->trans("Everybody") . ' --</option>' . "\n";
                }

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

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

                    $userstatic->id = $obj->rowid;
                    $userstatic->lastname = $obj->lastname;
                    $userstatic->firstname = $obj->firstname;
                    $userstatic->photo = $obj->photo;
                    $userstatic->status = $obj->status;
                    $userstatic->entity = $obj->entity;
                    $userstatic->admin = $obj->admin;
                    $userstatic->gender = $obj->gender;

                    $disableline = '';
                    if (is_array($enableonly) && count($enableonly) && !in_array($obj->rowid, $enableonly)) {
                        $disableline = ($enableonlytext ? $enableonlytext : '1');
                    }

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

                    // $fullNameMode is 0=Lastname+Firstname (MAIN_FIRSTNAME_NAME_POSITION=1), 1=Firstname+Lastname (MAIN_FIRSTNAME_NAME_POSITION=0)
                    $fullNameMode = 0;
                    if (!getDolGlobalString('MAIN_FIRSTNAME_NAME_POSITION')) {
                        $fullNameMode = 1; //Firstname+lastname
                    }
                    $labeltoshow .= $userstatic->getFullName($langs, $fullNameMode, -1, $maxlength);
                    $labeltoshowhtml .= $userstatic->getFullName($langs, $fullNameMode, -1, $maxlength);
                    if (empty($obj->firstname) && empty($obj->lastname)) {
                        $labeltoshow .= $obj->login;
                        $labeltoshowhtml .= $obj->login;
                    }

                    // Complete name with a more info string like: ' (info1 - info2 - ...)'
                    $moreinfo = '';
                    $moreinfohtml = '';
                    if (getDolGlobalString('MAIN_SHOW_LOGIN')) {
                        $moreinfo .= ($moreinfo ? ' - ' : ' (');
                        $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(');
                        $moreinfo .= $obj->login;
                        $moreinfohtml .= $obj->login;
                    }
                    if ($showstatus >= 0) {
                        if ($obj->status == 1 && $showstatus == 1) {
                            $moreinfo .= ($moreinfo ? ' - ' : ' (') . $langs->trans('Enabled');
                            $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . $langs->trans('Enabled');
                        }
                        if ($obj->status == 0 && $showstatus == 1) {
                            $moreinfo .= ($moreinfo ? ' - ' : ' (') . $langs->trans('Disabled');
                            $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . $langs->trans('Disabled');
                        }
                    }
                    if ($showlabelofentity) {
                        if (empty($obj->entity)) {
                            $moreinfo .= ($moreinfo ? ' - ' : ' (') . $langs->trans("AllEntities");
                            $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . $langs->trans("AllEntities");
                        } else {
                            if ($obj->entity != $conf->entity) {
                                $moreinfo .= ($moreinfo ? ' - ' : ' (') . ($obj->label ? $obj->label : $langs->trans("EntityNameNotDefined"));
                                $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . ($obj->label ? $obj->label : $langs->trans("EntityNameNotDefined"));
                            }
                        }
                    }
                    $moreinfo .= (!empty($moreinfo) ? ')' : '');
                    $moreinfohtml .= (!empty($moreinfohtml) ? ')</span>' : '');
                    if (!empty($disableline) && $disableline != '1') {
                        // Add text from $enableonlytext parameter
                        $moreinfo .= ' - ' . $disableline;
                        $moreinfohtml .= ' - ' . $disableline;
                    }
                    $labeltoshow .= $moreinfo;
                    $labeltoshowhtml .= $moreinfohtml;

                    $out .= '<option value="' . $obj->rowid . '"';
                    if (!empty($disableline)) {
                        $out .= ' disabled';
                    }
                    if ((!empty($selected[0]) && is_object($selected[0])) ? $selected[0]->id == $obj->rowid : in_array($obj->rowid, $selected)) {
                        $out .= ' selected';
                    }
                    $out .= ' data-html="';

                    $outhtml = $userstatic->getNomUrl(-3, '', 0, 1, 24, 1, 'login', '', 1) . ' ';
                    if ($showstatus >= 0 && $obj->status == 0) {
                        $outhtml .= '<strike class="opacitymediumxxx">';
                    }
                    $outhtml .= $labeltoshowhtml;
                    if ($showstatus >= 0 && $obj->status == 0) {
                        $outhtml .= '</strike>';
                    }
                    $labeltoshowhtml = $outhtml;

                    $out .= dol_escape_htmltag($outhtml);
                    $out .= '">';
                    $out .= $labeltoshow;
                    $out .= '</option>';

                    $outarray[$userstatic->id] = $userstatic->getFullName($langs, $fullNameMode, -1, $maxlength) . $moreinfo;
                    $outarray2[$userstatic->id] = array(
                        'id' => $userstatic->id,
                        'label' => $labeltoshow,
                        'labelhtml' => $labeltoshowhtml,
                        'color' => '',
                        'picto' => ''
                    );

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

            if ($num && !$forcecombo) {
                // Enhance with select2
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname);
            }
        } else {
            dol_print_error($this->db);
        }

        $this->num = $num;

        if ($outputmode == 2) {
            return $outarray2;
        } elseif ($outputmode) {
            return $outarray;
        }

        return $out;
    }

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

    /**
     * Return select list of users. Selected users are stored into session.
     * List of users are provided into $_SESSION['assignedtouser'].
     *
     * @param string $action Value for $action
     * @param string $htmlname Field name in form
     * @param int<0,1> $show_empty 0=list without the empty value, 1=add empty value
     * @param int[] $exclude Array list of users id to exclude
     * @param int<0,1> $disabled If select list must be disabled
     * @param int[]|string $include Array list of users id to include or 'hierarchy' to have only supervised users
     * @param int[]|int $enableonly Array list of users id to be enabled. All other must be disabled
     * @param string $force_entity '0' or Ids of environment to force
     * @param int $maxlength Maximum length of string into list (0=no limit)
     * @param int<0,1> $showstatus 0=show user status only if status is disabled, 1=always show user status into label, -1=never show user status
     * @param string $morefilter Add more filters into sql request
     * @param int $showproperties Show properties of each attendees
     * @param int[] $listofuserid Array with properties of each user
     * @param int[] $listofcontactid Array with properties of each contact
     * @param int[] $listofotherid Array with properties of each other contact
     * @return    string                    HTML select string
     * @see select_dolgroups()
     */
    public function select_dolusers_forevent($action = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = array(), $enableonly = array(), $force_entity = '0', $maxlength = 0, $showstatus = 0, $morefilter = '', $showproperties = 0, $listofuserid = array(), $listofcontactid = array(), $listofotherid = array())
    {
        // phpcs:enable
        global $langs;

        $userstatic = new User($this->db);
        $out = '';

        if (!empty($_SESSION['assignedtouser'])) {
            $assignedtouser = json_decode($_SESSION['assignedtouser'], true);
            if (!is_array($assignedtouser)) {
                $assignedtouser = array();
            }
        } else {
            $assignedtouser = array();
        }
        $nbassignetouser = count($assignedtouser);

        //if ($nbassignetouser && $action != 'view') $out .= '<br>';
        if ($nbassignetouser) {
            $out .= '<ul class="attendees">';
        }
        $i = 0;
        $ownerid = 0;
        foreach ($assignedtouser as $key => $value) {
            if ($value['id'] == $ownerid) {
                continue;
            }

            $out .= '<li>';
            $userstatic->fetch($value['id']);
            $out .= $userstatic->getNomUrl(-1);
            if ($i == 0) {
                $ownerid = $value['id'];
                $out .= ' (' . $langs->trans("Owner") . ')';
            }
            if ($nbassignetouser > 1 && $action != 'view') {
                $out .= ' <input type="image" style="border: 0px;" src="' . img_picto($langs->trans("Remove"), 'delete', '', 0, 1) . '" value="' . $userstatic->id . '" class="removedassigned reposition" id="removedassigned_' . $userstatic->id . '" name="removedassigned_' . $userstatic->id . '">';
            }
            // Show my availability
            if ($showproperties) {
                if ($ownerid == $value['id'] && is_array($listofuserid) && count($listofuserid) && in_array($ownerid, array_keys($listofuserid))) {
                    $out .= '<div class="myavailability inline-block">';
                    $out .= '<span class="hideonsmartphone">&nbsp;-&nbsp;<span class="opacitymedium">' . $langs->trans("Availability") . ':</span>  </span><input id="transparency" class="paddingrightonly" ' . ($action == 'view' ? 'disabled' : '') . ' type="checkbox" name="transparency"' . ($listofuserid[$ownerid]['transparency'] ? ' checked' : '') . '><label for="transparency">' . $langs->trans("Busy") . '</label>';
                    $out .= '</div>';
                }
            }
            //$out.=' '.($value['mandatory']?$langs->trans("Mandatory"):$langs->trans("Optional"));
            //$out.=' '.($value['transparency']?$langs->trans("Busy"):$langs->trans("NotBusy"));

            $out .= '</li>';
            $i++;
        }
        if ($nbassignetouser) {
            $out .= '</ul>';
        }

        // Method with no ajax
        if ($action != 'view') {
            $out .= '<input type="hidden" class="removedassignedhidden" name="removedassigned" value="">';
            $out .= '<script nonce="' . getNonce() . '" type="text/javascript">jQuery(document).ready(function () {';
            $out .= 'jQuery(".removedassigned").click(function() { jQuery(".removedassignedhidden").val(jQuery(this).val()); });';
            $out .= 'jQuery(".assignedtouser").change(function() { console.log(jQuery(".assignedtouser option:selected").val());';
            $out .= ' if (jQuery(".assignedtouser option:selected").val() > 0) { jQuery("#' . $action . 'assignedtouser").attr("disabled", false); }';
            $out .= ' else { jQuery("#' . $action . 'assignedtouser").attr("disabled", true); }';
            $out .= '});';
            $out .= '})</script>';
            $out .= $this->select_dolusers('', $htmlname, $show_empty, $exclude, $disabled, $include, $enableonly, $force_entity, $maxlength, $showstatus, $morefilter);
            $out .= ' <input type="submit" disabled class="button valignmiddle smallpaddingimp reposition" id="' . $action . 'assignedtouser" name="' . $action . 'assignedtouser" value="' . dol_escape_htmltag($langs->trans("Add")) . '">';
            $out .= '<br>';
        }

        return $out;
    }

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

    /**
     * Return select list of resources. Selected resources are stored into session.
     * List of resources are provided into $_SESSION['assignedtoresource'].
     *
     * @param string $action Value for $action
     * @param string $htmlname Field name in form
     * @param int $show_empty 0=list without the empty value, 1=add empty value
     * @param int[] $exclude Array list of users id to exclude
     * @param int<0,1> $disabled If select list must be disabled
     * @param int[]|string $include Array list of users id to include or 'hierarchy' to have only supervised users
     * @param int[] $enableonly Array list of users id to be enabled. All other must be disabled
     * @param string $force_entity '0' or Ids of environment to force
     * @param int $maxlength Maximum length of string into list (0=no limit)
     * @param int<-1,1> $showstatus 0=show user status only if status is disabled, 1=always show user status into label, -1=never show user status
     * @param string $morefilter Add more filters into sql request
     * @param int $showproperties Show properties of each attendees
     * @param array<int,array{transparency:bool|int<0,1>}> $listofresourceid Array with properties of each resource

     * @return    string                    HTML select string
     */
    public function select_dolresources_forevent($action = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = array(), $enableonly = array(), $force_entity = '0', $maxlength = 0, $showstatus = 0, $morefilter = '', $showproperties = 0, $listofresourceid = array())
    {
        // phpcs:enable
        global $langs;

        $formresources = new FormResource($this->db);
        $resourcestatic = new Dolresource($this->db);

        $out = '';
        if (!empty($_SESSION['assignedtoresource'])) {
            $assignedtoresource = json_decode($_SESSION['assignedtoresource'], true);
            if (!is_array($assignedtoresource)) {
                $assignedtoresource = array();
            }
        } else {
            $assignedtoresource = array();
        }
        $nbassignetoresource = count($assignedtoresource);

        //if ($nbassignetoresource && $action != 'view') $out .= '<br>';
        if ($nbassignetoresource) {
            $out .= '<ul class="attendees">';
        }
        $i = 0;

        foreach ($assignedtoresource as $key => $value) {
            $out .= '<li>';
            $resourcestatic->fetch($value['id']);
            $out .= $resourcestatic->getNomUrl(-1);
            if ($nbassignetoresource > 1 && $action != 'view') {
                $out .= ' <input type="image" style="border: 0px;" src="' . img_picto($langs->trans("Remove"), 'delete', '', 0, 1) . '" value="' . $resourcestatic->id . '" class="removedassigned reposition" id="removedassignedresource_' . $resourcestatic->id . '" name="removedassignedresource_' . $resourcestatic->id . '">';
            }
            // Show my availability
            if ($showproperties) {
                if (is_array($listofresourceid) && count($listofresourceid)) {
                    $out .= '<div class="myavailability inline-block">';
                    $out .= '<span class="hideonsmartphone">&nbsp;-&nbsp;<span class="opacitymedium">' . $langs->trans("Availability") . ':</span>  </span><input id="transparencyresource" class="paddingrightonly" ' . ($action == 'view' ? 'disabled' : '') . ' type="checkbox" name="transparency"' . ($listofresourceid[$value['id']]['transparency'] ? ' checked' : '') . '><label for="transparency">' . $langs->trans("Busy") . '</label>';
                    $out .= '</div>';
                }
            }
            //$out.=' '.($value['mandatory']?$langs->trans("Mandatory"):$langs->trans("Optional"));
            //$out.=' '.($value['transparency']?$langs->trans("Busy"):$langs->trans("NotBusy"));

            $out .= '</li>';
            $i++;
        }
        if ($nbassignetoresource) {
            $out .= '</ul>';
        }

        // Method with no ajax
        if ($action != 'view') {
            $out .= '<input type="hidden" class="removedassignedhidden" name="removedassignedresource" value="">';
            $out .= '<script nonce="' . getNonce() . '" type="text/javascript">jQuery(document).ready(function () {';
            $out .= 'jQuery(".removedassignedresource").click(function() { jQuery(".removedassignedresourcehidden").val(jQuery(this).val()); });';
            $out .= 'jQuery(".assignedtoresource").change(function() { console.log(jQuery(".assignedtoresource option:selected").val());';
            $out .= ' if (jQuery(".assignedtoresource option:selected").val() > 0) { jQuery("#' . $action . 'assignedtoresource").attr("disabled", false); }';
            $out .= ' else { jQuery("#' . $action . 'assignedtoresource").attr("disabled", true); }';
            $out .= '});';
            $out .= '})</script>';

            $events = array();
            $out .= img_picto('', 'resource', 'class="pictofixedwidth"');
            $out .= $formresources->select_resource_list(0, $htmlname, [], 1, 1, 0, $events, array(), 2, 0);
            //$out .= $this->select_dolusers('', $htmlname, $show_empty, $exclude, $disabled, $include, $enableonly, $force_entity, $maxlength, $showstatus, $morefilter);
            $out .= ' <input type="submit" disabled class="button valignmiddle smallpaddingimp reposition" id="' . $action . 'assignedtoresource" name="' . $action . 'assignedtoresource" value="' . dol_escape_htmltag($langs->trans("Add")) . '">';
            $out .= '<br>';
        }

        return $out;
    }

    /**
     *  Return list of products for customer.
     *  Use Ajax if Ajax activated or go to select_produits_list
     *
     * @param int $selected Preselected products
     * @param string $htmlname Name of HTML select field (must be unique in page).
     * @param int|string $filtertype Filter on product type (''=nofilter, 0=product, 1=service)
     * @param int $limit Limit on number of returned lines
     * @param int $price_level Level of price to show
     * @param int $status Sell status: -1=No filter on sell status, 0=Products not on sell, 1=Products on sell
     * @param int $finished 2=all, 1=finished, 0=raw material
     * @param string $selected_input_value Value of preselected input text (for use with ajax)
     * @param int $hidelabel Hide label (0=no, 1=yes, 2=show search icon (before) and placeholder, 3 search icon after)
     * @param array<string,string|string[]> $ajaxoptions Options for ajax_autocompleter
     * @param int $socid Thirdparty Id (to get also price dedicated to this customer)
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @param int<0,1> $hidepriceinlabel 1=Hide prices in label
     * @param string $warehouseStatus Warehouse status filter to count the quantity in stock. Following comma separated filter options can be used
     *                                                  'warehouseopen' = count products from open warehouses,
     *                                                  'warehouseclosed' = count products from closed warehouses,
     *                                                  'warehouseinternal' = count products from warehouses for internal correct/transfer only
     * @param      ?mixed[] $selected_combinations Selected combinations. Format: array([attrid] => attrval, [...])
     * @param int<0,1> $nooutput No print if 1, return the output into a string
     * @param int<-1,1> $status_purchase Purchase status: -1=No filter on purchase status, 0=Products not on purchase, 1=Products on purchase
     * @return     void|string
     */
    public function select_produits($selected = 0, $htmlname = 'productid', $filtertype = '', $limit = 0, $price_level = 0, $status = 1, $finished = 2, $selected_input_value = '', $hidelabel = 0, $ajaxoptions = array(), $socid = 0, $showempty = '1', $forcecombo = 0, $morecss = '', $hidepriceinlabel = 0, $warehouseStatus = '', $selected_combinations = null, $nooutput = 0, $status_purchase = -1)
    {
        // phpcs:enable
        global $langs, $conf;

        $out = '';

        // check parameters
        $price_level = (!empty($price_level) ? $price_level : 0);
        if (is_null($ajaxoptions)) {
            $ajaxoptions = array();
        }

        if (strval($filtertype) === '' && (isModEnabled("product") || isModEnabled("service"))) {
            if (isModEnabled("product") && !isModEnabled('service')) {
                $filtertype = '0';
            } elseif (!isModEnabled('product') && isModEnabled("service")) {
                $filtertype = '1';
            }
        }

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

            if ($selected && empty($selected_input_value)) {
                $producttmpselect = new Product($this->db);
                $producttmpselect->fetch($selected);
                $selected_input_value = $producttmpselect->ref;
                unset($producttmpselect);
            }
            // handle case where product or service module is disabled + no filter specified
            if ($filtertype == '') {
                if (!isModEnabled('product')) { // when product module is disabled, show services only
                    $filtertype = 1;
                } elseif (!isModEnabled('service')) { // when service module is disabled, show products only
                    $filtertype = 0;
                }
            }
            // mode=1 means customers products
            $urloption = ($socid > 0 ? 'socid=' . $socid . '&' : '') . 'htmlname=' . $htmlname . '&outjson=1&price_level=' . $price_level . '&type=' . $filtertype . '&mode=1&status=' . $status . '&status_purchase=' . $status_purchase . '&finished=' . $finished . '&hidepriceinlabel=' . $hidepriceinlabel . '&warehousestatus=' . $warehouseStatus;
            $out .= ajax_autocompleter($selected, $htmlname, constant('BASE_URL') . '/product/ajax/products.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 1, $ajaxoptions);

            if (isModEnabled('variants') && is_array($selected_combinations)) {
                // Code to automatically insert with javascript the select of attributes under the select of product
                // when a parent of variant has been selected.
                $out .= '
				<!-- script to auto show attributes select tags if a variant was selected -->
				<script nonce="' . getNonce() . '">
					// auto show attributes fields
					selected = ' . json_encode($selected_combinations) . ';
					combvalues = {};

					jQuery(document).ready(function () {

						jQuery("input[name=\'prod_entry_mode\']").change(function () {
							if (jQuery(this).val() == \'free\') {
								jQuery(\'div#attributes_box\').empty();
							}
						});

						jQuery("input#' . $htmlname . '").change(function () {

							if (!jQuery(this).val()) {
								jQuery(\'div#attributes_box\').empty();
								return;
							}

							console.log("A change has started. We get variants fields to inject html select");

							jQuery.getJSON("' . constant('BASE_URL') . '/variants/ajax/getCombinations.php", {
								id: jQuery(this).val()
							}, function (data) {
								jQuery(\'div#attributes_box\').empty();

								jQuery.each(data, function (key, val) {

									combvalues[val.id] = val.values;

									var span = jQuery(document.createElement(\'div\')).css({
										\'display\': \'table-row\'
									});

									span.append(
										jQuery(document.createElement(\'div\')).text(val.label).css({
											\'font-weight\': \'bold\',
											\'display\': \'table-cell\'
										})
									);

									var html = jQuery(document.createElement(\'select\')).attr(\'name\', \'combinations[\' + val.id + \']\').css({
										\'margin-left\': \'15px\',
										\'white-space\': \'pre\'
									}).append(
										jQuery(document.createElement(\'option\')).val(\'\')
									);

									jQuery.each(combvalues[val.id], function (key, val) {
										var tag = jQuery(document.createElement(\'option\')).val(val.id).html(val.value);

										if (selected[val.fk_product_attribute] == val.id) {
											tag.attr(\'selected\', \'selected\');
										}

										html.append(tag);
									});

									span.append(html);
									jQuery(\'div#attributes_box\').append(span);
								});
							})
						});

						' . ($selected ? 'jQuery("input#' . $htmlname . '").change();' : '') . '
					});
				</script>
                ';
            }

            if (empty($hidelabel)) {
                $out .= $langs->trans("RefOrLabel") . ' : ';
            } elseif ($hidelabel > 1) {
                $placeholder = ' placeholder="' . $langs->trans("RefOrLabel") . '"';
                if ($hidelabel == 2) {
                    $out .= img_picto($langs->trans("Search"), 'search');
                }
            }
            $out .= '<input type="text" class="minwidth100' . ($morecss ? ' ' . $morecss : '') . '" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . $placeholder . ' ' . (getDolGlobalString('PRODUCT_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';
            if ($hidelabel == 3) {
                $out .= img_picto($langs->trans("Search"), 'search');
            }
        } else {
            $out .= $this->select_produits_list($selected, $htmlname, $filtertype, $limit, $price_level, '', $status, $finished, 0, $socid, $showempty, $forcecombo, $morecss, $hidepriceinlabel, $warehouseStatus, $status_purchase);
        }

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

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

    /**
     * Return list of products for a customer.
     * Called by select_produits.
     *
     * @param int $selected Preselected product
     * @param string $htmlname Name of select html
     * @param string $filtertype Filter on product type (''=nofilter, 0=product, 1=service)
     * @param int $limit Limit on number of returned lines
     * @param int $price_level Level of price to show
     * @param string $filterkey Filter on product
     * @param int $status -1=Return all products, 0=Products not on sell, 1=Products on sell
     * @param int $finished Filter on finished field: 2=No filter
     * @param int $outputmode 0=HTML select string, 1=Array
     * @param int $socid Thirdparty Id (to get also price dedicated to this customer)
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @param int $hidepriceinlabel 1=Hide prices in label
     * @param string $warehouseStatus Warehouse status filter to group/count stock. Following comma separated filter options can be used.
     *                                              'warehouseopen' = count products from open warehouses,
     *                                              'warehouseclosed' = count products from closed warehouses,
     *                                              'warehouseinternal' = count products from warehouses for internal correct/transfer only
     * @param int $status_purchase Purchase status -1=Return all products, 0=Products not on purchase, 1=Products on purchase
     * @return  array|string                        Array of keys for json
     */
    public function select_produits_list($selected = 0, $htmlname = 'productid', $filtertype = '', $limit = 20, $price_level = 0, $filterkey = '', $status = 1, $finished = 2, $outputmode = 0, $socid = 0, $showempty = '1', $forcecombo = 0, $morecss = 'maxwidth500', $hidepriceinlabel = 0, $warehouseStatus = '', $status_purchase = -1)
    {
        // phpcs:enable
        global $langs;
        global $hookmanager;

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

        // Units
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
            $langs->load('other');
        }

        $warehouseStatusArray = array();
        if (!empty($warehouseStatus)) {
            if (preg_match('/warehouseclosed/', $warehouseStatus)) {
                $warehouseStatusArray[] = Entrepot::STATUS_CLOSED;
            }
            if (preg_match('/warehouseopen/', $warehouseStatus)) {
                $warehouseStatusArray[] = Entrepot::STATUS_OPEN_ALL;
            }
            if (preg_match('/warehouseinternal/', $warehouseStatus)) {
                $warehouseStatusArray[] = Entrepot::STATUS_OPEN_INTERNAL;
            }
        }

        $selectFields = " p.rowid, p.ref, p.label, p.description, p.barcode, p.fk_country, p.fk_product_type, p.price, p.price_ttc, p.price_base_type, p.tva_tx, p.default_vat_code, p.duration, p.fk_price_expression";
        if (count($warehouseStatusArray)) {
            $selectFieldsGrouped = ", sum(" . $this->db->ifsql("e.statut IS NULL", "0", "ps.reel") . ") as stock"; // e.statut is null if there is no record in stock
        } else {
            $selectFieldsGrouped = ", " . $this->db->ifsql("p.stock IS NULL", 0, "p.stock") . " AS stock";
        }

        $sql = "SELECT ";

        // Add select from hooks
        $parameters = array();
        $reshook = $hookmanager->executeHooks('selectProductsListSelect', $parameters); // Note that $action and $object may have been modified by hook
        if (empty($reshook)) {
            $sql .= $selectFields . $selectFieldsGrouped . $hookmanager->resPrint;
        } else {
            $sql .= $hookmanager->resPrint;
        }

        if (getDolGlobalString('PRODUCT_SORT_BY_CATEGORY')) {
            //Product category
            $sql .= ", (SELECT " . $this->db->prefix() . "categorie_product.fk_categorie
						FROM " . $this->db->prefix() . "categorie_product
						WHERE " . $this->db->prefix() . "categorie_product.fk_product=p.rowid
						LIMIT 1
				) AS categorie_product_id ";
        }

        //Price by customer
        if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') && !empty($socid)) {
            $sql .= ', pcp.rowid as idprodcustprice, pcp.price as custprice, pcp.price_ttc as custprice_ttc,';
            $sql .= ' pcp.price_base_type as custprice_base_type, pcp.tva_tx as custtva_tx, pcp.default_vat_code as custdefault_vat_code, pcp.ref_customer as custref';
            $selectFields .= ", idprodcustprice, custprice, custprice_ttc, custprice_base_type, custtva_tx, custdefault_vat_code, custref";
        }
        // Units
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
            $sql .= ", u.label as unit_long, u.short_label as unit_short, p.weight, p.weight_units, p.length, p.length_units, p.width, p.width_units, p.height, p.height_units, p.surface, p.surface_units, p.volume, p.volume_units";
            $selectFields .= ', unit_long, unit_short, p.weight, p.weight_units, p.length, p.length_units, p.width, p.width_units, p.height, p.height_units, p.surface, p.surface_units, p.volume, p.volume_units';
        }

        // Multilang : we add translation
        if (getDolGlobalInt('MAIN_MULTILANGS')) {
            $sql .= ", pl.label as label_translated";
            $sql .= ", pl.description as description_translated";
            $selectFields .= ", label_translated";
            $selectFields .= ", description_translated";
        }
        // Price by quantity
        if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) {
            $sql .= ", (SELECT pp.rowid FROM " . $this->db->prefix() . "product_price as pp WHERE pp.fk_product = p.rowid";
            if ($price_level >= 1 && getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) {
                $sql .= " AND price_level = " . ((int)$price_level);
            }
            $sql .= " ORDER BY date_price";
            $sql .= " DESC LIMIT 1) as price_rowid";
            $sql .= ", (SELECT pp.price_by_qty FROM " . $this->db->prefix() . "product_price as pp WHERE pp.fk_product = p.rowid"; // price_by_qty is 1 if some prices by qty exists in subtable
            if ($price_level >= 1 && getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) {
                $sql .= " AND price_level = " . ((int)$price_level);
            }
            $sql .= " ORDER BY date_price";
            $sql .= " DESC LIMIT 1) as price_by_qty";
            $selectFields .= ", price_rowid, price_by_qty";
        }

        $sql .= " FROM " . $this->db->prefix() . "product as p";

        if (getDolGlobalString('MAIN_SEARCH_PRODUCT_FORCE_INDEX')) {
            $sql .= " USE INDEX (" . $this->db->sanitize(getDolGlobalString('MAIN_PRODUCT_FORCE_INDEX')) . ")";
        }

        // Add from (left join) from hooks
        $parameters = array();
        $reshook = $hookmanager->executeHooks('selectProductsListFrom', $parameters); // Note that $action and $object may have been modified by hook
        $sql .= $hookmanager->resPrint;

        if (count($warehouseStatusArray)) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "product_stock as ps on ps.fk_product = p.rowid";
            $sql .= " LEFT JOIN " . $this->db->prefix() . "entrepot as e on ps.fk_entrepot = e.rowid AND e.entity IN (" . getEntity('stock') . ")";
            $sql .= ' AND e.statut IN (' . $this->db->sanitize($this->db->escape(implode(',', $warehouseStatusArray))) . ')'; // Return line if product is inside the selected stock. If not, an empty line will be returned so we will count 0.
        }

        // include search in supplier ref
        if (getDolGlobalString('MAIN_SEARCH_PRODUCT_BY_FOURN_REF')) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
        }

        //Price by customer
        if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') && !empty($socid)) {
            $sql .= " LEFT JOIN  " . $this->db->prefix() . "product_customer_price as pcp ON pcp.fk_soc=" . ((int)$socid) . " AND pcp.fk_product=p.rowid";
        }
        // Units
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "c_units u ON u.rowid = p.fk_unit";
        }
        // Multilang : we add translation
        if (getDolGlobalInt('MAIN_MULTILANGS')) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "product_lang as pl ON pl.fk_product = p.rowid ";
            if (getDolGlobalString('PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE') && !empty($socid)) {
                $soc = new Societe($this->db);
                $result = $soc->fetch($socid);
                if ($result > 0 && !empty($soc->default_lang)) {
                    $sql .= " AND pl.lang = '" . $this->db->escape($soc->default_lang) . "'";
                } else {
                    $sql .= " AND pl.lang = '" . $this->db->escape($langs->getDefaultLang()) . "'";
                }
            } else {
                $sql .= " AND pl.lang = '" . $this->db->escape($langs->getDefaultLang()) . "'";
            }
        }

        if (getDolGlobalString('PRODUIT_ATTRIBUTES_HIDECHILD')) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "product_attribute_combination pac ON pac.fk_product_child = p.rowid";
        }

        $sql .= ' WHERE p.entity IN (' . getEntity('product') . ')';

        if (getDolGlobalString('PRODUIT_ATTRIBUTES_HIDECHILD')) {
            $sql .= " AND pac.rowid IS NULL";
        }

        if ($finished == 0) {
            $sql .= " AND p.finished = " . ((int)$finished);
        } elseif ($finished == 1) {
            $sql .= " AND p.finished = " . ((int)$finished);
        }
        if ($status >= 0) {
            $sql .= " AND p.tosell = " . ((int)$status);
        }
        if ($status_purchase >= 0) {
            $sql .= " AND p.tobuy = " . ((int)$status_purchase);
        }
        // Filter by product type
        if (strval($filtertype) != '') {
            $sql .= " AND p.fk_product_type = " . ((int)$filtertype);
        } elseif (!isModEnabled('product')) { // when product module is disabled, show services only
            $sql .= " AND p.fk_product_type = 1";
        } elseif (!isModEnabled('service')) { // when service module is disabled, show products only
            $sql .= " AND p.fk_product_type = 0";
        }
        // Add where from hooks
        $parameters = array();
        $reshook = $hookmanager->executeHooks('selectProductsListWhere', $parameters); // Note that $action and $object may have been modified by hook
        $sql .= $hookmanager->resPrint;
        // Add criteria on ref/label
        if ($filterkey != '') {
            $sql .= ' AND (';
            $prefix = !getDolGlobalString('PRODUCT_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
            // For natural search
            $search_crit = explode(' ', $filterkey);
            $i = 0;
            if (count($search_crit) > 1) {
                $sql .= "(";
            }
            foreach ($search_crit as $crit) {
                if ($i > 0) {
                    $sql .= " AND ";
                }
                $sql .= "(p.ref LIKE '" . $this->db->escape($prefix . $crit) . "%' OR p.label LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                if (getDolGlobalInt('MAIN_MULTILANGS')) {
                    $sql .= " OR pl.label LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                }
                if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') && !empty($socid)) {
                    $sql .= " OR pcp.ref_customer LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                }
                if (getDolGlobalString('PRODUCT_AJAX_SEARCH_ON_DESCRIPTION')) {
                    $sql .= " OR p.description LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                    if (getDolGlobalInt('MAIN_MULTILANGS')) {
                        $sql .= " OR pl.description LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                    }
                }
                if (getDolGlobalString('MAIN_SEARCH_PRODUCT_BY_FOURN_REF')) {
                    $sql .= " OR pfp.ref_fourn LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                }
                $sql .= ")";
                $i++;
            }
            if (count($search_crit) > 1) {
                $sql .= ")";
            }
            if (isModEnabled('barcode')) {
                $sql .= " OR p.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
            }
            $sql .= ')';
        }
        if (count($warehouseStatusArray)) {
            $sql .= " GROUP BY " . $selectFields;
        }

        //Sort by category
        if (getDolGlobalString('PRODUCT_SORT_BY_CATEGORY')) {
            $sql .= " ORDER BY categorie_product_id ";
            //ASC OR DESC order
            (getDolGlobalInt('PRODUCT_SORT_BY_CATEGORY') == 1) ? $sql .= "ASC" : $sql .= "DESC";
        } else {
            $sql .= $this->db->order("p.ref");
        }

        $sql .= $this->db->plimit($limit, 0);

        // Build output string
        dol_syslog(get_only_class($this) . "::select_produits_list search products", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/product.lib.php';

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

            $events = array();

            if (!$forcecombo) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname, $events, getDolGlobalInt("PRODUIT_USE_SEARCH_TO_SELECT"));
            }

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

            $textifempty = '';
            // Do not use textifempty = ' ' or '&nbsp;' here, or search on key will search on ' key'.
            //if (!empty($conf->use_javascript_ajax) || $forcecombo) $textifempty='';
            if (getDolGlobalString('PRODUIT_USE_SEARCH_TO_SELECT')) {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                } else {
                    $textifempty .= $langs->trans("All");
                }
            } else {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                }
            }
            if ($showempty) {
                $out .= '<option value="-1" selected>' . ($textifempty ? $textifempty : '&nbsp;') . '</option>';
            }

            $i = 0;
            while ($num && $i < $num) {
                $opt = '';
                $optJson = array();
                $objp = $this->db->fetch_object($result);

                if ((getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) && !empty($objp->price_by_qty) && $objp->price_by_qty == 1) { // Price by quantity will return many prices for the same product
                    $sql = "SELECT rowid, quantity, price, unitprice, remise_percent, remise, price_base_type";
                    $sql .= " FROM " . $this->db->prefix() . "product_price_by_qty";
                    $sql .= " WHERE fk_product_price = " . ((int)$objp->price_rowid);
                    $sql .= " ORDER BY quantity ASC";

                    dol_syslog(get_only_class($this) . "::select_produits_list search prices by qty", LOG_DEBUG);
                    $result2 = $this->db->query($sql);
                    if ($result2) {
                        $nb_prices = $this->db->num_rows($result2);
                        $j = 0;
                        while ($nb_prices && $j < $nb_prices) {
                            $objp2 = $this->db->fetch_object($result2);

                            $objp->price_by_qty_rowid = $objp2->rowid;
                            $objp->price_by_qty_price_base_type = $objp2->price_base_type;
                            $objp->price_by_qty_quantity = $objp2->quantity;
                            $objp->price_by_qty_unitprice = $objp2->unitprice;
                            $objp->price_by_qty_remise_percent = $objp2->remise_percent;
                            // For backward compatibility
                            $objp->quantity = $objp2->quantity;
                            $objp->price = $objp2->price;
                            $objp->unitprice = $objp2->unitprice;
                            $objp->remise_percent = $objp2->remise_percent;

                            //$objp->tva_tx is not overwritten by $objp2 value
                            //$objp->default_vat_code is not overwritten by $objp2 value

                            $this->constructProductListOption($objp, $opt, $optJson, 0, $selected, $hidepriceinlabel, $filterkey);

                            $j++;

                            // Add new entry
                            // "key" value of json key array is used by jQuery automatically as selected value
                            // "label" value of json key array is used by jQuery automatically as text for combo box
                            $out .= $opt;
                            array_push($outarray, $optJson);
                        }
                    }
                } else {
                    if (isModEnabled('dynamicprices') && !empty($objp->fk_price_expression)) {
                        $price_product = new Product($this->db);
                        $price_product->fetch($objp->rowid, '', '', 1);

                        $priceparser = new PriceParser($this->db);
                        $price_result = $priceparser->parseProduct($price_product);
                        if ($price_result >= 0) {
                            $objp->price = $price_result;
                            $objp->unitprice = $price_result;
                            //Calculate the VAT
                            $objp->price_ttc = (float)price2num($objp->price) * (1 + ($objp->tva_tx / 100));
                            $objp->price_ttc = price2num($objp->price_ttc, 'MU');
                        }
                    }

                    $this->constructProductListOption($objp, $opt, $optJson, $price_level, $selected, $hidepriceinlabel, $filterkey);
                    // Add new entry
                    // "key" value of json key array is used by jQuery automatically as selected value
                    // "label" value of json key array is used by jQuery automatically as text for combo box
                    $out .= $opt;
                    array_push($outarray, $optJson);
                }

                $i++;
            }

            $out .= '</select>';

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

            if (empty($outputmode)) {
                return $out;
            }

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

        return '';
    }

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

    /**
     * Function to forge the string with OPTIONs of SELECT.
     * This define value for &$opt and &$optJson.
     * This function is called by select_produits_list().
     *
     * @param stdClass $objp Resultset of fetch
     * @param string $opt Option (var used for returned value in string option format)
     * @param array{key:string,value:string,label:string,label2:string,desc:string,type:string,price_ht:string,price_ttc:string,price_ht_locale:string,price_ttc_locale:string,pricebasetype:string,tva_tx:string,default_vat_code:string,qty:string,discount:string,duration_value:string,duration_unit:string,pbq:string,labeltrans:string,desctrans:string,ref_customer:string} $optJson Option (var used for returned value in json format)
     * @param int $price_level Price level
     * @param int $selected Preselected value
     * @param int<0,1> $hidepriceinlabel Hide price in label
     * @param string $filterkey Filter key to highlight
     * @param int<0,1> $novirtualstock Do not load virtual stock, even if slow option STOCK_SHOW_VIRTUAL_STOCK_IN_PRODUCTS_COMBO is on.
     * @return    void
     */
    protected function constructProductListOption(&$objp, &$opt, &$optJson, $price_level, $selected, $hidepriceinlabel = 0, $filterkey = '', $novirtualstock = 0)
    {
        global $langs, $conf, $user;
        global $hookmanager;

        $outkey = '';
        $outval = '';
        $outref = '';
        $outlabel = '';
        $outlabel_translated = '';
        $outdesc = '';
        $outdesc_translated = '';
        $outbarcode = '';
        $outorigin = '';
        $outtype = '';
        $outprice_ht = '';
        $outprice_ttc = '';
        $outpricebasetype = '';
        $outtva_tx = '';
        $outdefault_vat_code = '';
        $outqty = 1;
        $outdiscount = 0;

        $maxlengtharticle = (!getDolGlobalString('PRODUCT_MAX_LENGTH_COMBO') ? 48 : $conf->global->PRODUCT_MAX_LENGTH_COMBO);

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

        $outkey = $objp->rowid;
        $outref = $objp->ref;
        $outrefcust = empty($objp->custref) ? '' : $objp->custref;
        $outlabel = $objp->label;
        $outdesc = $objp->description;
        if (getDolGlobalInt('MAIN_MULTILANGS')) {
            $outlabel_translated = $objp->label_translated;
            $outdesc_translated = $objp->description_translated;
        }
        $outbarcode = $objp->barcode;
        $outorigin = $objp->fk_country;
        $outpbq = empty($objp->price_by_qty_rowid) ? '' : $objp->price_by_qty_rowid;

        $outtype = $objp->fk_product_type;
        $outdurationvalue = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, 0, dol_strlen($objp->duration) - 1) : '';
        $outdurationunit = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, -1) : '';

        if ($outorigin && getDolGlobalString('PRODUCT_SHOW_ORIGIN_IN_COMBO')) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/company.lib.php';
        }

        // Units
        $outvalUnits = '';
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
            if (!empty($objp->unit_short)) {
                $outvalUnits .= ' - ' . $objp->unit_short;
            }
        }
        if (getDolGlobalString('PRODUCT_SHOW_DIMENSIONS_IN_COMBO')) {
            if (!empty($objp->weight) && $objp->weight_units !== null) {
                $unitToShow = showDimensionInBestUnit($objp->weight, $objp->weight_units, 'weight', $langs);
                $outvalUnits .= ' - ' . $unitToShow;
            }
            if ((!empty($objp->length) || !empty($objp->width) || !empty($objp->height)) && $objp->length_units !== null) {
                $unitToShow = $objp->length . ' x ' . $objp->width . ' x ' . $objp->height . ' ' . measuringUnitString(0, 'size', $objp->length_units);
                $outvalUnits .= ' - ' . $unitToShow;
            }
            if (!empty($objp->surface) && $objp->surface_units !== null) {
                $unitToShow = showDimensionInBestUnit($objp->surface, $objp->surface_units, 'surface', $langs);
                $outvalUnits .= ' - ' . $unitToShow;
            }
            if (!empty($objp->volume) && $objp->volume_units !== null) {
                $unitToShow = showDimensionInBestUnit($objp->volume, $objp->volume_units, 'volume', $langs);
                $outvalUnits .= ' - ' . $unitToShow;
            }
        }
        if ($outdurationvalue && $outdurationunit) {
            $da = array(
                'h' => $langs->trans('Hour'),
                'd' => $langs->trans('Day'),
                'w' => $langs->trans('Week'),
                'm' => $langs->trans('Month'),
                'y' => $langs->trans('Year')
            );
            if (isset($da[$outdurationunit])) {
                $outvalUnits .= ' - ' . $outdurationvalue . ' ' . $langs->transnoentities($da[$outdurationunit] . ($outdurationvalue > 1 ? 's' : ''));
            }
        }

        $opt = '<option value="' . $objp->rowid . '"';
        $opt .= ($objp->rowid == $selected) ? ' selected' : '';
        if (!empty($objp->price_by_qty_rowid) && $objp->price_by_qty_rowid > 0) {
            $opt .= ' pbq="' . $objp->price_by_qty_rowid . '" data-pbq="' . $objp->price_by_qty_rowid . '" data-pbqup="' . $objp->price_by_qty_unitprice . '" data-pbqbase="' . $objp->price_by_qty_price_base_type . '" data-pbqqty="' . $objp->price_by_qty_quantity . '" data-pbqpercent="' . $objp->price_by_qty_remise_percent . '"';
        }
        if (isModEnabled('stock') && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || getDolGlobalString('STOCK_SUPPORTS_SERVICES'))) {
            if ($user->hasRight('stock', 'lire')) {
                if ($objp->stock > 0) {
                    $opt .= ' class="product_line_stock_ok"';
                } elseif ($objp->stock <= 0) {
                    $opt .= ' class="product_line_stock_too_low"';
                }
            }
        }
        if (getDolGlobalString('PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE')) {
            $opt .= ' data-labeltrans="' . $outlabel_translated . '"';
            $opt .= ' data-desctrans="' . dol_escape_htmltag($outdesc_translated) . '"';
        }
        $opt .= '>';
        $opt .= $objp->ref;
        if (!empty($objp->custref)) {
            $opt .= ' (' . $objp->custref . ')';
        }
        if ($outbarcode) {
            $opt .= ' (' . $outbarcode . ')';
        }
        $opt .= ' - ' . dol_trunc($label, $maxlengtharticle);
        if ($outorigin && getDolGlobalString('PRODUCT_SHOW_ORIGIN_IN_COMBO')) {
            $opt .= ' (' . getCountry($outorigin, 1) . ')';
        }

        $objRef = $objp->ref;
        if (!empty($objp->custref)) {
            $objRef .= ' (' . $objp->custref . ')';
        }
        if (!empty($filterkey) && $filterkey != '') {
            $objRef = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $objRef, 1);
        }
        $outval .= $objRef;
        if ($outbarcode) {
            $outval .= ' (' . $outbarcode . ')';
        }
        $outval .= ' - ' . dol_trunc($label, $maxlengtharticle);
        if ($outorigin && getDolGlobalString('PRODUCT_SHOW_ORIGIN_IN_COMBO')) {
            $outval .= ' (' . getCountry($outorigin, 1) . ')';
        }

        // Units
        $opt .= $outvalUnits;
        $outval .= $outvalUnits;

        $found = 0;

        // Multiprice
        // If we need a particular price level (from 1 to n)
        if (empty($hidepriceinlabel) && $price_level >= 1 && (getDolGlobalString('PRODUIT_MULTIPRICES') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES'))) {
            $sql = "SELECT price, price_ttc, price_base_type, tva_tx, default_vat_code";
            $sql .= " FROM " . $this->db->prefix() . "product_price";
            $sql .= " WHERE fk_product = " . ((int)$objp->rowid);
            $sql .= " AND entity IN (" . getEntity('productprice') . ")";
            $sql .= " AND price_level = " . ((int)$price_level);
            $sql .= " ORDER BY date_price DESC, rowid DESC"; // Warning DESC must be both on date_price and rowid.
            $sql .= " LIMIT 1";

            dol_syslog(get_only_class($this) . '::constructProductListOption search price for product ' . $objp->rowid . ' AND level ' . $price_level, LOG_DEBUG);
            $result2 = $this->db->query($sql);
            if ($result2) {
                $objp2 = $this->db->fetch_object($result2);
                if ($objp2) {
                    $found = 1;
                    if ($objp2->price_base_type == 'HT') {
                        $opt .= ' - ' . price($objp2->price, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("HT");
                        $outval .= ' - ' . price($objp2->price, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("HT");
                    } else {
                        $opt .= ' - ' . price($objp2->price_ttc, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("TTC");
                        $outval .= ' - ' . price($objp2->price_ttc, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("TTC");
                    }
                    $outprice_ht = price($objp2->price);
                    $outprice_ttc = price($objp2->price_ttc);
                    $outpricebasetype = $objp2->price_base_type;
                    if (getDolGlobalString('PRODUIT_MULTIPRICES_USE_VAT_PER_LEVEL')) {  // using this option is a bug. kept for backward compatibility
                        $outtva_tx = $objp2->tva_tx;                        // We use the vat rate on line of multiprice
                        $outdefault_vat_code = $objp2->default_vat_code;    // We use the vat code on line of multiprice
                    } else {
                        $outtva_tx = $objp->tva_tx;                            // We use the vat rate of product, not the one on line of multiprice
                        $outdefault_vat_code = $objp->default_vat_code;        // We use the vat code or product, not the one on line of multiprice
                    }
                }
            } else {
                dol_print_error($this->db);
            }
        }

        // Price by quantity
        if (empty($hidepriceinlabel) && !empty($objp->quantity) && $objp->quantity >= 1 && (getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES'))) {
            $found = 1;
            $outqty = $objp->quantity;
            $outdiscount = $objp->remise_percent;
            if ($objp->quantity == 1) {
                $opt .= ' - ' . price($objp->unitprice, 1, $langs, 0, 0, -1, $conf->currency) . "/";
                $outval .= ' - ' . price($objp->unitprice, 0, $langs, 0, 0, -1, $conf->currency) . "/";
                $opt .= $langs->trans("Unit"); // Do not use strtolower because it breaks utf8 encoding
                $outval .= $langs->transnoentities("Unit");
            } else {
                $opt .= ' - ' . price($objp->price, 1, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
                $outval .= ' - ' . price($objp->price, 0, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
                $opt .= $langs->trans("Units"); // Do not use strtolower because it breaks utf8 encoding
                $outval .= $langs->transnoentities("Units");
            }

            $outprice_ht = price($objp->unitprice);
            $outprice_ttc = price($objp->unitprice * (1 + ($objp->tva_tx / 100)));
            $outpricebasetype = $objp->price_base_type;
            $outtva_tx = $objp->tva_tx;                            // This value is the value on product when constructProductListOption is called by select_produits_list even if other field $objp-> are from table price_by_qty
            $outdefault_vat_code = $objp->default_vat_code;        // This value is the value on product when constructProductListOption is called by select_produits_list even if other field $objp-> are from table price_by_qty
        }
        if (empty($hidepriceinlabel) && !empty($objp->quantity) && $objp->quantity >= 1) {
            $opt .= " (" . price($objp->unitprice, 1, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->trans("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
            $outval .= " (" . price($objp->unitprice, 0, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->transnoentities("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
        }
        if (empty($hidepriceinlabel) && !empty($objp->remise_percent) && $objp->remise_percent >= 1) {
            $opt .= " - " . $langs->trans("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
            $outval .= " - " . $langs->transnoentities("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
        }

        // Price by customer
        if (empty($hidepriceinlabel) && getDolGlobalString('PRODUIT_CUSTOMER_PRICES')) {
            if (!empty($objp->idprodcustprice)) {
                $found = 1;

                if ($objp->custprice_base_type == 'HT') {
                    $opt .= ' - ' . price($objp->custprice, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("HT");
                    $outval .= ' - ' . price($objp->custprice, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("HT");
                } else {
                    $opt .= ' - ' . price($objp->custprice_ttc, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("TTC");
                    $outval .= ' - ' . price($objp->custprice_ttc, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("TTC");
                }

                $outprice_ht = price($objp->custprice);
                $outprice_ttc = price($objp->custprice_ttc);
                $outpricebasetype = $objp->custprice_base_type;
                $outtva_tx = $objp->custtva_tx;
                $outdefault_vat_code = $objp->custdefault_vat_code;
            }
        }

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

        if (isModEnabled('stock') && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || getDolGlobalString('STOCK_SUPPORTS_SERVICES'))) {
            if ($user->hasRight('stock', 'lire')) {
                $opt .= ' - ' . $langs->trans("Stock") . ': ' . price(price2num($objp->stock, 'MS'));

                if ($objp->stock > 0) {
                    $outval .= ' - <span class="product_line_stock_ok">';
                } elseif ($objp->stock <= 0) {
                    $outval .= ' - <span class="product_line_stock_too_low">';
                }
                $outval .= $langs->transnoentities("Stock") . ': ' . price(price2num($objp->stock, 'MS'));
                $outval .= '</span>';
                if (empty($novirtualstock) && getDolGlobalString('STOCK_SHOW_VIRTUAL_STOCK_IN_PRODUCTS_COMBO')) {  // Warning, this option may slow down combo list generation
                    $langs->load("stocks");

                    $tmpproduct = new Product($this->db);
                    $tmpproduct->fetch($objp->rowid, '', '', '', 1, 1, 1); // Load product without lang and prices arrays (we just need to make ->virtual_stock() after)
                    $tmpproduct->load_virtual_stock();
                    $virtualstock = $tmpproduct->stock_theorique;

                    $opt .= ' - ' . $langs->trans("VirtualStock") . ':' . $virtualstock;

                    $outval .= ' - ' . $langs->transnoentities("VirtualStock") . ':';
                    if ($virtualstock > 0) {
                        $outval .= '<span class="product_line_stock_ok">';
                    } elseif ($virtualstock <= 0) {
                        $outval .= '<span class="product_line_stock_too_low">';
                    }
                    $outval .= $virtualstock;
                    $outval .= '</span>';

                    unset($tmpproduct);
                }
            }
        }

        $parameters = array('objp' => $objp);
        $reshook = $hookmanager->executeHooks('constructProductListOption', $parameters); // Note that $action and $object may have been modified by hook
        if (empty($reshook)) {
            $opt .= $hookmanager->resPrint;
        } else {
            $opt = $hookmanager->resPrint;
        }

        $opt .= "</option>\n";
        $optJson = array(
            'key' => $outkey,
            'value' => $outref,
            'label' => $outval,
            'label2' => $outlabel,
            'desc' => $outdesc,
            'type' => $outtype,
            'price_ht' => price2num($outprice_ht),
            'price_ttc' => price2num($outprice_ttc),
            'price_ht_locale' => price(price2num($outprice_ht)),
            'price_ttc_locale' => price(price2num($outprice_ttc)),
            'pricebasetype' => $outpricebasetype,
            'tva_tx' => $outtva_tx,
            'default_vat_code' => $outdefault_vat_code,
            'qty' => $outqty,
            'discount' => $outdiscount,
            'duration_value' => $outdurationvalue,
            'duration_unit' => $outdurationunit,
            'pbq' => $outpbq,
            'labeltrans' => $outlabel_translated,
            'desctrans' => $outdesc_translated,
            'ref_customer' => $outrefcust
        );
    }

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

    /**
     *  Return list of BOM for customer in Ajax if Ajax activated or go to select_produits_list
     *
     * @param string $selected Preselected BOM id
     * @param string $htmlname Name of HTML select field (must be unique in page).
     * @param int $limit Limit on number of returned lines
     * @param int $status Sell status -1=Return all bom, 0=Draft BOM, 1=Validated BOM
     * @param int $type type of the BOM (-1=Return all BOM, 0=Return disassemble BOM, 1=Return manufacturing BOM)
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param string $morecss Add more css on select
     * @param string $nooutput No print, return the output into a string
     * @param int $forcecombo Force to use combo box
     * @param string[] $TProducts Add filter on a defined product
     * @return void|string
     */
    public function select_bom($selected = '', $htmlname = 'bom_id', $limit = 0, $status = 1, $type = 0, $showempty = '1', $morecss = '', $nooutput = '', $forcecombo = 0, $TProducts = [])
    {
        // phpcs:enable
        global $db;


        $error = 0;
        $out = '';

        if (!$forcecombo) {
            include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
            $events = array();
            $out .= ajax_combobox($htmlname, $events, getDolGlobalInt("PRODUIT_USE_SEARCH_TO_SELECT"));
        }

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

        $sql = 'SELECT b.rowid, b.ref, b.label, b.fk_product';
        $sql .= ' FROM ' . MAIN_DB_PREFIX . 'bom_bom as b';
        $sql .= ' WHERE b.entity IN (' . getEntity('bom') . ')';
        if (!empty($status)) {
            $sql .= ' AND status = ' . (int)$status;
        }
        if (!empty($type)) {
            $sql .= ' AND bomtype = ' . (int)$type;
        }
        if (!empty($TProducts)) {
            $sql .= ' AND fk_product IN (' . $this->db->sanitize(implode(',', $TProducts)) . ')';
        }
        if (!empty($limit)) {
            $sql .= ' LIMIT ' . (int)$limit;
        }
        $resql = $db->query($sql);
        if ($resql) {
            if ($showempty) {
                $out .= '<option value="-1"';
                if (empty($selected)) {
                    $out .= ' selected';
                }
                $out .= '>&nbsp;</option>';
            }
            while ($obj = $db->fetch_object($resql)) {
                $product = new Product($db);
                $res = $product->fetch($obj->fk_product);
                $out .= '<option value="' . $obj->rowid . '"';
                if ($obj->rowid == $selected) {
                    $out .= 'selected';
                }
                $out .= '>' . $obj->ref . ' - ' . $product->label . ' - ' . $obj->label . '</option>';
            }
        } else {
            $error++;
            dol_print_error($db);
        }
        $out .= '</select>';
        if (empty($nooutput)) {
            print $out;
        } else {
            return $out;
        }
    }


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

    /**
     * Return list of products for customer (in Ajax if Ajax activated or go to select_produits_fournisseurs_list)
     *
     * @param int $socid Id third party
     * @param string $selected Preselected product
     * @param string $htmlname Name of HTML Select
     * @param string $filtertype Filter on product type (''=nofilter, 0=product, 1=service)
     * @param string $filtre For a SQL filter
     * @param array<string,string|string[]> $ajaxoptions Options for ajax_autocompleter
     * @param int<0,1> $hidelabel Hide label (0=no, 1=yes)
     * @param int<0,1> $alsoproductwithnosupplierprice 1=Add also product without supplier prices
     * @param string $morecss More CSS
     * @param string $placeholder Placeholder
     * @return    void
     */
    public function select_produits_fournisseurs($socid, $selected = '', $htmlname = 'productid', $filtertype = '', $filtre = '', $ajaxoptions = array(), $hidelabel = 0, $alsoproductwithnosupplierprice = 0, $morecss = '', $placeholder = '')
    {
        // phpcs:enable
        global $langs, $conf;
        global $price_level, $status, $finished;

        if (!isset($status)) {
            $status = 1;
        }

        $selected_input_value = '';
        if (!empty($conf->use_javascript_ajax) && getDolGlobalString('PRODUIT_USE_SEARCH_TO_SELECT')) {
            if ($selected > 0) {
                $producttmpselect = new Product($this->db);
                $producttmpselect->fetch($selected);
                $selected_input_value = $producttmpselect->ref;
                unset($producttmpselect);
            }

            // mode=2 means suppliers products
            $urloption = ($socid > 0 ? 'socid=' . $socid . '&' : '') . 'htmlname=' . $htmlname . '&outjson=1&price_level=' . $price_level . '&type=' . $filtertype . '&mode=2&status=' . $status . '&finished=' . $finished . '&alsoproductwithnosupplierprice=' . $alsoproductwithnosupplierprice;
            print ajax_autocompleter($selected, $htmlname, constant('BASE_URL') . '/product/ajax/products.php', $urloption, getDolGlobalString('PRODUIT_USE_SEARCH_TO_SELECT'), 0, $ajaxoptions);

            print($hidelabel ? '' : $langs->trans("RefOrLabel") . ' : ') . '<input type="text" class="' . $morecss . '" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . ($placeholder ? ' placeholder="' . $placeholder . '"' : '') . '>';
        } else {
            print $this->select_produits_fournisseurs_list($socid, $selected, $htmlname, $filtertype, $filtre, '', $status, 0, 0, $alsoproductwithnosupplierprice, $morecss, 0, $placeholder);
        }
    }

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

    /**
     *    Return list of suppliers products
     *
     * @param int $socid Id of supplier thirdparty (0 = no filter)
     * @param string $selected Product price preselected (must be 'id' in product_fournisseur_price or 'idprod_IDPROD')
     * @param string $htmlname Name of HTML select
     * @param string $filtertype Filter on product type (''=nofilter, 0=product, 1=service)
     * @param string $filtre Generic filter. Data must not come from user input.
     * @param string $filterkey Filter of produdts
     * @param int $statut -1=Return all products, 0=Products not on buy, 1=Products on buy
     * @param int $outputmode 0=HTML select string, 1=Array
     * @param int $limit Limit of line number
     * @param int $alsoproductwithnosupplierprice 1=Add also product without supplier prices
     * @param string $morecss Add more CSS
     * @param int $showstockinlist Show stock information (slower).
     * @param string $placeholder Placeholder
     * @return array|string                Array of keys for json or HTML component
     */
    public function select_produits_fournisseurs_list($socid, $selected = '', $htmlname = 'productid', $filtertype = '', $filtre = '', $filterkey = '', $statut = -1, $outputmode = 0, $limit = 100, $alsoproductwithnosupplierprice = 0, $morecss = '', $showstockinlist = 0, $placeholder = '')
    {
        // phpcs:enable
        global $langs, $conf, $user;
        global $hookmanager;

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

        $maxlengtharticle = (!getDolGlobalString('PRODUCT_MAX_LENGTH_COMBO') ? 48 : $conf->global->PRODUCT_MAX_LENGTH_COMBO);

        $langs->load('stocks');
        // Units
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
            $langs->load('other');
        }

        $sql = "SELECT p.rowid, p.ref, p.label, p.price, p.duration, p.fk_product_type, p.stock, p.tva_tx as tva_tx_sale, p.default_vat_code as default_vat_code_sale,";
        $sql .= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.remise_percent, pfp.remise, pfp.unitprice, pfp.barcode";
        if (isModEnabled('multicurrency')) {
            $sql .= ", pfp.multicurrency_code, pfp.multicurrency_unitprice";
        }
        $sql .= ", pfp.fk_supplier_price_expression, pfp.fk_product, pfp.tva_tx, pfp.default_vat_code, pfp.fk_soc, s.nom as name";
        $sql .= ", pfp.supplier_reputation";
        // if we use supplier description of the products
        if (getDolGlobalString('PRODUIT_FOURN_TEXTS')) {
            $sql .= ", pfp.desc_fourn as description";
        } else {
            $sql .= ", p.description";
        }
        // Units
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
            $sql .= ", u.label as unit_long, u.short_label as unit_short, p.weight, p.weight_units, p.length, p.length_units, p.width, p.width_units, p.height, p.height_units, p.surface, p.surface_units, p.volume, p.volume_units";
        }
        $sql .= " FROM " . $this->db->prefix() . "product as p";
        $sql .= " LEFT JOIN " . $this->db->prefix() . "product_fournisseur_price as pfp ON ( p.rowid = pfp.fk_product AND pfp.entity IN (" . getEntity('product') . ") )";
        if ($socid > 0) {
            $sql .= " AND pfp.fk_soc = " . ((int)$socid);
        }
        $sql .= " LEFT JOIN " . $this->db->prefix() . "societe as s ON pfp.fk_soc = s.rowid";
        // Units
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "c_units u ON u.rowid = p.fk_unit";
        }
        $sql .= " WHERE p.entity IN (" . getEntity('product') . ")";
        if ($statut != -1) {
            $sql .= " AND p.tobuy = " . ((int)$statut);
        }
        if (strval($filtertype) != '') {
            $sql .= " AND p.fk_product_type = " . ((int)$filtertype);
        }
        if (!empty($filtre)) {
            $sql .= " " . $filtre;
        }
        // Add where from hooks
        $parameters = array();
        $reshook = $hookmanager->executeHooks('selectSuppliersProductsListWhere', $parameters); // Note that $action and $object may have been modified by hook
        $sql .= $hookmanager->resPrint;
        // Add criteria on ref/label
        if ($filterkey != '') {
            $sql .= ' AND (';
            $prefix = !getDolGlobalString('PRODUCT_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
            // For natural search
            $search_crit = explode(' ', $filterkey);
            $i = 0;
            if (count($search_crit) > 1) {
                $sql .= "(";
            }
            foreach ($search_crit as $crit) {
                if ($i > 0) {
                    $sql .= " AND ";
                }
                $sql .= "(pfp.ref_fourn LIKE '" . $this->db->escape($prefix . $crit) . "%' OR p.ref LIKE '" . $this->db->escape($prefix . $crit) . "%' OR p.label LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                if (getDolGlobalString('PRODUIT_FOURN_TEXTS')) {
                    $sql .= " OR pfp.desc_fourn LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                }
                $sql .= ")";
                $i++;
            }
            if (count($search_crit) > 1) {
                $sql .= ")";
            }
            if (isModEnabled('barcode')) {
                $sql .= " OR p.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
                $sql .= " OR pfp.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
            }
            $sql .= ')';
        }
        $sql .= " ORDER BY pfp.ref_fourn DESC, pfp.quantity ASC";
        $sql .= $this->db->plimit($limit, 0);

        // Build output string

        dol_syslog(get_only_class($this) . "::select_produits_fournisseurs_list", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/product.lib.php';

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

            //$out.='<select class="flat" id="select'.$htmlname.'" name="'.$htmlname.'">';  // remove select to have id same with combo and ajax
            $out .= '<select class="flat ' . ($morecss ? ' ' . $morecss : '') . '" id="' . $htmlname . '" name="' . $htmlname . '">';
            if (!$selected) {
                $out .= '<option value="-1" selected>' . ($placeholder ? $placeholder : '&nbsp;') . '</option>';
            } else {
                $out .= '<option value="-1">' . ($placeholder ? $placeholder : '&nbsp;') . '</option>';
            }

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

                if (is_null($objp->idprodfournprice)) {
                    // There is no supplier price found, we will use the vat rate for sale
                    $objp->tva_tx = $objp->tva_tx_sale;
                    $objp->default_vat_code = $objp->default_vat_code_sale;
                }

                $outkey = $objp->idprodfournprice; // id in table of price
                if (!$outkey && $alsoproductwithnosupplierprice) {
                    $outkey = 'idprod_' . $objp->rowid; // id of product
                }

                $outref = $objp->ref;
                $outbarcode = $objp->barcode;
                $outqty = 1;
                $outdiscount = 0;
                $outtype = $objp->fk_product_type;
                $outdurationvalue = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, 0, dol_strlen($objp->duration) - 1) : '';
                $outdurationunit = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, -1) : '';

                // Units
                $outvalUnits = '';
                if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
                    if (!empty($objp->unit_short)) {
                        $outvalUnits .= ' - ' . $objp->unit_short;
                    }
                    if (!empty($objp->weight) && $objp->weight_units !== null) {
                        $unitToShow = showDimensionInBestUnit($objp->weight, $objp->weight_units, 'weight', $langs);
                        $outvalUnits .= ' - ' . $unitToShow;
                    }
                    if ((!empty($objp->length) || !empty($objp->width) || !empty($objp->height)) && $objp->length_units !== null) {
                        $unitToShow = $objp->length . ' x ' . $objp->width . ' x ' . $objp->height . ' ' . measuringUnitString(0, 'size', $objp->length_units);
                        $outvalUnits .= ' - ' . $unitToShow;
                    }
                    if (!empty($objp->surface) && $objp->surface_units !== null) {
                        $unitToShow = showDimensionInBestUnit($objp->surface, $objp->surface_units, 'surface', $langs);
                        $outvalUnits .= ' - ' . $unitToShow;
                    }
                    if (!empty($objp->volume) && $objp->volume_units !== null) {
                        $unitToShow = showDimensionInBestUnit($objp->volume, $objp->volume_units, 'volume', $langs);
                        $outvalUnits .= ' - ' . $unitToShow;
                    }
                    if ($outdurationvalue && $outdurationunit) {
                        $da = array(
                            'h' => $langs->trans('Hour'),
                            'd' => $langs->trans('Day'),
                            'w' => $langs->trans('Week'),
                            'm' => $langs->trans('Month'),
                            'y' => $langs->trans('Year')
                        );
                        if (isset($da[$outdurationunit])) {
                            $outvalUnits .= ' - ' . $outdurationvalue . ' ' . $langs->transnoentities($da[$outdurationunit] . ($outdurationvalue > 1 ? 's' : ''));
                        }
                    }
                }

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

                switch ($objp->fk_product_type) {
                    case Product::TYPE_PRODUCT:
                        $picto = 'product';
                        break;
                    case Product::TYPE_SERVICE:
                        $picto = 'service';
                        break;
                    default:
                        $picto = '';
                        break;
                }

                if (empty($picto)) {
                    $optlabel = '';
                } else {
                    $optlabel = img_object('', $picto, 'class="paddingright classfortooltip"', 0, 0, 1);
                }

                $optlabel .= $objp->ref;
                if (!empty($objp->idprodfournprice) && ($objp->ref != $objp->ref_fourn)) {
                    $optlabel .= ' <span class="opacitymedium">(' . $objp->ref_fourn . ')</span>';
                }
                if (isModEnabled('barcode') && !empty($objp->barcode)) {
                    $optlabel .= ' (' . $outbarcode . ')';
                }
                $optlabel .= ' - ' . dol_trunc($label, $maxlengtharticle);

                $outvallabel = $objRef;
                if (!empty($objp->idprodfournprice) && ($objp->ref != $objp->ref_fourn)) {
                    $outvallabel .= ' (' . $objRefFourn . ')';
                }
                if (isModEnabled('barcode') && !empty($objp->barcode)) {
                    $outvallabel .= ' (' . $outbarcode . ')';
                }
                $outvallabel .= ' - ' . dol_trunc($label, $maxlengtharticle);

                // Units
                $optlabel .= $outvalUnits;
                $outvallabel .= $outvalUnits;

                if (!empty($objp->idprodfournprice)) {
                    $outqty = $objp->quantity;
                    $outdiscount = $objp->remise_percent;
                    if (isModEnabled('dynamicprices') && !empty($objp->fk_supplier_price_expression)) {
                        $prod_supplier = new ProductFournisseur($this->db);
                        $prod_supplier->product_fourn_price_id = $objp->idprodfournprice;
                        $prod_supplier->id = $objp->fk_product;
                        $prod_supplier->fourn_qty = $objp->quantity;
                        $prod_supplier->fourn_tva_tx = $objp->tva_tx;
                        $prod_supplier->fk_supplier_price_expression = $objp->fk_supplier_price_expression;

                        $priceparser = new PriceParser($this->db);
                        $price_result = $priceparser->parseProductSupplier($prod_supplier);
                        if ($price_result >= 0) {
                            $objp->fprice = $price_result;
                            if ($objp->quantity >= 1) {
                                $objp->unitprice = $objp->fprice / $objp->quantity; // Replace dynamically unitprice
                            }
                        }
                    }
                    if ($objp->quantity == 1) {
                        $optlabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/";
                        $outvallabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 0, $langs, 0, 0, -1, $conf->currency) . "/";
                        $optlabel .= $langs->trans("Unit"); // Do not use strtolower because it breaks utf8 encoding
                        $outvallabel .= $langs->transnoentities("Unit");
                    } else {
                        $optlabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
                        $outvallabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 0, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
                        $optlabel .= ' ' . $langs->trans("Units"); // Do not use strtolower because it breaks utf8 encoding
                        $outvallabel .= ' ' . $langs->transnoentities("Units");
                    }

                    if ($objp->quantity > 1) {
                        $optlabel .= " (" . price($objp->unitprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->trans("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
                        $outvallabel .= " (" . price($objp->unitprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 0, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->transnoentities("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
                    }
                    if ($objp->remise_percent >= 1) {
                        $optlabel .= " - " . $langs->trans("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
                        $outvallabel .= " - " . $langs->transnoentities("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
                    }
                    if ($objp->duration) {
                        $optlabel .= " - " . $objp->duration;
                        $outvallabel .= " - " . $objp->duration;
                    }
                    if (!$socid) {
                        $optlabel .= " - " . dol_trunc($objp->name, 8);
                        $outvallabel .= " - " . dol_trunc($objp->name, 8);
                    }
                    if ($objp->supplier_reputation) {
                        //TODO dictionary
                        $reputations = array('' => $langs->trans('Standard'), 'FAVORITE' => $langs->trans('Favorite'), 'NOTTHGOOD' => $langs->trans('NotTheGoodQualitySupplier'), 'DONOTORDER' => $langs->trans('DoNotOrderThisProductToThisSupplier'));

                        $optlabel .= " - " . $reputations[$objp->supplier_reputation];
                        $outvallabel .= " - " . $reputations[$objp->supplier_reputation];
                    }
                } else {
                    $optlabel .= " - <span class='opacitymedium'>" . $langs->trans("NoPriceDefinedForThisSupplier") . '</span>';
                    $outvallabel .= ' - ' . $langs->transnoentities("NoPriceDefinedForThisSupplier");
                }

                if (isModEnabled('stock') && $showstockinlist && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || getDolGlobalString('STOCK_SUPPORTS_SERVICES'))) {
                    $novirtualstock = ($showstockinlist == 2);

                    if ($user->hasRight('stock', 'lire')) {
                        $outvallabel .= ' - ' . $langs->trans("Stock") . ': ' . price(price2num($objp->stock, 'MS'));

                        if ($objp->stock > 0) {
                            $optlabel .= ' - <span class="product_line_stock_ok">';
                        } elseif ($objp->stock <= 0) {
                            $optlabel .= ' - <span class="product_line_stock_too_low">';
                        }
                        $optlabel .= $langs->transnoentities("Stock") . ':' . price(price2num($objp->stock, 'MS'));
                        $optlabel .= '</span>';
                        if (empty($novirtualstock) && getDolGlobalString('STOCK_SHOW_VIRTUAL_STOCK_IN_PRODUCTS_COMBO')) {  // Warning, this option may slow down combo list generation
                            $langs->load("stocks");

                            $tmpproduct = new Product($this->db);
                            $tmpproduct->fetch($objp->rowid, '', '', '', 1, 1, 1); // Load product without lang and prices arrays (we just need to make ->virtual_stock() after)
                            $tmpproduct->load_virtual_stock();
                            $virtualstock = $tmpproduct->stock_theorique;

                            $outvallabel .= ' - ' . $langs->trans("VirtualStock") . ':' . $virtualstock;

                            $optlabel .= ' - ' . $langs->transnoentities("VirtualStock") . ':';
                            if ($virtualstock > 0) {
                                $optlabel .= '<span class="product_line_stock_ok">';
                            } elseif ($virtualstock <= 0) {
                                $optlabel .= '<span class="product_line_stock_too_low">';
                            }
                            $optlabel .= $virtualstock;
                            $optlabel .= '</span>';

                            unset($tmpproduct);
                        }
                    }
                }

                $optstart = '<option value="' . $outkey . '"';
                if ($selected && $selected == $objp->idprodfournprice) {
                    $optstart .= ' selected';
                }
                if (empty($objp->idprodfournprice) && empty($alsoproductwithnosupplierprice)) {
                    $optstart .= ' disabled';
                }

                if (!empty($objp->idprodfournprice) && $objp->idprodfournprice > 0) {
                    $optstart .= ' data-product-id="' . dol_escape_htmltag($objp->rowid) . '"';
                    $optstart .= ' data-price-id="' . dol_escape_htmltag($objp->idprodfournprice) . '"';
                    $optstart .= ' data-qty="' . dol_escape_htmltag($objp->quantity) . '"';
                    $optstart .= ' data-up="' . dol_escape_htmltag(price2num($objp->unitprice)) . '"';
                    $optstart .= ' data-up-locale="' . dol_escape_htmltag(price($objp->unitprice)) . '"';
                    $optstart .= ' data-discount="' . dol_escape_htmltag($outdiscount) . '"';
                    $optstart .= ' data-tvatx="' . dol_escape_htmltag(price2num($objp->tva_tx)) . '"';
                    $optstart .= ' data-tvatx-formated="' . dol_escape_htmltag(price($objp->tva_tx, 0, $langs, 1, -1, 2)) . '"';
                    $optstart .= ' data-default-vat-code="' . dol_escape_htmltag($objp->default_vat_code) . '"';
                    $optstart .= ' data-supplier-ref="' . dol_escape_htmltag($objp->ref_fourn) . '"';
                    if (isModEnabled('multicurrency')) {
                        $optstart .= ' data-multicurrency-code="' . dol_escape_htmltag($objp->multicurrency_code) . '"';
                        $optstart .= ' data-multicurrency-up="' . dol_escape_htmltag($objp->multicurrency_unitprice) . '"';
                    }
                }
                $optstart .= ' data-description="' . dol_escape_htmltag($objp->description, 0, 1) . '"';

                $outarrayentry = array(
                    'key' => $outkey,
                    'value' => $outref,
                    'label' => $outvallabel,
                    'qty' => $outqty,
                    'price_qty_ht' => price2num($objp->fprice, 'MU'),    // Keep higher resolution for price for the min qty
                    'price_unit_ht' => price2num($objp->unitprice, 'MU'),    // This is used to fill the Unit Price
                    'price_ht' => price2num($objp->unitprice, 'MU'),        // This is used to fill the Unit Price (for compatibility)
                    'tva_tx_formated' => price($objp->tva_tx, 0, $langs, 1, -1, 2),
                    'tva_tx' => price2num($objp->tva_tx),
                    'default_vat_code' => $objp->default_vat_code,
                    'supplier_ref' => $objp->ref_fourn,
                    'discount' => $outdiscount,
                    'type' => $outtype,
                    'duration_value' => $outdurationvalue,
                    'duration_unit' => $outdurationunit,
                    'disabled' => empty($objp->idprodfournprice),
                    'description' => $objp->description
                );
                if (isModEnabled('multicurrency')) {
                    $outarrayentry['multicurrency_code'] = $objp->multicurrency_code;
                    $outarrayentry['multicurrency_unitprice'] = price2num($objp->multicurrency_unitprice, 'MU');
                }

                $parameters = array(
                    'objp' => &$objp,
                    'optstart' => &$optstart,
                    'optlabel' => &$optlabel,
                    'outvallabel' => &$outvallabel,
                    'outarrayentry' => &$outarrayentry
                );
                $reshook = $hookmanager->executeHooks('selectProduitsFournisseurListOption', $parameters, $this);


                // Add new entry
                // "key" value of json key array is used by jQuery automatically as selected value. Example: 'type' = product or service, 'price_ht' = unit price without tax
                // "label" value of json key array is used by jQuery automatically as text for combo box
                $out .= $optstart . ' data-html="' . dol_escape_htmltag($optlabel) . '">' . $optlabel . "</option>\n";
                $outarraypush = array(
                    'key' => $outkey,
                    'value' => $outref,
                    'label' => $outvallabel,
                    'qty' => $outqty,
                    'price_qty_ht' => price2num($objp->fprice, 'MU'),        // Keep higher resolution for price for the min qty
                    'price_qty_ht_locale' => price($objp->fprice),
                    'price_unit_ht' => price2num($objp->unitprice, 'MU'),    // This is used to fill the Unit Price
                    'price_unit_ht_locale' => price($objp->unitprice),
                    'price_ht' => price2num($objp->unitprice, 'MU'),        // This is used to fill the Unit Price (for compatibility)
                    'tva_tx_formated' => price($objp->tva_tx),
                    'tva_tx' => price2num($objp->tva_tx),
                    'default_vat_code' => $objp->default_vat_code,
                    'supplier_ref' => $objp->ref_fourn,
                    'discount' => $outdiscount,
                    'type' => $outtype,
                    'duration_value' => $outdurationvalue,
                    'duration_unit' => $outdurationunit,
                    'disabled' => empty($objp->idprodfournprice),
                    'description' => $objp->description
                );
                if (isModEnabled('multicurrency')) {
                    $outarraypush['multicurrency_code'] = $objp->multicurrency_code;
                    $outarraypush['multicurrency_unitprice'] = price2num($objp->multicurrency_unitprice, 'MU');
                }
                array_push($outarray, $outarraypush);

                // Example of var_dump $outarray
                // array(1) {[0]=>array(6) {[key"]=>string(1) "2" ["value"]=>string(3) "ppp"
                //           ["label"]=>string(76) "ppp (<strong>f</strong>ff2) - ppp - 20,00 Euros/1unité (20,00 Euros/unité)"
                //           ["qty"]=>string(1) "1" ["discount"]=>string(1) "0" ["disabled"]=>bool(false)
                //}
                //var_dump($outval); var_dump(utf8_check($outval)); var_dump(json_encode($outval));
                //$outval=array('label'=>'ppp (<strong>f</strong>ff2) - ppp - 20,00 Euros/ Unité (20,00 Euros/unité)');
                //var_dump($outval); var_dump(utf8_check($outval)); var_dump(json_encode($outval));

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

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

            include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
            $out .= ajax_combobox($htmlname);
        } else {
            dol_print_error($this->db);
        }

        if (empty($outputmode)) {
            return $out;
        }
        return $outarray;
    }

    /**
     *    Return list of suppliers prices for a product
     *
     * @param int $productid Id of product
     * @param string $htmlname Name of HTML field
     * @param int $selected_supplier Pre-selected supplier if more than 1 result
     * @return        string
     */
    public function select_product_fourn_price($productid, $htmlname = 'productfournpriceid', $selected_supplier = 0)
    {
        // phpcs:enable
        global $langs, $conf;

        $langs->load('stocks');

        $sql = "SELECT p.rowid, p.ref, p.label, p.price, p.duration, pfp.fk_soc,";
        $sql .= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.remise_percent, pfp.quantity, pfp.unitprice,";
        $sql .= " pfp.fk_supplier_price_expression, pfp.fk_product, pfp.tva_tx, s.nom as name";
        $sql .= " FROM " . $this->db->prefix() . "product as p";
        $sql .= " LEFT JOIN " . $this->db->prefix() . "product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
        $sql .= " LEFT JOIN " . $this->db->prefix() . "societe as s ON pfp.fk_soc = s.rowid";
        $sql .= " WHERE pfp.entity IN (" . getEntity('productsupplierprice') . ")";
        $sql .= " AND p.tobuy = 1";
        $sql .= " AND s.fournisseur = 1";
        $sql .= " AND p.rowid = " . ((int)$productid);
        if (!getDolGlobalString('PRODUCT_BEST_SUPPLIER_PRICE_PRESELECTED')) {
            $sql .= " ORDER BY s.nom, pfp.ref_fourn DESC";
        } else {
            $sql .= " ORDER BY pfp.unitprice ASC";
        }

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

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

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

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

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

                    $opt = '<option value="' . $objp->idprodfournprice . '"';
                    //if there is only one supplier, preselect it
                    if ($num == 1 || ($selected_supplier > 0 && $objp->fk_soc == $selected_supplier) || ($i == 0 && getDolGlobalString('PRODUCT_BEST_SUPPLIER_PRICE_PRESELECTED'))) {
                        $opt .= ' selected';
                    }
                    $opt .= '>' . $objp->name . ' - ' . $objp->ref_fourn . ' - ';

                    if (isModEnabled('dynamicprices') && !empty($objp->fk_supplier_price_expression)) {
                        $prod_supplier = new ProductFournisseur($this->db);
                        $prod_supplier->product_fourn_price_id = $objp->idprodfournprice;
                        $prod_supplier->id = $productid;
                        $prod_supplier->fourn_qty = $objp->quantity;
                        $prod_supplier->fourn_tva_tx = $objp->tva_tx;
                        $prod_supplier->fk_supplier_price_expression = $objp->fk_supplier_price_expression;

                        $priceparser = new PriceParser($this->db);
                        $price_result = $priceparser->parseProductSupplier($prod_supplier);
                        if ($price_result >= 0) {
                            $objp->fprice = $price_result;
                            if ($objp->quantity >= 1) {
                                $objp->unitprice = $objp->fprice / $objp->quantity;
                            }
                        }
                    }
                    if ($objp->quantity == 1) {
                        $opt .= price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/";
                    }

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

                    if ($objp->quantity == 1) {
                        $opt .= $langs->trans("Unit");
                    } else {
                        $opt .= $langs->trans("Units");
                    }
                    if ($objp->quantity > 1) {
                        $opt .= " - ";
                        $opt .= price($objp->unitprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->trans("Unit");
                    }
                    if ($objp->duration) {
                        $opt .= " - " . $objp->duration;
                    }
                    $opt .= "</option>\n";

                    $form .= $opt;
                    $i++;
                }
            }

            $form .= '</select>';
            $this->db->free($result);
            return $form;
        } else {
            dol_print_error($this->db);
            return '';
        }
    }

    /**
     *    print list of payment modes.
     *    Constant MAIN_DEFAULT_PAYMENT_TERM_ID can be used to set default value but scope is all application, probably not what you want.
     *    See instead to force the default value by the caller.
     *
     * @param int $selected Id of payment term to preselect by default
     * @param string $htmlname Nom de la zone select
     * @param int $filtertype If > 0, include payment terms with deposit percentage (for objects other than invoices and invoice templates)
     * @param int $addempty Add an empty entry
     * @param int $noinfoadmin 0=Add admin info, 1=Disable admin info
     * @param string $morecss Add more CSS on select tag
     * @param int $deposit_percent < 0 : deposit_percent input makes no sense (for example, in list filters)
     *                                0 : use default deposit percentage from entry
     *                                > 0 : force deposit percentage (for example, from company object)
     * @param int $noprint if set to one we return the html to print, if 0 (default) we print it
     * @return    void|string
     * @deprecated Use getSelectConditionsPaiements() instead and handle noprint locally.
     */
    public function select_conditions_paiements($selected = 0, $htmlname = 'condid', $filtertype = -1, $addempty = 0, $noinfoadmin = 0, $morecss = '', $deposit_percent = -1, $noprint = 0)
    {
        // phpcs:enable
        $out = $this->getSelectConditionsPaiements($selected, $htmlname, $filtertype, $addempty, $noinfoadmin, $morecss, $deposit_percent);
        if (empty($noprint)) {
            print $out;
        } else {
            return $out;
        }
    }

    /**
     *    Return list of payment modes.
     *    Constant MAIN_DEFAULT_PAYMENT_TERM_ID can be used to set default value but scope is all application, probably not what you want.
     *    See instead to force the default value by the caller.
     *
     * @param int $selected Id of payment term to preselect by default
     * @param string $htmlname Nom de la zone select
     * @param int $filtertype If > 0, include payment terms with deposit percentage (for objects other than invoices and invoice templates)
     * @param int $addempty Add an empty entry
     * @param int $noinfoadmin 0=Add admin info, 1=Disable admin info
     * @param string $morecss Add more CSS on select tag
     * @param int $deposit_percent < 0 : deposit_percent input makes no sense (for example, in list filters)
     *                                0 : use default deposit percentage from entry
     *                                > 0 : force deposit percentage (for example, from company object)
     * @return    string                        String for the HTML select component
     */
    public function getSelectConditionsPaiements($selected = 0, $htmlname = 'condid', $filtertype = -1, $addempty = 0, $noinfoadmin = 0, $morecss = '', $deposit_percent = -1)
    {
        global $langs, $user, $conf;

        $out = '';
        dol_syslog(__METHOD__ . " selected=" . $selected . ", htmlname=" . $htmlname, LOG_DEBUG);

        $this->load_cache_conditions_paiements();

        // Set default value if not already set by caller
        if (empty($selected) && getDolGlobalString('MAIN_DEFAULT_PAYMENT_TERM_ID')) {
            dol_syslog(__METHOD__ . "Using deprecated option MAIN_DEFAULT_PAYMENT_TERM_ID", LOG_NOTICE);
            $selected = getDolGlobalString('MAIN_DEFAULT_PAYMENT_TERM_ID');
        }

        $out .= '<select id="' . $htmlname . '" class="flat selectpaymentterms' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '">';
        if ($addempty) {
            $out .= '<option value="0">&nbsp;</option>';
        }

        $selectedDepositPercent = null;

        foreach ($this->cache_conditions_paiements as $id => $arrayconditions) {
            if ($filtertype <= 0 && !empty($arrayconditions['deposit_percent'])) {
                continue;
            }

            if ($selected == $id) {
                $selectedDepositPercent = $deposit_percent > 0 ? $deposit_percent : $arrayconditions['deposit_percent'];
                $out .= '<option value="' . $id . '" data-deposit_percent="' . $arrayconditions['deposit_percent'] . '" selected>';
            } else {
                $out .= '<option value="' . $id . '" data-deposit_percent="' . $arrayconditions['deposit_percent'] . '">';
            }
            $label = $arrayconditions['label'];

            if (!empty($arrayconditions['deposit_percent'])) {
                $label = str_replace('__DEPOSIT_PERCENT__', $deposit_percent > 0 ? $deposit_percent : $arrayconditions['deposit_percent'], $label);
            }

            $out .= $label;
            $out .= '</option>';
        }
        $out .= '</select>';
        if ($user->admin && empty($noinfoadmin)) {
            $out .= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
        }
        $out .= ajax_combobox($htmlname);

        if ($deposit_percent >= 0) {
            $out .= ' <span id="' . $htmlname . '_deposit_percent_container"' . (empty($selectedDepositPercent) ? ' style="display: none"' : '') . '>';
            $out .= $langs->trans('DepositPercent') . ' : ';
            $out .= '<input id="' . $htmlname . '_deposit_percent" name="' . $htmlname . '_deposit_percent" class="maxwidth50" value="' . $deposit_percent . '" />';
            $out .= '</span>';
            $out .= '
				<script nonce="' . getNonce() . '">
					$(document).ready(function () {
						$("#' . $htmlname . '").change(function () {
							let $selected = $(this).find("option:selected");
							let depositPercent = $selected.attr("data-deposit_percent");

							if (depositPercent.length > 0) {
								$("#' . $htmlname . '_deposit_percent_container").show().find("#' . $htmlname . '_deposit_percent").val(depositPercent);
							} else {
								$("#' . $htmlname . '_deposit_percent_container").hide();
							}

							return true;
						});
					});
				</script>';
        }

        return $out;
    }

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

    /**
     *      Load into cache list of payment terms
     *
     * @return     int             Nb of lines loaded, <0 if KO
     */
    public function load_cache_conditions_paiements()
    {
        // phpcs:enable
        global $langs;

        $num = count($this->cache_conditions_paiements);
        if ($num > 0) {
            return 0; // Cache already loaded
        }

        dol_syslog(__METHOD__, LOG_DEBUG);

        $sql = "SELECT rowid, code, libelle as label, deposit_percent";
        $sql .= " FROM " . $this->db->prefix() . 'c_payment_term';
        $sql .= " WHERE entity IN (" . getEntity('c_payment_term') . ")";
        $sql .= " AND active > 0";
        $sql .= " ORDER BY sortorder";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
            while ($i < $num) {
                $obj = $this->db->fetch_object($resql);

                // Si traduction existe, on l'utilise, sinon on prend le libelle par default
                $label = ($langs->trans("PaymentConditionShort" . $obj->code) != "PaymentConditionShort" . $obj->code ? $langs->trans("PaymentConditionShort" . $obj->code) : ($obj->label != '-' ? $obj->label : ''));
                $this->cache_conditions_paiements[$obj->rowid]['code'] = $obj->code;
                $this->cache_conditions_paiements[$obj->rowid]['label'] = $label;
                $this->cache_conditions_paiements[$obj->rowid]['deposit_percent'] = $obj->deposit_percent;
                $i++;
            }

            //$this->cache_conditions_paiements=dol_sort_array($this->cache_conditions_paiements, 'label', 'asc', 0, 0, 1);     // We use the field sortorder of table

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


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

    /**
     *  Selection HT or TTC
     *
     * @param string $selected Id pre-selectionne
     * @param string $htmlname Nom de la zone select
     * @param int $addjscombo Add js combo
     * @return    string                    Code of HTML select to chose tax or not
     */
    public function selectPriceBaseType($selected = '', $htmlname = 'price_base_type', $addjscombo = 0)
    {
        global $langs;

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

        return $return;
    }

    /**
     *    Display form to select shipping mode
     *
     * @param string $page Page
     * @param string $selected Id of shipping mode
     * @param string $htmlname Name of select html field
     * @param int $addempty 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
     * @return    void
     */
    public function formSelectShippingMethod($page, $selected = '', $htmlname = 'shipping_method_id', $addempty = 0)
    {
        global $langs;

        $langs->load("deliveries");

        if ($htmlname != "none") {
            print '<form method="POST" action="' . $page . '">';
            print '<input type="hidden" name="action" value="setshippingmethod">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            $this->selectShippingMethod($selected, $htmlname, '', $addempty);
            print '<input type="submit" class="button valignmiddle" value="' . $langs->trans("Modify") . '">';
            print '</form>';
        } else {
            if ($selected) {
                $code = $langs->getLabelFromKey($this->db, $selected, 'c_shipment_mode', 'rowid', 'code');
                print $langs->trans("SendingMethod" . strtoupper($code));
            } else {
                print "&nbsp;";
            }
        }
    }


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

    /**
     * Return a HTML select list of shipping mode
     *
     * @param string $selected Id shipping mode preselected
     * @param string $htmlname Name of select zone
     * @param string $filtre To filter list. This parameter must not come from input of users
     * @param int $useempty 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
     * @param string $moreattrib To add more attribute on select
     * @param int $noinfoadmin 0=Add admin info, 1=Disable admin info
     * @param string $morecss More CSS
     * @return void
     */
    public function selectShippingMethod($selected = '', $htmlname = 'shipping_method_id', $filtre = '', $useempty = 0, $moreattrib = '', $noinfoadmin = 0, $morecss = '')
    {
        global $langs, $user;

        $langs->load("admin");
        $langs->load("deliveries");

        $sql = "SELECT rowid, code, libelle as label";
        $sql .= " FROM " . $this->db->prefix() . "c_shipment_mode";
        $sql .= " WHERE active > 0";
        if ($filtre) {
            $sql .= " AND " . $filtre;
        }
        $sql .= " ORDER BY libelle ASC";

        dol_syslog(get_only_class($this) . "::selectShippingMode", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
            $num = $this->db->num_rows($result);
            $i = 0;
            if ($num) {
                print '<select id="select' . $htmlname . '" class="flat selectshippingmethod' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '"' . ($moreattrib ? ' ' . $moreattrib : '') . '>';
                if ($useempty == 1 || ($useempty == 2 && $num > 1)) {
                    print '<option value="-1">&nbsp;</option>';
                }
                while ($i < $num) {
                    $obj = $this->db->fetch_object($result);
                    if ($selected == $obj->rowid) {
                        print '<option value="' . $obj->rowid . '" selected>';
                    } else {
                        print '<option value="' . $obj->rowid . '">';
                    }
                    print ($langs->trans("SendingMethod" . strtoupper($obj->code)) != "SendingMethod" . strtoupper($obj->code)) ? $langs->trans("SendingMethod" . strtoupper($obj->code)) : $obj->label;
                    print '</option>';
                    $i++;
                }
                print "</select>";
                if ($user->admin && empty($noinfoadmin)) {
                    print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
                }

                print ajax_combobox('select' . $htmlname);
            } else {
                print $langs->trans("NoShippingMethodDefined");
            }
        } else {
            dol_print_error($this->db);
        }
    }

    /**
     * Creates HTML last in cycle situation invoices selector
     *
     * @param string $selected Preselected ID
     * @param int $socid Company ID
     *
     * @return    string                     HTML select
     */
    public function selectSituationInvoices($selected = '', $socid = 0)
    {
        global $langs;

        $langs->load('bills');

        $opt = '<option value="" selected></option>';
        $sql = "SELECT rowid, ref, situation_cycle_ref, situation_counter, situation_final, fk_soc";
        $sql .= ' FROM ' . $this->db->prefix() . 'facture';
        $sql .= ' WHERE entity IN (' . getEntity('invoice') . ')';
        $sql .= ' AND situation_counter >= 1';
        $sql .= ' AND fk_soc = ' . (int)$socid;
        $sql .= ' AND type <> 2';
        $sql .= ' ORDER by situation_cycle_ref, situation_counter desc';
        $resql = $this->db->query($sql);

        if ($resql && $this->db->num_rows($resql) > 0) {
            // Last seen cycle
            $ref = 0;
            while ($obj = $this->db->fetch_object($resql)) {
                //Same cycle ?
                if ($obj->situation_cycle_ref != $ref) {
                    // Just seen this cycle
                    $ref = $obj->situation_cycle_ref;
                    //not final ?
                    if ($obj->situation_final != 1) {
                        //Not prov?
                        if (substr($obj->ref, 1, 4) != 'PROV') {
                            if ($selected == $obj->rowid) {
                                $opt .= '<option value="' . $obj->rowid . '" selected>' . $obj->ref . '</option>';
                            } else {
                                $opt .= '<option value="' . $obj->rowid . '">' . $obj->ref . '</option>';
                            }
                        }
                    }
                }
            }
        } else {
            dol_syslog("Error sql=" . $sql . ", error=" . $this->error, LOG_ERR);
        }
        if ($opt == '<option value ="" selected></option>') {
            $opt = '<option value ="0" selected>' . $langs->trans('NoSituations') . '</option>';
        }
        return $opt;
    }

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

    /**
     * Creates HTML units selector (code => label)
     *
     * @param string $selected Preselected Unit ID
     * @param string $htmlname Select name
     * @param int<0,1> $showempty Add an empty line
     * @param string $unit_type Restrict to one given unit type
     * @return  string                  HTML select
     */
    public function selectUnits($selected = '', $htmlname = 'units', $showempty = 0, $unit_type = '')
    {
        global $langs;

        $langs->load('products');

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

        $sql = "SELECT rowid, label, code FROM " . $this->db->prefix() . "c_units";
        $sql .= ' WHERE active > 0';
        if (!empty($unit_type)) {
            $sql .= " AND unit_type = '" . $this->db->escape($unit_type) . "'";
        }
        $sql .= " ORDER BY sortorder";

        $resql = $this->db->query($sql);
        if ($resql && $this->db->num_rows($resql) > 0) {
            if ($showempty) {
                $return .= '<option value="none"></option>';
            }

            while ($res = $this->db->fetch_object($resql)) {
                $unitLabel = $res->label;
                if (!empty($langs->tab_translate['unit' . $res->code])) {    // check if Translation is available before
                    $unitLabel = $langs->trans('unit' . $res->code) != $res->label ? $langs->trans('unit' . $res->code) : $res->label;
                }

                if ($selected == $res->rowid) {
                    $return .= '<option value="' . $res->rowid . '" selected>' . $unitLabel . '</option>';
                } else {
                    $return .= '<option value="' . $res->rowid . '">' . $unitLabel . '</option>';
                }
            }
            $return .= '</select>';
        }
        return $return;
    }

    /**
     * Return a HTML select list of establishment
     *
     * @param string $selected Id establishment preselected
     * @param string $htmlname Name of select zone
     * @param int $status Status of searched establishment (0=open, 1=closed, 2=both)
     * @param string $filtre To filter list. This parameter must not come from input of users
     * @param int $useempty 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
     * @param string $moreattrib To add more attribute on select
     * @return  int                     Return integer <0 if error, Num of establishment found if OK (0, 1, 2, ...)
     */
    public function selectEstablishments($selected = '', $htmlname = 'entity', $status = 0, $filtre = '', $useempty = 0, $moreattrib = '')
    {
        global $langs;

        $langs->load("admin");
        $num = 0;

        $sql = "SELECT rowid, name, fk_country, status, entity";
        $sql .= " FROM " . $this->db->prefix() . "establishment";
        $sql .= " WHERE 1=1";
        if ($status != 2) {
            $sql .= " AND status = " . (int)$status;
        }
        if ($filtre) {  // TODO Support USF
            $sql .= " AND " . $filtre;
        }
        $sql .= " ORDER BY name";

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

                while ($i < $num) {
                    $obj = $this->db->fetch_object($result);
                    if ($selected == $obj->rowid) {
                        print '<option value="' . $obj->rowid . '" selected>';
                    } else {
                        print '<option value="' . $obj->rowid . '">';
                    }
                    print trim($obj->name);
                    if ($status == 2 && $obj->status == 1) {
                        print ' (' . $langs->trans("Closed") . ')';
                    }
                    print '</option>';
                    $i++;
                }
                print "</select>";
            } else {
                if ($status == 0) {
                    print '<span class="opacitymedium">' . $langs->trans("NoActiveEstablishmentDefined") . '</span>';
                } else {
                    print '<span class="opacitymedium">' . $langs->trans("NoEstablishmentFound") . '</span>';
                }
            }

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

    /**
     * Display form to select bank account
     *
     * @param string $page Page
     * @param string $selected Id of bank account
     * @param string $htmlname Name of select html field
     * @param int $addempty 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
     * @return                      void
     */
    public function formSelectAccount($page, $selected = '', $htmlname = 'fk_account', $addempty = 0)
    {
        global $langs;
        if ($htmlname != "none") {
            print '<form method="POST" action="' . $page . '">';
            print '<input type="hidden" name="action" value="setbankaccount">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            print img_picto('', 'bank_account', 'class="pictofixedwidth"');
            $nbaccountfound = $this->select_comptes($selected, $htmlname, 0, '', $addempty);
            if ($nbaccountfound > 0) {
                print '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
            }
            print '</form>';
        } else {
            $langs->load('banks');

            if ($selected) {
                $bankstatic = new Account($this->db);
                $result = $bankstatic->fetch($selected);
                if ($result) {
                    print $bankstatic->getNomUrl(1);
                }
            } else {
                print "&nbsp;";
            }
        }
    }

    /**
     *  Return a HTML select list of bank accounts
     *
     * @param int|string $selected Id account preselected
     * @param string $htmlname Name of select zone
     * @param int $status Status of searched accounts (0=open, 1=closed, 2=both)
     * @param string $filtre To filter the list. This parameter must not come from input of users
     * @param int|string $useempty 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries.
     * @param string $moreattrib To add more attribute on select
     * @param int $showcurrency Show currency in label
     * @param string $morecss More CSS
     * @param int $nooutput 1=Return string, do not send to output
     * @return int|string                   If noouput=0: Return integer <0 if error, Num of bank account found if OK (0, 1, 2, ...), If nooutput=1: Return a HTML select string.
     */
    public function select_comptes($selected = '', $htmlname = 'accountid', $status = 0, $filtre = '', $useempty = 0, $moreattrib = '', $showcurrency = 0, $morecss = '', $nooutput = 0)
    {
        // phpcs:enable
        global $langs;

        $out = '';

        $langs->load("admin");
        $num = 0;

        $sql = "SELECT rowid, label, bank, clos as status, currency_code";
        $sql .= " FROM " . $this->db->prefix() . "bank_account";
        $sql .= " WHERE entity IN (" . getEntity('bank_account') . ")";
        if ($status != 2) {
            $sql .= " AND clos = " . (int)$status;
        }
        if ($filtre) {  // TODO Support USF
            $sql .= " AND " . $filtre;
        }
        $sql .= " ORDER BY label";

        dol_syslog(get_only_class($this) . "::select_comptes", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
            $num = $this->db->num_rows($result);
            $i = 0;
            if ($num) {
                $out .= '<select id="select' . $htmlname . '" class="flat selectbankaccount' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '"' . ($moreattrib ? ' ' . $moreattrib : '') . '>';

                if (!empty($useempty) && !is_numeric($useempty)) {
                    $out .= '<option value="-1">' . $langs->trans($useempty) . '</option>';
                } elseif ($useempty == 1 || ($useempty == 2 && $num > 1)) {
                    $out .= '<option value="-1">&nbsp;</option>';
                }

                while ($i < $num) {
                    $obj = $this->db->fetch_object($result);
                    if ($selected == $obj->rowid || ($useempty == 2 && $num == 1 && empty($selected))) {
                        $out .= '<option value="' . $obj->rowid . '" data-currency-code="' . $obj->currency_code . '" selected>';
                    } else {
                        $out .= '<option value="' . $obj->rowid . '" data-currency-code="' . $obj->currency_code . '">';
                    }
                    $out .= trim($obj->label);
                    if ($showcurrency) {
                        $out .= ' (' . $obj->currency_code . ')';
                    }
                    if ($status == 2 && $obj->status == 1) {
                        $out .= ' (' . $langs->trans("Closed") . ')';
                    }
                    $out .= '</option>';
                    $i++;
                }
                $out .= "</select>";
                $out .= ajax_combobox('select' . $htmlname);
            } else {
                if ($status == 0) {
                    $out .= '<span class="opacitymedium">' . $langs->trans("NoActiveBankAccountDefined") . '</span>';
                } else {
                    $out .= '<span class="opacitymedium">' . $langs->trans("NoBankAccountFound") . '</span>';
                }
            }
        } else {
            dol_print_error($this->db);
        }

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

        return $num;
    }

    /**
     *     Show a confirmation HTML form or AJAX popup
     *
     * @param string $page Url of page to call if confirmation is OK
     * @param string $title Title
     * @param string $question Question
     * @param string $action Action
     * @param array{text:string}|array<array{label:string,type:string,size:string,morecss:string,moreattr:string,style:string}> $formquestion An array with complementary inputs to add into forms: array(array('label'=> ,'type'=> , 'size'=>, 'morecss'=>, 'moreattr'=>'autofocus' or 'style=...'))
     * @param string $selectedchoice "" or "no" or "yes"
     * @param int|string $useajax 0=No, 1=Yes use Ajax to show the popup, 2=Yes and also submit page with &confirm=no if choice is No, 'xxx'=Yes and preoutput confirm box with div id=dialog-confirm-xxx
     * @param int $height Force height of box
     * @param int $width Force width of box
     * @return    void
     * @deprecated
     * @see formconfirm()
     */
    public function form_confirm($page, $title, $question, $action, $formquestion = array(), $selectedchoice = "", $useajax = 0, $height = 170, $width = 500)
    {
        // phpcs:enable
        dol_syslog(__METHOD__ . ': using form_confirm is deprecated. Use formconfim instead.', LOG_WARNING);
        print $this->formconfirm($page, $title, $question, $action, $formquestion, $selectedchoice, $useajax, $height, $width);
    }

    /**
     *     Show a confirmation HTML form or AJAX popup.
     *     Easiest way to use this is with useajax=1.
     *     If you use useajax='xxx', you must also add jquery code to trigger opening of box (with correct parameters)
     *     just after calling this method. For example:
     *       print '<script nonce="'.getNonce().'" type="text/javascript">'."\n";
     *       print 'jQuery(document).ready(function() {'."\n";
     *       print 'jQuery(".xxxlink").click(function(e) { jQuery("#aparamid").val(jQuery(this).attr("rel")); jQuery("#dialog-confirm-xxx").dialog("open"); return false; });'."\n";
     *       print '});'."\n";
     *       print '</script>'."\n";
     *
     * @param string $page Url of page to call if confirmation is OK. Can contains parameters (param 'action' and 'confirm' will be reformatted)
     * @param string $title Title
     * @param string $question Question
     * @param string $action Action
     * @param array<array{name:string,value:string,values:string[],default:string,label:string,type:string,size:string,morecss:string,moreattr:string,style:string,inputko?:int<0,1>}>|string|null $formquestion An array with complementary inputs to add into forms: array(array('label'=> ,'type'=> , 'size'=>, 'morecss'=>, 'moreattr'=>'autofocus' or 'style=...'))

     *                                                                                                                                                                                                                  'type' can be 'text', 'password', 'checkbox', 'radio', 'date', 'datetime', 'select', 'multiselect', 'morecss',
     *                                                                                                                                                                                                                  'other', 'onecolumn' or 'hidden'...
     * @param int<0,1>|''|'no'|'yes'|'1'|'0'    $selectedchoice     '' or 'no', or 'yes' or '1', 1, '0' or 0
     * @param int<0,2>|string $useajax 0=No, 1=Yes use Ajax to show the popup, 2=Yes and also submit page with &confirm=no if choice is No, 'xxx'=Yes and preoutput confirm box with div id=dialog-confirm-xxx
     * @param int|string $height Force height of box (0 = auto)
     * @param int $width Force width of box ('999' or '90%'). Ignored and forced to 90% on smartphones.
     * @param int $disableformtag 1=Disable form tag. Can be used if we are already inside a <form> section.
     * @param string $labelbuttonyes Label for Yes
     * @param string $labelbuttonno Label for No
     * @return string                           HTML ajax code if a confirm ajax popup is required, Pure HTML code if it's an html form
     */
    public function formconfirm($page, $title, $question, $action, $formquestion = '', $selectedchoice = '', $useajax = 0, $height = 0, $width = 500, $disableformtag = 0, $labelbuttonyes = 'Yes', $labelbuttonno = 'No')
    {
        global $langs, $conf;

        $more = '<!-- formconfirm - before call, page=' . dol_escape_htmltag($page) . ' -->';
        $formconfirm = '';
        $inputok = array();
        $inputko = array();

        // Clean parameters
        $newselectedchoice = empty($selectedchoice) ? "no" : $selectedchoice;
        if ($conf->browser->layout == 'phone') {
            $width = '95%';
        }

        // Set height automatically if not defined
        if (empty($height)) {
            $height = 220;
            if (is_array($formquestion) && count($formquestion) > 2) {
                $height += ((count($formquestion) - 2) * 24);
            }
        }

        if (is_array($formquestion) && !empty($formquestion)) {
            // First add hidden fields and value
            foreach ($formquestion as $key => $input) {
                if (is_array($input) && !empty($input)) {
                    if ($input['type'] == 'hidden') {
                        $moreattr = (!empty($input['moreattr']) ? ' ' . $input['moreattr'] : '');
                        $morecss = (!empty($input['morecss']) ? ' ' . $input['morecss'] : '');

                        $more .= '<input type="hidden" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '" value="' . dol_escape_htmltag($input['value']) . '" class="' . $morecss . '"' . $moreattr . '>' . "\n";
                    }
                }
            }

            // Now add questions
            $moreonecolumn = '';
            $more .= '<div class="tagtable paddingtopbottomonly centpercent noborderspacing">' . "\n";
            foreach ($formquestion as $key => $input) {
                if (is_array($input) && !empty($input)) {
                    $size = (!empty($input['size']) ? ' size="' . $input['size'] . '"' : '');    // deprecated. Use morecss instead.
                    $moreattr = (!empty($input['moreattr']) ? ' ' . $input['moreattr'] : '');
                    $morecss = (!empty($input['morecss']) ? ' ' . $input['morecss'] : '');

                    if ($input['type'] == 'text') {
                        $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">' . $input['label'] . '</div><div class="tagtd"><input type="text" class="flat' . $morecss . '" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '"' . $size . ' value="' . (empty($input['value']) ? '' : $input['value']) . '"' . $moreattr . ' /></div></div>' . "\n";
                    } elseif ($input['type'] == 'password') {
                        $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">' . $input['label'] . '</div><div class="tagtd"><input type="password" class="flat' . $morecss . '" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '"' . $size . ' value="' . (empty($input['value']) ? '' : $input['value']) . '"' . $moreattr . ' /></div></div>' . "\n";
                    } elseif ($input['type'] == 'textarea') {
                        /*$more .= '<div class="tagtr"><div class="tagtd'.(empty($input['tdclass']) ? '' : (' '.$input['tdclass'])).'">'.$input['label'].'</div><div class="tagtd">';
                        $more .= '<textarea name="'.$input['name'].'" class="'.$morecss.'"'.$moreattr.'>';
                        $more .= $input['value'];
                        $more .= '</textarea>';
                        $more .= '</div></div>'."\n";*/
                        $moreonecolumn .= '<div class="margintoponly">';
                        $moreonecolumn .= $input['label'] . '<br>';
                        $moreonecolumn .= '<textarea name="' . dol_escape_htmltag($input['name']) . '" id="' . dol_escape_htmltag($input['name']) . '" class="' . $morecss . '"' . $moreattr . '>';
                        $moreonecolumn .= $input['value'];
                        $moreonecolumn .= '</textarea>';
                        $moreonecolumn .= '</div>';
                    } elseif (in_array($input['type'], ['select', 'multiselect'])) {
                        if (empty($morecss)) {
                            $morecss = 'minwidth100';
                        }

                        $show_empty = isset($input['select_show_empty']) ? $input['select_show_empty'] : 1;
                        $key_in_label = isset($input['select_key_in_label']) ? $input['select_key_in_label'] : 0;
                        $value_as_key = isset($input['select_value_as_key']) ? $input['select_value_as_key'] : 0;
                        $translate = isset($input['select_translate']) ? $input['select_translate'] : 0;
                        $maxlen = isset($input['select_maxlen']) ? $input['select_maxlen'] : 0;
                        $disabled = isset($input['select_disabled']) ? $input['select_disabled'] : 0;
                        $sort = isset($input['select_sort']) ? $input['select_sort'] : '';

                        $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">';
                        if (!empty($input['label'])) {
                            $more .= $input['label'] . '</div><div class="tagtd left">';
                        }
                        if ($input['type'] == 'select') {
                            $more .= $this->selectarray($input['name'], $input['values'], isset($input['default']) ? $input['default'] : '-1', $show_empty, $key_in_label, $value_as_key, $moreattr, $translate, $maxlen, $disabled, $sort, $morecss);
                        } else {
                            $more .= $this->multiselectarray($input['name'], $input['values'], is_array($input['default']) ? $input['default'] : [$input['default']], $key_in_label, $value_as_key, $morecss, $translate, $maxlen, $moreattr);
                        }
                        $more .= '</div></div>' . "\n";
                    } elseif ($input['type'] == 'checkbox') {
                        $more .= '<div class="tagtr">';
                        $more .= '<div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '"><label for="' . dol_escape_htmltag($input['name']) . '">' . $input['label'] . '</label></div><div class="tagtd">';
                        $more .= '<input type="checkbox" class="flat' . ($morecss ? ' ' . $morecss : '') . '" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '"' . $moreattr;
                        if (!is_bool($input['value']) && $input['value'] != 'false' && $input['value'] != '0' && $input['value'] != '') {
                            $more .= ' checked';
                        }
                        if (is_bool($input['value']) && $input['value']) {
                            $more .= ' checked';
                        }
                        if (isset($input['disabled'])) {
                            $more .= ' disabled';
                        }
                        $more .= ' /></div>';
                        $more .= '</div>' . "\n";
                    } elseif ($input['type'] == 'radio') {
                        $i = 0;
                        foreach ($input['values'] as $selkey => $selval) {
                            $more .= '<div class="tagtr">';
                            if (isset($input['label'])) {
                                if ($i == 0) {
                                    $more .= '<div class="tagtd' . (empty($input['tdclass']) ? ' tdtop' : (' tdtop ' . $input['tdclass'])) . '">' . $input['label'] . '</div>';
                                } else {
                                    $more .= '<div class="tagtd' . (empty($input['tdclass']) ? '' : (' "' . $input['tdclass'])) . '">&nbsp;</div>';
                                }
                            }
                            $more .= '<div class="tagtd' . ($i == 0 ? ' tdtop' : '') . '"><input type="radio" class="flat' . $morecss . '" id="' . dol_escape_htmltag($input['name'] . $selkey) . '" name="' . dol_escape_htmltag($input['name']) . '" value="' . $selkey . '"' . $moreattr;
                            if (!empty($input['disabled'])) {
                                $more .= ' disabled';
                            }
                            if (isset($input['default']) && $input['default'] === $selkey) {
                                $more .= ' checked="checked"';
                            }
                            $more .= ' /> ';
                            $more .= '<label for="' . dol_escape_htmltag($input['name'] . $selkey) . '" class="valignmiddle">' . $selval . '</label>';
                            $more .= '</div></div>' . "\n";
                            $i++;
                        }
                    } elseif ($input['type'] == 'date' || $input['type'] == 'datetime') {
                        $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">' . $input['label'] . '</div>';
                        $more .= '<div class="tagtd">';
                        $addnowlink = (empty($input['datenow']) ? 0 : 1);
                        $h = $m = 0;
                        if ($input['type'] == 'datetime') {
                            $h = isset($input['hours']) ? $input['hours'] : 1;
                            $m = isset($input['minutes']) ? $input['minutes'] : 1;
                        }
                        $more .= $this->selectDate(isset($input['value']) ? $input['value'] : -1, $input['name'], $h, $m, 0, '', 1, $addnowlink);
                        $more .= '</div></div>' . "\n";
                        $formquestion[] = array('name' => $input['name'] . 'day');
                        $formquestion[] = array('name' => $input['name'] . 'month');
                        $formquestion[] = array('name' => $input['name'] . 'year');
                        $formquestion[] = array('name' => $input['name'] . 'hour');
                        $formquestion[] = array('name' => $input['name'] . 'min');
                    } elseif ($input['type'] == 'other') { // can be 1 column or 2 depending if label is set or not
                        $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">';
                        if (!empty($input['label'])) {
                            $more .= $input['label'] . '</div><div class="tagtd">';
                        }
                        $more .= $input['value'];
                        $more .= '</div></div>' . "\n";
                    } elseif ($input['type'] == 'onecolumn') {
                        $moreonecolumn .= '<div class="margintoponly">';
                        $moreonecolumn .= $input['value'];
                        $moreonecolumn .= '</div>' . "\n";
                    } elseif ($input['type'] == 'hidden') {
                        // Do nothing more, already added by a previous loop
                    } elseif ($input['type'] == 'separator') {
                        $more .= '<br>';
                    } else {
                        $more .= 'Error type ' . $input['type'] . ' for the confirm box is not a supported type';
                    }
                }
            }
            $more .= '</div>' . "\n";
            $more .= $moreonecolumn;
        }

        // JQUERY method dialog is broken with smartphone, we use standard HTML.
        // Note: When using dol_use_jmobile or no js, you must also check code for button use a GET url with action=xxx and check that you also output the confirm code when action=xxx
        // See page product/card.php for example
        if (!empty($conf->dol_use_jmobile)) {
            $useajax = 0;
        }
        if (empty($conf->use_javascript_ajax)) {
            $useajax = 0;
        }

        if ($useajax) {
            $autoOpen = true;
            $dialogconfirm = 'dialog-confirm';
            $button = '';
            if (!is_numeric($useajax)) {
                $button = $useajax;
                $useajax = 1;
                $autoOpen = false;
                $dialogconfirm .= '-' . $button;
            }
            $pageyes = $page . (preg_match('/\?/', $page) ? '&' : '?') . 'action=' . urlencode($action) . '&confirm=yes';
            $pageno = ($useajax == 2 ? $page . (preg_match('/\?/', $page) ? '&' : '?') . 'action=' . urlencode($action) . '&confirm=no' : '');

            // Add input fields into list of fields to read during submit (inputok and inputko)
            if (is_array($formquestion)) {
                foreach ($formquestion as $key => $input) {
                    //print "xx ".$key." rr ".is_array($input)."<br>\n";
                    // Add name of fields to propagate with the GET when submitting the form with button OK.
                    if (is_array($input) && isset($input['name'])) {
                        if (strpos($input['name'], ',') > 0) {
                            $inputok = array_merge($inputok, explode(',', $input['name']));
                        } else {
                            array_push($inputok, $input['name']);
                        }
                    }
                    // Add name of fields to propagate with the GET when submitting the form with button KO.
                    // @phan-suppress-next-line PhanTypePossiblyInvalidDimOffset
                    if (is_array($input) && isset($input['inputko']) && $input['inputko'] == 1 && isset($input['name'])) {
                        array_push($inputko, $input['name']);
                    }
                }
            }

            // Show JQuery confirm box.
            $formconfirm .= '<div id="' . $dialogconfirm . '" title="' . dol_escape_htmltag($title) . '" style="display: none;">';
            if (is_array($formquestion) && array_key_exists('text', $formquestion) && !empty($formquestion['text'])) {
                $formconfirm .= '<div class="confirmtext">' . $formquestion['text'] . '</div>' . "\n";
            }
            if (!empty($more)) {
                $formconfirm .= '<div class="confirmquestions">' . $more . '</div>' . "\n";
            }
            $formconfirm .= ($question ? '<div class="confirmmessage">' . img_help(0, '') . ' ' . $question . '</div>' : '');
            $formconfirm .= '</div>' . "\n";

            $formconfirm .= "\n<!-- begin code of popup for formconfirm page=" . $page . " -->\n";
            $formconfirm .= '<script nonce="' . getNonce() . '" type="text/javascript">' . "\n";
            $formconfirm .= "/* Code for the jQuery('#dialogforpopup').dialog() */\n";
            $formconfirm .= 'jQuery(document).ready(function() {
            $(function() {
            	$( "#' . $dialogconfirm . '" ).dialog(
            	{
                    autoOpen: ' . ($autoOpen ? "true" : "false") . ',';
            if ($newselectedchoice == 'no') {
                $formconfirm .= '
						open: function() {
            				$(this).parent().find("button.ui-button:eq(2)").focus();
						},';
            }

            $jsforcursor = '';
            if ($useajax == 1) {
                $jsforcursor = '// The call to urljump can be slow, so we set the wait cursor' . "\n";
                $jsforcursor .= 'jQuery("html,body,#id-container").addClass("cursorwait");' . "\n";
            }

            $postconfirmas = 'GET';

            $formconfirm .= '
                    resizable: false,
                    height: "' . $height . '",
                    width: "' . $width . '",
                    modal: true,
                    closeOnEscape: false,
                    buttons: {
                        "' . dol_escape_js($langs->transnoentities($labelbuttonyes)) . '": function() {
							var options = "token=' . urlencode(newToken()) . '";
                        	var inputok = ' . json_encode($inputok) . ';	/* List of fields into form */
							var page = "' . dol_escape_js(!empty($page) ? $page : '') . '";
                         	var pageyes = "' . dol_escape_js(!empty($pageyes) ? $pageyes : '') . '";

                         	if (inputok.length > 0) {
                         		$.each(inputok, function(i, inputname) {
                         			var more = "";
									var inputvalue;
                         			if ($("input[name=\'" + inputname + "\']").attr("type") == "radio") {
										inputvalue = $("input[name=\'" + inputname + "\']:checked").val();
									} else {
                         		    	if ($("#" + inputname).attr("type") == "checkbox") { more = ":checked"; }
                         				inputvalue = $("#" + inputname + more).val();
									}
                         			if (typeof inputvalue == "undefined") { inputvalue=""; }
									console.log("formconfirm check inputname="+inputname+" inputvalue="+inputvalue);
                         			options += "&" + inputname + "=" + encodeURIComponent(inputvalue);
                         		});
                         	}
                         	var urljump = pageyes + (pageyes.indexOf("?") < 0 ? "?" : "&") + options;
            				if (pageyes.length > 0) {';
            if ($postconfirmas == 'GET') {
                $formconfirm .= 'location.href = urljump;';
            } else {
                $formconfirm .= $jsforcursor;
                $formconfirm .= 'var post = $.post(
									pageyes,
									options,
									function(data) { $("body").html(data); jQuery("html,body,#id-container").removeClass("cursorwait"); }
								);';
            }
            $formconfirm .= '
								console.log("after post ok");
							}
	                        $(this).dialog("close");
                        },
                        "' . dol_escape_js($langs->transnoentities($labelbuttonno)) . '": function() {
                        	var options = "token=' . urlencode(newToken()) . '";
                         	var inputko = ' . json_encode($inputko) . ';	/* List of fields into form */
							var page = "' . dol_escape_js(!empty($page) ? $page : '') . '";
                         	var pageno="' . dol_escape_js(!empty($pageno) ? $pageno : '') . '";
                         	if (inputko.length > 0) {
                         		$.each(inputko, function(i, inputname) {
                         			var more = "";
                         			if ($("#" + inputname).attr("type") == "checkbox") { more = ":checked"; }
                         			var inputvalue = $("#" + inputname + more).val();
                         			if (typeof inputvalue == "undefined") { inputvalue=""; }
                         			options += "&" + inputname + "=" + encodeURIComponent(inputvalue);
                         		});
                         	}
                         	var urljump=pageno + (pageno.indexOf("?") < 0 ? "?" : "&") + options;
                         	//alert(urljump);
            				if (pageno.length > 0) {';
            if ($postconfirmas == 'GET') {
                $formconfirm .= 'location.href = urljump;';
            } else {
                $formconfirm .= $jsforcursor;
                $formconfirm .= 'var post = $.post(
									pageno,
									options,
									function(data) { $("body").html(data); jQuery("html,body,#id-container").removeClass("cursorwait"); }
								);';
            }
            $formconfirm .= '
								console.log("after post ko");
							}
                            $(this).dialog("close");
                        }
                    }
                }
                );

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

            if (empty($disableformtag)) {
                $formconfirm .= '<form method="POST" action="' . $page . '" class="notoptoleftroright">' . "\n";
            }

            $formconfirm .= '<input type="hidden" name="action" value="' . $action . '">' . "\n";
            $formconfirm .= '<input type="hidden" name="token" value="' . newToken() . '">' . "\n";

            $formconfirm .= '<table class="valid centpercent">' . "\n";

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

            // Line text
            if (is_array($formquestion) && array_key_exists('text', $formquestion) && !empty($formquestion['text'])) {
                $formconfirm .= '<tr class="valid"><td class="valid" colspan="2">' . $formquestion['text'] . '</td></tr>' . "\n";
            }

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

            // Line with question
            $formconfirm .= '<tr class="valid">';
            $formconfirm .= '<td class="valid">' . $question . '</td>';
            $formconfirm .= '<td class="valid center">';
            $formconfirm .= $this->selectyesno("confirm", $newselectedchoice, 0, false, 0, 0, 'marginleftonly marginrightonly', $labelbuttonyes, $labelbuttonno);
            $formconfirm .= '<input class="button valignmiddle confirmvalidatebutton small" type="submit" value="' . $langs->trans("Validate") . '">';
            $formconfirm .= '</td>';
            $formconfirm .= '</tr>' . "\n";

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

            if (empty($disableformtag)) {
                $formconfirm .= "</form>\n";
            }
            $formconfirm .= '<br>';

            if (!empty($conf->use_javascript_ajax)) {
                $formconfirm .= '<!-- code to disable button to avoid double clic -->';
                $formconfirm .= '<script nonce="' . getNonce() . '" type="text/javascript">' . "\n";
                $formconfirm .= '
				$(document).ready(function () {
					$(".confirmvalidatebutton").on("click", function() {
						console.log("We click on button confirmvalidatebutton");
						$(this).attr("disabled", "disabled");
						setTimeout(\'$(".confirmvalidatebutton").removeAttr("disabled")\', 3000);
						//console.log($(this).closest("form"));
						$(this).closest("form").submit();
					});
				});
				';
                $formconfirm .= '</script>' . "\n";
            }

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

        return $formconfirm;
    }

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

    /**
     * Show a multiselect form from an array. WARNING: Use this only for short lists.
     *
     * @param string $htmlname Name of select
     * @param array<string,string|array{id:string,label:string,color:string,picto:string,labelhtml:string}> $array Array(key=>value) or Array(key=>array('id'=>key, 'label'=>value, 'color'=> , 'picto'=> , 'labelhtml'=> ))
     * @param string[] $selected Array of keys preselected
     * @param int<0,1> $key_in_label 1 to show key like in "[key] value"
     * @param int<0,1> $value_as_key 1 to use value as key
     * @param string $morecss Add more css style
     * @param int<0,1> $translate Translate and encode value
     * @param int|string $width Force width of select box. May be used only when using jquery couch. Example: 250, '95%'
     * @param string $moreattrib Add more options on select component. Example: 'disabled'
     * @param string $elemtype Type of element we show ('category', ...). Will execute a formatting function on it. To use in readonly mode if js component support HTML formatting.
     * @param string $placeholder String to use as placeholder
     * @param int<-1,1> $addjscombo Add js combo
     * @return  string                      HTML multiselect string
     * @see selectarray(), selectArrayAjax(), selectArrayFilter()
     */
    public static function multiselectarray($htmlname, $array, $selected = array(), $key_in_label = 0, $value_as_key = 0, $morecss = '', $translate = 0, $width = 0, $moreattrib = '', $elemtype = '', $placeholder = '', $addjscombo = -1)
    {
        global $conf, $langs;

        $out = '';

        if ($addjscombo < 0) {
            if (!getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
                $addjscombo = 1;
            } else {
                $addjscombo = 0;
            }
        }

        $useenhancedmultiselect = 0;
        if (!empty($conf->use_javascript_ajax) && !defined('MAIN_DO_NOT_USE_JQUERY_MULTISELECT') && (getDolGlobalString('MAIN_USE_JQUERY_MULTISELECT') || defined('REQUIRE_JQUERY_MULTISELECT'))) {
            if ($addjscombo) {
                $useenhancedmultiselect = 1;    // Use the js multiselect in one line. Possible only if $addjscombo not 0.
            }
        }

        // We need a hidden field because when using the multiselect, if we unselect all, there is no
        // variable submitted at all, so no way to make a difference between variable not submitted and variable
        // submitted to nothing.
        $out .= '<input type="hidden" name="' . $htmlname . '_multiselect" value="1">';
        // Output select component
        $out .= '<select id="' . $htmlname . '" class="multiselect' . ($useenhancedmultiselect ? ' multiselectononeline' : '') . ($morecss ? ' ' . $morecss : '') . '" multiple name="' . $htmlname . '[]"' . ($moreattrib ? ' ' . $moreattrib : '') . ($width ? ' style="width: ' . (preg_match('/%/', (string)$width) ? $width : $width . 'px') . '"' : '') . '>' . "\n";
        if (is_array($array) && !empty($array)) {
            if ($value_as_key) {
                $array = array_combine($array, $array);
            }

            if (!empty($array)) {
                foreach ($array as $key => $value) {
                    $tmpkey = $key;
                    $tmpvalue = $value;
                    $tmpcolor = '';
                    $tmppicto = '';
                    $tmplabelhtml = '';
                    if (is_array($value) && array_key_exists('id', $value) && array_key_exists('label', $value)) {
                        $tmpkey = $value['id'];
                        $tmpvalue = empty($value['label']) ? '' : $value['label'];
                        $tmpcolor = empty($value['color']) ? '' : $value['color'];
                        $tmppicto = empty($value['picto']) ? '' : $value['picto'];
                        $tmplabelhtml = empty($value['labelhtml']) ? (empty($value['data-html']) ? '' : $value['data-html']) : $value['labelhtml'];
                    }
                    $newval = ($translate ? $langs->trans($tmpvalue) : $tmpvalue);
                    $newval = ($key_in_label ? $tmpkey . ' - ' . $newval : $newval);

                    $out .= '<option value="' . $tmpkey . '"';
                    if (is_array($selected) && !empty($selected) && in_array((string)$tmpkey, $selected) && ((string)$tmpkey != '')) {
                        $out .= ' selected';
                    }
                    if (!empty($tmplabelhtml)) {
                        $out .= ' data-html="' . dol_escape_htmltag($tmplabelhtml, 0, 0, '', 0, 1) . '"';
                    } else {
                        $tmplabelhtml = ($tmppicto ? img_picto('', $tmppicto, 'class="pictofixedwidth" style="color: #' . $tmpcolor . '"') : '') . $newval;
                        $out .= ' data-html="' . dol_escape_htmltag($tmplabelhtml, 0, 0, '', 0, 1) . '"';
                    }
                    $out .= '>';
                    $out .= dol_htmlentitiesbr($newval);
                    $out .= '</option>' . "\n";
                }
            }
        }
        $out .= '</select>' . "\n";

        // Add code for jquery to use multiselect
        if (!empty($conf->use_javascript_ajax) && getDolGlobalString('MAIN_USE_JQUERY_MULTISELECT') || defined('REQUIRE_JQUERY_MULTISELECT')) {

            $out .= "\n" . '<!-- JS CODE TO ENABLE select for id ' . $htmlname . ', addjscombo=' . $addjscombo . ' -->';
            $out .= "\n" . '<script nonce="' . getNonce() . '">' . "\n";
            if ($addjscombo == 1) {
                $tmpplugin = !getDolGlobalString('MAIN_USE_JQUERY_MULTISELECT') ? constant('REQUIRE_JQUERY_MULTISELECT') : $conf->global->MAIN_USE_JQUERY_MULTISELECT;
                $out .= 'function formatResult(record, container) {' . "\n";
                // If property data-html set, we decode html entities and use this.
                // Note that HTML content must have been sanitized from js with dol_escape_htmltag(xxx, 0, 0, '', 0, 1) when building the select option.
                $out .= '	if ($(record.element).attr("data-html") != undefined && typeof htmlEntityDecodeJs === "function") {';
                //$out .= '     console.log("aaa");';
                $out .= '		return htmlEntityDecodeJs($(record.element).attr("data-html"));';
                $out .= '	}' . "\n";
                $out .= '	return record.text;';
                $out .= '}' . "\n";
                $out .= 'function formatSelection(record) {' . "\n";
                if ($elemtype == 'category') {
                    $out .= 'return \'<span><img src="' . constant('DOL_URL_ROOT') . '/theme/eldy/img/object_category.png"> \'+record.text+\'</span>\';';
                } else {
                    $out .= 'return record.text;';
                }
                $out .= '}' . "\n";
                $out .= '$(document).ready(function () {
							$(\'#' . $htmlname . '\').' . $tmpplugin . '({';
                if ($placeholder) {
                    $out .= '
								placeholder: {
								    id: \'-1\',
								    text: \'' . dol_escape_js($placeholder) . '\'
								  },';
                }
                $out .= '		dir: \'ltr\',
								containerCssClass: \':all:\',					/* Line to add class of origin SELECT propagated to the new <span class="select2-selection...> tag (ko with multiselect) */
								dropdownCssClass: \'' . $morecss . '\',				/* Line to add class on the new <span class="select2-selection...> tag (ok with multiselect). Need full version of select2. */
								// Specify format function for dropdown item
								formatResult: formatResult,
							 	templateResult: formatResult,		/* For 4.0 */
								escapeMarkup: function (markup) { return markup; }, 	// let our custom formatter work
								// Specify format function for selected item
								formatSelection: formatSelection,
							 	templateSelection: formatSelection		/* For 4.0 */
							});

							/* Add also morecss to the css .select2 that is after the #htmlname, for component that are show dynamically after load, because select2 set
								 the size only if component is not hidden by default on load */
							$(\'#' . $htmlname . ' + .select2\').addClass(\'' . $morecss . '\');
						});' . "\n";
            } elseif ($addjscombo == 2 && !defined('DISABLE_MULTISELECT')) {
                // Add other js lib
                // TODO external lib multiselect/jquery.multi-select.js must have been loaded to use this multiselect plugin
                // ...
                $out .= 'console.log(\'addjscombo=2 for htmlname=' . $htmlname . '\');';
                $out .= '$(document).ready(function () {
							$(\'#' . $htmlname . '\').multiSelect({
								containerHTML: \'<div class="multi-select-container">\',
								menuHTML: \'<div class="multi-select-menu">\',
								buttonHTML: \'<span class="multi-select-button ' . $morecss . '">\',
								menuItemHTML: \'<label class="multi-select-menuitem">\',
								activeClass: \'multi-select-container--open\',
								noneText: \'' . $placeholder . '\'
							});
						})';
            }
            $out .= '</script>';
        }

        return $out;
    }

    /**
     *    Return an html string with a select combo box to choose yes or no
     *
     * @param string $htmlname Name of html select field
     * @param string $value Pre-selected value
     * @param int $option 0 return yes/no, 1 return 1/0
     * @param bool $disabled true or false
     * @param int $useempty 1=Add empty line
     * @param int $addjscombo 1=Add js beautifier on combo box
     * @param string $morecss More CSS
     * @param string $labelyes Label for Yes
     * @param string $labelno Label for No
     * @return    string                See option
     */
    public function selectyesno($htmlname, $value = '', $option = 0, $disabled = false, $useempty = 0, $addjscombo = 0, $morecss = '', $labelyes = 'Yes', $labelno = 'No')
    {
        global $langs;

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

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

        $resultyesno = '<select class="flat width75' . ($morecss ? ' ' . $morecss : '') . '" id="' . $htmlname . '" name="' . $htmlname . '"' . $disabled . '>' . "\n";
        if ($useempty) {
            $resultyesno .= '<option value="-1"' . (($value < 0) ? ' selected' : '') . '>&nbsp;</option>' . "\n";
        }
        if (("$value" == 'yes') || ($value == 1)) {
            $resultyesno .= '<option value="' . $yes . '" selected>' . $langs->trans($labelyes) . '</option>' . "\n";
            $resultyesno .= '<option value="' . $no . '">' . $langs->trans($labelno) . '</option>' . "\n";
        } else {
            $selected = (($useempty && $value != '0' && $value != 'no') ? '' : ' selected');
            $resultyesno .= '<option value="' . $yes . '">' . $langs->trans($labelyes) . '</option>' . "\n";
            $resultyesno .= '<option value="' . $no . '"' . $selected . '>' . $langs->trans($labelno) . '</option>' . "\n";
        }
        $resultyesno .= '</select>' . "\n";

        if ($addjscombo) {
            $resultyesno .= ajax_combobox($htmlname, array(), 0, 0, 'resolve', ($useempty < 0 ? (string)$useempty : '-1'), $morecss);
        }

        return $resultyesno;
    }

    /**
     * Show a form to select a project
     *
     * @param int $page Page
     * @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 $selected Id preselected project
     * @param string $htmlname Name of select field
     * @param int $discard_closed Discard closed projects (0=Keep,1=hide completely except $selected,2=Disable)
     * @param int $maxlength Max length
     * @param int $forcefocus Force focus on field (works with javascript only)
     * @param int $nooutput No print is done. String is returned.
     * @param string $textifnoproject Text to show if no project
     * @param string $morecss More CSS
     * @return  string                          Return html content
     */
    public function form_project($page, $socid, $selected = '', $htmlname = 'projectid', $discard_closed = 0, $maxlength = 20, $forcefocus = 0, $nooutput = 0, $textifnoproject = '', $morecss = '')
    {
        // phpcs:enable
        global $langs;

        require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/project.lib.php';

        $out = '';

        $formproject = new FormProjets($this->db);

        $langs->load("project");
        if ($htmlname != "none") {
            $out .= '<form method="post" action="' . $page . '">';
            $out .= '<input type="hidden" name="action" value="classin">';
            $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
            $out .= $formproject->select_projects($socid, $selected, $htmlname, $maxlength, 0, 1, $discard_closed, $forcefocus, 0, 0, '', 1, 0, $morecss);
            $out .= '<input type="submit" class="button smallpaddingimp" value="' . $langs->trans("Modify") . '">';
            $out .= '</form>';
        } else {
            $out .= '<span class="project_head_block">';
            if ($selected) {
                $projet = new Project($this->db);
                $projet->fetch($selected);
                $out .= $projet->getNomUrl(0, '', 1);
            } else {
                $out .= '<span class="opacitymedium">' . $textifnoproject . '</span>';
            }
            $out .= '</span>';
        }

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

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

    /**
     * Show a form to select payment conditions
     *
     * @param int $page Page
     * @param string $selected Id condition pre-selectionne
     * @param string $htmlname Name of select html field
     * @param int $addempty Add empty entry
     * @param string $type Type ('direct-debit' or 'bank-transfer')
     * @param int $filtertype If > 0, include payment terms with deposit percentage (for objects other than invoices and invoice templates)
     * @param int $deposit_percent < 0 : deposit_percent input makes no sense (for example, in list filters)
     *                                      0 : use default deposit percentage from entry
     *                                      > 0 : force deposit percentage (for example, from company object)
     * @param int $nooutput No print is done. String is returned.
     * @return string                       HTML output or ''
     */
    public function form_conditions_reglement($page, $selected = '', $htmlname = 'cond_reglement_id', $addempty = 0, $type = '', $filtertype = -1, $deposit_percent = -1, $nooutput = 0)
    {
        // phpcs:enable
        global $langs;

        $out = '';

        if ($htmlname != "none") {
            $out .= '<form method="POST" action="' . $page . '">';
            $out .= '<input type="hidden" name="action" value="setconditions">';
            $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
            if ($type) {
                $out .= '<input type="hidden" name="type" value="' . dol_escape_htmltag($type) . '">';
            }
            $out .= $this->getSelectConditionsPaiements($selected, $htmlname, $filtertype, $addempty, 0, '', $deposit_percent);
            $out .= '<input type="submit" class="button valignmiddle smallpaddingimp" value="' . $langs->trans("Modify") . '">';
            $out .= '</form>';
        } else {
            if ($selected) {
                $this->load_cache_conditions_paiements();
                if (isset($this->cache_conditions_paiements[$selected])) {
                    $label = $this->cache_conditions_paiements[$selected]['label'];

                    if (!empty($this->cache_conditions_paiements[$selected]['deposit_percent'])) {
                        $label = str_replace('__DEPOSIT_PERCENT__', $deposit_percent > 0 ? $deposit_percent : $this->cache_conditions_paiements[$selected]['deposit_percent'], $label);
                    }

                    $out .= $label;
                } else {
                    $langs->load('errors');
                    $out .= $langs->trans('ErrorNotInDictionaryPaymentConditions');
                }
            } else {
                $out .= '&nbsp;';
            }
        }

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

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

    /**
     *  Show a form to select a delivery delay
     *
     * @param int $page Page
     * @param string $selected Id condition pre-selectionne
     * @param string $htmlname Name of select html field
     * @param int $addempty Add an empty entry
     * @return  void
     */
    public function form_availability($page, $selected = '', $htmlname = 'availability', $addempty = 0)
    {
        // phpcs:enable
        global $langs;
        if ($htmlname != "none") {
            print '<form method="post" action="' . $page . '">';
            print '<input type="hidden" name="action" value="setavailability">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            $this->selectAvailabilityDelay($selected, $htmlname, -1, $addempty);
            print '<input type="submit" name="modify" class="button smallpaddingimp" value="' . $langs->trans("Modify") . '">';
            print '<input type="submit" name="cancel" class="button smallpaddingimp" value="' . $langs->trans("Cancel") . '">';
            print '</form>';
        } else {
            if ($selected) {
                $this->load_cache_availability();
                print $this->cache_availability[$selected]['label'];
            } else {
                print "&nbsp;";
            }
        }
    }

    /**
     * Return the list of type of delay available.
     *
     * @param string $selected Id du type de delais pre-selectionne
     * @param string $htmlname Nom de la zone select
     * @param string $filtertype To add a filter
     * @param int $addempty Add empty entry
     * @param string $morecss More CSS
     * @return  void
     */
    public function selectAvailabilityDelay($selected = '', $htmlname = 'availid', $filtertype = '', $addempty = 0, $morecss = '')
    {
        global $langs, $user;

        $this->load_cache_availability();

        dol_syslog(__METHOD__ . " selected=" . $selected . ", htmlname=" . $htmlname, LOG_DEBUG);

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


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

    /**
     *      Load int a cache property th elist of possible delivery delays.
     *
     * @return     int             Nb of lines loaded, <0 if KO
     */
    public function load_cache_availability()
    {
        // phpcs:enable
        global $langs;

        $num = count($this->cache_availability);    // TODO Use $conf->cache['availability'] instead of $this->cache_availability
        if ($num > 0) {
            return 0; // Cache already loaded
        }

        dol_syslog(__METHOD__, LOG_DEBUG);

        $langs->load('propal');

        $sql = "SELECT rowid, code, label, position";
        $sql .= " FROM " . $this->db->prefix() . 'c_availability';
        $sql .= " WHERE active > 0";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
            while ($i < $num) {
                $obj = $this->db->fetch_object($resql);

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

            $this->cache_availability = dol_sort_array($this->cache_availability, 'position', 'asc', 0, 0, 1);

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

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

    /**
     *  Output HTML form to select list of input reason (events that triggered an object creation, like after sending an emailing, making an advert, ...)
     *  List found into table c_input_reason loaded by loadCacheInputReason
     *
     * @param string $page Page
     * @param string $selected Id condition pre-selectionne
     * @param string $htmlname Name of select html field
     * @param int $addempty Add empty entry
     * @return    void
     */
    public function formInputReason($page, $selected = '', $htmlname = 'demandreason', $addempty = 0)
    {
        global $langs;
        if ($htmlname != "none") {
            print '<form method="post" action="' . $page . '">';
            print '<input type="hidden" name="action" value="setdemandreason">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            $this->selectInputReason($selected, $htmlname, -1, $addempty);
            print '<input type="submit" class="button smallpaddingimp" value="' . $langs->trans("Modify") . '">';
            print '</form>';
        } else {
            if ($selected) {
                $this->loadCacheInputReason();
                foreach ($this->cache_demand_reason as $key => $val) {
                    if ($val['id'] == $selected) {
                        print $val['label'];
                        break;
                    }
                }
            } else {
                print "&nbsp;";
            }
        }
    }

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

    /**
     * Return list of input reason (events that triggered an object creation, like after sending an emailing, making an advert, ...)
     * List found into table c_input_reason loaded by loadCacheInputReason
     *
     * @param string $selected Id or code of type origin to select by default
     * @param string $htmlname Nom de la zone select
     * @param string $exclude To exclude a code value (Example: SRC_PROP)
     * @param int $addempty Add an empty entry
     * @param string $morecss Add more css to the HTML select component
     * @param int $notooltip Do not show the tooltip for admin
     * @return  void
     */
    public function selectInputReason($selected = '', $htmlname = 'demandreasonid', $exclude = '', $addempty = 0, $morecss = '', $notooltip = 0)
    {
        global $langs, $user;

        $this->loadCacheInputReason();

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

            if ($selected && ($selected == $arraydemandreason['id'] || $selected == $arraydemandreason['code'])) {
                print '<option value="' . $arraydemandreason['id'] . '" selected>';
            } else {
                print '<option value="' . $arraydemandreason['id'] . '">';
            }
            $label = $arraydemandreason['label']; // Translation of label was already done into the ->loadCacheInputReason
            print $langs->trans($label);
            print '</option>';
        }
        print '</select>';
        if ($user->admin && empty($notooltip)) {
            print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
        }
        print ajax_combobox('select_' . $htmlname);
    }

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

        $num = count($this->cache_demand_reason);    // TODO Use $conf->cache['input_reason'] instead of $this->cache_demand_reason
        if ($num > 0) {
            return 0; // Cache already loaded
        }

        $sql = "SELECT rowid, code, label";
        $sql .= " FROM " . $this->db->prefix() . 'c_input_reason';
        $sql .= " WHERE active > 0";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
            $tmparray = array();
            while ($i < $num) {
                $obj = $this->db->fetch_object($resql);

                // Si traduction existe, on l'utilise, sinon on prend le libelle par default
                $label = ($obj->label != '-' ? $obj->label : '');
                if ($langs->trans("DemandReasonType" . $obj->code) != "DemandReasonType" . $obj->code) {
                    $label = $langs->trans("DemandReasonType" . $obj->code); // So translation key DemandReasonTypeSRC_XXX will work
                }
                if ($langs->trans($obj->code) != $obj->code) {
                    $label = $langs->trans($obj->code); // So translation key SRC_XXX will work
                }

                $tmparray[$obj->rowid]['id'] = $obj->rowid;
                $tmparray[$obj->rowid]['code'] = $obj->code;
                $tmparray[$obj->rowid]['label'] = $label;
                $i++;
            }

            $this->cache_demand_reason = dol_sort_array($tmparray, 'label', 'asc', 0, 0, 1);

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

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

    /**
     *    Show a form + html select a date
     *
     * @param string $page Page
     * @param string $selected Date preselected
     * @param string $htmlname Html name of date input fields or 'none'
     * @param int $displayhour Display hour selector
     * @param int $displaymin Display minutes selector
     * @param int $nooutput 1=No print output, return string
     * @param string $type 'direct-debit' or 'bank-transfer'
     * @return    string
     * @see        selectDate()
     */
    public function form_date($page, $selected, $htmlname, $displayhour = 0, $displaymin = 0, $nooutput = 0, $type = '')
    {
        // phpcs:enable
        global $langs;

        $ret = '';

        if ($htmlname != "none") {
            $ret .= '<form method="POST" action="' . $page . '" name="form' . $htmlname . '">';
            $ret .= '<input type="hidden" name="action" value="set' . $htmlname . '">';
            $ret .= '<input type="hidden" name="token" value="' . newToken() . '">';
            if ($type) {
                $ret .= '<input type="hidden" name="type" value="' . dol_escape_htmltag($type) . '">';
            }
            $ret .= '<table class="nobordernopadding">';
            $ret .= '<tr><td>';
            $ret .= $this->selectDate($selected, $htmlname, $displayhour, $displaymin, 1, 'form' . $htmlname, 1, 0);
            $ret .= '</td>';
            $ret .= '<td class="left"><input type="submit" class="button smallpaddingimp" value="' . $langs->trans("Modify") . '"></td>';
            $ret .= '</tr></table></form>';
        } else {
            if ($displayhour) {
                $ret .= dol_print_date($selected, 'dayhour');
            } else {
                $ret .= dol_print_date($selected, 'day');
            }
        }

        if (empty($nooutput)) {
            print $ret;
        }
        return $ret;
    }


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

    /**
     *  Show a select form to choose a user
     *
     * @param string $page Page
     * @param string $selected Id of user preselected
     * @param string $htmlname Name of input html field. If 'none', we just output the user link.
     * @param int[] $exclude List of users id to exclude
     * @param int[] $include List of users id to include
     * @return    void
     */
    public function form_users($page, $selected = '', $htmlname = 'userid', $exclude = array(), $include = array())
    {
        // phpcs:enable
        global $langs;

        if ($htmlname != "none") {
            print '<form method="POST" action="' . $page . '" name="form' . $htmlname . '">';
            print '<input type="hidden" name="action" value="set' . $htmlname . '">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            print $this->select_dolusers($selected, $htmlname, 1, $exclude, 0, $include);
            print '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
            print '</form>';
        } else {
            if ($selected) {
                $theuser = new User($this->db);
                $theuser->fetch($selected);
                print $theuser->getNomUrl(1);
            } else {
                print "&nbsp;";
            }
        }
    }


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

    /**
     *    Show form with payment mode
     *
     * @param string $page Page
     * @param string $selected Id mode pre-selectionne
     * @param string $htmlname Name of select html field
     * @param string $filtertype To filter on field type in llx_c_paiement ('CRDT' or 'DBIT' or array('code'=>xx,'label'=>zz))
     * @param int $active Active or not, -1 = all
     * @param int $addempty 1=Add empty entry
     * @param string $type Type ('direct-debit' or 'bank-transfer')
     * @param int $nooutput 1=Return string, no output
     * @return    string                    HTML output or ''
     */
    public function form_modes_reglement($page, $selected = '', $htmlname = 'mode_reglement_id', $filtertype = '', $active = 1, $addempty = 0, $type = '', $nooutput = 0)
    {
        // phpcs:enable
        global $langs;

        $out = '';
        if ($htmlname != "none") {
            $out .= '<form method="POST" action="' . $page . '">';
            $out .= '<input type="hidden" name="action" value="setmode">';
            $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
            if ($type) {
                $out .= '<input type="hidden" name="type" value="' . dol_escape_htmltag($type) . '">';
            }
            $out .= $this->select_types_paiements($selected, $htmlname, $filtertype, 0, $addempty, 0, 0, $active, '', 1);
            $out .= '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
            $out .= '</form>';
        } else {
            if ($selected) {
                $this->load_cache_types_paiements();
                $out .= $this->cache_types_paiements[$selected]['label'];
            } else {
                $out .= "&nbsp;";
            }
        }

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

    /**
     * Return list of payment methods
     * Constant MAIN_DEFAULT_PAYMENT_TYPE_ID can used to set default value but scope is all application, probably not what you want.
     *
     * @param string $selected Id or code or preselected payment mode
     * @param string $htmlname Name of select field
     * @param string $filtertype To filter on field type in llx_c_paiement ('CRDT' or 'DBIT' or array('code'=>xx,'label'=>zz))
     * @param int $format 0=id+label, 1=code+code, 2=code+label, 3=id+code
     * @param int $empty 1=can be empty, 0 otherwise
     * @param int $noadmininfo 0=Add admin info, 1=Disable admin info
     * @param int $maxlength Max length of label
     * @param int $active Active or not, -1 = all
     * @param string $morecss Add more CSS on select tag
     * @param int $nooutput 1=Return string, do not send to output
     * @return  string|void             String for the HTML select component
     */
    public function select_types_paiements($selected = '', $htmlname = 'paiementtype', $filtertype = '', $format = 0, $empty = 1, $noadmininfo = 0, $maxlength = 0, $active = 1, $morecss = '', $nooutput = 0)
    {
        // phpcs:enable
        global $langs, $user, $conf;

        $out = '';

        dol_syslog(__METHOD__ . " " . $selected . ", " . $htmlname . ", " . $filtertype . ", " . $format, LOG_DEBUG);

        $filterarray = array();
        if ($filtertype == 'CRDT') {
            $filterarray = array(0, 2, 3);
        } elseif ($filtertype == 'DBIT') {
            $filterarray = array(1, 2, 3);
        } elseif ($filtertype != '' && $filtertype != '-1') {
            $filterarray = explode(',', $filtertype);
        }

        $this->load_cache_types_paiements();

        // Set default value if not already set by caller
        if (empty($selected) && getDolGlobalString('MAIN_DEFAULT_PAYMENT_TYPE_ID')) {
            dol_syslog(__METHOD__ . "Using deprecated option MAIN_DEFAULT_PAYMENT_TYPE_ID", LOG_NOTICE);
            $selected = getDolGlobalString('MAIN_DEFAULT_PAYMENT_TYPE_ID');
        }

        $out .= '<select id="select' . $htmlname . '" class="flat selectpaymenttypes' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '">';
        if ($empty) {
            $out .= '<option value="">&nbsp;</option>';
        }
        foreach ($this->cache_types_paiements as $id => $arraytypes) {
            // If not good status
            if ($active >= 0 && $arraytypes['active'] != $active) {
                continue;
            }

            // We skip of the user requested to filter on specific payment methods
            if (count($filterarray) && !in_array($arraytypes['type'], $filterarray)) {
                continue;
            }

            // We discard empty lines if showempty is on because an empty line has already been output.
            if ($empty && empty($arraytypes['code'])) {
                continue;
            }

            if ($format == 0) {
                $out .= '<option value="' . $id . '"';
            } elseif ($format == 1) {
                $out .= '<option value="' . $arraytypes['code'] . '"';
            } elseif ($format == 2) {
                $out .= '<option value="' . $arraytypes['code'] . '"';
            } elseif ($format == 3) {
                $out .= '<option value="' . $id . '"';
            }
            // Print attribute selected or not
            if ($format == 1 || $format == 2) {
                if ($selected == $arraytypes['code']) {
                    $out .= ' selected';
                }
            } else {
                if ($selected == $id) {
                    $out .= ' selected';
                }
            }
            $out .= '>';
            $value = '';
            if ($format == 0) {
                $value = ($maxlength ? dol_trunc($arraytypes['label'], $maxlength) : $arraytypes['label']);
            } elseif ($format == 1) {
                $value = $arraytypes['code'];
            } elseif ($format == 2) {
                $value = ($maxlength ? dol_trunc($arraytypes['label'], $maxlength) : $arraytypes['label']);
            } elseif ($format == 3) {
                $value = $arraytypes['code'];
            }
            $out .= $value ? $value : '&nbsp;';
            $out .= '</option>';
        }
        $out .= '</select>';
        if ($user->admin && !$noadmininfo) {
            $out .= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
        }
        $out .= ajax_combobox('select' . $htmlname);

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

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

    /**
     *      Charge dans cache la liste des types de paiements possibles
     *
     * @return     int                 Nb of lines loaded, <0 if KO
     */
    public function load_cache_types_paiements()
    {
        // phpcs:enable
        global $langs;

        $num = count($this->cache_types_paiements);        // TODO Use $conf->cache['payment_mode'] instead of $this->cache_types_paiements
        if ($num > 0) {
            return $num; // Cache already loaded
        }

        dol_syslog(__METHOD__, LOG_DEBUG);

        $this->cache_types_paiements = array();

        $sql = "SELECT id, code, libelle as label, type, active";
        $sql .= " FROM " . $this->db->prefix() . "c_paiement";
        $sql .= " WHERE entity IN (" . getEntity('c_paiement') . ")";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
            while ($i < $num) {
                $obj = $this->db->fetch_object($resql);

                // Si traduction existe, on l'utilise, sinon on prend le libelle par default
                $label = ($langs->transnoentitiesnoconv("PaymentTypeShort" . $obj->code) != "PaymentTypeShort" . $obj->code ? $langs->transnoentitiesnoconv("PaymentTypeShort" . $obj->code) : ($obj->label != '-' ? $obj->label : ''));
                $this->cache_types_paiements[$obj->id]['id'] = $obj->id;
                $this->cache_types_paiements[$obj->id]['code'] = $obj->code;
                $this->cache_types_paiements[$obj->id]['label'] = $label;
                $this->cache_types_paiements[$obj->id]['type'] = $obj->type;
                $this->cache_types_paiements[$obj->id]['active'] = $obj->active;
                $i++;
            }

            $this->cache_types_paiements = dol_sort_array($this->cache_types_paiements, 'label', 'asc', 0, 0, 1);

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

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

    /**
     *    Show form with transport mode
     *
     * @param string $page Page
     * @param string $selected Id mode pre-select
     * @param string $htmlname Name of select html field
     * @param int $active Active or not, -1 = all
     * @param int $addempty 1=Add empty entry
     * @return    void
     */
    public function formSelectTransportMode($page, $selected = '', $htmlname = 'transport_mode_id', $active = 1, $addempty = 0)
    {
        global $langs;
        if ($htmlname != "none") {
            print '<form method="POST" action="' . $page . '">';
            print '<input type="hidden" name="action" value="settransportmode">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            $this->selectTransportMode($selected, $htmlname, 0, $addempty, 0, 0, $active);
            print '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
            print '</form>';
        } else {
            if ($selected) {
                $this->load_cache_transport_mode();
                print $this->cache_transport_mode[$selected]['label'];
            } else {
                print "&nbsp;";
            }
        }
    }


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

    /**
     *      Return list of transport mode for intracomm report
     *
     * @param string $selected Id of the transport mode preselected
     * @param string $htmlname Name of the select field
     * @param int $format 0=id+label, 1=code+code, 2=code+label, 3=id+code
     * @param int $empty 1=can be empty, 0 else
     * @param int $noadmininfo 0=Add admin info, 1=Disable admin info
     * @param int $maxlength Max length of label
     * @param int $active Active or not, -1 = all
     * @param string $morecss Add more CSS on select tag
     * @return    void
     */
    public function selectTransportMode($selected = '', $htmlname = 'transportmode', $format = 0, $empty = 1, $noadmininfo = 0, $maxlength = 0, $active = 1, $morecss = '')
    {
        global $langs, $user;

        dol_syslog(__METHOD__ . " " . $selected . ", " . $htmlname . ", " . $format, LOG_DEBUG);

        $this->load_cache_transport_mode();

        print '<select id="select' . $htmlname . '" class="flat selectmodetransport' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '">';
        if ($empty) {
            print '<option value="">&nbsp;</option>';
        }
        foreach ($this->cache_transport_mode as $id => $arraytypes) {
            // If not good status
            if ($active >= 0 && $arraytypes['active'] != $active) {
                continue;
            }

            // We discard empty line if showempty is on because an empty line has already been output.
            if ($empty && empty($arraytypes['code'])) {
                continue;
            }

            if ($format == 0) {
                print '<option value="' . $id . '"';
            } elseif ($format == 1) {
                print '<option value="' . $arraytypes['code'] . '"';
            } elseif ($format == 2) {
                print '<option value="' . $arraytypes['code'] . '"';
            } elseif ($format == 3) {
                print '<option value="' . $id . '"';
            }
            // If text is selected, we compare with code, else with id
            if (preg_match('/[a-z]/i', $selected) && $selected == $arraytypes['code']) {
                print ' selected';
            } elseif ($selected == $id) {
                print ' selected';
            }
            print '>';
            $value = '';
            if ($format == 0) {
                $value = ($maxlength ? dol_trunc($arraytypes['label'], $maxlength) : $arraytypes['label']);
            } elseif ($format == 1) {
                $value = $arraytypes['code'];
            } elseif ($format == 2) {
                $value = ($maxlength ? dol_trunc($arraytypes['label'], $maxlength) : $arraytypes['label']);
            } elseif ($format == 3) {
                $value = $arraytypes['code'];
            }
            print $value ? $value : '&nbsp;';
            print '</option>';
        }
        print '</select>';
        if ($user->admin && !$noadmininfo) {
            print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
        }
    }


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

    /**
     *      Load in cache list of transport mode
     *
     * @return     int                 Nb of lines loaded, <0 if KO
     */
    public function load_cache_transport_mode()
    {
        // phpcs:enable
        global $langs;

        $num = count($this->cache_transport_mode);        // TODO Use $conf->cache['payment_mode'] instead of $this->cache_transport_mode
        if ($num > 0) {
            return $num; // Cache already loaded
        }

        dol_syslog(__METHOD__, LOG_DEBUG);

        $this->cache_transport_mode = array();

        $sql = "SELECT rowid, code, label, active";
        $sql .= " FROM " . $this->db->prefix() . "c_transport_mode";
        $sql .= " WHERE entity IN (" . getEntity('c_transport_mode') . ")";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
            while ($i < $num) {
                $obj = $this->db->fetch_object($resql);

                // If traduction exist, we use it else we take the default label
                $label = ($langs->transnoentitiesnoconv("PaymentTypeShort" . $obj->code) != "PaymentTypeShort" . $obj->code ? $langs->transnoentitiesnoconv("PaymentTypeShort" . $obj->code) : ($obj->label != '-' ? $obj->label : ''));
                $this->cache_transport_mode[$obj->rowid]['rowid'] = $obj->rowid;
                $this->cache_transport_mode[$obj->rowid]['code'] = $obj->code;
                $this->cache_transport_mode[$obj->rowid]['label'] = $label;
                $this->cache_transport_mode[$obj->rowid]['active'] = $obj->active;
                $i++;
            }

            $this->cache_transport_mode = dol_sort_array($this->cache_transport_mode, 'label', 'asc', 0, 0, 1);

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

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

    /**
     *    Show form with multicurrency code
     *
     * @param string $page Page
     * @param string $selected code pre-selectionne
     * @param string $htmlname Name of select html field
     * @return    void
     */
    public function form_multicurrency_code($page, $selected = '', $htmlname = 'multicurrency_code')
    {
        // phpcs:enable
        global $langs;
        if ($htmlname != "none") {
            print '<form method="POST" action="' . $page . '">';
            print '<input type="hidden" name="action" value="setmulticurrencycode">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            print $this->selectMultiCurrency($selected, $htmlname, 0);
            print '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
            print '</form>';
        } else {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/company.lib.php';
            print !empty($selected) ? currency_name($selected, 1) : '&nbsp;';
        }
    }

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

    /**
     *    Return array of currencies in user language
     *
     * @param string $selected Preselected currency code
     * @param string $htmlname Name of HTML select list
     * @param integer $useempty 1=Add empty line
     * @param string $filter Optional filters criteras (example: 'code <> x', ' in (1,3)')
     * @param bool $excludeConfCurrency false = If company current currency not in table, we add it into list. Should always be available.
     *                                  true = we are in currency_rate update , we don't want to see conf->currency in select
     * @param string $morecss More css
     * @return    string
     */
    public function selectMultiCurrency($selected = '', $htmlname = 'multicurrency_code', $useempty = 0, $filter = '', $excludeConfCurrency = false, $morecss = '')
    {
        global $conf, $langs;

        $langs->loadCacheCurrencies(''); // Load ->cache_currencies

        $TCurrency = array();

        $sql = "SELECT code FROM " . $this->db->prefix() . "multicurrency";
        $sql .= " WHERE entity IN ('" . getEntity('mutlicurrency') . "')";
        if ($filter) {
            $sql .= " AND " . $filter;
        }
        $resql = $this->db->query($sql);
        if ($resql) {
            while ($obj = $this->db->fetch_object($resql)) {
                $TCurrency[$obj->code] = $obj->code;
            }
        }

        $out = '';
        $out .= '<select class="flat' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '" id="' . $htmlname . '">';
        if ($useempty) {
            $out .= '<option value="">&nbsp;</option>';
        }
        // If company current currency not in table, we add it into list. Should always be available.
        if (!in_array($conf->currency, $TCurrency) && !$excludeConfCurrency) {
            $TCurrency[$conf->currency] = $conf->currency;
        }
        if (count($TCurrency) > 0) {
            foreach ($langs->cache_currencies as $code_iso => $currency) {
                if (isset($TCurrency[$code_iso])) {
                    if (!empty($selected) && $selected == $code_iso) {
                        $out .= '<option value="' . $code_iso . '" selected="selected">';
                    } else {
                        $out .= '<option value="' . $code_iso . '">';
                    }

                    $out .= $currency['label'];
                    $out .= ' (' . $langs->getCurrencySymbol($code_iso) . ')';
                    $out .= '</option>';
                }
            }
        }

        $out .= '</select>';

        // Make select dynamic
        include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
        $out .= ajax_combobox($htmlname);

        return $out;
    }

    /**
     *    Show form with multicurrency rate
     *
     * @param string $page Page
     * @param double $rate Current rate
     * @param string $htmlname Name of select html field
     * @param string $currency Currency code to explain the rate
     * @return    void
     */
    public function form_multicurrency_rate($page, $rate = 0.0, $htmlname = 'multicurrency_tx', $currency = '')
    {
        // phpcs:enable
        global $langs, $mysoc, $conf;

        if ($htmlname != "none") {
            print '<form method="POST" action="' . $page . '">';
            print '<input type="hidden" name="action" value="setmulticurrencyrate">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            print '<input type="text" class="maxwidth100" name="' . $htmlname . '" value="' . (!empty($rate) ? price(price2num($rate, 'CU')) : 1) . '" /> ';
            print '<select name="calculation_mode">';
            print '<option value="1">Change ' . $langs->trans("PriceUHT") . ' of lines</option>';
            print '<option value="2">Change ' . $langs->trans("PriceUHTCurrency") . ' of lines</option>';
            print '</select> ';
            print '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
            print '</form>';
        } else {
            if (!empty($rate)) {
                print price($rate, 1, $langs, 0, 0);
                if ($currency && $rate != 1) {
                    print ' &nbsp; (' . price($rate, 1, $langs, 0, 0) . ' ' . $currency . ' = 1 ' . $conf->currency . ')';
                }
            } else {
                print 1;
            }
        }
    }

    /**
     *    Show a select box with available absolute discounts
     *
     * @param string $page Page URL where form is shown
     * @param int $selected Value preselected
     * @param string $htmlname Name of SELECT component. If 'none', not changeable. Example 'remise_id'.
     * @param int $socid Third party id
     * @param float $amount Total amount available
     * @param string $filter SQL filter on discounts
     * @param int $maxvalue Max value for lines that can be selected
     * @param string $more More string to add
     * @param int $hidelist 1=Hide list
     * @param int $discount_type 0 => customer discount, 1 => supplier discount
     * @return    void
     */
    public function form_remise_dispo($page, $selected, $htmlname, $socid, $amount, $filter = '', $maxvalue = 0, $more = '', $hidelist = 0, $discount_type = 0)
    {
        // phpcs:enable
        global $conf, $langs;
        if ($htmlname != "none") {
            print '<form method="post" action="' . $page . '">';
            print '<input type="hidden" name="action" value="setabsolutediscount">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            print '<div class="inline-block">';
            if (!empty($discount_type)) {
                if (getDolGlobalString('FACTURE_SUPPLIER_DEPOSITS_ARE_JUST_PAYMENTS')) {
                    if (!$filter || $filter == "fk_invoice_supplier_source IS NULL") {
                        $translationKey = 'HasAbsoluteDiscountFromSupplier'; // If we want deposit to be subtracted to payments only and not to total of final invoice
                    } else {
                        $translationKey = 'HasCreditNoteFromSupplier';
                    }
                } else {
                    if (!$filter || $filter == "fk_invoice_supplier_source IS NULL OR (description LIKE '(DEPOSIT)%' AND description NOT LIKE '(EXCESS PAID)%')") {
                        $translationKey = 'HasAbsoluteDiscountFromSupplier';
                    } else {
                        $translationKey = 'HasCreditNoteFromSupplier';
                    }
                }
            } else {
                if (getDolGlobalString('FACTURE_DEPOSITS_ARE_JUST_PAYMENTS')) {
                    if (!$filter || $filter == "fk_facture_source IS NULL") {
                        $translationKey = 'CompanyHasAbsoluteDiscount'; // If we want deposit to be subtracted to payments only and not to total of final invoice
                    } else {
                        $translationKey = 'CompanyHasCreditNote';
                    }
                } else {
                    if (!$filter || $filter == "fk_facture_source IS NULL OR (description LIKE '(DEPOSIT)%' AND description NOT LIKE '(EXCESS RECEIVED)%')") {
                        $translationKey = 'CompanyHasAbsoluteDiscount';
                    } else {
                        $translationKey = 'CompanyHasCreditNote';
                    }
                }
            }
            print $langs->trans($translationKey, price($amount, 0, $langs, 0, 0, -1, $conf->currency));
            if (empty($hidelist)) {
                print ' ';
            }
            print '</div>';
            if (empty($hidelist)) {
                print '<div class="inline-block" style="padding-right: 10px">';
                $newfilter = 'discount_type=' . intval($discount_type);
                if (!empty($discount_type)) {
                    $newfilter .= ' AND fk_invoice_supplier IS NULL AND fk_invoice_supplier_line IS NULL'; // Supplier discounts available
                } else {
                    $newfilter .= ' AND fk_facture IS NULL AND fk_facture_line IS NULL'; // Customer discounts available
                }
                if ($filter) {
                    $newfilter .= ' AND (' . $filter . ')';
                }
                // output the combo of discounts
                $nbqualifiedlines = $this->select_remises($selected, $htmlname, $newfilter, $socid, $maxvalue);
                if ($nbqualifiedlines > 0) {
                    print ' &nbsp; <input type="submit" class="button smallpaddingimp" value="' . dol_escape_htmltag($langs->trans("UseLine")) . '"';
                    if (!empty($discount_type) && $filter && $filter != "fk_invoice_supplier_source IS NULL OR (description LIKE '(DEPOSIT)%' AND description NOT LIKE '(EXCESS PAID)%')") {
                        print ' title="' . $langs->trans("UseCreditNoteInInvoicePayment") . '"';
                    }
                    if (empty($discount_type) && $filter && $filter != "fk_facture_source IS NULL OR (description LIKE '(DEPOSIT)%' AND description NOT LIKE '(EXCESS RECEIVED)%')") {
                        print ' title="' . $langs->trans("UseCreditNoteInInvoicePayment") . '"';
                    }

                    print '>';
                }
                print '</div>';
            }
            if ($more) {
                print '<div class="inline-block">';
                print $more;
                print '</div>';
            }
            print '</form>';
        } else {
            if ($selected) {
                print $selected;
            } else {
                print "0";
            }
        }
    }

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

    /**
     *  Return HTML combo list of absolute discounts
     *
     * @param string $selected Id Fixed reduction preselected
     * @param string $htmlname Name of the form field
     * @param string $filter Optional filter critreria
     * @param int $socid Id of thirdparty
     * @param int $maxvalue Max value for lines that can be selected
     * @return  int                 Return number of qualifed lines in list
     */
    public function select_remises($selected, $htmlname, $filter, $socid, $maxvalue = 0)
    {
        // phpcs:enable
        global $langs, $conf;

        // On recherche les remises
        $sql = "SELECT re.rowid, re.amount_ht, re.amount_tva, re.amount_ttc,";
        $sql .= " re.description, re.fk_facture_source";
        $sql .= " FROM " . $this->db->prefix() . "societe_remise_except as re";
        $sql .= " WHERE re.fk_soc = " . (int)$socid;
        $sql .= " AND re.entity = " . $conf->entity;
        if ($filter) {
            $sql .= " AND " . $filter;
        }
        $sql .= " ORDER BY re.description ASC";

        dol_syslog(get_only_class($this) . "::select_remises", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql) {
            print '<select id="select_' . $htmlname . '" class="flat maxwidthonsmartphone" name="' . $htmlname . '">';
            $num = $this->db->num_rows($resql);

            $qualifiedlines = $num;

            $i = 0;
            if ($num) {
                print '<option value="0">&nbsp;</option>';
                while ($i < $num) {
                    $obj = $this->db->fetch_object($resql);
                    $desc = dol_trunc($obj->description, 40);
                    if (preg_match('/\(CREDIT_NOTE\)/', $desc)) {
                        $desc = preg_replace('/\(CREDIT_NOTE\)/', $langs->trans("CreditNote"), $desc);
                    }
                    if (preg_match('/\(DEPOSIT\)/', $desc)) {
                        $desc = preg_replace('/\(DEPOSIT\)/', $langs->trans("Deposit"), $desc);
                    }
                    if (preg_match('/\(EXCESS RECEIVED\)/', $desc)) {
                        $desc = preg_replace('/\(EXCESS RECEIVED\)/', $langs->trans("ExcessReceived"), $desc);
                    }
                    if (preg_match('/\(EXCESS PAID\)/', $desc)) {
                        $desc = preg_replace('/\(EXCESS PAID\)/', $langs->trans("ExcessPaid"), $desc);
                    }

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

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

                    if (getDolGlobalString('MAIN_SHOW_FACNUMBER_IN_DISCOUNT_LIST') && !empty($obj->fk_facture_source)) {
                        $tmpfac = new Facture($this->db);
                        if ($tmpfac->fetch($obj->fk_facture_source) > 0) {
                            $desc = $desc . ' - ' . $tmpfac->ref;
                        }
                    }

                    print '<option value="' . $obj->rowid . '"' . $selectstring . $disabled . '>' . $desc . ' (' . price($obj->amount_ht) . ' ' . $langs->trans("HT") . ' - ' . price($obj->amount_ttc) . ' ' . $langs->trans("TTC") . ')</option>';
                    $i++;
                }
            }
            print '</select>';
            print ajax_combobox('select_' . $htmlname);

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

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

    /**
     *  Show forms to select a contact
     *
     * @param string $page Page
     * @param Societe $societe Filter on third party
     * @param string $selected Id contact pre-selectionne
     * @param string $htmlname Name of HTML select. If 'none', we just show contact link.
     * @return    void
     */
    public function form_contacts($page, $societe, $selected = '', $htmlname = 'contactid')
    {
        // phpcs:enable
        global $langs;

        if ($htmlname != "none") {
            print '<form method="post" action="' . $page . '">';
            print '<input type="hidden" name="action" value="set_contact">';
            print '<input type="hidden" name="token" value="' . newToken() . '">';
            print '<table class="nobordernopadding">';
            print '<tr><td>';
            print $this->selectcontacts($societe->id, $selected, $htmlname);
            $num = $this->num;
            if ($num == 0) {
                $addcontact = (getDolGlobalString('SOCIETE_ADDRESSES_MANAGEMENT') ? $langs->trans("AddContact") : $langs->trans("AddContactAddress"));
                print '<a href="' . constant('BASE_URL') . '/contact/card.php?socid=' . $societe->id . '&amp;action=create&amp;backtoreferer=1">' . $addcontact . '</a>';
            }
            print '</td>';
            print '<td class="left"><input type="submit" class="button smallpaddingimp" value="' . $langs->trans("Modify") . '"></td>';
            print '</tr></table></form>';
        } else {
            if ($selected) {
                $contact = new Contact($this->db);
                $contact->fetch($selected);
                print $contact->getFullName($langs);
            } else {
                print "&nbsp;";
            }
        }
    }


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

    /**
     *  Output html select to select thirdparty
     *
     * @param string $page Page
     * @param string $selected Id preselected
     * @param string $htmlname Name of HTML select
     * @param string $filter Optional filters criteras. WARNING: To avoid SQL injection, only few chars [.a-z0-9 =<>()] are allowed here (example: 's.rowid <> x', 's.client IN (1,3)'). Do not use a filter coming from input of users.
     * @param string|int<0,1> $showempty Add an empty field (Can be '1' or text key to use on empty line like 'SelectThirdParty')
     * @param int<0,1> $showtype Show third party type in combolist (customer, prospect or supplier)
     * @param int<0,1> $forcecombo Force to use combo box
     * @param array<array{method:string,url:string,htmlname:string,params:array<string,string>}> $events Event options. Example: array(array('method'=>'getContacts', 'url'=>dol_buildpath('/core/ajax/contacts.php',1), 'htmlname'=>'contactid', 'params'=>array('add-customer-contact'=>'disabled')))
     * @param int $nooutput No print output. Return it only.
     * @param int[] $excludeids Exclude IDs from the select combo
     * @param string $textifnothirdparty Text to show if no thirdparty
     * @return    string                        HTML output or ''
     */
    public function form_thirdparty($page, $selected = '', $htmlname = 'socid', $filter = '', $showempty = 0, $showtype = 0, $forcecombo = 0, $events = array(), $nooutput = 0, $excludeids = array(), $textifnothirdparty = '')
    {
        // phpcs:enable
        global $langs;

        $out = '';
        if ($htmlname != "none") {
            $out .= '<form method="post" action="' . $page . '">';
            $out .= '<input type="hidden" name="action" value="set_thirdparty">';
            $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
            $out .= $this->select_company($selected, $htmlname, $filter, $showempty, $showtype, $forcecombo, $events, 0, 'minwidth100', '', '', 1, array(), false, $excludeids);
            $out .= '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
            $out .= '</form>';
        } else {
            if ($selected) {
                $soc = new Societe($this->db);
                $soc->fetch($selected);
                $out .= $soc->getNomUrl(0, '');
            } else {
                $out .= '<span class="opacitymedium">' . $textifnothirdparty . '</span>';
            }
        }

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

        return '';
    }

    /**
     *  Output html form to select a third party
     *  This call select_thirdparty_list() or ajax depending on setup. This component is not able to support multiple select.
     *
     * @param int|string $selected Preselected ID
     * @param string $htmlname Name of field in form
     * @param string $filter Optional filters criteras. WARNING: To avoid SQL injection, only few chars [.a-z0-9 =<>()] are allowed here. Example: ((s.client:IN:1,3) AND (s.status:=:1)). Do not use a filter coming from input of users.
     * @param string|int<1,1> $showempty Add an empty field (Can be '1' or text key to use on empty line like 'SelectThirdParty')
     * @param int $showtype Show third party type in combolist (customer, prospect or supplier)
     * @param int $forcecombo Force to load all values and output a standard combobox (with no beautification)
     * @param array<array{method:string,url:string,htmlname:string,params:array<string,string>}> $events Ajax event options to run on change. Example: array(array('method'=>'getContacts', 'url'=>dol_buildpath('/core/ajax/contacts.php',1), 'htmlname'=>'contactid', 'params'=>array('add-customer-contact'=>'disabled')))
     * @param int $limit Maximum number of elements
     * @param string $morecss Add more css styles to the SELECT component
     * @param string $moreparam Add more parameters onto the select tag. For example 'style="width: 95%"' to avoid select2 component to go over parent container
     * @param string $selected_input_value Value of preselected input text (for use with ajax)
     * @param int<0,3> $hidelabel Hide label (0=no, 1=yes, 2=show search icon (before) and placeholder, 3 search icon after)
     * @param array<string,string|string[]> $ajaxoptions Options for ajax_autocompleter
     * @param bool $multiple add [] in the name of element and add 'multiple' attribute (not working with ajax_autocompleter)
     * @param string[] $excludeids Exclude IDs from the select combo
     * @param int<0,1> $showcode Show code
     * @return string                               HTML string with select box for thirdparty.
     */
    public function select_company($selected = '', $htmlname = 'socid', $filter = '', $showempty = '', $showtype = 0, $forcecombo = 0, $events = array(), $limit = 0, $morecss = 'minwidth100', $moreparam = '', $selected_input_value = '', $hidelabel = 1, $ajaxoptions = array(), $multiple = false, $excludeids = array(), $showcode = 0)
    {
        // phpcs:enable
        global $conf, $langs;

        $out = '';

        if (!empty($conf->use_javascript_ajax) && getDolGlobalString('COMPANY_USE_SEARCH_TO_SELECT') && !$forcecombo) {
            if (is_null($ajaxoptions)) {
                $ajaxoptions = array();
            }

            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/ajax.lib.php';

            // No immediate load of all database
            $placeholder = '';
            if ($selected && empty($selected_input_value)) {
                $societetmp = new Societe($this->db);
                $societetmp->fetch($selected);
                $selected_input_value = $societetmp->name;
                unset($societetmp);
            }

            // mode 1
            $urloption = 'htmlname=' . urlencode((string)(str_replace('.', '_', $htmlname))) . '&outjson=1&filter=' . urlencode((string)($filter)) . (empty($excludeids) ? '' : '&excludeids=' . implode(',', $excludeids)) . ($showtype ? '&showtype=' . urlencode((string)($showtype)) : '') . ($showcode ? '&showcode=' . urlencode((string)($showcode)) : '');

            $out .= '<!-- force css to be higher than dialog popup --><style type="text/css">.ui-autocomplete { z-index: 1010; }</style>';
            if (empty($hidelabel)) {
                print $langs->trans("RefOrLabel") . ' : ';
            } elseif ($hidelabel > 1) {
                $placeholder = $langs->trans("RefOrLabel");
                if ($hidelabel == 2) {
                    $out .= img_picto($langs->trans("Search"), 'search');
                }
            }
            $out .= '<input type="text" class="' . $morecss . '" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . ($placeholder ? ' placeholder="' . dol_escape_htmltag($placeholder) . '"' : '') . ' ' . (getDolGlobalString('THIRDPARTY_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';
            if ($hidelabel == 3) {
                $out .= img_picto($langs->trans("Search"), 'search');
            }

            $out .= ajax_event($htmlname, $events);

            $out .= ajax_autocompleter($selected, $htmlname, constant('BASE_URL') . '/societe/ajax/company.php', $urloption, getDolGlobalString('COMPANY_USE_SEARCH_TO_SELECT'), 0, $ajaxoptions);
        } else {
            // Immediate load of all database
            $out .= $this->select_thirdparty_list($selected, $htmlname, $filter, $showempty, $showtype, $forcecombo, $events, '', 0, $limit, $morecss, $moreparam, $multiple, $excludeids, $showcode);
        }

        return $out;
    }

    /**
     *  Output html form to select a third party.
     *  Note: you must use the select_company() to get the component to select a third party. This function must only be called by select_company.
     *
     * @param string $selected Preselected type
     * @param string $htmlname Name of field in form
     * @param string $filter Optional filters criteras. WARNING: To avoid SQL injection, only few chars [.a-z0-9 =<>] are allowed here, example: 's.rowid <> x'
     *                                          If you need parenthesis, use the Universal Filter Syntax, example: '(s.client:in:1,3)'
     *                                          Do not use a filter coming from input of users.
     * @param string|int<0,1> $showempty Add an empty field (Can be '1' or text to use on empty line like 'SelectThirdParty')
     * @param int<0,1> $showtype Show third party type in combolist (customer, prospect or supplier)
     * @param int $forcecombo Force to use standard HTML select component without beautification
     * @param array<array{method:string,url:string,htmlname:string,params:array<string,string>}> $events Event options. Example: array(array('method'=>'getContacts', 'url'=>dol_buildpath('/core/ajax/contacts.php',1), 'htmlname'=>'contactid', 'params'=>array('add-customer-contact'=>'disabled')))
     * @param string $filterkey Filter on key value
     * @param int<0,1> $outputmode 0=HTML select string, 1=Array
     * @param int $limit Limit number of answers
     * @param string $morecss Add more css styles to the SELECT component
     * @param string $moreparam Add more parameters onto the select tag. For example 'style="width: 95%"' to avoid select2 component to go over parent container
     * @param bool $multiple add [] in the name of element and add 'multiple' attribute
     * @param string[] $excludeids Exclude IDs from the select combo
     * @param int<0,1> $showcode Show code in list
     * @return array<int,array{key:int,value:string,label:string,labelhtml:string}>|string              HTML string with
     * @see select_company()
     */
    public function select_thirdparty_list($selected = '', $htmlname = 'socid', $filter = '', $showempty = '', $showtype = 0, $forcecombo = 0, $events = array(), $filterkey = '', $outputmode = 0, $limit = 0, $morecss = 'minwidth100', $moreparam = '', $multiple = false, $excludeids = array(), $showcode = 0)
    {
        // phpcs:enable
        global $user, $langs;
        global $hookmanager;

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

        if ($selected === '') {
            $selected = array();
        } elseif (!is_array($selected)) {
            $selected = array($selected);
        }

        // Clean $filter that may contains sql conditions so sql code
        if (Filters::testSqlAndScriptInject($filter, 3) > 0) {
            $filter = '';
            return 'SQLInjectionTryDetected';
        }

        if ($filter != '') {    // If a filter was provided
            if (preg_match('/[\(\)]/', $filter)) {
                // If there is one parenthesis inside the criteria, we assume it is an Universal Filter Syntax.
                $errormsg = '';
                $filter = forgeSQLFromUniversalSearchCriteria($filter, $errormsg, 1);

                // Redo clean $filter that may contains sql conditions so sql code
                if (Filters::testSqlAndScriptInject($filter, 3) > 0) {
                    $filter = '';
                    return 'SQLInjectionTryDetected';
                }
            } else {
                // If not, we do nothing. We already know that there is no parenthesis
                // TODO Disallow this case in a future.
                dol_syslog("Warning, select_thirdparty_list was called with a filter criteria not using the Universal Search Syntax.", LOG_WARNING);
            }
        }

        // We search companies
        $sql = "SELECT s.rowid, s.nom as name, s.name_alias, s.tva_intra, s.client, s.fournisseur, s.code_client, s.code_fournisseur";
        if (getDolGlobalString('COMPANY_SHOW_ADDRESS_SELECTLIST')) {
            $sql .= ", s.address, s.zip, s.town";
            $sql .= ", dictp.code as country_code";
        }
        $sql .= " FROM " . $this->db->prefix() . "societe as s";
        if (getDolGlobalString('COMPANY_SHOW_ADDRESS_SELECTLIST')) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "c_country as dictp ON dictp.rowid = s.fk_pays";
        }
        if (!$user->hasRight('societe', 'client', 'voir')) {
            $sql .= ", " . $this->db->prefix() . "societe_commerciaux as sc";
        }
        $sql .= " WHERE s.entity IN (" . getEntity('societe') . ")";
        if (!empty($user->socid)) {
            $sql .= " AND s.rowid = " . ((int)$user->socid);
        }
        if ($filter) {
            // $filter is safe because, if it contains '(' or ')', it has been sanitized by testSqlAndScriptInject() and forgeSQLFromUniversalSearchCriteria()
            // if not, by testSqlAndScriptInject() only.
            $sql .= " AND (" . $filter . ")";
        }
        if (!$user->hasRight('societe', 'client', 'voir')) {
            $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = " . ((int)$user->id);
        }
        if (getDolGlobalString('COMPANY_HIDE_INACTIVE_IN_COMBOBOX')) {
            $sql .= " AND s.status <> 0";
        }
        if (!empty($excludeids)) {
            $sql .= " AND s.rowid NOT IN (" . $this->db->sanitize(implode(',', $excludeids)) . ")";
        }
        // Add where from hooks
        $parameters = array();
        $reshook = $hookmanager->executeHooks('selectThirdpartyListWhere', $parameters); // Note that $action and $object may have been modified by hook
        $sql .= $hookmanager->resPrint;
        // Add criteria
        if ($filterkey && $filterkey != '') {
            $sql .= " AND (";
            $prefix = !getDolGlobalString('COMPANY_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if COMPANY_DONOTSEARCH_ANYWHERE is on
            // For natural search
            $search_crit = explode(' ', $filterkey);
            $i = 0;
            if (count($search_crit) > 1) {
                $sql .= "(";
            }
            foreach ($search_crit as $crit) {
                if ($i > 0) {
                    $sql .= " AND ";
                }
                $sql .= "(s.nom LIKE '" . $this->db->escape($prefix . $crit) . "%')";
                $i++;
            }
            if (count($search_crit) > 1) {
                $sql .= ")";
            }
            if (isModEnabled('barcode')) {
                $sql .= " OR s.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
            }
            $sql .= " OR s.code_client LIKE '" . $this->db->escape($prefix . $filterkey) . "%' OR s.code_fournisseur LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
            $sql .= " OR s.name_alias LIKE '" . $this->db->escape($prefix . $filterkey) . "%' OR s.tva_intra LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
            $sql .= ")";
        }
        $sql .= $this->db->order("nom", "ASC");
        $sql .= $this->db->plimit($limit, 0);

        // Build output string
        dol_syslog(get_only_class($this) . "::select_thirdparty_list", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql) {
            // Construct $out and $outarray
            $out .= '<select id="' . $htmlname . '" class="flat' . ($morecss ? ' ' . $morecss : '') . '"' . ($moreparam ? ' ' . $moreparam : '') . ' name="' . $htmlname . ($multiple ? '[]' : '') . '" ' . ($multiple ? 'multiple' : '') . '>' . "\n";

            $textifempty = (($showempty && !is_numeric($showempty)) ? $langs->trans($showempty) : '');
            if (getDolGlobalString('COMPANY_USE_SEARCH_TO_SELECT')) {
                // Do not use textifempty = ' ' or '&nbsp;' here, or search on key will search on ' key'.
                //if (!empty($conf->use_javascript_ajax) || $forcecombo) $textifempty='';
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                } else {
                    $textifempty .= $langs->trans("All");
                }
            }
            if ($showempty) {
                $out .= '<option value="-1" data-html="' . dol_escape_htmltag('<span class="opacitymedium">' . ($textifempty ? $textifempty : '&nbsp;') . '</span>') . '">' . $textifempty . '</option>' . "\n";
            }

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

            $num = $this->db->num_rows($resql);
            $i = 0;
            if ($num) {
                while ($i < $num) {
                    $obj = $this->db->fetch_object($resql);
                    $label = '';
                    if ($showcode || getDolGlobalString('SOCIETE_ADD_REF_IN_LIST')) {
                        if (($obj->client) && (!empty($obj->code_client))) {
                            $label = $obj->code_client . ' - ';
                        }
                        if (($obj->fournisseur) && (!empty($obj->code_fournisseur))) {
                            $label .= $obj->code_fournisseur . ' - ';
                        }
                        $label .= ' ' . $obj->name;
                    } else {
                        $label = $obj->name;
                    }

                    if (!empty($obj->name_alias)) {
                        $label .= ' (' . $obj->name_alias . ')';
                    }

                    if (getDolGlobalString('SOCIETE_SHOW_VAT_IN_LIST') && !empty($obj->tva_intra)) {
                        $label .= ' - ' . $obj->tva_intra;
                    }

                    $labelhtml = $label;

                    if ($showtype) {
                        $companytemp->id = $obj->rowid;
                        $companytemp->client = $obj->client;
                        $companytemp->fournisseur = $obj->fournisseur;
                        $tmptype = $companytemp->getTypeUrl(1, '', 0, 'span');
                        if ($tmptype) {
                            $labelhtml .= ' ' . $tmptype;
                        }

                        if ($obj->client || $obj->fournisseur) {
                            $label .= ' (';
                        }
                        if ($obj->client == 1 || $obj->client == 3) {
                            $label .= $langs->trans("Customer");
                        }
                        if ($obj->client == 2 || $obj->client == 3) {
                            $label .= ($obj->client == 3 ? ', ' : '') . $langs->trans("Prospect");
                        }
                        if ($obj->fournisseur) {
                            $label .= ($obj->client ? ', ' : '') . $langs->trans("Supplier");
                        }
                        if ($obj->client || $obj->fournisseur) {
                            $label .= ')';
                        }
                    }

                    if (getDolGlobalString('COMPANY_SHOW_ADDRESS_SELECTLIST')) {
                        $s = ($obj->address ? ' - ' . $obj->address : '') . ($obj->zip ? ' - ' . $obj->zip : '') . ($obj->town ? ' ' . $obj->town : '');
                        if (!empty($obj->country_code)) {
                            $s .= ', ' . $langs->trans('Country' . $obj->country_code);
                        }
                        $label .= $s;
                        $labelhtml .= $s;
                    }

                    if (empty($outputmode)) {
                        if (in_array($obj->rowid, $selected)) {
                            $out .= '<option value="' . $obj->rowid . '" selected data-html="' . dol_escape_htmltag($labelhtml, 0, 0, '', 0, 1) . '">' . dol_escape_htmltag($label, 0, 0, '', 0, 1) . '</option>';
                        } else {
                            $out .= '<option value="' . $obj->rowid . '" data-html="' . dol_escape_htmltag($labelhtml, 0, 0, '', 0, 1) . '">' . dol_escape_htmltag($label, 0, 0, '', 0, 1) . '</option>';
                        }
                    } else {
                        array_push($outarray, array('key' => $obj->rowid, 'value' => $label, 'label' => $label, 'labelhtml' => $labelhtml));
                    }

                    $i++;
                    if (($i % 10) == 0) {
                        $out .= "\n";
                    }
                }
            }
            $out .= '</select>' . "\n";
            if (!$forcecombo) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname, $events, getDolGlobalInt("COMPANY_USE_SEARCH_TO_SELECT"));
            }
        } else {
            dol_print_error($this->db);
        }

        $this->result = array('nbofthirdparties' => $num);

        if ($outputmode) {
            return $outarray;
        }
        return $out;
    }

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

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

    /**
     *  Retourne la liste des devises, dans la langue de l'utilisateur
     *
     * @param string $selected preselected currency code
     * @param string $htmlname name of HTML select list
     * @param int $mode 0 = Add currency symbol into label, 1 = Add 3 letter iso code
     * @param string $useempty '1'=Allow empty value
     * @return    string
     */
    public function selectCurrency($selected = '', $htmlname = 'currency_id', $mode = 0, $useempty = '')
    {
        global $langs, $user;

        $langs->loadCacheCurrencies('');

        $out = '';

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

        $out .= '<select class="flat maxwidth200onsmartphone minwidth300" name="' . $htmlname . '" id="' . $htmlname . '">';
        if ($useempty) {
            $out .= '<option value="-1" selected></option>';
        }
        foreach ($langs->cache_currencies as $code_iso => $currency) {
            $labeltoshow = $currency['label'];
            if ($mode == 1) {
                $labeltoshow .= ' <span class="opacitymedium">(' . $code_iso . ')</span>';
            } else {
                $labeltoshow .= ' <span class="opacitymedium">(' . $langs->getCurrencySymbol($code_iso) . ')</span>';
            }

            if ($selected && $selected == $code_iso) {
                $out .= '<option value="' . $code_iso . '" selected data-html="' . dol_escape_htmltag($labeltoshow) . '">';
            } else {
                $out .= '<option value="' . $code_iso . '" data-html="' . dol_escape_htmltag($labeltoshow) . '">';
            }
            $out .= $labeltoshow;
            $out .= '</option>';
        }
        $out .= '</select>';
        if ($user->admin) {
            $out .= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
        }

        // Make select dynamic
        include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
        $out .= ajax_combobox($htmlname);

        return $out;
    }

    /**
     *  Output an HTML select vat rate.
     *  The name of this function should be selectVat. We keep bad name for compatibility purpose.
     *
     * @param string $htmlname Name of HTML select field
     * @param float|string $selectedrate Force preselected vat rate. Can be '8.5' or '8.5 (NOO)' for example. Use '' for no forcing.
     * @param Societe $societe_vendeuse Thirdparty seller
     * @param Societe $societe_acheteuse Thirdparty buyer
     * @param int $idprod Id product. O if unknown of NA.
     * @param int $info_bits Miscellaneous information on line (1 for NPR)
     * @param int|string $type ''=Unknown, 0=Product, 1=Service (Used if idprod not defined)
     *                                            If seller not subject to VAT, default VAT=0. End of rule.
     *                                            If (seller country==buyer country), then default VAT=product's VAT. End of rule.
     *                                            If (seller and buyer in EU) and sold product = new means of transportation (car, boat, airplane), default VAT =0 (VAT must be paid by the buyer to his country's tax office and not the seller). End of rule.
     *                                            If (seller and buyer in EU) and buyer=private person, then default VAT=VAT of sold product.  End of rule.
     *                                            If (seller and buyer in EU) and buyer=company then default VAT =0. End of rule.
     *                                            Else, default proposed VAT==0. End of rule.
     * @param bool $options_only Return HTML options lines only (for ajax treatment)
     * @param int $mode 0=Use vat rate as key in combo list, 1=Add VAT code after vat rate into key, -1=Use id of vat line as key
     * @param int $type_vat 0=All type, 1=VAT rate sale, 2=VAT rate purchase
     * @return string
     */
    public function load_tva($htmlname = 'tauxtva', $selectedrate = '', $societe_vendeuse = null, $societe_acheteuse = null, $idprod = 0, $info_bits = 0, $type = '', $options_only = false, $mode = 0, $type_vat = 0)
    {
        // phpcs:enable
        global $langs, $mysoc;

        $langs->load('errors');

        $return = '';

        // Define defaultnpr, defaultttx and defaultcode
        $defaultnpr = ($info_bits & 0x01);
        $defaultnpr = (preg_match('/\*/', $selectedrate) ? 1 : $defaultnpr);
        $defaulttx = str_replace('*', '', $selectedrate);
        $defaultcode = '';
        $reg = array();
        if (preg_match('/\((.*)\)/', $defaulttx, $reg)) {
            $defaultcode = $reg[1];
            $defaulttx = preg_replace('/\s*\(.*\)/', '', $defaulttx);
        }
        //var_dump($selectedrate.'-'.$defaulttx.'-'.$defaultnpr.'-'.$defaultcode);

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

        //var_dump($societe_acheteuse);
        //print "name=$name, selectedrate=$selectedrate, seller=".$societe_vendeuse->country_code." buyer=".$societe_acheteuse->country_code." buyer is company=".$societe_acheteuse->isACompany()." idprod=$idprod, info_bits=$info_bits type=$type";
        //exit;

        // Define list of countries to use to search VAT rates to show
        // First we defined code_country to use to find list
        if (is_object($societe_vendeuse)) {
            $code_country = "'" . $societe_vendeuse->country_code . "'";
        } else {
            $code_country = "'" . $mysoc->country_code . "'"; // Pour compatibilite ascendente
        }
        if (getDolGlobalString('SERVICE_ARE_ECOMMERCE_200238EC')) {    // If option to have vat for end customer for services is on
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/company.lib.php';
            // If SERVICE_ARE_ECOMMERCE_200238EC=1 combo list vat rate of purchaser and seller countries
            // If SERVICE_ARE_ECOMMERCE_200238EC=2 combo list only the vat rate of the purchaser country
            $selectVatComboMode = getDolGlobalString('SERVICE_ARE_ECOMMERCE_200238EC');
            if (isInEEC($societe_vendeuse) && isInEEC($societe_acheteuse) && !$societe_acheteuse->isACompany()) {
            if (isInEEC($societe_vendeuse) && isInEEC($societe_acheteuse) && !$societe_acheteuse->/** @scrutinizer ignore-call */ isACompany()) {
                // We also add the buyer country code
                if (is_numeric($type)) {
                    if ($type == 1) { // We know product is a service
                        switch ($selectVatComboMode) {
                            case '1':
                                $code_country .= ",'" . $societe_acheteuse->country_code . "'";
                                break;
                            case '2':
                                $code_country = "'" . $societe_acheteuse->country_code . "'";
                                break;
                        }
                    }
                } elseif (!$idprod) {  // We don't know type of product
                    switch ($selectVatComboMode) {
                        case '1':
                            $code_country .= ",'" . $societe_acheteuse->country_code . "'";
                            break;
                        case '2':
                            $code_country = "'" . $societe_acheteuse->country_code . "'";
                            break;
                    }
                } else {
                    $prodstatic = new Product($this->db);
                    $prodstatic->fetch($idprod);
                    if ($prodstatic->type == Product::TYPE_SERVICE) {   // We know product is a service
                        $code_country .= ",'" . $societe_acheteuse->country_code . "'";
                    }
                }
            }
        }

        // Now we load the list of VAT
        $this->load_cache_vatrates($code_country); // If no vat defined, return -1 with message into this->error

        // Keep only the VAT qualified for $type_vat
        $arrayofvatrates = array();
        foreach ($this->cache_vatrates as $cachevalue) {
            if (empty($cachevalue['type_vat']) || $cachevalue['type_vat'] != $type_vat) {
                $arrayofvatrates[] = $cachevalue;
            }
        }

        $num = count($arrayofvatrates);

        if ($num > 0) {
            // Definition du taux a pre-selectionner (si defaulttx non force et donc vaut -1 ou '')
            if ($defaulttx < 0 || dol_strlen($defaulttx) == 0) {
                $tmpthirdparty = new Societe($this->db);

                $defaulttx = get_default_tva($societe_vendeuse, (is_object($societe_acheteuse) ? $societe_acheteuse : $tmpthirdparty), $idprod);
                $defaultnpr = get_default_npr($societe_vendeuse, (is_object($societe_acheteuse) ? $societe_acheteuse : $tmpthirdparty), $idprod);

                if (preg_match('/\((.*)\)/', $defaulttx, $reg)) {
                    $defaultcode = $reg[1];
                    $defaulttx = preg_replace('/\s*\(.*\)/', '', $defaulttx);
                }
                if (empty($defaulttx)) {
                    $defaultnpr = 0;
                }
            }

            // If we fails to find a default vat rate, we take the last one in list
            // Because they are sorted in ascending order, the last one will be the higher one (we suppose the higher one is the current rate)
            if ($defaulttx < 0 || dol_strlen($defaulttx) == 0) {
                if (!getDolGlobalString('MAIN_VAT_DEFAULT_IF_AUTODETECT_FAILS')) {
                    // We take the last one found in list
                    $defaulttx = $arrayofvatrates[$num - 1]['txtva'];
                } else {
                    // We will use the rate defined into MAIN_VAT_DEFAULT_IF_AUTODETECT_FAILS
                    $defaulttx = '';
                    if (getDolGlobalString('MAIN_VAT_DEFAULT_IF_AUTODETECT_FAILS') != 'none') {
                        $defaulttx = getDolGlobalString('MAIN_VAT_DEFAULT_IF_AUTODETECT_FAILS');
                    }
                    if (preg_match('/\((.*)\)/', $defaulttx, $reg)) {
                        $defaultcode = $reg[1];
                        $defaulttx = preg_replace('/\s*\(.*\)/', '', $defaulttx);
                    }
                }
            }

            // Disabled if seller is not subject to VAT
            $disabled = false;
            $title = '';
            if (is_object($societe_vendeuse) && $societe_vendeuse->id == $mysoc->id && $societe_vendeuse->tva_assuj == "0") {
                // Override/enable VAT for expense report regardless of global setting - needed if expense report used for business expenses instead
                // of using supplier invoices (this is a very bad idea !)
                if (!getDolGlobalString('EXPENSEREPORT_OVERRIDE_VAT')) {
                    $title = ' title="' . dol_escape_htmltag($langs->trans('VATIsNotUsed')) . '"';
                    $disabled = true;
                }
            }

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

            $selectedfound = false;
            foreach ($arrayofvatrates as $rate) {
                // Keep only 0 if seller is not subject to VAT
                if ($disabled && $rate['txtva'] != 0) {
                    continue;
                }

                // Define key to use into select list
                $key = $rate['txtva'];
                $key .= $rate['nprtva'] ? '*' : '';
                if ($mode > 0 && $rate['code']) {
                    $key .= ' (' . $rate['code'] . ')';
                }
                if ($mode < 0) {
                    $key = $rate['rowid'];
                }

                $return .= '<option value="' . $key . '"';
                if (!$selectedfound) {
                    if ($defaultcode) { // If defaultcode is defined, we used it in priority to select combo option instead of using rate+npr flag
                        if ($defaultcode == $rate['code']) {
                            $return .= ' selected';
                            $selectedfound = true;
                        }
                    } elseif ($rate['txtva'] == $defaulttx && $rate['nprtva'] == $defaultnpr) {
                        $return .= ' selected';
                        $selectedfound = true;
                    }
                }
                $return .= '>';

                // Show label of VAT
                if ($mysoc->country_code == 'IN' || getDolGlobalString('MAIN_VAT_LABEL_IS_POSITIVE_RATES')) {
                    // Label with all localtax and code. For example:  x.y / a.b / c.d (CODE)'
                    $return .= $rate['labelpositiverates'];
                } else {
                    // Simple label
                    $return .= vatrate($rate['label']);
                }

                //$return.=($rate['code']?' '.$rate['code']:'');
                $return .= (empty($rate['code']) && $rate['nprtva']) ? ' *' : ''; // We show the *  (old behaviour only if new vat code is not used)

                $return .= '</option>';
            }

            if (!$options_only) {
                $return .= '</select>';
                //$return .= ajax_combobox($htmlname);      // This break for the moment the dynamic autoselection of a value when selecting a product in object lines
            }
        } else {
            $return .= $this->error;
        }

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

    /**
     *  Load into the cache ->cache_vatrates, all the vat rates of a country
     *
     * @param string $country_code Country code with quotes ("'CA'", or "'CA,IN,...'")
     * @return int                         Nb of loaded lines, 0 if already loaded, <0 if KO
     */
    public function load_cache_vatrates($country_code)
    {
        // phpcs:enable
        global $langs, $user;

        $num = count($this->cache_vatrates);
        if ($num > 0) {
            return $num; // Cache already loaded
        }

        dol_syslog(__METHOD__, LOG_DEBUG);

        $sql = "SELECT t.rowid, t.type_vat, t.code, t.taux, t.localtax1, t.localtax1_type, t.localtax2, t.localtax2_type, t.recuperableonly";
        $sql .= " FROM " . $this->db->prefix() . "c_tva as t, " . $this->db->prefix() . "c_country as c";
        $sql .= " WHERE t.fk_pays = c.rowid";
        $sql .= " AND t.active > 0";
        $sql .= " AND t.entity IN (" . getEntity('c_tva') . ")";
        $sql .= " AND c.code IN (" . $this->db->sanitize($country_code, 1) . ")";
        $sql .= " ORDER BY t.code ASC, t.taux ASC, t.recuperableonly ASC";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            if ($num) {
                for ($i = 0; $i < $num; $i++) {
                    $obj = $this->db->fetch_object($resql);

                    $tmparray = array();
                    $tmparray['rowid'] = $obj->rowid;
                    $tmparray['type_vat'] = $obj->type_vat;
                    $tmparray['code'] = $obj->code;
                    $tmparray['txtva'] = $obj->taux;
                    $tmparray['nprtva'] = $obj->recuperableonly;
                    $tmparray['localtax1'] = $obj->localtax1;
                    $tmparray['localtax1_type'] = $obj->localtax1_type;
                    $tmparray['localtax2'] = $obj->localtax2;
                    $tmparray['localtax2_type'] = $obj->localtax1_type;
                    $tmparray['label'] = $obj->taux . '%' . ($obj->code ? ' (' . $obj->code . ')' : ''); // Label must contains only 0-9 , . % or *
                    $tmparray['labelallrates'] = $obj->taux . '/' . ($obj->localtax1 ? $obj->localtax1 : '0') . '/' . ($obj->localtax2 ? $obj->localtax2 : '0') . ($obj->code ? ' (' . $obj->code . ')' : ''); // Must never be used as key, only label
                    $positiverates = '';
                    if ($obj->taux) {
                        $positiverates .= ($positiverates ? '/' : '') . $obj->taux;
                    }
                    if ($obj->localtax1) {
                        $positiverates .= ($positiverates ? '/' : '') . $obj->localtax1;
                    }
                    if ($obj->localtax2) {
                        $positiverates .= ($positiverates ? '/' : '') . $obj->localtax2;
                    }
                    if (empty($positiverates)) {
                        $positiverates = '0';
                    }
                    $tmparray['labelpositiverates'] = $positiverates . ($obj->code ? ' (' . $obj->code . ')' : ''); // Must never be used as key, only label

                    $this->cache_vatrates[$obj->rowid] = $tmparray;
                }

                return $num;
            } else {
                $this->error = '<span class="error">';
                $this->error .= $langs->trans("ErrorNoVATRateDefinedForSellerCountry", $country_code);
                $reg = array();
                if (!empty($user) && $user->admin && preg_match('/\'(..)\'/', $country_code, $reg)) {
                    $langs->load("errors");
                    $new_country_code = $reg[1];
                    $country_id = dol_getIdFromCode($this->db, $new_country_code, 'c_pays', 'code', 'rowid');
                    $this->error .= '<br>' . $langs->trans("ErrorFixThisHere", constant('BASE_URL') . '/admin/dict.php?id=10' . ($country_id > 0 ? '&countryidforinsert=' . $country_id : ''));
                }
                $this->error .= '</span>';
                return -1;
            }
        } else {
            $this->error = '<span class="error">' . $this->db->error() . '</span>';
            return -2;
        }
    }

    /**
     *  Show a HTML widget to input a date or combo list for day, month, years and optionally hours and minutes.
     *  Fields are preselected with :
     *                - set_time date (must be a local PHP server timestamp or string date with format 'YYYY-MM-DD' or 'YYYY-MM-DD HH:MM')
     *                - local date in user area, if set_time is '' (so if set_time is '', output may differs when done from two different location)
     *                - Empty (fields empty), if set_time is -1 (in this case, parameter empty must also have value 1)
     *
     * @param integer|string $set_time Pre-selected date (must be a local PHP server timestamp), -1 to keep date not preselected, '' to use current date with 00:00 hour (Parameter 'empty' must be 0 or 2).
     * @param string $prefix Prefix for fields name
     * @param int $h 1 or 2=Show also hours (2=hours on a new line), -1 has same effect but hour and minutes are prefilled with 23:59 if date is empty, 3 show hour always empty
     * @param int $m 1=Show also minutes, -1 has same effect but hour and minutes are prefilled with 23:59 if date is empty, 3 show minutes always empty
     * @param int $empty 0=Fields required, 1=Empty inputs are allowed, 2=Empty inputs are allowed for hours only
     * @param string $form_name Not used
     * @param int $d 1=Show days, month, years
     * @param int $addnowlink Add a link "Now"
     * @param int $nooutput Do not output html string but return it
     * @param int $disabled Disable input fields
     * @param int $fullday When a checkbox with this html name is on, hour and day are set with 00:00 or 23:59
     * @param string $addplusone Add a link "+1 hour". Value must be name of another select_date field.
     * @param int|string $adddateof Add a link "Date of invoice" using the following date.
     * @return    string                        '' or HTML component string if nooutput is 1
     * @deprecated
     * @see    selectDate(), form_date(), select_month(), select_year(), select_dayofweek()
     */
    public function select_date($set_time = '', $prefix = 're', $h = 0, $m = 0, $empty = 0, $form_name = "", $d = 1, $addnowlink = 0, $nooutput = 0, $disabled = 0, $fullday = 0, $addplusone = '', $adddateof = '')
    {
        // phpcs:enable
        dol_syslog(__METHOD__ . ': using select_date is deprecated. Use selectDate instead.', LOG_WARNING);
        $retstring = $this->selectDate($set_time, $prefix, $h, $m, $empty, $form_name, $d, $addnowlink, $disabled, $fullday, $addplusone, $adddateof);
        if (!empty($nooutput)) {
            return $retstring;
        }
        print $retstring;

        return '';
    }

    /**
     *  Show 2 HTML widget to input a date or combo list for day, month, years and optionally hours and minutes.
     *  Fields are preselected with :
     *              - set_time date (must be a local PHP server timestamp or string date with format 'YYYY-MM-DD' or 'YYYY-MM-DD HH:MM')
     *              - local date in user area, if set_time is '' (so if set_time is '', output may differs when done from two different location)
     *              - Empty (fields empty), if set_time is -1 (in this case, parameter empty must also have value 1)
     *
     * @param integer|string $set_time Pre-selected date (must be a local PHP server timestamp), -1 to keep date not preselected, '' to use current date with 00:00 hour (Parameter 'empty' must be 0 or 2).
     * @param integer|string $set_time_end Pre-selected date (must be a local PHP server timestamp), -1 to keep date not preselected, '' to use current date with 00:00 hour (Parameter 'empty' must be 0 or 2).
     * @param string $prefix Prefix for fields name
     * @param int $empty 0=Fields required, 1=Empty inputs are allowed, 2=Empty inputs are allowed for hours only
     * @param int $forcenewline Force new line between the 2 dates.
     * @return string                        Html for selectDate
     * @see    form_date(), select_month(), select_year(), select_dayofweek()
     */
    public function selectDateToDate($set_time = '', $set_time_end = '', $prefix = 're', $empty = 0, $forcenewline = 0)
    {
        global $langs;

        $ret = $this->selectDate($set_time, $prefix . '_start', 0, 0, $empty, '', 1, 0, 0, '', '', '', '', 1, '', $langs->trans("from"), 'tzuserrel');
        if ($forcenewline) {
            $ret .= '<br>';
        }
        $ret .= $this->selectDate($set_time_end, $prefix . '_end', 0, 0, $empty, '', 1, 0, 0, '', '', '', '', 1, '', $langs->trans("to"), 'tzuserrel');
        return $ret;
    }

    /**
     * selectTypeDuration
     *
     * @param string $prefix Prefix
     * @param string $selected Selected duration type
     * @param string[] $excludetypes Array of duration types to exclude. Example array('y', 'm')
     * @return  string                    HTML select string
     */
    public function selectTypeDuration($prefix, $selected = 'i', $excludetypes = array())
    {
        global $langs;

        $TDurationTypes = array(
            'y' => $langs->trans('Years'),
            'm' => $langs->trans('Month'),
            'w' => $langs->trans('Weeks'),
            'd' => $langs->trans('Days'),
            'h' => $langs->trans('Hours'),
            'i' => $langs->trans('Minutes')
        );

        // Removed undesired duration types
        foreach ($excludetypes as $value) {
            unset($TDurationTypes[$value]);
        }

        $retstring = '<select class="flat minwidth75 maxwidth100" id="select_' . $prefix . 'type_duration" name="' . $prefix . 'type_duration">';
        foreach ($TDurationTypes as $key => $typeduration) {
            $retstring .= '<option value="' . $key . '"';
            if ($key == $selected) {
                $retstring .= " selected";
            }
            $retstring .= ">" . $typeduration . "</option>";
        }
        $retstring .= "</select>";

        $retstring .= ajax_combobox('select_' . $prefix . 'type_duration');

        return $retstring;
    }

    /**
     *  Function to show a form to select a duration on a page
     *
     * @param string $prefix Prefix for input fields
     * @param int|string $iSecond Default preselected duration (number of seconds or '')
     * @param int $disabled Disable the combo box
     * @param string $typehour If 'select' then input hour and input min is a combo,
     *                         If 'text' input hour is in text and input min is a text,
     *                         If 'textselect' input hour is in text and input min is a combo
     * @param integer $minunderhours If 1, show minutes selection under the hours
     * @param int $nooutput Do not output html string but return it
     * @return    string                        HTML component
     */
    public function select_duration($prefix, $iSecond = '', $disabled = 0, $typehour = 'select', $minunderhours = 0, $nooutput = 0)
    {
        // phpcs:enable
        global $langs;

        $retstring = '<span class="nowraponall">';

        $hourSelected = '';
        $minSelected = '';

        // Hours
        if ($iSecond != '') {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/date.lib.php';

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

        if ($typehour == 'select') {
            $retstring .= '<select class="flat" id="select_' . $prefix . 'hour" name="' . $prefix . 'hour"' . ($disabled ? ' disabled' : '') . '>';
            for ($hour = 0; $hour < 25; $hour++) {    // For a duration, we allow 24 hours
                $retstring .= '<option value="' . $hour . '"';
                if (is_numeric($hourSelected) && $hourSelected == $hour) {
                    $retstring .= " selected";
                }
                $retstring .= ">" . $hour . "</option>";
            }
            $retstring .= "</select>";
        } elseif ($typehour == 'text' || $typehour == 'textselect') {
            $retstring .= '<input placeholder="' . $langs->trans('HourShort') . '" type="number" min="0" name="' . $prefix . 'hour"' . ($disabled ? ' disabled' : '') . ' class="flat maxwidth50 inputhour right" value="' . (($hourSelected != '') ? ((int)$hourSelected) : '') . '">';
        } else {
            return 'BadValueForParameterTypeHour';
        }

        if ($typehour != 'text') {
            $retstring .= ' ' . $langs->trans('HourShort');
        } else {
            $retstring .= '<span class="">:</span>';
        }

        // Minutes
        if ($minunderhours) {
            $retstring .= '<br>';
        } else {
            if ($typehour != 'text') {
                $retstring .= '<span class="hideonsmartphone">&nbsp;</span>';
            }
        }

        if ($typehour == 'select' || $typehour == 'textselect') {
            $retstring .= '<select class="flat" id="select_' . $prefix . 'min" name="' . $prefix . 'min"' . ($disabled ? ' disabled' : '') . '>';
            for ($min = 0; $min <= 55; $min += 5) {
                $retstring .= '<option value="' . $min . '"';
                if (is_numeric($minSelected) && $minSelected == $min) {
                    $retstring .= ' selected';
                }
                $retstring .= '>' . $min . '</option>';
            }
            $retstring .= "</select>";
        } elseif ($typehour == 'text') {
            $retstring .= '<input placeholder="' . $langs->trans('MinuteShort') . '" type="number" min="0" name="' . $prefix . 'min"' . ($disabled ? ' disabled' : '') . ' class="flat maxwidth50 inputminute right" value="' . (($minSelected != '') ? ((int)$minSelected) : '') . '">';
        }

        if ($typehour != 'text') {
            $retstring .= ' ' . $langs->trans('MinuteShort');
        }

        $retstring .= "</span>";

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

        print $retstring;

        return '';
    }

    /**
     *  Return list of tickets in Ajax if Ajax activated or go to selectTicketsList
     *
     * @param string $selected Preselected tickets
     * @param string $htmlname Name of HTML select field (must be unique in page).
     * @param string $filtertype To add a filter
     * @param int $limit Limit on number of returned lines
     * @param int $status Ticket status
     * @param string $selected_input_value Value of preselected input text (for use with ajax)
     * @param int<0,3> $hidelabel Hide label (0=no, 1=yes, 2=show search icon (before) and placeholder, 3 search icon after)
     * @param array<string,string|string[]> $ajaxoptions Options for ajax_autocompleter
     * @param int $socid Thirdparty Id (to get also price dedicated to this customer)
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int<0,1> $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @param array<string,string> $selected_combinations Selected combinations. Format: array([attrid] => attrval, [...])
     * @param int<0,1> $nooutput No print, return the output into a string
     * @return  string
     */
    public function selectTickets($selected = '', $htmlname = 'ticketid', $filtertype = '', $limit = 0, $status = 1, $selected_input_value = '', $hidelabel = 0, $ajaxoptions = array(), $socid = 0, $showempty = '1', $forcecombo = 0, $morecss = '', $selected_combinations = null, $nooutput = 0)
    {
        global $langs, $conf;

        $out = '';

        // check parameters
        if (is_null($ajaxoptions)) {
            $ajaxoptions = array();
        }

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

            if ($selected && empty($selected_input_value)) {
                $tickettmpselect = new Ticket($this->db);
                $tickettmpselect->fetch($selected);
                $selected_input_value = $tickettmpselect->ref;
                unset($tickettmpselect);
            }

            $urloption = '';
            $out .= ajax_autocompleter($selected, $htmlname, constant('BASE_URL') . '/ticket/ajax/tickets.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 1, $ajaxoptions);

            if (empty($hidelabel)) {
                $out .= $langs->trans("RefOrLabel") . ' : ';
            } elseif ($hidelabel > 1) {
                $placeholder = ' placeholder="' . $langs->trans("RefOrLabel") . '"';
                if ($hidelabel == 2) {
                    $out .= img_picto($langs->trans("Search"), 'search');
                }
            }
            $out .= '<input type="text" class="minwidth100" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . $placeholder . ' ' . (getDolGlobalString('PRODUCT_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';
            if ($hidelabel == 3) {
                $out .= img_picto($langs->trans("Search"), 'search');
            }
        } else {
            $out .= $this->selectTicketsList($selected, $htmlname, $filtertype, $limit, '', $status, 0, $showempty, $forcecombo, $morecss);
        }

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

    /**
     * Return list of tickets.
     *  Called by selectTickets.
     *
     * @param string $selected Preselected ticket
     * @param string $htmlname Name of select html
     * @param string $filtertype Filter on ticket type
     * @param int $limit Limit on number of returned lines
     * @param string $filterkey Filter on ticket ref or subject
     * @param int $status Ticket status
     * @param int $outputmode 0=HTML select string, 1=Array
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @return  array|string                Array of keys for json or HTML component
     */
    public function selectTicketsList($selected = '', $htmlname = 'ticketid', $filtertype = '', $limit = 20, $filterkey = '', $status = 1, $outputmode = 0, $showempty = '1', $forcecombo = 0, $morecss = '')
    {
        global $langs, $conf;

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

        $selectFields = " p.rowid, p.ref, p.message";

        $sql = "SELECT ";
        $sql .= $selectFields;
        $sql .= " FROM " . $this->db->prefix() . "ticket as p";
        $sql .= ' WHERE p.entity IN (' . getEntity('ticket') . ')';

        // Add criteria on ref/label
        if ($filterkey != '') {
            $sql .= ' AND (';
            $prefix = !getDolGlobalString('TICKET_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
            // For natural search
            $search_crit = explode(' ', $filterkey);
            $i = 0;
            if (count($search_crit) > 1) {
                $sql .= "(";
            }
            foreach ($search_crit as $crit) {
                if ($i > 0) {
                    $sql .= " AND ";
                }
                $sql .= "(p.ref LIKE '" . $this->db->escape($prefix . $crit) . "%' OR p.subject LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                $sql .= ")";
                $i++;
            }
            if (count($search_crit) > 1) {
                $sql .= ")";
            }
            $sql .= ')';
        }

        $sql .= $this->db->plimit($limit, 0);

        // Build output string
        dol_syslog(get_only_class($this) . "::selectTicketsList search tickets", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/ticket.lib.php';

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

            $events = array();

            if (!$forcecombo) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname, $events, $conf->global->TICKET_USE_SEARCH_TO_SELECT);
            }

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

            $textifempty = '';
            // Do not use textifempty = ' ' or '&nbsp;' here, or search on key will search on ' key'.
            //if (!empty($conf->use_javascript_ajax) || $forcecombo) $textifempty='';
            if (getDolGlobalString('TICKET_USE_SEARCH_TO_SELECT')) {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                } else {
                    $textifempty .= $langs->trans("All");
                }
            } else {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                }
            }
            if ($showempty) {
                $out .= '<option value="0" selected>' . $textifempty . '</option>';
            }

            $i = 0;
            while ($num && $i < $num) {
                $opt = '';
                $optJson = array();
                $objp = $this->db->fetch_object($result);

                $this->constructTicketListOption($objp, $opt, $optJson, $selected, $filterkey);
                // Add new entry
                // "key" value of json key array is used by jQuery automatically as selected value
                // "label" value of json key array is used by jQuery automatically as text for combo box
                $out .= $opt;
                array_push($outarray, $optJson);

                $i++;
            }

            $out .= '</select>';

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

            if (empty($outputmode)) {
                return $out;
            }
            return $outarray;
        } else {
            dol_print_error($this->db);
        }

        return array();
    }

    /**
     * constructTicketListOption.
     * This define value for &$opt and &$optJson.
     *
     * @param object $objp Result set of fetch
     * @param string $opt Option (var used for returned value in string option format)
     * @param mixed[] $optJson Option (var used for returned value in json format)
     * @param string $selected Preselected value
     * @param string $filterkey Filter key to highlight
     * @return    void
     */
    protected function constructTicketListOption(&$objp, &$opt, &$optJson, $selected, $filterkey = '')
    {
        $outkey = '';
        $outref = '';
        $outtype = '';

        $outkey = $objp->rowid;
        $outref = $objp->ref;
        $outtype = $objp->fk_product_type;

        $opt = '<option value="' . $objp->rowid . '"';
        $opt .= ($objp->rowid == $selected) ? ' selected' : '';
        $opt .= '>';
        $opt .= $objp->ref;
        $objRef = $objp->ref;
        if (!empty($filterkey) && $filterkey != '') {
            $objRef = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $objRef, 1);
        }

        $opt .= "</option>\n";
        $optJson = array('key' => $outkey, 'value' => $outref, 'type' => $outtype);
    }

    /**
     *  Return list of projects in Ajax if Ajax activated or go to selectTicketsList
     *
     * @param string $selected Preselected tickets
     * @param string $htmlname Name of HTML select field (must be unique in page).
     * @param string $filtertype To add a filter
     * @param int $limit Limit on number of returned lines
     * @param int $status Ticket status
     * @param string $selected_input_value Value of preselected input text (for use with ajax)
     * @param int<0,3> $hidelabel Hide label (0=no, 1=yes, 2=show search icon (before) and placeholder, 3 search icon after)
     * @param array<string,string|string[]> $ajaxoptions Options for ajax_autocompleter
     * @param int $socid Thirdparty Id (to get also price dedicated to this customer)
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int<0,1> $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @param array<string,string> $selected_combinations Selected combinations. Format: array([attrid] => attrval, [...])
     * @param int<0,1> $nooutput No print, return the output into a string
     * @return  string
     */
    public function selectProjects($selected = '', $htmlname = 'projectid', $filtertype = '', $limit = 0, $status = 1, $selected_input_value = '', $hidelabel = 0, $ajaxoptions = array(), $socid = 0, $showempty = '1', $forcecombo = 0, $morecss = '', $selected_combinations = null, $nooutput = 0)
    {
        global $langs, $conf;

        $out = '';

        // check parameters
        if (is_null($ajaxoptions)) {
            $ajaxoptions = array();
        }

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

            if ($selected && empty($selected_input_value)) {
                $projecttmpselect = new Project($this->db);
                $projecttmpselect->fetch($selected);
                $selected_input_value = $projecttmpselect->ref;
                unset($projecttmpselect);
            }

            $urloption = '';
            $out .= ajax_autocompleter($selected, $htmlname, constant('BASE_URL') . '/projet/ajax/projects.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 1, $ajaxoptions);

            if (empty($hidelabel)) {
                $out .= $langs->trans("RefOrLabel") . ' : ';
            } elseif ($hidelabel > 1) {
                $placeholder = ' placeholder="' . $langs->trans("RefOrLabel") . '"';
                if ($hidelabel == 2) {
                    $out .= img_picto($langs->trans("Search"), 'search');
                }
            }
            $out .= '<input type="text" class="minwidth100" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . $placeholder . ' ' . (getDolGlobalString('PRODUCT_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';
            if ($hidelabel == 3) {
                $out .= img_picto($langs->trans("Search"), 'search');
            }
        } else {
            $out .= $this->selectProjectsList($selected, $htmlname, $filtertype, $limit, '', $status, 0, $showempty, $forcecombo, $morecss);
        }

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

    /**
     *    Return list of projects.
     *  Called by selectProjects.
     *
     * @param string $selected Preselected project
     * @param string $htmlname Name of select html
     * @param string $filtertype Filter on project type
     * @param int $limit Limit on number of returned lines
     * @param string $filterkey Filter on project ref or subject
     * @param int $status Ticket status
     * @param int $outputmode 0=HTML select string, 1=Array
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @return     array|string                Array of keys for json or HTML component
     */
    public function selectProjectsList($selected = '', $htmlname = 'projectid', $filtertype = '', $limit = 20, $filterkey = '', $status = 1, $outputmode = 0, $showempty = '1', $forcecombo = 0, $morecss = '')
    {
        global $langs, $conf;

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

        $selectFields = " p.rowid, p.ref";

        $sql = "SELECT ";
        $sql .= $selectFields;
        $sql .= " FROM " . $this->db->prefix() . "projet as p";
        $sql .= ' WHERE p.entity IN (' . getEntity('project') . ')';

        // Add criteria on ref/label
        if ($filterkey != '') {
            $sql .= ' AND (';
            $prefix = !getDolGlobalString('TICKET_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
            // For natural search
            $search_crit = explode(' ', $filterkey);
            $i = 0;
            if (count($search_crit) > 1) {
                $sql .= "(";
            }
            foreach ($search_crit as $crit) {
                if ($i > 0) {
                    $sql .= " AND ";
                }
                $sql .= "p.ref LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                $sql .= "";
                $i++;
            }
            if (count($search_crit) > 1) {
                $sql .= ")";
            }
            $sql .= ')';
        }

        $sql .= $this->db->plimit($limit, 0);

        // Build output string
        dol_syslog(get_only_class($this) . "::selectProjectsList search projects", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/project.lib.php';

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

            $events = array();

            if (!$forcecombo) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname, $events, $conf->global->PROJECT_USE_SEARCH_TO_SELECT);
            }

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

            $textifempty = '';
            // Do not use textifempty = ' ' or '&nbsp;' here, or search on key will search on ' key'.
            //if (!empty($conf->use_javascript_ajax) || $forcecombo) $textifempty='';
            if (getDolGlobalString('PROJECT_USE_SEARCH_TO_SELECT')) {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                } else {
                    $textifempty .= $langs->trans("All");
                }
            } else {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                }
            }
            if ($showempty) {
                $out .= '<option value="0" selected>' . $textifempty . '</option>';
            }

            $i = 0;
            while ($num && $i < $num) {
                $opt = '';
                $optJson = array();
                $objp = $this->db->fetch_object($result);

                $this->constructProjectListOption($objp, $opt, $optJson, $selected, $filterkey);
                // Add new entry
                // "key" value of json key array is used by jQuery automatically as selected value
                // "label" value of json key array is used by jQuery automatically as text for combo box
                $out .= $opt;
                array_push($outarray, $optJson);

                $i++;
            }

            $out .= '</select>';

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

            if (empty($outputmode)) {
                return $out;
            }
            return $outarray;
        } else {
            dol_print_error($this->db);
        }

        return array();
    }

    /**
     * constructProjectListOption.
     * This define value for &$opt and &$optJson.
     *
     * @param stdClass $objp Result set of fetch
     * @param string $opt Option (var used for returned value in string option format)
     * @param array{key:string,value:string,type:string} $optJson Option (var used for returned value in json format)
     * @param string $selected Preselected value
     * @param string $filterkey Filter key to highlight
     * @return    void
     */
    protected function constructProjectListOption(&$objp, &$opt, &$optJson, $selected, $filterkey = '')
    {
        $outkey = '';
        $outref = '';
        $outtype = '';

        $label = $objp->label;

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

        $opt = '<option value="' . $objp->rowid . '"';
        $opt .= ($objp->rowid == $selected) ? ' selected' : '';
        $opt .= '>';
        $opt .= $objp->ref;
        $objRef = $objp->ref;
        if (!empty($filterkey) && $filterkey != '') {
            $objRef = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $objRef, 1);
        }

        $opt .= "</option>\n";
        $optJson = array('key' => $outkey, 'value' => $outref, 'type' => $outtype);
    }

    /**
     *  Return list of members in Ajax if Ajax activated or go to selectTicketsList
     *
     * @param string $selected Preselected tickets
     * @param string $htmlname Name of HTML select field (must be unique in page).
     * @param string $filtertype To add a filter
     * @param int $limit Limit on number of returned lines
     * @param int $status Ticket status
     * @param string $selected_input_value Value of preselected input text (for use with ajax)
     * @param int<0,3> $hidelabel Hide label (0=no, 1=yes, 2=show search icon before and placeholder, 3 search icon after)
     * @param array<string,string|string[]> $ajaxoptions Options for ajax_autocompleter
     * @param int $socid Thirdparty Id (to get also price dedicated to this customer)
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @param array<string,string> $selected_combinations Selected combinations. Format: array([attrid] => attrval, [...])
     * @param int<0,1> $nooutput No print, return the output into a string
     * @return        string
     */
    public function selectMembers($selected = '', $htmlname = 'adherentid', $filtertype = '', $limit = 0, $status = 1, $selected_input_value = '', $hidelabel = 0, $ajaxoptions = array(), $socid = 0, $showempty = '1', $forcecombo = 0, $morecss = '', $selected_combinations = null, $nooutput = 0)
    {
        global $langs, $conf;

        $out = '';

        // check parameters
        if (is_null($ajaxoptions)) {
            $ajaxoptions = array();
        }

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

            if ($selected && empty($selected_input_value)) {
                $adherenttmpselect = new Adherent($this->db);
                $adherenttmpselect->fetch($selected);
                $selected_input_value = $adherenttmpselect->ref;
                unset($adherenttmpselect);
            }

            $urloption = '';

            $out .= ajax_autocompleter($selected, $htmlname, constant('BASE_URL') . '/adherents/ajax/adherents.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 1, $ajaxoptions);

            if (empty($hidelabel)) {
                $out .= $langs->trans("RefOrLabel") . ' : ';
            } elseif ($hidelabel > 1) {
                $placeholder = ' placeholder="' . $langs->trans("RefOrLabel") . '"';
                if ($hidelabel == 2) {
                    $out .= img_picto($langs->trans("Search"), 'search');
                }
            }
            $out .= '<input type="text" class="minwidth100" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . $placeholder . ' ' . (getDolGlobalString('PRODUCT_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';
            if ($hidelabel == 3) {
                $out .= img_picto($langs->trans("Search"), 'search');
            }
        } else {
            $filterkey = '';

            $out .= $this->selectMembersList($selected, $htmlname, $filtertype, $limit, $filterkey, $status, 0, $showempty, $forcecombo, $morecss);
        }

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

    /**
     *    Return list of adherents.
     *  Called by selectMembers.
     *
     * @param string $selected Preselected adherent
     * @param string $htmlname Name of select html
     * @param string $filtertype Filter on adherent type
     * @param int $limit Limit on number of returned lines
     * @param string $filterkey Filter on member status
     * @param int $status Member status
     * @param int $outputmode 0=HTML select string, 1=Array
     * @param string|int<0,1> $showempty '' to not show empty line. Translation key to show an empty line. '1' show empty line with no text.
     * @param int $forcecombo Force to use combo box
     * @param string $morecss Add more css on select
     * @return     array|string                Array of keys for json or HTML string component
     */
    public function selectMembersList($selected = '', $htmlname = 'adherentid', $filtertype = '', $limit = 20, $filterkey = '', $status = 1, $outputmode = 0, $showempty = '1', $forcecombo = 0, $morecss = '')
    {
        global $langs, $conf;

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

        $selectFields = " p.rowid, p.ref, p.firstname, p.lastname, p.fk_adherent_type";

        $sql = "SELECT ";
        $sql .= $selectFields;
        $sql .= " FROM " . $this->db->prefix() . "adherent as p";
        $sql .= ' WHERE p.entity IN (' . getEntity('adherent') . ')';

        // Add criteria on ref/label
        if ($filterkey != '') {
            $sql .= ' AND (';
            $prefix = !getDolGlobalString('MEMBER_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
            // For natural search
            $search_crit = explode(' ', $filterkey);
            $i = 0;
            if (count($search_crit) > 1) {
                $sql .= "(";
            }
            foreach ($search_crit as $crit) {
                if ($i > 0) {
                    $sql .= " AND ";
                }
                $sql .= "(p.firstname LIKE '" . $this->db->escape($prefix . $crit) . "%'";
                $sql .= " OR p.lastname LIKE '" . $this->db->escape($prefix . $crit) . "%')";
                $i++;
            }
            if (count($search_crit) > 1) {
                $sql .= ")";
            }
            $sql .= ')';
        }
        if ($status != -1) {
            $sql .= ' AND statut = ' . ((int)$status);
        }
        $sql .= $this->db->plimit($limit, 0);

        // Build output string
        dol_syslog(get_only_class($this) . "::selectMembersList search adherents", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/member.lib.php';

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

            $events = array();

            if (!$forcecombo) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname, $events, getDolGlobalString('PROJECT_USE_SEARCH_TO_SELECT') ? $conf->global->PROJECT_USE_SEARCH_TO_SELECT : '');
            }

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

            $textifempty = '';
            // Do not use textifempty = ' ' or '&nbsp;' here, or search on key will search on ' key'.
            //if (!empty($conf->use_javascript_ajax) || $forcecombo) $textifempty='';
            if (getDolGlobalString('PROJECT_USE_SEARCH_TO_SELECT')) {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                } else {
                    $textifempty .= $langs->trans("All");
                }
            } else {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                }
            }
            if ($showempty) {
                $out .= '<option value="-1" selected>' . $textifempty . '</option>';
            }

            $i = 0;
            while ($num && $i < $num) {
                $opt = '';
                $optJson = array();
                $objp = $this->db->fetch_object($result);

                $this->constructMemberListOption($objp, $opt, $optJson, $selected, $filterkey);

                // Add new entry
                // "key" value of json key array is used by jQuery automatically as selected value
                // "label" value of json key array is used by jQuery automatically as text for combo box
                $out .= $opt;
                array_push($outarray, $optJson);

                $i++;
            }

            $out .= '</select>';

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

            if (empty($outputmode)) {
                return $out;
            }
            return $outarray;
        } else {
            dol_print_error($this->db);
        }

        return array();
    }

    /**
     * constructMemberListOption.
     * This define value for &$opt and &$optJson.
     *
     * @param object $objp Result set of fetch
     * @param string $opt Option (var used for returned value in string option format)
     * @param mixed[] $optJson Option (var used for returned value in json format)
     * @param string $selected Preselected value
     * @param string $filterkey Filter key to highlight
     * @return    void
     */
    protected function constructMemberListOption(&$objp, &$opt, &$optJson, $selected, $filterkey = '')
    {
        $outkey = '';
        $outlabel = '';
        $outtype = '';

        $outkey = $objp->rowid;
        $outlabel = dolGetFirstLastname($objp->firstname, $objp->lastname);
        $outtype = $objp->fk_adherent_type;

        $opt = '<option value="' . $objp->rowid . '"';
        $opt .= ($objp->rowid == $selected) ? ' selected' : '';
        $opt .= '>';
        if (!empty($filterkey) && $filterkey != '') {
            $outlabel = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $outlabel, 1);
        }
        $opt .= $outlabel;
        $opt .= "</option>\n";

        $optJson = array('key' => $outkey, 'value' => $outlabel, 'type' => $outtype);
    }

    /**
     * Generic method to select a component from a combo list.
     * Can use autocomplete with ajax after x key pressed or a full combo, depending on setup.
     * This is the generic method that will replace all specific existing methods.
     *
     * @param string $objectdesc 'ObjectClass:PathToClass[:AddCreateButtonOrNot[:Filter[:Sortfield]]]'. For hard coded custom needs. Try to prefer method using $objectfield instead of $objectdesc.
     * @param string $htmlname Name of HTML select component
     * @param int $preSelectedValue Preselected value (ID of element)
     * @param string|int<0,1> $showempty ''=empty values not allowed, 'string'=value show if we allow empty values (for example 'All', ...)
     * @param string $searchkey Search criteria
     * @param string $placeholder Place holder
     * @param string $morecss More CSS
     * @param string $moreparams More params provided to ajax call
     * @param int $forcecombo Force to load all values and output a standard combobox (with no beautification)
     * @param int<0,1> $disabled 1=Html component is disabled
     * @param string $selected_input_value Value of preselected input text (for use with ajax)
     * @param string $objectfield Object:Field that contains the definition of parent (in table $fields or $extrafields). Example: 'Object:xxx' or 'Object@module:xxx' (old syntax 'Module_Object:xxx') or 'Object:options_xxx' or 'Object@module:options_xxx' (old syntax 'Module_Object:options_xxx')
     * @return  string                              Return HTML string
     * @see selectForFormsList(), select_thirdparty_list()
     */
    public function selectForForms($objectdesc, $htmlname, $preSelectedValue, $showempty = '', $searchkey = '', $placeholder = '', $morecss = '', $moreparams = '', $forcecombo = 0, $disabled = 0, $selected_input_value = '', $objectfield = '')
    {
        global $conf, $extrafields, $user, $db;

        //var_dump($objectdesc); debug_print_backtrace();

        $objectdescorig = $objectdesc;
        $objecttmp = null;
        $InfoFieldList = array();
        $classname = '';
        $filter = '';  // Ensure filter has value (for static analysis)
        $sortfield = '';  // Ensure filter has value (for static analysis)

        if ($objectfield) { // We must retrieve the objectdesc from the field or extrafield
            // Example: $objectfield = 'product:options_package' or 'myobject@mymodule:options_myfield'
            $tmparray = explode(':', $objectfield);

            // Get instance of object from $element
            $objectforfieldstmp = fetchObjectByElement(0, strtolower($tmparray[0]));

            if (is_object($objectforfieldstmp)) {
                $objectdesc = '';

                $reg = array();
                if (preg_match('/^options_(.*)$/', $tmparray[1], $reg)) {
                    // For a property in extrafields
                    $key = $reg[1];
                    // fetch optionals attributes and labels
                    $extrafields->fetch_name_optionals_label($objectforfieldstmp->table_element);

                    if (!empty($extrafields->attributes[$objectforfieldstmp->table_element]['type'][$key]) && $extrafields->attributes[$objectforfieldstmp->table_element]['type'][$key] == 'link') {
                        if (!empty($extrafields->attributes[$objectforfieldstmp->table_element]['param'][$key]['options'])) {
                            $tmpextrafields = array_keys($extrafields->attributes[$objectforfieldstmp->table_element]['param'][$key]['options']);
                            $objectdesc = $tmpextrafields[0];
                        }
                    }
                } else {
                    // For a property in ->fields
                    if (array_key_exists($tmparray[1], $objectforfieldstmp->fields)) {
                        $objectdesc = $objectforfieldstmp->fields[$tmparray[1]]['type'];
                        $objectdesc = preg_replace('/^integer[^:]*:/', '', $objectdesc);
                    }
                }
            }
        }

        if ($objectdesc) {
            // Example of value for $objectdesc:
            // Bom:bom/class/bom.class.php:0:t.status=1
            // Bom:bom/class/bom.class.php:0:t.status=1:ref
            // Bom:bom/class/bom.class.php:0:(t.status:=:1) OR (t.field2:=:2):ref
            $InfoFieldList = explode(":", $objectdesc, 4);
            $vartmp = (empty($InfoFieldList[3]) ? '' : $InfoFieldList[3]);
            $reg = array();
            if (preg_match('/^.*:(\w*)$/', $vartmp, $reg)) {
                $InfoFieldList[4] = $reg[1];    // take the sort field
            }
            $InfoFieldList[3] = preg_replace('/:\w*$/', '', $vartmp);    // take the filter field

            $classname = $InfoFieldList[0];
            $classpath = empty($InfoFieldList[1]) ? '' : $InfoFieldList[1];
            //$addcreatebuttonornot = empty($InfoFieldList[2]) ? 0 : $InfoFieldList[2];
            $filter = empty($InfoFieldList[3]) ? '' : $InfoFieldList[3];
            $sortfield = empty($InfoFieldList[4]) ? '' : $InfoFieldList[4];


            // Load object according to $id and $element
            // $objecttmp = fetchObjectByElement(0, strtolower($InfoFieldList[0]));
            $objecttmp = Misc::loadModel($InfoFieldList[0], $db);

            // Fallback to another solution to get $objecttmp
            if (empty($objecttmp) && !empty($classpath)) {
                dol_include_once($classpath);

                if ($classname && class_exists($classname)) {
                    $objecttmp = new $classname($this->db);
                }
            }
        }

        // Make some replacement in $filter. May not be used if we used the ajax mode with $objectfield. In such a case
        // we propagate the $objectfield and not the filter and replacement is done by the ajax/selectobject.php component.
        $sharedentities = (is_object($objecttmp) && property_exists($objecttmp, 'element')) ? getEntity($objecttmp->element) : strtolower($classname);
        $filter = str_replace(
            array('__ENTITY__', '__SHARED_ENTITIES__', '__USER_ID__'),
            array($conf->entity, $sharedentities, $user->id),
            $filter
        );

        if (!is_object($objecttmp)) {
            dol_syslog('selectForForms: Error bad setup of field objectdescorig=' . $objectdescorig . ', objectfield=' . $objectfield . ', objectdesc=' . $objectdesc, LOG_WARNING);
            return 'selectForForms: Error bad setup of field objectdescorig=' . $objectdescorig . ', objectfield=' . $objectfield . ', objectdesc=' . $objectdesc;
        }
        '@phan-var-force CommonObject $objecttmp';

        //var_dump($filter);
        $prefixforautocompletemode = $objecttmp->element;
        if ($prefixforautocompletemode == 'societe') {
            $prefixforautocompletemode = 'company';
        }
        if ($prefixforautocompletemode == 'product') {
            $prefixforautocompletemode = 'produit';
        }
        $confkeyforautocompletemode = strtoupper($prefixforautocompletemode) . '_USE_SEARCH_TO_SELECT'; // For example COMPANY_USE_SEARCH_TO_SELECT

        dol_syslog(get_only_class($this) . "::selectForForms filter=" . $filter, LOG_DEBUG);

        // Generate the combo HTML component
        $out = '';
        if (!empty($conf->use_javascript_ajax) && getDolGlobalString($confkeyforautocompletemode) && !$forcecombo) {
            // No immediate load of all database
            $placeholder = '';

            if ($preSelectedValue && empty($selected_input_value)) {
                $objecttmp->fetch($preSelectedValue);
                $selected_input_value = ($prefixforautocompletemode == 'company' ? $objecttmp->name : $objecttmp->ref);

                $oldValueForShowOnCombobox = 0;
                foreach ($objecttmp->fields as $fieldK => $fielV) {
                    if (empty($fielV['showoncombobox']) || empty($objecttmp->$fieldK)) {
                        continue;
                    }

                    if (!$oldValueForShowOnCombobox) {
                        $selected_input_value = '';
                    }

                    $selected_input_value .= $oldValueForShowOnCombobox ? ' - ' : '';
                    $selected_input_value .= $objecttmp->$fieldK;
                    $oldValueForShowOnCombobox = empty($fielV['showoncombobox']) ? 0 : $fielV['showoncombobox'];
                }
            }

            // Set url and param to call to get json of the search results
            $urlforajaxcall = constant('BASE_URL') . '/core/ajax/selectobject.php';
            $urloption = 'htmlname=' . urlencode($htmlname) . '&outjson=1&objectdesc=' . urlencode($objectdescorig) . '&objectfield=' . urlencode($objectfield) . ($sortfield ? '&sortfield=' . urlencode($sortfield) : '');

            // Activate the auto complete using ajax call.
            $out .= ajax_autocompleter($preSelectedValue, $htmlname, $urlforajaxcall, $urloption, getDolGlobalString($confkeyforautocompletemode), 0);
            $out .= '<!-- force css to be higher than dialog popup --><style type="text/css">.ui-autocomplete { z-index: 1010; }</style>';
            $out .= '<input type="text" class="' . $morecss . '"' . ($disabled ? ' disabled="disabled"' : '') . ' name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . ($placeholder ? ' placeholder="' . dol_escape_htmltag($placeholder) . '"' : '') . ' />';
        } else {
            // Immediate load of table record.
            $out .= $this->selectForFormsList($objecttmp, $htmlname, $preSelectedValue, $showempty, $searchkey, $placeholder, $morecss, $moreparams, $forcecombo, 0, $disabled, $sortfield, $filter);
        }

        return $out;
    }

    /**
     * Output html form to select an object.
     * Note, this function is called by selectForForms or by ajax selectobject.php
     *
     * @param Object $objecttmp Object to know the table to scan for combo.
     * @param string $htmlname Name of HTML select component
     * @param int $preselectedvalue Preselected value (ID of element)
     * @param string|int<0,1> $showempty ''=empty values not allowed, 'string'=value show if we allow empty values (for example 'All', ...)
     * @param string $searchkey Search value
     * @param string $placeholder Place holder
     * @param string $morecss More CSS
     * @param string $moreparams More params provided to ajax call
     * @param int $forcecombo Force to load all values and output a standard combobox (with no beautification)
     * @param int $outputmode 0=HTML select string, 1=Array
     * @param int $disabled 1=Html component is disabled
     * @param string $sortfield Sort field
     * @param string $filter Add more filter (Universal Search Filter)
     * @return string|array                     Return HTML string
     * @see selectForForms()
     */
    public function selectForFormsList($objecttmp, $htmlname, $preselectedvalue, $showempty = '', $searchkey = '', $placeholder = '', $morecss = '', $moreparams = '', $forcecombo = 0, $outputmode = 0, $disabled = 0, $sortfield = '', $filter = '')
    {
        global $langs, $user, $hookmanager;

        //print "$htmlname, $preselectedvalue, $showempty, $searchkey, $placeholder, $morecss, $moreparams, $forcecombo, $outputmode, $disabled";

        $prefixforautocompletemode = $objecttmp->element;
        if ($prefixforautocompletemode == 'societe') {
            $prefixforautocompletemode = 'company';
        }
        $confkeyforautocompletemode = strtoupper($prefixforautocompletemode) . '_USE_SEARCH_TO_SELECT'; // For example COMPANY_USE_SEARCH_TO_SELECT

        if (!empty($objecttmp->fields)) {    // For object that declare it, it is better to use declared fields (like societe, contact, ...)
            $tmpfieldstoshow = '';
            foreach ($objecttmp->fields as $key => $val) {
                if (!(int)dol_eval($val['enabled'], 1, 1, '1')) {
                    continue;
                }
                if (!empty($val['showoncombobox'])) {
                    $tmpfieldstoshow .= ($tmpfieldstoshow ? ',' : '') . 't.' . $key;
                }
            }
            if ($tmpfieldstoshow) {
                $fieldstoshow = $tmpfieldstoshow;
            }
        } else {
            // For backward compatibility
            $objecttmp->fields['ref'] = array('type' => 'varchar(30)', 'label' => 'Ref', 'showoncombobox' => 1);
        }

        if (empty($fieldstoshow)) {
            if (isset($objecttmp->fields['ref'])) {
                $fieldstoshow = 't.ref';
            } else {
                $langs->load("errors");
                $this->error = $langs->trans("ErrorNoFieldWithAttributeShowoncombobox");
                return $langs->trans('ErrorNoFieldWithAttributeShowoncombobox');
            }
        }

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

        $num = 0;

        // Search data
        $sql = "SELECT t.rowid, " . $fieldstoshow . " FROM " . $this->db->prefix() . $objecttmp->table_element . " as t";
        if (!empty($objecttmp->isextrafieldmanaged)) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . $objecttmp->table_element . "_extrafields as e ON t.rowid=e.fk_object";
        }
        if (isset($objecttmp->ismultientitymanaged)) {
            if (!is_numeric($objecttmp->ismultientitymanaged)) {
                $tmparray = explode('@', $objecttmp->ismultientitymanaged);
                $sql .= " INNER JOIN " . $this->db->prefix() . $tmparray[1] . " as parenttable ON parenttable.rowid = t." . $tmparray[0];
            }
            if ($objecttmp->ismultientitymanaged === 'fk_soc@societe') {
                if (!$user->hasRight('societe', 'client', 'voir')) {
                    $sql .= ", " . $this->db->prefix() . "societe_commerciaux as sc";
                }
            }
        }

        // Add where from hooks
        $parameters = array(
            'object' => $objecttmp,
            'htmlname' => $htmlname,
            'filter' => $filter,
            'searchkey' => $searchkey
        );

        $reshook = $hookmanager->executeHooks('selectForFormsListWhere', $parameters); // Note that $action and $object may have been modified by hook
        if (!empty($hookmanager->resPrint)) {
            $sql .= $hookmanager->resPrint;
        } else {
            $sql .= " WHERE 1=1";
            if (isset($objecttmp->ismultientitymanaged)) {
                if ($objecttmp->ismultientitymanaged == 1) {
                    $sql .= " AND t.entity IN (" . getEntity($objecttmp->table_element) . ")";
                }
                if (!is_numeric($objecttmp->ismultientitymanaged)) {
                    $sql .= " AND parenttable.entity = t." . $tmparray[0];
                }
                if ($objecttmp->ismultientitymanaged == 1 && !empty($user->socid)) {
                    if ($objecttmp->element == 'societe') {
                        $sql .= " AND t.rowid = " . ((int)$user->socid);
                    } else {
                        $sql .= " AND t.fk_soc = " . ((int)$user->socid);
                    }
                }
                if ($objecttmp->ismultientitymanaged === 'fk_soc@societe') {
                    if (!$user->hasRight('societe', 'client', 'voir')) {
                        $sql .= " AND t.rowid = sc.fk_soc AND sc.fk_user = " . ((int)$user->id);
                    }
                }
            }
            if ($searchkey != '') {
                $sql .= natural_search(explode(',', $fieldstoshow), $searchkey);
            }

            if ($filter) {     // Syntax example "(t.ref:like:'SO-%') and (t.date_creation:<:'20160101')"
                $errormessage = '';
                $sql .= forgeSQLFromUniversalSearchCriteria($filter, $errormessage);
                if ($errormessage) {
                    return 'Error forging a SQL request from an universal criteria: ' . $errormessage;
                }
            }
        }
        $sql .= $this->db->order($sortfield ? $sortfield : $fieldstoshow, "ASC");
        //$sql.=$this->db->plimit($limit, 0);
        //print $sql;

        // Build output string
        $resql = $this->db->query($sql);
        if ($resql) {
            // Construct $out and $outarray
            $out .= '<select id="' . $htmlname . '" class="flat minwidth100' . ($morecss ? ' ' . $morecss : '') . '"' . ($disabled ? ' disabled="disabled"' : '') . ($moreparams ? ' ' . $moreparams : '') . ' name="' . $htmlname . '">' . "\n";

            // Warning: Do not use textifempty = ' ' or '&nbsp;' here, or search on key will search on ' key'. Seems it is no more true with selec2 v4
            $textifempty = '&nbsp;';

            //if (!empty($conf->use_javascript_ajax) || $forcecombo) $textifempty='';
            if (getDolGlobalInt($confkeyforautocompletemode)) {
                if ($showempty && !is_numeric($showempty)) {
                    $textifempty = $langs->trans($showempty);
                } else {
                    $textifempty .= $langs->trans("All");
                }
            }
            if ($showempty) {
                $out .= '<option value="-1">' . $textifempty . '</option>' . "\n";
            }

            $num = $this->db->num_rows($resql);
            $i = 0;
            if ($num) {
                while ($i < $num) {
                    $obj = $this->db->fetch_object($resql);
                    $label = '';
                    $labelhtml = '';
                    $tmparray = explode(',', $fieldstoshow);
                    $oldvalueforshowoncombobox = 0;
                    foreach ($tmparray as $key => $val) {
                        $val = preg_replace('/t\./', '', $val);
                        $label .= (($label && $obj->$val) ? ($oldvalueforshowoncombobox != $objecttmp->fields[$val]['showoncombobox'] ? ' - ' : ' ') : '');
                        $labelhtml .= (($label && $obj->$val) ? ($oldvalueforshowoncombobox != $objecttmp->fields[$val]['showoncombobox'] ? ' - ' : ' ') : '');
                        $label .= $obj->$val;
                        $labelhtml .= $obj->$val;

                        $oldvalueforshowoncombobox = empty($objecttmp->fields[$val]['showoncombobox']) ? 0 : $objecttmp->fields[$val]['showoncombobox'];
                    }
                    if (empty($outputmode)) {
                        if ($preselectedvalue > 0 && $preselectedvalue == $obj->rowid) {
                            $out .= '<option value="' . $obj->rowid . '" selected data-html="' . dol_escape_htmltag($labelhtml, 0, 0, '', 0, 1) . '">' . dol_escape_htmltag($label, 0, 0, '', 0, 1) . '</option>';
                        } else {
                            $out .= '<option value="' . $obj->rowid . '" data-html="' . dol_escape_htmltag($labelhtml, 0, 0, '', 0, 1) . '">' . dol_escape_htmltag($label, 0, 0, '', 0, 1) . '</option>';
                        }
                    } else {
                        array_push($outarray, array('key' => $obj->rowid, 'value' => $label, 'label' => $label));
                    }

                    $i++;
                    if (($i % 10) == 0) {
                        $out .= "\n";
                    }
                }
            }

            $out .= '</select>' . "\n";

            if (!$forcecombo) {
                include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
                $out .= ajax_combobox($htmlname, array(), getDolGlobalInt($confkeyforautocompletemode, 0));
            }
        } else {
            dol_print_error($this->db);
        }

        $this->result = array('nbofelement' => $num);

        if ($outputmode) {
            return $outarray;
        }
        return $out;
    }

    /**
     * Render list of categories linked to object with id $id and type $type
     *
     * @param int $id Id of object
     * @param string $type Type of category ('member', 'customer', 'supplier', 'product', 'contact'). Old mode (0, 1, 2, ...) is deprecated.
     * @param int<0,1> $rendermode 0=Default, use multiselect. 1=Emulate multiselect (recommended)
     * @param int<0,1> $nolink 1=Do not add html links
     * @return string               String with categories
     */
    public function showCategories($id, $type, $rendermode = 0, $nolink = 0)
    {
        $cat = new Categorie($this->db);
        $categories = $cat->containing($id, $type);

        if ($rendermode == 1) {
            $toprint = array();
            foreach ($categories as $c) {
                $ways = $c->print_all_ways(' &gt;&gt; ', ($nolink ? 'none' : ''), 0, 1); // $ways[0] = "ccc2 >> ccc2a >> ccc2a1" with html formatted text
                foreach ($ways as $way) {
                    $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories"' . ($c->color ? ' style="background: #' . $c->color . ';"' : ' style="background: #bbb"') . '>' . $way . '</li>';
                }
            }
            return '<div class="select2-container-multi-dolibarr"><ul class="select2-choices-dolibarr">' . implode(' ', $toprint) . '</ul></div>';
        }

        if ($rendermode == 0) {
            $arrayselected = array();
            $cate_arbo = $this->select_all_categories($type, '', 'parent', 64, 0, 3);
            foreach ($categories as $c) {
                $arrayselected[] = $c->id;
            }

            return $this->multiselectarray('categories', $cate_arbo, $arrayselected, 0, 0, '', 0, '100%', 'disabled', 'category');
        }

        return 'ErrorBadValueForParameterRenderMode'; // Should not happened
    }

    /**
     * Return list of categories having chosen type
     *
     * @param string|int $type Type of category ('customer', 'supplier', 'contact', 'product', 'member'). Old mode (0, 1, 2, ...) is deprecated.
     * @param string $selected Id of category preselected or 'auto' (autoselect category if there is only one element). Not used if $outputmode = 1.
     * @param string $htmlname HTML field name
     * @param int $maxlength Maximum length for labels
     * @param int|string|array $fromid Keep only or Exclude (depending on $include parameter) all categories (including the leaf $fromid) into the tree after this id $fromid.
     *                                              $fromid can be an :
     *                                              - int (id of category)
     *                                              - string (categories ids separated by comma)
     *                                              - array (list of categories ids)
     * @param int<0,3> $outputmode 0=HTML select string, 1=Array with full label only, 2=Array extended, 3=Array with full picto + label
     * @param int<0,1> $include [=0] Removed or 1=Keep only
     * @param string $morecss More CSS
     * @param int<0,2> $useempty 0=No empty value, 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries. Default is 1.
     * @return  string|array<int,string>|array<int,array{id:int,fulllabel:string,color:string,picto:string}>|array<int,array{rowid:int,id:int,fk_parent:int,label:string,description:string,color:string,position:string,visible:int,ref_ext:string,picto:string,fullpath:string,fulllabel:string}>     String list or Array of categories
     * @see select_categories()
     */
    public function select_all_categories($type, $selected = '', $htmlname = "parent", $maxlength = 64, $fromid = 0, $outputmode = 0, $include = 0, $morecss = '', $useempty = 1)
    {
        // phpcs:enable
        global $conf, $langs;
        $langs->load("categories");

        // For backward compatibility
        if (is_numeric($type)) {
            dol_syslog(__METHOD__ . ': using numeric value for parameter type is deprecated. Use string code instead.', LOG_WARNING);
        }

        if ($type === Categorie::TYPE_BANK_LINE) {
            // TODO Move this into common category feature
            $cate_arbo = array();
            $sql = "SELECT c.label, c.rowid";
            $sql .= " FROM " . $this->db->prefix() . "bank_categ as c";
            $sql .= " WHERE entity = " . $conf->entity;
            $sql .= " ORDER BY c.label";
            $result = $this->db->query($sql);
            if ($result) {
                $num = $this->db->num_rows($result);
                $i = 0;
                while ($i < $num) {
                    $objp = $this->db->fetch_object($result);
                    if ($objp) {
                        $cate_arbo[$objp->rowid] = array('id' => $objp->rowid, 'fulllabel' => $objp->label, 'color' => '', 'picto' => 'category');
                    }
                    $i++;
                }
                $this->db->free($result);
            } else {
                dol_print_error($this->db);
            }
        } else {
            $cat = new Categorie($this->db);
            $cate_arbo = $cat->get_full_arbo($type, $fromid, $include);
        }

        $outarray = array();
        $outarrayrichhtml = array();


        $output = '<select class="flat minwidth100' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '" id="' . $htmlname . '">';
        if (is_array($cate_arbo)) {
            $num = count($cate_arbo);

            if (!$num) {
                $output .= '<option value="-1" disabled>' . $langs->trans("NoCategoriesDefined") . '</option>';
            } else {
                if ($useempty == 1 || ($useempty == 2 && $num > 1)) {
                    $output .= '<option value="-1">&nbsp;</option>';
                }
                foreach ($cate_arbo as $key => $value) {
                    if ($cate_arbo[$key]['id'] == $selected || ($selected === 'auto' && count($cate_arbo) == 1)) {
                        $add = 'selected ';
                    } else {
                        $add = '';
                    }

                    $labeltoshow = img_picto('', 'category', 'class="pictofixedwidth" style="color: #' . $cate_arbo[$key]['color'] . '"');
                    $labeltoshow .= dol_trunc($cate_arbo[$key]['fulllabel'], $maxlength, 'middle');

                    $outarray[$cate_arbo[$key]['id']] = $cate_arbo[$key]['fulllabel'];

                    $outarrayrichhtml[$cate_arbo[$key]['id']] = $labeltoshow;

                    $output .= '<option ' . $add . 'value="' . $cate_arbo[$key]['id'] . '"';
                    $output .= ' data-html="' . dol_escape_htmltag($labeltoshow) . '"';
                    $output .= '>';
                    $output .= dol_trunc($cate_arbo[$key]['fulllabel'], $maxlength, 'middle');
                    $output .= '</option>';

                    $cate_arbo[$key]['data-html'] = $labeltoshow;
                }
            }
        }
        $output .= '</select>';
        $output .= "\n";

        if ($outputmode == 2) {
            // TODO: handle error when $cate_arbo is not an array
            return $cate_arbo;
        } elseif ($outputmode == 1) {
            return $outarray;
        } elseif ($outputmode == 3) {
            return $outarrayrichhtml;
        }
        return $output;
    }

    /**
     *  Show linked object block.
     *
     * @param CommonObject $object Object we want to show links to
     * @param string $morehtmlright More html to show on right of title
     * @param array<int,string> $compatibleImportElementsList Array of compatibles elements object for "import from" action
     * @param string $title Title
     * @return  int                                             Return Number of different types
     */
    public function showLinkedObjectBlock($object, $morehtmlright = '', $compatibleImportElementsList = array(), $title = 'RelatedObjects')
    {
        global $conf, $langs, $hookmanager;
        global $bc, $action;

        $object->fetchObjectLinked();

        // Bypass the default method
        $hookmanager->initHooks(array('commonobject'));
        $parameters = array(
            'morehtmlright' => $morehtmlright,
            'compatibleImportElementsList' => &$compatibleImportElementsList,
        );
        $reshook = $hookmanager->executeHooks('showLinkedObjectBlock', $parameters, $object, $action); // Note that $action and $object may have been modified by hook

        $nbofdifferenttypes = count($object->linkedObjects);

        if (empty($reshook)) {
            print '<!-- showLinkedObjectBlock -->';
            print load_fiche_titre($langs->trans($title), $morehtmlright, '', 0, 0, 'showlinkedobjectblock');


            print '<div class="div-table-responsive-no-min">';
            print '<table class="noborder allwidth" data-block="showLinkedObject" data-element="' . $object->element . '"  data-elementid="' . $object->id . '"   >';

            print '<tr class="liste_titre">';
            print '<td>' . $langs->trans("Type") . '</td>';
            print '<td>' . $langs->trans("Ref") . '</td>';
            print '<td class="center"></td>';
            print '<td class="center">' . $langs->trans("Date") . '</td>';
            print '<td class="right">' . $langs->trans("AmountHTShort") . '</td>';
            print '<td class="right">' . $langs->trans("Status") . '</td>';
            print '<td></td>';
            print '</tr>';

            $nboftypesoutput = 0;

            foreach ($object->linkedObjects as $objecttype => $objects) {
                $tplpath = $element = $subelement = $objecttype;

                // to display import button on tpl
                $showImportButton = false;
                if (!empty($compatibleImportElementsList) && in_array($element, $compatibleImportElementsList)) {
                    $showImportButton = true;
                }

                $regs = array();
                if ($objecttype != 'supplier_proposal' && preg_match('/^([^_]+)_([^_]+)/i', $objecttype, $regs)) {
                    $element = $regs[1];
                    $subelement = $regs[2];
                    $tplpath = $element . '/' . $subelement;
                }
                $tplname = 'linkedobjectblock';

                // To work with non standard path
                if ($objecttype == 'facture') {
                    $tplpath = 'compta/' . $element;
                    if (!isModEnabled('invoice')) {
                        continue; // Do not show if module disabled
                    }
                } elseif ($objecttype == 'facturerec') {
                    $tplpath = 'compta/facture';
                    $tplname = 'linkedobjectblockForRec';
                    if (!isModEnabled('invoice')) {
                        continue; // Do not show if module disabled
                    }
                } elseif ($objecttype == 'propal') {
                    $tplpath = 'comm/' . $element;
                    if (!isModEnabled('propal')) {
                        continue; // Do not show if module disabled
                    }
                } elseif ($objecttype == 'supplier_proposal') {
                    if (!isModEnabled('supplier_proposal')) {
                        continue; // Do not show if module disabled
                    }
                } elseif ($objecttype == 'shipping' || $objecttype == 'shipment' || $objecttype == 'expedition') {
                    $tplpath = 'expedition';
                    if (!isModEnabled('shipping')) {
                        continue; // Do not show if module disabled
                    }
                } elseif ($objecttype == 'reception') {
                    $tplpath = 'reception';
                    if (!isModEnabled('reception')) {
                        continue; // Do not show if module disabled
                    }
                } elseif ($objecttype == 'delivery') {
                    $tplpath = 'delivery';
                    if (!getDolGlobalInt('MAIN_SUBMODULE_DELIVERY')) {
                        continue; // Do not show if sub module disabled
                    }
                } elseif ($objecttype == 'ficheinter') {
                    $tplpath = 'fichinter';
                    if (!isModEnabled('intervention')) {
                        continue; // Do not show if module disabled
                    }
                } elseif ($objecttype == 'invoice_supplier') {
                    $tplpath = 'fourn/facture';
                } elseif ($objecttype == 'order_supplier') {
                    $tplpath = 'fourn/commande';
                } elseif ($objecttype == 'expensereport') {
                    $tplpath = 'expensereport';
                } elseif ($objecttype == 'subscription') {
                    $tplpath = 'adherents';
                } elseif ($objecttype == 'conferenceorbooth') {
                    $tplpath = 'eventorganization';
                } elseif ($objecttype == 'conferenceorboothattendee') {
                    $tplpath = 'eventorganization';
                } elseif ($objecttype == 'mo') {
                    $tplpath = 'mrp';
                    if (!isModEnabled('mrp')) {
                        continue; // Do not show if module disabled
                    }
                }

                global $linkedObjectBlock;
                $linkedObjectBlock = $objects;

                // Output template part (modules that overwrite templates must declare this into descriptor)
                $dirtpls = array_merge($conf->modules_parts['tpl'], array('/' . $tplpath . '/tpl'));
                foreach ($dirtpls as $reldir) {
                    $reldir = rtrim($reldir, '/');
                    if ($nboftypesoutput == ($nbofdifferenttypes - 1)) {    // No more type to show after
                        global $noMoreLinkedObjectBlockAfter;
                        $noMoreLinkedObjectBlockAfter = 1;
                    }

                    $res = @include dol_buildpath($reldir . '/' . $tplname . '.tpl.php');
                    if ($res) {
                        $nboftypesoutput++;
                        break;
                    }
                }
            }

            if (!$nboftypesoutput) {
                print '<tr><td class="impair" colspan="7"><span class="opacitymedium">' . $langs->trans("None") . '</span></td></tr>';
            }

            print '</table>';

            if (!empty($compatibleImportElementsList)) {
                $res = @include dol_buildpath('core/tpl/objectlinked_lineimport.tpl.php');
            }

            print '</div>';
        }

        return $nbofdifferenttypes;
    }

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

    /**
     *  Show block with links to link to other objects.
     *
     * @param CommonObject $object Object we want to show links to
     * @param string[] $restrictlinksto Restrict links to some elements, for example array('order') or array('supplier_order'). null or array() if no restriction.
     * @param string[] $excludelinksto Do not show links of this type, for example array('order') or array('supplier_order'). null or array() if no exclusion.
     * @return  string                              HTML block
     */
    public function showLinkToObjectBlock($object, $restrictlinksto = array(), $excludelinksto = array())
    {
        global $conf, $langs, $hookmanager;
        global $action;

        $linktoelem = '';
        $linktoelemlist = '';
        $listofidcompanytoscan = '';

        if (!is_object($object->thirdparty)) {
            $object->fetch_thirdparty();
        }

        $possiblelinks = array();
        if (is_object($object->thirdparty) && !empty($object->thirdparty->id) && $object->thirdparty->id > 0) {
            $listofidcompanytoscan = $object->thirdparty->id;
            if (($object->thirdparty->parent > 0) && getDolGlobalString('THIRDPARTY_INCLUDE_PARENT_IN_LINKTO')) {
                $listofidcompanytoscan .= ',' . $object->thirdparty->parent;
            }
            if (($object->fk_project > 0) && getDolGlobalString('THIRDPARTY_INCLUDE_PROJECT_THIRDPARY_IN_LINKTO')) {
                $tmpproject = new Project($this->db);
                $tmpproject->fetch($object->fk_project);
                if ($tmpproject->socid > 0 && ($tmpproject->socid != $object->thirdparty->id)) {
                    $listofidcompanytoscan .= ',' . $tmpproject->socid;
                }
                unset($tmpproject);
            }

            $possiblelinks = array(
                'propal' => array(
                    'enabled' => isModEnabled('propal'),
                    'perms' => 1,
                    'label' => 'LinkToProposal',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.ref_client, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "propal as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('propal') . ')'),
                'shipping' => array(
                    'enabled' => isModEnabled('shipping'),
                    'perms' => 1,
                    'label' => 'LinkToExpedition',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "expedition as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('shipping') . ')'),
                'order' => array(
                    'enabled' => isModEnabled('order'),
                    'perms' => 1,
                    'label' => 'LinkToOrder',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.ref_client, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "commande as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('commande') . ')'),
                'invoice' => array(
                    'enabled' => isModEnabled('invoice'),
                    'perms' => 1,
                    'label' => 'LinkToInvoice',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.ref_client, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "facture as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('invoice') . ')'),
                'invoice_template' => array(
                    'enabled' => isModEnabled('invoice'),
                    'perms' => 1,
                    'label' => 'LinkToTemplateInvoice',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.titre as ref, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "facture_rec as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('invoice') . ')'),
                'contrat' => array(
                    'enabled' => isModEnabled('contract'),
                    'perms' => 1,
                    'label' => 'LinkToContract',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.ref_customer as ref_client, t.ref_supplier, SUM(td.total_ht) as total_ht
							FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "contrat as t, " . $this->db->prefix() . "contratdet as td WHERE t.fk_soc = s.rowid AND td.fk_contrat = t.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('contract') . ') GROUP BY s.rowid, s.nom, s.client, t.rowid, t.ref, t.ref_customer, t.ref_supplier'
                ),
                'fichinter' => array(
                    'enabled' => isModEnabled('intervention'),
                    'perms' => 1,
                    'label' => 'LinkToIntervention',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "fichinter as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('intervention') . ')'),
                'supplier_proposal' => array(
                    'enabled' => isModEnabled('supplier_proposal'),
                    'perms' => 1,
                    'label' => 'LinkToSupplierProposal',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, '' as ref_supplier, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "supplier_proposal as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('supplier_proposal') . ')'),
                'order_supplier' => array(
                    'enabled' => isModEnabled("supplier_order"),
                    'perms' => 1,
                    'label' => 'LinkToSupplierOrder',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.ref_supplier, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "commande_fournisseur as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('commande_fournisseur') . ')'),
                'invoice_supplier' => array(
                    'enabled' => isModEnabled("supplier_invoice"),
                    'perms' => 1, 'label' => 'LinkToSupplierInvoice',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.ref_supplier, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "facture_fourn as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('facture_fourn') . ')'),
                'ticket' => array(
                    'enabled' => isModEnabled('ticket'),
                    'perms' => 1,
                    'label' => 'LinkToTicket',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.track_id, '0' as total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . "ticket as t WHERE t.fk_soc = s.rowid AND t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('ticket') . ')'),
                'mo' => array(
                    'enabled' => isModEnabled('mrp'),
                    'perms' => 1,
                    'label' => 'LinkToMo',
                    'sql' => "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.rowid, '0' as total_ht FROM " . $this->db->prefix() . "societe as s INNER JOIN " . $this->db->prefix() . "mrp_mo as t ON t.fk_soc = s.rowid  WHERE  t.fk_soc IN (" . $this->db->sanitize($listofidcompanytoscan) . ') AND t.entity IN (' . getEntity('mo') . ')')
            );
        }

        if ($object->table_element == 'commande_fournisseur') {
            $possiblelinks['mo']['sql'] = "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.rowid, '0' as total_ht FROM " . $this->db->prefix() . "societe as s INNER JOIN " . $this->db->prefix() . 'mrp_mo as t ON t.fk_soc = s.rowid  WHERE t.entity IN (' . getEntity('mo') . ')';
        } elseif ($object->table_element == 'mrp_mo') {
            $possiblelinks['order_supplier']['sql'] = "SELECT s.rowid as socid, s.nom as name, s.client, t.rowid, t.ref, t.ref_supplier, t.total_ht FROM " . $this->db->prefix() . "societe as s, " . $this->db->prefix() . 'commande_fournisseur as t WHERE t.fk_soc = s.rowid AND t.entity IN (' . getEntity('commande_fournisseur') . ')';
        }

        $reshook = 0; // Ensure $reshook is defined for static analysis
        if (!empty($listofidcompanytoscan)) {  // If empty, we don't have criteria to scan the object we can link to
            // Can complete the possiblelink array
            $hookmanager->initHooks(array('commonobject'));
            $parameters = array('listofidcompanytoscan' => $listofidcompanytoscan, 'possiblelinks' => $possiblelinks);
            $reshook = $hookmanager->executeHooks('showLinkToObjectBlock', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
        }

        if (empty($reshook)) {
            if (is_array($hookmanager->resArray) && count($hookmanager->resArray)) {
                $possiblelinks = array_merge($possiblelinks, $hookmanager->resArray);
            }
        } elseif ($reshook > 0) {
            if (is_array($hookmanager->resArray) && count($hookmanager->resArray)) {
                $possiblelinks = $hookmanager->resArray;
            }
        }

        foreach ($possiblelinks as $key => $possiblelink) {
            $num = 0;

            if (empty($possiblelink['enabled'])) {
                continue;
            }

            if (!empty($possiblelink['perms']) && (empty($restrictlinksto) || in_array($key, $restrictlinksto)) && (empty($excludelinksto) || !in_array($key, $excludelinksto))) {
                print '<div id="' . $key . 'list"' . (empty($conf->use_javascript_ajax) ? '' : ' style="display:none"') . '>';

                if (getDolGlobalString('MAIN_LINK_BY_REF_IN_LINKTO')) {
                    print '<br>' . "\n";
                    print '<!-- form to add a link from anywhere -->' . "\n";
                    print '<form action="' . $_SERVER["PHP_SELF"] . '" method="POST" name="formlinkedbyref' . $key . '">';
                    print '<input type="hidden" name="id" value="' . $object->id . '">';
                    print '<input type="hidden" name="action" value="addlinkbyref">';
                    print '<input type="hidden" name="token" value="' . newToken() . '">';
                    print '<input type="hidden" name="addlink" value="' . $key . '">';
                    print '<table class="noborder">';
                    print '<tr>';
                    //print '<td>' . $langs->trans("Ref") . '</td>';
                    print '<td class="center"><input type="text" placeholder="' . dol_escape_htmltag($langs->trans("Ref")) . '" name="reftolinkto" value="' . dol_escape_htmltag(GETPOST('reftolinkto', 'alpha')) . '">&nbsp;';
                    print '<input type="submit" class="button small valignmiddle" value="' . $langs->trans('ToLink') . '">&nbsp;';
                    print '<input type="submit" class="button small" name="cancel" value="' . $langs->trans('Cancel') . '"></td>';
                    print '</tr>';
                    print '</table>';
                    print '</form>';
                }

                $sql = $possiblelink['sql'];

                $resqllist = $this->db->query($sql);
                if ($resqllist) {
                    $num = $this->db->num_rows($resqllist);
                    $i = 0;

                    print '<br>';
                    print '<!-- form to add a link from object to same thirdparty -->' . "\n";
                    print '<form action="' . $_SERVER["PHP_SELF"] . '" method="POST" name="formlinked' . $key . '">';
                    print '<input type="hidden" name="action" value="addlink">';
                    print '<input type="hidden" name="token" value="' . newToken() . '">';
                    print '<input type="hidden" name="id" value="' . $object->id . '">';
                    print '<input type="hidden" name="addlink" value="' . $key . '">';
                    print '<table class="noborder">';
                    print '<tr class="liste_titre">';
                    print '<td class="nowrap"></td>';
                    print '<td class="center">' . $langs->trans("Ref") . '</td>';
                    print '<td class="left">' . $langs->trans("RefCustomer") . '</td>';
                    print '<td class="right">' . $langs->trans("AmountHTShort") . '</td>';
                    print '<td class="left">' . $langs->trans("Company") . '</td>';
                    print '</tr>';
                    while ($i < $num) {
                        $objp = $this->db->fetch_object($resqllist);

                        print '<tr class="oddeven">';
                        print '<td class="left">';
                        print '<input type="radio" name="idtolinkto" id="' . $key . '_' . $objp->rowid . '" value="' . $objp->rowid . '">';
                        print '</td>';
                        print '<td class="center"><label for="' . $key . '_' . $objp->rowid . '">' . $objp->ref . '</label></td>';
                        print '<td>' . (!empty($objp->ref_client) ? $objp->ref_client : (!empty($objp->ref_supplier) ? $objp->ref_supplier : '')) . '</td>';
                        print '<td class="right">';
                        if ($possiblelink['label'] == 'LinkToContract') {
                            $form = new Form($this->db);
                            print $form->textwithpicto('', $langs->trans("InformationOnLinkToContract")) . ' ';
                        }
                        print '<span class="amount">' . (isset($objp->total_ht) ? price($objp->total_ht) : '') . '</span>';
                        print '</td>';
                        print '<td>' . $objp->name . '</td>';
                        print '</tr>';
                        $i++;
                    }
                    print '</table>';
                    print '<div class="center">';
                    if ($num) {
                        print '<input type="submit" class="button valignmiddle marginleftonly marginrightonly small" value="' . $langs->trans('ToLink') . '">';
                    }
                    if (empty($conf->use_javascript_ajax)) {
                        print '<input type="submit" class="button button-cancel marginleftonly marginrightonly small" name="cancel" value="' . $langs->trans("Cancel") . '"></div>';
                    } else {
                        print '<input type="submit" onclick="jQuery(\'#' . $key . 'list\').toggle(); return false;" class="button button-cancel marginleftonly marginrightonly small" name="cancel" value="' . $langs->trans("Cancel") . '"></div>';
                    }
                    print '</form>';
                    $this->db->free($resqllist);
                } else {
                    dol_print_error($this->db);
                }
                print '</div>';

                //$linktoelem.=($linktoelem?' &nbsp; ':'');
                if ($num > 0 || getDolGlobalString('MAIN_LINK_BY_REF_IN_LINKTO')) {
                    $linktoelemlist .= '<li><a href="#linkto' . $key . '" class="linkto dropdowncloseonclick" rel="' . $key . '">' . $langs->trans($possiblelink['label']) . ' (' . $num . ')</a></li>';
                    // } else $linktoelem.=$langs->trans($possiblelink['label']);
                } else {
                    $linktoelemlist .= '<li><span class="linktodisabled">' . $langs->trans($possiblelink['label']) . ' (0)</span></li>';
                }
            }
        }

        if ($linktoelemlist) {
            $linktoelem = '
    		<dl class="dropdown" id="linktoobjectname">
    		';
            if (!empty($conf->use_javascript_ajax)) {
                $linktoelem .= '<dt><a href="#linktoobjectname"><span class="fas fa-link paddingrightonly"></span>' . $langs->trans("LinkTo") . '...</a></dt>';
            }
            $linktoelem .= '<dd>
    		<div class="multiselectlinkto">
    		<ul class="ulselectedfields">' . $linktoelemlist . '
    		</ul>
    		</div>
    		</dd>
    		</dl>';
        } else {
            $linktoelem = '';
        }

        if (!empty($conf->use_javascript_ajax)) {
            print '<!-- Add js to show linkto box -->
				<script nonce="' . getNonce() . '">
				jQuery(document).ready(function() {
					jQuery(".linkto").click(function() {
						console.log("We choose to show/hide links for rel="+jQuery(this).attr(\'rel\')+" so #"+jQuery(this).attr(\'rel\')+"list");
					    jQuery("#"+jQuery(this).attr(\'rel\')+"list").toggle();
					});
				});
				</script>
		    ';
        }

        return $linktoelem;
    }

    /**
     *  Return list of export templates
     *
     * @param string $selected Id modele pre-selectionne
     * @param string $htmlname Name of HTML select
     * @param string $type Type of searched templates
     * @param int $useempty Affiche valeur vide dans liste
     * @return    void
     */
    public function select_export_model($selected = '', $htmlname = 'exportmodelid', $type = '', $useempty = 0)
    {
        // phpcs:enable
        $sql = "SELECT rowid, label";
        $sql .= " FROM " . $this->db->prefix() . "export_model";
        $sql .= " WHERE type = '" . $this->db->escape($type) . "'";
        $sql .= " ORDER BY rowid";
        $result = $this->db->query($sql);
        if ($result) {
            print '<select class="flat" id="select_' . $htmlname . '" name="' . $htmlname . '">';
            if ($useempty) {
                print '<option value="-1">&nbsp;</option>';
            }

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

    /**
     * Return a HTML area with the reference of object and a navigation bar for a business object
     * Note: To complete search with a particular filter on select, you can set $object->next_prev_filter set to define SQL criteria.
     *
     * @param CommonObject $object Object to show.
     * @param string $paramid Name of parameter to use to name the id into the URL next/previous link.
     * @param string $morehtml More html content to output just before the nav bar.
     * @param int<0,1> $shownav Show Condition (navigation is shown if value is 1).
     * @param string $fieldid Name of field id into database to use for select next and previous (we make the select max and min on this field compared to $object->ref). Use 'none' to disable next/prev.
     * @param string $fieldref Name of field ref of object (object->ref) to show or 'none' to not show ref.
     * @param string $morehtmlref More html to show after ref.
     * @param string $moreparam More param to add in nav link url. Must start with '&...'.
     * @param int<0,1> $nodbprefix Do not include DB prefix to forge table name.
     * @param string $morehtmlleft More html code to show before ref.
     * @param string $morehtmlstatus More html code to show under navigation arrows (status place).
     * @param string $morehtmlright More html code to show after ref.
     * @return string                   Portion HTML with ref + navigation buttons
     */
    public function showrefnav($object, $paramid, $morehtml = '', $shownav = 1, $fieldid = 'rowid', $fieldref = 'ref', $morehtmlref = '', $moreparam = '', $nodbprefix = 0, $morehtmlleft = '', $morehtmlstatus = '', $morehtmlright = '')
    {
        global $conf, $langs, $hookmanager, $extralanguages;

        $ret = '';
        if (empty($fieldid)) {
            $fieldid = 'rowid';
        }
        if (empty($fieldref)) {
            $fieldref = 'ref';
        }

        // Preparing gender's display if there is one
        $addgendertxt = '';
        if (property_exists($object, 'gender') && !empty($object->gender)) {

            $addgendertxt = ' ';
            switch ($object->gender) {
                case 'man':
                    $addgendertxt .= '<i class="fas fa-mars"></i>';
                    break;
                case 'woman':
                    $addgendertxt .= '<i class="fas fa-venus"></i>';
                    break;
                case 'other':
                    $addgendertxt .= '<i class="fas fa-transgender"></i>';
                    break;
            }
        }

        // Add where from hooks
        if (is_object($hookmanager)) {
            $parameters = array('showrefnav' => true);
            $reshook = $hookmanager->executeHooks('printFieldListWhere', $parameters, $object); // Note that $action and $object may have been modified by hook
            $object->next_prev_filter .= $hookmanager->resPrint;
        }

        $previous_ref = $next_ref = '';
        if ($shownav) {
            //print "paramid=$paramid,morehtml=$morehtml,shownav=$shownav,$fieldid,$fieldref,$morehtmlref,$moreparam";
            $object->load_previous_next_ref((isset($object->next_prev_filter) ? $object->next_prev_filter : ''), $fieldid, $nodbprefix);

            $navurl = $_SERVER["PHP_SELF"];
            // Special case for project/task page
            if ($paramid == 'project_ref') {
                if (preg_match('/\/tasks\/(task|contact|note|document)\.php/', $navurl)) {     // TODO Remove this when nav with project_ref on task pages are ok
                    $navurl = preg_replace('/\/tasks\/(task|contact|time|note|document)\.php/', '/tasks.php', $navurl);
                    $paramid = 'ref';
                }
            }

            // accesskey is for Windows or Linux:  ALT + key for chrome, ALT + SHIFT + KEY for firefox
            // accesskey is for Mac:               CTRL + key for all browsers
            $stringforfirstkey = $langs->trans("KeyboardShortcut");
            if ($conf->browser->name == 'chrome') {
                $stringforfirstkey .= ' ALT +';
            } elseif ($conf->browser->name == 'firefox') {
                $stringforfirstkey .= ' ALT + SHIFT +';
            } else {
                $stringforfirstkey .= ' CTL +';
            }

            $previous_ref = $object->ref_previous ? '<a accesskey="p" alt="' . dol_escape_htmltag($langs->trans("Previous")) . '" title="' . $stringforfirstkey . ' p" class="classfortooltip" href="' . $navurl . '?' . $paramid . '=' . urlencode($object->ref_previous) . $moreparam . '"><i class="fa fa-chevron-left"></i></a>' : '<span class="inactive"><i class="fa fa-chevron-left opacitymedium"></i></span>';
            $next_ref = $object->ref_next ? '<a accesskey="n" alt="' . dol_escape_htmltag($langs->trans("Next")) . '" title="' . $stringforfirstkey . ' n" class="classfortooltip" href="' . $navurl . '?' . $paramid . '=' . urlencode($object->ref_next) . $moreparam . '"><i class="fa fa-chevron-right"></i></a>' : '<span class="inactive"><i class="fa fa-chevron-right opacitymedium"></i></span>';
        }

        //print "xx".$previous_ref."x".$next_ref;
        $ret .= '<!-- Start banner content --><div style="vertical-align: middle">';

        // Right part of banner
        if ($morehtmlright) {
            $ret .= '<div class="inline-block floatleft">' . $morehtmlright . '</div>';
        }

        if ($previous_ref || $next_ref || $morehtml) {
            $ret .= '<div class="pagination paginationref"><ul class="right">';
        }
        if ($morehtml && getDolGlobalInt('MAIN_OPTIMIZEFORTEXTBROWSER') < 2) {
            $ret .= '<!-- morehtml --><li class="noborder litext' . (($shownav && $previous_ref && $next_ref) ? ' clearbothonsmartphone' : '') . '">' . $morehtml . '</li>';
        }
        if ($shownav && ($previous_ref || $next_ref)) {
            $ret .= '<li class="pagination">' . $previous_ref . '</li>';
            $ret .= '<li class="pagination">' . $next_ref . '</li>';
        }
        if ($previous_ref || $next_ref || $morehtml) {
            $ret .= '</ul></div>';
        }

        // Status
        $parameters = array('morehtmlstatus' => $morehtmlstatus);
        $reshook = $hookmanager->executeHooks('moreHtmlStatus', $parameters, $object); // Note that $action and $object may have been modified by hook
        if (empty($reshook)) {
            $morehtmlstatus .= $hookmanager->resPrint;
        } else {
            $morehtmlstatus = $hookmanager->resPrint;
        }
        if ($morehtmlstatus) {
            $ret .= '<div class="statusref">' . $morehtmlstatus . '</div>';
        }

        $parameters = array();
        $reshook = $hookmanager->executeHooks('moreHtmlRef', $parameters, $object); // Note that $action and $object may have been modified by hook
        if (empty($reshook)) {
            $morehtmlref .= $hookmanager->resPrint;
        } elseif ($reshook > 0) {
            $morehtmlref = $hookmanager->resPrint;
        }

        // Left part of banner
        if ($morehtmlleft) {
            if ($conf->browser->layout == 'phone') {
                $ret .= '<!-- morehtmlleft --><div class="floatleft">' . $morehtmlleft . '</div>';
            } else {
                $ret .= '<!-- morehtmlleft --><div class="inline-block floatleft">' . $morehtmlleft . '</div>';
            }
        }

        //if ($conf->browser->layout == 'phone') $ret.='<div class="clearboth"></div>';
        $ret .= '<div class="inline-block floatleft valignmiddle maxwidth750 marginbottomonly refid' . (($shownav && ($previous_ref || $next_ref)) ? ' refidpadding' : '') . '">';

        // For thirdparty, contact, user, member, the ref is the id, so we show something else
        if ($object->element == 'societe') {
            $ret .= dol_htmlentities($object->name);

            // List of extra languages
            $arrayoflangcode = array();
            if (getDolGlobalString('PDF_USE_ALSO_LANGUAGE_CODE')) {
                $arrayoflangcode[] = getDolGlobalString('PDF_USE_ALSO_LANGUAGE_CODE');
            }

            if (is_array($arrayoflangcode) && count($arrayoflangcode)) {
                if (!is_object($extralanguages)) {
                    include_once DOL_DOCUMENT_ROOT . '/core/class/extralanguages.class.php';
                    $extralanguages = new ExtraLanguages($this->db);
                }
                $extralanguages->fetch_name_extralanguages('societe');

                if (!empty($extralanguages->attributes['societe']['name'])) {
                    $object->fetchValuesForExtraLanguages();

                    $htmltext = '';
                    // If there is extra languages
                    foreach ($arrayoflangcode as $extralangcode) {
                        $htmltext .= picto_from_langcode($extralangcode, 'class="pictoforlang paddingright"');
                        if ($object->array_languages['name'][$extralangcode]) {
                            $htmltext .= $object->array_languages['name'][$extralangcode];
                        } else {
                            $htmltext .= '<span class="opacitymedium">' . $langs->trans("SwitchInEditModeToAddTranslation") . '</span>';
                        }
                    }
                    $ret .= '<!-- Show translations of name -->' . "\n";
                    $ret .= $this->textwithpicto('', $htmltext, -1, 'language', 'opacitymedium paddingleft');
                }
            }
        } elseif ($object->element == 'member') {
            '@phan-var-force Adherent $object';
            $ret .= $object->ref . '<br>';
            $fullname = $object->getFullName($langs);
            $fullname = $object->getFullName($langs);
            if ($object->morphy == 'mor' && $object->societe) {

                $ret .= dol_htmlentities($object->societe) . ((!empty($fullname) && $object->societe != $fullname) ? ' (' . dol_htmlentities($fullname) . $addgendertxt . ')' : '');
            } else {
                $ret .= dol_htmlentities($fullname) . $addgendertxt . ((!empty($object->societe) && $object->societe != $fullname) ? ' (' . dol_htmlentities($object->societe) . ')' : '');
            }
        } elseif (in_array($object->element, array('contact', 'user'))) {
            $ret .= dol_htmlentities($object->getFullName($langs)) . $addgendertxt;
        } elseif ($object->element == 'usergroup') {
            $ret .= dol_htmlentities($object->name);
        } elseif (in_array($object->element, array('action', 'agenda'))) {
            '@phan-var-force ActionComm $object';
            $ret .= $object->ref . '<br>' . $object->label;
        } elseif (in_array($object->element, array('adherent_type'))) {
            $ret .= $object->label;
        } elseif ($object->element == 'ecm_directories') {
            $ret .= '';
        } elseif ($fieldref != 'none') {
            $ret .= dol_htmlentities(!empty($object->$fieldref) ? $object->$fieldref : "");
        }
        if ($morehtmlref) {
            // don't add a additional space, when "$morehtmlref" starts with a HTML div tag
            if (substr($morehtmlref, 0, 4) != '<div') {
                $ret .= ' ';
            }

            $ret .= $morehtmlref;
        }

        $ret .= '</div>';

        $ret .= '</div><!-- End banner content -->';

        return $ret;
    }

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

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

            return '';
        }

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

        // Barcode image  @phan-suppress-next-line PhanUndeclaredProperty
        $url = constant('BASE_URL') . '/viewimage.php?modulepart=barcode&generator=' . urlencode($object->barcode_type_coder) . '&code=' . urlencode($object->barcode) . '&encoding=' . urlencode($object->barcode_type_code);
        $out = '<!-- url barcode = ' . $url . ' -->';
        $out .= '<img src="' . $url . '"' . ($morecss ? ' class="' . $morecss . '"' : '') . '>';

        return $out;
    }

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

    /**
     * Return select list of groups
     *
     * @param int|object|object[] $selected Id group or group(s) preselected
     * @param string $htmlname Field name in form
     * @param int<0,1> $show_empty 0=liste sans valeur nulle, 1=ajoute valeur inconnue
     * @param string|int[] $exclude Array list of groups id to exclude
     * @param int<0,1> $disabled If select list must be disabled
     * @param string|int[] $include Array list of groups id to include
     * @param int[] $enableonly Array list of groups id to be enabled. All other must be disabled
     * @param string $force_entity '0' or Ids of environment to force
     * @param bool $multiple add [] in the name of element and add 'multiple' attribute (not working with ajax_autocompleter)
     * @param string $morecss More css to add to html component
     * @return  string                              HTML Componont to select a group
     * @see select_dolusers()
     */
    public function select_dolgroups($selected = 0, $htmlname = 'groupid', $show_empty = 0, $exclude = '', $disabled = 0, $include = '', $enableonly = array(), $force_entity = '0', $multiple = false, $morecss = 'minwidth200')
    {
        // phpcs:enable
        global $conf, $user, $langs;

        // Allow excluding groups
        $excludeGroups = null;
        if (is_array($exclude)) {
            $excludeGroups = implode(",", $exclude);
        }
        // Allow including groups
        $includeGroups = null;
        if (is_array($include)) {
            $includeGroups = implode(",", $include);
        }

        if (!is_array($selected)) {
            $selected = array($selected);
        }

        $out = '';

        // Build sql to search groups
        $sql = "SELECT ug.rowid, ug.nom as name";
        if (isModEnabled('multicompany') && $conf->entity == 1 && $user->admin && !$user->entity) {
            $sql .= ", e.label";
        }
        $sql .= " FROM " . $this->db->prefix() . "usergroup as ug ";
        if (isModEnabled('multicompany') && $conf->entity == 1 && $user->admin && !$user->entity) {
            $sql .= " LEFT JOIN " . $this->db->prefix() . "entity as e ON e.rowid=ug.entity";
            if ($force_entity) {
                $sql .= " WHERE ug.entity IN (0, " . $force_entity . ")";
            } else {
                $sql .= " WHERE ug.entity IS NOT NULL";
            }
        } else {
            $sql .= " WHERE ug.entity IN (0, " . $conf->entity . ")";
        }
        if (is_array($exclude) && $excludeGroups) {
            $sql .= " AND ug.rowid NOT IN (" . $this->db->sanitize($excludeGroups) . ")";
        }
        if (is_array($include) && $includeGroups) {
            $sql .= " AND ug.rowid IN (" . $this->db->sanitize($includeGroups) . ")";
        }
        $sql .= " ORDER BY ug.nom ASC";

        dol_syslog(get_only_class($this) . "::select_dolgroups", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql) {
            // Enhance with select2
            include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';

            $out .= '<select class="flat' . ($morecss ? ' ' . $morecss : '') . '" id="' . $htmlname . '" name="' . $htmlname . ($multiple ? '[]' : '') . '" ' . ($multiple ? 'multiple' : '') . ' ' . ($disabled ? ' disabled' : '') . '>';

            $num = $this->db->num_rows($resql);
            $i = 0;
            if ($num) {
                if ($show_empty && !$multiple) {
                    $out .= '<option value="-1"' . (in_array(-1, $selected) ? ' selected' : '') . '>&nbsp;</option>' . "\n";
                }

                while ($i < $num) {
                    $obj = $this->db->fetch_object($resql);
                    $disableline = 0;
                    if (is_array($enableonly) && count($enableonly) && !in_array($obj->rowid, $enableonly)) {
                        $disableline = 1;
                    }

                    $label = $obj->name;
                    $labelhtml = $obj->name;
                    if (isModEnabled('multicompany') && !getDolGlobalInt('MULTICOMPANY_TRANSVERSE_MODE') && $conf->entity == 1) {
                        $label .= " (" . $obj->label . ")";
                        $labelhtml .= ' <span class="opacitymedium">(' . $obj->label . ')</span>';
                    }

                    $out .= '<option value="' . $obj->rowid . '"';
                    if ($disableline) {
                        $out .= ' disabled';
                    }
                    if (
                        (isset($selected[0]) && is_object($selected[0]) && $selected[0]->id == $obj->rowid)
                        || ((!isset($selected[0]) || !is_object($selected[0])) && !empty($selected) && in_array($obj->rowid, $selected))
                    ) {
                        $out .= ' selected';
                    }
                    $out .= ' data-html="' . dol_escape_htmltag($labelhtml) . '"';
                    $out .= '>';
                    $out .= $label;
                    $out .= '</option>';
                    $i++;
                }
            } else {
                if ($show_empty) {
                    $out .= '<option value="-1"' . (in_array(-1, $selected) ? ' selected' : '') . '></option>' . "\n";
                }
                $out .= '<option value="" disabled>' . $langs->trans("NoUserGroupDefined") . '</option>';
            }
            $out .= '</select>';

            $out .= ajax_combobox($htmlname);
        } else {
            dol_print_error($this->db);
        }

        return $out;
    }

    /**
     *    Return HTML to show the search and clear search button
     *
     * @param int $addcheckuncheckall Add the check all/uncheck all checkbox (use javascript) and code to manage this
     * @param string $cssclass CSS class
     * @param int $calljsfunction 0=default. 1=call function initCheckForSelect() after changing status of checkboxes
     * @param string $massactionname Mass action name
     * @return    string
     */
    public function showFilterAndCheckAddButtons($addcheckuncheckall = 0, $cssclass = 'checkforaction', $calljsfunction = 0, $massactionname = "massaction")
    {
        $out = $this->showFilterButtons();
        if ($addcheckuncheckall) {
            $out .= $this->showCheckAddButtons($cssclass, $calljsfunction, $massactionname);
        }
        return $out;
    }

    /**
     *    Return HTML to show the search and clear search button
     *
     * @param string $pos Position of colon on the list. Value 'left' or 'right'
     * @return    string
     */
    public function showFilterButtons($pos = '')
    {
        $out = '<div class="nowraponall">';
        $out .= '<button type="submit" class="liste_titre button_search reposition" name="button_search_x" value="x"><span class="fas fa-search"></span></button>';
        $out .= '<button type="submit" class="liste_titre button_removefilter reposition" name="button_removefilter_x" value="x"><span class="fas fa-times"></span></button>';
        $out .= '</div>';

        return $out;
    }

    /**
     *    Return HTML to show the search and clear search button
     *
     * @param string $cssclass CSS class
     * @param int $calljsfunction 0=default. 1=call function initCheckForSelect() after changing status of checkboxes
     * @param string $massactionname Mass action button name that will launch an action on the selected items
     * @return    string
     */
    public function showCheckAddButtons($cssclass = 'checkforaction', $calljsfunction = 0, $massactionname = "massaction")
    {
        global $conf;

        $out = '';

        if (!empty($conf->use_javascript_ajax)) {
            $out .= '<div class="inline-block checkallactions"><input type="checkbox" id="' . $cssclass . 's" name="' . $cssclass . 's" class="checkallactions"></div>';
        }
        $out .= '<script nonce="' . getNonce() . '">
            $(document).ready(function() {
                $("#' . $cssclass . 's").click(function() {
                    if($(this).is(\':checked\')){
                        console.log("We check all ' . $cssclass . ' and trigger the change method");
                		$(".' . $cssclass . '").prop(\'checked\', true).trigger(\'change\');
                    }
                    else
                    {
                        console.log("We uncheck all");
                		$(".' . $cssclass . '").prop(\'checked\', false).trigger(\'change\');
                    }' . "\n";
        if ($calljsfunction) {
            $out .= 'if (typeof initCheckForSelect == \'function\') { initCheckForSelect(0, "' . $massactionname . '", "' . $cssclass . '"); } else { console.log("No function initCheckForSelect found. Call won\'t be done."); }';
        }
        $out .= '         });
        	        $(".' . $cssclass . '").change(function() {
					$(this).closest("tr").toggleClass("highlight", this.checked);
				});
		 	});
    	</script>';

        return $out;
    }

    /**
     * Return HTML to show the select of expense categories
     *
     * @param string $selected preselected category
     * @param string $htmlname name of HTML select list
     * @param int<0,1> $useempty 1=Add empty line
     * @param int[] $excludeid id to exclude
     * @param string $target htmlname of target select to bind event
     * @param int $default_selected default category to select if fk_c_type_fees change = EX_KME
     * @param array<string,int|string> $params param to give
     * @param int<0,1> $info_admin Show the tooltip help picto to setup list
     * @return    string
     */
    public function selectExpenseCategories($selected = '', $htmlname = 'fk_c_exp_tax_cat', $useempty = 0, $excludeid = array(), $target = '', $default_selected = 0, $params = array(), $info_admin = 1)
    {
        global $langs, $user;

        $out = '';
        $sql = "SELECT rowid, label FROM " . $this->db->prefix() . "c_exp_tax_cat WHERE active = 1";
        $sql .= " AND entity IN (0," . getEntity('exp_tax_cat') . ")";
        if (!empty($excludeid)) {
            $sql .= " AND rowid NOT IN (" . $this->db->sanitize(implode(',', $excludeid)) . ")";
        }
        $sql .= " ORDER BY label";

        $resql = $this->db->query($sql);
        if ($resql) {
            $out = '<select id="select_' . $htmlname . '" name="' . $htmlname . '" class="' . $htmlname . ' flat minwidth75imp maxwidth200">';
            if ($useempty) {
                $out .= '<option value="0">&nbsp;</option>';
            }

            while ($obj = $this->db->fetch_object($resql)) {
                $out .= '<option ' . ($selected == $obj->rowid ? 'selected="selected"' : '') . ' value="' . $obj->rowid . '">' . $langs->trans($obj->label) . '</option>';
            }
            $out .= '</select>';
            $out .= ajax_combobox('select_' . $htmlname);

            if (!empty($htmlname) && $user->admin && $info_admin) {
                $out .= ' ' . info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
            }

            if (!empty($target)) {
                $sql = "SELECT c.id FROM " . $this->db->prefix() . "c_type_fees as c WHERE c.code = 'EX_KME' AND c.active = 1";
                $resql = $this->db->query($sql);
                if ($resql) {
                    if ($this->db->num_rows($resql) > 0) {
                        $obj = $this->db->fetch_object($resql);
                        $out .= '<script nonce="' . getNonce() . '">
							$(function() {
								$("select[name=' . $target . ']").on("change", function() {
									var current_val = $(this).val();
									if (current_val == ' . $obj->id . ') {';
                        if (!empty($default_selected) || !empty($selected)) {
                            $out .= '$("select[name=' . $htmlname . ']").val("' . ($default_selected > 0 ? $default_selected : $selected) . '");';
                        }

                        $out .= '
										$("select[name=' . $htmlname . ']").change();
									}
								});

								$("select[name=' . $htmlname . ']").change(function() {

									if ($("select[name=' . $target . ']").val() == ' . $obj->id . ') {
										// get price of kilometer to fill the unit price
										$.ajax({
											method: "POST",
											dataType: "json",
											data: { fk_c_exp_tax_cat: $(this).val(), token: \'' . currentToken() . '\' },
											url: "' . (constant('BASE_URL') . '/expensereport/ajax/ajaxik.php?' . implode('&', $params)) . '",
										}).done(function( data, textStatus, jqXHR ) {
											console.log(data);
											if (typeof data.up != "undefined") {
												$("input[name=value_unit]").val(data.up);
												$("select[name=' . $htmlname . ']").attr("title", data.title);
											} else {
												$("input[name=value_unit]").val("");
												$("select[name=' . $htmlname . ']").attr("title", "");
											}
										});
									}
								});
							});
						</script>';
                    }
                }
            }
        } else {
            dol_print_error($this->db);
        }

        return $out;
    }

    /**
     * Return HTML to show the select ranges of expense range
     *
     * @param string $selected preselected category
     * @param string $htmlname name of HTML select list
     * @param integer $useempty 1=Add empty line
     * @return    string
     */
    public function selectExpenseRanges($selected = '', $htmlname = 'fk_range', $useempty = 0)
    {
        global $conf, $langs;

        $out = '';
        $sql = "SELECT rowid, range_ik FROM " . $this->db->prefix() . "c_exp_tax_range";
        $sql .= " WHERE entity = " . $conf->entity . " AND active = 1";

        $resql = $this->db->query($sql);
        if ($resql) {
            $out = '<select id="select_' . $htmlname . '" name="' . $htmlname . '" class="' . $htmlname . ' flat minwidth75imp">';
            if ($useempty) {
                $out .= '<option value="0"></option>';
            }

            while ($obj = $this->db->fetch_object($resql)) {
                $out .= '<option ' . ($selected == $obj->rowid ? 'selected="selected"' : '') . ' value="' . $obj->rowid . '">' . price($obj->range_ik, 0, $langs, 1, 0) . '</option>';
            }
            $out .= '</select>';
        } else {
            dol_print_error($this->db);
        }

        return $out;
    }

    /**
     * Return HTML to show a select of expense
     *
     * @param string $selected preselected category
     * @param string $htmlname name of HTML select list
     * @param integer $useempty 1=Add empty choice
     * @param integer $allchoice 1=Add all choice
     * @param integer $useid 0=use 'code' as key, 1=use 'id' as key
     * @return    string
     */
    public function selectExpense($selected = '', $htmlname = 'fk_c_type_fees', $useempty = 0, $allchoice = 1, $useid = 0)
    {
        global $langs;

        $out = '';
        $sql = "SELECT id, code, label";
        $sql .= " FROM " . $this->db->prefix() . "c_type_fees";
        $sql .= " WHERE active = 1";

        $resql = $this->db->query($sql);
        if ($resql) {
            $out = '<select id="select_' . $htmlname . '" name="' . $htmlname . '" class="' . $htmlname . ' flat minwidth75imp">';
            if ($useempty) {
                $out .= '<option value="0"></option>';
            }
            if ($allchoice) {
                $out .= '<option value="-1">' . $langs->trans('AllExpenseReport') . '</option>';
            }

            $field = 'code';
            if ($useid) {
                $field = 'id';
            }

            while ($obj = $this->db->fetch_object($resql)) {
                $key = $langs->trans($obj->code);
                $out .= '<option ' . ($selected == $obj->{$field} ? 'selected="selected"' : '') . ' value="' . $obj->{$field} . '">' . ($key != $obj->code ? $key : $obj->label) . '</option>';
            }
            $out .= '</select>';

            $out .= ajax_combobox('select_' . $htmlname);
        } else {
            dol_print_error($this->db);
        }

        return $out;
    }

    /**
     *  Output a combo list with invoices 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 string $selected Id invoice 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 $showproject 'all' = Show project info, ''=Hide project info
     * @param User $usertofilter User object to use for filtering
     * @return string            HTML Select Invoice
     */
    public function selectInvoice($socid = -1, $selected = '', $htmlname = 'invoiceid', $maxlength = 24, $option_only = 0, $show_empty = '1', $discard_closed = 0, $forcefocus = 0, $disabled = 0, $morecss = 'maxwidth500', $projectsListId = '', $showproject = 'all', $usertofilter = null)
    {
        global $user, $conf, $langs;


        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')) {
            if (!$usertofilter->/** @scrutinizer ignore-call */ hasRight('projet', 'all', 'lire')) {
                $projectstatic = new Project($this->db);
                $projectsListId = $projectstatic->getProjectsAuthorizedForUser($usertofilter, 0, 1);
            }
        }

        // Search all projects
        $sql = "SELECT f.rowid, f.ref as fref, 'nolabel' as flabel, p.rowid as pid, f.ref,
            p.title, p.fk_soc, p.fk_statut, p.public,";
        $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() . 'facture as f';
        $sql .= " WHERE p.entity IN (" . getEntity('project') . ")";
        $sql .= " AND f.fk_projet = p.rowid AND f.fk_statut=0"; //Brouillons seulement
        //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, 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($htmlname, array(), 0, $forcefocus);
                $out .= $comboenhancement;
                $morecss = 'minwidth200imp maxwidth500';
            }

            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)) {
                    $out .= $show_empty;
                } 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 = '';

                        if ($showproject == 'all') {
                            $labeltoshow .= dol_trunc($obj->ref, 18); // Invoice ref
                            if ($obj->name) {
                                $labeltoshow .= ' - ' . $obj->name; // Soc name
                            }

                            $disabled = 0;
                            if ($obj->fk_statut == Project::STATUS_DRAFT) {
                                $disabled = 1;
                                $labeltoshow .= ' - ' . $langs->trans("Draft");
                            } elseif ($obj->fk_statut == Project::STATUS_CLOSED) {
                                if ($discard_closed == 2) {
                                    $disabled = 1;
                                }
                                $labeltoshow .= ' - ' . $langs->trans("Closed");
                            } elseif ($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;
                        }
                    }
                    $i++;
                }
            }
            if (empty($option_only)) {
                $out .= '</select>';
            }

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

            return $out;
        } else {
            dol_print_error($this->db);
            return '';
        }
    }

    /**
     *  Output a combo list with invoices qualified for a third party
     *
     * @param string $selected Id invoice 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 $forcefocus Force focus on field (works with javascript only)
     * @param int $disabled Disabled
     * @param string $morecss More css added to the select component
     * @return int                    Nbr of project if OK, <0 if KO
     */
    public function selectInvoiceRec($selected = '', $htmlname = 'facrecid', $maxlength = 24, $option_only = 0, $show_empty = '1', $forcefocus = 0, $disabled = 0, $morecss = 'maxwidth500')
    {
        global $conf, $langs;

        $out = '';

        dol_syslog('FactureRec::fetch', LOG_DEBUG);

        $sql = 'SELECT f.rowid, f.entity, f.titre as title, f.suspended, f.fk_soc';
        //$sql.= ', el.fk_source';
        $sql .= ' FROM ' . MAIN_DB_PREFIX . 'facture_rec as f';
        $sql .= " WHERE f.entity IN (" . getEntity('invoice') . ")";
        $sql .= " ORDER BY f.titre 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($htmlname, array(), 0, $forcefocus);
                $out .= $comboenhancement;
                $morecss = 'minwidth200imp maxwidth500';
            }

            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)) {
                    $out .= $show_empty;
                } else {
                    $out .= '&nbsp;';
                }
                $out .= '</option>';
            }
            $num = $this->db->num_rows($resql);
            if ($num) {
                while ($obj = $this->db->fetch_object($resql)) {
                    $labeltoshow = dol_trunc($obj->title, 18); // Invoice ref

                    $disabled = 0;
                    if (!empty($obj->suspended)) {
                        $disabled = 1;
                        $labeltoshow .= ' - ' . $langs->trans("Closed");
                    }


                    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 ($disabled && ($selected != $obj->rowid)) {
                            $resultat = '';
                        } else {
                            $resultat = '<option value="' . $obj->rowid . '"';
                            if ($disabled) {
                                $resultat .= ' disabled';
                            }
                            $resultat .= '>';
                            $resultat .= $labeltoshow;
                            $resultat .= '</option>';
                        }
                        $out .= $resultat;
                    }
                }
            }
            if (empty($option_only)) {
                $out .= '</select>';
            }

            print $out;

            $this->db->free($resql);
            return $num;
        } else {
            $this->errors[] = $this->db->lasterror;
            return -1;
        }
    }

    /**
     * Output the component to make advanced search criteries
     *
     * @param array<array<string,array{type:string}>> $arrayofcriterias Array of available search criteria. Example: array($object->element => $object->fields, 'otherfamily' => otherarrayoffields, ...)
     * @param array<int,string> $search_component_params Array of selected search criteria
     * @param string[] $arrayofinputfieldsalreadyoutput Array of input fields already inform. The component will not generate a hidden input field if it is in this list.
     * @param string $search_component_params_hidden String with $search_component_params criteria
     * @return  string                                                                      HTML component for advanced search
     */
    public function searchComponent($arrayofcriterias, $search_component_params, $arrayofinputfieldsalreadyoutput = array(), $search_component_params_hidden = '')
    {
        global $langs;

        if ($search_component_params_hidden != '' && !preg_match('/^\(.*\)$/', $search_component_params_hidden)) {    // If $search_component_params_hidden does not start and end with ()
            $search_component_params_hidden = '(' . $search_component_params_hidden . ')';
        }

        $ret = '';

        $ret .= '<div class="divadvancedsearchfieldcomp centpercent inline-block">';
        $ret .= '<a href="#" class="dropdownsearch-toggle unsetcolor">';
        $ret .= '<span class="fas fa-filter linkobject boxfilter paddingright pictofixedwidth" title="' . dol_escape_htmltag($langs->trans("Filters")) . '" id="idsubimgproductdistribution"></span>';
        $ret .= '</a>';

        $ret .= '<div class="divadvancedsearchfieldcompinput inline-block minwidth500 maxwidth300onsmartphone">';

        // Show select fields as tags.
        $ret .= '<div id="divsearch_component_params" name="divsearch_component_params" class="noborderbottom search_component_params inline-block valignmiddle">';

        if ($search_component_params_hidden) {
            // Split the criteria on each AND
            //var_dump($search_component_params_hidden);

            $arrayofandtags = dolForgeExplodeAnd($search_component_params_hidden);

            // $arrayofandtags is now array( '...' , '...', ...)
            // Show each AND part
            foreach ($arrayofandtags as $tmpkey => $tmpval) {
                $errormessage = '';
                $searchtags = forgeSQLFromUniversalSearchCriteria($tmpval, $errormessage, 1, 1);
                if ($errormessage) {
                    $this->error = 'ERROR in parsing search string: ' . $errormessage;
                }
                // Remove first and last parenthesis but only if first is the opening and last the closing of the same group
                include_once DOL_DOCUMENT_ROOT . '/core/lib/functions2.lib.php';
                $searchtags = removeGlobalParenthesis($searchtags);

                $ret .= '<span class="marginleftonlyshort valignmiddle tagsearch" data-ufilterid="' . ($tmpkey + 1) . '" data-ufilter="' . dol_escape_htmltag($tmpval) . '">';
                $ret .= '<span class="tagsearchdelete select2-selection__choice__remove" data-ufilterid="' . ($tmpkey + 1) . '">x</span> ';
                $ret .= dol_escape_htmltag($searchtags);
                $ret .= '</span>';
            }
        }

        //$ret .= '<button type="submit" class="liste_titre button_search paddingleftonly" name="button_search_x" value="x"><span class="fa fa-search"></span></button>';

        //$ret .= search_component_params
        //$texttoshow = '<div class="opacitymedium inline-block search_component_searchtext">'.$langs->trans("Search").'</div>';
        //$ret .= '<div class="search_component inline-block valignmiddle">'.$texttoshow.'</div>';

        $show_search_component_params_hidden = 1;
        if ($show_search_component_params_hidden) {
            $ret .= '<input type="hidden" name="show_search_component_params_hidden" value="1">';
        }
        $ret .= "<!-- We store the full Universal Search String into this field. For example: (t.ref:like:'SO-%') AND ((t.ref:like:'CO-%') OR (t.ref:like:'AA%')) -->";
        $ret .= '<input type="hidden" id="search_component_params_hidden" name="search_component_params_hidden" value="' . dol_escape_htmltag($search_component_params_hidden) . '">';
        // $ret .= "<!-- sql= ".forgeSQLFromUniversalSearchCriteria($search_component_params_hidden, $errormessage)." -->";

        // For compatibility with forms that show themself the search criteria in addition of this component, we output these fields
        foreach ($arrayofcriterias as $criteria) {
            foreach ($criteria as $criteriafamilykey => $criteriafamilyval) {
                if (in_array('search_' . $criteriafamilykey, $arrayofinputfieldsalreadyoutput)) {
                    continue;
                }
                if (in_array($criteriafamilykey, array('rowid', 'ref_ext', 'entity', 'extraparams'))) {
                    continue;
                }
                if (in_array($criteriafamilyval['type'], array('date', 'datetime', 'timestamp'))) {
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_start">';
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_startyear">';
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_startmonth">';
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_startday">';
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_end">';
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_endyear">';
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_endmonth">';
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '_endday">';
                } else {
                    $ret .= '<input type="hidden" name="search_' . $criteriafamilykey . '">';
                }
            }
        }

        $ret .= '</div>';

        $ret .= "<!-- Field to enter a generic filter string: t.ref:like:'SO-%', t.date_creation:<:'20160101', t.date_creation:<:'2016-01-01 12:30:00', t.nature:is:NULL, t.field2:isnot:NULL -->\n";
        $ret .= '<input type="text" placeholder="' . $langs->trans("Filters") . '" id="search_component_params_input" name="search_component_params_input" class="noborderbottom search_component_input" value="">';

        $ret .= '</div>';
        $ret .= '</div>';

        $ret .= '<script>
		jQuery(".tagsearchdelete").click(function(e) {
			var filterid = $(this).parents().attr("data-ufilterid");
			console.log("We click to delete the criteria nb "+filterid);

			// Regenerate the search_component_params_hidden with all data-ufilter except the one to delete, and post the page
			var newparamstring = \'\';
			$(\'.tagsearch\').each(function(index, element) {
				tmpfilterid = $(this).attr("data-ufilterid");
				if (tmpfilterid != filterid) {
					// We keep this criteria
					if (newparamstring == \'\') {
						newparamstring = $(this).attr("data-ufilter");
					} else {
						newparamstring = newparamstring + \' AND \' + $(this).attr("data-ufilter");
					}
				}
			});
			console.log("newparamstring = "+newparamstring);

			jQuery("#search_component_params_hidden").val(newparamstring);

			// We repost the form
			$(this).closest(\'form\').submit();
		});

		jQuery("#search_component_params_input").keydown(function(e) {
			console.log("We press a key on the filter field that is "+jQuery("#search_component_params_input").val());
			console.log(e.which);
			if (jQuery("#search_component_params_input").val() == "" && e.which == 8) {
				/* We click on back when the input field is already empty */
			   	event.preventDefault();
				jQuery("#divsearch_component_params .tagsearch").last().remove();
				/* Regenerate content of search_component_params_hidden from remaining .tagsearch */
				var s = "";
				jQuery("#divsearch_component_params .tagsearch").each(function( index ) {
					if (s != "") {
						s = s + " AND ";
					}
					s = s + $(this).attr("data-ufilter");
				});
				console.log("New value for search_component_params_hidden = "+s);
				jQuery("#search_component_params_hidden").val(s);
			}
		});

		</script>
		';

        return $ret;
    }

    /**
     * selectModelMail
     *
     * @param string $prefix Prefix
     * @param string $modelType Model type
     * @param int<0,1> $default 1=Show also Default mail template
     * @param int<0,1> $addjscombo Add js combobox
     * @return  string                      HTML select string
     */
    public function selectModelMail($prefix, $modelType = '', $default = 0, $addjscombo = 0)
    {
        global $langs, $user;

        $retstring = '';

        $TModels = array();

        $formmail = new FormMail($this->db);
        $result = $formmail->fetchAllEMailTemplate($modelType, $user, $langs);

        if ($default) {
            $TModels[0] = $langs->trans('DefaultMailModel');
        }
        if ($result > 0) {
            foreach ($formmail->lines_model as $model) {
                $TModels[$model->id] = $model->label;
            }
        }

        $retstring .= '<select class="flat" id="select_' . $prefix . 'model_mail" name="' . $prefix . 'model_mail">';

        foreach ($TModels as $id_model => $label_model) {
            $retstring .= '<option value="' . $id_model . '"';
            $retstring .= ">" . $label_model . "</option>";
        }

        $retstring .= "</select>";

        if ($addjscombo) {
            $retstring .= ajax_combobox('select_' . $prefix . 'model_mail');
        }

        return $retstring;
    }

    /**
     * Output the buttons to submit a creation/edit form
     *
     * @param string $save_label Alternative label for save button
     * @param string $cancel_label Alternative label for cancel button
     * @param array<array{addclass?:string,name?:string,label_key?:string}> $morebuttons Add additional buttons between save and cancel
     * @param bool $withoutdiv Option to remove enclosing centered div
     * @param string $morecss More CSS
     * @param string $dol_openinpopup If the button are shown in a context of a page shown inside a popup, we put here the string name of popup.
     * @return  string                      Html code with the buttons
     */
    public function buttonsSaveCancel($save_label = 'Save', $cancel_label = 'Cancel', $morebuttons = array(), $withoutdiv = false, $morecss = '', $dol_openinpopup = '')
    {
        global $langs;

        $buttons = array();

        $save = array(
            'name' => 'save',
            'label_key' => $save_label,
        );

        if ($save_label == 'Create' || $save_label == 'Add') {
            $save['name'] = 'add';
        } elseif ($save_label == 'Modify') {
            $save['name'] = 'edit';
        }

        $cancel = array(
            'name' => 'cancel',
            'label_key' => 'Cancel',
        );

        !empty($save_label) ? $buttons[] = $save : '';

        if (!empty($morebuttons)) {
            $buttons[] = $morebuttons;
        }

        !empty($cancel_label) ? $buttons[] = $cancel : '';

        $retstring = $withoutdiv ? '' : '<div class="center">';

        foreach ($buttons as $button) {
            $addclass = empty($button['addclass']) ? '' : $button['addclass'];
            $retstring .= '<input type="submit" class="button button-' . $button['name'] . ($morecss ? ' ' . $morecss : '') . ' ' . $addclass . '" name="' . $button['name'] . '" value="' . dol_escape_htmltag($langs->trans($button['label_key'])) . '">';
        }
        $retstring .= $withoutdiv ? '' : '</div>';

        if ($dol_openinpopup) {
            $retstring .= '<!-- buttons are shown into a $dol_openinpopup=' . $dol_openinpopup . ' context, so we enable the close of dialog on cancel -->' . "\n";
            $retstring .= '<script nonce="' . getNonce() . '">';
            $retstring .= 'jQuery(".button-cancel").click(function(e) {
				e.preventDefault(); console.log(\'We click on cancel in iframe popup ' . $dol_openinpopup . '\');
				window.parent.jQuery(\'#idfordialog' . $dol_openinpopup . '\').dialog(\'close\');
				 });';
            $retstring .= '</script>';
        }

        return $retstring;
    }


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

    /**
     * Return list of invoice subtypes.
     *
     * @param int $selected Id of invoice subtype to preselect by default
     * @param string $htmlname Select field name
     * @param int<0,1> $addempty Add an empty entry
     * @param int<0,1> $noinfoadmin 0=Add admin info, 1=Disable admin info
     * @param string $morecss Add more CSS on select tag
     * @return string                String for the HTML select component
     */
    public function getSelectInvoiceSubtype($selected = 0, $htmlname = 'subtypeid', $addempty = 0, $noinfoadmin = 0, $morecss = '')
    {
        global $langs, $user;

        $out = '';
        dol_syslog(__METHOD__ . " selected=" . $selected . ", htmlname=" . $htmlname, LOG_DEBUG);

        $this->load_cache_invoice_subtype();

        $out .= '<select id="' . $htmlname . '" class="flat selectsubtype' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '">';
        if ($addempty) {
            $out .= '<option value="0">&nbsp;</option>';
        }

        foreach ($this->cache_invoice_subtype as $rowid => $subtype) {
            $label = $subtype['label'];
            $out .= '<option value="' . $subtype['rowid'] . '"';
            if ($selected == $subtype['rowid']) {
                $out .= ' selected="selected"';
            }
            $out .= '>';
            $out .= $label;
            $out .= '</option>';
        }

        $out .= '</select>';
        if ($user->admin && empty($noinfoadmin)) {
            $out .= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
        }
        $out .= ajax_combobox($htmlname);

        return $out;
    }

    /**
     * Load into cache list of invoice subtypes
     *
     * @return int             Nb of lines loaded, <0 if KO
     */
    public function load_cache_invoice_subtype()
    {
        // phpcs:enable
        global $langs;

        $num = count($this->cache_invoice_subtype);
        if ($num > 0) {
            return 0; // Cache already loaded
        }

        dol_syslog(__METHOD__, LOG_DEBUG);

        $sql = "SELECT rowid, code, label as label";
        $sql .= " FROM " . MAIN_DB_PREFIX . 'c_invoice_subtype';
        $sql .= " WHERE active = 1";

        $resql = $this->db->query($sql);
        if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
            while ($i < $num) {
                $obj = $this->db->fetch_object($resql);

                // If translation exists, we use it, otherwise we take the default wording
                $label = ($langs->trans("InvoiceSubtype" . $obj->rowid) != "InvoiceSubtype" . $obj->rowid) ? $langs->trans("InvoiceSubtype" . $obj->rowid) : (($obj->label != '-') ? $obj->label : '');
                $this->cache_invoice_subtype[$obj->rowid]['rowid'] = $obj->rowid;
                $this->cache_invoice_subtype[$obj->rowid]['code'] = $obj->code;
                $this->cache_invoice_subtype[$obj->rowid]['label'] = $label;
                $i++;
            }

            $this->cache_invoice_subtype = dol_sort_array($this->cache_invoice_subtype, 'code', 'asc', 0, 0, 1);

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

alxarafe / alixar

Push — REFACTOR_MAIN_INC_241020 ( 0ab19e )

Form::select_contact() C

Complexity

Size

Duplication

Importance

How to fix Long Method Complexity Many Parameters

Long Method

Many Parameters

Duplication Side-by-Side

Filter issues like
