commonobject.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2006-2015  Laurent Destailleur <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2013  Regis Houssin       <regis.houssin@inodbox.com>
 * Copyright (C) 2010-2020  Juanjo Menent       <jmenent@2byte.es>
 * Copyright (C) 2012-2013  Christophe Battarel <christophe.battarel@altairis.fr>
 * Copyright (C) 2011-2022  Philippe Grand      <philippe.grand@atoo-net.com>
 * Copyright (C) 2012-2015  Marcos García       <marcosgdf@gmail.com>
 * Copyright (C) 2012-2015  Raphaël Doursenaud  <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2012       Cedric Salvador     <csalvador@gpcsolutions.fr>
 * Copyright (C) 2015-2026  Alexandre Spangaro  <alexandre@inovea-conseil.com>
 * Copyright (C) 2016       Bahfir abbes        <bafbes@gmail.com>
 * Copyright (C) 2017       ATM Consulting      <support@atm-consulting.fr>
 * Copyright (C) 2017-2026  Nicolas ZABOURI     <info@inovea-conseil.com>
 * Copyright (C) 2017       Rui Strecht         <rui.strecht@aliartalentos.com>
 * Copyright (C) 2018-2026  Frédéric France     <frederic.france@free.fr>
 * Copyright (C) 2018       Josep Lluís Amador  <joseplluis@lliuretic.cat>
 * Copyright (C) 2023       Gauthier VERDOL     <gauthier.verdol@atm-consulting.fr>
 * Copyright (C) 2021       Grégory Blémand     <gregory.blemand@atm-consulting.fr>
 * Copyright (C) 2023       Lenin Rivas       <lenin.rivas777@gmail.com>
 * Copyright (C) 2024-2026  MDW         <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024   William Mead    <william.mead@manchenumerique.fr>
 * Copyright (C) 2025   Alexandre Janniaux  <alexandre.janniaux@gmail.com>
 * Copyright (C) 2025   Vincent Maury   <vmaury@timgroup.fr>
 * Copyright (C) 2026   Pierre Ardoin   <developpeur@lesmetiersdubatiment.fr>
 * Copyright (C) 2026   Anthony Berton    <anthony.berton@bb2a.fr>
 
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
require_once DOL_DOCUMENT_ROOT.'/core/class/doldeprecationhandler.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/commontrigger.class.php';
 
abstract class CommonObject
{
  use DolDeprecationHandler;
  use CommonTrigger;
 
  public $module;
 
  public $db;
 
  public $id;
 
  public $entity;
 
  public $error;
 
  public $errorhidden;
 
  public $errors = array();
 
  public $warning;
 
  public $warnings = array();
 
  private $validateFieldsErrors = array();
 
  public $element;
 
  public $fk_element;
 
  public $element_for_permission;
 
  public $table_element;
 
  public $table_rowid;
 
  public $table_element_line = '';
 
  public $ismultientitymanaged;
 
  public $import_key;
 
  public $array_options = array();
 
 
  public $fields = array();
 
  public $array_languages = null; // Value is array() when load already tried
 
  public $contacts_ids;
 
  public $contacts_ids_internal;
 
  public $linked_objects;
 
  public $linkedObjectsIds;
 
  public $linkedObjects;
 
  private $linkedObjectsFullLoaded = array();
 
  public $oldcopy;
 
  public $oldref;
 
  protected $table_ref_field = '';
 
  public $restrictiononfksoc = 0;
 
 
  // The following vars are used by some objects only.
  // We keep these properties in CommonObject in order to provide common methods using them.
 
  public $context = array();
 
  public $actionmsg;
  public $actionmsg2;
 
  public $canvas;
 
  public $project;
 
  public $fk_project;
 
  public $fk_projet;
 
  public $contact;
 
  public $contact_id;
 
  public $thirdparty;
 
  public $user;
 
  public $product;
 
  public $warehouse;
 
  public $origin_type;
 
  public $origin_id;
 
  public $origin_object;
 
  public $origin;
 
  private $expedition;
 
  private $livraison;
 
  private $commandeFournisseur;
 
 
  public $ref;
 
  public $ref_ext;
 
  public $ref_previous;
 
  public $ref_next;
 
  public $newref;
 
  public $statut;
 
  public $status;
 
  public $country;
 
  public $country_id;
 
  public $country_code;
 
  public $state;
 
  public $state_id;
 
  public $state_code;
 
  public $region_id;
 
  public $region_code;
 
  public $region;
 
 
  public $barcode_type;
 
  public $barcode_type_code;
 
  public $barcode_type_label;
 
  public $barcode_type_coder;
 
  public $mode_reglement_id;
 
  public $cond_reglement_id;
 
  public $demand_reason_id;
 
  public $transport_mode_id;
 
  protected $depr_cond_reglement;  // Internal value for deprecation
 
  public $fk_delivery_address;
 
  public $shipping_method_id;
 
  public $shipping_method;
 
  // Multicurrency
  public $fk_multicurrency;
 
  public $multicurrency_code;
 
  public $multicurrency_tx;
 
  public $multicurrency_total_ht;
 
  public $multicurrency_total_tva;
 
  public $multicurrency_total_localtax1;  // not in database
 
  public $multicurrency_total_localtax2;  // not in database
 
  public $multicurrency_total_ttc;
 
 
  public $model_pdf;
 
  public $last_main_doc;
 
  public $fk_bank;
 
  public $fk_account;
 
  public $note_public;
 
  public $note_private;
 
  public $note;
 
  public $total_ht;
 
  public $total_tva;
 
  public $total_localtax1;
 
  public $total_localtax2;
 
  public $total_ttc;
 
 
  public $lines;
 
  public $actiontypecode;
 
  public $comments = array();
 
  public $name;
 
  public $lastname;
 
  public $firstname;
 
  public $civility_id;
 
  public $civility_code;
 
  // Dates
  public $date_creation;
 
  public $date_validation;
 
  public $date_modification;
 
  public $tms;
 
  private $date_update;
 
  public $date_cloture;
 
  public $user_creation_id;
 
  public $user_validation_id;
 
  public $user_closing_id;
 
  public $user_modification_id;
 
  public $fk_user_creat;
 
  public $fk_user_modif;
 
 
  public $next_prev_filter;
 
  public $specimen = 0;
 
  public $sendtoid;
 
 
  public $alreadypaid;
 
  public $totalpaid;
 
  public $totalpaid_multicurrency;
 
 
  public $labelStatus = array();
 
  public $labelStatusShort = array();
 
  public $tpl;
 
 
  public $showphoto_on_popup;
 
  public $nb = array();
 
  public $nbphoto;
 
  public $output;
 
  public $extraparams = array();
 
  protected $childtables = array();
 
  protected $childtablesoncascade = array();
 
  public $cond_reglement_supplier_id;
 
  public $deposit_percent;
 
 
  public $warehouse_id;
 
  public $isextrafieldmanaged = 0;
 
 
  // No constructor as it is an abstract class
 
  protected function deprecatedProperties()
  {
    return array(
      'alreadypaid' => 'totalpaid',
      'cond_reglement' => 'depr_cond_reglement',
      //'note' => 'note_private',   // Some classes needs ->note and others need ->note_public/private so we can't manage deprecation for this field with dolDeprecationHandler
      'commandeFournisseur' => 'origin_object',
      'expedition' => 'origin_object',
      'fk_project' => 'fk_project',
      'livraison' => 'origin_object',
      'projet' => 'project',
      'statut' => 'status',
    );
  }
 
 
  public static function isExistingObject($element, $id, $ref = '', $ref_ext = '')
  {
    global $db, $conf;
 
    $sql = "SELECT rowid";
    $sql .= " FROM ".$db->prefix().$element;
    $sql .= " WHERE entity IN (".getEntity($element).")";
 
    if ($id > 0) {
      $sql .= " AND rowid = ".((int) $id);
    } elseif ($ref) {
      $sql .= " AND ref = '".$db->escape($ref)."'";
    } elseif ($ref_ext) {
      $sql .= " AND ref_ext = '".$db->escape($ref_ext)."'";
    } else {
      $error = 'ErrorWrongParameters';
      dol_syslog(get_class()."::isExistingObject ".$error, LOG_ERR);
      return -1;
    }
    if ($ref || $ref_ext) {   // Because the same ref can exists in 2 different entities, we force the current one in priority
      $sql .= " AND entity = ".((int) $conf->entity);
    }
 
    dol_syslog(get_class()."::isExistingObject", LOG_DEBUG);
    $resql = $db->query($sql);
    if ($resql) {
      $num = $db->num_rows($resql);
      if ($num > 0) {
        return 1;
      } else {
        return 0;
      }
    }
    return -1;
  }
 
  public function isEmpty()
  {
    return (empty($this->id));
  }
 
  public function setErrorsFromObject($object)
  {
    if (!empty($object->error)) {
      $this->error = $object->error;
    }
    if (!empty($object->errors)) {
      $this->errors = array_merge($this->errors, $object->errors);
    }
  }
 
  public function getTooltipContentArray($params)
  {
    return [];
  }
 
  public function getTooltipContent($params)
  {
    global $action, $extrafields, $langs, $hookmanager;
 
    // If there is too much extrafields, we do not include them into tooltip
    $MAX_EXTRAFIELDS_TO_SHOW_IN_TOOLTIP = getDolGlobalInt('MAX_EXTRAFIELDS_TO_SHOW_IN_TOOLTIP', 3);
 
    $data = $this->getTooltipContentArray($params);
    $count = 0;
 
    // Add extrafields
    if (!empty($extrafields->attributes[$this->table_element]['label'])) {
      $data['opendivextra'] = '<div class="centpercent wordbreak divtooltipextra">';
      foreach ($extrafields->attributes[$this->table_element]['label'] as $key => $val) {
        if ($extrafields->attributes[$this->table_element]['type'][$key] == 'separate') {
          continue;
        }
 
        if (empty($extrafields->attributes[$this->table_element]['showintooltip'][$key])) {
          continue;
        }
 
 
        if ($count >= abs($MAX_EXTRAFIELDS_TO_SHOW_IN_TOOLTIP)) {
          $data['more_extrafields'] = '<br>...';
          break;
        }
        $enabled = 1;
        if ($enabled && isset($extrafields->attributes[$this->table_element]['enabled'][$key])) {
          $enabled = (int) dol_eval((string) $extrafields->attributes[$this->table_element]['enabled'][$key], 1, 1, '2');
        }
        if ($enabled && isset($extrafields->attributes[$this->table_element]['list'][$key])) {
          $enabled = (int) dol_eval((string) $extrafields->attributes[$this->table_element]['list'][$key], 1, 1, '2');
        }
        $perms = 1;
        if ($perms && isset($extrafields->attributes[$this->table_element]['perms'][$key])) {
          $perms = (int) dol_eval((string) $extrafields->attributes[$this->table_element]['perms'][$key], 1, 1, '2');
        }
        if (empty($enabled)) {
          continue; // 0 = Never visible field
        }
        if (abs($enabled) != 1 && abs($enabled) != 3 && abs($enabled) != 5 && abs($enabled) != 4) {
          continue; // <> -1 and <> 1 and <> 3 = not visible on forms, only on list <> 4 = not visible at the creation
        }
        if (empty($perms)) {
          continue; // 0 = Not visible
        }
        if (!empty($extrafields->attributes[$this->table_element]['langfile'][$key])) {
          $langs->load($extrafields->attributes[$this->table_element]['langfile'][$key]);
        }
        $labelextra = $langs->trans((string) $extrafields->attributes[$this->table_element]['label'][$key]);
        if ($extrafields->attributes[$this->table_element]['type'][$key] == 'separate') {
          $data[$key] = '<br><b><u>'. $labelextra . '</u></b>';
        } else {
          $value = (empty($this->array_options['options_' . $key]) ? '' : $this->array_options['options_' . $key]);
          $data[$key] = '<br><b>'. $labelextra . ':</b> ' . $extrafields->showOutputField($key, $value, '', $this->table_element);
          $count++;
        }
      }
      $data['closedivextra'] = '</div>';
    }
 
    $hookmanager->initHooks(array($this->element . 'dao'));
    $parameters = array(
      'tooltipcontentarray' => &$data,
      'params' => $params,
    );
    // Note that $action and $object may have been modified by some hooks
    $hookmanager->executeHooks('getTooltipContent', $parameters, $this, $action);
 
    //var_dump($data);
    $label = implode($data);
 
    return $label;
  }
 
 
  public function errorsToString()
  {
    return $this->error.(is_array($this->errors) ? (($this->error != '' ? ', ' : '').implode(', ', $this->errors)) : '');
  }
 
 
  public function getFormatedCustomerRef($objref)
  {
    global $hookmanager;
 
    $parameters = array('objref' => $objref);
    $action = '';
    $reshook = $hookmanager->executeHooks('getFormatedCustomerRef', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
    if ($reshook > 0) {
      return $hookmanager->resArray['objref'];
    }
    return $objref.(isset($hookmanager->resArray['objref']) ? $hookmanager->resArray['objref'] : '');
  }
 
  public function getFormatedSupplierRef($objref)
  {
    global $hookmanager;
 
    $parameters = array('objref' => $objref);
    $action = '';
    $reshook = $hookmanager->executeHooks('getFormatedSupplierRef', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
    if ($reshook > 0) {
      return $hookmanager->resArray['objref'];
    }
    return $objref.(isset($hookmanager->resArray['objref']) ? $hookmanager->resArray['objref'] : '');
  }
 
  public function getFullAddress($withcountry = 0, $sep = "\n", $withregion = 0, $extralangcode = '')
  {
    if ($withcountry && $this->country_id && (empty($this->country_code) || empty($this->country))) {
      require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
      $tmparray = getCountry($this->country_id, 'all');
      $this->country_code = $tmparray['code'];
      $this->country = $tmparray['label'];
    }
 
    if ($withregion && $this->state_id && (empty($this->state_code) || empty($this->state) || empty($this->region) || empty($this->region_code))) {
      require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
      $tmparray = getState($this->state_id, 'all', null, 1);
      $this->state_code   = $tmparray['code'];
      $this->state        = $tmparray['label'];
      $this->region_code  = $tmparray['region_code'];
      $this->region       = $tmparray['region'];
    }
 
    return dol_format_address($this, $withcountry, $sep, null, 0, $extralangcode);
  }
 
 
  public function getLastMainDocLink($modulepart, $initsharekey = 0, $relativelink = 0)
  {
    global $user, $dolibarr_main_url_root;
 
    if (empty($this->last_main_doc)) {
      return ''; // No way to known which document name to use
    }
 
    include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
    $ecmfile = new EcmFiles($this->db);
    $result = $ecmfile->fetch(0, '', $this->last_main_doc);
    if ($result < 0) {
      $this->error = $ecmfile->error;
      $this->errors = $ecmfile->errors;
      return -1;
    }
 
    if (empty($ecmfile->id)) {  // No entry into file index already exists, we should initialize the shared key manually.
      // Add entry into index
      if ($initsharekey) {
        require_once DOL_DOCUMENT_ROOT.'/core/lib/security2.lib.php';
 
        // TODO We can't, we don't have full path of file, only last_main_doc and ->element, so we must first rebuild full path $destfull
        /*
         $ecmfile->filepath = $rel_dir;
         $ecmfile->filename = $filename;
         $ecmfile->label = md5_file(dol_osencode($destfull));    // hash of file content
         $ecmfile->fullpath_orig = '';
         $ecmfile->gen_or_uploaded = 'generated';
         $ecmfile->description = '';    // indexed content
         $ecmfile->keywords = '';        // keyword content
         $ecmfile->share = getRandomPassword(true);
         $result = $ecmfile->create($user);
         if ($result < 0)
         {
         $this->error = $ecmfile->error;
         $this->errors = $ecmfile->errors;
         }
         */
      } else {
        return '';
      }
    } elseif (empty($ecmfile->share)) { // Entry into file index already exists but no share key is defined.
      // Add entry into index
      if ($initsharekey) {
        require_once DOL_DOCUMENT_ROOT.'/core/lib/security2.lib.php';
        $ecmfile->share = getRandomPassword(true);
        $ecmfile->update($user);
      } else {
        return '';
      }
    }
    // Define $urlwithroot
    $urlwithouturlroot = preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));
    // This is to use external domain name found into config file
    //if (DOL_URL_ROOT && ! preg_match('/\/$/', $urlwithouturlroot) && ! preg_match('/^\//', DOL_URL_ROOT)) $urlwithroot=$urlwithouturlroot.'/'.DOL_URL_ROOT;
    //else
    $urlwithroot = $urlwithouturlroot.DOL_URL_ROOT;
    //$urlwithroot=DOL_MAIN_URL_ROOT;         // This is to use same domain name than current
 
    $forcedownload = 0;
 
    $paramlink = '';
    //if (!empty($modulepart)) $paramlink.=($paramlink?'&':'').'modulepart='.$modulepart;   // For sharing with hash (so public files), modulepart is not required.
    //if (!empty($ecmfile->entity)) $paramlink.='&entity='.$ecmfile->entity;          // For sharing with hash (so public files), entity is not required.
    //$paramlink.=($paramlink?'&':'').'file='.urlencode($filepath);               // No need of name of file for public link, we will use the hash
    if (!empty($ecmfile->share)) {
      $paramlink .= ($paramlink ? '&' : '').'hashp='.$ecmfile->share; // Hash for public share
    }
    if ($forcedownload) {
      $paramlink .= ($paramlink ? '&' : '').'attachment=1';
    }
 
    if ($relativelink) {
      $linktoreturn = 'document.php'.($paramlink ? '?'.$paramlink : '');
    } else {
      $linktoreturn = $urlwithroot.'/document.php'.($paramlink ? '?'.$paramlink : '');
    }
 
    // Here $ecmfile->share is defined
    return $linktoreturn;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function add_contact($fk_socpeople, $type_contact, $source = 'external', $notrigger = 0)
  {
    // phpcs:enable
    global $user, $langs;
 
    dol_syslog(get_class($this)."::add_contact $fk_socpeople, $type_contact, $source, $notrigger");
 
    // Check parameters
    if ($fk_socpeople <= 0) {
      $langs->load("errors");
      $this->error = $langs->trans("ErrorWrongValueForParameterX", "1");
      dol_syslog(get_class($this)."::add_contact ".$this->error, LOG_ERR);
      return -1;
    }
 
    // Check that the contact actually exists in database
    $sql_check = "SELECT rowid FROM ".$this->db->prefix().($source == 'internal' ? "user" : "socpeople")." WHERE rowid = ".((int) $fk_socpeople);
    $resql_check = $this->db->query($sql_check);
    if ($resql_check) {
      if (!$this->db->num_rows($resql_check)) {
        $langs->load("errors");
        $this->error = $langs->trans("ErrorRecordNotFound");
        dol_syslog(get_class($this)."::add_contact Contact/user id ".$fk_socpeople." does not exist", LOG_ERR);
        return -1;
      }
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }
 
    if (!$type_contact) {
      $langs->load("errors");
      $this->error = $langs->trans("ErrorWrongValueForParameterX", "2");
      dol_syslog(get_class($this)."::add_contact ".$this->error, LOG_ERR);
      return -2;
    }
 
    // socid is checked: @phan-suppress-next-line PhanUndeclaredProperty
    if ($this->restrictiononfksoc && property_exists($this, 'socid') && !empty($this->socid) && $user->id > 0 && !$user->hasRight('societe', 'client', 'voir')) {
      $sql_allowed_contacts = 'SELECT COUNT(*) as cnt FROM '.$this->db->prefix().'societe_commerciaux as sc';
      // socid is checked: @phan-suppress-next-line PhanUndeclaredProperty
      $sql_allowed_contacts .= ' WHERE sc.fk_soc = '.(int) $this->socid;
      $sql_allowed_contacts .= ' AND sc.fk_user = '.(int) $user->id;
 
      $resql_allowed_contacts = $this->db->query($sql_allowed_contacts);
 
      if (!$resql_allowed_contacts) {
        $this->errors[] = $this->db->lasterror();
        return -3;
      } elseif ($obj = $this->db->fetch_object($resql_allowed_contacts)) {
        if ($obj->cnt == 0) {
          $langs->load("companies");
          $this->error = $langs->trans("ErrorCommercialNotAllowedForThirdparty", $user->id);
          dol_syslog(get_class($this)."::add_contact ".$this->error, LOG_ERR);
          return -4;
        }
      }
    }
 
    $id_type_contact = 0;
    if (is_numeric($type_contact)) {
      $id_type_contact = $type_contact;
    } else {
      // We look for id type_contact
      $sql = "SELECT tc.rowid";
      $sql .= " FROM ".$this->db->prefix()."c_type_contact as tc";
      $sql .= " WHERE tc.element='".$this->db->escape($this->element)."'";
      $sql .= " AND tc.source='".$this->db->escape($source)."'";
      $sql .= " AND tc.code='".$this->db->escape($type_contact)."' AND tc.active=1";
      //print $sql;
      $resql = $this->db->query($sql);
      if ($resql) {
        $obj = $this->db->fetch_object($resql);
        if ($obj) {
          $id_type_contact = $obj->rowid;
        }
      }
    }
    if ($id_type_contact == 0) {
      dol_syslog("CODE_NOT_VALID_FOR_THIS_ELEMENT: Code type of contact '".$type_contact."' does not exists or is not active for element ".$this->element.", we can ignore it");
      return 0;
    }
 
    $datecreate = dol_now();
 
    // Socpeople must have already been added by some trigger, then we have to check it to avoid DB_ERROR_RECORD_ALREADY_EXISTS error
    $TListeContacts = $this->liste_contact(-1, $source);
    $already_added = false;
    if (is_array($TListeContacts) && !empty($TListeContacts)) {
      foreach ($TListeContacts as $array_contact) {
        if ($array_contact['status'] == 4 && $array_contact['id'] == $fk_socpeople && $array_contact['fk_c_type_contact'] == $id_type_contact) {
          $already_added = true;
          break;
        }
      }
    }
 
    if (!$already_added) {
      $this->db->begin();
 
      // Insert into database
      $sql = "INSERT INTO ".$this->db->prefix()."element_contact";
      $sql .= " (element_id, fk_socpeople, datecreate, statut, fk_c_type_contact) ";
      $sql .= " VALUES (".((int) $this->id).", ".((int) $fk_socpeople)." , ";
      $sql .= "'".$this->db->idate($datecreate)."'";
      $sql .= ", 4, ".((int) $id_type_contact);
      $sql .= ")";
 
      $resql = $this->db->query($sql);
      if ($resql) {
        if (!$notrigger) {
          $triggerPrefix = (empty($this->TRIGGER_PREFIX) ? strtoupper($this->element) : $this->TRIGGER_PREFIX);
          $result = $this->call_trigger($triggerPrefix.'_ADD_CONTACT', $user);
          if ($result < 0) {
            $this->db->rollback();
            return -5;
          }
        }
 
        $this->db->commit();
        return 1;
      } else {
        if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
          $this->error = $this->db->errno();
          $this->db->rollback();
          return -6;
        } else {
          $this->error = $this->db->lasterror();
          $this->db->rollback();
          return -7;
        }
      }
    } else {
      return 0;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function copy_linked_contact($objFrom, $source = 'internal')
  {
    // phpcs:enable
    $contacts = $objFrom->liste_contact(-1, $source);
    foreach ($contacts as $contact) {
      if ($this->add_contact($contact['id'], $contact['fk_c_type_contact'], $contact['source']) < 0) {
        return -1;
      }
    }
    return 1;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function update_contact($rowid, $statut, $type_contact_id = 0, $fk_socpeople = 0)
  {
    // phpcs:enable
    // Insert into database
    $sql = "UPDATE ".$this->db->prefix()."element_contact set";
    $sql .= " statut = ".((int) $statut);
    if ($type_contact_id) {
      $sql .= ", fk_c_type_contact = ".((int) $type_contact_id);
    }
    if ($fk_socpeople) {
      $sql .= ", fk_socpeople = ".((int) $fk_socpeople);
    }
    $sql .= " where rowid = ".((int) $rowid);
 
    $resql = $this->db->query($sql);
    if ($resql) {
      return 0;
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_contact($rowid, $notrigger = 0)
  {
    // phpcs:enable
    global $user;
 
    $error = 0;
 
    $this->db->begin();
 
    if (!$error && empty($notrigger)) {
      // Call trigger
      $this->context['contact_id'] = ((int) $rowid);
      $triggerPrefix = (empty($this->TRIGGER_PREFIX) ? strtoupper($this->element) : $this->TRIGGER_PREFIX);
      $result = $this->call_trigger($triggerPrefix.'_DELETE_CONTACT', $user);
      if ($result < 0) {
        $error++;
      }
      // End call triggers
    }
 
    if (!$error) {
      dol_syslog(get_class($this)."::delete_contact", LOG_DEBUG);
 
      $sql = "DELETE FROM ".MAIN_DB_PREFIX."element_contact";
      $sql .= " WHERE rowid = ".((int) $rowid);
 
      $result = $this->db->query($sql);
      if (!$result) {
        $error++;
        $this->errors[] = $this->db->lasterror();
      }
    }
 
    if (!$error) {
      $this->db->commit();
      return 1;
    } else {
      $this->error = $this->db->lasterror();
      $this->db->rollback();
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_linked_contact($source = '', $code = '')
  {
    // phpcs:enable
    $listId = '';
    $temp = array();
    $typeContact = $this->liste_type_contact($source, '', 0, 0, $code);
 
    if (!empty($typeContact)) {
      foreach ($typeContact as $key => $value) {
        array_push($temp, $key);
      }
      $listId = implode(",", $temp);
    }
 
    // If $listId is empty, we have not criteria on fk_c_type_contact so we will delete record on element_id for
    // any type or record instead of only the ones of the current object. So we do nothing in such a case.
    if (empty($listId)) {
      return 0;
    }
 
    $sql = "DELETE FROM ".$this->db->prefix()."element_contact";
    $sql .= " WHERE element_id = ".((int) $this->id);
    $sql .= " AND fk_c_type_contact IN (".$this->db->sanitize($listId).")";
 
    dol_syslog(get_class($this)."::delete_linked_contact", LOG_DEBUG);
    if ($this->db->query($sql)) {
      return 1;
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function liste_contact($statusoflink = -1, $source = 'external', $list = 0, $code = '', $status = -1, $arrayoftcids = array())
  {
    // phpcs:enable
    global $langs;
 
    $tab = array();
 
    $sql = "SELECT ec.rowid, ec.statut as statuslink, ec.fk_socpeople as id, ec.fk_c_type_contact"; // This field contains id of llx_socpeople or id of llx_user
    if ($source == 'internal') {
      $sql .= ", '-1' as socid, t.statut as statuscontact, t.login, t.photo, t.gender, t.fk_country as country_id";
    }
    if ($source == 'external' || $source == 'thirdparty') {
      $sql .= ", t.fk_soc as socid, t.statut as statuscontact, t.fk_pays as country_id";
    }
    $sql .= ", t.civility as civility, t.lastname as lastname, t.firstname, t.email, t.address, t.zip, t.town";
    if (empty($arrayoftcids)) {
      $sql .= ", tc.source, tc.element, tc.code, tc.libelle as type_label, co.label as country";
    }
    $sql .= " FROM";
    if (empty($arrayoftcids)) {
      $sql .= " ".$this->db->prefix()."c_type_contact as tc,";
    }
    $sql .= " ".$this->db->prefix()."element_contact as ec";
    if ($source == 'internal') {  // internal contact (user)
      $sql .= " LEFT JOIN ".$this->db->prefix()."user as t on ec.fk_socpeople = t.rowid";
      $sql .= " LEFT JOIN ".$this->db->prefix()."c_country as co ON co.rowid = t.fk_country";
    }
    if ($source == 'external' || $source == 'thirdparty') { // external contact (socpeople)
      $sql .= " LEFT JOIN ".$this->db->prefix()."socpeople as t on ec.fk_socpeople = t.rowid";
      $sql .= " LEFT JOIN ".$this->db->prefix()."c_country as co ON co.rowid = t.fk_pays";
    }
    $sql .= " WHERE ec.element_id = ".((int) $this->id);
    if (empty($arrayoftcids)) {
      $sql .= " AND ec.fk_c_type_contact = tc.rowid";
      $sql .= " AND tc.element = '".$this->db->escape($this->element)."'";
      if ($code) {
        $sql .= " AND tc.code = '".$this->db->escape($code)."'";
      }
      if ($source == 'internal') {
        $sql .= " AND tc.source = 'internal'";
      }
      if ($source == 'external' || $source == 'thirdparty') {
        $sql .= " AND tc.source = 'external'";
      }
      $sql .= " AND tc.active = 1";
    } else {
      $sql .= " AND ec.fk_c_type_contact IN (".$this->db->sanitize(implode(',', $arrayoftcids)).")";
    }
    if ($status >= 0) {
      $sql .= " AND t.statut = ".((int) $status); // t is llx_user or llx_socpeople
    }
    if ($statusoflink >= 0) {
      $sql .= " AND ec.statut = ".((int) $statusoflink);
    }
    $sql .= " ORDER BY t.lastname ASC";
 
    dol_syslog(get_class($this)."::liste_contact", LOG_DEBUG);
    $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 (!$list) {
          $transkey = "TypeContact_".$obj->element."_".$obj->source."_".$obj->code;
          $label_type = ($langs->trans($transkey) != $transkey ? $langs->trans($transkey) : $obj->type_label);
          $tab[$i] = array(
            'parentId' => $this->id,
            'source' => $obj->source,
            'socid' => $obj->socid,
            'id' => $obj->id,
            'nom' => $obj->lastname, // For backward compatibility
            'civility' => $obj->civility,
            'lastname' => $obj->lastname,
            'firstname' => $obj->firstname,
            'email' => $obj->email,
            'address' => $obj->address,
            'zip' => $obj->zip,
            'town' => $obj->town,
            'country_id' => $obj->country_id,
            'country' => $obj->country,
            'login' => (empty($obj->login) ? '' : $obj->login),
            'photo' => (empty($obj->photo) ? '' : $obj->photo),
            'gender' => (empty($obj->gender) ? '' : $obj->gender),
            'statuscontact' => $obj->statuscontact,
            'rowid' => $obj->rowid,
            'code' => $obj->code,
            'libelle' => $label_type,
            'status' => (int) $obj->statuslink,
            'fk_c_type_contact' => $obj->fk_c_type_contact
          );
        } else {
          $tab[$i] = $obj->id;
        }
 
        $i++;
      }
 
      return $tab;
    } else {
      $this->error = $this->db->lasterror();
      dol_print_error($this->db);
      return -1;
    }
  }
 
 
  public function swapContactStatus($rowid)
  {
    $sql = "SELECT ec.datecreate, ec.statut, ec.fk_socpeople, ec.fk_c_type_contact,";
    $sql .= " tc.code, tc.libelle as type_label";
    $sql .= " FROM (".$this->db->prefix()."element_contact as ec, ".$this->db->prefix()."c_type_contact as tc)";
    $sql .= " WHERE ec.rowid =".((int) $rowid);
    $sql .= " AND ec.fk_c_type_contact = tc.rowid";
    $sql .= " AND tc.element = '".$this->db->escape($this->element)."'";
 
    dol_syslog(get_class($this)."::swapContactStatus", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      $newstatut = ($obj->statut == 4) ? 5 : 4;
      $result = $this->update_contact($rowid, $newstatut);
      $this->db->free($resql);
      return $result;
    } else {
      $this->error = $this->db->error();
      dol_print_error($this->db);
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function liste_type_contact($source = 'internal', $order = 'position', $option = 0, $activeonly = 0, $code = '')
  {
    // phpcs:enable
    global $langs;
 
    $sanitized_order = $order;  // @phan-suppress-current-line SqlInjection
 
    if (empty($sanitized_order)) {
      $sanitized_order = 'position';
    }
    if ($sanitized_order == 'position') {
      $sanitized_order .= ',code';
    }
 
    $tab = array();
 
    $sql = "SELECT DISTINCT tc.rowid, tc.code, tc.libelle as type_label, tc.position";
    $sql .= " FROM ".$this->db->prefix()."c_type_contact as tc";
    $sql .= " WHERE tc.element = '".$this->db->escape($this->element)."'";
    if ($activeonly == 1) {
      $sql .= " AND tc.active = 1"; // only the active types
    }
    if (!empty($source) && $source != 'all') {
      $sql .= " AND tc.source = '".$this->db->escape($source)."'";
    }
    if (!empty($code)) {
      $sql .= " AND tc.code = '".$this->db->escape($code)."'";
    }
    $sql .= $this->db->order($sanitized_order, 'ASC');
 
    //print "sql=".$sql;
    $resql = $this->db->query($sql);
    if (!$resql) {
      $this->error = $this->db->lasterror();
      //dol_print_error($this->db);
      return null;
    }
 
    $num = $this->db->num_rows($resql);
    $i = 0;
    while ($i < $num) {
      $obj = $this->db->fetch_object($resql);
 
      $transkey = "TypeContact_".$this->element."_".$source."_".$obj->code;
      $label_type = ($langs->trans($transkey) != $transkey ? $langs->trans($transkey) : $langs->trans($obj->type_label));
      if (empty($option)) {
        $tab[$obj->rowid] = $label_type;
      } elseif ($option == 1) {
        $tab[$obj->code] = $label_type;
      } else {
        $tab[$obj->rowid] = array('id' => $obj->rowid, 'code' => $obj->code, 'label' => $label_type);
      }
      $i++;
    }
 
    return $tab;
  }
 
  public function listeTypeContacts($source = 'internal', $option = 0, $activeonly = 0, $code = '', $element = '', $excludeelement = '')
  {
    global $langs;
 
    $langs->loadLangs(array('bills', 'contracts', 'interventions', 'orders', 'projects', 'propal', 'ticket', 'agenda'));
 
    $tab = array();
 
    $sql = "SELECT DISTINCT tc.rowid, tc.code, tc.libelle as type_label, tc.position, tc.element, tc.module";
    $sql .= " FROM ".$this->db->prefix()."c_type_contact as tc";
 
    $sqlWhere = array();
    if (!empty($element)) {
      $sqlWhere[] = " tc.element='".$this->db->escape($element)."'";
    }
    if (!empty($excludeelement)) {
      $sqlWhere[] = " tc.element <> '".$this->db->escape($excludeelement)."'";
    }
 
    if ($activeonly == 1) {
      $sqlWhere[] = " tc.active=1"; // only the active types
    }
 
    if (!empty($source) && $source != 'all') {
      $sqlWhere[] = " tc.source='".$this->db->escape($source)."'";
    }
 
    if (!empty($code)) {
      $sqlWhere[] = " tc.code='".$this->db->escape($code)."'";
    }
 
    if (count($sqlWhere) > 0) {
      $sql .= " WHERE ".implode(' AND ', $sqlWhere);
    }
 
    $sql .= $this->db->order('tc.element, tc.position', 'ASC');
 
    dol_syslog(__METHOD__, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      if ($num > 0) {
        $langs->loadLangs(array("propal", "orders", "bills", "suppliers", "contracts", "supplier_proposal"));
 
        while ($obj = $this->db->fetch_object($resql)) {
          $modulename = $obj->module ?? $obj->element;
          if (strpos($obj->element, 'project') !== false) {
            $modulename = 'projet';
          } elseif ($obj->element == 'contrat') {
            $element = 'contract';
          } elseif ($obj->element == 'action') {
            $modulename = 'agenda';
          } elseif (strpos($obj->element, 'supplier') !== false && $obj->element != 'supplier_proposal') {
            $modulename = 'fournisseur';
          }
          if (isModEnabled($modulename)) {
            $label_element = $langs->trans('ContactDefault_'.$obj->element);
            $tmpelement = $obj->element;
            $transkey = "TypeContact_".$tmpelement."_".$source."_".$obj->code;
            $label_type = ($langs->trans($transkey) != $transkey ? $langs->trans($transkey) : $obj->type_label);
            $tab[$obj->rowid] = $label_element.' - '.$label_type;
          }
        }
      }
      return $tab;
    } else {
      $this->error = $this->db->lasterror();
      return null;
    }
  }
 
  public function getIdContact($source, $code, $status = 0)
  {
    $result = array();
    $i = 0;
    // Particular case for shipping
    if (!getDolGlobalInt('SHIPPING_USE_ITS_OWN_CONTACTS') && $this->element == 'shipping' && $this->origin_id != 0) {
      $id = $this->origin_id;
      $element = 'commande';
    } elseif ($this->element == 'reception' && $this->origin_id != 0) {
      $id = $this->origin_id;
      $element = 'order_supplier';
    } else {
      $id = $this->id;
      $element = $this->element;
    }
 
    $sql = "SELECT ec.fk_socpeople";
    $sql .= " FROM ".$this->db->prefix()."element_contact as ec,";
    if ($source == 'internal') {
      $sql .= " ".$this->db->prefix()."user as c,";
    }
    if ($source == 'external') {
      $sql .= " ".$this->db->prefix()."socpeople as c,";
    }
    $sql .= " ".$this->db->prefix()."c_type_contact as tc";
    $sql .= " WHERE ec.element_id = ".((int) $id);
    $sql .= " AND ec.fk_socpeople = c.rowid";
    if ($source == 'internal') {
      $sql .= " AND c.entity IN (".getEntity('user').")";
    }
    if ($source == 'external') {
      $sql .= " AND c.entity IN (".getEntity('societe').")";
    }
    $sql .= " AND ec.fk_c_type_contact = tc.rowid";
    $sql .= " AND tc.element = '".$this->db->escape($element)."'";
    $sql .= " AND tc.source = '".$this->db->escape($source)."'";
    if ($code) {
      $sql .= " AND tc.code = '".$this->db->escape($code)."'";
    }
    $sql .= " AND tc.active = 1";
    if ($status) {
      $sql .= " AND ec.statut = ".((int) $status);
    }
 
    dol_syslog(get_class($this)."::getIdContact", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      while ($obj = $this->db->fetch_object($resql)) {
        $result[$i] = $obj->fk_socpeople;
        $i++;
      }
    } else {
      $this->error = $this->db->error();
      return null;
    }
 
    return $result;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_contact($contactid = null)
  {
    // phpcs:enable
    if (empty($contactid)) {
      $contactid = $this->contact_id;
    }
 
    if (empty($contactid)) {
      return 0;
    }
 
    require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
    $contact = new Contact($this->db);
    $result = $contact->fetch($contactid);
    $this->contact = $contact;
    return $result;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_thirdparty($force_thirdparty_id = 0)
  {
    // phpcs:enable
    if (empty($this->socid) && empty($this->fk_soc) && empty($force_thirdparty_id)) {
      return 0;
    }
 
    require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
 
    $idtofetch = isset($this->socid) ? $this->socid : (isset($this->fk_soc) ? $this->fk_soc : 0);
    if ($force_thirdparty_id) {
      $idtofetch = $force_thirdparty_id;
    }
 
    if ($idtofetch) {
      $thirdparty = new Societe($this->db);
      $result = $thirdparty->fetch($idtofetch);
      if ($result < 0) {
        $this->errors = array_merge($this->errors, $thirdparty->errors);
      }
      $this->thirdparty = $thirdparty;
 
      // Use first price level if level not defined for third party
      if ((getDolGlobalString('PRODUIT_MULTIPRICES') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_AND_MULTIPRICES')) && empty($this->thirdparty->price_level)) {
        $this->thirdparty->price_level = 1;
      }
 
      return $result;
    } else {
      return -1;
    }
  }
 
 
  public function fetchOneLike($ref)
  {
    if (!$this->table_ref_field) {
      return 0;
    }
 
    $sql = "SELECT rowid FROM ".$this->db->prefix().$this->table_element;
    $sql .= " WHERE ".$this->db->sanitize($this->table_ref_field)." LIKE '".$this->db->escape($ref)."'";  // no escapeforlike here
    $sql .= " LIMIT 1";
 
    $query = $this->db->query($sql);
 
    if (!$this->db->num_rows($query)) {
      return 0;
    }
 
    $result = $this->db->fetch_object($query);
 
    if (method_exists($this, 'fetch')) {
      return $this->fetch($result->rowid);
    } else {
      $this->error = 'Fetch method not implemented on '.get_class($this);
      dol_syslog(get_class($this).'::fetchOneLike Error='.$this->error, LOG_ERR);
      array_push($this->errors, $this->error);
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_barcode()
  {
    // phpcs:enable
    return $this->fetchBarCode();
  }
 
  public function fetchBarCode()
  {
    dol_syslog(get_class($this).'::fetchBarCode this->element='.$this->element.' this->barcode_type='.$this->barcode_type);
 
    $idtype = $this->barcode_type;
    if (empty($idtype) && $idtype != '0') { // If type of barcode no set, we try to guess. If set to '0' it means we forced to have type remain not defined
      if ($this->element == 'product' && getDolGlobalString('PRODUIT_DEFAULT_BARCODE_TYPE')) {
        $idtype = getDolGlobalString('PRODUIT_DEFAULT_BARCODE_TYPE');
      } elseif ($this->element == 'societe') {
        $idtype = getDolGlobalString('GENBARCODE_BARCODETYPE_THIRDPARTY');
      } else {
        dol_syslog('Call fetchBarCode with barcode_type not defined and cannot be guessed', LOG_WARNING);
      }
    }
 
    if ($idtype > 0) {
      if (empty($this->barcode_type) || empty($this->barcode_type_code) || empty($this->barcode_type_label) || empty($this->barcode_type_coder)) {    // If data not already loaded
        $sql = "SELECT rowid, code, libelle as label, coder";
        $sql .= " FROM ".$this->db->prefix()."c_barcode_type";
        $sql .= " WHERE rowid = ".((int) $idtype);
 
        $resql = $this->db->query($sql);
        if ($resql) {
          $obj = $this->db->fetch_object($resql);
 
          $this->barcode_type       = $obj->rowid;
          $this->barcode_type_code  = $obj->code;
          $this->barcode_type_label = $obj->label;
          $this->barcode_type_coder = $obj->coder;
          return 1;
        } else {
          dol_print_error($this->db);
          return -1;
        }
      }
    }
    return 0;
  }
 
  public function fetchProject()
  {
    include_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
 
    if (empty($this->fk_project) && !empty($this->fk_projet)) {
      $this->fk_project = $this->fk_projet; // For backward compatibility
    }
    if (empty($this->fk_project)) {
      return 0;
    }
 
    $project = new Project($this->db);
    $result = $project->fetch($this->fk_project);
 
    $this->project = $project;
 
    return $result;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_project()
  {
    // phpcs:enable
    return $this->fetchProject();
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_projet()
  {
    // phpcs:enable
    return $this->fetchProject();
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_product()
  {
    // phpcs:enable
    include_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
 
    // @phan-suppress-next-line PhanUndeclaredProperty
    if (empty($this->fk_product)) {
      return 0;
    }
 
    $product = new Product($this->db);
    // @phan-suppress-next-line PhanUndeclaredProperty
    $result = $product->fetch($this->fk_product);
 
    $this->product = $product;
    return $result;
  }
 
  public function fetchWarehouse($force_warehouse_id = 0)
  {
    // testing through empty: @phan-suppress-next-line PhanUndeclaredProperty
    if (empty($this->warehouse_id) && empty($this->fk_warehouse) && empty($force_warehouse_id)) {
      return 0;
    }
 
    include_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';
 
    // testing through isset: @phan-suppress-next-line PhanUndeclaredProperty
    $idtofetch = isset($this->warehouse_id) ? $this->warehouse_id : (isset($this->fk_warehouse) ? $this->fk_warehouse : 0);
    if (!empty($force_warehouse_id)) {
      $idtofetch = $force_warehouse_id;
    }
 
    if ($idtofetch) {
      $warehouse = new Entrepot($this->db);
      $result = $warehouse->fetch($idtofetch);
      if ($result < 0) {
        $this->errors = array_merge($this->errors, $warehouse->errors);
      }
      $this->warehouse = $warehouse;
 
      return $result;
    } else {
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_user($userid)
  {
    // phpcs:enable
    $user = new User($this->db);
    $result = $user->fetch($userid);
    $this->user = $user;
    return $result;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_origin()
  {
    // phpcs:enable
    $tmpclassname = $this->origin ? $this->origin : $this->origin_type;
 
    // Manage classes with non standard name
    if ($tmpclassname == 'shipping') {
      $tmpclassname = 'Expedition';
    }
    if ($tmpclassname == 'delivery') {
      $tmpclassname = 'Livraison';
    }
    if ($tmpclassname == 'order_supplier' || $tmpclassname == 'supplier_order') {
      $tmpclassname = 'CommandeFournisseur';
    }
 
    $classname = ucfirst($tmpclassname);
 
    $this->origin_object = new $classname($this->db);
    // @phan-suppress-next-line PhanPluginUnknownObjectMethodCall
    $this->origin_object->fetch($this->origin_id);
  }
 
  public function fetchObjectFrom($table, $field, $key, $element = null)
  {
    global $conf;
 
    $result = false;
 
    $sql = "SELECT rowid FROM ".$this->db->prefix().$table;
    $sql .= " WHERE ".$this->db->sanitize($field)." = '".$this->db->escape($key)."'";
    if (!empty($element)) {
      $sql .= " AND entity IN (".getEntity($element).")";
    } else {
      $sql .= " AND entity = ".((int) $conf->entity);
    }
 
    dol_syslog(get_class($this).'::fetchObjectFrom', LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      // Test for avoid error -1
      if ($obj) {
        if (method_exists($this, 'fetch')) {
          $result = $this->fetch($obj->rowid);
        } else {
          $this->error = 'fetch() method not implemented on '.get_class($this);
          dol_syslog(get_class($this).'::fetchOneLike Error='.$this->error, LOG_ERR);
          array_push($this->errors, $this->error);
          $result = -1;
        }
      }
    }
 
    return $result;
  }
 
  public function getValueFrom($table, $id, $field)
  {
    $result = false;
    if (!empty($id) && !empty($field) && !empty($table)) {
      if (!preg_match('/^[a-zA-Z_][a-zA-Z0-9_]*$/', $table)) {
        dol_syslog(get_class($this).'::getValueFrom Bad table name: '.$table, LOG_WARNING);
        return -1;
      }
      if (!preg_match('/^[a-zA-Z_][a-zA-Z0-9_.]*$/', $field)) {
        dol_syslog(get_class($this).'::getValueFrom Bad field name: '.$field, LOG_WARNING);
        return -1;
      }
 
      $sql = "SELECT ".$this->db->sanitize($field)." FROM ".$this->db->prefix().$this->db->sanitize($table);
      $sql .= " WHERE rowid = ".((int) $id);
 
      dol_syslog(get_class($this).'::getValueFrom', LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        $row = $this->db->fetch_row($resql);
        $result = $row[0];
      }
    }
    return $result;
  }
 
  public function setValueFrom($field, $value, $table = '', $id = null, $format = '', $id_field = '', $fuser = null, $trigkey = '', $fk_user_field = 'fk_user_modif')
  {
    global $user;
 
    if (empty($table)) {
      $table = $this->table_element;
    }
    if (empty($id)) {
      $id = $this->id;
    }
    if (empty($format)) {
      $format = 'text';
    }
    if (empty($id_field)) {
      $id_field = 'rowid';
    }
 
    $propfield = $field;
 
    // Special case
    if ($table == 'product') {
      if ($field == 'note_private') {
        $field = 'note';
        $propfield = 'note_private';
      } elseif ($field == 'status') {
        $field = 'tosell';
        $propfield = 'status';
      } elseif ($field == 'status_buy') {
        $field = 'tobuy';
        $propfield = 'status_buy';
      } elseif ($field == 'status_batch') {
        $field = 'tobatch';
        $propfield = 'status_batch';
      }
    }
 
    if (in_array($table, array('actioncomm', 'adherent', 'advtargetemailing', 'cronjob', 'establishment'))) {
      $fk_user_field = 'fk_user_mod';
    }
    if (in_array($table, array('prelevement_bons'))) {  // TODO Add a field fk_user_modif into llx_prelevement_bons
      $fk_user_field = '';
    }
 
    if (!preg_match('/^[a-zA-Z_][a-zA-Z0-9_]*$/', $table)) {
      dol_syslog(get_class($this).'::getValueFrom Bad table name: '.$table, LOG_WARNING);
      return -1;
    }
    if (!preg_match('/^[a-zA-Z_][a-zA-Z0-9_.]*$/', $field)) {
      dol_syslog(get_class($this).'::getValueFrom Bad field name: '.$field, LOG_WARNING);
      return -1;
    }
 
    $oldvalue = null;
    if ($trigkey) {
      $sql = "SELECT " . $this->db->sanitize($field);
      $sql .= " FROM " . MAIN_DB_PREFIX . $this->db->sanitize($table);
      $sql .= " WHERE " . $this->db->sanitize($id_field) . " = " . ((int) $id);
 
      $resql = $this->db->query($sql);
      if ($resql) {
        if ($obj = $this->db->fetch_object($resql)) {
          if ($format == 'date') {
            $oldvalue = $this->db->jdate($obj->$field);
          } else {
            $oldvalue = $obj->$field;
          }
        }
      } else {
        $this->error = $this->db->lasterror();
        return -1;
      }
    }
 
    $error = 0;
 
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    $this->db->begin();
 
    $sql = "UPDATE ".$this->db->prefix().$table." SET ";
 
    if ($format == 'text') {
      $sql .= $this->db->sanitize($field)." = '".$this->db->escape($value)."'";
    } elseif ($format == 'int') {
      $sql .= $this->db->sanitize($field)." = ".((int) $value);
    } elseif ($format == 'date') {
      $sql .= $this->db->sanitize($field)." = ".($value ? "'".$this->db->idate($value)."'" : "null");
    } elseif ($format == 'dategmt') {
      $sql .= $this->db->sanitize($field)." = ".($value ? "'".$this->db->idate($value, 'gmt')."'" : "null");
    }
 
    if ($fk_user_field) {
      if (!empty($fuser) && is_object($fuser)) {
        $sql .= ", ".$this->db->sanitize($fk_user_field)." = ".((int) $fuser->id);
      } elseif (empty($fuser) || $fuser != 'none') {
        $sql .= ", ".$this->db->sanitize($fk_user_field)." = ".((int) $user->id);
      }
    }
 
    $sql .= " WHERE ".$this->db->sanitize($id_field)." = ".((int) $id);
 
    $resql = $this->db->query($sql);
    if ($resql) {
      if ($trigkey) {
        // call trigger with updated object values
        if (method_exists($this, 'fetch')) {
          $result = $this->fetch($id);
        } else {
          $result = $this->fetchCommon($id);
        }
 
        $this->oldcopy = clone $this;
        if (property_exists($this->oldcopy, $field)) {
          $this->oldcopy->$field = $oldvalue;
        }
        if ($propfield != $field && property_exists($this->oldcopy, $propfield)) {
          $this->oldcopy->$propfield = $oldvalue;
        }
 
        if (empty($this->context['actionmsgmore'])) {
          $this->context['actionmsgmore'] = 'Trigger called by setValueFrom';
        }
 
        if ($result >= 0) {
          $result = $this->call_trigger($trigkey, (!empty($fuser) && is_object($fuser)) ? $fuser : $user); // This may set this->errors
        }
        if ($result < 0) {
          $error++;
        }
      } else {
        if (property_exists($this, $field)) {
          $this->$field = $value;
        }
        if ($propfield != $field && property_exists($this, $propfield)) {
          $this->$propfield = $value;
        }
      }
 
      if (!$error) {
        $this->db->commit();
        return 1;
      } else {
        if (property_exists($this, $field)) {
          $this->$field = $oldvalue;
        }
        if ($propfield != $field && property_exists($this, $propfield)) {
          $this->$propfield = $oldvalue;
        }
        $this->db->rollback();
        return -2;
      }
    } else {
      if ($this->db->lasterrno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
        $this->error = 'DB_ERROR_RECORD_ALREADY_EXISTS';
      } else {
        $this->error = $this->db->lasterror();
      }
      $this->db->rollback();
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function load_previous_next_ref($filter, $fieldid, $nodbprefix = 0)
  {
    // phpcs:enable
    global $conf, $user;
 
    if (!$this->table_element) {
      dol_print_error(null, get_class($this)."::load_previous_next_ref was called on object with property table_element not defined");
      return -1;
    }
    if ($fieldid == 'none') {
      return 1;
    }
 
    // For backward compatibility
    if (in_array($this->table_element, array('facture_rec', 'facture_fourn_rec')) && $fieldid == 'title') {
      $fieldid = 'titre';
    }
 
    // Security on socid
    $socid = 0;
    if ($user->socid > 0) {
      $socid = $user->socid;
    }
 
    // this->ismultientitymanaged contains
    // 0=No test on entity, 1=Test with field entity, 'field@table'=Test with link by field@table
    $aliastablesociete = 's';
    if ($this->element == 'societe') {
      $aliastablesociete = 'te'; // te as table_element
    }
    $restrictiononfksoc = empty($this->restrictiononfksoc) ? 0 : $this->restrictiononfksoc;
    $sql = "SELECT MAX(te.".$this->db->sanitize($fieldid).")";
    $sql .= " FROM ".(empty($nodbprefix) ? $this->db->prefix() : '').$this->table_element." as te";
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= ", ".$this->db->prefix().$this->db->sanitize($tmparray[1])." as ".($tmparray[1] == 'societe' ? 's' : 'parenttable'); // If we need to link to this table to limit select to entity
    } elseif ($restrictiononfksoc == 1 && $this->element != 'societe' && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= ", ".$this->db->prefix()."societe as s"; // If we need to link to societe to limit select to socid
    } elseif ($restrictiononfksoc == 2 && $this->element != 'societe' && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."societe as s ON te.fk_soc = s.rowid"; // If we need to link to societe to limit select to socid
    }
    if ($restrictiononfksoc && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."societe_commerciaux as sc ON ".$aliastablesociete.".rowid = sc.fk_soc";
    }
    if ($fieldid == 'rowid') {
      $sql .= " WHERE te.".$this->db->sanitize($fieldid)." < ".((int) $this->id);
    } elseif ($fieldid == 'label') {
      // Suppose caller is not in error @phan-suppress-next-line PhanUndeclaredProperty
      $sql .= " WHERE te.".$this->db->sanitize($fieldid)." < '".$this->db->escape((string) $this->label)."'";
    } else {  // Should be 'ref' or any other string field
      $sql .= " WHERE te.".$this->db->sanitize($fieldid)." < '".$this->db->escape((string) $this->ref)."'"; // ->ref must always be defined (set to id if field does not exists)
    }
    if ($restrictiononfksoc == 1 && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " AND sc.fk_user = ".((int) $user->id);
    }
    if ($restrictiononfksoc == 2 && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " AND (sc.fk_user = ".((int) $user->id).' OR te.fk_soc IS NULL)';
    }
 
    $filtermax = $filter;
 
    // Manage filter
    $errormessage = '';
    $tmpsql = forgeSQLFromUniversalSearchCriteria($filtermax, $errormessage);
    if ($errormessage) {
      if (!preg_match('/^\s*AND/i', $filtermax)) {
        $sql .= " AND ";
      }
      $sql .= $filtermax;  // @phan-suppress-current-line SqlInjection
    } else {
      $sql .= $tmpsql;
    }
 
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= " AND te.".$this->db->sanitize($tmparray[0])." = ".($tmparray[1] == "societe" ? "s" : "parenttable").".rowid"; // If we need to link to this table to limit select to entity
    } elseif ($restrictiononfksoc == 1 && $this->element != 'societe' && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= ' AND te.fk_soc = s.rowid'; // If we need to link to societe to limit select to socid
    }
    if (isset($this->ismultientitymanaged) && $this->ismultientitymanaged == 1) {
      if ($this->element == 'user' && getDolGlobalInt('MULTICOMPANY_TRANSVERSE_MODE')) {
        if (!empty($user->admin) && empty($user->entity) && $conf->entity == 1) {
          $sql .= " AND te.entity IS NOT NULL"; // Show all users
        } else {
          $sql .= " AND te.rowid IN (SELECT ug.fk_user FROM ".$this->db->prefix()."usergroup_user as ug WHERE ug.entity IN (".getEntity('usergroup')."))";
        }
      } else {
        $sql .= ' AND te.entity IN ('.getEntity($this->element).')';
      }
    }
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged) && $this->element != 'societe') {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= ' AND parenttable.entity IN ('.getEntity($tmparray[1]).')';
    }
    if ($restrictiononfksoc == 1 && $socid && $this->element != 'societe') {
      $sql .= ' AND te.fk_soc = '.((int) $socid);
    }
    if ($restrictiononfksoc == 2 && $socid && $this->element != 'societe') {
      $sql .= ' AND (te.fk_soc = '.((int) $socid).' OR te.fk_soc IS NULL)';
    }
    if ($restrictiononfksoc && $socid && $this->element == 'societe') {
      $sql .= ' AND te.rowid = '.((int) $socid);
    }
    //print 'socid='.$socid.' restrictiononfksoc='.$restrictiononfksoc.' ismultientitymanaged = '.$this->ismultientitymanaged.' filter = '.$filter.' -> '.$sql."<br>";
 
    $result = $this->db->query($sql);
    if (!$result) {
      $this->error = $this->db->lasterror();
      return -1;
    }
    $row = $this->db->fetch_row($result);
    $this->ref_previous = $row[0];
 
    $sql = "SELECT MIN(te.".$this->db->sanitize($fieldid).")";
    $sql .= " FROM ".(empty($nodbprefix) ? $this->db->prefix() : '').$this->table_element." as te";
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= ", ".$this->db->prefix().$this->db->sanitize($tmparray[1])." as ".($tmparray[1] == 'societe' ? 's' : 'parenttable'); // If we need to link to this table to limit select to entity
    } elseif ($restrictiononfksoc == 1 && $this->element != 'societe' && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= ", ".$this->db->prefix()."societe as s"; // If we need to link to societe to limit select to socid
    } elseif ($restrictiononfksoc == 2 && $this->element != 'societe' && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."societe as s ON te.fk_soc = s.rowid"; // If we need to link to societe to limit select to socid
    }
    if ($restrictiononfksoc && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."societe_commerciaux as sc ON ".$aliastablesociete.".rowid = sc.fk_soc";
    }
    if ($fieldid == 'rowid') {
      $sql .= " WHERE te.".$this->db->sanitize($fieldid)." > ".((int) $this->id);
    } elseif ($fieldid == 'label') {
      // Suppose caller is not in error @phan-suppress-next-line PhanUndeclaredProperty
      $sql .= " WHERE te.".$this->db->sanitize($fieldid)." > '".$this->db->escape((string) $this->label)."'";
    } else {  // Should be 'ref' or any other string field
      $sql .= " WHERE te.".$this->db->sanitize($fieldid)." > '".$this->db->escape((string) $this->ref)."'"; // ->ref must always be defined (set to id if field does not exists)
    }
    if ($restrictiononfksoc == 1 && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " AND (sc.fk_user = ".((int) $user->id);
      if (getDolGlobalInt('MAIN_SEE_SUBORDINATES')) {
        $userschilds = $user->getAllChildIds();
        $sql .= " OR sc.fk_user IN (".$this->db->sanitize(implode(',', $userschilds)).")";
      }
      $sql .= ')';
    }
    if ($restrictiononfksoc == 2 && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= " AND (sc.fk_user = ".((int) $user->id).' OR te.fk_soc IS NULL)';
    }
 
    $filtermin = $filter;
 
    // Manage filter
    $errormessage = '';
    $tmpsql = forgeSQLFromUniversalSearchCriteria($filtermin, $errormessage);
    if ($errormessage) {
      if (!preg_match('/^\s*AND/i', $filtermin)) {
        $sql .= " AND ";
      }
      $sql .= $filtermin;  // @phan-suppress-current-line SqlInjection
 
      $filtermin = '';
    } else {
      $sql .= $tmpsql;
    }
 
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= " AND te.".$this->db->sanitize($tmparray[0])." = ".($tmparray[1] == "societe" ? "s" : "parenttable").".rowid"; // If we need to link to this table to limit select to entity
    } elseif ($restrictiononfksoc == 1 && $this->element != 'societe' && !$user->hasRight('societe', 'client', 'voir') && !$socid) {
      $sql .= ' AND te.fk_soc = s.rowid'; // If we need to link to societe to limit select to socid
    }
    if (isset($this->ismultientitymanaged) && $this->ismultientitymanaged == 1) {
      if ($this->element == 'user' && getDolGlobalInt('MULTICOMPANY_TRANSVERSE_MODE')) {
        if (!empty($user->admin) && empty($user->entity) && $conf->entity == 1) {
          $sql .= " AND te.entity IS NOT NULL"; // Show all users
        } else {
          $sql .= " AND te.rowid IN (SELECT ug.fk_user FROM ".$this->db->prefix()."usergroup_user as ug WHERE ug.entity IN (".getEntity('usergroup')."))";
        }
      } else {
        $sql .= ' AND te.entity IN ('.getEntity($this->element).')';
      }
    }
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged) && $this->element != 'societe') {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= ' AND parenttable.entity IN ('.getEntity($tmparray[1]).')';
    }
    if ($restrictiononfksoc == 1 && $socid && $this->element != 'societe') {
      $sql .= ' AND te.fk_soc = '.((int) $socid);
    }
    if ($restrictiononfksoc == 2 && $socid && $this->element != 'societe') {
      $sql .= ' AND (te.fk_soc = '.((int) $socid).' OR te.fk_soc IS NULL)';
    }
    if ($restrictiononfksoc && $socid && $this->element == 'societe') {
      $sql .= ' AND te.rowid = '.((int) $socid);
    }
    //print 'socid='.$socid.' restrictiononfksoc='.$restrictiononfksoc.' ismultientitymanaged = '.$this->ismultientitymanaged.' filter = '.$filter.' -> '.$sql."<br>";
    // Rem: Bug in some mysql version: SELECT MIN(rowid) FROM llx_socpeople WHERE rowid > 1 when one row in database with rowid=1, returns 1 instead of null
 
    $result = $this->db->query($sql);
    if (!$result) {
      $this->error = $this->db->lasterror();
      return -2;
    }
    $row = $this->db->fetch_row($result);
    $this->ref_next = $row[0];
 
    return 1;
  }
 
 
  public function getListContactId($source = 'external')
  {
    $contactAlreadySelected = array();
    $tab = $this->liste_contact(-1, $source);
    $num = count($tab);
    $i = 0;
    while ($i < $num) {
      if ($source == 'thirdparty') {
        $contactAlreadySelected[$i] = $tab[$i]['socid'];
      } else {
        $contactAlreadySelected[$i] = $tab[$i]['id'];
      }
      $i++;
    }
    return $contactAlreadySelected;
  }
 
 
  public function setProject($projectid, $notrigger = 0)
  {
    global $user;
    $error = 0;
 
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::setProject was called on object with property table_element not defined", LOG_ERR);
      return -1;
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    if ($this->table_element == 'actioncomm') { // Special case for actioncomm
      if ($projectid) {
        $sql .= " SET fk_project = ".((int) $projectid);
      } else {
        $sql .= " SET fk_project = NULL";
      }
      $sql .= ' WHERE id = '.((int) $this->id);
      // @phan-suppress-next-line PhanTypeMismatchProperty
    } elseif (!empty($this->fields['fk_project'])) {    // Common case
      if ($projectid) {
        $sql .= " SET fk_project = ".((int) $projectid);
      } else {
        $sql .= " SET fk_project = NULL";
      }
      $sql .= ' WHERE rowid = '.((int) $this->id);
    } else { // Special case for old architecture objects
      if ($projectid) {
        $sql .= ' SET fk_projet = '.((int) $projectid);
      } else {
        $sql .= ' SET fk_projet = NULL';
      }
      $sql .= " WHERE rowid = ".((int) $this->id);
    }
 
    $this->db->begin();
 
    dol_syslog(get_class($this)."::setProject", LOG_DEBUG);
    if ($this->db->query($sql)) {
      $this->fk_project = ((int) $projectid);
    } else {
      dol_print_error($this->db);
      $error++;
    }
 
    // Triggers
    if (!$error && !$notrigger) {
      // Call triggers
      $result = $this->call_trigger(strtoupper($this->element) . '_MODIFY', $user);
      if ($result < 0) {
        $error++;
      } //Do also here what you must do to rollback action if trigger fail
      // End call triggers
    }
 
    // Commit or rollback
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return 1;
    }
  }
 
  public function setPaymentMethods($id)
  {
    global $user;
 
    $error = 0;
    $notrigger = 0;
 
    dol_syslog(get_class($this).'::setPaymentMethods('.$id.')');
 
    if ($this->status >= 0 || $this->element == 'societe') {
      $this->oldcopy = dol_clone($this, 2);  // @phan-suppress-current-line PhanTypeMismatchProperty
 
      // TODO uniformize field name
      $fieldname = 'fk_mode_reglement';
      $triggerName = (empty($this->TRIGGER_PREFIX) ? strtoupper(get_class($this)) : $this->TRIGGER_PREFIX);
      if ($this->element == 'societe') {
        $fieldname = 'mode_reglement';
        $triggerName = 'COMPANY';
      }
      if (get_class($this) == 'Facture') {
        $triggerName = 'BILL';
      }
      if (get_class($this) == 'Fournisseur') {
        $fieldname = 'mode_reglement_supplier';
        $triggerName = 'BILL_SUPPLIER';
      }
      if (get_class($this) == 'Tva') {
        $fieldname = 'fk_typepayment';
        $triggerName = 'VAT';
      }
      if (get_class($this) == 'Salary') {
        $fieldname = 'fk_typepayment';
      }
 
      $sql = "UPDATE ".$this->db->prefix().$this->table_element;
      $sql .= " SET ".$this->db->sanitize($fieldname)." = ".(($id > 0 || $id == '0') ? ((int) $id) : 'NULL');
      $sql .= ' WHERE rowid = '.((int) $this->id);
 
      if ($this->db->query($sql)) {
        $this->mode_reglement_id = $id;
        // for supplier
        if (get_class($this) == 'Fournisseur') {
          $this->mode_reglement_supplier_id = $id;
        }
 
        // Triggers
        if (!$error && !$notrigger) {
          // Call triggers
          $result = $this->call_trigger($triggerName.'_MODIFY', $user);
          if ($result < 0) {
            $error++;
          }
          // End call triggers
        }
        return 1;
      } else {
        dol_syslog(get_class($this).'::setPaymentMethods Error '.$this->db->error());
        $this->error = $this->db->error();
        return -1;
      }
    } else {
      dol_syslog(get_class($this).'::setPaymentMethods, status of the object is incompatible');
      $this->error = 'Status of the object is incompatible '.$this->status;
      return -2;
    }
  }
 
  public function setMulticurrencyCode($code)
  {
    dol_syslog(get_class($this).'::setMulticurrencyCode('.$code.')');
    if ($this->status >= 0 || $this->element == 'societe') {
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET multicurrency_code = '".$this->db->escape($code)."'";
      $sql .= ' WHERE rowid='.((int) $this->id);
 
      if ($this->db->query($sql)) {
        $this->multicurrency_code = $code;
 
        list($fk_multicurrency, $rate) = MultiCurrency::getIdAndTxFromCode($this->db, $code);
        if ($rate) {
          $this->setMulticurrencyRate($rate, 2);
        }
 
        return 1;
      } else {
        dol_syslog(get_class($this).'::setMulticurrencyCode Error '.$sql.' - '.$this->db->error());
        $this->error = $this->db->error();
        return -1;
      }
    } else {
      dol_syslog(get_class($this).'::setMulticurrencyCode, status of the object is incompatible');
      $this->error = 'Status of the object is incompatible '.$this->status;
      return -2;
    }
  }
 
  public function setMulticurrencyRate($rate, $mode = 1)
  {
    dol_syslog(get_class($this).'::setMulticurrencyRate('.$rate.', '.$mode.')');
    if ($this->status >= 0 || $this->element == 'societe') {
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET multicurrency_tx = ".((float) $rate);
      $sql .= ' WHERE rowid='.((int) $this->id);
 
      if ($this->db->query($sql)) {
        $this->multicurrency_tx = $rate;
 
        // Update line price
        if (!empty($this->lines)) {
          foreach ($this->lines as &$line) {
            // Amounts in company currency will be recalculated
            if ($mode == 1) {
              $line->subprice = 0;
            }
 
            // Amounts in foreign currency will be recalculated
            if ($mode == 2) {
              $line->multicurrency_subprice = 0;
            }
 
            switch ($this->element) {
              case 'propal':
                '@phan-var-force Propal $this';
                '@phan-var-force PropaleLigne $line';
                $this->updateline(
                  $line->id,
                  $line->subprice,
                  $line->qty,
                  $line->remise_percent,
                  $line->tva_tx,
                  $line->localtax1_tx,
                  $line->localtax2_tx,
                  ($line->description ? $line->description : $line->desc),
                  'HT',
                  $line->info_bits,
                  $line->special_code,
                  $line->fk_parent_line,
                  $line->skip_update_total,
                  $line->fk_fournprice,
                  $line->pa_ht,
                  $line->label,
                  $line->product_type,
                  $line->date_start,
                  $line->date_end,
                  $line->array_options,
                  $line->fk_unit,
                  $line->multicurrency_subprice
                );
                break;
              case 'commande':
                '@phan-var-force Commande $this';
                '@phan-var-force OrderLine $line';
                $this->updateline(
                  $line->id,
                  ($line->description ? $line->description : $line->desc),
                  $line->subprice,
                  $line->qty,
                  $line->remise_percent,
                  $line->tva_tx,
                  $line->localtax1_tx,
                  $line->localtax2_tx,
                  'HT',
                  $line->info_bits,
                  $line->date_start,
                  $line->date_end,
                  $line->product_type,
                  $line->fk_parent_line,
                  $line->skip_update_total,
                  $line->fk_fournprice,
                  $line->pa_ht,
                  $line->label,
                  $line->special_code,
                  $line->array_options,
                  $line->fk_unit,
                  $line->multicurrency_subprice
                );
                break;
              case 'facture':
                '@phan-var-force Facture $this';
                '@phan-var-force FactureLigne $line';
                $this->updateline(
                  $line->id,
                  ($line->description ? $line->description : $line->desc),
                  $line->subprice,
                  $line->qty,
                  $line->remise_percent,
                  $line->date_start,
                  $line->date_end,
                  $line->tva_tx,
                  $line->localtax1_tx,
                  $line->localtax2_tx,
                  'HT',
                  $line->info_bits,
                  $line->product_type,
                  $line->fk_parent_line,
                  $line->skip_update_total,
                  $line->fk_fournprice,
                  $line->pa_ht,
                  $line->label,
                  $line->special_code,
                  $line->array_options,
                  $line->situation_percent,
                  $line->fk_unit,
                  $line->multicurrency_subprice
                );
                break;
              case 'facturerec':
                '@phan-var-force FactureRec $this';
                '@phan-var-force FactureLigneRec $line';
                $this->updateline(
                  $line->id,
                  ($line->description ? $line->description : $line->desc),
                  $line->subprice,
                  $line->qty,
                  $line->tva_tx,
                  $line->localtax1_tx,
                  $line->localtax2_tx,
                  $line->fk_product,
                  $line->remise_percent,
                  'HT',
                  $line->info_bits,
                  0,
                  0,
                  $line->product_type,
                  $line->rang,
                  $line->special_code,
                  $line->label,
                  $line->fk_unit,
                  $line->multicurrency_subprice,
                  0,
                  $line->date_start,  // Ignore real issue with FactureLigneRec @phan-suppress-current-line PhanUndeclaredProperty
                  $line->date_end,  // Ignore real issue with FactureLigneRec @phan-suppress-current-line PhanUndeclaredProperty
                  $line->fk_fournprice,
                  $line->pa_ht,
                  $line->fk_parent_line
                );
                break;
              case 'supplier_proposal':
                '@phan-var-force SupplierProposal $this';
                '@phan-var-force SupplierProposalLine $line';
                $this->updateline(
                  $line->id,
                  $line->subprice,
                  $line->qty,
                  $line->remise_percent,
                  $line->tva_tx,
                  $line->localtax1_tx,
                  $line->localtax2_tx,
                  ($line->description ? $line->description : $line->desc),
                  'HT',
                  $line->info_bits,
                  $line->special_code,
                  $line->fk_parent_line,
                  $line->skip_update_total,
                  $line->fk_fournprice,
                  $line->pa_ht,
                  $line->label,
                  $line->product_type,
                  $line->array_options,
                  $line->ref_fourn,
                  (int) $line->fk_unit,
                  $line->multicurrency_subprice
                );
                break;
              case 'order_supplier':
                '@phan-var-force CommandeFournisseur $this';
                '@phan-var-force CommandeFournisseurLigne $line';
                $this->updateline(
                  $line->id,
                  ($line->description ? $line->description : $line->desc),
                  $line->subprice,
                  $line->qty,
                  $line->remise_percent,
                  $line->tva_tx,
                  $line->localtax1_tx,
                  $line->localtax2_tx,
                  'HT',
                  $line->info_bits,
                  $line->product_type,
                  0,
                  $line->date_start,
                  $line->date_end,
                  $line->array_options,
                  $line->fk_unit,
                  $line->multicurrency_subprice,
                  $line->ref_supplier
                );
                break;
              case 'invoice_supplier':
                '@phan-var-force FactureFournisseur $this';
                '@phan-var-force SupplierInvoiceLIne $line';
                $this->updateline(
                  $line->id,
                  ($line->description ? $line->description : $line->desc),
                  $line->subprice,
                  $line->tva_tx,
                  $line->localtax1_tx,
                  $line->localtax2_tx,
                  $line->qty,
                  0,
                  'HT',
                  $line->info_bits,
                  $line->product_type,
                  $line->remise_percent,
                  0,
                  $line->date_start,
                  $line->date_end,
                  $line->array_options,
                  $line->fk_unit,
                  $line->multicurrency_subprice,
                  $line->ref_supplier
                );
                break;
              default:
                dol_syslog(get_class($this).'::setMulticurrencyRate no updateline defined', LOG_DEBUG);
                break;
            }
          }
        }
 
        return 1;
      } else {
        dol_syslog(get_class($this).'::setMulticurrencyRate Error '.$sql.' - '.$this->db->error());
        $this->error = $this->db->error();
        return -1;
      }
    } else {
      dol_syslog(get_class($this).'::setMulticurrencyRate, status of the object is incompatible');
      $this->error = 'Status of the object is incompatible '.$this->status;
      return -2;
    }
  }
 
  public function setPaymentTerms($id, $deposit_percent = null)
  {
    dol_syslog(get_class($this).'::setPaymentTerms('.$id.', '.formatLogObject($deposit_percent).')');
    if ($this->status >= 0 || $this->element == 'societe') {
      // TODO uniformize field name
      $fieldname = 'fk_cond_reglement';
      if ($this->element == 'societe') {
        $fieldname = 'cond_reglement';
      }
      if (get_class($this) == 'Fournisseur') {
        $fieldname = 'cond_reglement_supplier';
      }
 
      if (empty($deposit_percent) || $deposit_percent < 0) {
        $deposit_percent = (float) getDictionaryValue('c_payment_term', 'deposit_percent', $id);
      }
 
      if ($deposit_percent > 100) {
        $deposit_percent = 100;
      }
 
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET ".$this->db->sanitize($fieldname)." = ".(($id > 0 || $id == '0') ? ((int) $id) : 'NULL');
      if (in_array($this->table_element, array('propal', 'commande', 'supplier_proposal', 'commande_fournisseur', 'societe'))) {
        $sql .= " , deposit_percent = " . (empty($deposit_percent) ? 'NULL' : "'".$this->db->escape((string) $deposit_percent)."'");
      }
      $sql .= ' WHERE rowid = '.((int) $this->id);
 
      if ($this->db->query($sql)) {
        $this->cond_reglement_id = $id;
        // for supplier
        if (get_class($this) == 'Fournisseur') {
          $this->cond_reglement_supplier_id = $id;
        }
        $this->deposit_percent = $deposit_percent;
        return 1;
      } else {
        dol_syslog(get_class($this).'::setPaymentTerms Error '.$sql.' - '.$this->db->error());
        $this->error = $this->db->error();
        return -1;
      }
    } else {
      dol_syslog(get_class($this).'::setPaymentTerms, status of the object is incompatible');
      $this->error = 'Status of the object is incompatible '.$this->status;
      return -2;
    }
  }
 
  public function setTransportMode($id)
  {
    dol_syslog(get_class($this).'::setTransportMode('.$id.')');
    if ($this->status >= 0 || $this->element == 'societe') {
      $fieldname = 'fk_transport_mode';
      if ($this->element == 'societe') {
        $fieldname = 'transport_mode';
      }
      if (get_class($this) == 'Fournisseur') {
        $fieldname = 'transport_mode_supplier';
      }
 
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET ".$this->db->sanitize($fieldname)." = ".(($id > 0 || $id == '0') ? ((int) $id) : 'NULL');
      $sql .= ' WHERE rowid='.((int) $this->id);
 
      if ($this->db->query($sql)) {
        $this->transport_mode_id = $id;
        // for supplier
        if (get_class($this) == 'Fournisseur') {
          $this->transport_mode_supplier_id = $id;
        }
        return 1;
      } else {
        dol_syslog(get_class($this).'::setTransportMode Error '.$sql.' - '.$this->db->error());
        $this->error = $this->db->error();
        return -1;
      }
    } else {
      dol_syslog(get_class($this).'::setTransportMode, status of the object is incompatible');
      $this->error = 'Status of the object is incompatible '.$this->status;
      return -2;
    }
  }
 
  public function setDeliveryAddress($id)
  {
    $fieldname = 'fk_delivery_address';
    if ($this->element == 'delivery' || $this->element == 'shipping') {
      $fieldname = 'fk_address';
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element." SET ".$this->db->sanitize($fieldname)." = ".((int) $id);
    $sql .= " WHERE rowid = ".((int) $this->id)." AND fk_statut = 0";
 
    if ($this->db->query($sql)) {
      $this->fk_delivery_address = $id;
      return 1;
    } else {
      $this->error = $this->db->error();
      dol_syslog(get_class($this).'::setDeliveryAddress Error '.$this->error);
      return -1;
    }
  }
 
 
  public function setShippingMethod($shipping_method_id, $notrigger = 0, $userused = null)
  {
    global $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::setShippingMethod was called on object with property table_element not defined", LOG_ERR);
      return -1;
    }
 
    $this->db->begin();
 
    if ($shipping_method_id < 0) {
      $shipping_method_id = 'NULL';
    }
    dol_syslog(get_class($this).'::setShippingMethod('.$shipping_method_id.')');
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    $sql .= " SET fk_shipping_method = ".((int) $shipping_method_id);
    $sql .= " WHERE rowid=".((int) $this->id);
    $resql = $this->db->query($sql);
    if (!$resql) {
      dol_syslog(get_class($this).'::setShippingMethod Error ', LOG_DEBUG);
      $this->error = $this->db->lasterror();
      $error++;
    } else {
      if (!$notrigger) {
        // Call trigger
        $this->context = array('shippingmethodupdate' => 1);
        $triggerPrefix = (empty($this->TRIGGER_PREFIX) ? strtoupper(get_class($this)) : $this->TRIGGER_PREFIX);
        $result = $this->call_trigger($triggerPrefix.'_MODIFY', $userused);
        if ($result < 0) {
          $error++;
        }
        // End call trigger
      }
    }
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->shipping_method_id = ($shipping_method_id == 'NULL') ? null : $shipping_method_id;
      $this->db->commit();
      return 1;
    }
  }
 
 
  public function setWarehouse($warehouse_id)
  {
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::setWarehouse was called on object with property table_element not defined", LOG_ERR);
      return -1;
    }
    if ($warehouse_id < 0) {
      $warehouse_id = 'NULL';
    }
    dol_syslog(get_class($this).'::setWarehouse('.$warehouse_id.')');
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    $sql .= " SET fk_warehouse = ".((int) $warehouse_id);
    $sql .= " WHERE rowid=".((int) $this->id);
 
    if ($this->db->query($sql)) {
      $this->warehouse_id = ($warehouse_id == 'NULL') ? null : $warehouse_id;
      return 1;
    } else {
      dol_syslog(get_class($this).'::setWarehouse Error ', LOG_DEBUG);
      $this->error = $this->db->error();
      return 0;
    }
  }
 
 
  public function setDocModel($user, $modelpdf)
  {
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::setDocModel was called on object with property table_element not defined", LOG_ERR);
      return -1;
    }
 
    $newmodelpdf = dol_trunc($modelpdf, 255);
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    $sql .= " SET model_pdf = '".$this->db->escape($newmodelpdf)."'";
    $sql .= " WHERE rowid = ".((int) $this->id);
 
    dol_syslog(get_class($this)."::setDocModel", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $this->model_pdf = $modelpdf;
      return 1;
    } else {
      dol_print_error($this->db);
      return 0;
    }
  }
 
 
  public function setBankAccount($fk_account, $notrigger = 0, $userused = null)
  {
    global $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::setBankAccount was called on object with property table_element not defined", LOG_ERR);
      return -1;
    }
    $this->db->begin();
 
    if ($fk_account < 0) {
      $fk_account = 'NULL';
    }
    dol_syslog(get_class($this).'::setBankAccount('.$fk_account.')');
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    $sql .= " SET fk_account = ".((int) $fk_account);
    $sql .= " WHERE rowid=".((int) $this->id);
 
    $resql = $this->db->query($sql);
    if (!$resql) {
      dol_syslog(get_class($this).'::setBankAccount Error '.$sql.' - '.$this->db->error());
      $this->error = $this->db->lasterror();
      $error++;
    } else {
      if (!$notrigger) {
        // Call trigger
        $this->context['bankaccountupdate'] = 1;
 
        $triggerName = (empty($this->TRIGGER_PREFIX) ? strtoupper(get_class($this)) : $this->TRIGGER_PREFIX);
        $result = $this->call_trigger($triggerName . '_MODIFY', $userused);
        if ($result < 0) {
          $error++;
        }
        // End call trigger
      }
    }
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->fk_account = ($fk_account == 'NULL') ? null : $fk_account;
      $this->db->commit();
      return 1;
    }
  }
 
 
  // TODO: Move line related operations to CommonObjectLine?
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function line_order($renum = false, $rowidorder = 'ASC', $fk_parent_line = true)
  {
    // phpcs:enable
    if (!$this->table_element_line) {
      dol_syslog(get_class($this)."::line_order was called on object with property table_element_line not defined", LOG_ERR);
      return -1;
    }
    if (!$this->fk_element) {
      dol_syslog(get_class($this)."::line_order was called on object with property fk_element not defined", LOG_ERR);
      return -1;
    }
 
    $fieldposition = 'rang'; // @todo Rename 'rang' into 'position'
    if (in_array($this->table_element_line, array('bom_bomline', 'ecm_files', 'emailcollector_emailcollectoraction', 'product_attribute_value'))) {
      $fieldposition = 'position';
    }
 
    // Count number of lines to reorder (according to choice $renum)
    $nl = 0;
    $sql = "SELECT count(rowid) FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
    $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
    if (!$renum) {
      $sql .= " AND " . $this->db->sanitize($fieldposition) . " = 0";
    }
    if ($renum) {
      $sql .= " AND " . $this->db->sanitize($fieldposition) . " <> 0";
    }
 
    dol_syslog(get_class($this)."::line_order", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $row = $this->db->fetch_row($resql);
      $nl = $row[0];
    } else {
      dol_print_error($this->db);
    }
    if ($nl > 0) {
      // The goal of this part is to reorder all lines, with all children lines sharing the same counter that parents.
      $rows = array();
 
      // We first search all lines that are parent lines (for multilevel details lines)
      $sql = "SELECT rowid FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
      $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
      if ($fk_parent_line) {
        $sql .= ' AND fk_parent_line IS NULL';
      }
      $sql .= " ORDER BY " . $this->db->sanitize($fieldposition) . " ASC, rowid " . $this->db->sanitize($rowidorder);
 
      dol_syslog(get_class($this)."::line_order search all parent lines", LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        $i = 0;
        $num = $this->db->num_rows($resql);
        $grandchild = getDolGlobalInt('MAIN_CARE_GRANDCHILD');
        while ($i < $num) {
          $row = $this->db->fetch_row($resql);
          $rows[] = $row[0]; // Add parent line into array rows
          if ($fk_parent_line) {
            $children = $this->getChildrenOfLine($row[0], $grandchild);
          }
          if (!empty($children)) {
            foreach ($children as $child) {
              array_push($rows, $child);
            }
          }
          $i++;
        }
 
        // Now we set a new number for each lines (parent and children with children included into parent tree)
        if (!empty($rows)) {
          foreach ($rows as $key => $row) {
            $this->updateRangOfLine($row, ($key + 1));
          }
        }
      } else {
        dol_print_error($this->db);
      }
    }
    return 1;
  }
 
  public function getChildrenOfLine($id, $includealltree = 0)
  {
    $fieldposition = 'rang'; // @todo Rename 'rang' into 'position'
    if (in_array($this->table_element_line, array('bom_bomline', 'ecm_files', 'emailcollector_emailcollectoraction', 'product_attribute_value'))) {
      $fieldposition = 'position';
    }
 
    $rows = array();
 
    $sql = "SELECT rowid FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
    $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
    $sql .= ' AND fk_parent_line = '.((int) $id);
    $sql .= " ORDER BY " . $this->db->sanitize($fieldposition) . " ASC";
 
    dol_syslog(get_class($this)."::getChildrenOfLine search children lines for line ".$id, LOG_DEBUG);
 
    $resql = $this->db->query($sql);
    if (!$resql || $this->db->num_rows($resql) <= 0) {
      return array();
    }
 
    while ($row = $this->db->fetch_row($resql)) {
      $rows[] = $row[0];
      if (!empty($includealltree) && $includealltree <= 1000) { // Test <= 1000 is a protection in depth of recursive call to avoid infinite loop
        $rows = array_merge($rows, $this->getChildrenOfLine($row[0], $includealltree + 1));
      }
    }
    return $rows;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function line_up($rowid, $fk_parent_line = true)
  {
    // phpcs:enable
    $this->line_order(false, 'ASC', $fk_parent_line);
 
    // Get rang of line
    $rang = $this->getRangOfLine($rowid);
 
    // Update position of line
    $this->updateLineUp($rowid, $rang);
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function line_down($rowid, $fk_parent_line = true)
  {
    // phpcs:enable
    $this->line_order(false, 'ASC', $fk_parent_line);
 
    // Get rang of line
    $rang = $this->getRangOfLine($rowid);
 
    // Get max value for rang
    $max = $this->line_max();
 
    // Update position of line
    $this->updateLineDown($rowid, $rang, $max);
  }
 
  public function updateRangOfLine($rowid, $rang)
  {
    global $hookmanager;
    $fieldposition = 'rang'; // @todo Rename 'rang' into 'position'
    if (in_array($this->table_element_line, array('bom_bomline', 'ecm_files', 'emailcollector_emailcollectoraction', 'product_attribute_value'))) {
      $fieldposition = 'position';
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$this->db->sanitize($fieldposition)." = ".((int) $rang);
    $sql .= ' WHERE rowid = '.((int) $rowid);
 
    dol_syslog(get_class($this)."::updateRangOfLine", LOG_DEBUG);
    if (!$this->db->query($sql)) {
      dol_print_error($this->db);
      return -1;
    }
 
    $parameters = array('rowid' => $rowid, 'rang' => $rang, 'fieldposition' => $fieldposition);
    $action = '';
    $reshook = $hookmanager->executeHooks('afterRankOfLineUpdate', $parameters, $this, $action);
    return 1;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function line_ajaxorder($rows)
  {
    // phpcs:enable
    $num = count($rows);
    for ($i = 0; $i < $num; $i++) {
      $this->updateRangOfLine($rows[$i], ($i + 1));
    }
  }
 
  public function updateLineUp($rowid, $rang)
  {
    if ($rang <= 1) {
      return -1;
    }
 
    $fieldposition = 'rang';
    if (in_array($this->table_element_line, array('ecm_files', 'emailcollector_emailcollectoraction', 'product_attribute_value'))) {
      $fieldposition = 'position';
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($this->table_element_line)." SET ".$this->db->sanitize($fieldposition)." = ".((int) $rang);
    $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
    $sql .= " AND " . $this->db->sanitize($fieldposition) . " = " . ((int) ($rang - 1));
    if (!$this->db->query($sql)) {
      $this->error = $this->db->lasterror();
      return -1;
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$this->db->sanitize($fieldposition)." = ".((int) ($rang - 1));
    $sql .= ' WHERE rowid = '.((int) $rowid);
    if (!$this->db->query($sql)) {
      $this->error = $this->db->lasterror();
      return -1;
    }
 
    return 1;
  }
 
  public function updateLineDown($rowid, $rang, $max)
  {
    if ($rang >= $max) {
      return -1;
    }
 
    $fieldposition = 'rang';
    if (in_array($this->table_element_line, array('ecm_files', 'emailcollector_emailcollectoraction', 'product_attribute_value'))) {
      $fieldposition = 'position';
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($this->table_element_line)." SET ".$this->db->sanitize($fieldposition)." = ".((int) $rang);
    $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
    $sql .= " AND " . $this->db->sanitize($fieldposition) . " = " . ((int) ($rang + 1));
    if (!$this->db->query($sql)) {
      $this->error = $this->db->lasterror();
      return -1;
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$this->db->sanitize($fieldposition)." = ".((int) ($rang + 1));
    $sql .= ' WHERE rowid = '.((int) $rowid);
    if (!$this->db->query($sql)) {
      $this->error = $this->db->lasterror();
      return -1;
    }
 
    return 1;
  }
 
  public function getRangOfLine($rowid)
  {
    $fieldposition = 'rang';
    if (in_array($this->table_element_line, array('ecm_files', 'emailcollector_emailcollectoraction', 'product_attribute_value'))) {
      $fieldposition = 'position';
    }
 
    $sql = "SELECT " . $this->db->sanitize($fieldposition) . " FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
    $sql .= " WHERE rowid = ".((int) $rowid);
 
    dol_syslog(get_class($this)."::getRangOfLine", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) {
      return 0;
    }
 
    $row = $this->db->fetch_row($resql);
    return $row[0];
  }
 
  public function getIdOfLine($rang)
  {
    $fieldposition = 'rang';
    if (in_array($this->table_element_line, array('ecm_files', 'emailcollector_emailcollectoraction', 'product_attribute_value'))) {
      $fieldposition = 'position';
    }
 
    $sql = "SELECT rowid FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
    $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
    $sql .= " AND " . $this->db->sanitize($fieldposition) . " = ".((int) $rang);
    $resql = $this->db->query($sql);
    if (!$resql) {
      return 0;
    }
 
    $row = $this->db->fetch_row($resql);
    return $row[0];
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function line_max($fk_parent_line = 0)
  {
    // phpcs:enable
    $positionfield = 'rang';
    if (in_array($this->table_element, array('bom_bom', 'product_attribute'))) {
      $positionfield = 'position';
    }
 
    $sql = "SELECT max(".$this->db->sanitize($positionfield).") FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
    $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
 
    // Search the last rang with fk_parent_line
    if ($fk_parent_line) {
      $sql .= " AND fk_parent_line = ".((int) $fk_parent_line);
    }
 
    dol_syslog(get_class($this)."::line_max", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $row = $this->db->fetch_row($resql);
 
      if ($fk_parent_line) {
        if (!empty($row[0])) {
          return $row[0];
        } else {
          return $this->getRangOfLine($fk_parent_line);
        }
      } else {
        return $row[0];
      }
    }
 
    return 0;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function update_ref_ext($ref_ext)
  {
    // phpcs:enable
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::update_ref_ext was called on object with property table_element not defined", LOG_ERR);
      return -1;
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    $sql .= " SET ref_ext = '".$this->db->escape($ref_ext)."'";
    // @phan-suppress-next-line PhanUndeclaredProperty
    $sql .= " WHERE ".(isset($this->table_rowid) ? $this->table_rowid : 'rowid')." = ".((int) $this->id);
 
    dol_syslog(get_class($this)."::update_ref_ext", LOG_DEBUG);
    if ($this->db->query($sql)) {
      $this->ref_ext = $ref_ext;
      return 1;
    } else {
      $this->error = $this->db->error();
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function update_note($note, $suffix = '', $notrigger = 0)
  {
    // phpcs:enable
    global $user;
 
    if (!$this->table_element) {
      $this->error = 'update_note was called on object with property table_element not defined';
      dol_syslog(get_class($this)."::update_note was called on object with property table_element not defined", LOG_ERR);
      return -1;
    }
    if (!in_array($suffix, array('', '_public', '_private'))) {
      $this->error = 'update_note Parameter suffix must be empty, \'_private\' or \'_public\'';
      dol_syslog(get_class($this)."::update_note Parameter suffix must be empty, '_private' or '_public'", LOG_ERR);
      return -2;
    }
 
    $newsuffix = $suffix;
 
    // Special case
    if ($this->table_element == 'product' && $newsuffix == '_private') {
      $newsuffix = '';
    }
    if (in_array($this->table_element, array('actioncomm', 'adherent', 'advtargetemailing', 'cronjob', 'establishment'))) {
      $fieldusermod =  "fk_user_mod";
    } elseif ($this->table_element == 'ecm_files') {
      $fieldusermod = "fk_user_m";
    } else {
      $fieldusermod = "fk_user_modif";
    }
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    $sql .= " SET note".$this->db->sanitize($newsuffix)." = ".(!empty($note) ? ("'".$this->db->escape($note)."'") : "NULL");
    $sql .= ", ".$this->db->sanitize($fieldusermod)." = ".((int) $user->id);
    $sql .= " WHERE rowid = ".((int) $this->id);
 
    dol_syslog(get_class($this)."::update_note", LOG_DEBUG);
    if ($this->db->query($sql)) {
      if ($suffix == '_public') {
        $this->note_public = $note;
      } elseif ($suffix == '_private') {
        $this->note_private = $note;
      } else {
        $this->note = $note; // deprecated
        $this->note_private = $note;
      }
      if (empty($notrigger)) {
        // TODO Use the $this->TRIGGER_PREFIX when implemented
        switch ($this->element) {
          case 'societe':
            $triggerName = 'COMPANY_MODIFY';
            break;
          case 'facture':
            $triggerName = 'BILL_MODIFY';
            break;
          case 'invoice_supplier':
            $triggerName = 'BILL_SUPPLIER_MODIFY';
            break;
          case 'facturerec':
            $triggerName = 'BILLREC_MODIFIY';
            break;
          case 'expensereport':
            $triggerName = 'EXPENSE_REPORT_MODIFY';
            break;
          default:
            $triggerName = (!empty($this->TRIGGER_PREFIX) ? $this->TRIGGER_PREFIX : strtoupper($this->element)) . '_MODIFY';
        }
        $ret = $this->call_trigger($triggerName, $user);
        if ($ret < 0) {
          return -1;
        }
      }
      return 1;
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function update_note_public($note)
  {
    // phpcs:enable
    return $this->update_note($note, '_public');
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function update_price($exclspec = 0, $roundingadjust = 'auto', $nodatabaseupdate = 0, $seller = null)
  {
    // phpcs:enable
    global $conf, $hookmanager, $action;
 
    $parameters = array('exclspec' => $exclspec, 'roundingadjust' => $roundingadjust, 'nodatabaseupdate' => $nodatabaseupdate, 'seller' => $seller);
    $reshook = $hookmanager->executeHooks('updateTotalPrice', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
    if ($reshook > 0) {
      return 1; // replacement code
    } elseif ($reshook < 0) {
      return -1; // failure
    } // reshook = 0 => execute normal code
 
    // Some external module want no update price after a trigger because they have another method to calculate the total (ex: with an extrafield)
    $isElementForSupplier = false;
    $roundTotalConstName = 'MAIN_ROUNDOFTOTAL_NOT_TOTALOFROUND'; // const for customer by default
    $MODULE = "";
    if ($this->element == 'propal') {
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_PROPOSAL";
    } elseif ($this->element == 'commande' || $this->element == 'order') {
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_ORDER";
    } elseif ($this->element == 'facture' || $this->element == 'invoice') {
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_INVOICE";
    } elseif ($this->element == 'facture_fourn' || $this->element == 'supplier_invoice' || $this->element == 'invoice_supplier' || $this->element == 'invoice_supplier_rec') {
      $isElementForSupplier = true;
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_SUPPLIER_INVOICE";
    } elseif ($this->element == 'order_supplier' || $this->element == 'supplier_order') {
      $isElementForSupplier = true;
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_SUPPLIER_ORDER";
    } elseif ($this->element == 'supplier_proposal') {
      $isElementForSupplier = true;
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_SUPPLIER_PROPOSAL";
    }
    if ($isElementForSupplier) {
      $roundTotalConstName = 'MAIN_ROUNDOFTOTAL_NOT_TOTALOFROUND_SUPPLIER'; // const for supplier
    }
 
    if (!empty($MODULE)) {
      if (getDolGlobalString($MODULE)) {
        $modsactivated = explode(',', getDolGlobalString($MODULE));
        foreach ($modsactivated as $mod) {
          if (isModEnabled($mod)) {
            return 1; // update was disabled by specific setup
          }
        }
      }
    }
 
    include_once DOL_DOCUMENT_ROOT.'/core/lib/price.lib.php';
 
    $forcedroundingmode = $roundingadjust;
    if ($forcedroundingmode == 'auto' && isset($conf->global->{$roundTotalConstName})) {
      $forcedroundingmode = getDolGlobalString($roundTotalConstName);
    } elseif ($forcedroundingmode == 'auto') {
      $forcedroundingmode = '0';
    }
 
    $error = 0;
 
    $multicurrency_tx = !empty($this->multicurrency_tx) ? $this->multicurrency_tx : 1;
 
    // Define constants to find lines to sum (field name into the table_element_line not into table_element)
    $fieldtva = 'total_tva';
    $fieldlocaltax1 = 'total_localtax1';
    $fieldlocaltax2 = 'total_localtax2';
    $fieldup = 'subprice';
    $base_price_type = 'HT';
    if ($this->element == 'facture_fourn' || $this->element == 'invoice_supplier') {
      $fieldtva = 'tva';
      $fieldup = 'pu_ht';
    }
    if ($this->element == 'invoice_supplier_rec') {
      $fieldup = 'pu_ht';
    }
    if ($this->element == 'expensereport') {
      // Force rounding mode to '0', otherwise when you set MAIN_ROUNDOFTOTAL_NOT_TOTALOFROUND to 1, you may have lines with different totals.
      // For example, if you have 2 lines with same TTC amounts (6,2 Unit price TTC and VAT rate 20%), on the first line you got 5,17 on HT total
      // and 5,16 on HT total and 1,04 on VAT total to get 6,20 on TTT total on second line (see #30051).
      $forcedroundingmode = '0';
      $fieldup = 'value_unit';
      $base_price_type = 'TTC';
    }
 
    $sql = "SELECT rowid, qty, ".$this->db->sanitize($fieldup)." as up, remise_percent,";
    $sql .= " total_ht, ".$this->db->sanitize($fieldtva)." as total_tva, total_ttc, ".$this->db->sanitize($fieldlocaltax1)." as total_localtax1, ".$this->db->sanitize($fieldlocaltax2)." as total_localtax2,";
    $sql .= ' tva_tx as vatrate, localtax1_tx, localtax2_tx, localtax1_type, localtax2_type,';
    $sql .= ' info_bits, product_type,';
    if ($this->element == 'expensereport') {
      $sql .= ' comments as description';
    } else {
      $sql .= ' description';
    }
    if ($this->table_element_line == 'facturedet') {
      $sql .= ', situation_percent';
    }
    $sql .= ', multicurrency_total_ht, multicurrency_total_tva, multicurrency_total_ttc';
    $sql .= " FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
    $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
    if ($exclspec) {
      $product_field = 'product_type';
      if ($this->table_element_line == 'contratdet') {
        $product_field = ''; // contratdet table has no product_type field
      }
      if ($product_field) {
        $sql .= " AND ".$this->db->sanitize($product_field)." <> 9";
      }
    }
    $sql .= ' ORDER by rowid'; // We want to be certain to always use same order of line to not change lines differently when option MAIN_ROUNDOFTOTAL_NOT_TOTALOFROUND is used
 
    dol_syslog(get_class($this)."::update_price", LOG_DEBUG);
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $this->total_ht  = 0;
      $this->total_tva = 0;
      $this->total_localtax1 = 0;
      $this->total_localtax2 = 0;
      $this->total_ttc = 0;
      $total_ht_by_vats  = array();
      $total_tva_by_vats = array();
      $total_ttc_by_vats = array();
      $this->multicurrency_total_ht = 0;
      $this->multicurrency_total_tva  = 0;
      $this->multicurrency_total_ttc  = 0;
 
      $this->db->begin();
 
      $num = $this->db->num_rows($resql);
      $i = 0;
      while ($i < $num) {
        $obj = $this->db->fetch_object($resql);
 
        // Note: There is no check on detail line and no check on total, if $forcedroundingmode = '0'
        $parameters = array('fk_element' => $obj->rowid);
        $reshook = $hookmanager->executeHooks('changeRoundingMode', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
 
        if (empty($reshook) && $forcedroundingmode == '0') {  // Check if data on line are consistent. This may solve lines that were not consistent because set with $forcedroundingmode='auto'
          // This part of code is to fix data. We should not call it too often.
          $localtax_array = array($obj->localtax1_type, $obj->localtax1_tx, $obj->localtax2_type, $obj->localtax2_tx);
          $tmpcal = calcul_price_total($obj->qty, $obj->up, $obj->remise_percent, $obj->vatrate, $obj->localtax1_tx, $obj->localtax2_tx, 0, $base_price_type, $obj->info_bits, $obj->product_type, $seller, $localtax_array, (isset($obj->situation_percent) ? $obj->situation_percent : 100), $multicurrency_tx);
 
          $diff_when_using_price_ht = price2num((float) $tmpcal[1] - $obj->total_tva, 'MT', 1); // If price was set with tax price and unit price HT has a low number of digits, then we may have a diff on recalculation from unit price HT.
          $diff_on_current_total = price2num($obj->total_ttc - $obj->total_ht - $obj->total_tva - $obj->total_localtax1 - $obj->total_localtax2, 'MT', 1);
          //var_dump($obj->total_ht.' '.$obj->total_tva.' '.$obj->total_localtax1.' '.$obj->total_localtax2.' => '.$obj->total_ttc);
          //var_dump($diff_when_using_price_ht.' '.$diff_on_current_total);
 
          if ($diff_on_current_total) {
            // This should not happen, we should always have in table: total_ttc = total_ht + total_vat + total_localtax1 + total_localtax2
            $sqlfix = "UPDATE ".$this->db->prefix().$this->table_element_line;
            $sqlfix .= " SET ".$this->db->sanitize($fieldtva)." = ".price2num((float) $tmpcal[1]).", total_ttc = ".price2num((float) $tmpcal[2]);
            $sqlfix .= ", multicurrency_total_tva = ".price2num((float) $tmpcal[17]).", multicurrency_total_ttc = ".price2num((float) $tmpcal[18]);
            $sqlfix .= " WHERE rowid = ".((int) $obj->rowid);
            dol_syslog('Warn1: We found inconsistent data into detailed line (diff_on_current_total = '.$diff_on_current_total.') for line rowid = '.$obj->rowid." (ht=".$obj->total_ht." vat=".$obj->total_tva." tax1=".$obj->total_localtax1." tax2=".$obj->total_localtax2." ttc=".$obj->total_ttc."). We fix the total_vat and total_ttc of line by running sqlfix = ".$sqlfix, LOG_WARNING);
            $resqlfix = $this->db->query($sqlfix);
            if (!$resqlfix) {
              dol_print_error($this->db, 'Failed to update line');
            }
            $obj->total_tva = $tmpcal[1];
            $obj->total_ttc = $tmpcal[2];
            $obj->multicurrency_total_tva = $tmpcal[17];
            $obj->multicurrency_total_ttc = $tmpcal[18];
          } elseif ($diff_when_using_price_ht) {
            // If total_ht calculated from unit price is different than the one in database, we do nothing, this may be a regular case to have also a different VAT, that can be explained
            // because price was entered included tax and we round the unit price without tax to store it in database (so recalculation will give different results),
            // so we continue only if price HT are same.
            if ((float) $tmpcal[0] == (float) $obj->total_ht) {
              // In rare cases, we can have the unit price that was not saved as original (like when adding a line from a discount of down payment). In this case, recalculation from unit price
              // will give different results than the one stored in database (the good one are the one in database and we must not fix anything).
              if ($obj->description != '(DEPOSIT)' && !getDolGlobalInt('MAIN_DISABLE_AUTOFIX_CORRUPTED_LINES_WHEN_TOTAL_DOES_NOT_MATCH_RECALCULATION_FROM_UP')) {
                // After calculation from HT, totals sum of all part is consistent ($diff_on_current_total) + total_ht is same + we are not on a line with a bad unit amount + we have found a difference between VAT part calculated from unit price and the VAT part into database,
                // and we ask to force the use of rounding on line (like what we did on initial calculation) so this should not happen, so we force the update of line to fix this.
                // This part of code must be called only to fix corrupted data due to the use of the old feature to round total instead of rounding lines.
                $sqlfix = "UPDATE ".$this->db->prefix().$this->table_element_line;
                $sqlfix .= " SET ".$this->db->sanitize($fieldtva)." = ".price2num((float) $tmpcal[1]).", total_ttc = ".price2num((float) $tmpcal[2]);
                $sqlfix .= ", multicurrency_total_tva = ".price2num((float) $tmpcal[17]).", multicurrency_total_ttc = ".price2num((float) $tmpcal[18]);
                $sqlfix .= " WHERE rowid = ".((int) $obj->rowid);
 
                dol_syslog('Warn2: We found a line with different rounding data into detailed line (diff_when_using_price_ht = '.$diff_when_using_price_ht.' and diff_on_current_total = '.$diff_on_current_total.') for line rowid = '.$obj->rowid." (total vat of line calculated=".$tmpcal[1].", database=".$obj->total_tva."). We fix the total_vat and total_ttc of line by running sqlfix = ".$sqlfix);
 
                $resqlfix = $this->db->query($sqlfix);
                if (!$resqlfix) {
                  dol_print_error($this->db, 'Failed to update line');
                }
                $obj->total_tva = $tmpcal[1];
                $obj->total_ttc = $tmpcal[2];
                $obj->multicurrency_total_tva = $tmpcal[17];
                $obj->multicurrency_total_ttc = $tmpcal[18];
              }
            }
          }
        }
 
        $this->total_ht        += $obj->total_ht; // The field visible at end of line detail
        $this->total_tva       += $obj->total_tva;
        $this->total_localtax1 += $obj->total_localtax1;
        $this->total_localtax2 += $obj->total_localtax2;
        $this->total_ttc       += $obj->total_ttc;
        $this->multicurrency_total_ht        += $obj->multicurrency_total_ht; // The field visible at end of line detail
        $this->multicurrency_total_tva       += $obj->multicurrency_total_tva;
        $this->multicurrency_total_ttc       += $obj->multicurrency_total_ttc;
 
        if (!isset($total_ht_by_vats[$obj->vatrate])) {
          $total_ht_by_vats[$obj->vatrate] = 0;
        }
        if (!isset($total_tva_by_vats[$obj->vatrate])) {
          $total_tva_by_vats[$obj->vatrate] = 0;
        }
        if (!isset($total_ttc_by_vats[$obj->vatrate])) {
          $total_ttc_by_vats[$obj->vatrate] = 0;
        }
        $total_ht_by_vats[$obj->vatrate]  += $obj->total_ht;
        $total_tva_by_vats[$obj->vatrate] += $obj->total_tva;
        $total_ttc_by_vats[$obj->vatrate] += $obj->total_ttc;
 
        if ($forcedroundingmode == '1') { // Check if we need adjustment onto line for vat. TODO This works on the company currency but not on foreign currency
          if ($base_price_type == 'TTC') {
            $tmpvat = price2num($total_ttc_by_vats[$obj->vatrate] * $obj->vatrate / (100 + $obj->vatrate), 'MT', 1);
          } else {
            $tmpvat = price2num($total_ht_by_vats[$obj->vatrate] * $obj->vatrate / 100, 'MT', 1);
          }
          $diff = price2num($total_tva_by_vats[$obj->vatrate] - (float) $tmpvat, 'MT', 1);
          //print 'Line '.$i.' rowid='.$obj->rowid.' vat_rate='.$obj->vatrate.' total_ht='.$obj->total_ht.' total_tva='.$obj->total_tva.' total_ttc='.$obj->total_ttc.' total_ht_by_vats='.$total_ht_by_vats[$obj->vatrate].' total_tva_by_vats='.$total_tva_by_vats[$obj->vatrate].' (new calculation = '.$tmpvat.') total_ttc_by_vats='.$total_ttc_by_vats[$obj->vatrate].($diff?" => DIFF":"")."<br>\n";
          if ($diff) {
            $maxdiff = (10 * pow(10, -1 * getDolGlobalInt('MAIN_MAX_DECIMALS_TOT', 0)));
            if (abs((float) $diff) > $maxdiff) {
              // If error is more than 10 times the accuracy of rounding. This should not happen.
              $errmsg = 'We found a rounding difference after line '.($obj->rowid).' between HT*VAT='.$tmpvat.' and total in database='.$total_tva_by_vats[$obj->vatrate].' (calculated with UP*qty) but diff='.$diff.' is too high (> '.$maxdiff.') to be corrected. Some data in your lines may be corrupted. Try to edit each line manually to fix this before restarting.';
              dol_syslog($errmsg, LOG_WARNING);
              $this->error = $errmsg;
              $error++;
              break;
            }
 
            if ($base_price_type == 'TTC') {
              $sqlfix = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$this->db->sanitize($fieldtva)." = ".price2num($obj->total_tva - (float) $diff).", total_ht = ".price2num($obj->total_ht + (float) $diff)." WHERE rowid = ".((int) $obj->rowid);
              dol_syslog('We found a difference of '.$diff.' for line rowid = '.$obj->rowid.' between TotalHT('.$total_ht_by_vats[$obj->vatrate].')*VATrate('.$obj->vatrate.')='.$tmpvat.' and total in database='.$total_tva_by_vats[$obj->vatrate]." (calculated with UP*qty). We fix the total_vat and total_ht of line by running sqlfix = ".$sqlfix);
            } else {
              $sqlfix = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$this->db->sanitize($fieldtva)." = ".price2num($obj->total_tva - (float) $diff).", total_ttc = ".price2num($obj->total_ttc - (float) $diff)." WHERE rowid = ".((int) $obj->rowid);
              dol_syslog('We found a difference of '.$diff.' for line rowid = '.$obj->rowid.' between TotalHT('.$total_ht_by_vats[$obj->vatrate].')*VATrate('.$obj->vatrate.')='.$tmpvat.' and total in database='.$total_tva_by_vats[$obj->vatrate]." (calculated with UP*qty). We fix the total_vat and total_ttc of line by running sqlfix = ".$sqlfix);
            }
 
            $resqlfix = $this->db->query($sqlfix);
 
            if (!$resqlfix) {
              dol_print_error($this->db, 'Failed to update line');
            }
 
            $this->total_tva = (float) price2num($this->total_tva - (float) $diff, '', 1);
            $total_tva_by_vats[$obj->vatrate] = (float) price2num($total_tva_by_vats[$obj->vatrate] - (float) $diff, '', 1);
            if ($base_price_type == 'TTC') {
              $this->total_ht = (float) price2num($this->total_ht + (float) $diff, '', 1);
              $total_ht_by_vats[$obj->vatrate] = (float) price2num($total_ht_by_vats[$obj->vatrate] + (float) $diff, '', 1);
            } else {
              $this->total_ttc = (float) price2num($this->total_ttc - (float) $diff, '', 1);
              $total_ttc_by_vats[$obj->vatrate] = (float) price2num($total_ttc_by_vats[$obj->vatrate] - (float) $diff, '', 1);
            }
          }
        }
 
        $i++;
      }
 
      // Add revenue stamp to total
      // @phan-suppress-next-line PhanUndeclaredProperty
      $this->total_ttc += isset($this->revenuestamp) ? $this->revenuestamp : 0;
      // @phan-suppress-next-line PhanUndeclaredProperty
      $this->multicurrency_total_ttc += isset($this->revenuestamp) ? ($this->revenuestamp * $multicurrency_tx) : 0;
 
      // Situations totals
      if (!empty($this->situation_cycle_ref) && !empty($this->situation_counter) && $this->situation_counter > 1 && method_exists($this, 'get_prev_sits')) {  // @phan-suppress-current-line PhanUndeclaredProperty
        '@phan-var-force Facture $this';
        include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';  // Note: possibly useless as $this is normally already Facture, so the class file should be loaded
        if ($this->type != Facture::TYPE_CREDIT_NOTE) { // @phpstan-ignore-line
          if (getDolGlobalInt('INVOICE_USE_SITUATION') != 2) {
            $prev_sits = $this->get_prev_sits();
 
            foreach ($prev_sits as $sit) {                // $sit is an object Facture loaded with a fetch.
              $this->total_ht -= $sit->total_ht;
              $this->total_tva -= $sit->total_tva;
              $this->total_localtax1 -= $sit->total_localtax1;
              $this->total_localtax2 -= $sit->total_localtax2;
              $this->total_ttc -= $sit->total_ttc;
              $this->multicurrency_total_ht -= $sit->multicurrency_total_ht;
              $this->multicurrency_total_tva -= $sit->multicurrency_total_tva;
              $this->multicurrency_total_ttc -= $sit->multicurrency_total_ttc;
            }
          }
        }
      }
 
      // Clean total
      $this->total_ht = (float) price2num($this->total_ht);
      $this->total_tva = (float) price2num($this->total_tva);
      $this->total_localtax1 = (float) price2num($this->total_localtax1);
      $this->total_localtax2 = (float) price2num($this->total_localtax2);
      $this->total_ttc = (float) price2num($this->total_ttc);
 
      $this->db->free($resql);
 
      // Now update global fields total_ht, total_ttc, total_tva, total_localtax1, total_localtax2, multicurrency_total_* of main object
      $fieldht = 'total_ht';
      $fieldtva = 'tva';
      $fieldlocaltax1 = 'localtax1';
      $fieldlocaltax2 = 'localtax2';
      $fieldttc = 'total_ttc';
      // Specific code for backward compatibility with old field names
      if (in_array($this->element, array('propal', 'commande', 'facture', 'facturerec', 'supplier_proposal', 'order_supplier', 'facture_fourn', 'invoice_supplier', 'invoice_supplier_rec', 'expensereport'))) {
        $fieldtva = 'total_tva';
      }
 
      if (!$error && empty($nodatabaseupdate)) {
        $sql = "UPDATE ".$this->db->prefix().$this->table_element.' SET';
        $sql .= " ".$this->db->sanitize($fieldht)." = ".((float) price2num($this->total_ht, 'MT', 1)).",";
        $sql .= " ".$this->db->sanitize($fieldtva)." = ".((float) price2num($this->total_tva, 'MT', 1)).",";
        $sql .= " ".$this->db->sanitize($fieldlocaltax1)." = ".((float) price2num($this->total_localtax1, 'MT', 1)).",";
        $sql .= " ".$this->db->sanitize($fieldlocaltax2)." = ".((float) price2num($this->total_localtax2, 'MT', 1)).",";
        $sql .= " ".$this->db->sanitize($fieldttc)." = ".((float) price2num($this->total_ttc, 'MT', 1));
        $sql .= ", multicurrency_total_ht = ".((float) price2num($this->multicurrency_total_ht, 'MT', 1));
        $sql .= ", multicurrency_total_tva = ".((float) price2num($this->multicurrency_total_tva, 'MT', 1));
        $sql .= ", multicurrency_total_ttc = ".((float) price2num($this->multicurrency_total_ttc, 'MT', 1));
        $sql .= " WHERE rowid = ".((int) $this->id);
 
        dol_syslog(get_class($this)."::update_price", LOG_DEBUG);
        $resql = $this->db->query($sql);
 
        if (!$resql) {
          $error++;
          $this->error = $this->db->lasterror();
          $this->errors[] = $this->db->lasterror();
        }
      }
 
      if (!$error) {
        $this->db->commit();
        return 1;
      } else {
        $this->db->rollback();
        return -1;
      }
    } else {
      dol_print_error($this->db, 'Bad request in update_price');
      return -1;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function add_object_linked($origin = null, $origin_id = null, $f_user = null, $notrigger = 0)
  {
    // phpcs:enable
    global $user, $hookmanager, $action;
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    if (empty($this->origin_type) && !empty($this->origin)) {
      $this->origin_type = $this->origin;
    }
    $origin = (!empty($origin) ? $origin : $this->origin_type);
    $origin_id = (!empty($origin_id) ? $origin_id : $this->origin_id);
    $f_user = isset($f_user) ? $f_user : $user;
 
    // Special case
    if ($origin == 'order') {
      $origin = 'commande';
    }
    if ($origin == 'invoice') {
      $origin = 'facture';
    }
    if ($origin == 'invoice_template') {
      $origin = 'facturerec';
    }
    if ($origin == 'supplierorder') {
      $origin = 'order_supplier';
    }
 
    // Add module part to target type
    $targettype = $this->getElementType();
 
    $parameters = array('targettype' => $targettype);
    // Hook for explicitly set the targettype if it must be different than $this->element
    $reshook = $hookmanager->executeHooks('setLinkedObjectSourceTargetType', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
    if ($reshook > 0) {
      if (!empty($hookmanager->resArray['targettype'])) {
        $targettype = $hookmanager->resArray['targettype'];
      }
    }
 
    $this->db->begin();
    $error = 0;
 
    $sql = "INSERT INTO " . $this->db->prefix() . "element_element (";
    $sql .= "fk_source";
    $sql .= ", sourcetype";
    $sql .= ", fk_target";
    $sql .= ", targettype";
    $sql .= ") VALUES (";
    $sql .= ((int) $origin_id);
    $sql .= ", '" . $this->db->escape($origin) . "'";
    $sql .= ", " . ((int) $this->id);
    $sql .= ", '" . $this->db->escape($targettype) . "'";
    $sql .= ")";
 
    dol_syslog(get_class($this) . "::add_object_linked", LOG_DEBUG);
    if ($this->db->query($sql)) {
      // If we link a supplier order to a supplier invoice that already uses discounts coming from other supplier invoices
      // (deposit invoice / credit note used as payment), also link those source invoices to the same supplier order.
      // This helps keep "linked elements" consistent when totals are impacted by such discounts.
      if ($origin === 'order_supplier' && $targettype === 'invoice_supplier' && $this->element === 'invoice_supplier' && (int) $origin_id > 0 && (int) $this->id > 0) {
        $sourceinvoices = array();
 
        $sqlsources = "SELECT DISTINCT rc.fk_invoice_supplier_source as rowid";
        $sqlsources .= " FROM ".$this->db->prefix()."societe_remise_except as rc";
        $sqlsources .= " WHERE rc.fk_invoice_supplier = ".((int) $this->id);
        $sqlsources .= " AND rc.fk_invoice_supplier_source IS NOT NULL";
 
        $resqlsources = $this->db->query($sqlsources);
        if ($resqlsources) {
          while ($objsrc = $this->db->fetch_object($resqlsources)) {
            $srcid = (int) $objsrc->rowid;
            if ($srcid > 0 && $srcid !== (int) $this->id) {
              $sourceinvoices[$srcid] = $srcid;
            }
          }
        } else {
          dol_syslog(get_class($this)."::add_object_linked Failed to read supplier invoice discounts sources", LOG_WARNING);
        }
 
        if (!empty($sourceinvoices)) {
          $existing = array();
          $sourcelist = implode(',', $sourceinvoices);
 
          $sqlexists = "SELECT fk_target";
          $sqlexists .= " FROM ".$this->db->prefix()."element_element";
          $sqlexists .= " WHERE fk_source = ".((int) $origin_id);
          $sqlexists .= " AND sourcetype = '".$this->db->escape($origin)."'";
          $sqlexists .= " AND targettype = '".$this->db->escape($targettype)."'";
          $sqlexists .= " AND fk_target IN (".$this->db->sanitize($sourcelist).")";
 
          $resqlexists = $this->db->query($sqlexists);
          if ($resqlexists) {
            while ($objexist = $this->db->fetch_object($resqlexists)) {
              $existing[(int) $objexist->fk_target] = 1;
            }
          } else {
            dol_syslog(get_class($this)."::add_object_linked Failed to read existing linked supplier invoices", LOG_WARNING);
          }
 
          foreach ($sourceinvoices as $srcid) {
            if (!empty($existing[(int) $srcid])) {
              continue;
            }
 
            $sqladd = "INSERT INTO " . $this->db->prefix() . "element_element (fk_source, sourcetype, fk_target, targettype)";
            $sqladd .= " VALUES (".((int) $origin_id).", '".$this->db->escape($origin)."', ".((int) $srcid).", '".$this->db->escape($targettype)."')";
            $this->db->query($sqladd); // Best-effort: do not fail original link action
          }
        }
      }
 
      if (!$notrigger) {
        // Call trigger
        $this->context['link_origin'] = $origin;
        $this->context['link_origin_id'] = $origin_id;
 
        $result = $this->call_trigger('OBJECT_LINK_INSERT', $f_user); // Note: We should have used here a hook. Not a business event
        if ($result < 0) {
          $error++;
        }
        // End call triggers
      }
    } else {
      $this->error = $this->db->lasterror();
      $error++;
    }
 
    if (!$error) {
      $this->db->commit();
      return 1;
    } else {
      $this->db->rollback();
      return 0;
    }
  }
 
  public function getElementType()
  {
    // Elements of the core modules having a `$module` property but for which we may not want to prefix the element name with the module name for finding the linked object in llx_element_element.
    // It's because existing llx_element_element entries inserted prior to this modification (version <=14.2) may already use the element name alone in fk_source or fk_target (without the module name prefix).
    $coreModule = array('knowledgemanagement', 'partnership', 'workstation', 'ticket', 'recruitment', 'eventorganization', 'asset');
    // Add module part to target type if object has $module property and isn't in core modules.
    return ((!empty($this->module) && !in_array($this->module, $coreModule)) ? $this->module.'_' : '').$this->element;
  }
 
 
  public function fetchObjectLinked($sourceid = null, $sourcetype = '', $targetid = null, $targettype = '', $clause = 'OR', $alsosametype = 1, $orderby = 'sourcetype', $loadalsoobjects = 1)
  {
    global $hookmanager, $action;
 
    // Important for pdf generation time reduction
    // This boolean is true if $this->linkedObjects has already been loaded with all objects linked without filter
    // If you need to force the reload, you can call clearObjectLinkedCache() before calling fetchObjectLinked()
    if ($this->id > 0 && !empty($this->linkedObjectsFullLoaded[$this->id])) {
      return 1;
    }
 
    $this->linkedObjectsIds = array();
    $this->linkedObjects = array();
 
    // Hook for allowing modules to completely alter the behavior of the method
    $parameters = array(
      'sourceid' => $sourceid,
      'sourcetype' => $sourcetype,
      'targetid' => $targetid,
      'targettype' => $targettype,
      'clause' => $clause,
      'alsosametype' => $alsosametype,
      'orderby' => $orderby,
      'loadalsoobjects' => $loadalsoobjects
    );
    $reshook = $hookmanager->executeHooks('fetchObjectLinked', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
    if ($reshook > 0) {
      return $reshook;
    }
 
    $justsource = false;
    $justtarget = false;
    $withtargettype = false;
    $withsourcetype = false;
 
    // Hook for explicitly set the targettype if it must be differtent than $this->element
    if (is_object($hookmanager)) {
      $parameters = array('sourcetype' => $sourcetype, 'sourceid' => $sourceid, 'targettype' => $targettype, 'targetid' => $targetid);
      $reshook = $hookmanager->executeHooks('setLinkedObjectSourceTargetType', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
      if ($reshook > 0) {
        if (!empty($hookmanager->resArray['sourcetype'])) {
          $sourcetype = $hookmanager->resArray['sourcetype'];
        }
        if (!empty($hookmanager->resArray['sourceid'])) {
          $sourceid = $hookmanager->resArray['sourceid'];
        }
        if (!empty($hookmanager->resArray['targettype'])) {
          $targettype = $hookmanager->resArray['targettype'];
        }
        if (!empty($hookmanager->resArray['targetid'])) {
          $targetid = $hookmanager->resArray['targetid'];
        }
      }
    }
 
    if (!empty($sourceid) && !empty($sourcetype) && empty($targetid)) {
      $justsource = true; // the source (id and type) is a search criteria
      if (!empty($targettype)) {
        $withtargettype = true;
      }
    }
    if (!empty($targetid) && !empty($targettype) && empty($sourceid)) {
      $justtarget = true; // the target (id and type) is a search criteria
      if (!empty($sourcetype)) {
        $withsourcetype = true;
      }
    }
 
    $sourceid = (!empty($sourceid) ? $sourceid : $this->id);
    $targetid = (!empty($targetid) ? $targetid : $this->id);
    $sourcetype = (!empty($sourcetype) ? $sourcetype : $this->getElementType());
    $targettype = (!empty($targettype) ? $targettype : $this->getElementType());
 
    /*if (empty($sourceid) && empty($targetid))
     {
     dol_syslog('Bad usage of function. No source nor target id defined (nor as parameter nor as object id)', LOG_ERR);
     return -1;
     }*/
 
    // Links between objects are stored in table element_element
    $sql = "SELECT rowid, fk_source, sourcetype, fk_target, targettype";
    $sql .= " FROM ".$this->db->prefix()."element_element";
    $sql .= " WHERE ";
    if ($justsource || $justtarget) {
      if ($justsource) {
        $sql .= "fk_source = ".((int) $sourceid)." AND sourcetype = '".$this->db->escape($sourcetype)."'";
        if ($withtargettype) {
          $sql .= " AND targettype = '".$this->db->escape($targettype)."'";
        }
      } elseif ($justtarget) {
        $sql .= "fk_target = ".((int) $targetid)." AND targettype = '".$this->db->escape($targettype)."'";
        if ($withsourcetype) {
          $sql .= " AND sourcetype = '".$this->db->escape($sourcetype)."'";
        }
      }
    } else {
      $sql .= "(fk_source = ".((int) $sourceid)." AND sourcetype = '".$this->db->escape($sourcetype)."')";
      $sql .= " ".$this->db->sanitize($clause)." (fk_target = ".((int) $targetid)." AND targettype = '".$this->db->escape($targettype)."')";
      if ($loadalsoobjects && $this->id > 0 && $sourceid == $this->id && $sourcetype == $this->element && $targetid == $this->id && $targettype == $this->element && $clause == 'OR') {
        $this->linkedObjectsFullLoaded[$this->id] = true;
      }
    }
    $sql .= $this->db->order($orderby);
 
    dol_syslog(get_class($this)."::fetchObjectLink", LOG_DEBUG);
 
    $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 ($justsource || $justtarget) {
          if ($justsource) {
            $this->linkedObjectsIds[$obj->targettype][$obj->rowid] = $obj->fk_target;
          } elseif ($justtarget) {
            $this->linkedObjectsIds[$obj->sourcetype][$obj->rowid] = $obj->fk_source;
          }
        } else {
          if ($obj->fk_source == $sourceid && $obj->sourcetype == $sourcetype) {
            $this->linkedObjectsIds[$obj->targettype][$obj->rowid] = $obj->fk_target;
          }
          if ($obj->fk_target == $targetid && $obj->targettype == $targettype) {
            $this->linkedObjectsIds[$obj->sourcetype][$obj->rowid] = $obj->fk_source;
          }
        }
        $i++;
      }
 
      if (!empty($this->linkedObjectsIds)) {
        $tmparray = $this->linkedObjectsIds;
        foreach ($tmparray as $objecttype => $objectids) {       // $objecttype is a module name ('facture', 'mymodule', ...) or a module name with a suffix ('project_task', 'mymodule_myobj', ...)
          $element_properties = getElementProperties($objecttype);
          $element = $element_properties['element'];
          $classPath = $element_properties['classpath'];
          $classFile = $element_properties['classfile'];
          $className = $element_properties['classname'];
          $module = $element_properties['module'];
 
          // Here $module, $classFile and $className are set, we can use them.
          if (isModEnabled($module) && (($element != $this->element) || $alsosametype)) {
            if ($loadalsoobjects && (is_numeric($loadalsoobjects) || ($loadalsoobjects === $objecttype))) {
              dol_include_once('/'.$classPath.'/'.$classFile.'.class.php');
              if (class_exists($className)) {
                foreach ($objectids as $i => $objectid) { // $i is rowid into llx_element_element
                  $object = new $className($this->db);
                  '@phan-var-force CommonObject $object';
                  $ret = $object->fetch($objectid);
                  if ($ret > 0) {
                    $this->linkedObjects[$objecttype][$i] = $object;
                  }
                }
              }
            }
          } else {
            unset($this->linkedObjectsIds[$objecttype]);
          }
        }
      }
      return 1;
    } else {
      dol_print_error($this->db);
      return -1;
    }
  }
 
  public function clearObjectLinkedCache()
  {
    if ($this->id > 0 && !empty($this->linkedObjectsFullLoaded[$this->id])) {
      unset($this->linkedObjectsFullLoaded[$this->id]);
    }
 
    return 1;
  }
 
  public function updateObjectLinked($sourceid = null, $sourcetype = '', $targetid = null, $targettype = '', $f_user = null, $notrigger = 0)
  {
    global $user;
    $updatesource = false;
    $updatetarget = false;
    $f_user = isset($f_user) ? $f_user : $user;
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    if (!empty($sourceid) && !empty($sourcetype) && empty($targetid) && empty($targettype)) {
      $updatesource = true;
    } elseif (empty($sourceid) && empty($sourcetype) && !empty($targetid) && !empty($targettype)) {
      $updatetarget = true;
    }
 
    $this->db->begin();
    $error = 0;
 
    $sql = "UPDATE " . $this->db->prefix() . "element_element SET ";
    if ($updatesource) {
      $sql .= "fk_source = " . ((int) $sourceid);
      $sql .= ", sourcetype = '" . $this->db->escape($sourcetype) . "'";
      $sql .= " WHERE fk_target = " . ((int) $this->id);
      $sql .= " AND targettype = '" . $this->db->escape($this->element) . "'";
    } elseif ($updatetarget) {
      $sql .= "fk_target = " . ((int) $targetid);
      $sql .= ", targettype = '" . $this->db->escape($targettype) . "'";
      $sql .= " WHERE fk_source = " . ((int) $this->id);
      $sql .= " AND sourcetype = '" . $this->db->escape($this->element) . "'";
    }
 
    dol_syslog(get_class($this) . "::updateObjectLinked", LOG_DEBUG);
    if ($this->db->query($sql)) {
      if (!$notrigger) {
        // Call trigger
        $this->context['link_source_id'] = $sourceid;
        $this->context['link_source_type'] = $sourcetype;
        $this->context['link_target_id'] = $targetid;
        $this->context['link_target_type'] = $targettype;
 
        $result = $this->call_trigger('OBJECT_LINK_MODIFY', $f_user); // Note: We should have used here a hook. Not a business event
        if ($result < 0) {
          $error++;
        }
        // End call triggers
      }
    } else {
      $this->error = $this->db->lasterror();
      $error++;
    }
 
    if (!$error) {
      $this->db->commit();
      return 1;
    } else {
      $this->db->rollback();
      return -1;
    }
  }
 
  public function deleteObjectLinked($sourceid = null, $sourcetype = '', $targetid = null, $targettype = '', $rowid = 0, $f_user = null, $notrigger = 0)
  {
    global $user;
    $deletesource = false;
    $deletetarget = false;
    $f_user = isset($f_user) ? $f_user : $user;
 
    if (!empty($sourceid) && !empty($sourcetype) && empty($targetid) && empty($targettype)) {
      $deletesource = true;
    } elseif (empty($sourceid) && empty($sourcetype) && !empty($targetid) && !empty($targettype)) {
      $deletetarget = true;
    }
 
    $element = $this->getElementType();
    $sourceid = (!empty($sourceid) ? $sourceid : $this->id);
    $sourcetype = (!empty($sourcetype) ? $sourcetype : $element);
    $targetid = (!empty($targetid) ? $targetid : $this->id);
    $targettype = (!empty($targettype) ? $targettype : $element);
    $this->db->begin();
    $error = 0;
 
    if (!$notrigger) {
      // Call trigger
      $this->context['link_id'] = $rowid;
      $this->context['link_source_id'] = $sourceid;
      $this->context['link_source_type'] = $sourcetype;
      $this->context['link_target_id'] = $targetid;
      $this->context['link_target_type'] = $targettype;
 
      $result = $this->call_trigger('OBJECT_LINK_DELETE', $f_user); // Note: We should have used here a hook. Not a business event
      if ($result < 0) {
        $error++;
      }
      // End call triggers
    }
 
    if (!$error) {
      $sql = "DELETE FROM " . $this->db->prefix() . "element_element";
      $sql .= " WHERE";
      if ($rowid > 0) {
        $sql .= " rowid = " . ((int) $rowid);
      } else {
        if ($deletesource) {
          $sql .= " fk_source = " . ((int) $sourceid) . " AND sourcetype = '" . $this->db->escape($sourcetype) . "'";
          $sql .= " AND fk_target = " . ((int) $this->id) . " AND targettype = '" . $this->db->escape($element) . "'";
        } elseif ($deletetarget) {
          $sql .= " fk_target = " . ((int) $targetid) . " AND targettype = '" . $this->db->escape($targettype) . "'";
          $sql .= " AND fk_source = " . ((int) $this->id) . " AND sourcetype = '" . $this->db->escape($element) . "'";
        } else {
          $sql .= " (fk_source = " . ((int) $this->id) . " AND sourcetype = '" . $this->db->escape($element) . "')";
          $sql .= " OR";
          $sql .= " (fk_target = " . ((int) $this->id) . " AND targettype = '" . $this->db->escape($element) . "')";
        }
      }
 
      dol_syslog(get_class($this) . "::deleteObjectLinked", LOG_DEBUG);
      if (!$this->db->query($sql)) {
        $this->error = $this->db->lasterror();
        $this->errors[] = $this->error;
        $error++;
      }
    }
 
    if (!$error) {
      $this->db->commit();
      return 1;
    } else {
      $this->db->rollback();
      return 0;
    }
  }
 
  public static function getAllItemsLinkedByObjectID($fk_object_where, $field_select, $field_where, $table_element)
  {
    if (empty($fk_object_where) || empty($field_where) || empty($table_element)) {
      return -1;
    }
    if (!preg_match('/^[_a-zA-Z0-9]+$/', $field_select)) {
      dol_syslog('Invalid value $field_select for parameter '.$field_select.' in call to getAllItemsLinkedByObjectID(). Must be a single field name.', LOG_ERR);
    }
 
    global $db;
 
    $sql = "SELECT ".$db->sanitize($field_select)." FROM ".$db->prefix().$db->sanitize($table_element)." WHERE ".$db->sanitize($field_where)." = ".((int) $fk_object_where);
    $resql = $db->query($sql);
 
    $TRes = array();
    if (!empty($resql)) {
      while ($res = $db->fetch_object($resql)) {
        $TRes[] = $res->{$field_select};
      }
    }
 
    return $TRes;
  }
 
  public static function getCountOfItemsLinkedByObjectID($fk_object_where, $field_where, $table_element)
  {
    if (empty($fk_object_where) || empty($field_where) || empty($table_element)) {
      return -1;
    }
 
    global $db;
 
    $sql = "SELECT COUNT(*) as nb FROM ".$db->prefix().$db->sanitize($table_element)." WHERE ".$db->sanitize($field_where)." = ".((int) $fk_object_where);
    $resql = $db->query($sql);
    $n = 0;
    if ($resql) {
      $res = $db->fetch_object($resql);
      if ($res) {
        $n = $res->nb;
      }
    }
 
    return $n;
  }
 
  public static function deleteAllItemsLinkedByObjectID($fk_object_where, $field_where, $table_element)
  {
    if (empty($fk_object_where) || empty($field_where) || empty($table_element)) {
      return -1;
    }
 
    global $db;
 
    $sql = "DELETE FROM ".$db->prefix().$table_element." WHERE ".$db->sanitize($field_where)." = ".((int) $fk_object_where);
    $resql = $db->query($sql);
 
    if (empty($resql)) {
      return 0;
    }
 
    return 1;
  }
 
  public function setStatut($status, $elementId = null, $elementType = '', $trigkey = '', $fieldstatus = '')
  {
    global $user;
 
    $savElementId = $elementId; // To be used later to know if we were using the method using the id of this or not.
 
    $elementId = (!empty($elementId) ? $elementId : $this->id);
    $elementTable = (!empty($elementType) ? $elementType : $this->table_element);
 
    $this->db->begin();
 
    if (empty($fieldstatus)) {
      if ($elementTable == 'facture_rec') {
        $fieldstatus = "suspended";
      }
      if ($elementTable == 'mailing') {
        $fieldstatus = "statut";
      }
      if ($elementTable == 'cronjob') {
        $fieldstatus = "status";
      }
      if ($elementTable == 'user') {
        $fieldstatus = "statut";
      }
      if ($elementTable == 'expensereport') {
        $fieldstatus = "fk_statut";
      }
      if ($elementTable == 'receptiondet_batch') {
        $fieldstatus = "status";
      }
      if ($elementTable == 'prelevement_bons') {
        $fieldstatus = "statut";
      }
      if ($elementTable == 'bank_account') {
        $fieldstatus = "clos";
      }
      if (isset($this->fields) && is_array($this->fields) && array_key_exists('status', $this->fields)) {
        $fieldstatus = 'status';
      }
      // If still empty
      if (empty($fieldstatus)) {
        $fieldstatus = 'fk_statut';
      }
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($elementTable);
    $sql .= " SET ".$this->db->sanitize($fieldstatus)." = ".((int) $status);
    // If status = 1 = validated and we update the main status field, we can update also fk_user_valid
    // TODO Replace the test on $elementTable by doing a test on existence of the field in $this->fields and on $fieldstatus
    if ($status == 1 && in_array($elementTable, array('expensereport', 'inventory'))) {
      $sql .= ", fk_user_valid = ".((int) $user->id);
    }
    if ($status == 1 && in_array($elementTable, array('expensereport'))) {
      $sql .= ", date_valid = '".$this->db->idate(dol_now())."'";
    }
    if ($status == 1 && in_array($elementTable, array('inventory'))) {
      $sql .= ", date_validation = '".$this->db->idate(dol_now())."'";
    }
    $sql .= " WHERE rowid = ".((int) $elementId);
    $sql .= " AND ".$this->db->sanitize($fieldstatus)." <> ".((int) $status); // We avoid update if status already correct
 
    dol_syslog(get_class($this)."::setStatut", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $error = 0;
 
      $nb_rows_affected = $this->db->affected_rows($resql); // should be 1 or 0 if status was already correct
 
      if ($nb_rows_affected > 0) {
        if (empty($trigkey)) {
          // Try to guess trigkey (for backward compatibility, now we should have trigkey defined into the call of setStatus)
          if ($this->element == 'supplier_proposal' && $status == 2) {
            $trigkey = 'SUPPLIER_PROPOSAL_SIGN'; // 2 = SupplierProposal::STATUS_SIGNED. Can't use constant into this generic class
          }
          if ($this->element == 'supplier_proposal' && $status == 3) {
            $trigkey = 'SUPPLIER_PROPOSAL_REFUSE'; // 3 = SupplierProposal::STATUS_REFUSED. Can't use constant into this generic class
          }
          if ($this->element == 'supplier_proposal' && $status == 4) {
            $trigkey = 'SUPPLIER_PROPOSAL_CLOSE'; // 4 = SupplierProposal::STATUS_CLOSED. Can't use constant into this generic class
          }
          if ($this->element == 'fichinter' && $status == 3) {
            $trigkey = 'FICHINTER_CLASSIFY_DONE';
          }
          if ($this->element == 'fichinter' && $status == 2) {
            $trigkey = 'FICHINTER_CLASSIFY_BILLED';
          }
          if ($this->element == 'fichinter' && $status == 1) {
            $trigkey = 'FICHINTER_CLASSIFY_UNBILLED';
          }
        }
 
        $this->context = array_merge($this->context, array('newstatus' => $status));
 
        if ($trigkey && $trigkey != 'none') {
          $this->oldcopy = dol_clone($this);
 
          // Call trigger
          $result = $this->call_trigger($trigkey, $user);
          if ($result < 0) {
            $error++;
          }
          // End call triggers
        }
      } else {
        // The status was probably already good. We do nothing more, no triggers.
      }
 
      if (!$error) {
        $this->db->commit();
 
        if (empty($savElementId)) {
          // If the element we update is $this (so $elementId was provided as null)
          if ($fieldstatus == 'dispute_status') {
            $this->dispute_status = $status;
          } elseif ($fieldstatus == 'tosell') {
            $this->status = $status;
          } elseif ($fieldstatus == 'tobuy') {
            $this->status_buy = $status;  // @phpstan-ignore-line
          } elseif ($fieldstatus == 'tobatch') {
            $this->status_batch = $status;  // @phpstan-ignore-line
          } else {
            $this->status = $status;
          }
        }
 
        return 1;
      } else {
        $this->db->rollback();
        dol_syslog(get_class($this)."::setStatut ".$this->error, LOG_ERR);
        return -1;
      }
    } else {
      $this->error = $this->db->lasterror();
      $this->db->rollback();
      return -1;
    }
  }
 
 
  public function getCanvas($id = 0, $ref = '')
  {
    if (empty($id) && empty($ref)) {
      return 0;
    }
    if (getDolGlobalString('MAIN_DISABLE_CANVAS')) {
      return 0; // To increase speed. Not enabled by default.
    }
 
    // Clean parameters
    $ref = trim($ref);
 
    $sql = "SELECT rowid, canvas";
    $sql .= " FROM ".$this->db->prefix().$this->table_element;
    $sql .= " WHERE entity IN (".getEntity($this->element).")";
    if (!empty($id)) {
      $sql .= " AND rowid = ".((int) $id);
    }
    if (!empty($ref)) {
      $sql .= " AND ref = '".$this->db->escape($ref)."'";
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      if ($obj) {
        $this->canvas = $obj->canvas;
        return 1;
      } else {
        return 0;
      }
    } else {
      dol_print_error($this->db);
      return -1;
    }
  }
 
 
  public function getSpecialCode($lineid)
  {
    $sql = "SELECT special_code FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
    $sql .= " WHERE rowid = ".((int) $lineid);
    $resql = $this->db->query($sql);
    if ($resql) {
      $row = $this->db->fetch_row($resql);
      return (!empty($row[0]) ? $row[0] : 0);
    }
 
    return 0;
  }
 
  public function isObjectUsed($id = 0, $entity = 0)
  {
    global $langs;
 
    if (empty($id)) {
      $id = $this->id;
    }
 
    // Check parameters
    if (!isset($this->childtables) || !is_array($this->childtables) || count($this->childtables) == 0) {
      dol_print_error(null, 'Called isObjectUsed on a class with property this->childtables not defined');
      return -1;
    }
 
    $arraytoscan = $this->childtables;    // array('tablename'=>array('fk_element'=>'parentfield'), ...) or array('tablename'=>array('parent'=>table_parent, 'parentkey'=>'nameoffieldforparentfkkey'), ...)
    // For backward compatibility, we check if array is old format array('tablename1', 'tablename2', ...)
    $tmparray = array_keys($this->childtables);
    if (is_numeric($tmparray[0])) {
      $arraytoscan = array_flip($this->childtables);
    }
 
    // Test on all child tables to scan if child exists
    $haschild = 0;
    foreach ($arraytoscan as $table => $element) {
      //print $id.'-'.$table.'-'.$elementname.'<br>';
 
      // Check if module is enabled (to avoid error if tables of module not created)
      if (isset($element['enabled']) && !empty($element['enabled'])) {
        $enabled = (int) dol_eval((string) $element['enabled'], 1);
        if (empty($enabled)) {
          continue;
        }
      }
 
      // Check if element can be deleted
      $sql = "SELECT COUNT(*) as nb";
      $sql .= " FROM ".$this->db->prefix().$this->db->sanitize($table)." as c";
      if (!empty($element['parent']) && !empty($element['parentkey'])) {
        $sql .= ", ".$this->db->prefix().$this->db->sanitize($element['parent'])." as p";
      }
      if (!empty($element['fk_element'])) {
        $sql .= " WHERE c.".$this->db->sanitize($element['fk_element'])." = ".((int) $id);
      } else {
        $sql .= " WHERE c.".$this->db->sanitize($this->fk_element)." = ".((int) $id);
      }
      if (!empty($element['parent']) && !empty($element['parentkey'])) {
        $sql .= " AND c.".$this->db->sanitize($element['parentkey'])." = p.rowid";
      }
      if (!empty($element['parent']) && !empty($element['parenttypefield']) && !empty($element['parenttypevalue'])) {
        $sql .= " AND c.".$this->db->sanitize($element['parenttypefield'])." = '".$this->db->escape($element['parenttypevalue'])."'";
      }
      if (!empty($entity)) {
        if (!empty($element['parent']) && !empty($element['parentkey'])) {
          $sql .= " AND p.entity = ".((int) $entity);
        } else {
          $sql .= " AND c.entity = ".((int) $entity);
        }
      }
      //var_dump($table, $element, $sql);
 
      $resql = $this->db->query($sql);
      if ($resql) {
        $obj = $this->db->fetch_object($resql);
        if ($obj->nb > 0) {
          $langs->load("errors");
          //print 'Found into table '.$table.', type '.$langs->transnoentitiesnoconv($elementname).', haschild='.$haschild;
          $haschild += (int) $obj->nb;
          if (is_numeric($element)) { // very old usage array('table1', 'table2', ...)
            $this->errors[] = $langs->transnoentitiesnoconv("ErrorRecordHasAtLeastOneChildOfType", method_exists($this, 'getNomUrl') ? $this->getNomUrl() : $this->ref, $table);
          } elseif (is_string($element)) { // old usage array('table1' => 'TranslateKey1', 'table2' => 'TranslateKey2', ...)
            $this->errors[] = $langs->transnoentitiesnoconv("ErrorRecordHasAtLeastOneChildOfType", method_exists($this, 'getNomUrl') ? $this->getNomUrl() : $this->ref, $langs->transnoentitiesnoconv($element));
          } else { // new usage: $element['name']=Translation key
            $this->errors[] = $langs->transnoentitiesnoconv("ErrorRecordHasAtLeastOneChildOfType", method_exists($this, 'getNomUrl') ? $this->getNomUrl() : $this->ref, $langs->transnoentitiesnoconv($element['name']));
          }
          break; // We found at least one, we stop here
        }
      } else {
        $this->errors[] = $this->db->lasterror();
        return -1;
      }
    }
 
    if ($haschild > 0) {
      $this->errors[] = "ErrorRecordHasChildren";
      return $haschild;
    } else {
      return 0;
    }
  }
 
  public function hasProductsOrServices($predefined = -1)
  {
    $nb = 0;
 
    foreach ($this->lines as $key => $val) {
      $qualified = 0;
      if ($predefined == -1) {
        $qualified = 1;
      }
      if ($predefined == 1 && $val->fk_product > 0) {
        $qualified = 1;
      }
      if ($predefined == 0 && $val->fk_product <= 0) {
        $qualified = 1;
      }
      if ($predefined == 2 && $val->fk_product > 0 && $val->product_type == 0) {
        $qualified = 1;
      }
      if ($predefined == 3 && $val->fk_product > 0 && $val->product_type == 1) {
        $qualified = 1;
      }
      if ($qualified) {
        $nb++;
      }
    }
    dol_syslog(get_class($this).'::hasProductsOrServices we found '.$nb.' qualified lines of products/servcies');
    return $nb;
  }
 
  public function getTotalDiscount()
  {
    if (!empty($this->table_element_line) && ($this->table_element_line != 'expeditiondet')) {
      $total_discount = 0.00;
 
      $sql = "SELECT subprice as pu_ht, qty, remise_percent, total_ht";
      $sql .= " FROM ".$this->db->prefix().$this->table_element_line;
      $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
 
      dol_syslog(get_class($this).'::getTotalDiscount', LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        $num = $this->db->num_rows($resql);
        $i = 0;
        while ($i < $num) {
          $obj = $this->db->fetch_object($resql);
 
          $pu_ht = $obj->pu_ht;
          $qty = $obj->qty;
          $total_ht = $obj->total_ht;
 
          $total_discount_line = (float) price2num(($pu_ht * $qty) - $total_ht, 'MT');
          $total_discount += $total_discount_line;
 
          $i++;
        }
      }
 
      //print $total_discount; exit;
      return (float) price2num($total_discount);
    }
 
    return null;
  }
 
 
  public function getTotalWeightVolume()
  {
    $totalWeight = 0;
    $totalVolume = 0;
    // defined for shipment only
    $totalOrdered = 0;
    // defined for shipment only
    $totalToShip = 0;
 
    if (empty($this->lines)) {
      return array('weight' => $totalWeight, 'volume' => $totalVolume, 'ordered' => $totalOrdered, 'toship' => $totalToShip);
    }
 
    foreach ($this->lines as $line) {
      if (isset($line->qty_asked)) {
        $totalOrdered += $line->qty_asked; // defined for shipment only
      }
      if (isset($line->qty_shipped)) {
        $totalToShip += $line->qty_shipped; // defined for shipment only
      } elseif ($line->element == 'commandefournisseurdispatch' && isset($line->qty)) {
        if (empty($totalToShip)) {
          $totalToShip = 0;
        }
        $totalToShip += $line->qty; // defined for reception only
      }
 
      // Define qty, weight, volume, weight_units, volume_units
      if ($this->element == 'shipping') {
        // for shipments
        $qty = $line->qty_shipped ? $line->qty_shipped : 0;
      } else {
        $qty = $line->qty ? $line->qty : 0;
      }
 
      $weight = !empty($line->weight) ? $line->weight : 0;
      ($weight == 0 && !empty($line->product->weight)) ? $weight = $line->product->weight : 0;
      $volume = !empty($line->volume) ? $line->volume : 0;
      ($volume == 0 && !empty($line->product->volume)) ? $volume = $line->product->volume : 0;
 
      $weight_units = !empty($line->weight_units) ? $line->weight_units : 0;
      ($weight_units == 0 && !empty($line->product->weight_units)) ? $weight_units = $line->product->weight_units : 0;
      $volume_units = !empty($line->volume_units) ? $line->volume_units : 0;
      ($volume_units == 0 && !empty($line->product->volume_units)) ? $volume_units = $line->product->volume_units : 0;
 
      $weightUnit = 0;
      $volumeUnit = 0;
      if (!empty($weight_units)) {
        $weightUnit = $weight_units;
      }
      if (!empty($volume_units)) {
        $volumeUnit = $volume_units;
      }
 
      if (empty($totalWeight)) {
        $totalWeight = 0; // Avoid warning because $totalWeight is ''
      }
      if (empty($totalVolume)) {
        $totalVolume = 0; // Avoid warning because $totalVolume is ''
      }
 
      //var_dump($line->volume_units);
      if ($weight_units < 50) {   // < 50 means a standard unit (power of 10 of official unit), > 50 means an exotic unit (like inch)
        $trueWeightUnit = pow(10, $weightUnit);
        $totalWeight += $weight * $qty * $trueWeightUnit;
      } else {
        if ($weight_units == 99) {
          // conversion 1 Pound = 0.45359237 KG
          $trueWeightUnit = 0.45359237;
          $totalWeight += $weight * $qty * $trueWeightUnit;
        } elseif ($weight_units == 98) {
          // conversion 1 Ounce = 0.0283495 KG
          $trueWeightUnit = 0.0283495;
          $totalWeight += $weight * $qty * $trueWeightUnit;
        } else {
          $totalWeight += $weight * $qty; // This may be wrong if we mix different units
        }
      }
      if ($volume_units < 50) {   // >50 means a standard unit (power of 10 of official unit), > 50 means an exotic unit (like inch)
        //print $line->volume."x".$line->volume_units."x".($line->volume_units < 50)."x".$volumeUnit;
        $trueVolumeUnit = pow(10, $volumeUnit);
        //print $line->volume;
        $totalVolume += $volume * $qty * $trueVolumeUnit;
      } else {
        $totalVolume += $volume * $qty; // This may be wrong if we mix different units
      }
    }
 
    return array('weight' => $totalWeight, 'volume' => $totalVolume, 'ordered' => $totalOrdered, 'toship' => $totalToShip);
  }
 
 
  public function setExtraParameters()
  {
    $this->db->begin();
 
    $extraparams = (!empty($this->extraparams) ? json_encode($this->extraparams) : null);
    $extraparams = dol_trunc($extraparams, 250);
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    $sql .= " SET extraparams = ".(!empty($extraparams) ? "'".$this->db->escape($extraparams)."'" : "null");
    $sql .= " WHERE rowid = ".((int) $this->id);
 
    dol_syslog(get_class($this)."::setExtraParameters", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) {
      $this->error = $this->db->lasterror();
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return 1;
    }
  }
 
 
  // --------------------
  // TODO: All functions here must be redesigned and moved as they are not business functions but output functions
  // --------------------
 
  /* This is to show add lines */
 
  public function formAddObjectLine($dateSelector, $seller, $buyer, $defaulttpldir = '/core/tpl')
  {
    global $conf, $user, $langs, $object, $hookmanager, $extrafields, $form;
 
    // Line extrafield
    if (!is_object($extrafields)) {
      require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
      $extrafields = new ExtraFields($this->db);
    }
    $extrafields->fetch_name_optionals_label($this->table_element_line);
 
    // Output template part (modules that overwrite templates must declare this into descriptor)
    // Use global variables + $dateSelector + $seller and $buyer
    // Note: This is deprecated. If you need to overwrite the tpl file, use instead the hook 'formAddObjectLine'.
    $dirtpls = array_merge($conf->modules_parts['tpl'], array($defaulttpldir));
    foreach ($dirtpls as $module => $reldir) {
      if (!empty($module)) {
        $tpl = dol_buildpath($reldir.'/objectline_create.tpl.php');
      } else {
        $tpl = DOL_DOCUMENT_ROOT.$reldir.'/objectline_create.tpl.php';
      }
 
      if (empty($conf->file->strict_mode)) {
        $res = @include $tpl;
      } else {
        $res = include $tpl; // for debug
      }
      if ($res) {
        break;
      }
    }
  }
 
 
 
  /* This is to show array of line of details */
 
 
  public function printObjectLines($action, $seller, $buyer, $selected = 0, $dateSelector = 0, $defaulttpldir = '/core/tpl')
  {
    global $conf, $hookmanager, $langs, $user, $form, $extrafields, $object;
    // TODO We should not use global var for this
    global $inputalsopricewithtax, $usemargins, $disableedit, $disablemove, $disableremove, $outputalsopricetotalwithtax;
 
    // Define $usemargins (used by objectline_xxx.tpl.php files)
    $usemargins = 0;
    if (isModEnabled('margin') && !empty($this->element) && in_array($this->element, array('facture', 'facturerec', 'propal', 'commande'))) {
      $usemargins = 1;
    }
 
    $num = count($this->lines);
 
    // Line extrafield
    if (!is_object($extrafields)) {
      require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
      $extrafields = new ExtraFields($this->db);
    }
    $extrafields->fetch_name_optionals_label($this->table_element_line);
 
    if (method_exists($this, 'loadExpeditions')) {
      // TODO No reason to have this here. This fill an array ->expeditions not used here. This can be called before going here of by the code that need it.
      $this->loadExpeditions();
    }
 
    $parameters = array();
    $reshook = $hookmanager->executeHooks('printObjectLinesBlock', $parameters, $this, $action);
    if (empty($reshook)) {
      $parameters = array('num' => $num, 'dateSelector' => $dateSelector, 'seller' => $seller, 'buyer' => $buyer, 'selected' => $selected, 'table_element_line' => $this->table_element_line);
      $reshook = $hookmanager->executeHooks('printObjectLineTitle', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
      if (empty($reshook)) {
        // Output template part (modules that overwrite templates must declare this into descriptor)
        // Use global variables + $dateSelector + $seller and $buyer
        // Note: This is deprecated. If you need to overwrite the tpl file, use instead the hook.
        $dirtpls = array_merge($conf->modules_parts['tpl'], array($defaulttpldir));
        foreach ($dirtpls as $module => $reldir) {
          $res = 0;
          if (!empty($module)) {
            $tpl = dol_buildpath($reldir.'/objectline_title.tpl.php');
          } else {
            $tpl = DOL_DOCUMENT_ROOT.$reldir.'/objectline_title.tpl.php';
          }
          if (file_exists($tpl)) {
            if (empty($conf->file->strict_mode)) {
              $res = @include $tpl;
            } else {
              $res = include $tpl; // for debug
            }
          }
          if ($res) {
            break;
          }
        }
      }
 
      $i = 0;
 
      print "<!-- begin printObjectLines() -->\n";
      foreach ($this->lines as $line) {
        // Line extrafield. TODO Remove this. extrafields should be already loaded.
        //$line->fetch_optionals();
 
        if (is_object($hookmanager)) {
          if (empty($line->fk_parent_line)) {
            $parameters = array('line' => $line, 'num' => $num, 'i' => $i, 'dateSelector' => $dateSelector, 'seller' => $seller, 'buyer' => $buyer, 'selected' => $selected, 'table_element_line' => $line->table_element, 'defaulttpldir' => $defaulttpldir);
            $reshook = $hookmanager->executeHooks('printObjectLine', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
          } else {
            $parameters = array('line' => $line, 'num' => $num, 'i' => $i, 'dateSelector' => $dateSelector, 'seller' => $seller, 'buyer' => $buyer, 'selected' => $selected, 'table_element_line' => $line->table_element, 'fk_parent_line' => $line->fk_parent_line, 'defaulttpldir' => $defaulttpldir);
            $reshook = $hookmanager->executeHooks('printObjectSubLine', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
          }
        }
        if (empty($reshook)) {
          $this->printObjectLine($action, $line, '', $num, $i, $dateSelector, $seller, $buyer, $selected, $extrafields, $defaulttpldir);
        }
 
        $i++;
      }
      print "<!-- end printObjectLines() -->\n";
    }
  }
 
  public function printObjectLine($action, $line, $var, $num, $i, $dateSelector, $seller, $buyer, $selected = 0, $extrafields = null, $defaulttpldir = '/core/tpl')
  {
    global $conf, $langs, $user, $object, $hookmanager; // used into tpl
    global $form;
    global $disableedit, $disablemove, $disableremove; // TODO We should not use global var for this !
 
    // var used into tpl
    $text = '';
    $description = '';
 
    // Line in view mode
    if ($action != 'editline' || $selected != $line->id) {
      // Product
      if (!empty($line->fk_product) && $line->fk_product > 0) {
        $product_static = new Product($this->db);
        $product_static->fetch($line->fk_product);
 
        $product_static->ref = (string) $line->ref; //can change ref in hook
        // label is checked with empty @phan-suppress-next-line PhanUndeclaredProperty
        $product_static->label = !empty($line->label) ? $line->label : ""; //can change label in hook
 
        $text = $product_static->getNomUrl(1);
 
        // Define output language and label
        if (getDolGlobalInt('MAIN_MULTILANGS')) {
          // @phan-suppress-next-line PhanUndeclaredProperty
          if (property_exists($this, 'socid') && !empty($this->socid) && !is_object($this->thirdparty)) {
            dol_print_error(null, 'Error: Method printObjectLine was called on an object and object->fetch_thirdparty was not done before');
            return;
          }
 
          $prod = new Product($this->db);
          $prod->fetch($line->fk_product);
 
          $outputlangs = $langs;
          $newlang = '';
          if (empty($newlang) && GETPOST('lang_id', 'aZ09')) {
            $newlang = GETPOST('lang_id', 'aZ09');
          }
          if (getDolGlobalString('PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE') && empty($newlang) && is_object($this->thirdparty)) {
            $newlang = $this->thirdparty->default_lang; // To use language of customer
          }
          if (!empty($newlang)) {
            $outputlangs = new Translate("", $conf);
            $outputlangs->setDefaultLang($newlang);
          }
 
          $label = (!empty($prod->multilangs[$outputlangs->defaultlang]["label"])) ? $prod->multilangs[$outputlangs->defaultlang]["label"] : $line->product_label;
        } else {
          $label = $line->product_label;
        }
 
        // label is checked with empty @phan-suppress-next-line PhanUndeclaredProperty
        $text .= ' - '.(!empty($line->label) ? $line->label : $label);
        $description .= (getDolGlobalInt('PRODUIT_DESC_IN_FORM_ACCORDING_TO_DEVICE') ? '' : (!empty($line->description) ? dol_htmlentitiesbr($line->description) : '')); // Description is what to show on popup. We shown nothing if already into desc.
      }
 
      // Recalculate unit price with tax if not defined
      if (empty((float) $line->subprice_ttc) && $line->qty) { // subprice_ttc may be not stored on old version or not defined for lines with no unit price (like a discount)
        // So we calculate an estimated value just to show something on screen.
        // Not: the unit price is always for 100% of line, it is not a prorata of situation invoice (when total is)
        if ($line->remise_percent != 100) {
          // Suppose situation_percent is defined @phan-suppress-next-line PhanUndeclaredProperty
          $line->subprice_ttc = (float) price2num($line->total_ttc * ($line->situation_percent ? 100 / $line->situation_percent : 1) / $line->qty / (1 - $line->remise_percent / 100), 'MU');
        } else {
          // Other method is less accurate
          $line->subprice_ttc = (float) price2num((!empty($line->subprice) ? $line->subprice : 0) * (1 + ((!empty($line->tva_tx) ? $line->tva_tx : 0) / 100)), 'MU');
        }
      }
      $line->pu_ttc = $line->subprice_ttc;  // deprecated
 
      // Output template part (modules that overwrite templates must declare this into descriptor)
      // Use global variables + $dateSelector + $seller and $buyer
      // Note: This is deprecated. If you need to overwrite the tpl file, use instead the hook printObjectLine and printObjectSubLine.
 
      $qty_shipped = 0;
      if (isset($this->expeditions[$line->id])) { // @phan-suppress-current-line PhanUndeclaredProperty
        // Suppose existence of expeditions is tested @phan-suppress-next-line PhanUndeclaredProperty
        $qty_shipped = $this->expeditions[$line->id];
      }
      $disableedit = ($qty_shipped > 0) && ($qty_shipped >= $line->qty);
 
      $dirtpls = array_merge($conf->modules_parts['tpl'], array($defaulttpldir));
      foreach ($dirtpls as $module => $reldir) {
        $res = 0;
        if (!empty($module)) {
          $tpl = dol_buildpath($reldir.'/objectline_view.tpl.php');
        } else {
          $tpl = DOL_DOCUMENT_ROOT.$reldir.'/objectline_view.tpl.php';
        }
        //var_dump($tpl);
        if (file_exists($tpl)) {
          if (empty($conf->file->strict_mode)) {
            $res = @include $tpl;
          } else {
            $res = include $tpl; // for debug
          }
        }
        if ($res) {
          break;
        }
      }
    }
 
    // Line in update mode
    if ($this->status == 0 && $action == 'editline' && $selected == $line->id) {
      // label is tested @phan-suppress-next-line PhanUndeclaredProperty
      $label = (!empty($line->label) ? $line->label : (($line->fk_product > 0) ? $line->product_label : ''));
 
      $line->subprice_ttc = (float) price2num($line->subprice * (1 + ($line->tva_tx / 100)), 'MU');
      $line->pu_ttc = $line->subprice_ttc;  // deprecated
 
      // Output template part (modules that overwrite templates must declare this into descriptor)
      // Use global variables + $dateSelector + $seller and $buyer
      // Note: This is deprecated. If you need to overwrite the tpl file, use instead the hook printObjectLine and printObjectSubLine.
      $dirtpls = array_merge($conf->modules_parts['tpl'], array($defaulttpldir));
      foreach ($dirtpls as $module => $reldir) {
        if (!empty($module)) {
          $tpl = dol_buildpath($reldir.'/objectline_edit.tpl.php');
        } else {
          $tpl = DOL_DOCUMENT_ROOT.$reldir.'/objectline_edit.tpl.php';
        }
 
        if (empty($conf->file->strict_mode)) {
          $res = @include $tpl;
        } else {
          $res = include $tpl; // for debug
        }
        if ($res) {
          break;
        }
      }
    }
  }
 
 
  /* This is to show array of line of details of source object */
 
 
  public function printOriginLinesList($restrictlist = '', $selectedLines = array())
  {
    global $langs, $hookmanager, $form, $action;
 
    print '<!-- printOriginLinesList '.get_class($this).' -->'."\n";
    print '<tr class="liste_titre">';
    print '<td class="linecolref">'.$langs->trans('Ref').'</td>';
    print '<td class="linecoldescription">'.$langs->trans('Description').'</td>';
    print '<td class="linecolvat right">'.$langs->trans('VATRate').'</td>';
    print '<td class="linecoluht right">'.$langs->trans('PriceUHT').'</td>';
    if (isModEnabled("multicurrency")) {
      print '<td class="linecoluht_currency right">'.$langs->trans('PriceUHTCurrency').'</td>';
    }
    print '<td class="linecolqty right">'.$langs->trans('Qty').'</td>';
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      print '<td class="linecoluseunit left">'.$langs->trans('Unit').'</td>';
    }
    print '<td class="linecoldiscount right">'.$langs->trans('ReductionShort').'</td>';
    print '<td class="linecolht right">'.$langs->trans('TotalHT').'</td>';
    print '<td class="center">';
    print $form->showCheckAddButtons('checkforselect', 1);
    print '</td>';
    print '</tr>';
    $i = 0;
 
    if (!empty($this->lines)) {
      foreach ($this->lines as $line) {
        $reshook = 0;
        //if (is_object($hookmanager) && (($line->product_type == 9 && !empty($line->special_code)) || !empty($line->fk_parent_line))) {
        if (is_object($hookmanager)) {   // Old code is commented on preceding line.
          $parameters = array('line' => $line, 'i' => $i, 'restrictlist' => $restrictlist, 'selectedLines' => $selectedLines);
          if (!empty($line->fk_parent_line)) {
            $parameters['fk_parent_line'] = $line->fk_parent_line;
          }
          $reshook = $hookmanager->executeHooks('printOriginObjectLine', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
        }
        if (empty($reshook)) {
          $this->printOriginLine($line, '', $restrictlist, '/core/tpl', $selectedLines);
        }
 
        $i++;
      }
    }
  }
 
  public function printOriginLine($line, $var, $restrictlist = '', $defaulttpldir = '/core/tpl', $selectedLines = array())
  {
    global $langs, $conf;
 
    //var_dump($line);
    if (!empty($line->date_start)) {
      // @phan-suppress-next-line PhanUndeclaredProperty
      $date_start = $line->date_start;
    } else {
      $date_start = $line->date_debut_prevue;
      if ($line->date_debut_reel) {
        $date_start = $line->date_debut_reel;
      }
    }
    if (!empty($line->date_end)) {
      // @phan-suppress-next-line PhanUndeclaredProperty
      $date_end = $line->date_end;
    } else {
      $date_end = $line->date_fin_prevue;
      if ($line->date_fin_reel) {
        $date_end = $line->date_fin_reel;
      }
    }
 
    // Set thevalue into ->tpl[] array.
    $this->tpl['id'] = $line->id;
 
    $this->tpl['label'] = '';
    if (!empty($line->fk_parent_line)) {
      $this->tpl['label'] .= img_picto('', 'rightarrow.png');
    }
 
    if (((int) $line->info_bits & 2) == 2) {  // TODO Not sure this is used for source object
      $discount = new DiscountAbsolute($this->db);
      if (property_exists($this, 'socid')) {
        // Tested if socid exists @phan-suppress-next-line PhanUndeclaredProperty
        $discount->fk_soc = $this->socid;
        // Tested if socid exists @phan-suppress-next-line PhanUndeclaredProperty
        $discount->socid = $this->socid;
      }
      $this->tpl['label'] .= $discount->getNomUrl(0, 'discount');
    } elseif (!empty($line->fk_product)) {
      $productstatic = new Product($this->db);
      $productstatic->id = $line->fk_product;
      $productstatic->ref = (string) $line->ref;
      $productstatic->type = $line->fk_product_type;
      if (empty($productstatic->ref)) {
        $line->fetch_product();
        $productstatic = $line->product;
      }
 
      $this->tpl['label'] .= $productstatic->getNomUrl(1);
      // Existence of $line->label is tested @phan-suppress-next-line PhanUndeclaredProperty
      $this->tpl['label'] .= ' - '.(!empty($line->label) ? $line->label : $line->product_label);
      // Dates
      if ($line->product_type == 1 && ($date_start || $date_end)) {
        $this->tpl['label'] .= get_date_range($date_start, $date_end);
      }
    } else {
      $this->tpl['label'] .= ($line->product_type == -1 ? '&nbsp;' : ($line->product_type == 1 ? img_object($langs->trans('Service'), 'service', 'class="pictofixedwidth"') : img_object($langs->trans('Product'), 'product', 'class="pictofixedwidth"')));
      if (!empty($line->desc)) {
        $this->tpl['label'] .= $line->desc;
      } else {
        // Supposes existence of $line->label @phan-suppress-next-line PhanUndeclaredProperty
        $this->tpl['label'] .= ($line->label ? '&nbsp;'.$line->label : '');
      }
 
      // Dates
      if ($line->product_type == 1 && ($date_start || $date_end)) {
        $this->tpl['label'] .= get_date_range($date_start, $date_end);
      }
    }
 
    if (!empty($line->desc)) {
      '@phan-var-force OrderLine|FactureLigne|ContratLigne|FactureFournisseurLigneRec|SupplierInvoiceLine|SupplierProposalLine $line';
      if ($line->desc == '(CREDIT_NOTE)') {  // TODO Not sure this is used for source object
        $discount = new DiscountAbsolute($this->db);
        $discount->fetch($line->fk_remise_except);
        $this->tpl['description'] = $langs->transnoentities("DiscountFromCreditNote", $discount->getNomUrl(0));
      } elseif ($line->desc == '(DEPOSIT)') {  // TODO Not sure this is used for source object
        $discount = new DiscountAbsolute($this->db);
        $discount->fetch($line->fk_remise_except);
        $this->tpl['description'] = $langs->transnoentities("DiscountFromDeposit", $discount->getNomUrl(0));
      } elseif ($line->desc == '(EXCESS RECEIVED)') {
        $discount = new DiscountAbsolute($this->db);
        $discount->fetch($line->fk_remise_except);
        $this->tpl['description'] = $langs->transnoentities("DiscountFromExcessReceived", $discount->getNomUrl(0));
      } elseif ($line->desc == '(EXCESS PAID)') {
        $discount = new DiscountAbsolute($this->db);
        $discount->fetch($line->fk_remise_except);
        $this->tpl['description'] = $langs->transnoentities("DiscountFromExcessPaid", $discount->getNomUrl(0));
      } else {
        $this->tpl['description'] = dol_trunc($line->desc, 60);
      }
    } else {
      $this->tpl['description'] = '&nbsp;';
    }
 
    // VAT Rate
    $this->tpl['vat_rate'] = vatrate($line->tva_tx, true);
    $this->tpl['vat_rate'] .= (((int) $line->info_bits & 1) == 1) ? '*' : '';
    if (!empty($line->vat_src_code) && !preg_match('/\‍(/', $this->tpl['vat_rate'])) {
      $this->tpl['vat_rate'] .= ' ('.$line->vat_src_code.')';
    }
 
    $this->tpl['price'] = price($line->subprice);
    $this->tpl['total_ht'] = price($line->total_ht);
    $this->tpl['multicurrency_price'] = price($line->multicurrency_subprice);
    $this->tpl['qty'] = (((int) $line->info_bits & 2) != 2) ? $line->qty : '&nbsp;';
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      $this->tpl['unit'] = $line->getLabelOfUnit('long', $langs);
      $this->tpl['unit_short'] = $line->getLabelOfUnit('short', $langs);
      //$this->tpl['unit_code'] = $line->getLabelOfUnit('code');
    }
    $this->tpl['remise_percent'] = (((int) $line->info_bits & 2) != 2) ? vatrate((string) $line->remise_percent, true) : '&nbsp;';
 
    // Is the line strike or not
    $this->tpl['strike'] = 0;
    if ($restrictlist == 'services' && $line->product_type != Product::TYPE_SERVICE) {
      $this->tpl['strike'] = 1;
    } elseif (defined('SUBTOTALS_SPECIAL_CODE') && $line->special_code == SUBTOTALS_SPECIAL_CODE) {
      // SUBTOTALS_SPECIAL_CODE is only defined when the subtotals module
      // is loaded (htdocs/subtotals/class/commonsubtotal.class.php:24).
      // Without the guard, printing origin lines from a PO into a vendor
      // invoice fatals (#37663). Other tpl files already follow this pattern.
      $this->tpl['strike'] = 1;
    }
 
    // Output template part (modules that overwrite templates must declare this into descriptor)
    // Use global variables + $dateSelector + $seller and $buyer
    $dirtpls = array_merge($conf->modules_parts['tpl'], array($defaulttpldir));
    foreach ($dirtpls as $module => $reldir) {
      if (!empty($module)) {
        $tpl = dol_buildpath($reldir.'/originproductline.tpl.php');
      } else {
        $tpl = DOL_DOCUMENT_ROOT.$reldir.'/originproductline.tpl.php';
      }
 
      if (empty($conf->file->strict_mode)) {
        $res = @include $tpl;
      } else {
        $res = include $tpl; // for debug
      }
      if ($res) {
        break;
      }
    }
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function add_element_resource($resource_id, $resource_type, $busy = 0, $mandatory = 0, $notrigger = 0)
  {
    // phpcs:enable
    global $user;
    $this->db->begin();
 
    $sql = "INSERT INTO ".$this->db->prefix()."element_resources (";
    $sql .= "resource_id";
    $sql .= ", resource_type";
    $sql .= ", element_id";
    $sql .= ", element_type";
    $sql .= ", busy";
    $sql .= ", mandatory";
    $sql .= ") VALUES (";
    $sql .= ((int) $resource_id);
    $sql .= ", '".$this->db->escape($resource_type)."'";
    $sql .= ", '".$this->db->escape((string) $this->id)."'";
    $sql .= ", '".$this->db->escape($this->element)."'";
    $sql .= ", '".$this->db->escape((string) $busy)."'";
    $sql .= ", '".$this->db->escape((string) $mandatory)."'";
    $sql .= ")";
 
    dol_syslog(get_class($this)."::add_element_resource", LOG_DEBUG);
    if ($this->db->query($sql)) {
      if (!$notrigger) {
        $result = $this->call_trigger(strtoupper($this->TRIGGER_PREFIX).'_ADD_RESOURCE', $user);
        if ($result < 0) {
          $this->db->rollback();
          return -1;
        }
      }
      $this->db->commit();
      return 1;
    } else {
      $this->error = $this->db->lasterror();
      $this->db->rollback();
      return  0;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_resource($rowid, $element = '', $notrigger = 0)
  {
    // phpcs:enable
    global $user;
 
    $this->db->begin();
 
    $sql = "DELETE FROM ".$this->db->prefix()."element_resources";
    $sql .= " WHERE rowid = ".((int) $rowid);
 
    dol_syslog(get_class($this)."::delete_resource", LOG_DEBUG);
 
    $resql = $this->db->query($sql);
    if (!$resql) {
      $this->error = $this->db->lasterror();
      $this->db->rollback();
      return -1;
    } else {
      if (!$notrigger) {
        $result = $this->call_trigger(strtoupper($this->TRIGGER_PREFIX).'_DELETE_RESOURCE', $user);
        if ($result < 0) {
          $this->db->rollback();
          return -1;
        }
      }
      $this->db->commit();
      return 1;
    }
  }
 
 
  public function __clone()
  {
    // Force a copy of this->lines, otherwise it will point to same object.
    if (isset($this->lines) && is_array($this->lines)) {
      $nboflines = count($this->lines);
      for ($i = 0; $i < $nboflines; $i++) {
        if (is_object($this->lines[$i])) {
          $this->lines[$i] = clone $this->lines[$i];
        }
      }
    }
  }
 
  protected function commonGenerateDocument($modelspath, $modele, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams = null)
  {
    global $conf, $langs, $hookmanager, $action;
 
    $srctemplatepath = '';
 
    $parameters = array('modelspath' => $modelspath, 'modele' => $modele, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'hidedesc' => $hidedesc, 'hideref' => $hideref, 'moreparams' => $moreparams);
    $reshook = $hookmanager->executeHooks('commonGenerateDocument', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($reshook)) {
      return $reshook;
    }
 
    dol_syslog("commonGenerateDocument modele=".$modele." outputlangs->defaultlang=".(is_object($outputlangs) ? $outputlangs->defaultlang : 'null'));
 
    if (empty($modele)) {
      $this->error = 'BadValueForParameterModele';
      return -1;
    }
 
    // Increase limit for PDF build
    $err = error_reporting();
    error_reporting(0);
    @set_time_limit(120);
    error_reporting($err);
 
    // If selected model is a filename template (then $modele="modelname" or "modelname:filename")
    $tmp = explode(':', $modele, 2);
    $saved_model = $modele;
    if (!empty($tmp[1])) {
      $modele = $tmp[0];
      $srctemplatepath = $tmp[1];
 
      if (!preg_match('/^'.preg_quote(DOL_DATA_ROOT, '/').'\/(ecm|doctemplates)/', $srctemplatepath)) {
        $this->error = 'BadDirForTemplateFile';
        return -1;
      }
    }
 
    // Search template files
    $file = '';
    $classname = '';
    $filefound = '';
    $dirmodels = array('/');
    if (is_array($conf->modules_parts['models'])) {
      $dirmodels = array_merge($dirmodels, $conf->modules_parts['models']);
    }
    foreach ($dirmodels as $reldir) {
      foreach (array('doc', 'pdf') as $prefix) {
        if (in_array(get_class($this), array('Adherent'))) {
          // Member module use prefix_modele.class.php
          $file = $prefix."_".$modele.".class.php";
        } else {
          // Other module use prefix_modele.modules.php
          $file = $prefix."_".$modele.".modules.php";
        }
 
        $file = dol_sanitizeFileName($file);
 
        // We check if the file exists
        $file = dol_buildpath($reldir.$modelspath.$file, 0);
        if (file_exists($file)) {
          $filefound = $file;
          $classname = $prefix.'_'.$modele;
          break;
        }
      }
      if ($filefound) {
        break;
      }
    }
 
    if ($filefound === '' || $classname === '') {
      $this->error = $langs->trans("Error").' Failed to load doc generator with modelpaths='.$modelspath.' - modele='.$modele;
      $this->errors[] = $this->error;
      dol_syslog($this->error, LOG_ERR);
      return -1;
    }
 
    // Sanitize $filefound
    $filefound = dol_sanitizePathName($filefound);
 
    // If generator was found
    global $db; // Required to solve a conception error making an include of some code that uses $db instead of $this->db just after.
 
    require_once $filefound;
 
    $obj = new $classname($this->db);
 
    // TODO: Check the following classes that seem possible for $obj, but removed for compatibility:
    //  ModeleBankAccountDoc|ModeleExpenseReport|ModelePDFBom|ModelePDFCommandes|ModelePDFContract|
    //  ModelePDFDeliveryOrder|ModelePDFEvaluation|ModelePDFFactures|ModelePDFFicheinter|
    //  ModelePDFMo|ModelePDFMovement|ModelePDFProduct|ModelePDFProjects|ModelePDFPropales|
    //  ModelePDFRecruitmentJobPosition|ModelePDFSupplierProposal|ModelePDFSuppliersInvoices|
    //  ModelePDFSuppliersOrders|ModelePDFSuppliersPayments|ModelePdfExpedition|ModelePdfReception|
    //  ModelePDFStock|ModelePDFStockTransfer|
    //  ModeleDon|ModelePDFTask|
    //  ModelePDFAsset|ModelePDFTicket|ModelePDFUserGroup|ModeleThirdPartyDoc|ModelePDFUser
    //  Has no write_file: ModeleBarCode|ModeleImports|ModeleExports|
    '@phan-var-force ModelePDFMember $obj';
    // '@phan-var-force ModelePDFMember|ModeleBarCode|ModeleDon|ModeleExports|ModeleImports|ModelePDFAsset|ModelePDFContract|ModelePDFDeliveryOrder|ModelePDFEvaluation|ModelePDFFactures|ModelePDFFicheinter|ModelePDFMo|ModelePDFMovement|ModelePDFProduct|ModelePDFProjects|ModelePDFPropales|ModelePDFRecruitmentJobPosition|ModelePDFStock|ModelePDFStockTransfer|ModelePDFSupplierProposal|ModelePDFSuppliersInvoices|ModelePDFSuppliersOrders|ModelePDFSuppliersPayments|ModelePDFTask|ModelePDFTicket|ModelePDFUser|ModelePDFUserGroup|ModelePdfExpedition|ModelePdfReception|ModeleThirdPartyDoc $obj';
 
    // If generator is ODT, we must have srctemplatepath defined, if not we set it.
    if ($obj->type == 'odt' && empty($srctemplatepath)) {
      $varfortemplatedir = $obj->scandir;
      if ($varfortemplatedir && getDolGlobalString($varfortemplatedir)) {
        $dirtoscan = getDolGlobalString($varfortemplatedir);
 
        $listoffiles = array();
 
        // Now we add first model found in directories scanned
        $listofdir = explode(',', $dirtoscan);
        foreach ($listofdir as $key => $tmpdir) {
          $tmpdir = trim($tmpdir);
          $tmpdir = preg_replace('/DOL_DATA_ROOT/', DOL_DATA_ROOT, $tmpdir);
          if (!$tmpdir) {
            unset($listofdir[$key]);
            continue;
          }
          if (is_dir($tmpdir)) {
            $tmpfiles = dol_dir_list($tmpdir, 'files', 0, '\.od(s|t)$', '', 'name', SORT_ASC, 0);
            if (count($tmpfiles)) {
              $listoffiles = array_merge($listoffiles, $tmpfiles);
            }
          }
        }
 
        if (count($listoffiles)) {
          foreach ($listoffiles as $record) {
            $srctemplatepath = $record['fullname'];
            break;
          }
        }
      }
 
      if (empty($srctemplatepath)) {
        $this->error = 'ErrorGenerationAskedForOdtTemplateWithSrcFileNotDefined';
        return -1;
      }
    }
 
    if ($obj->type == 'odt' && !empty($srctemplatepath)) {
      if (!dol_is_file($srctemplatepath)) {
        dol_syslog("Failed to locate template file ".$srctemplatepath, LOG_WARNING);
        $this->error = 'ErrorGenerationAskedForOdtTemplateWithSrcFileNotFound';
        return -1;
      }
    }
 
    // We save charset_output to restore it because write_file can change it if needed for
    // output format that does not support UTF8.
    $sav_charset_output = empty($outputlangs->charset_output) ? '' : $outputlangs->charset_output;
 
    // update model_pdf in object
    $this->model_pdf = $saved_model;
 
    try {
      if ($obj instanceof ModelePDFMember) {
        if ($this instanceof Adherent) {
          $resultwritefile = $obj->write_file($this, $outputlangs, $srctemplatepath, 'member', 1, 'tmp_cards');
        } else {
          $resultwritefile = -1;
          dol_syslog("Error generating document - Provided ".get_class($this)." to ".get_class($obj)."::write_file()", LOG_ERR);
        }
      } elseif ($obj instanceof ModeleDon) {
        // Only 3 arguments
        if ($this instanceof Don) {
          $resultwritefile = $obj->write_file($this, $outputlangs /*, $currency */);
        } else {
          $resultwritefile = -1;
          dol_syslog("Error generating document - Provided ".get_class($this)." to Don::write_file()", LOG_ERR);
        }
      } else {
        // TODO: Try to set type above again
        '@phan-var-force ModeleBarCode|ModeleExports|ModeleImports|ModelePDFAsset|ModelePDFContract|ModelePDFDeliveryOrder|ModelePDFEvaluation|ModelePDFFactures|ModelePDFFicheinter|ModelePDFMo|ModelePDFMovement|ModelePDFProduct|ModelePDFProjects|ModelePDFPropales|ModelePDFRecruitmentJobPosition|ModelePDFStock|ModelePDFStockTransfer|ModelePDFSupplierProposal|ModelePDFSuppliersInvoices|ModelePDFSuppliersOrders|ModelePDFSuppliersPayments|ModelePDFTask|ModelePDFTicket|ModelePDFUser|ModelePDFUserGroup|ModelePdfExpedition|ModelePdfReception|ModeleThirdPartyDoc $obj';
        $this->context['moreparams'] = $moreparams;
        $resultwritefile = $obj->write_file($this, $outputlangs, $srctemplatepath, $hidedetails, $hidedesc, $hideref); // @phan-suppress-current-line PhanTypeMismatchArgument
      }
    } catch (\Throwable $e) {
      $resultwritefile = -1;
      $this->error = $e->getMessage();
      dol_syslog("Exception in write_file() for ".get_class($this).": ".$e->getMessage(), LOG_ERR);
    }
    // After call of write_file $obj->result['fullpath'] is set with generated file. It will be used to update the ECM database index.
 
 
    if ($resultwritefile > 0) {
      $outputlangs->charset_output = $sav_charset_output;
 
      // We delete old preview
      require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
      dol_delete_preview($this);
 
      // Index file in database
      if (!empty($obj->result['fullpath'])) {
        $destfull = $obj->result['fullpath'];
 
        // Update the last_main_doc field into main object (if document generator has property ->update_main_doc_field set)
        $update_main_doc_field = 0;
        if (!empty($obj->update_main_doc_field)) {
          $update_main_doc_field = 1;
        }
 
        // Check that the file exists, before indexing it.
        // Hint: It does not exist, if we create a PDF and auto delete the ODT File
        if (dol_is_file($destfull)) {
          $this->indexFile($destfull, $update_main_doc_field);
        }
      } else {
        dol_syslog('Method ->write_file was called on object '.get_class($obj).' and return a success but the return array ->result["fullpath"] was not set.', LOG_WARNING);
      }
 
      // Success in building document. We build meta file.
      dol_meta_create($this);
 
      $this->warnings = $obj->warnings;
 
      return 1;
    } else {
      $outputlangs->charset_output = $sav_charset_output;
      if (empty($this->error)) {
        $this->error = $obj->error;
      }
      if (empty($this->errors)) {
        $this->errors = $obj->errors;
      }
      $this->warnings = $obj->warnings;
      dol_syslog("Error generating document for ".__CLASS__.". Error: ".$this->error, LOG_ERR);
      return -1;
    }
  }
 
  public function indexFile($destfull, $update_main_doc_field)
  {
    global $conf, $user;
 
    $upload_dir = dirname($destfull);
    $destfile = basename($destfull);
    $rel_dir = preg_replace('/^'.preg_quote(DOL_DATA_ROOT, '/').'/', '', $upload_dir);
 
    if (!preg_match('/[\\/]temp[\\/]|[\\/]thumbs|\.meta$/', $rel_dir)) {     // If not a tmp dir
      $filename = basename($destfile);
      $rel_dir = preg_replace('/[\\/]$/', '', $rel_dir);
      $rel_dir = preg_replace('/^[\\/]/', '', $rel_dir);
 
      include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
      $ecmfile = new EcmFiles($this->db);
      $result = $ecmfile->fetch(0, '', ($rel_dir ? $rel_dir.'/' : '').$filename);
 
      // Set the public "share" key
      $setsharekey = false;
      if (
        !empty($this->TRIGGER_PREFIX)
        && (getDolGlobalInt($this->TRIGGER_PREFIX . "_ALLOW_EXTERNAL_DOWNLOAD") || getDolGlobalInt($this->TRIGGER_PREFIX . "_ALLOW_ONLINESIGN"))
      ) {
        $setsharekey = true;
      }
      // TODO Remove case covered by trigger prefix
      if ($this->element == 'propal' || $this->element == 'proposal') {
        if (getDolGlobalInt("PROPOSAL_ALLOW_ONLINESIGN")) {
          $setsharekey = true;  // feature to make online signature is not set or set to on (default)
        }
        if (getDolGlobalInt("PROPOSAL_ALLOW_EXTERNAL_DOWNLOAD")) {
          $setsharekey = true;
        }
      }
      if ($this->element == 'facture' && getDolGlobalInt("INVOICE_ALLOW_EXTERNAL_DOWNLOAD")) {
        $setsharekey = true;
      }
      if ($this->element == 'bank_account' && getDolGlobalInt("BANK_ACCOUNT_ALLOW_EXTERNAL_DOWNLOAD")) {
        $setsharekey = true;
      }
      if ($this->element == 'contrat' && getDolGlobalInt("CONTRACT_ALLOW_EXTERNAL_DOWNLOAD")) {
        $setsharekey = true;
      }
      if ($this->element == 'supplier_proposal' && getDolGlobalInt("SUPPLIER_PROPOSAL_ALLOW_EXTERNAL_DOWNLOAD")) {
        $setsharekey = true;
      }
      if ($this->element == 'order_supplier' && getDolGlobalInt("SUPPLIER_ORDER_ALLOW_EXTERNAL_DOWNLOAD")) {
        $setsharekey = true;
      }
      if ($this->element == 'invoice_supplier' && getDolGlobalInt("SUPPLIER_INVOICE_ALLOW_EXTERNAL_DOWNLOAD")) {
        $setsharekey = true;
      }
      if ($this->element == 'societe_rib' && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
        $setsharekey = true;
      }
 
      if ($setsharekey) {
        if (empty($ecmfile->share)) { // Because object not found or share not set yet
          require_once DOL_DOCUMENT_ROOT.'/core/lib/security2.lib.php';
          $ecmfile->share = getRandomPassword(true);
        }
      }
 
      if ($result > 0) {
        $ecmfile->label = md5_file(dol_osencode($destfull)); // hash of file content
        $ecmfile->fullpath_orig = '';
        $ecmfile->gen_or_uploaded = 'generated';
        $ecmfile->description = ''; // indexed content
        $ecmfile->keywords = ''; // keyword content
        $ecmfile->src_object_type = $this->table_element;
        $ecmfile->src_object_id = $this->id;
        $result = $ecmfile->update($user);
        if ($result < 0) {
          setEventMessages($ecmfile->error, $ecmfile->errors, 'warnings');
          return -1;
        }
      } else {
        $ecmfile->entity = $conf->entity;
        $ecmfile->filepath = $rel_dir;
        $ecmfile->filename = $filename;
        $ecmfile->label = md5_file(dol_osencode($destfull)); // hash of file content
        $ecmfile->fullpath_orig = '';
        $ecmfile->gen_or_uploaded = 'generated';
        $ecmfile->description = ''; // indexed content
        $ecmfile->keywords = ''; // keyword content
        $ecmfile->src_object_type = $this->table_element; // $this->table_name is 'myobject' or 'mymodule_myobject'.
        $ecmfile->src_object_id   = $this->id;
 
        $result = $ecmfile->create($user);
        if ($result < 0) {
          setEventMessages($ecmfile->error, $ecmfile->errors, 'warnings');
          return -1;
        }
      }
 
      /*$this->result['fullname']=$destfull;
       $this->result['filepath']=$ecmfile->filepath;
       $this->result['filename']=$ecmfile->filename;*/
      //var_dump($obj->update_main_doc_field);exit;
 
      if ($update_main_doc_field && !empty($this->table_element)) {
        $sql = "UPDATE ".$this->db->prefix().$this->table_element." SET last_main_doc = '".$this->db->escape($ecmfile->filepath."/".$ecmfile->filename)."'";
        $sql .= " WHERE rowid = ".((int) $this->id);
 
        $resql = $this->db->query($sql);
        if (!$resql) {
          dol_print_error($this->db);
          return -1;
        } else {
          $this->last_main_doc = $ecmfile->filepath.'/'.$ecmfile->filename;
        }
      }
    }
 
    return 1;
  }
 
  public function addThumbs($file, $quality = 50)
  {
    $file_osencoded = dol_osencode($file);
 
    if (file_exists($file_osencoded)) {
      require_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
 
      $tmparraysize = getDefaultImageSizes();
      $maxwidthsmall = $tmparraysize['maxwidthsmall'];
      $maxheightsmall = $tmparraysize['maxheightsmall'];
      $maxwidthmini = $tmparraysize['maxwidthmini'];
      $maxheightmini = $tmparraysize['maxheightmini'];
      //$quality = $tmparraysize['quality'];
 
      // Create small thumbs for company (Ratio is near 16/9)
      // Used on logon for example
      vignette($file_osencoded, $maxwidthsmall, $maxheightsmall, '_small', $quality);
 
      // Create mini thumbs for company (Ratio is near 16/9)
      // Used on menu or for setup page for example
      vignette($file_osencoded, $maxwidthmini, $maxheightmini, '_mini', $quality);
    }
  }
 
  public function delThumbs($file)
  {
    $imgThumbName = getImageFileNameForSize($file, '_small'); // Full path of thumb file
    dol_delete_file($imgThumbName);
    $imgThumbName = getImageFileNameForSize($file, '_mini'); // Full path of thumb file
    dol_delete_file($imgThumbName);
  }
 
 
  /* Functions common to commonobject and commonobjectline */
 
  /* For default values */
 
  public function getDefaultCreateValueFor($fieldname, $alternatevalue = null, $type = 'alphanohtml')
  {
    /* TODO Remove this. Must use now something like:
      $note_private = GETPOST('note_private', 'restricthtml');
      if (!GETPOSTISSET('note_private') && empty($note_private) && !empty($objectsrc) [&& othercondtion]) {
        $note_private = $objectsrc->note_private;
      }
    */
 
    // If param here has been posted, we use this value first.
    if (GETPOSTISSET($fieldname)) {
      return GETPOST($fieldname, $type, 3);
    }
 
    if (isset($alternatevalue)) {
      return $alternatevalue;
    }
 
    $newelement = $this->element;
    if ($newelement == 'facture') {
      $newelement = 'invoice';
    }
    if ($newelement == 'commande') {
      $newelement = 'order';
    }
    if (empty($newelement)) {
      dol_syslog("Ask a default value using common method getDefaultCreateValueForField on an object with no property ->element defined. Return empty string.", LOG_WARNING);
      return '';
    }
 
    $keyforfieldname = strtoupper($newelement.'_DEFAULT_'.$fieldname);
    //var_dump($keyforfieldname);
    if (getDolGlobalString($keyforfieldname)) {
      return getDolGlobalString($keyforfieldname);
    }
 
    // TODO Ad here a scan into table llx_overwrite_default with a filter on $this->element and $fieldname
    // store content into $conf->cache['overwrite_default']
 
    return '';
  }
 
 
  /* Functions for data in other language */
 
 
  public function fetchValuesForExtraLanguages()
  {
    // To avoid SQL errors. Probably not the better solution though
    if (!$this->element) {
      return 0;
    }
    if (!($this->id > 0)) {
      return 0;
    }
    if (is_array($this->array_languages)) {
      return 1;
    }
 
    $this->array_languages = array();
 
    $element = $this->element;
    if ($element == 'categorie') {
      $element = 'categories'; // For compatibility
    }
 
    // Request to get translation values for object
    $sql = "SELECT rowid, property, lang , value";
    $sql .= " FROM ".$this->db->prefix()."object_lang";
    $sql .= " WHERE type_object = '".$this->db->escape($element)."'";
    $sql .= " AND fk_object = ".((int) $this->id);
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $numrows = $this->db->num_rows($resql);
      if ($numrows) {
        $i = 0;
        while ($i < $numrows) {
          $obj = $this->db->fetch_object($resql);
          $key = $obj->property;
          $value = $obj->value;
          $codelang = $obj->lang;
          $type = $this->fields[$key]['type'];
 
          // we can add this attribute to object
          if (preg_match('/date/', $type)) {
            $this->array_languages[$key][$codelang] = $this->db->jdate($value);
          } else {
            $this->array_languages[$key][$codelang] = $value;
          }
 
          $i++;
        }
      }
 
      $this->db->free($resql);
 
      if ($numrows) {
        return $numrows;
      } else {
        return 0;
      }
    } else {
      dol_print_error($this->db);
      return -1;
    }
  }
 
  public function setValuesForExtraLanguages($onlykey = '')
  {
    // Get extra fields
    foreach ($_POST as $postfieldkey => $postfieldvalue) {
      $tmparray = explode('-', $postfieldkey);
      if ($tmparray[0] != 'field') {
        continue;
      }
 
      $element = $tmparray[1];
      $key = $tmparray[2];
      $codelang = $tmparray[3];
      //var_dump("postfieldkey=".$postfieldkey." element=".$element." key=".$key." codelang=".$codelang);
 
      if (!empty($onlykey) && $key != $onlykey) {
        continue;
      }
      if ($element != $this->element) {
        continue;
      }
 
      $key_type = $this->fields[$key]['type'];
 
      $enabled = 1;
      if (isset($this->fields[$key]['enabled'])) {
        $enabled = (int) dol_eval((string) $this->fields[$key]['enabled'], 1, 1, '1');
      }
      /*$perms = 1;
       if (isset($this->fields[$key]['perms']))
       {
       $perms = (int) dol_eval((string) $this->fields[$key]['perms'], 1, 1, '1');
       }*/
      if (empty($enabled)) {
        continue;
      }
      //if (empty($perms)) continue;
 
      if (in_array($key_type, array('date'))) {
        // Clean parameters
        // TODO GMT date in memory must be GMT so we should add gm=true in parameters
        $value_key = dol_mktime(0, 0, 0, GETPOSTINT($postfieldkey."month"), GETPOSTINT($postfieldkey."day"), GETPOSTINT($postfieldkey."year"));
      } elseif (in_array($key_type, array('datetime'))) {
        // Clean parameters
        // TODO GMT date in memory must be GMT so we should add gm=true in parameters
        $value_key = dol_mktime(GETPOSTINT($postfieldkey."hour"), GETPOSTINT($postfieldkey."min"), 0, GETPOSTINT($postfieldkey."month"), GETPOSTINT($postfieldkey."day"), GETPOSTINT($postfieldkey."year"));
      } elseif (in_array($key_type, array('checkbox', 'chkbxlst'))) {
        $value_arr = GETPOST($postfieldkey, 'array'); // check if an array
        if (!empty($value_arr)) {
          $value_key = implode(',', $value_arr);
        } else {
          $value_key = '';
        }
      } elseif (in_array($key_type, array('price', 'double'))) {
        $value_arr = GETPOST($postfieldkey, 'alpha');
        $value_key = price2num($value_arr);
      } else {
        $value_key = GETPOST($postfieldkey);
        if (in_array($key_type, array('link')) && $value_key == '-1') {
          $value_key = '';
        }
      }
 
      $this->array_languages[$key][$codelang] = $value_key;
 
      /*if ($nofillrequired) {
       $langs->load('errors');
       setEventMessages($langs->trans('ErrorFieldsRequired').' : '.implode(', ', $error_field_required), null, 'errors');
       return -1;
       }*/
    }
 
    return 1;
  }
 
 
  /* Functions for extrafields */
 
  public function fetchNoCompute($id)
  {
    global $conf;
 
    $savDisableCompute = $conf->disable_compute;
    $conf->disable_compute = 1;
 
    $ret = $this->fetch($id); /* @phpstan-ignore-line */
 
    $conf->disable_compute = $savDisableCompute;
 
    return $ret;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_optionals($rowid = null, $optionsArray = null)
  {
    // phpcs:enable
    global $conf, $extrafields;
 
    if (empty($rowid)) {
      $rowid = $this->id;
    }
    if (empty($rowid) && isset($this->rowid)) {  // @phan-suppress-current-line PhanUndeclaredProperty
      $rowid = $this->rowid; // deprecated  @phan-suppress-current-line PhanUndeclaredProperty
    }
 
    // To avoid SQL errors. Probably not the better solution though
    if (!$this->table_element) {
      return 0;
    }
    $this->array_options = array();
 
    if (!is_array($optionsArray)) {
      // If $extrafields is not a known object, we initialize it. Best practice is to have $extrafields defined into card.php or list.php page.
      if (!isset($extrafields) || !is_object($extrafields)) {
        require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
        $extrafields = new ExtraFields($this->db);
      }
 
      // Load array of extrafields for elementype = $this->table_element
      if (empty($extrafields->attributes[$this->table_element]['loaded'])) {
        $extrafields->fetch_name_optionals_label($this->table_element);
      }
      $optionsArray = (!empty($extrafields->attributes[$this->table_element]['label']) ? $extrafields->attributes[$this->table_element]['label'] : null);
    } else {
      global $extrafields;
      dol_syslog("Warning: fetch_optionals was called with param optionsArray defined when you should pass null now", LOG_WARNING);
    }
 
    $table_element = $this->table_element;
    if ($table_element == 'categorie') {
      $table_element = 'categories'; // For compatibility
    }
 
    // Request to get complementary values
    if (is_array($optionsArray) && count($optionsArray) > 0) {
      $sql = "SELECT rowid";
      foreach ($optionsArray as $name => $label) {
        if (empty($extrafields->attributes[$this->table_element]['type'][$name]) || (!in_array($extrafields->attributes[$this->table_element]['type'][$name], ['separate', 'point', 'multipts', 'linestrg','polygon']))) {
          $sql .= ", ".$this->db->sanitize($name);
        }
        // use geo sql function to read as text
        if (!empty($extrafields->attributes[$this->table_element]['type'][$name]) && in_array($extrafields->attributes[$this->table_element]['type'][$name], array('point', 'multipts', 'linestrg', 'polygon'))) {
          // TODO Add an abstraction method in the database driver
          $sql .= ", ST_AsWKT(".$this->db->sanitize($name).") as ".$this->db->sanitize($name);
        }
      }
      $sql .= " FROM ".$this->db->prefix().$table_element."_extrafields";
      $sql .= " WHERE fk_object = ".((int) $rowid);
 
      //dol_syslog(get_class($this)."::fetch_optionals get extrafields data for ".$this->table_element, LOG_DEBUG);   // Too verbose
      $resql = $this->db->query($sql);
      if ($resql) {
        $numrows = $this->db->num_rows($resql);
        if ($numrows) {
          $tab = $this->db->fetch_array($resql);
          foreach ($tab as $key => $value) {
            // Test fetch_array ! is_int($key) because fetch_array result is a mix table with Key as alpha and Key as int (depend db engine)
            if ($key != 'rowid' && $key != 'tms' && $key != 'fk_member' && !is_int($key)) {
              // we can add this attribute to object
              if (!empty($extrafields->attributes[$this->table_element]) && in_array($extrafields->attributes[$this->table_element]['type'][$key], array('date', 'datetime'))) {
                //var_dump($extrafields->attributes[$this->table_element]['type'][$key]);
                $this->array_options["options_".$key] = $this->db->jdate($value);
              } else {
                $this->array_options["options_".$key] = $value;
              }
 
              //var_dump('key '.$key.' '.$value.' type='.$extrafields->attributes[$this->table_element]['type'][$key].' '.$this->array_options["options_".$key]);
            }
            if (!empty($extrafields->attributes[$this->table_element]['type'][$key]) && $extrafields->attributes[$this->table_element]['type'][$key] == 'password') {
              if (!empty($value) && preg_match('/^dolcrypt:/', $value)) {
                $this->array_options["options_".$key] = dolDecrypt($value);
              }
            }
          }
        } else {
          if (is_array($extrafields->attributes[$this->table_element]['label'])) {
            foreach ($extrafields->attributes[$this->table_element]['label'] as $key => $val) {
              $this->array_options['options_' . $key] = null;
            }
          }
        }
 
        // If field is a computed field, value must become result of compute (regardless of whether a row exists
        // in the element's extrafields table)
        if (is_array($extrafields->attributes[$this->table_element]['label'])) {
          foreach ($extrafields->attributes[$this->table_element]['label'] as $key => $val) {
            if (!empty($extrafields->attributes[$this->table_element]) && !empty($extrafields->attributes[$this->table_element]['computed'][$key])) {
              //var_dump($conf->disable_compute);
              if (empty($conf->disable_compute)) {
                // We set a global variable to $objectoffield so we can use it inside computed formula
                $objectoffield = dol_clone($this, 2);
                global $objectoffield;
                $this->array_options['options_' . $key] = dol_eval((string) $extrafields->attributes[$this->table_element]['computed'][$key], 1, 0, '2');
              }
            }
          }
        }
 
        $this->db->free($resql);
 
        if ($numrows) {
          return $numrows;
        } else {
          return 0;
        }
      } else {
        $this->errors[] = $this->db->lasterror();
        return -1;
      }
    }
    return 0;
  }
 
  public function deleteExtraFields()
  {
    if (getDolGlobalString('MAIN_EXTRAFIELDS_DISABLED')) {
      return 0;
    }
 
    $this->db->begin();
 
    $table_element = $this->table_element;
    if ($table_element == 'categorie') {
      $table_element = 'categories'; // For compatibility
    }
 
    dol_syslog(get_class($this)."::deleteExtraFields delete", LOG_DEBUG);
 
    $sql_del = "DELETE FROM ".$this->db->prefix().$table_element."_extrafields WHERE fk_object = ".((int) $this->id);
 
    $resql = $this->db->query($sql_del);
    if (!$resql) {
      $this->error = $this->db->lasterror();
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return 1;
    }
  }
 
  public function insertExtraFields($trigger = '', $userused = null)
  {
    global $langs, $extrafields, $user;
 
    if (getDolGlobalString('MAIN_EXTRAFIELDS_DISABLED') || empty($this->array_options)) {
      return 0;
    }
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    // Check parameters
    $langs->load('admin');
    if (!isset($extrafields) || !is_object($extrafields)) {
      require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
      $extrafields = new ExtraFields($this->db);
    }
    $target_extrafields = $extrafields->fetch_name_optionals_label($this->table_element);
 
    // Eliminate copied source object extra fields that do not exist in target object
    $new_array_options = array();
    foreach ($this->array_options as $key => $value) {
      if (in_array(substr($key, 8), array_keys($target_extrafields))) { // We remove the 'options_' from $key for test
        $new_array_options[$key] = $value;
      } elseif (in_array($key, array_keys($target_extrafields))) {    // We test on $key that does not contain the 'options_' prefix
        $new_array_options['options_'.$key] = $value;
      }
    }
 
    foreach ($new_array_options as $key => $value) {
      $attributeKey      = substr($key, 8); // Remove 'options_' prefix
      $attributeType     = $extrafields->attributes[$this->table_element]['type'][$attributeKey];
      $attributeLabel    = $langs->transnoentities($extrafields->attributes[$this->table_element]['label'][$attributeKey]);
      $attributeParam    = $extrafields->attributes[$this->table_element]['param'][$attributeKey];
      $attributeRequired = $extrafields->attributes[$this->table_element]['required'][$attributeKey];
      $attributeUnique   = $extrafields->attributes[$this->table_element]['unique'][$attributeKey];
      $attrfieldcomputed = $extrafields->attributes[$this->table_element]['computed'][$attributeKey];
      $attributeEmptyOnClone = $extrafields->attributes[$this->table_element]['emptyonclone'][$attributeKey];
      /*
      $attributeEnabled  = $extrafields->attributes[$this->table_element]['enabled'][$attributeKey];
      $enabled = 0;
      if (!empty($extrafields->attributes[$this->table_element]['enabled'][$key])) {
        $enabled = (int) dol_eval((string) $extrafields->attributes[$this->table_element]['enabled'][$key], 1, 1, '2');
      }
      */
 
      // If we clone, we have to clean unique extrafields to prevent duplicates.
      // If we clone, we have to clean extrafields having "empty on clone" option on.
      // This behaviour can be prevented by external code by changing $this->context['createfromclone'] value in createFrom hook
      if (!empty($this->context['createfromclone']) && $this->context['createfromclone'] == 'createfromclone' && (!empty($attributeUnique) || !empty($attributeEmptyOnClone))) {
        $new_array_options[$key] = null;
        continue;
      }
 
      // If we create product combination, we have to clean unique extrafields to prevent duplicates.
      // This behaviour can be prevented by external code by changing $this->context['createproductcombination'] value in hook
      if (!empty($this->context['createproductcombination']) && $this->context['createproductcombination'] == 'createproductcombination' && !empty($attributeUnique)) {
        $new_array_options[$key] = null;
        continue;
      }
 
      // Similar code than into insertExtraFields
      if ($attributeRequired) { // If attribute is "Mandatory", then it is also in database as "Not null", so we must check even if attribute is not 'enabled'.
        $v = $this->array_options[$key];
        if (ExtraFields::isEmptyValue($v, $attributeType)) {
          $langs->load("errors");
          dol_syslog("Mandatory field '".$key."' is empty during create and set to required into definition of extrafields");
          $this->errors[] = $langs->trans('ErrorFieldRequired', $attributeLabel);
          return -1;
        }
      }
 
      if (!empty($attrfieldcomputed)) {
        if (getDolGlobalString('MAIN_STORE_COMPUTED_EXTRAFIELDS')) {
          global $objectoffield;    // We set a global variable to $objectoffield so
          $objectoffield = $this;   // we can use it inside the computed formula
          $value = dol_eval((string) $attrfieldcomputed, 1, 0, '2');
          dol_syslog($langs->trans("Extrafieldcomputed")." on ".$attributeLabel."(".$value.")", LOG_DEBUG);
          $new_array_options[$key] = $value;
        } else {
          $new_array_options[$key] = null;
        }
        continue;
      }
 
      switch ($attributeType) {
        case 'int':
        case 'duration':
        case 'stars':
          if (!is_numeric($value) && $value != '') {
            $this->errors[] = $langs->trans("ExtraFieldHasWrongValue", $attributeLabel);
            return -1;
          } elseif ($value === '') {
            $new_array_options[$key] = null;
          }
          break;
        case 'boolean':
          if ($value === '' || $value === false || $value === null) {
            $new_array_options[$key] = null;
          }
          break;
        case 'price':
        case 'double':
          $value = price2num($value);
          if (!is_numeric($value) && $value != '') {
            dol_syslog($langs->trans("ExtraFieldHasWrongValue")." for ".$attributeLabel."(".$value."is not '".$attributeType."')", LOG_DEBUG);
            $this->errors[] = $langs->trans("ExtraFieldHasWrongValue", $attributeLabel);
            return -1;
          } elseif ($value == '') {
            $value = null;
          }
          //dol_syslog("double value"." on ".$attributeLabel."(".$value." is '".$attributeType."')", LOG_DEBUG);
          $new_array_options[$key] = $value;
          break;
          /*case 'select':  // Not required, we chose value='0' for undefined values
           if ($value=='-1')
           {
           $this->array_options[$key] = null;
           }
           break;*/
        case 'password':
          $algo = '';
          if ($this->array_options[$key] != '' && is_array($extrafields->attributes[$this->table_element]['param'][$attributeKey]['options'])) {
            // If there is an encryption choice, we use it to encrypt data before insert
            $tmparrays = array_keys($extrafields->attributes[$this->table_element]['param'][$attributeKey]['options']);
            $algo = reset($tmparrays);
            if ($algo != '') {
              //global $action;   // $action may be 'create', 'update', 'update_extras'...
              //var_dump($action);
              //var_dump($this->oldcopy);exit;
              if (is_object($this->oldcopy)) {  // If this->oldcopy is not defined, we can't know if we change attribute or not, so we must keep value
                //var_dump('algo='.$algo.' '.$this->oldcopy->array_options[$key].' -> '.$this->array_options[$key]);
                if (isset($this->oldcopy->array_options[$key]) && $this->array_options[$key] == $this->oldcopy->array_options[$key]) {
                  // If old value encrypted in database is same than submitted new value, it means we don't change it, so we don't update.
                  if ($algo == 'dolcrypt') {  // dolibarr reversible encryption
                    if (!preg_match('/^dolcrypt:/', $this->array_options[$key])) {
                      $new_array_options[$key] = dolEncrypt($this->array_options[$key]);  // warning, must be called when on the master
                    } else {
                      $new_array_options[$key] = $this->array_options[$key]; // Value is kept
                    }
                  } else {
                    $new_array_options[$key] = $this->array_options[$key]; // Value is kept
                  }
                } else {
                  // If value has changed
                  if ($algo == 'dolcrypt') {  // dolibarr reversible encryption
                    if (!preg_match('/^dolcrypt:/', $this->array_options[$key])) {
                      $new_array_options[$key] = dolEncrypt($this->array_options[$key]);  // warning, must be called when on the master
                    } else {
                      $new_array_options[$key] = $this->array_options[$key]; // Value is kept
                    }
                  } else {
                    $new_array_options[$key] = dol_hash($this->array_options[$key], $algo);
                  }
                }
              } else {
                //var_dump('jjj'.$algo.' '.$this->oldcopy->array_options[$key].' -> '.$this->array_options[$key]);
                // If this->oldcopy is not defined, we can't know if we change attribute or not, so we must keep value
                if ($algo == 'dolcrypt' && !preg_match('/^dolcrypt:/', $this->array_options[$key])) { // dolibarr reversible encryption
                  $new_array_options[$key] = dolEncrypt($this->array_options[$key]);  // warning, must be called when on the master
                } else {
                  $new_array_options[$key] = $this->array_options[$key]; // Value is kept
                }
              }
            } else {
              // No encryption
              $new_array_options[$key] = $this->array_options[$key]; // Value is kept
            }
          } else { // Common usage
            $new_array_options[$key] = $this->array_options[$key]; // Value is kept
          }
          break;
        case 'date':
        case 'datetime':
          // If data is a string instead of a timestamp, we convert it
          if (!is_numeric($this->array_options[$key]) || $this->array_options[$key] != intval($this->array_options[$key])) {
            $this->array_options[$key] = strtotime($this->array_options[$key]);
          }
          $new_array_options[$key] = $this->db->idate($this->array_options[$key]);
          break;
        case 'datetimegmt':
          // If data is a string instead of a timestamp, we convert it
          if (!is_numeric($this->array_options[$key]) || $this->array_options[$key] != intval($this->array_options[$key])) {
            $this->array_options[$key] = strtotime($this->array_options[$key]);
          }
          $new_array_options[$key] = $this->db->idate($this->array_options[$key], 'gmt');
          break;
        case 'link':
          $param_list = array_keys($attributeParam['options']);
          // 0 : ObjectName
          // 1 : classPath
          $InfoFieldList = explode(":", $param_list[0]);
          dol_include_once($InfoFieldList[1]);
          if ($InfoFieldList[0] && class_exists($InfoFieldList[0])) {
            if ($value == '-1') { // -1 is key for no defined in combo list of objects
              $new_array_options[$key] = '';
            } elseif ($value) {
              $object = new $InfoFieldList[0]($this->db);
              '@phan-var-force CommonObject $object';
 
              $objectId = 0;
 
              $sqlFetchObject = "SELECT rowid FROM ".$this->db->prefix().$object->table_element;
              if (is_numeric($value)) {
                $sqlFetchObject .= " WHERE rowid = " . (int) $value;
              } else {
                $sqlFetchObject .= " WHERE ref = '" . $this->db->escape($value) . "'";
              }
 
              $obj = $this->db->getRow($sqlFetchObject);
 
              if ($obj !== false) {
                $objectId = $obj->rowid;
                $res = 1;
              } else {
                $res = -1;
              }
 
              if ($res > 0) {
                $new_array_options[$key] = $objectId;
              } else {
                $this->error = "Id/Ref '".$value."' for object '".$object->element."' not found";
                return -1;
              }
            }
          } else {
            dol_syslog('Error bad setup of extrafield', LOG_WARNING);
          }
          break;
        case 'checkbox':
        case 'chkbxlst':
          if (is_array($this->array_options[$key])) {
            $new_array_options[$key] = implode(',', $this->array_options[$key]);
          } else {
            $new_array_options[$key] = $this->array_options[$key];
          }
          break;
      }
    }
 
    // Set array $sqlColumnValues (SQL field name in extrafield table => value)
    $sqlColumnValues = ['fk_object' => (int) $this->id]; // key-value pairs for the SQL INSERT or UPDATE query
 
    foreach ($new_array_options as $key => $newValue) {
      $attributeKey = substr($key, 8); // Remove 'options_' prefix
      $attributeType = $extrafields->attributes[$this->table_element]['type'][$attributeKey];
      if ($attributeType === 'separate') {
        // separator extrafields don't have data per object so they don't have a comlumn in the database
        continue;
      }
      $geoDataType = ExtraFields::$geoDataTypes[$attributeType] ?? null;
      // Add field of attribute
      if (! $geoDataType) {
        // not a geodata type
        if ($newValue != '') {
          $sqlColumnValues[$attributeKey] = "'".$this->db->escape($newValue)."'";
        } else {
          $sqlColumnValues[$attributeKey] = 'null';
        }
        continue;
      }
      if (empty($newValue)) {
        $sqlColumnValues[$attributeKey] = 'null';
        continue;
      }
      if (preg_match('/error/i', $newValue)) {
        dol_syslog('Bad syntax string for '.$geoDataType['shortname'].' '.$newValue.' to generate SQL request', LOG_WARNING);
        $sqlColumnValues[$attributeKey] = 'null';
        continue;
      }
 
      // Geodata type: Text must be a WKT string. Examples:
      // - point    => "POINT(15 20)"
      // - multipts => "MULTIPOINT(0 0, 20 20, 60 60)"
      // - linestrg => "LINESTRING(0 0, 10 10, 20 25, 50 60)"
      // - polygon  => "POLYGON((0 0,10 0,10 10,0 10,0 0),(5 5,7 5,7 7,5 7, 5 5))"
      $sqlColumnValues[$attributeKey] = $geoDataType['ST_Function']."('".$this->db->escape($newValue)."')";  // @phan-suppress-current-line SqlInjection
    }
 
    $this->db->begin();
 
    $table_element = $this->table_element;
    if ($table_element == 'categorie') {
      $table_element = 'categories'; // For compatibility
    }
    $extrafieldsTable = $this->db->prefix() . $table_element . '_extrafields';
 
    dol_syslog(get_class($this)."::insertExtraFields update or insert record line", LOG_DEBUG);
 
    $linealreadyfound = 0;
    $sql = "SELECT COUNT(rowid) as nb FROM ".$this->db->prefix().$table_element."_extrafields WHERE fk_object = ".((int) $this->id);
    $resql = $this->db->query($sql);
    if ($resql) {
      $tmpobj = $this->db->fetch_object($resql);
      if ($tmpobj) {
        $linealreadyfound = $tmpobj->nb;
      }
    }
 
    // if the extrafields row already exists for the object, we update it
    if ($linealreadyfound) {
      array_shift($sqlColumnValues); // drop the 'fk_object' column because its value won't change
      if (empty($sqlColumnValues)) {
        // No column of the target element to update. This happens when the object was created from
        // another element whose extrafields do not exist on this element (e.g. invoice created from a
        // shipment: the source line extrafields are copied into array_options but none match facturedet).
        // The existing row is already correct, so there is nothing to update: avoid an empty "SET" clause
        // that would produce an invalid SQL statement.
        $this->db->commit();
        return 1;
      }
      $sqlColumnValueString = implode(
        ',',
        array_map(function ($key) use ($sqlColumnValues) {
          return "{$key} = {$sqlColumnValues[$key]}";
        }, array_keys($sqlColumnValues))
      );
      $sql = "UPDATE {$extrafieldsTable} SET {$sqlColumnValueString} WHERE fk_object = ".((int) $this->id);
    } else {
      // We must insert a default value for fields for other entities that are mandatory to avoid not null error
      $extrafieldsRequiredOnOtherEntities = $extrafields->attributes[$this->table_element]['mandatoryfieldsofotherentities'] ?? array();
      foreach ($extrafieldsRequiredOnOtherEntities as $key => $extrafieldType) {
        if (isset($sqlColumnValues[$key])) {
          // extrafield value already provided: no need to add it
          continue;
        }
        // default value: empty string, except for 'int', 'double' and 'price'
        $sqlColumnValues[$key] = "''";
        if (in_array($extrafieldType, array('int', 'double', 'price'))) {
          $sqlColumnValues[$key] = 0;
        }
      }
      $sqlColumns = implode(',', array_keys($sqlColumnValues));
      $sqlValues = implode(',', array_values($sqlColumnValues));
      $sql = "INSERT INTO {$extrafieldsTable} ({$sqlColumns}) VALUES ({$sqlValues})";
    }
 
    $resql = $this->db->query($sql);
    if (!$resql) {
      $this->error = $this->db->lasterror();
      $error++;
    }
 
    // Update also the user of last modification in parent table
    if (!$error && !empty($this->fields['fk_user_modif'])) {  // @phan-suppress-current-line PhanTypeMismatchProperty
      $sql = "UPDATE ".$this->db->prefix().$this->table_element;
      $sql .= " SET fk_user_modif = ".(int) $userused->id;
      $sql .= " WHERE ".(empty($this->table_rowid) ? 'rowid' : $this->db->sanitize($this->table_rowid))." = ".((int) $this->id);
      $this->db->query($sql);
    }
 
    if (!$error && $trigger) {
      // Call trigger
      $this->context = array('extrafieldaddupdate' => 1);
      $result = $this->call_trigger($trigger, $userused);
      if ($result < 0) {
        $error++;
      }
      // End call trigger
    }
 
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return 1;
    }
  }
 
  public function insertExtraLanguages($trigger = '', $userused = null)
  {
    global $langs, $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (getDolGlobalString('MAIN_EXTRALANGUAGES_DISABLED')) {
      return 0; // For avoid conflicts if trigger used
    }
 
    if (is_array($this->array_languages)) {
      $new_array_languages = $this->array_languages;
 
      foreach ($new_array_languages as $key => $value) {
        $attributeKey      = $key;
        $attributeType     = $this->fields[$attributeKey]['type'];
        $attributeLabel    = $this->fields[$attributeKey]['label'];
 
        //dol_syslog("attributeLabel=".$attributeLabel, LOG_DEBUG);
        //dol_syslog("attributeType=".$attributeType, LOG_DEBUG);
 
        switch ($attributeType) {
          case 'int':
            if (is_array($value) || (!is_numeric($value) && $value != '')) {
              $this->errors[] = $langs->trans("ExtraLanguageHasWrongValue", $attributeLabel);
              return -1;
            } elseif ($value == '') {  // @phan-suppress-current-line PhanTypeComparisonFromArray
              $new_array_languages[$key] = null;
            }
            break;
          case 'double':
            $value = price2num((string) $value);
            if (!is_numeric($value) && $value != '') {
              dol_syslog($langs->trans("ExtraLanguageHasWrongValue")." on ".$attributeLabel."(".$value."is not '".$attributeType."')", LOG_DEBUG);
              $this->errors[] = $langs->trans("ExtraLanguageHasWrongValue", $attributeLabel);
              return -1;
            } elseif ($value == '') {
              $new_array_languages[$key] = null;
            } else {
              $new_array_languages[$key] = $value;
            }
            break;
            /*case 'select':  // Not required, we chose value='0' for undefined values
             if ($value=='-1')
             {
             $this->array_options[$key] = null;
             }
             break;*/
        }
      }
 
      $this->db->begin();
 
      $table_element = $this->table_element;
      if ($table_element == 'categorie') {  // TODO Rename table llx_categories_extrafields into llx_categorie_extrafields so we can remove this.
        $table_element = 'categories'; // For compatibility
      }
 
      dol_syslog(get_class($this)."::insertExtraLanguages delete then insert", LOG_DEBUG);
 
      foreach ($new_array_languages as $key => $langcodearray) {  // $key = 'name', 'town', ...
        foreach ($langcodearray as $langcode => $value) {
          $sql_del = "DELETE FROM ".$this->db->prefix()."object_lang";
          $sql_del .= " WHERE fk_object = ".((int) $this->id)." AND property = '".$this->db->escape($key)."' AND type_object = '".$this->db->escape($table_element)."'";
          $sql_del .= " AND lang = '".$this->db->escape($langcode)."'";
          $this->db->query($sql_del);
 
          if ($value !== '') {
            $sql = "INSERT INTO ".$this->db->prefix()."object_lang (fk_object, property, type_object, lang, value";
            $sql .= ") VALUES (".((int) $this->id).", '".$this->db->escape($key)."', '".$this->db->escape($table_element)."', '".$this->db->escape($langcode)."', '".$this->db->escape($value)."'";
            $sql .= ")";
 
            $resql = $this->db->query($sql);
            if (!$resql) {
              $this->error = $this->db->lasterror();
              $error++;
              break;
            }
          }
        }
      }
 
      if (!$error && $trigger) {
        // Call trigger
        $this->context = array('extralanguagesaddupdate' => 1);
        $result = $this->call_trigger($trigger, $userused);
        if ($result < 0) {
          $error++;
        }
        // End call trigger
      }
 
      if ($error) {
        $this->db->rollback();
        return -1;
      } else {
        $this->db->commit();
        return 1;
      }
    } else {
      return 0;
    }
  }
 
  public function updateExtraField($key, $trigger = null, $userused = null)
  {
    global $langs, $user, $extrafields, $hookmanager;
 
    if (getDolGlobalString('MAIN_EXTRAFIELDS_DISABLED')) {
      return 0;
    }
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!empty($this->array_options) && isset($this->array_options["options_".$key])) {
      // Check parameters
      $langs->load('admin');
      if (!isset($extrafields) || !is_object($extrafields)) {
        require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
        $extrafields = new ExtraFields($this->db);
      }
      $extrafields->fetch_name_optionals_label($this->table_element);
      if (!isset($extrafields->attributes[$this->table_element]['type'][$key])) {
        // Extrafield not defined for this object type: nothing to update
        return 0;
      }
      $value = $this->array_options["options_".$key];
 
      $attributeKey      = $key;
      $attributeType     = $extrafields->attributes[$this->table_element]['type'][$attributeKey];
      $attributeLabel    = $extrafields->attributes[$this->table_element]['label'][$attributeKey];
      $attributeParam    = $extrafields->attributes[$this->table_element]['param'][$attributeKey];
      $attributeRequired = $extrafields->attributes[$this->table_element]['required'][$attributeKey];
      $attributeUnique   = $extrafields->attributes[$this->table_element]['unique'][$attributeKey];
      $attrfieldcomputed = $extrafields->attributes[$this->table_element]['computed'][$attributeKey];
      //$attributeEnabled  = $extrafields->attributes[$this->table_element]['enabled'][$attributeKey];
 
      // Similar code than into insertExtraFields
      if ($attributeRequired) { // If attribute is "Mandatory", then it is also in database as "Not null", so we must check even if attribute is not 'enabled'.
        $mandatorypb = false;
        if ($attributeType == 'link' && $this->array_options["options_".$key] == '-1') {
          $mandatorypb = true;
        }
        if ($this->array_options["options_".$key] === '') {
          $mandatorypb = true;
        }
        if ($mandatorypb) {
          $langs->load("errors");
          dol_syslog("Mandatory field 'options_".$key."' is empty during update and set to required into definition of extrafields");
          $this->errors[] = $langs->trans('ErrorFieldRequired', $attributeLabel);
          return -1;
        }
      }
 
      // $new_array_options will be used for direct update, so must contains formatted data for the UPDATE.
      $new_array_options = $this->array_options;
 
      //dol_syslog("attributeLabel=".$attributeLabel, LOG_DEBUG);
      //dol_syslog("attributeType=".$attributeType, LOG_DEBUG);
      if (!empty($attrfieldcomputed)) {
        if (getDolGlobalString('MAIN_STORE_COMPUTED_EXTRAFIELDS')) {
          global $objectoffield;    // We set a global variable to $objectoffield so
          $objectoffield = $this;   // we can use it inside the computed formula
          $value = dol_eval((string) $attrfieldcomputed, 1, 0, '2');
          dol_syslog($langs->trans("Extrafieldcomputed")." on ".$attributeLabel."(".$value.")", LOG_DEBUG);
 
          $new_array_options["options_".$key] = $value;
 
          $this->array_options["options_".$key] = $new_array_options["options_".$key];
        } else {
          $new_array_options["options_".$key] = null;
 
          $this->array_options["options_".$key] = $new_array_options["options_".$key];
        }
      }
 
      switch ($attributeType) {
        case 'int':
          if (!is_numeric($value) && $value != '') {
            $this->errors[] = $langs->trans("ExtraFieldHasWrongValue", $attributeLabel);
            return -1;
          } elseif ($value === '') {
            $new_array_options["options_".$key] = null;
 
            $this->array_options["options_".$key] = $new_array_options["options_".$key];
          }
          break;
        case 'price':
        case 'double':
          $value = price2num($value);
          if (!is_numeric($value) && $value != '') {
            dol_syslog($langs->trans("ExtraFieldHasWrongValue")." on ".$attributeLabel."(".$value."is not '".$attributeType."')", LOG_DEBUG);
            $this->errors[] = $langs->trans("ExtraFieldHasWrongValue", $attributeLabel);
            return -1;
          } elseif ($value === '') {
            $value = null;
          }
          //dol_syslog("double value"." on ".$attributeLabel."(".$value." is '".$attributeType."')", LOG_DEBUG);
          $new_array_options["options_".$key] = $value;
 
          $this->array_options["options_".$key] = $new_array_options["options_".$key];
          break;
          /*case 'select':  // Not required, we chose value='0' for undefined values
           if ($value=='-1')
           {
           $new_array_options["options_".$key] = $value;
 
           $this->array_options["options_".$key] = $new_array_options["options_".$key];
           }
           break;*/
        case 'password':
          $algo = '';
          if ($this->array_options["options_".$key] != '' && is_array($extrafields->attributes[$this->table_element]['param'][$attributeKey]['options'])) {
            // If there is an encryption choice, we use it to encrypt data before insert
            $tmparrays = array_keys($extrafields->attributes[$this->table_element]['param'][$attributeKey]['options']);
            $algo = reset($tmparrays);
            if ($algo != '') {
              //global $action;   // $action may be 'create', 'update', 'update_extras'...
              //var_dump($action);
              //var_dump($this->oldcopy);exit;
              //var_dump($key.' '.$this->array_options["options_".$key].' '.$algo);
              if (is_object($this->oldcopy)) {    // If this->oldcopy is not defined, we can't know if we change attribute or not, so we must keep value
                //var_dump($this->oldcopy->array_options["options_".$key]); var_dump($this->array_options["options_".$key]);
                if (isset($this->oldcopy->array_options["options_".$key]) && $this->array_options["options_".$key] == $this->oldcopy->array_options["options_".$key]) { // If old value encrypted in database is same than submitted new value, it means we don't change it, so we don't update.
                  if ($algo == 'dolcrypt') {  // dolibarr reversible encryption
                    if (!preg_match('/^dolcrypt:/', $this->array_options["options_".$key])) {
                      $new_array_options["options_".$key] = dolEncrypt($this->array_options["options_".$key]);  // warning, must be called when on the master
                    } else {
                      $new_array_options["options_".$key] = $this->array_options["options_".$key]; // Value is kept
                    }
                  } else {
                    $new_array_options["options_".$key] = $this->array_options["options_".$key]; // Value is kept
                  }
                } else {
                  if ($algo == 'dolcrypt') {  // dolibarr reversible encryption
                    if (!preg_match('/^dolcrypt:/', $this->array_options["options_".$key])) {
                      $new_array_options["options_".$key] = dolEncrypt($this->array_options["options_".$key]);
                    } else {
                      $new_array_options["options_".$key] = $this->array_options["options_".$key]; // Value is kept
                    }
                  } else {
                    $new_array_options["options_".$key] = dol_hash($this->array_options["options_".$key], $algo);
                  }
                }
              } else {
                if ($algo == 'dolcrypt' && !preg_match('/^dolcrypt:/', $this->array_options["options_".$key])) {  // dolibarr reversible encryption
                  $new_array_options["options_".$key] = dolEncrypt($this->array_options["options_".$key]);  // warning, must be called when on the master
                } else {
                  $new_array_options["options_".$key] = $this->array_options["options_".$key]; // Value is kept
                }
              }
            } else {
              // No encryption
              $new_array_options["options_".$key] = $this->array_options["options_".$key]; // Value is kept
            }
          } else { // Common usage
            $new_array_options["options_".$key] = $this->array_options["options_".$key]; // Value is kept
          }
 
          $this->array_options["options_".$key] = $new_array_options["options_".$key];
          break;
        case 'date':
        case 'datetime':
          if (empty($this->array_options["options_".$key])) {
            $new_array_options["options_".$key] = null;
 
            $this->array_options["options_".$key] = $new_array_options["options_".$key];
          } else {
            $new_array_options["options_".$key] = $this->db->idate($this->array_options["options_".$key]);
          }
          break;
        case 'datetimegmt':
          if (empty($this->array_options["options_".$key])) {
            $new_array_options["options_".$key] = null;
 
            $this->array_options["options_".$key] = $new_array_options["options_".$key];
          } else {
            $new_array_options["options_".$key] = $this->db->idate($this->array_options["options_".$key], 'gmt');
          }
          break;
        case 'boolean':
          if (empty($this->array_options["options_".$key])) {
            $new_array_options["options_".$key] = null;
 
            $this->array_options["options_".$key] = $new_array_options["options_".$key];
          }
          break;
        case 'link':
          if ($this->array_options["options_".$key] === '') {
            $new_array_options["options_".$key] = null;
 
            $this->array_options["options_".$key] = $new_array_options["options_".$key];
          }
          break;
          /*
          case 'link':
            $param_list = array_keys($attributeParam['options']);
            // 0 : ObjectName
            // 1 : classPath
            $InfoFieldList = explode(":", $param_list[0]);
            dol_include_once($InfoFieldList[1]);
            if ($InfoFieldList[0] && class_exists($InfoFieldList[0]))
            {
              if ($value == '-1') // -1 is key for no defined in combo list of objects
              {
                $new_array_options[$key] = '';
              } elseif ($value) {
                $object = new $InfoFieldList[0]($this->db);
                if (is_numeric($value)) $res = $object->fetch($value);  // Common case
                else $res = $object->fetch(0, $value);          // For compatibility
 
           if ($res > 0) $new_array_options[$key] = $object->id;
           else {
           $this->error = "Id/Ref '".$value."' for object '".$object->element."' not found";
           $this->db->rollback();
           return -1;
           }
           }
           } else {
           dol_syslog('Error bad setup of extrafield', LOG_WARNING);
           }
           break;
           */
        case 'checkbox':
        case 'chkbxlst':
          $new_array_options = array();
          if (is_array($this->array_options["options_".$key])) {
            $new_array_options["options_".$key] = implode(',', $this->array_options["options_".$key]);
          } else {
            $new_array_options["options_".$key] = $this->array_options["options_".$key];
          }
 
          $this->array_options["options_".$key] = $new_array_options["options_".$key];
          break;
      }
 
      $this->db->begin();
 
      $linealreadyfound = 0;
 
      // Check if there is already a line for this object (in most cases, it is, but sometimes it is not, for example when extra field has been created after), so we must keep this overload)
      $table_element = $this->table_element;
      if ($table_element == 'categorie') {  // TODO Rename table llx_categories_extrafields into llx_categorie_extrafields so we can remove this.
        $table_element = 'categories'; // For compatibility
      }
 
      $sql = "SELECT COUNT(rowid) as nb FROM ".$this->db->prefix().$table_element."_extrafields WHERE fk_object = ".((int) $this->id);
      $resql = $this->db->query($sql);
      if ($resql) {
        $tmpobj = $this->db->fetch_object($resql);
        if ($tmpobj) {
          $linealreadyfound = $tmpobj->nb;
        }
      }
 
      //var_dump('linealreadyfound='.$linealreadyfound.' sql='.$sql); exit;
      if ($linealreadyfound) {
        $sanitizedGeoDataType = ExtraFields::$geoDataTypes[$attributeType] ?? null;  // @phan-suppress-current-line SqlInjection
        if ($this->array_options["options_".$key] === null) {
          $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($table_element)."_extrafields";
          $sql .= " SET ".$this->db->sanitize($key)." = null";
        } elseif (!empty($sanitizedGeoDataType['ST_Function'])) {
          $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($table_element)."_extrafields";
          $sql .= " SET ".$this->db->sanitize($key)." = ".$this->db->sanitize($sanitizedGeoDataType['ST_Function'])."('".$this->db->escape($this->array_options["options_".$key])."')";
        } else {
          // TODO What about if field is type int or float ($attributeType = price, int, ...) ?
          $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($table_element)."_extrafields";
          $sql .= " SET ".$this->db->sanitize($key)." = '".$this->db->escape($new_array_options["options_".$key])."'";
        }
        $sql .= " WHERE fk_object = ".((int) $this->id);
 
        $resql = $this->db->query($sql);
        if (!$resql) {
          $error++;
          $this->error = $this->db->lasterror();
        }
      } else {
        $result = $this->insertExtraFields('', $user);
        if ($result < 0) {
          $error++;
        }
      }
 
      // Update also the user of last modification in parent table
      if (!$error && !empty($this->fields['fk_user_modif'])) {
        $sql = "UPDATE ".$this->db->prefix().$this->table_element;
        $sql .= " SET fk_user_modif = ".(int) $userused->id;
        $sql .= " WHERE ".(empty($this->table_rowid) ? 'rowid' : $this->db->sanitize($this->table_rowid))." = ".((int) $this->id);
        $this->db->query($sql);
      }
 
      if (!$error) {
        $parameters = array('key' => $key);
        global $action;
        $reshook = $hookmanager->executeHooks('updateExtraFieldBeforeCommit', $parameters, $this, $action);
        if ($reshook < 0) {
          setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
        }
      }
 
      if (!$error && $trigger) {
        // Call trigger
        $this->context = array('extrafieldupdate' => 1);
        $result = $this->call_trigger($trigger, $userused);
        if ($result < 0) {
          $error++;
        }
        // End call trigger
      }
 
      if ($error) {
        dol_syslog(__METHOD__.$this->error, LOG_ERR);
        $this->db->rollback();
        return -1;
      } else {
        $this->db->commit();
        return 1;
      }
    } else {
      return 0;
    }
  }
 
  public function getExtraField($key)
  {
    return $this->array_options['options_'.$key] ?? null;
  }
 
  public function setExtraField($key, $value)
  {
    $this->array_options['options_'.$key] = $value;
  }
 
  public function updateExtraLanguages($key, $trigger = null, $userused = null)
  {
    global $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    //$error = 0;
 
    if (getDolGlobalString('MAIN_EXTRALANGUAGES_DISABLED')) {
      return 0; // For avoid conflicts if trigger used
    }
 
    return 0;
  }
 
 
  public function showInputField($val, $key, $value, $moreparam = '', $keysuffix = '', $keyprefix = '', $morecss = 0, $nonewbutton = 0)
  {
    global $conf, $langs, $form;
 
 
    // TODO pass the current object as a parameter to give more flexibility (like disable showing input for extra fields when canAlwaysBeEdited is false and $object->status is not draft...)
 
    if (!is_object($form)) {
      require_once DOL_DOCUMENT_ROOT.'/core/class/html.form.class.php';
      $form = new Form($this->db);
    }
 
    if (!empty($this->fields)) {
      $val = $this->fields[$key];
    }
 
    // Validation tests and output
    $fieldValidationErrorMsg = '';
    $validationClass = '';
    $fieldValidationErrorMsg = $this->getFieldError($key);
    if (!empty($fieldValidationErrorMsg)) {
      $validationClass = ' --error'; // the -- is use as class state in css :  .--error can't be be defined alone it must be define with another class like .my-class.--error or input.--error
    } else {
      $validationClass = ' --success'; // the -- is use as class state in css :  .--success can't be be defined alone it must be define with another class like .my-class.--success or input.--success
    }
 
    //$valuemultiselectinput = array();
    $out = '';
    $type = '';
    $isDependList = 0;
    $param = array();
    $param['options'] = array();
    $reg = array();
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $size = !empty($this->fields[$key]['size']) ? $this->fields[$key]['size'] : 0;
    // Because we work on extrafields
    if (preg_match('/^(integer|link):(.*):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2].':'.$reg[3].':'.$reg[4].':'.$reg[5] => 'N');
      $type = 'link';
    } elseif (preg_match('/^(integer|link):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2].':'.$reg[3].':'.$reg[4] => 'N');
      $type = 'link';
    } elseif (preg_match('/^(integer|link):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2].':'.$reg[3] => 'N');
      $type = 'link';
    } elseif (preg_match('/^(sellist):(.*):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2].':'.$reg[3].':'.$reg[4].':'.$reg[5] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^(sellist):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2].':'.$reg[3].':'.$reg[4] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^(sellist):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2].':'.$reg[3] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^chkbxlst:(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1] => 'N');
      $type = 'chkbxlst';
    } elseif (preg_match('/varchar\‍((\d+)\‍)/', $val['type'], $reg)) {
      $param['options'] = array();
      $type = 'varchar';
      $size = $reg[1];
    } elseif (preg_match('/varchar/', $val['type'])) {
      $param['options'] = array();
      $type = 'varchar';
    } elseif (preg_match('/stars\‍((\d+)\‍)/', $val['type'], $reg)) {
      $param['options'] = array();
      $type = 'stars';
      $size = $reg[1];
    } else {
      $param['options'] = array();
      $type = $this->fields[$key]['type'];
    }
    //var_dump($type); var_dump($param['options']);
 
    // Special case that force options and type ($type can be integer, varchar, ...)
    if (!empty($this->fields[$key]['arrayofkeyval']) && is_array($this->fields[$key]['arrayofkeyval'])) {
      $param['options'] = $this->fields[$key]['arrayofkeyval'];
      // Special case that prevent to force $type to have multiple input @phan-suppress-next-line PhanTypeMismatchProperty
      if (empty($this->fields[$key]['multiinput'])) {
        $type = (($this->fields[$key]['type'] == 'checkbox') ? $this->fields[$key]['type'] : 'select');
      }
    }
 
    $label = $this->fields[$key]['label'];
    //$elementtype=$this->fields[$key]['elementtype'];  // Seems not used
    // @phan-suppress-next-line PhanTypeArraySuspiciousNullable
    $default = (!empty($this->fields[$key]['default']) ? $this->fields[$key]['default'] : '');
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $computed = (!empty($this->fields[$key]['computed']) ? $this->fields[$key]['computed'] : '');
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $unique = (!empty($this->fields[$key]['unique']) ? $this->fields[$key]['unique'] : 0);
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $required = (!empty($this->fields[$key]['required']) ? $this->fields[$key]['required'] : 0);
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $autofocusoncreate = (!empty($this->fields[$key]['autofocusoncreate']) ? $this->fields[$key]['autofocusoncreate'] : 0);
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $placeholder = (!empty($this->fields[$key]['placeholder']) ? $this->fields[$key]['placeholder'] : 0);
 
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $langfile = (!empty($this->fields[$key]['langfile']) ? $this->fields[$key]['langfile'] : '');
    // @phan-suppress-next-line PhanTypeMismatchProperty
    $list = (!empty($this->fields[$key]['list']) ? $this->fields[$key]['list'] : 0);
    $hidden = (in_array(abs($this->fields[$key]['visible']), array(0, 2)) ? 1 : 0);
 
    $objectid = $this->id;
 
    if ($computed) {
      if (!preg_match('/^search_/', $keyprefix)) {
        return '<span class="opacitymedium">'.$langs->trans("AutomaticallyCalculated").'</span>';
      } else {
        return '';
      }
    }
 
    // Set value of $morecss. For this, we use in priority showsize from parameters, then $val['css'] then autodefine
    if (empty($morecss) && !empty($val['css'])) {
      $morecss = $val['css'];
    } elseif (empty($morecss)) {
      if ($type == 'date') {
        $morecss = 'minwidth100imp';
      } elseif ($type == 'datetime' || $type == 'link') { // link means an foreign key to another primary id
        $morecss = 'minwidth200imp';
      } elseif (in_array($type, array('int', 'integer', 'price')) || preg_match('/^double(\‍([0-9],[0-9]\‍)){0,1}/', (string) $type)) {
        $morecss = 'maxwidth75';
      } elseif ($type == 'url') {
        $morecss = 'minwidth400';
      } elseif ($type == 'boolean') {
        $morecss = '';
      } else {
        if (is_numeric($size) && round((float) $size) < 12) {
          $morecss = 'minwidth100';
        } elseif (is_numeric($size) && round((float) $size) <= 48) {
          $morecss = 'minwidth200';
        } else {
          $morecss = 'minwidth400';
        }
      }
    }
 
    // Add validation state class
    if (!empty($validationClass)) {
      $morecss .= $validationClass;
    }
 
    if (in_array($type, array('date'))) {
      $tmp = explode(',', $size);
      $newsize = $tmp[0];
      $showtime = 0;
 
      // Do not show current date when field not required (see selectDate() method)
      if (!$required && $value == '') {
        $value = '-1';
      }
 
      // TODO Must also support $moreparam
      $out = $form->selectDate($value, $keyprefix.$key.$keysuffix, $showtime, $showtime, $required, '', 1, (($keyprefix != 'search_' && $keyprefix != 'search_options_') ? 1 : 0), 0, 1);
    } elseif (in_array($type, array('datetime'))) {
      $tmp = explode(',', $size);
      $newsize = $tmp[0];
      $showtime = 1;
 
      // Do not show current date when field not required (see selectDate() method)
      if (!$required && $value == '') {
        $value = '-1';
      }
 
      // TODO Must also support $moreparam
      $out = $form->selectDate($value, $keyprefix.$key.$keysuffix, $showtime, $showtime, $required, '', 1, (($keyprefix != 'search_' && $keyprefix != 'search_options_') ? 1 : 0), 0, 1, '', '', '', 1, '', '', 'tzuserrel');
    } elseif (in_array($type, array('duration'))) {
      $out = $form->select_duration($keyprefix.$key.$keysuffix, $value, 0, 'text', 0, 1);
    } elseif (in_array($type, array('int', 'integer'))) {
      $tmp = explode(',', $size);
      $newsize = $tmp[0];
      $out = '<input type="text" class="flat '.$morecss.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'"'.($newsize > 0 ? ' maxlength="'.$newsize.'"' : '').' value="'.dol_escape_htmltag($value).'"'.($moreparam ? $moreparam : '').($autofocusoncreate ? ' autofocus' : '').'>';
    } elseif (in_array($type, array('real'))) {
      $out = '<input type="text" class="flat '.$morecss.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.dol_escape_htmltag($value).'"'.($moreparam ? $moreparam : '').($autofocusoncreate ? ' autofocus' : '').'>';
    } elseif (preg_match('/varchar/', (string) $type)) {
      $out = '<input type="text" class="flat '.$morecss.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'"'.($size > 0 ? ' maxlength="'.$size.'"' : '').' value="'.dol_escape_htmltag($value).'"'.($moreparam ? $moreparam : '').($placeholder ? ' placeholder="'.dolPrintHTMLForAttribute($placeholder).'"' : '').($autofocusoncreate ? ' autofocus' : '').'>';
    } elseif (in_array($type, array('email', 'mail', 'phone', 'url', 'ip'))) {
      $out = '<input type="text" class="flat '.$morecss.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.dol_escape_htmltag($value).'" '.($moreparam ? $moreparam : '').($autofocusoncreate ? ' autofocus' : '').'>';
    } elseif (preg_match('/^text/', (string) $type)) {
      if (!preg_match('/search_/', $keyprefix)) {   // If keyprefix is search_ or search_options_, we must just use a simple text field
        if (!empty($param['options'])) {
          // If the textarea field has a list of arrayofkeyval into its definition, we suggest a combo with possible values to fill the textarea.
          //var_dump($param['options']);
          $out .= $form->selectarray($keyprefix.$key.$keysuffix."_multiinput", $param['options'], '', 1, 0, 0, "flat maxwidthonphone".$morecss);
          $out .= '<input id="'.$keyprefix.$key.$keysuffix.'_multiinputadd" type="button" class="button" value="'.$langs->trans("Add").'">';
          $out .= "<script>";
          $out .= '
          function handlemultiinputdisabling(htmlname){
            console.log("We handle the disabling of used options for "+htmlname+"_multiinput");
            multiinput = $("#"+htmlname+"_multiinput");
            multiinput.find("option").each(function(){
              tmpval = $("#"+htmlname).val();
              tmpvalarray = tmpval.split("\n");
              valtotest = $(this).val();
              if(tmpvalarray.includes(valtotest)){
                $(this).prop("disabled",true);
              } else {
                if($(this).prop("disabled") == true){
                  console.log(valtotest)
                  $(this).prop("disabled", false);
                }
              }
            });
          }
 
          $(document).ready(function () {
            $("#'.$keyprefix.$key.$keysuffix.'_multiinputadd").on("click",function() {
              tmpval = $("#'.$keyprefix.$key.$keysuffix.'").val();
              tmpvalarray = tmpval.split(",");
              valtotest = $("#'.$keyprefix.$key.$keysuffix.'_multiinput").val();
              if(valtotest != -1 && !tmpvalarray.includes(valtotest)){
                console.log("We add the selected value to the text area '.$keyprefix.$key.$keysuffix.'");
                if(tmpval == ""){
                  tmpval = valtotest;
                } else {
                  tmpval = tmpval + "\n" + valtotest;
                }
                $("#'.$keyprefix.$key.$keysuffix.'").val(tmpval);
                handlemultiinputdisabling("'.$keyprefix.$key.$keysuffix.'");
                $("#'.$keyprefix.$key.$keysuffix.'_multiinput").val(-1);
              } else {
                console.log("We add nothing the text area '.$keyprefix.$key.$keysuffix.'");
              }
            });
            $("#'.$keyprefix.$key.$keysuffix.'").on("change",function(){
              handlemultiinputdisabling("'.$keyprefix.$key.$keysuffix.'");
            });
            handlemultiinputdisabling("'.$keyprefix.$key.$keysuffix.'");
          })';
          $out .= "</script>";
          $value = str_replace(',', "\n", $value);
        }
        require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
        $doleditor = new DolEditor($keyprefix.$key.$keysuffix, $value, '', 200, 'dolibarr_notes', 'In', false, false, false, ROWS_5, '90%');
        $out .= (string) $doleditor->Create(1, '', true, '', '', '', $morecss);
      } else {
        $out = '<input type="text" class="flat '.$morecss.' maxwidthonsmartphone" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.dol_escape_htmltag($value).'" '.($moreparam ? $moreparam : '').'>';
      }
    } elseif (preg_match('/^html/', (string) $type)) {
      if (!preg_match('/search_/', $keyprefix)) {   // If keyprefix is search_ or search_options_, we must just use a simple text field
        require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
        $doleditor = new DolEditor($keyprefix.$key.$keysuffix, $value, '', 200, 'dolibarr_notes', 'In', false, false, isModEnabled('fckeditor') && getDolGlobalInt('FCKEDITOR_ENABLE_SOCIETE'), ROWS_5, '90%');
        $out = (string) $doleditor->Create(1, '', true, '', '', $moreparam, $morecss);
      } else {
        $out = '<input type="text" class="flat '.$morecss.' maxwidthonsmartphone" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.dol_escape_htmltag($value).'" '.($moreparam ? $moreparam : '').'>';
      }
    } elseif ($type == 'boolean') {
      $checked = '';
      if (!empty($value)) {
        $checked = ' checked value="1" ';
      } else {
        $checked = ' value="1" ';
      }
      $out = '<input type="checkbox" class="flat '.$morecss.' maxwidthonsmartphone" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" '.$checked.' '.($moreparam ? $moreparam : '').'>';
    } elseif ($type == 'price') {
      if (!empty($value)) {   // $value in memory is a php numeric, we format it into user number format.
        $value = price($value);
      }
      $out = '<input type="text" class="flat '.$morecss.' maxwidthonsmartphone" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.$value.'" '.($moreparam ? $moreparam : '').'> <span class="opacitymedium">'.$langs->getCurrencySymbol($conf->currency).'</span>';
    } elseif ($type == 'stars') {
      $out = '<input type="hidden" class="flat '.$morecss.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.dol_escape_htmltag($value).'"'.($moreparam ? $moreparam : '').($autofocusoncreate ? ' autofocus' : '').'>';
      $out .= '<div class="star-selection" id="'.$keyprefix.$key.$keysuffix.'_selection">';
      $i = 1;
      while ($i <= $size) {
        $out .= '<span class="star" data-value="'.$i.'">'.img_picto('', 'fontawesome_star_fas').'</span>';
        $i++;
      }
      $out .= '</div>';
      $out .= '<script>
        jQuery(function($) {  /* commonobject.class.php 1 */
          let container = $("#'.$keyprefix.$key.$keysuffix.'_selection");
          let selectedStars = parseInt($("#'.$keyprefix.$key.$keysuffix.'").val()) || 0;
          container.find(".star").each(function() {
            $(this).toggleClass("active", $(this).data("value") <= selectedStars);
          });
          container.find(".star").on("mouseover", function() {
            let selectedStar = $(this).data("value");
            container.find(".star").each(function() {
              $(this).toggleClass("active", $(this).data("value") <= selectedStar);
            });
          });
          container.on("mouseout", function() {
            container.find(".star").each(function() {
              $(this).toggleClass("active", $(this).data("value") <= selectedStars);
            });
          });
          container.find(".star").off("click").on("click", function() {
            selectedStars = $(this).data("value");
            if (selectedStars === 1 && $("#'.$keyprefix.$key.$keysuffix.'").val() == 1) {
              selectedStars = 0;
            }
            $("#'.$keyprefix.$key.$keysuffix.'").val(selectedStars);
            container.find(".star").each(function() {
              $(this).toggleClass("active", $(this).data("value") <= selectedStars);
            });
          });
        });
      </script>';
    } elseif (preg_match('/^double(\‍([0-9],[0-9]\‍)){0,1}/', (string) $type)) {
      if (!empty($value)) {   // $value in memory is a php numeric, we format it into user number format.
        $value = price($value);
      }
      $out = '<input type="text" class="flat '.$morecss.' maxwidthonsmartphone" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.$value.'" '.($moreparam ? $moreparam : '').'> ';
    } elseif ($type == 'select') {  // combo list
      $out = '';
      if (!empty($conf->use_javascript_ajax) && !getDolGlobalString('MAIN_EXTRAFIELDS_DISABLE_SELECT2')) {
        include_once DOL_DOCUMENT_ROOT.'/core/lib/ajax.lib.php';
        $out .= ajax_combobox($keyprefix.$key.$keysuffix, array(), 0);
      }
 
      $tmpselect = '';
      $nbchoice = 0;
 
      foreach ($param['options'] as $keyb => $valb) {
        if ((string) $keyb == '') {
          continue;
        }
        if (strpos($valb, "|") !== false) {
          list($valb, $parent) = explode('|', $valb);
        }
        $nbchoice++;
        $tmpselect .= '<option value="'.$keyb.'"';
        $tmpselect .= (((string) $value == (string) $keyb) ? ' selected' : '');
        if (!empty($parent)) {
          $isDependList = 1;
        }
        $tmpselect .= (!empty($parent) ? ' parent="'.$parent.'"' : '');
        $tmpselect .= '>'.$langs->trans($valb).'</option>';
      }
 
      $out .= '<select class="flat '.$morecss.' maxwidthonsmartphone" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" '.($moreparam ? $moreparam : '').'>';
      if ((!isset($this->fields[$key]['default'])) || empty($this->fields[$key]['notnull']) || ($this->fields[$key]['notnull'] != 1) || $nbchoice >= 2) {
        $out .= '<option value="0">&nbsp;</option>';
      }
      $out .= $tmpselect;
      $out .= '</select>';
    } elseif ($type == 'sellist') {
      $out = '';
      if (!empty($conf->use_javascript_ajax) && !getDolGlobalString('MAIN_EXTRAFIELDS_DISABLE_SELECT2')) {
        include_once DOL_DOCUMENT_ROOT.'/core/lib/ajax.lib.php';
        $out .= ajax_combobox($keyprefix.$key.$keysuffix, array(), 0);
      }
 
      $out .= '<select class="flat '.$morecss.' maxwidthonsmartphone" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" '.($moreparam ? $moreparam : '').'>';
      if (is_array($param['options'])) {
        $tmpparamoptions = array_keys($param['options']);
        $paramoptions = preg_split('/[\r\n]+/', $tmpparamoptions[0]);
 
        $InfoFieldList = explode(":", $paramoptions[0], 5);
        // 0 : tableName
        // 1 : label field name
        // 2 : key fields name (if different of rowid)
        // optional parameters...
        // 3 : key field parent (for dependent lists). How this is used ?
        // 4 : where clause filter on column or table extrafield, syntax field='value' or extra.field='value'. Or use USF on a second line separated by "\n".
        // 5 : string category type. This replace the filter.
        // 6 : ids categories list separated by comma for category root. This replace the filter.
        // 7 : sort field
 
        // If there is filter
        if (! empty($InfoFieldList[4])) {
          $pos = 0;
          $parenthesisopen = 0;
          while (substr($InfoFieldList[4], $pos, 1) !== '' && ($parenthesisopen || $pos == 0 || substr($InfoFieldList[4], $pos, 1) != ':')) {
            if (substr($InfoFieldList[4], $pos, 1) == '(') {
              $parenthesisopen++;
            }
            if (substr($InfoFieldList[4], $pos, 1) == ')') {
              $parenthesisopen--;
            }
            $pos++;
          }
          $tmpbefore = substr($InfoFieldList[4], 0, $pos);
          $tmpafter = substr($InfoFieldList[4], $pos + 1);
          //var_dump($InfoFieldList[4].' -> '.$pos); var_dump($tmpafter);
          $InfoFieldList[4] = $tmpbefore;
          if ($tmpafter !== '') {
            $InfoFieldList = array_merge($InfoFieldList, explode(':', $tmpafter));
          }
          //var_dump($InfoFieldList);
 
          // Fix better compatibility with some old extrafield syntax filter "(field=123)"
          $reg = array();
          if (preg_match('/^\‍(?([a-z0-9]+)([=<>]+)(\d+)\‍)?$/i', $InfoFieldList[4], $reg)) {
            $InfoFieldList[4] = '('.$reg[1].':'.$reg[2].':'.$reg[3].')';
          }
 
          //var_dump($InfoFieldList);
        }
 
        //$Usf = empty($paramoptions[1]) ? '' :$paramoptions[1];
 
        $parentName = '';
        $parentField = '';
 
        $keyList = (empty($InfoFieldList[2]) ? 'rowid' : $InfoFieldList[2].' as rowid');
 
        if (count($InfoFieldList) > 4 && !empty($InfoFieldList[4])) {
          if (strpos($InfoFieldList[4], 'extra.') !== false) {
            $keyList = 'main.'.$InfoFieldList[2].' as rowid';
          } else {
            $keyList = $InfoFieldList[2].' as rowid';
          }
        }
        if (count($InfoFieldList) > 3 && !empty($InfoFieldList[3])) {
          list($parentName, $parentField) = explode('|', $InfoFieldList[3]);
          if (!empty($InfoFieldList[4]) && strpos($InfoFieldList[4], 'extra.') !== false) {
            $keyList .= ', main.'.$parentField;
          } else {
            $keyList .= ', '.$parentField;
          }
        }
 
        $filter_categorie = false;
        if (count($InfoFieldList) > 5) {
          if ($InfoFieldList[0] == 'categorie') {
            $filter_categorie = true;
          }
        }
 
        if (!$filter_categorie) {
          $fields_label = isset($InfoFieldList[1]) ? explode('|', $InfoFieldList[1]) : array();
          if (!empty($fields_label)) {
            $keyList .= ', ';
            $keyList .= implode(', ', $fields_label);
          }
 
          $sqlwhere = '';
          $sql = "SELECT " . $this->db->sanitize($keyList, 0, 0, 1);
          $sql .= " FROM " . $this->db->prefix() . $this->db->sanitize($InfoFieldList[0]);
 
          if (!empty($InfoFieldList[4])) {
            // can use SELECT request
            if (strpos($InfoFieldList[4], '$SEL$') !== false) {
              $InfoFieldList[4] = str_replace('$SEL$', 'SELECT', $InfoFieldList[4]);
            }
 
            // current object id can be use into filter
            if (strpos($InfoFieldList[4], '$ID$') !== false && !empty($objectid)) {
              $InfoFieldList[4] = str_replace('$ID$', (string) $objectid, $InfoFieldList[4]);
            } else {
              $InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
            }
 
            // We have to join on extrafield table
            $errstr = '';
            if (strpos($InfoFieldList[4], 'extra') !== false) {
              $sql .= " as main, " . $this->db->sanitize($this->db->prefix() . $InfoFieldList[0]) . "_extrafields as extra";
              $sqlwhere .= " WHERE extra.fk_object = main." . $this->db->sanitize($InfoFieldList[2]);
              $sqlwhere .= " AND " . forgeSQLFromUniversalSearchCriteria($InfoFieldList[4], $errstr, 1);
            } else {
              $sqlwhere .= " WHERE " . forgeSQLFromUniversalSearchCriteria($InfoFieldList[4], $errstr, 1);
            }
          } else {
            $sqlwhere .= ' WHERE 1=1';
          }
 
          // Add Usf filter on second line
          /*
           if ($Usf) {
           $errorstr = '';
           $sqlusf .= forgeSQLFromUniversalSearchCriteria($Usf, $errorstr);
           if (!$errorstr) {
           $sqlwhere .= $sqlusf;
           } else {
           $sqlwhere .= " AND invalid_usf_filter_of_extrafield";
           }
           }
           */
 
          // Some tables may have field, some other not. For the moment we disable it.
          if (in_array($InfoFieldList[0], array('tablewithentity'))) {
            $sqlwhere .= " AND entity = " . ((int) $conf->entity);
          }
          $sql .= $sqlwhere;
 
          // Note: $InfoFieldList can be 'sellist:TableName:LabelFieldName[:KeyFieldName[:KeyFieldParent[:Filter[:CategoryIdType[:CategoryIdList[:Sortfield]]]]]]'
          if (isset($InfoFieldList[7]) && preg_match('/^[a-z0-9_\-,]+$/i', $InfoFieldList[7])) {
            $sql .= " ORDER BY ".$this->db->sanitize($InfoFieldList[7]);
          } else {
            $sql .= " ORDER BY ".$this->db->sanitize(implode(', ', $fields_label));
          }
          $sql .= ' LIMIT ' . getDolGlobalInt('MAIN_EXTRAFIELDS_LIMIT_SELLIST_SQL', 1000);
          // print $sql;
 
          dol_syslog(get_class($this) . '::showInputField type=sellist', LOG_DEBUG);
          $resql = $this->db->query($sql);
          if ($resql) {
            $out .= '<option value="0">&nbsp;</option>';
            $num = $this->db->num_rows($resql);
            $i = 0;
            while ($i < $num) {
              $labeltoshow = '';
              $obj = $this->db->fetch_object($resql);
 
              // Several field into label (eq table:code|libelle:rowid)
              $notrans = false;
              $fields_label = explode('|', $InfoFieldList[1]);
              if (count($fields_label) > 1) {
                $notrans = true;
                foreach ($fields_label as $field_toshow) {
                  $labeltoshow .= $obj->$field_toshow . ' ';
                }
              } else {
                $labeltoshow = $obj->{$InfoFieldList[1]};
              }
              $labeltoshow = dol_trunc($labeltoshow, 45);
 
              if ($value == $obj->rowid) {
                foreach ($fields_label as $field_toshow) {
                  $translabel = $langs->trans($obj->$field_toshow);
                  if ($translabel != $obj->$field_toshow) {
                    $labeltoshow = dol_trunc($translabel) . ' ';
                  } else {
                    $labeltoshow = dol_trunc($obj->$field_toshow) . ' ';
                  }
                }
                $out .= '<option value="' . $obj->rowid . '" selected>' . $labeltoshow . '</option>';
              } else {
                if (!$notrans) {
                  $translabel = $langs->trans($obj->{$InfoFieldList[1]});
                  if ($translabel != $obj->{$InfoFieldList[1]}) {
                    $labeltoshow = dol_trunc($translabel, 18);
                  } else {
                    $labeltoshow = dol_trunc($obj->{$InfoFieldList[1]});
                  }
                }
                if (empty($labeltoshow)) {
                  $labeltoshow = '(not defined)';
                }
                if ($value == $obj->rowid) {
                  $out .= '<option value="' . $obj->rowid . '" selected>' . $labeltoshow . '</option>';
                }
 
                if (!empty($InfoFieldList[3]) && $parentField) {
                  $parent = $parentName . ':' . $obj->{$parentField};
                  $isDependList = 1;
                }
 
                $out .= '<option value="' . $obj->rowid . '"';
                $out .= ($value == $obj->rowid ? ' selected' : '');
                $out .= (!empty($parent) ? ' parent="' . $parent . '"' : '');
                $out .= '>' . $labeltoshow . '</option>';
              }
 
              $i++;
            }
            $this->db->free($resql);
          } else {
            print 'Error in request ' . $sql . ' ' . $this->db->lasterror() . '. Check setup of extra parameters.<br>';
          }
        } else {
          require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
          $categcode = $InfoFieldList[5];
          if (is_numeric($categcode)) { // deprecated: must use the category code instead of id. For backward compatibility.
            $tmpcategory = new Categorie($this->db);
            $MAP_ID_TO_CODE = array_flip($tmpcategory->MAP_ID);
            $categcode = $MAP_ID_TO_CODE[(int) $categcode];
          }
 
          $data = $form->select_all_categories($categcode, '', 'parent', 64, $InfoFieldList[6], 1, 1);
          $out .= '<option value="0">&nbsp;</option>';
          foreach ($data as $data_key => $data_value) {
            $out .= '<option value="' . $data_key . '"';
            $out .= ($value == $data_key ? ' selected' : '');
            $out .= '>' . $data_value . '</option>';
          }
        }
      }
      $out .= '</select>';
    } elseif ($type == 'checkbox') {
      $value_arr = explode(',', $value);
      $out = $form->multiselectarray($keyprefix.$key.$keysuffix, (empty($param['options']) ? null : $param['options']), $value_arr, 0, 0, $morecss, 0, '100%');
    } elseif ($type == 'radio') {
      $out = '';
      foreach ($param['options'] as $keyopt => $valopt) {
        $out .= '<input class="flat '.$morecss.'" type="radio" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" '.($moreparam ? $moreparam : '');
        $out .= ' value="'.$keyopt.'"';
        $out .= ' id="'.$keyprefix.$key.$keysuffix.'_'.$keyopt.'"';
        $out .= ($value == $keyopt ? 'checked' : '');
        $out .= '/><label for="'.$keyprefix.$key.$keysuffix.'_'.$keyopt.'">'.$valopt.'</label><br>';
      }
    } elseif ($type == 'chkbxlst') {
      if (is_array($value)) {
        $value_arr = $value;
      } else {
        $value_arr = explode(',', $value);
      }
 
      if (is_array($param['options'])) {
        $tmpparamoptions = array_keys($param['options']);
        $paramoptions = preg_split('/[\r\n]+/', $tmpparamoptions[0]);
 
        $InfoFieldList = explode(":", $paramoptions[0], 5);
        // 0 : tableName
        // 1 : label field name
        // 2 : key fields name (if different of rowid)
        // optional parameters...
        // 3 : key field parent (for dependent lists). How this is used ?
        // 4 : where clause filter on column or table extrafield, syntax field='value' or extra.field=value. Or use USF on a second line separated by "\n".
        // 5 : string category type. This replace the filter.
        // 6 : ids categories list separated by comma for category root. This replace the filter.
        // 7 : sort field
 
        // If there is a filter
        if (! empty($InfoFieldList[4])) {
          $pos = 0;
          $parenthesisopen = 0;
          while (substr($InfoFieldList[4], $pos, 1) !== '' && ($parenthesisopen || $pos == 0 || substr($InfoFieldList[4], $pos, 1) != ':')) {
            if (substr($InfoFieldList[4], $pos, 1) == '(') {
              $parenthesisopen++;
            }
            if (substr($InfoFieldList[4], $pos, 1) == ')') {
              $parenthesisopen--;
            }
            $pos++;
          }
          $tmpbefore = substr($InfoFieldList[4], 0, $pos);
          $tmpafter = substr($InfoFieldList[4], $pos + 1);
          //var_dump($InfoFieldList[4].' -> '.$pos); var_dump($tmpafter);
          $InfoFieldList[4] = $tmpbefore;
          if ($tmpafter !== '') {
            $InfoFieldList = array_merge($InfoFieldList, explode(':', $tmpafter));
          }
 
          // Fix better compatibility with some old extrafield syntax filter "(field=123)"
          $reg = array();
          if (preg_match('/^\‍(?([a-z0-9]+)([=<>]+)(\d+)\‍)?$/i', $InfoFieldList[4], $reg)) {
            $InfoFieldList[4] = '('.$reg[1].':'.$reg[2].':'.$reg[3].')';
          }
 
          //var_dump($InfoFieldList);
        }
 
        //$Usf = empty($paramoptions[1]) ? '' :$paramoptions[1];
 
        '@phan-var-force array{0:string,1:string,2:string,3:string,3:string,5:string,6:string} $InfoFieldList';
 
        $parentName = '';
        $parentField = '';
 
        $keyList = (empty($InfoFieldList[2]) ? 'rowid' : $InfoFieldList[2].' as rowid');
 
        if (count($InfoFieldList) > 4 && !empty($InfoFieldList[4])) {
          if (strpos($InfoFieldList[4], 'extra.') !== false) {
            $keyList = 'main.'.$InfoFieldList[2].' as rowid';
          } else {
            $keyList = $InfoFieldList[2].' as rowid';
          }
        }
        if (count($InfoFieldList) > 3 && !empty($InfoFieldList[3])) {
          list($parentName, $parentField) = explode('|', $InfoFieldList[3]);
          if (!empty($InfoFieldList[4]) && strpos($InfoFieldList[4], 'extra.') !== false) {
            $keyList .= ', main.'.$parentField;
          } else {
            $keyList .= ', '.$parentField;
          }
        }
 
        $filter_categorie = false;
        if (count($InfoFieldList) > 5) {
          if ($InfoFieldList[0] == 'categorie') {
            $filter_categorie = true;
          }
        }
 
        // Common filter
        if (!$filter_categorie) {
          $fields_label = explode('|', $InfoFieldList[1]);
          if (is_array($fields_label)) {
            $keyList .= ', ';
            $keyList .= implode(', ', $fields_label);
          }
 
          $sqlwhere = '';
          $sql = "SELECT " . $this->db->sanitize($keyList, 0, 0, 1);
          $sql .= ' FROM ' . $this->db->prefix() . $this->db->sanitize($InfoFieldList[0]);
 
          if (!empty($InfoFieldList[4])) {
            // can use SELECT request
            if (strpos($InfoFieldList[4], '$SEL$') !== false) {
              $InfoFieldList[4] = str_replace('$SEL$', 'SELECT', $InfoFieldList[4]);
            }
 
            // current object id can be use into filter
            if (strpos($InfoFieldList[4], '$ID$') !== false && !empty($objectid)) {
              $InfoFieldList[4] = str_replace('$ID$', (string) $objectid, $InfoFieldList[4]);
            } else {
              $InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
            }
 
            // We have to join on extrafield table
            $errstr = '';
            if (strpos($InfoFieldList[4], 'extra') !== false) {
              $sql .= ' as main, ' . $this->db->sanitize($this->db->prefix() . $InfoFieldList[0]) . '_extrafields as extra';
              $sqlwhere .= " WHERE extra.fk_object = main." . $this->db->sanitize($InfoFieldList[2]);
              $sqlwhere .= " AND " . forgeSQLFromUniversalSearchCriteria($InfoFieldList[4], $errstr, 1);
            } else {
              $sqlwhere .= " WHERE " . forgeSQLFromUniversalSearchCriteria($InfoFieldList[4], $errstr, 1);
            }
          } else {
            $sqlwhere .= ' WHERE 1=1';
          }
 
          // Add Usf filter on second line
          /*
           if ($Usf) {
           $errorstr = '';
           $sqlusf .= forgeSQLFromUniversalSearchCriteria($Usf, $errorstr);
           if (!$errorstr) {
           $sqlwhere .= $sqlusf;
           } else {
           $sqlwhere .= " AND invalid_usf_filter_of_extrafield";
           }
           }
           */
 
          // Some tables may have field, some other not. For the moment we disable it.
          if (in_array($InfoFieldList[0], array('tablewithentity'))) {
            $sqlwhere .= " AND entity = " . ((int) $conf->entity);
          }
          // $sql.=preg_replace('/^ AND /','',$sqlwhere);
          // print $sql;
 
          $sql .= $sqlwhere;
 
          dol_syslog(get_class($this) . '::showInputField type=chkbxlst', LOG_DEBUG);
 
          $resql = $this->db->query($sql);
          if ($resql) {
            $num = $this->db->num_rows($resql);
            $i = 0;
 
            $data = array();
 
            while ($i < $num) {
              $labeltoshow = '';
              $obj = $this->db->fetch_object($resql);
 
              $notrans = false;
              // Several field into label (eq table:code|libelle:rowid)
              $fields_label = explode('|', $InfoFieldList[1]);
              if (count($fields_label) > 1) {
                $notrans = true;
                foreach ($fields_label as $field_toshow) {
                  $labeltoshow .= $obj->$field_toshow . ' ';
                }
              } else {
                $labeltoshow = $obj->{$InfoFieldList[1]};
              }
              $labeltoshow = dol_trunc($labeltoshow, 45);
 
              if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
                foreach ($fields_label as $field_toshow) {
                  $translabel = $langs->trans($obj->$field_toshow);
                  if ($translabel != $obj->$field_toshow) {
                    $labeltoshow = dol_trunc($translabel, 18) . ' ';
                  } else {
                    $labeltoshow = dol_trunc($obj->$field_toshow, 18) . ' ';
                  }
                }
 
                $data[$obj->rowid] = $labeltoshow;
              } else {
                if (!$notrans) {
                  $translabel = $langs->trans($obj->{$InfoFieldList[1]});
                  if ($translabel != $obj->{$InfoFieldList[1]}) {
                    $labeltoshow = dol_trunc($translabel, 18);
                  } else {
                    $labeltoshow = dol_trunc($obj->{$InfoFieldList[1]}, 18);
                  }
                }
                if (empty($labeltoshow)) {
                  $labeltoshow = '(not defined)';
                }
 
                if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
                  $data[$obj->rowid] = $labeltoshow;
                }
 
                if (!empty($InfoFieldList[3]) && $parentField) {
                  $parent = $parentName . ':' . $obj->{$parentField};
                  $isDependList = 1;
                }
 
                $data[$obj->rowid] = $labeltoshow;  // Warning: $obj->rowid is an alias and can be an int, but also a string ref.
              }
 
              $i++;
            }
            $this->db->free($resql);
 
            $out = $form->multiselectarray($keyprefix . $key . $keysuffix, $data, $value_arr, 0, 0, $morecss, 0, '100%');
          } else {
            print 'Error in request ' . $sql . ' ' . $this->db->lasterror() . '. Check setup of extra parameters.<br>';
          }
        } else {
          require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
          $categcode = $InfoFieldList[5];
          if (is_numeric($categcode)) { // deprecated: must use the category code instead of id. For backward compatibility.
            $tmpcategory = new Categorie($this->db);
            $MAP_ID_TO_CODE = array_flip($tmpcategory->MAP_ID);
            $categcode = $MAP_ID_TO_CODE[(int) $categcode];
          }
 
          $data = $form->select_all_categories($categcode, '', 'parent', 64, $InfoFieldList[6], 1, 1);
          $out = $form->multiselectarray($keyprefix . $key . $keysuffix, $data, $value_arr, 0, 0, $morecss, 0, '100%');
        }
      }
    } elseif ($type == 'link') {
      // $param_list='ObjectName:classPath[:AddCreateButtonOrNot[:Filter[:Sortfield]]]'
      // Filter can contains some ':' inside.
      $param_list = array_keys($param['options']);
      $param_list_array = explode(':', $param_list[0], 4);
 
      $showempty = (($required && $default != '') ? 0 : 1);
 
      if (!preg_match('/search_/', $keyprefix)) {
        if (!empty($param_list_array[2])) {   // If the entry into $fields is set to add a create button
          // @phan-suppress-next-line PhanTypeMismatchProperty
          if (!empty($this->fields[$key]['picto'])) {
            $morecss .= ' widthcentpercentminusxx';
          } else {
            $morecss .= ' widthcentpercentminusx';
          }
        } else {
          // @phan-suppress-next-line PhanTypeMismatchProperty
          if (!empty($this->fields[$key]['picto'])) {
            $morecss .= ' widthcentpercentminusx';
          }
        }
      }
 
      // $param_list_array[0] can be the name of object (Example 'User' the field is linked to). Not as taking the information from the record in ->fields found from $objectfield.
 
      // $val is already the record field found at same place than found by $valparent but already loaded and may have been modified by parent caller.
 
      $objectfield = $val;
 
      // @phan-suppress-next-line PhanTypeMismatchArgumentNullable
      $out = $form->selectForForms($param_list_array[0], $keyprefix.$key.$keysuffix, (int) $value, $showempty, '', '', $morecss, $moreparam, 0, (empty($val['disabled']) ? 0 : 1), '', $objectfield);
 
      if (!empty($param_list_array[2])) {   // If the entry into $fields is set, we must add a create button
        if ((!GETPOSTISSET('backtopage') || strpos(GETPOST('backtopage'), $_SERVER['PHP_SELF']) === 0)  // // To avoid to open several times the 'Plus' button (we accept only one level)
          && empty($val['disabled']) && empty($nonewbutton)) {  // and to avoid to show the button if the field is protected by a "disabled".
          list($class, $classfile) = explode(':', $param_list[0]);
          if (file_exists(dol_buildpath(dirname(dirname($classfile)).'/card.php'))) {
            $url_path = dol_buildpath(dirname(dirname($classfile)).'/card.php', 1);
          } else {
            $url_path = dol_buildpath(dirname(dirname($classfile)).'/'.strtolower($class).'_card.php', 1);
          }
          $paramforthenewlink = '';
          $paramforthenewlink .= (GETPOSTISSET('action') ? '&action='.GETPOST('action', 'aZ09') : '');
          $paramforthenewlink .= (GETPOSTISSET('id') ? '&id='.GETPOSTINT('id') : '');
          $paramforthenewlink .= (GETPOSTISSET('origin') ? '&origin='.GETPOST('origin', 'aZ09') : '');
          $paramforthenewlink .= (GETPOSTISSET('originid') ? '&originid='.GETPOSTINT('originid') : '');
          $paramforthenewlink .= '&fk_'.strtolower($class).'=--IDFORBACKTOPAGE--';
          // TODO Add JavaScript code to add input fields already filled into $paramforthenewlink so we won't loose them when going back to main page
          $out .= '<a class="butActionNew" title="'.$langs->trans("New").'" href="'.$url_path.'?action=create&backtopage='.urlencode($_SERVER['PHP_SELF'].($paramforthenewlink ? '?'.$paramforthenewlink : '')).'"><span class="fa fa-plus-circle valignmiddle"></span></a>';
        }
      }
    } elseif ($type == 'password') {
      // If prefix is 'search_', field is used as a filter, we use a common text field.
      if ($keyprefix.$key.$keysuffix == 'pass_crypted') {
        $out = '<input type="'.($keyprefix == 'search_' ? 'text' : 'password').'" class="flat '.$morecss.'" name="pass" id="pass" value="" '.($moreparam ? $moreparam : '').'>';
        $out .= '<input type="hidden" name="pass_crypted" id="pass_crypted" value="'.$value.'" '.($moreparam ? $moreparam : '').'>';
      } else {
        $out = '<input type="'.($keyprefix == 'search_' ? 'text' : 'password').'" class="flat '.$morecss.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'" value="'.$value.'" '.($moreparam ? $moreparam : '').'>';
      }
    } elseif ($type == 'array') {
      $newval = $val;
      $newval['type'] = 'varchar(256)';
 
      $out = '';
      if (!empty($value)) {
        foreach ($value as $option) {
          $out .= '<span><a class="'.dol_escape_htmltag($keyprefix.$key.$keysuffix).'_del" href="javascript:;"><span class="fa fa-minus-circle valignmiddle"></span></a> ';
          $out .= $this->showInputField($newval, $keyprefix.$key.$keysuffix.'[]', $option, $moreparam, '', '', $morecss).'<br></span>';
        }
      }
      $out .= '<a id="'.dol_escape_htmltag($keyprefix.$key.$keysuffix).'_add" href="javascript:;"><span class="fa fa-plus-circle valignmiddle"></span></a>';
 
      $newInput = '<span><a class="'.dol_escape_htmltag($keyprefix.$key.$keysuffix).'_del" href="javascript:;"><span class="fa fa-minus-circle valignmiddle"></span></a> ';
      $newInput .= $this->showInputField($newval, $keyprefix.$key.$keysuffix.'[]', '', $moreparam, '', '', $morecss).'<br></span>';
 
      if (!empty($conf->use_javascript_ajax)) {
        $out .= '
          <script nonce="'.getNonce().'">
          $(document).ready(function() {
            $("a#'.dol_escape_js($keyprefix.$key.$keysuffix).'_add").click(function() {
              $("'.dol_escape_js($newInput).'").insertBefore(this);
            });
 
            $(document).on("click", "a.'.dol_escape_js($keyprefix.$key.$keysuffix).'_del", function() {
              $(this).parent().remove();
            });
          });
          </script>';
      }
    }
    if (!empty($hidden)) {
      $out = '<input type="hidden" value="'.$value.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.'"/>';
    }
 
    if ($isDependList == 1) {
      $out .= $this->getJSListDependancies('_common');
    }
    /* Add comments
     if ($type == 'date') $out.=' (YYYY-MM-DD)';
     elseif ($type == 'datetime') $out.=' (YYYY-MM-DD HH:MM:SS)';
     */
 
    // Display error message for field
    if (!empty($fieldValidationErrorMsg) && function_exists('getFieldErrorIcon')) {
      $out .= ' '.getFieldErrorIcon($fieldValidationErrorMsg);
    }
 
    return $out;
  }
 
  public function showOutputField($val, $key, $value, $moreparam = '', $keysuffix = '', $keyprefix = '', $morecss = '')
  {
    global $conf, $langs, $form;
 
    // TODO pass the current object as a parameter to give more flexibility (like disable ajax update when canAlwaysBeEdited is false and $object->status is not draft...)
 
    if (!is_object($form)) {
      require_once DOL_DOCUMENT_ROOT.'/core/class/html.form.class.php';
      $form = new Form($this->db);
    }
 
    //$label = empty($val['label']) ? '' : $val['label'];
    $type  = empty($val['type']) ? '' : $val['type'];
    $size  = empty($val['css']) ? '' : $val['css'];
 
    $reg = array();
 
    // Convert var to be able to share same code than showOutputField of extrafields
    if (preg_match('/varchar\‍((\d+)\‍)/', $type, $reg)) {
      $type = 'varchar'; // convert varchar(xx) int varchar
      $size = $reg[1];
    } elseif (preg_match('/varchar/', $type)) {
      $type = 'varchar'; // convert varchar(xx) int varchar
    }
    if (!empty($val['arrayofkeyval']) && is_array($val['arrayofkeyval'])) {
      // @phan-suppress-next-line PhanTypeMismatchProperty
      if (empty($this->fields[$key]['multiinput'])) {
        $type = (($this->fields[$key]['type'] == 'checkbox') ? $this->fields[$key]['type'] : 'select');
      }
    }
    if (isset($val['type']) && preg_match('/^integer:(.*):(.*)/i', $val['type'], $reg)) {
      $type = 'link';
    }
 
    $default = empty($val['default']) ? '' : $val['default'];
    $computed = empty($val['computed']) ? '' : $val['computed'];
    $unique = empty($val['unique']) ? '' : $val['unique'];
    $required = empty($val['required']) ? '' : $val['required'];
    $param = array();
    $param['options'] = array();
 
    if (!empty($val['arrayofkeyval']) && is_array($val['arrayofkeyval'])) {
      $param['options'] = $val['arrayofkeyval'];
    }
    if (isset($val['type']) && preg_match('/^integer:([^:]*):([^:]*)/i', $val['type'], $reg)) { // ex: integer:User:user/class/user.class.php
      $type = 'link';
      $stringforoptions = $reg[1].':'.$reg[2];
      // Special case: Force addition of getnomurlparam1 to -1 for users
      if ($reg[1] == 'User') {
        $stringforoptions .= ':#getnomurlparam1=-1';
      }
      $param['options'] = array($stringforoptions => $stringforoptions);
    } elseif (isset($val['type']) && preg_match('/^sellist:(.*):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1].':'.$reg[2].':'.$reg[3].':'.$reg[4] => 'N');
      $type = 'sellist';
    } elseif (isset($val['type']) && preg_match('/^sellist:(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1].':'.$reg[2].':'.$reg[3] => 'N');
      $type = 'sellist';
    } elseif (isset($val['type']) && preg_match('/^sellist:(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1].':'.$reg[2] => 'N');
      $type = 'sellist';
    } elseif (isset($val['type']) && preg_match('/^chkbxlst:(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1] => 'N');
      $type = 'chkbxlst';
    } elseif (isset($val['type']) && preg_match('/stars\‍((\d+)\‍)/', $val['type'], $reg)) {
      $param['options'] = array();
      $type = 'stars';
      $size = $reg[1];
    }
 
    $langfile = empty($val['langfile']) ? '' : $val['langfile'];
    $list = (empty($val['list']) ? '' : $val['list']);
    $help = (empty($val['help']) ? '' : $val['help']);
    $hidden = (($val['visible'] == 0) ? 1 : 0); // If zero, we are sure it is hidden, otherwise we show. If it depends on mode (view/create/edit form or list, this must be filtered by caller)
 
    if ($hidden) {
      return '';
    }
 
    // If field is a computed field, value must become result of compute
    if ($computed) {
      // Make the eval of compute string
      //var_dump($computed);
      $value = dol_eval((string) $computed, 1, 0, '2');
    }
 
    if (empty($morecss)) {
      if ($type == 'date') {
        $morecss = 'minwidth100imp';
      } elseif ($type == 'datetime' || $type == 'timestamp') {
        $morecss = 'minwidth200imp';
      } elseif (in_array($type, array('int', 'double', 'price'))) {
        $morecss = 'maxwidth75';
      } elseif ($type == 'url') {
        $morecss = 'minwidth400';
      } elseif ($type == 'boolean') {
        $morecss = '';
      } else {
        if (is_numeric($size) && round((float) $size) < 12) {
          $morecss = 'minwidth100';
        } elseif (is_numeric($size) && round((float) $size) <= 48) {
          $morecss = 'minwidth200';
        } else {
          $morecss = 'minwidth400';
        }
      }
    }
 
    // Format output value differently according to properties of field
    if (in_array($key, array('rowid', 'ref')) && method_exists($this, 'getNomUrl')) {
      // @phan-suppress-next-line PhanTypeMismatchProperty
      if ($key != 'rowid' || empty($this->fields['ref'])) { // If we want ref field or if we want ID and there is no ref field, we show the link.
        $value = $this->getNomUrl(1, '', 0, '', 1);
      }
    } elseif ($key == 'status' && method_exists($this, 'getLibStatut')) {
      $value = $this->getLibStatut(3);
    } elseif ($type == 'date') {
      if (!empty($value)) {
        $value = dol_print_date($value, 'day'); // We suppose dates without time are always gmt (storage of course + output)
      } else {
        $value = '';
      }
    } elseif ($type == 'datetime' || $type == 'timestamp') {
      if (!empty($value)) {
        $value = dol_print_date($value, 'dayhour', 'tzuserrel');
      } else {
        $value = '';
      }
    } elseif ($type == 'duration') {
      include_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
      if (!is_null($value) && $value !== '') {
        $value = convertSecondToTime((int) $value, 'allhourmin');
      }
    } elseif ($type == 'double' || $type == 'real') {
      if (!is_null($value) && $value !== '') {
        $value = price($value);
      }
    } elseif ($type == 'boolean') {
      $checked = '';
      if (!empty($value)) {
        $checked = ' checked ';
      }
      if (getDolGlobalInt('MAIN_OPTIMIZEFORTEXTBROWSER') < 2) {
        $value = '<input type="checkbox" '.$checked.' '.($moreparam ? $moreparam : '').' readonly disabled>';
      } else {
        $value = yn($value ? 1 : 0);
      }
    } elseif ($type == 'mail' || $type == 'email') {
      $value = dol_print_email((string) $value, 0, 0, 0, 64, 1, 1);
    } elseif ($type == 'url') {
      $value = dol_print_url((string) $value, '_blank', 32, 1);
    } elseif ($type == 'phone') {
      $value = dol_print_phone((string) $value, '', 0, 0, '', '&nbsp;', 'phone');
    } elseif ($type == 'ip') {
      $value = dol_print_ip((string) $value, 0);
    } elseif ($type == 'stars') {
      $value = '<input type="hidden" class="flat '.$morecss.'" name="'.$keyprefix.$key.$keysuffix.'" id="'.$keyprefix.$key.$keysuffix.$this->id.'" value="'.dol_escape_htmltag((string) $value).'"'.($moreparam ? $moreparam : '').'>';
      $value .= '<div class="star-selection" id="'.$keyprefix.$key.$keysuffix.$this->id.'_selection">';
      $i = 1;
      while ($i <= $size) {
        $value .= '<span class="star" data-value="'.$i.'">'.img_picto('', 'fontawesome_star_fas').'</span>';
        $i++;
      }
      $value .= '</div>';
      $value .= '<script>
        $(document).ready(function() {  /* commonobject.class.php 2 */
            let container = $("#'.$keyprefix.$key.$keysuffix.$this->id.'_selection");
            let selectedStars = parseInt($("#'.$keyprefix.$key.$keysuffix.$this->id.'").val()) || 0;
            container.find(".star").each(function() {
              $(this).toggleClass("active", $(this).data("value") <= selectedStars);
            });
            container.find(".star").on("mouseover", function() {
              let selectedStar = $(this).data("value");
              container.find(".star").each(function() {
                $(this).toggleClass("active", $(this).data("value") <= selectedStar);
              });
            });
            container.on("mouseout", function() {
              container.find(".star").each(function() {
                $(this).toggleClass("active", $(this).data("value") <= selectedStars);
              });
            });
            container.find(".star").off("click").on("click", function() {
              selectedStars = $(this).data("value");
              if (selectedStars == 1 && $("#'.$keyprefix.$key.$keysuffix.$this->id.'").val() == 1) {
                selectedStars = 0;
              }
              container.find("#'.$keyprefix.$key.$keysuffix.$this->id.'").val(selectedStars);
              container.find(".star").each(function() {
                $(this).toggleClass("active", $(this).data("value") <= selectedStars);
              });
              $.ajax({
                url: "ajax/'.$this->element.'.php",
                method: "POST",
                data: {
                  objectId: "'.$this->id.'",
                  field: "'.$keyprefix.$key.$keysuffix.'",
                  value: selectedStars,
                  token: "'.newToken().'"
                },
                success: function(response) {
                  var res = JSON.parse(response);
                  console[res.status === "success" ? "log" : "error"](res.message);
                },
                error: function(xhr, status, error) {
                  console.log("Ajax request failed while updating '.$keyprefix.$key.$keysuffix.':", error);
                }
              });
            });
        });
      </script>';
    } elseif ($type == 'price') {
      if (!is_null($value) && $value !== '') {
        $value = price($value, 0, $langs, 0, 0, -1, $conf->currency);
      }
    } elseif ($type == 'select') {
      $value = isset($param['options'][(string) $value]) ? $param['options'][(string) $value] : '';
      if (strpos($value, "|") !== false) {
        $value = $langs->trans(explode('|', $value)[0]);
      } elseif (! is_numeric($value)) {
        $value = $langs->trans($value);
      }
    } elseif ($type == 'sellist') {
      $param_list = array_keys($param['options']);
      $InfoFieldList = explode(":", $param_list[0]);
 
      $selectkey = "rowid";
      $keyList = 'rowid';
 
      if (count($InfoFieldList) > 2 && !empty($InfoFieldList[2])) {
        $selectkey = $InfoFieldList[2];
        $keyList = $InfoFieldList[2].' as rowid';
      }
 
      $fields_label = explode('|', $InfoFieldList[1]);
      if (is_array($fields_label)) {
        $keyList .= ', ';
        $keyList .= implode(', ', $fields_label);
      }
 
      $filter_categorie = false;
      if (count($InfoFieldList) > 5) {
        if ($InfoFieldList[0] == 'categorie') {
          $filter_categorie = true;
        }
      }
 
      $sql = "SELECT ".$this->db->sanitize($keyList, 0, 0, 1);
      $sql .= ' FROM '.$this->db->prefix().$this->db->sanitize($InfoFieldList[0]);
      if (isset($InfoFieldList[4]) && strpos($InfoFieldList[4], 'extra') !== false) {
        $sql .= ' as main';
      }
      if ($selectkey == 'rowid' && empty($value)) {
        $sql .= " WHERE ".$this->db->sanitize($selectkey)." = 0";
      } elseif ($selectkey == 'rowid') {
        $sql .= " WHERE ".$this->db->sanitize($selectkey)." = ".((int) $value);
      } else {
        $sql .= " WHERE ".$this->db->sanitize($selectkey)." = '".$this->db->escape((string) $value)."'";
      }
 
      //$sql.= ' AND entity = '.((int) $conf->entity);
 
      dol_syslog(get_class($this).':showOutputField:$type=sellist', LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        if (!$filter_categorie) {
          $value = ''; // value was used, so now we reset it to use it to build final output
          $numrows = $this->db->num_rows($resql);
          if ($numrows) {
            $obj = $this->db->fetch_object($resql);
 
            // Several field into label (eq table:code|libelle:rowid)
            $fields_label = explode('|', $InfoFieldList[1]);
 
            if (is_array($fields_label) && count($fields_label) > 1) {
              foreach ($fields_label as $field_toshow) {
                $translabel = '';
                if (!empty($obj->$field_toshow)) {
                  $translabel = $langs->trans($obj->$field_toshow);
                }
                if ($translabel != $field_toshow) {
                  $value .= dol_trunc($translabel, 18) . ' ';
                } else {
                  $value .= $obj->$field_toshow . ' ';
                }
              }
            } else {
              $translabel = '';
              if (!empty($obj->{$InfoFieldList[1]})) {
                $translabel = $langs->trans($obj->{$InfoFieldList[1]});
              }
              if ($translabel != $obj->{$InfoFieldList[1]}) {
                $value = dol_trunc($translabel, 18);
              } else {
                $value = $obj->{$InfoFieldList[1]};
              }
            }
          }
        } else {
          require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
 
          $toprint = array();
          $obj = $this->db->fetch_object($resql);
          $c = new Categorie($this->db);
          $c->fetch($obj->rowid);
          $ways = $c->print_all_ways(); // $ways[0] = "ccc2 >> ccc2a >> ccc2a1" with html formatted text
          foreach ($ways as $way) {
            $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories"' . ($c->color ? ' style="background: #' . $c->color . ';"' : ' style="background: #aaa"') . '>' . img_object('', 'category') . ' ' . $way . '</li>';
          }
          $value = '<div class="select2-container-multi-dolibarr" style="width: 90%;"><ul class="select2-choices-dolibarr">'.implode(' ', $toprint).'</ul></div>';
        }
      } else {
        dol_syslog(get_class($this).'::showOutputField error '.$this->db->lasterror(), LOG_WARNING);
      }
    } elseif ($type == 'radio') {
      $value = $param['options'][(string) $value];
    } elseif ($type == 'checkbox') {
      $value_arr = explode(',', (string) $value);
      $value = '';
      if (is_array($value_arr) && count($value_arr) > 0) {
        $toprint = array();
        foreach ($value_arr as $keyval => $valueval) {
          if (!empty($valueval)) {
            $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . $param['options'][$valueval] . '</li>';
          }
        }
        if (!empty($toprint)) {
          $value = '<div class="select2-container-multi-dolibarr" style="width: 90%;"><ul class="select2-choices-dolibarr">' . implode(' ', $toprint) . '</ul></div>';
        }
      }
    } elseif ($type == 'chkbxlst') {
      $value_arr = (isset($value) ? explode(',', $value) : array());
 
      $param_list = array_keys($param['options']);
      $InfoFieldList = explode(":", $param_list[0]);
 
      $selectkey = "rowid";
      $keyList = 'rowid';
 
      if (count($InfoFieldList) >= 3) {
        $selectkey = $InfoFieldList[2];
        $keyList = $InfoFieldList[2].' as rowid';
      }
 
      $fields_label = explode('|', $InfoFieldList[1]);
      if (is_array($fields_label)) {
        $keyList .= ', ';
        $keyList .= implode(', ', $fields_label);
      }
 
      $filter_categorie = false;
      if (count($InfoFieldList) > 5) {
        if ($InfoFieldList[0] == 'categorie') {
          $filter_categorie = true;
        }
      }
 
      $sql = "SELECT ".$this->db->sanitize($keyList, 0, 0, 1);
      $sql .= ' FROM '.$this->db->prefix().$this->db->sanitize($InfoFieldList[0]);
      if (isset($InfoFieldList[4]) && strpos($InfoFieldList[4], 'extra') !== false) {
        $sql .= ' as main';
      }
      // $sql.= " WHERE ".$selectkey."='".$this->db->escape($value)."'";
      // $sql.= ' AND entity = '.((int) $conf->entity);
 
      dol_syslog(get_class($this).':showOutputField:$type=chkbxlst', LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        if (!$filter_categorie) {
          $value = ''; // value was used, so now we reset it to use it to build final output
          $toprint = array();
          while ($obj = $this->db->fetch_object($resql)) {
            // Several field into label (eq table:code|libelle:rowid)
            $fields_label = explode('|', $InfoFieldList[1]);
            if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
              if (is_array($fields_label) && count($fields_label) > 1) {
                foreach ($fields_label as $field_toshow) {
                  $translabel = '';
                  if (!empty($obj->$field_toshow)) {
                    $translabel = $langs->trans($obj->$field_toshow);
                  }
                  if ($translabel != $field_toshow) {
                    $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . dol_trunc($translabel, 18) . '</li>';
                  } else {
                    $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . $obj->$field_toshow . '</li>';
                  }
                }
              } else {
                $translabel = '';
                if (!empty($obj->{$InfoFieldList[1]})) {
                  $translabel = $langs->trans($obj->{$InfoFieldList[1]});
                }
                if ($translabel != $obj->{$InfoFieldList[1]}) {
                  $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . dol_trunc($translabel, 18) . '</li>';
                } else {
                  $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . $obj->{$InfoFieldList[1]} . '</li>';
                }
              }
            }
          }
        } else {
          require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
 
          $toprint = array();
          while ($obj = $this->db->fetch_object($resql)) {
            if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
              $c = new Categorie($this->db);
              $c->fetch($obj->rowid);
              $ways = $c->print_all_ways(); // $ways[0] = "ccc2 >> ccc2a >> ccc2a1" with html formatted text
              foreach ($ways as $way) {
                $toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories"' . ($c->color ? ' style="background: #' . $c->color . ';"' : ' style="background: #aaa"') . '>' . img_object('', 'category') . ' ' . $way . '</li>';
              }
            }
          }
        }
        $value = '<div class="select2-container-multi-dolibarr" style="width: 90%;"><ul class="select2-choices-dolibarr">'.implode(' ', $toprint).'</ul></div>';
      } else {
        dol_syslog(get_class($this).'::showOutputField error '.$this->db->lasterror(), LOG_WARNING);
      }
    } elseif ($type == 'link') {
      $out = '';
 
      // only if something to display (perf)
      if ($value) {
        $param_list = array_keys($param['options']);
        // Example: $param_list='ObjectClass:PathToClass[:AddCreateButtonOrNot[:Filter[:Sortfield]]]'
        // Example: $param_list='ObjectClass:PathToClass:#getnomurlparam1=-1#getnomurlparam2=customer'
 
        $InfoFieldList = explode(":", $param_list[0]);
 
        $classname = $InfoFieldList[0];
        $classpath = $InfoFieldList[1];
 
        // Set $getnomurlparam1 et getnomurlparam2
        $getnomurlparam = 3;
        $getnomurlparam2 = '';
        $regtmp = array();
        if (preg_match('/#getnomurlparam1=([^#]*)/', $param_list[0], $regtmp)) {
          $getnomurlparam = $regtmp[1];
        }
        if (preg_match('/#getnomurlparam2=([^#]*)/', $param_list[0], $regtmp)) {
          $getnomurlparam2 = $regtmp[1];
        }
 
        if (!empty($classpath)) {
          dol_include_once($InfoFieldList[1]);
 
          if ($classname && !class_exists($classname)) {
            // from V19 of Dolibarr, In some cases link use element instead of class, example project_task
            // TODO use newObjectByElement() introduce in V20 by PR #30036 for better errors management
            $element_prop = getElementProperties($classname);
            if ($element_prop) {
              $classname = $element_prop['classname'];
            }
          }
 
 
          if ($classname && class_exists($classname)) {
            $object = new $classname($this->db);
            '@phan-var-force CommonObject $object';
            if ($object->element === 'product') { // Special case for product because default valut of fetch are wrong
              '@phan-var-force Product $object';
              $result = $object->fetch((int) $value, '', '', '', 0, 1, 1);
            } else {
              $result = $object->fetch($value);
            }
            if ($result > 0) {
              if ($object->element === 'product') {
                '@phan-var-force Product $object';
                $get_name_url_param_arr = array($getnomurlparam, $getnomurlparam2, 0, -1, 0, '', 0);
                if (isset($val['get_name_url_params'])) {
                  $get_name_url_params = explode(':', $val['get_name_url_params']);
                  if (!empty($get_name_url_params)) {
                    $param_num_max = count($get_name_url_param_arr) - 1;
                    foreach ($get_name_url_params as $param_num => $param_value) {
                      if ($param_num > $param_num_max) {
                        break;
                      }
                      $get_name_url_param_arr[$param_num] = $param_value;
                    }
                  }
                }
 
                $value = $object->getNomUrl($get_name_url_param_arr[0], $get_name_url_param_arr[1], $get_name_url_param_arr[2], $get_name_url_param_arr[3], $get_name_url_param_arr[4], $get_name_url_param_arr[5], $get_name_url_param_arr[6]);
              } else {
                $value = $object->getNomUrl($getnomurlparam, $getnomurlparam2);
              }
            } else {
              $value = '';
            }
          }
        } else {
          dol_syslog('Error bad setup of extrafield', LOG_WARNING);
          return 'Error bad setup of extrafield';
        }
      } else {
        $value = '';
      }
    } elseif ($type == 'password') {
      $value = '<span class="opacitymedium">'.$langs->trans("Encrypted").'</span>';
      //$value = preg_replace('/./i', '*', $value);
    } elseif ($type == 'array') {
      if (is_array($value)) {
        $value = implode('<br>', $value);
      } else {
        dol_syslog(__METHOD__.' Expected array from dol_eval, but got '.gettype($value), LOG_ERR);
        return 'Error unexpected result from code evaluation';
      }
    } else {  // text|html|varchar
      if (!empty($value) && preg_match('/^text/', (string) $type) && !preg_match('/search_/', $keyprefix) && !empty($param['options'])) {
        $value = str_replace(',', "\n", $value);
      }
      $value = dol_htmlentitiesbr((string) $value);
    }
 
    //print $type.'-'.$size.'-'.$value;
    $out = $value;
 
    return is_null($out) ? '' : $out;
  }
 
  public function clearFieldError($fieldKey)
  {
    $this->error = '';
    unset($this->validateFieldsErrors[$fieldKey]);
  }
 
  public function setFieldError($fieldKey, $msg = '')
  {
    global $langs;
    if (empty($msg)) {
      $msg = $langs->trans("UnknownError");
    }
 
    $this->error = $this->validateFieldsErrors[$fieldKey] = $msg;
  }
 
  public function getFieldError($fieldKey)
  {
    if (!empty($this->validateFieldsErrors[$fieldKey])) {
      return $this->validateFieldsErrors[$fieldKey];
    }
    return '';
  }
 
  public function validateField($fields, $fieldKey, $fieldValue)
  {
    global $langs;
 
    if (!class_exists('Validate')) {
      require_once DOL_DOCUMENT_ROOT . '/core/class/validate.class.php';
    }
 
    $this->clearFieldError($fieldKey);
 
    if (!array_key_exists($fieldKey, $fields) || !is_array($fields[$fieldKey])) {
      $this->setFieldError($fieldKey, $langs->trans('FieldNotFoundInObject'));
      return false;
    }
 
    $val = $fields[$fieldKey];
 
    $param = array();
    $param['options'] = array();
    $type  = $val['type'];
 
    $required = false;
    if (isset($val['notnull']) && $val['notnull'] === 1) {
      // 'notnull' is set to 1 if not null in database. Set to -1 if we must set data to null if empty ('' or 0).
      $required = true;
    }
 
    $maxSize = 0;
    $minSize = 0;
 
    //
    // PREPARE Elements
    //
    $reg = array();
 
    // Convert var to be able to share same code than showOutputField of extrafields
    if (preg_match('/varchar\‍((\d+)\‍)/', $type, $reg)) {
      $type = 'varchar'; // convert varchar(xx) int varchar
      $maxSize = (int) $reg[1];
    } elseif (preg_match('/varchar/', $type)) {
      $type = 'varchar'; // convert varchar(xx) int varchar
    }
 
    if (!empty($val['arrayofkeyval']) && is_array($val['arrayofkeyval'])) {
      $type = 'select';
    }
 
    if (!empty($val['type']) && preg_match('/^integer:(.*):(.*)/i', $val['type'], $reg)) {
      $type = 'link';
    }
 
    if (!empty($val['arrayofkeyval']) && is_array($val['arrayofkeyval'])) {
      $param['options'] = $val['arrayofkeyval'];
    }
 
    if (preg_match('/^integer:(.*):(.*)/i', $val['type'], $reg)) {
      $type = 'link';
      $param['options'] = array($reg[1].':'.$reg[2] => $reg[1].':'.$reg[2]);
    } elseif (preg_match('/^sellist:(.*):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1].':'.$reg[2].':'.$reg[3].':'.$reg[4] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^sellist:(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1].':'.$reg[2].':'.$reg[3] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^sellist:(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1].':'.$reg[2] => 'N');
      $type = 'sellist';
    }
 
    //
    // TEST Value
    //
 
    // Use Validate class to allow external Modules to use data validation part instead of concentrate all test here (factoring) or just for reuse
    $validate = new Validate($this->db, $langs);
 
 
    // little trick : to perform tests with good performances sort tests by quick to low
 
    //
    // COMMON TESTS
    //
 
    // Required test and empty value
    if ($required && !$validate->isNotEmptyString($fieldValue)) {
      $this->setFieldError($fieldKey, $validate->error);
      return false;
    } elseif (!$required && !$validate->isNotEmptyString($fieldValue)) {
      // if no value sent and the field is not mandatory, no need to perform tests
      return true;
    }
 
    // MAX Size test
    if (!empty($maxSize) && !$validate->isMaxLength($fieldValue, $maxSize)) {
      $this->setFieldError($fieldKey, $validate->error);
      return false;
    }
 
    // MIN Size test
    if (!empty($minSize) && !$validate->isMinLength($fieldValue, $minSize)) {
      $this->setFieldError($fieldKey, $validate->error);
      return false;
    }
 
    //
    // TESTS for TYPE
    //
 
    if (in_array($type, array('date', 'datetime', 'timestamp'))) {
      if (!$validate->isTimestamp($fieldValue)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      } else {
        return true;
      }
    } elseif ($type == 'duration') {
      if (!$validate->isDuration($fieldValue)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      } else {
        return true;
      }
    } elseif (in_array($type, array('double', 'real', 'price'))) {
      // is numeric
      if (!$validate->isNumeric($fieldValue)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      } else {
        return true;
      }
    } elseif ($type == 'boolean') {
      if (!$validate->isBool($fieldValue)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      } else {
        return true;
      }
    } elseif ($type == 'mail' || $type == 'email') {
      if (!$validate->isEmail($fieldValue)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      }
    } elseif ($type == 'url') {
      if (!$validate->isUrl($fieldValue)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      } else {
        return true;
      }
    } elseif ($type == 'phone') {
      if (!$validate->isPhone($fieldValue)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      } else {
        return true;
      }
    } elseif ($type == 'select' || $type == 'radio') {
      if (!isset($param['options'][$fieldValue])) {
        $this->error = $langs->trans('RequireValidValue');
        return false;
      } else {
        return true;
      }
    } elseif ($type == 'sellist' || $type == 'chkbxlst') {
      $param_list = array_keys($param['options']);
      $InfoFieldList = explode(":", $param_list[0]);
      $value_arr = explode(',', $fieldValue);
 
      $selectkey = "rowid";
      if (count($InfoFieldList) > 4 && !empty($InfoFieldList[4])) {
        $selectkey = $InfoFieldList[2];
      }
 
      if (!$validate->isInDb($value_arr, $InfoFieldList[0], $selectkey)) {
        $this->setFieldError($fieldKey, $validate->error);
        return false;
      } else {
        return true;
      }
    } elseif ($type == 'link') {
      $param_list = array_keys($param['options']); // $param_list='ObjectName:classPath'
      $InfoFieldList = explode(":", $param_list[0]);
      $classname = $InfoFieldList[0];
      $classpath = $InfoFieldList[1];
      if (!$validate->isFetchable((int) $fieldValue, $classname, $classpath)) {
        $lastIsFetchableError = $validate->error;
 
        // from V19 of Dolibarr, In some cases link use element instead of class, example project_task
        if ($validate->isFetchableElement((int) $fieldValue, $classname)) {
          return true;
        }
 
        $this->setFieldError($fieldKey, $lastIsFetchableError);
        return false;
      } else {
        return true;
      }
    }
 
    // if no test failed all is ok
    return true;
  }
 
  public function showOptionals($extrafields, $mode = 'view', $params = null, $keysuffix = '', $keyprefix = '', $onetrtd = '', $display_type = 'card')
  {
    global $db, $conf, $langs, $action, $form, $hookmanager;
    global $objectoffield;
 
    if (!is_object($form)) {
      $form = new Form($db);
    }
    if (!is_object($extrafields)) {
      dol_syslog('Bad parameter extrafields for showOptionals', LOG_ERR);
      return 'Bad parameter extrafields for showOptionals';
    }
    if (!is_array($extrafields->attributes[$this->table_element])) {
      dol_syslog("extrafields->attributes was not loaded with extrafields->fetch_name_optionals_label(table_element);", LOG_WARNING);
    }
 
    // Ensure $objectoffield is available for dol_eval visibility formulas.
    $objectoffield = $this;
 
    $out = '';
 
    $parameters = array('mode' => $mode, 'params' => $params, 'keysuffix' => $keysuffix, 'keyprefix' => $keyprefix, 'display_type' => $display_type);
    $reshook = $hookmanager->executeHooks('showOptionals', $parameters, $this, $action); // Note that $action and $object may have been modified by hook
    $hookResPrint = $hookmanager->resPrint;
 
    if (empty($reshook)) {
      if (is_array($extrafields->attributes[$this->table_element]) && array_key_exists('label', $extrafields->attributes[$this->table_element]) && is_array($extrafields->attributes[$this->table_element]['label']) && count($extrafields->attributes[$this->table_element]['label']) > 0) {
        $out .= "\n";
        $out .= '<!-- commonobject:showOptionals --> ';
        $out .= "\n";
 
        $nbofextrafieldsshown = 0;
        $e = 0; // var to manage the modulo (odd/even)
 
        $lastseparatorkeyfound = '';
        $extrafields_collapse_num = '';
        $extrafields_collapse_num_old = '';
        $i = 0;
 
        foreach ($extrafields->attributes[$this->table_element]['label'] as $key => $label) {
          $i++;
 
          // Show only the key field in params  @phan-suppress-next-line PhanTypeArraySuspiciousNullable
          if (is_array($params) && array_key_exists('onlykey', $params) && $key != $params['onlykey']) {
            continue;
          }
 
          // Test on 'enabled' ('enabled' is different than 'list' = 'visibility')
          $enabled = 1;
          if ($enabled && isset($extrafields->attributes[$this->table_element]['enabled'][$key])) {
            $enabled = (int) dol_eval((string) $extrafields->attributes[$this->table_element]['enabled'][$key], 1, 1, '2');
          }
          if (empty($enabled)) {
            continue;
          }
 
          $visibility = 1;
          if (isset($extrafields->attributes[$this->table_element]['list'][$key])) {
            $visibility = (int) dol_eval((string) $extrafields->attributes[$this->table_element]['list'][$key], 1, 1, '2');
          }
 
          $perms = 1;
          if ($perms && isset($extrafields->attributes[$this->table_element]['perms'][$key])) {
            $perms = (int) dol_eval((string) $extrafields->attributes[$this->table_element]['perms'][$key], 1, 1, '2');
          }
 
          if (($mode == 'create') && !in_array(abs($visibility), array(1, 3))) {
            continue; // <> -1 and <> 1 and <> 3 = not visible on forms, only on list
          } elseif (($mode == 'edit') && !in_array(abs($visibility), array(1, 3, 4))) {
            // We need to make sure, that the values of hidden extrafields are also part of $_POST.
            // Otherwise, they would be empty after an update of the object. See also getOptionalsFromPost
            // TODO: We should not have this hidden field, and action='update' should be done only if field was POSTED by form.
            $ef_name = 'options_' . $key;
            $ef_value = $this->array_options[$ef_name] ?? '';
            $out .= '<input type="hidden" name="' . $ef_name . '" id="' . $ef_name . '" value="' . dolPrintHTMLForAttribute($ef_value) . '" />' . "\n";  // If trouble to preserve content, we can try dol_htmlentities() instead, but real solution is to remove completely the hidden field (see previous TODO).
            continue; // <> -1 and <> 1 and <> 3 = not visible on forms, only on list and <> 4 = not visible at the creation
          } elseif ($mode == 'view' && empty($visibility)) {
            continue;
          }
          if (empty($perms)) {
            continue;
          }
 
          // Load language if required
          if (!empty($extrafields->attributes[$this->table_element]['langfile'][$key])) {
            $langs->load($extrafields->attributes[$this->table_element]['langfile'][$key]);
          }
 
          $colspan = 0;
          $value = null;
          if (is_array($params) && count($params) > 0 && $display_type == 'card') {
            if (array_key_exists('cols', $params)) {
              $colspan = $params['cols'];
            } elseif (array_key_exists('colspan', $params)) { // For backward compatibility. Use cols instead now.
              $reg = array();
              if (preg_match('/colspan="(\d+)"/', $params['colspan'], $reg)) {
                $colspan = $reg[1];
              } else {
                $colspan = $params['colspan'];
              }
            }
          }
          $colspan = intval($colspan);
 
          switch ($mode) {
            case "view":
              $value = ((!empty($this->array_options) && array_key_exists("options_".$key.$keysuffix, $this->array_options)) ? $this->array_options["options_".$key.$keysuffix] : null); // Value may be cleaned or formatted later
              break;
            case "create":
            case "edit":
              // We get the value of property found with GETPOST so it takes into account:
              // default values overwrite, restore back to list link, ... (but not 'default value in database' of field)
              $check = 'alphanohtml';
              if (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('html', 'text'))) {
                $check = 'restricthtml';
              }
              $getposttemp = GETPOST($keyprefix.'options_'.$key.$keysuffix, $check, 3); // GETPOST can get value from GET, POST or setup of default values overwrite.
              // GETPOST("options_" . $key) can be 'abc' or array(0=>'abc')
              if (is_array($getposttemp) || $getposttemp != '' || GETPOSTISSET($keyprefix.'options_'.$key.$keysuffix)) {
                if (is_array($getposttemp)) {
                  // $getposttemp is an array but following code expects a comma separated string
                  $value = implode(",", $getposttemp);
                } else {
                  $value = $getposttemp;
                }
              } elseif (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('int'))) {
                $value = (!empty($this->array_options["options_".$key]) || (isset($this->array_options["options_".$key]) && $this->array_options["options_".$key] === '0')) ? $this->array_options["options_".$key] : '';
              } elseif (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('varchar', 'char'))) {
                $value = (isset($this->array_options["options_".$key]) && $this->array_options["options_".$key] !== '') ? $this->array_options["options_".$key] : '';
              } else {
                $value = (!empty($this->array_options["options_".$key]) ? $this->array_options["options_".$key] : ''); // No GET, no POST, no default value, so we take value of object.
              }
              //var_dump($keyprefix.' - '.$key.' - '.$keysuffix.' - '.$keyprefix.'options_'.$key.$keysuffix.' - '.$this->array_options["options_".$key.$keysuffix].' - '.$getposttemp.' - '.$value);
              break;
          }
 
          $nbofextrafieldsshown++;
 
          // Output value of the current field
          if ($extrafields->attributes[$this->table_element]['type'][$key] == 'separate') {
            $extrafields_collapse_num = $key;
            /*
             $extrafield_param = $extrafields->attributes[$this->table_element]['param'][$key];
             if (!empty($extrafield_param) && is_array($extrafield_param)) {
             $extrafield_param_list = array_keys($extrafield_param['options']);
 
             if (count($extrafield_param_list) > 0) {
             $extrafield_collapse_display_value = intval($extrafield_param_list[0]);
 
             if ($extrafield_collapse_display_value == 1 || $extrafield_collapse_display_value == 2) {
             //$extrafields_collapse_num = $extrafields->attributes[$this->table_element]['pos'][$key];
             $extrafields_collapse_num = $key;
             }
             }
             }
             */
 
            // if colspan=0 or 1, the second column is not extended, so the separator must be on 2 columns
            $out .= $extrafields->showSeparator($key, $this, ($colspan ? $colspan + 1 : 2), $display_type, $mode);
 
            $lastseparatorkeyfound = $key;
          } else {
            $collapse_group = $extrafields_collapse_num.(!empty($this->id) ? '_'.$this->id : '');
 
            $class = (!empty($extrafields->attributes[$this->table_element]['hidden'][$key]) ? 'hideobject ' : '');
            $csstyle = '';
            if (is_array($params) && count($params) > 0) {
              if (array_key_exists('class', $params)) {
                $class .= $params['class'].' ';
              }
              if (array_key_exists('style', $params)) {
                $csstyle = $params['style'];
              }
            }
 
            // add html5 elements
            $domData  = ' data-element="extrafield"';
            $domData .= ' data-targetelement="'.$this->element.'"';
            $domData .= ' data-targetid="'.$this->id.'"';
 
            $html_id = (empty($this->id) ? '' : 'extrarow-'.$this->element.'_'.$key.'_'.$this->id);
            if ($display_type == 'card') {
              if (getDolGlobalString('MAIN_EXTRAFIELDS_USE_TWO_COLUMS') && ($e % 2) == 0) {
                $colspan = 0;
              }
 
              if ($action == 'selectlines') {
                $colspan++;
              }
            }
 
            // Expected behavior : if THIRDPARTY_PROPAGATE_EXTRAFIELDS_TO_XXX is set, when we change company,
            // Then we use the extrafields of the object (they are filled in the card when constant THIRDPARTY_PROPAGATE_EXTRAFIELDS_TO_XXX is set)
            $force_values_on_change_company = (
              ($this->element == 'facture' && getDolGlobalInt('THIRDPARTY_PROPAGATE_EXTRAFIELDS_TO_INVOICE'))
              || ($this->element == 'commande' && getDolGlobalInt('THIRDPARTY_PROPAGATE_EXTRAFIELDS_TO_ORDER'))
              || ($this->element == 'order_supplier' && getDolGlobalInt('THIRDPARTY_PROPAGATE_EXTRAFIELDS_TO_SUPPLIER_ORDER'))
            );
            if ($force_values_on_change_company && GETPOSTINT('changecompany')) {
              $value = $this->array_options['options_'.$key] ?? $value;
            }
 
            // Convert date into timestamp format (value in memory must be a timestamp)
            if (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('date'))) {
              $datenotinstring = null;
              if (array_key_exists('options_'.$key, $this->array_options)) {
                $datenotinstring = $this->array_options['options_'.$key];
                if (!is_numeric($this->array_options['options_'.$key])) { // For backward compatibility
                  $datenotinstring = $this->db->jdate($datenotinstring);
                }
              }
              $datekey = $keyprefix.'options_'.$key.$keysuffix;
              $value = (GETPOSTISSET($datekey) && $this->id == GETPOST('elrowid', 'int')) ? dol_mktime(12, 0, 0, GETPOSTINT($datekey.'month', 3), GETPOSTINT($datekey.'day', 3), GETPOSTINT($datekey.'year', 3)) : $datenotinstring;
            }
            if (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('datetime'))) {
              $datenotinstring = null;
              if (array_key_exists('options_'.$key, $this->array_options)) {
                $datenotinstring = $this->array_options['options_'.$key];
                if (!is_numeric($this->array_options['options_'.$key])) { // For backward compatibility
                  $datenotinstring = $this->db->jdate($datenotinstring);
                }
              }
              $timekey = $keyprefix.'options_'.$key.$keysuffix;
              $value = (GETPOSTISSET($timekey)) ? dol_mktime(GETPOSTINT($timekey.'hour', 3), GETPOSTINT($timekey.'min', 3), GETPOSTINT($timekey.'sec', 3), GETPOSTINT($timekey.'month', 3), GETPOSTINT($timekey.'day', 3), GETPOSTINT($timekey.'year', 3), 'tzuserrel') : $datenotinstring;
            }
            // Convert float submitted string into real php numeric (value in memory must be a php numeric)
            if (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('price', 'double'))) {
              if (GETPOSTISSET($keyprefix.'options_'.$key.$keysuffix) || $value) {
                $value = price2num($value);
              } elseif (isset($this->array_options['options_'.$key])) {
                $value = $this->array_options['options_'.$key];
              }
            }
 
            // HTML, text, select, integer and varchar: take into account default value in database if in create mode
            if (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('html', 'text', 'varchar', 'select', 'radio', 'int', 'boolean'))) {
              if ($action == 'create' || $mode == 'create') {
                $value = (GETPOSTISSET($keyprefix.'options_'.$key.$keysuffix) || $value) ? $value : $extrafields->attributes[$this->table_element]['default'][$key];
              }
            }
 
            if (in_array($extrafields->attributes[$this->table_element]['type'][$key], array('checkbox'))) {
              if ($action == 'create') {
                $value = (GETPOSTISSET($keyprefix.'options_'.$key.$keysuffix) || $value) ? $value : explode(',', $extrafields->attributes[$this->table_element]['default'][$key]);
              }
            }
 
 
            $labeltoshow = $langs->trans($label);
            $helptoshow = $langs->trans($extrafields->attributes[$this->table_element]['help'][$key]);
            if ($display_type == 'card') {
              $out .= '<tr '.($html_id ? 'id="'.$html_id.'" ' : '').$csstyle.' class="field_options_'.$key.' '.$class.$this->element.'_extras_'.$key.' trextrafields'.($extrafields_collapse_num ? ' trextrafieldsgroup' : '').' trextrafields_collapse'.$collapse_group.'" '.$domData.' >';
              if (getDolGlobalString('MAIN_VIEW_LINE_NUMBER') && ($action == 'view' || $action == 'valid' || $action == 'editline' || $action == 'confirm_valid' || $action == 'confirm_cancel')) {
                $out .= '<td></td>';
              }
              $out .= '<td class="'.(empty($params['tdclass']) ? 'titlefieldmax45' : $params['tdclass']).' wordbreak';
              if ($extrafields->attributes[$this->table_element]['type'][$key] == 'text') {
                $out .= ' tdtop';
              }
            } elseif ($display_type == 'line') {
              $out .= '<div '.($html_id ? 'id="'.$html_id.'" ' : '').$csstyle.' class="fieldline_options_'.$key.' '.$class.$this->element.'_extras_'.$key.' trextrafields_collapse'.$collapse_group.'" '.$domData.' >';
              $out .= '<div style="display: inline-block; padding-right:4px" class="wordbreak';
            }
            //$out .= "titlefield";
            //if (GETPOST('action', 'restricthtml') == 'create') $out.='create';
            // BUG #11554 : For public page, use red dot for required fields, instead of bold label
            $tpl_context = isset($params["tpl_context"]) ? $params["tpl_context"] : "none";
            if ($tpl_context != "public") { // Public page : red dot instead of fieldrequired characters
              if ($mode != 'view' && !empty($extrafields->attributes[$this->table_element]['required'][$key])) {
                $out .= ' fieldrequired';
              }
            }
            $out .= '">';
            if ($tpl_context == "public") { // Public page : red dot instead of fieldrequired characters
              if (!empty($extrafields->attributes[$this->table_element]['help'][$key])) {
                $out .= $form->textwithpicto($labeltoshow, $helptoshow);
              } else {
                $out .= $labeltoshow;
              }
              if ($mode != 'view' && !empty($extrafields->attributes[$this->table_element]['required'][$key])) {
                $out .= '&nbsp;<span style="color: red">*</span>';
              }
            } else {
              if (!empty($extrafields->attributes[$this->table_element]['help'][$key])) {
                $out .= $form->textwithpicto($labeltoshow, $helptoshow);
              } else {
                $out .= $labeltoshow;
              }
            }
 
            $out .= ($display_type == 'card' ? '</td>' : '</div>');
 
            // Second column
            $html_id = !empty($this->id) ? $this->element.'_extras_'.$key.'_'.$this->id : '';
            if ($display_type == 'card') {
              // a first td column was already output (and may be another on before if MAIN_VIEW_LINE_NUMBER set), so this td is the next one
              $out .= '<td '.($html_id ? 'id="'.$html_id.'" ' : '').' class="valuefieldcreate '.$this->element.'_extras_'.$key;
              $out .= '" '.($colspan ? ' colspan="'.$colspan.'"' : '');
              $out .= '>';
            } elseif ($display_type == 'line') {
              $out .= '<div '.($html_id ? 'id="'.$html_id.'" ' : '').' style="display: inline-block" class="valuefieldcreate '.$this->element.'_extras_'.$key.' extra_inline_'.$extrafields->attributes[$this->table_element]['type'][$key].'">';
            }
 
            switch ($mode) {
              case "view":
                $out .= $extrafields->showOutputField($key, $value, '', $this->table_element);
                break;
              case "create":
                $listoftypestoshowpicto = explode(',', getDolGlobalString('MAIN_TYPES_TO_SHOW_PICTO', 'email,phone,ip,password'));
                if (in_array($extrafields->attributes[$this->table_element]['type'][$key], $listoftypestoshowpicto)) {
                  $out .= getPictoForType($extrafields->attributes[$this->table_element]['type'][$key], ($extrafields->attributes[$this->table_element]['type'][$key] == 'text' ? 'tdtop' : ''));
                }
                //$out .= '<!-- type = '.$extrafields->attributes[$this->table_element]['type'][$key].' -->';
                $out .= $extrafields->showInputField($key, $value, '', $keysuffix, '', '', $this, $this->table_element);
                break;
              case "edit":
                $listoftypestoshowpicto = explode(',', getDolGlobalString('MAIN_TYPES_TO_SHOW_PICTO', 'email,phone,ip,password'));
                if (in_array($extrafields->attributes[$this->table_element]['type'][$key], $listoftypestoshowpicto)) {
                  $out .= getPictoForType($extrafields->attributes[$this->table_element]['type'][$key], ($extrafields->attributes[$this->table_element]['type'][$key] == 'text' ? 'tdtop' : ''));
                }
                $out .= $extrafields->showInputField($key, $value, '', $keysuffix, '', '', $this, $this->table_element);
                break;
            }
 
            $out .= ($display_type == 'card' ? '</td>' : '</div>');
            $out .= ($display_type == 'card' ? '</tr>'."\n" : '</div>');
            $e++;
          }
        }
        $out .= "\n";
        // Add code to manage list depending on others
        if (!empty($conf->use_javascript_ajax)) {
          $out .= $this->getJSListDependancies();
        }
 
        $out .= '<!-- commonobject:showOptionals end --> '."\n";
 
        if (empty($nbofextrafieldsshown)) {
          $out = '';
        }
      }
    }
 
    $out .= $hookResPrint;
 
    return $out;
  }
 
  public function getJSListDependancies($type = '_extra')
  {
    $out = '
          <script nonce="'.getNonce().'">
          jQuery(document).ready(function() {
            function showOptions'.$type.'(child_list, parent_list, orig_select)
            {
              var val = $("select[name=\""+parent_list+"\"]").val();
              var parentVal = parent_list + ":" + val;
              if(typeof val == "string"){
                if(val != "") {
                  var options = orig_select.find("option[parent=\""+parentVal+"\"]").clone();
                  $("select[name=\""+child_list+"\"] option[parent]").remove();
                  $("select[name=\""+child_list+"\"]").append(options);
                } else {
                  var options = orig_select.find("option[parent]").clone();
                  $("select[name=\""+child_list+"\"] option[parent]").remove();
                  $("select[name=\""+child_list+"\"]").append(options);
                }
              } else if(val > 0) {
                var options = orig_select.find("option[parent=\""+parentVal+"\"]").clone();
                $("select[name=\""+child_list+"\"] option[parent]").remove();
                $("select[name=\""+child_list+"\"]").append(options);
              } else {
                var options = orig_select.find("option[parent]").clone();
                $("select[name=\""+child_list+"\"] option[parent]").remove();
                $("select[name=\""+child_list+"\"]").append(options);
              }
            }
            function setListDependencies'.$type.'() {
              jQuery("select option[parent]").parent().each(function() {
                var orig_select = {};
                var child_list = $(this).attr("name");
                orig_select[child_list] = $(this).clone();
                var parent = $(this).find("option[parent]:first").attr("parent");
                var infos = parent.split(":");
                var parent_list = infos[0];
 
                //Hide daughters lists
                if ($("#"+child_list).val() == 0 && $("#"+parent_list).val() == 0){
                  $("#"+child_list).hide();
                //Show mother lists
                } else if ($("#"+parent_list).val() != 0){
                  $("#"+parent_list).show();
                }
                //Show the child list if the parent list value is selected
                $("select[name=\""+parent_list+"\"]").click(function() {
                  if ($(this).val() != 0){
                    $("#"+child_list).show()
                  }
                });
 
                //When we change parent list
                $("select[name=\""+parent_list+"\"]").change(function() {
                  showOptions'.$type.'(child_list, parent_list, orig_select[child_list]);
                  //Select the value 0 on child list after a change on the parent list
                  $("#"+child_list).val(0).trigger("change");
                  //Hide child lists if the parent value is set to 0
                  if ($(this).val() == 0){
                      $("#"+child_list).hide();
                  }
                });
              });
            }
 
            setListDependencies'.$type.'();
          });
          </script>'."\n";
    return $out;
  }
 
  public function getRights()
  {
    global $user;
 
    $module = empty($this->module) ? '' : $this->module;
    $element = $this->element;
 
    if ($element == 'facturerec') {
      $element = 'facture';
    } elseif ($element == 'invoice_supplier_rec') {
      return !$user->hasRight('fournisseur', 'facture') ? null : $user->hasRight('fournisseur', 'facture');
    } elseif ($module && $user->hasRight($module, $element)) {
      // for modules built with ModuleBuilder
      return $user->hasRight($module, $element);
    }
 
    return isset($user->rights->$element) ? $user->rights->$element : null;
  }
 
  public static function commonReplaceThirdparty(DoliDB $dbs, $origin_id, $dest_id, array $tables, $ignoreerrors = 0)
  {
    global $hookmanager;
 
    $parameters = array(
      'origin_id' => $origin_id,
      'dest_id' => $dest_id,
      'tables' => $tables,
    );
    $reshook = $hookmanager->executeHooks('commonReplaceThirdparty', $parameters);
    if ($reshook) {
      return true; // replacement code
    } elseif ($reshook < 0) {
      return $ignoreerrors === 1; // failure
    } // reshook = 0 => execute normal code
 
    foreach ($tables as $table) {
      $sql = 'UPDATE '.$dbs->prefix().$table.' SET fk_soc = '.((int) $dest_id).' WHERE fk_soc = '.((int) $origin_id);
 
      if (!$dbs->query($sql)) {
        if ($ignoreerrors) {
          return true; // FIXME Not enough. If there is A-B on the kept thirdparty and B-C on the old one, we must get A-B-C after merge. Not A-B.
        }
        //$this->errors = $db->lasterror();
        return false;
      }
    }
 
    return true;
  }
 
  public static function commonReplaceProduct(DoliDB $dbs, $origin_id, $dest_id, array $tables, $ignoreerrors = 0)
  {
    foreach ($tables as $table) {
      $sql = 'UPDATE '.MAIN_DB_PREFIX.$table.' SET fk_product = '.((int) $dest_id).' WHERE fk_product = '.((int) $origin_id);
 
      if (!$dbs->query($sql)) {
        if ($ignoreerrors) {
          return true; // TODO Not enough. If there is A-B on kept product and B-C on old one, we must get A-B-C after merge. Not A-B.
        }
        //$this->errors = $db->lasterror();
        return false;
      }
    }
 
    return true;
  }
 
  public static function commonReplaceContact(DoliDB $dbs, $origin_id, $dest_id, array $tables, $fieldname = 'fk_socpeople', $ignoreerrors = 0)
  {
    global $hookmanager;
 
    // Table and column names are concatenated into the SQL, so they are validated as a defence in
    // depth: this method is public and static, hence callable from any module.
    if (!preg_match('/^[a-z0-9_]+$/', $fieldname)) {
      dol_syslog(__METHOD__.' Refused an invalid column name: '.$fieldname, LOG_ERR);
      return false;
    }
 
    $parameters = array(
      'origin_id' => $origin_id,
      'dest_id' => $dest_id,
      'tables' => $tables,
      'fieldname' => $fieldname,
    );
    $reshook = $hookmanager->executeHooks('commonReplaceContact', $parameters);
    if ($reshook > 0) {
      return true; // replacement code
    } elseif ($reshook < 0) {
      return $ignoreerrors === 1; // failure
    } // reshook = 0 => execute normal code
 
    foreach ($tables as $table) {
      if (!preg_match('/^[a-z0-9_]+$/', $table)) {
        dol_syslog(__METHOD__.' Refused an invalid table name: '.$table, LOG_ERR);
        return false;
      }
 
      $sanitizedtable = $dbs->sanitize($table);
      $sanitizedfieldname = $dbs->sanitize($fieldname);
 
      $sql = "UPDATE ".$dbs->prefix().$sanitizedtable;
      $sql .= " SET ".$sanitizedfieldname." = ".((int) $dest_id);
      $sql .= " WHERE ".$sanitizedfieldname." = ".((int) $origin_id);
 
      if (!$dbs->query($sql)) {
        if ($ignoreerrors) {
          return true;
        }
        return false;
      }
    }
 
    return true;
  }
 
  public function defineBuyPrice($unitPrice = 0.0, $discountPercent = 0.0, $fk_product = 0)
  {
    global $conf;
 
    $buyPrice = 0;
 
    if (($unitPrice > 0) && (isset($conf->global->ForceBuyingPriceIfNull) && getDolGlobalInt('ForceBuyingPriceIfNull') > 0)) {
      // When ForceBuyingPriceIfNull is set
      $buyPrice = $unitPrice * (1 - $discountPercent / 100);
    } else {
      // Get cost price for margin calculation
      if (!empty($fk_product) && $fk_product > 0) {
        $result = 0;
        if (getDolGlobalString('MARGIN_TYPE') == 'costprice') {
          require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
          $product = new Product($this->db);
          $result = $product->fetch($fk_product);
          if ($result <= 0) {
            $this->errors[] = 'ErrorProductIdDoesNotExists';
            return -1;
          }
          if ($product->cost_price > 0) {
            $buyPrice = $product->cost_price;
          } elseif ($product->pmp > 0) {
            $buyPrice = $product->pmp;
          }
        } elseif (getDolGlobalString('MARGIN_TYPE') == 'pmp') {
          require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
          $product = new Product($this->db);
          $result = $product->fetch($fk_product);
          if ($result <= 0) {
            $this->errors[] = 'ErrorProductIdDoesNotExists';
            return -1;
          }
          if ($product->pmp > 0) {
            $buyPrice = $product->pmp;
          }
        }
 
        if (empty($buyPrice) && in_array(getDolGlobalString('MARGIN_TYPE'), array('1', 'pmp', 'costprice'))) {
          require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
          $productFournisseur = new ProductFournisseur($this->db);
          if (($result = $productFournisseur->find_min_price_product_fournisseur($fk_product)) > 0) {
            $buyPrice = $productFournisseur->fourn_unitprice;
          } elseif ($result < 0) {
            $this->errors[] = $productFournisseur->error;
            return -2;
          }
        }
      }
    }
 
    return (float) $buyPrice;
  }
 
  public function getDataToShowPhoto($modulepart, $imagesize)
  {
    // See getDataToShowPhoto() implemented by Product for example.
    return array('dir' => '', 'file' => '', 'originalfile' => '', 'altfile' => '', 'email' => '', 'capture' => '');
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function show_photos($modulepart, $sdir, $size = 0, $nbmax = 0, $nbbyrow = 5, $showfilename = 0, $showaction = 0, $maxHeight = 120, $maxWidth = 160, $nolink = 0, $overwritetitle = 0, $usesharelink = 0, $cache = '', $addphotorefcss = 'photoref')
  {
    // phpcs:enable
    global $user, $langs;
 
    include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
    include_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
    include_once DOL_DOCUMENT_ROOT.'/core/class/link.class.php';
 
    $sortfield = 'position_name';
    $sortorder = 'asc';
 
    $dir = $sdir.'/';
    $pdir = '/';
 
    $dir .= get_exdir(0, 0, 0, 0, $this, $modulepart);
    $pdir .= get_exdir(0, 0, 0, 0, $this, $modulepart);
 
    // For backward compatibility
    if ($modulepart == 'product') {
      if (getDolGlobalInt('PRODUCT_USE_OLD_PATH_FOR_PHOTO')) {
        $dir = $sdir.'/'.get_exdir($this->id, 2, 0, 0, $this, $modulepart).$this->id."/photos/";
        $pdir = '/'.get_exdir($this->id, 2, 0, 0, $this, $modulepart).$this->id."/photos/";
      }
    }
    if ($modulepart == 'category') {
      $dir = $sdir.'/'.get_exdir($this->id, 2, 0, 0, $this, $modulepart).$this->id."/photos/";
      $pdir = '/'.get_exdir($this->id, 2, 0, 0, $this, $modulepart).$this->id."/photos/";
    }
 
    // Defined relative dir to DOL_DATA_ROOT
    $relativedir = '';
    if ($dir) {
      $relativedir = preg_replace('/^'.preg_quote(DOL_DATA_ROOT, '/').'/', '', $dir);
      $relativedir = preg_replace('/^[\\/]/', '', $relativedir);
      $relativedir = preg_replace('/[\\/]$/', '', $relativedir);
    }
 
    $dirthumb = $dir.'thumbs/';
    $pdirthumb = $pdir.'thumbs/';
 
    $return = '<!-- Photo -->'."\n";
    $nbphoto = 0;
 
    $filearray = dol_dir_list($dir, "files", 0, '', '(\.meta|_preview.*\.png)$', $sortfield, (strtolower($sortorder) == 'desc' ? SORT_DESC : SORT_ASC), 1);
 
    /*if (getDolGlobalInt('PRODUCT_USE_OLD_PATH_FOR_PHOTO'))    // For backward compatibility, we scan also old dirs
     {
     $filearrayold=dol_dir_list($dirold,"files",0,'','(\.meta|_preview.*\.png)$',$sortfield,(strtolower($sortorder)=='desc'?SORT_DESC:SORT_ASC),1);
     $filearray=array_merge($filearray, $filearrayold);
     }*/
 
    completeFileArrayWithDatabaseInfo($filearray, $relativedir, $this);
    '@phan-var-force array<array{name:string,path:string,level1name:string,relativename:string,fullname:string,date:string,size:int,perm:int,type:string,position_name:string,cover:string,keywords:string,acl:string,rowid:int,label:string,share:string}> $filearray';
 
    $useLinkPathPhoto = false;
 
    if (getDolGlobalInt('PRODUCT_USE_LINK_PATH_FOR_PHOTO')) {
      $link = new Link($this->db);
      $links = array();
      $link->fetchAll($links, 'product', $this->id);
 
      if (count($links) > 0) {
        $useLinkPathPhoto = true;
      }
 
      if ($useLinkPathPhoto) {
        // Start table or div based on nbbyrow
        if ($nbbyrow > 0) {
          $return .= '<table class="valigntop center centpercent" style="border:0; padding:2px; border-spacing:2px; border-collapse: separate;">';
        }
 
        $i = 0;
        foreach ($links as $link) {
          if (!empty($link->url) && preg_match('/\.(jpg|jpeg|png|gif|webp)$/i', $link->url)) {
            $url = dol_escape_htmltag($link->url);
            $i++;
            $nbphoto++;
 
            if ($nbbyrow > 0 && ($i % $nbbyrow == 1)) {
              $return .= '<tr class="center valignmiddle">';
            }
 
            if ($nbbyrow > 0) {
              $return .= '<td style="width:'.ceil(100 / $nbbyrow).'%" class="photo">';
            } else {
              $return .= '<div class="inline-block">';
            }
 
            $return .= '<img class="photo photowithmargin'.($addphotorefcss ? ' '.$addphotorefcss : '').'"'.($maxHeight ? ' height="'.$maxHeight.'"' : '').' src="'.$url.'" title="External image">';
 
            if ($nbbyrow > 0) {
              $return .= '</td>';
              if ($i % $nbbyrow == 0) {
                $return .= '</tr>';
              }
            } else {
              $return .= '</div>';
            }
 
            if ($nbmax && $nbphoto >= $nbmax) {
              break;
            }
          }
        }
 
        if ($nbbyrow > 0) {
          while ($i % $nbbyrow) {
            $return .= '<td style="width:'.ceil(100 / $nbbyrow).'%">&nbsp;</td>';
            $i++;
          }
          if ($nbphoto) {
            $return .= '</table>';
          }
        }
      }
    }
 
    if (count($filearray)) {
      if ($sortfield && $sortorder) {
        $filearray = dol_sort_array($filearray, $sortfield, $sortorder);
      }
 
      foreach ($filearray as $key => $val) {
        $photo = '';
        $file = $val['name'];
 
        //if (dol_is_file($dir.$file) && image_format_supported($file) >= 0)
        if (image_format_supported($file) >= 0) {
          $nbphoto++;
          $photo = $file;
          $viewfilename = $file;
 
          if ($size == 1 || $size == 'small') {   // Format vignette
            // Find name of thumb file
            $photo_vignette = basename(getImageFileNameForSize($dir.$file, '_small'));
            if (!dol_is_file($dirthumb.$photo_vignette)) {
              // The thumb does not exists, so we will use the original file
              $dirthumb = $dir;
              $pdirthumb = $pdir;
              $photo_vignette = basename($file);
            }
 
            // Get filesize of original file
            $imgarray = dol_getImageSize($dir.$photo);
 
            if ($nbbyrow > 0) {
              if ($nbphoto == 1) {
                $return .= '<table class="valigntop center centpercent" style="border: 0; padding: 2px; border-spacing: 2px; border-collapse: separate;">';
              }
 
              if ($nbphoto % $nbbyrow == 1) {
                $return .= '<tr class="center valignmiddle" style="border: 1px">';
              }
              $return .= '<td style="width: '.ceil(100 / $nbbyrow).'%" class="photo">'."\n";
            } elseif ($nbbyrow < 0) {
              $return .= '<div class="inline-block">'."\n";
            }
 
            $relativefile = preg_replace('/^\//', '', $pdir.$photo);
            if (empty($nolink)) {
              $urladvanced = getAdvancedPreviewUrl($modulepart, $relativefile, 0, 'entity='.$this->entity);
              if ($urladvanced) {
                $return .= '<a href="'.$urladvanced.'">';
              } else {
                $return .= '<a href="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&entity='.$this->entity.'&file='.urlencode($pdir.$photo).'" class="aphoto" target="_blank" rel="noopener noreferrer">';
              }
            }
 
            // Show image (width height=$maxHeight)
            // If thumb file available and image source is too large, we use the thumb, otherwise we use the original photo
            $alt = $langs->transnoentitiesnoconv('File').': '.$relativefile;
            $alt .= ' - '.$langs->transnoentitiesnoconv('Size').': '.$imgarray['width'].'x'.$imgarray['height'];
            if ($overwritetitle) {
              if (is_numeric($overwritetitle)) {
                $alt = '';
              } else {
                $alt = $overwritetitle;
              }
            }
            if (empty($cache) && !empty($val['label'])) {
              // label is md5 of file
              // use it in url to say we want to cache this version of the file
              $cache = $val['label'];
            }
            if ($usesharelink) {
              if (array_key_exists('share', $val) && $val['share']) {
                if (empty($maxHeight) || ($photo_vignette && $imgarray['height'] > $maxHeight)) {
                  $return .= '<!-- Show original file (thumb not yet available with shared links) -->';
                  $return .= '<img class="photo photowithmargin'.($addphotorefcss ? ' '.$addphotorefcss : '').'"'.($maxHeight ? ' height="'.$maxHeight.'"' : '').' src="'.DOL_URL_ROOT.'/viewimage.php?hashp='.urlencode($val['share']).($cache ? '&cache='.urlencode($cache) : '').'" title="'.dol_escape_htmltag($alt).'">';
                } else {
                  $return .= '<!-- Show original file -->';
                  $return .= '<img class="photo photowithmargin'.($addphotorefcss ? ' '.$addphotorefcss : '').'" height="'.$maxHeight.'" src="'.DOL_URL_ROOT.'/viewimage.php?hashp='.urlencode($val['share']).($cache ? '&cache='.urlencode($cache) : '').'" title="'.dol_escape_htmltag($alt).'">';
                }
              } else {
                $return .= '<!-- Show nophoto file (because file is not shared) -->';
                $return .= '<img class="photo photowithmargin'.($addphotorefcss ? ' '.$addphotorefcss : '').'" height="'.$maxHeight.'" src="'.DOL_URL_ROOT.'/public/theme/common/nophoto.png" title="'.dol_escape_htmltag($alt).'">';
              }
            } else {
              if (empty($maxHeight) || ($photo_vignette && $imgarray['height'] > $maxHeight)) {
                $return .= '<!-- Show thumb -->';
                $return .= '<img class="photo photowithmargin'.($addphotorefcss ? ' '.$addphotorefcss : '').' maxwidth150onsmartphone maxwidth200"'.($maxHeight ? ' height="'.$maxHeight.'"' : '').' src="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&entity='.$this->entity.($cache ? '&cache='.urlencode($cache) : '').'&file='.urlencode($pdirthumb.$photo_vignette).'" title="'.dol_escape_htmltag($alt).'">';
              } else {
                $return .= '<!-- Show original file -->';
                $return .= '<img class="photo photowithmargin'.($addphotorefcss ? ' '.$addphotorefcss : '').'" height="'.$maxHeight.'" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&entity='.$this->entity.($cache ? '&cache='.urlencode($cache) : '').'&file='.urlencode($pdir.$photo).'" title="'.dol_escape_htmltag($alt).'">';
              }
            }
 
            if (empty($nolink)) {
              $return .= '</a>';
            }
 
            if ($showfilename) {
              $return .= '<br>'.$viewfilename;
            }
            if ($showaction) {
              $return .= '<br>';
              // If $photo_vignette set, we add a link to generate thumbs if file is an image and width or height higher than limits
              if ($photo_vignette && (image_format_supported($photo) > 0) && ((isset($imgarray['width']) && $imgarray['width'] > $maxWidth) || (isset($imgarray['width']) && $imgarray['width'] > $maxHeight))) {
                $return .= '<a href="'.$_SERVER["PHP_SELF"].'?id='.$this->id.'&action=addthumb&token='.newToken().'&file='.urlencode($pdir.$viewfilename).'">'.img_picto($langs->trans('GenerateThumb'), 'refresh').'&nbsp;&nbsp;</a>';
              }
              // Special case for product
              if ($modulepart == 'product' && ($user->hasRight('produit', 'creer') || $user->hasRight('service', 'creer'))) {
                // Link to resize
                $return .= '<a href="'.DOL_URL_ROOT.'/core/photos_resize.php?modulepart='.urlencode('produit|service').'&id='.$this->id.'&file='.urlencode($pdir.$viewfilename).'" title="'.dol_escape_htmltag($langs->trans("Resize")).'">'.img_picto($langs->trans("Resize"), 'resize', '').'</a> &nbsp; ';
 
                // Link to delete
                $return .= '<a href="'.$_SERVER["PHP_SELF"].'?id='.$this->id.'&action=delete&token='.newToken().'&file='.urlencode($pdir.$viewfilename).'">';
                $return .= img_delete().'</a>';
              }
            }
            $return .= "\n";
 
            if ($nbbyrow > 0) {
              $return .= '</td>';
              if (($nbphoto % $nbbyrow) == 0) {
                $return .= '</tr>';
              }
            } elseif ($nbbyrow < 0) {
              $return .= '</div>'."\n";
            }
          }
 
          if (empty($size)) {     // Format origine
            $return .= '<img class="photo photowithmargin" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&entity='.$this->entity.'&file='.urlencode($pdir.$photo).'">';
 
            if ($showfilename) {
              $return .= '<br>'.$viewfilename;
            }
            if ($showaction) {
              // Special case for product
              if ($modulepart == 'product' && ($user->hasRight('produit', 'creer') || $user->hasRight('service', 'creer'))) {
                // Link to resize
                $return .= '<a href="'.DOL_URL_ROOT.'/core/photos_resize.php?modulepart='.urlencode('produit|service').'&id='.$this->id.'&file='.urlencode($pdir.$viewfilename).'" title="'.dol_escape_htmltag($langs->trans("Resize")).'">'.img_picto($langs->trans("Resize"), 'resize', '').'</a> &nbsp; ';
 
                // Link to delete
                $return .= '<a href="'.$_SERVER["PHP_SELF"].'?id='.$this->id.'&action=delete&token='.newToken().'&file='.urlencode($pdir.$viewfilename).'">';
                $return .= img_delete().'</a>';
              }
            }
          }
 
          // On continue ou on arrete de boucler ?
          if ($nbmax && $nbphoto >= $nbmax) {
            break;
          }
        }
      }
 
      if ($size == 1 || $size == 'small') {
        if ($nbbyrow > 0) {
          // Ferme tableau
          while ($nbphoto % $nbbyrow) {
            $return .= '<td style="width: '.ceil(100 / $nbbyrow).'%">&nbsp;</td>';
            $nbphoto++;
          }
 
          if ($nbphoto) {
            $return .= '</table>';
          }
        }
      }
    }
 
    $this->nbphoto = $nbphoto;
 
    return $return;
  }
 
 
  protected function isArray($info)
  {
    if (is_array($info)) {
      if (isset($info['type']) && $info['type'] == 'array') {
        return true;
      } else {
        return false;
      }
    }
    return false;
  }
 
  public function isDate($info)
  {
    if (isset($info['type']) && ($info['type'] == 'date' || $info['type'] == 'datetime' || $info['type'] == 'timestamp')) {
      return true;
    }
    return false;
  }
 
  public function isDuration($info)
  {
    if (is_array($info)) {
      if (isset($info['type']) && ($info['type'] == 'duration')) {
        return true;
      } else {
        return false;
      }
    } else {
      return false;
    }
  }
 
  public function isInt($info)
  {
    if (is_array($info)) {
      if (isset($info['type']) && (preg_match('/^(?:tiny|small|medium|big)?int|int$/i', $info['type']))) {
        return true;
      } else {
        return false;
      }
    } else {
      return false;
    }
  }
 
  public function isFloat($info)
  {
    if (is_array($info)) {
      if (isset($info['type']) && (preg_match('/^(double|real|price)/i', $info['type']))) {
        return true;
      } else {
        return false;
      }
    }
    return false;
  }
 
  public function isText($info)
  {
    if (is_array($info)) {
      if (isset($info['type']) && $info['type'] == 'text') {
        return true;
      } else {
        return false;
      }
    }
    return false;
  }
 
  protected function canBeNull($info)
  {
    if (is_array($info)) {
      if (array_key_exists('notnull', $info) && $info['notnull'] != '1') {
        return true;
      } else {
        return false;
      }
    }
    return true;
  }
 
  protected function isForcedToNullIfZero($info)
  {
    if (is_array($info)) {
      if (array_key_exists('notnull', $info) && $info['notnull'] == '-1') {
        return true;
      } else {
        return false;
      }
    }
    return false;
  }
 
  protected function isIndex($info)
  {
    if (is_array($info)) {
      if (array_key_exists('index', $info) && $info['index'] == true) {
        return true;
      } else {
        return false;
      }
    }
    return false;
  }
 
 
  protected function setSaveQuery()
  {
    global $conf;
 
    $queryarray = array();
    foreach ($this->fields as $field => $info) {  // Loop on definition of fields
      // Depending on field type ('datetime', ...)
      if ($this->isDate($info)) {
        if (empty($this->{$field})) {
          $queryarray[$field] = null;
        } else {
          $queryarray[$field] = $this->db->idate($this->{$field});
        }
      } elseif ($this->isDuration($info)) {
        // $this->{$field} may be null, '', 0, '0', 123, '123'
        if ((isset($this->{$field}) && $this->{$field} != '') || !empty($info['notnull'])) {
          if (!isset($this->{$field})) {
            if (!empty($info['default'])) {
              $queryarray[$field] = $info['default'];  // From safe source @phan-suppress-current-line SqlInjection
            } else {
              $queryarray[$field] = 0;
            }
          } else {
            $queryarray[$field] = (int) $this->{$field};    // If '0', it may be set to null later if $info['notnull'] == -1
          }
        } else {
          $queryarray[$field] = null;
        }
      } elseif ($this->isInt($info) || $this->isFloat($info)) {
        if ($field == 'entity' && is_null($this->{$field})) {
          $queryarray[$field] = ((int) $conf->entity);
        } else {
          // $this->{$field} may be null, '', 0, '0', 123, '123'
          if ((isset($this->{$field}) && ((string) $this->{$field}) != '') || !empty($info['notnull'])) {
            if (!isset($this->{$field})) {
              $queryarray[$field] = 0;
            } elseif ($this->isInt($info)) {
              $queryarray[$field] = (int) $this->{$field};  // If '0', it may be set to null later if $info['notnull'] == -1
            } elseif ($this->isFloat($info)) {
              $queryarray[$field] = (float) $this->{$field};  // If '0', it may be set to null later if $info['notnull'] == -1
            }
          } else {
            $queryarray[$field] = null;
          }
        }
      } else {
        // Note: If $this->{$field} is not defined, it means there is a bug into definition of ->fields or a missing declaration of property
        // We should keep the warning generated by this because it is a bug somewhere else in code, not here.
        $queryarray[$field] = $this->{$field};  // @phan-suppress-current-line SqlInjection
      }
 
      if (is_array($info) && array_key_exists('type', $info) && !empty($info['type']) && $info['type'] == 'timestamp' && empty($queryarray[$field])) {
        unset($queryarray[$field]);
      }
      if (!empty($info['notnull']) && $info['notnull'] == -1 && empty($queryarray[$field])) {
        $queryarray[$field] = null; // May force 0 to null
      }
    }
 
    return $queryarray;
  }
 
  public function setVarsFromFetchObj(&$obj)
  {
    global $db;
 
    foreach ($this->fields as $field => $info) {
      if ($this->isDate($info)) {
        if (!isset($obj->$field) || is_null($obj->$field) || $obj->$field === '' || $obj->$field === '0000-00-00 00:00:00' || $obj->$field === '1000-01-01 00:00:00') {
          $this->$field = '';
        } else {
          $this->$field = $db->jdate($obj->$field);
        }
      } elseif ($this->isInt($info)) {
        if ($field == 'rowid') {
          $this->id = (int) $obj->$field;
        } else {
          if ($this->isForcedToNullIfZero($info)) {
            if (empty($obj->$field)) {
              $this->$field = null;
            } else {
              $this->$field = (int) $obj->$field;
            }
          } else {
            if (isset($obj->$field) && (!is_null($obj->$field) || (array_key_exists('notnull', $info) && $info['notnull'] == 1))) {
              $this->$field = (int) $obj->$field;
            } else {
              $this->$field = null;
            }
          }
        }
      } elseif ($this->isFloat($info)) {
        if ($this->isForcedToNullIfZero($info)) {
          if (empty($obj->$field)) {
            $this->$field = null;
          } else {
            $this->$field = (float) $obj->$field;
          }
        } else {
          if (isset($obj->$field) && (!is_null($obj->$field) || (array_key_exists('notnull', $info) && $info['notnull'] == 1))) {
            $this->$field = (float) $obj->$field;
          } else {
            $this->$field = null;
          }
        }
      } else {
        $this->$field = isset($obj->$field) ? $obj->$field : null;
      }
    }
 
    // If there is no 'ref' field, we force property ->ref to ->id for a better compatibility with common functions.
    if (!isset($this->fields['ref']) && isset($this->id)) {
      $this->ref = (string) $this->id;
    }
  }
 
  public function emtpyObjectVars()
  {
    foreach ($this->fields as $field => $arr) {
      $this->$field = null;
    }
  }
 
  public function getFieldList($alias = '', $excludefields = array())
  {
    $keys = array_keys($this->fields);
    if (!empty($alias)) {
      $keys_with_alias = array();
      foreach ($keys as $fieldname) {
        if (!empty($excludefields)) {
          if (in_array($fieldname, $excludefields)) { // The field is excluded and must not be in output
            continue;
          }
        }
        $keys_with_alias[] = $this->db->sanitize($alias . '.' . $fieldname);
      }
      return implode(', ', $keys_with_alias);
    } else {
      return implode(', ', $keys);
    }
  }
 
  protected function quote($value, $fieldsentry)
  {
    if (is_null($value)) {
      return 'NULL';
    } elseif (preg_match('/^(int|double|real|price)/i', $fieldsentry['type'])) {
      return price2num((string) $value);
    } elseif (preg_match('/int$/i', $fieldsentry['type'])) {
      return (int) $value;
    } elseif ($fieldsentry['type'] == 'boolean') {
      if ($value) {
        return 'true';
      } else {
        return 'false';
      }
    } else {
      return "'".$this->db->escape($value)."'";
    }
  }
 
 
  public function createCommon(User $user, $notrigger = 0)
  {
    global $conf;
    //global $langs;      // Should be able to work with $langs loaded
 
    dol_syslog(get_class($this)."::createCommon create", LOG_DEBUG);
 
    $error = 0;
 
    $now = dol_now();
 
    $fieldvalues = $this->setSaveQuery();
 
    // Note: Here, $fieldvalues contains same keys (or less) that are inside ->fields
 
    if (array_key_exists('date_creation', $fieldvalues) && empty($fieldvalues['date_creation'])) {
      $fieldvalues['date_creation'] = $this->db->idate($now);
      $this->date_creation = $this->db->idate($now);
    }
    // For backward compatibility, if a property ->fk_user_creat exists and not filled.
    if (array_key_exists('fk_user_creat', $fieldvalues) && !($fieldvalues['fk_user_creat'] > 0)) {
      $fieldvalues['fk_user_creat'] = $user->id;
      $this->fk_user_creat = $user->id;
    }
    if (array_key_exists('user_creation_id', $fieldvalues) && !($fieldvalues['user_creation_id'] > 0)) {
      $fieldvalues['user_creation_id'] = $user->id;
      $this->user_creation_id = $user->id;
    }
    if (array_key_exists('pass_crypted', $fieldvalues) && property_exists($this, 'pass')) {
      // @phan-suppress-next-line PhanUndeclaredProperty
      $tmparray = dol_hash($this->pass, '0', 0, 1);
      $fieldvalues['pass_crypted'] = $tmparray['pass_encrypted'];
      if (array_key_exists('pass_encoding', $fieldvalues) && property_exists($this, 'pass_encoding')) {
        $fieldvalues['pass_encoding'] = $tmparray['pass_encoding'];
      }
    }
    if (array_key_exists('ref', $fieldvalues)) {
      $fieldvalues['ref'] = dol_string_nospecial($fieldvalues['ref']); // If field is a ref, we sanitize data
    }
    if (getDolGlobalString('MAIN_DISABLE_AUTO_UPDATE_OF_TMS_FIELDS') && array_key_exists('tms', $fieldvalues)) {  // If we want the explicit update of tms fields instead of the deprecated update by database
      $fieldvalues['tms'] = $this->db->idate($now);
    }
 
    unset($fieldvalues['rowid']); // The field 'rowid' is reserved field name for autoincrement field so we don't need it into insert.
 
    $sanitized_keys = array();
    $sanitized_values = array(); // Array to store string forged for SQL syntax
    foreach ($fieldvalues as $k => $v) {
      $sanitized_keys[$k] = $k;  // Safe source @phan-suppress-current-line SqlInjection
      $value = $this->fields[$k];
      // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
      $sanitized_values[$k] = $this->quote($v, $value); // May return string 'NULL' if $value is null
    }
 
    // Clean and check mandatory
    foreach ($sanitized_keys as $key) {
      if (!isset($this->fields[$key])) {
        continue;
      }
      $key_fields = $this->fields[$key];
 
      // If field is an implicit foreign key field (so type = 'integer:...')
      if (preg_match('/^integer:/i', $key_fields['type']) && $sanitized_values[$key] == '-1') {
        $sanitized_values[$key] = '';
      }
      if (!empty($key_fields['foreignkey']) && $sanitized_values[$key] == '-1') {
        $sanitized_values[$key] = '';
      }
 
      if (isset($key_fields['notnull']) && $key_fields['notnull'] == 1 && (!isset($sanitized_values[$key]) || $sanitized_values[$key] === 'NULL') && (!isset($key_fields['default']) || is_null($key_fields['default']))) {
        $error++;
        global $langs;
        if (empty($langs)) {
          require_once DOL_DOCUMENT_ROOT.'/core/class/translate.class.php';
          $langs = new Translate('', $conf);
          $langs->setDefaultLang();
          $langs->load("errors");
        }
        dol_syslog("Mandatory field '".$key."' is empty and required into ->fields definition of class");
        $this->errors[] = $langs->trans("ErrorFieldRequired", isset($key_fields['label']) ? $key_fields['label'] : $key);
      }
 
      // If value is null and there is a default value for field @phan-suppress-next-line PhanTypePossiblyInvalidDimOffset
      if (isset($key_fields['notnull']) && $key_fields['notnull'] == 1 && (!isset($sanitized_values[$key]) || $sanitized_values[$key] === 'NULL') && array_key_exists('default', $key_fields) && !is_null($key_fields['default'])) {
        $sanitized_values[$key] = $this->quote($key_fields['default'], $key_fields);
      }
 
      // If field is an implicit foreign key field (so type = 'integer:...')
      if (isset($key_fields['type']) && preg_match('/^integer:/i', $key_fields['type']) && empty($sanitized_values[$key])) {
        if (isset($key_fields['default'])) {
          $sanitized_values[$key] = ((int) $key_fields['default']);
        } else {
          $sanitized_values[$key] = 'null';
        }
      }
      if (!empty($key_fields['foreignkey']) && empty($sanitized_values[$key])) {
        $sanitized_values[$key] = 'null';
      }
    }
 
    if ($error) {
      return -1;
    }
 
    $this->db->begin();
 
    if (!$error) {
      $sql = "INSERT INTO ".$this->db->prefix().$this->db->sanitize($this->table_element);
      $sql .= " (".implode(", ", $sanitized_keys).')';
      $sql .= " VALUES (".implode(", ", $sanitized_values).")";   // $sanitized_values can contains 'abc' or 123
 
      $res = $this->db->query($sql);
      if (!$res) {
        $error++;
        if ($this->db->lasterrno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
          $this->errors[] = "ErrorRefAlreadyExists";
        } else {
          $this->errors[] = $this->db->lasterror();
        }
      }
    }
 
    if (!$error) {
      $this->id = $this->db->last_insert_id($this->db->prefix().$this->table_element);
    }
 
    // If we have a field ref with a default value of (PROV)
    if (!$error) {
      // @phan-suppress-next-line PhanTypePossiblyInvalidDimOffset
      if (array_key_exists('ref', $this->fields) && array_key_exists('notnull', $this->fields['ref']) && $this->fields['ref']['notnull'] > 0 && array_key_exists('default', $this->fields['ref']) && $this->fields['ref']['default'] == '(PROV)') {
        $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($this->table_element);
        $sql .= " SET ref = '(PROV".((int) $this->id).")' WHERE (ref = '(PROV)' OR ref = '') AND rowid = ".((int) $this->id);
        $resqlupdate = $this->db->query($sql);
 
        if ($resqlupdate === false) {
          $error++;
          $this->errors[] = $this->db->lasterror();
        } else {
          $this->ref = '(PROV'.$this->id.')';
        }
      }
    }
 
    // Create extrafields
    if (!$error) {
      $result = $this->insertExtraFields();
      if ($result < 0) {
        $error++;
      }
    }
 
    // Create lines
    if (!empty($this->table_element_line) && !empty($this->fk_element) && !empty($this->lines)) {
      foreach ($this->lines as $line) {
        $keyforparent = $this->fk_element;
        $line->$keyforparent = $this->id;
 
        // Test and convert into object this->lines[$i]. When coming from REST API, we may still have an array
        //if (! is_object($line)) $line=json_decode(json_encode($line), false);  // convert recursively array into object.
        if (!is_object($line)) {
          $line = (object) $line;
        }
 
        $result = 0;
        if (method_exists($line, 'insert')) {
          $result = $line->insert($user, 1);
        } elseif (method_exists($line, 'create')) {
          $result = $line->create($user, 1);
        }
        if ($result < 0) {
          $this->error = $line->error;
          $this->db->rollback();
          return -1;
        }
      }
    }
 
    // Triggers
    if (!$error && !$notrigger) {
      // Call triggers
      $result = $this->call_trigger(strtoupper(get_class($this)).'_CREATE', $user);
      if ($result < 0) {
        $error++;
      }
      // End call triggers
    }
 
    // Commit or rollback
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return $this->id;
    }
  }
 
 
  public function fetchCommon($id, $ref = null, $morewhere = '', $noextrafields = 0)
  {
    if (empty($id) && empty($ref) && empty($morewhere)) {
      return -1;
    }
 
    $fieldlist = $this->getFieldList('t');
    if (empty($fieldlist)) {
      return 0;
    }
 
    $sql = "SELECT ".$this->db->sanitize($fieldlist, 0, 0, 1);
    $sql .= " FROM ".$this->db->prefix().$this->table_element.' as t';
 
    if (!empty($id)) {
      $sql .= ' WHERE t.rowid = '.((int) $id);
    } elseif (!empty($ref)) {
      $sql .= " WHERE t.ref = '".$this->db->escape($ref)."'";
    } else {
      $sql .= ' WHERE 1 = 1'; // usage with empty id and empty ref is very rare
    }
    if (empty($id) && isset($this->ismultientitymanaged) && $this->ismultientitymanaged == 1) {
      $sql .= ' AND t.entity IN ('.getEntity($this->element).')';
    }
    if ($morewhere) {
      $sql .= $morewhere;
    }
    $sql .= ' LIMIT 1'; // This is a fetch, to be certain to get only one record
 
    $res = $this->db->query($sql);
    if ($res) {
      $obj = $this->db->fetch_object($res);
      if ($obj) {
        $this->setVarsFromFetchObj($obj);
 
        // Retrieve all extrafield
        // fetch optionals attributes and labels
        if (empty($noextrafields)) {
          $result = $this->fetch_optionals();
          if ($result < 0) {
            $this->error = $this->db->lasterror();
            $this->errors[] = $this->error;
            return -4;
          }
        }
 
        return $this->id;
      } else {
        return 0;
      }
    } else {
      $this->error = $this->db->lasterror();
      $this->errors[] = $this->error;
      return -1;
    }
  }
 
  public function fetchLinesCommon($morewhere = '', $noextrafields = 0)
  {
    $objectlineclassname = get_class($this).'Line';
    if (!class_exists($objectlineclassname)) {
      $this->error = 'Error, class '.$objectlineclassname.' not found during call of fetchLinesCommon';
      return -1;
    }
 
    $objectline = new $objectlineclassname($this->db);
    '@phan-var-force CommonObjectLine $objectline';
 
    $sql = "SELECT ".$objectline->getFieldList('l');
    $sql .= " FROM ".$this->db->prefix().$this->db->sanitize($objectline->table_element)." as l";
    $sql .= " WHERE l.fk_".$this->db->sanitize($this->element)." = ".((int) $this->id);
    if ($morewhere) {
      $sql .= $morewhere;
    }
    if (isset($objectline->fields['position'])) {
      $sql .= $this->db->order('position', 'ASC');
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $num_rows = $this->db->num_rows($resql);
      $i = 0;
      $this->lines = array();
      while ($i < $num_rows) {
        $obj = $this->db->fetch_object($resql);
        if ($obj) {
          $newline = new $objectlineclassname($this->db);
          '@phan-var-force CommonObjectLine $newline';
          $newline->setVarsFromFetchObj($obj);
 
          // Load also extrafields for the line
          if (empty($noextrafields)) {
            $newline->fetch_optionals();
          }
 
          $this->lines[] = $newline;
        }
        $i++;
      }
 
      return 1;
    } else {
      $this->error = $this->db->lasterror();
      $this->errors[] = $this->error;
      return -1;
    }
  }
 
  public function updateCommon(User $user, $notrigger = 0)
  {
    dol_syslog(get_class($this)."::updateCommon update", LOG_DEBUG);
 
    $error = 0;
 
    $now = dol_now();
 
    // $this->oldcopy should have been set by the caller of update
    //if (empty($this->oldcopy)) {
    //  dol_syslog("this->oldcopy should have been set by the caller of update (here properties were already modified)", LOG_WARNING);
    //  $this->oldcopy = dol_clone($this, 2);
    //}
 
    $fieldvalues = $this->setSaveQuery();
 
    // Note: Here, $fieldvalues contains same keys (or less) that are inside ->fields
 
    if (array_key_exists('date_modification', $fieldvalues)) {
      $fieldvalues['date_modification'] = $this->db->idate($now);
    }
    if (getDolGlobalString('MAIN_DISABLE_AUTO_UPDATE_OF_TMS_FIELDS') && array_key_exists('tms', $fieldvalues)) {  // If we want the explicit update of tms fields instead of deprecated update by database
      $fieldvalues['tms'] = $this->db->idate($now);
    }
    if (array_key_exists('fk_user_modif', $fieldvalues)) {
      $fieldvalues['fk_user_modif'] = $user->id;
    }
    if (array_key_exists('user_modification_id', $fieldvalues)) {
      $fieldvalues['user_modification_id'] = $user->id;
    }
    // @phan-suppress-next-line PhanUndeclaredProperty
    if (array_key_exists('pass_crypted', $fieldvalues) && property_exists($this, 'pass') && !empty($this->pass)) {
      // @phan-suppress-next-line PhanUndeclaredProperty
      $tmparray = dol_hash($this->pass, '0', 0, 1);
      $fieldvalues['pass_crypted'] = $tmparray['pass_encrypted'];
      if (array_key_exists('pass_encoding', $fieldvalues) && property_exists($this, 'pass_encoding')) {
        $fieldvalues['pass_encoding'] = $tmparray['pass_encoding'];
      }
    }
    if (array_key_exists('ref', $fieldvalues)) {
      $fieldvalues['ref'] = dol_string_nospecial($fieldvalues['ref']); // If field is a ref, we sanitize data
    }
 
    unset($fieldvalues['rowid']); // The field 'rowid' is reserved field name for autoincrement field so we don't need it into update.
 
    // Add quotes and escape on fields with type string
    $keys = array();
    $values = array();
    $sanitized_tmp = array();
    foreach ($fieldvalues as $k => $v) {
      $keys[$k] = $k;
      $value = $this->fields[$k];
      // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
      $values[$k] = $this->quote($v, $value);
      if ((!empty($value["type"]) && $value["type"] == "text") && !empty($value['arrayofkeyval']) && is_array($value['arrayofkeyval'])) {
        // Clean values for text with selectbox
        $v = preg_replace('/\s/', ',', $v);
        $v = preg_replace('/,+/', ',', $v);
      }
      // @phan-suppress-next-line PhanPluginSuspiciousParamPosition, SqlInjection
      $sanitized_tmp[] = $this->db->sanitize($k).'='.$this->quote($v, $this->fields[$k]);
    }
 
    // Clean and check mandatory fields
    foreach ($keys as $key) {
      if (!empty($this->fields[$key]['type']) && preg_match('/^integer:/i', $this->fields[$key]['type']) && $values[$key] == '-1') {
        $values[$key] = ''; // This is an implicit foreign key field
      }
      if (!empty($this->fields[$key]['foreignkey']) && $values[$key] == '-1') {
        $values[$key] = ''; // This is an explicit foreign key field
      }
 
      //var_dump($key.'-'.$values[$key].'-'.($this->fields[$key]['notnull'] == 1));
      /*
       if ($this->fields[$key]['notnull'] == 1 && empty($values[$key]))
       {
       $error++;
       $this->errors[]=$langs->trans("ErrorFieldRequired", $this->fields[$key]['label']);
       }*/
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($this->table_element);
    $sql.= " SET ".implode(', ', $sanitized_tmp);
    $sql.= " WHERE rowid = ".((int) $this->id);
 
    $this->db->begin();
 
    if (!$error) {
      $res = $this->db->query($sql);
      if (!$res) {
        $error++;
        $this->errors[] = $this->db->lasterror();
      }
    }
 
    // Update extrafield
    if (!$error) {
      $result = $this->insertExtraFields(); // This update extrafields
      if ($result < 0) {
        $error++;
      }
    }
 
    // Triggers
    if (!$error && !$notrigger) {
      // Call triggers
      $result = $this->call_trigger(strtoupper(get_class($this)).'_MODIFY', $user);
      if ($result < 0) {
        $error++;
      } //Do also here what you must do to rollback action if trigger fail
      // End call triggers
    }
 
    // Commit or rollback
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return $this->id;
    }
  }
 
  public function deleteCommon(User $user, $notrigger = 0, $forcechilddeletion = 0)
  {
    dol_syslog(get_class($this)."::deleteCommon delete", LOG_DEBUG);
 
    $error = 0;
 
    $this->db->begin();
 
    if ($forcechilddeletion) {  // Force also delete of childtables that should lock deletion in standard case when option force is off
      foreach ($this->childtables as $table) {
        $sql = "DELETE FROM ".$this->db->prefix().$this->db->sanitize($table);
        $sql .= " WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
        $resql = $this->db->query($sql);
        if (!$resql) {
          $this->error = $this->db->lasterror();
          $this->errors[] = $this->error;
          $this->db->rollback();
          return -1;
        }
      }
    } elseif (!empty($this->childtables)) { // If object has children linked with a foreign key field, we check all child tables.
      $objectisused = $this->isObjectUsed($this->id);
      if (!empty($objectisused)) {
        dol_syslog(get_class($this)."::deleteCommon Can't delete record as it has some child", LOG_WARNING);
        $this->error = 'ErrorRecordHasChildren';
        $this->errors[] = $this->error;
        $this->db->rollback();
        return 0;
      }
    }
 
    // Delete cascade first
    if (is_array($this->childtablesoncascade) && !empty($this->childtablesoncascade)) {
      foreach ($this->childtablesoncascade as $tabletodelete) {
        $deleteFromObject = explode(':', $tabletodelete, 4);
        if (count($deleteFromObject) >= 2) {
          $className = str_replace('@', '', $deleteFromObject[0]);
          $filePath = $deleteFromObject[1];
          $columnName = $deleteFromObject[2];
          $filter = '';
          if (!empty($deleteFromObject[3])) {
            $filter = $deleteFromObject[3];
          }
 
          if (dol_include_once($filePath)) {
            $childObject = new $className($this->db);
            if (method_exists($childObject, 'deleteByParentField')) {
              '@phan-var-force CommonObject $childObject';
              $result = $childObject->deleteByParentField($this->id, $columnName, $filter);
              if ($result < 0) {
                $error++;
                $this->errors[] = $childObject->error;
                break;
              }
            } else {
              $error++;
              $this->errors[] = "You defined a cascade delete on an object $className/$this->id but there is no method deleteByParentField for it";
              break;
            }
          } else {
            $error++;
            $this->errors[] = 'Cannot include child class file '.$filePath;
            break;
          }
        } else {
          // Delete record in child table
          $sql = "DELETE FROM ".$this->db->prefix().$this->db->sanitize($tabletodelete)." WHERE ".$this->db->sanitize($this->fk_element)." = ".((int) $this->id);
 
          $resql = $this->db->query($sql);
          if (!$resql) {
            $error++;
            $this->error = $this->db->lasterror();
            $this->errors[] = $this->error;
            break;
          }
        }
      }
    }
 
    if (!$error) {
      if (!$notrigger) {
        // Call triggers
        $result = $this->call_trigger(strtoupper(get_class($this)).'_DELETE', $user);
        if ($result < 0) {
          $error++;
        } // Do also here what you must do to rollback action if trigger fail
        // End call triggers
      }
    }
 
    // Delete llx_ecm_files
    if (!$error) {
      $res = $this->deleteEcmFiles(1); // Deleting files physically is done later with the dol_delete_dir_recursive
      if (!$res) {
        $error++;
      }
    }
 
    if (!$error) {
      $dir = getMultidirOutput($this)."/".dol_sanitizeFileName($this->ref);
      // For remove dir
      require_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php';
      if (dol_is_dir($dir)) {
        if (!dol_delete_dir_recursive($dir)) {
          $this->errors[] = 'ErrorFailToDeleteDir';
        }
      }
    }
 
    // Delete linked object
    $res = $this->deleteObjectLinked();
    if ($res < 0) {
      $error++;
    }
 
    if (!$error && !empty($this->isextrafieldmanaged)) {
      $result = $this->deleteExtraFields();
      if ($result < 0) {
        $error++;
      }
    }
 
    if (!$error) {
      $sql = "DELETE FROM ".$this->db->prefix().$this->db->sanitize($this->table_element);
      $sql .= " WHERE rowid = ".((int) $this->id);
 
      $resql = $this->db->query($sql);
      if (!$resql) {
        $error++;
        $this->errors[] = $this->db->lasterror();
      }
    }
 
    // Commit or rollback
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return 1;
    }
  }
 
  public function deleteByParentField($parentId = 0, $parentField = '', $filter = '', $filtermode = "AND")
  {
    global $user;
 
    $error = 0;
    $deleted = 0;
 
    //dol_syslog("deleteByParentField for ".$parentId.' '.$parentField);
 
    if (!empty($parentId) && !empty($parentField)) {
      if (empty($this->table_element)) {
        $this->error = 'Property table_element for object is not defined';
        $this->errors[] = $this->error;
        $error++;
        return -1;
      }
      if (!method_exists($this, 'fetch')) {
        $this->error = 'Method fetch for object is not defined';
        $this->errors[] = $this->error;
        $error++;
        return -1;
      }
      if (!method_exists($this, 'delete')) {
        $this->error = 'Method delete for object is not defined';
        $this->errors[] = $this->error;
        $error++;
        return -1;
      }
 
      $this->db->begin();
 
      $sql = "SELECT rowid FROM ".$this->db->prefix().$this->db->sanitize($this->table_element);
      $sql .= " WHERE ".$this->db->sanitize($parentField)." = ".(int) $parentId;
 
      // Manage filter
      $errormessage = '';
      $sql .= forgeSQLFromUniversalSearchCriteria($filter, $errormessage);
      if ($errormessage) {
        $this->errors[] = $errormessage;
        dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
        return -1;
      }
 
      $resql = $this->db->query($sql);
      if (!$resql) {
        $this->errors[] = $this->db->lasterror();
        $error++;
      } else {
        while ($obj = $this->db->fetch_object($resql)) {
          $result = $this->fetch($obj->rowid);  // @phpstan-ignore-line
          if ($result < 0) {
            $error++;
            $this->errors[] = $this->error;
          } else {
            $result = $this->delete($user); // @phpstan-ignore-line
            if ($result < 0) {
              $error++;
              $this->errors[] = $this->error;
            } else {
              $deleted++;
            }
          }
        }
      }
 
      if (empty($error)) {
        $this->db->commit();
        return $deleted;
      } else {
        $this->error = implode(', ', $this->errors);
        $this->db->rollback();
        return $error * -1;
      }
    }
 
    return $deleted;
  }
 
  public function deleteLineCommon(User $user, $idline, $notrigger = 0)
  {
    $error = 0;
 
    $tmpforobjectclass = get_class($this);
    $tmpforobjectlineclass = ucfirst($tmpforobjectclass).'Line';
 
    $this->db->begin();
 
    // Call trigger
    $result = $this->call_trigger('LINE'.strtoupper($tmpforobjectclass).'_DELETE', $user);
    if ($result < 0) {
      $error++;
    }
    // End call triggers
 
    if (empty($error)) {
      $sql = "DELETE FROM ".$this->db->prefix().$this->db->sanitize($this->table_element_line);
      $sql .= " WHERE rowid = ".((int) $idline);
 
      $resql = $this->db->query($sql);
      if (!$resql) {
        $this->error = "Error ".$this->db->lasterror();
        $error++;
      }
    }
 
    if (empty($error)) {
      // Remove extrafields
      $tmpobjectline = new $tmpforobjectlineclass($this->db);
      '@phan-var-force CommonObjectLine $tmpobjectline';
      if (!isset($tmpobjectline->isextrafieldmanaged) || !empty($tmpobjectline->isextrafieldmanaged)) {
        $tmpobjectline->id = $idline;
        $result = $tmpobjectline->deleteExtraFields();
        if ($result < 0) {
          $error++;
          $this->error = "Error ".get_class($this)."::deleteLineCommon deleteExtraFields error -4 ".$tmpobjectline->error;
        }
      }
    }
 
    if (empty($error)) {
      $this->db->commit();
      return 1;
    } else {
      dol_syslog(get_class($this)."::deleteLineCommon ERROR:".$this->error, LOG_ERR);
      $this->db->rollback();
      return -1;
    }
  }
 
 
  public function setStatusCommon($user, $status, $notrigger = 0, $triggercode = '')
  {
    $error = 0;
 
    $this->db->begin();
 
    $statusfield = 'status';
    if (in_array($this->element, array('don', 'donation', 'shipping', 'project_task'))) {
      $statusfield = 'fk_statut';
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->db->sanitize($this->table_element);
    $sql .= " SET ".$this->db->sanitize($statusfield)." = ".((int) $status);
    $sql .= " WHERE rowid = ".((int) $this->id);
 
    if ($this->db->query($sql)) {
      if (!$error) {
        $this->oldcopy = clone $this;
      }
 
      if (!$error && !$notrigger) {
        // Call trigger
        $result = $this->call_trigger($triggercode, $user);
        if ($result < 0) {
          $error++;
        }
      }
 
      if (!$error) {
        $this->status = $status;
        if (property_exists($this, 'statut')) { // For backward compatibility
          $this->statut = $status;
        }
        $this->db->commit();
        return 1;
      } else {
        $this->db->rollback();
        return -1;
      }
    } else {
      $this->error = $this->db->error();
      $this->db->rollback();
      return -1;
    }
  }
 
  public function initAsSpecimenCommon()
  {
    global $user;
 
    $this->id = 0;
    $this->specimen = 1;
    $fields = array(
      'label' => 'This is label',
      'ref' => 'ABCD1234',
      'description' => 'This is a description',
      'qty' => 123.12,
      'note_public' => 'Public note',
      'note_private' => 'Private note',
      'date_creation' => (dol_now() - 3600 * 48),
      'date_modification' => (dol_now() - 3600 * 24),
      'fk_user_creat' => $user->id,
      'fk_user_modif' => $user->id,
      'date' => dol_now(),
    );
    foreach ($fields as $key => $value) {
      if (array_key_exists($key, $this->fields)) {
        $this->{$key} = $value;   // @phpstan-ignore-line
      }
    }
 
    // Force values to default values when known
    if (property_exists($this, 'fields')) {
      foreach ($this->fields as $key => $value) {
        // If fields are already set, do nothing
        if (array_key_exists($key, $fields)) {
          continue;
        }
 
        if (!empty($value['default'])) {
          $this->$key = $value['default'];
        }
      }
    }
 
    return 1;
  }
 
 
  /* Part for comments */
 
  public function fetchComments()
  {
    require_once DOL_DOCUMENT_ROOT.'/core/class/comment.class.php';
 
    $comment = new Comment($this->db);
    $result = $comment->fetchAllFor($this->element, $this->id);
    if ($result < 0) {
      $this->setErrorsFromObject($comment);
      return -1;
    } else {
      $this->comments = $comment->comments;
    }
    return count($this->comments);
  }
 
  public function getNbComments()
  {
    return count($this->comments);
  }
 
  public function trimParameters($parameters)
  {
    if (!is_array($parameters)) {
      return;
    }
    foreach ($parameters as $parameter) {
      if (isset($this->$parameter)) {
        $this->$parameter = trim($this->$parameter);
      }
    }
  }
 
  /* Part for categories/tags */
 
  public function getCategoriesCommon($type_categ)
  {
    require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
 
    // Get current categories
    $c = new Categorie($this->db);
    $existing = $c->containing($this->id, $type_categ, 'id');
 
    return $existing;
  }
 
  public function setCategoriesCommon($categories, $type_categ = '', $remove_existing = true)
  {
    // Handle single category
    if (!is_array($categories)) {
      $categories = array($categories);
    }
 
    dol_syslog(get_class($this)."::setCategoriesCommon Object Id:".$this->id.' type_categ:'.$type_categ.' nb tag add:'.count($categories), LOG_DEBUG);
 
    require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
 
    if (empty($type_categ)) {
      dol_syslog(__METHOD__.': Type '.$type_categ.'is an unknown category type. Done nothing.', LOG_ERR);
      return -1;
    }
 
    // Get current categories
    $c = new Categorie($this->db);
    $existing = $c->containing($this->id, $type_categ, 'id');
    // containing() returns an integer < 0 on error (e.g. when the categorie_xxx table does not exist).
    // Normalize to an empty array to avoid array_diff()/foreach() warnings below.
    if (!is_array($existing)) {
      $existing = array();
    }
    if ($remove_existing) {
      // Diff
      $to_del = array_diff($existing, $categories);
      $to_add = array_diff($categories, $existing);
    } else {
      $to_del = array(); // Nothing to delete
      $to_add = array_diff($categories, $existing);
    }
 
    $error = 0;
    $ok = 0;
 
    // Process
    foreach ($to_del as $del) {
      if ($c->fetch($del) > 0) {
        $result = $c->del_type($this, $type_categ);
        if ($result < 0) {
          $error++;
          $this->error = $c->error;
          $this->errors = $c->errors;
          break;
        } else {
          $ok += $result;
        }
      }
    }
    foreach ($to_add as $add) {
      if ($c->fetch($add) > 0) {
        $result = $c->add_type($this, $type_categ);
        if ($result < 0) {
          $error++;
          $this->error = $c->error;
          $this->errors = $c->errors;
          break;
        } else {
          $ok += $result;
        }
      }
    }
 
    return $error ? (-1 * $error) : $ok;
  }
 
  public function cloneCategories($fromId, $toId, $type = '')
  {
    $this->db->begin();
 
    if (empty($type)) {
      $type = $this->table_element;
    }
 
    require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
    $categorystatic = new Categorie($this->db);
 
    $tablename = $this->db->prefix()."categorie_".(empty($categorystatic->MAP_CAT_TABLE[$type]) ? $type : $categorystatic->MAP_CAT_TABLE[$type]);
    $fkname = 'fk_' . (empty($categorystatic->MAP_CAT_FK[$type]) ? $type : $categorystatic->MAP_CAT_FK[$type]);
 
    $sql = "INSERT INTO ".$this->db->sanitize($tablename)." (fk_categorie, ".$this->db->sanitize($fkname).")";
    $sql .= " SELECT fk_categorie, ".((int) $toId)." FROM ".$this->db->sanitize($tablename);
    $sql .= " WHERE ".$this->db->sanitize($fkname)." = ".((int) $fromId);
 
    if (!$this->db->query($sql)) {
      $this->error = $this->db->lasterror();
      $this->db->rollback();
      return -1;
    }
 
    $this->db->commit();
    return 1;
  }
 
  public function deleteEcmFiles($mode = 0)
  {
    global $conf;
 
    $this->db->begin();
 
    // Delete in database with mode 0
    if ($mode == 0) {
      switch ($this->element) {
        case 'propal':
          $element = 'propale';
          break;
        case 'product':
          $element = 'produit';
          break;
        case 'order_supplier':
          $element = 'fournisseur/commande';
          break;
        case 'invoice_supplier':
          // Special cases that need to use get_exdir to get real dir of object
          // In future, all object should use this to define path of documents.
          $element = 'fournisseur/facture/'.get_exdir($this->id, 2, 0, 1, $this, 'invoice_supplier');
          break;
        case 'shipping':
          $element = 'expedition/sending';
          break;
        case 'task':
        case 'project_task':
          require_once DOL_DOCUMENT_ROOT.'/projet/class/task.class.php';
 
          $project_result = $this->fetchProject();
          if ($project_result >= 0) {
            $element = 'projet/'.dol_sanitizeFileName($this->project->ref).'/';
          }
          // no break
        case 'contrat':
          $element = 'contract';
          break;
        default:
          $element = $this->element;
      }
      '@phan-var-force string $element';
 
      // Delete ecm_files_extrafields with mode 0 (using name)
      $sql = "DELETE FROM ".$this->db->prefix()."ecm_files_extrafields WHERE fk_object IN (";
      $sql .= " SELECT rowid FROM ".$this->db->prefix()."ecm_files WHERE filename LIKE '".$this->db->escape($this->ref)."%'";
      $sql .= " AND filepath = '".$this->db->escape($element."/".$this->ref)."' AND entity = ".((int) $conf->entity); // No need of getEntity here
      $sql .= ")";
 
      if (!$this->db->query($sql)) {
        $this->error = $this->db->lasterror();
        $this->db->rollback();
        return false;
      }
 
      // Delete ecm_files with mode 0 (using name)
      $sql = "DELETE FROM ".$this->db->prefix()."ecm_files";
      $sql .= " WHERE filename LIKE '".$this->db->escape($this->ref)."%'";
      $sql .= " AND filepath = '".$this->db->escape($element."/".$this->ref)."' AND entity = ".((int) $conf->entity); // No need of getEntity here
 
      if (!$this->db->query($sql)) {
        $this->error = $this->db->lasterror();
        $this->db->rollback();
        return false;
      }
    }
 
    // Delete in database with mode 1
    if ($mode == 1) {
      $sql = 'DELETE FROM '.$this->db->prefix()."ecm_files_extrafields";
      $sql .= " WHERE fk_object IN (SELECT rowid FROM ".$this->db->prefix()."ecm_files WHERE src_object_type = '".$this->db->escape($this->table_element.(empty($this->module) ? "" : "@".$this->module))."' AND src_object_id = ".((int) $this->id).")";
      $resql = $this->db->query($sql);
      if (!$resql) {
        $this->error = $this->db->lasterror();
        $this->db->rollback();
        return false;
      }
 
      $sql = 'DELETE FROM '.$this->db->prefix()."ecm_files";
      $sql .= " WHERE src_object_type = '".$this->db->escape($this->table_element.(empty($this->module) ? "" : "@".$this->module))."' AND src_object_id = ".((int) $this->id);
      $resql = $this->db->query($sql);
      if (!$resql) {
        $this->error = $this->db->lasterror();
        $this->db->rollback();
        return false;
      }
    }
 
    $this->db->commit();
    return true;
  }
 
  public function checkActiveProductInLines($status = 'onsale')
  {
    global $langs;
 
    if (isModEnabled('product') || isModEnabled('service')) {
      include_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
 
      $ret = true;
      $tmpproduct = new Product($this->db);
      foreach ($this->lines as $line) {
        if ($line->fk_product > 0) {
          $tmpproduct->fetch($line->fk_product);
          $statustotest = ($status == 'onsale' ? 'status' : 'status_buy');
          if (!$tmpproduct->$statustotest) {
            $langs->load('products');
            $statuskey4lang = ($status == 'onsale' ? 'ProductStatusNotOnSell' : 'ProductStatusNotOnBuy');
            $ret = false;
            $this->errors[] = $langs->trans('ProductRef').' '.$tmpproduct->ref.' '.$langs->trans($statuskey4lang);
            break;
          }
        }
      }
      if (!$ret) {
        $this->error = 'ErrorOneLineContainsADisactivatedProduct';
      }
      return $ret;
    } else {
      return true;
    }
  }
 
  public function setErrorWithoutLog($message)
  {
    $this->error = $message;
    $this->errors[] = $message;
  }
 
  public function setErrorWithLog($message, $loglevel = LOG_ERR)
  {
    global $dolibarr_main_document_root;
 
    $this->setErrorWithoutLog($message);
    $trace = debug_backtrace(DEBUG_BACKTRACE_IGNORE_ARGS, 2);
    $file = str_replace($dolibarr_main_document_root, '', $trace[0]['file'] ?? 'file unknown');
    $line = $trace[0]['line'] ?? 'line unknown';
    $syslogMessage = sprintf('%s:%s %s', $file, $line, $message);
    dol_syslog($syslogMessage, $loglevel);
  }
}