pdf.lib.php

Go to the documentation of this file.

<?php
 
/* Copyright (C) 2006-2017  Laurent Destailleur   <eldy@users.sourceforge.net>
 * Copyright (C) 2006   Rodolphe Quiedeville  <rodolphe@quiedeville.org>
 * Copyright (C) 2007   Patrick Raguin        <patrick.raguin@gmail.com>
 * Copyright (C) 2010-2012  Regis Houssin         <regis.houssin@inodbox.com>
 * Copyright (C) 2010-2017  Juanjo Menent         <jmenent@2byte.es>
 * Copyright (C) 2012   Christophe Battarel   <christophe.battarel@altairis.fr>
 * Copyright (C) 2012       Cédric Salvador         <csalvador@gpcsolutions.fr>
 * Copyright (C) 2012-2015  Raphaël Doursenaud      <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2014   Cedric GROSS      <c.gross@kreiz-it.fr>
 * Copyright (C) 2014   Teddy Andreotti     <125155@supinfo.com>
 * Copyright (C) 2015-2016  Marcos García           <marcosgdf@gmail.com>
 * Copyright (C) 2019       Lenin Rivas             <lenin.rivas@servcom-it.com>
 * Copyright (C) 2020       Nicolas ZABOURI         <info@inovea-conseil.com>
 * Copyright (C) 2021-2022  Anthony Berton        <anthony.berton@bb2a.fr>
 * Copyright (C) 2023-2025  Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2024-2025  MDW           <mdeweerd@users.noreply.github.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/>.
 * or see https://www.gnu.org/
 */
 
include_once DOL_DOCUMENT_ROOT.'/core/lib/signature.lib.php';
 
 
function pdf_admin_prepare_head()
{
  global $langs, $conf;
 
  $h = 0;
  $head = array();
 
  $head[$h][0] = DOL_URL_ROOT.'/admin/pdf.php';
  $head[$h][1] = $langs->trans("GlobalParameters");
  $head[$h][2] = 'general';
  $h++;
 
  // Show more tabs from modules
  // Entries must be declared in modules descriptor with line
  // $this->tabs = array('entity:+tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to add new tab
  // $this->tabs = array('entity:-tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to remove a tab
  complete_head_from_modules($conf, $langs, null, $head, $h, 'pdf_admin');
 
  if (isModEnabled("propal") || isModEnabled('invoice') || isModEnabled('reception')) {
    $head[$h][0] = DOL_URL_ROOT.'/admin/pdf_other.php';
    $head[$h][1] = $langs->trans("SpecificParameters");
    $head[$h][2] = 'other';
    $h++;
  }
 
  complete_head_from_modules($conf, $langs, null, $head, $h, 'pdf_admin', 'remove');
 
  return $head;
}
 
 
function pdf_getFormat($outputlangs = null, $mode = 'setup')
{
  global $conf, $db, $langs;
 
  dol_syslog("pdf_getFormat Get paper format with mode=".$mode." MAIN_PDF_FORMAT=".getDolGlobalString('MAIN_PDF_FORMAT')." outputlangs->defaultlang=".(is_object($outputlangs) ? $outputlangs->defaultlang : 'null')." and langs->defaultlang=".(is_object($langs) ? $langs->defaultlang : 'null'));
 
  // Default value if setup was not done and/or entry into c_paper_format not defined
  $width = 210;
  $height = 297;
  $unit = 'mm';
 
  if ($mode == 'auto' || !getDolGlobalString('MAIN_PDF_FORMAT') || getDolGlobalString('MAIN_PDF_FORMAT') == 'auto') {
    include_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
    $pdfformat = dol_getDefaultFormat($outputlangs);
  } else {
    $pdfformat = getDolGlobalString('MAIN_PDF_FORMAT');
  }
 
  $sql = "SELECT code, label, width, height, unit FROM ".MAIN_DB_PREFIX."c_paper_format";
  $sql .= " WHERE code = '".$db->escape($pdfformat)."'";
  $resql = $db->query($sql);
  if ($resql) {
    $obj = $db->fetch_object($resql);
    if ($obj) {
      $width = (int) $obj->width;
      $height = (int) $obj->height;
      $unit = $obj->unit;
    }
  }
 
  //print "pdfformat=".$pdfformat." width=".$width." height=".$height." unit=".$unit;
  return array('width' => $width, 'height' => $height, 'unit' => $unit);
}
 
function pdf_getInstance($format = '', $metric = 'mm', $pagetype = 'P')
{
  global $conf;
 
  // Define constant for TCPDF
  if (!defined('K_TCPDF_EXTERNAL_CONFIG')) {
    define('K_TCPDF_EXTERNAL_CONFIG', 1); // this avoid using tcpdf_config file
    define('K_PATH_CACHE', DOL_DATA_ROOT.'/admin/temp/');
    define('K_PATH_URL_CACHE', DOL_DATA_ROOT.'/admin/temp/');
    dol_mkdir(K_PATH_CACHE);
    define('K_BLANK_IMAGE', '_blank.png');
    define('PDF_PAGE_FORMAT', 'A4');
    define('PDF_PAGE_ORIENTATION', 'P');
    define('PDF_CREATOR', 'TCPDF');
    define('PDF_AUTHOR', 'TCPDF');
    define('PDF_HEADER_TITLE', 'TCPDF Example');
    define('PDF_HEADER_STRING', "by Dolibarr ERP CRM");
    define('PDF_UNIT', 'mm');
    define('PDF_MARGIN_HEADER', 5);
    define('PDF_MARGIN_FOOTER', 10);
    define('PDF_MARGIN_TOP', 27);
    define('PDF_MARGIN_BOTTOM', 25);
    define('PDF_MARGIN_LEFT', 15);
    define('PDF_MARGIN_RIGHT', 15);
    define('PDF_FONT_NAME_MAIN', 'helvetica');
    define('PDF_FONT_SIZE_MAIN', 10);
    define('PDF_FONT_NAME_DATA', 'helvetica');
    define('PDF_FONT_SIZE_DATA', 8);
    define('PDF_FONT_MONOSPACED', 'courier');
    define('PDF_IMAGE_SCALE_RATIO', 1.25);
    define('HEAD_MAGNIFICATION', 1.1);
    define('K_CELL_HEIGHT_RATIO', 1.25);
    define('K_TITLE_MAGNIFICATION', 1.3);
    define('K_SMALL_RATIO', 2 / 3);
    define('K_THAI_TOPCHARS', true);
    define('K_TCPDF_CALLS_IN_HTML', true);
    if (getDolGlobalString('TCPDF_THROW_ERRORS_INSTEAD_OF_DIE')) {
      define('K_TCPDF_THROW_EXCEPTION_ERROR', true);
    } else {
      define('K_TCPDF_THROW_EXCEPTION_ERROR', false);
    }
  }
 
  // Load TCPDF
  require_once TCPDF_PATH.'tcpdf.php';
 
  // We need to instantiate tcpdi object (instead of tcpdf) to use merging features. But we can disable it (this will break all merge features).
  if (!getDolGlobalString('MAIN_DISABLE_TCPDI')) {
    require_once TCPDI_PATH.'tcpdi.php';
  }
 
  //$arrayformat=pdf_getFormat();
  //$format=array($arrayformat['width'],$arrayformat['height']);
  //$metric=$arrayformat['unit'];
 
  //$pdfa = false; // PDF default version
  $pdfa = getDolGlobalInt('PDF_USE_A', 0);  // PDF/A-1 ou PDF/A-3
 
  if (!getDolGlobalString('MAIN_DISABLE_TCPDI') && class_exists('TCPDI')) {
    $pdf = new TCPDI($pagetype, $metric, $format, true, 'UTF-8', false, $pdfa);
  } else {
    $pdf = new TCPDF($pagetype, $metric, $format, true, 'UTF-8', false, $pdfa);
  }
 
  // Protection and encryption of pdf
  if (getDolGlobalString('PDF_SECURITY_ENCRYPTION')) {
    /* Permission supported by TCPDF
    - print : Print the document;
    - modify : Modify the contents of the document by operations other than those controlled by 'fill-forms', 'extract' and 'assemble';
    - copy : Copy or otherwise extract text and graphics from the document;
    - annot-forms : Add or modify text annotations, fill in interactive form fields, and, if 'modify' is also set, create or modify interactive form fields (including signature fields);
    - fill-forms : Fill in existing interactive form fields (including signature fields), even if 'annot-forms' is not specified;
    - extract : Extract text and graphics (in support of accessibility to users with disabilities or for other purposes);
    - assemble : Assemble the document (insert, rotate, or delete pages and create bookmarks or thumbnail images), even if 'modify' is not set;
    - print-high : Print the document to a representation from which a faithful digital copy of the PDF content could be generated. When this is not set, printing is limited to a low-level representation of the appearance, possibly of degraded quality.
    - owner : (inverted logic - only for public-key) when set permits change of encryption and enables all other permissions.
    */
 
    // For TCPDF, we specify permission we want to block
    $pdfrights = (getDolGlobalString('PDF_SECURITY_ENCRYPTION_RIGHTS') ? json_decode(getDolGlobalString('PDF_SECURITY_ENCRYPTION_RIGHTS'), true) : array('modify', 'copy')); // Json format in llx_const
 
    // Password for the end user
    $pdfuserpass = getDolGlobalString('PDF_SECURITY_ENCRYPTION_USERPASS');
 
    // Password of the owner, created randomly if not defined
    $pdfownerpass = (getDolGlobalString('PDF_SECURITY_ENCRYPTION_OWNERPASS') ? getDolGlobalString('PDF_SECURITY_ENCRYPTION_OWNERPASS') : null);
 
    // For encryption strength: 0 = RC4 40 bit; 1 = RC4 128 bit; 2 = AES 128 bit; 3 = AES 256 bit
    $encstrength = getDolGlobalInt('PDF_SECURITY_ENCRYPTION_STRENGTH', 0);
 
    // Array of recipients containing public-key certificates ('c') and permissions ('p').
    // For example: array(array('c' => 'file://../examples/data/cert/tcpdf.crt', 'p' => array('print')))
    $pubkeys = (getDolGlobalString('PDF_SECURITY_ENCRYPTION_PUBKEYS') ? json_decode(getDolGlobalString('PDF_SECURITY_ENCRYPTION_PUBKEYS'), true) : null); // Json format in llx_const
 
    $pdf->SetProtection($pdfrights, $pdfuserpass, $pdfownerpass, $encstrength, $pubkeys);
  }
 
  return $pdf;
}
 
function pdf_getEncryption($pathoffile)
{
  require_once TCPDF_PATH.'tcpdf_parser.php';
 
  $isencrypted = false;
 
  $content = file_get_contents($pathoffile);
 
  //ob_start();
  @($parser = new TCPDF_PARSER(ltrim($content)));
  $tmp = $parser->getParsedData();
  $xref = $tmp[0];
  $data = $tmp[1] ?? null;
  unset($parser);
  //ob_end_clean();
 
  if (isset($xref['trailer']['encrypt'])) {
    $isencrypted = true; // Secured pdf file are currently not supported
  }
 
  if (empty($data)) {
    $isencrypted = true; // Object list not found. Possible secured file
  }
 
  return $isencrypted;
}
 
function pdf_getPDFFont($outputlangs)
{
  if (getDolGlobalString('MAIN_PDF_FORCE_FONT')) {
    return getDolGlobalString('MAIN_PDF_FORCE_FONT');
  }
 
  $font = 'Helvetica'; // By default, for FPDI, or ISO language on TCPDF
  if (class_exists('TCPDF')) {  // If TCPDF on, we can use an UTF8 one like DejaVuSans if required (slower)
    if ($outputlangs->trans('FONTFORPDF') != 'FONTFORPDF') {
      $font = $outputlangs->trans('FONTFORPDF');
    }
  }
  return $font;
}
 
function pdf_getPDFFontSize($outputlangs)
{
  $size = 10; // By default, for FPDI or ISO language on TCPDF
  if (class_exists('TCPDF')) {  // If TCPDF on, we can use an UTF8 font like DejaVuSans if required (slower)
    if ($outputlangs->trans('FONTSIZEFORPDF') != 'FONTSIZEFORPDF') {
      $size = (int) $outputlangs->trans('FONTSIZEFORPDF');
    }
  }
  if (getDolGlobalString('MAIN_PDF_FORCE_FONT_SIZE')) {
    $size = getDolGlobalString('MAIN_PDF_FORCE_FONT_SIZE');
  }
 
  return $size;
}
 
 
function pdf_getHeightForLogo($logo, $url = false)
{
  $height = getDolGlobalInt('MAIN_DOCUMENTS_LOGO_HEIGHT', 20);
  $maxwidth = 130;
  include_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
  $tmp = dol_getImageSize($logo, $url);
  if ($tmp['height']) {
    $width = round($height * $tmp['width'] / $tmp['height']);
    if ($width > $maxwidth) {
      $height = $height * $maxwidth / $width;
    }
  }
  //print $tmp['width'].' '.$tmp['height'].' '.$width; exit;
  return $height;
}
 
