<?php
/* Copyright (C) 2001-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2015 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2010 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2012-2016 Juanjo Menent        <jmenent@2byte.es>
 * Copyright (C) 2015-2019 Alexandre Spangaro   <aspangaro@open-dsi.fr>
 * Copyright (C) 2015      Marcos García        <marcosgdf@gmail.com>
 * Copyright (C) 2016      Josep Lluís Amador   <joseplluis@lliuretic.cat>
 * Copyright (C) 2020      Tobias Sekan         <tobias.sekan@startmail.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

/**
 *      \file       htdocs/projet/element.php
 *      \ingroup    projet
 *		\brief      Page of project referrers
 */

require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
require_once DOL_DOCUMENT_ROOT.'/projet/class/task.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/project.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
if (!empty($conf->propal->enabled))		require_once DOL_DOCUMENT_ROOT.'/comm/propal/class/propal.class.php';
if (!empty($conf->facture->enabled))		require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
if (!empty($conf->facture->enabled))		require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture-rec.class.php';
if (!empty($conf->commande->enabled))		require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
if (!empty($conf->supplier_proposal->enabled)) require_once DOL_DOCUMENT_ROOT.'/supplier_proposal/class/supplier_proposal.class.php';
if (!empty($conf->fournisseur->enabled))	require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
if (!empty($conf->fournisseur->enabled))	require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
if (!empty($conf->contrat->enabled))		require_once DOL_DOCUMENT_ROOT.'/contrat/class/contrat.class.php';
if (!empty($conf->ficheinter->enabled))	require_once DOL_DOCUMENT_ROOT.'/fichinter/class/fichinter.class.php';
if (!empty($conf->expedition->enabled))	require_once DOL_DOCUMENT_ROOT.'/expedition/class/expedition.class.php';
if (!empty($conf->deplacement->enabled))	require_once DOL_DOCUMENT_ROOT.'/compta/deplacement/class/deplacement.class.php';
if (!empty($conf->expensereport->enabled))	require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport.class.php';
if (!empty($conf->agenda->enabled))		require_once DOL_DOCUMENT_ROOT.'/comm/action/class/actioncomm.class.php';
if (!empty($conf->don->enabled))			require_once DOL_DOCUMENT_ROOT.'/don/class/don.class.php';
if (!empty($conf->loan->enabled))			require_once DOL_DOCUMENT_ROOT.'/loan/class/loan.class.php';
if (!empty($conf->loan->enabled))			require_once DOL_DOCUMENT_ROOT.'/loan/class/loanschedule.class.php';
if (!empty($conf->stock->enabled))			require_once DOL_DOCUMENT_ROOT.'/product/stock/class/mouvementstock.class.php';
if (!empty($conf->tax->enabled))			require_once DOL_DOCUMENT_ROOT.'/compta/sociales/class/chargesociales.class.php';
if (!empty($conf->banque->enabled))		require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/paymentvarious.class.php';
if (!empty($conf->salaries->enabled))		require_once DOL_DOCUMENT_ROOT.'/salaries/class/paymentsalary.class.php';
if (!empty($conf->categorie->enabled))		require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
if (!empty($conf->mrp->enabled))		require_once DOL_DOCUMENT_ROOT.'/mrp/class/mo.class.php';

// Load translation files required by the page
$langs->loadLangs(array('projects', 'companies', 'suppliers', 'compta'));
if (!empty($conf->facture->enabled))		$langs->load("bills");
if (!empty($conf->commande->enabled))		$langs->load("orders");
if (!empty($conf->propal->enabled))		$langs->load("propal");
if (!empty($conf->ficheinter->enabled))	$langs->load("interventions");
if (!empty($conf->deplacement->enabled))	$langs->load("trips");
if (!empty($conf->expensereport->enabled)) $langs->load("trips");
if (!empty($conf->don->enabled))			$langs->load("donations");
if (!empty($conf->loan->enabled))			$langs->load("loan");
if (!empty($conf->salaries->enabled))		$langs->load("salaries");
if (!empty($conf->mrp->enabled))		$langs->load("mrp");

$id = GETPOST('id', 'int');
$ref = GETPOST('ref', 'alpha');
$action = GETPOST('action', 'alpha');
$datesrfc = GETPOST('datesrfc');
$dateerfc = GETPOST('dateerfc');
$dates = dol_mktime(0, 0, 0, GETPOST('datesmonth'), GETPOST('datesday'), GETPOST('datesyear'));
$datee = dol_mktime(23, 59, 59, GETPOST('dateemonth'), GETPOST('dateeday'), GETPOST('dateeyear'));
if (empty($dates) && !empty($datesrfc)) $dates = dol_stringtotime($datesrfc);
if (empty($datee) && !empty($dateerfc)) $datee = dol_stringtotime($dateerfc);
if (!isset($_POST['datesrfc']) && !isset($_POST['datesday']) && !empty($conf->global->PROJECT_LINKED_ELEMENT_DEFAULT_FILTER_YEAR))
{
	$new = dol_now();
	$tmp = dol_getdate($new);
	//$datee=$now
	//$dates=dol_time_plus_duree($datee, -1, 'y');
	$dates = dol_get_first_day($tmp['year'], 1);
}
if ($id == '' && $ref == '')
{
	setEventMessage($langs->trans('ErrorBadParameters'), 'errors');
	header('Location: list.php');
	exit();
}

$mine = $_REQUEST['mode'] == 'mine' ? 1 : 0;
//if (! $user->rights->projet->all->lire) $mine=1;	// Special for projects

$object = new Project($db);

include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php';  // Must be include, not include_once
if (!empty($conf->global->PROJECT_ALLOW_COMMENT_ON_PROJECT) && method_exists($object, 'fetchComments') && empty($object->comments)) $object->fetchComments();

// Security check
$socid = $object->socid;
//if ($user->socid > 0) $socid = $user->socid;    // For external user, no check is done on company because readability is managed by public status of project and assignement.
$result = restrictedArea($user, 'projet', $object->id, 'projet&project');

$hookmanager->initHooks(array('projectOverview'));


/*
 *	View
 */

$title = $langs->trans("ProjectReferers").' - '.$object->ref.' '.$object->name;
if (!empty($conf->global->MAIN_HTML_TITLE) && preg_match('/projectnameonly/', $conf->global->MAIN_HTML_TITLE) && $object->name) $title = $object->ref.' '.$object->name.' - '.$langs->trans("ProjectReferers");
$help_url = "EN:Module_Projects|FR:Module_Projets|ES:M&oacute;dulo_Proyectos";
llxHeader("", $langs->trans("Referers"), $help_url);

$form = new Form($db);
$formproject = new FormProjets($db);
$formfile = new FormFile($db);

$userstatic = new User($db);

// To verify role of users
$userAccess = $object->restrictedProjectArea($user);

$head = project_prepare_head($object);
dol_fiche_head($head, 'element', $langs->trans("Project"), -1, ($object->public ? 'projectpub' : 'project'));


// Project card

$linkback = '<a href="'.DOL_URL_ROOT.'/projet/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';

$morehtmlref = '<div class="refidno">';
// Title
$morehtmlref .= $object->title;
// Thirdparty
if ($object->thirdparty->id > 0)
{
    $morehtmlref .= '<br>'.$langs->trans('ThirdParty').' : '.$object->thirdparty->getNomUrl(1, 'project');
}
$morehtmlref .= '</div>';

// Define a complementary filter for search of next/prev ref.
if (!$user->rights->projet->all->lire)
{
    $objectsListId = $object->getProjectsAuthorizedForUser($user, 0, 0);
    $object->next_prev_filter = " te.rowid in (".(count($objectsListId) ?join(',', array_keys($objectsListId)) : '0').")";
}

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

