dolibarr/htdocs/core/customreports.php

<?php
/* Copyright (C) 2020 Laurent Destailleur  <eldy@users.sourceforge.net>
 *
 * 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/>.
 *
 * Note: This tool can be included into a list page with :
 * define('USE_CUSTOME_REPORT_AS_INCLUDE', 1);
 * include DOL_DOCUMENT_ROOT.'/core/customreports.php';
 */

/**
 *   	\file       htdocs/core/customreports.php
 *		\ingroup    core
 *		\brief      Page to make custom reports
 */

if (!defined('USE_CUSTOME_REPORT_AS_INCLUDE'))
{
	require '../main.inc.php';

	// Get parameters
	$action     = GETPOST('action', 'aZ09') ?GETPOST('action', 'aZ09') : 'view'; // The action 'add', 'create', 'edit', 'update', 'view', ...
	$massaction = GETPOST('massaction', 'alpha'); // The bulk action (combo box choice into lists)

	$mode = GETPOST('mode', 'alpha') ? GETPOST('mode', 'alpha') : 'graph';
	$objecttype = GETPOST('objecttype', 'aZ09');
	$tabfamily  = GETPOST('tabfamily', 'aZ09');

	if (empty($objecttype)) $objecttype = 'thirdparty';

	$search_filters = GETPOST('search_filters', 'array');
	$search_measures = GETPOST('search_measures', 'array');

	//$search_xaxis = GETPOST('search_xaxis', 'array');
	if (GETPOST('search_xaxis', 'alpha') && GETPOST('search_xaxis', 'alpha') != '-1') $search_xaxis = array(GETPOST('search_xaxis', 'alpha'));
	else $search_xaxis = array();
	//$search_groupby = GETPOST('search_groupby', 'array');
	if (GETPOST('search_groupby', 'alpha') && GETPOST('search_groupby', 'alpha') != '-1') $search_groupby = array(GETPOST('search_groupby', 'alpha'));
	else $search_groupby = array();

	$search_yaxis = GETPOST('search_yaxis', 'array');
	$search_graph = GETPOST('search_graph', 'none');

	// Load variable for pagination
	$limit = GETPOST('limit', 'int') ? GETPOST('limit', 'int') : $conf->liste_limit;
	$sortfield = GETPOST('sortfield', 'alpha');
	$sortorder = GETPOST('sortorder', 'alpha');
	$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
	if (empty($page) || $page == -1 || GETPOST('button_search', 'alpha') || GETPOST('button_removefilter', 'alpha') || (empty($toselect) && $massaction === '0')) { $page = 0; }     // If $page is not defined, or '' or -1 or if we click on clear filters or if we select empty mass action
	$offset = $limit * $page;
	$pageprev = $page - 1;
	$pagenext = $page + 1;

	$diroutputmassaction = $conf->user->dir_temp.'/'.$user->id.'/customreport';
}

require_once DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php";
require_once DOL_DOCUMENT_ROOT."/core/lib/company.lib.php";
require_once DOL_DOCUMENT_ROOT."/core/class/dolgraph.class.php";
require_once DOL_DOCUMENT_ROOT."/core/class/doleditor.class.php";
require_once DOL_DOCUMENT_ROOT."/core/class/html.formother.class.php";

// Load traductions files requiredby by page
$langs->loadLangs(array("companies", "other", "exports", "sendings"));

$extrafields = new ExtraFields($db);

$hookmanager->initHooks(array('customreport')); // Note that conf->hooks_modules contains array

