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-2023  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>
 * Copyright (C) 2023   Joachim Kueter      <git-jk@bloxera.com>
 * Copyright (C) 2023   Nick Fragoulis
 *
 * 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();
 
  // Some properties used to return data by some methods
  public $result;
  public $num;
 
  // Cache arrays
  public $cache_types_paiements = array();
  public $cache_conditions_paiements = array();
  public $cache_transport_mode = array();
  public $cache_availability = array();
  public $cache_demand_reason = array();
  public $cache_types_fees = array();
  public $cache_vatrates = array();
  public $cache_invoice_subtype = array();
 
 
  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 (getDolGlobalString('MAIN_USE_JQUERY_JEDITABLE') && !preg_match('/^select;/', $typeofdata)) {
      if (!empty($perm)) {
        $tmp = explode(':', $typeofdata);
        $ret .= '<div class="editkey_' . $tmp[0] . (!empty($tmp[1]) ? ' ' . $tmp[1] : '') . '" id="' . $htmlname . '">';
        if ($fieldrequired) {
          $ret .= '<span class="fieldrequired">';
        }
        if ($help) {
          $ret .= $this->textwithpicto($langs->trans($text), $help);
        } else {
          $ret .= $langs->trans($text);
        }
        if ($fieldrequired) {
          $ret .= '</span>';
        }
        $ret .= '</div>' . "\n";
      } else {
        if ($fieldrequired) {
          $ret .= '<span class="fieldrequired">';
        }
        if ($help) {
          $ret .= $this->textwithpicto($langs->trans($text), $help);
        } else {
          $ret .= $langs->trans($text);
        }
        if ($fieldrequired) {
          $ret .= '</span>';
        }
      }
    } else {
      if (empty($notabletag) && $perm) {
        $ret .= '<table class="nobordernopadding centpercent"><tr><td class="nowrap">';
      }
      if ($fieldrequired) {
        $ret .= '<span class="fieldrequired">';
      }
      if ($help) {
        $ret .= $this->textwithpicto($langs->trans($text), $help);
      } else {
        $ret .= $langs->trans($text);
      }
      if ($fieldrequired) {
        $ret .= '</span>';
      }
      if (!empty($notabletag)) {
        $ret .= ' ';
      }
      if (empty($notabletag) && $perm) {
        $ret .= '</td>';
      }
      if (empty($notabletag) && $perm) {
        $ret .= '<td class="right">';
      }
      if ($htmlname && GETPOST('action', 'aZ09') != 'edit' . $htmlname && $perm) {
        $ret .= '<a class="editfielda reposition" href="' . $_SERVER["PHP_SELF"] . '?action=edit' . $htmlname . '&token=' . newToken() . '&' . $paramid . '=' . $object->id . $moreparam . '">' . img_edit($langs->trans('Edit'), ($notabletag ? 0 : 1)) . '</a>';
      }
      if (!empty($notabletag) && $notabletag == 1) {
        if ($text) {
          $ret .= ' : ';
        } else {
          $ret .= ' ';
        }
      }
      if (!empty($notabletag) && $notabletag == 3) {
        $ret .= ' ';
      }
      if (empty($notabletag) && $perm) {
        $ret .= '</td>';
      }
      if (empty($notabletag) && $perm) {
        $ret .= '</tr></table>';
      }
    }
 
    return $ret;
  }
 
  public function editfieldval($text, $htmlname, $value, $object, $perm, $typeofdata = 'string', $editvalue = '', $extObject = null, $custommsg = null, $moreparam = '', $notabletag = 1, $formatfunc = '', $paramid = 'id', $gm = 'auto', $moreoptions = array(), $editaction = '')
  {
    global $conf, $langs;
 
    $ret = '';
 
    // Check parameters
    if (empty($typeofdata)) {
      return 'ErrorBadParameter typeofdata is empty';
    }
    // Clean paramater $typeofdata
    if ($typeofdata == 'datetime') {
      $typeofdata = 'dayhour';
    }
    $reg = array();
    if (preg_match('/^(\w+)\‍((\d+)\‍)$/', $typeofdata, $reg)) {
      if ($reg[1] == 'varchar') {
        $typeofdata = 'string';
      } elseif ($reg[1] == 'int') {
        $typeofdata = 'numeric';
      } else {
        return 'ErrorBadParameter ' . $typeofdata;
      }
    }
 
    // When option to edit inline is activated
    if (getDolGlobalString('MAIN_USE_JQUERY_JEDITABLE') && !preg_match('/^select;|day|datepicker|dayhour|datehourpicker/', $typeofdata)) { // TODO add jquery timepicker and support select
      $ret .= $this->editInPlace($object, $value, $htmlname, $perm, $typeofdata, $editvalue, $extObject, $custommsg);
    } else {
      if ($editaction == '') {
        $editaction = GETPOST('action', 'aZ09');
      }
      $editmode = ($editaction == 'edit' . $htmlname);
      if ($editmode) {  // edit mode
        $ret .= "\n";
        $ret .= '<form method="post" action="' . $_SERVER["PHP_SELF"] . ($moreparam ? '?' . $moreparam : '') . '">';
        $ret .= '<input type="hidden" name="action" value="set' . $htmlname . '">';
        $ret .= '<input type="hidden" name="token" value="' . newToken() . '">';
        $ret .= '<input type="hidden" name="' . $paramid . '" value="' . $object->id . '">';
        if (empty($notabletag)) {
          $ret .= '<table class="nobordernopadding centpercent">';
        }
        if (empty($notabletag)) {
          $ret .= '<tr><td>';
        }
        if (preg_match('/^(string|safehtmlstring|email|phone|url)/', $typeofdata)) {
          $tmp = explode(':', $typeofdata);
          $ret .= '<input type="text" id="' . $htmlname . '" name="' . $htmlname . '" value="' . ($editvalue ? $editvalue : $value) . '"' . (empty($tmp[1]) ? '' : ' size="' . $tmp[1] . '"') . ' autofocus>';
        } elseif (preg_match('/^(integer)/', $typeofdata)) {
          $tmp = explode(':', $typeofdata);
          $valuetoshow = price2num($editvalue ? $editvalue : $value, 0);
          $ret .= '<input type="text" id="' . $htmlname . '" name="' . $htmlname . '" value="' . $valuetoshow . '"' . (empty($tmp[1]) ? '' : ' size="' . $tmp[1] . '"') . ' autofocus>';
        } elseif (preg_match('/^(numeric|amount)/', $typeofdata)) {
          $tmp = explode(':', $typeofdata);
          $valuetoshow = price2num($editvalue ? $editvalue : $value);
          $ret .= '<input type="text" id="' . $htmlname . '" name="' . $htmlname . '" value="' . ($valuetoshow != '' ? price($valuetoshow) : '') . '"' . (empty($tmp[1]) ? '' : ' size="' . $tmp[1] . '"') . ' autofocus>';
        } elseif (preg_match('/^(checkbox)/', $typeofdata)) {
          $tmp = explode(':', $typeofdata);
          $ret .= '<input type="checkbox" id="' . $htmlname . '" name="' . $htmlname . '" value="' . ($value ? $value : 'on') . '"' . ($value ? ' checked' : '') . (empty($tmp[1]) ? '' : $tmp[1]) . '/>';
        } elseif (preg_match('/^text/', $typeofdata) || preg_match('/^note/', $typeofdata)) {    // if wysiwyg is enabled $typeofdata = 'ckeditor'
          $tmp = explode(':', $typeofdata);
          $cols = (empty($tmp[2]) ? '' : $tmp[2]);
          $morealt = '';
          if (preg_match('/%/', $cols)) {
            $morealt = ' style="width: ' . $cols . '"';
            $cols = '';
          }
          $valuetoshow = ($editvalue ? $editvalue : $value);
          $ret .= '<textarea id="' . $htmlname . '" name="' . $htmlname . '" wrap="soft" rows="' . (empty($tmp[1]) ? '20' : $tmp[1]) . '"' . ($cols ? ' cols="' . $cols . '"' : 'class="quatrevingtpercent"') . $morealt . '" autofocus>';
          // textarea convert automatically entities chars into simple chars.
          // So we convert & into &amp; so a string like 'a &lt; <b>b</b><br>é<br>&lt;script&gt;alert('X');&lt;script&gt;' stay a correct html and is not converted by textarea component when wysiwig is off.
          $valuetoshow = str_replace('&', '&amp;', $valuetoshow);
          $ret .= dol_htmlwithnojs(dol_string_neverthesehtmltags($valuetoshow, array('textarea')));
          $ret .= '</textarea>';
        } elseif ($typeofdata == 'day' || $typeofdata == 'datepicker') {
          $addnowlink = empty($moreoptions['addnowlink']) ? 0 : $moreoptions['addnowlink'];
          $adddateof = empty($moreoptions['adddateof']) ? '' : $moreoptions['adddateof'];
          $labeladddateof = empty($moreoptions['labeladddateof']) ? '' : $moreoptions['labeladddateof'];
          $ret .= $this->selectDate($value, $htmlname, 0, 0, 1, 'form' . $htmlname, 1, $addnowlink, 0, '', '', $adddateof, '', 1, $labeladddateof, '', $gm);
        } elseif ($typeofdata == 'dayhour' || $typeofdata == 'datehourpicker') {
          $addnowlink = empty($moreoptions['addnowlink']) ? 0 : $moreoptions['addnowlink'];
          $adddateof = empty($moreoptions['adddateof']) ? '' : $moreoptions['adddateof'];
          $labeladddateof = empty($moreoptions['labeladddateof']) ? '' : $moreoptions['labeladddateof'];
          $ret .= $this->selectDate($value, $htmlname, 1, 1, 1, 'form' . $htmlname, 1, $addnowlink, 0, '', '', $adddateof, '', 1, $labeladddateof, '', $gm);
        } elseif (preg_match('/^select;/', $typeofdata)) {
          $arraydata = explode(',', preg_replace('/^select;/', '', $typeofdata));
          $arraylist = array();
          foreach ($arraydata as $val) {
            $tmp = explode(':', $val);
            $tmpkey = str_replace('|', ':', $tmp[0]);
            $arraylist[$tmpkey] = $tmp[1];
          }
          $ret .= $this->selectarray($htmlname, $arraylist, $value);
        } elseif (preg_match('/^link/', $typeofdata)) {
          // TODO Not yet implemented. See code for extrafields
        } elseif (preg_match('/^ckeditor/', $typeofdata)) {
          $tmp = explode(':', $typeofdata); // Example: ckeditor:dolibarr_zzz:width:height:savemethod:toolbarstartexpanded:rows:cols:uselocalbrowser
          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);
        } elseif ($typeofdata == 'asis') {
          $ret .= ($editvalue ? $editvalue : $value);
        }
        if (empty($notabletag)) {
          $ret .= '</td>';
        }
 
        // Button save-cancel
        if (empty($notabletag)) {
          $ret .= '<td>';
        }
        //else $ret.='<div class="clearboth"></div>';
        $ret .= '<input type="submit" class="smallpaddingimp button' . (empty($notabletag) ? '' : ' ') . '" name="modify" value="' . $langs->trans("Modify") . '">';
        if (preg_match('/ckeditor|textarea/', $typeofdata) && empty($notabletag)) {
          $ret .= '<br>' . "\n";
        }
        $ret .= '<input type="submit" class="smallpaddingimp button button-cancel' . (empty($notabletag) ? '' : ' ') . '" name="cancel" value="' . $langs->trans("Cancel") . '">';
        if (empty($notabletag)) {
          $ret .= '</td>';
        }
 
        if (empty($notabletag)) {
          $ret .= '</tr></table>' . "\n";
        }
        $ret .= '</form>' . "\n";
      } else {    // view mode
        if (preg_match('/^email/', $typeofdata)) {
          $ret .= dol_print_email($value, 0, 0, 0, 0, 1);
        } elseif (preg_match('/^phone/', $typeofdata)) {
          $ret .= dol_print_phone($value, '_blank', 32, 1);
        } elseif (preg_match('/^url/', $typeofdata)) {
          $ret .= dol_print_url($value, '_blank', 32, 1);
        } elseif (preg_match('/^(amount|numeric)/', $typeofdata)) {
          $ret .= ($value != '' ? price($value, '', $langs, 0, -1, -1, $conf->currency) : '');
        } elseif (preg_match('/^checkbox/', $typeofdata)) {
          $tmp = explode(':', $typeofdata);
          $ret .= '<input type="checkbox" disabled id="' . $htmlname . '" name="' . $htmlname . '" value="' . $value . '"' . ($value ? ' checked' : '') . ($tmp[1] ? $tmp[1] : '') . '/>';
        } elseif (preg_match('/^text/', $typeofdata) || preg_match('/^note/', $typeofdata)) {
          $ret .= dol_htmlwithnojs(dol_string_onlythesehtmltags(dol_htmlentitiesbr($value), 1, 1, 1));
        } elseif (preg_match('/^(safehtmlstring|restricthtml)/', $typeofdata)) {  // 'restricthtml' is not an allowed type for editfieldval. Value is 'safehtmlstring'
          $ret .= dol_htmlwithnojs(dol_string_onlythesehtmltags($value));
        } elseif ($typeofdata == 'day' || $typeofdata == 'datepicker') {
          $ret .= '<span class="valuedate">' . dol_print_date($value, 'day', $gm) . '</span>';
        } elseif ($typeofdata == 'dayhour' || $typeofdata == 'datehourpicker') {
          $ret .= '<span class="valuedate">' . dol_print_date($value, 'dayhour', $gm) . '</span>';
        } elseif (preg_match('/^select;/', $typeofdata)) {
          $arraydata = explode(',', preg_replace('/^select;/', '', $typeofdata));
          $arraylist = array();
          foreach ($arraydata as $val) {
            $tmp = explode(':', $val);
            $arraylist[$tmp[0]] = $tmp[1];
          }
          $ret .= $arraylist[$value];
          if ($htmlname == 'fk_product_type') {
            if ($value == 0) {
              $ret = img_picto($langs->trans("Product"), 'product', 'class="paddingleftonly paddingrightonly colorgrey"') . $ret;
            } else {
              $ret = img_picto($langs->trans("Service"), 'service', 'class="paddingleftonly paddingrightonly colorgrey"') . $ret;
            }
          }
        } elseif (preg_match('/^ckeditor/', $typeofdata)) {
          $tmpcontent = dol_htmlentitiesbr($value);
          if (getDolGlobalString('MAIN_DISABLE_NOTES_TAB')) {
            $firstline = preg_replace('/<br>.*/', '', $tmpcontent);
            $firstline = preg_replace('/[\n\r].*/', '', $firstline);
            $tmpcontent = $firstline . ((strlen($firstline) != strlen($tmpcontent)) ? '...' : '');
          }
          // We 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 {
          if (empty($moreoptions['valuealreadyhtmlescaped'])) {
            $ret .= dol_escape_htmltag($value);
          } else {
            $ret .= $value;        // $value must be already html escaped.
          }
        }
 
        // Custom format if parameter $formatfunc has been provided
        if ($formatfunc && method_exists($object, $formatfunc)) {
          $ret = $object->$formatfunc($ret);
        }
      }
    }
    return $ret;
  }
 
  public function widgetForTranslation($fieldname, $object, $perm, $typeofdata = 'string', $check = '', $morecss = '')
  {
    global $conf, $langs, $extralanguages;
 
    $result = '';
 
    // List of extra languages
    $arrayoflangcode = array();
    if (getDolGlobalString('PDF_USE_ALSO_LANGUAGE_CODE')) {
      $arrayoflangcode[] = $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 nonce="' . getNonce() . '">$(".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 (isModEnabled('fckeditor')) {
          $out .= '<input id="ckeditor_toolbar" value="' . $toolbar . '" type="hidden"/>' . "\n";
        } else {
          $inputType = 'textarea';
        }
      }
 
      $out .= '<input id="element_' . $htmlname . '" value="' . $element . '" type="hidden"/>' . "\n";
      $out .= '<input id="table_element_' . $htmlname . '" value="' . $table_element . '" type="hidden"/>' . "\n";
      $out .= '<input id="fk_element_' . $htmlname . '" value="' . $fk_element . '" type="hidden"/>' . "\n";
      $out .= '<input id="loadmethod_' . $htmlname . '" value="' . $loadmethod . '" type="hidden"/>' . "\n";
      if (!empty($savemethod)) {
        $out .= '<input id="savemethod_' . $htmlname . '" value="' . $savemethod . '" type="hidden"/>' . "\n";
      }
      if (!empty($ext_element)) {
        $out .= '<input id="ext_element_' . $htmlname . '" value="' . $ext_element . '" type="hidden"/>' . "\n";
      }
      if (!empty($custommsg)) {
        if (is_array($custommsg)) {
          if (!empty($custommsg['success'])) {
            $out .= '<input id="successmsg_' . $htmlname . '" value="' . $custommsg['success'] . '" type="hidden"/>' . "\n";
          }
          if (!empty($custommsg['error'])) {
            $out .= '<input id="errormsg_' . $htmlname . '" value="' . $custommsg['error'] . '" type="hidden"/>' . "\n";
          }
        } else {
          $out .= '<input id="successmsg_' . $htmlname . '" value="' . $custommsg . '" type="hidden"/>' . "\n";
        }
      }
      if ($inputType == 'textarea') {
        $out .= '<input id="textarea_' . $htmlname . '_rows" value="' . $rows . '" type="hidden"/>' . "\n";
        $out .= '<input id="textarea_' . $htmlname . '_cols" value="' . $cols . '" type="hidden"/>' . "\n";
      }
      $out .= '<span id="viewval_' . $htmlname . '" class="viewval_' . $inputType . ($button_only ? ' inactive' : ' active') . '">' . $value . '</span>' . "\n";
      $out .= '<span id="editval_' . $htmlname . '" class="editval_' . $inputType . ($button_only ? ' inactive' : ' active') . ' hideobject">' . (!empty($editvalue) ? $editvalue : $value) . '</span>' . "\n";
    } else {
      $out = $value;
    }
 
    return $out;
  }
 
  public function textwithtooltip($text, $htmltext, $tooltipon = 1, $direction = 0, $img = '', $extracss = '', $notabs = 3, $incbefore = '', $noencodehtmltext = 0, $tooltiptrigger = '', $forcenowrap = 0)
  {
    if ($incbefore) {
      $text = $incbefore . $text;
    }
    if (!$htmltext) {
      return $text;
    }
    $direction = (int) $direction;    // For backward compatibility when $direction was set to '' instead of 0
 
    $tag = 'td';
    if ($notabs == 2) {
      $tag = 'div';
    }
    if ($notabs == 3) {
      $tag = 'span';
    }
    // Sanitize tooltip
    $htmltext = str_replace(array("\r", "\n"), '', $htmltext);
 
    $extrastyle = '';
    if ($direction < 0) {
      $extracss = ($extracss ? $extracss . ' ' : '') . ($notabs != 3 ? 'inline-block' : '');
      $extrastyle = 'padding: 0px; padding-left: 3px;';
    }
    if ($direction > 0) {
      $extracss = ($extracss ? $extracss . ' ' : '') . ($notabs != 3 ? 'inline-block' : '');
      $extrastyle = 'padding: 0px; padding-right: 3px;';
    }
 
    $classfortooltip = 'classfortooltip';
 
    $s = '';
    $textfordialog = '';
 
    if ($tooltiptrigger == '') {
      $htmltext = str_replace('"', '&quot;', $htmltext);
    } else {
      $classfortooltip = 'classfortooltiponclick';
      $textfordialog .= '<div style="display: none;" id="idfortooltiponclick_' . $tooltiptrigger . '" class="classfortooltiponclicktext">' . $htmltext . '</div>';
    }
    if ($tooltipon == 2 || $tooltipon == 3) {
      $paramfortooltipimg = ' class="' . $classfortooltip . ($notabs != 3 ? ' inline-block' : '') . ($extracss ? ' ' . $extracss : '') . '" style="padding: 0px;' . ($extrastyle ? ' ' . $extrastyle : '') . '"';
      if ($tooltiptrigger == '') {
        $paramfortooltipimg .= ' title="' . ($noencodehtmltext ? $htmltext : dol_escape_htmltag($htmltext, 1)) . '"'; // 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;
 
    //For backwards compatibility
    if ($type == '0') {
      $type = 'info';
    } elseif ($type == '1') {
      $type = 'help';
    }
    // Clean parameters
    $tooltiptrigger = preg_replace('/[^a-z0-9]/i', '', $tooltiptrigger);
 
    if (preg_match('/onsmartphone$/', $tooltiptrigger) && empty($conf->dol_no_mouse_hover)) {
      $tooltiptrigger = preg_replace('/^.*onsmartphone$/', '', $tooltiptrigger);
    }
    $alt = '';
    if ($tooltiptrigger) {
      $alt = $langs->transnoentitiesnoconv("ClickToShowHelp");
    }
 
    // If info or help with no javascript, show only text
    if (empty($conf->use_javascript_ajax)) {
      if ($type == 'info' || $type == 'infoclickable' || $type == 'help' || $type == 'helpclickable') {
        return $text;
      } else {
        $alt = $htmltext;
        $htmltext = '';
      }
    }
 
    // If info or help with smartphone, show only text (tooltip hover can't works)
    if (!empty($conf->dol_no_mouse_hover) && empty($tooltiptrigger)) {
      if ($type == 'info' || $type == 'infoclickable' || $type == 'help' || $type == 'helpclickable') {
        return $text;
      }
    }
    // If info or help with smartphone, show only text (tooltip on click does not works with dialog on smaprtphone)
    //if (!empty($conf->dol_no_mouse_hover) && !empty($tooltiptrigger))
    //{
    //if ($type == 'info' || $type == 'help') return '<a href="'..'">'.$text.'</a>';
    //}
 
    $img = '';
    if ($type == 'info') {
      $img = img_help(0, $alt);
    } elseif ($type == 'help') {
      $img = img_help(($tooltiptrigger != '' ? 2 : 1), $alt);
    } elseif ($type == 'helpclickable') {
      $img = img_help(($tooltiptrigger != '' ? 2 : 1), $alt);
    } elseif ($type == 'superadmin') {
      $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 (is_array($arrayofaction) && count($arrayofaction) == 0 && empty($hookmanager->resPrint)) {
      return;
    }
    if (empty($reshook)) {
      $ret .= '<option value="0"' . ($disabled ? ' disabled="disabled"' : '') . '>-- ' . $langs->trans("SelectAction") . ' --</option>';
      if (is_array($arrayofaction)) {
        foreach ($arrayofaction as $code => $label) {
          $ret .= '<option value="' . $code . '"' . ($disabled ? ' disabled="disabled"' : '') . ' data-html="' . dol_escape_htmltag($label) . '">' . $label . '</option>';
        }
      }
    }
    $ret .= $hookmanager->resPrint;
 
    $ret .= '</select>';
 
    if (empty($conf->dol_optimize_smallscreen)) {
      $ret .= ajax_combobox('.' . $name . 'select');
    }
 
    // Warning: if you set submit button to disabled, post using 'Enter' will no more work if there is no another input submit. So we add a hidden button
    $ret .= '<input type="submit" name="confirmmassactioninvisible" style="display: none" tabindex="-1">'; // Hidden button BEFORE so it is the one used when we submit with ENTER.
    $ret .= '<input type="submit" disabled name="confirmmassaction"' . (empty($conf->use_javascript_ajax) ? '' : ' style="display: none"') . ' class="reposition button smallpaddingimp' . (empty($conf->use_javascript_ajax) ? '' : ' hideobject') . ' ' . $name . ' ' . $name . 'confirmed" value="' . dol_escape_htmltag($langs->trans("Confirm")) . '">';
    $ret .= '</div>';
 
    if (!empty($conf->use_javascript_ajax)) {
      $ret .= '<!-- JS CODE TO ENABLE mass action select -->
        <script nonce="' . getNonce() . '">
                        function initCheckForSelect(mode, name, cssclass) /* mode is 0 during init of page or click all, 1 when we click on 1 checkboxi, "name" refers to the class of the massaction button, "cssclass" to the class of the checkfor select boxes */
            {
              atleastoneselected=0;
                                jQuery("."+cssclass).each(function( index ) {
                /* console.log( index + ": " + $( this ).text() ); */
                if ($(this).is(\':checked\')) atleastoneselected++;
              });
 
          console.log("initCheckForSelect mode="+mode+" name="+name+" cssclass="+cssclass+" atleastoneselected="+atleastoneselected);
 
              if (atleastoneselected || ' . $alwaysvisible . ')
              {
                                    jQuery("."+name).show();
                  ' . ($selected ? 'if (atleastoneselected) { jQuery("."+name+"select").val("' . $selected . '").trigger(\'change\'); jQuery("."+name+"confirmed").prop(\'disabled\', false); }' : '') . '
                  ' . ($selected ? 'if (! atleastoneselected) { jQuery("."+name+"select").val("0").trigger(\'change\'); jQuery("."+name+"confirmed").prop(\'disabled\', true); } ' : '') . '
              }
              else
              {
                                    jQuery("."+name).hide();
                                    jQuery("."+name+"other").hide();
                  }
            }
 
          jQuery(document).ready(function () {
                    initCheckForSelect(0, "' . $name . '", "' . $cssclass . '");
                    jQuery(".' . $cssclass . '").click(function() {
                        initCheckForSelect(1, "' . $name . '", "' . $cssclass . '");
                    });
                        jQuery(".' . $name . 'select").change(function() {
              var massaction = $( this ).val();
              var urlform = $( this ).closest("form").attr("action").replace("#show_files","");
              if (massaction == "builddoc")
                    {
                        urlform = urlform + "#show_files";
                  }
              $( this ).closest("form").attr("action", urlform);
                    console.log("we select a mass action name=' . $name . ' massaction="+massaction+" - "+urlform);
                  /* Warning: if you set submit button to disabled, post using Enter will no more work if there is no other button */
              if ($(this).val() != \'0\')
              {
                                        jQuery(".' . $name . 'confirmed").prop(\'disabled\', false);
                    jQuery(".' . $name . 'other").hide(); /* To disable if another div was open */
                                        jQuery(".' . $name . '"+massaction).show();
              }
              else
              {
                                        jQuery(".' . $name . 'confirmed").prop(\'disabled\', true);
                    jQuery(".' . $name . 'other").hide(); /* To disable any div open */
              }
              });
          });
        </script>
          ';
    }
 
    return $ret;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  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="-1">' . $langs->trans($showempty) . '</option>' . "\n";
          }
        }
 
        if ($addspecialentries) {    // Add dedicated entries for groups of countries
          //if ($showempty) $out.= '<option value="" disabled class="selectoptiondisabledwhite">--------------</option>';
          $out .= '<option value="special_allnotme"' . ($selected == 'special_allnotme' ? ' selected' : '') . '>' . $langs->trans("CountriesExceptMe", $langs->transnoentitiesnoconv("Country" . $mysoc->country_code)) . '</option>';
          $out .= '<option value="special_eec"' . ($selected == 'special_eec' ? ' selected' : '') . '>' . $langs->trans("CountriesInEEC") . '</option>';
          if ($mysoc->isInEEC()) {
            $out .= '<option value="special_eecnotme"' . ($selected == 'special_eecnotme' ? ' selected' : '') . '>' . $langs->trans("CountriesInEECExceptMe", $langs->transnoentitiesnoconv("Country" . $mysoc->country_code)) . '</option>';
          }
          $out .= '<option value="special_noteec"' . ($selected == 'special_noteec' ? ' selected' : '') . '>' . $langs->trans("CountriesNotInEEC") . '</option>';
          $out .= '<option value="" disabled class="selectoptiondisabledwhite">------------</option>';
        }
 
        foreach ($countryArray as $row) {
          //if (empty($showempty) && empty($row['rowid'])) continue;
          if (empty($row['rowid'])) {
            continue;
          }
          if (is_array($exclude_country_code) && count($exclude_country_code) && in_array($row['code_iso'], $exclude_country_code)) {
            continue; // exclude some countries
          }
 
          if (empty($disablefavorites) && $row['favorite'] && $row['code_iso']) {
            $atleastonefavorite++;
          }
          if (empty($row['favorite']) && $atleastonefavorite) {
            $atleastonefavorite = 0;
            $out .= '<option value="" disabled class="selectoptiondisabledwhite">------------</option>';
          }
 
          $labeltoshow = '';
          if ($row['label']) {
            $labeltoshow .= dol_trunc($row['label'], $maxlength, 'middle');
          } else {
            $labeltoshow .= '&nbsp;';
          }
          if ($row['code_iso']) {
            $labeltoshow .= ' <span class="opacitymedium">(' . $row['code_iso'] . ')</span>';
            if (empty($hideflags)) {
              $tmpflag = picto_from_langcode($row['code_iso'], 'class="saturatemedium paddingrightonly"', 1);
              $labeltoshow = $tmpflag . ' ' . $labeltoshow;
            }
          }
 
          if ($selected && $selected != '-1' && ($selected == $row['rowid'] || $selected == $row['code_iso'] || $selected == $row['code_iso3'] || $selected == $row['label'])) {
            $out .= '<option value="' . ($usecodeaskey ? ($usecodeaskey == 'code2' ? $row['code_iso'] : $row['code_iso3']) : $row['rowid']) . '" selected data-html="' . dol_escape_htmltag($labeltoshow) . '" data-eec="' . ((int) $row['eec']) . '">';
          } else {
            $out .= '<option value="' . ($usecodeaskey ? ($usecodeaskey == 'code2' ? $row['code_iso'] : $row['code_iso3']) : $row['rowid']) . '" data-html="' . dol_escape_htmltag($labeltoshow) . '" data-eec="' . ((int) $row['eec']) . '">';
          }
          $out .= $labeltoshow;
          $out .= '</option>' . "\n";
        }
      }
      $out .= '</select>';
    } else {
      dol_print_error($this->db);
    }
 
    // Make select dynamic
    include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
    $out .= ajax_combobox('select' . $htmlname, array(), 0, 0, 'resolve');
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  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', array(), 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;
 
    // If product & services are enabled or both disabled.
    if ($forceall == 1 || (empty($forceall) && isModEnabled("product") && isModEnabled("service"))
      || (empty($forceall) && !isModEnabled('product') && !isModEnabled('service'))) {
      if (empty($hidetext)) {
        print $langs->trans("Type") . ': ';
      }
      print '<select class="flat" 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) && !isModEnabled('product') && isModEnabled("service")) || $forceall == 3) {
      print $langs->trans("Service");
      print '<input type="hidden" name="' . $htmlname . '" value="1">';
    }
    if ((empty($forceall) && isModEnabled("product") && !isModEnabled('service')) || $forceall == 2) {
      print $langs->trans("Product");
      print '<input type="hidden" name="' . $htmlname . '" value="0">';
    }
    if ($forceall < 0) {    // This should happened only for contracts when both predefined product and service are disabled.
      print '<input type="hidden" name="' . $htmlname . '" value="1">'; // By default we set on service for contract. If CONTRACT_SUPPORT_PRODUCTS is set, forceall should be 1 not -1
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  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) && getDolGlobalString('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 .= '<!-- force css to be higher than dialog popup --><style type="text/css">.ui-autocomplete { z-index: 1010; }</style>';
      if (empty($hidelabel)) {
        print $langs->trans("RefOrLabel") . ' : ';
      } elseif ($hidelabel > 1) {
        $placeholder = $langs->trans("RefOrLabel");
        if ($hidelabel == 2) {
          $out .= img_picto($langs->trans("Search"), 'search');
        }
      }
      $out .= '<input type="text" class="' . $morecss . '" name="search_' . $htmlname . '" id="search_' . $htmlname . '" value="' . $selected_input_value . '"' . ($placeholder ? ' placeholder="' . dol_escape_htmltag($placeholder) . '"' : '') . ' ' . (getDolGlobalString('THIRDPARTY_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';
      if ($hidelabel == 3) {
        $out .= img_picto($langs->trans("Search"), 'search');
      }
 
      $out .= ajax_event($htmlname, $events);
 
      $out .= ajax_autocompleter($selected, $htmlname, 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 = '';
        return 'SQLInjectionTryDetected';
      }
    }
 
    if ($filter != '') {  // If a filter was provided
      if (preg_match('/[\‍(\‍)]/', $filter)) {
        // If there is one parenthesis inside the criteria, we assume it is an Universal Filter Syntax.
        $errormsg = '';
        $filter = forgeSQLFromUniversalSearchCriteria($filter, $errormsg, 1);
 
        // Redo clean $filter that may contains sql conditions so sql code
        if (function_exists('testSqlAndScriptInject')) {
          if (testSqlAndScriptInject($filter, 3) > 0) {
            $filter = '';
            return 'SQLInjectionTryDetected';
          }
        }
      } else {
        // If not, we do nothing. We already know that there is no parenthesis
        // TODO Disallow this case in a future.
        dol_syslog("Warning, select_thirdparty_list was called with a filter criteria not using the Universal Search Syntax.", LOG_WARNING);
      }
    }
 
    // We search companies
    $sql = "SELECT s.rowid, s.nom as name, s.name_alias, s.tva_intra, s.client, s.fournisseur, s.code_client, s.code_fournisseur";
    if (getDolGlobalString('COMPANY_SHOW_ADDRESS_SELECTLIST')) {
      $sql .= ", s.address, s.zip, s.town";
      $sql .= ", dictp.code as country_code";
    }
    $sql .= " FROM " . $this->db->prefix() . "societe as s";
    if (getDolGlobalString('COMPANY_SHOW_ADDRESS_SELECTLIST')) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "c_country as dictp ON dictp.rowid = s.fk_pays";
    }
    if (!$user->hasRight('societe', 'client', 'voir') && !$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) {
      // $filter is safe because, if it contains '(' or ')', it has been sanitized by testSqlAndScriptInject() and forgeSQLFromUniversalSearchCriteria()
      // if not, by testSqlAndScriptInject() only.
      $sql .= " AND (" . $filter . ")";
    }
    if (!$user->hasRight('societe', 'client', 'voir') && !$user->socid) {
      $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = " . ((int) $user->id);
    }
    if (getDolGlobalString('COMPANY_HIDE_INACTIVE_IN_COMBOBOX')) {
      $sql .= " AND s.status <> 0";
    }
    if (!empty($excludeids)) {
      $sql .= " AND s.rowid NOT IN (" . $this->db->sanitize(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 = !getDolGlobalString('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 (isModEnabled('barcode')) {
        $sql .= " OR s.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
      }
      $sql .= " OR s.code_client LIKE '" . $this->db->escape($prefix . $filterkey) . "%' OR s.code_fournisseur LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
      $sql .= " OR s.name_alias LIKE '" . $this->db->escape($prefix . $filterkey) . "%' OR s.tva_intra LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
      $sql .= ")";
    }
    $sql .= $this->db->order("nom", "ASC");
    $sql .= $this->db->plimit($limit, 0);
 
    // Build output string
    dol_syslog(get_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 (getDolGlobalString('COMPANY_USE_SEARCH_TO_SELECT')) {
        // Do not use textifempty = ' ' or '&nbsp;' here, or search on key will search on ' key'.
        //if (!empty($conf->use_javascript_ajax) || $forcecombo) $textifempty='';
        if ($showempty && !is_numeric($showempty)) {
          $textifempty = $langs->trans($showempty);
        } else {
          $textifempty .= $langs->trans("All");
        }
      }
      if ($showempty) {
        $out .= '<option value="-1" data-html="' . dol_escape_htmltag('<span class="opacitymedium">' . ($textifempty ? $textifempty : '&nbsp;') . '</span>') . '">' . $textifempty . '</option>' . "\n";
      }
 
      $companytemp = new Societe($this->db);
 
      $num = $this->db->num_rows($resql);
      $i = 0;
      if ($num) {
        while ($i < $num) {
          $obj = $this->db->fetch_object($resql);
          $label = '';
          if ($showcode || getDolGlobalString('SOCIETE_ADD_REF_IN_LIST')) {
            if (($obj->client) && (!empty($obj->code_client))) {
              $label = $obj->code_client . ' - ';
            }
            if (($obj->fournisseur) && (!empty($obj->code_fournisseur))) {
              $label .= $obj->code_fournisseur . ' - ';
            }
            $label .= ' ' . $obj->name;
          } else {
            $label = $obj->name;
          }
 
          if (!empty($obj->name_alias)) {
            $label .= ' (' . $obj->name_alias . ')';
          }
 
          if (getDolGlobalString('SOCIETE_SHOW_VAT_IN_LIST') && !empty($obj->tva_intra)) {
            $label .= ' - '.$obj->tva_intra;
          }
 
          $labelhtml = $label;
 
          if ($showtype) {
            $companytemp->id = $obj->rowid;
            $companytemp->client = $obj->client;
            $companytemp->fournisseur = $obj->fournisseur;
            $tmptype = $companytemp->getTypeUrl(1, '', 0, 'span');
            if ($tmptype) {
              $labelhtml .= ' ' . $tmptype;
            }
 
            if ($obj->client || $obj->fournisseur) {
              $label .= ' (';
            }
            if ($obj->client == 1 || $obj->client == 3) {
              $label .= $langs->trans("Customer");
            }
            if ($obj->client == 2 || $obj->client == 3) {
              $label .= ($obj->client == 3 ? ', ' : '') . $langs->trans("Prospect");
            }
            if ($obj->fournisseur) {
              $label .= ($obj->client ? ', ' : '') . $langs->trans("Supplier");
            }
            if ($obj->client || $obj->fournisseur) {
              $label .= ')';
            }
          }
 
          if (getDolGlobalString('COMPANY_SHOW_ADDRESS_SELECTLIST')) {
            $s = ($obj->address ? ' - ' . $obj->address : '') . ($obj->zip ? ' - ' . $obj->zip : '') . ($obj->town ? ' ' . $obj->town : '');
            if (!empty($obj->country_code)) {
              $s .= ', ' . $langs->trans('Country' . $obj->country_code);
            }
            $label .= $s;
            $labelhtml .= $s;
          }
 
          if (empty($outputmode)) {
            if (in_array($obj->rowid, $selected)) {
              $out .= '<option value="' . $obj->rowid . '" selected data-html="' . dol_escape_htmltag($labelhtml, 0, 0, '', 0, 1) . '">' . dol_escape_htmltag($label, 0, 0, '', 0, 1) . '</option>';
            } else {
              $out .= '<option value="' . $obj->rowid . '" data-html="' . dol_escape_htmltag($labelhtml, 0, 0, '', 0, 1) . '">' . dol_escape_htmltag($label, 0, 0, '', 0, 1) . '</option>';
            }
          } else {
            array_push($outarray, array('key' => $obj->rowid, 'value' => $label, 'label' => $label, 'labelhtml' => $labelhtml));
          }
 
          $i++;
          if (($i % 10) == 0) {
            $out .= "\n";
          }
        }
      }
      $out .= '</select>' . "\n";
    } 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 (getDolGlobalString('MAIN_SHOW_FACNUMBER_IN_DISCOUNT_LIST') && !empty($obj->fk_facture_source)) {
            $tmpfac = new Facture($this->db);
            if ($tmpfac->fetch($obj->fk_facture_source) > 0) {
              $desc = $desc . ' - ' . $tmpfac->ref;
            }
          }
 
          print '<option value="' . $obj->rowid . '"' . $selectstring . $disabled . '>' . $desc . ' (' . price($obj->amount_ht) . ' ' . $langs->trans("HT") . ' - ' . price($obj->amount_ttc) . ' ' . $langs->trans("TTC") . ')</option>';
          $i++;
        }
      }
      print '</select>';
      print ajax_combobox('select_' . $htmlname);
 
      return $qualifiedlines;
    } else {
      dol_print_error($this->db);
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  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 = array(), $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 || getDolGlobalString('CONTACT_SHOW_EMAIL_PHONE_TOWN_SELECTLIST')) {
      $sql .= ", s.nom as company, s.town AS company_town";
    }
    $sql .= " FROM " . $this->db->prefix() . "socpeople as sp";
    if ($showsoc > 0 || getDolGlobalString('CONTACT_SHOW_EMAIL_PHONE_TOWN_SELECTLIST')) {
      $sql .= " LEFT OUTER JOIN  " . $this->db->prefix() . "societe as s ON s.rowid=sp.fk_soc";
    }
    $sql .= " WHERE sp.entity IN (" . getEntity('contact') . ")";
    if ($socid > 0 || $socid == -1) {
      $sql .= " AND sp.fk_soc = " . ((int) $socid);
    }
    if (getDolGlobalString('CONTACT_HIDE_INACTIVE_IN_COMBOBOX')) {
      $sql .= " AND sp.statut <> 0";
    }
    // 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 (getDolGlobalString('CONTACT_SHOW_EMAIL_PHONE_TOWN_SELECTLIST')) {
            $extendedInfos = array();
            $email = trim($obj->email);
            if (!empty($email)) {
              $extendedInfos[] = $email;
            } else {
              $phone = trim($obj->phone);
              $phone_perso = trim($obj->phone_perso);
              $phone_mobile = trim($obj->phone_mobile);
              if (!empty($phone)) {
                $extendedInfos[] = $phone;
              }
              if (!empty($phone_perso)) {
                $extendedInfos[] = $phone_perso;
              }
              if (!empty($phone_mobile)) {
                $extendedInfos[] = $phone_mobile;
              }
            }
            $contact_town = trim($obj->contact_town);
            $company_town = trim($obj->company_town);
            if (!empty($contact_town)) {
              $extendedInfos[] = $contact_town;
            } elseif (!empty($company_town)) {
              $extendedInfos[] = $company_town;
            }
            $extendedInfos = implode(' - ', $extendedInfos);
            if (!empty($extendedInfos)) {
              $extendedInfos = ' - ' . $extendedInfos;
            }
          }
 
          $contactstatic->id = $obj->rowid;
          $contactstatic->lastname = $obj->lastname;
          $contactstatic->firstname = $obj->firstname;
          if ($obj->statut == 1) {
            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 = array(), $force_entity = '0')
  {
    // phpcs:enable
    print $this->select_dolusers($selected, $htmlname, $show_empty, $exclude, $disabled, $include, $enableonly, $force_entity);
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function select_dolusers($selected = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = '', $enableonly = '', $force_entity = '', $maxlength = 0, $showstatus = 0, $morefilter = '', $show_every = 0, $enableonlytext = '', $morecss = '', $notdisabled = 0, $outputmode = 0, $multiple = false, $forcecombo = 0)
  {
    // phpcs:enable
    global $conf, $user, $langs, $hookmanager;
    global $action;
 
    // If no preselected user defined, we take current user
    if ((is_numeric($selected) && ($selected < -2 || empty($selected))) && !getDolGlobalString('SOCIETE_DISABLE_DEFAULT_SALESREPRESENTATIVE')) {
      $selected = $user->id;
    }
 
    if ($selected === '') {
      $selected = array();
    } elseif (!is_array($selected)) {
      $selected = array($selected);
    }
 
    $excludeUsers = null;
    $includeUsers = null;
 
    // Exclude some users
    if (is_array($exclude)) {
      $excludeUsers = implode(",", $exclude);
    }
    // Include some uses
    if (is_array($include)) {
      $includeUsers = implode(",", $include);
    } elseif ($include == 'hierarchy') {
      // Build list includeUsers to have only hierarchy
      $includeUsers = implode(",", $user->getAllChildIds(0));
    } elseif ($include == 'hierarchyme') {
      // Build list includeUsers to have only hierarchy and current user
      $includeUsers = implode(",", $user->getAllChildIds(1));
    }
 
    $out = '';
    $outarray = array();
    $outarray2 = 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 (isModEnabled('multicompany') && $conf->entity == 1 && $user->admin && !$user->entity) {
      $sql .= ", e.label";
    }
    $sql .= " FROM " . $this->db->prefix() . "user as u";
    if (isModEnabled('multicompany') && $conf->entity == 1 && $user->admin && !$user->entity) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "entity as e ON e.rowid = u.entity";
      if (!empty($force_entity)) {
        $sql .= " WHERE u.entity IN (0, " . $this->db->sanitize($force_entity) . ")";
      } else {
        $sql .= " WHERE u.entity IS NOT NULL";
      }
    } else {
      if (isModEnabled('multicompany') && getDolGlobalInt('MULTICOMPANY_TRANSVERSE_MODE')) {
        $sql .= " WHERE u.rowid IN (SELECT ug.fk_user FROM ".$this->db->prefix()."usergroup_user as ug WHERE ug.entity IN (".getEntity('usergroup')."))";
      } else {
        $sql .= " WHERE u.entity IN (" . getEntity('user') . ")";
      }
    }
    if (!empty($user->socid)) {
      $sql .= " AND u.fk_soc = " . ((int) $user->socid);
    }
    if (is_array($exclude) && $excludeUsers) {
      $sql .= " AND u.rowid NOT IN (" . $this->db->sanitize($excludeUsers) . ")";
    }
    if ($includeUsers) {
      $sql .= " AND u.rowid IN (" . $this->db->sanitize($includeUsers) . ")";
    }
    if (getDolGlobalString('USER_HIDE_INACTIVE_IN_COMBOBOX') || $notdisabled) {
      $sql .= " AND u.statut <> 0";
    }
    if (!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 (!getDolGlobalString('MAIN_FIRSTNAME_NAME_POSITION')) {    // MAIN_FIRSTNAME_NAME_POSITION is 0 means firstname+lastname
      $sql .= " ORDER BY u.statut DESC, u.firstname ASC, u.lastname ASC";
    } else {
      $sql .= " ORDER BY u.statut DESC, u.lastname ASC, u.firstname ASC";
    }
 
    dol_syslog(get_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 = '';
          $labeltoshowhtml = '';
 
          // $fullNameMode is 0=Lastname+Firstname (MAIN_FIRSTNAME_NAME_POSITION=1), 1=Firstname+Lastname (MAIN_FIRSTNAME_NAME_POSITION=0)
          $fullNameMode = 0;
          if (!getDolGlobalString('MAIN_FIRSTNAME_NAME_POSITION')) {
            $fullNameMode = 1; //Firstname+lastname
          }
          $labeltoshow .= $userstatic->getFullName($langs, $fullNameMode, -1, $maxlength);
          $labeltoshowhtml .= $userstatic->getFullName($langs, $fullNameMode, -1, $maxlength);
          if (empty($obj->firstname) && empty($obj->lastname)) {
            $labeltoshow .= $obj->login;
            $labeltoshowhtml .= $obj->login;
          }
 
          // Complete name with a more info string like: ' (info1 - info2 - ...)'
          $moreinfo = '';
          $moreinfohtml = '';
          if (getDolGlobalString('MAIN_SHOW_LOGIN')) {
            $moreinfo .= ($moreinfo ? ' - ' : ' (');
            $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(');
            $moreinfo .= $obj->login;
            $moreinfohtml .= $obj->login;
          }
          if ($showstatus >= 0) {
            if ($obj->status == 1 && $showstatus == 1) {
              $moreinfo .= ($moreinfo ? ' - ' : ' (') . $langs->trans('Enabled');
              $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . $langs->trans('Enabled');
            }
            if ($obj->status == 0 && $showstatus == 1) {
              $moreinfo .= ($moreinfo ? ' - ' : ' (') . $langs->trans('Disabled');
              $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . $langs->trans('Disabled');
            }
          }
          if (isModEnabled('multicompany') && !getDolGlobalInt('MULTICOMPANY_TRANSVERSE_MODE') && $conf->entity == 1 && !empty($user->admin) && empty($user->entity)) {
            if (empty($obj->entity)) {
              $moreinfo .= ($moreinfo ? ' - ' : ' (') . $langs->trans("AllEntities");
              $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . $langs->trans("AllEntities");
            } else {
              if ($obj->entity != $conf->entity) {
                $moreinfo .= ($moreinfo ? ' - ' : ' (') . ($obj->label ? $obj->label : $langs->trans("EntityNameNotDefined"));
                $moreinfohtml .= ($moreinfohtml ? ' - ' : ' <span class="opacitymedium">(') . ($obj->label ? $obj->label : $langs->trans("EntityNameNotDefined"));
              }
            }
          }
          $moreinfo .= (!empty($moreinfo) ? ')' : '');
          $moreinfohtml .= (!empty($moreinfohtml) ? ')</span>' : '');
          if (!empty($disableline) && $disableline != '1') {
            // Add text from $enableonlytext parameter
            $moreinfo .= ' - ' . $disableline;
            $moreinfohtml .= ' - ' . $disableline;
          }
          $labeltoshow .= $moreinfo;
          $labeltoshowhtml .= $moreinfohtml;
 
          $out .= '<option value="' . $obj->rowid . '"';
          if (!empty($disableline)) {
            $out .= ' disabled';
          }
          if ((is_object($selected) && $selected->id == $obj->rowid) || (!is_object($selected) && in_array($obj->rowid, $selected))) {
            $out .= ' selected';
          }
          $out .= ' data-html="';
          $outhtml = $userstatic->getNomUrl(-3, '', 0, 1, 24, 1, 'login', '', 1) . ' ';
          if ($showstatus >= 0 && $obj->status == 0) {
            $outhtml .= '<strike class="opacitymediumxxx">';
          }
          $outhtml .= $labeltoshowhtml;
          if ($showstatus >= 0 && $obj->status == 0) {
            $outhtml .= '</strike>';
          }
          $out .= dol_escape_htmltag($outhtml);
          $out .= '">';
          $out .= $labeltoshow;
          $out .= '</option>';
 
          $outarray[$userstatic->id] = $userstatic->getFullName($langs, $fullNameMode, -1, $maxlength) . $moreinfo;
          $outarray2[$userstatic->id] = array(
            'id'=>$userstatic->id,
            'label'=>$labeltoshow,
            'labelhtml'=>$labeltoshowhtml,
            'color'=>'',
            'picto'=>''
          );
 
          $i++;
        }
      } else {
        $out .= '<select class="flat" id="' . $htmlname . '" name="' . $htmlname . '" disabled>';
        $out .= '<option value="">' . $langs->trans("None") . '</option>';
      }
      $out .= '</select>';
 
      if ($num && !$forcecombo) {
        // Enhance with select2
        include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
        $out .= ajax_combobox($htmlname);
      }
    } else {
      dol_print_error($this->db);
    }
 
    if ($outputmode == 2) {
      return $outarray2;
    } elseif ($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 = array(), $enableonly = array(), $force_entity = '0', $maxlength = 0, $showstatus = 0, $morefilter = '', $showproperties = 0, $listofuserid = array(), $listofcontactid = array(), $listofotherid = array())
  {
    // phpcs:enable
    global $langs;
 
    $userstatic = new User($this->db);
    $out = '';
 
    $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 nonce="' . getNonce() . '" type="text/javascript">jQuery(document).ready(function () {';
      $out .= 'jQuery(".removedassigned").click(function() { jQuery(".removedassignedhidden").val(jQuery(this).val()); });';
      $out .= 'jQuery(".assignedtouser").change(function() { console.log(jQuery(".assignedtouser option:selected").val());';
      $out .= ' if (jQuery(".assignedtouser option:selected").val() > 0) { jQuery("#' . $action . 'assignedtouser").attr("disabled", false); }';
      $out .= ' else { jQuery("#' . $action . 'assignedtouser").attr("disabled", true); }';
      $out .= '});';
      $out .= '})</script>';
      $out .= $this->select_dolusers('', $htmlname, $show_empty, $exclude, $disabled, $include, $enableonly, $force_entity, $maxlength, $showstatus, $morefilter);
      $out .= ' <input type="submit" disabled class="button valignmiddle smallpaddingimp reposition" id="' . $action . 'assignedtouser" name="' . $action . 'assignedtouser" value="' . dol_escape_htmltag($langs->trans("Add")) . '">';
      $out .= '<br>';
    }
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_dolresources_forevent($action = '', $htmlname = 'userid', $show_empty = 0, $exclude = null, $disabled = 0, $include = array(), $enableonly = array(), $force_entity = '0', $maxlength = 0, $showstatus = 0, $morefilter = '', $showproperties = 0, $listofresourceid = array())
  {
    // phpcs:enable
    global $langs;
 
    require_once DOL_DOCUMENT_ROOT.'/resource/class/html.formresource.class.php';
    require_once DOL_DOCUMENT_ROOT.'/resource/class/dolresource.class.php';
    $formresources = new FormResource($this->db);
    $resourcestatic = new Dolresource($this->db);
 
    $out = '';
    $assignedtoresource = array();
    if (!empty($_SESSION['assignedtoresource'])) {
      $assignedtoresource = json_decode($_SESSION['assignedtoresource'], true);
    }
    $nbassignetoresource = count($assignedtoresource);
 
    //if ($nbassignetoresource && $action != 'view') $out .= '<br>';
    if ($nbassignetoresource) {
      $out .= '<ul class="attendees">';
    }
    $i = 0;
 
    foreach ($assignedtoresource as $key => $value) {
      $out .= '<li>';
      $resourcestatic->fetch($value['id']);
      $out .= $resourcestatic->getNomUrl(-1);
      if ($nbassignetoresource > 1 && $action != 'view') {
        $out .= ' <input type="image" style="border: 0px;" src="' . img_picto($langs->trans("Remove"), 'delete', '', 0, 1) . '" value="' . $resourcestatic->id . '" class="removedassigned reposition" id="removedassignedresource_' . $resourcestatic->id . '" name="removedassignedresource_' . $resourcestatic->id . '">';
      }
      // Show my availability
      if ($showproperties) {
        if (is_array($listofresourceid) && count($listofresourceid)) {
          $out .= '<div class="myavailability inline-block">';
          $out .= '<span class="hideonsmartphone">&nbsp;-&nbsp;<span class="opacitymedium">' . $langs->trans("Availability") . ':</span>  </span><input id="transparencyresource" class="paddingrightonly" ' . ($action == 'view' ? 'disabled' : '') . ' type="checkbox" name="transparency"' . ($listofresourceid[$value['id']]['transparency'] ? ' checked' : '') . '><label for="transparency">' . $langs->trans("Busy") . '</label>';
          $out .= '</div>';
        }
      }
      //$out.=' '.($value['mandatory']?$langs->trans("Mandatory"):$langs->trans("Optional"));
      //$out.=' '.($value['transparency']?$langs->trans("Busy"):$langs->trans("NotBusy"));
 
      $out .= '</li>';
      $i++;
    }
    if ($nbassignetoresource) {
      $out .= '</ul>';
    }
 
    // Method with no ajax
    if ($action != 'view') {
      $out .= '<input type="hidden" class="removedassignedhidden" name="removedassignedresource" value="">';
      $out .= '<script nonce="' . getNonce() . '" type="text/javascript">jQuery(document).ready(function () {';
      $out .= 'jQuery(".removedassignedresource").click(function() { jQuery(".removedassignedresourcehidden").val(jQuery(this).val()); });';
      $out .= 'jQuery(".assignedtoresource").change(function() { console.log(jQuery(".assignedtoresource option:selected").val());';
      $out .= ' if (jQuery(".assignedtoresource option:selected").val() > 0) { jQuery("#' . $action . 'assignedtoresource").attr("disabled", false); }';
      $out .= ' else { jQuery("#' . $action . 'assignedtoresource").attr("disabled", true); }';
      $out .= '});';
      $out .= '})</script>';
 
      $events = array();
      $out .= img_picto('', 'resource', 'class="pictofixedwidth"');
      $out .= $formresources->select_resource_list('', $htmlname, '', 1, 1, 0, $events, '', 2, null);
      //$out .= $this->select_dolusers('', $htmlname, $show_empty, $exclude, $disabled, $include, $enableonly, $force_entity, $maxlength, $showstatus, $morefilter);
      $out .= ' <input type="submit" disabled class="button valignmiddle smallpaddingimp reposition" id="' . $action . 'assignedtoresource" name="' . $action . 'assignedtoresource" value="' . dol_escape_htmltag($langs->trans("Add")) . '">';
      $out .= '<br>';
    }
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function select_produits($selected = 0, $htmlname = 'productid', $filtertype = '', $limit = 0, $price_level = 0, $status = 1, $finished = 2, $selected_input_value = '', $hidelabel = 0, $ajaxoptions = array(), $socid = 0, $showempty = '1', $forcecombo = 0, $morecss = '', $hidepriceinlabel = 0, $warehouseStatus = '', $selected_combinations = null, $nooutput = 0, $status_purchase = -1)
  {
    // phpcs:enable
    global $langs, $conf;
 
    $out = '';
 
    // check parameters
    $price_level = (!empty($price_level) ? $price_level : 0);
    if (is_null($ajaxoptions)) {
      $ajaxoptions = array();
    }
 
    if (strval($filtertype) === '' && (isModEnabled("product") || isModEnabled("service"))) {
      if (isModEnabled("product") && !isModEnabled('service')) {
        $filtertype = '0';
      } elseif (!isModEnabled('product') && isModEnabled("service")) {
        $filtertype = '1';
      }
    }
 
    if (!empty($conf->use_javascript_ajax) && getDolGlobalString('PRODUIT_USE_SEARCH_TO_SELECT')) {
      $placeholder = '';
 
      if ($selected && empty($selected_input_value)) {
        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 (!isModEnabled('product')) { // when product module is disabled, show services only
          $filtertype = 1;
        } elseif (!isModEnabled('service')) { // when service module is disabled, show products only
          $filtertype = 0;
        }
      }
      // mode=1 means customers products
      $urloption = ($socid > 0 ? 'socid=' . $socid . '&' : '') . 'htmlname=' . $htmlname . '&outjson=1&price_level=' . $price_level . '&type=' . $filtertype . '&mode=1&status=' . $status . '&status_purchase=' . $status_purchase . '&finished=' . $finished . '&hidepriceinlabel=' . $hidepriceinlabel . '&warehousestatus=' . $warehouseStatus;
      $out .= ajax_autocompleter($selected, $htmlname, DOL_URL_ROOT . '/product/ajax/products.php', $urloption, $conf->global->PRODUIT_USE_SEARCH_TO_SELECT, 1, $ajaxoptions);
 
      if (isModEnabled('variants') && is_array($selected_combinations)) {
        // Code to automatically insert with javascript the select of attributes under the select of product
        // when a parent of variant has been selected.
        $out .= '
        <!-- script to auto show attributes select tags if a variant was selected -->
        <script nonce="' . getNonce() . '">
          // auto show attributes fields
          selected = ' . json_encode($selected_combinations) . ';
          combvalues = {};
 
          jQuery(document).ready(function () {
 
            jQuery("input[name=\'prod_entry_mode\']").change(function () {
              if (jQuery(this).val() == \'free\') {
                jQuery(\'div#attributes_box\').empty();
              }
            });
 
            jQuery("input#' . $htmlname . '").change(function () {
 
              if (!jQuery(this).val()) {
                jQuery(\'div#attributes_box\').empty();
                return;
              }
 
              console.log("A change has started. We get variants fields to inject html select");
 
              jQuery.getJSON("' . 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 . ' ' . (getDolGlobalString('PRODUCT_SEARCH_AUTOFOCUS') ? 'autofocus' : '') . ' />';
      if ($hidelabel == 3) {
        $out .= img_picto($langs->trans("Search"), 'search');
      }
    } else {
      $out .= $this->select_produits_list($selected, $htmlname, $filtertype, $limit, $price_level, '', $status, $finished, 0, $socid, $showempty, $forcecombo, $morecss, $hidepriceinlabel, $warehouseStatus, $status_purchase);
    }
 
    if (empty($nooutput)) {
      print $out;
    } else {
      return $out;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function select_bom($selected = '', $htmlname = 'bom_id', $limit = 0, $status = 1, $type = 0, $showempty = '1', $morecss = '', $nooutput = '', $forcecombo = 0, $TProducts = [])
  {
    // 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 bomtype = ' . (int) $type;
    }
    if (!empty($TProducts)) {
      $sql .= ' AND fk_product IN (' . $this->db->sanitize(implode(',', $TProducts)) . ')';
    }
    if (!empty($limit)) {
      $sql .= ' LIMIT ' . (int) $limit;
    }
    $resql = $db->query($sql);
    if ($resql) {
      if ($showempty) {
        $out .= '<option value="-1"';
        if (empty($selected)) {
          $out .= ' selected';
        }
        $out .= '>&nbsp;</option>';
      }
      while ($obj = $db->fetch_object($resql)) {
        $product = new Product($db);
        $res = $product->fetch($obj->fk_product);
        $out .= '<option value="' . $obj->rowid . '"';
        if ($obj->rowid == $selected) {
          $out .= 'selected';
        }
        $out .= '>' . $obj->ref . ' - ' . $product->label . ' - ' . $obj->label . '</option>';
      }
    } else {
      $error++;
      dol_print_error($db);
    }
    $out .= '</select>';
    if (empty($nooutput)) {
      print $out;
    } else {
      return $out;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  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 (getDolGlobalInt('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 ";
 
    // Add select from hooks
    $parameters = array();
    $reshook = $hookmanager->executeHooks('selectProductsListSelect', $parameters); // Note that $action and $object may have been modified by hook
    if (empty($reshook)) {
      $sql .= $selectFields.$selectFieldsGrouped.$hookmanager->resPrint;
    } else {
      $sql .= $hookmanager->resPrint;
    }
 
    if (getDolGlobalString('PRODUCT_SORT_BY_CATEGORY')) {
      //Product category
      $sql .= ", (SELECT " . $this->db->prefix() . "categorie_product.fk_categorie
            FROM " . $this->db->prefix() . "categorie_product
            WHERE " . $this->db->prefix() . "categorie_product.fk_product=p.rowid
            LIMIT 1
        ) AS categorie_product_id ";
    }
 
    //Price by customer
    if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') && !empty($socid)) {
      $sql .= ', pcp.rowid as idprodcustprice, pcp.price as custprice, pcp.price_ttc as custprice_ttc,';
      $sql .= ' pcp.price_base_type as custprice_base_type, pcp.tva_tx as custtva_tx, pcp.default_vat_code as custdefault_vat_code, pcp.ref_customer as custref';
      $selectFields .= ", idprodcustprice, custprice, custprice_ttc, custprice_base_type, custtva_tx, custdefault_vat_code, custref";
    }
    // Units
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      $sql .= ", u.label as unit_long, u.short_label as unit_short, p.weight, p.weight_units, p.length, p.length_units, p.width, p.width_units, p.height, p.height_units, p.surface, p.surface_units, p.volume, p.volume_units";
      $selectFields .= ', unit_long, unit_short, p.weight, p.weight_units, p.length, p.length_units, p.width, p.width_units, p.height, p.height_units, p.surface, p.surface_units, p.volume, p.volume_units';
    }
 
    // Multilang : we add translation
    if (getDolGlobalInt('MAIN_MULTILANGS')) {
      $sql .= ", pl.label as label_translated";
      $sql .= ", pl.description as description_translated";
      $selectFields .= ", label_translated";
      $selectFields .= ", description_translated";
    }
    // Price by quantity
    if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) {
      $sql .= ", (SELECT pp.rowid FROM " . $this->db->prefix() . "product_price as pp WHERE pp.fk_product = p.rowid";
      if ($price_level >= 1 && getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) {
        $sql .= " AND price_level = " . ((int) $price_level);
      }
      $sql .= " ORDER BY date_price";
      $sql .= " DESC LIMIT 1) as price_rowid";
      $sql .= ", (SELECT pp.price_by_qty FROM " . $this->db->prefix() . "product_price as pp WHERE pp.fk_product = p.rowid"; // price_by_qty is 1 if some prices by qty exists in subtable
      if ($price_level >= 1 && getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) {
        $sql .= " AND price_level = " . ((int) $price_level);
      }
      $sql .= " ORDER BY date_price";
      $sql .= " DESC LIMIT 1) as price_by_qty";
      $selectFields .= ", price_rowid, price_by_qty";
    }
 
    $sql .= " FROM ".$this->db->prefix()."product as p";
    // Add from (left join) from hooks
    $parameters = array();
    $reshook = $hookmanager->executeHooks('selectProductsListFrom', $parameters); // Note that $action and $object may have been modified by hook
    $sql .= $hookmanager->resPrint;
 
    if (count($warehouseStatusArray)) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "product_stock as ps on ps.fk_product = p.rowid";
      $sql .= " LEFT JOIN " . $this->db->prefix() . "entrepot as e on ps.fk_entrepot = e.rowid AND e.entity IN (" . getEntity('stock') . ")";
      $sql .= ' AND e.statut IN (' . $this->db->sanitize($this->db->escape(implode(',', $warehouseStatusArray))) . ')'; // Return line if product is inside the selected stock. If not, an empty line will be returned so we will count 0.
    }
 
    // include search in supplier ref
    if (getDolGlobalString('MAIN_SEARCH_PRODUCT_BY_FOURN_REF')) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
    }
 
    //Price by customer
    if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') && !empty($socid)) {
      $sql .= " LEFT JOIN  " . $this->db->prefix() . "product_customer_price as pcp ON pcp.fk_soc=" . ((int) $socid) . " AND pcp.fk_product=p.rowid";
    }
    // Units
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "c_units u ON u.rowid = p.fk_unit";
    }
    // Multilang : we add translation
    if (getDolGlobalInt('MAIN_MULTILANGS')) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "product_lang as pl ON pl.fk_product = p.rowid ";
      if (getDolGlobalString('PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE') && !empty($socid)) {
        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 (getDolGlobalString('PRODUIT_ATTRIBUTES_HIDECHILD')) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "product_attribute_combination pac ON pac.fk_product_child = p.rowid";
    }
 
    $sql .= ' WHERE p.entity IN (' . getEntity('product') . ')';
 
    if (getDolGlobalString('PRODUIT_ATTRIBUTES_HIDECHILD')) {
      $sql .= " AND pac.rowid IS NULL";
    }
 
    if ($finished == 0) {
      $sql .= " AND p.finished = " . ((int) $finished);
    } elseif ($finished == 1) {
      $sql .= " AND p.finished = ".((int) $finished);
    }
    if ($status >= 0) {
      $sql .= " AND p.tosell = ".((int) $status);
    }
    if ($status_purchase >= 0) {
      $sql .= " AND p.tobuy = " . ((int) $status_purchase);
    }
    // Filter by product type
    if (strval($filtertype) != '') {
      $sql .= " AND p.fk_product_type = " . ((int) $filtertype);
    } elseif (!isModEnabled('product')) { // when product module is disabled, show services only
      $sql .= " AND p.fk_product_type = 1";
    } elseif (!isModEnabled('service')) { // when service module is disabled, show products only
      $sql .= " AND p.fk_product_type = 0";
    }
    // Add where from hooks
    $parameters = array();
    $reshook = $hookmanager->executeHooks('selectProductsListWhere', $parameters); // Note that $action and $object may have been modified by hook
    $sql .= $hookmanager->resPrint;
    // Add criteria on ref/label
    if ($filterkey != '') {
      $sql .= ' AND (';
      $prefix = !getDolGlobalString('PRODUCT_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $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 (getDolGlobalInt('MAIN_MULTILANGS')) {
          $sql .= " OR pl.label LIKE '" . $this->db->escape($prefix . $crit) . "%'";
        }
        if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') && !empty($socid)) {
          $sql .= " OR pcp.ref_customer LIKE '" . $this->db->escape($prefix . $crit) . "%'";
        }
        if (getDolGlobalString('PRODUCT_AJAX_SEARCH_ON_DESCRIPTION')) {
          $sql .= " OR p.description LIKE '" . $this->db->escape($prefix . $crit) . "%'";
          if (getDolGlobalInt('MAIN_MULTILANGS')) {
            $sql .= " OR pl.description LIKE '" . $this->db->escape($prefix . $crit) . "%'";
          }
        }
        if (getDolGlobalString('MAIN_SEARCH_PRODUCT_BY_FOURN_REF')) {
          $sql .= " OR pfp.ref_fourn LIKE '" . $this->db->escape($prefix . $crit) . "%'";
        }
        $sql .= ")";
        $i++;
      }
      if (count($scrit) > 1) {
        $sql .= ")";
      }
      if (isModEnabled('barcode')) {
        $sql .= " OR p.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
      }
      $sql .= ')';
    }
    if (count($warehouseStatusArray)) {
      $sql .= " GROUP BY " . $selectFields;
    }
 
    //Sort by category
    if (getDolGlobalString('PRODUCT_SORT_BY_CATEGORY')) {
      $sql .= " ORDER BY categorie_product_id ";
      //ASC OR DESC order
      (getDolGlobalInt('PRODUCT_SORT_BY_CATEGORY') == 1) ? $sql .= "ASC" : $sql .= "DESC";
    } else {
      $sql .= $this->db->order("p.ref");
    }
 
    $sql .= $this->db->plimit($limit, 0);
 
    // Build output string
    dol_syslog(get_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 (getDolGlobalString('PRODUIT_USE_SEARCH_TO_SELECT')) {
        if ($showempty && !is_numeric($showempty)) {
          $textifempty = $langs->trans($showempty);
        } else {
          $textifempty .= $langs->trans("All");
        }
      } else {
        if ($showempty && !is_numeric($showempty)) {
          $textifempty = $langs->trans($showempty);
        }
      }
      if ($showempty) {
        $out .= '<option value="-1" selected>' . ($textifempty ? $textifempty : '&nbsp;') . '</option>';
      }
 
      $i = 0;
      while ($num && $i < $num) {
        $opt = '';
        $optJson = array();
        $objp = $this->db->fetch_object($result);
 
        if ((getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES')) && !empty($objp->price_by_qty) && $objp->price_by_qty == 1) { // Price by quantity will return many prices for the same product
          $sql = "SELECT rowid, quantity, price, unitprice, remise_percent, remise, price_base_type";
          $sql .= " FROM " . $this->db->prefix() . "product_price_by_qty";
          $sql .= " WHERE fk_product_price = " . ((int) $objp->price_rowid);
          $sql .= " ORDER BY quantity ASC";
 
          dol_syslog(get_class($this) . "::select_produits_list search prices by qty", LOG_DEBUG);
          $result2 = $this->db->query($sql);
          if ($result2) {
            $nb_prices = $this->db->num_rows($result2);
            $j = 0;
            while ($nb_prices && $j < $nb_prices) {
              $objp2 = $this->db->fetch_object($result2);
 
              $objp->price_by_qty_rowid = $objp2->rowid;
              $objp->price_by_qty_price_base_type = $objp2->price_base_type;
              $objp->price_by_qty_quantity = $objp2->quantity;
              $objp->price_by_qty_unitprice = $objp2->unitprice;
              $objp->price_by_qty_remise_percent = $objp2->remise_percent;
              // For backward compatibility
              $objp->quantity = $objp2->quantity;
              $objp->price = $objp2->price;
              $objp->unitprice = $objp2->unitprice;
              $objp->remise_percent = $objp2->remise_percent;
 
              //$objp->tva_tx is not overwritten by $objp2 value
              //$objp->default_vat_code is not overwritten by $objp2 value
 
              $this->constructProductListOption($objp, $opt, $optJson, 0, $selected, $hidepriceinlabel, $filterkey);
 
              $j++;
 
              // Add new entry
              // "key" value of json key array is used by jQuery automatically as selected value
              // "label" value of json key array is used by jQuery automatically as text for combo box
              $out .= $opt;
              array_push($outarray, $optJson);
            }
          }
        } else {
          if (isModEnabled('dynamicprices') && !empty($objp->fk_price_expression)) {
            $price_product = new Product($this->db);
            $price_product->fetch($objp->rowid, '', '', 1);
 
            require_once DOL_DOCUMENT_ROOT . '/product/dynamic_price/class/price_parser.class.php';
            $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);
    }
 
    return '';
  }
 
  protected function constructProductListOption(&$objp, &$opt, &$optJson, $price_level, $selected, $hidepriceinlabel = 0, $filterkey = '', $novirtualstock = 0)
  {
    global $langs, $conf, $user;
    global $hookmanager;
 
    $outkey = '';
    $outval = '';
    $outref = '';
    $outlabel = '';
    $outlabel_translated = '';
    $outdesc = '';
    $outdesc_translated = '';
    $outbarcode = '';
    $outorigin = '';
    $outtype = '';
    $outprice_ht = '';
    $outprice_ttc = '';
    $outpricebasetype = '';
    $outtva_tx = '';
    $outdefault_vat_code = '';
    $outqty = 1;
    $outdiscount = 0;
 
    $maxlengtharticle = (!getDolGlobalString('PRODUCT_MAX_LENGTH_COMBO') ? 48 : $conf->global->PRODUCT_MAX_LENGTH_COMBO);
 
    $label = $objp->label;
    if (!empty($objp->label_translated)) {
      $label = $objp->label_translated;
    }
    if (!empty($filterkey) && $filterkey != '') {
      $label = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $label, 1);
    }
 
    $outkey = $objp->rowid;
    $outref = $objp->ref;
    $outrefcust = empty($objp->custref) ? '' : $objp->custref;
    $outlabel = $objp->label;
    $outdesc = $objp->description;
    if (getDolGlobalInt('MAIN_MULTILANGS')) {
      $outlabel_translated = $objp->label_translated;
      $outdesc_translated = $objp->description_translated;
    }
    $outbarcode = $objp->barcode;
    $outorigin = $objp->fk_country;
    $outpbq = empty($objp->price_by_qty_rowid) ? '' : $objp->price_by_qty_rowid;
 
    $outtype = $objp->fk_product_type;
    $outdurationvalue = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, 0, dol_strlen($objp->duration) - 1) : '';
    $outdurationunit = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, -1) : '';
 
    if ($outorigin && getDolGlobalString('PRODUCT_SHOW_ORIGIN_IN_COMBO')) {
      require_once DOL_DOCUMENT_ROOT . '/core/lib/company.lib.php';
    }
 
    // Units
    $outvalUnits = '';
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      if (!empty($objp->unit_short)) {
        $outvalUnits .= ' - ' . $objp->unit_short;
      }
    }
    if (getDolGlobalString('PRODUCT_SHOW_DIMENSIONS_IN_COMBO')) {
      if (!empty($objp->weight) && $objp->weight_units !== null) {
        $unitToShow = showDimensionInBestUnit($objp->weight, $objp->weight_units, 'weight', $langs);
        $outvalUnits .= ' - ' . $unitToShow;
      }
      if ((!empty($objp->length) || !empty($objp->width) || !empty($objp->height)) && $objp->length_units !== null) {
        $unitToShow = $objp->length . ' x ' . $objp->width . ' x ' . $objp->height . ' ' . measuringUnitString(0, 'size', $objp->length_units);
        $outvalUnits .= ' - ' . $unitToShow;
      }
      if (!empty($objp->surface) && $objp->surface_units !== null) {
        $unitToShow = showDimensionInBestUnit($objp->surface, $objp->surface_units, 'surface', $langs);
        $outvalUnits .= ' - ' . $unitToShow;
      }
      if (!empty($objp->volume) && $objp->volume_units !== null) {
        $unitToShow = showDimensionInBestUnit($objp->volume, $objp->volume_units, 'volume', $langs);
        $outvalUnits .= ' - ' . $unitToShow;
      }
    }
    if ($outdurationvalue && $outdurationunit) {
      $da = array(
        'h' => $langs->trans('Hour'),
        'd' => $langs->trans('Day'),
        'w' => $langs->trans('Week'),
        'm' => $langs->trans('Month'),
        'y' => $langs->trans('Year')
      );
      if (isset($da[$outdurationunit])) {
        $outvalUnits .= ' - ' . $outdurationvalue . ' ' . $langs->transnoentities($da[$outdurationunit] . ($outdurationvalue > 1 ? 's' : ''));
      }
    }
 
    $opt = '<option value="' . $objp->rowid . '"';
    $opt .= ($objp->rowid == $selected) ? ' selected' : '';
    if (!empty($objp->price_by_qty_rowid) && $objp->price_by_qty_rowid > 0) {
      $opt .= ' pbq="' . $objp->price_by_qty_rowid . '" data-pbq="' . $objp->price_by_qty_rowid . '" data-pbqup="' . $objp->price_by_qty_unitprice . '" data-pbqbase="' . $objp->price_by_qty_price_base_type . '" data-pbqqty="' . $objp->price_by_qty_quantity . '" data-pbqpercent="' . $objp->price_by_qty_remise_percent . '"';
    }
    if (isModEnabled('stock') && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || getDolGlobalString('STOCK_SUPPORTS_SERVICES'))) {
      if ($user->hasRight('stock', 'lire')) {
        if ($objp->stock > 0) {
          $opt .= ' class="product_line_stock_ok"';
        } elseif ($objp->stock <= 0) {
          $opt .= ' class="product_line_stock_too_low"';
        }
      }
    }
    if (getDolGlobalString('PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE')) {
      $opt .= ' data-labeltrans="' . $outlabel_translated . '"';
      $opt .= ' data-desctrans="' . dol_escape_htmltag($outdesc_translated) . '"';
    }
    $opt .= '>';
    $opt .= $objp->ref;
    if (!empty($objp->custref)) {
      $opt .= ' (' . $objp->custref . ')';
    }
    if ($outbarcode) {
      $opt .= ' (' . $outbarcode . ')';
    }
    $opt .= ' - ' . dol_trunc($label, $maxlengtharticle);
    if ($outorigin && getDolGlobalString('PRODUCT_SHOW_ORIGIN_IN_COMBO')) {
      $opt .= ' (' . getCountry($outorigin, 1) . ')';
    }
 
    $objRef = $objp->ref;
    if (!empty($objp->custref)) {
      $objRef .= ' (' . $objp->custref . ')';
    }
    if (!empty($filterkey) && $filterkey != '') {
      $objRef = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $objRef, 1);
    }
    $outval .= $objRef;
    if ($outbarcode) {
      $outval .= ' (' . $outbarcode . ')';
    }
    $outval .= ' - ' . dol_trunc($label, $maxlengtharticle);
    if ($outorigin && getDolGlobalString('PRODUCT_SHOW_ORIGIN_IN_COMBO')) {
      $outval .= ' (' . getCountry($outorigin, 1) . ')';
    }
 
    // Units
    $opt .= $outvalUnits;
    $outval .= $outvalUnits;
 
    $found = 0;
 
    // Multiprice
    // If we need a particular price level (from 1 to n)
    if (empty($hidepriceinlabel) && $price_level >= 1 && (getDolGlobalString('PRODUIT_MULTIPRICES') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES'))) {
      $sql = "SELECT price, price_ttc, price_base_type, tva_tx, default_vat_code";
      $sql .= " FROM " . $this->db->prefix() . "product_price";
      $sql .= " WHERE fk_product = " . ((int) $objp->rowid);
      $sql .= " AND entity IN (" . getEntity('productprice') . ")";
      $sql .= " AND price_level = " . ((int) $price_level);
      $sql .= " ORDER BY date_price DESC, rowid DESC"; // Warning DESC must be both on date_price and rowid.
      $sql .= " LIMIT 1";
 
      dol_syslog(get_class($this) . '::constructProductListOption search price for product ' . $objp->rowid . ' AND level ' . $price_level, LOG_DEBUG);
      $result2 = $this->db->query($sql);
      if ($result2) {
        $objp2 = $this->db->fetch_object($result2);
        if ($objp2) {
          $found = 1;
          if ($objp2->price_base_type == 'HT') {
            $opt .= ' - ' . price($objp2->price, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("HT");
            $outval .= ' - ' . price($objp2->price, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("HT");
          } else {
            $opt .= ' - ' . price($objp2->price_ttc, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("TTC");
            $outval .= ' - ' . price($objp2->price_ttc, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("TTC");
          }
          $outprice_ht = price($objp2->price);
          $outprice_ttc = price($objp2->price_ttc);
          $outpricebasetype = $objp2->price_base_type;
          if (getDolGlobalString('PRODUIT_MULTIPRICES_USE_VAT_PER_LEVEL')) {  // using this option is a bug. kept for backward compatibility
            $outtva_tx = $objp2->tva_tx;                        // We use the vat rate on line of multiprice
            $outdefault_vat_code = $objp2->default_vat_code;    // We use the vat code on line of multiprice
          } else {
            $outtva_tx = $objp->tva_tx;                            // We use the vat rate of product, not the one on line of multiprice
            $outdefault_vat_code = $objp->default_vat_code;        // We use the vat code or product, not the one on line of multiprice
          }
        }
      } else {
        dol_print_error($this->db);
      }
    }
 
    // Price by quantity
    if (empty($hidepriceinlabel) && !empty($objp->quantity) && $objp->quantity >= 1 && (getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_BY_QTY_MULTIPRICES'))) {
      $found = 1;
      $outqty = $objp->quantity;
      $outdiscount = $objp->remise_percent;
      if ($objp->quantity == 1) {
        $opt .= ' - ' . price($objp->unitprice, 1, $langs, 0, 0, -1, $conf->currency) . "/";
        $outval .= ' - ' . price($objp->unitprice, 0, $langs, 0, 0, -1, $conf->currency) . "/";
        $opt .= $langs->trans("Unit"); // Do not use strtolower because it breaks utf8 encoding
        $outval .= $langs->transnoentities("Unit");
      } else {
        $opt .= ' - ' . price($objp->price, 1, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
        $outval .= ' - ' . price($objp->price, 0, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
        $opt .= $langs->trans("Units"); // Do not use strtolower because it breaks utf8 encoding
        $outval .= $langs->transnoentities("Units");
      }
 
      $outprice_ht = price($objp->unitprice);
      $outprice_ttc = price($objp->unitprice * (1 + ($objp->tva_tx / 100)));
      $outpricebasetype = $objp->price_base_type;
      $outtva_tx = $objp->tva_tx;                            // This value is the value on product when constructProductListOption is called by select_produits_list even if other field $objp-> are from table price_by_qty
      $outdefault_vat_code = $objp->default_vat_code;        // This value is the value on product when constructProductListOption is called by select_produits_list even if other field $objp-> are from table price_by_qty
    }
    if (empty($hidepriceinlabel) && !empty($objp->quantity) && $objp->quantity >= 1) {
      $opt .= " (" . price($objp->unitprice, 1, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->trans("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
      $outval .= " (" . price($objp->unitprice, 0, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->transnoentities("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
    }
    if (empty($hidepriceinlabel) && !empty($objp->remise_percent) && $objp->remise_percent >= 1) {
      $opt .= " - " . $langs->trans("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
      $outval .= " - " . $langs->transnoentities("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
    }
 
    // Price by customer
    if (empty($hidepriceinlabel) && getDolGlobalString('PRODUIT_CUSTOMER_PRICES')) {
      if (!empty($objp->idprodcustprice)) {
        $found = 1;
 
        if ($objp->custprice_base_type == 'HT') {
          $opt .= ' - ' . price($objp->custprice, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("HT");
          $outval .= ' - ' . price($objp->custprice, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("HT");
        } else {
          $opt .= ' - ' . price($objp->custprice_ttc, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("TTC");
          $outval .= ' - ' . price($objp->custprice_ttc, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("TTC");
        }
 
        $outprice_ht = price($objp->custprice);
        $outprice_ttc = price($objp->custprice_ttc);
        $outpricebasetype = $objp->custprice_base_type;
        $outtva_tx = $objp->custtva_tx;
        $outdefault_vat_code = $objp->custdefault_vat_code;
      }
    }
 
    // If level no defined or multiprice not found, we used the default price
    if (empty($hidepriceinlabel) && !$found) {
      if ($objp->price_base_type == 'HT') {
        $opt .= ' - ' . price($objp->price, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("HT");
        $outval .= ' - ' . price($objp->price, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("HT");
      } else {
        $opt .= ' - ' . price($objp->price_ttc, 1, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->trans("TTC");
        $outval .= ' - ' . price($objp->price_ttc, 0, $langs, 0, 0, -1, $conf->currency) . ' ' . $langs->transnoentities("TTC");
      }
      $outprice_ht = price($objp->price);
      $outprice_ttc = price($objp->price_ttc);
      $outpricebasetype = $objp->price_base_type;
      $outtva_tx = $objp->tva_tx;
      $outdefault_vat_code = $objp->default_vat_code;
    }
 
    if (isModEnabled('stock') && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || getDolGlobalString('STOCK_SUPPORTS_SERVICES'))) {
      if ($user->hasRight('stock', 'lire')) {
        $opt .= ' - ' . $langs->trans("Stock") . ': ' . price(price2num($objp->stock, 'MS'), 0, $langs, 0, 0);
 
        if ($objp->stock > 0) {
          $outval .= ' - <span class="product_line_stock_ok">';
        } elseif ($objp->stock <= 0) {
          $outval .= ' - <span class="product_line_stock_too_low">';
        }
        $outval .= $langs->transnoentities("Stock") . ': ' . price(price2num($objp->stock, 'MS'));
        $outval .= '</span>';
        if (empty($novirtualstock) && getDolGlobalString('STOCK_SHOW_VIRTUAL_STOCK_IN_PRODUCTS_COMBO')) {  // Warning, this option may slow down combo list generation
          $langs->load("stocks");
 
          $tmpproduct = new Product($this->db);
          $tmpproduct->fetch($objp->rowid, '', '', '', 1, 1, 1); // Load product without lang and prices arrays (we just need to make ->virtual_stock() after)
          $tmpproduct->load_virtual_stock();
          $virtualstock = $tmpproduct->stock_theorique;
 
          $opt .= ' - ' . $langs->trans("VirtualStock") . ':' . $virtualstock;
 
          $outval .= ' - ' . $langs->transnoentities("VirtualStock") . ':';
          if ($virtualstock > 0) {
            $outval .= '<span class="product_line_stock_ok">';
          } elseif ($virtualstock <= 0) {
            $outval .= '<span class="product_line_stock_too_low">';
          }
          $outval .= $virtualstock;
          $outval .= '</span>';
 
          unset($tmpproduct);
        }
      }
    }
 
    $parameters = array('objp'=>$objp);
    $reshook = $hookmanager->executeHooks('constructProductListOption', $parameters); // Note that $action and $object may have been modified by hook
    if (empty($reshook)) {
      $opt .= $hookmanager->resPrint;
    } else {
      $opt = $hookmanager->resPrint;
    }
 
    $opt .= "</option>\n";
    $optJson = array(
      'key' => $outkey,
      'value' => $outref,
      'label' => $outval,
      'label2' => $outlabel,
      'desc' => $outdesc,
      'type' => $outtype,
      'price_ht' => price2num($outprice_ht),
      'price_ttc' => price2num($outprice_ttc),
      'price_ht_locale' => price(price2num($outprice_ht)),
      'price_ttc_locale' => price(price2num($outprice_ttc)),
      'pricebasetype' => $outpricebasetype,
      'tva_tx' => $outtva_tx,
      'default_vat_code' => $outdefault_vat_code,
      'qty' => $outqty,
      'discount' => $outdiscount,
      'duration_value' => $outdurationvalue,
      'duration_unit' => $outdurationunit,
      'pbq' => $outpbq,
      'labeltrans' => $outlabel_translated,
      'desctrans' => $outdesc_translated,
      'ref_customer' => $outrefcust
    );
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function select_produits_fournisseurs($socid, $selected = '', $htmlname = 'productid', $filtertype = '', $filtre = '', $ajaxoptions = array(), $hidelabel = 0, $alsoproductwithnosupplierprice = 0, $morecss = '', $placeholder = '')
  {
    // phpcs:enable
    global $langs, $conf;
    global $price_level, $status, $finished;
 
    if (!isset($status)) {
      $status = 1;
    }
 
    $selected_input_value = '';
    if (!empty($conf->use_javascript_ajax) && getDolGlobalString('PRODUIT_USE_SEARCH_TO_SELECT')) {
      if ($selected > 0) {
        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 = (!getDolGlobalString('PRODUCT_MAX_LENGTH_COMBO') ? 48 : $conf->global->PRODUCT_MAX_LENGTH_COMBO);
 
    $langs->load('stocks');
    // Units
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      $langs->load('other');
    }
 
    $sql = "SELECT p.rowid, p.ref, p.label, p.price, p.duration, p.fk_product_type, p.stock, p.tva_tx as tva_tx_sale, p.default_vat_code as default_vat_code_sale,";
    $sql .= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.quantity, pfp.remise_percent, pfp.remise, pfp.unitprice";
    $sql .= ", pfp.multicurrency_code, pfp.multicurrency_unitprice";
    $sql .= ", pfp.fk_supplier_price_expression, pfp.fk_product, pfp.tva_tx, pfp.default_vat_code, pfp.fk_soc, s.nom as name";
    $sql .= ", pfp.supplier_reputation";
    // if we use supplier description of the products
    if (getDolGlobalString('PRODUIT_FOURN_TEXTS')) {
      $sql .= ", pfp.desc_fourn as description";
    } else {
      $sql .= ", p.description";
    }
    // Units
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      $sql .= ", u.label as unit_long, u.short_label as unit_short, p.weight, p.weight_units, p.length, p.length_units, p.width, p.width_units, p.height, p.height_units, p.surface, p.surface_units, p.volume, p.volume_units";
    }
    if (isModEnabled('barcode')) {
      $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 (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      $sql .= " LEFT JOIN " . $this->db->prefix() . "c_units u ON u.rowid = p.fk_unit";
    }
    $sql .= " WHERE p.entity IN (" . getEntity('product') . ")";
    if ($statut != -1) {
      $sql .= " AND p.tobuy = " . ((int) $statut);
    }
    if (strval($filtertype) != '') {
      $sql .= " AND p.fk_product_type = " . ((int) $filtertype);
    }
    if (!empty($filtre)) {
      $sql .= " " . $filtre;
    }
    // Add where from hooks
    $parameters = array();
    $reshook = $hookmanager->executeHooks('selectSuppliersProductsListWhere', $parameters); // Note that $action and $object may have been modified by hook
    $sql .= $hookmanager->resPrint;
    // Add criteria on ref/label
    if ($filterkey != '') {
      $sql .= ' AND (';
      $prefix = !getDolGlobalString('PRODUCT_DONOTSEARCH_ANYWHERE') ? '%' : ''; // Can use index if PRODUCT_DONOTSEARCH_ANYWHERE is on
      // For natural search
      $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 (getDolGlobalString('PRODUIT_FOURN_TEXTS')) {
          $sql .= " OR pfp.desc_fourn LIKE '" . $this->db->escape($prefix . $crit) . "%'";
        }
        $sql .= ")";
        $i++;
      }
      if (count($scrit) > 1) {
        $sql .= ")";
      }
      if (isModEnabled('barcode')) {
        $sql .= " OR p.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
        $sql .= " OR pfp.barcode LIKE '" . $this->db->escape($prefix . $filterkey) . "%'";
      }
      $sql .= ')';
    }
    $sql .= " ORDER BY pfp.ref_fourn DESC, pfp.quantity ASC";
    $sql .= $this->db->plimit($limit, 0);
 
    // Build output string
 
    dol_syslog(get_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);
 
        if (is_null($objp->idprodfournprice)) {
          // There is no supplier price found, we will use the vat rate for sale
          $objp->tva_tx = $objp->tva_tx_sale;
          $objp->default_vat_code = $objp->default_vat_code_sale;
        }
 
        $outkey = $objp->idprodfournprice; // id in table of price
        if (!$outkey && $alsoproductwithnosupplierprice) {
          $outkey = 'idprod_' . $objp->rowid; // id of product
        }
 
        $outref = $objp->ref;
        $outbarcode = $objp->barcode;
        $outqty = 1;
        $outdiscount = 0;
        $outtype = $objp->fk_product_type;
        $outdurationvalue = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, 0, dol_strlen($objp->duration) - 1) : '';
        $outdurationunit = $outtype == Product::TYPE_SERVICE ? substr($objp->duration, -1) : '';
 
        // Units
        $outvalUnits = '';
        if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
          if (!empty($objp->unit_short)) {
            $outvalUnits .= ' - ' . $objp->unit_short;
          }
          if (!empty($objp->weight) && $objp->weight_units !== null) {
            $unitToShow = showDimensionInBestUnit($objp->weight, $objp->weight_units, 'weight', $langs);
            $outvalUnits .= ' - ' . $unitToShow;
          }
          if ((!empty($objp->length) || !empty($objp->width) || !empty($objp->height)) && $objp->length_units !== null) {
            $unitToShow = $objp->length . ' x ' . $objp->width . ' x ' . $objp->height . ' ' . measuringUnitString(0, 'size', $objp->length_units);
            $outvalUnits .= ' - ' . $unitToShow;
          }
          if (!empty($objp->surface) && $objp->surface_units !== null) {
            $unitToShow = showDimensionInBestUnit($objp->surface, $objp->surface_units, 'surface', $langs);
            $outvalUnits .= ' - ' . $unitToShow;
          }
          if (!empty($objp->volume) && $objp->volume_units !== null) {
            $unitToShow = showDimensionInBestUnit($objp->volume, $objp->volume_units, 'volume', $langs);
            $outvalUnits .= ' - ' . $unitToShow;
          }
          if ($outdurationvalue && $outdurationunit) {
            $da = array(
              'h' => $langs->trans('Hour'),
              'd' => $langs->trans('Day'),
              'w' => $langs->trans('Week'),
              'm' => $langs->trans('Month'),
              'y' => $langs->trans('Year')
            );
            if (isset($da[$outdurationunit])) {
              $outvalUnits .= ' - ' . $outdurationvalue . ' ' . $langs->transnoentities($da[$outdurationunit] . ($outdurationvalue > 1 ? 's' : ''));
            }
          }
        }
 
        $objRef = $objp->ref;
        if ($filterkey && $filterkey != '') {
          $objRef = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $objRef, 1);
        }
        $objRefFourn = $objp->ref_fourn;
        if ($filterkey && $filterkey != '') {
          $objRefFourn = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $objRefFourn, 1);
        }
        $label = $objp->label;
        if ($filterkey && $filterkey != '') {
          $label = preg_replace('/(' . preg_quote($filterkey, '/') . ')/i', '<strong>$1</strong>', $label, 1);
        }
 
        switch ($objp->fk_product_type) {
          case Product::TYPE_PRODUCT:
            $picto = 'product';
            break;
          case Product::TYPE_SERVICE:
            $picto = 'service';
            break;
          default:
            $picto = '';
            break;
        }
 
        if (empty($picto)) {
          $optlabel = '';
        } else {
          $optlabel = img_object('', $picto, 'class="paddingright classfortooltip"', 0, 0, 1);
        }
 
        $optlabel .= $objp->ref;
        if (!empty($objp->idprodfournprice) && ($objp->ref != $objp->ref_fourn)) {
          $optlabel .= ' <span class="opacitymedium">(' . $objp->ref_fourn . ')</span>';
        }
        if (isModEnabled('barcode') && !empty($objp->barcode)) {
          $optlabel .= ' (' . $outbarcode . ')';
        }
        $optlabel .= ' - ' . dol_trunc($label, $maxlengtharticle);
 
        $outvallabel = $objRef;
        if (!empty($objp->idprodfournprice) && ($objp->ref != $objp->ref_fourn)) {
          $outvallabel .= ' (' . $objRefFourn . ')';
        }
        if (isModEnabled('barcode') && !empty($objp->barcode)) {
          $outvallabel .= ' (' . $outbarcode . ')';
        }
        $outvallabel .= ' - ' . dol_trunc($label, $maxlengtharticle);
 
        // Units
        $optlabel .= $outvalUnits;
        $outvallabel .= $outvalUnits;
 
        if (!empty($objp->idprodfournprice)) {
          $outqty = $objp->quantity;
          $outdiscount = $objp->remise_percent;
          if (isModEnabled('dynamicprices') && !empty($objp->fk_supplier_price_expression)) {
            $prod_supplier = new ProductFournisseur($this->db);
            $prod_supplier->product_fourn_price_id = $objp->idprodfournprice;
            $prod_supplier->id = $objp->fk_product;
            $prod_supplier->fourn_qty = $objp->quantity;
            $prod_supplier->fourn_tva_tx = $objp->tva_tx;
            $prod_supplier->fk_supplier_price_expression = $objp->fk_supplier_price_expression;
 
            require_once DOL_DOCUMENT_ROOT . '/product/dynamic_price/class/price_parser.class.php';
            $priceparser = new PriceParser($this->db);
            $price_result = $priceparser->parseProductSupplier($prod_supplier);
            if ($price_result >= 0) {
              $objp->fprice = $price_result;
              if ($objp->quantity >= 1) {
                $objp->unitprice = $objp->fprice / $objp->quantity; // Replace dynamically unitprice
              }
            }
          }
          if ($objp->quantity == 1) {
            $optlabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/";
            $outvallabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 0, $langs, 0, 0, -1, $conf->currency) . "/";
            $optlabel .= $langs->trans("Unit"); // Do not use strtolower because it breaks utf8 encoding
            $outvallabel .= $langs->transnoentities("Unit");
          } else {
            $optlabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
            $outvallabel .= ' - ' . price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 0, $langs, 0, 0, -1, $conf->currency) . "/" . $objp->quantity;
            $optlabel .= ' ' . $langs->trans("Units"); // Do not use strtolower because it breaks utf8 encoding
            $outvallabel .= ' ' . $langs->transnoentities("Units");
          }
 
          if ($objp->quantity > 1) {
            $optlabel .= " (" . price($objp->unitprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->trans("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
            $outvallabel .= " (" . price($objp->unitprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 0, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->transnoentities("Unit") . ")"; // Do not use strtolower because it breaks utf8 encoding
          }
          if ($objp->remise_percent >= 1) {
            $optlabel .= " - " . $langs->trans("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
            $outvallabel .= " - " . $langs->transnoentities("Discount") . " : " . vatrate($objp->remise_percent) . ' %';
          }
          if ($objp->duration) {
            $optlabel .= " - " . $objp->duration;
            $outvallabel .= " - " . $objp->duration;
          }
          if (!$socid) {
            $optlabel .= " - " . dol_trunc($objp->name, 8);
            $outvallabel .= " - " . dol_trunc($objp->name, 8);
          }
          if ($objp->supplier_reputation) {
            //TODO dictionary
            $reputations = array('' => $langs->trans('Standard'), 'FAVORITE' => $langs->trans('Favorite'), 'NOTTHGOOD' => $langs->trans('NotTheGoodQualitySupplier'), 'DONOTORDER' => $langs->trans('DoNotOrderThisProductToThisSupplier'));
 
            $optlabel .= " - " . $reputations[$objp->supplier_reputation];
            $outvallabel .= " - " . $reputations[$objp->supplier_reputation];
          }
        } else {
          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 (isModEnabled('stock') && $showstockinlist && isset($objp->stock) && ($objp->fk_product_type == Product::TYPE_PRODUCT || getDolGlobalString('STOCK_SUPPORTS_SERVICES'))) {
          $novirtualstock = ($showstockinlist == 2);
 
          if ($user->hasRight('stock', 'lire')) {
            $outvallabel .= ' - ' . $langs->trans("Stock") . ': ' . price(price2num($objp->stock, 'MS'));
 
            if ($objp->stock > 0) {
              $optlabel .= ' - <span class="product_line_stock_ok">';
            } elseif ($objp->stock <= 0) {
              $optlabel .= ' - <span class="product_line_stock_too_low">';
            }
            $optlabel .= $langs->transnoentities("Stock") . ':' . price(price2num($objp->stock, 'MS'));
            $optlabel .= '</span>';
            if (empty($novirtualstock) && getDolGlobalString('STOCK_SHOW_VIRTUAL_STOCK_IN_PRODUCTS_COMBO')) {  // Warning, this option may slow down combo list generation
              $langs->load("stocks");
 
              $tmpproduct = new Product($this->db);
              $tmpproduct->fetch($objp->rowid, '', '', '', 1, 1, 1); // Load product without lang and prices arrays (we just need to make ->virtual_stock() after)
              $tmpproduct->load_virtual_stock();
              $virtualstock = $tmpproduct->stock_theorique;
 
              $outvallabel .= ' - ' . $langs->trans("VirtualStock") . ':' . $virtualstock;
 
              $optlabel .= ' - ' . $langs->transnoentities("VirtualStock") . ':';
              if ($virtualstock > 0) {
                $optlabel .= '<span class="product_line_stock_ok">';
              } elseif ($virtualstock <= 0) {
                $optlabel .= '<span class="product_line_stock_too_low">';
              }
              $optlabel .= $virtualstock;
              $optlabel .= '</span>';
 
              unset($tmpproduct);
            }
          }
        }
 
        $optstart = '<option value="' . $outkey . '"';
        if ($selected && $selected == $objp->idprodfournprice) {
          $optstart .= ' selected';
        }
        if (empty($objp->idprodfournprice) && empty($alsoproductwithnosupplierprice)) {
          $optstart .= ' disabled';
        }
 
        if (!empty($objp->idprodfournprice) && $objp->idprodfournprice > 0) {
          $optstart .= ' data-product-id="' . dol_escape_htmltag($objp->rowid) . '"';
          $optstart .= ' data-price-id="' . dol_escape_htmltag($objp->idprodfournprice) . '"';
          $optstart .= ' data-qty="' . dol_escape_htmltag($objp->quantity) . '"';
          $optstart .= ' data-up="' . dol_escape_htmltag(price2num($objp->unitprice)) . '"';
          $optstart .= ' data-up-locale="' . dol_escape_htmltag(price($objp->unitprice)) . '"';
          $optstart .= ' data-discount="' . dol_escape_htmltag($outdiscount) . '"';
          $optstart .= ' data-tvatx="' . dol_escape_htmltag(price2num($objp->tva_tx)) . '"';
          $optstart .= ' data-tvatx-formated="' . dol_escape_htmltag(price($objp->tva_tx, 0, $langs, 1, -1, 2)) . '"';
          $optstart .= ' data-default-vat-code="' . dol_escape_htmltag($objp->default_vat_code) . '"';
          $optstart .= ' data-supplier-ref="' . dol_escape_htmltag($objp->ref_fourn) . '"';
          if (isModEnabled('multicurrency')) {
            $optstart .= ' data-multicurrency-code="' . dol_escape_htmltag($objp->multicurrency_code) . '"';
            $optstart .= ' data-multicurrency-up="' . dol_escape_htmltag($objp->multicurrency_unitprice) . '"';
          }
        }
        $optstart .= ' data-description="' . dol_escape_htmltag($objp->description, 0, 1) . '"';
 
        $outarrayentry = array(
          'key' => $outkey,
          'value' => $outref,
          'label' => $outvallabel,
          'qty' => $outqty,
          'price_qty_ht' => price2num($objp->fprice, 'MU'),    // Keep higher resolution for price for the min qty
          'price_unit_ht' => price2num($objp->unitprice, 'MU'),    // This is used to fill the Unit Price
          'price_ht' => price2num($objp->unitprice, 'MU'),        // This is used to fill the Unit Price (for compatibility)
          'tva_tx_formated' => price($objp->tva_tx, 0, $langs, 1, -1, 2),
          'tva_tx' => price2num($objp->tva_tx),
          'default_vat_code' => $objp->default_vat_code,
          'discount' => $outdiscount,
          'type' => $outtype,
          'duration_value' => $outdurationvalue,
          'duration_unit' => $outdurationunit,
          'disabled' => (empty($objp->idprodfournprice) ? true : false),
          'description' => $objp->description
        );
        if (isModEnabled('multicurrency')) {
          $outarrayentry['multicurrency_code'] = $objp->multicurrency_code;
          $outarrayentry['multicurrency_unitprice'] = price2num($objp->multicurrency_unitprice, 'MU');
        }
 
        $parameters = array(
          'objp' => &$objp,
          'optstart' => &$optstart,
          'optlabel' => &$optlabel,
          'outvallabel' => &$outvallabel,
          'outarrayentry' => &$outarrayentry
        );
        $reshook = $hookmanager->executeHooks('selectProduitsFournisseurListOption', $parameters, $this);
 
 
        // Add new entry
        // "key" value of json key array is used by jQuery automatically as selected value. Example: 'type' = product or service, 'price_ht' = unit price without tax
        // "label" value of json key array is used by jQuery automatically as text for combo box
        $out .= $optstart . ' data-html="' . dol_escape_htmltag($optlabel) . '">' . $optlabel . "</option>\n";
        $outarraypush = array(
          'key' => $outkey,
          'value' => $outref,
          'label' => $outvallabel,
          'qty' => $outqty,
          'price_qty_ht' => price2num($objp->fprice, 'MU'),        // Keep higher resolution for price for the min qty
          'price_qty_ht_locale' => price($objp->fprice),
          'price_unit_ht' => price2num($objp->unitprice, 'MU'),    // This is used to fill the Unit Price
          'price_unit_ht_locale' => price($objp->unitprice),
          'price_ht' => price2num($objp->unitprice, 'MU'),        // This is used to fill the Unit Price (for compatibility)
          'tva_tx_formated' => price($objp->tva_tx),
          'tva_tx' => price2num($objp->tva_tx),
          'default_vat_code' => $objp->default_vat_code,
          'discount' => $outdiscount,
          'type' => $outtype,
          'duration_value' => $outdurationvalue,
          'duration_unit' => $outdurationunit,
          'disabled' => (empty($objp->idprodfournprice) ? true : false),
          'description' => $objp->description
        );
        if (isModEnabled('multicurrency')) {
          $outarraypush['multicurrency_code'] = $objp->multicurrency_code;
          $outarraypush['multicurrency_unitprice'] = price2num($objp->multicurrency_unitprice, 'MU');
        }
        array_push($outarray, $outarraypush);
 
        // Example of var_dump $outarray
        // array(1) {[0]=>array(6) {[key"]=>string(1) "2" ["value"]=>string(3) "ppp"
        //           ["label"]=>string(76) "ppp (<strong>f</strong>ff2) - ppp - 20,00 Euros/1unité (20,00 Euros/unité)"
        //         ["qty"]=>string(1) "1" ["discount"]=>string(1) "0" ["disabled"]=>bool(false)
        //}
        //var_dump($outval); var_dump(utf8_check($outval)); var_dump(json_encode($outval));
        //$outval=array('label'=>'ppp (<strong>f</strong>ff2) - ppp - 20,00 Euros/ Unité (20,00 Euros/unité)');
        //var_dump($outval); var_dump(utf8_check($outval)); var_dump(json_encode($outval));
 
        $i++;
      }
      $out .= '</select>';
 
      $this->db->free($result);
 
      include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php';
      $out .= ajax_combobox($htmlname);
    } else {
      dol_print_error($this->db);
    }
 
    if (empty($outputmode)) {
      return $out;
    }
    return $outarray;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function select_product_fourn_price($productid, $htmlname = 'productfournpriceid', $selected_supplier = 0)
  {
    // phpcs:enable
    global $langs, $conf;
 
    $langs->load('stocks');
 
    $sql = "SELECT p.rowid, p.ref, p.label, p.price, p.duration, pfp.fk_soc,";
    $sql .= " pfp.ref_fourn, pfp.rowid as idprodfournprice, pfp.price as fprice, pfp.remise_percent, pfp.quantity, pfp.unitprice,";
    $sql .= " pfp.fk_supplier_price_expression, pfp.fk_product, pfp.tva_tx, s.nom as name";
    $sql .= " FROM " . $this->db->prefix() . "product as p";
    $sql .= " LEFT JOIN " . $this->db->prefix() . "product_fournisseur_price as pfp ON p.rowid = pfp.fk_product";
    $sql .= " LEFT JOIN " . $this->db->prefix() . "societe as s ON pfp.fk_soc = s.rowid";
    $sql .= " WHERE pfp.entity IN (" . getEntity('productsupplierprice') . ")";
    $sql .= " AND p.tobuy = 1";
    $sql .= " AND s.fournisseur = 1";
    $sql .= " AND p.rowid = " . ((int) $productid);
    if (!getDolGlobalString('PRODUCT_BEST_SUPPLIER_PRICE_PRESELECTED')) {
      $sql .= " ORDER BY s.nom, pfp.ref_fourn DESC";
    } else {
      $sql .= " ORDER BY pfp.unitprice ASC";
    }
 
    dol_syslog(get_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) || ($i == 0 && getDolGlobalString('PRODUCT_BEST_SUPPLIER_PRICE_PRESELECTED'))) {
            $opt .= ' selected';
          }
          $opt .= '>' . $objp->name . ' - ' . $objp->ref_fourn . ' - ';
 
          if (isModEnabled('dynamicprices') && !empty($objp->fk_supplier_price_expression)) {
            $prod_supplier = new ProductFournisseur($this->db);
            $prod_supplier->product_fourn_price_id = $objp->idprodfournprice;
            $prod_supplier->id = $productid;
            $prod_supplier->fourn_qty = $objp->quantity;
            $prod_supplier->fourn_tva_tx = $objp->tva_tx;
            $prod_supplier->fk_supplier_price_expression = $objp->fk_supplier_price_expression;
 
            require_once DOL_DOCUMENT_ROOT . '/product/dynamic_price/class/price_parser.class.php';
            $priceparser = new PriceParser($this->db);
            $price_result = $priceparser->parseProductSupplier($prod_supplier);
            if ($price_result >= 0) {
              $objp->fprice = $price_result;
              if ($objp->quantity >= 1) {
                $objp->unitprice = $objp->fprice / $objp->quantity;
              }
            }
          }
          if ($objp->quantity == 1) {
            $opt .= price($objp->fprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/";
          }
 
          $opt .= $objp->quantity . ' ';
 
          if ($objp->quantity == 1) {
            $opt .= $langs->trans("Unit");
          } else {
            $opt .= $langs->trans("Units");
          }
          if ($objp->quantity > 1) {
            $opt .= " - ";
            $opt .= price($objp->unitprice * (getDolGlobalString('DISPLAY_DISCOUNTED_SUPPLIER_PRICE') ? (1 - $objp->remise_percent / 100) : 1), 1, $langs, 0, 0, -1, $conf->currency) . "/" . $langs->trans("Unit");
          }
          if ($objp->duration) {
            $opt .= " - " . $objp->duration;
          }
          $opt .= "</option>\n";
 
          $form .= $opt;
          $i++;
        }
      }
 
      $form .= '</select>';
      $this->db->free($result);
      return $form;
    } else {
      dol_print_error($this->db);
      return '';
    }
  }
 
 
  // 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);
  }
 
 
  public function getSelectConditionsPaiements($selected = 0, $htmlname = 'condid', $filtertype = -1, $addempty = 0, $noinfoadmin = 0, $morecss = '', $deposit_percent = -1)
  {
    global $langs, $user, $conf;
 
    $out = '';
    dol_syslog(__METHOD__ . " selected=" . $selected . ", htmlname=" . $htmlname, LOG_DEBUG);
 
    $this->load_cache_conditions_paiements();
 
    // Set default value if not already set by caller
    if (empty($selected) && getDolGlobalString('MAIN_DEFAULT_PAYMENT_TERM_ID')) {
      dol_syslog(__METHOD__ . "Using deprecated option MAIN_DEFAULT_PAYMENT_TERM_ID", LOG_NOTICE);
      $selected = $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="' . $deposit_percent . '" />';
      $out .= '</span>';
      $out .= '
        <script nonce="' . getNonce() . '">
          $(document).ready(function () {
            $("#' . $htmlname . '").change(function () {
              let $selected = $(this).find("option:selected");
              let depositPercent = $selected.attr("data-deposit_percent");
 
              if (depositPercent.length > 0) {
                $("#' . $htmlname . '_deposit_percent_container").show().find("#' . $htmlname . '_deposit_percent").val(depositPercent);
              } else {
                $("#' . $htmlname . '_deposit_percent_container").hide();
              }
 
              return true;
            });
          });
        </script>';
    }
 
    return $out;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function select_types_paiements($selected = '', $htmlname = 'paiementtype', $filtertype = '', $format = 0, $empty = 1, $noadmininfo = 0, $maxlength = 0, $active = 1, $morecss = '', $nooutput = 0)
  {
    // phpcs:enable
    global $langs, $user, $conf;
 
    $out = '';
 
    dol_syslog(__METHOD__ . " " . $selected . ", " . $htmlname . ", " . $filtertype . ", " . $format, LOG_DEBUG);
 
    $filterarray = array();
    if ($filtertype == 'CRDT') {
      $filterarray = array(0, 2, 3);
    } elseif ($filtertype == 'DBIT') {
      $filterarray = array(1, 2, 3);
    } elseif ($filtertype != '' && $filtertype != '-1') {
      $filterarray = explode(',', $filtertype);
    }
 
    $this->load_cache_types_paiements();
 
    // Set default value if not already set by caller
    if (empty($selected) && getDolGlobalString('MAIN_DEFAULT_PAYMENT_TYPE_ID')) {
      dol_syslog(__METHOD__ . "Using deprecated option MAIN_DEFAULT_PAYMENT_TYPE_ID", LOG_NOTICE);
      $selected = $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, $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>';
        }
      }
 
      return $num;
    } else {
      dol_print_error($this->db);
      return -1;
    }
  }
 
  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, 'color' => '', 'picto' => 'category');
          }
          $i++;
        }
        $this->db->free($result);
      } else {
        dol_print_error($this->db);
      }
    } else {
      $cat = new Categorie($this->db);
      $cate_arbo = $cat->get_full_arbo($type, $markafterid, $include);
    }
 
    $outarray = array();
    $outarrayrichhtml = array();
 
    $output = '<select class="flat' . ($morecss ? ' ' . $morecss : '') . '" name="' . $htmlname . '" id="' . $htmlname . '">';
    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 = '';
          }
 
          $labeltoshow = img_picto('', 'category', 'class="pictofixedwidth" style="color: #' . $cate_arbo[$key]['color'] . '"');
          $labeltoshow .= dol_trunc($cate_arbo[$key]['fulllabel'], $maxlength, 'middle');
 
          $outarray[$cate_arbo[$key]['id']] = $cate_arbo[$key]['fulllabel'];
 
          $outarrayrichhtml[$cate_arbo[$key]['id']] = $labeltoshow;
 
          $output .= '<option ' . $add . 'value="' . $cate_arbo[$key]['id'] . '"';
          $output .= ' data-html="' . dol_escape_htmltag($labeltoshow) . '"';
          $output .= '>';
          $output .= dol_trunc($cate_arbo[$key]['fulllabel'], $maxlength, 'middle');
          $output .= '</option>';
        }
      }
    }
    $output .= '</select>';
    $output .= "\n";
 
    if ($outputmode == 2) {
      return $cate_arbo;
    } elseif ($outputmode == 1) {
      return $outarray;
    } elseif ($outputmode == 3) {
      return $outarrayrichhtml;
    }
    return $output;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function form_confirm($page, $title, $question, $action, $formquestion = array(), $selectedchoice = "", $useajax = 0, $height = 170, $width = 500)
  {
    // phpcs:enable
    dol_syslog(__METHOD__ . ': using form_confirm is deprecated. Use formconfim instead.', LOG_WARNING);
    print $this->formconfirm($page, $title, $question, $action, $formquestion, $selectedchoice, $useajax, $height, $width);
  }
 
  public function formconfirm($page, $title, $question, $action, $formquestion = '', $selectedchoice = '', $useajax = 0, $height = 0, $width = 500, $disableformtag = 0, $labelbuttonyes = 'Yes', $labelbuttonno = 'No')
  {
    global $langs, $conf;
 
    $more = '<!-- formconfirm - before call, page=' . dol_escape_htmltag($page) . ' -->';
    $formconfirm = '';
    $inputok = array();
    $inputko = array();
 
    // Clean parameters
    $newselectedchoice = empty($selectedchoice) ? "no" : $selectedchoice;
    if ($conf->browser->layout == 'phone') {
      $width = '95%';
    }
 
    // Set height automatically if not defined
    if (empty($height)) {
      $height = 220;
      if (is_array($formquestion) && count($formquestion) > 2) {
        $height += ((count($formquestion) - 2) * 24);
      }
    }
 
    if (is_array($formquestion) && !empty($formquestion)) {
      // First add hidden fields and value
      foreach ($formquestion as $key => $input) {
        if (is_array($input) && !empty($input)) {
          if ($input['type'] == 'hidden') {
            $moreattr = (!empty($input['moreattr']) ? ' ' . $input['moreattr'] : '');
            $morecss = (!empty($input['morecss']) ? ' ' . $input['morecss'] : '');
 
            $more .= '<input type="hidden" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '" value="' . dol_escape_htmltag($input['value']) . '" class="' . $morecss . '"' . $moreattr . '>' . "\n";
          }
        }
      }
 
      // Now add questions
      $moreonecolumn = '';
      $more .= '<div class="tagtable paddingtopbottomonly centpercent noborderspacing">' . "\n";
      foreach ($formquestion as $key => $input) {
        if (is_array($input) && !empty($input)) {
          $size = (!empty($input['size']) ? ' size="' . $input['size'] . '"' : '');    // deprecated. Use morecss instead.
          $moreattr = (!empty($input['moreattr']) ? ' ' . $input['moreattr'] : '');
          $morecss = (!empty($input['morecss']) ? ' ' . $input['morecss'] : '');
 
          if ($input['type'] == 'text') {
            $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">' . $input['label'] . '</div><div class="tagtd"><input type="text" class="flat' . $morecss . '" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '"' . $size . ' value="' . (empty($input['value']) ? '' : $input['value']) . '"' . $moreattr . ' /></div></div>' . "\n";
          } elseif ($input['type'] == 'password') {
            $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">' . $input['label'] . '</div><div class="tagtd"><input type="password" class="flat' . $morecss . '" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '"' . $size . ' value="' . (empty($input['value']) ? '' : $input['value']) . '"' . $moreattr . ' /></div></div>' . "\n";
          } elseif ($input['type'] == 'textarea') {
            /*$more .= '<div class="tagtr"><div class="tagtd'.(empty($input['tdclass']) ? '' : (' '.$input['tdclass'])).'">'.$input['label'].'</div><div class="tagtd">';
            $more .= '<textarea name="'.$input['name'].'" class="'.$morecss.'"'.$moreattr.'>';
            $more .= $input['value'];
            $more .= '</textarea>';
            $more .= '</div></div>'."\n";*/
            $moreonecolumn .= '<div class="margintoponly">';
            $moreonecolumn .= $input['label'] . '<br>';
            $moreonecolumn .= '<textarea name="' . dol_escape_htmltag($input['name']) . '" id="' . dol_escape_htmltag($input['name']) . '" class="' . $morecss . '"' . $moreattr . '>';
            $moreonecolumn .= $input['value'];
            $moreonecolumn .= '</textarea>';
            $moreonecolumn .= '</div>';
          } elseif (in_array($input['type'], ['select', 'multiselect'])) {
            if (empty($morecss)) {
              $morecss = 'minwidth100';
            }
 
            $show_empty = isset($input['select_show_empty']) ? $input['select_show_empty'] : 1;
            $key_in_label = isset($input['select_key_in_label']) ? $input['select_key_in_label'] : 0;
            $value_as_key = isset($input['select_value_as_key']) ? $input['select_value_as_key'] : 0;
            $translate = isset($input['select_translate']) ? $input['select_translate'] : 0;
            $maxlen = isset($input['select_maxlen']) ? $input['select_maxlen'] : 0;
            $disabled = isset($input['select_disabled']) ? $input['select_disabled'] : 0;
            $sort = isset($input['select_sort']) ? $input['select_sort'] : '';
 
            $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">';
            if (!empty($input['label'])) {
              $more .= $input['label'] . '</div><div class="tagtd left">';
            }
            if ($input['type'] == 'select') {
              $more .= $this->selectarray($input['name'], $input['values'], isset($input['default']) ? $input['default'] : '-1', $show_empty, $key_in_label, $value_as_key, $moreattr, $translate, $maxlen, $disabled, $sort, $morecss);
            } else {
              $more .= $this->multiselectarray($input['name'], $input['values'], is_array($input['default']) ? $input['default'] : [$input['default']], $key_in_label, $value_as_key, $morecss, $translate, $maxlen, $moreattr);
            }
            $more .= '</div></div>' . "\n";
          } elseif ($input['type'] == 'checkbox') {
            $more .= '<div class="tagtr">';
            $more .= '<div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '"><label for="' . dol_escape_htmltag($input['name']) . '">' . $input['label'] . '</label></div><div class="tagtd">';
            $more .= '<input type="checkbox" class="flat' . ($morecss ? ' ' . $morecss : '') . '" id="' . dol_escape_htmltag($input['name']) . '" name="' . dol_escape_htmltag($input['name']) . '"' . $moreattr;
            if (!is_bool($input['value']) && $input['value'] != 'false' && $input['value'] != '0' && $input['value'] != '') {
              $more .= ' checked';
            }
            if (is_bool($input['value']) && $input['value']) {
              $more .= ' checked';
            }
            if (isset($input['disabled'])) {
              $more .= ' disabled';
            }
            $more .= ' /></div>';
            $more .= '</div>' . "\n";
          } elseif ($input['type'] == 'radio') {
            $i = 0;
            foreach ($input['values'] as $selkey => $selval) {
              $more .= '<div class="tagtr">';
              if (isset($input['label'])) {
                if ($i == 0) {
                  $more .= '<div class="tagtd' . (empty($input['tdclass']) ? ' tdtop' : (' tdtop ' . $input['tdclass'])) . '">' . $input['label'] . '</div>';
                } else {
                  $more .= '<div 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' || $input['type'] == 'datetime') {
            $more .= '<div class="tagtr"><div class="tagtd' . (empty($input['tdclass']) ? '' : (' ' . $input['tdclass'])) . '">' . $input['label'] . '</div>';
            $more .= '<div class="tagtd">';
            $addnowlink = (empty($input['datenow']) ? 0 : 1);
            $h = $m = 0;
            if ($input['type'] == 'datetime') {
              $h = isset($input['hours']) ? $input['hours'] : 1;
              $m = isset($input['minutes']) ? $input['minutes'] : 1;
            }
            $more .= $this->selectDate($input['value'], $input['name'], $h, $m, 0, '', 1, $addnowlink);
            $more .= '</div></div>'."\n";
            $formquestion[] = array('name'=>$input['name'].'day');
            $formquestion[] = array('name'=>$input['name'].'month');
            $formquestion[] = array('name'=>$input['name'].'year');
            $formquestion[] = array('name'=>$input['name'].'hour');
            $formquestion[] = array('name'=>$input['name'].'min');
          } elseif ($input['type'] == 'other') { // can be 1 column or 2 depending if label is set or not
            $more .= '<div class="tagtr"><div class="tagtd'.(empty($input['tdclass']) ? '' : (' '.$input['tdclass'])).'">';
            if (!empty($input['label'])) {
              $more .= $input['label'] . '</div><div class="tagtd">';
            }
            $more .= $input['value'];
            $more .= '</div></div>' . "\n";
          } elseif ($input['type'] == 'onecolumn') {
            $moreonecolumn .= '<div class="margintoponly">';
            $moreonecolumn .= $input['value'];
            $moreonecolumn .= '</div>' . "\n";
          } elseif ($input['type'] == 'hidden') {
            // Do nothing more, already added by a previous loop
          } elseif ($input['type'] == 'separator') {
            $more .= '<br>';
          } else {
            $more .= 'Error type ' . $input['type'] . ' for the confirm box is not a supported type';
          }
        }
      }
      $more .= '</div>' . "\n";
      $more .= $moreonecolumn;
    }
 
    // JQUERY method dialog is broken with smartphone, we use standard HTML.
    // Note: When using dol_use_jmobile or no js, you must also check code for button use a GET url with action=xxx and check that you also output the confirm code when action=xxx
    // See page product/card.php for example
    if (!empty($conf->dol_use_jmobile)) {
      $useajax = 0;
    }
    if (empty($conf->use_javascript_ajax)) {
      $useajax = 0;
    }
 
    if ($useajax) {
      $autoOpen = true;
      $dialogconfirm = 'dialog-confirm';
      $button = '';
      if (!is_numeric($useajax)) {
        $button = $useajax;
        $useajax = 1;
        $autoOpen = false;
        $dialogconfirm .= '-' . $button;
      }
      $pageyes = $page . (preg_match('/\?/', $page) ? '&' : '?') . 'action=' . urlencode($action) . '&confirm=yes';
      $pageno = ($useajax == 2 ? $page . (preg_match('/\?/', $page) ? '&' : '?') . 'action=' . urlencode($action) . '&confirm=no' : '');
 
      // Add input fields into list of fields to read during submit (inputok and inputko)
      if (is_array($formquestion)) {
        foreach ($formquestion as $key => $input) {
          //print "xx ".$key." rr ".is_array($input)."<br>\n";
          // Add name of fields to propagate with the GET when submitting the form with button OK.
          if (is_array($input) && isset($input['name'])) {
            if (strpos($input['name'], ',') > 0) {
              $inputok = array_merge($inputok, explode(',', $input['name']));
            } else {
              array_push($inputok, $input['name']);
            }
          }
          // Add name of fields to propagate with the GET when submitting the form with button KO.
          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 nonce="' . getNonce() . '" type="text/javascript">' . "\n";
      $formconfirm .= "/* Code for the jQuery('#dialogforpopup').dialog() */\n";
      $formconfirm .= 'jQuery(document).ready(function() {
            $(function() {
              $( "#' . $dialogconfirm . '" ).dialog(
              {
                    autoOpen: ' . ($autoOpen ? "true" : "false") . ',';
      if ($newselectedchoice == 'no') {
        $formconfirm .= '
            open: function() {
                    $(this).parent().find("button.ui-button:eq(2)").focus();
            },';
      }
 
      $jsforcursor = '';
      if ($useajax == 1) {
        $jsforcursor = '// The call to urljump can be slow, so we set the wait cursor' . "\n";
        $jsforcursor .= 'jQuery("html,body,#id-container").addClass("cursorwait");' . "\n";
      }
 
      $postconfirmas = 'GET';
 
      $formconfirm .= '
                    resizable: false,
                    height: "' . $height . '",
                    width: "' . $width . '",
                    modal: true,
                    closeOnEscape: false,
                    buttons: {
                        "' . dol_escape_js($langs->transnoentities($labelbuttonyes)) . '": function() {
              var options = "token=' . urlencode(newToken()) . '";
                          var inputok = ' . json_encode($inputok) . ';  /* List of fields into form */
              var page = "' . dol_escape_js(!empty($page) ? $page : '') . '";
                          var pageyes = "' . dol_escape_js(!empty($pageyes) ? $pageyes : '') . '";
 
                          if (inputok.length > 0) {
                            $.each(inputok, function(i, inputname) {
                              var more = "";
                  var inputvalue;
                              if ($("input[name=\'" + inputname + "\']").attr("type") == "radio") {
                    inputvalue = $("input[name=\'" + inputname + "\']:checked").val();
                  } else {
                                  if ($("#" + inputname).attr("type") == "checkbox") { more = ":checked"; }
                                inputvalue = $("#" + inputname + more).val();
                  }
                              if (typeof inputvalue == "undefined") { inputvalue=""; }
                  console.log("formconfirm check inputname="+inputname+" inputvalue="+inputvalue);
                              options += "&" + inputname + "=" + encodeURIComponent(inputvalue);
                            });
                          }
                          var urljump = pageyes + (pageyes.indexOf("?") < 0 ? "?" : "&") + options;
                    if (pageyes.length > 0) {';
      if ($postconfirmas == 'GET') {
        $formconfirm .= 'location.href = urljump;';
      } else {
        $formconfirm .= $jsforcursor;
        $formconfirm .= 'var post = $.post(
                  pageyes,
                  options,
                  function(data) { $("body").html(data); jQuery("html,body,#id-container").removeClass("cursorwait"); }
                );';
      }
      $formconfirm .= '
                console.log("after post ok");
              }
                          $(this).dialog("close");
                        },
                        "' . dol_escape_js($langs->transnoentities($labelbuttonno)) . '": function() {
                          var options = "token=' . urlencode(newToken()) . '";
                          var inputko = ' . json_encode($inputko) . ';  /* List of fields into form */
              var page = "' . dol_escape_js(!empty($page) ? $page : '') . '";
                          var pageno="' . dol_escape_js(!empty($pageno) ? $pageno : '') . '";
                          if (inputko.length > 0) {
                            $.each(inputko, function(i, inputname) {
                              var more = "";
                              if ($("#" + inputname).attr("type") == "checkbox") { more = ":checked"; }
                              var inputvalue = $("#" + inputname + more).val();
                              if (typeof inputvalue == "undefined") { inputvalue=""; }
                              options += "&" + inputname + "=" + encodeURIComponent(inputvalue);
                            });
                          }
                          var urljump=pageno + (pageno.indexOf("?") < 0 ? "?" : "&") + options;
                          //alert(urljump);
                    if (pageno.length > 0) {';
      if ($postconfirmas == 'GET') {
        $formconfirm .= 'location.href = urljump;';
      } else {
        $formconfirm .= $jsforcursor;
        $formconfirm .= 'var post = $.post(
                  pageno,
                  options,
                  function(data) { $("body").html(data); jQuery("html,body,#id-container").removeClass("cursorwait"); }
                );';
      }
      $formconfirm .= '
                console.log("after post ko");
              }
                            $(this).dialog("close");
                        }
                    }
                }
                );
 
              var button = "' . $button . '";
              if (button.length > 0) {
                  $( "#" + button ).click(function() {
                    $("#' . $dialogconfirm . '").dialog("open");
              });
                }
            });
            });
            </script>';
      $formconfirm .= "<!-- end ajax formconfirm -->\n";
    } else {
      $formconfirm .= "\n<!-- begin formconfirm page=" . dol_escape_htmltag($page) . " -->\n";
 
      if (empty($disableformtag)) {
        $formconfirm .= '<form method="POST" action="' . $page . '" class="notoptoleftroright">' . "\n";
      }
 
      $formconfirm .= '<input type="hidden" name="action" value="' . $action . '">' . "\n";
      $formconfirm .= '<input type="hidden" name="token" value="' . newToken() . '">' . "\n";
 
      $formconfirm .= '<table class="valid centpercent">' . "\n";
 
      // Line title
      $formconfirm .= '<tr class="validtitre"><td class="validtitre" colspan="2">';
      $formconfirm .= img_picto('', 'pictoconfirm') . ' ' . $title;
      $formconfirm .= '</td></tr>' . "\n";
 
      // Line text
      if (is_array($formquestion) && !empty($formquestion['text'])) {
        $formconfirm .= '<tr class="valid"><td class="valid" colspan="2">' . $formquestion['text'] . '</td></tr>' . "\n";
      }
 
      // Line form fields
      if ($more) {
        $formconfirm .= '<tr class="valid"><td class="valid" colspan="2">' . "\n";
        $formconfirm .= $more;
        $formconfirm .= '</td></tr>' . "\n";
      }
 
      // Line with question
      $formconfirm .= '<tr class="valid">';
      $formconfirm .= '<td class="valid">' . $question . '</td>';
      $formconfirm .= '<td class="valid center">';
      $formconfirm .= $this->selectyesno("confirm", $newselectedchoice, 0, false, 0, 0, 'marginleftonly marginrightonly', $labelbuttonyes, $labelbuttonno);
      $formconfirm .= '<input class="button valignmiddle confirmvalidatebutton small" type="submit" value="' . $langs->trans("Validate") . '">';
      $formconfirm .= '</td>';
      $formconfirm .= '</tr>' . "\n";
 
      $formconfirm .= '</table>' . "\n";
 
      if (empty($disableformtag)) {
        $formconfirm .= "</form>\n";
      }
      $formconfirm .= '<br>';
 
      if (!empty($conf->use_javascript_ajax)) {
        $formconfirm .= '<!-- code to disable button to avoid double clic -->';
        $formconfirm .= '<script nonce="' . getNonce() . '" type="text/javascript">' . "\n";
        $formconfirm .= '
        $(document).ready(function () {
          $(".confirmvalidatebutton").on("click", function() {
            console.log("We click on button confirmvalidatebutton");
            $(this).attr("disabled", "disabled");
            setTimeout(\'$(".confirmvalidatebutton").removeAttr("disabled")\', 3000);
            //console.log($(this).closest("form"));
            $(this).closest("form").submit();
          });
        });
        ';
        $formconfirm .= '</script>' . "\n";
      }
 
      $formconfirm .= "<!-- end formconfirm -->\n";
    }
 
    return $formconfirm;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function form_project($page, $socid, $selected = '', $htmlname = 'projectid', $discard_closed = 0, $maxlength = 20, $forcefocus = 0, $nooutput = 0, $textifnoproject = '', $morecss = '')
  {
    // phpcs:enable
    global $langs;
 
    require_once 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 .= '<form method="post" action="' . $page . '">';
      $out .= '<input type="hidden" name="action" value="classin">';
      $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
      $out .= $formproject->select_projects($socid, $selected, $htmlname, $maxlength, 0, 1, $discard_closed, $forcefocus, 0, 0, '', 1, 0, $morecss);
      $out .= '<input type="submit" class="button smallpaddingimp" value="' . $langs->trans("Modify") . '">';
      $out .= '</form>';
    } else {
      $out .= '<span class="project_head_block">';
      if ($selected) {
        $projet = new Project($this->db);
        $projet->fetch($selected);
        $out .= $projet->getNomUrl(0, '', 1);
      } else {
        $out .= '<span class="opacitymedium">' . $textifnoproject . '</span>';
      }
      $out .= '</span>';
    }
 
    if (empty($nooutput)) {
      print $out;
      return '';
    }
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  public function form_conditions_reglement($page, $selected = '', $htmlname = 'cond_reglement_id', $addempty = 0, $type = '', $filtertype = -1, $deposit_percent = -1, $nooutput = 0)
  {
    // phpcs:enable
    global $langs;
 
    $out = '';
 
    if ($htmlname != "none") {
      $out .= '<form method="POST" action="' . $page . '">';
      $out .= '<input type="hidden" name="action" value="setconditions">';
      $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
      if ($type) {
        $out .= '<input type="hidden" name="type" value="' . dol_escape_htmltag($type) . '">';
      }
      $out .= $this->getSelectConditionsPaiements($selected, $htmlname, $filtertype, $addempty, 0, '', $deposit_percent);
      $out .= '<input type="submit" class="button valignmiddle smallpaddingimp" value="' . $langs->trans("Modify") . '">';
      $out .= '</form>';
    } else {
      if ($selected) {
        $this->load_cache_conditions_paiements();
        if (isset($this->cache_conditions_paiements[$selected])) {
          $label = $this->cache_conditions_paiements[$selected]['label'];
 
          if (!empty($this->cache_conditions_paiements[$selected]['deposit_percent'])) {
            $label = str_replace('__DEPOSIT_PERCENT__', $deposit_percent > 0 ? $deposit_percent : $this->cache_conditions_paiements[$selected]['deposit_percent'], $label);
          }
 
          $out .= $label;
        } else {
          $langs->load('errors');
          $out .= $langs->trans('ErrorNotInDictionaryPaymentConditions');
        }
      } else {
        $out .= '&nbsp;';
      }
    }
 
    if (empty($nooutput)) {
      print $out;
      return '';
    }
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
 
  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 = array(), $include = array())
  {
    // phpcs:enable
    global $langs;
 
    if ($htmlname != "none") {
      print '<form method="POST" action="' . $page . '" name="form' . $htmlname . '">';
      print '<input type="hidden" name="action" value="set' . $htmlname . '">';
      print '<input type="hidden" name="token" value="' . newToken() . '">';
      print $this->select_dolusers($selected, $htmlname, 1, $exclude, 0, $include);
      print '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
      print '</form>';
    } else {
      if ($selected) {
        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 = '', $nooutput = 0)
  {
    // phpcs:enable
    global $langs;
 
    $out = '';
    if ($htmlname != "none") {
      $out .= '<form method="POST" action="' . $page . '">';
      $out .= '<input type="hidden" name="action" value="setmode">';
      $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
      if ($type) {
        $out .= '<input type="hidden" name="type" value="' . dol_escape_htmltag($type) . '">';
      }
      $out .= $this->select_types_paiements($selected, $htmlname, $filtertype, 0, $addempty, 0, 0, $active, '', 1);
      $out .= '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
      $out .= '</form>';
    } else {
      if ($selected) {
        $this->load_cache_types_paiements();
        $out .= $this->cache_types_paiements[$selected]['label'];
      } else {
        $out .= "&nbsp;";
      }
    }
 
    if ($nooutput) {
      return $out;
    } else {
      print $out;
    }
    return '';
  }
 
  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 = 0.0, $htmlname = 'multicurrency_tx', $currency = '')
  {
    // phpcs:enable
    global $langs, $mysoc, $conf;
 
    if ($htmlname != "none") {
      print '<form method="POST" action="' . $page . '">';
      print '<input type="hidden" name="action" value="setmulticurrencyrate">';
      print '<input type="hidden" name="token" value="' . newToken() . '">';
      print '<input type="text" class="maxwidth100" name="' . $htmlname . '" value="' . (!empty($rate) ? price(price2num($rate, 'CU')) : 1) . '" /> ';
      print '<select name="calculation_mode">';
      print '<option value="1">Change ' . $langs->trans("PriceUHT") . ' of lines</option>';
      print '<option value="2">Change ' . $langs->trans("PriceUHTCurrency") . ' of lines</option>';
      print '</select> ';
      print '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
      print '</form>';
    } else {
      if (!empty($rate)) {
        print price($rate, 1, $langs, 0, 0);
        if ($currency && $rate != 1) {
          print ' &nbsp; (' . price($rate, 1, $langs, 0, 0) . ' ' . $currency . ' = 1 ' . $conf->currency . ')';
        }
      } else {
        print 1;
      }
    }
  }
 
 
  // 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 (getDolGlobalString('FACTURE_SUPPLIER_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 (getDolGlobalString('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 = (getDolGlobalString('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(), $textifnothirdparty = '')
  {
    // phpcs:enable
    global $langs;
 
    $out = '';
    if ($htmlname != "none") {
      $out .= '<form method="post" action="' . $page . '">';
      $out .= '<input type="hidden" name="action" value="set_thirdparty">';
      $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
      $out .= $this->select_company($selected, $htmlname, $filter, $showempty, $showtype, $forcecombo, $events, 0, 'minwidth100', '', '', 1, array(), false, $excludeids);
      $out .= '<input type="submit" class="button smallpaddingimp valignmiddle" value="' . $langs->trans("Modify") . '">';
      $out .= '</form>';
    } else {
      if ($selected) {
        require_once DOL_DOCUMENT_ROOT . '/societe/class/societe.class.php';
        $soc = new Societe($this->db);
        $soc->fetch($selected);
        $out .= $soc->getNomUrl(0, '');
      } else {
        $out .= '<span class="opacitymedium">' . $textifnothirdparty . '</span>';
      }
    }
 
    if ($nooutput) {
      return $out;
    } else {
      print $out;
    }
 
    return '';
  }
 
  // 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;