// Usage
print '<tr><td class="tdtop">';
print $langs->trans("Usage");
print '</td>';
print '<td>';
if (!empty($conf->global->PROJECT_USE_OPPORTUNITIES))
{
	print '<input type="checkbox" disabled name="usage_opportunity"'.(GETPOSTISSET('usage_opportunity') ? (GETPOST('usage_opportunity', 'alpha') != ''?' checked="checked"':'') : ($object->usage_opportunity ? ' checked="checked"' : '')).'"> ';
	$htmltext = $langs->trans("ProjectFollowOpportunity");
	print $form->textwithpicto($langs->trans("ProjectFollowOpportunity"), $htmltext);
	print '<br>';
}
if (empty($conf->global->PROJECT_HIDE_TASKS))
{
	print '<input type="checkbox" disabled name="usage_task"'.(GETPOSTISSET('usage_task') ? (GETPOST('usage_task', 'alpha') != ''?' checked="checked"':'') : ($object->usage_task ? ' checked="checked"' : '')).'"> ';
	$htmltext = $langs->trans("ProjectFollowTasks");
	print $form->textwithpicto($langs->trans("ProjectFollowTasks"), $htmltext);
	print '<br>';
}
if (!empty($conf->global->PROJECT_BILL_TIME_SPENT))
{
	print '<input type="checkbox" disabled name="usage_bill_time"'.(GETPOSTISSET('usage_bill_time') ? (GETPOST('usage_bill_time', 'alpha') != ''?' checked="checked"':'') : ($object->usage_bill_time ? ' checked="checked"' : '')).'"> ';
	$htmltext = $langs->trans("ProjectBillTimeDescription");
	print $form->textwithpicto($langs->trans("BillTime"), $htmltext);
	print '<br>';
}
print '</td></tr>';

// Visibility
print '<tr><td class="titlefield">'.$langs->trans("Visibility").'</td><td>';
if ($object->public) print $langs->trans('SharedProject');
else print $langs->trans('PrivateProject');
print '</td></tr>';

if (!empty($conf->global->PROJECT_USE_OPPORTUNITIES))
{
    // Opportunity status
    print '<tr><td>'.$langs->trans("OpportunityStatus").'</td><td>';
    $code = dol_getIdFromCode($db, $object->opp_status, 'c_lead_status', 'rowid', 'code');
    if ($code) print $langs->trans("OppStatus".$code);
    print '</td></tr>';

    // Opportunity percent
    print '<tr><td>'.$langs->trans("OpportunityProbability").'</td><td>';
    if (strcmp($object->opp_percent, '')) print price($object->opp_percent, '', $langs, 1, 0).' %';
    print '</td></tr>';

    // Opportunity Amount
    print '<tr><td>'.$langs->trans("OpportunityAmount").'</td><td>';
    if (strcmp($object->opp_amount, '')) print price($object->opp_amount, '', $langs, 1, 0, 0, $conf->currency);
    print '</td></tr>';
}

// Date start - end
print '<tr><td>'.$langs->trans("DateStart").' - '.$langs->trans("DateEnd").'</td><td>';
$start = dol_print_date($object->date_start, 'day');
print ($start ? $start : '?');
$end = dol_print_date($object->date_end, 'day');
print ' - ';
print ($end ? $end : '?');
if ($object->hasDelay()) print img_warning("Late");
print '</td></tr>';

// Budget
print '<tr><td>'.$langs->trans("Budget").'</td><td>';
if (strcmp($object->budget_amount, '')) print price($object->budget_amount, '', $langs, 1, 0, 0, $conf->currency);
print '</td></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" width="100%">';

// Description
print '<td class="titlefield tdtop">'.$langs->trans("Description").'</td><td>';
print nl2br($object->description);
print '</td></tr>';

// Categories
if ($conf->categorie->enabled) {
    print '<tr><td class="valignmiddle">'.$langs->trans("Categories").'</td><td>';
    print $form->showCategories($object->id, Categorie::TYPE_PROJECT, 1);
    print "</td></tr>";
}

print '</table>';

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

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

dol_fiche_end();

print '<br>';

/*
 * Referers types
 */