function pdfGetHeightForHtmlContent(&$pdf, $htmlcontent)
{
  // store current object
  $pdf->startTransaction();
  // To avoid pagebreak effect or strange behavior of writeHTMLCell when we are out of page, we imagine we are at the begin of page to test the height of the text
  // Another solution would be to do the test on another PDF instance with samefont, width...
  $pdf->setY(0);
  // store starting values
  $start_y = $pdf->GetY();
  //var_dump($start_y);
  $start_page = $pdf->getPage();
  // call printing functions with content
  $pdf->writeHTMLCell(0, 0, 0, $start_y, $htmlcontent, 0, 1, false, true, 'J', true);
  // get the new Y
  $end_y = $pdf->GetY();
  $end_page = $pdf->getPage();
  // calculate height
  $height = 0;
  if ($end_page == $start_page) {
    $height = $end_y - $start_y;
  } else {
    for ($page = $start_page; $page <= $end_page; ++$page) {
      $pdf->setPage($page);
      $tmpm = $pdf->getMargins();
      $tMargin = $tmpm['top'];
      if ($page == $start_page) {
        // first page
        $height = $pdf->getPageHeight() - $start_y - $pdf->getBreakMargin();
      } elseif ($page == $end_page) {
        // last page
        $height = $end_y - $tMargin;
      } else {
        $height = $pdf->getPageHeight() - $tMargin - $pdf->getBreakMargin();
      }
    }
  }
  // restore previous object
  $pdf = $pdf->rollbackTransaction();
 
  return $height;
}
 
 
function pdfBuildThirdpartyName($thirdparty, Translate $outputlangs, $includealias = 0)
{
  // Recipient name
  $socname = '';
 
  if ($thirdparty instanceof Societe) {
    $socname = $thirdparty->name;
    if (($includealias || getDolGlobalInt('PDF_INCLUDE_ALIAS_IN_THIRDPARTY_NAME')) && !empty($thirdparty->name_alias)) {
      if (getDolGlobalInt('PDF_INCLUDE_ALIAS_IN_THIRDPARTY_NAME') == 2) {
        $socname = $thirdparty->name_alias." - ".$thirdparty->name;
      } else {
        $socname = $thirdparty->name." - ".$thirdparty->name_alias;
      }
    }
  } elseif ($thirdparty instanceof Contact) {
    if ($thirdparty->socid > 0) {
      $thirdparty->fetch_thirdparty();
      $socname = $thirdparty->thirdparty->name;
      if (($includealias || getDolGlobalInt('PDF_INCLUDE_ALIAS_IN_THIRDPARTY_NAME')) && !empty($thirdparty->thirdparty->name_alias)) {
        if (getDolGlobalInt('PDF_INCLUDE_ALIAS_IN_THIRDPARTY_NAME') == 2) {
          $socname = $thirdparty->thirdparty->name_alias." - ".$thirdparty->thirdparty->name;
        } else {
          $socname = $thirdparty->thirdparty->name." - ".$thirdparty->thirdparty->name_alias;
        }
      }
    }
  } else {
    throw new InvalidArgumentException('Parameter 1 $thirdparty is not a Societe nor Contact');
  }
 
  return $outputlangs->convToOutputCharset((string) $socname);
}
 