$title = '';
$picto = '';
$head = array();
$object = null;
$ObjectClassName = '';
// Objects available by default
$arrayoftype = array(
	'thirdparty' => array('label' => 'ThirdParties', 'ObjectClassName' => 'Societe', 'enabled' => $conf->societe->enabled, 'ClassPath' => "/societe/class/societe.class.php"),
	'contact' => array('label' => 'Contacts', 'ObjectClassName' => 'Contact', 'enabled' => $conf->societe->enabled, 'ClassPath' => "/contact/class/contact.class.php"),
	'proposal' => array('label' => 'Proposals', 'ObjectClassName' => 'Propal', 'enabled' => $conf->propal->enabled, 'ClassPath' => "/comm/propal/class/propal.class.php"),
	'order' => array('label' => 'Orders', 'ObjectClassName' => 'Commande', 'enabled' => $conf->commande->enabled, 'ClassPath' => "/commande/class/commande.class.php"),
	'invoice' => array('label' => 'Invoices', 'ObjectClassName' => 'Facture', 'enabled' => $conf->facture->enabled, 'ClassPath' => "/compta/facture/class/facture.class.php"),
	'invoice_template'=>array('label' => 'PredefinedInvoices', 'ObjectClassName' => 'FactureRec', 'enabled' => $conf->facture->enabled, 'ClassPath' => "/compta/class/facturerec.class.php", 'langs'=>'bills'),
	'contract' => array('label' => 'Contracts', 'ObjectClassName' => 'Contrat', 'enabled' => $conf->contrat->enabled, 'ClassPath' => "/contrat/class/contrat.class.php", 'langs'=>'contract'),
	'bom' => array('label' => 'BOM', 'ObjectClassName' => 'Bom', 'enabled' => $conf->bom->enabled),
	'mo' => array('label' => 'MO', 'ObjectClassName' => 'Mo', 'enabled' => $conf->mrp->enabled, 'ClassPath' => "/mrp/class/mo.class.php"),
	'ticket' => array('label' => 'Ticket', 'ObjectClassName' => 'Ticket', 'enabled' => $conf->ticket->enabled),
	'member' => array('label' => 'Adherent', 'ObjectClassName' => 'Adherent', 'enabled' => $conf->adherent->enabled, 'ClassPath' => "/adherents/class/adherent.class.php", 'langs'=>'members'),
	'cotisation' => array('label' => 'Subscriptions', 'ObjectClassName' => 'Subscription', 'enabled' => $conf->adherent->enabled, 'ClassPath' => "/adherents/class/subscription.class.php", 'langs'=>'members'),
);