$listofreferent = array(
'propal'=>array(
	'name'=>"Proposals",
	'title'=>"ListProposalsAssociatedProject",
	'class'=>'Propal',
	'table'=>'propal',
    'datefieldname'=>'datep',
    'urlnew'=>DOL_URL_ROOT.'/comm/propal/card.php?action=create&origin=project&originid='.$id.'&socid='.$socid,
    'lang'=>'propal',
    'buttonnew'=>'AddProp',
    'testnew'=>$user->rights->propal->creer,
	'test'=>$conf->propal->enabled && $user->rights->propale->lire),
'order'=>array(
	'name'=>"CustomersOrders",
	'title'=>"ListOrdersAssociatedProject",
	'class'=>'Commande',
	'table'=>'commande',
	'datefieldname'=>'date_commande',
    'urlnew'=>DOL_URL_ROOT.'/commande/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'orders',
    'buttonnew'=>'CreateOrder',
    'testnew'=>$user->rights->commande->creer,
    'test'=>$conf->commande->enabled && $user->rights->commande->lire),
'invoice'=>array(
	'name'=>"CustomersInvoices",
	'title'=>"ListInvoicesAssociatedProject",
	'class'=>'Facture',
	'margin'=>'add',
	'table'=>'facture',
	'datefieldname'=>'datef',
    'urlnew'=>DOL_URL_ROOT.'/compta/facture/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'bills',
    'buttonnew'=>'CreateBill',
    'testnew'=>$user->rights->facture->creer,
    'test'=>$conf->facture->enabled && $user->rights->facture->lire),
'invoice_predefined'=>array(
	'name'=>"PredefinedInvoices",
	'title'=>"ListPredefinedInvoicesAssociatedProject",
	'class'=>'FactureRec',
	'table'=>'facture_rec',
	'datefieldname'=>'datec',
    'urlnew'=>DOL_URL_ROOT.'/compta/facture/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'bills',
    'buttonnew'=>'CreateBill',
    'testnew'=>$user->rights->facture->creer,
    'test'=>$conf->facture->enabled && $user->rights->facture->lire),
'proposal_supplier'=>array(
	'name'=>"SuppliersProposals",
	'title'=>"ListSupplierProposalsAssociatedProject",
	'class'=>'SupplierProposal',
	'table'=>'supplier_proposal',
	'datefieldname'=>'date_valid',
	'urlnew'=>DOL_URL_ROOT.'/supplier_proposal/card.php?action=create&projectid='.$id, // No socid parameter here, the socid is often the customer and we create a supplier object
    'lang'=>'supplier_proposal',
    'buttonnew'=>'AddSupplierProposal',
    'testnew'=>$user->rights->supplier_proposal->creer,
    'test'=>$conf->supplier_proposal->enabled && $user->rights->supplier_proposal->lire),
'order_supplier'=>array(
	'name'=>"SuppliersOrders",
	'title'=>"ListSupplierOrdersAssociatedProject",
	'class'=>'CommandeFournisseur',
	'table'=>'commande_fournisseur',
	'datefieldname'=>'date_commande',
    'urlnew'=>DOL_URL_ROOT.'/fourn/commande/card.php?action=create&projectid='.$id, // No socid parameter here, the socid is often the customer and we create a supplier object
    'lang'=>'suppliers',
    'buttonnew'=>'AddSupplierOrder',
    'testnew'=>$user->rights->fournisseur->commande->creer,
    'test'=>$conf->supplier_order->enabled && $user->rights->fournisseur->commande->lire),
'invoice_supplier'=>array(
	'name'=>"BillsSuppliers",
	'title'=>"ListSupplierInvoicesAssociatedProject",
	'class'=>'FactureFournisseur',
	'margin'=>'minus',
	'table'=>'facture_fourn',
	'datefieldname'=>'datef',
	'urlnew'=>DOL_URL_ROOT.'/fourn/facture/card.php?action=create&projectid='.$id, // No socid parameter here, the socid is often the customer and we create a supplier object
    'lang'=>'suppliers',
    'buttonnew'=>'AddSupplierInvoice',
    'testnew'=>$user->rights->fournisseur->facture->creer,
    'test'=>$conf->supplier_invoice->enabled && $user->rights->fournisseur->facture->lire),
'contract'=>array(
	'name'=>"Contracts",
	'title'=>"ListContractAssociatedProject",
	'class'=>'Contrat',
	'table'=>'contrat',
	'datefieldname'=>'date_contrat',
    'urlnew'=>DOL_URL_ROOT.'/contrat/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'contracts',
    'buttonnew'=>'AddContract',
    'testnew'=>$user->rights->contrat->creer,
    'test'=>$conf->contrat->enabled && $user->rights->contrat->lire),
'intervention'=>array(
	'name'=>"Interventions",
	'title'=>"ListFichinterAssociatedProject",
	'class'=>'Fichinter',
	'table'=>'fichinter',
	'datefieldname'=>'date_valid',
	'disableamount'=>0,
	'margin'=>'minus',
    'urlnew'=>DOL_URL_ROOT.'/fichinter/card.php?action=create&origin=project&originid='.$id.'&socid='.$socid,
    'lang'=>'interventions',
    'buttonnew'=>'AddIntervention',
    'testnew'=>$user->rights->ficheinter->creer,
    'test'=>$conf->ficheinter->enabled && $user->rights->ficheinter->lire),
'shipping'=>array(
    'name'=>"Shippings",
	'title'=>"ListShippingAssociatedProject",
	'class'=>'Expedition',
	'table'=>'expedition',
	'datefieldname'=>'date_valid',
	'urlnew'=>DOL_URL_ROOT.'/expedition/card.php?action=create&origin=project&originid='.$id.'&socid='.$socid,
	'lang'=>'sendings',
	'buttonnew'=>'CreateShipment',
	'testnew'=>0,
	'test'=>$conf->expedition->enabled && $user->rights->expedition->lire),
'mrp'=>array(
	'name'=>"MO",
	'title'=>"ListMOAssociatedProject",
	'class'=>'Mo',
	'table'=>'mrp_mo',
	'datefieldname'=>'date_valid',
	'urlnew'=>DOL_URL_ROOT.'/mrp/mo_card.php?action=create&origin=project&originid='.$id.'&socid='.$socid,
	'lang'=>'mrp',
	'buttonnew'=>'CreateMO',
	'testnew'=>'$user->rights->mrp->write',
	'project_field'=>'fk_project',
	'test'=>$conf->mrp->enabled && $user->rights->mrp->read),
'trip'=>array(
	'name'=>"TripsAndExpenses",
	'title'=>"ListExpenseReportsAssociatedProject",
	'class'=>'Deplacement',
	'table'=>'deplacement',
	'datefieldname'=>'dated',
	'margin'=>'minus',
	'disableamount'=>1,
    'urlnew'=>DOL_URL_ROOT.'/deplacement/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'trips',
    'buttonnew'=>'AddTrip',
    'testnew'=>$user->rights->deplacement->creer,
    'test'=>$conf->deplacement->enabled && $user->rights->deplacement->lire),
'expensereport'=>array(
	'name'=>"ExpenseReports",
	'title'=>"ListExpenseReportsAssociatedProject",
	'class'=>'ExpenseReportLine',
	'table'=>'expensereport_det',
	'datefieldname'=>'date',
	'margin'=>'minus',
	'disableamount'=>0,
    'urlnew'=>DOL_URL_ROOT.'/expensereport/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'trips',
    'buttonnew'=>'AddTrip',
    'testnew'=>$user->rights->expensereport->creer,
    'test'=>$conf->expensereport->enabled && $user->rights->expensereport->lire),
'donation'=>array(
	'name'=>"Donation",
	'title'=>"ListDonationsAssociatedProject",
	'class'=>'Don',
	'margin'=>'add',
	'table'=>'don',
	'datefieldname'=>'datedon',
	'disableamount'=>0,
    'urlnew'=>DOL_URL_ROOT.'/don/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'donations',
    'buttonnew'=>'AddDonation',
    'testnew'=>$user->rights->don->creer,
    'test'=>$conf->don->enabled && $user->rights->don->lire),
'loan'=>array(
	'name'=>"Loan",
	'title'=>"ListLoanAssociatedProject",
	'class'=>'Loan',
	'margin'=>'add',
	'table'=>'loan',
	'datefieldname'=>'datestart',
	'disableamount'=>0,
    'urlnew'=>DOL_URL_ROOT.'/loan/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'loan',
    'buttonnew'=>'AddLoan',
    'testnew'=>$user->rights->loan->write,
    'test'=>$conf->loan->enabled && $user->rights->loan->read),
'chargesociales'=>array(
    'name'=>"SocialContribution",
    'title'=>"ListSocialContributionAssociatedProject",
    'class'=>'ChargeSociales',
    'margin'=>'minus',
    'table'=>'chargesociales',
    'datefieldname'=>'date_ech',
    'disableamount'=>0,
    'urlnew'=>DOL_URL_ROOT.'/compta/sociales/card.php?action=create&projectid='.$id,
    'lang'=>'compta',
    'buttonnew'=>'AddSocialContribution',
    'testnew'=>$user->rights->tax->charges->lire,
    'test'=>$conf->tax->enabled && $user->rights->tax->charges->lire),
'project_task'=>array(
	'name'=>"TaskTimeSpent",
	'title'=>"ListTaskTimeUserProject",
	'class'=>'Task',
	'margin'=>'minus',
	'table'=>'projet_task',
	'datefieldname'=>'task_date',
	'disableamount'=>0,
    'urlnew'=>DOL_URL_ROOT.'/projet/tasks/time.php?withproject=1&action=createtime&projectid='.$id,
    'buttonnew'=>'AddTimeSpent',
    'testnew'=>$user->rights->projet->creer,
    'test'=>($conf->projet->enabled && $user->rights->projet->lire && empty($conf->global->PROJECT_HIDE_TASKS))),
'stock_mouvement'=>array(
	'name'=>"MouvementStockAssociated",
	'title'=>"ListMouvementStockProject",
	'class'=>'MouvementStock',
	'margin'=>'minus',
	'table'=>'stock_mouvement',
	'datefieldname'=>'datem',
	'disableamount'=>0,
	'test'=>($conf->stock->enabled && $user->rights->stock->mouvement->lire && !empty($conf->global->STOCK_MOVEMENT_INTO_PROJECT_OVERVIEW))),
'salaries'=>array(
	'name'=>"Salaries",
	'title'=>"ListSalariesAssociatedProject",
	'class'=>'PaymentSalary',
	'table'=>'payment_salary',
	'datefieldname'=>'datev',
	'margin'=>'minus',
	'disableamount'=>0,
	'urlnew'=>DOL_URL_ROOT.'/salaries/card.php?action=create&projectid='.$id,
	'lang'=>'salaries',
	'buttonnew'=>'AddSalaryPayment',
	'testnew'=>$user->rights->salaries->write,
	'test'=>$conf->salaries->enabled && $user->rights->salaries->read),
'variouspayment'=>array(
	'name'=>"VariousPayments",
	'title'=>"ListVariousPaymentsAssociatedProject",
	'class'=>'PaymentVarious',
	'table'=>'payment_various',
	'datefieldname'=>'datev',
	'margin'=>'minus',
	'disableamount'=>0,
    'urlnew'=>DOL_URL_ROOT.'/compta/bank/various_payment/card.php?action=create&projectid='.$id,
    'lang'=>'banks',
    'buttonnew'=>'AddVariousPayment',
    'testnew'=>$user->rights->banque->modifier,
    'test'=>$conf->banque->enabled && $user->rights->banque->lire && empty($conf->global->BANK_USE_OLD_VARIOUS_PAYMENT)),
/* No need for this, available on dedicated tab "Agenda/Events"
'agenda'=>array(
	'name'=>"Agenda",
	'title'=>"ListActionsAssociatedProject",
	'class'=>'ActionComm',
	'table'=>'actioncomm',
	'datefieldname'=>'datep',
	'disableamount'=>1,
    'urlnew'=>DOL_URL_ROOT.'/comm/action/card.php?action=create&projectid='.$id.'&socid='.$socid,
    'lang'=>'agenda',
    'buttonnew'=>'AddEvent',
    'testnew'=>$user->rights->agenda->myactions->create,
    'test'=>$conf->agenda->enabled && $user->rights->agenda->myactions->read),
*/
);

