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-2022 Alexandre Spangaro   <aspangaro@open-dsi.fr>
 * Copyright (C) 2016      Bahfir abbes         <dolipar@dolipar.org>
 * Copyright (C) 2017      ATM Consulting       <support@atm-consulting.fr>
 * Copyright (C) 2017-2019 Nicolas ZABOURI      <info@inovea-conseil.com>
 * Copyright (C) 2017      Rui Strecht          <rui.strecht@aliartalentos.com>
 * Copyright (C) 2018-2023 Frédéric France      <frederic.france@netlogic.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>
 *
 * 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/>.
 */
 
abstract class CommonObject
{
  const TRIGGER_PREFIX = ''; // to be overriden in child class implementations, i.e. 'BILL', 'TASK', 'PROPAL', etc.
 
  public $module;
 
  public $db;
 
  public $id;
 
  public $entity;
 
  public $error;
 
  public $errorhidden;
 
  public $errors = array();
 
  private $validateFieldsErrors = array();
 
  public $element;
 
  public $fk_element;
 
  public $element_for_permission;
 
  public $table_element;
 
  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 $linked_objects;
 
  public $linkedObjectsIds;
 
  public $linkedObjects;
 
  private $linkedObjectsFullLoaded = array();
 
  public $oldcopy;
  public $oldref;
 
  protected $table_ref_field = '';
 
  public $restrictiononfksoc = 0;
 
 
  // Following vars are used by some objects only. We keep this property here in CommonObject to be able to provide common method using them.
 
  public $context = array();
 
  public $canvas;
 
  public $project;
 
  public $fk_project;
 
  public $projet;
 
  public $fk_projet;
 
  public $contact;
 
  public $contact_id;
 
  public $thirdparty;
 
  public $user;
 
  public $origin;
 
  public $origin_id;
 
  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;
 
  public $cond_reglement;
 
  public $fk_delivery_address;
 
  public $shipping_method_id;
 
  public $shipping_method;
 
  public $multicurrency_code;
 
  public $multicurrency_tx;
 
  public $model_pdf;
 
  public $modelpdf;
 
  public $last_main_doc;
 
  public $fk_bank;
 
  public $fk_account;
 
  public $openid;
 
  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 $comments = array();
 
  public $name;
 
  public $lastname;
 
  public $firstname;
 
  public $civility_id;
 
  // Dates
  public $date_creation;
 
  public $date_validation; // Date validation
 
  public $date_modification; // Date last change (tms field)
  public $date_update;
 
  public $date_cloture; // Date closing (tms field)
 
  public $user_author;
  public $user_creation;
  public $user_creation_id;
 
  public $user_valid;
  public $user_validation;
  public $user_validation_id;
  public $user_closing_id;
 
  public $user_modification;
  public $user_modification_id;
 
 
  public $next_prev_filter;
 
  public $specimen = 0;
 
  public $sendtoid;
 
  public $alreadypaid;
 
 
  public $labelStatus;
  protected $labelStatusShort;
 
  public $showphoto_on_popup;
 
  public $nb = array();
 
  public $output;
 
  public $extraparams = array();
 
  protected $childtables = array();
 
  protected $childtablesoncascade = array();
 
 
  // No constructor as it is an abstract class
 
 
  public static function isExistingObject($element, $id, $ref = '', $ref_ext = '')
  {
    global $db, $conf;
 
    $sql = "SELECT rowid, ref, ref_ext";
    $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_print_error(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 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);
 
    $datas = $this->getTooltipContentArray($params);
    $count = 0;
 
    // Add extrafields
    if (!empty($extrafields->attributes[$this->table_element]['label'])) {
      foreach ($extrafields->attributes[$this->table_element]['label'] as $key => $val) {
        if ($extrafields->attributes[$this->table_element]['type'][$key] == 'separate') {
          continue;
        }
        if ($count >= abs($MAX_EXTRAFIELDS_TO_SHOW_IN_TOOLTIP)) {
          $datas['more_extrafields'] = '<br>...';
          break;
        }
        $enabled = 1;
        if ($enabled && isset($extrafields->attributes[$this->table_element]['enabled'][$key])) {
          $enabled = dol_eval($extrafields->attributes[$this->table_element]['enabled'][$key], 1, 1, '2');
        }
        if ($enabled && isset($extrafields->attributes[$this->table_element]['list'][$key])) {
          $enabled = dol_eval($extrafields->attributes[$this->table_element]['list'][$key], 1, 1, '2');
        }
        $perms = 1;
        if ($perms && isset($extrafields->attributes[$this->table_element]['perms'][$key])) {
          $perms = dol_eval($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') {
          $datas[$key]= '<br><b><u>'. $labelextra . '</u></b>';
        } else {
          $value = (empty($this->array_options['options_' . $key]) ? '' : $this->array_options['options_' . $key]);
          $datas[$key]= '<br><b>'. $labelextra . ':</b> ' . $extrafields->showOutputField($key, $value, '', $this->table_element);
          $count++;
        }
      }
    }
 
    $hookmanager->initHooks(array($this->element . 'dao'));
    $parameters = array(
      'tooltipcontentarray' => &$datas,
      'params' => $params,
    );
    // Note that $action and $object may have been modified by some hooks
    $hookmanager->executeHooks('getTooltipContent', $parameters, $this, $action);
 
    //var_dump($datas);
    $label = implode($datas);
 
    return $label;
  }
 
 
  public function errorsToString()
  {
    return $this->error.(is_array($this->errors) ? (($this->error != '' ? ', ' : '').join(', ', $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', 0, 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, '', 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)) {
      // Add entry into index
      if ($initsharekey) {
        require_once DOL_DOCUMENT_ROOT.'/core/lib/security2.lib.php';
 
        // TODO We can't, we dont' 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)) {
      // 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;
    }
    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;
    }
 
    $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) {
      $this->error = 'CODE_NOT_VALID_FOR_THIS_ELEMENT';
      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 -3;
    }
 
    $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 (".$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) {
          $result = $this->call_trigger(strtoupper($this->element).'_ADD_CONTACT', $user);
          if ($result < 0) {
            $this->db->rollback();
            return -1;
          }
        }
 
        $this->db->commit();
        return 1;
      } else {
        if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
          $this->error = $this->db->errno();
          $this->db->rollback();
          return -2;
        } else {
          $this->error = $this->db->lasterror();
          $this->db->rollback();
          return -1;
        }
      }
    } 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 = ".$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;
 
 
    $this->db->begin();
 
    $sql = "DELETE FROM ".$this->db->prefix()."element_contact";
    $sql .= " WHERE rowid = ".((int) $rowid);
 
