actions_massactions.inc.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2015-2025  Laurent Destailleur   <eldy@users.sourceforge.net>
 * Copyright (C) 2018-2021  Nicolas ZABOURI         <info@inovea-conseil.com>
 * Copyright (C) 2018       Juanjo Menent           <jmenent@2byte.es>
 * Copyright (C) 2019       Ferran Marcet           <fmarcet@2byte.es>
 * Copyright (C) 2019-2026  Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2024-2026  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/
 */
 
// $massaction must be defined
// $objectclass and $objectlabel must be defined
// $parameters, $object, $action must be defined for the hook.
 
// $permissiontoread, $permissiontoadd, $permissiontodelete, $permissiontoclose may be defined
// $uploaddir may be defined (example to $conf->project->dir_output."/";)
// $hidedetails, $hidedesc, $hideref and $moreparams may have been set or not.
// $toselect may be defined
// $diroutputmassaction may be defined
// $confirm
'
@phan-var-force int $error
@phan-var-force ?string $permissiontoadd
@phan-var-force ?string $permissiontoread
@phan-var-force ?string $permissiontodelete
@phan-var-force ?string $permissiontoclose
@phan-var-force ?string $permissiontoapprove
@phan-var-force ?int[] $toselect
@phan-var-force ?string $diroutputmassaction
@phan-var-force ?string $objectlabel
@phan-var-force ?string $option
@phan-var-force int $deliveryreceipt
@phan-var-force string $month
@phan-var-force string $year
@phan-var-force ?array<string,mixed> $moreparams
@phan-var-force ?string $search_status
@phan-var-force ?int $hidedetails
@phan-var-force ?int $hidedesc
@phan-var-force ?int $hideref
@phan-var-force string $confirm
';
 
 
// Protection
if (empty($objectclass) || empty($uploaddir)) {
  dol_print_error(null, 'include of actions_massactions.inc.php is done but var $objectclass or $uploaddir was not defined');
  exit;
}
if (empty($massaction)) {
  $massaction = '';
}
 
// Note: list of strings for objectclass could be extended to accepted/expected classes
'
@phan-var-force "CommonObject"|"CommandeFournisseur"|"ConferenceOrBoothAttendee"|"Contrat"|"Contact"|"Expedition"|"ExpenseReport"|"Facture"|"FactureFournisseur"|"Fichinter"|"Holiday"|"Partnership"|"Project"|"Propal"|"Societe"|"SupplierProposal" $objectclass
@phan-var-force string $massaction
@phan-var-force string $uploaddir
';
 
$TMsg = array();
 
// For backward compatibility
if (!empty($permtoread) && empty($permissiontoread)) {
  $permissiontoread = $permtoread;
}
if (!empty($permtocreate) && empty($permissiontoadd)) {
  $permissiontoadd = $permtocreate;
}
if (!empty($permtodelete) && empty($permissiontodelete)) {
  $permissiontodelete = $permtodelete;
}
 
// Mass actions. Controls on number of lines checked.
$maxformassaction = getDolGlobalInt('MAIN_LIMIT_FOR_MASS_ACTIONS', 1000);
if ($massaction && is_array($toselect) && count($toselect) < 1) {
  $error++;
  setEventMessages($langs->trans("NoRecordSelected"), null, "warnings");
}
if (!$error && isset($toselect) && is_array($toselect) && count($toselect) > $maxformassaction) {
  setEventMessages($langs->trans('TooManyRecordForMassAction', $maxformassaction), null, 'errors');
  $error++;
}
 
if (!$error && $massaction == 'confirm_presend' && !GETPOST('sendmail')) {  // If we do not choose button send (for example when we change template or limit), we must not send email, but keep on send email form
  $massaction = 'presend';
}
 