$parameters = array('listofreferent'=>$listofreferent);
$resHook = $hookmanager->executeHooks('completeListOfReferent', $parameters, $object, $action);

if (!empty($hookmanager->resArray)) {
	$listofreferent = array_merge($listofreferent, $hookmanager->resArray);
}

if ($action == "addelement")
{
	$tablename = GETPOST("tablename");
	$elementselectid = GETPOST("elementselect");
	$result = $object->update_element($tablename, $elementselectid);
	if ($result < 0)
	{
		setEventMessages($object->error, $object->errors, 'errors');
	}
}
elseif ($action == "unlink")
{
	$tablename = GETPOST("tablename", "aZ09");
    $projectField = GETPOSTISSET('projectfield') ? GETPOST('projectfield', 'aZ09') : 'fk_projet';
	$elementselectid = GETPOST("elementselect", "int");

	$result = $object->remove_element($tablename, $elementselectid, $projectField);
	if ($result < 0)
	{
		setEventMessages($object->error, $object->errors, 'errors');
	}
}

$elementuser = new User($db);


$showdatefilter = 0;
// Show the filter on date on top of element list
if (!$showdatefilter)
{
	print '<div class="center centpercent">';
    print '<form action="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'" method="post">';
    print '<input type="hidden" name="token" value="'.$_SESSION["newtoken"].'">';
    print '<input type="hidden" name="tablename" value="'.$tablename.'">';
	print '<input type="hidden" name="action" value="view">';
	print '<table class="center"><tr>';
	print '<td>'.$langs->trans("From").' ';
	print $form->selectDate($dates, 'dates', 0, 0, 1, '', 1, 0);
	print '</td>';
	print '<td>'.$langs->trans("to").' ';
	print $form->selectDate($datee, 'datee', 0, 0, 1, '', 1, 0);
	print '</td>';
	print '<td>';
	print '<input type="submit" name="refresh" value="'.$langs->trans("Refresh").'" class="button">';
	print '</td>';
	print '</tr></table>';
	print '</form>';
	print '</div>';

	$showdatefilter++;
}


// Show balance for whole project

$langs->loadLangs(array("suppliers", "bills", "orders", "proposals", "margins"));

if (!empty($conf->stock->enabled)) $langs->load('stocks');

print load_fiche_titre($langs->trans("Profit"), '', 'title_accountancy');

print '<table class="noborder centpercent">';
print '<tr class="liste_titre">';
print '<td class="left" width="200">'.$langs->trans("Element").'</td>';
print '<td class="right" width="100">'.$langs->trans("Number").'</td>';
print '<td class="right" width="100">'.$langs->trans("AmountHT").'</td>';
print '<td class="right" width="100">'.$langs->trans("AmountTTC").'</td>';
print '</tr>';

foreach ($listofreferent as $key => $value)
{
	$name = $langs->trans($value['name']);
	$title = $value['title'];
	$classname = $value['class'];
	$tablename = $value['table'];
	$datefieldname = $value['datefieldname'];
	$qualified = $value['test'];
	$margin = $value['margin'];
	$project_field = $value['project_field'];
	if ($qualified && isset($margin))		// If this element must be included into profit calculation ($margin is 'minus' or 'plus')
	{
		$element = new $classname($db);

		$elementarray = $object->get_element_list($key, $tablename, $datefieldname, $dates, $datee, !empty($project_field)?$project_field:'fk_projet');

		if (is_array($elementarray) && count($elementarray) > 0)
		{
			$total_ht = 0;
			$total_ttc = 0;

			$num = count($elementarray);
			for ($i = 0; $i < $num; $i++)
			{
				$tmp = explode('_', $elementarray[$i]);
				$idofelement = $tmp[0];
				$idofelementuser = $tmp[1];

				$element->fetch($idofelement);
				if ($idofelementuser) $elementuser->fetch($idofelementuser);

				// Define if record must be used for total or not
				$qualifiedfortotal = true;
				if ($key == 'invoice')
				{
				    if (!empty($element->close_code) && $element->close_code == 'replaced') $qualifiedfortotal=false;	// Replacement invoice, do not include into total
				    if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS) && $element->type == Facture::TYPE_DEPOSIT) $qualifiedfortotal=false;	// If hidden option to use deposits as payment (deprecated, not recommended to use this), deposits are not included
				}
				if ($key == 'propal')
				{
				    if ($element->statut == Propal::STATUS_NOTSIGNED) $qualifiedfortotal = false;	// Refused proposal must not be included in total
				}

				if ($tablename != 'expensereport_det' && method_exists($element, 'fetch_thirdparty')) $element->fetch_thirdparty();

				// Define $total_ht_by_line
				if ($tablename == 'don' || $tablename == 'chargesociales' || $tablename == 'payment_various' || $tablename == 'payment_salary') $total_ht_by_line = $element->amount;
				elseif ($tablename == 'fichinter') $total_ht_by_line = $element->getAmount();
				elseif ($tablename == 'stock_mouvement') $total_ht_by_line = $element->price*abs($element->qty);
				elseif ($tablename == 'projet_task')
				{
					if ($idofelementuser)
					{
						$tmp = $element->getSumOfAmount($elementuser, $dates, $datee);
						$total_ht_by_line = price2num($tmp['amount'], 'MT');
					}
					else
					{
						$tmp = $element->getSumOfAmount('', $dates, $datee);
						$total_ht_by_line = price2num($tmp['amount'], 'MT');
					}
				}
                elseif ($key == 'loan') {
                    if((empty($dates) && empty($datee)) || (intval($dates) <= $element->datestart && intval($datee) >= $element->dateend)){
                        // Get total loan
                        $total_ht_by_line = -$element->capital;
                    }
				    else {
                        // Get loan schedule according to date filter
                        $total_ht_by_line = 0;
                        $loanScheduleStatic = new LoanSchedule($element->db);
                        $loanScheduleStatic->fetchAll($element->id);
                        if(!empty($loanScheduleStatic->lines)){
                            foreach($loanScheduleStatic->lines as $loanSchedule){
                                /**
                                 * @var $loanSchedule LoanSchedule
                                 */
                                if (($loanSchedule->datep >= $dates && $loanSchedule->datep <= $datee) // dates filter is defined
                                    || !empty($dates) && empty($datee) && $loanSchedule->datep >= $dates && $loanSchedule->datep <= dol_now()
                                    || empty($dates) && !empty($datee) && $loanSchedule->datep <= $datee
                                ) {
                                    $total_ht_by_line = -$loanSchedule->amount_capital;
                                }
                            }
                        }
                    }
                }
				else $total_ht_by_line = $element->total_ht;

				// Define $total_ttc_by_line
				if ($tablename == 'don' || $tablename == 'chargesociales' || $tablename == 'payment_various' || $tablename == 'payment_salary') $total_ttc_by_line = $element->amount;
				elseif ($tablename == 'fichinter') $total_ttc_by_line = $element->getAmount();
				elseif ($tablename == 'stock_mouvement') $total_ttc_by_line = $element->price * abs($element->qty);
				elseif ($tablename == 'projet_task')
				{
					$defaultvat = get_default_tva($mysoc, $mysoc);
					$total_ttc_by_line = price2num($total_ht_by_line * (1 + ($defaultvat / 100)), 'MT');
				}
                elseif ($key == 'loan') {
                        $total_ttc_by_line = $total_ht_by_line; // For loan there is actually no taxe managed in Dolibarr
                }
				else $total_ttc_by_line = $element->total_ttc;

				// Change sign of $total_ht_by_line and $total_ttc_by_line for some cases
				if ($tablename == 'payment_various')
				{
			        if ($element->sens == 1)
			        {
			            $total_ht_by_line = -$total_ht_by_line;
			            $total_ttc_by_line = -$total_ttc_by_line;
			        }
				}

				// Add total if we have to
				if ($qualifiedfortotal)
				{
				    $total_ht = $total_ht + $total_ht_by_line;
				    $total_ttc = $total_ttc + $total_ttc_by_line;
				}
			}

			// Each element with at least one line is output
			$qualifiedforfinalprofit = true;
			if ($key == 'intervention' && empty($conf->global->PROJECT_INCLUDE_INTERVENTION_AMOUNT_IN_PROFIT)) $qualifiedforfinalprofit = false;
			//var_dump($key);

			// Calculate margin
			if ($qualifiedforfinalprofit)
			{
			    if ($margin != "add")
				{
					$total_ht = -$total_ht;
					$total_ttc = -$total_ttc;
				}

				$balance_ht += $total_ht;
				$balance_ttc += $total_ttc;
			}

			print '<tr class="oddeven">';
			// Module
			print '<td class="left">'.$name.'</td>';
			// Nb
			print '<td class="right">'.$i.'</td>';
			// Amount HT
			print '<td class="right">';
			if (!$qualifiedforfinalprofit) print '<span class="opacitymedium">'.$form->textwithpicto($langs->trans("NA"), $langs->trans("AmountOfInteventionNotIncludedByDefault")).'</span>';
			else print price($total_ht);
			print '</td>';
			// Amount TTC
			print '<td class="right">';
			if (!$qualifiedforfinalprofit) print '<span class="opacitymedium">'.$form->textwithpicto($langs->trans("NA"), $langs->trans("AmountOfInteventionNotIncludedByDefault")).'</span>';
			else print price($total_ttc);
			print '</td>';
			print '</tr>';
		}
	}
}
// and the final balance
print '<tr class="liste_total">';
print '<td class="right" colspan=2 >'.$langs->trans("Profit").'</td>';
print '<td class="right" >'.price(price2num($balance_ht, 'MT')).'</td>';
print '<td class="right" >'.price(price2num($balance_ttc, 'MT')).'</td>';
print '</tr>';

