card.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2003       Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2020  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2009  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2015-2017  Alexandre Spangaro      <aspangaro@open-dsi.fr>
 * Copyright (C) 2017       Ferran Marcet           <fmarcet@2byte.es>
 * Copyright (C) 2018       Frédéric France         <frederic.france@netlogic.fr>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formexpensereport.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
require_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/expensereport.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/price.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/modules/expensereport/modules_expensereport.php';
require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport.class.php';
require_once DOL_DOCUMENT_ROOT.'/expensereport/class/paymentexpensereport.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
if (!empty($conf->accounting->enabled)) {
  require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingjournal.class.php';
}

// Load translation files required by the page
$langs->loadLangs(array("trips", "bills", "mails"));

$action = GETPOST('action', 'aZ09');
$cancel = GETPOST('cancel', 'alpha');
$confirm = GETPOST('confirm', 'alpha');

$date_start = dol_mktime(0, 0, 0, GETPOST('date_debutmonth', 'int'), GETPOST('date_debutday', 'int'), GETPOST('date_debutyear', 'int'));
$date_end = dol_mktime(0, 0, 0, GETPOST('date_finmonth', 'int'), GETPOST('date_finday', 'int'), GETPOST('date_finyear', 'int'));
$date = dol_mktime(0, 0, 0, GETPOST('datemonth', 'int'), GETPOST('dateday', 'int'), GETPOST('dateyear', 'int'));
$fk_project = GETPOST('fk_project', 'int');
$vatrate = GETPOST('vatrate', 'alpha');
$ref = GETPOST("ref", 'alpha');
$comments = GETPOST('comments', 'restricthtml');
$fk_c_type_fees = GETPOST('fk_c_type_fees', 'int');
$socid = GETPOST('socid', 'int') ?GETPOST('socid', 'int') : GETPOST('socid_id', 'int');

$childids = $user->getAllChildIds(1);

// Security check
$id = GETPOST("id", 'int');
if ($user->socid) $socid = $user->socid;
$result = restrictedArea($user, 'expensereport', $id, 'expensereport');


// Hack to use expensereport dir
$rootfordata = DOL_DATA_ROOT;
$rootforuser = DOL_DATA_ROOT;
// If multicompany module is enabled, we redefine the root of data
if (!empty($conf->multicompany->enabled) && !empty($conf->entity) && $conf->entity > 1)
{
  $rootfordata .= '/'.$conf->entity;
}
$conf->expensereport->dir_output = $rootfordata.'/expensereport';

// Define $urlwithroot
$urlwithouturlroot = preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));
$urlwithroot = $urlwithouturlroot.DOL_URL_ROOT; // This is to use external domain name found into config file
//$urlwithroot=DOL_MAIN_URL_ROOT;         // This is to use same domain name than current

// PDF
$hidedetails = (GETPOST('hidedetails', 'int') ? GETPOST('hidedetails', 'int') : (!empty($conf->global->MAIN_GENERATE_DOCUMENTS_HIDE_DETAILS) ? 1 : 0));
$hidedesc = (GETPOST('hidedesc', 'int') ? GETPOST('hidedesc', 'int') : (!empty($conf->global->MAIN_GENERATE_DOCUMENTS_HIDE_DESC) ? 1 : 0));
$hideref = (GETPOST('hideref', 'int') ? GETPOST('hideref', 'int') : (!empty($conf->global->MAIN_GENERATE_DOCUMENTS_HIDE_REF) ? 1 : 0));


$object = new ExpenseReport($db);
$extrafields = new ExtraFields($db);

// fetch optionals attributes and labels
$extrafields->fetch_name_optionals_label($object->table_element);

// Load object
include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php'; // Must be include, not include_once

// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
$hookmanager->initHooks(array('expensereportcard', 'globalcard'));

$permissionnote = $user->rights->expensereport->creer; // Used by the include of actions_setnotes.inc.php
$permissiondellink = $user->rights->expensereport->creer; // Used by the include of actions_dellink.inc.php
$permissiontoadd = $user->rights->expensereport->creer; // Used by the include of actions_addupdatedelete.inc.php and actions_lineupdown.inc.php


$upload_dir = $conf->expensereport->dir_output.'/'.dol_sanitizeFileName($object->ref);


if ($object->id > 0)
{
  // Check current user can read this expense report
  $canread = 0;
  if (!empty($user->rights->expensereport->readall)) $canread = 1;
  if (!empty($user->rights->expensereport->lire) && in_array($object->fk_user_author, $childids)) $canread = 1;
  if (!$canread)
  {
    accessforbidden();
  }
}


/*
 * Actions
 */

$parameters = array('socid' => $socid);
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');