function pdf_build_address($outputlangs, $sourcecompany, $targetcompany = '', $targetcontact = '', $usecontact = 0, $mode = 'source', $object = null)
{
  global $hookmanager;
 
  if ($mode == 'source' && !is_object($sourcecompany)) {
    return -1;
  }
  if ($mode == 'target' && !is_object($targetcompany)) {
    return -1;
  }
 
  if (!empty($sourcecompany->state_id) && empty($sourcecompany->state)) {
    $sourcecompany->state = getState($sourcecompany->state_id);
  }
  if (!empty($targetcompany->state_id) && empty($targetcompany->state)) {
    $targetcompany->state = getState($targetcompany->state_id);
  }
 
  $reshook = 0;
  $stringaddress = '';
  if (is_object($hookmanager)) {
    $parameters = array('sourcecompany' => &$sourcecompany, 'targetcompany' => &$targetcompany, 'targetcontact' => &$targetcontact, 'outputlangs' => $outputlangs, 'mode' => $mode, 'usecontact' => $usecontact);
    $action = '';
    // @phan-suppress-next-line PhanTypeMismatchArgumentNullable
    $reshook = $hookmanager->executeHooks('pdf_build_address', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
    $stringaddress .= $hookmanager->resPrint;
  }
  if (empty($reshook)) {
    if ($mode == 'source') {
      $withCountry = 0;
      if (isset($targetcompany->country_code) && !empty($sourcecompany->country_code) && ($targetcompany->country_code != $sourcecompany->country_code)) {
        $withCountry = 1;
      }
 
      $fulladdress = dol_format_address($sourcecompany, $withCountry, "\n", $outputlangs);
      if ($fulladdress) {
        $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->convToOutputCharset($fulladdress)."\n";
      }
 
      if (!getDolGlobalString('MAIN_PDF_DISABLESOURCEDETAILS')) {
        // Phone
        if ($sourcecompany->phone) {
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("PhoneShort").": ".$outputlangs->convToOutputCharset($sourcecompany->phone);
        }
        // Phone mobile
        if ($sourcecompany->phone_mobile && getDolGlobalString('MAIN_PDF_SHOW_SOURCE_PHONE_MOBILE')) {
          $stringaddress .= ($stringaddress ? ($sourcecompany->phone ? " - " : "\n") : '').$outputlangs->transnoentities("PhoneShort").": ".$outputlangs->convToOutputCharset($sourcecompany->phone_mobile);
        }
        // Fax
        if ($sourcecompany->fax) {
          $stringaddress .= ($stringaddress ? ($sourcecompany->phone ? " - " : "\n") : '').$outputlangs->transnoentities("Fax").": ".$outputlangs->convToOutputCharset($sourcecompany->fax);
        }
        // EMail
        if ($sourcecompany->email) {
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Email").": ".$outputlangs->convToOutputCharset($sourcecompany->email);
        }
        // Web
        if ($sourcecompany->url) {
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Web").": ".$outputlangs->convToOutputCharset($sourcecompany->url);
        }
      }
      // Intra VAT
      if (getDolGlobalString('MAIN_TVAINTRA_IN_SOURCE_ADDRESS')) {
        if ($sourcecompany->tva_intra) {
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("VATIntraShort").': '.$outputlangs->convToOutputCharset($sourcecompany->tva_intra);
        }
      }
      // Professional Ids
      $reg = array();
      if (getDolGlobalString('MAIN_PROFID1_IN_SOURCE_ADDRESS') && !empty($sourcecompany->idprof1)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId1", $sourcecompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($sourcecompany->idprof1);
      }
      if (getDolGlobalString('MAIN_PROFID2_IN_SOURCE_ADDRESS') && !empty($sourcecompany->idprof2)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId2", $sourcecompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($sourcecompany->idprof2);
      }
      if (getDolGlobalString('MAIN_PROFID3_IN_SOURCE_ADDRESS') && !empty($sourcecompany->idprof3)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId3", $sourcecompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($sourcecompany->idprof3);
      }
      if (getDolGlobalString('MAIN_PROFID4_IN_SOURCE_ADDRESS') && !empty($sourcecompany->idprof4)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId4", $sourcecompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($sourcecompany->idprof4);
      }
      if (getDolGlobalString('MAIN_PROFID5_IN_SOURCE_ADDRESS') && !empty($sourcecompany->idprof5)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId5", $sourcecompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($sourcecompany->idprof5);
      }
      if (getDolGlobalString('MAIN_PROFID6_IN_SOURCE_ADDRESS') && !empty($sourcecompany->idprof6)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId6", $sourcecompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($sourcecompany->idprof6);
      }
      if (getDolGlobalString('PDF_ADD_MORE_AFTER_SOURCE_ADDRESS')) {
        $stringaddress .= ($stringaddress ? "\n" : '') . getDolGlobalString('PDF_ADD_MORE_AFTER_SOURCE_ADDRESS');
      }
    }
 
    if ($mode == 'target' || preg_match('/targetwithdetails/', $mode)) {
      if ($usecontact && (is_object($targetcontact))) {
        $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->convToOutputCharset($targetcontact->getFullName($outputlangs, 1));
 
        if (!empty($targetcontact->address)) {
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->convToOutputCharset(dol_format_address($targetcontact))."\n";
        } elseif (is_object($targetcompany)) {
          $companytouseforaddress = $targetcompany;
 
          // Contact on a thirdparty that is a different thirdparty than the thirdparty of object
          if ($targetcontact->socid > 0 && $targetcontact->socid != $targetcompany->id) {
            $targetcontact->fetch_thirdparty();
            $companytouseforaddress = $targetcontact->thirdparty;
          }
 
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->convToOutputCharset(dol_format_address($companytouseforaddress))."\n";
        }
        // Country
        if (!empty($targetcontact->country_code) && $targetcontact->country_code != $sourcecompany->country_code) {
          $stringaddress .= (($stringaddress && !getDolGlobalString('MAIN_PDF_REMOVE_BREAK_BEFORE_COUNTRY')) ? "\n" : '').$outputlangs->convToOutputCharset($outputlangs->transnoentitiesnoconv("Country".$targetcontact->country_code));
        } elseif (empty($targetcontact->country_code) && !empty($targetcompany->country_code) && ($targetcompany->country_code != $sourcecompany->country_code)) {
          $stringaddress .= (($stringaddress && !getDolGlobalString('MAIN_PDF_REMOVE_BREAK_BEFORE_COUNTRY')) ? "\n" : '').$outputlangs->convToOutputCharset($outputlangs->transnoentitiesnoconv("Country".$targetcompany->country_code));
        }
 
        if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || preg_match('/targetwithdetails/', $mode)) {
          // Phone
          if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_phone/', $mode)) {
            if (!empty($targetcontact->phone_pro) || !empty($targetcontact->phone_mobile)) {
              $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Phone").": ";
            }
            if (!empty($targetcontact->phone_pro)) {
              $stringaddress .= $outputlangs->convToOutputCharset($targetcontact->phone_pro);
            }
            if (!empty($targetcontact->phone_pro) && !empty($targetcontact->phone_mobile)) {
              $stringaddress .= " / ";
            }
            if (!empty($targetcontact->phone_mobile)) {
              $stringaddress .= $outputlangs->convToOutputCharset($targetcontact->phone_mobile);
            }
          }
          // Fax
          if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_fax/', $mode)) {
            if ($targetcontact->fax) {
              $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Fax").": ".$outputlangs->convToOutputCharset($targetcontact->fax);
            }
          }
          // EMail
          if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_email/', $mode)) {
            if ($targetcontact->email) {
              $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Email").": ".$outputlangs->convToOutputCharset($targetcontact->email);
            }
          }
          // Web
          if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_url/', $mode)) {
            if ($targetcontact->url) {
              $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Web").": ".$outputlangs->convToOutputCharset((string) $targetcontact->url);
            }
          }
        }
      } else {
        if (is_object($targetcompany)) {
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->convToOutputCharset(dol_format_address($targetcompany));
          // Country
          if (!empty($targetcompany->country_code) && $targetcompany->country_code != $sourcecompany->country_code) {
            $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->convToOutputCharset($outputlangs->transnoentitiesnoconv("Country".$targetcompany->country_code));
          } else {
            $stringaddress .= ($stringaddress ? "\n" : '');
          }
 
          if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || preg_match('/targetwithdetails/', $mode)) {
            // Phone
            if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_phone/', $mode)) {
              if (!empty($targetcompany->phone) || !empty($targetcompany->phone_mobile)) {
                $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Phone").": ";
              }
              if (!empty($targetcompany->phone)) {
                $stringaddress .= $outputlangs->convToOutputCharset($targetcompany->phone);
              }
              if (!empty($targetcompany->phone) && !empty($targetcompany->phone_mobile)) {
                $stringaddress .= " / ";
              }
              if (!empty($targetcompany->phone_mobile)) {
                $stringaddress .= $outputlangs->convToOutputCharset($targetcompany->phone_mobile);
              }
            }
            // Fax
            if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_fax/', $mode)) {
              if ($targetcompany->fax) {
                $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Fax").": ".$outputlangs->convToOutputCharset($targetcompany->fax);
              }
            }
            // EMail
            if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_email/', $mode)) {
              if ($targetcompany->email) {
                $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Email").": ".$outputlangs->convToOutputCharset($targetcompany->email);
              }
            }
            // Web
            if (getDolGlobalString('MAIN_PDF_ADDALSOTARGETDETAILS') || $mode == 'targetwithdetails' || preg_match('/targetwithdetails_url/', $mode)) {
              if ($targetcompany->url) {
                $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("Web").": ".$outputlangs->convToOutputCharset($targetcompany->url);
              }
            }
          }
        }
      }
 
      // Intra VAT
      if (!getDolGlobalString('MAIN_TVAINTRA_NOT_IN_ADDRESS')) {
        if ($usecontact && is_object($targetcontact) && getDolGlobalInt('MAIN_USE_COMPANY_NAME_OF_CONTACT')) {
          $targetcontact->fetch_thirdparty();
          if (!empty($targetcontact->thirdparty->id) && $targetcontact->thirdparty->tva_intra) {
            $stringaddress .= ($stringaddress ? "\n" : '') . $outputlangs->transnoentities("VATIntraShort") . ': ' . $outputlangs->convToOutputCharset($targetcontact->thirdparty->tva_intra);
          }
        } elseif (!empty($targetcompany->tva_intra)) {
          $stringaddress .= ($stringaddress ? "\n" : '').$outputlangs->transnoentities("VATIntraShort").': '.$outputlangs->convToOutputCharset($targetcompany->tva_intra);
        }
      }
 
      // Legal form
      if (getDolGlobalString('MAIN_LEGALFORM_IN_ADDRESS') && !empty($targetcompany->forme_juridique_code)) {
        $tmp = getFormeJuridiqueLabel((string) $targetcompany->forme_juridique_code);
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp;
      }
 
      // Professional Ids
      if (getDolGlobalString('MAIN_PROFID1_IN_ADDRESS') && !empty($targetcompany->idprof1)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId1", $targetcompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof1);
      }
      if (getDolGlobalString('MAIN_PROFID2_IN_ADDRESS') && !empty($targetcompany->idprof2)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId2", $targetcompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof2);
      }
      if (getDolGlobalString('MAIN_PROFID3_IN_ADDRESS') && !empty($targetcompany->idprof3)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId3", $targetcompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof3);
      }
      if (getDolGlobalString('MAIN_PROFID4_IN_ADDRESS') && !empty($targetcompany->idprof4)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId4", $targetcompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof4);
      }
      if (getDolGlobalString('MAIN_PROFID5_IN_ADDRESS') && !empty($targetcompany->idprof5)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId5", $targetcompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof5);
      }
      if (getDolGlobalString('MAIN_PROFID6_IN_ADDRESS') && !empty($targetcompany->idprof6)) {
        $tmp = $outputlangs->transcountrynoentities("ProfId6", $targetcompany->country_code);
        if (preg_match('/\‍((.+)\‍)/', $tmp, $reg)) {
          $tmp = $reg[1];
        }
        $stringaddress .= ($stringaddress ? "\n" : '').$tmp.': '.$outputlangs->convToOutputCharset($targetcompany->idprof6);
      }
 
      // Public note
      if (getDolGlobalString('MAIN_PUBLIC_NOTE_IN_ADDRESS')) {
        if ($mode == 'source' && !empty($sourcecompany->note_public)) {
          $stringaddress .= ($stringaddress ? "\n" : '').dol_string_nohtmltag($sourcecompany->note_public);
        }
        if (($mode == 'target' || preg_match('/targetwithdetails/', $mode)) && !empty($targetcompany->note_public)) {
          $stringaddress .= ($stringaddress ? "\n" : '').dol_string_nohtmltag($targetcompany->note_public);
        }
      }
    }
  }
 
  return $stringaddress;
}
 
 
function pdf_pagehead(&$pdf, $outputlangs, $page_height)
{
  global $conf;
 
  // Add a background image on document only if good setup of const
  if (getDolGlobalString('MAIN_USE_BACKGROUND_ON_PDF') && (getDolGlobalString('MAIN_USE_BACKGROUND_ON_PDF') != '-1')) {   // Warning, this option make TCPDF generation being crazy and some content disappeared behind the image
    $filepath = $conf->mycompany->dir_output.'/logos/' . getDolGlobalString('MAIN_USE_BACKGROUND_ON_PDF');
    if (file_exists($filepath)) {
      $pdf->setAutoPageBreak(false, 0); // Disable auto pagebreak before adding image
      if (getDolGlobalString('MAIN_USE_BACKGROUND_ON_PDF_ALPHA')) {
        $pdf->SetAlpha(getDolGlobalFloat('MAIN_USE_BACKGROUND_ON_PDF_ALPHA'));
      } // Option for change opacity of background
      $pdf->Image($filepath, getDolGlobalFloat('MAIN_USE_BACKGROUND_ON_PDF_X'), getDolGlobalFloat('MAIN_USE_BACKGROUND_ON_PDF_Y'), 0, $page_height);
      if (getDolGlobalString('MAIN_USE_BACKGROUND_ON_PDF_ALPHA')) {
        $pdf->SetAlpha(1);
      }
      $pdf->SetPageMark(); // This option avoid to have the images missing on some pages
      $pdf->setAutoPageBreak(true, 0); // Restore pagebreak
    }
  }
  if (getDolGlobalString('MAIN_ADD_PDF_BACKGROUND') && getDolGlobalString('MAIN_ADD_PDF_BACKGROUND') != '-1') {
    $pdf->SetPageMark(); // This option avoid to have the images missing on some pages
  }
}
 
 
function pdfWriteBlockedLogSignature(&$pdf, $outputlangs, $page_height, $object, &$w, &$posx, &$posy)
{
  global $db;
 
  // Transaction ID
  include_once DOL_DOCUMENT_ROOT.'/blockedlog/lib/blockedlog.lib.php';
 
  if (isALNERunningVersion() && isModEnabled('blockedlog')) {
    if ($object->status > $object::STATUS_DRAFT) {
      $unalterablelogid = 'UNDEFINED';
      $sql = "SELECT signature FROM ".MAIN_DB_PREFIX."blockedlog";
      $sql .= " WHERE action = 'BILL_VALIDATE' AND element = 'facture' AND ref_object = '".$db->escape($object->ref)."'";
      $sql .= $db->order('rowid', 'DESC');
      $sql .= $db->plimit(1);
 
      $resql = $db->query($sql);
      if ($resql) {
        $obj = $db->fetch_object($resql);
        if ($obj) {
          $unalterablelogid = $obj->signature;
        }
      }
 
      if ($unalterablelogid != 'UNDEFINED') {
        $posy += 5;
        $pdf->SetXY($posx, $posy);
        $pdf->SetTextColor(0, 0, 60);
        $pdf->MultiCell($w, 3, $outputlangs->transnoentities("SignatureID")." : ".dol_trunc(strtoupper($unalterablelogid), 10), '', 'R');
      }
    }
  }
}
 
 
function pdf_getSubstitutionArray($outputlangs, $exclude = null, $object = null, $onlykey = 0, $include = null)
{
  $substitutionarray = getCommonSubstitutionArray($outputlangs, $onlykey, $exclude, $object, $include);
  $substitutionarray['__FROM_NAME__'] = '__FROM_NAME__';
  $substitutionarray['__FROM_EMAIL__'] = '__FROM_EMAIL__';
  return $substitutionarray;
}
 
 
function pdf_watermark(&$pdf, $outputlangs, $h, $w, $unit, $text)
{
  // Print Draft Watermark
  if ($unit == 'pt') {
    $k = 1;
  } elseif ($unit == 'mm') {
    $k = 72 / 25.4;
  } elseif ($unit == 'cm') {
    $k = 72 / 2.54;
  } elseif ($unit == 'in') {
    $k = 72;
  } else {
    $k = 1;
    dol_print_error(null, 'Unexpected unit "'.$unit.'" for pdf_watermark');
  }
 
  // Make substitution
  $substitutionarray = pdf_getSubstitutionArray($outputlangs, null, null);
  complete_substitutions_array($substitutionarray, $outputlangs, null);
  $text = make_substitutions($text, $substitutionarray, $outputlangs);
  $text = $outputlangs->convToOutputCharset($text);
 
  $savx = $pdf->getX();
  $savy = $pdf->getY();
 
  $watermark_angle = atan($h / $w) / 2;
  $watermark_x_pos = 0;
  $watermark_y_pos = $h / 3;
  $watermark_x = $w / 2;
  $watermark_y = $h / 3;
  $pdf->SetFont('', 'B', 40);
  $pdf->SetTextColor(255, 0, 0);
 
  // rotate
  $pdf->_out(sprintf('q %.5F %.5F %.5F %.5F %.2F %.2F cm 1 0 0 1 %.2F %.2F cm', cos($watermark_angle), sin($watermark_angle), -sin($watermark_angle), cos($watermark_angle), $watermark_x * $k, ($h - $watermark_y) * $k, -$watermark_x * $k, -($h - $watermark_y) * $k));
  // print watermark
  $pdf->SetAlpha(0.5);
  $pdf->SetXY($watermark_x_pos, $watermark_y_pos);
 
  // set alpha to semi-transparency
  $pdf->SetAlpha(0.3);
  $pdf->Cell($w - 20, 25, $outputlangs->convToOutputCharset($text), "", 2, "C", false);
 
  // antirotate
  $pdf->_out('Q');
 
  $pdf->SetXY($savx, $savy);
 
  // Restore alpha
  $pdf->SetAlpha(1);
}
 
 
function pdfCertifMention(&$pdf, $outputlangs, $seller, $default_font_size, &$posy, $pdftemplate)
{
  include_once DOL_DOCUMENT_ROOT.'/blockedlog/lib/blockedlog.lib.php';
 
  return pdfCertifMentionblockedLog($pdf, $outputlangs, $seller, $default_font_size, $posy, $pdftemplate);
}
 
 
function pdf_bank(&$pdf, $outputlangs, $curx, $cury, $account, $onlynumber = 0, $default_font_size = 10)
{
  require_once DOL_DOCUMENT_ROOT.'/core/class/html.formbank.class.php';
 
  $diffsizetitle = getDolGlobalInt('PDF_DIFFSIZE_TITLE', 3);
  $diffsizecontent = getDolGlobalInt('PDF_DIFFSIZE_CONTENT', 4);
  $pdf->SetXY($curx, $cury);
 
  if (empty($onlynumber)) {
    $pdf->SetFont('', 'B', $default_font_size - $diffsizetitle);
    $pdf->MultiCell(100, 3, $outputlangs->transnoentities('PaymentByTransferOnThisBankAccount').':', 0, 'L', false);
    $cury += 4;
  }
 
  $outputlangs->load("banks");
 
  // Use correct name of bank id according to country
  $bickey = "BICNumber";
  if ($account->getCountryCode() == 'IN') {
    $bickey = "SWIFT";
  }
 
  // Get format of bank account according to its country
  $usedetailedbban = $account->useDetailedBBAN();
 
  //$onlynumber=0; $usedetailedbban=1; // For tests
  if ($usedetailedbban) {
    $savcurx = $curx;
 
    if (empty($onlynumber)) {
      $pdf->SetFont('', '', $default_font_size - $diffsizecontent);
      $pdf->SetXY($curx, $cury);
      $pdf->MultiCell(100, 3, $outputlangs->transnoentities("Bank").': '.$outputlangs->convToOutputCharset($account->bank), 0, 'L', false);
      $cury += 3;
    }
 
    if (!getDolGlobalString('PDF_BANK_HIDE_NUMBER_SHOW_ONLY_BICIBAN')) {    // Note that some countries still need bank number, BIC/IBAN not enough for them
      // Note:
      // bank = code_banque (FR), sort code (GB, IR. Example: 12-34-56)
      // desk = code guichet (FR), used only when $usedetailedbban = 1
      // number = account number
      // key = check control key used only when $usedetailedbban = 1
      if (empty($onlynumber)) {
        $pdf->line($curx + 1, $cury + 1, $curx + 1, $cury + 6);
      }
 
      $bank_number_length = 0;
      foreach ($account->getFieldsToShow() as $val) {
        $pdf->SetXY($curx, $cury + 4);
        $pdf->SetFont('', '', $default_font_size - 3);
 
        if ($val == 'BankCode') {
          // Bank code
          $tmplength = 18;
          $content = $account->code_banque;
        } elseif ($val == 'DeskCode') {
          // Desk
          $tmplength = 18;
          $content = $account->code_guichet;
        } elseif ($val == 'BankAccountNumber') {
          // Number
          $tmplength = 24;
          $content = $account->number;
        } elseif ($val == 'BankAccountNumberKey') {
          // Key
          $tmplength = 15;
          $content = $account->cle_rib;
        } elseif ($val == 'IBAN' || $val == 'BIC') {
          // Key
          $tmplength = 0;
          $content = '';
        } else {
          dol_print_error($account->db, 'Unexpected value for getFieldsToShow: '.$val);
          break;
        }
 
        if ($content == '') {
          continue;
        }
 
        $pdf->MultiCell($tmplength, 3, $outputlangs->convToOutputCharset($content), 0, 'C', false);
        $pdf->SetXY($curx, $cury + 1);
        $curx += $tmplength;
        $pdf->SetFont('', 'B', $default_font_size - $diffsizecontent);
        $pdf->MultiCell($tmplength, 3, $outputlangs->transnoentities($val), 0, 'C', false);
        if (empty($onlynumber)) {
          $pdf->line($curx, $cury + 1, $curx, $cury + 7);
        }
 
        // Only set this variable when table was printed
        $bank_number_length = 8;
      }
 
      $curx = $savcurx;
      $cury += $bank_number_length;
    }
  } elseif (!empty($account->number)) {
    $pdf->SetFont('', 'B', $default_font_size - $diffsizecontent);
    $pdf->SetXY($curx, $cury);
    $pdf->MultiCell(100, 3, $outputlangs->transnoentities("Bank").': '.$outputlangs->convToOutputCharset($account->bank), 0, 'L', false);
    $cury += 3;
 
    $pdf->SetFont('', 'B', $default_font_size - $diffsizecontent);
    $pdf->SetXY($curx, $cury);
    $pdf->MultiCell(100, 3, $outputlangs->transnoentities("BankAccountNumber").': '.$outputlangs->convToOutputCharset($account->number), 0, 'L', false);
    $cury += 3;
 
    if ($diffsizecontent <= 2) {
      $cury += 1;
    }
  }
 
  $pdf->SetFont('', '', $default_font_size - $diffsizecontent);
 
  if (empty($onlynumber) && !empty($account->address)) {
    $pdf->SetXY($curx, $cury);
    $val = $outputlangs->transnoentities("Residence").': '.$outputlangs->convToOutputCharset($account->address);
    $pdf->MultiCell(100, 3, $val, 0, 'L', false);
    //$nboflines=dol_nboflines_bis($val,120);
    //$cury+=($nboflines*3)+2;
    $tmpy = $pdf->getStringHeight(100, $val);
    $cury += $tmpy;
  }
 
  if (!empty($account->owner_name)) {
    $pdf->SetXY($curx, $cury);
    $val = $outputlangs->transnoentities("BankAccountOwner").': '.$outputlangs->convToOutputCharset($account->owner_name);
    $pdf->MultiCell(100, 3, $val, 0, 'L', false);
    $tmpy = $pdf->getStringHeight(100, $val);
    $cury += $tmpy;
  } elseif (!$usedetailedbban) {
    $cury += 1;
  }
 
  // Use correct name of bank id according to country
  $ibankey = FormBank::getIBANLabel($account);
 
  if (!empty($account->iban)) {
    //Remove whitespaces to ensure we are dealing with the format we expect
    $ibanDisplay_temp = str_replace(' ', '', $outputlangs->convToOutputCharset($account->iban));
    $ibanDisplay = "";
 
    $nbIbanDisplay_temp = dol_strlen($ibanDisplay_temp);
    for ($i = 0; $i < $nbIbanDisplay_temp; $i++) {
      $ibanDisplay .= $ibanDisplay_temp[$i];
      if ($i % 4 == 3 && $i > 0) {
        $ibanDisplay .= " ";
      }
    }
 
    $pdf->SetFont('', 'B', $default_font_size - 3);
    $pdf->SetXY($curx, $cury);
    $pdf->MultiCell(100, 3, $outputlangs->transnoentities($ibankey).': '.$ibanDisplay, 0, 'L', false);
    $cury += 3;
  }
 
  if (!empty($account->bic)) {
    $pdf->SetFont('', 'B', $default_font_size - 3);
    $pdf->SetXY($curx, $cury);
    $pdf->MultiCell(100, 3, $outputlangs->transnoentities($bickey).': '.$outputlangs->convToOutputCharset($account->bic), 0, 'L', false);
  }
 
  return $pdf->getY();
}
 
