dolibarr/htdocs/expensereport/card.php

<?php
/* Copyright (C) 2003       Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2017  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2009  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2015-2017  Alexandre Spangaro      <aspangaro@zendsi.com>
 * 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 <http://www.gnu.org/licenses/>.
 */

/**
 *  \file       	htdocs/expensereport/card.php
 *  \ingroup    	expensereport
 *  \brief      	Page for trip and expense report card
 */

$res=0;
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT . '/core/class/html.formfile.class.php';
require_once DOL_DOCUMENT_ROOT . '/core/class/CMailFile.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 . '/projet/class/project.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/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_projet=GETPOST('fk_projet','int');
$vatrate=GETPOST('vatrate','alpha');
$ref=GETPOST("ref",'alpha');
$comments=GETPOST('comments','none');
$fk_c_type_fees=GETPOST('fk_c_type_fees','int');
$socid = GETPOST('socid','int')?GETPOST('socid','int'):GETPOST('socid_id','int');

// Security check
$id=GETPOST("id",'int');
if ($user->societe_id) $socid=$user->societe_id;
$result = restrictedArea($user, 'expensereport', 0, '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
$extralabels = $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
$permissionedit = $user->rights->expensereport->creer; 		// Used by the include of actions_lineupdown.inc.php




/*
 * 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_projet='';
    	$date_start='';
    	$date_end='';
    	$date='';
    	$comments='';
    	$vatrate='';
    	$value_unit='';
    	$qty=1;
    	$fk_c_type_fees=-1;
	}

    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(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)
    {
    	$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;

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

    	$object->fk_statut = 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','none');
    	$object->note_private				= GETPOST('note_private','none');
    	// Fill array 'array_options' with data from add form
    	if (! $error)
    	{
    	    $ret = $extrafields->setOptionalsFromPost($extralabels, $object);
    	    if ($ret < 0) $error++;
    	}

    	if (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->fk_statut < 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','none');
    	$object->note_private = GETPOST('note_private','none');
    	$object->fk_user_modif = $user->id;

    	$result = $object->update($user);
    	if ($result > 0)
    	{
    		header("Location: ".$_SERVER["PHP_SELF"]."?id=".$_POST['id']);
    		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
        $extralabels = $extrafields->fetch_name_optionals_label($object->table_element);
        $ret = $extrafields->setOptionalsFromPost($extralabels, $object, GETPOST('attribute', 'none'));
        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->modelpdf;
    			$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;
    			$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->modelpdf;
    			$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;
				$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->modelpdf;
    			$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;
       			$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='';
   		}
   	}
   	else
   	{
   		setEventMessages($object->error, $object->errors, 'errors');
   	}

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

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

    	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->modelpdf;
    			$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;
    			$message = $langs->transnoentities("ExpenseReportRefusedMessage", $object->ref, $destinataire->getFullName($langs), $expediteur->getFullName($langs), $_POST['detail_refuse'], $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='';
    	}
    }
    else
    {
    	setEventMessages($object->error, $object->errors, 'errors');
    }

    //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)
	    	{
	    		$result = $object->set_cancel($user, GETPOST('detail_cancel', 'alpha'));

	    		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->modelpdf;
	    				$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;
	    				$message = $langs->transnoentities("ExpenseReportCanceledMessage", $object->ref, $destinataire->getFullName($langs), $expediteur->getFullName($langs), GETPOST('detail_cancel','alpha'), $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_brouillonner" && 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->modelpdf;
    				$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_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->modelpdf;
    			$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;
    			$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='';
    	}
    }
    else
    {
    	setEventMessages($object->error, $object->errors, 'errors');
    }

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

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

		$value_unit=price2num(GETPOST('value_unit', 'alpha'),'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 ($vatrate < 0 || $vatrate == '')
    	{
    		$error++;
    		setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("VAT")), null, 'errors');
    		$action='';
    	}

        /* Projects are never required. To force them, check module forceproject
    	if ($conf->projet->enabled)
    	{
    		if (empty($object_ligne->fk_projet) || $object_ligne->fk_projet==-1)
    		{
    			$error++;
    			setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Project")), null, 'errors');
    		}
    	}*/

    	// 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');
    	}

    	// S'il y'a eu au moins une erreur
    	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_projet,$fk_c_exp_tax_cat,$type);
			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->modelpdf, $outputlangs, $hidedetails, $hidedesc, $hideref);
				}

				unset($qty);
				unset($value_unit);
				unset($vatrate);
				unset($comments);
				unset($fk_c_type_fees);
				unset($fk_projet);

				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->modelpdf;
    				$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);

    	$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_projet;
    	$comments = GETPOST('comments', 'none');
    	$qty = GETPOST('qty', 'int');
    	$value_unit = price2num(GETPOST('value_unit', 'alpha'), 'MU');
    	$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";
        $vatrate = price2num($vatrate);

    	if (! GETPOST('fk_c_type_fees', 'int') > 0)
    	{
    		$error++;
    		setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Type")), null, 'errors');
    		$action='';
    	}
    	if ((int) $vatrate < 0 || $vatrate == '')
    	{
    		$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);
    		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->modelpdf;
    					$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
    $trigger_name='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;
    $permissioncreate = $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);

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

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

	dol_fiche_head('');

	print '<table class="border" width="100%">';
	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=$user->fk_user;	// 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(2,'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->societe_id)) {
		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"');
	$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');
	}

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

	dol_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" 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'));

					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->fk_statut < 3 || $object->fk_statut==99))
			{
				print "<form name='update' action=\"".$_SERVER['PHP_SELF']."\" method=\"post\">\n";
				print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
				print '<input type="hidden" name="id" value="'.$id.'">';

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

				if($object->fk_statut==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->fk_statut<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->fk_statut==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>';

				dol_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" onclick="history.go(-1)" />';
				print '</div>';

				print '</form>';
			}
			else
			{
				dol_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))
                    );
				    // Paiement incomplet. On demande si motif = escompte ou autre
				    $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"] . '?id=' . $object->id, $langs->trans('CloneExpenseReport'), $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",'size'=>"50",'value'=>""));
					$formconfirm=$form->formconfirm($_SEVER["PHP_SELF"]."?id=".$id,$langs->trans("Cancel"),"","confirm_cancel",$array_input,"",1);
				}

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

				if ($action == 'refuse')		// Deny
				{
					$array_input = array('text'=>$langs->trans("ConfirmRefuseTrip"), array('type'=>"text",'label'=>$langs->trans("Comment"),'name'=>"detail_refuse",'size'=>"50",'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 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="'.$_SESSION['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 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>';

				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->libelle_paiement.'</td>';
					print '</tr>';
				}

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

				// User to inform for approval
				if ($object->fk_statut < 3)	// 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->fk_statut == 4)
				{
					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').'</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').'</td></tr>';
					print '</tr>';
				}

				if ($object->fk_statut==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');
					if ($object->detail_refuse) print ' - '.$object->detail_refuse;
					print '</td>';
					print '</tr>';
				}

				if($object->fk_statut==6)
				{
					/* 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 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->fk_statut < 3) $rowspan++;
				elseif($object->fk_statut == 4) $rowspan+=2;
				else $rowspan+=2;
				if ($object->fk_statut==99 || !empty($object->detail_refuse)) $rowspan+=2;
				if($object->fk_statut==6) $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" align="right">' . $langs->trans('BankAccount') . '</td>';
				}
				print '<td class="liste_titre" align="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; $total = 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_paiement = $objp->num_paiement;
				        $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 align="right">';
							if ($bankaccountstatic->id)
								print $bankaccountstatic->getNomUrl(1, 'transactions');
							print '</td>';
						}
				        print '<td align="right">'.price($objp->amount)."</td>";
				        print '<td></td>';
				        print "</tr>";
				        $totalpaid += $objp->amount;
				        $i++;
				    }
				    $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 . '" align="right">'.$langs->trans("AlreadyPaid").':</td><td align="right">'.price($totalpaid).'</td><td></td></tr>';
			        print '<tr><td colspan="' . $nbcols . '" align="right">'.$langs->trans("AmountExpected").':</td><td align="right">'.price($object->total_ttc).'</td><td></td></tr>';

			        print '<tr><td colspan="' . $nbcols . '" align="right">'.$langs->trans("RemainderToPay").':</td>';
			        print '<td align="right"'.($resteapayeraffiche?' class="amountremaintopay"':(' class="'.$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->fk_statut==0 || $object->fk_statut==99) && $action != 'editline') $actiontouse='addline';

				print '<form name="expensereport" action="'.$_SERVER["PHP_SELF"].'" method="post">';
				print '<input type="hidden" name="token" value="'.$_SESSION['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" width="100%">';

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

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

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

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

							print '<td style="text-align:center;">';
							print $numline;
							print '</td>';

							/*print '<td style="text-align:center;">';
							print img_picto($langs->trans("Document"), "object_generic");
							print ' <span>'.$piece_comptable.'</span>';
							print '</td>';*/

							print '<td style="text-align:center;">'.dol_print_date($db->jdate($line->date), 'day').'</td>';
							if (! empty($conf->projet->enabled))
							{
								print '<td>';
								if ($line->fk_projet > 0)
								{
									$projecttmp->id=$line->fk_projet;
									$projecttmp->ref=$line->projet_ref;
									print $projecttmp->getNomUrl(1);
								}
								print '</td>';
							}
							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>';
							}
							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>';
							print '<td style="text-align:left;">'.dol_escape_htmltag($line->comments).'</td>';
							print '<td style="text-align:right;">'.vatrate($line->vatrate,true).'</td>';
							print '<td style="text-align:right;">'.price($line->value_unit).'</td>';
							print '<td style="text-align:right;">'.dol_escape_htmltag($line->qty).'</td>';

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

							// Ajout des boutons de modification/suppression
							if (($object->fk_statut < 2 || $object->fk_statut == 99) && $user->rights->expensereport->creer)
							{
								print '<td style="text-align:right;" class="nowrap">';

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

								print '</td>';
							}

							print '</tr>';
						}

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

								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_projet,'fk_projet', 0, 0, 1, 1, 0, 0, 0, '', 0, 0, 'maxwidth300');
									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>';
								}

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

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

								// VAT
								print '<td style="text-align:right;">';
								print $form->load_tva('vatrate', (isset($_POST["vatrate"])?$_POST["vatrate"]:$line->vatrate), $mysoc, '');
								print '</td>';

								// Unit price
								print '<td style="text-align:right;">';
								print '<input type="text" min="0" class="maxwidth100" name="value_unit" value="'.dol_escape_htmltag($line->value_unit).'" />';
								print '</td>';

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

								if ($action != 'editline')
								{
									print '<td style="text-align:right;">'.$langs->trans('AmountHT').'</td>';
									print '<td style="text-align:right;">'.$langs->trans('AmountTTC').'</td>';
								}

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

						$i++;
					}
				}

				// Add a line
				if (($object->fk_statut==0 || $object->fk_statut==99) && $action != 'editline' && $user->rights->expensereport->creer)
				{
					print '<tr class="liste_titre">';
					print '<td></td>';
					print '<td align="center">'.$langs->trans('Date').'</td>';
					if (! empty($conf->projet->enabled)) print '<td class="minwidth100imp">'.$langs->trans('Project').'</td>';
					if (!empty($conf->global->MAIN_USE_EXPENSE_IK)) print '<td>'.$langs->trans('CarCategory').'</td>';
					print '<td align="center">'.$langs->trans('Type').'</td>';
					print '<td>'.$langs->trans('Description').'</td>';
					print '<td align="right">'.$langs->trans('VAT').'</td>';
					print '<td align="right">'.$langs->trans('PriceUTTC').'</td>';
					print '<td align="right">'.$langs->trans('Qty').'</td>';
					print '<td colspan="3"></td>';
					print '</tr>';

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

					print '<td></td>';

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

					// Select project
					if (! empty($conf->projet->enabled))
					{
						print '<td>';
						$formproject->select_projects(-1, $fk_projet, 'fk_projet', 0, 0, 1, 1, 0, 0, 0, '', 0, 0, 'maxwidth300');
						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);
						print '</td>';
					}

					// Select type
					print '<td align="center">';
					select_type_fees_id($fk_c_type_fees,'fk_c_type_fees',1);
					print '</td>';

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

					// Select VAT
					print '<td align="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
					print '<td align="right">';
					print '<input type="text" class="right maxwidth50" name="value_unit" value="'.dol_escape_htmltag($value_unit).'">';
					print '</td>';

					// Quantity
					print '<td align="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>';

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

					print '<td align="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 '</form>';

				dol_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 ($object->fk_statut > 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" 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->fk_statut==0)
	{
		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->fk_statut==99)
	{
		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>';

			// Brouillonner (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->fk_statut==5)
	{
		if ($user->id == $object->fk_user_author || $user->id == $object->fk_user_valid)
		{
			// Brouillonner
			print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=brouillonner&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->fk_statut == 2)
	{
		if (in_array($object->fk_user_author, $user->getAllChildIds(1)))
		{
			// Brouillonner
			print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=brouillonner&id='.$object->id.'">'.$langs->trans('SetToDraft').'</a></div>';
		}
	}

	if ($user->rights->expensereport->approve && $object->fk_statut == 2)
	{
		//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 Appoved
	// --------------------

	if ($user->rights->expensereport->approve && $object->fk_statut == 5)
	{
	    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->fk_statut == 5)
	{
		// Pay
		if ($remaintopay == 0)
		{
			print '<div class="inline-block divButAction"><span class="butActionRefused" 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->fk_statut == 5)
	{
		//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">'.$langs->trans("ClassifyPaid")."</a></div>";
		}
	}

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

	// Clone
	if ($user->rights->expensereport->creer) {
	    print '<div class="inline-block divButAction"><a class="butAction" href="' . $_SERVER['PHP_SELF'] . '?id=' . $object->id . '&amp;action=clone">' . $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->fk_statut <= 4)
	{
	    // Delete
		print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER["PHP_SELF"].'?action=delete&id='.$object->id.'">'.$langs->trans('Delete').'</a></div>';
	}
	else if($user->rights->expensereport->supprimer && $object->fk_statut != 6)
	{
    	// Delete
	    print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER["PHP_SELF"].'?action=delete&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>';


//$conf->global->DOL_URL_ROOT_DOCUMENT_PHP=dol_buildpath('/expensereport/documentwrapper.php',1);


// 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;
	}

	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();