if (empty($reshook))
{
  if ($cancel)
  {
    if (!empty($backtopage))
    {
      header("Location: ".$backtopage);
      exit;
    }
    $action = '';

    $fk_project = '';
    $date_start = '';
    $date_end = '';
    $date = '';
    $comments = '';
    $vatrate = '';
    $value_unit_ht = '';
    $value_unit = '';
    $qty = 1;
    $fk_c_type_fees = -1;
  }

  include DOL_DOCUMENT_ROOT.'/core/actions_linkedfiles.inc.php';

  if (GETPOSTISSET('sendit'))    // If we just submit a file
  {
    if ($action == 'updateline') $action = 'editline'; // To avoid to make the updateline now
    else $action = ''; // To avoid to make the addline now
  }

  include DOL_DOCUMENT_ROOT.'/core/actions_setnotes.inc.php'; // Must be include, not include_once

  include DOL_DOCUMENT_ROOT.'/core/actions_dellink.inc.php'; // Must be include, not include_once

  include DOL_DOCUMENT_ROOT.'/core/actions_lineupdown.inc.php'; // Must be include, not include_once

  // Action clone object
  if ($action == 'confirm_clone' && $confirm == 'yes' && $user->rights->expensereport->creer)
  {
    if (1 == 0 && !GETPOST('clone_content', 'alpha') && !GETPOST('clone_receivers', 'alpha'))
    {
      setEventMessages($langs->trans("NoCloneOptionsSpecified"), null, 'errors');
    } else {
      if ($object->id > 0)
      {
        // Because createFromClone modifies the object, we must clone it so that we can restore it later if it fails
        $orig = clone $object;

        $result = $object->createFromClone($user, GETPOST('fk_user_author', 'int'));
        if ($result > 0)
        {
          header("Location: ".$_SERVER['PHP_SELF'].'?id='.$result);
          exit;
        } else {
          setEventMessages($object->error, $object->errors, 'errors');
          $object = $orig;
          $action = '';
        }
      }
    }
  }

  if ($action == 'confirm_delete' && GETPOST("confirm", 'alpha') == "yes" && $id > 0 && $user->rights->expensereport->supprimer)
  {
    $object = new ExpenseReport($db);
    $result = $object->fetch($id);
    $result = $object->delete($user);
    if ($result >= 0)
    {
      header("Location: index.php");
      exit;
    } else {
      setEventMessages($object->error, $object->errors, 'errors');
    }
  }

  if ($action == 'add' && $user->rights->expensereport->creer)
  {
    $error = 0;

    $object = new ExpenseReport($db);

    $object->date_debut = $date_start;
    $object->date_fin = $date_end;

    $object->fk_user_author = GETPOST('fk_user_author', 'int');
    if (!($object->fk_user_author > 0)) $object->fk_user_author = $user->id;

    // Check that expense report is for a user inside the hierarchy or advanced permission for all is set
    if ((empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->expensereport->creer))
      || (!empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->expensereport->creer) && empty($user->rights->expensereport->writeall_advance))) {
      $error++;
      setEventMessages($langs->trans("NotEnoughPermission"), null, 'errors');
    }
    if (!$error) {
      if (empty($conf->global->MAIN_USE_ADVANCED_PERMS) || empty($user->rights->expensereport->writeall_advance)) {
        if (!in_array($object->fk_user_author, $childids)) {
          $error++;
          setEventMessages($langs->trans("UserNotInHierachy"), null, 'errors');
        }
      }
    }

    $fuser = new User($db);
    $fuser->fetch($object->fk_user_author);

    $object->status = 1;
    $object->fk_c_paiement = GETPOST('fk_c_paiement', 'int');
    $object->fk_user_validator = GETPOST('fk_user_validator', 'int');
    $object->note_public = GETPOST('note_public', 'restricthtml');
    $object->note_private = GETPOST('note_private', 'restricthtml');
    // Fill array 'array_options' with data from add form
    if (!$error)
    {
      $ret = $extrafields->setOptionalsFromPost(null, $object);
      if ($ret < 0) $error++;
    }

    if (!$error && empty($conf->global->EXPENSEREPORT_ALLOW_OVERLAPPING_PERIODS) && $object->periode_existe($fuser, $object->date_debut, $object->date_fin))
    {
      $error++;
      setEventMessages($langs->trans("ErrorDoubleDeclaration"), null, 'errors');
      $action = 'create';
    }

    if (!$error)
    {
      $db->begin();

      $id = $object->create($user);
      if ($id <= 0)
      {
        $error++;
      }

      if (!$error)
      {
        $db->commit();
        Header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
        exit;
      } else {
        setEventMessages($object->error, $object->errors, 'errors');
        $db->rollback();
        $action = 'create';
      }
    }
  }

  if ($action == 'update' && $user->rights->expensereport->creer)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);

    $object->date_debut = $date_start;
    $object->date_fin = $date_end;

    if ($object->status < 3)
    {
      $object->fk_user_validator = GETPOST('fk_user_validator', 'int');
    }

    $object->fk_c_paiement = GETPOST('fk_c_paiement', 'int');
    $object->note_public = GETPOST('note_public', 'restricthtml');
    $object->note_private = GETPOST('note_private', 'restricthtml');
    $object->fk_user_modif = $user->id;

    $result = $object->update($user);
    if ($result > 0)
    {
      header("Location: ".$_SERVER["PHP_SELF"]."?id=".GETPOST('id', 'int'));
      exit;
    } else {
      setEventMessages($object->error, $object->errors, 'errors');
    }
  }

  if ($action == 'update_extras')
  {
    $object->oldcopy = dol_clone($object);

    // Fill array 'array_options' with data from update form
    $ret = $extrafields->setOptionalsFromPost(null, $object, GETPOST('attribute', 'restricthtml'));
    if ($ret < 0) $error++;

    if (!$error)
    {
      // Actions on extra fields
        $result = $object->insertExtraFields('EXPENSEREPORT_MODIFY');
      if ($result < 0)
      {
        setEventMessages($object->error, $object->errors, 'errors');
        $error++;
      }
    }

    if ($error)
      $action = 'edit_extras';
  }

  if ($action == "confirm_validate" && GETPOST("confirm", 'alpha') == "yes" && $id > 0 && $user->rights->expensereport->creer)
  {
    $error = 0;

    $db->begin();

    $object = new ExpenseReport($db);
    $object->fetch($id);

    $result = $object->setValidate($user);

    if ($result >= 0)
    {
      // Define output language
      if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
      {
        $outputlangs = $langs;
        $newlang = '';
        if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
        if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
        if (!empty($newlang)) {
          $outputlangs = new Translate("", $conf);
          $outputlangs->setDefaultLang($newlang);
        }
        $model = $object->model_pdf;
        $ret = $object->fetch($id); // Reload to get new records

        $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
      }
    } else {
      setEventMessages($object->error, $object->errors, 'errors');
      $error++;
    }

    if (!$error && $result > 0 && $object->fk_user_validator > 0)
    {
      $langs->load("mails");

      // TO
      $destinataire = new User($db);
      $destinataire->fetch($object->fk_user_validator);
      $emailTo = $destinataire->email;

      // FROM
      $expediteur = new User($db);
      $expediteur->fetch($object->fk_user_author);
      $emailFrom = $expediteur->email;

      if ($emailTo && $emailFrom)
      {
        $filename = array(); $filedir = array(); $mimetype = array();

        // SUBJECT
        $societeName = $conf->global->MAIN_INFO_SOCIETE_NOM;
        if (!empty($conf->global->MAIN_APPLICATION_TITLE)) $societeName = $conf->global->MAIN_APPLICATION_TITLE;

        $subject = $societeName." - ".$langs->transnoentities("ExpenseReportWaitingForApproval");

        // CONTENT
        $link = $urlwithroot.'/expensereport/card.php?id='.$object->id;
        $link = '<a href="'.$link.'">'.$link.'</a>';
        $message = $langs->transnoentities("ExpenseReportWaitingForApprovalMessage", $expediteur->getFullName($langs), get_date_range($object->date_debut, $object->date_fin, '', $langs), $link);

        // Rebuild pdf
        /*
          $object->setDocModel($user,"");
          $resultPDF = expensereport_pdf_create($db,$id,'',"",$langs);

          if($resultPDF):
          // ATTACHMENT
          array_push($filename,dol_sanitizeFileName($object->ref).".pdf");
          array_push($filedir,$conf->expensereport->dir_output . "/" . dol_sanitizeFileName($object->ref) . "/" . dol_sanitizeFileName($object->ref).".pdf");
          array_push($mimetype,"application/pdf");
          */

        // PREPARE SEND
        $mailfile = new CMailFile($subject, $emailTo, $emailFrom, $message, $filedir, $mimetype, $filename, '', '', 0, -1);

        if ($mailfile)
        {
          // SEND
          $result = $mailfile->sendfile();
          if ($result)
          {
            $mesg = $langs->trans('MailSuccessfulySent', $mailfile->getValidAddress($emailFrom, 2), $mailfile->getValidAddress($emailTo, 2));
            setEventMessages($mesg, null, 'mesgs');
          } else {
            $langs->load("other");
            if ($mailfile->error)
            {
              $mesg = '';
              $mesg .= $langs->trans('ErrorFailedToSendMail', $emailFrom, $emailTo);
              $mesg .= '<br>'.$mailfile->error;
              setEventMessages($mesg, null, 'errors');
            } else {
              setEventMessages('No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS', null, 'warnings');
            }
          }
        } else {
          setEventMessages($mailfile->error, $mailfile->errors, 'errors');
          $action = '';
        }
      } else {
        setEventMessages($langs->trans("NoEmailSentBadSenderOrRecipientEmail"), null, 'warnings');
        $action = '';
      }
    }

    if (!$error)
    {
      $db->commit();
      header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
      exit;
    } else {
      $db->rollback();
    }
  }

  if ($action == "confirm_save_from_refuse" && GETPOST("confirm", 'alpha') == "yes" && $id > 0 && $user->rights->expensereport->creer)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);
    $result = $object->set_save_from_refuse($user);

    if ($result > 0)
    {
      // Define output language
      if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
      {
        $outputlangs = $langs;
        $newlang = '';
        if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
        if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
        if (!empty($newlang)) {
          $outputlangs = new Translate("", $conf);
          $outputlangs->setDefaultLang($newlang);
        }
        $model = $object->model_pdf;
        $ret = $object->fetch($id); // Reload to get new records

        $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
      }
    }

    if ($result > 0)
    {
      // Send mail

        // TO
        $destinataire = new User($db);
        $destinataire->fetch($object->fk_user_validator);
        $emailTo = $destinataire->email;

      // FROM
      $expediteur = new User($db);
      $expediteur->fetch($object->fk_user_author);
      $emailFrom = $expediteur->email;

        if ($emailFrom && $emailTo)
        {
        $filename = array(); $filedir = array(); $mimetype = array();

          // SUBJECT
        $societeName = $conf->global->MAIN_INFO_SOCIETE_NOM;
        if (!empty($conf->global->MAIN_APPLICATION_TITLE)) $societeName = $conf->global->MAIN_APPLICATION_TITLE;

        $subject = $societeName." - ".$langs->transnoentities("ExpenseReportWaitingForReApproval");

        // CONTENT
        $link = $urlwithroot.'/expensereport/card.php?id='.$object->id;
        $link = '<a href="'.$link.'">'.$link.'</a>';
        $dateRefusEx = explode(" ", $object->date_refuse);
        $message = $langs->transnoentities("ExpenseReportWaitingForReApprovalMessage", $dateRefusEx[0], $object->detail_refuse, $expediteur->getFullName($langs), $link);

          // Rebuild pdf
        /*
        $object->setDocModel($user,"");
        $resultPDF = expensereport_pdf_create($db,$object,'',"",$langs);

          if($resultPDF)
          {
            // ATTACHMENT
            $filename=array(); $filedir=array(); $mimetype=array();
            array_push($filename,dol_sanitizeFileName($object->ref).".pdf");
            array_push($filedir,$conf->expensereport->dir_output . "/" . dol_sanitizeFileName($object->ref) . "/" . dol_sanitizeFileName($object->ref_number).".pdf");
            array_push($mimetype,"application/pdf");
        }
        */


        // PREPARE SEND
        $mailfile = new CMailFile($subject, $emailTo, $emailFrom, $message, $filedir, $mimetype, $filename, '', '', 0, -1);

        if ($mailfile)
        {
          // SEND
          $result = $mailfile->sendfile();
          if ($result)
          {
            $mesg = $langs->trans('MailSuccessfulySent', $mailfile->getValidAddress($emailFrom, 2), $mailfile->getValidAddress($emailTo, 2));
            setEventMessages($mesg, null, 'mesgs');
            header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
            exit;
          } else {
            $langs->load("other");
            if ($mailfile->error)
            {
              $mesg = '';
              $mesg .= $langs->trans('ErrorFailedToSendMail', $emailFrom, $emailTo);
              $mesg .= '<br>'.$mailfile->error;
              setEventMessages($mesg, null, 'errors');
            } else {
              setEventMessages('No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS', null, 'warnings');
            }
          }
        } else {
          setEventMessages($mailfile->error, $mailfile->errors, 'errors');
          $action = '';
        }
      } else {
        setEventMessages($langs->trans("NoEmailSentBadSenderOrRecipientEmail"), null, 'warnings');
        $action = '';
      }
    } else {
      setEventMessages($object->error, $object->errors, 'errors');
    }
  }

  // Approve
  if ($action == "confirm_approve" && GETPOST("confirm", 'alpha') == "yes" && $id > 0 && $user->rights->expensereport->approve)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);

    $result = $object->setApproved($user);

    if ($result > 0)
    {
      // Define output language
      if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
      {
        $outputlangs = $langs;
        $newlang = '';
        if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
        if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
        if (!empty($newlang)) {
          $outputlangs = new Translate("", $conf);
          $outputlangs->setDefaultLang($newlang);
        }
        $model = $object->model_pdf;
        $ret = $object->fetch($id); // Reload to get new records

        $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
      }
    }

    if ($result > 0)
    {
      // Send mail

        // TO
        $destinataire = new User($db);
        $destinataire->fetch($object->fk_user_author);
        $emailTo = $destinataire->email;

        // CC
        $emailCC = $conf->global->NDF_CC_EMAILS;
      if (empty($emailTo)) $emailTo = $emailCC;

      // FROM
        $expediteur = new User($db);
        $expediteur->fetch($object->fk_user_approve > 0 ? $object->fk_user_approve : $object->fk_user_validator);
        $emailFrom = $expediteur->email;

        if ($emailFrom && $emailTo)
        {
        $filename = array(); $filedir = array(); $mimetype = array();

          // SUBJECT
        $societeName = $conf->global->MAIN_INFO_SOCIETE_NOM;
        if (!empty($conf->global->MAIN_APPLICATION_TITLE)) $societeName = $conf->global->MAIN_APPLICATION_TITLE;

        $subject = $societeName." - ".$langs->transnoentities("ExpenseReportApproved");

          // CONTENT
          $link = $urlwithroot.'/expensereport/card.php?id='.$object->id;
        $link = '<a href="'.$link.'">'.$link.'</a>';
          $message = $langs->transnoentities("ExpenseReportApprovedMessage", $object->ref, $destinataire->getFullName($langs), $expediteur->getFullName($langs), $link);

          // Rebuilt pdf
        /*
            $object->setDocModel($user,"");
            $resultPDF = expensereport_pdf_create($db,$object,'',"",$langs);

            if($resultPDF
          {
              // ATTACHMENT
              $filename=array(); $filedir=array(); $mimetype=array();
              array_push($filename,dol_sanitizeFileName($object->ref).".pdf");
              array_push($filedir, $conf->expensereport->dir_output."/".dol_sanitizeFileName($object->ref)."/".dol_sanitizeFileName($object->ref).".pdf");
              array_push($mimetype,"application/pdf");
          }
          */

        $mailfile = new CMailFile($subject, $emailTo, $emailFrom, $message, $filedir, $mimetype, $filename, '', '', 0, -1);

          if ($mailfile)
          {
            // SEND
            $result = $mailfile->sendfile();
            if ($result)
            {
              $mesg = $langs->trans('MailSuccessfulySent', $mailfile->getValidAddress($emailFrom, 2), $mailfile->getValidAddress($emailTo, 2));
              setEventMessages($mesg, null, 'mesgs');
              header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
              exit;
            } else {
              $langs->load("other");
              if ($mailfile->error)
              {
                $mesg = '';
                $mesg .= $langs->trans('ErrorFailedToSendMail', $emailFrom, $emailTo);
                $mesg .= '<br>'.$mailfile->error;
                setEventMessages($mesg, null, 'errors');
              } else {
                setEventMessages('No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS', null, 'warnings');
              }
            }
          } else {
            setEventMessages($mailfile->error, $mailfile->errors, 'errors');
            $action = '';
          }
        } else {
        setEventMessages($langs->trans("NoEmailSentBadSenderOrRecipientEmail"), null, 'warnings');
        $action = '';
      }
    } else {
        setEventMessages($langs->trans("FailedtoSetToApprove"), null, 'warnings');
        $action = '';
      }
    }

  if ($action == "confirm_refuse" && GETPOST('confirm', 'alpha') == "yes" && $id > 0 && $user->rights->expensereport->approve)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);

    $detailRefuse = GETPOST('detail_refuse', 'alpha');
    $result = $object->setDeny($user, $detailRefuse);

    if ($result > 0)
    {
      // Define output language
      if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
      {
        $outputlangs = $langs;
        $newlang = '';
        if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
        if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
        if (!empty($newlang)) {
          $outputlangs = new Translate("", $conf);
          $outputlangs->setDefaultLang($newlang);
        }
        $model = $object->model_pdf;
        $ret = $object->fetch($id); // Reload to get new records

        $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
      }
    }

    if ($result > 0)
    {
      // Send mail

      // TO
      $destinataire = new User($db);
      $destinataire->fetch($object->fk_user_author);
      $emailTo = $destinataire->email;

      // FROM
      $expediteur = new User($db);
      $expediteur->fetch($object->fk_user_refuse);
      $emailFrom = $expediteur->email;

      if ($emailFrom && $emailTo)
      {
        $filename = array(); $filedir = array(); $mimetype = array();

        // SUBJECT
        $societeName = $conf->global->MAIN_INFO_SOCIETE_NOM;
        if (!empty($conf->global->MAIN_APPLICATION_TITLE)) $societeName = $conf->global->MAIN_APPLICATION_TITLE;

        $subject = $societeName." - ".$langs->transnoentities("ExpenseReportRefused");

          // CONTENT
          $link = $urlwithroot.'/expensereport/card.php?id='.$object->id;
        $link = '<a href="'.$link.'">'.$link.'</a>';
        $message = $langs->transnoentities("ExpenseReportRefusedMessage", $object->ref, $destinataire->getFullName($langs), $expediteur->getFullName($langs), $detailRefuse, $link);

          // Rebuilt pdf
        /*
            $object->setDocModel($user,"");
            $resultPDF = expensereport_pdf_create($db,$object,'',"",$langs);

            if($resultPDF
          {
              // ATTACHMENT
              $filename=array(); $filedir=array(); $mimetype=array();
              array_push($filename,dol_sanitizeFileName($object->ref).".pdf");
              array_push($filedir, $conf->expensereport->dir_output."/".dol_sanitizeFileName($object->ref)."/".dol_sanitizeFileName($object->ref).".pdf");
              array_push($mimetype,"application/pdf");
          }
          */

        // PREPARE SEND
        $mailfile = new CMailFile($subject, $emailTo, $emailFrom, $message, $filedir, $mimetype, $filename, '', '', 0, -1);

        if ($mailfile)
        {
          // SEND
          $result = $mailfile->sendfile();
          if ($result)
          {
            $mesg = $langs->trans('MailSuccessfulySent', $mailfile->getValidAddress($emailFrom, 2), $mailfile->getValidAddress($emailTo, 2));
            setEventMessages($mesg, null, 'mesgs');
            header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
            exit;
          } else {
            $langs->load("other");
            if ($mailfile->error)
            {
              $mesg = '';
              $mesg .= $langs->trans('ErrorFailedToSendMail', $emailFrom, $emailTo);
              $mesg .= '<br>'.$mailfile->error;
              setEventMessages($mesg, null, 'errors');
            } else {
              setEventMessages('No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS', null, 'warnings');
            }
          }
        } else {
          setEventMessages($mailfile->error, $mailfile->errors, 'errors');
          $action = '';
        }
      } else {
        setEventMessages($langs->trans("NoEmailSentBadSenderOrRecipientEmail"), null, 'warnings');
        $action = '';
      }
    } else {
      setEventMessages($langs->trans("FailedtoSetToDeny"), null, 'warnings');
      $action = '';
    }
  }

  //var_dump($user->id == $object->fk_user_validator);exit;
  if ($action == "confirm_cancel" && GETPOST('confirm', 'alpha') == "yes" && $id > 0 && $user->rights->expensereport->creer)
  {
    if (!GETPOST('detail_cancel', 'alpha'))
    {
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Comment")), null, 'errors');
    } else {
      $object = new ExpenseReport($db);
      $object->fetch($id);

      if ($user->id == $object->fk_user_valid || $user->id == $object->fk_user_author)
      {
        $detailCancel = GETPOST('detail_cancel', 'alpha');
        $result = $object->set_cancel($user, $detailCancel);

        if ($result > 0)
        {
          // Define output language
          if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
          {
            $outputlangs = $langs;
            $newlang = '';
            if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
            if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
            if (!empty($newlang)) {
              $outputlangs = new Translate("", $conf);
              $outputlangs->setDefaultLang($newlang);
            }
            $model = $object->model_pdf;
            $ret = $object->fetch($id); // Reload to get new records

            $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
          }
        }

        if ($result > 0)
        {
          // Send mail

          // TO
          $destinataire = new User($db);
          $destinataire->fetch($object->fk_user_author);
          $emailTo = $destinataire->email;

          // FROM
          $expediteur = new User($db);
          $expediteur->fetch($object->fk_user_cancel);
          $emailFrom = $expediteur->email;

          if ($emailFrom && $emailTo)
          {
            $filename = array(); $filedir = array(); $mimetype = array();

            // SUBJECT
            $societeName = $conf->global->MAIN_INFO_SOCIETE_NOM;
            if (!empty($conf->global->MAIN_APPLICATION_TITLE)) $societeName = $conf->global->MAIN_APPLICATION_TITLE;

            $subject = $societeName." - ".$langs->transnoentities("ExpenseReportCanceled");

            // CONTENT
            $link = $urlwithroot.'/expensereport/card.php?id='.$object->id;
            $link = '<a href="'.$link.'">'.$link.'</a>';
            $message = $langs->transnoentities("ExpenseReportCanceledMessage", $object->ref, $destinataire->getFullName($langs), $expediteur->getFullName($langs), $detailCancel, $link);

            // Rebuilt pdf
            /*
              $object->setDocModel($user,"");
              $resultPDF = expensereport_pdf_create($db,$object,'',"",$langs);

              if($resultPDF
              {
                // ATTACHMENT
                $filename=array(); $filedir=array(); $mimetype=array();
                array_push($filename,dol_sanitizeFileName($object->ref).".pdf");
                array_push($filedir, $conf->expensereport->dir_output."/".dol_sanitizeFileName($object->ref)."/".dol_sanitizeFileName($object->ref).".pdf");
                array_push($mimetype,"application/pdf");
              }
              */

            // PREPARE SEND
            $mailfile = new CMailFile($subject, $emailTo, $emailFrom, $message, $filedir, $mimetype, $filename, '', '', 0, -1);

            if ($mailfile)
            {
              // SEND
              $result = $mailfile->sendfile();
              if ($result)
              {
                $mesg = $langs->trans('MailSuccessfulySent', $mailfile->getValidAddress($emailFrom, 2), $mailfile->getValidAddress($emailTo, 2));
                setEventMessages($mesg, null, 'mesgs');
                header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
                exit;
              } else {
                $langs->load("other");
                if ($mailfile->error)
                {
                  $mesg = '';
                  $mesg .= $langs->trans('ErrorFailedToSendMail', $emailFrom, $emailTo);
                  $mesg .= '<br>'.$mailfile->error;
                  setEventMessages($mesg, null, 'errors');
                } else {
                  setEventMessages('No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS', null, 'warnings');
                }
              }
            } else {
              setEventMessages($mailfile->error, $mailfile->errors, 'errors');
              $action = '';
            }
          } else {
            setEventMessages($langs->trans("NoEmailSentBadSenderOrRecipientEmail"), null, 'warnings');
            $action = '';
          }
        } else {
          setEventMessages($langs->trans("FailedToSetToCancel"), null, 'warnings');
          $action = '';
        }
      } else {
        setEventMessages($object->error, $object->errors, 'errors');
      }
    }
  }

  if ($action == "confirm_setdraft" && GETPOST('confirm', 'alpha') == "yes" && $id > 0 && $user->rights->expensereport->creer)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);
    if ($user->id == $object->fk_user_author || $user->id == $object->fk_user_valid)
    {
      $result = $object->setStatut(0);

      if ($result > 0)
      {
        // Define output language
        if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
        {
          $outputlangs = $langs;
          $newlang = '';
          if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
          if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
          if (!empty($newlang)) {
            $outputlangs = new Translate("", $conf);
            $outputlangs->setDefaultLang($newlang);
          }
          $model = $object->model_pdf;
          $ret = $object->fetch($id); // Reload to get new records

          $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
        }
      }

      if ($result > 0)
      {
        header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
        exit;
      } else {
        setEventMessages($object->error, $object->errors, 'errors');
      }
    } else {
      setEventMessages("NOT_AUTHOR", '', 'errors');
    }
  }

  if ($action == 'set_unpaid' && $id > 0 && $user->rights->expensereport->to_paid)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);

    $result = $object->set_unpaid($user);

    if ($result > 0)
    {
      // Define output language
      if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
      {
        $outputlangs = $langs;
        $newlang = '';
        if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
        if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
        if (!empty($newlang)) {
          $outputlangs = new Translate("", $conf);
          $outputlangs->setDefaultLang($newlang);
        }
        $model = $object->model_pdf;
        $ret = $object->fetch($id); // Reload to get new records

        $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
      }
    }
  }

  if ($action == 'set_paid' && $id > 0 && $user->rights->expensereport->to_paid)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);

    $result = $object->set_paid($id, $user);

    if ($result > 0)
    {
      // Define output language
      if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
      {
        $outputlangs = $langs;
        $newlang = '';
        if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
        if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
        if (!empty($newlang)) {
          $outputlangs = new Translate("", $conf);
          $outputlangs->setDefaultLang($newlang);
        }
        $model = $object->model_pdf;
        $ret = $object->fetch($id); // Reload to get new records

        $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
      }
    }

    if ($result > 0)
    {
      // Send mail

      // TO
      $destinataire = new User($db);
      $destinataire->fetch($object->fk_user_author);
      $emailTo = $destinataire->email;

      // FROM
      $expediteur = new User($db);
      $expediteur->fetch($user->id);
      $emailFrom = $expediteur->email;

      if ($emailFrom && $emailTo)
      {
        $filename = array(); $filedir = array(); $mimetype = array();

        // SUBJECT
        $societeName = $conf->global->MAIN_INFO_SOCIETE_NOM;
        if (!empty($conf->global->MAIN_APPLICATION_TITLE)) $societeName = $conf->global->MAIN_APPLICATION_TITLE;

        $subject = $societeName." - ".$langs->transnoentities("ExpenseReportPaid");

        // CONTENT
        $link = $urlwithroot.'/expensereport/card.php?id='.$object->id;
        $link = '<a href="'.$link.'">'.$link.'</a>';
        $message = $langs->transnoentities("ExpenseReportPaidMessage", $object->ref, $destinataire->getFullName($langs), $expediteur->getFullName($langs), $link);

        // Generate pdf before attachment
        $object->setDocModel($user, "");
        $resultPDF = expensereport_pdf_create($db, $object, '', "", $langs);

        // PREPARE SEND
        $mailfile = new CMailFile($subject, $emailTo, $emailFrom, $message, $filedir, $mimetype, $filename, '', '', 0, -1);

        if ($mailfile)
        {
          // SEND
          $result = $mailfile->sendfile();
          if ($result)
          {
            $mesg = $langs->trans('MailSuccessfulySent', $mailfile->getValidAddress($emailFrom, 2), $mailfile->getValidAddress($emailTo, 2));
            setEventMessages($mesg, null, 'mesgs');
            header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
            exit;
          } else {
            $langs->load("other");
            if ($mailfile->error)
            {
              $mesg = '';
              $mesg .= $langs->trans('ErrorFailedToSendMail', $emailFrom, $emailTo);
              $mesg .= '<br>'.$mailfile->error;
              setEventMessages($mesg, null, 'errors');
            } else {
              setEventMessages('No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS', null, 'warnings');
            }
          }
        } else {
          setEventMessages($mailfile->error, $mailfile->errors, 'errors');
          $action = '';
        }
      } else {
        setEventMessages($langs->trans("NoEmailSentBadSenderOrRecipientEmail"), null, 'warnings');
        $action = '';
      }
    } else {
      setEventMessages($langs->trans("FailedToSetPaid"), null, 'warnings');
      $action = '';
    }
  }

  if ($action == "addline" && $user->rights->expensereport->creer)
  {
    $error = 0;

    // First save uploaded file
    $fk_ecm_files = 0;
    if (GETPOSTISSET('attachfile'))
    {
      $arrayoffiles = GETPOST('attachfile', 'array');
      if (is_array($arrayoffiles) && !empty($arrayoffiles[0]))
      {
        include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
        $relativepath = 'expensereport/'.$object->ref.'/'.$arrayoffiles[0];
        $ecmfiles = new EcmFiles($db);
        $ecmfiles->fetch(0, '', $relativepath);
        $fk_ecm_files = $ecmfiles->id;
      }
    }

    // if VAT is not used in Dolibarr, set VAT rate to 0 because VAT rate is necessary.
    if (empty($vatrate)) $vatrate = "0.000";
    $tmpvat = price2num(preg_replace('/\s*\(.*\)/', '', $vatrate));

    $value_unit_ht = price2num(GETPOST('value_unit_ht', 'alpha'), 'MU');
    $value_unit = price2num(GETPOST('value_unit', 'alpha'), 'MU');
    if (empty($value_unit))
    {
      $value_unit = price2num($value_unit_ht + ($value_unit_ht * $tmpvat / 100), 'MU');
    }

    $fk_c_exp_tax_cat = GETPOST('fk_c_exp_tax_cat', 'int');

    $qty = GETPOST('qty', 'int');
    if (empty($qty)) $qty = 1;

    if (!($fk_c_type_fees > 0))
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Type")), null, 'errors');
      $action = '';
    }

    if ((int) $tmpvat < 0 || $tmpvat == '')
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("VAT")), null, 'errors');
      $action = '';
    }

    // Si aucune date n'est rentrée
    if (empty($date) || $date == "--")
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Date")), null, 'errors');
    }
    // Si aucun prix n'est rentré
    if ($value_unit == 0)
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("PriceUTTC")), null, 'errors');
    }
    // Warning if date out of range
    if ($date < $object->date_debut || $date > ($object->date_fin + (24 * 3600 - 1)))
    {
      $langs->load("errors");
      setEventMessages($langs->trans("WarningDateOfLineMustBeInExpenseReportRange"), null, 'warnings');
    }

    if (!$error)
    {
      $type = 0; // TODO What if service ? We should take the type product/service from the type of expense report llx_c_type_fees

      // Insert line
      $result = $object->addline($qty, $value_unit, $fk_c_type_fees, $vatrate, $date, $comments, $fk_project, $fk_c_exp_tax_cat, $type, $fk_ecm_files);
      if ($result > 0)
      {
        $ret = $object->fetch($object->id); // Reload to get new records

        if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE)) {
          // Define output language
          $outputlangs = $langs;
          $newlang = GETPOST('lang_id', 'alpha');
          if (!empty($conf->global->MAIN_MULTILANGS) && empty($newlang))
            $newlang = $object->thirdparty->default_lang;
          if (!empty($newlang)) {
            $outputlangs = new Translate("", $conf);
            $outputlangs->setDefaultLang($newlang);
          }

          $object->generateDocument($object->model_pdf, $outputlangs, $hidedetails, $hidedesc, $hideref);
        }

        unset($qty);
        unset($value_unit_ht);
        unset($value_unit);
        unset($vatrate);
        unset($comments);
        unset($fk_c_type_fees);
        unset($fk_project);

        unset($date);
      } else {
        setEventMessages($object->error, $object->errors, 'errors');
      }
    }

    $action = '';
  }

  if ($action == 'confirm_delete_line' && GETPOST("confirm", 'alpha') == "yes" && $user->rights->expensereport->creer)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);

    $object_ligne = new ExpenseReportLine($db);
    $object_ligne->fetch(GETPOST("rowid", 'int'));
    $total_ht = $object_ligne->total_ht;
    $total_tva = $object_ligne->total_tva;

    $result = $object->deleteline(GETPOST("rowid", 'int'), $user);
    if ($result >= 0)
    {
      if ($result > 0)
      {
        // Define output language
        if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
        {
          $outputlangs = $langs;
          $newlang = '';
          if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
          if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
          if (!empty($newlang)) {
            $outputlangs = new Translate("", $conf);
            $outputlangs->setDefaultLang($newlang);
          }
          $model = $object->model_pdf;
          $ret = $object->fetch($id); // Reload to get new records

          $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
        }
      }

      $object->update_totaux_del($object_ligne->total_ht, $object_ligne->total_tva);
      header("Location: ".$_SERVER["PHP_SELF"]."?id=".$_GET['id']);
      exit;
    } else {
      setEventMessages($object->error, $object->errors, 'errors');
    }
  }

  if ($action == "updateline" && $user->rights->expensereport->creer)
  {
    $object = new ExpenseReport($db);
    $object->fetch($id);

    // First save uploaded file
    $fk_ecm_files = 0;
    if (GETPOSTISSET('attachfile'))
    {
      $arrayoffiles = GETPOST('attachfile', 'array');
      if (is_array($arrayoffiles) && !empty($arrayoffiles[0]))
      {
        include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
        $relativepath = 'expensereport/'.$object->ref.'/'.$arrayoffiles[0];
        $ecmfiles = new EcmFiles($db);
        $ecmfiles->fetch(0, '', $relativepath);
        $fk_ecm_files = $ecmfiles->id;
      }
    }

    $rowid = $_POST['rowid'];
    $type_fees_id = GETPOST('fk_c_type_fees', 'int');
    $fk_c_exp_tax_cat = GETPOST('fk_c_exp_tax_cat', 'int');
    $projet_id = $fk_project;
    $comments = GETPOST('comments', 'restricthtml');
    $qty = GETPOST('qty', 'int');
    $vatrate = GETPOST('vatrate', 'alpha');

    // if VAT is not used in Dolibarr, set VAT rate to 0 because VAT rate is necessary.
    if (empty($vatrate)) $vatrate = "0.000";
    $tmpvat = price2num(preg_replace('/\s*\(.*\)/', '', $vatrate));

    $value_unit_ht = price2num(GETPOST('value_unit_ht', 'alpha'), 'MU');
    $value_unit = price2num(GETPOST('value_unit', 'alpha'), 'MU');
    if (empty($value_unit))
    {
      $value_unit = price2num($value_unit_ht + ($value_unit_ht * $tmpvat / 100), 'MU');
    }

    if (!GETPOST('fk_c_type_fees', 'int') > 0)
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Type")), null, 'errors');
      $action = '';
    }
    if ((int) $tmpvat < 0 || $tmpvat == '')
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Vat")), null, 'errors');
      $action = '';
    }
    // Warning if date out of range
    if ($date < $object->date_debut || $date > ($object->date_fin + (24 * 3600 - 1)))
    {
      $langs->load("errors");
      setEventMessages($langs->trans("WarningDateOfLineMustBeInExpenseReportRange"), null, 'warnings');
    }

    if (!$error)
    {
      // TODO Use update method of ExpenseReportLine
      $result = $object->updateline($rowid, $type_fees_id, $projet_id, $vatrate, $comments, $qty, $value_unit, $date, $id, $fk_c_exp_tax_cat, $fk_ecm_files);
      if ($result >= 0)
      {
        if ($result > 0)
        {
          // Define output language
          if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
          {
            $outputlangs = $langs;
            $newlang = '';
            if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id', 'aZ09')) $newlang = GETPOST('lang_id', 'aZ09');
            if ($conf->global->MAIN_MULTILANGS && empty($newlang))  $newlang = $object->thirdparty->default_lang;
            if (!empty($newlang)) {
              $outputlangs = new Translate("", $conf);
              $outputlangs->setDefaultLang($newlang);
            }
            $model = $object->model_pdf;
            $ret = $object->fetch($id); // Reload to get new records

            $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
          }
        }

        $result = $object->recalculer($id);

        //header("Location: ".$_SERVER["PHP_SELF"]."?id=".$id);
        //exit;
      } else {
        setEventMessages($object->error, $object->errors, 'errors');
      }
    }
  }

  // Actions when printing a doc from card
  include DOL_DOCUMENT_ROOT.'/core/actions_printing.inc.php';

  // Actions to send emails
  $triggersendname = 'EXPENSEREPORT_SENTBYMAIL';
  $autocopy = 'MAIN_MAIL_AUTOCOPY_EXPENSEREPORT_TO';
  $trackid = 'exp'.$object->id;
  include DOL_DOCUMENT_ROOT.'/core/actions_sendmails.inc.php';

  // Actions to build doc
  $upload_dir = $conf->expensereport->dir_output;
  $permissiontoadd = $user->rights->expensereport->creer;
  include DOL_DOCUMENT_ROOT.'/core/actions_builddoc.inc.php';
}