// Complete $arrayoftype by external modules
$parameters = array('objecttype'=>$objecttype, 'tabfamily'=>$tabfamily);
$reshook = $hookmanager->executeHooks('loadDataForCustomReports', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
elseif (is_array($hookmanager->resArray)) {
	if (!empty($hookmanager->resArray['title'])) {		// Add entries for tabs
		$title = $hookmanager->resArray['title'];
	}
	if (!empty($hookmanager->resArray['picto'])) {		// Add entries for tabs
		$picto = $hookmanager->resArray['picto'];
	}
	if (!empty($hookmanager->resArray['head'])) {		// Add entries for tabs
		$head = array_merge($head, $hookmanager->resArray['head']);
	}
	if (!empty($hookmanager->resArray['arrayoftype'])) {	// Add entries from hook
		foreach ($hookmanager->resArray['arrayoftype'] as $key => $val) {
	        $arrayoftype[$key] = $val;
	    }
	}
}

if ($objecttype) {
    try {
    	if (!empty($arrayoftype[$objecttype]['ClassPath'])) {
    		dol_include_once($arrayoftype[$objecttype]['ClassPath']);
    	} else {
    		dol_include_once("/".$objecttype."/class/".$objecttype.".class.php");
    	}
        $ObjectClassName = $arrayoftype[$objecttype]['ObjectClassName'];
        $object = new $ObjectClassName($db);
    }
    catch (Exception $e) {
        print 'Failed to load class for type '.$objecttype;
    }
}

// Security check
$socid = 0;
if ($user->socid > 0)	// Protection if external user
{
	//$socid = $user->socid;
	accessforbidden();
}

$result = restrictedArea($user, $object->element, 0, '');

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

$search_array_options = $extrafields->getOptionalsFromPost($object->table_element, '', 'search_');

$search_component_params = array('');

$MAXUNIQUEVALFORGROUP = 20;
$MAXMEASURESINBARGRAPH = 20;

$YYYY = substr($langs->trans("Year"), 0, 1).substr($langs->trans("Year"), 0, 1).substr($langs->trans("Year"), 0, 1).substr($langs->trans("Year"), 0, 1);
$MM = substr($langs->trans("Month"), 0, 1).substr($langs->trans("Month"), 0, 1);
$DD = substr($langs->trans("Day"), 0, 1).substr($langs->trans("Day"), 0, 1);
$HH = substr($langs->trans("Hour"), 0, 1).substr($langs->trans("Hour"), 0, 1);
$MI = substr($langs->trans("Minute"), 0, 1).substr($langs->trans("Minute"), 0, 1);
$SS = substr($langs->trans("Second"), 0, 1).substr($langs->trans("Second"), 0, 1);

$arrayofmesures = array('t.count'=>'Count');
$arrayofxaxis = array();
$arrayofgroupby = array();
$arrayofyaxis = array();
$arrayofvaluesforgroupby = array();



/*
 * Actions
 */





/*
 * View
 */

$form = new Form($db);
$formother = new FormOther($db);

if (!defined('USE_CUSTOME_REPORT_AS_INCLUDE')) {
	llxHeader('', $langs->transnoentitiesnoconv('CustomReports'), '');

	dol_fiche_head($head, 'customreports', $title, -1, $picto);
}

// Check parameters
if ($action == 'viewgraph') {
	if (!count($search_measures)) {
		setEventMessages($langs->trans("AtLeastOneMeasureIsRequired"), null, 'warnings');
	} elseif ($mode == 'graph' && count($search_xaxis) > 1) {
		setEventMessages($langs->trans("OnlyOneFieldForXAxisIsPossible"), null, 'warnings');
		$search_xaxis = array(0 => $search_xaxis[0]);
	}
	if (count($search_groupby) >= 2) {
		setEventMessages($langs->trans("ErrorOnlyOneFieldForGroupByIsPossible"), null, 'warnings');
		$search_groupby = array(0 => $search_groupby[0]);
	}
	if (!count($search_xaxis)) {
		setEventMessages($langs->trans("AtLeastOneXAxisIsRequired"), null, 'warnings');
	} elseif ($mode == 'graph' && $search_graph == 'bars' && count($search_measures) > $MAXMEASURESINBARGRAPH) {
		$langs->load("errors");
		setEventMessages($langs->trans("GraphInBarsAreLimitedToNMeasures", $MAXMEASURESINBARGRAPH), null, 'warnings');
		$search_graph = 'lines';
	}
}

// Get all possible values of fields when a 'group by' is set, and save this into $arrayofvaluesforgroupby
// $arrayofvaluesforgroupby will be used to forge lael of each grouped series
if (is_array($search_groupby) && count($search_groupby)) {
	foreach ($search_groupby as $gkey => $gval) {
		$gvalwithoutprefix = preg_replace('/^[a-z]+\./', '', $gval);

		if (preg_match('/\-year$/', $search_groupby[$gkey])) {
			$tmpval = preg_replace('/\-year$/', '', $search_groupby[$gkey]);
			$fieldtocount .= 'DATE_FORMAT('.$tmpval.", '%Y')";
		} elseif (preg_match('/\-month$/', $search_groupby[$gkey])) {
			$tmpval = preg_replace('/\-month$/', '', $search_groupby[$gkey]);
			$fieldtocount .= 'DATE_FORMAT('.$tmpval.", '%Y-%m')";
		} elseif (preg_match('/\-day$/', $search_groupby[$gkey])) {
			$tmpval = preg_replace('/\-day$/', '', $search_groupby[$gkey]);
			$fieldtocount .= 'DATE_FORMAT('.$tmpval.", '%Y-%m-%d')";
		} else {
			$fieldtocount = $search_groupby[$gkey];
		}

		$sql = 'SELECT DISTINCT '.$fieldtocount.' as val';
		if (strpos($fieldtocount, 'te.') === 0) {
			$sql .= ' FROM '.MAIN_DB_PREFIX.$object->table_element.'_extrafields as te';
		} else {
			$sql .= ' FROM '.MAIN_DB_PREFIX.$object->table_element.' as t';
		}
		// TODO Add the where here

		$sql .= ' LIMIT '.($MAXUNIQUEVALFORGROUP + 1);

		//print $sql;
		$resql = $db->query($sql);
		if (!$resql) {
			dol_print_error($db);
		}

		while ($obj = $db->fetch_object($resql)) {
			if (is_null($obj->val)) {
				$keytouse = '__NULL__';
				$valuetranslated = $langs->transnoentitiesnoconv("NotDefined");
			}
			elseif ($obj->val === '') {
				$keytouse = '';
				$valuetranslated = $langs->transnoentitiesnoconv("Empty");
			}
			else {
				$keytouse = (string) $obj->val;
				$valuetranslated = $obj->val;
			}

			$regs = array();
			if (!empty($object->fields[$gvalwithoutprefix]['arrayofkeyval'])) {
				$valuetranslated = $object->fields[$gvalwithoutprefix]['arrayofkeyval'][$obj->val];
				if (is_null($valuetranslated)) $valuetranslated = $langs->transnoentitiesnoconv("UndefinedKey");
				$valuetranslated = $langs->trans($valuetranslated);
			}
			elseif (preg_match('/integer:([^:]+):([^:]+)$/', $object->fields[$gvalwithoutprefix]['type'], $regs)) {
				$classname = $regs[1];
				$classpath = $regs[2];
				dol_include_once($classpath);
				if (class_exists($classname)) {
					$tmpobject = new $classname($db);
					$tmpobject->fetch($obj->val);
					foreach ($tmpobject->fields as $fieldkey => $field) {
						if ($field['showoncombobox']) {
							$valuetranslated = $tmpobject->$fieldkey;
							//if ($valuetranslated == '-') $valuetranslated = $langs->transnoentitiesnoconv("Unknown")
							break;
						}
					}
					//$valuetranslated = $tmpobject->ref.'eee';
				}
			}

			$arrayofvaluesforgroupby['g_'.$gkey][$keytouse] = $valuetranslated;
		}
		asort($arrayofvaluesforgroupby['g_'.$gkey]);

		if (count($arrayofvaluesforgroupby['g_'.$gkey]) > $MAXUNIQUEVALFORGROUP) {
			$langs->load("errors");
			//var_dump($gkey.' '.$gval.' '.$gvalwithoutprefix);
			$gvalwithoutprefix = preg_replace('/\-(year|month|day)/', '', $gvalwithoutprefix);
			$labeloffield = $langs->transnoentitiesnoconv($object->fields[$gvalwithoutprefix]['label']);
			setEventMessages($langs->trans("ErrorTooManyDifferentValueForSelectedGroupBy", $MAXUNIQUEVALFORGROUP, $labeloffield), null, 'warnings');
			$search_groupby = array();
		}

		$db->free($resql);
	}
}
//var_dump($arrayofvaluesforgroupby);exit;


$tmparray = dol_getdate(dol_now());
$endyear = $tmparray['year'];
$endmonth = $tmparray['mon'];
$datelastday = dol_get_last_day($endyear, $endmonth, 1);
$startyear = $endyear - 2;

$param = '';

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

print '<div class="liste_titre liste_titre_bydiv centpercent">';

// Select object
print '<div class="divadvancedsearchfield center floatnone">';
print '<div class="inline-block"><span class="opacitymedium">'.$langs->trans("StatisticsOn").'</span></div> ';
$newarrayoftype = array();
foreach ($arrayoftype as $key => $val) {
	if (dol_eval($val['enabled'], 1)) {
		$newarrayoftype[$key] = $arrayoftype[$key];
	}
	if ($val['langs']) {
		$langs->load($val['langs']);
	}
}
print $form->selectarray('objecttype', $newarrayoftype, $objecttype, 0, 0, 0, '', 1, 0, 0, '', 'minwidth200', 1);
if (empty($conf->use_javascript_ajax)) print '<input type="submit" class="button buttongen" name="changeobjecttype" value="'.$langs->trans("Refresh").'">';
else {
    print '<script type="text/javascript" language="javascript">
        jQuery(document).ready(function() {
        	jQuery("#objecttype").change(function() {
        		console.log("Reload for "+jQuery("#objecttype").val());
                location.href = "'.$_SERVER["PHP_SELF"].'?objecttype="+jQuery("#objecttype").val()+"'.($tabfamily ? '&tabfamily='.$tabfamily : '').'";
        	});
        });
    </script>';
}
print '</div><div class="clearboth"></div>';

// Add Filter
print '<div class="divadvancedsearchfield quatrevingtpercent">';
print $form->searchComponent(array($object->element => $object->fields), $search_component_params);
print '</div>';

// Add measures into array
print '<div class="divadvancedsearchfield clearboth">';
foreach ($object->fields as $key => $val) {
	if (!empty($val['isameasure']) && (!isset($val['enabled']) || dol_eval($val['enabled'], 1))) {
        $arrayofmesures['t.'.$key.'-sum'] = $langs->trans($val['label']).' <span class="opacitymedium">('.$langs->trans("Sum").')</span>';
        $arrayofmesures['t.'.$key.'-average'] = $langs->trans($val['label']).' <span class="opacitymedium">('.$langs->trans("Average").')</span>';
        $arrayofmesures['t.'.$key.'-min'] = $langs->trans($val['label']).' <span class="opacitymedium">('.$langs->trans("Minimum").')</span>';
        $arrayofmesures['t.'.$key.'-max'] = $langs->trans($val['label']).' <span class="opacitymedium">('.$langs->trans("Maximum").')</span>';
    }
}
// Add extrafields to Measures
if ($object->isextrafieldmanaged) {
    foreach ($extrafields->attributes[$object->table_element]['label'] as $key => $val) {
    	if (!empty($extrafields->attributes[$object->table_element]['totalizable'][$key]) && (!isset($extrafields->attributes[$object->table_element]['enabled'][$key]) || dol_eval($extrafields->attributes[$object->table_element]['enabled'][$key], 1))) {
            $arrayofmesures['te.'.$key.'-sum'] = $langs->trans($extrafields->attributes[$object->table_element]['label'][$key]).' <span class="opacitymedium">('.$langs->trans("Sum").')</span>';
            $arrayofmesures['te.'.$key.'-average'] = $langs->trans($extrafields->attributes[$object->table_element]['label'][$key]).' <span class="opacitymedium">('.$langs->trans("Average").')</span>';
            $arrayofmesures['te.'.$key.'-min'] = $langs->trans($extrafields->attributes[$object->table_element]['label'][$key]).' <span class="opacitymedium">('.$langs->trans("Minimum").')</span>';
            $arrayofmesures['te.'.$key.'-max'] = $langs->trans($extrafields->attributes[$object->table_element]['label'][$key]).' <span class="opacitymedium">('.$langs->trans("Maximum").')</span>';
        }
    }
}
print '<div class="inline-block"><span class="fas fa-chart-line paddingright" title="'.$langs->trans("Measures").'"></span>'.$langs->trans("Measures").'</div> ';
print $form->multiselectarray('search_measures', $arrayofmesures, $search_measures, 0, 0, 'minwidth500', 1);
print '</div>';


// Group by
print '<div class="divadvancedsearchfield">';
print '<div class="inline-block opacitymedium"><span class="fas fa-ruler-horizontal paddingright" title="'.$langs->trans("GroupBy").'"></span>'.$langs->trans("GroupBy").'</div> ';
print $formother->selectGroupByField($object, $search_groupby, $arrayofgroupby);
print '</div>';


// XAxis
print '<div class="divadvancedsearchfield">';
print '<div class="inline-block"><span class="fas fa-ruler-horizontal paddingright" title="'.$langs->trans("XAxis").'"></span>'.$langs->trans("XAxis").'</div> ';
print $formother->selectXAxisField($object, $search_xaxis, $arrayofxaxis);
print '</div>';


if ($mode == 'grid') {
	// YAxis
	print '<div class="divadvancedsearchfield">';
    foreach ($object->fields as $key => $val) {
    	if (empty($val['measure']) && (!isset($val['enabled']) || dol_eval($val['enabled'], 1))) {
            if (in_array($key, array('id', 'rowid', 'entity', 'last_main_doc', 'extraparams'))) continue;
            if (preg_match('/^fk_/', $key)) continue;
            if (in_array($val['type'], array('html', 'text'))) continue;
            if (in_array($val['type'], array('timestamp', 'date', 'datetime'))) {
            	$arrayofyaxis['t.'.$key.'-year'] = array('label' => $langs->trans($val['label']).' ('.$YYYY.')', 'position' => $val['position']);
                $arrayofyaxis['t.'.$key.'-month'] = array('label' => $langs->trans($val['label']).' ('.$YYYY.'-'.$MM.')', 'position' => $val['position']);
                $arrayofyaxis['t.'.$key.'-day'] = array('label' => $langs->trans($val['label']).' ('.$YYYY.'-'.$MM.'-'.$DD.')', 'position' => $val['position']);
            } else {
                $arrayofyaxis['t.'.$key] = array('label' => $val['label'], 'position' => (int) $val['position']);
            }
        }
        // Add measure from extrafields
        if ($object->isextrafieldmanaged) {
            foreach ($extrafields->attributes[$object->table_element]['label'] as $key => $val) {
            	if (!empty($extrafields->attributes[$object->table_element]['totalizable'][$key]) && (!isset($extrafields->attributes[$object->table_element]['enabled'][$key]) || dol_eval($extrafields->attributes[$object->table_element]['enabled'][$key], 1))) {
					$arrayofyaxis['te.'.$key] = array('label' => $extrafields->attributes[$object->table_element]['label'][$key], 'position' => (int) $extrafields->attributes[$object->table_element]['pos'][$key]);
                }
            }
        }
    }
    $arrayofyaxis = dol_sort_array($arrayofyaxis, 'position');
    $arrayofyaxislabel = array();
    foreach ($arrayofyaxis as $key => $val) {
        $arrayofyaxislabel[$key] = $val['label'];
    }
    print '<div class="inline-block opacitymedium"><span class="fas fa-ruler-vertical paddingright" title="'.$langs->trans("YAxis").'"></span>'.$langs->trans("YAxis").'</div> ';
    print $form->multiselectarray('search_yaxis', $arrayofyaxislabel, $search_yaxis, 0, 0, 'minwidth100', 1);
    print '</div>';
}

if ($mode == 'graph') {
    print '<div class="divadvancedsearchfield">';
    $arrayofgraphs = array('bars' => 'Bars', 'lines' => 'Lines'); // also 'pies'
    print '<div class="inline-block opacitymedium"><span class="fas fa-chart-area paddingright" title="'.$langs->trans("Graph").'"></span>'.$langs->trans("Graph").'</div> ';
    print $form->selectarray('search_graph', $arrayofgraphs, $search_graph, 0, 0, 0, 'minwidth100', 1);
    print '</div>';
}
print '<div class="divadvancedsearchfield">';
print '<input type="submit" class="button buttongen" value="'.$langs->trans("Refresh").'">';
print '</div>';
print '</div>';
print '</form>';

// Generate the SQL request
$sql = '';
if (!empty($search_measures) && !empty($search_xaxis))
{
    $fieldid = 'rowid';

    $sql = 'SELECT ';
    foreach ($search_xaxis as $key => $val) {
        if (preg_match('/\-year$/', $val)) {
            $tmpval = preg_replace('/\-year$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y') as x_".$key.', ';
        } elseif (preg_match('/\-month$/', $val)) {
            $tmpval = preg_replace('/\-month$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m') as x_".$key.', ';
        } elseif (preg_match('/\-day$/', $val)) {
            $tmpval = preg_replace('/\-day$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m-%d') as x_".$key.', ';
        }
        else $sql .= $val.' as x_'.$key.', ';
    }
    foreach ($search_groupby as $key => $val) {
    	if (preg_match('/\-year$/', $val)) {
    		$tmpval = preg_replace('/\-year$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y') as g_".$key.', ';
    	} elseif (preg_match('/\-month$/', $val)) {
    		$tmpval = preg_replace('/\-month$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m') as g_".$key.', ';
    	} elseif (preg_match('/\-day$/', $val)) {
    		$tmpval = preg_replace('/\-day$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m-%d') as g_".$key.', ';
    	}
    	else $sql .= $val.' as g_'.$key.', ';
    }
    foreach ($search_measures as $key => $val) {
        if ($val == 't.count') $sql .= 'COUNT(t.'.$fieldid.') as y_'.$key.', ';
        elseif (preg_match('/\-sum$/', $val)) {
            $tmpval = preg_replace('/\-sum$/', '', $val);
            $sql .= 'SUM('.$db->ifsql($tmpval.' IS NULL', '0', $tmpval).') as y_'.$key.', ';
        }
        elseif (preg_match('/\-average$/', $val)) {
            $tmpval = preg_replace('/\-average$/', '', $val);
            $sql .= 'AVG('.$db->ifsql($tmpval.' IS NULL', '0', $tmpval).') as y_'.$key.', ';
        }
        elseif (preg_match('/\-min$/', $val)) {
        	$tmpval  = preg_replace('/\-min$/', '', $val);
        	$sql .= 'MIN('.$db->ifsql($tmpval.' IS NULL', '0', $tmpval).') as y_'.$key.', ';
        }
        elseif (preg_match('/\-max$/', $val)) {
        	$tmpval = preg_replace('/\-max$/', '', $val);
        	$sql .= 'MAX('.$db->ifsql($tmpval.' IS NULL', '0', $tmpval).') as y_'.$key.', ';
        }
    }
    $sql = preg_replace('/,\s*$/', '', $sql);
    $sql .= ' FROM '.MAIN_DB_PREFIX.$object->table_element.' as t';
    // Add measure from extrafields
    if ($object->isextrafieldmanaged) {
        $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.$object->table_element.'_extrafields as te ON te.fk_object = t.'.$fieldid;
    }
    if ($object->ismultientitymanaged) {
    	if ($object->ismultientitymanaged == 1) {
    		// Nothing here
    	} else {
    		$tmparray = explode('@', $object->ismultientitymanaged);
    		$sql .= ' INNER JOIN '.MAIN_DB_PREFIX.$tmparray[1].' as parenttable ON t.'.$tmparray[0].' = parenttable.rowid';
    		$sql .= ' AND parenttable.entity IN ('.getEntity($tmparray[1]).')';
    	}
    }
    $sql .= ' WHERE 1 = 1';
    if ($object->ismultientitymanaged == 1) {
   		$sql .= ' AND entity IN ('.getEntity($object->element).')';
    }
    foreach ($search_filters as $key => $val) {
    	// TODO Add the where here
    }
    $sql .= ' GROUP BY ';
    foreach ($search_xaxis as $key => $val) {
        if (preg_match('/\-year$/', $val)) {
            $tmpval = preg_replace('/\-year$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y'), ";
        } elseif (preg_match('/\-month$/', $val)) {
            $tmpval = preg_replace('/\-month$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m'), ";
        } elseif (preg_match('/\-day$/', $val)) {
            $tmpval = preg_replace('/\-day$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m-%d'), ";
        }
        else $sql .= $val.', ';
    }
    foreach ($search_groupby as $key => $val) {
    	if (preg_match('/\-year$/', $val)) {
    		$tmpval = preg_replace('/\-year$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y'), ";
    	} elseif (preg_match('/\-month$/', $val)) {
    		$tmpval = preg_replace('/\-month$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m'), ";
    	} elseif (preg_match('/\-day$/', $val)) {
    		$tmpval = preg_replace('/\-day$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m-%d'), ";
    	}
    	else $sql .= $val.', ';
    }
    $sql = preg_replace('/,\s*$/', '', $sql);
    $sql .= ' ORDER BY ';
    foreach ($search_xaxis as $key => $val) {
        if (preg_match('/\-year$/', $val)) {
            $tmpval = preg_replace('/\-year$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y'), ";
        } elseif (preg_match('/\-month$/', $val)) {
            $tmpval = preg_replace('/\-month$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m'), ";
        } elseif (preg_match('/\-day$/', $val)) {
            $tmpval = preg_replace('/\-day$/', '', $val);
            $sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m-%d'), ";
        }
        else $sql .= $val.', ';
    }
    foreach ($search_groupby as $key => $val) {
    	if (preg_match('/\-year$/', $val)) {
    		$tmpval = preg_replace('/\-year$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y'), ";
    	} elseif (preg_match('/\-month$/', $val)) {
    		$tmpval = preg_replace('/\-month$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m'), ";
    	} elseif (preg_match('/\-day$/', $val)) {
    		$tmpval = preg_replace('/\-day$/', '', $val);
    		$sql .= 'DATE_FORMAT('.$tmpval.", '%Y-%m-%d'), ";
    	}
    	else $sql .= $val.', ';
    }
    $sql = preg_replace('/,\s*$/', '', $sql);
}
//print $sql;

$legend = array();
foreach ($search_measures as $key => $val) {
    $legend[] = $langs->trans($arrayofmesures[$val]);
}

$useagroupby = (is_array($search_groupby) && count($search_groupby));
//var_dump($useagroupby);
//var_dump($arrayofvaluesforgroupby);

// Execute the SQL request
$totalnbofrecord = 0;
$data = array();
if ($sql) {
    $resql = $db->query($sql);
    if (!$resql) {
        dol_print_error($db);
    }

    $ifetch = 0; $xi = 0; $oldlabeltouse = '';
    while ($obj = $db->fetch_object($resql)) {
    	$ifetch++;
    	if ($useagroupby) {
    		$xval = $search_xaxis[0];
    		$fieldforxkey = 'x_0';
    		$xlabel = $obj->$fieldforxkey;
    		$xvalwithoutprefix = preg_replace('/^[a-z]+\./', '', $xval);

    		// Define $xlabel
    		if (!empty($object->fields[$xvalwithoutprefix]['arrayofkeyval'])) {
    			$xlabel = $object->fields[$xvalwithoutprefix]['arrayofkeyval'][$obj->$fieldforxkey];
    		}
    		$labeltouse = (($xlabel || $xlabel == '0') ? dol_trunc($xlabel, 20, 'middle') : ($xlabel === '' ? $langs->trans("Empty") : $langs->trans("NotDefined")));

    		if ($oldlabeltouse && ($labeltouse != $oldlabeltouse)) {
    			$xi++; // Increase $xi
    		}
    		//var_dump($labeltouse.' '.$oldlabeltouse.' '.$xi);
    		$oldlabeltouse = $labeltouse;

    		/* Example of value for $arrayofvaluesforgroupby
    		 * array (size=1)
			 *	  'g_0' =>
			 *	    array (size=6)
			 *	      0 => string '0' (length=1)
			 *	      '' => string 'Empty' (length=5)
			 *	      '__NULL__' => string 'Not defined' (length=11)
			 *	      'done' => string 'done' (length=4)
			 *	      'processing' => string 'processing' (length=10)
			 *	      'undeployed' => string 'undeployed' (length=10)
    		 */
    		foreach ($search_measures as $key => $val) {
    			$gi = 0;
    			foreach ($search_groupby as $gkey) {
    				//var_dump('*** Fetch #'.$ifetch.' for labeltouse='.$labeltouse.' measure number '.$key.' and group g_'.$gi);
    				//var_dump($arrayofvaluesforgroupby);
    				foreach ($arrayofvaluesforgroupby['g_'.$gi] as $gvaluepossiblekey => $gvaluepossiblelabel) {
    					$ykeysuffix = $gvaluepossiblelabel;
    					$gvalwithoutprefix = preg_replace('/^[a-z]+\./', '', $gval);

    					$fieldfory = 'y_'.$key;
    					$fieldforg = 'g_'.$gi;
    					$fieldforybis = 'y_'.$key.'_'.$ykeysuffix;
    					//var_dump('gvaluepossiblekey='.$gvaluepossiblekey.' gvaluepossiblelabel='.$gvaluepossiblelabel.' ykeysuffix='.$ykeysuffix.' gval='.$gval.' gvalwithoutsuffix='.$gvalwithoutprefix);
    					//var_dump('fieldforg='.$fieldforg.' obj->$fieldforg='.$obj->$fieldforg.' fieldfory='.$fieldfory.' obj->$fieldfory='.$obj->$fieldfory.' fieldforybis='.$fieldforybis);

    					if (!is_array($data[$xi])) $data[$xi] = array();

						if (!array_key_exists('label', $data[$xi])) {
    						$data[$xi] = array();
    						$data[$xi]['label'] = $labeltouse;
    					}

    					$objfieldforg = $obj->$fieldforg;
    					if (is_null($objfieldforg)) $objfieldforg = '__NULL__';

    					if ($gvaluepossiblekey == '0') {	// $gvaluepossiblekey can have type int or string. So we create a special if, used when value is '0'
    						//var_dump($objfieldforg.' == \'0\' -> '.($objfieldforg == '0'));
    						if ($objfieldforg == '0') {
    							// The record we fetch is for this group
    							$data[$xi][$fieldforybis] = $obj->$fieldfory;
    						}
    						// The record we fetch is not for this group
    						elseif (!isset($data[$xi][$fieldforybis])) {
    							$data[$xi][$fieldforybis] = '0';
    						}
    					} else {
    						//var_dump((string) $objfieldforg.' === '.(string) $gvaluepossiblekey.' -> '.((string) $objfieldforg === (string) $gvaluepossiblekey));
    						if ((string) $objfieldforg === (string) $gvaluepossiblekey) {
    							// The record we fetch is for this group
    							$data[$xi][$fieldforybis] = $obj->$fieldfory;
    						}
    						// The record we fetch is not for this group
    						elseif (!isset($data[$xi][$fieldforybis])) {
    							$data[$xi][$fieldforybis] = '0';
    						}
    					}
    				}
    				//var_dump($data[$xi]);
    				$gi++;
    			}
    		}
    	} else {	// No group by
    		$xval = $search_xaxis[0];
    		$fieldforxkey = 'x_0';
    		$xlabel = $obj->$fieldforxkey;
    		$xvalwithoutprefix = preg_replace('/^[a-z]+\./', '', $xval);

    		// Define $xlabel
    		if (!empty($object->fields[$xvalwithoutprefix]['arrayofkeyval'])) {
    			$xlabel = $object->fields[$xvalwithoutprefix]['arrayofkeyval'][$obj->$fieldforxkey];
    		}

    		$labeltouse = (($xlabel || $xlabel == '0') ? dol_trunc($xlabel, 20, 'middle') : ($xlabel === '' ? $langs->trans("Empty") : $langs->trans("NotDefined")));
    		$xarrayforallseries = array('label' => $labeltouse);
    		foreach ($search_measures as $key => $val) {
    			$fieldfory = 'y_'.$key;
    			$xarrayforallseries[$fieldfory] = $obj->$fieldfory;
    		}
    		$data[$xi] = $xarrayforallseries;
    		$xi++;
    	}
    }

    $totalnbofrecord = count($data);
}
//var_dump($data);


print '<div class="customreportsoutput'.($totalnbofrecord ? '' : ' customreportsoutputnotdata').'">';


if ($mode == 'grid') {
	// TODO
}

if ($mode == 'graph') {
    $WIDTH = '80%';
    $HEIGHT = 200;

    // Show graph
    $px1 = new DolGraph();
    $mesg = $px1->isGraphKo();
    if (!$mesg)
    {
    	/*var_dump($legend);
    	var_dump($data);*/
    	$px1->SetData($data);
    	unset($data);

    	$arrayoftypes = array();
    	foreach ($search_measures as $key => $val) {
    	    $arrayoftypes[] = $search_graph;
    	}

    	$px1->SetLegend($legend);
    	$px1->SetMinValue($px1->GetFloorMinValue());
    	$px1->SetMaxValue($px1->GetCeilMaxValue());
    	$px1->SetWidth($WIDTH);
    	$px1->SetHeight($HEIGHT);
    	$px1->SetYLabel($langs->trans("Y"));
    	$px1->SetShading(3);
    	$px1->SetHorizTickIncrement(1);
    	$px1->SetCssPrefix("cssboxes");
    	$px1->SetType($arrayoftypes);
    	$px1->mode = 'depth';
    	$px1->SetTitle('');

    	$dir = $conf->user->dir_temp;
    	dol_mkdir($dir);
    	$filenamenb = $dir.'/customreport_'.$object->element.'.png';
    	$fileurlnb = DOL_URL_ROOT.'/viewimage.php?modulepart=user&file=customreport_'.$object->element.'.png';

    	$px1->draw($filenamenb, $fileurlnb);

    	$texttoshow = $langs->trans("NoRecordFound");
    	if (!GETPOSTISSET('search_measures') || !GETPOSTISSET('search_xaxis')) {
    		$texttoshow = $langs->trans("SelectYourGraphOptionsFirst");
    	}

    	print $px1->show($totalnbofrecord ? 0 : $texttoshow);
    }
}

if ($sql) {
    // Show admin info
    print '<br>'.info_admin($langs->trans("SQLUsedForExport").':<br> '.$sql, 0, 0, 1, '', 'TechnicalInformation');
}

print '<div>';

if (!defined('USE_CUSTOME_REPORT_AS_INCLUDE')) {
	dol_fiche_end();
}

// End of page
llxFooter();

$db->close();