function pdf_pagefoot(&$pdf, $outputlangs, $paramfreetext, $fromcompany, $marge_basse, $marge_gauche, $page_hauteur, $object, $showdetails = 0, $hidefreetext = 0, $page_largeur = 0, $watermark = '')
{
  global $conf, $hookmanager;
 
  $outputlangs->load("dict");
  $line = '';
  $reg = array();
  $marginwithfooter = 0;  // Return value
 
  $dims = $pdf->getPageDimensions();
 
  // Line of free text
  if (empty($hidefreetext) && getDolGlobalString($paramfreetext)) {
    $substitutionarray = pdf_getSubstitutionArray($outputlangs, null, $object);
    // More substitution keys
    if (is_object($fromcompany)) {
      $substitutionarray['__FROM_NAME__'] = $fromcompany->name;
      $substitutionarray['__FROM_EMAIL__'] = $fromcompany->email;
    }
    complete_substitutions_array($substitutionarray, $outputlangs, $object);
    $newfreetext = make_substitutions(getDolGlobalString($paramfreetext), $substitutionarray, $outputlangs);
 
    // Make a change into HTML code to allow to include images from medias directory.
    // <img alt="" src="/dolibarr_dev/htdocs/viewimage.php?modulepart=medias&amp;entity=1&amp;file=image/ldestailleur_166x166.jpg" style="height:166px; width:166px" />
    // become
    // <img alt="" src="'.DOL_DATA_ROOT.'/medias/image/ldestailleur_166x166.jpg" style="height:166px; width:166px" />
    $newfreetext = preg_replace('/(<img.*src=")[^\"]*viewimage\.php[^\"]*modulepart=medias[^\"]*file=([^\"]*)("[^\/]*\/>)/', '\1file:/'.DOL_DATA_ROOT.'/medias/\2\3', $newfreetext);
 
    $line .= $outputlangs->convToOutputCharset($newfreetext);
  }
 
  // First line of company infos
  $line1 = "";
  $line2 = "";
  $line3 = "";
  $line4 = "";
 
  if (is_object($fromcompany) && in_array($showdetails, array(1, 3))) {
    // Company name
    if ($fromcompany->name) {
      $line1 .= ($line1 ? " - " : "").$outputlangs->transnoentities("RegisteredOffice").": ".$fromcompany->name;
    }
    // Address
    if ($fromcompany->address) {
      $line1 .= ($line1 ? " - " : "").str_replace("\n", ", ", $fromcompany->address);
    }
    // Zip code
    if ($fromcompany->zip) {
      $line1 .= ($line1 ? " - " : "").$fromcompany->zip;
    }
    // Town
    if ($fromcompany->town) {
      $line1 .= ($line1 ? " " : "").$fromcompany->town;
    }
    // Country
    if ($fromcompany->country) {
      $line1 .= ($line1 ? ", " : "").$fromcompany->country;
    }
    // Phone
    if ($fromcompany->phone) {
      $line2 .= ($line2 ? " - " : "").$outputlangs->transnoentities("Phone").": ".$fromcompany->phone;
    }
    // Fax
    if ($fromcompany->fax) {
      $line2 .= ($line2 ? " - " : "").$outputlangs->transnoentities("Fax").": ".$fromcompany->fax;
    }
 
    // URL
    if ($fromcompany->url) {
      $line2 .= ($line2 ? " - " : "").$fromcompany->url;
    }
    // Email
    if ($fromcompany->email) {
      $line2 .= ($line2 ? " - " : "").$fromcompany->email;
    }
  }
  if ($showdetails == 2 || $showdetails == 3 || (!empty($fromcompany->country_code) && $fromcompany->country_code == 'DE')) {
    // Managers
    if ($fromcompany->managers) {
      $line2 .= ($line2 ? " - " : "").$fromcompany->managers;
    }
  }
 
  // Line 3 of company infos
  // Juridical status
  if (!empty($fromcompany->forme_juridique_code)) {
    $line3 .= ($line3 ? " - " : "").$outputlangs->convToOutputCharset(getFormeJuridiqueLabel((string) $fromcompany->forme_juridique_code));
  }
  // Capital
  if (!empty($fromcompany->capital)) {
    $tmpamounttoshow = price2num($fromcompany->capital); // This field is a free string or a float
    if (is_numeric($tmpamounttoshow) && $tmpamounttoshow > 0) {
      $line3 .= ($line3 ? " - " : "").$outputlangs->transnoentities("CapitalOf", price($tmpamounttoshow, 0, $outputlangs, 0, 0, 0, getDolCurrency()));
    } elseif (!empty($fromcompany->capital)) {
      $line3 .= ($line3 ? " - " : "").$outputlangs->transnoentities("CapitalOf", (string) $fromcompany->capital);
    }
  }
  // Prof Id 1
  if (!empty($fromcompany->idprof1) && ($fromcompany->country_code != 'FR' || (empty($fromcompany->idprof2) || strpos($fromcompany->idprof2, $fromcompany->idprof1) !== 0))) {
    $field = $outputlangs->transcountrynoentities("ProfId1", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line3 .= ($line3 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof1);
  }
  // Prof Id 2
  if (!empty($fromcompany->idprof2)) {
    $field = $outputlangs->transcountrynoentities("ProfId2", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line3 .= ($line3 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof2);
  }
 
  // Line 4 of company infos
  // Prof Id 3
  if (!empty($fromcompany->idprof3)) {
    $field = $outputlangs->transcountrynoentities("ProfId3", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof3);
  }
  // Prof Id 4
  if (!empty($fromcompany->idprof4)) {
    $field = $outputlangs->transcountrynoentities("ProfId4", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof4);
  }
  // Prof Id 5
  if (!empty($fromcompany->idprof5)) {
    $field = $outputlangs->transcountrynoentities("ProfId5", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof5);
  }
  // Prof Id 6
  if (!empty($fromcompany->idprof6)) {
    $field = $outputlangs->transcountrynoentities("ProfId6", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof6);
  }
  // Prof Id 7
  if (!empty($fromcompany->idprof7)) {
    $field = $outputlangs->transcountrynoentities("ProfId7", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof7);
  }
  // Prof Id 8
  if (!empty($fromcompany->idprof8)) {
    $field = $outputlangs->transcountrynoentities("ProfId8", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof8);
  }
  // Prof Id 9
  if (!empty($fromcompany->idprof9)) {
    $field = $outputlangs->transcountrynoentities("ProfId9", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof9);
  }
  // Prof Id 10
  if (!empty($fromcompany->idprof10)) {
    $field = $outputlangs->transcountrynoentities("ProfId10", $fromcompany->country_code);
    if (preg_match('/\‍((.*)\‍)/i', $field, $reg)) {
      $field = $reg[1];
    }
    $line4 .= ($line4 ? " - " : "").$field.": ".$outputlangs->convToOutputCharset($fromcompany->idprof10);
  }
  // IntraCommunautary VAT
  if (!empty($fromcompany->tva_intra)  && $fromcompany->tva_intra != '') {
    $line4 .= ($line4 ? " - " : "").$outputlangs->transnoentities("VATIntraShort").": ".$outputlangs->convToOutputCharset($fromcompany->tva_intra);
  }
 
  $pdf->SetFont('', '', 7);
  $pdf->SetDrawColor(224, 224, 224);
  // Option for footer text color
  if (getDolGlobalString('PDF_FOOTER_TEXT_COLOR')) {
    $tmparray = sscanf(getDolGlobalString('PDF_FOOTER_TEXT_COLOR'), '%d, %d, %d');
    $r = $tmparray[0];
    $g = $tmparray[1];
    $b = $tmparray[2];
    $pdf->SetTextColor($r, $g, $b);
  }
 
  // The start of the bottom of this page footer is positioned according to # of lines
  $freetextheight = 0;
  $align = '';
  if ($line) {  // Free text
    //$line="sample text<br>\nfd<strong>sf</strong>sdf<br>\nghfghg<br>";
    if (!getDolGlobalString('PDF_ALLOW_HTML_FOR_FREE_TEXT')) {
      $width = 20000;
      $align = 'L'; // By default, ask a manual break: We use a large value 20000, to not have automatic wrap. This make user understand, he need to add CR on its text.
      if (getDolGlobalString('MAIN_USE_AUTOWRAP_ON_FREETEXT')) {
        $width = 200;
        $align = 'C';
      }
      $freetextheight = $pdf->getStringHeight($width, $line);
    } else {
      $freetextheight = pdfGetHeightForHtmlContent($pdf, dol_htmlentitiesbr($line, 1, 'UTF-8', 0)); // New method (works for HTML content)
      //print '<br>'.$freetextheight;
    }
  }
 
  $posy = 0;
  // For customized footer
  if (is_object($hookmanager)) {
    $parameters = array('line1' => $line1, 'line2' => $line2, 'line3' => $line3, 'line4' => $line4, 'outputlangs' => $outputlangs);
    $action = '';
    $hookmanager->executeHooks('pdf_pagefoot', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
    if (!empty($hookmanager->resPrint) && $hidefreetext == 0) {
      $mycustomfooter = $hookmanager->resPrint;
      $mycustomfooterheight = pdfGetHeightForHtmlContent($pdf, dol_htmlentitiesbr($mycustomfooter, 1, 'UTF-8', 0));
 
      $marginwithfooter = $marge_basse + $freetextheight + $mycustomfooterheight;
      $posy = (float) $marginwithfooter;
 
      // Option for footer background color (without freetext zone)
      if (getDolGlobalString('PDF_FOOTER_BACKGROUND_COLOR')) {
        $tmparray = sscanf(getDolGlobalString('PDF_FOOTER_BACKGROUND_COLOR'), '%d, %d, %d');
        $r = $tmparray[0];
        $g = $tmparray[1];
        $b = $tmparray[2];
        $pdf->setAutoPageBreak(false, 0); // Disable auto pagebreak
        $pdf->Rect(0, $dims['hk'] - $posy + $freetextheight, $dims['wk'] + 1, $marginwithfooter + 1, 'F', array(), $fill_color = array($r, $g, $b));
        $pdf->setAutoPageBreak(true, 0); // Restore pagebreak
      }
 
      if (getDolGlobalInt('PDF_FREETEXT_DISABLE_PAGEBREAK') === 1) {
        $pdf->setAutoPageBreak(false, 0);
      } // Option for disable auto pagebreak
      if ($line) {  // Free text
        $pdf->SetXY($dims['lm'], -$posy);
        if (!getDolGlobalString('PDF_ALLOW_HTML_FOR_FREE_TEXT')) {   // by default
          $pdf->MultiCell(0, 3, $line, 0, $align, false);
        } else {
          $pdf->writeHTMLCell($dims['wk'] - $dims['lm'] - $dims['rm'], $freetextheight, $dims['lm'], $dims['hk'] - $marginwithfooter, dol_htmlentitiesbr($line, 1, 'UTF-8', 0));
        }
        $posy -= $freetextheight;
      }
      if (getDolGlobalInt('PDF_FREETEXT_DISABLE_PAGEBREAK') === 1) {
        $pdf->setAutoPageBreak(true, 0);
      } // Restore pagebreak
 
      $pdf->SetY(-$posy);
 
      // Hide footer line if footer background color is set
      if (!getDolGlobalString('PDF_FOOTER_BACKGROUND_COLOR')) {
        $pdf->line($dims['lm'], $dims['hk'] - $posy, $dims['wk'] - $dims['rm'], $dims['hk'] - $posy);
      }
 
      // Option for set top margin height of footer after freetext
      if (getDolGlobalString('PDF_FOOTER_TOP_MARGIN') || getDolGlobalInt('PDF_FOOTER_TOP_MARGIN') === 0) {
        $posy -= (float) getDolGlobalString('PDF_FOOTER_TOP_MARGIN');
      } else {
        $posy--;
      }
 
      if (getDolGlobalInt('PDF_FOOTER_DISABLE_PAGEBREAK') === 1) {
        $pdf->setAutoPageBreak(false, 0);
      } // Option for disable auto pagebreak
      $pdf->writeHTMLCell($dims['wk'] - $dims['lm'] - $dims['rm'], $mycustomfooterheight, $dims['lm'], $dims['hk'] - $posy, dol_htmlentitiesbr($mycustomfooter, 1, 'UTF-8', 0));
      if (getDolGlobalInt('PDF_FOOTER_DISABLE_PAGEBREAK') === 1) {
        $pdf->setAutoPageBreak(true, 0);
      } // Restore pagebreak
 
      $posy -= $mycustomfooterheight - 3;
    } else {
      // Else default footer
      $marginwithfooter = $marge_basse + $freetextheight + (!empty($line1) ? 3 : 0) + (!empty($line2) ? 3 : 0) + (!empty($line3) ? 3 : 0) + (!empty($line4) ? 3 : 0);
      $posy = (float) $marginwithfooter;
 
      // Option for footer background color (without freetext zone)
      if (getDolGlobalString('PDF_FOOTER_BACKGROUND_COLOR')) {
        $tmparray = sscanf(getDolGlobalString('PDF_FOOTER_BACKGROUND_COLOR'), '%d, %d, %d');
        $r = $tmparray[0];
        $g = $tmparray[1];
        $b = $tmparray[2];
        $pdf->setAutoPageBreak(false, 0); // Disable auto pagebreak
        $pdf->Rect(0, $dims['hk'] - $posy + $freetextheight, $dims['wk'] + 1, $marginwithfooter + 1, 'F', array(), $fill_color = array($r, $g, $b));
        $pdf->setAutoPageBreak(true, 0); // Restore pagebreak
      }
 
      if (getDolGlobalInt('PDF_FREETEXT_DISABLE_PAGEBREAK') === 1) {
        $pdf->setAutoPageBreak(false, 0);
      } // Option for disable auto pagebreak
      if ($line) {  // Free text
        $pdf->SetXY($dims['lm'], -$posy);
        if (!getDolGlobalString('PDF_ALLOW_HTML_FOR_FREE_TEXT')) {   // by default
          $pdf->MultiCell(0, 3, $line, 0, $align, false);
        } else {
          $pdf->writeHTMLCell($dims['wk'] - $dims['lm'] - $dims['rm'], $freetextheight, $dims['lm'], $dims['hk'] - $marginwithfooter, dol_htmlentitiesbr($line, 1, 'UTF-8', 0));
        }
        $posy -= $freetextheight;
      }
      if (getDolGlobalInt('PDF_FREETEXT_DISABLE_PAGEBREAK') === 1) {
        $pdf->setAutoPageBreak(true, 0);
      } // Restore pagebreak
 
      $pdf->SetY(-$posy);
 
      // Option for hide all footer (page number will no hidden)
      if (!getDolGlobalInt('PDF_FOOTER_HIDDEN')) {
        // Hide footer line if footer background color is set
        if (!getDolGlobalString('PDF_FOOTER_BACKGROUND_COLOR')) {
          $pdf->line($dims['lm'], $dims['hk'] - $posy, $dims['wk'] - $dims['rm'], $dims['hk'] - $posy);
        }
 
        // Option for set top margin height of footer after freetext
        if (getDolGlobalString('PDF_FOOTER_TOP_MARGIN') || getDolGlobalInt('PDF_FOOTER_TOP_MARGIN') === 0) {
          $posy -= (float) getDolGlobalString('PDF_FOOTER_TOP_MARGIN');
        } else {
          $posy--;
        }
 
        if (!empty($line1)) {
          $pdf->SetFont('', 'B', 7);
          $pdf->SetXY($dims['lm'], -$posy);
          $pdf->MultiCell($dims['wk'] - $dims['rm'] - $dims['lm'], 2, $line1, 0, 'C', false);
          $posy -= 3;
          $pdf->SetFont('', '', 7);
        }
 
        if (!empty($line2)) {
          $pdf->SetFont('', 'B', 7);
          $pdf->SetXY($dims['lm'], -$posy);
          $pdf->MultiCell($dims['wk'] - $dims['rm'] - $dims['lm'], 2, $line2, 0, 'C', false);
          $posy -= 3;
          $pdf->SetFont('', '', 7);
        }
 
        if (!empty($line3)) {
          $pdf->SetXY($dims['lm'], -$posy);
          $pdf->MultiCell($dims['wk'] - $dims['rm'] - $dims['lm'], 2, $line3, 0, 'C', false);
        }
 
        if (!empty($line4)) {
          $posy -= 3;
          $pdf->SetXY($dims['lm'], -$posy);
          $pdf->MultiCell($dims['wk'] - $dims['rm'] - $dims['lm'], 2, $line4, 0, 'C', false);
        }
      }
    }
  }
 
  // Show page nb and apply correction for some font.
  $pdf->SetXY($dims['wk'] - $dims['rm'] - 18 - getDolGlobalInt('PDF_FOOTER_PAGE_NUMBER_X', 0), -$posy - getDolGlobalInt('PDF_FOOTER_PAGE_NUMBER_Y', 0));
 
  $pagination = $pdf->PageNo().' / '.$pdf->getAliasNbPages();
  $fontRenderCorrection = 0;
  if (in_array(pdf_getPDFFont($outputlangs), array('freemono',  'DejaVuSans'))) {
    $fontRenderCorrection = 10;
  }
  $pdf->MultiCell(18 + $fontRenderCorrection, 2, $pagination, 0, 'R', false);
 
  //  Show Draft Watermark
  if (!empty($watermark)) {
    pdf_watermark($pdf, $outputlangs, $page_hauteur, $page_largeur, 'mm', $watermark);
  }
 
  return $marginwithfooter;
}
 
function pdf_writeLinkedObjects(&$pdf, $object, $outputlangs, $posx, $posy, $w, $h, $align, $default_font_size)
{
  $linkedobjects = pdf_getLinkedObjects($object, $outputlangs); // May update $object->note_public
 
  if (!empty($linkedobjects)) {
    foreach ($linkedobjects as $linkedobject) {
      $reftoshow = $linkedobject["ref_title"].' : '.$linkedobject["ref_value"];
      if (!empty($linkedobject["date_value"])) {
        $reftoshow .= ' / '.$linkedobject["date_value"];
      }
 
      $posy += 3;
      $pdf->SetXY($posx, $posy);
      $pdf->SetFont('', '', (float) $default_font_size - 2);
      $pdf->MultiCell($w, $h, $reftoshow, '', $align);
    }
  }
 
  return $pdf->getY();
}
 
function pdf_writelinedesc(&$pdf, $object, $i, $outputlangs, $w, $h, $posx, $posy, $hideref = 0, $hidedesc = 0, $issupplierline = 0, $align = 'J')
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('pdf' => $pdf, 'i' => $i, 'outputlangs' => $outputlangs, 'w' => $w, 'h' => $h, 'posx' => $posx, 'posy' => $posy, 'hideref' => $hideref, 'hidedesc' => $hidedesc, 'issupplierline' => $issupplierline, 'special_code' => $special_code);
    $action = '';
    // WARNING: A hook must not close/open the PDF transaction. Doing this generates a lot of trouble.
    // Test to know if content added by the hooks is already done by the main caller of pdf_writelinedesc
    $reshook = $hookmanager->executeHooks('pdf_writelinedesc', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    $labelproductservice = pdf_getlinedesc($object, $i, $outputlangs, $hideref, $hidedesc, $issupplierline);
    $labelproductservice = preg_replace('/(<img[^>]*src=")[^\"]*viewimage\.php[^\"]*modulepart=medias[^\"]*file=([^\"]*)/', '\1file:/'.DOL_DATA_ROOT.'/medias/\2\3', $labelproductservice, -1, $nbrep);
 
    //var_dump($labelproductservice);exit;
 
    // Fix bug of some HTML editors that replace links <img src="http://localhostgit/viewimage.php?modulepart=medias&file=image/efd.png" into <img src="http://localhostgit/viewimage.php?modulepart=medias&amp;file=image/efd.png"
    // We make the reverse, so PDF generation has the real URL.
    $nbrep = 0;
    $labelproductservice = preg_replace('/(<img[^>]*src=")([^"]*)(&amp;)([^"]*")/', '\1\2&\4', $labelproductservice, -1, $nbrep);
 
    if (getDolGlobalString('MARGIN_TOP_ZERO_UL')) {
      $pdf->setListIndentWidth(5);
      $TMarginList = ['ul' => [['h' => 0.1, ],['h' => 0.1, ]], 'li' => [['h' => 0.1, ],],];
      $pdf->setHtmlVSpace($TMarginList);
    }
 
    // Description
    $pdf->writeHTMLCell($w, $h, $posx, $posy, $outputlangs->convToOutputCharset($labelproductservice), 0, 1, false, true, $align, true);
    $result .= $labelproductservice;
  }
  return $result;
}
 
function pdf_getlinedesc($object, $i, $outputlangs, $hideref = 0, $hidedesc = 0, $issupplierline = 0)
{
  global $db, $conf, $langs;
 
  $idprod = (!empty($object->lines[$i]->fk_product) ? $object->lines[$i]->fk_product : false);
  $label = (!empty($object->lines[$i]->label) ? $object->lines[$i]->label : (!empty($object->lines[$i]->product_label) ? $object->lines[$i]->product_label : ''));
  $product_barcode = (!empty($object->lines[$i]->product_barcode) ? $object->lines[$i]->product_barcode : "");
  $desc = (!empty($object->lines[$i]->desc) ? $object->lines[$i]->desc : (!empty($object->lines[$i]->description) ? $object->lines[$i]->description : ''));
  $ref_supplier = (!empty($object->lines[$i]->ref_supplier) ? $object->lines[$i]->ref_supplier : (!empty($object->lines[$i]->ref_fourn) ? $object->lines[$i]->ref_fourn : '')); // TODO Not yet saved for supplier invoices, only supplier orders
  $note = (!empty($object->lines[$i]->note) ? $object->lines[$i]->note : '');
  $dbatch = (!empty($object->lines[$i]->detail_batch) ? $object->lines[$i]->detail_batch : false);
 
  $multilangsactive = getDolGlobalInt('MAIN_MULTILANGS');
 
  if ($issupplierline) {
    include_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
    $prodser = new ProductFournisseur($db);
  } else {
    include_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
    $prodser = new Product($db);
 
    if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_AND_MULTIPRICES')) {
      include_once DOL_DOCUMENT_ROOT . '/product/class/productcustomerprice.class.php';
    }
  }
 
  //id
  $idprod = (!empty($object->lines[$i]->fk_product) ? $object->lines[$i]->fk_product : false);
  if ($idprod) {
    $prodser->fetch($idprod);
    //load multilangs
    if ($multilangsactive) {
      $prodser->getMultiLangs();
      $object->lines[$i]->multilangs = $prodser->multilangs;
    }
  }
  //label
  if (!empty($object->lines[$i]->label)) {
    $label = $object->lines[$i]->label;
  } else {
    if (!empty($object->lines[$i]->multilangs[$outputlangs->defaultlang]['label']) && $multilangsactive) {
      $label = $object->lines[$i]->multilangs[$outputlangs->defaultlang]['label'];
    } else {
      if (!empty($object->lines[$i]->product_label)) {
        $label = $object->lines[$i]->product_label;
      } else {
        $label = '';
      }
    }
  }
  //description
  if (!empty($object->lines[$i]->desc)) {
    $desc = $object->lines[$i]->desc;
  } else {
    if (!empty($object->lines[$i]->multilangs[$outputlangs->defaultlang]['description']) && $multilangsactive) {
      $desc = $object->lines[$i]->multilangs[$outputlangs->defaultlang]['description'];
    } else {
      if (!empty($object->lines[$i]->description)) {
        $desc = $object->lines[$i]->description;
      } else {
        $desc = '';
      }
    }
  }
  //ref supplier
  $ref_supplier = (!empty($object->lines[$i]->ref_supplier) ? $object->lines[$i]->ref_supplier : (!empty($object->lines[$i]->ref_fourn) ? $object->lines[$i]->ref_fourn : '')); // TODO Not yet saved for supplier invoices, only supplier orders
  //note
  $note = (!empty($object->lines[$i]->note) ? $object->lines[$i]->note : '');
  //dbatch
  $dbatch = (!empty($object->lines[$i]->detail_batch) ? $object->lines[$i]->detail_batch : false);
 
  if ($idprod) {
    // If a predefined product and multilang and on other lang, we renamed label with label translated
    if ($multilangsactive && ($outputlangs->defaultlang != $langs->defaultlang)) {
      $translatealsoifmodified = getDolGlobalString('MAIN_MULTILANG_TRANSLATE_EVEN_IF_MODIFIED'); // By default if value was modified manually, we keep it (no translation because we don't have it)
 
      // TODO Instead of making a compare to see if param was modified, check that content contains reference translation. If yes, add the added part to the new translation
      // ($textwasnotmodified is replaced with $textwasmodifiedorcompleted and we add completion).
 
      // Set label
      // If we want another language, and if label is same than default language (we did not force it to a specific value), we can use translation.
      //var_dump($outputlangs->defaultlang.' - '.$langs->defaultlang.' - '.$label.' - '.$prodser->label);exit;
      $textwasnotmodified = ($label == $prodser->label);
      if (!empty($prodser->multilangs[$outputlangs->defaultlang]["label"]) && ($textwasnotmodified || $translatealsoifmodified)) {
        $label = $prodser->multilangs[$outputlangs->defaultlang]["label"];
      }
 
      // Set desc
      // Manage HTML entities description test because $prodser->description is store with htmlentities but $desc no
      $textwasnotmodified = false;
      $textdiffersonlybymarkup = false;
      if (!empty($desc) && dol_textishtml($desc) && !empty($prodser->description) && dol_textishtml($prodser->description)) {
        $textwasnotmodified = (strpos(dol_html_entity_decode($desc, ENT_QUOTES | ENT_HTML5), dol_html_entity_decode($prodser->description, ENT_QUOTES | ENT_HTML5)) !== false);
      } elseif (!empty($desc) && !empty($prodser->description) && dol_textishtml($desc) != dol_textishtml($prodser->description)) {
        // One side is HTML and the other is not. This happens as soon as a line is saved while the
        // WYSIWYG editor is enabled on line details: the plain product description becomes "<p>...</p>".
        // Comparing the raw strings would then report a manual change and silently drop the translation,
        // so compare the text content instead.
        $desctextonly = trim(dol_html_entity_decode(dol_string_nohtmltag($desc, 1), ENT_QUOTES | ENT_HTML5));
        $prodtextonly = trim(dol_html_entity_decode(dol_string_nohtmltag($prodser->description, 1), ENT_QUOTES | ENT_HTML5));
        $textwasnotmodified = ($prodtextonly !== '' && strpos($desctextonly, $prodtextonly) !== false);
        $textdiffersonlybymarkup = ($textwasnotmodified && $desctextonly === $prodtextonly);
      } else {
        $textwasnotmodified = ($desc == $prodser->description);
      }
      if (!empty($prodser->multilangs[$outputlangs->defaultlang]["description"])) {
        if ($textwasnotmodified) {
          if ($textdiffersonlybymarkup && strpos($desc, $prodser->description) === false) {
            // Same text, but wrapped in tags or written with HTML entities: the product description
            // is not present verbatim, so the str_replace below would find nothing to replace.
            $desc = $prodser->multilangs[$outputlangs->defaultlang]["description"];
          } else {
            $desc = str_replace($prodser->description, $prodser->multilangs[$outputlangs->defaultlang]["description"], $desc);
          }
        } elseif ($translatealsoifmodified) {
          $desc = $prodser->multilangs[$outputlangs->defaultlang]["description"];
        }
      }
 
      // Set note
      $textwasnotmodified = ($note == $prodser->note_public);
      if (!empty($prodser->multilangs[$outputlangs->defaultlang]["other"]) && ($textwasnotmodified || $translatealsoifmodified)) {
        $note = $prodser->multilangs[$outputlangs->defaultlang]["other"];
      }
    }
  } elseif (($object->element == 'facture' || $object->element == 'facturefourn') && preg_match('/^\‍(DEPOSIT\‍).+/', $desc)) { // We must not replace '(DEPOSIT)' when it is alone, it will be translated and detailed later
    $desc = str_replace('(DEPOSIT)', $outputlangs->trans('Deposit'), $desc);
  }
 
  $libelleproduitservice = '';  // Default value
  if (!getDolGlobalString('PDF_HIDE_PRODUCT_LABEL_IN_SUPPLIER_LINES')) {
    // Description short of product line
    $libelleproduitservice = $label;
    if (!empty($libelleproduitservice) && getDolGlobalString('PDF_BOLD_PRODUCT_LABEL')) {
      // Adding <b> may convert the original string into a HTML string. So we have to first
      // convert \n into <br> we text is not already HTML.
      if (!dol_textishtml($libelleproduitservice)) {
        $libelleproduitservice = str_replace("\n", '<br>', $libelleproduitservice);
      }
      $libelleproduitservice = '<b>'.$libelleproduitservice.'</b>';
    }
  }
 
 
  // Add ref of subproducts
  if (getDolGlobalString('SHOW_SUBPRODUCT_REF_IN_PDF')) {
    $prodser->get_sousproduits_arbo();
    if (!empty($prodser->sousprods) && is_array($prodser->sousprods) && count($prodser->sousprods)) {
      $outputlangs->load('mrp');
      $tmparrayofsubproducts = reset($prodser->sousprods);
 
      $qtyText = null;
      if (isset($object->lines[$i]->qty) && !empty($object->lines[$i]->qty)) {
        $qtyText = $object->lines[$i]->qty;
      } elseif (isset($object->lines[$i]->qty_shipped) && !empty($object->lines[$i]->qty_shipped)) {
        $qtyText = $object->lines[$i]->qty;
      }
 
      if (getDolGlobalString('MAIN_GENERATE_DOCUMENTS_HIDE_REF')) {
        foreach ($tmparrayofsubproducts as $subprodval) {
          $libelleproduitservice = dol_concatdesc(
            dol_concatdesc($libelleproduitservice, " * ".$subprodval[3]),
            (!empty($qtyText) ?
              $outputlangs->trans('Qty').':'.$qtyText.' x '.$outputlangs->trans('AssociatedProducts').':'.$subprodval[1].'= '.$outputlangs->trans('QtyTot').':'.$subprodval[1] * $qtyText :
              $outputlangs->trans('Qty').' '.$outputlangs->trans('AssociatedProducts').':'.$subprodval[1])
          );
        }
      } else {
        foreach ($tmparrayofsubproducts as $subprodval) {
          $libelleproduitservice = dol_concatdesc(
            dol_concatdesc($libelleproduitservice, " * ".$subprodval[5].(($subprodval[5] && $subprodval[3]) ? ' - ' : '').$subprodval[3]),
            (!empty($qtyText) ?
              $outputlangs->trans('Qty').':'.$qtyText.' x '.$outputlangs->trans('AssociatedProducts').':'.$subprodval[1].'= '.$outputlangs->trans('QtyTot').':'.$subprodval[1] * $qtyText :
              $outputlangs->trans('Qty').' '.$outputlangs->trans('AssociatedProducts').':'.$subprodval[1])
          );
        }
      }
    }
  }
 
  if (isModEnabled('barcode') && getDolGlobalString('MAIN_GENERATE_DOCUMENTS_SHOW_PRODUCT_BARCODE') && !empty($product_barcode)) {
    $libelleproduitservice = dol_concatdesc($libelleproduitservice, $outputlangs->trans("BarCode")." ".$product_barcode);
  }
 
  // Description long of product line
  if (!empty($desc) && ($desc != $label)) {
    if ($desc == '(CREDIT_NOTE)' && $object->lines[$i]->fk_remise_except) {
      $discount = new DiscountAbsolute($db);
      $discount->fetch($object->lines[$i]->fk_remise_except);
      $sourceref = !empty($discount->discount_type) ? $discount->ref_invoice_supplier_source : $discount->ref_facture_source;
      $libelleproduitservice = $outputlangs->transnoentitiesnoconv("DiscountFromCreditNote", $sourceref);
    } elseif ($desc == '(DEPOSIT)' && $object->lines[$i]->fk_remise_except) {
      $discount = new DiscountAbsolute($db);
      $discount->fetch($object->lines[$i]->fk_remise_except);
      $sourceref = !empty($discount->discount_type) ? $discount->ref_invoice_supplier_source : $discount->ref_facture_source;
      $libelleproduitservice = $outputlangs->transnoentitiesnoconv("DiscountFromDeposit", $sourceref);
      // Add date of deposit
      if (getDolGlobalString('INVOICE_ADD_DEPOSIT_DATE')) {
        $libelleproduitservice .= ' ('.dol_print_date($discount->datec, 'day', '', $outputlangs).')';
      }
    } elseif ($desc == '(EXCESS RECEIVED)' && $object->lines[$i]->fk_remise_except) {
      $discount = new DiscountAbsolute($db);
      $discount->fetch($object->lines[$i]->fk_remise_except);
      $libelleproduitservice = $outputlangs->transnoentitiesnoconv("DiscountFromExcessReceived", $discount->ref_facture_source);
    } elseif ($desc == '(EXCESS PAID)' && $object->lines[$i]->fk_remise_except) {
      $discount = new DiscountAbsolute($db);
      $discount->fetch($object->lines[$i]->fk_remise_except);
      $libelleproduitservice = $outputlangs->transnoentitiesnoconv("DiscountFromExcessPaid", $discount->ref_invoice_supplier_source);
    } else {
      if ($idprod) {
        // Check if description must be output
        if (!empty($object->element)) {
          $tmpkey = 'MAIN_DOCUMENTS_HIDE_DESCRIPTION_FOR_'.strtoupper($object->element);
          if (getDolGlobalString($tmpkey)) {
            $hidedesc = 1;
          }
        }
        if (empty($hidedesc)) {
          if (getDolGlobalString('MAIN_DOCUMENTS_DESCRIPTION_FIRST')) {
            $libelleproduitservice = dol_concatdesc($desc, $libelleproduitservice);
          } else {
            if (getDolGlobalString('HIDE_LABEL_VARIANT_PDF') && $prodser->isVariant()) {
              $libelleproduitservice = $desc;
            } else {
              $libelleproduitservice = dol_concatdesc($libelleproduitservice, $desc);
            }
          }
        }
      } else {
        $libelleproduitservice = dol_concatdesc($libelleproduitservice, $desc);
      }
    }
  }
 
  // We add ref of product (and supplier ref if defined)
  $prefix_prodserv = "";
  $ref_prodserv = "";
  if (getDolGlobalString('PRODUCT_ADD_TYPE_IN_DOCUMENTS')) {   // In standard mode, we do not show this
    if ($prodser->isService()) {
      $prefix_prodserv = $outputlangs->transnoentitiesnoconv("Service")." ";
    } else {
      $prefix_prodserv = $outputlangs->transnoentitiesnoconv("Product")." ";
    }
  }
 
  if (empty($hideref)) {
    if ($issupplierline) {
      if (!getDolGlobalString('PDF_HIDE_PRODUCT_REF_IN_SUPPLIER_LINES')) {  // Common case
        $ref_prodserv = $prodser->ref; // Show local ref
        if ($ref_supplier) {
          $ref_prodserv .= ($prodser->ref ? ' (' : '').$outputlangs->transnoentitiesnoconv("SupplierRef").' '.$ref_supplier.($prodser->ref ? ')' : '');
        }
      } elseif (getDolGlobalInt('PDF_HIDE_PRODUCT_REF_IN_SUPPLIER_LINES') == 1) {
        $ref_prodserv = $ref_supplier;
      } elseif (getDolGlobalInt('PDF_HIDE_PRODUCT_REF_IN_SUPPLIER_LINES') == 2) {
        $ref_prodserv = $ref_supplier.' ('.$outputlangs->transnoentitiesnoconv("InternalRef").' '.$prodser->ref.')';
      }
    } else {
      $ref_prodserv = $prodser->ref; // Show local ref only
 
      if (getDolGlobalString('PRODUIT_CUSTOMER_PRICES') || getDolGlobalString('PRODUIT_CUSTOMER_PRICES_AND_MULTIPRICES')) {
        $productCustomerPriceStatic = new ProductCustomerPrice($db);
        $filter = array('fk_product' => (string) $idprod, 'fk_soc' => (string) $object->socid);
 
        $nbCustomerPrices = $productCustomerPriceStatic->fetchAll('', '', 1, 0, $filter);
 
        if ($nbCustomerPrices > 0) {
          $productCustomerPrice = null;
          if (count($productCustomerPriceStatic->lines) > 0) {
            $date_now = (int) floor(dol_now() / 86400) * 86400; // date without hours
            foreach ($productCustomerPriceStatic->lines as $k => $custprice_line) {
              if ($custprice_line->date_begin <= $date_now && (empty($custprice_line->date_end) || $date_now <= $custprice_line->date_end)) {
                $productCustomerPrice = $custprice_line;
                break;
              }
            }
          }
 
          if (isset($productCustomerPrice) && !empty($productCustomerPrice->ref_customer)) {
            $idcustprice = getDolGlobalInt('PRODUIT_CUSTOMER_PRICES_PDF_REF_MODE');
            switch ($idcustprice) {
              case 1:
                $ref_prodserv = $productCustomerPrice->ref_customer;
                break;
 
              case 2:
                $ref_prodserv = $productCustomerPrice->ref_customer . ' (' . $outputlangs->transnoentitiesnoconv('InternalRef') . ' ' . $ref_prodserv . ')';
                break;
 
              default:
                $ref_prodserv = $ref_prodserv . ' (' . $outputlangs->transnoentitiesnoconv('RefCustomer') . ' ' . $productCustomerPrice->ref_customer . ')';
            }
          }
        }
      }
    }
 
    if (!empty($libelleproduitservice) && !empty($ref_prodserv)) {
      $ref_prodserv .= " - ";
    }
  }
 
  if (!empty($ref_prodserv) && getDolGlobalString('PDF_BOLD_PRODUCT_REF_AND_PERIOD')) {
    if (!dol_textishtml($libelleproduitservice)) {
      $libelleproduitservice = str_replace("\n", '<br>', $libelleproduitservice);
    }
    $ref_prodserv = '<b>'.$ref_prodserv.'</b>';
    // $prefix_prodserv and $ref_prodser are not HTML var
  }
  $libelleproduitservice = $prefix_prodserv.$ref_prodserv.$libelleproduitservice;
 
  // Add an additional description for the category products
  if (getDolGlobalString('CATEGORY_ADD_DESC_INTO_DOC') && $idprod && isModEnabled('category')) {
    include_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
    $categstatic = new Categorie($db);
    // recovering the list of all the categories linked to product
    $tblcateg = $categstatic->containing($idprod, Categorie::TYPE_PRODUCT);
    foreach ($tblcateg as $cate) {
      // Adding the descriptions if they are filled
      $desccateg = $cate->description;
      if ($desccateg) {
        $libelleproduitservice = dol_concatdesc($libelleproduitservice, $desccateg);
      }
    }
  }
 
  if (!empty($object->lines[$i]->date_start) || !empty($object->lines[$i]->date_end)) {
    $format = 'day';
    $period = '';
    // Show duration if exists
    if ($object->lines[$i]->date_start && $object->lines[$i]->date_end) {
      $period = '('.$outputlangs->transnoentitiesnoconv('DateFromTo', dol_print_date($object->lines[$i]->date_start, $format, false, $outputlangs), dol_print_date($object->lines[$i]->date_end, $format, false, $outputlangs)).')';
    }
    if ($object->lines[$i]->date_start && !$object->lines[$i]->date_end) {
      $period = '('.$outputlangs->transnoentitiesnoconv('DateFrom', dol_print_date($object->lines[$i]->date_start, $format, false, $outputlangs)).')';
    }
    if (!$object->lines[$i]->date_start && $object->lines[$i]->date_end) {
      $period = '('.$outputlangs->transnoentitiesnoconv('DateUntil', dol_print_date($object->lines[$i]->date_end, $format, false, $outputlangs)).')';
    }
    //print '>'.$outputlangs->charset_output.','.$period;
    if (getDolGlobalString('PDF_BOLD_PRODUCT_REF_AND_PERIOD')) {
      if (!dol_textishtml($libelleproduitservice)) {
        $libelleproduitservice = str_replace("\n", '<br>', $libelleproduitservice);
      }
      $libelleproduitservice .= '<br><b style="color:#333666;" ><em>'.$period.'</em></b>';
    } else {
      $libelleproduitservice = dol_concatdesc($libelleproduitservice, $period);
    }
    //print $libelleproduitservice;
  }
 
  // Show information for lot
  if (!empty($dbatch)) {
    // $object is a shipment.
    //var_dump($object->lines[$i]->details_entrepot);   // array from llx_expeditiondet (we can have several lines for one fk_origin_line)
    //var_dump($object->lines[$i]->detail_batch);     // array from llx_expeditiondet_batch (each line with a lot is linked to llx_expeditiondet)
 
    include_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';
    include_once DOL_DOCUMENT_ROOT.'/product/class/productbatch.class.php';
    $tmpwarehouse = new Entrepot($db);
    $tmpproductbatch = new Productbatch($db);
 
    $format = 'day';
    foreach ($dbatch as $detail) {
      $dte = array();
      if ($detail->eatby) {
        $dte[] = $outputlangs->transnoentitiesnoconv('printEatby', dol_print_date($detail->eatby, $format, false, $outputlangs));
      }
      if ($detail->sellby) {
        $dte[] = $outputlangs->transnoentitiesnoconv('printSellby', dol_print_date($detail->sellby, $format, false, $outputlangs));
      }
      if ($detail->batch) {
        $dte[] = $outputlangs->transnoentitiesnoconv('printBatch', $detail->batch);
      }
      if ($detail->qty) {
        $dte[] = $outputlangs->transnoentitiesnoconv('printQty', (string) $detail->qty);
      }
 
      // Add also info of planned warehouse for lot
      if ($object->element == 'shipping' && $detail->fk_origin_stock > 0 && getDolGlobalInt('PRODUCTBATCH_SHOW_WAREHOUSE_ON_SHIPMENT')) {
        $resproductbatch = $tmpproductbatch->fetch($detail->fk_origin_stock);
        if ($resproductbatch > 0) {
          $reswarehouse = $tmpwarehouse->fetch($tmpproductbatch->warehouseid);
          if ($reswarehouse > 0) {
            $dte[] = $tmpwarehouse->ref;
          }
        }
      }
 
      $libelleproduitservice .= "__N__  ".implode(" - ", $dte);
    }
  } else {
    if (getDolGlobalInt('PRODUCTBATCH_SHOW_WAREHOUSE_ON_SHIPMENT')) {
      // TODO Show warehouse for shipment line without batch
    }
  }
 
  // Now we convert \n into br
  if (dol_textishtml($libelleproduitservice)) {
    $libelleproduitservice = preg_replace('/__N__/', '<br>', $libelleproduitservice);
  } else {
    $libelleproduitservice = preg_replace('/__N__/', "\n", $libelleproduitservice);
  }
  $libelleproduitservice = dol_htmlentitiesbr($libelleproduitservice, 1);
 
  return $libelleproduitservice;
}
 
function pdf_getlinenum($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlinenum', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
    $result .= $hookmanager->resPrint;
  }
  if (empty($reshook)) {
    $result .= dol_htmlentitiesbr($object->lines[$i]->num);
  }
  return $result;
}
 
 
function pdf_getlineref($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineref', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
    $result .= $hookmanager->resPrint;
  }
  if (empty($reshook)) {
    $result .= dol_htmlentitiesbr($object->lines[$i]->product_ref);
  }
  return $result;
}
 
 
function pdf_getlineref_supplier($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineref_supplier', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
    $result .= $hookmanager->resPrint;
  }
  if (empty($reshook)) {
    $result .= dol_htmlentitiesbr($object->lines[$i]->ref_supplier);
  }
  return $result;
}
 