/*
 * View
 */

$title = $langs->trans("ExpenseReport")." - ".$langs->trans("Card");
$helpurl = "EN:Module_Expense_Reports";

llxHeader("", $title, $helpurl);

$form = new Form($db);
$formfile = new FormFile($db);
$formproject = new FormProjets($db);
$projecttmp = new Project($db);
$paymentexpensereportstatic = new PaymentExpenseReport($db);
$bankaccountstatic = new Account($db);
$ecmfilesstatic = new EcmFiles($db);
$formexpensereport = new FormExpenseReport($db);

// Create
if ($action == 'create')
{
  print load_fiche_titre($langs->trans("NewTrip"), '', 'trip');

  print '<form action="'.$_SERVER['PHP_SELF'].'" method="post" name="create">';
  print '<input type="hidden" name="token" value="'.newToken().'">';
  print '<input type="hidden" name="action" value="add">';

  print dol_get_fiche_head('');

  print '<table class="border centpercent">';
  print '<tbody>';

  // Date start
  print '<tr>';
  print '<td class="titlefieldcreate fieldrequired">'.$langs->trans("DateStart").'</td>';
  print '<td>';
  print $form->selectDate($date_start ? $date_start : -1, 'date_debut', 0, 0, 0, '', 1, 1);
  print '</td>';
  print '</tr>';

  // Date end
  print '<tr>';
  print '<td class="fieldrequired">'.$langs->trans("DateEnd").'</td>';
  print '<td>';
  print $form->selectDate($date_end ? $date_end : -1, 'date_fin', 0, 0, 0, '', 1, 1);
  print '</td>';
  print '</tr>';

  // User for expense report
  print '<tr>';
  print '<td class="fieldrequired">'.$langs->trans("User").'</td>';
  print '<td>';
  $defaultselectuser = $user->id;
  if (GETPOST('fk_user_author', 'int') > 0) $defaultselectuser = GETPOST('fk_user_author', 'int');
  $include_users = 'hierarchyme';
  if (!empty($conf->global->MAIN_USE_ADVANCED_PERMS) && !empty($user->rights->expensereport->writeall_advance)) $include_users = array();
  $s = $form->select_dolusers($defaultselectuser, "fk_user_author", 0, "", 0, $include_users, '', '0,'.$conf->entity);
  print $s;
  print '</td>';
  print '</tr>';

  // Approver
  print '<tr>';
  print '<td>'.$langs->trans("VALIDATOR").'</td>';
  print '<td>';
  $object = new ExpenseReport($db);
  $include_users = $object->fetch_users_approver_expensereport();
  if (empty($include_users)) print img_warning().' '.$langs->trans("NobodyHasPermissionToValidateExpenseReport");
  else {
    $defaultselectuser = (empty($user->fk_user_expense_validator) ? $user->fk_user : $user->fk_user_expense_validator); // Will work only if supervisor has permission to approve so is inside include_users
    if (!empty($conf->global->EXPENSEREPORT_DEFAULT_VALIDATOR)) $defaultselectuser = $conf->global->EXPENSEREPORT_DEFAULT_VALIDATOR; // Can force default approver
    if (GETPOST('fk_user_validator', 'int') > 0) $defaultselectuser = GETPOST('fk_user_validator', 'int');
    $s = $form->select_dolusers($defaultselectuser, "fk_user_validator", 1, "", ((empty($defaultselectuser) || empty($conf->global->EXPENSEREPORT_DEFAULT_VALIDATOR_UNCHANGEABLE)) ? 0 : 1), $include_users);
    print $form->textwithpicto($s, $langs->trans("AnyOtherInThisListCanValidate"));
  }
  print '</td>';
  print '</tr>';

  // Payment mode
  if (!empty($conf->global->EXPENSEREPORT_ASK_PAYMENTMODE_ON_CREATION))
  {
    print '<tr>';
    print '<td>'.$langs->trans("ModePaiement").'</td>';
    print '<td>';
    $form->select_types_paiements('', 'fk_c_paiement');
    print '</td>';
    print '</tr>';
  }

  // Public note
  print '<tr>';
  print '<td class="tdtop">'.$langs->trans('NotePublic').'</td>';
  print '<td>';

  $doleditor = new DolEditor('note_public', $note_public, '', 80, 'dolibarr_notes', 'In', 0, false, true, ROWS_3, '90%');
  print $doleditor->Create(1);
  print '</td></tr>';

  // Private note
  if (empty($user->socid)) {
    print '<tr>';
    print '<td class="tdtop">'.$langs->trans('NotePrivate').'</td>';
    print '<td>';

    $doleditor = new DolEditor('note_private', $note_private, '', 80, 'dolibarr_notes', 'In', 0, false, true, ROWS_3, '90%');
    print $doleditor->Create(1);
    print '</td></tr>';
  }

  // Other attributes
  $parameters = array('colspan' => ' colspan="3"', 'cols' => 3);
  $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $object, $action); // Note that $action and $object may have been modified by
  print $hookmanager->resPrint;
  if (empty($reshook)) {
    print $object->showOptionals($extrafields, 'edit', $parameters);
  }

  print '<tbody>';
  print '</table>';

  print dol_get_fiche_end();

  print '<div class="center">';
  print '<input type="submit" value="'.$langs->trans("AddTrip").'" name="bouton" class="button" />';
  print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="button" value="'.$langs->trans("Cancel").'" class="button button-cancel" onclick="history.go(-1)" />';
  print '</div>';

  print '</form>';
} else {
  if ($id > 0 || $ref) {
    $result = $object->fetch($id, $ref);

    $res = $object->fetch_optionals();

    if ($result > 0)
    {
      if (!in_array($object->fk_user_author, $user->getAllChildIds(1)))
      {
        if (empty($user->rights->expensereport->readall) && empty($user->rights->expensereport->lire_tous)
          && (empty($conf->global->MAIN_USE_ADVANCED_PERMS) || empty($user->rights->expensereport->writeall_advance)))
        {
          print load_fiche_titre($langs->trans('TripCard'), '', 'trip');

          print '<div class="tabBar">';
          print $langs->trans('NotUserRightToView');
          print '</div>';

          // End of page
          llxFooter();
          $db->close();

          exit;
        }
      }

      $head = expensereport_prepare_head($object);

      if ($action == 'edit' && ($object->status < 3 || $object->status == 99))
      {
        print "<form name='update' action=\"".$_SERVER['PHP_SELF']."\" method=\"post\">\n";
        print '<input type="hidden" name="token" value="'.newToken().'">';
        print '<input type="hidden" name="id" value="'.$id.'">';

        print dol_get_fiche_head($head, 'card', $langs->trans("ExpenseReport"), 0, 'trip');

        if ($object->status == 99)
        {
          print '<input type="hidden" name="action" value="updateFromRefuse">';
        } else {
          print '<input type="hidden" name="action" value="update">';
        }

        $linkback = '<a href="'.DOL_URL_ROOT.'/expensereport/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';

        print '<table class="border" style="width:100%;">';

        print '<tr>';
        print '<td>'.$langs->trans("User").'</td>';
        print '<td>';
        $userfee = new User($db);
        if ($object->fk_user_author > 0)
        {
          $userfee->fetch($object->fk_user_author);
          print $userfee->getNomUrl(-1);
        }
        print '</td></tr>';

        // Ref
        print '<tr><td class="titlefieldcreate">'.$langs->trans("Ref").'</td><td>';
        print $form->showrefnav($object, 'ref', $linkback, 1, 'ref', 'ref', '');
        print '</td></tr>';

        print '<tr>';
        print '<td>'.$langs->trans("DateStart").'</td>';
        print '<td>';
        print $form->selectDate($object->date_debut, 'date_debut');
        print '</td>';
        print '</tr>';
        print '<tr>';
        print '<td>'.$langs->trans("DateEnd").'</td>';
        print '<td>';
        print $form->selectDate($object->date_fin, 'date_fin');
        print '</td>';
        print '</tr>';

        if (!empty($conf->global->EXPENSEREPORT_ASK_PAYMENTMODE_ON_CREATION))
        {
          print '<tr>';
          print '<td>'.$langs->trans("ModePaiement").'</td>';
          print '<td>';
          $form->select_types_paiements($object->fk_c_paiement, 'fk_c_paiement');
          print '</td>';
          print '</tr>';
        }

        if ($object->status < 3)
        {
          print '<tr>';
          print '<td>'.$langs->trans("VALIDATOR").'</td>'; // Approbator
          print '<td>';
          $include_users = $object->fetch_users_approver_expensereport();
          $s = $form->select_dolusers($object->fk_user_validator, "fk_user_validator", 1, "", 0, $include_users);
          print $form->textwithpicto($s, $langs->trans("AnyOtherInThisListCanValidate"));
          print '</td>';
          print '</tr>';
        } else {
          print '<tr>';
          print '<td>'.$langs->trans("VALIDOR").'</td>';
          print '<td>';
          $userfee = new User($db);
          $userfee->fetch($object->fk_user_valid);
          print $userfee->getNomUrl(-1);
          print '</td></tr>';
        }

        if ($object->status == 6)
        {
          print '<tr>';
          print '<td>'.$langs->trans("AUTHORPAIEMENT").'</td>';
          print '<td>';
          $userfee = new User($db);
          $userfee->fetch($user->id);
          print $userfee->getNomUrl(-1);
          print '</td></tr>';
        }

        // Other attributes
        //$cols = 3;
        //include DOL_DOCUMENT_ROOT . '/core/tpl/extrafields_edit.tpl.php';

        print '</table>';

        print dol_get_fiche_end();

        print '<div class="center">';
        print '<input type="submit" value="'.$langs->trans("Modify").'" name="bouton" class="button">';
        print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="button" value="'.$langs->trans("Cancel").'" class="button button-cancel" onclick="history.go(-1)" />';
        print '</div>';

        print '</form>';
      } else {
        print dol_get_fiche_head($head, 'card', $langs->trans("ExpenseReport"), -1, 'trip');

        // Clone confirmation
        if ($action == 'clone') {
          // Create an array for form
          $criteriaforfilter = 'hierarchyme';
          if (!empty($user->rights->expensereport->readall)) $criteriaforfilter = '';
          $formquestion = array(
            'text' => '',
            array('type' => 'other', 'name' => 'fk_user_author', 'label' => $langs->trans("SelectTargetUser"), 'value' => $form->select_dolusers((GETPOST('fk_user_author', 'int') > 0 ? GETPOST('fk_user_author', 'int') : $user->id), 'fk_user_author', 0, null, 0, $criteriaforfilter, '', '0', 0, 0, '', 0, '', 'maxwidth150'))
          );
          // Paiement incomplet. On demande si motif = escompte ou autre
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id, $langs->trans('ToClone'), $langs->trans('ConfirmCloneExpenseReport', $object->ref), 'confirm_clone', $formquestion, 'yes', 1);
        }

        if ($action == 'save')
        {
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("SaveTrip"), $langs->trans("ConfirmSaveTrip"), "confirm_validate", "", "", 1);
        }

        if ($action == 'save_from_refuse')
        {
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("SaveTrip"), $langs->trans("ConfirmSaveTrip"), "confirm_save_from_refuse", "", "", 1);
        }

        if ($action == 'delete')
        {
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("DeleteTrip"), $langs->trans("ConfirmDeleteTrip"), "confirm_delete", "", "", 1);
        }

        if ($action == 'validate')
        {
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("ValideTrip"), $langs->trans("ConfirmValideTrip"), "confirm_approve", "", "", 1);
        }

        if ($action == 'paid')
        {
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("PaidTrip"), $langs->trans("ConfirmPaidTrip"), "confirm_paid", "", "", 1);
        }

        if ($action == 'cancel')
        {
          $array_input = array('text'=>$langs->trans("ConfirmCancelTrip"), array('type'=>"text", 'label'=>'<strong>'.$langs->trans("Comment").'</strong>', 'name'=>"detail_cancel", 'value'=>""));
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("Cancel"), "", "confirm_cancel", $array_input, "", 1);
        }

        if ($action == 'setdraft')
        {
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("BrouillonnerTrip"), $langs->trans("ConfirmBrouillonnerTrip"), "confirm_setdraft", "", "", 1);
        }

        if ($action == 'refuse')    // Deny
        {
          $array_input = array('text'=>$langs->trans("ConfirmRefuseTrip"), array('type'=>"text", 'label'=>$langs->trans("Comment"), 'name'=>"detail_refuse", 'value'=>""));
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id, $langs->trans("Deny"), '', "confirm_refuse", $array_input, "yes", 1);
        }

        if ($action == 'delete_line')
        {
          $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$id."&rowid=".GETPOST('rowid', 'int'), $langs->trans("DeleteLine"), $langs->trans("ConfirmDeleteLine"), "confirm_delete_line", '', 'yes', 1);
        }

        // Print form confirm
        print $formconfirm;

        // Expense report card
        $linkback = '<a href="'.DOL_URL_ROOT.'/expensereport/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';

        $morehtmlref = '<div class="refidno">';
        /*
        // Ref customer
        $morehtmlref.=$form->editfieldkey("RefCustomer", 'ref_client', $object->ref_client, $object, $user->rights->commande->creer, 'string', '', 0, 1);
        $morehtmlref.=$form->editfieldval("RefCustomer", 'ref_client', $object->ref_client, $object, $user->rights->commande->creer, 'string', '', null, null, '', 1);
        // Thirdparty
        $morehtmlref.='<br>'.$langs->trans('ThirdParty') . ' : ' . $soc->getNomUrl(1);
        // Project
        if (! empty($conf->projet->enabled))
        {
            $langs->load("projects");
            $morehtmlref.='<br>'.$langs->trans('Project') . ' ';
            if ($user->rights->commande->creer)
            {
                if ($action != 'classify')
                    $morehtmlref.='<a class="editfielda" href="' . $_SERVER['PHP_SELF'] . '?action=classify&amp;id=' . $object->id . '">' . img_edit($langs->transnoentitiesnoconv('SetProject')) . '</a> : ';
                    if ($action == 'classify') {
                        //$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
                        $morehtmlref.='<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
                        $morehtmlref.='<input type="hidden" name="action" value="classin">';
                        $morehtmlref.='<input type="hidden" name="token" value="'.newToken().'">';
                        $morehtmlref.=$formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
                        $morehtmlref.='<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
                        $morehtmlref.='</form>';
                    } else {
                        $morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
                    }
            } else {
                if (! empty($object->fk_project)) {
                    $proj = new Project($db);
                    $proj->fetch($object->fk_project);
                    $morehtmlref.='<a href="'.DOL_URL_ROOT.'/projet/card.php?id=' . $object->fk_project . '" title="' . $langs->trans('ShowProject') . '">';
                    $morehtmlref.=$proj->ref;
                    $morehtmlref.='</a>';
                } else {
                    $morehtmlref.='';
                }
            }
        }*/
        $morehtmlref .= '</div>';

        dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);

        print '<div class="fichecenter">';
        print '<div class="fichehalfleft">';
        print '<div class="underbanner clearboth"></div>';

        print '<table class="border tableforfield centpercent">';

        // Author
        print '<tr>';
        print '<td class="titlefield">'.$langs->trans("User").'</td>';
        print '<td>';
        if ($object->fk_user_author > 0)
        {
          $userauthor = new User($db);
          $result = $userauthor->fetch($object->fk_user_author);
          if ($result < 0) dol_print_error('', $userauthor->error);
          elseif ($result > 0) print $userauthor->getNomUrl(-1);
        }
        print '</td></tr>';

        // Period
        print '<tr>';
        print '<td class="titlefield">'.$langs->trans("Period").'</td>';
        print '<td>';
        print get_date_range($object->date_debut, $object->date_fin, 'day', $langs, 0);
        print '</td>';
        print '</tr>';
        if (!empty($conf->global->EXPENSEREPORT_ASK_PAYMENTMODE_ON_CREATION))
        {
          print '<tr>';
          print '<td>'.$langs->trans("ModePaiement").'</td>';
          print '<td>'.$object->fk_c_paiement.'</td>';
          print '</tr>';
        }

        // Validation date
        print '<tr>';
        print '<td>'.$langs->trans("DATE_SAVE").'</td>';
        print '<td>'.dol_print_date($object->date_valid, 'dayhour', 'tzuser');
        if ($object->status == 2 && $object->hasDelay('toapprove')) print ' '.img_warning($langs->trans("Late").' - '.$langs->trans("ToApprove"));
        if ($object->status == 5 && $object->hasDelay('topay')) print ' '.img_warning($langs->trans("Late").' - '.$langs->trans("ToPay"));
        print '</td></tr>';
        print '</tr>';

        // User to inform for approval
        if ($object->status <= ExpenseReport::STATUS_VALIDATED) // informed
        {
          print '<tr>';
          print '<td>'.$langs->trans("VALIDATOR").'</td>'; // approver
          print '<td>';
          if ($object->fk_user_validator > 0)
          {
            $userfee = new User($db);
            $result = $userfee->fetch($object->fk_user_validator);
            if ($result > 0) print $userfee->getNomUrl(-1);
            if (empty($userfee->email) || !isValidEmail($userfee->email))
            {
              $langs->load("errors");
              print img_warning($langs->trans("ErrorBadEMail", $userfee->email));
            }
          }
          print '</td></tr>';
        } elseif ($object->status == ExpenseReport::STATUS_CANCELED)
        {
          print '<tr>';
          print '<td>'.$langs->trans("CANCEL_USER").'</span></td>';
          print '<td>';
          if ($object->fk_user_cancel > 0)
          {
            $userfee = new User($db);
            $result = $userfee->fetch($object->fk_user_cancel);
            if ($result > 0) print $userfee->getNomUrl(-1);
          }
          print '</td></tr>';

          print '<tr>';
          print '<td>'.$langs->trans("MOTIF_CANCEL").'</td>';
          print '<td>'.$object->detail_cancel.'</td></tr>';
          print '</tr>';
          print '<tr>';
          print '<td>'.$langs->trans("DATE_CANCEL").'</td>';
          print '<td>'.dol_print_date($object->date_cancel, 'dayhour', 'tzuser').'</td></tr>';
          print '</tr>';
        } else {
          print '<tr>';
          print '<td>'.$langs->trans("ApprovedBy").'</td>';
          print '<td>';
          if ($object->fk_user_approve > 0)
          {
            $userapp = new User($db);
            $result = $userapp->fetch($object->fk_user_approve);
            if ($result > 0) print $userapp->getNomUrl(-1);
          }
          print '</td></tr>';

          print '<tr>';
          print '<td>'.$langs->trans("DateApprove").'</td>';
          print '<td>'.dol_print_date($object->date_approve, 'dayhour', 'tzuser').'</td></tr>';
          print '</tr>';
        }

        if ($object->status == 99 || !empty($object->detail_refuse))
        {
          print '<tr>';
          print '<td>'.$langs->trans("REFUSEUR").'</td>';
          print '<td>';
          $userfee = new User($db);
          $result = $userfee->fetch($object->fk_user_refuse);
          if ($result > 0) print $userfee->getNomUrl(-1);
          print '</td></tr>';

          print '<tr>';
          print '<td>'.$langs->trans("DATE_REFUS").'</td>';
          print '<td>'.dol_print_date($object->date_refuse, 'dayhour', 'tzuser');
          if ($object->detail_refuse) print ' - '.$object->detail_refuse;
          print '</td>';
          print '</tr>';
        }

        if ($object->status == $object::STATUS_CLOSED)
        {
          /* TODO this fields are not yet filled
          print '<tr>';
          print '<td>'.$langs->trans("AUTHORPAIEMENT").'</td>';
          print '<td>';
          $userfee=new User($db);
          $userfee->fetch($object->fk_user_paid);
          print $userfee->getNomUrl(-1);
          print '</td></tr>';
          print '<tr>';
          print '<td>'.$langs->trans("DATE_PAIEMENT").'</td>';
          print '<td>'.$object->date_paiement.'</td></tr>';
          print '</tr>';
          */
        }

        // Other attributes
        $cols = 2;
        include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_view.tpl.php';

        print '</table>';

        print '</div>';
        print '<div class="fichehalfright">';
        print '<div class="ficheaddleft">';
        print '<div class="underbanner clearboth"></div>';

        print '<table class="border tableforfield centpercent">';

        // Amount
        print '<tr>';
        print '<td class="titlefieldmiddle">'.$langs->trans("AmountHT").'</td>';
        print '<td class="nowrap amountcard">'.price($object->total_ht, 1, '', 1, - 1, - 1, $conf->currency).'</td>';
        $rowspan = 5;
        if ($object->status <= ExpenseReport::STATUS_VALIDATED) $rowspan++;
        elseif ($object->status == ExpenseReport::STATUS_CANCELED) $rowspan += 2;
        else $rowspan += 2;
        if ($object->status == ExpenseReport::STATUS_REFUSED || !empty($object->detail_refuse)) $rowspan += 2;
        if ($object->status == ExpenseReport::STATUS_CLOSED) $rowspan += 2;
        print "</td>";
        print '</tr>';

        print '<tr>';
        print '<td>'.$langs->trans("AmountVAT").'</td>';
        print '<td class="nowrap amountcard">'.price($object->total_tva, 1, '', 1, - 1, - 1, $conf->currency).'</td>';
        print '</tr>';

        print '<tr>';
        print '<td>'.$langs->trans("AmountTTC").'</td>';
        print '<td class="nowrap amountcard">'.price($object->total_ttc, 1, '', 1, - 1, - 1, $conf->currency).'</td>';
        print '</tr>';

        // List of payments already done
        $nbcols = 3;
        if (!empty($conf->banque->enabled)) {
          $nbrows++;
          $nbcols++;
        }

        print '<table class="noborder paymenttable" width="100%">';

        print '<tr class="liste_titre">';
        print '<td class="liste_titre">'.$langs->trans('Payments').'</td>';
        print '<td class="liste_titre">'.$langs->trans('Date').'</td>';
        print '<td class="liste_titre">'.$langs->trans('Type').'</td>';
        if (!empty($conf->banque->enabled)) {
          print '<td class="liste_titre right">'.$langs->trans('BankAccount').'</td>';
        }
        print '<td class="liste_titre right">'.$langs->trans('Amount').'</td>';
        print '<td class="liste_titre" width="18">&nbsp;</td>';
        print '</tr>';

        // Payments already done (from payment on this expensereport)
        $sql = "SELECT p.rowid, p.num_payment, p.datep as dp, p.amount, p.fk_bank,";
        $sql .= "c.code as p_code, c.libelle as payment_type,";
        $sql .= "ba.rowid as baid, ba.ref as baref, ba.label, ba.number as banumber, ba.account_number, ba.fk_accountancy_journal";
        $sql .= " FROM ".MAIN_DB_PREFIX."expensereport as e, ".MAIN_DB_PREFIX."payment_expensereport as p";
        $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_paiement as c ON p.fk_typepayment = c.id";
        $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'bank as b ON p.fk_bank = b.rowid';
        $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'bank_account as ba ON b.fk_account = ba.rowid';
        $sql .= " WHERE e.rowid = '".$id."'";
        $sql .= " AND p.fk_expensereport = e.rowid";
        $sql .= ' AND e.entity IN ('.getEntity('expensereport').')';
        $sql .= " ORDER BY dp";

        $resql = $db->query($sql);
        if ($resql)
        {
          $num = $db->num_rows($resql);
          $i = 0; $totalpaid = 0;
          while ($i < $num)
          {
            $objp = $db->fetch_object($resql);

            $paymentexpensereportstatic->id = $objp->rowid;
            $paymentexpensereportstatic->datepaye = $db->jdate($objp->dp);
            $paymentexpensereportstatic->ref = $objp->rowid;
            $paymentexpensereportstatic->num_payment = $objp->num_payment;
            $paymentexpensereportstatic->payment_code = $objp->payment_code;

            print '<tr class="oddseven">';
            print '<td>';
            print $paymentexpensereportstatic->getNomUrl(1);
            print '</td>';
            print '<td>'.dol_print_date($db->jdate($objp->dp), 'day')."</td>\n";
            $labeltype = $langs->trans("PaymentType".$objp->p_code) != ("PaymentType".$objp->p_code) ? $langs->trans("PaymentType".$objp->p_code) : $objp->payment_type;
            print "<td>".$labeltype.' '.$objp->num_payment."</td>\n";
            if (!empty($conf->banque->enabled))
            {
              $bankaccountstatic->id = $objp->baid;
              $bankaccountstatic->ref = $objp->baref;
              $bankaccountstatic->label = $objp->baref;
              $bankaccountstatic->number = $objp->banumber;

              if (!empty($conf->accounting->enabled)) {
                $bankaccountstatic->account_number = $objp->account_number;

                $accountingjournal = new AccountingJournal($db);
                $accountingjournal->fetch($objp->fk_accountancy_journal);
                $bankaccountstatic->accountancy_journal = $accountingjournal->getNomUrl(0, 1, 1, '', 1);
              }

              print '<td class="right">';
              if ($bankaccountstatic->id)
                print $bankaccountstatic->getNomUrl(1, 'transactions');
              print '</td>';
            }
            print '<td class="right">'.price($objp->amount)."</td>";
            print '<td></td>';
            print "</tr>";
            $totalpaid += $objp->amount;
            $i++;
          }
          if (!is_null($totalpaid))
          {
            $totalpaid = price2num($totalpaid); // Round $totalpaid to fix floating problem after addition into loop
          }

          $remaintopay = price2num($object->total_ttc - $totalpaid);
          $resteapayeraffiche = $remaintopay;

          $cssforamountpaymentcomplete = 'amountpaymentcomplete';

          if ($object->status == ExpenseReport::STATUS_REFUSED)
          {
            $cssforamountpaymentcomplete = 'amountpaymentneutral';
            $resteapayeraffiche = 0;
          } elseif ($object->paid == 0)
          {
            $cssforamountpaymentcomplete = 'amountpaymentneutral';
          }
          print '<tr><td colspan="'.$nbcols.'" class="right">'.$langs->trans("AlreadyPaid").':</td><td class="right">'.price($totalpaid).'</td><td></td></tr>';
          print '<tr><td colspan="'.$nbcols.'" class="right">'.$langs->trans("AmountExpected").':</td><td class="right">'.price($object->total_ttc).'</td><td></td></tr>';

          print '<tr><td colspan="'.$nbcols.'" class="right">'.$langs->trans("RemainderToPay").':</td>';
          print '<td class="right'.($resteapayeraffiche ? ' amountremaintopay' : (' '.$cssforamountpaymentcomplete)).'">'.price($resteapayeraffiche).'</td><td></td></tr>';

          $db->free($resql);
        } else {
          dol_print_error($db);
        }
        print "</table>";

        print '</div>';
        print '</div>';
        print '</div>';

        print '<div class="clearboth"></div><br>';

        print '<div style="clear: both;"></div>';

        $actiontouse = 'updateline';
        if (($object->status == 0 || $object->status == 99) && $action != 'editline') $actiontouse = 'addline';

        print '<form name="expensereport" action="'.$_SERVER["PHP_SELF"].'" enctype="multipart/form-data" method="post" >';
        print '<input type="hidden" name="token" value="'.newToken().'">';
        print '<input type="hidden" name="action" value="'.$actiontouse.'">';
        print '<input type="hidden" name="id" value="'.$object->id.'">';
        print '<input type="hidden" name="fk_expensereport" value="'.$object->id.'" />';

        print '<div class="div-table-responsive-no-min">';
        print '<table id="tablelines" class="noborder centpercent">';

        if (!empty($object->lines))
        {
          $i = 0; $total = 0;

          print '<tr class="liste_titre">';
          print '<td class="center">'.$langs->trans('LineNb').'</td>';
          //print '<td class="center">'.$langs->trans('Piece').'</td>';
          print '<td class="center">'.$langs->trans('Date').'</td>';
          if (!empty($conf->projet->enabled)) print '<td class="minwidth100imp">'.$langs->trans('Project').'</td>';
          print '<td class="center">'.$langs->trans('Type').'</td>';
          if (!empty($conf->global->MAIN_USE_EXPENSE_IK)) print '<td>'.$langs->trans('CarCategory').'</td>';
          print '<td>'.$langs->trans('Description').'</td>';
          print '<td class="right">'.$langs->trans('VAT').'</td>';
          print '<td class="right">'.$langs->trans('PriceUHT').'</td>';
          print '<td class="right">'.$langs->trans('PriceUTTC').'</td>';
          print '<td class="right">'.$langs->trans('Qty').'</td>';
          if ($action != 'editline')
          {
            print '<td class="right">'.$langs->trans('AmountHT').'</td>';
            print '<td class="right">'.$langs->trans('AmountTTC').'</td>';
          }
          // Picture
          print '<td>';
          print '</td>';
          // Ajout des boutons de modification/suppression
          if (($object->status < 2 || $object->status == 99) && $user->rights->expensereport->creer)
          {
            print '<td class="right"></td>';
          }
          print '</tr>';

          foreach ($object->lines as &$line)
          {
            $numline = $i + 1;

            if ($action != 'editline' || $line->rowid != GETPOST('rowid', 'int'))
            {
              print '<tr class="oddeven">';

              // Num
              print '<td class="center">';
              print $numline;
              print '</td>';

              // Date
              print '<td class="center">'.dol_print_date($db->jdate($line->date), 'day').'</td>';

              // Project
              if (!empty($conf->projet->enabled))
              {
                print '<td>';
                if ($line->fk_project > 0)
                {
                  $projecttmp->id = $line->fk_project;
                  $projecttmp->ref = $line->projet_ref;
                  $projecttmp->title = $line->projet_title;
                  print $projecttmp->getNomUrl(1);
                }
                print '</td>';
              }

              // Type of fee
              print '<td class="center">';
              $labeltype = ($langs->trans(($line->type_fees_code)) == $line->type_fees_code ? $line->type_fees_libelle : $langs->trans($line->type_fees_code));
              print $labeltype;
              print '</td>';

              // IK
              if (!empty($conf->global->MAIN_USE_EXPENSE_IK))
              {
                print '<td class="fk_c_exp_tax_cat">';
                print dol_getIdFromCode($db, $line->fk_c_exp_tax_cat, 'c_exp_tax_cat', 'rowid', 'label');
                print '</td>';
              }

              // Comment
              print '<td class="left">'.dol_nl2br($line->comments).'</td>';
              // VAT rate
              print '<td class="right">'.vatrate($line->vatrate, true).'</td>';
              // Unit price HT
              print '<td class="right">';
              if (!empty($line->value_unit_ht))
              {
                print price($line->value_unit_ht);
              } else {
                $tmpvat = price2num(preg_replace('/\s*\(.*\)/', '', $line->vatrate));
                $pricenettoshow = price2num($line->value_unit / (1 + $tmpvat / 100), 'MU');
                print $pricenettoshow;
              }
              print '</td>';

              print '<td class="right">'.price($line->value_unit).'</td>';

              print '<td class="right">'.dol_escape_htmltag($line->qty).'</td>';

              if ($action != 'editline')
              {
                print '<td class="right">'.price($line->total_ht).'</td>';
                print '<td class="right">'.price($line->total_ttc).'</td>';
              }

              // Column with preview
              print '<td class="center">';
              if ($line->fk_ecm_files > 0)
              {
                $modulepart = 'expensereport';
                $maxheightmini = 32;

                $result = $ecmfilesstatic->fetch($line->fk_ecm_files);
                if ($result > 0)
                {
                  $relativepath = preg_replace('/expensereport\//', '', $ecmfilesstatic->filepath);
                  $fileinfo = pathinfo($ecmfilesstatic->filepath.'/'.$ecmfilesstatic->filename);
                  if (image_format_supported($fileinfo['basename']) > 0)
                  {
                    $minifile = getImageFileNameForSize($fileinfo['basename'], '_mini'); // For new thumbs using same ext (in lower case howerver) than original
                    if (!dol_is_file($conf->expensereport->dir_output.'/'.$relativepath.'/'.$minifile)) $minifile = getImageFileNameForSize($fileinfo['basename'], '_mini', '.png'); // For backward compatibility of old thumbs that were created with filename in lower case and with .png extension
                    //print $file['path'].'/'.$minifile.'<br>';
                    $urlforhref = getAdvancedPreviewUrl($modulepart, $relativepath.'/'.$fileinfo['filename'].'.'.strtolower($fileinfo['extension']), 1, '&entity='.(!empty($object->entity) ? $object->entity : $conf->entity));
                    if (empty($urlforhref)) {
                      $urlforhref = DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&entity='.(!empty($object->entity) ? $object->entity : $conf->entity).'&file='.urlencode($relativepath.$fileinfo['filename'].'.'.strtolower($fileinfo['extension']));
                      print '<a href="'.$urlforhref.'" class="aphoto" target="_blank">';
                    } else {
                      print '<a href="'.$urlforhref['url'].'" class="'.$urlforhref['css'].'" target="'.$urlforhref['target'].'" mime="'.$urlforhref['mime'].'">';
                    }
                    print '<img class="photo" height="'.$maxheightmini.'" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.$modulepart.'&entity='.(!empty($object->entity) ? $object->entity : $conf->entity).'&file='.urlencode($relativepath.'/'.$minifile).'" title="">';
                    print '</a>';
                  } else {
                    $modulepart = 'expensereport';
                    $thumbshown = 0;
                    if (preg_match('/\.pdf$/i', $ecmfilesstatic->filename))
                    {
                      $filepdf = $conf->expensereport->dir_output.'/'.$relativepath.'/'.$ecmfilesstatic->filename;
                      $fileimage = $conf->expensereport->dir_output.'/'.$relativepath.'/'.$ecmfilesstatic->filename.'_preview.png';
                      $relativepathimage = $relativepath.'/'.$ecmfilesstatic->filename.'_preview.png';

                      $pdfexists = file_exists($filepdf);
                      if ($pdfexists)
                      {
                        // Conversion du PDF en image png si fichier png non existant
                        if (!file_exists($fileimage) || (filemtime($fileimage) < filemtime($filepdf)))
                        {
                          if (empty($conf->global->MAIN_DISABLE_PDF_THUMBS))    // If you experience trouble with pdf thumb generation and imagick, you can disable here.
                          {
                            include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
                            $ret = dol_convert_file($filepdf, 'png', $fileimage, '0'); // Convert first page of PDF into a file _preview.png
                            if ($ret < 0) $error++;
                          }
                        }
                      }

                      if ($pdfexists && !$error)
                      {
                        $heightforphotref = 70;
                        if (!empty($conf->dol_optimize_smallscreen)) $heightforphotref = 60;
                        // If the preview file is found
                        if (file_exists($fileimage))
                        {
                          $thumbshown = 1;
                          print '<img height="'.$heightforphotref.'" class="photo photowithmargin photowithborder" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=apercu'.$modulepart.'&amp;file='.urlencode($relativepathimage).'">';
                        }
                      }
                    }

                    if (!$thumbshown)
                    {
                      print img_mime($ecmfilesstatic->filename);
                    }
                  }
                }
              }
              print '</td>';

              // Ajout des boutons de modification/suppression
              if (($object->status < ExpenseReport::STATUS_VALIDATED || $object->status == ExpenseReport::STATUS_REFUSED) && $user->rights->expensereport->creer)
              {
                print '<td class="nowrap right">';

                print '<a class="editfielda reposition paddingrightonly" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&amp;action=editline&amp;token='.newToken().'&amp;rowid='.$line->rowid.'">';
                print img_edit();
                print '</a> &nbsp; ';
                print '<a class="paddingrightonly" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&amp;action=delete_line&amp;token='.newToken().'&amp;rowid='.$line->rowid.'">';
                print img_delete();
                print '</a>';

                print '</td>';
              }

              print '</tr>';
            }

            if ($action == 'editline' && $line->rowid == GETPOST('rowid', 'int'))
            {
              // Add line with link to add new file or attach line to an existing file
              $colspan = 10;
              if (!empty($conf->projet->enabled)) $colspan++;
              if (!empty($conf->global->MAIN_USE_EXPENSE_IK)) $colspan++;

              print '<tr class="tredited">';

              print '<td class="center">';
              print $numline;
              print '</td>';

              print '<td colspan="'.($colspan - 1).'" class="liste_titre">';
              print '<a href="" class="commonlink auploadnewfilenow reposition">'.$langs->trans("UploadANewFileNow");
              print img_picto($langs->trans("UploadANewFileNow"), 'chevron-down', '', false, 0, 0, '', 'marginleftonly');
              print '</a>';
              if (empty($conf->global->EXPENSEREPORT_DISABLE_ATTACHMENT_ON_LINES))
              {
                print ' &nbsp; - &nbsp; <a href="" class="commonlink aattachtodoc reposition">'.$langs->trans("AttachTheNewLineToTheDocument");
                print img_picto($langs->trans("AttachTheNewLineToTheDocument"), 'chevron-down', '', false, 0, 0, '', 'marginleftonly');
                print '</a>';
              }

              print '<script language="javascript">'."\n";
              print '$(document).ready(function() {
                        $( ".auploadnewfilenow" ).click(function() {
                            jQuery(".truploadnewfilenow").toggle();
                                    jQuery(".trattachnewfilenow").hide();
                                    return false;
                                });
                        $( ".aattachtodoc" ).click(function() {
                            jQuery(".trattachnewfilenow").toggle();
                                    jQuery(".truploadnewfilenow").hide();
                                    return false;
                                });';
              if (is_array(GETPOST('attachfile', 'array')) && count(GETPOST('attachfile', 'array')))
              {
                print 'jQuery(".trattachnewfilenow").toggle();'."\n";
              }
              print '
                            });
                    ';
              print '</script>'."\n";
              print '</td></tr>';

              $filenamelinked = '';
              if ($line->fk_ecm_files > 0)
              {
                $result = $ecmfilesstatic->fetch($line->fk_ecm_files);
                if ($result > 0)
                {
                  $filenamelinked = $ecmfilesstatic->filename;
                }
              }

              $tredited = 'tredited';
              include DOL_DOCUMENT_ROOT.'/expensereport/tpl/expensereport_addfile.tpl.php';
              include DOL_DOCUMENT_ROOT.'/expensereport/tpl/expensereport_linktofile.tpl.php';

              print '<tr class="oddeven tredited">';

              print '<td></td>';

              // Select date
              print '<td class="center">';
              print $form->selectDate($line->date, 'date');
              print '</td>';

              // Select project
              if (!empty($conf->projet->enabled))
              {
                print '<td>';
                $formproject->select_projects(-1, $line->fk_project, 'fk_project', 0, 0, 1, 1, 0, 0, 0, '', 0, 0, 'maxwidth300');
                print '</td>';
              }

              // Select type
              print '<td class="center">';
              print $formexpensereport->selectTypeExpenseReport($line->fk_c_type_fees, 'fk_c_type_fees');
              print '</td>';

              if (!empty($conf->global->MAIN_USE_EXPENSE_IK))
              {
                print '<td class="fk_c_exp_tax_cat">';
                $params = array('fk_expense' => $object->id, 'fk_expense_det' => $line->rowid, 'date' => $line->dates);
                print $form->selectExpenseCategories($line->fk_c_exp_tax_cat, 'fk_c_exp_tax_cat', 1, array(), 'fk_c_type_fees', $userauthor->default_c_exp_tax_cat, $params);
                print '</td>';
              }

              // Add comments
              print '<td>';
              print '<textarea name="comments" class="flat_ndf centpercent">'.dol_escape_htmltag($line->comments, 0, 1).'</textarea>';
              print '</td>';

              // VAT
              print '<td class="right">';
              print $form->load_tva('vatrate', (isset($_POST["vatrate"]) ? $_POST["vatrate"] : $line->vatrate), $mysoc, '', 0, 0, '', false, 1);
              print '</td>';

              // Unit price
              print '<td class="right">';
              print '<input type="text" min="0" class="right maxwidth50" id="value_unit_ht" name="value_unit_ht" value="'.dol_escape_htmltag(price2num($line->value_unit_ht)).'" />';
              print '</td>';

              // Unit price with tax
              print '<td class="right">';
              print '<input type="text" min="0" class="right maxwidth50" id="value_unit" name="value_unit" value="'.dol_escape_htmltag(price2num($line->value_unit)).'" />';
              print '</td>';

              // Quantity
              print '<td class="right">';
              print '<input type="number" min="0" class="right maxwidth50" name="qty" value="'.dol_escape_htmltag($line->qty).'" />';
              print '</td>';

              //print '<td class="right">'.$langs->trans('AmountHT').'</td>';
              //print '<td class="right">'.$langs->trans('AmountTTC').'</td>';

              // Picture
              print '<td class="center">';
              //print $line->fk_ecm_files;
              print '</td>';

              print '<td class="center">';
              print '<input type="hidden" name="rowid" value="'.$line->rowid.'">';
              print '<input type="submit" class="button button-save" name="save" value="'.$langs->trans("Save").'">';
              print '<br><input type="submit" class="button button-cancel" name="cancel" value="'.$langs->trans("Cancel").'">';
              print '</td>';

              print '</tr>';
            }

            $i++;
          }
        }

        // Add a new line
        if (($object->status == ExpenseReport::STATUS_DRAFT || $object->status == ExpenseReport::STATUS_REFUSED)
          && $action != 'editline'
          && $user->rights->expensereport->creer)
        {
          $colspan = 11;
          if (!empty($conf->global->MAIN_USE_EXPENSE_IK)) $colspan++;
          if (!empty($conf->projet->enabled)) $colspan++;
          if ($action != 'editline') $colspan++;

          $nbFiles = $nbLinks = 0;
          $arrayoffiles = array();
          if (empty($conf->global->EXPENSEREPORT_DISABLE_ATTACHMENT_ON_LINES))
          {
            require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
            require_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
            require_once DOL_DOCUMENT_ROOT.'/core/class/link.class.php';
            $upload_dir = $conf->expensereport->dir_output."/".dol_sanitizeFileName($object->ref);
            $arrayoffiles = dol_dir_list($upload_dir, 'files', 0, '', '(\.meta|_preview.*\.png|'.preg_quote(dol_sanitizeFileName($object->ref.'.pdf'), '/').')$');
            $nbFiles = count($arrayoffiles);
            $nbLinks = Link::count($db, $object->element, $object->id);
          }

          // Add line with link to add new file or attach to an existing file
          print '<tr class="liste_titre">';
          print '<td colspan="'.$colspan.'" class="liste_titre">';
          print '<a href="" class="commonlink auploadnewfilenow reposition">'.$langs->trans("UploadANewFileNow");
          print img_picto($langs->trans("UploadANewFileNow"), 'chevron-down', '', false, 0, 0, '', 'marginleftonly');
          print '</a>';
          if (empty($conf->global->EXPENSEREPORT_DISABLE_ATTACHMENT_ON_LINES))
          {
            print ' &nbsp; - &nbsp; <a href="" class="commonlink aattachtodoc reposition">'.$langs->trans("AttachTheNewLineToTheDocument");
            print img_picto($langs->trans("AttachTheNewLineToTheDocument"), 'chevron-down', '', false, 0, 0, '', 'marginleftonly');
            print '</a>';
          }

          print '<script language="javascript">'."\n";
          print '$(document).ready(function() {
                $( ".auploadnewfilenow" ).click(function() {
                    jQuery(".truploadnewfilenow").toggle();
                            jQuery(".trattachnewfilenow").hide();
                            return false;
                        });
                $( ".aattachtodoc" ).click(function() {
                    jQuery(".trattachnewfilenow").toggle();
                            jQuery(".truploadnewfilenow").hide();
                            return false;
                        });'."\n";
          if (is_array(GETPOST('attachfile', 'array')) && count(GETPOST('attachfile', 'array')) && $action != 'updateline')
          {
            print 'jQuery(".trattachnewfilenow").show();'."\n";
          }
          print '
                    });
            ';
          print '</script>'."\n";
          print '</td></tr>';

          include DOL_DOCUMENT_ROOT.'/expensereport/tpl/expensereport_addfile.tpl.php';
          include DOL_DOCUMENT_ROOT.'/expensereport/tpl/expensereport_linktofile.tpl.php';

          print '<tr class="liste_titre">';
          print '<td></td>';
          print '<td class="center">'.$langs->trans('Date').'</td>';
          if (!empty($conf->projet->enabled)) {
            print '<td class="minwidth100imp">'.$form->textwithpicto($langs->trans('Project'), $langs->trans("ClosedProjectsAreHidden")).'</td>';
          }
          print '<td class="center">'.$langs->trans('Type').'</td>';
          if (!empty($conf->global->MAIN_USE_EXPENSE_IK)) {
            print '<td>'.$langs->trans('CarCategory').'</td>';
          }
          print '<td>'.$langs->trans('Description').'</td>';
          print '<td class="right">'.$langs->trans('VAT').'</td>';
          print '<td class="right">'.$langs->trans('PriceUHT').'</td>';
          print '<td class="right">'.$langs->trans('PriceUTTC').'</td>';
          print '<td class="right">'.$langs->trans('Qty').'</td>';
          print '<td></td>';
          print '<td></td>';
          print '<td></td>';
          print '<td></td>';
          print '</tr>';

          print '<tr class="oddeven nohover">';

          // Line number
          print '<td></td>';

          // Select date
          print '<td class="center">';
          print $form->selectDate($date ? $date : -1, 'date', 0, 0, 0, '', 1, 1);
          print '</td>';

          // Select project
          if (!empty($conf->projet->enabled))
          {
            print '<td>';
            $formproject->select_projects(-1, $fk_project, 'fk_project', 0, 0, 1, -1, 0, 0, 0, '', 0, 0, 'maxwidth300');
            print '</td>';
          }

          // Select type
          print '<td class="center">';
          print $formexpensereport->selectTypeExpenseReport($fk_c_type_fees, 'fk_c_type_fees', 1);
          print '</td>';

          if (!empty($conf->global->MAIN_USE_EXPENSE_IK))
          {
            print '<td class="fk_c_exp_tax_cat">';
            $params = array('fk_expense' => $object->id);
            print $form->selectExpenseCategories('', 'fk_c_exp_tax_cat', 1, array(), 'fk_c_type_fees', $userauthor->default_c_exp_tax_cat, $params, 0);
            print '</td>';
          }

          // Add comments
          print '<td>';
          print '<textarea class="flat_ndf centpercent" name="comments" rows="'.ROWS_2.'">'.dol_escape_htmltag($comments, 0, 1).'</textarea>';
          print '</td>';

          // Select VAT
          print '<td class="right">';
          $defaultvat = -1;
          if (!empty($conf->global->EXPENSEREPORT_NO_DEFAULT_VAT)) $conf->global->MAIN_VAT_DEFAULT_IF_AUTODETECT_FAILS = 'none';
          print $form->load_tva('vatrate', ($vatrate != '' ? $vatrate : $defaultvat), $mysoc, '', 0, 0, '', false, 1);
          print '</td>';

          // Unit price net
          print '<td class="right">';
          print '<input type="text" class="right maxwidth50" id="value_unit_ht" name="value_unit_ht" value="'.dol_escape_htmltag($value_unit_ht).'">';
          print '</td>';

          // Unit price with tax
          print '<td class="right">';
          print '<input type="text" class="right maxwidth50" id="value_unit" name="value_unit" value="'.dol_escape_htmltag($value_unit).'">';
          print '</td>';

          // Quantity
          print '<td class="right">';
          print '<input type="text" min="0" class="right maxwidth50" name="qty" value="'.dol_escape_htmltag($qty ? $qty : 1).'">'; // We must be able to enter decimal qty
          print '</td>';

          // Picture
          print '<td></td>';

          if ($action != 'editline')
          {
            print '<td class="right"></td>';
            print '<td class="right"></td>';
          }

          print '<td class="center"><input type="submit" value="'.$langs->trans("Add").'" name="bouton" class="button"></td>';

          print '</tr>';
        } // Fin si c'est payé/validé

        print '</table>';
        print '</div>';

        print '<script javascript>

        /* JQuery for product free or predefined select */
        jQuery(document).ready(function() {
            jQuery("#value_unit_ht").keyup(function(event) {
                 console.log(event.which);    // discard event tag and arrows
                if (event.which != 9 && (event.which < 37 ||event.which > 40) && jQuery("#value_unit_ht").val() != "") {
                    jQuery("#value_unit").val("");
                }
            });
            jQuery("#value_unit").keyup(function(event) {
                 console.log(event.which);    // discard event tag and arrows
                if (event.which != 9 && (event.which < 37 || event.which > 40) && jQuery("#value_unit").val() != "") {
                    jQuery("#value_unit_ht").val("");
                }
            });
        });

                </script>';

        print '</form>';

        print dol_get_fiche_end();
      } // end edit or not edit
    } // end of if result
    else {
      dol_print_error($db);
    }
  } //fin si id > 0
}

