html.form.class.php

Go to the documentation of this file.

<?php
/* Copyright (c) 2002-2007  Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2012  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2004       Benoit Mortier          <benoit.mortier@opensides.be>
 * Copyright (C) 2004       Sebastien Di Cintio     <sdicintio@ressource-toi.org>
 * Copyright (C) 2004       Eric Seigne             <eric.seigne@ryxeo.com>
 * Copyright (C) 2005-2017  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2006       Andre Cianfarani        <acianfa@free.fr>
 * Copyright (C) 2006       Marc Barilley/Ocebo     <marc@ocebo.com>
 * Copyright (C) 2007       Franky Van Liedekerke   <franky.van.liedekerker@telenet.be>
 * Copyright (C) 2007       Patrick Raguin          <patrick.raguin@gmail.com>
 * Copyright (C) 2010       Juanjo Menent           <jmenent@2byte.es>
 * Copyright (C) 2010-2021  Philippe Grand          <philippe.grand@atoo-net.com>
 * Copyright (C) 2011       Herve Prot              <herve.prot@symeos.com>
 * Copyright (C) 2012-2016  Marcos García           <marcosgdf@gmail.com>
 * Copyright (C) 2012       Cedric Salvador         <csalvador@gpcsolutions.fr>
 * Copyright (C) 2012-2015  Raphaël Doursenaud      <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2014-2020  Alexandre Spangaro      <aspangaro@open-dsi.fr>
 * Copyright (C) 2018-2022  Ferran Marcet           <fmarcet@2byte.es>
 * Copyright (C) 2018-2021  Frédéric France         <frederic.france@netlogic.fr>
 * Copyright (C) 2018       Nicolas ZABOURI         <info@inovea-conseil.com>
 * Copyright (C) 2018       Christophe Battarel     <christophe@altairis.fr>
 * Copyright (C) 2018       Josep Lluis Amador      <joseplluis@lliuretic.cat>
 *
 * 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/>.
 */

class Form
{
  public $db;

  public $error = '';

  public $errors = array();

  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 function __construct($db)
  {
    $this->db = $db;
  }

  public function editfieldkey($text, $htmlname, $preselected, $object, $perm, $typeofdata = 'string', $moreparam = '', $fieldrequired = 0, $notabletag = 0, $paramid = 'id', $help = '')
  {
    global $conf, $langs;

    $ret = '';

    // TODO change for compatibility
    if (!empty($conf->global->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" 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) {
        $ret .= ' : ';
      }
      if (!empty($notabletag) && $notabletag == 3) {
        $ret .= ' ';
      }
      if (empty($notabletag) && $perm) {
        $ret .= '</td>';
      }
      if (empty($notabletag) && $perm) {
        $ret .= '</tr></table>';
      }
    }

    return $ret;
  }

  public function editfieldval($text, $htmlname, $value, $object, $perm, $typeofdata = 'string', $editvalue = '', $extObject = null, $custommsg = null, $moreparam = '', $notabletag = 0, $formatfunc = '', $paramid = 'id', $gm = 'auto')
  {
    global $conf, $langs;

    $ret = '';

    // Check parameters
    if (empty($typeofdata)) {
      return 'ErrorBadParameter';
    }

    // When option to edit inline is activated
    if (!empty($conf->global->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 {
      $editmode = (GETPOST('action', 'aZ09') == 'edit'.$htmlname);
      if ($editmode) {
        $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)/', $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 . '"' . (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 wysiwig is off.
          $valuetoshow = str_replace('&', '&amp;', $valuetoshow);
          $ret .= dol_string_neverthesehtmltags($valuetoshow, array('textarea'));
          $ret .= '</textarea>';
        } elseif ($typeofdata == 'day' || $typeofdata == 'datepicker') {
          $ret .= $this->selectDate($value, $htmlname, 0, 0, 1, 'form'.$htmlname, 1, 0, 0, '', '', '', '', 1, '', '', $gm);
        } elseif ($typeofdata == 'dayhour' || $typeofdata == 'datehourpicker') {
          $ret .= $this->selectDate($value, $htmlname, 1, 1, 1, 'form'.$htmlname, 1, 0, 0, '', '', '', '', 1, '', '', $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('/^ckeditor/', $typeofdata)) {
          $tmp = explode(':', $typeofdata); // Example: ckeditor:dolibarr_zzz:width:height:savemethod:toolbarstartexpanded:rows:cols:uselocalbrowser
          require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
          $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);
        }
        if (empty($notabletag)) {
          $ret .= '</td>';
        }

        // Button save-cancel
        if (empty($notabletag)) {
          $ret .= '<td class="left">';
        }
        //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 {
        if (preg_match('/^(email)/', $typeofdata)) {
          $ret .= dol_print_email($value, 0, 0, 0, 0, 1);
        } elseif (preg_match('/^(amount|numeric)/', $typeofdata)) {
          $ret .= ($value != '' ? price($value, '', $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 . '"' . ($tmp[1] ? $tmp[1] : '') . '/>';
        } elseif (preg_match('/^text/', $typeofdata) || preg_match('/^note/', $typeofdata)) {
          $ret .= dol_htmlentitiesbr($value);
        } elseif (preg_match('/^safehtmlstring/', $typeofdata)) {
          $ret .= dol_string_onlythesehtmltags($value);
        } elseif (preg_match('/^restricthtml/', $typeofdata)) {
          $ret .= 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 (!empty($conf->global->MAIN_DISABLE_NOTES_TAB)) {
            $firstline = preg_replace('/<br>.*/', '', $tmpcontent);
            $firstline = preg_replace('/[\n\r].*/', '', $firstline);
            $tmpcontent = $firstline.((strlen($firstline) != strlen($tmpcontent)) ? '...' : '');
          }
          // We dont use dol_escape_htmltag to get the html formating active, but this need we must also
          // clean data from some dangerous html
          $ret .= dol_string_onlythesehtmltags(dol_htmlentitiesbr($tmpcontent));
        } else {
          $ret .= dol_escape_htmltag($value);
        }

        if ($formatfunc && method_exists($object, $formatfunc)) {
          $ret = $object->$formatfunc($ret);
        }
      }
    }
    return $ret;
  }

  public function widgetForTranslation($fieldname, $object, $perm, $typeofdata = 'string', $check = '', $morecss = '')
  {
    global $conf, $langs, $extralanguages;

    $result = '';

    // List of extra languages
    $arrayoflangcode = array();
    if (!empty($conf->global->PDF_USE_ALSO_LANGUAGE_CODE)) {
      $arrayoflangcode[] = $conf->global->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>$(".image-'.$object->element.'-'.$fieldname.'").click(function() { console.log("Toggle lang widget"); jQuery(".field-'.$object->element.'-'.$fieldname.'").toggle(); });</script>';
    }

    return $result;
  }

  protected function editInPlace($object, $value, $htmlname, $condition, $inputType = 'textarea', $editvalue = null, $extObject = null, $custommsg = null)
  {
    global $conf;

    $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])) {
          $heigth = $tmp[3];
        }
        if (!empty($tmp[4])) {
          $savemethod = $tmp[4];
        }