function pdf_getlinevatrate($object, $i, $outputlangs, $hidedetails = 0)
{
  global $conf, $hookmanager, $mysoc;
 
  $result = '';
  $reshook = 0;
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlinevatrate', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if (empty($hidedetails) || $hidedetails > 1) {
      $tmpresult = '';
 
      $tmpresult .= vatrate($object->lines[$i]->tva_tx, false, $object->lines[$i]->info_bits, -1);
      if (!getDolGlobalString('MAIN_PDF_MAIN_HIDE_SECOND_TAX')) {
        if (price2num($object->lines[$i]->localtax1_tx)) {
          if (preg_replace('/[\s0%]/', '', $tmpresult)) {
            $tmpresult .= '/';
          } else {
            $tmpresult = '';
          }
          $tmpresult .= vatrate((string) abs($object->lines[$i]->localtax1_tx), false);
        }
      }
      if (!getDolGlobalString('MAIN_PDF_MAIN_HIDE_THIRD_TAX')) {
        if (price2num($object->lines[$i]->localtax2_tx)) {
          if (preg_replace('/[\s0%]/', '', $tmpresult)) {
            $tmpresult .= '/';
          } else {
            $tmpresult = '';
          }
          $tmpresult .= vatrate((string) abs($object->lines[$i]->localtax2_tx), false);
        }
      }
      $tmpresult .= '%';
 
      $result .= $tmpresult;
    }
  }
  return $result;
}
 