    dol_syslog(get_class($this)."::delete_contact", LOG_DEBUG);
    if ($this->db->query($sql)) {
      if (!$notrigger) {
        $result = $this->call_trigger(strtoupper($this->element).'_DELETE_CONTACT', $user);
        if ($result < 0) {
          $this->db->rollback();
          return -1;
        }
      }
 
      $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";
    }
    if ($source == 'external' || $source == 'thirdparty') {
      $sql .= ", t.fk_soc as socid, t.statut as statuscontact";
    }
    $sql .= ", t.civility as civility, t.lastname as lastname, t.firstname, t.email";
    $sql .= ", tc.source, tc.element, tc.code, tc.libelle";
    $sql .= " FROM ".$this->db->prefix()."c_type_contact tc,";
    $sql .= " ".$this->db->prefix()."element_contact ec";
    if ($source == 'internal') {  // internal contact (user)
      $sql .= " LEFT JOIN ".$this->db->prefix()."user t on ec.fk_socpeople = t.rowid";
    }
    if ($source == 'external' || $source == 'thirdparty') { // external contact (socpeople)
      $sql .= " LEFT JOIN ".$this->db->prefix()."socpeople t on ec.fk_socpeople = t.rowid";
    }
    $sql .= " WHERE ec.element_id = ".((int) $this->id);
    $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 ($status >= 0) {
        $sql .= " AND t.statut = ".((int) $status);
      }
    }
    if ($source == 'external' || $source == 'thirdparty') {
      $sql .= " AND tc.source = 'external'";
      if ($status >= 0) {
        $sql .= " AND t.statut = ".((int) $status); // t is llx_socpeople
      }
    }
    $sql .= " AND tc.active = 1";
    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;
          $libelle_type = ($langs->trans($transkey) != $transkey ? $langs->trans($transkey) : $obj->libelle);
          $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,
            'login'=> (empty($obj->login) ? '' : $obj->login),
            'photo' => (empty($obj->photo) ? '' : $obj->photo),
            'statuscontact' => $obj->statuscontact,
            'rowid' => $obj->rowid,
            'code' => $obj->code,
            'libelle' => $libelle_type,
            'status' => $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";
    $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;
 
    if (empty($order)) {
      $order = 'position';
    }
    if ($order == 'position') {
      $order .= ',code';
    }
 
    $tab = array();
    $sql = "SELECT DISTINCT tc.rowid, tc.code, tc.libelle, 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($order, 'ASC');
 
    //print "sql=".$sql;
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      $i = 0;
      while ($i < $num) {
        $obj = $this->db->fetch_object($resql);
 
        $transkey = "TypeContact_".$this->element."_".$source."_".$obj->code;
        $libelle_type = ($langs->trans($transkey) != $transkey ? $langs->trans($transkey) : $obj->libelle);
        if (empty($option)) {
          $tab[$obj->rowid] = $libelle_type;
        } else {
          $tab[$obj->code] = $libelle_type;
        }
        $i++;
      }
      return $tab;
    } else {
      $this->error = $this->db->lasterror();
      //dol_print_error($this->db);
      return null;
    }
  }
 
  public function listeTypeContacts($source = 'internal', $option = 0, $activeonly = 0, $code = '', $element = '', $excludeelement = '')
  {
    global $langs, $conf;
 
    $langs->loadLangs(array('bills', 'contracts', 'interventions', 'orders', 'projects', 'propal', 'ticket', 'agenda'));
 
    $tab = array();
 
    $sql = "SELECT DISTINCT tc.rowid, tc.code, tc.libelle, tc.position, tc.element";
    $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->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';
          } elseif (strpos($obj->element, 'supplier') !== false && $obj->element != 'supplier_proposal') {
            $modulename = 'fournisseur';
          }
          if (!empty($conf->{$modulename}->enabled)) {
            $libelle_element = $langs->trans('ContactDefault_'.$obj->element);
            $tmpelement = $obj->element;
            $transkey = "TypeContact_".$tmpelement."_".$source."_".$obj->code;
            $libelle_type = ($langs->trans($transkey) != $transkey ? $langs->trans($transkey) : $obj->libelle);
            if (empty($option)) {
              $tab[$obj->rowid] = $libelle_element.' - '.$libelle_type;
            } else {
              $tab[$obj->rowid] = $libelle_element.' - '.$libelle_type;
            }
          }
        }
      }
      return $tab;
    } else {
      $this->error = $this->db->lasterror();
      return null;
    }
  }
 
  public function getIdContact($source, $code, $status = 0)
  {
    global $conf;
 
    $result = array();
    $i = 0;
    //cas particulier pour les expeditions
    if ($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
    global $conf;
 
    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 (!empty($conf->global->PRODUIT_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." WHERE ".$this->table_ref_field." LIKE '".$this->db->escape($ref)."' LIMIT 1";
 
    $query = $this->db->query($sql);
 
    if (!$this->db->num_rows($query)) {
      return 0;
    }
 
    $result = $this->db->fetch_object($query);
 
    return $this->fetch($result->rowid);
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_barcode()
  {
    // phpcs:enable
    global $conf;
 
    dol_syslog(get_class($this).'::fetch_barcode 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' && !empty($conf->global->PRODUIT_DEFAULT_BARCODE_TYPE)) {
        $idtype = $conf->global->PRODUIT_DEFAULT_BARCODE_TYPE;
      } elseif ($this->element == 'societe') {
        $idtype = $conf->global->GENBARCODE_BARCODETYPE_THIRDPARTY;
      } else {
        dol_syslog('Call fetch_barcode with barcode_type not defined and cant 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);
        dol_syslog(get_class($this).'::fetch_barcode', LOG_DEBUG);
        $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;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_project()
  {
    // phpcs:enable
    return $this->fetch_projet();
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_projet()
  {
    // phpcs:enable
    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->projet = $project; // deprecated
    $this->project = $project;
    return $result;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function fetch_product()
  {
    // phpcs:enable
    include_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
 
    if (empty($this->fk_product)) {
      return 0;
    }
 
    $product = new Product($this->db);
    $result = $product->fetch($this->fk_product);
 
    $this->product = $product;
    return $result;
  }
 
  // 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
    if ($this->origin == 'shipping') {
      $this->origin = 'expedition';
    }
    if ($this->origin == 'delivery') {
      $this->origin = 'livraison';
    }
    if ($this->origin == 'order_supplier') {
      $this->origin = 'commandeFournisseur';
    }
 
    $origin = $this->origin;
 
    $classname = ucfirst($origin);
    $this->$origin = new $classname($this->db);
    $this->$origin->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 ".$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) {
      $row = $this->db->fetch_row($resql);
      // Test for avoid error -1
      if ($row[0] > 0) {
        $result = $this->fetch($row[0]);
      }
    }
 
    return $result;
  }
 
  public function getValueFrom($table, $id, $field)
  {
    $result = false;
    if (!empty($id) && !empty($field) && !empty($table)) {
      $sql = "SELECT ".$field." FROM ".$this->db->prefix().$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, $langs, $conf;
 
    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';
    }
 
    // Special case
    if ($table == 'product' && $field == 'note_private') {
      $field = 'note';
    }
    if (in_array($table, array('actioncomm', 'adherent', 'advtargetemailing', 'cronjob', 'establishment'))) {
      $fk_user_field = 'fk_user_mod';
    }
 
    if ($trigkey) {
      $oldvalue = null;
 
      $sql = "SELECT " . $field;
      $sql .= " FROM " . MAIN_DB_PREFIX . $table;
      $sql .= " WHERE " . $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 .= $field." = '".$this->db->escape($value)."'";
    } elseif ($format == 'int') {
      $sql .= $field." = ".((int) $value);
    } elseif ($format == 'date') {
      $sql .= $field." = ".($value ? "'".$this->db->idate($value)."'" : "null");
    } elseif ($format == 'dategmt') {
      $sql .= $field." = ".($value ? "'".$this->db->idate($value, 'gmt')."'" : "null");
    }
 
    if ($fk_user_field) {
      if (!empty($fuser) && is_object($fuser)) {
        $sql .= ", ".$fk_user_field." = ".((int) $fuser->id);
      } elseif (empty($fuser) || $fuser != 'none') {
        $sql .= ", ".$fk_user_field." = ".((int) $user->id);
      }
    }
 
    $sql .= " WHERE ".$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 ($result >= 0) {
          $result = $this->call_trigger($trigkey, (!empty($fuser) && is_object($fuser)) ? $fuser : $user); // This may set this->errors
        }
        if ($result < 0) {
          $error++;
        }
      }
 
      if (!$error) {
        if (property_exists($this, $field)) {
          $this->$field = $value;
        }
        $this->db->commit();
        return 1;
      } else {
        $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('', get_class($this)."::load_previous_next_ref was called on objet with property table_element not defined");
      return -1;
    }
    if ($fieldid == 'none') {
      return 1;
    }
 
    // For backward compatibility
    if ($this->table_element == 'facture_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.".$fieldid.")";
    $sql .= " FROM ".(empty($nodbprefix) ?$this->db->prefix():'').$this->table_element." as te";
    if ($this->element == 'user' && !empty($conf->global->MULTICOMPANY_TRANSVERSE_MODE)) {
      $sql .= ",".$this->db->prefix()."usergroup_user as ug";
    }
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= ", ".$this->db->prefix().$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' && empty($user->rights->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' && empty($user->rights->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 && empty($user->rights->societe->client->voir) && !$socid) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."societe_commerciaux as sc ON ".$aliastablesociete.".rowid = sc.fk_soc";
    }
    $sql .= " WHERE te.".$fieldid." < '".$this->db->escape($fieldid == 'rowid' ? $this->id : $this->ref)."'"; // ->ref must always be defined (set to id if field does not exists)
    if ($restrictiononfksoc == 1 && empty($user->rights->societe->client->voir) && !$socid) {
      $sql .= " AND sc.fk_user = ".((int) $user->id);
    }
    if ($restrictiononfksoc == 2 && empty($user->rights->societe->client->voir) && !$socid) {
      $sql .= " AND (sc.fk_user = ".((int) $user->id).' OR te.fk_soc IS NULL)';
    }
    if (!empty($filter)) {
      if (!preg_match('/^\s*AND/i', $filter)) {
        $sql .= " AND "; // For backward compatibility
      }
      $sql .= $filter;
    }
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= " AND te.".$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' && empty($user->rights->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' && !empty($conf->global->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 ug.fk_user = te.rowid";
          $sql .= " AND 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.".$fieldid.")";
    $sql .= " FROM ".(empty($nodbprefix) ?$this->db->prefix():'').$this->table_element." as te";
    if ($this->element == 'user' && !empty($conf->global->MULTICOMPANY_TRANSVERSE_MODE)) {
      $sql .= ",".$this->db->prefix()."usergroup_user as ug";
    }
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= ", ".$this->db->prefix().$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' && empty($user->rights->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' && empty($user->rights->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 && empty($user->rights->societe->client->voir) && !$socid) {
      $sql .= " LEFT JOIN ".$this->db->prefix()."societe_commerciaux as sc ON ".$aliastablesociete.".rowid = sc.fk_soc";
    }
    $sql .= " WHERE te.".$fieldid." > '".$this->db->escape($fieldid == 'rowid' ? $this->id : $this->ref)."'"; // ->ref must always be defined (set to id if field does not exists)
    if ($restrictiononfksoc == 1 && empty($user->rights->societe->client->voir) && !$socid) {
      $sql .= " AND sc.fk_user = ".((int) $user->id);
    }
    if ($restrictiononfksoc == 2 && empty($user->rights->societe->client->voir) && !$socid) {
      $sql .= " AND (sc.fk_user = ".((int) $user->id).' OR te.fk_soc IS NULL)';
    }
    if (!empty($filter)) {
      if (!preg_match('/^\s*AND/i', $filter)) {
        $sql .= " AND "; // For backward compatibility
      }
      $sql .= $filter;
    }
    if (isset($this->ismultientitymanaged) && !is_numeric($this->ismultientitymanaged)) {
      $tmparray = explode('@', $this->ismultientitymanaged);
      $sql .= " AND te.".$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' && empty($user->rights->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' && !empty($conf->global->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 ug.fk_user = te.rowid";
          $sql .= " AND 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 objet with property table_element not defined", LOG_ERR);
      return -1;
    }
 
    $sql = "UPDATE ".$this->db->prefix().$this->table_element;
    if (!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);
    } elseif ($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);
    } 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->statut >= 0 || $this->element == 'societe') {
      // TODO uniformize field name
      $fieldname = 'fk_mode_reglement';
      if ($this->element == 'societe') {
        $fieldname = 'mode_reglement';
      }
      if (get_class($this) == 'Fournisseur') {
        $fieldname = 'mode_reglement_supplier';
      }
      if (get_class($this) == 'Tva') {
        $fieldname = 'fk_typepayment';
      }
      if (get_class($this) == 'Salary') {
        $fieldname = 'fk_typepayment';
      }
 
      $sql = "UPDATE ".$this->db->prefix().$this->table_element;
      $sql .= " SET ".$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
          if (get_class($this) == 'Commande') {
            $result = $this->call_trigger('ORDER_MODIFY', $user);
          } else {
            $result = $this->call_trigger(strtoupper(get_class($this)).'_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->statut;
      return -2;
    }
  }
 
  public function setMulticurrencyCode($code)
  {
    dol_syslog(get_class($this).'::setMulticurrencyCode('.$code.')');
    if ($this->statut >= 0 || $this->element == 'societe') {
      $fieldname = 'multicurrency_code';
 
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET ".$fieldname." = '".$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->statut;
      return -2;
    }
  }
 
  public function setMulticurrencyRate($rate, $mode = 1)
  {
    dol_syslog(get_class($this).'::setMulticurrencyRate('.$rate.','.$mode.')');
    if ($this->statut >= 0 || $this->element == 'societe') {
      $fieldname = 'multicurrency_tx';
 
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET ".$fieldname." = ".((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':
                $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':
                $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':
                $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 'supplier_proposal':
                $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,
                  $line->multicurrency_subprice
                );
                break;
              case 'order_supplier':
                $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,
                  false,
                  $line->date_start,
                  $line->date_end,
                  $line->array_options,
                  $line->fk_unit,
                  $line->multicurrency_subprice,
                  $line->ref_supplier
                );
                break;
              case 'invoice_supplier':
                $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,
                  false,
                  $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->statut;
      return -2;
    }
  }
 
  public function setPaymentTerms($id, $deposit_percent = null)
  {
    dol_syslog(get_class($this).'::setPaymentTerms('.$id.', '.var_export($deposit_percent, true).')');
    if ($this->statut >= 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 = getDictionaryValue('c_payment_term', 'deposit_percent', $id);
      }
 
      if ($deposit_percent > 100) {
        $deposit_percent = 100;
      }
 
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET ".$fieldname." = ".(($id > 0 || $id == '0') ? ((int) $id) : 'NULL');
      if (in_array($this->table_element, array('propal', 'commande', 'societe'))) {
        $sql .= " , deposit_percent = " . (empty($deposit_percent) ? 'NULL' : "'".$this->db->escape($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->cond_reglement = $id; // for compatibility
        $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->statut;
      return -2;
    }
  }
 
  public function setTransportMode($id)
  {
    dol_syslog(get_class($this).'::setTransportMode('.$id.')');
    if ($this->statut >= 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 ".$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->statut;
      return -2;
    }
  }
 
  public function setRetainedWarrantyPaymentTerms($id)
  {
    dol_syslog(get_class($this).'::setRetainedWarrantyPaymentTerms('.$id.')');
    if ($this->statut >= 0 || $this->element == 'societe') {
      $fieldname = 'retained_warranty_fk_cond_reglement';
 
      $sql = 'UPDATE '.$this->db->prefix().$this->table_element;
      $sql .= " SET ".$fieldname." = ".((int) $id);
      $sql .= ' WHERE rowid='.((int) $this->id);
 
      if ($this->db->query($sql)) {
        $this->retained_warranty_fk_cond_reglement = $id;
        return 1;
      } else {
        dol_syslog(get_class($this).'::setRetainedWarrantyPaymentTerms Error '.$sql.' - '.$this->db->error());
        $this->error = $this->db->error();
        return -1;
      }
    } else {
      dol_syslog(get_class($this).'::setRetainedWarrantyPaymentTerms, status of the object is incompatible');
      $this->error = 'Status of the object is incompatible '.$this->statut;
      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 ".$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 = false, $userused = null)
  {
    global $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::setShippingMethod was called on objet 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);
        $result = $this->call_trigger(strtoupper(get_class($this)).'_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 objet 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 objet 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;
      $this->modelpdf = $modelpdf; // For bakward compatibility
      return 1;
    } else {
      dol_print_error($this->db);
      return 0;
    }
  }
 
 
  public function setBankAccount($fk_account, $notrigger = false, $userused = null)
  {
    global $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!$this->table_element) {
      dol_syslog(get_class($this)."::setBankAccount was called on objet 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 = array('bankaccountupdate'=>1);
        $result = $this->call_trigger(strtoupper(get_class($this)).'_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 objet 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 objet 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->table_element_line;
    $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
    if (!$renum) {
      $sql .= " AND " . $fieldposition . " = 0";
    }
    if ($renum) {
      $sql .= " AND " . $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->table_element_line;
      $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
      if ($fk_parent_line) {
        $sql .= ' AND fk_parent_line IS NULL';
      }
      $sql .= " ORDER BY " . $fieldposition . " ASC, rowid " . $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);
        while ($i < $num) {
          $row = $this->db->fetch_row($resql);
          $rows[] = $row[0]; // Add parent line into array rows
          $childrens = $this->getChildrenOfLine($row[0]);
          if (!empty($childrens)) {
            foreach ($childrens 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->table_element_line;
    $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
    $sql .= ' AND fk_parent_line = '.((int) $id);
    $sql .= " ORDER BY " . $fieldposition . " ASC";
 
    dol_syslog(get_class($this)."::getChildrenOfLine search children lines for line ".$id, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      if ($this->db->num_rows($resql) > 0) {
        while ($row = $this->db->fetch_row($resql)) {
          $rows[] = $row[0];
          if (!empty($includealltree)) {
            $rows = array_merge($rows, $this->getChildrenOfLine($row[0]), $includealltree);
          }
        }
      }
    }
    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 ".$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;
    } else {
      $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) {
      $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->table_element_line." SET ".$fieldposition." = ".((int) $rang);
      $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
      $sql .= " AND " . $fieldposition . " = " . ((int) ($rang - 1));
      if ($this->db->query($sql)) {
        $sql = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$fieldposition." = ".((int) ($rang - 1));
        $sql .= ' WHERE rowid = '.((int) $rowid);
        if (!$this->db->query($sql)) {
          dol_print_error($this->db);
        }
      } else {
        dol_print_error($this->db);
      }
    }
  }
 
  public function updateLineDown($rowid, $rang, $max)
  {
    if ($rang < $max) {
      $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->table_element_line." SET ".$fieldposition." = ".((int) $rang);
      $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
      $sql .= " AND " . $fieldposition . " = " . ((int) ($rang + 1));
      if ($this->db->query($sql)) {
        $sql = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$fieldposition." = ".((int) ($rang + 1));
        $sql .= ' WHERE rowid = '.((int) $rowid);
        if (!$this->db->query($sql)) {
          dol_print_error($this->db);
        }
      } else {
        dol_print_error($this->db);
      }
    }
  }
 
  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 " . $fieldposition . " FROM ".$this->db->prefix().$this->table_element_line;
    $sql .= " WHERE rowid = ".((int) $rowid);
 
    dol_syslog(get_class($this)."::getRangOfLine", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $row = $this->db->fetch_row($resql);
      return $row[0];
    }
 
    return 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->table_element_line;
    $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
    $sql .= " AND " . $fieldposition . " = ".((int) $rang);
    $resql = $this->db->query($sql);
    if ($resql) {
      $row = $this->db->fetch_row($resql);
      return $row[0];
    }
 
    return 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';
    }
 
    // Search the last rang with fk_parent_line
    if ($fk_parent_line) {
      $sql = "SELECT max(".$positionfield.") FROM ".$this->db->prefix().$this->table_element_line;
      $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
      $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 (!empty($row[0])) {
          return $row[0];
        } else {
          return $this->getRangOfLine($fk_parent_line);
        }
      }
    } else {
      // If not, search the last rang of element
      $sql = "SELECT max(".$positionfield.") FROM ".$this->db->prefix().$this->table_element_line;
      $sql .= " WHERE ".$this->fk_element." = ".((int) $this->id);
 
      dol_syslog(get_class($this)."::line_max", LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        $row = $this->db->fetch_row($resql);
        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 objet 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)."'";
    $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 = '')
  {
    // phpcs:enable
    global $user;
 
    if (!$this->table_element) {
      $this->error = 'update_note was called on objet with property table_element not defined';
      dol_syslog(get_class($this)."::update_note was called on objet 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 cas
    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".$newsuffix." = ".(!empty($note) ? ("'".$this->db->escape($note)."'") : "NULL");
    $sql .= ", ".$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;
      }
      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 = 'none', $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)
    $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') {
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_SUPPLIER_INVOICE";
    } elseif ($this->element == 'order_supplier' || $this->element == 'supplier_order') {
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_SUPPLIER_ORDER";
    } elseif ($this->element == 'supplier_proposal') {
      $MODULE = "MODULE_DISALLOW_UPDATE_PRICE_SUPPLIER_PROPOSAL";
    }
 
    if (!empty($MODULE)) {
      if (!empty($conf->global->$MODULE)) {
        $modsactivated = explode(',', $conf->global->$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->MAIN_ROUNDOFTOTAL_NOT_TOTALOFROUND)) {
      $forcedroundingmode = getDolGlobalString('MAIN_ROUNDOFTOTAL_NOT_TOTALOFROUND');
    } 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 int the table_element_line not into table_element)
    $fieldtva = 'total_tva';
    $fieldlocaltax1 = 'total_localtax1';
    $fieldlocaltax2 = 'total_localtax2';
    $fieldup = 'subprice';
    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') {
      $fieldup = 'value_unit';
    }
 
    $sql = "SELECT rowid, qty, ".$fieldup." as up, remise_percent, total_ht, ".$fieldtva." as total_tva, total_ttc, ".$fieldlocaltax1." as total_localtax1, ".$fieldlocaltax2." as total_localtax2,";
    $sql .= ' tva_tx as vatrate, localtax1_tx, localtax2_tx, localtax1_type, localtax2_type, info_bits, product_type';
    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->table_element_line;
    $sql .= " WHERE ".$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 ".$product_field." <> 9";
      }
    }
    $sql .= ' ORDER by rowid'; // We want to be sure 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 = 'none'
        $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, 'HT', $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($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." SET ".$fieldtva." = ".price2num((float) $tmpcal[1]).", total_ttc = ".price2num((float) $tmpcal[2])." WHERE rowid = ".((int) $obj->rowid);
            dol_syslog('We found unconsistent 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];
          } elseif ($diff_when_using_price_ht && $roundingadjust == '0') {
            // After calculation from HT, total is consistent but we have found a difference between VAT part in calculation and into database and
            // we ask to force the use of rounding on line (like done on calculation) so we force update of line
            $sqlfix = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$fieldtva." = ".price2num((float) $tmpcal[1]).", total_ttc = ".price2num((float) $tmpcal[2])." WHERE rowid = ".((int) $obj->rowid);
            dol_syslog('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];
          }
        }
 
        $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 adjustement onto line for vat. TODO This works on the company currency but not on foreign currency
          $tmpvat = price2num($total_ht_by_vats[$obj->vatrate] * $obj->vatrate / 100, 'MT', 1);
          $diff = price2num($total_tva_by_vats[$obj->vatrate] - $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) {
            if (abs($diff) > (10 * pow(10, -1 * getDolGlobalInt('MAIN_MAX_DECIMALS_TOT', 0)))) {
              // If error is more than 10 times the accurancy of rounding. This should not happen.
              $errmsg = 'A rounding difference was detected into TOTAL but is too high 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;
            }
            $sqlfix = "UPDATE ".$this->db->prefix().$this->table_element_line." SET ".$fieldtva." = ".price2num($obj->total_tva - $diff).", total_ttc = ".price2num($obj->total_ttc - $diff)." WHERE rowid = ".((int) $obj->rowid);
            dol_syslog('We found a difference of '.$diff.' for line rowid = '.$obj->rowid.". 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 - $diff, '', 1);
            $this->total_ttc = (float) price2num($this->total_ttc - $diff, '', 1);
            $total_tva_by_vats[$obj->vatrate] = (float) price2num($total_tva_by_vats[$obj->vatrate] - $diff, '', 1);
            $total_ttc_by_vats[$obj->vatrate] = (float) price2num($total_ttc_by_vats[$obj->vatrate] - $diff, '', 1);
          }
        }
 
        $i++;
      }
 
      // Add revenue stamp to total
      $this->total_ttc += isset($this->revenuestamp) ? $this->revenuestamp : 0;
      $this->multicurrency_total_ttc += isset($this->revenuestamp) ? ($this->revenuestamp * $multicurrency_tx) : 0;
 
      // Situations totals
      if (!empty($this->situation_cycle_ref) && $this->situation_counter > 1 && method_exists($this, 'get_prev_sits') && $this->type != $this::TYPE_CREDIT_NOTE) {
        $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 .= " ".$fieldht." = ".((float) price2num($this->total_ht, 'MT', 1)).",";
        $sql .= " ".$fieldtva." = ".((float) price2num($this->total_tva, 'MT', 1)).",";
        $sql .= " ".$fieldlocaltax1." = ".((float) price2num($this->total_localtax1, 'MT', 1)).",";
        $sql .= " ".$fieldlocaltax2." = ".((float) price2num($this->total_localtax2, 'MT', 1)).",";
        $sql .= " ".$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;
    $origin = (!empty($origin) ? $origin : $this->origin);
    $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';
    }
 
    // Elements of the core modules which have `$module` property but may to which we don't want to prefix module part to the element name for finding the linked object in llx_element_element.
    // It's because an entry for this element may be exist in llx_element_element before this modification (version <=14.2) and ave named only with their element name in fk_source or fk_target.
    $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.
    $targettype = ((!empty($this->module) && ! in_array($this->module, $coremodule)) ? $this->module.'_' : '').$this->element;
 
    $parameters = array('targettype'=>$targettype);
    // Hook for explicitly set the targettype if it must be differtent 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 (!$notrigger) {
        // Call trigger
        $this->context['link_origin'] = $origin;
        $this->context['link_origin_id'] = $origin_id;
        $result = $this->call_trigger('OBJECT_LINK_INSERT', $f_user);
        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 fetchObjectLinked($sourceid = null, $sourcetype = '', $targetid = null, $targettype = '', $clause = 'OR', $alsosametype = 1, $orderby = 'sourcetype', $loadalsoobjects = 1)
  {
    global $conf, $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 ($this->id > 0 && !empty($this->linkedObjectsFullLoaded[$this->id])) {
      return 1;
    }
 
    $this->linkedObjectsIds = array();
    $this->linkedObjects = array();
 
    $justsource = false;
    $justtarget = false;
    $withtargettype = false;
    $withsourcetype = false;
 
    $parameters = array('sourcetype'=>$sourcetype, 'sourceid'=>$sourceid, 'targettype'=>$targettype, 'targetid'=>$targetid);
    // Hook for explicitly set the targettype if it must be differtent 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['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->element);
    $targettype = (!empty($targettype) ? $targettype : $this->element);
 
    /*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 .= " ".$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 .= " ORDER BY ".$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', ...)
          // Parse element/subelement (ex: project_task, cabinetmed_consultation, ...)
          $module = $element = $subelement = $objecttype;
          $regs = array();
          if ($objecttype != 'supplier_proposal' && $objecttype != 'order_supplier' && $objecttype != 'invoice_supplier'
            && preg_match('/^([^_]+)_([^_]+)/i', $objecttype, $regs)) {
            $module = $element = $regs[1];
            $subelement = $regs[2];
          }
 
          $classpath = $element.'/class';
          // To work with non standard classpath or module name
          if ($objecttype == 'facture') {
            $classpath = 'compta/facture/class';
          } elseif ($objecttype == 'facturerec') {
            $classpath = 'compta/facture/class';
            $module = 'facture';
          } elseif ($objecttype == 'propal') {
            $classpath = 'comm/propal/class';
          } elseif ($objecttype == 'supplier_proposal') {
            $classpath = 'supplier_proposal/class';
          } elseif ($objecttype == 'shipping') {
            $classpath = 'expedition/class';
            $subelement = 'expedition';
            $module = 'expedition';
          } elseif ($objecttype == 'delivery') {
            $classpath = 'delivery/class';
            $subelement = 'delivery';
            $module = 'delivery_note';
          } elseif ($objecttype == 'invoice_supplier' || $objecttype == 'order_supplier') {
            $classpath = 'fourn/class';
            $module = 'fournisseur';
          } elseif ($objecttype == 'fichinter') {
            $classpath = 'fichinter/class';
            $subelement = 'fichinter';
            $module = 'ficheinter';
          } elseif ($objecttype == 'subscription') {
            $classpath = 'adherents/class';
            $module = 'adherent';
          } elseif ($objecttype == 'contact') {
             $module = 'societe';
          }
          // Set classfile
          $classfile = strtolower($subelement);
          $classname = ucfirst($subelement);
 
          if ($objecttype == 'order') {
            $classfile = 'commande';
            $classname = 'Commande';
          } elseif ($objecttype == 'invoice_supplier') {
            $classfile = 'fournisseur.facture';
            $classname = 'FactureFournisseur';
          } elseif ($objecttype == 'order_supplier') {
            $classfile = 'fournisseur.commande';
            $classname = 'CommandeFournisseur';
          } elseif ($objecttype == 'supplier_proposal') {
            $classfile = 'supplier_proposal';
            $classname = 'SupplierProposal';
          } elseif ($objecttype == 'facturerec') {
            $classfile = 'facture-rec';
            $classname = 'FactureRec';
          } elseif ($objecttype == 'subscription') {
            $classfile = 'subscription';
            $classname = 'Subscription';
          } elseif ($objecttype == 'project' || $objecttype == 'projet') {
            $classpath = 'projet/class';
            $classfile = 'project';
            $classname = 'Project';
          } elseif ($objecttype == 'conferenceorboothattendee') {
            $classpath = 'eventorganization/class';
            $classfile = 'conferenceorboothattendee';
            $classname = 'ConferenceOrBoothAttendee';
            $module = 'eventorganization';
          } elseif ($objecttype == 'conferenceorbooth') {
            $classpath = 'eventorganization/class';
            $classfile = 'conferenceorbooth';
            $classname = 'ConferenceOrBooth';
            $module = 'eventorganization';
          } elseif ($objecttype == 'mo') {
            $classpath = 'mrp/class';
            $classfile = 'mo';
            $classname = 'Mo';
            $module = 'mrp';
          }
 
          // 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');
              //print '/'.$classpath.'/'.$classfile.'.class.php '.class_exists($classname);
              if (class_exists($classname)) {
                foreach ($objectids as $i => $objectid) { // $i is rowid into llx_element_element
                  $object = new $classname($this->db);
                  $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;
 
    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);
        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 = '', $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;
    }
 
    $sourceid = (!empty($sourceid) ? $sourceid : $this->id);
    $sourcetype = (!empty($sourcetype) ? $sourcetype : $this->element);
    $targetid = (!empty($targetid) ? $targetid : $this->id);
    $targettype = (!empty($targettype) ? $targettype : $this->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);
      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($this->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($this->element) . "'";
        } else {
          $sql .= " (fk_source = " . ((int) $this->id) . " AND sourcetype = '" . $this->db->escape($this->element) . "')";
          $sql .= " OR";
          $sql .= " (fk_target = " . ((int) $this->id) . " AND targettype = '" . $this->db->escape($this->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;
    }
 
    global $db;
 
    $sql = "SELECT ".$field_select." FROM ".$db->prefix().$table_element." WHERE ".$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 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 ".$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 = 'fk_statut')
  {
    global $user, $langs, $conf;
 
    $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 ($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 == 'commande_fournisseur_dispatch') {
      $fieldstatus = "status";
    }
    if (isset($this->fields) && is_array($this->fields) && array_key_exists('status', $this->fields)) {
      $fieldstatus = 'status';
    }
 
    $sql = "UPDATE ".$this->db->prefix().$elementTable;
    $sql .= " SET ".$fieldstatus." = ".((int) $status);
    // If status = 1 = validated, update also fk_user_valid
    // TODO Replace the test on $elementTable by doing a test on existence of the field in $this->fields
    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 ".$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';
          }
        }
 
        if ($trigkey) {
          // 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 == 'tosell') {
            $this->status = $status;
          } elseif ($fieldstatus == 'tobuy') {
            $this->status_buy = $status;
          } else {
            $this->statut = $status;
            $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 = '')
  {
    global $conf;
 
    if (empty($id) && empty($ref)) {
      return 0;
    }
    if (!empty($conf->global->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->table_element_line;
    $sql .= " WHERE rowid = ".((int) $lineid);
    $resql = $this->db->query($sql);
    if ($resql) {
      $row = $this->db->fetch_row($resql);
      return $row[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('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 if child exists
    $haschild = 0;
    foreach ($arraytoscan as $table => $element) {
      //print $id.'-'.$table.'-'.$elementname.'<br>';
      // Check if element can be deleted
      $sql = "SELECT COUNT(*) as nb";
      $sql.= " FROM ".$this->db->prefix().$table." as c";
      if (!empty($element['parent']) && !empty($element['parentkey'])) {
        $sql.= ", ".$this->db->prefix().$element['parent']." as p";
      }
      if (!empty($element['fk_element'])) {
        $sql.= " WHERE c.".$element['fk_element']." = ".((int) $id);
      } else {
        $sql.= " WHERE c.".$this->fk_element." = ".((int) $id);
      }
      if (!empty($element['parent']) && !empty($element['parentkey'])) {
        $sql.= " AND c.".$element['parentkey']." = p.rowid";
      }
      if (!empty($element['parent']) && !empty($element['parenttypefield']) && !empty($element['parenttypevalue'])) {
        $sql.= " AND c.".$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);
        }
      }
 
      $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 += $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) ) {
      $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->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 = floatval(price2num(($pu_ht * $qty) - $total_ht, 'MT'));
          $total_discount += $total_discount_line;
 
          $i++;
        }
      }
 
      //print $total_discount; exit;
      return price2num($total_discount);
    }
 
    return null;
  }
 
 
  public function getTotalWeightVolume()
  {
    $totalWeight = 0;
    $totalVolume = 0;
    // defined for shipment only
    $totalOrdered = '';
    // defined for shipment only
    $totalToShip = '';
 
    foreach ($this->lines as $line) {
      if (isset($line->qty_asked)) {
        if (empty($totalOrdered)) {
          $totalOrdered = 0; // Avoid warning because $totalOrdered is ''
        }
        $totalOrdered += $line->qty_asked; // defined for shipment only
      }
      if (isset($line->qty_shipped)) {
        if (empty($totalToShip)) {
          $totalToShip = 0; // Avoid warning because $totalToShip is ''
        }
        $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);
 
    $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;
    global $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
    $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);
 
    $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() --><tbody>\n";
    foreach ($this->lines as $line) {
      //Line extrafield
      $line->fetch_optionals();
 
      //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.
        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);
          $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);
          $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 "</tbody><!-- 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;
    global $form;
    global $object_rights, $disableedit, $disablemove, $disableremove; // TODO We should not use global var for this !
 
    $object_rights = $this->getRights();
 
    $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 = $line->ref; //can change ref in hook
        $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')) {
          if (property_exists($this, 'socid') && !is_object($this->thirdparty)) {
            dol_print_error('', '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 (!empty($conf->global->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;
        }
 
        $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.
      }
 
      $line->pu_ttc = price2num((!empty($line->subprice) ? $line->subprice : 0) * (1 + ((!empty($line->tva_tx) ? $line->tva_tx : 0) / 100)), 'MU');
 
      // 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) {
        $res = 0;
        if (!empty($module)) {
          $tpl = dol_buildpath($reldir.'/objectline_view.tpl.php');
        } else {
          $tpl = DOL_DOCUMENT_ROOT.$reldir.'/objectline_view.tpl.php';
        }
        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->statut == 0 && $action == 'editline' && $selected == $line->id) {
      $label = (!empty($line->label) ? $line->label : (($line->fk_product > 0) ? $line->product_label : ''));
 
      $line->pu_ttc = price2num($line->subprice * (1 + ($line->tva_tx / 100)), 'MU');
 
      // 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, $conf, $form, $action;
 
    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">'.$form->showCheckAddButtons('checkforselect', 1).'</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)) {
      $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)) {
      $date_end = $line->date_end;
    } else {
      $date_end = $line->date_fin_prevue;
      if ($line->date_fin_reel) {
        $date_end = $line->date_fin_reel;
      }
    }
 
    $this->tpl['id'] = $line->id;
 
    $this->tpl['label'] = '';
    if (!empty($line->fk_parent_line)) {
      $this->tpl['label'] .= img_picto('', 'rightarrow');
    }
 
    if (($line->info_bits & 2) == 2) {  // TODO Not sure this is used for source object
      $discount = new DiscountAbsolute($this->db);
      $discount->fk_soc = $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 = $line->ref;
      $productstatic->type = $line->fk_product_type;
      if (empty($productstatic->ref)) {
        $line->fetch_product();
        $productstatic = $line->product;
      }
 
      $this->tpl['label'] .= $productstatic->getNomUrl(1);
      $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') : img_object($langs->trans(''), 'product')));
      if (!empty($line->desc)) {
        $this->tpl['label'] .= $line->desc;
      } else {
        $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)) {
      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'] .= (($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'] = (($line->info_bits & 2) != 2) ? $line->qty : '&nbsp;';
    if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
      $this->tpl['unit'] = $langs->transnoentities($line->getLabelOfUnit('long'));
    }
    $this->tpl['remise_percent'] = (($line->info_bits & 2) != 2) ? vatrate($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;
    }
 
    // 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)
  {
    // phpcs:enable
    $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($this->id)."'";
    $sql .= ", '".$this->db->escape($this->element)."'";
    $sql .= ", '".$this->db->escape($busy)."'";
    $sql .= ", '".$this->db->escape($mandatory)."'";
    $sql .= ")";
 
    dol_syslog(get_class($this)."::add_element_resource", LOG_DEBUG);
    if ($this->db->query($sql)) {
      $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($element).'_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++) {
        $this->lines[$i] = clone $this->lines[$i];
      }
    }
  }
 
  protected function commonGenerateDocument($modelspath, $modele, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams = null)
  {
    global $conf, $langs, $user, $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);
    if (!empty($tmp[1])) {
      $modele = $tmp[0];
      $srctemplatepath = $tmp[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";
        }
 
        // On verifie l'emplacement du modele
        $file = dol_buildpath($reldir.$modelspath.$file, 0);
        if (file_exists($file)) {
          $filefound = $file;
          $classname = $prefix.'_'.$modele;
          break;
        }
      }
      if ($filefound) {
        break;
      }
    }
 
    if (!$filefound) {
      $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;
    }
 
    // If generator was found
    global $db; // Required to solve a conception default making an include of code using $db instead of $this->db just after.
 
    require_once $file;
 
    $obj = new $classname($this->db);
 
    // 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 && !empty($conf->global->$varfortemplatedir)) {
        $dirtoscan = $conf->global->$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;
 
    if (in_array(get_class($this), array('Adherent'))) {
      $resultwritefile = $obj->write_file($this, $outputlangs, $srctemplatepath, 'member', 1, 'tmp_cards', $moreparams);
    } else {
      $resultwritefile = $obj->write_file($this, $outputlangs, $srctemplatepath, $hidedetails, $hidedesc, $hideref, $moreparams);
    }
    // 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);
 
      return 1;
    } else {
      $outputlangs->charset_output = $sav_charset_output;
      $this->error = $obj->error;
      $this->errors = $obj->errors;
      dol_syslog("Error generating document for ".__CLASS__.". Error: ".$obj->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 ($this->element == 'propal' || $this->element == 'proposal') {
        if (!isset($conf->global->PROPOSAL_ALLOW_ONLINESIGN) || !empty($conf->global->PROPOSAL_ALLOW_ONLINESIGN)) {
          $setsharekey = true;  // feature to make online signature is not set or set to on (default)
        }
        if (!empty($conf->global->PROPOSAL_ALLOW_EXTERNAL_DOWNLOAD)) {
          $setsharekey = true;
        }
      }
      if ($this->element == 'commande' && !empty($conf->global->ORDER_ALLOW_EXTERNAL_DOWNLOAD)) {
        $setsharekey = true;
      }
      if ($this->element == 'facture' && !empty($conf->global->INVOICE_ALLOW_EXTERNAL_DOWNLOAD)) {
        $setsharekey = true;
      }
      if ($this->element == 'bank_account' && !empty($conf->global->BANK_ACCOUNT_ALLOW_EXTERNAL_DOWNLOAD)) {
        $setsharekey = true;
      }
      if ($this->element == 'product' && !empty($conf->global->PRODUCT_ALLOW_EXTERNAL_DOWNLOAD)) {
        $setsharekey = true;
      }
      if ($this->element == 'contrat' && !empty($conf->global->CONTRACT_ALLOW_EXTERNAL_DOWNLOAD)) {
        $setsharekey = true;
      }
      if ($this->element == 'fichinter' && !empty($conf->global->FICHINTER_ALLOW_EXTERNAL_DOWNLOAD)) {
        $setsharekey = true;
      }
      if ($this->element == 'supplier_proposal' && !empty($conf->global->SUPPLIER_PROPOSAL_ALLOW_EXTERNAL_DOWNLOAD)) {
        $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
        $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)
  {
    $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'];
      $quality = 50;  // For thumbs, we force quality to 50
 
      // 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')
  {
    global $conf, $_POST;
 
    // 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 (isset($conf->global->$keyforfieldname)) {
      return $conf->global->$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 '';
  }
 
 
  /* For triggers */
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function call_trigger($triggerName, $user)
  {
    // phpcs:enable
    global $langs, $conf;
    if (!empty(self::TRIGGER_PREFIX) && strpos($triggerName, self::TRIGGER_PREFIX . '_') !== 0) {
      dol_print_error('', 'The trigger "' . $triggerName . '" does not start with "' . self::TRIGGER_PREFIX . '_" as required.');
      exit;
    }
    if (!is_object($langs)) { // If lang was not defined, we set it. It is required by run_triggers.
      include_once DOL_DOCUMENT_ROOT.'/core/class/translate.class.php';
      $langs = new Translate('', $conf);
    }
 
    include_once DOL_DOCUMENT_ROOT.'/core/class/interfaces.class.php';
    $interface = new Interfaces($this->db);
    $result = $interface->run_triggers($triggerName, $this, $user, $langs, $conf);
 
    if ($result < 0) {
      if (!empty($this->errors)) {
        $this->errors = array_unique(array_merge($this->errors, $interface->errors)); // We use array_unique because when a trigger call another trigger on same object, this->errors is added twice.
      } else {
        $this->errors = $interface->errors;
      }
    }
    return $result;
  }
 
 
  /* 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);
 
    //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) {
        $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 = '')
  {
    global $_POST, $langs;
 
    // 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 = dol_eval($this->fields[$key]['enabled'], 1, 1, '1');
      }
      /*$perms = 1;
      if (isset($this->fields[$key]['perms']))
      {
        $perms = dol_eval($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, GETPOST($postfieldkey."month", 'int'), GETPOST($postfieldkey."day", 'int'), GETPOST($postfieldkey."year", 'int'));
      } 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(GETPOST($postfieldkey."hour", 'int'), GETPOST($postfieldkey."min", 'int'), 0, GETPOST($postfieldkey."month", 'int'), GETPOST($postfieldkey."day", 'int'), GETPOST($postfieldkey."year", 'int'));
      } 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);
 
    $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)) {
      $rowid = $this->rowid; // deprecated
    }
 
    // 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]) || $extrafields->attributes[$this->table_element]['type'][$name] != 'separate') {
          $sql .= ", ".$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 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)) {
                global $objectoffield;        // We set a global variable to $objectoffield so
                $objectoffield = $this;        // we can use it inside computed formula
                $this->array_options['options_' . $key] = dol_eval($extrafields->attributes[$this->table_element]['computed'][$key], 1, 0, '');
              }
            }
          }
        }
 
        $this->db->free($resql);
 
        if ($numrows) {
          return $numrows;
        } else {
          return 0;
        }
      } else {
        $this->errors[]=$this->db->lasterror;
        return -1;
      }
    }
    return 0;
  }
 
  public function deleteExtraFields()
  {
    global $conf;
 
    if (!empty($conf->global->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 $conf, $langs, $user;
 
    if (!empty($conf->global->MAIN_EXTRAFIELDS_DISABLED)) {
      return 0;
    }
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!empty($this->array_options)) {
      // Check parameters
      $langs->load('admin');
      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    = $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];
 
        // If we clone, we have to clean unique extrafields to prevent duplicates.
        // 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)) {
          $new_array_options[$key] = null;
        }
 
        // Similar code than into insertExtraFields
        if ($attributeRequired) {
          $mandatorypb = false;
          if ($attributeType == 'link' && $this->array_options[$key] == '-1') {
            $mandatorypb = true;
          }
          if ($this->array_options[$key] === '') {
            $mandatorypb = true;
          }
          if ($attributeType == 'sellist' && $this->array_options[$key] == '0') {
            $mandatorypb = true;
          }
          if ($mandatorypb) {
            $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;
          }
        }
 
        //dol_syslog("attributeLabel=".$attributeLabel, LOG_DEBUG);
        //dol_syslog("attributeType=".$attributeType, LOG_DEBUG);
 
        if (!empty($attrfieldcomputed)) {
          if (!empty($conf->global->MAIN_STORE_COMPUTED_EXTRAFIELDS)) {
            $value = dol_eval($attrfieldcomputed, 1, 0, '');
            dol_syslog($langs->trans("Extrafieldcomputed")." sur ".$attributeLabel."(".$value.")", LOG_DEBUG);
            $new_array_options[$key] = $value;
          } else {
            $new_array_options[$key] = null;
          }
        }
 
        switch ($attributeType) {
          case 'int':
            if (!is_numeric($value) && $value != '') {
              $this->errors[] = $langs->trans("ExtraFieldHasWrongValue", $attributeLabel);
              return -1;
            } elseif ($value == '') {
              $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"." sur ".$attributeLabel."(".$value." is '".$attributeType."')", LOG_DEBUG);
            $new_array_options[$key] = $value;
            break;
          /*case 'select':  // Not required, we chosed 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 crypt 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($this->oldcopy->array_options[$key]); var_dump($this->array_options[$key]);
                  if (isset($this->oldcopy->array_options[$key]) && $this->array_options[$key] == $this->oldcopy->array_options[$key]) {  // If old value crypted in database is same than submited new value, it means we don't change it, so we don't update.
                    $new_array_options[$key] = $this->array_options[$key]; // Value is kept
                  } else {
                    // var_dump($algo);
                    $newvalue = dol_hash($this->array_options[$key], $algo);
                    $new_array_options[$key] = $newvalue;
                  }
                } else {
                  $new_array_options[$key] = $this->array_options[$key]; // Value is kept
                }
              }
            } else // Common usage
            {
              $new_array_options[$key] = $this->array_options[$key];
            }
            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);
                if (is_numeric($value)) {
                  $res = $object->fetch($value); // Common case
                } else {
                  $res = $object->fetch('', $value); // For compatibility
                }
 
                if ($res > 0) {
                  $new_array_options[$key] = $object->id;
                } 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;
        }
      }
 
      $this->db->begin();
 
      $table_element = $this->table_element;
      if ($table_element == 'categorie') {
        $table_element = 'categories'; // For compatibility
      }
 
      dol_syslog(get_class($this)."::insertExtraFields delete then insert", LOG_DEBUG);
 
      $sql_del = "DELETE FROM ".$this->db->prefix().$table_element."_extrafields WHERE fk_object = ".((int) $this->id);
      $this->db->query($sql_del);
 
      $sql = "INSERT INTO ".$this->db->prefix().$table_element."_extrafields (fk_object";
      foreach ($new_array_options as $key => $value) {
        $attributeKey = substr($key, 8); // Remove 'options_' prefix
        // Add field of attribut
        if ($extrafields->attributes[$this->table_element]['type'][$attributeKey] != 'separate') { // Only for other type than separator
          $sql .= ",".$attributeKey;
        }
      }
      // We must insert a default value for fields for other entities that are mandatory to avoid not null error
      if (!empty($extrafields->attributes[$this->table_element]['mandatoryfieldsofotherentities']) && is_array($extrafields->attributes[$this->table_element]['mandatoryfieldsofotherentities'])) {
        foreach ($extrafields->attributes[$this->table_element]['mandatoryfieldsofotherentities'] as $tmpkey => $tmpval) {
          if (!isset($extrafields->attributes[$this->table_element]['type'][$tmpkey])) {    // If field not already added previously
            $sql .= ",".$tmpkey;
          }
        }
      }
      $sql .= ") VALUES (".$this->id;
 
      foreach ($new_array_options as $key => $value) {
        $attributeKey = substr($key, 8); // Remove 'options_' prefix
        // Add field of attribute
        if ($extrafields->attributes[$this->table_element]['type'][$attributeKey] != 'separate') { // Only for other type than separator)
          if ($new_array_options[$key] != '' || $new_array_options[$key] == '0') {
            $sql .= ",'".$this->db->escape($new_array_options[$key])."'";
          } else {
            $sql .= ",null";
          }
        }
      }
      // We must insert a default value for fields for other entities that are mandatory to avoid not null error
      if (!empty($extrafields->attributes[$this->table_element]['mandatoryfieldsofotherentities']) && is_array($extrafields->attributes[$this->table_element]['mandatoryfieldsofotherentities'])) {
        foreach ($extrafields->attributes[$this->table_element]['mandatoryfieldsofotherentities'] as $tmpkey => $tmpval) {
          if (!isset($extrafields->attributes[$this->table_element]['type'][$tmpkey])) {   // If field not already added previously
            if (in_array($tmpval, array('int', 'double', 'price'))) {
              $sql .= ", 0";
            } else {
              $sql .= ", ''";
            }
          }
        }
      }
 
      $sql .= ")";
 
      $resql = $this->db->query($sql);
      if (!$resql) {
        $this->error = $this->db->lasterror();
        $error++;
      }
 
      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;
      }
    } else {
      return 0;
    }
  }
 
  public function insertExtraLanguages($trigger = '', $userused = null)
  {
    global $conf, $langs, $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!empty($conf->global->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_numeric($value) && $value != '') {
              $this->errors[] = $langs->trans("ExtraLanguageHasWrongValue", $attributeLabel);
              return -1;
            } elseif ($value == '') {
              $new_array_languages[$key] = null;
            }
            break;
          case 'double':
            $value = price2num($value);
            if (!is_numeric($value) && $value != '') {
              dol_syslog($langs->trans("ExtraLanguageHasWrongValue")." sur ".$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 chosed 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') {
        $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 (".$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 $conf, $langs, $user;
 
    if (!empty($conf->global->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');
      require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
      $extrafields = new ExtraFields($this->db);
      $extrafields->fetch_name_optionals_label($this->table_element);
 
      $value = $this->array_options["options_".$key];
 
      $attributeType     = $extrafields->attributes[$this->table_element]['type'][$key];
      $attributeLabel    = $extrafields->attributes[$this->table_element]['label'][$key];
      $attributeParam    = $extrafields->attributes[$this->table_element]['param'][$key];
      $attributeRequired = $extrafields->attributes[$this->table_element]['required'][$key];
      $attrfieldcomputed = $extrafields->attributes[$this->table_element]['computed'][$key];
 
      // Similar code than into insertExtraFields
      if ($attributeRequired) {
        $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;
        }
      }
 
      //dol_syslog("attributeLabel=".$attributeLabel, LOG_DEBUG);
      //dol_syslog("attributeType=".$attributeType, LOG_DEBUG);
 
      if (!empty($attrfieldcomputed)) {
        if (!empty($conf->global->MAIN_STORE_COMPUTED_EXTRAFIELDS)) {
          $value = dol_eval($attrfieldcomputed, 1, 0, '');
          dol_syslog($langs->trans("Extrafieldcomputed")." sur ".$attributeLabel."(".$value.")", LOG_DEBUG);
          $this->array_options["options_".$key] = $value;
        } else {
          $this->array_options["options_".$key] = null;
        }
      }
 
      switch ($attributeType) {
        case 'int':
          if (!is_numeric($value) && $value != '') {
            $this->errors[] = $langs->trans("ExtraFieldHasWrongValue", $attributeLabel);
            return -1;
          } elseif ($value === '') {
            $this->array_options["options_".$key] = null;
          }
          break;
        case 'double':
          $value = price2num($value);
          if (!is_numeric($value) && $value != '') {
            dol_syslog($langs->trans("ExtraFieldHasWrongValue")." sur ".$attributeLabel."(".$value."is not '".$attributeType."')", LOG_DEBUG);
            $this->errors[] = $langs->trans("ExtraFieldHasWrongValue", $attributeLabel);
            return -1;
          } elseif ($value === '') {
            $value = null;
          }
          //dol_syslog("double value"." sur ".$attributeLabel."(".$value." is '".$attributeType."')", LOG_DEBUG);
          $this->array_options["options_".$key] = $value;
          break;
        /*case 'select':  // Not required, we chosed value='0' for undefined values
           if ($value=='-1')
           {
             $this->array_options[$key] = null;
           }
           break;*/
        case 'price':
          $this->array_options["options_".$key] = price2num($this->array_options["options_".$key]);
          break;
        case 'date':
        case 'datetime':
          if (empty($this->array_options["options_".$key])) {
            $this->array_options["options_".$key] = null;
          } else {
            $this->array_options["options_".$key] = $this->db->idate($this->array_options["options_".$key]);
          }
          break;
        case 'datetimegmt':
          if (empty($this->array_options["options_".$key])) {
            $this->array_options["options_".$key] = null;
          } else {
            $this->array_options["options_".$key] = $this->db->idate($this->array_options["options_".$key], 'gmt');
          }
          break;
        case 'boolean':
          if (empty($this->array_options["options_".$key])) {
            $this->array_options["options_".$key] = null;
          }
          break;
        case 'link':
          if ($this->array_options["options_".$key] === '') {
            $this->array_options["options_".$key] = null;
          }
          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('', $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':
          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;
      }
 
      $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)
      $sql = "SELECT COUNT(rowid) as nb FROM ".$this->db->prefix().$this->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 ($linealreadyfound) {
        if ($this->array_options["options_".$key] === null) {
          $sql = "UPDATE ".$this->db->prefix().$this->table_element."_extrafields SET ".$key." = null";
        } else {
          $sql = "UPDATE ".$this->db->prefix().$this->table_element."_extrafields SET ".$key." = '".$this->db->escape($this->array_options["options_".$key])."'";
        }
        $sql .= " WHERE fk_object = ".((int) $this->id);
      } else {
        $result = $this->insertExtraFields('', $user);
        if ($result < 0) {
          $error++;
        }
      }
 
      $resql = $this->db->query($sql);
      if (!$resql) {
        $error++;
        $this->error = $this->db->lasterror();
      }
      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 updateExtraLanguages($key, $trigger = null, $userused = null)
  {
    global $conf, $langs, $user;
 
    if (empty($userused)) {
      $userused = $user;
    }
 
    $error = 0;
 
    if (!empty($conf->global->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;
 
    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
    }
 
    $out = '';
    $type = '';
    $isDependList = 0;
    $param = array();
    $param['options'] = array();
    $reg = array();
    $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';
    } else {
      $param['options'] = array();
      $type = $this->fields[$key]['type'];
    }
 
    // 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'];
      $type = 'select';
    }
 
    $label = $this->fields[$key]['label'];
    //$elementtype=$this->fields[$key]['elementtype'];  // Seems not used
    $default = (!empty($this->fields[$key]['default']) ? $this->fields[$key]['default'] : '');
    $computed = (!empty($this->fields[$key]['computed']) ? $this->fields[$key]['computed'] : '');
    $unique = (!empty($this->fields[$key]['unique']) ? $this->fields[$key]['unique'] : 0);
    $required = (!empty($this->fields[$key]['required']) ? $this->fields[$key]['required'] : 0);
    $autofocusoncreate = (!empty($this->fields[$key]['autofocusoncreate']) ? $this->fields[$key]['autofocusoncreate'] : 0);
 
    $langfile = (!empty($this->fields[$key]['langfile']) ? $this->fields[$key]['langfile'] : '');
    $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}/', $type)) {
        $morecss = 'maxwidth75';
      } elseif ($type == 'url') {
        $morecss = 'minwidth400';
      } elseif ($type == 'boolean') {
        $morecss = '';
      } else {
        if (round($size) < 12) {
          $morecss = 'minwidth100';
        } elseif (round($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/', $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 : '').($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/', $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, false, ROWS_5, '90%');
        $out = $doleditor->Create(1);
      } 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/', $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') && $conf->global->FCKEDITOR_ENABLE_SOCIETE, ROWS_5, '90%');
        $out = $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 : '').'> '.$langs->getCurrencySymbol($conf->currency);
    } elseif (preg_match('/^double(\([0-9],[0-9]\)){0,1}/', $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') {
      $out = '';
      if (!empty($conf->use_javascript_ajax) && empty($conf->global->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 ((!isset($this->fields[$key]['default'])) || ($this->fields[$key]['notnull'] != 1)) {
        $out .= '<option value="0">&nbsp;</option>';
      }
      foreach ($param['options'] as $keyb => $valb) {
        if ((string) $keyb == '') {
          continue;
        }
        if (strpos($valb, "|") !== false) {
          list($valb, $parent) = explode('|', $valb);
        }
        $out .= '<option value="'.$keyb.'"';
        $out .= (((string) $value == (string) $keyb) ? ' selected' : '');
        $out .= (!empty($parent) ? ' parent="'.$parent.'"' : '');
        $out .= '>'.$valb.'</option>';
      }
      $out .= '</select>';
    } elseif ($type == 'sellist') {
      $out = '';
      if (!empty($conf->use_javascript_ajax) && empty($conf->global->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'])) {
        $param_list = array_keys($param['options']);
        $InfoFieldList = explode(":", $param_list[0]);
        $parentName = '';
        $parentField = '';
        // 0 : tableName
        // 1 : label field name
        // 2 : key fields name (if differ of rowid)
        // 3 : key field parent (for dependent lists)
        // 4 : where clause filter on column or table extrafield, syntax field='value' or extra.field=value
        // 5 : id category type
        // 6 : ids categories list separated by comma for category root
        $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]);
          $keyList .= ', '.$parentField;
        }
 
        $filter_categorie = false;
        if (count($InfoFieldList) > 5) {
          if ($InfoFieldList[0] == 'categorie') {
            $filter_categorie = true;
          }
        }
 
        if ($filter_categorie === false) {
          $fields_label = explode('|', $InfoFieldList[1]);
          if (is_array($fields_label)) {
            $keyList .= ', ';
            $keyList .= implode(', ', $fields_label);
          }
 
          $sqlwhere = '';
          $sql = "SELECT " . $keyList;
          $sql .= " FROM " . $this->db->prefix() . $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$', $objectid, $InfoFieldList[4]);
            } else {
              $InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
            }
 
            //We have to join on extrafield table
            if (strpos($InfoFieldList[4], 'extra') !== false) {
              $sql .= " as main, " . $this->db->prefix() . $InfoFieldList[0] . "_extrafields as extra";
              $sqlwhere .= " WHERE extra.fk_object=main." . $InfoFieldList[2] . " AND " . $InfoFieldList[4];
            } else {
              $sqlwhere .= " WHERE " . $InfoFieldList[4];
            }
          } else {
            $sqlwhere .= ' WHERE 1=1';
          }
          // 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;
          //print $sql;
 
          $sql .= ' ORDER BY ' . implode(', ', $fields_label);
 
          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';
          $data = $form->select_all_categories(Categorie::$MAP_ID_TO_CODE[$InfoFieldList[5]], '', '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, $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'])) {
        $param_list = array_keys($param['options']);
        $InfoFieldList = explode(":", $param_list[0]);
        $parentName = '';
        $parentField = '';
        // 0 : tableName
        // 1 : label field name
        // 2 : key fields name (if differ of rowid)
        // 3 : key field parent (for dependent lists)
        // 4 : where clause filter on column or table extrafield, syntax field='value' or extra.field=value
        // 5 : id category type
        // 6 : ids categories list separated by comma for category root
        $keyList = (empty($InfoFieldList[2]) ? 'rowid' : $InfoFieldList[2].' as rowid');
 
        if (count($InfoFieldList) > 3 && !empty($InfoFieldList[3])) {
          list ($parentName, $parentField) = explode('|', $InfoFieldList[3]);
          $keyList .= ', '.$parentField;
        }
        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';
          }
        }
 
        $filter_categorie = false;
        if (count($InfoFieldList) > 5) {
          if ($InfoFieldList[0] == 'categorie') {
            $filter_categorie = true;
          }
        }
 
        if ($filter_categorie === false) {
          $fields_label = explode('|', $InfoFieldList[1]);
          if (is_array($fields_label)) {
            $keyList .= ', ';
            $keyList .= implode(', ', $fields_label);
          }
 
          $sqlwhere = '';
          $sql = "SELECT " . $keyList;
          $sql .= ' FROM ' . $this->db->prefix() . $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$', $objectid, $InfoFieldList[4]);
            } else {
              $InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
            }
 
            // We have to join on extrafield table
            if (strpos($InfoFieldList[4], 'extra') !== false) {
              $sql .= ' as main, ' . $this->db->prefix() . $InfoFieldList[0] . '_extrafields as extra';
              $sqlwhere .= " WHERE extra.fk_object=main." . $InfoFieldList[2] . " AND " . $InfoFieldList[4];
            } else {
              $sqlwhere .= " WHERE " . $InfoFieldList[4];
            }
          } else {
            $sqlwhere .= ' WHERE 1=1';
          }
          // 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;
              }
 
              $i++;
            }
            $this->db->free($resql);
 
            $out = $form->multiselectarray($keyprefix . $key . $keysuffix, $data, $value_arr, '', 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';
          $data = $form->select_all_categories(Categorie::$MAP_ID_TO_CODE[$InfoFieldList[5]], '', 'parent', 64, $InfoFieldList[6], 1, 1);
          $out = $form->multiselectarray($keyprefix . $key . $keysuffix, $data, $value_arr, '', 0, $morecss, 0, '100%');
        }
      }
    } elseif ($type == 'link') {
      $param_list = array_keys($param['options']); // $param_list='ObjectName:classPath[:AddCreateButtonOrNot[:Filter[:Sortfield]]]'
      $param_list_array = explode(&