/*
 * Barre d'actions
 */

print '<div class="tabsAction">';

if ($action != 'create' && $action != 'edit')
{
  $object = new ExpenseReport($db);
  $object->fetch($id, $ref);

  // Send
  if (empty($user->socid)) {
    if ($object->status > ExpenseReport::STATUS_DRAFT) {
      //if ((empty($conf->global->MAIN_USE_ADVANCED_PERMS) || $user->rights->expensereport->expensereport_advance->send)) {
        print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=presend&mode=init#formmailbeforetitle">'.$langs->trans('SendMail').'</a></div>';
      //} else
      //  print '<div class="inline-block divButAction"><a class="butActionRefused classfortooltip" href="#">' . $langs->trans('SendMail') . '</a></div>';
    }
  }

  /* Si l'état est "Brouillon"
   *  ET user à droit "creer/supprimer"
  * ET fk_user_author == user courant
  *   Afficher : "Enregistrer" / "Modifier" / "Supprimer"
  */
  if ($user->rights->expensereport->creer && $object->status == ExpenseReport::STATUS_DRAFT)
  {
    if (in_array($object->fk_user_author, $user->getAllChildIds(1)) || !empty($user->rights->expensereport->writeall_advance))
    {
      // Modify
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=edit&id='.$object->id.'">'.$langs->trans('Modify').'</a></div>';

      // Validate
      if (count($object->lines) > 0)
      {
        print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=save&id='.$object->id.'">'.$langs->trans('ValidateAndSubmit').'</a></div>';
      }
    }
  }

  /* Si l'état est "Refusée"
   *  ET user à droit "creer/supprimer"
   *  ET fk_user_author == user courant
   *  Afficher : "Enregistrer" / "Modifier" / "Supprimer"
   */
  if ($user->rights->expensereport->creer && $object->status == ExpenseReport::STATUS_REFUSED)
  {
    if ($user->id == $object->fk_user_author || $user->id == $object->fk_user_valid)
    {
      // Modify
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=edit&id='.$object->id.'">'.$langs->trans('Modify').'</a></div>';

      // setdraft (le statut refusée est identique à brouillon)
      //print '<a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=brouillonner&id='.$id.'">'.$langs->trans('BROUILLONNER').'</a>';
      // Enregistrer depuis le statut "Refusée"
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=save_from_refuse&id='.$object->id.'">'.$langs->trans('ValidateAndSubmit').'</a></div>';
    }
  }

  if ($user->rights->expensereport->to_paid && $object->status == ExpenseReport::STATUS_APPROVED)
  {
    if ($user->id == $object->fk_user_author || $user->id == $object->fk_user_valid)
    {
      // setdraft
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=setdraft&token='.newToken().'&id='.$object->id.'">'.$langs->trans('SetToDraft').'</a></div>';
    }
  }

  /* Si l'état est "En attente d'approbation"
   *  ET user à droit de "approve"
   *  ET fk_user_validator == user courant
   *  Afficher : "Valider" / "Refuser" / "Supprimer"
   */
  if ($object->status == ExpenseReport::STATUS_VALIDATED)
  {
    if (in_array($object->fk_user_author, $user->getAllChildIds(1)))
    {
      // set draft
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=setdraft&token='.newToken().'&id='.$object->id.'">'.$langs->trans('SetToDraft').'</a></div>';
    }
  }

  if ($user->rights->expensereport->approve && $object->status == ExpenseReport::STATUS_VALIDATED)
  {
    //if($object->fk_user_validator==$user->id)
    //{
      // Validate
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=validate&id='.$object->id.'">'.$langs->trans('Approve').'</a></div>';
      // Deny
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=refuse&id='.$object->id.'">'.$langs->trans('Deny').'</a></div>';
    //}

    if ($user->id == $object->fk_user_author || $user->id == $object->fk_user_valid)
    {
      // Cancel
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=cancel&id='.$object->id.'">'.$langs->trans("Cancel").'</a></div>';
    }
  }


  // If status is Approved
  // ---------------------

  if ($user->rights->expensereport->approve && $object->status == ExpenseReport::STATUS_APPROVED)
  {
    print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=refuse&id='.$object->id.'">'.$langs->trans('Deny').'</a></div>';
  }

  // If bank module is used
  if ($user->rights->expensereport->to_paid && !empty($conf->banque->enabled) && $object->status == ExpenseReport::STATUS_APPROVED)
  {
    // Pay
    if ($remaintopay == 0)
    {
      print '<div class="inline-block divButAction"><span class="butActionRefused classfortooltip" title="'.$langs->trans("DisabledBecauseRemainderToPayIsZero").'">'.$langs->trans('DoPayment').'</span></div>';
    } else {
      print '<div class="inline-block divButAction"><a class="butAction" href="'.DOL_URL_ROOT.'/expensereport/payment/payment.php?id='.$object->id.'&amp;action=create">'.$langs->trans('DoPayment').'</a></div>';
    }
  }

  // If bank module is not used
  if (($user->rights->expensereport->to_paid || empty($conf->banque->enabled)) && $object->status == ExpenseReport::STATUS_APPROVED)
  {
    //if ((round($remaintopay) == 0 || empty($conf->banque->enabled)) && $object->paid == 0)
    if ($object->paid == 0)
    {
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=set_paid&token='.newToken().'">'.$langs->trans("ClassifyPaid")."</a></div>";
    }
  }

  if ($user->rights->expensereport->creer && ($user->id == $object->fk_user_author || $user->id == $object->fk_user_valid) && $object->status == ExpenseReport::STATUS_APPROVED)
  {
    // Cancel
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=cancel&token='.newToken().'&id='.$object->id.'">'.$langs->trans("Cancel").'</a></div>';
  }

  // TODO Replace this. It should be SetUnpaid and should go back to status unpaid not canceled.
  if (($user->rights->expensereport->approve || $user->rights->expensereport->to_paid) && $object->status == ExpenseReport::STATUS_CLOSED)
  {
    // Cancel
    print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=cancel&token='.newToken().'&id='.$object->id.'">'.$langs->trans("Cancel").'</a></div>';
  }

  if ($user->rights->expensereport->to_paid && $object->paid && $object->status == ExpenseReport::STATUS_CLOSED)
  {
    // Set unpaid
    print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=set_unpaid&token='.newToken().'&id='.$object->id.'">'.$langs->trans('ClassifyUnPaid').'</a></div>';
  }

  // Clone
  if ($user->rights->expensereport->creer) {
    print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'&action=clone&token='.newToken().'">'.$langs->trans("ToClone").'</a></div>';
  }

  /* If draft, validated, cancel, and user can create, he can always delete its card before it is approved */
  if ($user->rights->expensereport->creer && $user->id == $object->fk_user_author && $object->status < ExpenseReport::STATUS_APPROVED)
  {
    // Delete
    print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER["PHP_SELF"].'?action=delete&token='.newToken().'&id='.$object->id.'">'.$langs->trans('Delete').'</a></div>';
  } elseif ($user->rights->expensereport->supprimer && $object->status != ExpenseReport::STATUS_CLOSED)
  {
    // Delete
    print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER["PHP_SELF"].'?action=delete&token='.newToken().'&id='.$object->id.'">'.$langs->trans('Delete').'</a></div>';
  }

  $parameters = array();
  $reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been
}