function pdf_getlineupexcltax($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $sign = 1;
  if (isset($object->type) && $object->type == 2 && getDolGlobalString('INVOICE_POSITIVE_CREDIT_NOTE')) {
    $sign = -1;
  }
 
  $result = '';
  $reshook = 0;
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineupexcltax', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if (empty($hidedetails) || $hidedetails > 1) {
      $subprice = (isModEnabled("multicurrency") && $object->multicurrency_tx != 1 ? $object->lines[$i]->multicurrency_subprice : $object->lines[$i]->subprice);
      $result .= price($sign * $subprice, 0, $outputlangs);
    }
  }
  return $result;
}
 
function pdf_getlineupwithtax($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $sign = 1;
  if (isset($object->type) && $object->type == 2 && getDolGlobalString('INVOICE_POSITIVE_CREDIT_NOTE')) {
    $sign = -1;
  }
 
  $result = '';
  $reshook = 0;
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineupwithtax', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if (empty($hidedetails) || $hidedetails > 1) {
      $result .= price($sign * (($object->lines[$i]->subprice) + ($object->lines[$i]->subprice) * ($object->lines[$i]->tva_tx) / 100), 0, $outputlangs);
    }
  }
  return $result;
}
 
function pdf_getlineqty($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $result = '';
  $reshook = 0;
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineqty', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result = $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if ($object->lines[$i]->special_code == 3) {
      return '';
    }
    if (empty($hidedetails) || $hidedetails > 1) {
      $result .= $object->lines[$i]->qty;
    }
  }
  return $result;
}
 