if (!$error && $massaction == 'confirm_presend') {
  $resaction = '';
  $nbsent = 0;
  $nbignored = 0;
  $langs->load("mails");
  include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
  include_once DOL_DOCUMENT_ROOT.'/core/lib/signature.lib.php';
 
  $listofobjectid = array();
  $listofobjectthirdparties = array();
  $listofobjectcontacts = array();
  $listofobjectref = array();
  $contactidtosend = array();
  $attachedfilesThirdpartyObj = array();
  $oneemailperrecipient = (GETPOSTINT('oneemailperrecipient') ? 1 : 0);
  $thirdparty = null;
 
  if (!$error) {
    $objecttmp = new $objectclass($db);
 
    // Define object $thirdparty (Societe or User, Adherent, ConferenceOrBoothAttendee...)
    $thirdparty = new Societe($db);
    if ($objecttmp->element == 'expensereport') {
      $thirdparty = new User($db);
    } elseif ($objecttmp->element == 'contact') {
      $thirdparty = new Contact($db);
    } elseif ($objecttmp->element == 'partnership' && getDolGlobalString('PARTNERSHIP_IS_MANAGED_FOR') == 'member') {
      $thirdparty = new Adherent($db);
    } elseif ($objecttmp->element == 'holiday') {
      $thirdparty = new User($db);
    } elseif ($objecttmp->element == 'conferenceorboothattendee') {
      $thirdparty = new ConferenceOrBoothAttendee($db);
    }
 
    foreach ($toselect as $toselectid) {
      $objecttmp = new $objectclass($db); // we must create new instance because instance is saved into $listofobjectref array for future use
      '@phan-var-force CommonObject $objecttmp';
      $result = $objecttmp->fetch($toselectid);
      if ($result > 0) {
        $listofobjectid[$toselectid] = $toselectid;
 
        // Set $tmpobjectid that is ID of parent object (thirdparty or user in most cases)
        $tmpobjectid = ($objecttmp->fk_soc ? $objecttmp->fk_soc : $objecttmp->socid);
        if ($objecttmp->element == 'societe') {
          '@phan-var-force Societe $objecttmp';
          $tmpobjectid = $objecttmp->id;
        } elseif ($objecttmp->element == 'contact') {
          '@phan-var-force Contact $objecttmp';
          $tmpobjectid = $objecttmp->id;
        } elseif ($objecttmp->element == 'expensereport') {
          '@phan-var-force ExpenseReport $objecttmp';
          $tmpobjectid = $objecttmp->fk_user_author;
        } elseif ($objecttmp->element == 'partnership' && getDolGlobalString('PARTNERSHIP_IS_MANAGED_FOR') == 'member') {
          '@phan-var-force Partnership $objecttmp';
          $tmpobjectid = $objecttmp->fk_member;
        } elseif ($objecttmp->element == 'holiday') {
          '@phan-var-force Holiday $objecttmp';
          $tmpobjectid = $objecttmp->fk_user;
        } elseif ($objecttmp->element == 'conferenceorboothattendee') {
          '@phan-var-force ConferenceOrBoothAttendee $objecttmp';
          $tmpobjectid = $objecttmp->id;
        }
        if (empty($tmpobjectid)) {
          $tmpobjectid = 0;
        }
 
        if ($objectclass == 'Facture') {
          '@phan-var-force Facture $objecttmp';
          $tmparraycontact = array();
          $tmparraycontact = $objecttmp->liste_contact(-1, 'external', 0, 'BILLING');
          if (is_array($tmparraycontact) && count($tmparraycontact) > 0) {
            foreach ($tmparraycontact as $data_email) {
              $listofobjectcontacts[$toselectid][$data_email['id']] = $data_email['email'];
            }
          }
        } elseif ($objectclass == 'CommandeFournisseur') {
          '@phan-var-force CommandeFournisseur $objecttmp';
          $tmparraycontact = array();
          $tmparraycontact = $objecttmp->liste_contact(-1, 'external', 0, 'CUSTOMER');
          if (is_array($tmparraycontact) && count($tmparraycontact) > 0) {
            foreach ($tmparraycontact as $data_email) {
              $listofobjectcontacts[$toselectid][$data_email['id']] = $data_email['email'];
            }
          }
        }
 
        $listofobjectthirdparties[$tmpobjectid] = $tmpobjectid;
        $listofobjectref[$tmpobjectid][$toselectid] = $objecttmp;
      }
    }
  }
 
  // Check mandatory parameters
  if (GETPOST('fromtype', 'alpha') === 'user' && empty($user->email)) {
    $error++;
    setEventMessages($langs->trans("NoSenderEmailDefined"), null, 'warnings');
    $massaction = 'presend';
  }
 
  $receiver = GETPOST('receiver', 'alphawithlgt');
  if (!is_array($receiver)) {
    if (empty($receiver) || $receiver == '-1') {
      $receiver = array();
    } else {
      $receiver = array($receiver);
    }
  }
  if (!trim(GETPOST('sendto', 'alphawithlgt')) && count($receiver) == 0 && count($listofobjectthirdparties) == 1) { // if only one recipient, receiver is mandatory
    $error++;
    setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("MailRecipient")), null, 'warnings');
    $massaction = 'presend';
  }
 
  if (!GETPOST('subject', 'restricthtml')) {
    $error++;
    setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("MailTopic")), null, 'warnings');
    $massaction = 'presend';
  }
 
  // Loop on each recipient (may be a thirdparty but also a user, a conferenceorboothattendee, ...)
  if (!$error) {
    foreach ($listofobjectthirdparties as $thirdpartyid) {
      $result = $thirdparty->fetch($thirdpartyid);
      if ($result < 0) {
        dol_print_error($db);
        exit;
      }
 
      $sendto = '';
      $sendtocc = '';
      $sendtobcc = '';
      //$sendtoid = array();
 
      // Define $sendto
      $tmparray = array();
      if (trim(GETPOST('sendto', 'alphawithlgt'))) {
        // Recipients are provided into free text
        $tmparray[] = trim(GETPOST('sendto', 'alphawithlgt'));
      }
      if (count($receiver) > 0 && is_object($thirdparty)) {
        foreach ($receiver as $key => $val) {
          // Recipient was provided from combo list
          if ($val == 'thirdparty') { // Id of third party or user
            $tmparray[] = $thirdparty->name.' <'.$thirdparty->email.'>';
          } elseif ($val && method_exists($thirdparty, 'contact_get_property')) {   // Id of contact
            $tmparray[] = $thirdparty->contact_get_property((int) $val, 'email');
            //$sendtoid[] = $val;
          }
        }
      }
      $sendto = implode(',', $tmparray);
 
      // Define $sendtocc
      $receivercc = GETPOST('receivercc', 'alphawithlgt');
      if (!is_array($receivercc)) {
        if ($receivercc == '-1') {
          $receivercc = array();
        } else {
          $receivercc = array($receivercc);
        }
      }
      $tmparray = array();
      if (trim(GETPOST('sendtocc', 'alphawithlgt'))) {
        $tmparray[] = trim(GETPOST('sendtocc', 'alphawithlgt'));
      }
      if (count($receivercc) > 0) {
        foreach ($receivercc as $key => $val) {
          // Recipient was provided from combo list
          if ($val == 'thirdparty') { // Id of third party
            $tmparray[] = $thirdparty->name.' <'.$thirdparty->email.'>';
          } elseif ($val) { // Id du contact
            $tmparray[] = $thirdparty->contact_get_property((int) $val, 'email');
            //$sendtoid[] = $val;  TODO Add also id of contact in CC ?
          }
        }
      }
      $sendtocc = implode(',', $tmparray);
 
      //var_dump($listofobjectref);exit;
      $listofqualifiedobj = array();
      $listofqualifiedref = array();
      $thirdpartywithoutemail = array();
 
      foreach ($listofobjectref[$thirdpartyid] as $objectid => $objectobj) {
        //var_dump($thirdpartyid.' - '.$objectid.' - '.$objectobj->statut);
        // Honour the same per-object hidden constants used by the "Send by email"
        // button on the card pages (comm/propal/card.php, commande/card.php,
        // compta/facture/card.php) so the behaviour is consistent between the
        // single-object action and the mass action.
        if ($objectclass == 'Propal' && $objectobj->status == Propal::STATUS_DRAFT && !getDolGlobalString('PROPOSAL_SENDBYEMAIL_FOR_ALL_STATUS')) {
          $langs->load("errors");
          $nbignored++;
          $resaction .= '<div class="error">'.$langs->trans('ErrorOnlyProposalNotDraftCanBeSentInMassAction', $objectobj->ref).'</div><br>';
          continue; // Payment done or started or canceled
        }
        if ($objectclass == 'Commande' && $objectobj->status == Commande::STATUS_DRAFT && !getDolGlobalString('COMMANDE_SENDBYEMAIL_FOR_ALL_STATUS')) {
          $langs->load("errors");
          $nbignored++;
          $resaction .= '<div class="error">'.$langs->trans('ErrorOnlyOrderNotDraftCanBeSentInMassAction', $objectobj->ref).'</div><br>';
          continue;
        }
        if ($objectclass == 'Facture' && $objectobj->status == Facture::STATUS_DRAFT && !getDolGlobalString('FACTURE_SENDBYEMAIL_FOR_ALL_STATUS')) {
          $langs->load("errors");
          $nbignored++;
          $resaction .= '<div class="error">'.$langs->trans('ErrorOnlyInvoiceValidatedCanBeSentInMassAction', $objectobj->ref).'</div><br>';
          continue; // Payment done or started or canceled
        }
 
        // Test recipient
        if (empty($sendto)) {   // For the case, no recipient were set (multi thirdparties send)
          if ($objectobj->element == 'societe') {
            $sendto = $objectobj->email;
          } elseif ($objectobj->element == 'expensereport') {
            $fuser = new User($db);
            $fuser->fetch($objectobj->fk_user_author);
            $sendto = $fuser->email;
          } elseif ($objectobj->element == 'contact') {
            $fcontact = new Contact($db);
            $fcontact->fetch($objectobj->id);
            $sendto = $fcontact->email;
          } elseif ($objectobj->element == 'partnership' && getDolGlobalString('PARTNERSHIP_IS_MANAGED_FOR') == 'member') {
            $fadherent = new Adherent($db);
            $fadherent->fetch($objectobj->fk_member);
            $sendto = $fadherent->email;
          } elseif ($objectobj->element == 'holiday') {
            $fuser = new User($db);
            $fuser->fetch($objectobj->fk_user);
            $sendto = $fuser->email;
          } elseif ($objectobj->element == 'facture' && !empty($listofobjectcontacts[$objectid])) {
            $emails_to_sends = array();
            $objectobj->fetch_thirdparty();
            $contactidtosend = array();
            foreach ($listofobjectcontacts[$objectid] as $contactemailid => $contactemailemail) {
              $emails_to_sends[] = $objectobj->thirdparty->contact_get_property($contactemailid, 'email');
              if (!in_array($contactemailid, $contactidtosend)) {
                $contactidtosend[] = $contactemailid;
              }
            }
            if (count($emails_to_sends) > 0) {
              $sendto = implode(',', $emails_to_sends);
            }
          } elseif ($objectobj->element == 'order_supplier' && !empty($listofobjectcontacts[$objectid])) {
            $emails_to_sends = array();
            $objectobj->fetch_thirdparty();
            $contactidtosend = array();
            foreach ($listofobjectcontacts[$objectid] as $contactemailid => $contactemailemail) {
              $emails_to_sends[] = $objectobj->thirdparty->contact_get_property($contactemailid, 'email');
              if (!in_array($contactemailid, $contactidtosend)) {
                $contactidtosend[] = $contactemailid;
              }
            }
            if (count($emails_to_sends) > 0) {
              $sendto = implode(',', $emails_to_sends);
            }
          } elseif ($objectobj->element == 'conferenceorboothattendee') {
            $sendto = $objectobj->email;
          } else {
            $objectobj->fetch_thirdparty();
            $sendto = $objectobj->thirdparty->email;
          }
        }
 
        if (empty($sendto)) {
          if ($objectobj->element == 'societe') {
            $objectobj->thirdparty = $objectobj; // Hack so following code is compatible when objectobj is a thirdparty
          }
 
          // print "No recipient for thirdparty ".$objectobj->thirdparty->name;
          $nbignored++;
          if (empty($thirdpartywithoutemail[$objectobj->thirdparty->id])) {
            $resaction .= '<div class="error">'.$langs->trans('NoRecipientEmail', $objectobj->thirdparty->name).'</div><br>';
          }
          dol_syslog('No recipient for thirdparty: '.$objectobj->thirdparty->name, LOG_WARNING);
          $thirdpartywithoutemail[$objectobj->thirdparty->id] = 1;
          continue;
        }
 
        if (GETPOST('addmaindocfile')) {
          // TODO Use future field $objectobj->fullpathdoc to know where is stored default file
          // TODO If not defined, use $objectobj->model_pdf (or default invoice config) to know what is template to use to regenerate doc.
          $filename = dol_sanitizeFileName($objectobj->ref).'.pdf';
          $subdir = '';
          // TODO Set subdir to be compatible with multi levels dir trees
          // $subdir = get_exdir($objectobj->id, 2, 0, 0, $objectobj, $objectobj->element)
          $filedir = $uploaddir.'/'.$subdir.dol_sanitizeFileName($objectobj->ref);
          $filepath = $filedir.'/'.$filename;
 
          // For supplier invoices, we use the file provided by supplier, not the one we generate
          if ($objectobj->element == 'invoice_supplier') {
            $fileparams = dol_most_recent_file($uploaddir.'/'.get_exdir($objectobj->id, 2, 0, 0, $objectobj, $objectobj->element).$objectobj->ref, preg_quote($objectobj->ref, '/').'([^\-])+');
            $filepath = $fileparams['fullname'];
          }
 
          if (getDolGlobalInt('MAIL_MASS_ACTION_SEARCH_MOST_RECENT_FILE_IF_NOT_FOUND') && isset($filepath) && !dol_is_file($filepath)) {
            $fileparams = dol_most_recent_file($filedir, preg_quote($objectobj->ref, '/') . '([^\-])+' . (getDolGlobalInt('MAIN_ODT_AS_PDF') ? '\.pdf$' : ''));
            if (isset($fileparams)) {
              $filepath = $fileparams['fullname'];
              $filename = $fileparams['name'];
            }
          }
 
          // try to find other files generated for this object (last_main_doc)
          $filename_found = '';
          $filepath_found = '';
          $file_check_list = array();
          $file_check_list[] = array(
            'name' => $filename,
            'path' => $filepath,
          );
          if (getDolGlobalString('MAIL_MASS_ACTION_ADD_LAST_IF_MAIN_DOC_NOT_FOUND') && !empty($objectobj->last_main_doc)) {
            $file_check_list[] = array(
              'name' => basename($objectobj->last_main_doc),
              'path' => DOL_DATA_ROOT . '/' . $objectobj->last_main_doc,
            );
          }
          foreach ($file_check_list as $file_check_arr) {
            if (dol_is_file($file_check_arr['path'])) {
              $filename_found = $file_check_arr['name'];
              $filepath_found = $file_check_arr['path'];
              break;
            }
          }
 
          if ($filepath_found) {
            // Create form object
            $attachedfilesThirdpartyObj[$thirdpartyid][$objectid] = array(
              'paths' => array($filepath_found),
              'names' => array($filename_found),
              'mimes' => array(dol_mimetype($filepath_found))
            );
          } else {
            $nbignored++;
            $langs->load("errors");
            foreach ($file_check_list as $file_check_arr) {
              $resaction .= '<div class="error">'.$langs->trans('ErrorCantReadFile', $file_check_arr['path']).'</div><br>';
              dol_syslog('Failed to read file: '.$file_check_arr['path'], LOG_WARNING);
            }
            continue;
          }
        }
 
        // Object of thirdparty qualified, we add it
        $listofqualifiedobj[$objectid] = $objectobj;
        $listofqualifiedref[$objectid] = $objectobj->ref;
 
 
        //var_dump($listofqualifiedref);
      }
 
      // Send email if there is at least one qualified object for current thirdparty
      if (count($listofqualifiedobj) > 0) {
        $langs->load("commercial");
        $from = '';
 
        $reg = array();
        $fromtype = GETPOST('fromtype');
        if ($fromtype === 'user') {
          $from = dol_string_nospecial($user->getFullName($langs), ' ', array(",")).' <'.$user->email.'>';
        } elseif ($fromtype === 'company') {
          $from = getDolGlobalString('MAIN_INFO_SOCIETE_NOM') . ' <' . getDolGlobalString('MAIN_INFO_SOCIETE_MAIL').'>';
        } elseif (preg_match('/global_aliases_(\d+)/', $fromtype, $reg)) {
          $tmp = explode(',', getDolGlobalString('MAIN_INFO_SOCIETE_MAIL_ALIASES'));
          $from = trim($tmp[((int) $reg[1] - 1)]);
        } elseif (preg_match('/senderprofile_(\d+)_(\d+)/', $fromtype, $reg)) {
          $sql = "SELECT rowid, label, email FROM ".MAIN_DB_PREFIX."c_email_senderprofile WHERE rowid = ".(int) $reg[1];
          $resql = $db->query($sql);
          $obj = $db->fetch_object($resql);
          if ($obj) {
            $from = dol_string_nospecial($obj->label, ' ', array(",")).' <'.$obj->email.'>';
          }
        } else {
          $from = GETPOST('fromname').' <'.GETPOST('frommail').'>';
        }
 
        $replyto = $from;
        $subject = GETPOST('subject', 'restricthtml');
        $message = GETPOST('message', 'restricthtml');
 
        $sendtobcc = GETPOST('sendtoccc');
        if ($objectclass == 'Propal') {
          $sendtobcc .= (!getDolGlobalString('MAIN_MAIL_AUTOCOPY_PROPOSAL_TO') ? '' : (($sendtobcc ? ", " : "") . getDolGlobalString('MAIN_MAIL_AUTOCOPY_PROPOSAL_TO')));
        }
        if ($objectclass == 'Commande') {
          $sendtobcc .= (!getDolGlobalString('MAIN_MAIL_AUTOCOPY_ORDER_TO') ? '' : (($sendtobcc ? ", " : "") . getDolGlobalString('MAIN_MAIL_AUTOCOPY_ORDER_TO')));
        }
        if ($objectclass == 'Facture') {
          $sendtobcc .= (!getDolGlobalString('MAIN_MAIL_AUTOCOPY_INVOICE_TO') ? '' : (($sendtobcc ? ", " : "") . getDolGlobalString('MAIN_MAIL_AUTOCOPY_INVOICE_TO')));
        }
        if ($objectclass == 'SupplierProposal') {
          $sendtobcc .= (!getDolGlobalString('MAIN_MAIL_AUTOCOPY_SUPPLIER_PROPOSAL_TO') ? '' : (($sendtobcc ? ", " : "") . getDolGlobalString('MAIN_MAIL_AUTOCOPY_SUPPLIER_PROPOSAL_TO')));
        }
        if ($objectclass == 'CommandeFournisseur') {
          $sendtobcc .= (!getDolGlobalString('MAIN_MAIL_AUTOCOPY_SUPPLIER_ORDER_TO') ? '' : (($sendtobcc ? ", " : "") . getDolGlobalString('MAIN_MAIL_AUTOCOPY_SUPPLIER_ORDER_TO')));
        }
        if ($objectclass == 'FactureFournisseur') {
          $sendtobcc .= (!getDolGlobalString('MAIN_MAIL_AUTOCOPY_SUPPLIER_INVOICE_TO') ? '' : (($sendtobcc ? ", " : "") . getDolGlobalString('MAIN_MAIL_AUTOCOPY_SUPPLIER_INVOICE_TO')));
        }
        if ($objectclass == 'Project') {
          $sendtobcc .= (!getDolGlobalString('MAIN_MAIL_AUTOCOPY_PROJECT_TO') ? '' : (($sendtobcc ? ", " : "") . getDolGlobalString('MAIN_MAIL_AUTOCOPY_PROJECT_TO')));
        }
 
        // $listofqualifiedobj is array with key = object id and value is instance of qualified objects, for the current thirdparty (but thirdparty property is not loaded yet)
        // $looparray will be an array with number of email to send for the current thirdparty (so 1 or n if n object for same thirdparty)
        $looparray = array();
        if (!$oneemailperrecipient) {
          $looparray = $listofqualifiedobj;
          foreach ($looparray as $key => $objecttmp) {
            $looparray[$key]->thirdparty = $thirdparty; // Force thirdparty on object
          }
        } else {
          $objectforloop = new $objectclass($db);
          $objectforloop->thirdparty = $thirdparty; // Force thirdparty on object (even if object was not loaded)
          $looparray[0] = $objectforloop;
        }
        //var_dump($looparray);exit;
        dol_syslog("We have set an array of ".count($looparray)." emails to send. oneemailperrecipient=".$oneemailperrecipient);
        //var_dump($oneemailperrecipient); var_dump($listofqualifiedobj); var_dump($listofqualifiedref);
        foreach ($looparray as $objectid => $objecttmp) {   // $objecttmp is a real object or an empty object if we choose to send one email per thirdparty instead of one per object
          // Make substitution in email content
          if (isModEnabled('project') && method_exists($objecttmp, 'fetchProject') && is_null($objecttmp->project)) {
            $objecttmp->fetchProject();
          }
          $substitutionarray = getCommonSubstitutionArray($langs, 0, null, $objecttmp);
          $substitutionarray['__ID__']    = ($oneemailperrecipient ? implode(', ', array_keys($listofqualifiedobj)) : $objecttmp->id);
          $substitutionarray['__REF__']   = ($oneemailperrecipient ? implode(', ', $listofqualifiedref) : $objecttmp->ref);
          $substitutionarray['__EMAIL__'] = $thirdparty->email;
          $substitutionarray['__CHECK_READ__'] = '<img src="'.DOL_MAIN_URL_ROOT.'/public/emailing/mailing-read.php?tag=undefined&securitykey='.dol_hash(getDolGlobalString('MAILING_EMAIL_UNSUBSCRIBE_KEY')."-undefined", 'md5').'" width="1" height="1" style="width:1px;height:1px" border="0"/>';
 
          if ($oneemailperrecipient) {
            $substitutionarray['__ONLINE_PAYMENT_URL__'] = '';
            $substitutionarray['__ONLINE_PAYMENT_TEXT_AND_URL__'] = '';
          }
 
          $parameters = array('mode' => 'formemail');
 
          if (!empty($listofobjectthirdparties)) {
            $parameters['listofobjectthirdparties'] = $listofobjectthirdparties;
          }
          if (!empty($listofobjectref)) {
            $parameters['listofobjectref'] = $listofobjectref;
          }
 
          complete_substitutions_array($substitutionarray, $langs, $objecttmp, $parameters);
 
          $subjectreplaced = make_substitutions($subject, $substitutionarray);
          $messagereplaced = make_substitutions($message, $substitutionarray);
 
          $attachedfiles = array('paths' => array(), 'names' => array(), 'mimes' => array());
          if ($oneemailperrecipient) {
            // if "one email per recipient" is check we must collate $attachedfiles by thirdparty
            if (is_array($attachedfilesThirdpartyObj[$thirdparty->id]) && count($attachedfilesThirdpartyObj[$thirdparty->id])) {  // @phpstan-ignore-line
              foreach ($attachedfilesThirdpartyObj[$thirdparty->id] as $keyObjId => $objAttachedFiles) {
                // Create form object
                $attachedfiles = array(
                  'paths' => array_merge($attachedfiles['paths'], $objAttachedFiles['paths']),
                  'names' => array_merge($attachedfiles['names'], $objAttachedFiles['names']),
                  'mimes' => array_merge($attachedfiles['mimes'], $objAttachedFiles['mimes'])
                );
              }
            }
          } elseif (!empty($attachedfilesThirdpartyObj[$thirdparty->id][$objectid])) {
            // Create form object
            // if "one email per recipient" isn't check we must separate $attachedfiles by object
            $attachedfiles = $attachedfilesThirdpartyObj[$thirdparty->id][$objectid];
          }
 
          $filepath = $attachedfiles['paths'];
          $filename = $attachedfiles['names'];
          $mimetype = $attachedfiles['mimes'];
 
          // Define the trackid when emails sent from the mass action
          if ($oneemailperrecipient) {
            $trackid = 'thi'.$thirdparty->id;
            if ($objecttmp->element == 'expensereport') {
              $trackid = 'use'.$thirdparty->id;
            } elseif ($objecttmp->element == 'contact') {
              $trackid = 'ctc'.$thirdparty->id;
            } elseif ($objecttmp->element == 'holiday') {
              $trackid = 'use'.$thirdparty->id;
            }
          } else {
            $trackid = strtolower(get_class($objecttmp));
            if (get_class($objecttmp) == 'Contact') {
              $trackid = 'ctc';
            } elseif (get_class($objecttmp) == 'Contrat') {
              $trackid = 'con';
            } elseif (get_class($objecttmp) == 'Propal') {
              $trackid = 'pro';
            } elseif (get_class($objecttmp) == 'Commande') {
              $trackid = 'ord';
            } elseif (get_class($objecttmp) == 'Facture') {
              $trackid = 'inv';
            } elseif (get_class($objecttmp) == 'SupplierProposal') {
              $trackid = 'spr';
            } elseif (get_class($objecttmp) == 'CommandeFournisseur') {
              $trackid = 'sor';
            } elseif (get_class($objecttmp) == 'FactureFournisseur') {
              $trackid = 'sin';
            }
 
            $trackid .= $objecttmp->id;
          }
          //var_dump($filepath);
          //var_dump($trackid);exit;
          //var_dump($subjectreplaced);
 
          if (empty($sendcontext)) {
            $sendcontext = 'standard';
          }
 
          // Set tmp user directory (used to convert images embedded as img src=data:image)
          $vardir = $conf->user->dir_output."/".$user->id;
          $upload_dir_tmp = $vardir.'/temp'; // TODO Add $keytoavoidconflict in upload_dir path
 
          // Send mail (substitutionarray must be done just before this)
          require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
          $mailfile = new CMailFile($subjectreplaced, (string) $sendto, $from, $messagereplaced, $filepath, $mimetype, $filename, $sendtocc, $sendtobcc, (int) $deliveryreceipt, -1, '', '', $trackid, '', $sendcontext, '', $upload_dir_tmp);
          if ($mailfile->error) {
            $resaction .= '<div class="error">'.$mailfile->error.'</div>';
          } else {
            $result = $mailfile->sendfile();
            if ($result > 0) {
              $resaction .= $langs->trans('MailSuccessfulySent', $mailfile->getValidAddress($mailfile->addr_from, 2), $mailfile->getValidAddress($mailfile->addr_to, 2)).'<br>'; // Must not contain "
 
              $error = 0;
 
              // Insert logs into agenda
              foreach ($listofqualifiedobj as $objid2 => $objectobj2) {
                if ((!$oneemailperrecipient) && $objid2 != $objectid) {
                  continue; // We discard this pass to avoid duplicate with other pass in looparray at higher level
                }
 
                dol_syslog("Try to insert email event into agenda for objid=".$objid2." => objectobj=".get_class($objectobj2));
 
                /*if ($objectclass == 'Propale') $actiontypecode='AC_PROP';
                if ($objectclass == 'Commande') $actiontypecode='AC_COM';
                if ($objectclass == 'Facture') $actiontypecode='AC_FAC';
                if ($objectclass == 'SupplierProposal') $actiontypecode='AC_SUP_PRO';
                if ($objectclass == 'CommandeFournisseur') $actiontypecode='AC_SUP_ORD';
                if ($objectclass == 'FactureFournisseur') $actiontypecode='AC_SUP_INV';*/
 
                $actionmsg = $langs->transnoentities('MailSentByTo', $from, (string) $sendto);
                if ($message) {
                  if ($sendtocc) {
                    $actionmsg = dol_concatdesc($actionmsg, $langs->transnoentities('Bcc').": ".$sendtocc);
                  }
                  $actionmsg = dol_concatdesc($actionmsg, $langs->transnoentities('MailTopic').": ".$subjectreplaced);
                  $actionmsg = dol_concatdesc($actionmsg, $langs->transnoentities('TextUsedInTheMessageBody').":");
                  $actionmsg = dol_concatdesc($actionmsg, $messagereplaced);
                }
                $actionmsg2 = '';
 
                // Initialisation donnees
                $objectobj2->sendtoid = (empty($contactidtosend) ? 0 : $contactidtosend);
                $objectobj2->actionmsg = $actionmsg; // Long text
                $objectobj2->actionmsg2 = $actionmsg2; // Short text
                $objectobj2->fk_element = $objid2;
                $objectobj2->elementtype = $objectobj2->element;
                if (getDolGlobalString('MAIN_MAIL_REPLACE_EVENT_TITLE_BY_EMAIL_SUBJECT')) {
                  $objectobj2->actionmsg2 = $subjectreplaced; // Short text
                }
 
                $triggername = strtoupper(get_class($objectobj2)).'_SENTBYMAIL';
                if ($triggername == 'SOCIETE_SENTBYMAIL') {
                  $triggername = 'COMPANY_SENTBYMAIL';
                }
                if ($triggername == 'CONTRAT_SENTBYMAIL') {
                  $triggername = 'CONTRACT_SENTBYMAIL';
                }
                if ($triggername == 'COMMANDE_SENTBYMAIL') {
                  $triggername = 'ORDER_SENTBYMAIL';
                }
                if ($triggername == 'FACTURE_SENTBYMAIL') {
                  $triggername = 'BILL_SENTBYMAIL';
                }
                if ($triggername == 'EXPEDITION_SENTBYMAIL') {
                  $triggername = 'SHIPPING_SENTBYMAIL';
                }
                if ($triggername == 'COMMANDEFOURNISSEUR_SENTBYMAIL') {
                  $triggername = 'ORDER_SUPPLIER_SENTBYMAIL';
                }
                if ($triggername == 'FACTUREFOURNISSEUR_SENTBYMAIL') {
                  $triggername = 'BILL_SUPPLIER_SENTBYMAIL';
                }
                if ($triggername == 'SUPPLIERPROPOSAL_SENTBYMAIL') {
                  $triggername = 'PROPOSAL_SUPPLIER_SENTBYMAIL';
                }
                if ($triggername == 'PROJET_SENTBYMAIL') {
                  $triggername = 'PROJECT_SENTBYMAIL';
                }
 
                if (!empty($triggername)) {
                  // Call trigger
                  $result = $objectobj2->call_trigger($triggername, $user);
                  if ($result < 0) {
                    $error++;
                  }
                  // End call triggers
 
                  if ($error) {
                    setEventMessages($db->lasterror(), null, 'errors');
                    dol_syslog("Error in trigger ".$triggername.' '.$db->lasterror(), LOG_ERR);
                  }
                }
 
                $nbsent++; // Nb of object sent
              }
            } else {
              $langs->load("other");
              if ($mailfile->error) {
                $resaction .= $langs->trans('ErrorFailedToSendMail', $from, (string) $sendto);
                $resaction .= '<br><div class="error">'.$mailfile->error.'</div>';
              } elseif (getDolGlobalString('MAIN_DISABLE_ALL_MAILS')) {
                $resaction .= '<div class="warning">No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS</div>';
              } else {
                $resaction .= $langs->trans('ErrorFailedToSendMail', $from, (string) $sendto) . '<br><div class="error">(unhandled error)</div>';
              }
            }
          }
        }
      }
    }
 
    $resaction .= ($resaction ? '<br>' : $resaction);
    $resaction .= '<strong>'.$langs->trans("ResultOfMailSending").':</strong><br>'."\n";
    $resaction .= $langs->trans("NbSelected").': '.count($toselect)."\n<br>";
    $resaction .= $langs->trans("NbIgnored").': '.($nbignored ? $nbignored : 0)."\n<br>";
    $resaction .= $langs->trans("NbSent").': '.($nbsent ? $nbsent : 0)."\n<br>";
 
    if ($nbsent) {
      $action = ''; // Do not show form post if there was at least one successful sent
      //setEventMessages($langs->trans("EMailSentToNRecipients", $nbsent.'/'.count($toselect)), null, 'mesgs');
      setEventMessages($langs->trans("EMailSentForNElements", $nbsent.'/'.count($toselect)), null, 'mesgs');
      setEventMessages($resaction, null, 'mesgs');
    } else {
      //setEventMessages($langs->trans("EMailSentToNRecipients", 0), null, 'warnings');  // May be object has no generated PDF file
      setEventMessages($resaction, null, 'warnings');
    }
 
    $action = 'list';
    $massaction = '';
  }
}
 
 
if (!$error && $massaction == 'cancelorders') {
  $db->begin();
 
  $nbok = 0;
 
  $orders = GETPOST('toselect', 'array:int');
  foreach ($orders as $id_order) {
    $cmd = new Commande($db);
    if ($cmd->fetch($id_order) <= 0) {
      continue;
    }
 
    if ($cmd->status != Commande::STATUS_VALIDATED) {
      $langs->load('errors');
      setEventMessages($langs->trans("ErrorObjectMustHaveStatusValidToBeCanceled", $cmd->ref), null, 'errors');
      $error++;
      break;
    } else {
      // TODO We do not provide warehouse so no stock change here for the moment.
      $result = $cmd->cancel($user);
    }
 
    if ($result < 0) {
      setEventMessages($cmd->error, $cmd->errors, 'errors');
      $error++;
      break;
    } else {
      $nbok++;
    }
  }
  if (!$error) {
    setEventMessages($langs->trans("RecordsModified", $nbok), null, 'mesgs');
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
 
if (!$error && $massaction == "builddoc" && $permissiontoread && !GETPOST('button_search')) {
  if (empty($diroutputmassaction)) {
    dol_print_error(null, 'include of actions_massactions.inc.php is done but var $diroutputmassaction was not defined');
    exit;
  }
 
  require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
  require_once DOL_DOCUMENT_ROOT.'/core/lib/pdf.lib.php';
  require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
 
  $objecttmp = new $objectclass($db);
  $listofobjectid = array();
  $listofobjectthirdparties = array();
  $listofobjectref = array();
  foreach ($toselect as $toselectid) {
    $objecttmp = new $objectclass($db); // must create new instance because instance is saved into $listofobjectref array for future use
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      $listofobjectid[$toselectid] = $toselectid;
      $thirdpartyid = !empty($objecttmp->fk_soc) ? $objecttmp->fk_soc : $objecttmp->socid;
      $listofobjectthirdparties[$thirdpartyid] = $thirdpartyid;
      $listofobjectref[$toselectid] = $objecttmp->ref;
    }
  }
 
  $arrayofinclusion = array();
  $parameters = array(
    'listofobjectref' => $listofobjectref,
    'arrayofinclusion' => &$arrayofinclusion,
  );
  $reshook = $hookmanager->executeHooks('updateSearchRegexToMergeDoc', $parameters, $object, $action);
 
  if (empty($reshook)) {
    foreach ($listofobjectref as $tmppdf) {
      $arrayofinclusion[] = '^'.preg_quote(dol_sanitizeFileName($tmppdf), '/').'\.pdf$';
    }
    foreach ($listofobjectref as $tmppdf) {
      $arrayofinclusion[] = '^'.preg_quote(dol_sanitizeFileName($tmppdf), '/').'_[\w\-\'\&\.]+\.pdf$'; // To include PDF generated from ODX files
    }
  }
 
  $listoffiles = dol_dir_list($uploaddir, 'all', 1, $arrayofinclusion, '\.meta$|\.png$', 'date', SORT_DESC, 0, 1);
 
  dol_syslog("Found ".count($listoffiles)." files");
 
  // build list of files with full path
  $files = array();
 
  foreach ($listofobjectref as $basename) {
    $basename = dol_sanitizeFileName($basename);
    foreach ($listoffiles as $filefound) {
      if (strstr($filefound["name"], $basename)) {
        $files[] = $filefound['fullname'];
        break;
      }
    }
  }
 
  // Define output language (Here it is not used because we do only merging existing PDF)
  $outputlangs = $langs;
  $newlang = '';
  if (getDolGlobalInt('MAIN_MULTILANGS') /* && empty($newlang) */ && GETPOST('lang_id', 'aZ09')) {
    $newlang = GETPOST('lang_id', 'aZ09');
  }
  //elseif (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && is_object($objecttmp->thirdparty)) {   // On massaction, we can have several values for $objecttmp->thirdparty
  //  $newlang = $objecttmp->thirdparty->default_lang;
  //}
  if (!empty($newlang)) {
    $outputlangs = new Translate("", $conf);
    $outputlangs->setDefaultLang($newlang);
  }
 
  if (getDolGlobalString('USE_PDFTK_FOR_PDF_CONCAT')) {
    // Create output dir if not exists
    dol_mkdir($diroutputmassaction);
 
    // Defined name of merged file
    $filename = strtolower(dol_sanitizeFileName($langs->transnoentities((string) $objectlabel)));
    $filename = preg_replace('/\s/', '_', $filename);
 
    // Save merged file
    if (in_array($objecttmp->element, array('facture', 'invoice_supplier')) && $search_status == Facture::STATUS_VALIDATED) {
      if ($option == 'late') {
        $filename .= '_'.strtolower(dol_sanitizeFileName($langs->transnoentities("Unpaid"))).'_'.strtolower(dol_sanitizeFileName($langs->transnoentities("Late")));
      } else {
        $filename .= '_'.strtolower(dol_sanitizeFileName($langs->transnoentities("Unpaid")));
      }
    }
    if ($year) {
      $filename .= '_'.$year;
    }
    if ($month) {
      $filename .= '_'.$month;
    }
 
    if (count($files) > 0) {
      $now = dol_now();
      $file = $diroutputmassaction.'/'.$filename.'_'.dol_print_date($now, 'dayhourlog').'.pdf';
 
      $input_files = '';
      foreach ($files as $f) {
        $input_files .= ' '.escapeshellarg($f);
      }
 
      $cmd = 'pdftk '.$input_files.' cat output '.escapeshellarg($file);
      exec($cmd);
 
      // check if pdftk is installed
      if (file_exists($file)) {
        dolChmod($file);
 
        $langs->load("exports");
        setEventMessages($langs->trans('FileSuccessfullyBuilt', $filename.'_'.dol_print_date($now, 'dayhourlog')), null, 'mesgs');
      } else {
        setEventMessages($langs->trans('ErrorPDFTkOutputFileNotFound'), null, 'errors');
      }
    } else {
      setEventMessages($langs->trans('NoPDFAvailableForDocGenAmongChecked'), null, 'errors');
    }
  } else {
    // Create empty PDF
    $formatarray = pdf_getFormat();
    $page_largeur = $formatarray['width'];
    $page_hauteur = $formatarray['height'];
    $format = array($page_largeur, $page_hauteur);
 
    $pdf = pdf_getInstance($format);
 
    if (class_exists('TCPDF')) {
      $pdf->setPrintHeader(false);
      $pdf->setPrintFooter(false);
    }
    $pdf->SetFont(pdf_getPDFFont($outputlangs));
 
    if (getDolGlobalString('MAIN_DISABLE_PDF_COMPRESSION')) {
      $pdf->SetCompression(false);
    }
 
    $pagecount = 0;
    // Add all others
    foreach ($files as $file) {
      // Load a PDF document from a file.
      $pagecount = $pdf->setSourceFile($file);
      for ($i = 1; $i <= $pagecount; $i++) {
        $tplidx = $pdf->importPage($i);
        $s = $pdf->getTemplatesize($tplidx);
        $pdf->AddPage($s['h'] > $s['w'] ? 'P' : 'L');
        $pdf->useTemplate($tplidx);
      }
    }
 
    // Create output dir if not exists
    dol_mkdir($diroutputmassaction);
 
    // Defined name of merged file
    $filename = strtolower(dol_sanitizeFileName($langs->transnoentities((string) $objectlabel)));
    $filename = preg_replace('/\s/', '_', $filename);
 
 
    // Save merged file
    if (in_array($objecttmp->element, array('facture', 'invoice_supplier')) && $search_status == Facture::STATUS_VALIDATED) {
      if ($option == 'late') {
        $filename .= '_'.strtolower(dol_sanitizeFileName($langs->transnoentities("Unpaid"))).'_'.strtolower(dol_sanitizeFileName($langs->transnoentities("Late")));
      } else {
        $filename .= '_'.strtolower(dol_sanitizeFileName($langs->transnoentities("Unpaid")));
      }
    }
    if (!empty($year)) {
      $filename .= '_'.$year;
    }
    if (!empty($month)) {
      $filename .= '_'.$month;
    }
    if ($pagecount) {
      $now = dol_now();
      $file = $diroutputmassaction.'/'.$filename.'_'.dol_print_date($now, 'dayhourlog').'.pdf';
      $pdf->Output($file, 'F');
      dolChmod($file);
 
      $langs->load("exports");
      setEventMessages($langs->trans('FileSuccessfullyBuilt', $filename.'_'.dol_print_date($now, 'dayhourlog')), null, 'mesgs');
    } else {
      setEventMessages($langs->trans('NoPDFAvailableForDocGenAmongChecked'), null, 'errors');
    }
  }
}
 
// Remove a file from massaction area
if ($action == 'remove_file') {
  require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
 
  $langs->load("other");
  $upload_dir = $diroutputmassaction;
  $file = $upload_dir.'/'.GETPOST('file');
  $ret = dol_delete_file($file);
  if ($ret) {
    setEventMessages($langs->trans("FileWasRemoved", GETPOST('file')), null, 'mesgs');
  } else {
    setEventMessages($langs->trans("ErrorFailToDeleteFile", GETPOST('file')), null, 'errors');
  }
  $action = '';
}
 
 
// Validate records
if (!$error && $massaction == 'validate' && $permissiontoadd) {
  $objecttmp = new $objectclass($db);
 
  if (($objecttmp->element == 'facture' || $objecttmp->element == 'invoice') && isModEnabled('stock') && getDolGlobalString('STOCK_CALCULATE_ON_BILL')) {
    $langs->load("errors");
    setEventMessages($langs->trans('ErrorMassValidationNotAllowedWhenStockIncreaseOnAction'), null, 'errors');
    $error++;
  }
  if ($objecttmp->element == 'invoice_supplier' && isModEnabled('stock') && getDolGlobalString('STOCK_CALCULATE_ON_SUPPLIER_BILL')) {
    $langs->load("errors");
    setEventMessages($langs->trans('ErrorMassValidationNotAllowedWhenStockIncreaseOnAction'), null, 'errors');
    $error++;
  }
  if ($objecttmp->element == 'facture') {
    if (!empty($toselect) && getDolGlobalString('INVOICE_CHECK_POSTERIOR_DATE')) {
      // order $toselect by date
      $sql  = "SELECT rowid FROM ".MAIN_DB_PREFIX."facture";
      $sql .= " WHERE rowid IN (".$db->sanitize(implode(",", $toselect)).")";
      $sql .= " ORDER BY datef";
 
      $resql = $db->query($sql);
      if ($resql) {
        $toselectnew = [];
        while (!empty($arr = $db->fetch_row($resql))) {
          $toselectnew[] = $arr[0];
        }
        $toselect = (empty($toselectnew)) ? $toselect : $toselectnew;
      } else {
        dol_print_error($db);
        $error++;
      }
    }
  }
  if (!$error) {
    // MAIN_MASSVALIDATE_<OBJECTCLASS>_NO_GLOBAL_TRANSACTION = 1 wraps each
    // record in its own transaction instead of all-or-nothing. Modules
    // dealing with external systems (e.g. VeriFactu / AEAT for invoices)
    // can enable it on the list pages they need so a mid-loop failure does
    // not roll back the records already committed-and-pushed outside the
    // database. The default remains the secured all-or-nothing mode (#37365).
    $perrecordtransaction = (int) getDolGlobalInt('MAIN_MASSVALIDATE_'.strtoupper($objectclass).'_NO_GLOBAL_TRANSACTION');
    if (!$perrecordtransaction) {
      $db->begin();
    }
 
    $nbok = 0;
    foreach ($toselect as $toselectid) {
      if ($perrecordtransaction) {
        $db->begin();
      }
      $result = $objecttmp->fetch($toselectid);
      if ($result > 0) {
        if (method_exists($objecttmp, 'validate')) {
          $result = $objecttmp->validate($user);
        } elseif (method_exists($objecttmp, 'setValid')) {
          $result = $objecttmp->setValid($user);
        } else {
          $objecttmp->error = 'No method validate or setValid on this object';
          $result = -1;
        }
        if ($result == 0) {
          $langs->load("errors");
          setEventMessages($langs->trans("ErrorObjectMustHaveStatusDraftToBeValidated", $objecttmp->ref), null, 'errors');
          $error++;
          if ($perrecordtransaction) {
            $db->rollback();
          }
          break;
        } elseif ($result < 0) {
          setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
          $error++;
          if ($perrecordtransaction) {
            $db->rollback();
          }
          break;
        } else {
          // validate() rename pdf but do not regenerate
          // Define output language
          if (!getDolGlobalString('MAIN_DISABLE_PDF_AUTOUPDATE')) {
            $outputlangs = $langs;
            $newlang = '';
            if (getDolGlobalInt('MAIN_MULTILANGS') /* && empty($newlang) */ && GETPOST('lang_id', 'aZ09')) {
              $newlang = GETPOST('lang_id', 'aZ09');
            }
            if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && property_exists($objecttmp, 'thirdparty')) {
              if ((property_exists($objecttmp, 'socid') || property_exists($objecttmp, 'fk_soc')) && empty($objecttmp->thirdparty)) {
                $objecttmp->fetch_thirdparty();
              }
              if (!empty($objecttmp->thirdparty)) {
                $newlang = $objecttmp->thirdparty->default_lang;
              }
            }
            if (!empty($newlang)) {
              $outputlangs = new Translate("", $conf);
              $outputlangs->setDefaultLang($newlang);
              $outputlangs->load('products');
            }
            $model = $objecttmp->model_pdf;
            $ret = $objecttmp->fetch($objecttmp->id); // Reload to get new records
 
            // To be sure vars is defined
            $hidedetails = isset($hidedetails) ? $hidedetails : (getDolGlobalString('MAIN_GENERATE_DOCUMENTS_HIDE_DETAILS') ? 1 : 0);
            $hidedesc = isset($hidedesc) ? $hidedesc : (getDolGlobalString('MAIN_GENERATE_DOCUMENTS_HIDE_DESC') ? 1 : 0);
            $hideref = isset($hideref) ? $hideref : (getDolGlobalString('MAIN_GENERATE_DOCUMENTS_HIDE_REF') ? 1 : 0);
            $moreparams = isset($moreparams) ? $moreparams : null;
 
            $result = $objecttmp->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams);
            if ($result < 0) {
              setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
            }
          }
          $nbok++;
          if ($perrecordtransaction) {
            $db->commit();
          }
        }
      } else {
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $error++;
        if ($perrecordtransaction) {
          $db->rollback();
        }
        break;
      }
    }
 
    if (!$error) {
      if ($nbok > 1) {
        setEventMessages($langs->trans("RecordsModified", $nbok), null, 'mesgs');
      } else {
        setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs');
      }
      if (!$perrecordtransaction) {
        $db->commit();
      }
    } elseif (!$perrecordtransaction) {
      $db->rollback();
    }
  }
}
 