print "</table>";


print '<br><br>';
print '<br>';

$param = 'id='.$object->id.'&mainmenu=home';
$sortfield = GETPOST("sortfield", "alpha");
$sortorder = GETPOST("sortorder", 'alpha');
if (!$sortfield) $sortfield = "nature";
if (!$sortorder) $sortorder = "asc";

// Detail
foreach ($listofreferent as $key => $value)
{
	$title = $value['title'];
	$classname = $value['class'];
	$tablename = $value['table'];
	$datefieldname = $value['datefieldname'];
	$qualified = $value['test'];
	$langtoload = $value['lang'];
	$urlnew = $value['urlnew'];
	$buttonnew = $value['buttonnew'];
    $testnew = $value['testnew'];
	$project_field = $value['project_field'];

	$exclude_select_element = array('payment_various');
	if (!empty($value['exclude_select_element'])) $exclude_select_element[] = $value['exclude_select_element'];

	if ($qualified)
	{
		// If we want the project task array to have details of users
		//if ($key == 'project_task') $key = 'project_task_time';

	    if ($langtoload) $langs->load($langtoload);

		$element = new $classname($db);

		$addform = '';

		$idtofilterthirdparty = 0;
		$array_of_element_linkable_with_different_thirdparty = array('facture_fourn', 'commande_fournisseur');
		if (!in_array($tablename, $array_of_element_linkable_with_different_thirdparty))
		{
		    $idtofilterthirdparty = $object->thirdparty->id;
		    if (! empty($conf->global->PROJECT_OTHER_THIRDPARTY_ID_TO_ADD_ELEMENTS)) $idtofilterthirdparty .= ','.$conf->global->PROJECT_OTHER_THIRDPARTY_ID_TO_ADD_ELEMENTS;
		}

       	if (empty($conf->global->PROJECT_LINK_ON_OVERWIEW_DISABLED) && $idtofilterthirdparty && !in_array($tablename, $exclude_select_element))
       	{
			$selectList = $formproject->select_element($tablename, $idtofilterthirdparty, 'minwidth300', -2, !empty($project_field)?$project_field:'fk_projet');
			if ($selectList < 0)
			{
				setEventMessages($formproject->error, $formproject->errors, 'errors');
			}
			elseif ($selectList)
			{
				// Define form with the combo list of elements to link
			    $addform .= '<div class="inline-block valignmiddle">';
			    $addform .= '<form action="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'" method="post">';
			    $addform .= '<input type="hidden" name="token" value="'.$_SESSION["newtoken"].'">';
			    $addform .= '<input type="hidden" name="tablename" value="'.$tablename.'">';
				$addform .= '<input type="hidden" name="action" value="addelement">';
				$addform .= '<input type="hidden" name="datesrfc" value="'.dol_print_date($dates, 'dayhourrfc').'">';
				$addform .= '<input type="hidden" name="dateerfc" value="'.dol_print_date($datee, 'dayhourrfc').'">';
				$addform .= '<table><tr><td>'.$langs->trans("SelectElement").'</td>';
				$addform .= '<td>'.$selectList.'</td>';
				$addform .= '<td><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans("AddElement")).'"></td>';
				$addform .= '</tr></table>';
				$addform .= '</form>';
				$addform .= '</div>';
			}
		}
		if (empty($conf->global->PROJECT_CREATE_ON_OVERVIEW_DISABLED) && $urlnew)
		{
			$addform .= '<div class="inline-block valignmiddle">';
			if ($testnew) $addform .= '<a class="buttonxxx" href="'.$urlnew.'"><span class="valignmiddle text-plus-circle">'.($buttonnew?$langs->trans($buttonnew):$langs->trans("Create")).'</span><span class="fa fa-plus-circle valignmiddle paddingleft"></span></a>';
			elseif (empty($conf->global->MAIN_BUTTON_HIDE_UNAUTHORIZED)) {
				$addform .= '<a class="buttonxxx buttonRefused" disabled="disabled" href="#"><span class="valignmiddle text-plus-circle">'.($buttonnew?$langs->trans($buttonnew):$langs->trans("Create")).'</span><span class="fa fa-plus-circle valignmiddle"></span></a>';
			}
            $addform .= '<div>';
		}

		print load_fiche_titre($langs->trans($title), $addform, '');

		// Text for line : Date
		if (in_array($tablename, array('projet_task'))) $label_date = $langs->trans("TimeSpent");
		if (!in_array($tablename, array('projet_task'))) $label_date = $langs->trans("Date");

		// Text for line : Thirdparty or user
		if (in_array($tablename, array('projet_task')) && $key == 'project_task') $label_user =  ''; // if $key == 'project_task', we don't want details per user
		elseif (in_array($tablename, array('payment_various'))) $label_user =  ''; // if $key == 'payment_various', we don't have any thirdparty
		elseif (in_array($tablename, array('expensereport_det', 'don', 'projet_task', 'stock_mouvement', 'payment_salary'))) $label_user =  $langs->trans("User");
		else $label_user = $langs->trans("ThirdParty");

		// Text for line : Amount HT
		//if (empty($value['disableamount']) && ! in_array($tablename, array('projet_task'))) print '<td class="right" width="120">'.$langs->trans("AmountHT").'</td>';
		//elseif (empty($value['disableamount']) && in_array($tablename, array('projet_task'))) print '<td class="right" width="120">'.$langs->trans("Amount").'</td>';
		if ($key == 'loan') $label_amount_ht = $langs->trans("LoanCapital").'</td>';
		elseif (empty($value['disableamount'])) $label_amount_ht = $langs->trans("AmountHT");
		else $label_amount_ht = '';

		// Text for line : Amount TTC
		//if (empty($value['disableamount']) && ! in_array($tablename, array('projet_task'))) print '<td class="right" width="120">'.$langs->trans("AmountTTC").'</td>';
		if ($key == 'loan') $label_amount_ttc = $langs->trans("RemainderToPay");
		elseif (empty($value['disableamount'])) $label_amount_ttc = $langs->trans("AmountTTC");
		else $label_amount_ttc = '';

		// Text for line : Status
		if (in_array($tablename, array('projet_task'))) $label_status = $langs->trans("ProgressDeclared");
		else $label_status = $langs->trans("Status");

		print "\n".'<!-- Table for tablename = '.$tablename.' -->'."\n";
		print '<table class="noborder centpercent">';

		$moreattrib = ($tablename != 'actioncomm' && $tablename != 'projet_task') ? ' style="width: 200px"' : '';

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

		// Remove link column
		print '<td style="width: 24px"></td>';

		print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "ref", "", $param, 'style="width: 200px"', $sortfield, $sortorder);
		print_liste_field_titre($label_date, $_SERVER["PHP_SELF"], "date", "", $param, $moreattrib, $sortfield, $sortorder, "center ");
		print_liste_field_titre($label_user, $_SERVER["PHP_SELF"], "user", "", $param, "", $sortfield, $sortorder);
		print_liste_field_titre($label_amount_ht, $_SERVER["PHP_SELF"], "amount_ht", "", $param, 'style="width: 120px"', $sortfield, $sortorder, "right ");
		print_liste_field_titre($label_amount_ttc, $_SERVER["PHP_SELF"], "amount_ttc", "", $param, 'style="width: 120px"', $sortfield, $sortorder, "right ");
		print_liste_field_titre($label_status, $_SERVER["PHP_SELF"], "status", "", $param, 'style="width: 200px"', $sortfield, $sortorder, "right ");

		print '</tr>';

		$elementarray = $object->get_element_list($key, $tablename, $datefieldname, $dates, $datee, !empty($project_field) ? $project_field : 'fk_projet');
		$list = array();

		if (is_array($elementarray) && count($elementarray) > 0)
		{
			$total_ht = 0;
			$total_ttc = 0;

			$total_ht_by_third = 0;
			$total_ttc_by_third = 0;

			$saved_third_id = 0;
			$breakline = '';

			if (canApplySubtotalOn($tablename))
			{
				// Sort
				$elementarray = sortElementsByClientName($elementarray);
			}

			$num = count($elementarray);
			for ($i = 0; $i < $num; $i++)
			{
				$tablerow = new TableRow();

				$tmp = explode('_', $elementarray[$i]);
				$idofelement = $tmp[0];
				$idofelementuser = $tmp[1];

				$element->fetch($idofelement);
				if ($idofelementuser) $elementuser->fetch($idofelementuser);


				// Special cases
				if ($tablename != 'expensereport_det')
				{
					if (method_exists($element, 'fetch_thirdparty')) $element->fetch_thirdparty();
				}
				else
				{
					$expensereport = new ExpenseReport($db);
					$expensereport->fetch($element->fk_expensereport);
				}

				//print 'xxx'.$tablename.'yyy'.$classname;

				if ($breakline && $saved_third_id != $element->thirdparty->id)
				{
					print $breakline;

					$saved_third_id = $element->thirdparty->id;
					$breakline = '';

					$total_ht_by_third = 0;
					$total_ttc_by_third = 0;
				}
				$saved_third_id = $element->thirdparty->id;

				$qualifiedfortotal = true;
				if ($key == 'invoice')
				{
					if (!empty($element->close_code) && $element->close_code == 'replaced') $qualifiedfortotal = false; // Replacement invoice, do not include into total
				}

				// Unlink - save id of the element, need for the "unlink" action
				$tablerow->id = $element->id;

				// Ref
				if ($tablename == 'expensereport_det')
				{
					$tablerow->ref      = $expensereport->ref;
					$tablerow->ref_text = $expensereport->getNomUrl(1);
				}
				else
				{
					$tablerow->ref = $element->ref;

					// Show ref with link
					if ($element instanceof Task)
					{
						$tablerow->ref_text = $element->getNomUrl(1, 'withproject', 'time');
						$tablerow->ref_text .= ' - '.dol_trunc($element->label, 48);
					}
					elseif ($key == 'loan')
					{
						$tablerow->ref_text = $element->getNomUrl(1);
						$tablerow->ref_text .= ' - '.dol_trunc($element->label, 48);
					}
					else
					{
						$tablerow->ref_text = $element->getNomUrl(1);
					}

					$element_doc = $element->element;
					$filename = dol_sanitizeFileName($element->ref);
					$filedir = $conf->{$element_doc}->multidir_output[$element->entity].'/'.dol_sanitizeFileName($element->ref);

					if ($element_doc === 'order_supplier') {
						$element_doc = 'commande_fournisseur';
						$filedir = $conf->fournisseur->commande->multidir_output[$element->entity].'/'.dol_sanitizeFileName($element->ref);
					}
					elseif ($element_doc === 'invoice_supplier') {
						$element_doc = 'facture_fournisseur';
						$filename = get_exdir($element->id, 2, 0, 0, $element, 'product').dol_sanitizeFileName($element->ref);
						$filedir = $conf->fournisseur->facture->multidir_output[$element->entity].'/'.get_exdir($element->id, 2, 0, 0, $element, 'invoice_supplier').dol_sanitizeFileName($element->ref);
					}

					$tablerow->ref_text .= '<div class="inline-block valignmiddle">'.$formfile->getDocumentsLink($element_doc, $filename, $filedir).'</div>';

					// Show supplier ref
					if (!empty($element->ref_supplier))
					{
						$tablerow->ref_text .= ' - '.$element->ref_supplier;
					}
					// Show customer ref
					if (!empty($element->ref_customer))
					{
						$tablerow->ref_text .= ' - '.$element->ref_customer;
					}
				}

				// Date or TimeSpent
				$date = ''; $total_time_by_line = null;
				if ($tablename == 'expensereport_det') $date = $element->date; // No draft status on lines
				elseif ($tablename == 'stock_mouvement') $date = $element->datem;
				elseif ($tablename == 'payment_salary') $date = $element->datev;
				elseif ($tablename == 'payment_various') $date = $element->datev;
				elseif ($tablename == 'chargesociales') $date = $element->date_ech;
				elseif (!empty($element->status) || !empty($element->statut) || !empty($element->fk_status))
				{
					if ($tablename == 'don') $date = $element->datedon;
					if ($tablename == 'commande_fournisseur' || $tablename == 'supplier_order')
					{
						$date = ($element->date_commande ? $element->date_commande : $element->date_valid);
					}
					elseif ($tablename == 'supplier_proposal') $date = $element->date_validation; // There is no other date for this
					elseif ($tablename == 'fichinter') $date = $element->datev; // There is no other date for this
					elseif ($tablename == 'projet_task') $date = ''; // We show no date. Showing date of beginning of task make user think it is date of time consumed
					else
					{
						$date = $element->date; // invoice, ...
						if (empty($date)) $date = $element->date_contrat;
						if (empty($date)) $date = $element->datev;
						if (empty($date) && !empty($datefieldname)) {
    						$date = $element->$datefieldname;
    					}
					}
				}
				elseif ($key == 'loan')
				{
					$date = $element->datestart;
				}

				$tablerow->date = $date;

				if ($tablename == 'actioncomm')
				{
					$tablerow->date_text = dol_print_date($element->datep, 'dayhour');

					if ($element->datef && $element->datef > $element->datep)
					{
						$tablerow->date_text .= " - ".dol_print_date($element->datef, 'dayhour');
					}
				}
				elseif (in_array($tablename, array('projet_task')))
				{
					$tmpprojtime = $element->getSumOfAmount($elementuser, $dates, $datee); // $element is a task. $elementuser may be empty
					$tablerow->date_text = '<a href="'.DOL_URL_ROOT.'/projet/tasks/time.php?id='.$idofelement.'&withproject=1">';
					$tablerow->date_text .= convertSecondToTime($tmpprojtime['nbseconds'], 'allhourmin');
					$tablerow->date_text .= '</a>';
					$total_time_by_line = $tmpprojtime['nbseconds'];
				}
				else
				{
					$tablerow->date_text = dol_print_date($date, 'day');
				}

				// Third party or user
				if (is_object($element->thirdparty))
				{
					$tablerow->user = $element->thirdparty;
				}
				elseif ($tablename == 'expensereport_det')
				{
					$tmpuser = new User($db);
					$tmpuser->fetch($expensereport->fk_user_author);
					$tablerow->user = $tmpuser;
				}
				elseif ($tablename == 'payment_salary')
				{
					$tmpuser = new User($db);
					$tmpuser->fetch($element->fk_user);
					$tablerow->user = $tmpuser;
				}
				elseif ($tablename == 'don' || $tablename == 'stock_mouvement')
				{
					if ($element->fk_user_author > 0)
					{
						$tmpuser2 = new User($db);
						$tmpuser2->fetch($element->fk_user_author);
						$tablerow->user = $tmpuser2;
					}
				}
				elseif ($tablename == 'projet_task' && $key == 'project_task_time')	// if $key == 'project_task', we don't want details per user
				{
					$tablerow->user = $elementuser;
				}

				// Amount without tax
				$warning = '';
				if (empty($value['disableamount']))
				{
					$total_ht_by_line = null;
					$othermessage = '';
					if ($tablename == 'don' || $tablename == 'chargesociales' || $tablename == 'payment_various' || $tablename == 'payment_salary') $total_ht_by_line = $element->amount;
					elseif ($tablename == 'fichinter') $total_ht_by_line = $element->getAmount();
					elseif ($tablename == 'stock_mouvement') $total_ht_by_line = $element->price * abs($element->qty);
					elseif (in_array($tablename, array('projet_task')))
					{
						if (!empty($conf->salaries->enabled))
						{
							// TODO Permission to read daily rate to show value
							$total_ht_by_line = price2num($tmpprojtime['amount'], 'MT');
							if ($tmpprojtime['nblinesnull'] > 0)
							{
								$langs->load("errors");
								$warning = $langs->trans("WarningSomeLinesWithNullHourlyRate", $conf->currency);
							}
						}
						else
						{
							$othermessage = $form->textwithpicto($langs->trans("NotAvailable"), $langs->trans("ModuleSalaryToDefineHourlyRateMustBeEnabled"));
						}
					}
					elseif ($key == 'loan')
					{
						$total_ht_by_line = $element->capital;
					}
					else
					{
						$total_ht_by_line = $element->total_ht;
					}

					// Change sign of $total_ht_by_line and $total_ttc_by_line for some cases
					if ($tablename == 'payment_various')
					{
						if ($element->sens == 0)
						{
							$total_ht_by_line = -$total_ht_by_line;
						}
					}

					$tablerow->amount_ht = $total_ht_by_line;

					if ($othermessage)
					{
						$tablerow->amount_ht_text .= $othermessage;
					}

					if (isset($total_ht_by_line))
					{
						if (! $qualifiedfortotal)
						{
							$tablerow->amount_ht_text .= '<strike>';
						}

						$tablerow->amount_ht_text .= price($total_ht_by_line);

						if (! $qualifiedfortotal)
						{
							$tablerow->amount_ht_text .= '</strike>';
						}
					}

					if ($warning)
					{
						$tablerow->amount_ht_text .= ' '.img_warning($warning);
					}
				}

				// Amount inc tax
				if (empty($value['disableamount']))
				{
					$total_ttc_by_line = null;
					if ($tablename == 'don' || $tablename == 'chargesociales' || $tablename == 'payment_various' || $tablename == 'payment_salary') $total_ttc_by_line = $element->amount;
					elseif ($tablename == 'fichinter') $total_ttc_by_line = $element->getAmount();
					elseif ($tablename == 'stock_mouvement') $total_ttc_by_line = $element->price * abs($element->qty);
					elseif ($tablename == 'projet_task')
					{
						if (!empty($conf->salaries->enabled))
						{
							// TODO Permission to read daily rate
							$defaultvat = get_default_tva($mysoc, $mysoc);
							$total_ttc_by_line = price2num($total_ht_by_line * (1 + ($defaultvat / 100)), 'MT');
						}
						else
						{
							$othermessage = $form->textwithpicto($langs->trans("NotAvailable"), $langs->trans("ModuleSalaryToDefineHourlyRateMustBeEnabled"));
						}
					}
					elseif ($key == 'loan')
					{
						$total_ttc_by_line = $element->capital - $element->getSumPayment();
					}
					else
					{
						$total_ttc_by_line = $element->total_ttc;
					}

					// Change sign of $total_ht_by_line and $total_ttc_by_line for some cases
					if ($tablename == 'payment_various')
					{
						if ($element->sens == 0)
						{
							$total_ttc_by_line = -$total_ttc_by_line;
						}
					}

					$tablerow->amount_ttc = $total_ttc_by_line;

					if ($othermessage)
					{
						$tablerow->amount_ttc_text .= $othermessage;
					}

					if (isset($total_ttc_by_line))
					{
						if (! $qualifiedfortotal)
						{
							$tablerow->amount_ttc_text .= '<strike>';
						}

						$tablerow->amount_ttc_text .= price($total_ttc_by_line);

						if (! $qualifiedfortotal)
						{
							$tablerow->amount_ttc_text .= '</strike>';
						}
					}

					if ($warning)
					{
						$tablerow->amount_ttc_text .= ' '.img_warning($warning);
					}
				}

				// Status
				if ($tablename == 'expensereport_det')
				{
					$tablerow->status = $expensereport->getLibStatut(5);
				}
				elseif ($element instanceof CommonInvoice)
				{
					//This applies for Facture and FactureFournisseur
					$tablerow->status = $element->getLibStatut(5, $element->getSommePaiement());
				}
				elseif ($element instanceof Task)
				{
					if ($element->progress != '')
					{
						$tablerow->status = $element->progress.' %';
					}
				}
				elseif ($tablename == 'stock_mouvement')
				{
					$tablerow->status = $element->getLibStatut(3);
				}
				else
				{
					$tablerow->status = $element->getLibStatut(5);
				}

				if ($qualifiedfortotal)
				{
					$total_ht = $total_ht + $total_ht_by_line;
					$total_ttc = $total_ttc + $total_ttc_by_line;

					$total_ht_by_third += $total_ht_by_line;
					$total_ttc_by_third += $total_ttc_by_line;

					$total_time = $total_time + $total_time_by_line;
				}

				$sortable_table[] = $tablerow;
			}

			if($sortfield == "user")
			{
				if($sortorder == "asc")
				{
					usort($sortable_table, "sort_by_user_asc");
				}
				else
				{
					usort($sortable_table, "sort_by_user_desc");
				}
			}
			else
			{
				$sortable_table = dol_sort_array($sortable_table, $sortfield, $sortorder, 1, 0, 1);
			}

			foreach ($sortable_table as $tablerow)
			{
				print '<tr class="oddeven">';

				// Remove link
				print '<td style="width: 24px">';
				if ($tablename != 'projet_task' && $tablename != 'stock_mouvement')
				{
					if (empty($conf->global->PROJECT_DISABLE_UNLINK_FROM_OVERVIEW) || $user->admin)		// PROJECT_DISABLE_UNLINK_FROM_OVERVIEW is empty by defaut, so this test true
					{
						print '<a href="' . $_SERVER["PHP_SELF"] . '?id=' .  $object->id . '&action=unlink&tablename=' . $tablename . '&elementselect=' . $tablerow->id . ($project_field ? '&projectfield=' . $project_field : '') . '" class="reposition">';
						print img_picto($langs->trans('Unlink'), 'unlink');
						print '</a>';
					}
				}
				print "</td>\n";

				print '<td class="left nowrap" style="width: 200px">'.$tablerow->ref_text."</td>";
				print '<td class="center">'.$tablerow->date_text."</td>";
				print '<td class="left">'.$tablerow->user->getNomUrl(1, '', 48)."</td>";
				print '<td class="right" style="width: 120px">'.$tablerow->amount_ht_text."</td>";
				print '<td class="right" style="width: 120px">'.$tablerow->amount_ttc_text."</td>";
				print '<td class="right" style="width: 200px">'.$tablerow->status."</td>";

				print '</tr>';
			}

			if (canApplySubtotalOn($tablename))
			{
				$breakline = '<tr class="liste_total liste_sub_total">';
				$breakline .= '<td colspan="2">';
				$breakline .= '</td>';
				$breakline .= '<td>';
				$breakline .= '</td>';
				$breakline .= '<td class="right">';
				$breakline .= $langs->trans('SubTotal').' : ';
				if (is_object($element->thirdparty)) $breakline .= $element->thirdparty->getNomUrl(0, '', 48);
				$breakline .= '</td>';
				$breakline .= '<td class="right">'.price($total_ht_by_third).'</td>';
				$breakline .= '<td class="right">'.price($total_ttc_by_third).'</td>';
				$breakline .= '<td></td>';
				$breakline .= '</tr>';
			}

			//var_dump($element->thirdparty->name.' - '.$saved_third_id.' - '.$element->thirdparty->id);

			if ($breakline) print $breakline;

			// Total
			$colspan = 4;
			if (in_array($tablename, array('projet_task'))) $colspan = 2;
			print '<tr class="liste_total"><td colspan="'.$colspan.'">'.$langs->trans("Number").': '.$i.'</td>';
			if (in_array($tablename, array('projet_task')))
			{
				print '<td class="center">';
				print convertSecondToTime($total_time, 'allhourmin');
				print '</td>';
				print '<td>';
				print '</td>';
			}
			//if (empty($value['disableamount']) && ! in_array($tablename, array('projet_task'))) print '<td class="right" width="100">'.$langs->trans("TotalHT").' : '.price($total_ht).'</td>';
			//elseif (empty($value['disableamount']) && in_array($tablename, array('projet_task'))) print '<td class="right" width="100">'.$langs->trans("Total").' : '.price($total_ht).'</td>';
			print '<td class="right">';
			if (empty($value['disableamount']))
			{
				if ($key == 'loan') print $langs->trans("Total").' '.$langs->trans("LoanCapital").' : '.price($total_ttc);
				elseif ($tablename != 'projet_task' || !empty($conf->salaries->enabled)) print ''.$langs->trans("TotalHT").' : '.price($total_ht);
			}
			print '</td>';
			//if (empty($value['disableamount']) && ! in_array($tablename, array('projet_task'))) print '<td class="right" width="100">'.$langs->trans("TotalTTC").' : '.price($total_ttc).'</td>';
			//elseif (empty($value['disableamount']) && in_array($tablename, array('projet_task'))) print '<td class="right" width="100"></td>';
			print '<td class="right">';
			if (empty($value['disableamount']))
			{
				if ($key == 'loan') print $langs->trans("Total").' '.$langs->trans("RemainderToPay").' : '.price($total_ttc);
				elseif ($tablename != 'projet_task' || !empty($conf->salaries->enabled)) print $langs->trans("TotalTTC").' : '.price($total_ttc);
			}
			print '</td>';
			print '<td>&nbsp;</td>';
			print '</tr>';
		}
		else
		{
			if (!is_array($elementarray))	// error
			{
				print $elementarray;
			}
		}

		print "</table>";
		print "<br>\n";
	}
}