function pdf_getlineqty_asked($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineqty_asked', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if ($object->lines[$i]->special_code == 3) {
      return '';
    }
    if (empty($hidedetails) || $hidedetails > 1) {
      $result .= $object->lines[$i]->qty_asked;
    }
  }
  return $result;
}
 
function pdf_getlineqty_shipped($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineqty_shipped', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if ($object->lines[$i]->special_code == 3) {
      return '';
    }
    if (empty($hidedetails) || $hidedetails > 1) {
      $result .= $object->lines[$i]->qty_shipped;
    }
  }
  return $result;
}
 
function pdf_getlineqty_keeptoship($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {  // @phan-suppress-current-line PhanUndeclaredProperty
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineqty_keeptoship', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if ($object->lines[$i]->special_code == 3) {
      return '';
    }
    if (empty($hidedetails) || $hidedetails > 1) {
      $result .= ($object->lines[$i]->qty_asked - $object->lines[$i]->qty_shipped);
    }
  }
  return $result;
}
 
function pdf_getlineunit($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array(
      'i' => $i,
      'outputlangs' => $outputlangs,
      'hidedetails' => $hidedetails,
      'special_code' => $special_code
    );
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineunit', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if (empty($hidedetails) || $hidedetails > 1) {
      $result .= $object->lines[$i]->getLabelOfUnit('short', $outputlangs, 1);
    }
  }
  return $result;
}
 
 
function pdf_getlineremisepercent($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  include_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineremisepercent', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if ($object->lines[$i]->special_code == 3) {
      return '';
    }
    if (empty($hidedetails) || $hidedetails > 1) {
      $result .= dol_print_reduction($object->lines[$i]->remise_percent, $outputlangs);
    }
  }
  return $result;
}
 
function pdf_getlineprogress($object, $i, $outputlangs, $hidedetails = 0, $hookmanager = null)
{
  if (empty($hookmanager)) {
    global $hookmanager;
  }
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlineprogress', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      return $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if ($object->lines[$i]->special_code == 3) {
      return '';
    }
    if (empty($hidedetails) || $hidedetails > 1) {
      // 2 = situation_percent is non-cumulative (delta of current situation)
      // 1 = (old mode): situation_percent is cumulative (state at situation)
      $isCumulative = getDolGlobalInt('INVOICE_USE_SITUATION') === 1;
      $showDelta = (bool) getDolGlobalInt('SITUATION_DISPLAY_DIFF_ON_PDF');
 
      if ($isCumulative xor $showDelta) {
        // Either:
        // - old mode and we want to show a total or
        // - new mode and we want to show a delta
        $result = $object->lines[$i]->situation_percent;
      } else {
        // Either:
        // - old mode but we want to show a delta or
        // - new mode but we want to show a total
        $prev_progress = 0;
        if ($isCumulative) {
          // old mode: the previous line already holds the running total
          if (method_exists($object->lines[$i], 'get_prev_progress')) {
            $prev_progress = $object->lines[$i]->get_prev_progress($object->id);
          }
        } else {
          // new mode: each line holds its own delta, so we must sum every previous one.
          // get_prev_progress() only reads the line pointed by fk_prev_id, which is the last
          // delta and not the accumulated progress, so it under-reports from the third
          // situation on. getAllPrevProgress() walks the whole fk_prev_id chain, and it is
          // what the screen uses to compute the same value.
          if (method_exists($object->lines[$i], 'getAllPrevProgress')) {
            $prev_progress = $object->lines[$i]->getAllPrevProgress($object->id);
          } elseif (method_exists($object->lines[$i], 'get_prev_progress')) {
            $prev_progress = $object->lines[$i]->get_prev_progress($object->id);
          }
        }
        $result = $isCumulative ?
          // old mode: we need to compute the delta (total - sum of previous)
          $object->lines[$i]->situation_percent - $prev_progress :
          // new mode: we need to compute the total (sum of previous + delta)
          $prev_progress + $object->lines[$i]->situation_percent;
      }
      $result = round($result, 1).'%';
    }
  }
  return $result;
}
 
function pdf_getlinetotalexcltax($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $sign = 1;
  if (isset($object->type) && $object->type == 2 && getDolGlobalString('INVOICE_POSITIVE_CREDIT_NOTE')) {
    $sign = -1;
  }
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code, 'sign' => $sign);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlinetotalexcltax', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if (!empty($object->lines[$i]) && $object->lines[$i]->special_code == 3) {
      $result .= $outputlangs->transnoentities("Option");
    } elseif (empty($hidedetails) || $hidedetails > 1) {
      $total_ht = (isModEnabled("multicurrency") && $object->multicurrency_tx != 1 ? $object->lines[$i]->multicurrency_total_ht : $object->lines[$i]->total_ht);
      if (!empty($object->lines[$i]->situation_percent) && $object->lines[$i]->situation_percent > 0) {
        if (method_exists($object->lines[$i], 'getSituationRatio')) {
          $total_ht *= $object->lines[$i]->getSituationRatio();
        }
      }
      $result .= price($sign * $total_ht, 0, $outputlangs);
    }
  }
  return $result;
}
 
function pdf_getlinetotalwithtax($object, $i, $outputlangs, $hidedetails = 0)
{
  global $hookmanager;
 
  $sign = 1;
  if (isset($object->type) && $object->type == 2 && getDolGlobalString('INVOICE_POSITIVE_CREDIT_NOTE')) {
    $sign = -1;
  }
 
  $reshook = 0;
  $result = '';
  //if (is_object($hookmanager) && ( (isset($object->lines[$i]->product_type) && $object->lines[$i]->product_type == 9 && !empty($object->lines[$i]->special_code)) || !empty($object->lines[$i]->fk_parent_line) ) )
  if (is_object($hookmanager)) {   // Old code is commented on preceding line. Reproduce this test in the pdf_xxx function if you don't want your hook to run
    $special_code = empty($object->lines[$i]->special_code) ? '' : $object->lines[$i]->special_code;
    if (!empty($object->lines[$i]->fk_parent_line) && $object->lines[$i]->fk_parent_line > 0) {
      $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
    }
    $parameters = array('i' => $i, 'outputlangs' => $outputlangs, 'hidedetails' => $hidedetails, 'special_code' => $special_code);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getlinetotalwithtax', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
    if (!empty($hookmanager->resPrint)) {
      $result .= $hookmanager->resPrint;
    }
  }
  if (empty($reshook)) {
    if ($object->lines[$i]->special_code == 3) {
      $result .= $outputlangs->transnoentities("Option");
    } elseif (empty($hidedetails) || $hidedetails > 1) {
      $total_ttc = (isModEnabled("multicurrency") && $object->multicurrency_tx != 1 ? $object->lines[$i]->multicurrency_total_ttc : $object->lines[$i]->total_ttc);
      if (isset($object->lines[$i]->situation_percent) && $object->lines[$i]->situation_percent > 0) {
        $total_ttc *= $object->lines[$i]->getSituationRatio();
      }
      $result .= price($sign * $total_ttc, 0, $outputlangs);
    }
  }
  return $result;
}
 
function canDisplayLinkedObjectInPDF($object, $elementobject)
{
  $objectSocId = getObjectSocId($object);
  $elementSocId = getObjectSocId($elementobject);
 
  if (getDolGlobalBool("PDF_ALLOW_DISPLAY_LINKED_OBJECT_FOR_OTHER_SOC")) {
    return true;
  }
 
  if (!empty($objectSocId) && !empty($elementSocId) && $objectSocId != $elementSocId) {
    return false;
  }
 
  return true;
}
 