        if (!empty($conf->fckeditor->enabled)) {
          $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;
  }

  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 !important;';
    }
    if ($direction > 0) {
      $extracss = ($extracss ? $extracss.' ' : '').($notabs != 3 ? 'inline-block' : '');
      $extrastyle = 'padding: 0px; padding-right: 3px !important;';
    }

    $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)).'"'; // Attribut to put on img tag to store tooltip
      } else {
        $paramfortooltipimg .= ' dolid="'.$tooltiptrigger.'"';
      }
    } else {
      $paramfortooltipimg = ($extracss ? ' class="'.$extracss.'"' : '').($extrastyle ? ' style="'.$extrastyle.'"' : ''); // Attribut 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)).'"'; // Attribut to put on td tag to store tooltip
      } else {
        $paramfortooltiptd .= ' dolid="'.$tooltiptrigger.'"';
      }
    } else {
      $paramfortooltiptd = ($extracss ? ' class="'.$extracss.'"' : '').($extrastyle ? ' style="'.$extrastyle.'"' : ''); // Attribut 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;
  }

  public function textwithpicto($text, $htmltext, $direction = 1, $type = 'help', $extracss = '', $noencodehtmltext = 0, $notabs = 3, $tooltiptrigger = '', $forcenowrap = 0)
  {
    global $conf, $langs;

    $alt = '';
    if ($tooltiptrigger) {
      $alt = $langs->transnoentitiesnoconv("ClickToShowHelp");
    }

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

    // If info or help with no javascript, show only text
    if (empty($conf->use_javascript_ajax)) {
      if ($type == 'info' || $type == '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') {
      $img = img_picto($alt, 'redstar');
    } elseif ($type == 'admin') {
      $img = img_picto($alt, 'star');
    } elseif ($type == 'warning') {
      $img = img_warning($alt);
    } elseif ($type != 'none') {
      $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);
  }

  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 (count($arrayofaction) == 0 && empty($hookmanager->resPrint)) {
      return;
    }
    if (empty($reshook)) {
      $ret .= '<option value="0"'.($disabled ? ' disabled="disabled"' : '').'>-- '.$langs->trans("SelectAction").' --</option>';
      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="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>
                        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
  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_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="">'.$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
  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_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', '', DOL_URL_ROOT.'/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;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_type_of_lines($selected = '', $htmlname = 'type', $showempty = 0, $hidetext = 0, $forceall = 0)
  {
    // phpcs:enable
    global $langs, $conf;

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

    $out = '';

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

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

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

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

      $out .= '<style type="text/css">.ui-autocomplete { z-index: 1003; }</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).'"' : '').' '.(!empty($conf->global->THIRDPARTY_SEARCH_AUTOFOCUS) ? 'autofocus' : '').' />';
      if ($hidelabel == 3) {
        $out .= img_picto($langs->trans("Search"), 'search');
      }

      $out .= ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT.'/societe/ajax/company.php', $urloption, $conf->global->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;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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 $conf, $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 (function_exists('testSqlAndScriptInject')) {
      if (testSqlAndScriptInject($filter, 3) > 0) {
        $filter = '';
      }
    }

    // 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 (!empty($conf->global->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 (!empty($conf->global->COMPANY_SHOW_ADDRESS_SELECTLIST)) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."c_country as dictp ON dictp.rowid = s.fk_pays";
    }
    if (empty($user->rights->societe->client->voir) && !$user->socid) {
      $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) {
      $sql .= " AND (".$filter.")";
    }
    if (empty($user->rights->societe->client->voir) && !$user->socid) {
      $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
    }
    if (!empty($conf->global->COMPANY_HIDE_INACTIVE_IN_COMBOBOX)) {
      $sql .= " AND s.status <> 0";
    }
    if (!empty($excludeids)) {
      $sql .= " AND s.rowid NOT IN (".$this->db->sanitize(join(',', $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 = empty($conf->global->COMPANY_DONOTSEARCH_ANYWHERE) ? '%' : ''; // Can use index if COMPANY_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $scrit = explode(' ', $filterkey);
      $i = 0;
      if (count($scrit) > 1) {
        $sql .= "(";
      }
      foreach ($scrit as $crit) {
        if ($i > 0) {
          $sql .= " AND ";
        }
        $sql .= "(s.nom LIKE '".$this->db->escape($prefix.$crit)."%')";
        $i++;
      }
      if (count($scrit) > 1) {
        $sql .= ")";
      }
      if (!empty($conf->barcode->enabled)) {
        $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_class($this)."::select_thirdparty_list", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      if (!$forcecombo) {
        include_once DOL_DOCUMENT_ROOT.'/core/lib/ajax.lib.php';
        $out .= ajax_combobox($htmlname, $events, getDolGlobalString("COMPANY_USE_SEARCH_TO_SELECT"));
      }

      // 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 (!empty($conf->global->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 || !empty($conf->global->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 (!empty($conf->global->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 (!empty($conf->global->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).'">'.$label.'</option>';
            } else {
              $out .= '<option value="'.$obj->rowid.'" data-html="'.dol_escape_htmltag($labelhtml).'">'.$label.'</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";
    } else {
      dol_print_error($this->db);
    }

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

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


  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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_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 (!empty($conf->global->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
  public function select_contacts($socid, $selected = '', $htmlname = 'contactid', $showempty = 0, $exclude = '', $limitto = '', $showfunction = 0, $morecss = '', $showsoc = 0, $forcecombo = 0, $events = array(), $options_only = false, $moreparam = '', $htmlid = '')
  {
    // phpcs:enable
    print $this->selectcontacts($socid, $selected, $htmlname, $showempty, $exclude, $limitto, $showfunction, $morecss, $options_only, $showsoc, $forcecombo, $events, $moreparam, $htmlid);
    return $this->num;
  }

  public function selectcontacts($socid, $selected = '', $htmlname = 'contactid', $showempty = 0, $exclude = '', $limitto = '', $showfunction = 0, $morecss = '', $options_only = false, $showsoc = 0, $forcecombo = 0, $events = array(), $moreparam = '', $htmlid = '', $multiple = false, $disableifempty = 0)
  {
    global $conf, $langs, $hookmanager, $action;

    $langs->load('companies');

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

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

    if (!is_object($hookmanager)) {
      include_once DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php';
      $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 || !empty($conf->global->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 || !empty($conf->global->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 (!empty($conf->global->CONTACT_HIDE_INACTIVE_IN_COMBOBOX)) {
      $sql .= " AND sp.statut <> 0";
    }
    // 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_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.(($num || empty($disableifempty)) ? '' : ' disabled').($multiple ? '[]' : '').'" '.($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) {
        include_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
        $contactstatic = new Contact($this->db);

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

          // Set email (or phones) and town extended infos
          $extendedInfos = '';
          if (!empty($conf->global->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) {
            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>';
                $out .= $contactstatic->getFullName($langs).$extendedInfos;
                if ($showfunction && $obj->poste) {
                  $out .= ' ('.$obj->poste.')';
                }
                if (($showsoc > 0) && $obj->company) {
                  $out .= ' - ('.$obj->company.')';
                }
                $out .= '</option>';
              } else {
                $out .= '<option value="'.$obj->rowid.'"';
                if ($disabled) {
                  $out .= ' disabled';
                }
                $out .= '>';
                $out .= $contactstatic->getFullName($langs).$extendedInfos;
                if ($showfunction && $obj->poste) {
                  $out .= ' ('.$obj->poste.')';
                }
                if (($showsoc > 0) && $obj->company) {
                  $out .= ' - ('.$obj->company.')';
                }
                $out .= '</option>';
              }
            } else {
              if (in_array($obj->rowid, $selected)) {
                $out .= $contactstatic->getFullName($langs).$extendedInfos;
                if ($showfunction && $obj->poste) {
                  $out .= ' ('.$obj->poste.')';
                }
                if (($showsoc > 0) && $obj->company) {
                  $out .= ' - ('.$obj->company.')';
                }
              }
            }
          }
          $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, getDolGlobalString("CONTACT_USE_SEARCH_TO_SELECT"));
      }

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

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_users($selected = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = '', $enableonly = '', $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
  public function select_dolusers($selected = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = '', $enableonly = '', $force_entity = '0', $maxlength = 0, $showstatus = 0, $morefilter = '', $show_every = 0, $enableonlytext = '', $morecss = '', $noactive = 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))) && empty($conf->global->SOCIETE_DISABLE_DEFAULT_SALESREPRESENTATIVE)) {
      $selected = $user->id;
    }

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

    $excludeUsers = null;
    $includeUsers = null;

    // Permettre l'exclusion d'utilisateurs
    if (is_array($exclude)) {
      $excludeUsers = implode(",", $exclude);
    }
    // Permettre l'inclusion d'utilisateurs
    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));
    }

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

    // 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.photo";
    if (!empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && !$user->entity) {
      $sql .= ", e.label";
    }
    $sql .= " FROM ".$this->db->prefix()."user as u";
    if (!empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && !$user->entity) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."entity as e ON e.rowid = u.entity";
      if ($force_entity) {
        $sql .= " WHERE u.entity IN (0, ".$this->db->sanitize($force_entity).")";
      } else {
        $sql .= " WHERE u.entity IS NOT NULL";
      }
    } else {
      if (!empty($conf->multicompany->enabled) && !empty($conf->global->MULTICOMPANY_TRANSVERSE_MODE)) {
        $sql .= " LEFT JOIN ".$this->db->prefix()."usergroup_user as ug";
        $sql .= " ON ug.fk_user = u.rowid";
        $sql .= " WHERE ug.entity = ".$conf->entity;
      } else {
        $sql .= " WHERE u.entity IN (0, ".$conf->entity.")";
      }
    }
    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 (!empty($conf->global->USER_HIDE_INACTIVE_IN_COMBOBOX) || $noactive) {
      $sql .= " AND u.statut <> 0";
    }
    if (!empty($morefilter)) {
      $sql .= " ".$morefilter;
    }

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

    if (empty($conf->global->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_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->statut = $obj->status;
          $userstatic->entity = $obj->entity;
          $userstatic->admin = $obj->admin;

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

          $labeltoshow = '';

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

          // Complete name with more info
          $moreinfo = '';
          if (!empty($conf->global->MAIN_SHOW_LOGIN)) {
            $moreinfo .= ($moreinfo ? ' - ' : ' (').$obj->login;
          }
          if ($showstatus >= 0) {
            if ($obj->status == 1 && $showstatus == 1) {
              $moreinfo .= ($moreinfo ? ' - ' : ' (').$langs->trans('Enabled');
            }
            if ($obj->status == 0 && $showstatus == 1) {
              $moreinfo .= ($moreinfo ? ' - ' : ' (').$langs->trans('Disabled');
            }
          }
          if (!empty($conf->multicompany->enabled) && empty($conf->global->MULTICOMPANY_TRANSVERSE_MODE) && $conf->entity == 1 && $user->admin && !$user->entity) {
            if (!$obj->entity) {
              $moreinfo .= ($moreinfo ? ' - ' : ' (').$langs->trans("AllEntities");
            } else {
              if ($obj->entity != $conf->entity) {
                $moreinfo .= ($moreinfo ? ' - ' : ' (').($obj->label ? $obj->label : $langs->trans("EntityNameNotDefined"));
              }
            }
          }
          $moreinfo .= ($moreinfo ? ')' : '');
          if ($disableline && $disableline != '1') {
            $moreinfo .= ' - '.$disableline; // This is text from $enableonlytext parameter
          }
          $labeltoshow .= $moreinfo;

          $out .= '<option value="'.$obj->rowid.'"';
          if ($disableline) {
            $out .= ' disabled';
          }
          if ((is_object($selected) && $selected->id == $obj->rowid) || (!is_object($selected) && in_array($obj->rowid, $selected))) {
            $out .= ' selected';
          }
          $out .= ' data-html="';
          $outhtml = '';
          // if (!empty($obj->photo)) {
          $outhtml .= $userstatic->getNomUrl(-3, '', 0, 1, 24, 1, 'login', '', 1).' ';
          // }
          if ($showstatus >= 0 && $obj->status == 0) {
            $outhtml .= '<strike class="opacitymediumxxx">';
          }
          $outhtml .= $labeltoshow;
          if ($showstatus >= 0 && $obj->status == 0) {
            $outhtml .= '</strike>';
          }
          $out .= dol_escape_htmltag($outhtml);
          $out .= '">';
          $out .= $labeltoshow;
          $out .= '</option>';

          $outarray[$userstatic->id] = $userstatic->getFullName($langs, $fullNameMode, -1, $maxlength).$moreinfo;

          $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);
    }

    if ($outputmode) {
      return $outarray;
    }

    return $out;
  }


  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_dolusers_forevent($action = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = '', $enableonly = '', $force_entity = '0', $maxlength = 0, $showstatus = 0, $morefilter = '', $showproperties = 0, $listofuserid = array(), $listofcontactid = array(), $listofotherid = array())
  {
    // phpcs:enable
    global $conf, $user, $langs;

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


    $assignedtouser = array();
    if (!empty($_SESSION['assignedtouser'])) {
      $assignedtouser = json_decode($_SESSION['assignedtouser'], true);
    }
    $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 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
  public function select_produits($selected = '', $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) === '' && (!empty($conf->product->enabled) || !empty($conf->service->enabled))) {
      if (!empty($conf->product->enabled) && empty($conf->service->enabled)) {
        $filtertype = '0';
      } elseif (empty($conf->product->enabled) && !empty($conf->service->enabled)) {
        $filtertype = '1';
      }
    }

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

      if ($selected && empty($selected_input_value)) {
        require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
        $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 (empty($conf->product->enabled)) { // when product module is disabled, show services only
          $filtertype = 1;
        } elseif (empty($conf->service->enabled)) { // when service module is disabled, show products only
          $filtertype = 0;
        }
      }
      // mode=1 means customers products
      $urloption = 'htmlname='.$htmlname.'&outjson=1&price_level='.$price_level.'&type='.$filtertype.'&mode=1&status='.$status.'&status_purchase='.$status_purchase.'&finished='.$finished.'&hidepriceinlabel='.$hidepriceinlabel.'&warehousestatus='.$warehouseStatus;
      //Price by customer
      if (!empty($conf->global->PRODUIT_CUSTOMER_PRICES) && !empty($socid)) {
        $urloption .= '&socid='.$socid;
      }
      $out .= ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT.'/product/ajax/products.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 1, $ajaxoptions);

      if (!empty($conf->variants->enabled) && 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>
          // 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("'.DOL_URL_ROOT.'/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.' '.(!empty($conf->global->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

  public function select_bom($selected = '', $htmlname = 'bom_id', $limit = 0, $status = 1, $type = 1, $showempty = '1', $morecss = '', $nooutput = '', $forcecombo = 0)
  {
    // phpcs:enable
    global $conf, $user, $langs, $db;

    require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';

    $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 status = '. (int) $type;
    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);
        if ($obj->rowid == $selected) $out .= '<option value="'.$obj->rowid.'" selected>'.$obj->ref.' - '. $product->label .' - '.$obj->label.'</option>';
        $out .= '<option value="'.$obj->rowid.'">'.$obj->ref.' - '.$product->label .' - '. $obj->label.'</option>';
      }
    } else {
      $error++;
      dol_print_error($db);
    }
    if (empty($nooutput)) {
      print $out;
    } else {
      return $out;
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_produits_list($selected = '', $htmlname = 'productid', $filtertype = '', $limit = 20, $price_level = 0, $filterkey = '', $status = 1, $finished = 2, $outputmode = 0, $socid = 0, $showempty = '1', $forcecombo = 0, $morecss = '', $hidepriceinlabel = 0, $warehouseStatus = '', $status_purchase = -1)
  {
    // phpcs:enable
    global $langs, $conf;
    global $hookmanager;

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

    // Units
    if (!empty($conf->global->PRODUCT_USE_UNITS)) {
      $langs->load('other');
    }

    $warehouseStatusArray = array();
    if (!empty($warehouseStatus)) {
      require_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';
      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 ";
    $sql .= $selectFields.$selectFieldsGrouped;

    if (!empty($conf->global->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 (!empty($conf->global->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 (!empty($conf->global->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 (!empty($conf->global->MAIN_MULTILANGS)) {
      $sql .= ", pl.label as label_translated";
      $sql .= ", pl.description as description_translated";
      $selectFields .= ", label_translated";
      $selectFields .= ", description_translated";
    }
    // Price by quantity
    if (!empty($conf->global->PRODUIT_CUSTOMER_PRICES_BY_QTY) || !empty($conf->global->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 && !empty($conf->global->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 && !empty($conf->global->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 (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 (!empty($conf->global->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 (!empty($conf->global->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 (!empty($conf->global->PRODUCT_USE_UNITS)) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."c_units u ON u.rowid = p.fk_unit";
    }
    // Multilang : we add translation
    if (!empty($conf->global->MAIN_MULTILANGS)) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."product_lang as pl ON pl.fk_product = p.rowid ";
      if (!empty($conf->global->PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE) && !empty($socid)) {
        require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
        $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 (!empty($conf->global->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 (!empty($conf->global->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);
      }
    } elseif ($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 (empty($conf->product->enabled)) { // when product module is disabled, show services only
      $sql .= " AND p.fk_product_type = 1";
    } elseif (empty($conf->service->enabled)) { // 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 = empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE) ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $scrit = explode(' ', $filterkey);
      $i = 0;
      if (count($scrit) > 1) {
        $sql .= "(";
      }
      foreach ($scrit 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 (!empty($conf->global->MAIN_MULTILANGS)) {
          $sql .= " OR pl.label LIKE '".$this->db->escape($prefix.$crit)."%'";
        }
        if (!empty($conf->global->PRODUIT_CUSTOMER_PRICES) && ! empty($socid)) {
          $sql .= " OR pcp.ref_customer LIKE '".$this->db->escape($prefix.$crit)."%'";
        }
        if (!empty($conf->global->PRODUCT_AJAX_SEARCH_ON_DESCRIPTION)) {
          $sql .= " OR p.description LIKE '".$this->db->escape($prefix.$crit)."%'";
          if (!empty($conf->global->MAIN_MULTILANGS)) {
            $sql .= " OR pl.description LIKE '".$this->db->escape($prefix.$crit)."%'";
          }
        }
        if (!empty($conf->global->MAIN_SEARCH_PRODUCT_BY_FOURN_REF)) {
          $sql .= " OR pfp.ref_fourn LIKE '".$this->db->escape($prefix.$crit)."%'";
        }
        $sql .= ")";
        $i++;
      }
      if (count($scrit) > 1) {
        $sql .= ")";
      }
      if (!empty($conf->barcode->enabled)) {
        $sql .= " OR p.barcode LIKE '".$this->db->escape($prefix.$filterkey)."%'";
      }
      $sql .= ')';
    }
    if (count($warehouseStatusArray)) {
      $sql .= " GROUP BY ".$selectFields;
    }

    //Sort by category
    if (!empty($conf->global->PRODUCT_SORT_BY_CATEGORY)) {
      $sql .= " ORDER BY categorie_product_id ";
      //ASC OR DESC order
      ($conf->global->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_class($this)."::select_produits_list search products", LOG_DEBUG);
    $result = $this->db->query($sql);
    if ($result) {
      require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
      require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_parser.class.php';
      require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';

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

      $events = null;

      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 (!empty($conf->global->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 ((!empty($conf->global->PRODUIT_CUSTOMER_PRICES_BY_QTY) || !empty($conf->global->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_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 (!empty($conf->dynamicprices->enabled) && !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 = 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);
    }
  }

  protected function constructProductListOption(&$objp, &$opt, &$optJson, $price_level, $selected, $hidepriceinlabel = 0, $filterkey = '', $novirtualstock = 0)
  {
    global $langs, $conf, $user;

    $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 = (empty($conf->global->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 (!empty($conf->global->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 && !empty($conf->global->PRODUCT_SHOW_ORIGIN_IN_COMBO)) {
      require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
    }

    // Units
    $outvalUnits = '';
    if (!empty($conf->global->PRODUCT_USE_UNITS)) {
      if (!empty($objp->unit_short)) {
        $outvalUnits .= ' - '.$objp->unit_short;
      }
    }
    if (!empty($conf->global->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 (!empty($conf->stock->enabled) && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || !empty($conf->global->STOCK_SUPPORTS_SERVICES))) {
      if (!empty($user->rights->stock->lire)) {
        if ($objp->stock > 0) {
          $opt .= ' class="product_line_stock_ok"';
        } elseif ($objp->stock <= 0) {
          $opt .= ' class="product_line_stock_too_low"';
        }
      }
    }
    if (!empty($conf->global->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 && !empty($conf->global->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 && !empty($conf->global->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 && (!empty($conf->global->PRODUIT_MULTIPRICES) || !empty($conf->global->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_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 (!empty($conf->global->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 && (!empty($conf->global->PRODUIT_CUSTOMER_PRICES_BY_QTY) || !empty($conf->global->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) && !empty($conf->global->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 (!empty($conf->stock->enabled) && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || !empty($conf->global->STOCK_SUPPORTS_SERVICES))) {
      if (!empty($user->rights->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) && !empty($conf->global->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);
        }
      }
    }

    $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),
      '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
  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) && !empty($conf->global->PRODUIT_USE_SEARCH_TO_SELECT)) {
      if ($selected > 0) {
        require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
        $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, DOL_URL_ROOT.'/product/ajax/products.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 0, $ajaxoptions);
      print ($hidelabel ? '' : $langs->trans("RefOrLabel").' : ').'<input type="text" class="minwidth300" 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
  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 = (empty($conf->global->PRODUCT_MAX_LENGTH_COMBO) ? 48 : $conf->global->PRODUCT_MAX_LENGTH_COMBO);

    $langs->load('stocks');
    // Units
    if (!empty($conf->global->PRODUCT_USE_UNITS)) {
      $langs->load('other');
    }

    $sql = "SELECT p.rowid, p.ref, p.label, p.price, p.duration, p.fk_product_type, p.stock,";
    $sql .= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.remise_percent, pfp.remise, pfp.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 (!empty($conf->global->PRODUIT_FOURN_TEXTS)) {
      $sql .= " ,pfp.desc_fourn as description";
    } else {
      $sql .= " ,p.description";
    }
    // Units
    if (!empty($conf->global->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";
    }
    if (!empty($conf->barcode->enabled)) {
      $sql .= ", pfp.barcode";
    }
    $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 (!empty($conf->global->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 = empty($conf->global->PRODUCT_DONOTSEARCH_ANYWHERE) ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $scrit = explode(' ', $filterkey);
      $i = 0;
      if (count($scrit) > 1) {
        $sql .= "(";
      }
      foreach ($scrit 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 (!empty($conf->global->PRODUIT_FOURN_TEXTS)) {
          $sql .= " OR pfp.desc_fourn LIKE '".$this->db->escape($prefix.$crit)."%'";
        }
        $sql .= ")";
        $i++;
      }
      if (count($scrit) > 1) {
        $sql .= ")";
      }
      if (!empty($conf->barcode->enabled)) {
        $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_class($this)."::select_produits_fournisseurs_list", LOG_DEBUG);
    $result = $this->db->query($sql);
    if ($result) {
      require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_parser.class.php';
      require_once 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);

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

        $outref = $objp->ref;
        $outval = '';
        $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 (!empty($conf->global->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);
        }

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

        $outvallabel = $objRef;
        if (!empty($objp->idprodfournprice) && ($objp->ref != $objp->ref_fourn)) {
          $outvallabel .= ' ('.$objRefFourn.')';
        }
        if (!empty($conf->barcode->enabled) && !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 (!empty($conf->dynamicprices->enabled) && !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 * (!empty($conf->global->DISPLAY_DISCOUNTED_SUPPLIER_PRICE) ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency)."/";
            $outvallabel .= ' - '.price($objp->fprice * (!empty($conf->global->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 * (!empty($conf->global->DISPLAY_DISCOUNTED_SUPPLIER_PRICE) ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency)."/".$objp->quantity;
            $outvallabel .= ' - '.price($objp->fprice * (!empty($conf->global->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 * (!empty($conf->global->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 * (!empty($conf->global->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 {
          if (empty($alsoproductwithnosupplierprice)) {     // No supplier price defined for couple product/supplier
            $optlabel .= " - <span class='opacitymedium'>".$langs->trans("NoPriceDefinedForThisSupplier").'</span>';
            $outvallabel .= ' - '.$langs->transnoentities("NoPriceDefinedForThisSupplier");
          } else // No supplier price defined for product, even on other suppliers
          {
            $optlabel .= " - <span class='opacitymedium'>".$langs->trans("NoPriceDefinedForThisSupplier").'</span>';
            $outvallabel .= ' - '.$langs->transnoentities("NoPriceDefinedForThisSupplier");
          }
        }

        if (!empty($conf->stock->enabled) && $showstockinlist && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || !empty($conf->global->STOCK_SUPPORTS_SERVICES))) {
          $novirtualstock = ($showstockinlist == 2);

          if (!empty($user->rights->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) && !empty($conf->global->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);
            }
          }
        }

        $opt = '<option value="'.$outkey.'"';
        if ($selected && $selected == $objp->idprodfournprice) {
          $opt .= ' selected';
        }
        if (empty($objp->idprodfournprice) && empty($alsoproductwithnosupplierprice)) {
          $opt .= ' disabled';
        }
        if (!empty($objp->idprodfournprice) && $objp->idprodfournprice > 0) {
          $opt .= ' data-product-id="'.$objp->rowid.'" data-price-id="'.$objp->idprodfournprice.'" data-qty="'.$objp->quantity.'" data-up="'.$objp->unitprice.'" data-discount="'.$outdiscount.'" data-tvatx="'.$objp->tva_tx.'"';
        }
        $opt .= ' data-description="'.dol_escape_htmltag($objp->description, 0, 1).'"';
        $opt .= ' data-html="'.dol_escape_htmltag($optlabel).'"';
        $opt .= '>';

        $opt .= $optlabel;
        $outval .= $outvallabel;

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

        // 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 .= $opt;
        array_push(
          $outarray,
          array('key'=>$outkey,
            'value'=>$outref,
            'label'=>$outval,
            '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'=>$objp->tva_tx,
            'default_vat_code'=>$objp->default_vat_code,
            'discount'=>$outdiscount,
            'type'=>$outtype,
            'duration_value'=>$outdurationvalue,
            'duration_unit'=>$outdurationunit,
            'disabled'=>(empty($objp->idprodfournprice) ? true : false),
            'description'=>$objp->description
          )
        );
        // Exemple 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);

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

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_product_fourn_price($productid, $htmlname = 'productfournpriceid', $selected_supplier = '')
  {
    // 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);
    $sql .= " ORDER BY s.nom, pfp.ref_fourn DESC";

    dol_syslog(get_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 {
        require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_parser.class.php';
        $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)) {
            $opt .= ' selected';
          }
          $opt .= '>'.$objp->name.' - '.$objp->ref_fourn.' - ';

          if (!empty($conf->dynamicprices->enabled) && !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 * (!empty($conf->global->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 * (!empty($conf->global->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);
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_address($selected, $socid, $htmlname = 'address_id', $showempty = 0)
  {
    // phpcs:enable
    // looking for users
    $sql = "SELECT a.rowid, a.label";
    $sql .= " FROM ".$this->db->prefix()."societe_address as a";
    $sql .= " WHERE a.fk_soc = ".((int) $socid);
    $sql .= " ORDER BY a.label ASC";

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

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

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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 defaut
        $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
  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 defaut
        $label = ($langs->trans("AvailabilityType".$obj->code) != ("AvailabilityType".$obj->code) ? $langs->trans("AvailabilityType".$obj->code) : ($obj->label != '-' ? $obj->label : ''));
        $this->cache_availability[$obj->rowid]['code'] = $obj->code;
        $this->cache_availability[$obj->rowid]['label'] = $label;
        $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;
    }
  }

  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);
  }

  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 defaut
        $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;
    }
  }

  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);
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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 defaut
        $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
  public function select_conditions_paiements($selected = 0, $htmlname = 'condid', $filtertype = -1, $addempty = 0, $noinfoadmin = 0, $morecss = '', $deposit_percent = -1)
  {
    // phpcs:enable
    print $this->getSelectConditionsPaiements($selected, $htmlname, $filtertype, $addempty, $noinfoadmin, $morecss, $deposit_percent = -1);
  }


  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) && !empty($conf->global->MAIN_DEFAULT_PAYMENT_TERM_ID)) {
      $selected = $conf->global->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="' . strval($deposit_percent) . '" />';
      $out .= '</span>';
      $out .= '
        <script>
          $(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
  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) && !empty($conf->global->MAIN_DEFAULT_PAYMENT_TYPE_ID)) {
      $selected = $conf->global->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;
      }

      // On passe si on a demande de filtrer sur des modes de paiments particuliers
      if (count($filterarray) && !in_array($arraytypes['type'], $filterarray)) {
        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) {
        $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;
    }
  }


  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;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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;
    }
  }

  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);
    }
  }

  public function selectShippingMethod($selected = '', $htmlname = 'shipping_method_id', $filtre = '', $useempty = 0, $moreattrib = '', $noinfoadmin = 0, $morecss = '')
  {
    global $langs, $conf, $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_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);
    }
  }

  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;";
      }
    }
  }

  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;
  }

  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;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_comptes($selected = '', $htmlname = 'accountid', $status = 0, $filtre = '', $useempty = 0, $moreattrib = '', $showcurrency = 0, $morecss = '', $nooutput = 0)
  {
    // phpcs:enable
    global $langs, $conf;

    $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) {
      $sql .= " AND ".$filtre;
    }
    $sql .= " ORDER BY label";

    dol_syslog(get_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 ($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;
  }

  public function selectEstablishments($selected = '', $htmlname = 'entity', $status = 0, $filtre = '', $useempty = 0, $moreattrib = '')
  {
    global $langs, $conf;

    $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) {
      $sql .= " AND ".$filtre;
    }
    $sql .= " ORDER BY name";

    dol_syslog(get_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>';
        }
      }
    } else {
      dol_print_error($this->db);
    }
  }

  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) {
        require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
        $bankstatic = new Account($this->db);
        $result = $bankstatic->fetch($selected);
        if ($result) {
          print $bankstatic->getNomUrl(1);
        }
      } else {
        print "&nbsp;";
      }
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_all_categories($type, $selected = '', $htmlname = "parent", $maxlength = 64, $markafterid = 0, $outputmode = 0, $include = 0, $morecss = '')
  {
    // phpcs:enable
    global $conf, $langs;
    $langs->load("categories");

    include_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';

    // 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);
          }
          $i++;
        }
        $this->db->free($result);
      } else {
        dol_print_error($this->db);
      }
    } else {
      $cat = new Categorie($this->db);
      $cate_arbo = $cat->get_full_arbo($type, $markafterid, $include);
    }

    $output = '<select class="flat'.($morecss ? ' '.$morecss : '').'" name="'.$htmlname.'" id="'.$htmlname.'">';
    $outarray = array();
    if (is_array($cate_arbo)) {
      if (!count($cate_arbo)) {
        $output .= '<option value="-1" disabled>'.$langs->trans("NoCategoriesDefined").'</option>';
      } else {
        $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 = '';
          }
          $output .= '<option '.$add.'value="'.$cate_arbo[$key]['id'].'">'.dol_trunc($cate_arbo[$key]['fulllabel'], $maxlength, 'middle').'</option>';

          $outarray[$cate_arbo[$key]['id']] = $cate_arbo[$key]['fulllabel'];
        }
      }
    }
    $output .= '</select>';
    $output .= "\n";

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

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function form_confirm($page, $title, $question, $action, $formquestion = '', $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);
  }

  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 calling 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="'.$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="'.$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 ($input['type'] == 'select') {
            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">';
            }
            $more .= $this->selectarray($input['name'], $input['values'], isset($input['default'])?$input['default']:'', $show_empty, $key_in_label, $value_as_key, $moreattr, $translate, $maxlen, $disabled, $sort, $morecss);
            $more .= '</div></div>'."\n";
          } elseif ($input['type'] == 'checkbox') {
            $more .= '<div class="tagtr">';
            $more .= '<div class="tagtd'.(empty($input['tdclass']) ? '' : (' '.$input['tdclass'])).'">'.$input['label'].' </div><div class="tagtd">';
            $more .= '<input type="checkbox" class="flat'.$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 ($i == 0) {
                $more .= '<div class="tagtd'.(empty($input['tdclass']) ? ' tdtop' : (' tdtop '.$input['tdclass'])).'">'.$input['label'].'</div>';
              } else {
                $more .= '<div clas="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') {
            $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);
            $more .= $this->selectDate($input['value'], $input['name'], 0, 0, 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') {
            $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.
          if (isset($input['inputko']) && $input['inputko'] == 1) {
            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) && !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('', '').' '.$question.'</div>' : '');
      $formconfirm .= '</div>'."\n";

      $formconfirm .= "\n<!-- begin code of popup for formconfirm page=".$page." -->\n";
      $formconfirm .= '<script 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 (empty($useajax)) {
        $jsforcursor = '// The call to urljump can be slow, so we set the wait cursor'."\n";
        $jsforcursor .= 'jQuery("html,body,#id-container").addClass("cursorwait");'."\n";
      }

      $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 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) {
              '.$jsforcursor.'
                location.href = urljump;
                console.log("after location.href");
              }
                          $(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 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) {
              '.$jsforcursor.'
                location.href = urljump;
                console.log("after location.href");
              }
                            $(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('', 'recent').' '.$title;
      $formconfirm .= '</td></tr>'."\n";

      // Line text
      if (is_array($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 type="text/javascript">'."\n";
        $formconfirm .= '
        $(document).ready(function () {
          $(".confirmvalidatebutton").on("click", function() {
            console.log("We click on button");
            $(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
  public function form_project($page, $socid, $selected = '', $htmlname = 'projectid', $discard_closed = 0, $maxlength = 20, $forcefocus = 0, $nooutput = 0)
  {
    // phpcs:enable
    global $langs;

    require_once DOL_DOCUMENT_ROOT.'/core/lib/project.lib.php';
    require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';

    $out = '';

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

    $langs->load("project");
    if ($htmlname != "none") {
      $out .= "\n";
      $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);
      $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(1, '', 1);
      } else {
        $out .= "&nbsp;";
      }
      $out .= '</span>';
    }

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

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function form_conditions_reglement($page, $selected = '', $htmlname = 'cond_reglement_id', $addempty = 0, $type = '', $filtertype = -1, $deposit_percent = -1)
  {
    // phpcs:enable
    global $langs;
    if ($htmlname != "none") {
      print '<form method="POST" action="'.$page.'">';
      print '<input type="hidden" name="action" value="setconditions">';
      print '<input type="hidden" name="token" value="'.newToken().'">';
      if ($type) {
        print '<input type="hidden" name="type" value="'.dol_escape_htmltag($type).'">';
      }
      $this->select_conditions_paiements($selected, $htmlname, $filtertype, $addempty, 0, '', $deposit_percent);
      print '<input type="submit" class="button valignmiddle smallpaddingimp" value="'.$langs->trans("Modify").'">';
      print '</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);
          }

          print $label;
        } else {
          $langs->load('errors');
          print $langs->trans('ErrorNotInDictionaryPaymentConditions');
        }
      } else {
        print "&nbsp;";
      }
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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;";
      }
    }
  }

  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
  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
  public function form_users($page, $selected = '', $htmlname = 'userid', $exclude = '', $include = '')
  {
    // 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) {
        require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
        $theuser = new User($this->db);
        $theuser->fetch($selected);
        print $theuser->getNomUrl(1);
      } else {
        print "&nbsp;";
      }
    }
  }


  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function form_modes_reglement($page, $selected = '', $htmlname = 'mode_reglement_id', $filtertype = '', $active = 1, $addempty = 0, $type = '')
  {
    // phpcs:enable
    global $langs;
    if ($htmlname != "none") {
      print '<form method="POST" action="'.$page.'">';
      print '<input type="hidden" name="action" value="setmode">';
      print '<input type="hidden" name="token" value="'.newToken().'">';
      if ($type) {
        print '<input type="hidden" name="type" value="'.dol_escape_htmltag($type).'">';
      }
      print $this->select_types_paiements($selected, $htmlname, $filtertype, 0, $addempty, 0, 0, $active, '', 1);
      print '<input type="submit" class="button smallpaddingimp valignmiddle" value="'.$langs->trans("Modify").'">';
      print '</form>';
    } else {
      if ($selected) {
        $this->load_cache_types_paiements();
        print $this->cache_types_paiements[$selected]['label'];
      } else {
        print "&nbsp;";
      }
    }
  }

  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
  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 {
      dol_include_once('/core/lib/company.lib.php');
      print !empty($selected) ? currency_name($selected, 1) : '&nbsp;';
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function form_multicurrency_rate($page, $rate = '', $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, 1, 0);
        if ($currency && $rate != 1) {
          print ' &nbsp; ('.price($rate, 1, $langs, 1, 0).' '.$currency.' = 1 '.$conf->currency.')';
        }
      } else {
        print 1;
      }
    }
  }


  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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 (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
          if (!$filter || $filter == "fk_invoice_supplier_source IS NULL") {
            $translationKey = 'HasAbsoluteDiscountFromSupplier'; // If we want deposit to be substracted 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 (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
          if (!$filter || $filter == "fk_facture_source IS NULL") {
            $translationKey = 'CompanyHasAbsoluteDiscount'; // If we want deposit to be substracted 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
  public function form_contacts($page, $societe, $selected = '', $htmlname = 'contactid')
  {
    // phpcs:enable
    global $langs, $conf;

    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 = (!empty($conf->global->SOCIETE_ADDRESSES_MANAGEMENT) ? $langs->trans("AddContact") : $langs->trans("AddContactAddress"));
        print '<a href="'.DOL_URL_ROOT.'/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) {
        require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
        $contact = new Contact($this->db);
        $contact->fetch($selected);
        print $contact->getFullName($langs);
      } else {
        print "&nbsp;";
      }
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function form_thirdparty($page, $selected = '', $htmlname = 'socid', $filter = '', $showempty = 0, $showtype = 0, $forcecombo = 0, $events = array(), $nooutput = 0, $excludeids = array())
  {
    // 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) {
        require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
        $soc = new Societe($this->db);
        $soc->fetch($selected);
        $out .= $soc->getNomUrl($langs);
      } else {
        $out .= "&nbsp;";
      }
    }

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

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_currency($selected = '', $htmlname = 'currency_id')
  {
    // phpcs:enable
    print $this->selectCurrency($selected, $htmlname);
  }

  public function selectCurrency($selected = '', $htmlname = 'currency_id', $mode = 0, $useempty = '')
  {
    global $conf, $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;
  }

  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;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function load_cache_vatrates($country_code)
  {
    // phpcs:enable
    global $langs;

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

    dol_syslog(__METHOD__, LOG_DEBUG);

    $sql = "SELECT DISTINCT t.rowid, 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 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);
          $this->cache_vatrates[$i]['rowid']  = $obj->rowid;
          $this->cache_vatrates[$i]['code'] = $obj->code;
          $this->cache_vatrates[$i]['txtva']  = $obj->taux;
          $this->cache_vatrates[$i]['nprtva'] = $obj->recuperableonly;
          $this->cache_vatrates[$i]['localtax1']      = $obj->localtax1;
          $this->cache_vatrates[$i]['localtax1_type'] = $obj->localtax1_type;
          $this->cache_vatrates[$i]['localtax2']      = $obj->localtax2;
          $this->cache_vatrates[$i]['localtax2_type'] = $obj->localtax1_type;

          $this->cache_vatrates[$i]['label'] = $obj->taux.'%'.($obj->code ? ' ('.$obj->code.')' : ''); // Label must contains only 0-9 , . % or *
          $this->cache_vatrates[$i]['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';
          }
          $this->cache_vatrates[$i]['labelpositiverates'] = $positiverates.($obj->code ? ' ('.$obj->code.')' : ''); // Must never be used as key, only label
        }

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

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function load_tva($htmlname = 'tauxtva', $selectedrate = '', $societe_vendeuse = '', $societe_acheteuse = '', $idprod = 0, $info_bits = 0, $type = '', $options_only = false, $mode = 0)
  {
    // phpcs:enable
    global $langs, $conf, $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 (!empty($conf->global->SERVICE_ARE_ECOMMERCE_200238EC)) {    // If option to have vat for end customer for services is on
      require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
      if (!isInEEC($societe_vendeuse) && (!is_object($societe_acheteuse) || (isInEEC($societe_acheteuse) && !$societe_acheteuse->isACompany()))) {
        // We also add the buyer
        if (is_numeric($type)) {
          if ($type == 1) { // We know product is a service
            $code_country .= ",'".$societe_acheteuse->country_code."'";
          }
        } elseif (!$idprod) {  // We don't know type of product
          $code_country .= ",'".$societe_acheteuse->country_code."'";
        } 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 get list
    $num = $this->load_cache_vatrates($code_country); // If no vat defined, return -1 with message into this->error

    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;
        }
      }

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

      // 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 (empty($conf->global->EXPENSEREPORT_OVERRIDE_VAT)) {
          $title = ' title="'.$langs->trans('VATIsNotUsed').'"';
          $disabled = true;
        }
      }

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

      $selectedfound = false;
      foreach ($this->cache_vatrates 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 .= '>';
        //if (! empty($conf->global->MAIN_VAT_SHOW_POSITIVE_RATES))
        if ($mysoc->country_code == 'IN' || !empty($conf->global->MAIN_VAT_LABEL_IS_POSITIVE_RATES)) {
          $return .= $rate['labelpositiverates'];
        } else {
          $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>';
      }
    } else {
      $return .= $this->error;
    }

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


  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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 = '', $addplusone = '', $adddateof = '')
  {
    // phpcs:enable
    $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;
  }

  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;
  }

  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 = !isset($conf->global->MAIN_DEFAULT_DATE_HOUR) ? ($h == -1 ? '23' : '') : $conf->global->MAIN_DEFAULT_DATE_HOUR;
      $smin = !isset($conf->global->MAIN_DEFAULT_DATE_MIN) ? ($h == -1 ? '59' : '') : $conf->global->MAIN_DEFAULT_DATE_MIN;
      $ssec = !isset($conf->global->MAIN_DEFAULT_DATE_SEC) ? ($h == -1 ? '59' : '') : $conf->global->MAIN_DEFAULT_DATE_SEC;
    }
    if ($h == 3) {
      $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) && (empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR != "none")) {
      $usecalendar = ((empty($conf->global->MAIN_POPUP_CALENDAR) || $conf->global->MAIN_POPUP_CALENDAR == 'eldy') ? 'jquery' : $conf->global->MAIN_POPUP_CALENDAR);
    }

    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" 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 .= '>';

          // Icon calendar
          $retstringbuttom = '';
          if (!$disabled) {
            $retstringbuttom = '<button id="'.$prefix.'Button" type="button" class="dpInvisibleButtons"';
            $base = DOL_URL_ROOT.'/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') {
          if (!$disabled) {
            // Output javascript for datepicker
            $minYear = getDolGlobalString('MIN_YEAR_SELECT_DATE', date('Y') - 100);
            $maxYear = getDolGlobalString('MAX_YEAR_SELECT_DATE', date('Y') + 100);

            $retstring .= "<script 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 (empty($conf->global->MAIN_POPUP_CALENDAR_ON_FOCUS)) {
              $retstring .= "
                showOn: 'button', /* both has problem with autocompletion */
                buttonImage: '".DOL_URL_ROOT."/theme/".dol_escape_js($conf->theme)."/img/object_calendarday.png',
                buttonImageOnly: true";
            }
            $retstring .= "
              }) });";
            $retstring .= "</script>";
          }

          // Zone de saisie manuelle de la date
          $retstring .= '<div class="nowrap inline-block divfordateinput">';
          $retstring .= '<input id="'.$prefix.'" name="'.$prefix.'" type="text" class="maxwidthdate" 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 .= '>';

          // Icone calendrier
          if (!$disabled) {
            /* Not required. Managed by option buttonImage of jquery
            $retstring.=img_object($langs->trans("SelectDate"),'calendarday','id="'.$prefix.'id" class="datecallink"');
            $retstring.="<script type='text/javascript'>";
            $retstring.="jQuery(document).ready(function() {";
            $retstring.=' jQuery("#'.$prefix.'id").click(function() {';
            $retstring.="     jQuery('#".$prefix."').focus();";
            $retstring.='    });';
            $retstring.='});';
            $retstring.="</script>";*/
          } else {
            $retstringbutton = '<button id="'.$prefix.'Button" type="button" class="dpInvisibleButtons">'.img_object($langs->trans("Disabled"), 'calendarday', 'class="datecallink"').'</button>';
            $retsring = $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">';

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

    if ($d && $h) {
      $retstring .= ($h == 2 ? '<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) {
        if (strlen($min) < 2) {
          $min = "0".$min;
        }
        $retstring .= '<option value="'.$min.'"'.(($min == $smin) ? ' selected' : '').'>'.$min.(empty($conf->dol_optimize_smallscreen) ? '' : '').'</option>';
      }
      $retstring .= '</select>';

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

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

    // Add a "Now" link
    if ($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 && empty($conf->dol_optimize_smallscreen)) {
        $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 && $adddateof) {
      $tmparray = dol_getdate($adddateof);
      if (empty($labeladddateof)) {
        $labeladddateof = $langs->trans("DateInvoice");
      }
      $retstring .= ' - <button class="dpInvisibleButtons datenowlink" id="dateofinvoice" type="button" name="_dateofinvoice" value="now" onclick="console.log(\'Click on now link\'); jQuery(\'#re\').val(\''.dol_print_date($adddateof, 'dayinputnoreduce').'\');jQuery(\'#reday\').val(\''.$tmparray['mday'].'\');jQuery(\'#remonth\').val(\''.$tmparray['mon'].'\');jQuery(\'#reyear\').val(\''.$tmparray['year'].'\');">'.$labeladddateof.'</a>';
    }

    return $retstring;
  }

  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;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_duration($prefix, $iSecond = '', $disabled = 0, $typehour = 'select', $minunderhours = 0, $nooutput = 0)
  {
    // phpcs:enable
    global $langs;

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

    $hourSelected = 0;
    $minSelected = 0;

    // Hours
    if ($iSecond != '') {
      require_once 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 ($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" 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 {
      $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 = $min + 5) {
        $retstring .= '<option value="'.$min.'"';
        if ($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" value="'.(($minSelected != '') ? ((int) $minSelected) : '').'">';
    }

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

    $retstring.="</span>";

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

    print $retstring;
    return;
  }

  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) && !empty($conf->global->TICKET_USE_SEARCH_TO_SELECT)) {
      $placeholder = '';

      if ($selected && empty($selected_input_value)) {
        require_once DOL_DOCUMENT_ROOT.'/ticket/class/ticket.class.php';
        $tickettmpselect = new Ticket($this->db);
        $tickettmpselect->fetch($selected);
        $selected_input_value = $tickettmpselect->ref;
        unset($tickettmpselect);
      }

      $urloption = '';
      $out .= ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT.'/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.' '.(!empty($conf->global->PRODUCT_SEARCH_AUTOFOCUS) ? 'autofocus' : '').' />';
      if ($hidelabel == 3) {
        $out .= img_picto($langs->trans("Search"), 'search');
      }
    } else {
      $out .= $this->selectTicketsList($selected, $htmlname, $filtertype, $limit, $status, 0, $socid, $showempty, $forcecombo, $morecss);
    }

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


  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 = empty($conf->global->TICKET_DONOTSEARCH_ANYWHERE) ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $scrit = explode(' ', $filterkey);
      $i = 0;
      if (count($scrit) > 1) $sql .= "(";
      foreach ($scrit 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($scrit) > 1) $sql .= ")";
      $sql .= ')';
    }

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

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

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

      $events = null;

      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 (!empty($conf->global->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);
    }
  }

  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);
  }

  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) && !empty($conf->global->TICKET_USE_SEARCH_TO_SELECT)) {
      $placeholder = '';

      if ($selected && empty($selected_input_value)) {
        require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
        $projecttmpselect = new Project($this->db);
        $projecttmpselect->fetch($selected);
        $selected_input_value = $projecttmpselect->ref;
        unset($projecttmpselect);
      }

      $out .= ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT.'/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.' '.(!empty($conf->global->PRODUCT_SEARCH_AUTOFOCUS) ? 'autofocus' : '').' />';
      if ($hidelabel == 3) {
        $out .= img_picto($langs->trans("Search"), 'search');
      }
    } else {
      $out .= $this->selectProjectsList($selected, $htmlname, $filtertype, $limit, $status, 0, $socid, $showempty, $forcecombo, $morecss);
    }

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

  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 = empty($conf->global->TICKET_DONOTSEARCH_ANYWHERE) ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $scrit = explode(' ', $filterkey);
      $i = 0;
      if (count($scrit) > 1) $sql .= "(";
      foreach ($scrit as $crit) {
        if ($i > 0) $sql .= " AND ";
        $sql .= "p.ref LIKE '".$this->db->escape($prefix.$crit)."%'";
        $sql .= "";
        $i++;
      }
      if (count($scrit) > 1) $sql .= ")";
      $sql .= ')';
    }

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

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

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

      $events = null;

      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 (!empty($conf->global->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);
    }
  }

  protected function constructProjectListOption(&$objp, &$opt, &$optJson, $selected, $filterkey = '')
  {
    $outkey = '';
    $outval = '';
    $outref = '';
    $outlabel = '';
    $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);
    $outval .= $objRef;

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


  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) && !empty($conf->global->TICKET_USE_SEARCH_TO_SELECT)) {
      $placeholder = '';
      $urloption = '';

      if ($selected && empty($selected_input_value)) {
        require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
        $adherenttmpselect = new Adherent($this->db);
        $adherenttmpselect->fetch($selected);
        $selected_input_value = $adherenttmpselect->ref;
        unset($adherenttmpselect);
      }

      $urloption = '';

      $out .= ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT.'/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.' '.(!empty($conf->global->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;
  }

  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";

    $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 = empty($conf->global->MEMBER_DONOTSEARCH_ANYWHERE) ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $scrit = explode(' ', $filterkey);
      $i = 0;
      if (count($scrit) > 1) $sql .= "(";
      foreach ($scrit 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($scrit) > 1) $sql .= ")";
      $sql .= ')';
    }
    if ($status != -1) {
      $sql .= ' AND statut = '.((int) $status);
    }
    $sql .= $this->db->plimit($limit, 0);

    // Build output string
    dol_syslog(get_class($this)."::selectMembersList search adherents", LOG_DEBUG);
    $result = $this->db->query($sql);
    if ($result) {
      require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
      require_once DOL_DOCUMENT_ROOT.'/core/lib/member.lib.php';

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

      $events = null;

      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 (!empty($conf->global->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);
    }
  }

  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);
  }

  public function selectForForms($objectdesc, $htmlname, $preselectedvalue, $showempty = '', $searchkey = '', $placeholder = '', $morecss = '', $moreparams = '', $forcecombo = 0, $disabled = 0, $selected_input_value = '')
  {
    global $conf, $user;

    $objecttmp = null;

    // Example of value for $objectdec:
    // 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):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 = $InfoFieldList[1];
    $addcreatebuttonornot = empty($InfoFieldList[2]) ? 0 : $InfoFieldList[2];
    $filter = empty($InfoFieldList[3]) ? '' : $InfoFieldList[3];
    $sortfield = empty($InfoFieldList[4]) ? '' : $InfoFieldList[4];

    if (!empty($classpath)) {
      dol_include_once($classpath);

      if ($classname && class_exists($classname)) {
        $objecttmp = new $classname($this->db);
        // Make some replacement
        $sharedentities = getEntity(strtolower($classname));
        $objecttmp->filter = str_replace(
          array('__ENTITY__', '__SHARED_ENTITIES__', '__USER_ID__'),
          array($conf->entity, $sharedentities, $user->id),
          $filter
        );
      }
    }
    if (!is_object($objecttmp)) {
      dol_syslog('Error bad setup of type for field '.$InfoFieldList, LOG_WARNING);
      return 'Error bad setup of type for field '.join(',', $InfoFieldList);
    }

    //var_dump($objecttmp->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_class($this)."::selectForForms object->filter=".$objecttmp->filter, LOG_DEBUG);
    $out = '';
    if (!empty($conf->use_javascript_ajax) && !empty($conf->global->$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);
        //unset($objecttmp);
      }

      $objectdesc = $classname.':'.$classpath.':'.$addcreatebuttonornot.':'.$filter;
      $urlforajaxcall = DOL_URL_ROOT.'/core/ajax/selectobject.php';

      // No immediate load of all database
      $urloption = 'htmlname='.urlencode($htmlname).'&outjson=1&objectdesc='.urlencode($objectdesc).'&filter='.urlencode($objecttmp->filter).($sortfield ? '&sortfield='.urlencode($sortfield) : '');
      // Activate the auto complete using ajax call.
      $out .= ajax_autocompleter($preselectedvalue, $htmlname, $urlforajaxcall, $urloption, $conf->global->$confkeyforautocompletemode, 0, array());
      $out .= '<style type="text/css">.ui-autocomplete { z-index: 1003; }</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. Note: filter is inside $objecttmp->filter
      $out .= $this->selectForFormsList($objecttmp, $htmlname, $preselectedvalue, $showempty, $searchkey, $placeholder, $morecss, $moreparams, $forcecombo, 0, $disabled, $sortfield);
    }

    return $out;
  }

  protected static function forgeCriteriaCallback($matches)
  {
    global $db;

    //dol_syslog("Convert matches ".$matches[1]);
    if (empty($matches[1])) {
      return '';
    }
    $tmp = explode(':', $matches[1]);
    if (count($tmp) < 3) {
      return '';
    }

    $tmpescaped = $tmp[2];
    $regbis = array();
    if (preg_match('/^\'(.*)\'$/', $tmpescaped, $regbis)) {
      $tmpescaped = "'".$db->escape($regbis[1])."'";
    } else {
      $tmpescaped = $db->escape($tmpescaped);
    }
    return $db->escape($tmp[0]).' '.strtoupper($db->escape($tmp[1]))." ".$tmpescaped;
  }

  public function selectForFormsList($objecttmp, $htmlname, $preselectedvalue, $showempty = '', $searchkey = '', $placeholder = '', $morecss = '', $moreparams = '', $forcecombo = 0, $outputmode = 0, $disabled = 0, $sortfield = '')
  {
    global $conf, $langs, $user, $hookmanager;

    //print "$objecttmp->filter, $htmlname, $preselectedvalue, $showempty = '', $searchkey = '', $placeholder = '', $morecss = '', $moreparams = '', $forcecombo = 0, $outputmode = 0, $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 (!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 (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 (empty($user->rights->societe->client->voir) && !$user->socid) {
          $sql .= ", ".$this->db->prefix()."societe_commerciaux as sc";
        }
      }
    }

    // Add where from hooks
    $parameters = array();
    $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 (empty($user->rights->societe->client->voir) && !$user->socid) {
            $sql .= " AND t.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
          }
        }
      }
      if ($searchkey != '') {
        $sql .= natural_search(explode(',', $fieldstoshow), $searchkey);
      }
      if ($objecttmp->filter) {  // Syntax example "(t.ref:like:'SO-%') and (t.date_creation:<:'20160101')"
        /*if (! DolibarrApi::_checkFilters($objecttmp->filter))
        {
          throw new RestException(503, 'Error when validating parameter sqlfilters '.$objecttmp->filter);
        }*/
        $regexstring = '\(([^:\'\(\)]+:[^:\'\(\)]+:[^\(\)]+)\)';
        $sql .= " AND (".preg_replace_callback('/'.$regexstring.'/', 'Form::forgeCriteriaCallback', $objecttmp->filter).")";
      }
    }
    $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'.($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 (!empty($conf->global->$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 = '';
          $tmparray = explode(',', $fieldstoshow);
          $oldvalueforshowoncombobox = 0;
          foreach ($tmparray as $key => $val) {
            $val = preg_replace('/t\./', '', $val);
            $label .= (($label && $obj->$val) ? ($oldvalueforshowoncombobox != $objecttmp->fields[$val]['showoncombobox'] ? ' - ' : ' ') : '');
            $label .= $obj->$val;
            $oldvalueforshowoncombobox = !empty($objecttmp->fields[$val]['showoncombobox']) ? $objecttmp->fields[$val]['showoncombobox'] : 0;
          }
          if (empty($outputmode)) {
            if ($preselectedvalue > 0 && $preselectedvalue == $obj->rowid) {
              $out .= '<option value="'.$obj->rowid.'" selected>'.$label.'</option>';
            } else {
              $out .= '<option value="'.$obj->rowid.'">'.$label.'</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, null, (!empty($conf->global->$confkeyforautocompletemode) ? $conf->global->$confkeyforautocompletemode : 0));
      }
    } else {
      dol_print_error($this->db);
    }

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

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


  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 = '', $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);
    }

    $out = '';

    if ($addjscombo < 0) {
      if (empty($conf->global->MAIN_OPTIMIZEFORTEXTBROWSER)) {
        $addjscombo = 1;
      } else {
        $addjscombo = 0;
      }
    }

    $out .= '<select id="'.preg_replace('/^\./', '', $htmlname).'" '.($disabled ? 'disabled="disabled" ' : '').'class="flat '.(preg_replace('/^\./', '', $htmlname)).($morecss ? ' '.$morecss : '').'"';
    $out .= ' name="'.preg_replace('/^\./', '', $htmlname).'" '.($moreparam ? $moreparam : '');
    $out .= '>';

    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="'.($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'];
          $disabled = empty($tmpvalue['disabled']) ? '' : ' disabled';
          $style = empty($tmpvalue['css']) ? '' : ' class="'.$tmpvalue['css'].'"';
        } else {
          $value = $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 ($nohtmlescape) {
          $out .= ' data-html="'.dol_escape_htmltag($selectOptionValue).'"';
        }
        if (is_array($tmpvalue)) {
          foreach ($tmpvalue as $keyforvalue => $valueforvalue) {
            if (preg_match('/^data-/', $keyforvalue)) {
              $out .= ' '.$keyforvalue.'="'.$valueforvalue.'"';
            }
          }
        }
        $out .= '>';
        //var_dump($selectOptionValue);
        $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($htmlname, array(), 0, 0, 'resolve', $show_empty < 0 ? (string) $show_empty : '-1');
    }

    return $out;
  }


  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 (empty($conf->global->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>
          $(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: '.$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;
  }

  public static function selectArrayFilter($htmlname, $array, $id = '', $moreparam = '', $disableFiltering = 0, $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 (empty($conf->global->MAIN_USE_JQUERY_MULTISELECT) && !defined('REQUIRE_JQUERY_MULTISELECT')) {
      return '';
    }

    $out = '<select type="text" 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>
        $(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) {
        $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 + "sall=" + 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;
  }

  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 (empty($conf->global->MAIN_OPTIMIZEFORTEXTBROWSER)) {
        $addjscombo = 1;
      } else {
        $addjscombo = 0;
      }
    }

    // Try also magic suggest
    $out .= '<select id="'.$htmlname.'" class="multiselect'.($morecss ? ' '.$morecss : '').'" multiple name="'.$htmlname.'[]"'.($moreattrib ? ' '.$moreattrib : '').($width ? ' style="width: '.(preg_match('/%/', $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) {
          $newval = ($translate ? $langs->trans($value) : $value);
          $newval = ($key_in_label ? $key.' - '.$newval : $newval);

          $out .= '<option value="'.$key.'"';
          if (is_array($selected) && !empty($selected) && in_array((string) $key, $selected) && ((string) $key != '')) {
            $out .= ' selected';
          }
          $out .= ' data-html="'.dol_escape_htmltag($newval).'"';
          $out .= '>';
          $out .= dol_htmlentitiesbr($newval);
          $out .= '</option>'."\n";
        }
      }
    }
    $out .= '</select>'."\n";

    // Add code for jquery to use multiselect
    if (!empty($conf->use_javascript_ajax) && !empty($conf->global->MAIN_USE_JQUERY_MULTISELECT) || defined('REQUIRE_JQUERY_MULTISELECT')) {
      $out .= "\n".'<!-- JS CODE TO ENABLE select for id '.$htmlname.', addjscombo='.$addjscombo.' -->';
      $out .= "\n".'<script>'."\n";
      if ($addjscombo == 1) {
        $tmpplugin = empty($conf->global->MAIN_USE_JQUERY_MULTISELECT) ?constant('REQUIRE_JQUERY_MULTISELECT') : $conf->global->MAIN_USE_JQUERY_MULTISELECT;
        $out .= 'function formatResult(record, container) {'."\n";
        $out .= ' if ($(record.element).attr("data-html") != undefined) return htmlEntityDecodeJs($(record.element).attr("data-html"));   // If property html set, we decode html entities and use this'."\n";
        $out .= ' return record.text;';
        $out .= '};'."\n";
        $out .= 'function formatSelection(record) {'."\n";
        if ($elemtype == 'category') {
          $out .= 'return \'<span><img src="'.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\',
                // 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;
  }


  public static function multiSelectArrayWithCheckbox($htmlname, &$array, $varpage, $pos = '')
  {
    global $conf, $langs, $user, $extrafields;

    if (!empty($conf->global->MAIN_OPTIMIZEFORTEXTBROWSER)) {
      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 ($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
        $listoffieldsforselection .= '<li><input type="checkbox" id="checkbox'.$key.'" value="'.$key.'"'.((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="ul'.$htmlname.' '.$htmlname.$pos.'">
                    '.$listoffieldsforselection.'
                    </ul>
                </div>
            </dd>
        </dl>

        <script 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();
              });


           });
        </script>

        ';
    return $out;
  }

  public function showCategories($id, $type, $rendermode = 0, $nolink = 0)
  {
    include_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';

    $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 formated 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, 1);
      foreach ($categories as $c) {
        $arrayselected[] = $c->id;
      }

      return $this->multiselectarray('categories', $cate_arbo, $arrayselected, '', 0, '', 0, '100%', 'disabled', 'category');
    }

    return 'ErrorBadValueForParameterRenderMode'; // Should not happened
  }

  public function showLinkedObjectBlock($object, $morehtmlright = '', $compatibleImportElementsList = false, $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

    if (empty($reshook)) {
      $nbofdifferenttypes = count($object->linkedObjects);

      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 inport 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('facture')) {
            continue; // Do not show if module disabled
          }
        } elseif ($objecttype == 'facturerec') {
          $tplpath = 'compta/facture';
          $tplname = 'linkedobjectblockForRec';
          if (!isModEnabled('facture')) {
            continue; // Do not show if module disabled
          }
        } elseif ($objecttype == 'propal') {
          $tplpath = 'comm/'.$element;
          if (empty($conf->propal->enabled)) {
            continue; // Do not show if module disabled
          }
        } elseif ($objecttype == 'supplier_proposal') {
          if (empty($conf->supplier_proposal->enabled)) {
            continue; // Do not show if module disabled
          }
        } elseif ($objecttype == 'shipping' || $objecttype == 'shipment') {
          $tplpath = 'expedition';
          if (empty($conf->expedition->enabled)) {
            continue; // Do not show if module disabled
          }
        } elseif ($objecttype == 'reception') {
          $tplpath = 'reception';
          if (empty($conf->reception->enabled)) {
            continue; // Do not show if module disabled
          }
        } elseif ($objecttype == 'delivery') {
          $tplpath = 'delivery';
          if (empty($conf->expedition->enabled)) {
            continue; // Do not show if module disabled
          }
        } elseif ($objecttype == 'ficheinter') {
          $tplpath = 'fichinter';
          if (empty($conf->ficheinter->enabled)) {
            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 (empty($conf->mrp->enabled)) {
            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) {
          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/ajax/objectlinked_lineimport.tpl.php');
      }


      print '</div>';

      return $nbofdifferenttypes;
    }
  }

  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) && !empty($conf->global->THIRDPARTY_INCLUDE_PARENT_IN_LINKTO)) {
        $listofidcompanytoscan .= ','.$object->thirdparty->parent;
      }
      if (($object->fk_project > 0) && !empty($conf->global->THIRDPARTY_INCLUDE_PROJECT_THIRDPARY_IN_LINKTO)) {
        include_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
        $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'=>(!empty($conf->propal->enabled) ? $conf->propal->enabled : 0),
          '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').')'),
        'order'=>array(
          'enabled'=>(!empty($conf->commande->enabled) ? $conf->commande->enabled : 0),
          '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('facture'),
          '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('facture'),
          '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'=>(!empty($conf->contrat->enabled) ? $conf->contrat->enabled : 0),
          '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'=>(!empty($conf->ficheinter->enabled) ? $conf->ficheinter->enabled : 0),
          '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'=>(!empty($conf->supplier_proposal->enabled) ? $conf->supplier_proposal->enabled : 0),
          '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'=>(!empty($conf->supplier_order->enabled) ? $conf->supplier_order->enabled : 0),
          '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'=>(!empty($conf->supplier_invoice->enabled) ? $conf->supplier_invoice->enabled : 0),
          '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'=>(!empty($conf->ticket->enabled) ? $conf->ticket->enabled : 0),
          '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'=>(!empty($conf->mrp->enabled) ? $conf->mrp->enabled : 0),
          '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 (!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 (!empty($conf->global->MAIN_LINK_BY_REF_IN_LINKTO)) {
          print '<br><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><input type="text" name="reftolinkto" value="' . dol_escape_htmltag(GETPOST('reftolinkto', 'alpha')) . '">&nbsp;<input type="submit" class="button valignmiddle" value="' . $langs->trans('ToLink') . '">&nbsp;<input type="submit" class="button" 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 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">'.price($objp->total_ht).'</span>';
            print '</td>';
            print '<td>'.$objp->name.'</td>';
            print '</tr>';
            $i++;
          }
          print '</table>';
          print '<div class="center">';
          print '<input type="submit" class="button valignmiddle marginleftonly marginrightonly" value="'.$langs->trans('ToLink').'">';
          if (empty($conf->use_javascript_ajax)) {
            print '<input type="submit" class="button button-cancel marginleftonly marginrightonly" name="cancel" value="'.$langs->trans("Cancel").'"></div>';
          } else {
            print '<input type="submit"; onclick="javascript:jQuery(\'#'.$key.'list\').toggle(); return false;" class="button button-cancel marginleftonly marginrightonly" 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 || !empty($conf->global->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>
        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;
  }

  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);
    }

    return $resultyesno;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  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);
    }
  }

  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;
      }
    }

    /*
    $addadmin = '';
    if (property_exists($object, 'admin')) {
      if (!empty($conf->multicompany->enabled) && !empty($object->admin) && empty($object->entity)) {
        $addadmin .= img_picto($langs->trans("SuperAdministratorDesc"), "redstar", 'class="paddingleft"');
      } elseif (!empty($object->admin)) {
        $addadmin .= img_picto($langs->trans("AdministratorDesc"), "star", 'class="paddingleft"');
      }
    }*/

    // 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" 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" 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) {
      $ret .= '<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>';
    }

    $parameters = array();
    $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>'; // class="center" to have photo in middle
      } 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 (!empty($conf->global->PDF_USE_ALSO_LANGUAGE_CODE)) {
        $arrayoflangcode[] = $conf->global->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') {
      $ret .= $object->ref.'<br>';
      $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', 'usergroup'))) {
      $ret .= dol_htmlentities($object->getFullName($langs)).$addgendertxt;
    } elseif (in_array($object->element, array('action', 'agenda'))) {
      $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($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;
  }


  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)) {
      $result = $object->fetch_barcode();
      //Check if fetch_barcode() failed
      if ($result < 1) {
        return '<!-- ErrorFetchBarcode -->';
      }
    }

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

  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) ? $object->entity : $conf->entity);
    $id = (!empty($object->id) ? $object->id : $object->rowid);

    $ret = '';
    $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 (!empty($conf->global->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 (!empty($conf->global->MAIN_OLD_IMAGE_LINKS)) {
        $altfile = $object->id.".jpg"; // For backward compatibility
      }
      $email = $object->email;
      $capture = 'user';
    } else {
      // Generic case to show photos
      $dir = $conf->$modulepart->dir_output;
      if (!empty($object->photo)) {
        if (dolIsAllowedForPreview($object->photo)) {
          if ((string) $imagesize == 'mini') {
            $file = get_exdir($id, 2, 0, 0, $object, $modulepart).'photos/'.getImageFileNameForSize($object->photo, '_mini');
          } elseif ((string) $imagesize == 'small') {
            $file = get_exdir($id, 2, 0, 0, $object, $modulepart).'photos/'.getImageFileNameForSize($object->photo, '_small');
          } else {
            $file = get_exdir($id, 2, 0, 0, $object, $modulepart).'photos/'.$object->photo;
          }
          $originalfile = get_exdir($id, 2, 0, 0, $object, $modulepart).'photos/'.$object->photo;
        }
      }
      if (!empty($conf->global->MAIN_OLD_IMAGE_LINKS)) {
        $altfile = $object->id.".jpg"; // For backward compatibility
      }
      $email = $object->email;
    }

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

    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="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&entity='.$entity.'&file='.urlencode($originalfile).'&cache='.$cache.'">';
          }
        }
        $ret .= '<img alt="Photo" class="photo'.$modulepart.($cssclass ? ' '.$cssclass : '').' photologo'.(preg_replace('/[^a-z]/i', '_', $file)).'" '.($width ? ' width="'.$width.'"' : '').($height ? ' height="'.$height.'"' : '').' src="'.DOL_URL_ROOT.'/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="'.DOL_URL_ROOT.'/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="'.DOL_URL_ROOT.'/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' && 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 (!empty($conf->gravatar->enabled) && $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/'.md5(strtolower(trim($email))).'?s='.$width.'&d='.$defaultimg.'">'; // gravatar need md5 hash
        } else {
          if ($nophoto == 'company') {
            $ret .= '<div class="divforspanimg 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="'.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>';
      }
    } else {
      dol_print_error('', 'Call of showphoto with wrong parameters modulepart='.$modulepart);
    }

    return $ret;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_dolgroups($selected = '', $htmlname = 'groupid', $show_empty = 0, $exclude = '', $disabled = 0, $include = '', $enableonly = '', $force_entity = '0', $multiple = false, $morecss = '')
  {
    // phpcs:enable
    global $conf, $user, $langs;

    // Permettre l'exclusion de groupes
    $excludeGroups = null;
    if (is_array($exclude)) {
      $excludeGroups = implode(",", $exclude);
    }
    // Permettre l'inclusion de groupes
    $includeGroups = null;
    if (is_array($include)) {
      $includeGroups = implode(",", $include);
    }

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

    $out = '';

    // On recherche les groupes
    $sql = "SELECT ug.rowid, ug.nom as name";
    if (!empty($conf->multicompany->enabled) && $conf->entity == 1 && $user->admin && !$user->entity) {
      $sql .= ", e.label";
    }
    $sql .= " FROM ".$this->db->prefix()."usergroup as ug ";
    if (!empty($conf->multicompany->enabled) && $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_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 minwidth200'.($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;
          }

          $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 .= '>';

          $out .= $obj->name;
          if (!empty($conf->multicompany->enabled) && empty($conf->global->MULTICOMPANY_TRANSVERSE_MODE) && $conf->entity == 1) {
            $out .= " (".$obj->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;
  }


  public function showFilterButtons($pos = '')
  {
    $out = '<div class="nowraponall">';
    if ($pos == 'left') {
      $out .= '<button type="submit" class="liste_titre button_removefilter reposition" name="button_removefilter_x" value="x"><span class="fa fa-remove"></span></button>';
      $out .= '<button type="submit" class="liste_titre button_search reposition" name="button_search_x" value="x"><span class="fa fa-search"></span></button>';
    } else {
      $out .= '<button type="submit" class="liste_titre button_search reposition" name="button_search_x" value="x"><span class="fa fa-search"></span></button>';
      $out .= '<button type="submit" class="liste_titre button_removefilter reposition" name="button_removefilter_x" value="x"><span class="fa fa-remove"></span></button>';
    }
    $out .= '</div>';

    return $out;
  }

  public function showCheckAddButtons($cssclass = 'checkforaction', $calljsfunction = 0, $massactionname = "massaction")
  {
    global $conf, $langs;

    $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>
            $(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;
  }

  public function showFilterAndCheckAddButtons($addcheckuncheckall = 0, $cssclass = 'checkforaction', $calljsfunction = 0, $massactionname = "massaction")
  {
    $out = $this->showFilterButtons();
    if ($addcheckuncheckall) {
      $out .= $this->showCheckAddButtons($cssclass, $calljsfunction, $massactionname);
    }
    return $out;
  }

  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>
              $(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: "'.(DOL_URL_ROOT.'/expensereport/ajax/ajaxik.php?'.$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;
  }

  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;
  }

  public function selectExpense($selected = '', $htmlname = 'fk_c_type_fees', $useempty = 0, $allchoice = 1, $useid = 0)
  {
    global $langs;

    $out = '';
    $sql = "SELECT id, code, label 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>';
    } else {
      dol_print_error($this->db);
    }

    return $out;
  }

  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;

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

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

    $out = '';

    $hideunselectables = false;
    if (!empty($conf->global->PROJECT_HIDE_UNSELECTABLES)) {
      $hideunselectables = true;
    }

    if (empty($projectsListId)) {
      if (empty($usertofilter->rights->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, '', 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) && empty($usertofilter->rights->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>';
      }

      print $out;

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

  public function selectInvoiceRec($selected = '', $htmlname = 'facrecid', $maxlength = 24, $option_only = 0, $show_empty = '1', $forcefocus = 0, $disabled = 0, $morecss = 'maxwidth500')
  {
    global $user, $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, '', 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;
    }
  }

  public function searchComponent($arrayofcriterias, $search_component_params, $arrayofinputfieldsalreadyoutput = array(), $search_component_params_hidden = '')
  {
    global $langs;

    $ret = '';

    $ret .= '<div class="divadvancedsearchfieldcomp inline-block">';
    //$ret .= '<button type="submit" class="liste_titre button_removefilter" name="button_removefilter_x" value="x"><span class="fa fa-remove"></span></button>';
    $ret .= '<a href="#" class="dropdownsearch-toggle unsetcolor">';
    $ret .= '<span class="fas fa-filter linkobject boxfilter pictofixedwidth" title="'.dol_escape_htmltag($langs->trans("Filters")).'" id="idsubimgproductdistribution"></span>';
    //$ret .= $langs->trans("Filters");
    $ret .= '</a>';

    $ret .= '<div class="divadvancedsearchfieldcompinput inline-block minwidth500 maxwidth300onsmartphone">';

    // Show select fields as tags.
    $ret .= '<div name="divsearch_component_params" class="noborderbottom search_component_params inline-block valignmiddle">';

    if ($search_component_params_hidden) {
      if (!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.')';
      }
      $errormessage = '';
      if (!dolCheckFilters($search_component_params_hidden, $errormessage)) {
        print 'ERROR in parsing search string';
      }
      $regexstring = '\(([^:\'\(\)]+:[^:\'\(\)]+:[^\(\)]+)\)';
      //var_dump($search_component_params_hidden);
      $htmltags = preg_replace_callback('/'.$regexstring.'/', 'dolForgeCriteriaCallback', $search_component_params_hidden);
      //var_dump($htmltags);
      $ret .= '<span class="marginleftonlyshort valignmiddle tagsearch"><span class="tagsearchdelete select2-selection__choice__remove">x</span> '.$htmltags.'</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 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" name="search_component_params_hidden" value="'.dol_escape_htmltag($search_component_params_hidden).'">';
    // For compatibility with forms that show themself the search criteria in addition of this component, we output the fields
    foreach ($arrayofcriterias as $criterias) {
      foreach ($criterias 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 .= "<!-- Syntax of 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("Search").'" name="search_component_params_input" class="noborderbottom search_component_input" value="">';

    $ret .= '</div>';
    $ret .= '</div>';

    return $ret;
  }

  public function selectModelMail($prefix, $modelType = '', $default = 0, $addjscombo = 0)
  {
    global $langs, $user;

    $retstring = '';

    $TModels = array();

    include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
    $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;
  }

  public function buttonsSaveCancel($save_label = 'Save', $cancel_label = 'Cancel', $morebuttons = array(), $withoutdiv = 0, $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>';
      $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;
  }
}