// Enhance with select2
if ($conf->use_javascript_ajax)
{
	include_once DOL_DOCUMENT_ROOT.'/core/lib/ajax.lib.php';
	$comboenhancement = ajax_combobox('.elementselect');
	$out .= $comboenhancement;

	print $comboenhancement;
}

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


/**
 * Return if we should do a group by customer with sub-total
 *
 * @param 	string	$tablename		Name of table
 * @return	boolean					True to tell to make a group by sub-total
 */
function canApplySubtotalOn($tablename)
{
	global $conf;

	if (empty($conf->global->PROJECT_ADD_SUBTOTAL_LINES)) return false;
	return in_array($tablename, array('facture_fourn', 'commande_fournisseur'));
}

/**
 * sortElementsByClientName
 *
 * @param 	array		$elementarray	Element array
 * @return	array						Element array sorted
 */
function sortElementsByClientName($elementarray)
{
	global $db, $classname;

	$element = new $classname($db);

	$clientname = array();
	foreach ($elementarray as $key => $id)	// id = id of object
	{
		if (empty($clientname[$id]))
		{
			$element->fetch($id);
			$element->fetch_thirdparty();

			$clientname[$id] = $element->thirdparty->name;
		}
	}

	//var_dump($clientname);
	asort($clientname); // sort on name

	$elementarray = array();
	foreach ($clientname as $id => $name)
	{
		$elementarray[] = $id;
	}

	return $elementarray;
}