function pdf_getLinkedObjects(&$object, $outputlangs)
{
  global $db, $hookmanager;
 
  $linkedobjects = array();
 
  $object->fetchObjectLinked();
 
  foreach ($object->linkedObjects as $objecttype => $objects) {
    if ($objecttype == 'facture') {
      // For invoice, we don't want to have a reference line on document. Image we are using recurring invoice, we will have a line longer than document width.
    } elseif ($objecttype == 'propal' || $objecttype == 'supplier_proposal') {
      '@phan-var-force array<Propal|SupplierProposal> $objects';
      $outputlangs->load('propal');
 
      foreach ($objects as $elementobject) {
        $linkedobjects[$objecttype]['ref_title'] = $outputlangs->transnoentities("RefProposal");
        $linkedobjects[$objecttype]['ref_value'] = $outputlangs->transnoentities($elementobject->ref);
        $linkedobjects[$objecttype]['date_title'] = $outputlangs->transnoentities("DatePropal");
        $linkedobjects[$objecttype]['date_value'] = dol_print_date($elementobject->date, 'day', '', $outputlangs);
      }
    } elseif ($objecttype == 'commande' || $objecttype == 'supplier_order' || $objecttype == 'order_supplier') {
      $optiontohidelinkedorders = "PDF_HIDE_LINKED_ORDERS_ON_SAME_THIRDPARTY";
      if ($objecttype == 'supplier_order' || $objecttype == 'order_supplier') {
        $optiontohidelinkedorders = "PDF_HIDE_LINKED_PURCHASE_ORDERS_ON_SAME_THIRDPARTY";
      }
      '@phan-var-force array<Commande|CommandeFournisseur> $objects';
      $outputlangs->load('orders');
 
      if (count($objects) > 1 && count($objects) <= getDolGlobalInt("MAXREFONDOC", 10) && !getDolGlobalString($optiontohidelinkedorders)) {
        if (empty($object->context['DolPublicNoteAppendedGetLinkedObjects'])) { // Check if already appended before add to avoid repeat data
          $outputList = '';
          foreach ($objects as $elementobject) {
            if (canDisplayLinkedObjectInPDF($object, $elementobject)) {
              $outputList = dol_concatdesc($outputList, $outputlangs->transnoentities($elementobject->ref) . (empty($elementobject->ref_client) ? '' : ' (' . $elementobject->ref_client . ')') . (empty($elementobject->ref_supplier) ? '' : ' (' . $elementobject->ref_supplier . ')') . ' ');
              $outputList = dol_concatdesc($outputList, $outputlangs->transnoentities("OrderDate") . ' : ' . dol_print_date($elementobject->date, 'day', '', $outputlangs));
            }
          }
 
          if (!empty($outputList)) {
            $object->note_public = dol_concatdesc($object->note_public, $outputlangs->transnoentities("RefOrder").' :');
            $object->note_public = dol_concatdesc($object->note_public, $outputList);
          }
        }
      } elseif (count($objects) == 1 && !getDolGlobalString($optiontohidelinkedorders)) {
        $elementobject = array_shift($objects);
        if (canDisplayLinkedObjectInPDF($object, $elementobject)) {
          $linkedobjects[$objecttype]['ref_title'] = $outputlangs->transnoentities("RefOrder");
          $linkedobjects[$objecttype]['ref_value'] = $outputlangs->transnoentities($elementobject->ref).(!empty($elementobject->ref_client) ? ' ('.$elementobject->ref_client.')' : '').(!empty($elementobject->ref_supplier) ? ' ('.$elementobject->ref_supplier.')' : '');
          $linkedobjects[$objecttype]['date_title'] = $outputlangs->transnoentities("OrderDate");
          $linkedobjects[$objecttype]['date_value'] = dol_print_date($elementobject->date, 'day', '', $outputlangs);
        }
      }
    } elseif ($objecttype == 'contrat') {
      '@phan-var-force Contrat[] $objects';
      $outputlangs->load('contracts');
      foreach ($objects as $elementobject) {
        if (canDisplayLinkedObjectInPDF($object, $elementobject)) {
          $linkedobjects[$objecttype]['ref_title'] = $outputlangs->transnoentities("RefContract");
          $linkedobjects[$objecttype]['ref_value'] = $outputlangs->transnoentities($elementobject->ref);
          $linkedobjects[$objecttype]['date_title'] = $outputlangs->transnoentities("DateContract");
          $linkedobjects[$objecttype]['date_value'] = dol_print_date($elementobject->date_contrat, 'day', '', $outputlangs);
        }
      }
    } elseif ($objecttype == 'fichinter') {
      '@phan-var-force Fichinter[] $objects';
      $outputlangs->load('interventions');
      foreach ($objects as $elementobject) {
        if (canDisplayLinkedObjectInPDF($object, $elementobject)) {
          $linkedobjects[$objecttype]['ref_title'] = $outputlangs->transnoentities("InterRef");
          $linkedobjects[$objecttype]['ref_value'] = $outputlangs->transnoentities($elementobject->ref);
          $linkedobjects[$objecttype]['date_title'] = $outputlangs->transnoentities("InterDate");
          $linkedobjects[$objecttype]['date_value'] = dol_print_date($elementobject->datec, 'day', '', $outputlangs);
        }
      }
    } elseif ($objecttype == 'shipping') {
      '@phan-var-force Expedition[] $objects';
      $outputlangs->loadLangs(array("orders", "sendings"));
 
      if (count($objects) > 1) {
        $order = null;
 
        $refListsTxt = '';
        if (empty($object->linkedObjects['commande']) && $object->element != 'commande') {
          $refListsTxt .= $outputlangs->transnoentities("RefOrder").' / '.$outputlangs->transnoentities("RefSending").' :';
        } else {
          $refListsTxt .= $outputlangs->transnoentities("RefSending").' :';
        }
        // We concat this record info into fields xxx_value. title is overwrote.
        foreach ($objects as $elementobject) {
          if (empty($object->linkedObjects['commande']) && $object->element != 'commande') {    // There is not already a link to order and object is not the order, so we show also info with order
            $elementobject->fetchObjectLinked(null, '', null, '', 'OR', 1, 'sourcetype', 0);
            if (!empty($elementobject->linkedObjectsIds['commande'])) {
              include_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
              $order = new Commande($db);
              $ret = $order->fetch(reset($elementobject->linkedObjectsIds['commande']));
              if ($ret < 1) {
                $order = null;
              }
            }
          }
          $refListsTxt .= (!empty($refListsTxt) ? ' ' : '');
          if (! is_object($order)) {
            $refListsTxt .= $outputlangs->transnoentities($elementobject->ref);
          } else {
            $refListsTxt .= $outputlangs->convToOutputCharset($order->ref).($order->ref_client ? ' ('.$order->ref_client.')' : '');
            $refListsTxt .= ' / '.$outputlangs->transnoentities($elementobject->ref);
          }
        }
 
        if (empty($object->context['DolPublicNoteAppendedGetLinkedObjects']) && !getDolGlobalString("PDF_HIDE_LINKED_OBJECT_IN_PUBLIC_NOTE")) { // Check if already appended before add to avoid repeat data
          $object->note_public = dol_concatdesc($object->note_public, $refListsTxt);
        }
      } elseif (count($objects) == 1) {
        $elementobject = array_shift($objects);
        $order = null;
        // We concat this record info into fields xxx_value. title is overwrote.
        if (empty($object->linkedObjects['commande']) && $object->element != 'commande') {    // There is not already a link to order and object is not the order, so we show also info with order
          $elementobject->fetchObjectLinked(null, '', null, '', 'OR', 1, 'sourcetype', 0);
          if (!empty($elementobject->linkedObjectsIds['commande'])) {
            include_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
            $order = new Commande($db);
            $ret = $order->fetch(reset($elementobject->linkedObjectsIds['commande']));
            if ($ret < 1) {
              $order = null;
            }
          }
        }
 
        if (! is_object($order)) {
          $linkedobjects[$objecttype]['ref_title'] = $outputlangs->transnoentities("RefSending");
          if (empty($linkedobjects[$objecttype]['ref_value'])) {
            $linkedobjects[$objecttype]['ref_value'] = '';
          } else {
            $linkedobjects[$objecttype]['ref_value'] .= ' / ';
          }
          $linkedobjects[$objecttype]['ref_value'] .= $outputlangs->transnoentities($elementobject->ref);
          $linkedobjects[$objecttype]['date_value'] = dol_print_date(empty($elementobject->date_shipping) ? $elementobject->date_delivery : $elementobject->date_shipping, 'day', '', $outputlangs);
        } else {
          $linkedobjects[$objecttype]['ref_title'] = $outputlangs->transnoentities("RefOrder").' / '.$outputlangs->transnoentities("RefSending");
          if (empty($linkedobjects[$objecttype]['ref_value'])) {
            $linkedobjects[$objecttype]['ref_value'] = $outputlangs->convToOutputCharset($order->ref).($order->ref_client ? ' ('.$order->ref_client.')' : '');
          }
          $linkedobjects[$objecttype]['ref_value'] .= ' / '.$outputlangs->transnoentities($elementobject->ref);
          $linkedobjects[$objecttype]['date_value'] = dol_print_date(empty($elementobject->date_shipping) ? $elementobject->date_delivery : $elementobject->date_shipping, 'day', '', $outputlangs);
        }
      }
    }
  }
 
  $object->context['DolPublicNoteAppendedGetLinkedObjects'] = 1;
 
  // For add external linked objects
  if (is_object($hookmanager)) {
    $parameters = array('linkedobjects' => $linkedobjects, 'outputlangs' => $outputlangs);
    $action = '';
    $reshook = $hookmanager->executeHooks('pdf_getLinkedObjects', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
    if (empty($reshook)) {
      $linkedobjects = array_replace($linkedobjects, $hookmanager->resArray); // array_replace is used to preserve keys
    } elseif ($reshook > 0) {
      // The array must be reinserted even if it is empty because clearing the array could be one of the actions performed by the hook.
      $linkedobjects = $hookmanager->resArray;
    }
  }
 
  return $linkedobjects;
}
 
function pdf_getSizeForImage($realpath)
{
  $maxwidth = getDolGlobalInt('MAIN_DOCUMENTS_WITH_PICTURE_WIDTH', 20);
  $maxheight = getDolGlobalInt('MAIN_DOCUMENTS_WITH_PICTURE_HEIGHT', 32);
 
  include_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
  $tmp = dol_getImageSize($realpath);
  $width = 0;
  $height = 0;
  if ($tmp['height']) {
    $width = (int) round($maxheight * $tmp['width'] / $tmp['height']); // I try to use maxheight
    if ($width > $maxwidth) { // Pb with maxheight, so i use maxwidth
      $width = $maxwidth;
      $height = (int) round($maxwidth * $tmp['height'] / $tmp['width']);
    } else { // No pb with maxheight
      $height = $maxheight;
    }
  }
  return array('width' => $width, 'height' => $height);
}
 
function pdfGetLineTotalDiscountAmount($object, $i, $outputlangs, $hidedetails = 0, $multicurrency = 0)
{
  global $hookmanager;
 
  $sign = 1;
  if (isset($object->type) && $object->type == 2 && getDolGlobalString('INVOICE_POSITIVE_CREDIT_NOTE')) {
    $sign = -1;
  }
  if ($object->lines[$i]->special_code == 3) {
    // If option
    return $outputlangs->transnoentities("Option");
  } else {
    if (is_object($hookmanager)) {
      $special_code = $object->lines[$i]->special_code;
      if (!empty($object->lines[$i]->fk_parent_line)) {
        $special_code = $object->getSpecialCode($object->lines[$i]->fk_parent_line);
      }
 
      $parameters = array(
        'i' => $i,
        'outputlangs' => $outputlangs,
        'hidedetails' => $hidedetails,
        'special_code' => $special_code,
        'multicurrency' => $multicurrency
      );
 
      $action = '';
 
      if ($hookmanager->executeHooks('getlinetotalremise', $parameters, $object, $action) > 0) {  // Note that $action and $object may have been modified by some hooks
        if (isset($hookmanager->resArray['linetotalremise'])) {
          return (float) $hookmanager->resArray['linetotalremise'];
        } else {
          return (float) $hookmanager->resPrint;  // For backward compatibility
        }
      }
    }
 
    if (empty($hidedetails) || $hidedetails > 1) {
      if (empty($multicurrency)) {
        $diff = (float) price2num($sign * $object->lines[$i]->subprice * (float) $object->lines[$i]->qty, 'MT', 1) - $object->lines[$i]->total_ht;
        return (float) price2num($diff, 'MT', 1);
      } else {
        $diff = (float) price2num($sign * $object->lines[$i]->multicurrency_subprice * (float) $object->lines[$i]->qty, 'MT', 1) - $object->lines[$i]->multicurrency_total_ht;
        return (float) price2num($diff, 'MT', 1);
      }
    }
  }
  return 0;
}
 
function pdfExtractMetadata($file, $field = 'Keywords')
{
  if (!dol_is_file($file)) {
    return "ERROR: FILE NOT FOUND OR NOT VALID";
  }
 
  // Get content of PDF file
  $content = file_get_contents(dol_osencode($file));
 
  // Use a regex to capture the metadata
  if ($content) {
    $matches = array();
 
    // Remove non printablecaracters
    $content = preg_replace('/[^(\x20-\x7F)]*/', '', $content);
    if (preg_match('/\/' . preg_quote($field, '/') . '\s*\‍((.*?)\‍)/', $content, $matches)) {
      return trim($matches[1]);
    }
    return "ERROR: NOT FOUND";
  } else {
    return "ERROR: FAILED TO READ PDF";
  }
}
 
function pdf_render_subtotals(
  TCPDF              $pdf,
  CommonDocGenerator $generator,
  float              $curY,
  CommonObject       $object,
  int                $i,
  Translate          $outputlangs,
  int                $hideref,
  int                $hidedesc,
  array              $bgColor,
  bool               $isSubtotal = false,
  bool               $applySubtotalLogic = true
) {
  $savePage = $pdf->getPage();
  $saveX = $pdf->GetX();
  $prevAlign = $generator->cols['desc']['content']['align'];
 
  if ($isSubtotal && $applySubtotalLogic && $object->lines[$i]->qty < 0) {
    $outputlangs->load("subtotals");
    $object->lines[$i]->desc = getDolGlobalString("SUBTOTAL_LINE_TEXT_DOES_NOT_INCLUDE_TITLE_TEXT") ? $outputlangs->trans("SubTotal") : $outputlangs->trans("SubtotalOf", $object->lines[$i]->desc);
    $generator->cols['desc']['content']['align'] = ($prevAlign === 'L') ? 'R' : 'L';
  }
 
  $pdf->startTransaction();
  $pdf->SetXY($saveX, $curY);
  $generator->printColDescContent($pdf, $curY, 'desc', $object, $i, $outputlangs, $hideref, $hidedesc);
  $pageAfter = $pdf->getPage();
  $yAfter = $pdf->GetY();
  $pdf->rollbackTransaction(true);
 
  $pdf->SetFillColor($bgColor[0], $bgColor[1], $bgColor[2]);
  $width = $generator->page_largeur - $generator->marge_droite - $generator->marge_gauche;
 
  $pdf->SetXY($generator->marge_gauche, $curY);
  if ($pageAfter === $savePage) {
    $pdf->MultiCell($width, max(0, $yAfter - $curY), '', 0, '', true);
  } else {
    $pdf->MultiCell($width, $pdf->getPageHeight() - $pdf->getBreakMargin() - $curY, '', 0, '', true);
 
    // The page reached by the measuring pass above was discarded along with
    // the transaction, and the MultiCell only recreates it when some room was
    // left to fill. A line starting below the break margin leaves none, so
    // the page must be added before it can be selected.
    while ($pdf->getNumPages() < $pageAfter) {
      $pdf->AddPage();
    }
    $pdf->setPage($pageAfter);
    $pdf->SetXY($generator->marge_gauche, $pdf->getMargins()['top']);
    $pdf->MultiCell($width, max(0, $yAfter - $pdf->getMargins()['top']), '', 0, '', true);
 
    $pdf->setPage($savePage);
  }
 
  $pdf->SetTextColor(colorIsLight(implode(',', $bgColor)));
  $pdf->SetXY($saveX, $curY);
  $generator->printColDescContent($pdf, $curY, 'desc', $object, $i, $outputlangs, $hideref, $hidedesc);
  $generator->setAfterColsLinePositionsData('desc', $pdf->GetY(), $pdf->getPage());
 
  $generator->cols['desc']['content']['align'] = $prevAlign;
}