print '</div>';


// Select mail models is same action as presend
if (GETPOST('modelselected', 'alpha')) {
  $action = 'presend';
}

if ($action != 'presend')
{
  /*
   * Generate documents
   */

  print '<div class="fichecenter"><div class="fichehalfleft">';
  print '<a name="builddoc"></a>'; // ancre

  if ($user->rights->expensereport->creer && $action != 'create' && $action != 'edit')
  {
    $filename = dol_sanitizeFileName($object->ref);
    $filedir = $conf->expensereport->dir_output."/".dol_sanitizeFileName($object->ref);
    $urlsource = $_SERVER["PHP_SELF"]."?id=".$object->id;
    $genallowed = $user->rights->expensereport->creer;
    $delallowed = $user->rights->expensereport->creer;
    $var = true;
    print $formfile->showdocuments('expensereport', $filename, $filedir, $urlsource, $genallowed, $delallowed);
    $somethingshown = $formfile->numoffiles;
  }

  // Disabled for expensereport, there is no thirdparty on expensereport, so nothing to define the list of other object we can suggest to link to
  /*
  if ($action != 'create' && $action != 'edit' && ($id || $ref))
  {
    $linktoelem = $form->showLinkToObjectBlock($object, null, array('expensereport'));
    $somethingshown = $form->showLinkedObjectBlock($object, $linktoelem);
  }
    */

  print '</div><div class="fichehalfright"><div class="ficheaddleft">';
  // List of actions on element
  include_once DOL_DOCUMENT_ROOT.'/core/class/html.formactions.class.php';
  $formactions = new FormActions($db);
  $somethingshown = $formactions->showactions($object, 'expensereport', null);

  print '</div></div></div>';
}

// Presend form
$modelmail = 'expensereport';
$defaulttopic = 'SendExpenseReportRef';
$diroutput = $conf->expensereport->dir_output;
$trackid = 'exp'.$object->id;

include DOL_DOCUMENT_ROOT.'/core/tpl/card_presend.tpl.php';


llxFooter();

$db->close();