/**
 * Compare two TableRow objects by the $user variable in asc order
 *
 * @param TableRow $left 	The left object for the compare
 * @param TableRow $right	The right object for the compare
 * @return int				The compare result
 */
function sort_by_user_asc($left, $right)
{
	if($left->user instanceof User && $right->user instanceof User)
	{
		return strtoupper($left->user->getFullName('', 0, -1)) > strtoupper($right->user->getFullName('', 0, -1));
	}
	elseif($left->user instanceof Societe && $right->user instanceof Societe)
	{
		return strtoupper($left->user->name) > strtoupper($right->user->name);
	}

	throw new Exception('unknown class type for sorting in function [sort_by_user_asc] in class [\projet\element.php]');
}

/**
 * Compare two TableRow objects by the $user variable in desc order
 *
 * @param TableRow	$left 	The left object for the compare
 * @param TableRow	$right	The right object for the compare
 * @return int				The compare result
 */
function sort_by_user_desc($left, $right)
{
	if($left->user instanceof User && $right->user instanceof User)
	{
		return strtoupper($left->user->getFullName('', 0, -1)) < strtoupper($right->user->getFullName('', 0, -1));
	}
	elseif($left->user instanceof Societe && $right->user instanceof Societe)
	{
		return strtoupper($left->user->name) < strtoupper($right->user->name);
	}

	throw new Exception('unknown class type for sorting in function [sort_by_user_des] in class [\projet\element.php]');
}

/**
 * Presentation of a table row
 */
class TableRow
{
	/**
	 * The id of this project (need for "unlink" action)
	 */
	public $id;

	/**
	 * The reference of this object (only for sorting)
	 */
	public $ref;

	/**
	 * The visible text for the reference (string or html)
	 */
	public $ref_text;

	/**
	 * The related user or societe of the object
	 */
	public $user;

	/**
	 * The ht amount of this object (only for sorting)
	 */
	public $amount_ht;

	/**
	 * The visible text for the $amount_ht (string or html)
	 */
	public $amount_ht_text;

	/**
	 * The ttc amount of this object (only for sorting)
	 */
	public $amount_ttc;

	/**
	 * The visible text for the $amount_ttc (string or html)
	 */
	public $amount_ttc_text;

	/**
	 * The status of the object (string or html)
	 */
	public $status;
}