// Delete record from mass action (massaction = 'delete' for direct delete, action/confirm='delete'/'yes' with a confirmation step before)
if (!$error && ($massaction == 'delete' || ($action == 'delete' && $confirm == 'yes')) && $permissiontodelete) {
  $db->begin();
 
  $objecttmp = new $objectclass($db);
  $nbok = 0;
  $nbignored = 0;
  $TMsg = array();
 
  //$toselect could contain duplicate entries, cf https://github.com/Dolibarr/dolibarr/issues/26244
  $unique_arr = array_unique($toselect);
  foreach ($unique_arr as $toselectid) {
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      // Refuse deletion for some objects/status
      if ($objectclass == 'Facture' && $objecttmp->status != Facture::STATUS_DRAFT) {
        $langs->load("errors");
        $nbignored++;
        $TMsg[] = '<div class="error">'.$langs->trans('ErrorOnlyDraftStatusCanBeDeletedInMassAction', $objecttmp->ref).'</div><br>';
        continue;
      }
 
      if (method_exists($objecttmp, 'is_erasable') && $objecttmp->is_erasable() <= 0) {
        $langs->load("errors");
        $nbignored++;
        $TMsg[] = '<div class="error">'.$langs->trans('ErrorRecordHasChildren').' '.$objecttmp->ref.'</div><br>';
        continue;
      }
 
      if ($objectclass == 'Holiday' && ! in_array($objecttmp->statut, array(Holiday::STATUS_DRAFT, Holiday::STATUS_CANCELED, Holiday::STATUS_REFUSED))) {
        $langs->load("errors");
        $nbignored++;
        $TMsg[] = '<div class="error">'.$langs->trans('ErrorLeaveRequestMustBeDraftCanceledOrRefusedToBeDeleted', $objecttmp->ref).'</div><br>';
        continue;
      }
 
      if ($objectclass == "Task" && $objecttmp->hasChildren() > 0) {
        $sql = "UPDATE ".MAIN_DB_PREFIX."projet_task SET fk_task_parent = 0 WHERE fk_task_parent = ".((int) $objecttmp->id);
        $res = $db->query($sql);
 
        if (!$res) {
          setEventMessage('ErrorRecordParentingNotModified', 'errors');
          $error++;
        }
      }
 
      if ($objecttmp->element == 'societe') {
        '@phan-var-force Societe $objecttmp';
        // TODO Change signature of delete for Societe
        $result = $objecttmp->delete($objecttmp->id, $user, 1);
      } else {
        $objecttmp->oldcopy = dol_clone($objecttmp);
        $result = $objecttmp->delete($user);
      }
 
      if (empty($result)) { // if delete returns 0, there is at least one object linked
        $TMsg = array_merge($objecttmp->errors, $TMsg);
      } elseif ($result < 0) { // if delete returns is < 0, there is an error, we break and rollback later
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $error++;
        break;
      } else {
        $nbok++;
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (empty($error)) {
    // Message for elements well deleted
    if ($nbok > 1) {
      setEventMessages($langs->trans("RecordsDeleted", $nbok), null, 'mesgs');
    } elseif ($nbok > 0) {
      setEventMessages($langs->trans("RecordDeleted", $nbok), null, 'mesgs');
    } else {
      setEventMessages($langs->trans("NoRecordDeleted"), null, 'mesgs');
    }
 
    // Message for elements which can't be deleted
    if (!empty($TMsg)) {
      sort($TMsg);
      setEventMessages('', array_unique($TMsg), 'warnings');
    }
 
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
// Generate document foreach object according to model linked to object
// @todo : propose model selection
if (!$error && $massaction == 'generate_doc' && $permissiontoread) {
  // Complete with classes that use this massaction
  <<<'EOPHAN'
@phan-var-force 'Commande'|'CommandeFournisseur'|'Contrat'|'Expedition'|'ExpenseReport'|'Facture'|'FactureFournisseur'|'Fichinter'|'Project'|'Propal'|'SupplierProposal' $objectclass
EOPHAN;
 
  $db->begin();
  $nbok = 0;
 
  $objecttmp = new $objectclass($db);
 
  foreach ($toselect as $toselectid) {
    $objecttmp->thirdparty = null; // Clear if another value was already set by fetch_thirdparty later
    $result = $objecttmp->fetch($toselectid);
 
    if ($result > 0) {
      $outputlangs = $langs;
      $newlang = '';
 
      if (getDolGlobalInt('MAIN_MULTILANGS') /* && empty($newlang) */ && GETPOST('lang_id', 'aZ09')) {
        $newlang = GETPOST('lang_id', 'aZ09');
      }
      if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && isset($objecttmp->thirdparty->default_lang)) {
        $newlang = $objecttmp->thirdparty->default_lang; // for proposal, order, invoice, ...
      }
      if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && isset($objecttmp->default_lang)) {
        $newlang = $objecttmp->default_lang; // for thirdparty @phan-suppress-current-line PhanUndeclaredProperty
      }
      if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && empty($objecttmp->thirdparty)) { //load lang from thirdparty
        $objecttmp->fetch_thirdparty();
        $newlang = $objecttmp->thirdparty->default_lang; // for proposal, order, invoice, ...
      }
      if (!empty($newlang)) {
        $outputlangs = new Translate("", $conf);
        $outputlangs->setDefaultLang($newlang);
      }
 
      // To be sure vars is defined
      $hidedetails = isset($hidedetails) ? $hidedetails : (getDolGlobalString('MAIN_GENERATE_DOCUMENTS_HIDE_DETAILS') ? 1 : 0);
      $hidedesc = isset($hidedesc) ? $hidedesc : (getDolGlobalString('MAIN_GENERATE_DOCUMENTS_HIDE_DESC') ? 1 : 0);
      $hideref = isset($hideref) ? $hideref : (getDolGlobalString('MAIN_GENERATE_DOCUMENTS_HIDE_REF') ? 1 : 0);
      $moreparams = isset($moreparams) ? $moreparams : null;
 
      $result = $objecttmp->generateDocument($objecttmp->model_pdf, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams);
 
      if ($result <= 0) {
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $error++;
        break;
      } else {
        $nbok++;
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("RecordsGenerated", $nbok), null, 'mesgs');
    } else {
      setEventMessages($langs->trans("RecordGenerated", $nbok), null, 'mesgs');
    }
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($action == 'affecttag' && $confirm == 'yes') && $permissiontoadd) {
  $nbok = 0;
  $db->begin();
 
  $affecttag_type = GETPOST('affecttag_type', 'alpha');
  if (!empty($affecttag_type)) {
    $affecttag_type_array = explode(',', $affecttag_type);
  } else {
    setEventMessage('CategTypeNotFound', 'errors');
  }
  if (!empty($affecttag_type_array)) {
    // check if tag type submitted exists into Tag Map categorie class
    require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
    $categ = new Categorie($db);
    $to_affecttag_type_array = array();
    $categ_type_array = $categ->getMapList();
    foreach ($categ_type_array as $categdef) {
      if (in_array($categdef['code'], $affecttag_type_array)) {
        $to_affecttag_type_array[] = $categdef['code'];
      }
    }
 
    // For each valid categ type set common categ
    if (!empty($to_affecttag_type_array)) {
      foreach ($to_affecttag_type_array as $categ_type) {
        $contcats = GETPOST('contcats_' . $categ_type, 'array');
        foreach ($toselect as $toselectid) {
          $result = $object->fetch($toselectid);
          if ($result > 0) {
            $result = $object->setCategoriesCommon($contcats, $categ_type, false);
            if ($result > 0) {
              $nbok++;
            } else {
              setEventMessages($object->error, $object->errors, 'errors');
            }
          } else {
            setEventMessages($object->error, $object->errors, 'errors');
            $error++;
            break;
          }
        }
      }
    }
  }
 
  if (!$error) {
    setEventMessages($langs->trans("RecordsModified", $nbok), null);
    $db->commit();
    $toselect = array();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($action == 'updateprice' && $confirm == 'yes') && $permissiontoadd) {
  '@phan-var-force Product|ProductCustomerPrice $obj';
  '@phan-var-force Product|ProductCustomerPrice $object';
  $nbok = 0;
  $db->begin();
  if (GETPOSTISSET('pricerate')) {
    $pricepercentage = GETPOSTINT('pricerate');
    if ($pricepercentage == 0) {
      setEventMessages($langs->trans("RecordsModified", 0), null);
    } else {
      foreach ($toselect as $toselectid) {
        $result = $object->fetch($toselectid);
        if ($result > 0) {
          if (getDolGlobalString('PRODUCT_PRICE_UNIQ')
              || getDolGlobalString('PRODUIT_CUSTOMER_PRICES')) {
            if ($object->price_base_type == 'TTC') {
              $newprice = $object->price_ttc * (100 + $pricepercentage) / 100;
              $minprice = $object->price_min_ttc;
            } else {
              $newprice = $object->price * (100 + $pricepercentage) / 100;
              $minprice = $object->price_min;
            }
            $res = $object->updatePrice($newprice, $object->price_base_type, $user, $object->tva_tx, $minprice, 0, $object->tva_npr, 0, 0, array(), $object->default_vat_code);
            if ($res > 0) {
              $nbok++;
            } else {
              setEventMessages($object->error, $object->errors, 'errors');
            }
          } elseif (getDolGlobalString('PRODUIT_MULTIPRICES')) {
            $maxlevel = getDolGlobalInt('PRODUIT_MULTIPRICES_LIMIT');
            for ($level = 1; $level <= $maxlevel; $level++) {
              if ($object->price_base_type == 'TTC') {
                $newprice = $object->multiprices_ttc[$level] * (100 + $pricepercentage) / 100;
                $minprice = $object->multiprices_min_ttc[$level];
              } else {
                $newprice = $object->multiprices[$level] * (100 + $pricepercentage) / 100;
                $minprice = $object->multiprices_min[$level];
              }
              $res = $object->updatePrice($newprice, $object->price_base_type, $user, $object->tva_tx, $minprice, $level, $object->tva_npr, 0, 0, array(), $object->default_vat_code);
              if ($res > 0) {
                $nbok++;
              }
            }
          }
        } else {
          setEventMessages($object->error, $object->errors, 'errors');
          $error++;
          break;
        }
      }
    }
  }
 
  if (!$error) {
    if ($nbok > 0) {
      setEventMessages($langs->trans("RecordsModified", $nbok), null);
    }
    $db->commit();
    $toselect = array();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($action == 'setsupervisor' && $confirm == 'yes') && $permissiontoadd) {
  '@phan-var-force User $object';
  $nbok = 0;
  $db->begin();
  $supervisortoset = GETPOSTINT('supervisortoset');
  if (!empty($supervisortoset)) {
    foreach ($toselect as $toselectid) {
      $result = $object->fetch($toselectid);
      if ($result > 0) {
        $object->fk_user = $supervisortoset;
        $res = $object->update($user);
        if ($res > 0) {
          $nbok++;
        } else {
          setEventMessages($object->error, $object->errors, 'errors');
        }
      } else {
        setEventMessages($object->error, $object->errors, 'errors');
        $error++;
        break;
      }
    }
  } else {
    setEventMessage('UserNotFound', 'errors');
    $error++;
  }
 
  if (!$error) {
    setEventMessages($langs->trans("RecordsModified", $nbok), null);
    $db->commit();
    $toselect = array();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($action == 'affectuser' && $confirm == 'yes') && $permissiontoadd) {
  $nbok = 0;
  $db->begin();
 
  $usertoaffect = GETPOSTINT('usertoaffect');
  $projectrole = GETPOST('projectrole');
  $tasksrole = GETPOST('tasksrole');
  if (!empty($usertoaffect)) {
    foreach ($toselect as $toselectid) {
      $result = $object->fetch($toselectid);
      if ($result > 0) {
        $res = $object->add_contact($usertoaffect, $projectrole, 'internal');
        if ($res >= 0) {
          $taskstatic = new Task($db);
          $task_array = $taskstatic->getTasksArray(null, null, $object->id, 0, 0);
 
          foreach ($task_array as $task) {
            $tasksToAffect = new Task($db);
            $result = $tasksToAffect->fetch($task->id);
            if ($result > 0) {
              $res = $tasksToAffect->add_contact($usertoaffect, $tasksrole, 'internal');
              if ($res < 0) {
                setEventMessages($tasksToAffect->error, $tasksToAffect->errors, 'errors');
              }
            }
          }
          $nbok++;
        } else {
          setEventMessages($object->error, $object->errors, 'errors');
        }
      } else {
        setEventMessages($object->error, $object->errors, 'errors');
        $error++;
        break;
      }
    }
  } else {
    setEventMessage('UserNotFound', 'errors');
    $error++;
  }
 
  if (!$error) {
    setEventMessages($langs->trans("RecordsModified", $nbok), null);
    $db->commit();
    $toselect = array();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($massaction == 'enable' || ($action == 'enable' && $confirm == 'yes')) && $permissiontoadd) {
  $db->begin();
 
  $objecttmp = new $objectclass($db);
  $nbok = 0;
  foreach ($toselect as $toselectid) {
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      if (in_array($objecttmp->element, array('societe'))) {
        $result = $objecttmp->setStatut(1);
      }
      if ($result <= 0) {
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $error++;
        break;
      } else {
        $nbok++;
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("RecordsEnabled", $nbok), null, 'mesgs');
    } else {
      setEventMessages($langs->trans("RecordEnabled"), null, 'mesgs');
    }
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($massaction == 'disable' || ($action == 'disable' && $confirm == 'yes')) && $permissiontoadd) {
  $db->begin();
 
  $objecttmp = new $objectclass($db);
  $nbok = 0;
  foreach ($toselect as $toselectid) {
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      if (in_array($objecttmp->element, array('societe'))) {
        $result = $objecttmp->setStatut(0);
      }
      if ($result <= 0) {
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $error++;
        break;
      } else {
        $nbok++;
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("RecordsDisabled", $nbok), null, 'mesgs');
    } else {
      setEventMessages($langs->trans("RecordDisabled"), null, 'mesgs');
    }
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
if (!$error && $action == 'confirm_edit_value_extrafields' && $confirm == 'yes' && $permissiontoadd) {
  $db->begin();
 
  $objecttmp = new $objectclass($db);
  $e = new ExtraFields($db);// fetch optionals attributes and labels
  $e->fetch_name_optionals_label($objecttmp->table_element);
 
  $nbok = 0;
  $extrafieldKeyToUpdate = GETPOST('extrafield-key-to-update');
 
 
  foreach ($toselect as $toselectid) {
    $objecttmp = new $objectclass($db); // to avoid ghost data
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      // Fill array 'array_options' with data from add form
      $ret = $e->setOptionalsFromPost(null, $objecttmp, $extrafieldKeyToUpdate);
      if ($ret > 0) {
        $objecttmp->insertExtraFields();
      } else {
        $error++;
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("RecordsDisabled", $nbok), null, 'mesgs');
    } else {
      setEventMessages($langs->trans("save"), null, 'mesgs');
    }
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($massaction == 'assignsalerepresentative' || ($action == 'assignsalerepresentative' && $confirm == 'yes')) && $permissiontoadd) {
  $db->begin();
 
  $objecttmp = new $objectclass($db);
  $nbok = 0;
 
  foreach ($toselect as $toselectid) {
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      if (in_array($objecttmp->element, array('societe'))) {
        $result = $objecttmp->setSalesRep(GETPOST("commercial", "alpha"));
      }
      if ($result <= 0) {
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $error++;
        break;
      } else {
        $nbok++;
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("CommercialsAffected", $nbok), null, 'mesgs');
    } else {
      setEventMessages($langs->trans("CommercialAffected"), null, 'mesgs');
    }
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($massaction == 'unassigncommercial' || ($action == 'unassigncommercial' && $confirm == 'yes')) && $permissiontoadd) {
  $db->begin();
 
  $objecttmp = new $objectclass($db);
  $nbok = 0;
 
  foreach ($toselect as $toselectid) {
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      if (in_array($objecttmp->element, array('societe'))) {
        $TCommercial = GETPOST("commercial", "alpha");
        if (is_array($TCommercial)) {
          foreach ($TCommercial as $commercial) {
            $result = $objecttmp->del_commercial($user, $commercial);
          }
        }
      }
      if ($result <= 0) {
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $error++;
        break;
      } else {
        $nbok++;
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("CommercialsDisaffected", $nbok), null, 'mesgs');
    } else {
      setEventMessages($langs->trans("CommercialDisaffected"), null, 'mesgs');
    }
    $db->commit();
  } else {
    $db->rollback();
  }
}
// Approve for leave only
if (!$error && ($massaction == 'approveleave' || ($action == 'approveleave' && $confirm == 'yes')) && $permissiontoapprove) {
  $db->begin();
 
  $objecttmp = new $objectclass($db);
  '@phan-var-force Holiday $objecttmp';
  $nbok = 0;
  foreach ($toselect as $toselectid) {
    $result = $objecttmp->fetch($toselectid);
    if ($result > 0) {
      if ($objecttmp->status != Holiday::STATUS_VALIDATED) {
        setEventMessages($langs->trans('StatusOfRefMustBe', $objecttmp->ref, $langs->transnoentitiesnoconv('Validated')), null, 'warnings');
        continue;
      }
      if ($user->id == $objecttmp->fk_validator) {
        $objecttmp->oldcopy = dol_clone($objecttmp, 2);  // @phan-suppress-current-line PhanTypeMismatchProperty
 
        $objecttmp->date_valid = dol_now();
        $objecttmp->fk_user_valid = $user->id;
        $objecttmp->date_approval = dol_now();
        $objecttmp->fk_user_approve = $user->id;
        $objecttmp->status = Holiday::STATUS_APPROVED;
        $objecttmp->statut = $objecttmp->status;  // deprecated
 
        $verif = $objecttmp->approve($user);
 
        if ($verif <= 0) {
          setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
          $error++;
        }
 
        // If no SQL error, we redirect to the request form
        if (!$error) {
          $tmpUser = new User($db);
          $result = $tmpUser->fetch($objecttmp->fk_user);
 
          // Calculate number of days consumed
          $nbopenedday = num_open_day($objecttmp->date_debut_gmt, $objecttmp->date_fin_gmt, 0, 1, $objecttmp->halfday, $tmpUser->country_id);
          $soldeActuel = $objecttmp->getCpforUser($objecttmp->fk_user, $objecttmp->fk_type);
          $newSolde = ($soldeActuel - $nbopenedday);
 
          // The modification is added to the LOG
          $result = $objecttmp->addLogCP($user->id, $objecttmp->fk_user, $langs->transnoentitiesnoconv("Holidays"), $newSolde, $objecttmp->fk_type);
          if ($result < 0) {
            $error++;
            setEventMessages(null, $objecttmp->errors, 'errors');
          }
 
          // Update balance
          $result = $objecttmp->updateSoldeCP($objecttmp->fk_user, $newSolde, $objecttmp->fk_type);
          if ($result < 0) {
            $error++;
            setEventMessages(null, $objecttmp->errors, 'errors');
          }
        }
 
        if (!$error) {
          // To
          $destinataire = new User($db);
          $destinataire->fetch($objecttmp->fk_user);
          $emailTo = $destinataire->email;
 
          if (!$emailTo) {
            dol_syslog("User that request leave has no email, so we redirect directly to finished page without sending email");
          } else {
            // From
            $expediteur = new User($db);
            $expediteur->fetch($objecttmp->fk_validator);
            //$emailFrom = $expediteur->email;    Email of user can be an email into another company. Sending will fails, we must use the generic email.
            $emailFrom = getDolGlobalString('MAIN_MAIL_EMAIL_FROM');
 
            // Subject
            $societeName = getDolGlobalString('MAIN_INFO_SOCIETE_NOM');
            if (getDolGlobalString('MAIN_APPLICATION_TITLE')) {
              $societeName = getDolGlobalString('MAIN_APPLICATION_TITLE');
            }
 
            $subject = $societeName." - ".$langs->transnoentitiesnoconv("HolidaysValidated");
 
            // Content
            $message = $langs->transnoentitiesnoconv("Hello")." ".$destinataire->firstname.",\n";
            $message .= "\n";
 
            $message .= $langs->transnoentities("HolidaysValidatedBody", dol_print_date($objecttmp->date_debut, 'day'), dol_print_date($objecttmp->date_fin, 'day'))."\n";
 
            $message .= "- ".$langs->transnoentitiesnoconv("ValidatedBy")." : ".dolGetFirstLastname($expediteur->firstname, $expediteur->lastname)."\n";
 
            $message .= "- ".$langs->transnoentitiesnoconv("Link")." : ".$dolibarr_main_url_root."/holiday/card.php?id=".$objecttmp->id."\n\n";
            $message .= "\n";
 
            $trackid = 'leav'.$objecttmp->id;
 
            require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
            $mail = new CMailFile($subject, $emailTo, $emailFrom, $message, array(), array(), array(), '', '', 0, 0, '', '', $trackid);
 
            // Sending email
            $result = $mail->sendfile();
 
            if (!$result) {
              setEventMessages($mail->error, $mail->errors, 'warnings'); // Show error, but do no make rollback, so $error is not set to 1
              $action = '';
            }
          }
        }
      } else {
        $langs->load("errors");
        setEventMessages($langs->trans('ErrorNotApproverForHoliday', $objecttmp->ref), null, 'errors');
      }
    } else {
      setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
      $error++;
      break;
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("RecordsApproved", $nbok), null, 'mesgs');
    } elseif ($nbok == 1) {
      setEventMessages($langs->trans("RecordAproved"), null, 'mesgs');
    }
    $db->commit();
  } else {
    $db->rollback();
  }
}
 
if (!$error && ($massaction == 'increaseholiday' || ($action == 'increaseholiday' && $confirm == 'yes')) && $permissiontoapprove && is_array($toselect)) {
  '@phan-var-force Holiday $holiday';  // Supposing that $holiday is set, it is needed.
  $db->begin();
  $objecttmp = new $objectclass($db);
  $nbok = 0;
  $typeholiday = GETPOSTINT('typeholiday');
  $nbdaysholidays = GETPOSTFLOAT('nbdaysholidays'); // May be 1.5
 
  if ($nbdaysholidays <= 0) {
    setEventMessages($langs->trans("WrongAmount"), null, 'errors');
    $error++;
  }
 
  if (!$error) {
    foreach ($toselect as $toselectid) {
      $balancecpuser = $objecttmp->getCPforUser($toselectid, $typeholiday);
      if (!empty($balancecpuser)) {
        $newnbdaysholidays = $nbdaysholidays + $balancecpuser;
      } else {
        $newnbdaysholidays = $nbdaysholidays;
      }
      $result = $holiday->addLogCP($user->id, $toselectid, $langs->transnoentitiesnoconv('ManualUpdate'), $newnbdaysholidays, $typeholiday);
      if ($result <= 0) {
        setEventMessages($holiday->error, $holiday->errors, 'errors');
        $error++;
        break;
      }
 
      $objecttmp->updateSoldeCP($toselectid, $newnbdaysholidays, $typeholiday);
      if ($result > 0) {
        $nbok++;
      } else {
        setEventMessages($langs->trans("ErrorUpdatingUsersCP"), null, 'errors');
        $error++;
        break;
      }
    }
  }
 
  if (!$error) {
    if ($nbok > 1) {
      setEventMessages($langs->trans("HolidayRecordsIncreased", $nbok), null, 'mesgs');
    } elseif ($nbok == 1) {
      setEventMessages($langs->trans("HolidayRecordIncreased"), null, 'mesgs');
    }
    $db->commit();
    $toselect = array();
  } else {
    $db->rollback();
  }
}
 
 
if (!$error && ($massaction == 'clonetasks' || ($action == 'clonetasks' && $confirm == 'yes'))) { // Test on permission not required here, done later
  $num = 0;
 
  include_once DOL_DOCUMENT_ROOT.'/projet/class/task.class.php';
 
  $origin_task = new Task($db);
  $clone_task = new Task($db);
  $newproject = new Project($db);
  $newproject->fetch(GETPOSTINT('projectid'));
 
  // Check if current user is contact of the new project (necessary only if project is not public)
  $iscontactofnewproject = 0;
  if (empty($newproject->public)) {
    $tmps = $newproject->getProjectsAuthorizedForUser($user, 0, 1, 0, '(fk_statut:=:1)'); // We check only open project (cloning on closed is not allowed)
    $tmparray = explode(',', $tmps);
    if (!in_array($newproject->id, $tmparray)) {
      $iscontactofnewproject = 1;
    }
  }
 
  // Check permission on new project
  $permisstiontoadd = false;
  if ($user->hasRight('project', 'all', 'creer') || ($user->hasRight('project', 'creer') && ($newproject->public || $iscontactofnewproject))) {
    $permisstiontoadd = true;
  }
 
  if ($permisstiontoadd) {
    foreach (GETPOST('selected') as $task) {
      $origin_task->fetch($task, '', 0);
 
      $defaultref = '';
      $classnamemodtask = getDolGlobalString('PROJECT_TASK_ADDON', 'mod_task_simple');
      if (getDolGlobalString('PROJECT_TASK_ADDON') && is_readable(DOL_DOCUMENT_ROOT . "/core/modules/project/task/" . getDolGlobalString('PROJECT_TASK_ADDON') . ".php")) {
        require_once DOL_DOCUMENT_ROOT . "/core/modules/project/task/" . getDolGlobalString('PROJECT_TASK_ADDON') . '.php';
        $modTask = new $classnamemodtask();
        '@phan-var-force ModeleNumRefTask $modTask';
        $defaultref = $modTask->getNextValue(null, $clone_task);
      }
 
      if (!$error) {
        $clone_task->fk_project = GETPOSTINT('projectid');
        $clone_task->ref = $defaultref;
        $clone_task->label = $origin_task->label;
        $clone_task->description = $origin_task->description;
        $clone_task->planned_workload = $origin_task->planned_workload;
        $clone_task->fk_task_parent = $origin_task->fk_task_parent;
        $clone_task->date_c = dol_now();
        $clone_task->date_start = $origin_task->date_start;
        $clone_task->date_end = $origin_task->date_end;
        $clone_task->progress = $origin_task->progress;
 
        // Fill array 'array_options' with data from add form
        $ret = $extrafields->setOptionalsFromPost(null, $clone_task);
 
        $taskid = $clone_task->create($user);
 
        if ($taskid > 0) {
          $result = $clone_task->add_contact(GETPOSTINT("userid"), 'TASKEXECUTIVE', 'internal');
          $num++;
        } else {
          if ($db->lasterrno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
            $langs->load("projects");
            setEventMessages($langs->trans('NewTaskRefSuggested'), null, 'warnings');
            $duplicate_code_error = true;
          } else {
            setEventMessages($clone_task->error, $clone_task->errors, 'errors');
          }
          $action = 'list';
          $error++;
        }
      }
    }
 
    if (!$error) {
      setEventMessages($langs->trans('NumberOfTasksCloned', $num), null, 'mesgs');
      header("Location: ".DOL_URL_ROOT.'/projet/tasks.php?id='.GETPOSTINT('projectid'));
      exit();
    }
  } else {
    setEventMessages($langs->trans('NotEnoughPermissions'), null, 'errors');
  }
}
 
if (!$error && $action == 'createcreditnote' && $permissiontoadd) {
  // Security check to avoid creating credit note if stock calculation on bill is enabled
  if (getDolGlobalInt('STOCK_CALCULATE_ON_BILL')) {
    setEventMessages($langs->trans('CreditNoteNotCreatedStockCalculateOnBillEnabled'), null, 'errors');
    header("Location: ".DOL_URL_ROOT.'/compta/facture/list.php?mainmenu=compta&leftmenu=facture');
    exit();
  }
 
  $objecttmp = new $objectclass($db);
  if ($objecttmp->element == 'facture' || $objecttmp->element == 'invoice') {
    $nbok = 0;
    $TMsg = array();
 
    $unique_arr = array_unique($toselect);
    foreach ($unique_arr as $toselectid) {
      $sourceinvoice = $toselectid;
      $result = $objecttmp->fetch($sourceinvoice);
 
      // We check if invoice is available.
      if ($result <= 0) {
        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
        $TMsg[] = $langs->trans('CreditNoteNotCreatedSourceInvoiceNotFound', $sourceinvoice);
        continue;
      }
 
      // We check if invoice type is supported. If not, we refuse to create credit note.
      $isSupportedType = false;
      if ($objecttmp->type == Facture::TYPE_STANDARD) {
        $isSupportedType = true;
      }
      if ($objecttmp->type == Facture::TYPE_PROFORMA) {
        $isSupportedType = true;
      }
      if ($objecttmp->type == Facture::TYPE_DEPOSIT && !getDolGlobalString('FACTURE_DEPOSITS_ARE_JUST_PAYMENTS')) {
        $isSupportedType = true;
      }
 
      if (!$isSupportedType) {
        $listtype = array(
          Facture::TYPE_STANDARD => $langs->trans("InvoiceStandard"),
          Facture::TYPE_DEPOSIT => $langs->trans("InvoiceDeposit"),
          Facture::TYPE_CREDIT_NOTE => $langs->trans("InvoiceAvoir"),
          Facture::TYPE_REPLACEMENT => $langs->trans("InvoiceReplacement"),
          Facture::TYPE_SITUATION => $langs->trans("InvoiceSituation")
        );
 
        $TMsg[] = $langs->trans('CreditNoteNotCreatedInvoiceTypeNotSupported', $objecttmp->ref, $listtype[$objecttmp->type]);
        continue;
      }
 
      // We check if invoice is validated. If not, we refuse to create credit note.
      if ($objecttmp->status <= Facture::STATUS_DRAFT) {
        $TMsg[] = $langs->trans('CreditNoteNotCreatedInvoiceNotValidated', $objecttmp->ref);
        continue;
      }
 
      // Test if there is at least one payment or credit note or deposit. If yes, we refuse.
      $totalpaid        = $objecttmp->getSommePaiement();
      $totalcreditnotes   = $objecttmp->getSumCreditNotesUsed();
      $totaldeposits      = $objecttmp->getSumDepositsUsed();
      if ($totalpaid > 0) {
        $TMsg[] = $langs->trans('CreditNoteNotCreatedPaymentAlreadyDone', $objecttmp->ref);
        continue;
      }
      if ($totalcreditnotes > 0) {
        $TMsg[] = $langs->trans('CreditNoteNotCreatedCreditNoteAlreadyUsed', $objecttmp->ref);
        continue;
      }
      if ($totaldeposits > 0) {
        $TMsg[] = $langs->trans('CreditNoteNotCreatedDepositAlreadyUsed', $objecttmp->ref);
        continue;
      }
 
      $db->begin();
 
      // Create credit note
      $object = new Facture($db);
      $object->entity       = $objecttmp->entity;
      $object->socid              = $objecttmp->socid;
      $object->subtype            = $objecttmp->subtype;
      $object->date               = dol_now();
      // $object->note_public   = '';
      // $object->note_private    = '';
      $object->ref_client     = $objecttmp->ref_client;
      $object->ref_customer   = $objecttmp->ref_customer;
      $object->fk_project     = $objecttmp->fk_project;
      $object->cond_reglement_id  = 0; // No payment term for a credit note
      $object->fk_account         = $objecttmp->fk_account;
      $object->fk_incoterms       = $objecttmp->fk_incoterms;
      $object->location_incoterms = $objecttmp->location_incoterms;
      $object->multicurrency_code = $objecttmp->multicurrency_code;
      $object->multicurrency_tx   = $objecttmp->multicurrency_tx;
 
      $object->fk_facture_source = $sourceinvoice;
      $object->type = Facture::TYPE_CREDIT_NOTE;
 
 
      if ($objecttmp->isSituationInvoice()) {
        $object->situation_counter = $objecttmp->situation_counter;
        $object->situation_cycle_ref = $objecttmp->situation_cycle_ref;
        $objecttmp->fetchPreviousNextSituationInvoice();
      }
 
 
      $id = $object->create($user);
      if ($id < 0) {
        setEventMessages($object->error, $object->errors, 'errors');
        $TMsg[] = $langs->trans('CreditNoteNotCreated', $objecttmp->ref);
        $db->rollback();
        continue;
      } else {
        $facture_source = $objecttmp;
 
        // Copy linked contacts
        $object->copy_linked_contact($objecttmp, 'internal');
        $object->copy_linked_contact($objecttmp, 'external');
 
        // Copy lines
        if (!empty($facture_source->lines)) {
          $fk_parent_line = 0;
 
          foreach ($facture_source->lines as $line) {
            // Extrafields
            if (method_exists($line, 'fetch_optionals')) {
              // load extrafields
              $line->fetch_optionals();
            }
 
            // Reset fk_parent_line for no child products and special product
            if (($line->product_type != 9 && empty($line->fk_parent_line)) || $line->product_type == 9) {
              $fk_parent_line = 0;
            }
 
            if ($facture_source->isSituationInvoice()) {
              $source_fk_prev_id = $line->fk_prev_id; // temporary storing situation invoice fk_prev_id
              $line->fk_prev_id  = $line->id; // The new line of the new credit note we are creating must be linked to the situation invoice line it is created from
 
              if (!empty($facture_source->tab_previous_situation_invoice)) {
                // search the last standard invoice in cycle and the possible credit note between this last and facture_source
                // TODO Move this out of loop of $facture_source->lines
                $tab_jumped_credit_notes = array();
                $lineIndex = count($facture_source->tab_previous_situation_invoice) - 1;
                $searchPreviousInvoice = true;
                while ($searchPreviousInvoice) {
                  if ($facture_source->tab_previous_situation_invoice[$lineIndex]->type == Facture::TYPE_SITUATION || $lineIndex < 1) {
                    $searchPreviousInvoice = false; // find, exit;
                    break;
                  } else {
                    if ($facture_source->tab_previous_situation_invoice[$lineIndex]->type == Facture::TYPE_CREDIT_NOTE) {
                      $tab_jumped_credit_notes[$lineIndex] = $facture_source->tab_previous_situation_invoice[$lineIndex]->id;
                    }
                    $lineIndex--; // go to previous invoice in cycle
                  }
                }
 
                $maxPrevSituationPercent = 0;
                foreach ($facture_source->tab_previous_situation_invoice[$lineIndex]->lines as $prevLine) {
                  if ($prevLine->id == $source_fk_prev_id) {
                    $maxPrevSituationPercent = max($maxPrevSituationPercent, $prevLine->situation_percent);
 
                    //$line->subprice  = $line->subprice - $prevLine->subprice;
                    $line->total_ht  -= $prevLine->total_ht;
                    $line->total_tva -= $prevLine->total_tva;
                    $line->total_ttc -= $prevLine->total_ttc;
                    $line->total_localtax1 -= $prevLine->total_localtax1;
                    $line->total_localtax2 -= $prevLine->total_localtax2;
 
                    $line->multicurrency_subprice  -= $prevLine->multicurrency_subprice;
                    $line->multicurrency_total_ht  -= $prevLine->multicurrency_total_ht;
                    $line->multicurrency_total_tva -= $prevLine->multicurrency_total_tva;
                    $line->multicurrency_total_ttc -= $prevLine->multicurrency_total_ttc;
                  }
                }
 
                // prorata
                $line->situation_percent = $maxPrevSituationPercent - $line->situation_percent;
 
                //print 'New line based on invoice id '.$facture_source->tab_previous_situation_invoice[$lineIndex]->id.' fk_prev_id='.$source_fk_prev_id.' will be fk_prev_id='.$line->fk_prev_id.' '.$line->total_ht.' '.$line->situation_percent.'<br>';
 
                // If there is some credit note between last situation invoice and invoice used for credit note generation (note: credit notes are stored as delta)
                $maxPrevSituationPercent = 0;
                foreach ($tab_jumped_credit_notes as $index => $creditnoteid) {
                  foreach ($facture_source->tab_previous_situation_invoice[$index]->lines as $prevLine) {
                    if ($prevLine->fk_prev_id == $source_fk_prev_id) {
                      $maxPrevSituationPercent = $prevLine->situation_percent;
 
                      $line->total_ht  -= $prevLine->total_ht;
                      $line->total_tva -= $prevLine->total_tva;
                      $line->total_ttc -= $prevLine->total_ttc;
                      $line->total_localtax1 -= $prevLine->total_localtax1;
                      $line->total_localtax2 -= $prevLine->total_localtax2;
 
                      $line->multicurrency_subprice  -= $prevLine->multicurrency_subprice;
                      $line->multicurrency_total_ht  -= $prevLine->multicurrency_total_ht;
                      $line->multicurrency_total_tva -= $prevLine->multicurrency_total_tva;
                      $line->multicurrency_total_ttc -= $prevLine->multicurrency_total_ttc;
                    }
                  }
                }
 
                // prorata
                $line->situation_percent += $maxPrevSituationPercent;
 
                //print 'New line based on invoice id '.$facture_source->tab_previous_situation_invoice[$lineIndex]->id.' fk_prev_id='.$source_fk_prev_id.' will be fk_prev_id='.$line->fk_prev_id.' '.$line->total_ht.' '.$line->situation_percent.'<br>';
              }
            }
 
            $line->fk_facture = $object->id;
            $line->fk_parent_line = $fk_parent_line;
 
            $line->subprice = -$line->subprice; // invert price for object
            // $line->pa_ht = $line->pa_ht; // we chose to have buy/cost price always positive, so no revert of sign here
            $line->total_ht = -$line->total_ht;
            $line->total_tva = -$line->total_tva;
            $line->total_ttc = -$line->total_ttc;
            $line->total_localtax1 = -$line->total_localtax1;
            $line->total_localtax2 = -$line->total_localtax2;
 
            $line->multicurrency_subprice = -$line->multicurrency_subprice;
            $line->multicurrency_total_ht = -$line->multicurrency_total_ht;
            $line->multicurrency_total_tva = -$line->multicurrency_total_tva;
            $line->multicurrency_total_ttc = -$line->multicurrency_total_ttc;
 
            $line->context['createcreditnotefrominvoice'] = 1;
            $result = $line->insert(0, 1); // When creating credit note with same lines than source, we must ignore error if discount already linked
 
            $object->lines[] = $line; // insert new line in current object
 
            // Defined the new fk_parent_line
            if ($result > 0 && $line->product_type == 9) {
              $fk_parent_line = $result;
            }
          }
 
          $object->update_price(1);
        }
 
        // Add link between credit note and origin
        if (!empty($object->fk_facture_source) && $id > 0) {
          $facture_source->fetch($object->fk_facture_source);
          $facture_source->fetchObjectLinked();
 
          if (!empty($facture_source->linkedObjectsIds)) {
            foreach ($facture_source->linkedObjectsIds as $sourcetype => $TIds) {
              $object->add_object_linked($sourcetype, current($TIds));
            }
          }
        }
 
        // We validate credit note
        $result = $object->validate($user);
        if ($result <= 0) {
          setEventMessages($object->error, $object->errors, 'errors');
          $TMsg[] = $langs->trans('CreditNoteNotCreatedErrorOnValidation', $objecttmp->ref);
          $db->rollback();
          continue;
        } else {
          // We update PDF if not disabled
          if (!getDolGlobalString('MAIN_DISABLE_PDF_AUTOUPDATE')) {
            $outputlangs = $langs;
            $newlang = '';
            if (getDolGlobalInt('MAIN_MULTILANGS') && GETPOST('lang_id', 'aZ09')) {
              $newlang = GETPOST('lang_id', 'aZ09');
            }
            if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang)) {
              $newlang = $object->thirdparty->default_lang;
            }
            if (!empty($newlang)) {
              $outputlangs = new Translate("", $conf);
              $outputlangs->setDefaultLang($newlang);
              $outputlangs->load('products');
            }
            $model = $object->model_pdf;
 
            $ret = $object->fetch($id); // Reload to get new records
 
            $result = $object->generateDocument($model, $outputlangs, (int) $hidedetails, (int) $hidedesc, (int) $hideref);
            if ($result < 0) {
              setEventMessages($object->error, $object->errors, 'errors');
            }
          }
 
          // Convert to reduction then apply reduction on source invoice
          $object->fetch($id);
          $object->fetch_thirdparty();
 
          // Check if there is already a discount (protection)
          $discountcheck = new DiscountAbsolute($db);
          $result = $discountcheck->fetch(0, $object->id);
 
          $canconvert = 0;
          if (empty($discountcheck->id)) {
            $canconvert = 1; // we can convert credit note into discount if there is no discount already linked to credit note
          }
 
          if ($canconvert) {
            $amount_ht = $amount_tva = $amount_ttc = array();
            $multicurrency_amount_ht = $multicurrency_amount_tva = $multicurrency_amount_ttc = array();
 
            // Loop on each vat rate
            $i = 0;
            foreach ($object->lines as $line) {
              if ($line->product_type < 9 && $line->total_ht != 0) { // Remove lines with product_type greater than or equal to 9 and no need to create discount if amount is null
                $keyforvatrate = $line->tva_tx.($line->vat_src_code ? ' ('.$line->vat_src_code.')' : '');
 
                if (!isset($amount_ht[$keyforvatrate])) {
                  $amount_ht[$keyforvatrate] = 0;
                }
                $amount_ht[$keyforvatrate] += $line->total_ht;
                if (!isset($amount_tva[$keyforvatrate])) {
                  $amount_tva[$keyforvatrate] = 0;
                }
                $amount_tva[$keyforvatrate] += $line->total_tva;
                if (!isset($amount_ttc[$keyforvatrate])) {
                  $amount_ttc[$keyforvatrate] = 0;
                }
                $amount_ttc[$keyforvatrate] += $line->total_ttc;
                if (!isset($multicurrency_amount_ht[$keyforvatrate])) {
                  $multicurrency_amount_ht[$keyforvatrate] = 0;
                }
                $multicurrency_amount_ht[$keyforvatrate] += $line->multicurrency_total_ht;
                if (!isset($multicurrency_amount_tva[$keyforvatrate])) {
                  $multicurrency_amount_tva[$keyforvatrate] = 0;
                }
                $multicurrency_amount_tva[$keyforvatrate] += $line->multicurrency_total_tva;
                if (!isset($multicurrency_amount_ttc[$keyforvatrate])) {
                  $multicurrency_amount_ttc[$keyforvatrate] = 0;
                }
                $multicurrency_amount_ttc[$keyforvatrate] += $line->multicurrency_total_ttc;
                $i++;
              }
            }
 
            // Insert one discount by VAT rate category
            $discount = new DiscountAbsolute($db);
            $discount->description = '(CREDIT_NOTE)';
            $discount->fk_soc = $object->socid;
            $discount->socid = $object->socid;
            $discount->socid = $object->socid;
            $discount->fk_facture_source = $object->id;
 
            $error = 0;
            $id_discount = 0;
 
            foreach ($amount_ht as $tva_tx => $xxx) {
              $discount->amount_ht = -((float) $amount_ht[$tva_tx]);
              $discount->amount_tva = -((float) $amount_tva[$tva_tx]);
              $discount->amount_ttc = -((float) $amount_ttc[$tva_tx]);
              $discount->total_ht = -((float) $amount_ht[$tva_tx]);
              $discount->total_tva = -((float) $amount_tva[$tva_tx]);
              $discount->total_ttc = -((float) $amount_ttc[$tva_tx]);
              $discount->multicurrency_amount_ht = -((float) $multicurrency_amount_ht[$tva_tx]);
              $discount->multicurrency_amount_tva = -((float) $multicurrency_amount_tva[$tva_tx]);
              $discount->multicurrency_amount_ttc = -((float) $multicurrency_amount_ttc[$tva_tx]);
              $discount->multicurrency_total_ht = -((float) $multicurrency_amount_ht[$tva_tx]);
              $discount->multicurrency_total_tva = -((float) $multicurrency_amount_tva[$tva_tx]);
              $discount->multicurrency_total_ttc = -((float) $multicurrency_amount_ttc[$tva_tx]);
 
              // Clean vat code
              $reg = array();
              $vat_src_code = '';
              if (preg_match('/\‍((.*)\‍)/', $tva_tx, $reg)) {
                $vat_src_code = $reg[1];
                $tva_tx = preg_replace('/\s*\‍(.*\‍)/', '', $tva_tx); // Remove code into vatrate.
              }
 
              $discount->tva_tx = abs((float) $tva_tx);
              $discount->vat_src_code = $vat_src_code;
 
              $id_discount = $discount->create($user);
              if ($id_discount < 0) {
                $error++;
                break;
              }
            }
 
            if (empty($error) && $id_discount > 0) {
              // Set invoice as paid
              $result = $object->setPaid($user);  // We can close the invoice.
              if ($result >= 0) {
                $object->fetch($object->id);  // Reload properties
 
                // Apply discount on source invoice
                $discount = new DiscountAbsolute($db);
                $discount->fetch($id_discount);
                $result = $discount->link_to_invoice(0, $object->fk_facture_source);
                if ($result < 0) {
                  setEventMessages($discount->error, $discount->errors, 'errors');
                  $TMsg[] = $langs->trans('CreditNoteNotCreatedErrorOnDiscountLink', $objecttmp->ref);
                  $db->rollback();
                  continue;
                }
 
                // Set source invoice as paid if amount to pay is 0 after discount application
                $objecttmp->fetch($objecttmp->id);  // Reload properties
                if ($objecttmp->getRemainToPay(0) == 0) {
                  $result = $objecttmp->setPaid($user);
                  if ($result < 0) {
                    setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
                    $TMsg[] = $langs->trans('CreditNoteNotCreatedErrorOnSetPaidSourceInvoice', $objecttmp->ref);
                    $db->rollback();
                    continue;
                  } else {
                    if (!getDolGlobalString('MAIN_DISABLE_PDF_AUTOUPDATE')) {
                      $outputlangs = $langs;
                      $newlang = '';
                      if (getDolGlobalInt('MAIN_MULTILANGS') && GETPOST('lang_id', 'aZ09')) {
                        $newlang = GETPOST('lang_id', 'aZ09');
                      }
                      if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang)) {
                        $objecttmp->fetch_thirdparty();
                        $newlang = $objecttmp->thirdparty->default_lang;
                      }
                      if (!empty($newlang)) {
                        $outputlangs = new Translate("", $conf);
                        $outputlangs->setDefaultLang($newlang);
                      }
                      $ret = $objecttmp->fetch($objecttmp->id); // Reload to get new records
 
                      $result = $objecttmp->generateDocument($objecttmp->model_pdf, $outputlangs, (int) $hidedetails, (int) $hidedesc, (int) $hideref);
                      if ($result < 0) {
                        setEventMessages($objecttmp->error, $objecttmp->errors, 'errors');
                      }
                    }
                  }
                } else {
                  // We rollback because we want all or nothing.
                  $TMsg[] = $langs->trans('CreditNoteNotCreatedErrorOnSourceInvoiceNotFullyPaidAfterDiscount', $objecttmp->ref);
                  $db->rollback();
                  continue;
                }
              } else {
                setEventMessages($object->error, $object->errors, 'errors');
                $TMsg[] = $langs->trans('CreditNoteNotCreatedErrorOnSetPaid', $objecttmp->ref);
                $db->rollback();
                continue;
              }
            } else {
              setEventMessages($discount->error, $discount->errors, 'errors');
              $TMsg[] = $langs->trans('CreditNoteNotCreatedErrorOnDiscount', $objecttmp->ref);
              $db->rollback();
              continue;
            }
          } else {
            $TMsg[] = $langs->trans('CreditNoteNotCreatedAlreadyConverted', $objecttmp->ref);
            $db->rollback();
            continue;
          }
        }
 
        $nbok++;
        $db->commit();
        $TMsg[] = $langs->trans('CreditNoteCreated', $object->ref, $objecttmp->ref);
      }
    }
 
    // Show messages
    foreach ($TMsg as $msg) {
      setEventMessages($msg, null, 'warnings');
    }
 
    // Show success message
    if ($nbok > 0) {
      setEventMessages($langs->trans('CreditNotesCreated', $nbok), null, 'mesgs');
    }
 
    $toselect = array();
    header("Location: ".DOL_URL_ROOT.'/compta/facture/list.php?mainmenu=compta&leftmenu=facture');
    exit();
  } else {
    setEventMessages($langs->trans('ThisMassActionIsOnlyForInvoices'), null, 'errors');
    header("Location: ".DOL_URL_ROOT.'/compta/facture/list.php?mainmenu=compta&leftmenu=facture');
    exit();
  }
}
 
if (empty($toselect)) {
  $toselect = [];
}
$parameters['toselect'] = &$toselect;
$parameters['uploaddir'] = $uploaddir;
$parameters['massaction'] = $massaction;
$parameters['diroutputmassaction'] = isset($diroutputmassaction) ? $diroutputmassaction : null;
 
// @phan-suppress-next-line PhanTypeMismatchArgumentNullable
$reshook = $hookmanager->executeHooks('doMassActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) {
  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}