30require
'../../main.inc.php';
31require_once DOL_DOCUMENT_ROOT.
'/core/lib/product.lib.php';
32require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
33require_once DOL_DOCUMENT_ROOT.
'/product/class/product.class.php';
34require_once DOL_DOCUMENT_ROOT.
'/core/class/dolgraph.class.php';
35require_once DOL_DOCUMENT_ROOT.
'/categories/class/categorie.class.php';
36require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formother.class.php';
42$langs->loadLangs(array(
'companies',
'products',
'stocks',
'bills',
'other'));
46$mode = (
GETPOST(
'mode',
'alpha') ?
GETPOST(
'mode',
'alpha') :
'byunit');
47$search_year =
GETPOST(
'search_year',
'int');
48$search_categ =
GETPOST(
'search_categ',
'int');
49$notab =
GETPOST(
'notab',
'int');
50$type =
GETPOST(
'type',
'alpha');
56$socid =
GETPOST(
'socid',
'int');
57if (!empty($user->socid)) {
58 $socid = $user->socid;
65$fieldvalue = ($id > 0 ? $id : $ref);
66$fieldtype = (!empty($ref) ?
'ref' :
'rowid');
69$hookmanager->initHooks(array(
'productstatscard',
'globalcard'));
72$currentyear = $tmp[
'year'];
73if (empty($search_year)) {
74 $search_year = $currentyear;
79if ($id > 0 || !empty($ref)) {
80 $result = $object->fetch($id, $ref);
83$result =
restrictedArea($user,
'produit|service', $fieldvalue,
'product&product',
'',
'', $fieldtype);
100if (!($id > 0) && empty($ref) || $notab) {
103 llxHeader(
"", $langs->trans(
"ProductStatistics"));
105 $type =
GETPOST(
'type',
'int');
109 $helpurl =
'EN:Module_Products|FR:Module_Produits|ES:Módulo_Productos';
111 $title = $langs->trans(
"Statistics");
112 } elseif ($type ==
'1') {
113 $helpurl =
'EN:Module_Services_En|FR:Module_Services|ES:Módulo_Servicios';
115 $title = $langs->trans(
"Statistics");
117 $helpurl =
'EN:Module_Services_En|FR:Module_Services|ES:Módulo_Servicios';
119 $title = $langs->trans(
"Statistics");
129 $result = $object->fetch($id, $ref);
131 $title = $langs->trans(
'ProductServiceCard');
133 $shortlabel =
dol_trunc($object->label, 16);
135 $title = $langs->trans(
'Product').
" ".$shortlabel.
" - ".$langs->trans(
'Statistics');
136 $helpurl =
'EN:Module_Products|FR:Module_Produits|ES:Módulo_Productos';
139 $title = $langs->trans(
'Service').
" ".$shortlabel.
" - ".$langs->trans(
'Statistics');
140 $helpurl =
'EN:Module_Services_En|FR:Module_Services|ES:Módulo_Servicios';
147if ($result && ($id > 0 || !empty($ref)) && empty($notab)) {
149 $titre = $langs->trans(
"CardProduct".$object->type);
154 $linkback =
'<a href="'.DOL_URL_ROOT.
'/product/list.php?restore_lastsearch_values=1&type='.$object->type.
'">'.$langs->trans(
"BackToList").
'</a>';
156 dol_banner_tab($object,
'ref', $linkback, ($user->socid ? 0 : 1),
'ref',
'',
'',
'', 0,
'',
'', 1);
160if ((!($id > 0) && empty($ref)) || $notab) {
164 $head[$h][0] = DOL_URL_ROOT.
'/product/stats/card.php'.($type !=
'' ?
'?type='.((int) $type) :
'');
165 $head[$h][1] = $langs->trans(
"Chart");
166 $head[$h][2] =
'chart';
169 $title = $langs->trans(
"ListProductServiceByPopularity");
170 if ((
string) $type ==
'0') {
171 $title = $langs->trans(
"ListProductByPopularity");
173 if ((
string) $type ==
'1') {
174 $title = $langs->trans(
"ListServiceByPopularity");
178 $head[$h][0] = DOL_URL_ROOT.
'/product/popuprop.php'.($type !=
'' ?
'?type='.((int) $type) :
'');
179 $head[$h][1] = $langs->trans(
"ProductsServicesPerPopularity");
180 if ((
string) $type ==
'0') {
181 $head[$h][1] = $langs->trans(
"ProductsPerPopularity");
183 if ((
string) $type ==
'1') {
184 $head[$h][1] = $langs->trans(
"ServicesPerPopularity");
186 $head[$h][2] =
'popularity';
193if ($result || !($id > 0)) {
194 print
'<form name="stats" method="POST" action="'.$_SERVER[
"PHP_SELF"].
'">';
195 print
'<input type="hidden" name="token" value="'.newToken().
'">';
196 if (empty($id) || $notab) {
197 print
'<input type="hidden" name="notab" value="1">';
200 print
'<table class="noborder centpercent">';
201 print
'<tr class="liste_titre"><td class="liste_titre">'.$langs->trans(
"Filter").
'</td><td></td></tr>';
203 if (!($id > 0) || $notab) {
205 print
'<tr class="nooddeven"><td class="titlefield">'.$langs->trans(
"Type").
'</td><td>';
206 $array = array(
'-1'=>
' ',
'0'=>$langs->trans(
'Product'),
'1'=>$langs->trans(
'Service'));
207 print $form->selectarray(
'type', $array, $type, 0, 0, 0,
'', 0, 0, 0,
'',
'minwidth100');
211 print
'<tr class="nooddeven"><td class="titlefield">'.$langs->trans(
"ProductOrService").
'</td><td>';
212 print
img_picto(
'',
'product',
'class="pictofixedwidth"');
213 print $form->select_produits($id,
'id',
'', 0, 0, 1, 2,
'', ($conf->dol_optimize_smallscreen ? 1 : 0), array(), 0,
'1', 0,
'widthcentpercentminusx maxwidth400');
217 if (isModEnabled(
'categorie')) {
218 print
'<tr class="nooddeven"><td class="titlefield">'.$langs->trans(
"Categories").
'</td><td>';
219 $moreforfilter .=
img_picto($langs->trans(
"Categories"),
'category',
'class="pictofixedwidth"');
220 $moreforfilter .= $htmlother->select_categories(Categorie::TYPE_PRODUCT, $search_categ,
'search_categ', 1, 1,
'widthcentpercentminusx maxwidth400');
221 print $moreforfilter;
225 print
'<input type="hidden" name="id" value="'.$id.
'">';
229 print
'<tr class="nooddeven"><td class="titlefield">'.$langs->trans(
"Year").
'</td><td>';
230 $arrayyears = array();
231 for ($year = $currentyear - 25; $year < $currentyear; $year++) {
232 $arrayyears[$year] = $year;
234 if (!in_array($year, $arrayyears)) {
235 $arrayyears[$year] = $year;
237 if (!in_array($currentyear, $arrayyears)) {
238 $arrayyears[$currentyear] = $currentyear;
241 print $form->selectarray(
'search_year', $arrayyears, $search_year, 1, 0, 0,
'', 0, 0, 0,
'',
'width75');
245 print
'<tr class="nooddeven"><td class="titlefield">'.$langs->trans(
"ThirdParty").
'</td><td>';
246 print
img_picto(
'',
'company',
'class="pictofixedwidth"');
247 print $form->select_company($socid,
'socid',
'', 1, 0, 0, array(), 0,
'widthcentpercentminusx maxwidth400');
251 print
'<div class="center"><input type="submit" name="submit" class="button small" value="'.$langs->trans(
"Refresh").
'"></div>';
258 $param .= (GETPOSTISSET(
'id') ?
'&id='.GETPOST(
'id',
'int') :
'&id='.$object->id).(($type !=
'' && $type !=
'-1') ?
'&type='.((int) $type) :
'').
'&search_year='.((
int) $search_year).($notab ?
'¬ab='.$notab :
'');
260 $param .=
'&socid='.((int) $socid);
265 if (!empty($conf->dol_use_jmobile)) {
266 print
"\n".
'<div class="fichecenter"><div class="nowrap">'.
"\n";
269 if ($mode !=
'byunit') {
270 print
'<a class="a-mesure-disabled marginleftonly marginrightonly reposition" href="'.$_SERVER[
"PHP_SELF"].
'?mode=byunit'.$param.
'">';
272 print
'<span class="a-mesure marginleftonly marginrightonly">';
275 print $langs->trans(
"StatsByNumberOfUnitsProducts");
276 } elseif ($type ==
'1') {
277 print $langs->trans(
"StatsByNumberOfUnitsServices");
279 print $langs->trans(
"StatsByNumberOfUnits");
281 if ($mode !=
'byunit') {
287 if (!empty($conf->dol_use_jmobile)) {
288 print
'</div>'.
"\n".
'<div class="nowrap">'.
"\n";
291 if ($mode !=
'bynumber') {
292 print
'<a class="a-mesure-disabled marginleftonly marginrightonly reposition" href="'.$_SERVER[
"PHP_SELF"].
'?mode=bynumber'.$param.
'">';
294 print
'<span class="a-mesure marginleftonly marginrightonly">';
296 print $langs->trans(
"StatsByNumberOfEntities");
297 if ($mode !=
'bynumber') {
303 if (!empty($conf->dol_use_jmobile)) {
304 print
'</div>'.
"\n".
'<div class="nowrap">'.
"\n";
307 if ($mode !=
'byamount') {
308 print
'<a class="a-mesure-disabled marginleftonly marginrightonly reposition" href="'.$_SERVER[
"PHP_SELF"].
'?mode=byamount'.$param.
'">';
310 print
'<span class="a-mesure marginleftonly marginrightonly">';
313 print $langs->trans(
"StatsByAmountProducts");
314 } elseif ($type ==
'1') {
315 print $langs->trans(
"StatsByAmountServices");
317 print $langs->trans(
"StatsByAmount");
319 if ($mode !=
'byamount') {
326 if (!empty($conf->dol_use_jmobile)) {
327 print
'</div></div>';
334 $dir = (!empty($conf->product->multidir_temp[$conf->entity]) ? $conf->product->multidir_temp[$conf->entity] : $conf->service->multidir_temp[$conf->entity]);
335 if ($object->id > 0) {
336 if (!file_exists($dir.
'/'.$object->id)) {
337 if (
dol_mkdir($dir.
'/'.$object->id) < 0) {
338 $mesg = $langs->trans(
"ErrorCanNotCreateDir", $dir);
344 $arrayforlabel = array(
'byunit' =>
'NumberOfUnits',
'bynumber' =>
'NumberOf',
'byamount' =>
'AmountIn');
346 if (isModEnabled(
'propal')) {
347 $graphfiles[
'propal'] = array(
'modulepart'=>
'productstats_proposals',
348 'file' => $object->id.
'/propal12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
349 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode], $langs->transnoentitiesnoconv(
"Proposals")));
352 if (isModEnabled(
'supplier_proposal')) {
353 $langs->load(
"supplier_proposal");
354 $graphfiles[
'proposalssuppliers'] = array(
'modulepart'=>
'productstats_proposalssuppliers',
355 'file' => $object->id.
'/proposalssuppliers12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
356 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode], $langs->transnoentitiesnoconv(
"SupplierProposals")));
359 if (isModEnabled(
'order')) {
360 $graphfiles[
'orders'] = array(
'modulepart'=>
'productstats_orders',
361 'file' => $object->id.
'/orders12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
362 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode], $langs->transnoentitiesnoconv(
"Orders")));
365 if (isModEnabled(
'supplier_order')) {
366 $graphfiles[
'orderssuppliers'] = array(
'modulepart'=>
'productstats_orderssuppliers',
367 'file' => $object->id.
'/orderssuppliers12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
368 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode], $langs->transnoentitiesnoconv(
"SuppliersOrders")));
371 if (isModEnabled(
'facture')) {
372 $graphfiles[
'invoices'] = array(
'modulepart'=>
'productstats_invoices',
373 'file' => $object->id.
'/invoices12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
374 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode], $langs->transnoentitiesnoconv(
"Invoices")));
377 if (isModEnabled(
'supplier_invoice')) {
378 $graphfiles[
'invoicessuppliers'] = array(
'modulepart'=>
'productstats_invoicessuppliers',
379 'file' => $object->id.
'/invoicessuppliers12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
380 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode], $langs->transnoentitiesnoconv(
"SupplierInvoices")));
383 if (isModEnabled(
'contrat')) {
384 $graphfiles[
'contracts'] = array(
'modulepart'=>
'productstats_contracts',
385 'file' => $object->id.
'/contracts12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
386 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode], $langs->transnoentitiesnoconv(
"Contracts")));
389 if (isModEnabled(
'mrp') && $mode !=
'byamount') {
390 $graphfiles[
'mrp'] = array(
'modulepart'=>
'productstats_mrp',
391 'file' => $object->id.
'/mos12m'.((
string) $type !=
'' ?
'_type'.$type :
'').
'_'.$mode.($search_year > 0 ?
'_year'.$search_year :
'').
'.png',
392 'label' => $langs->transnoentitiesnoconv($arrayforlabel[$mode].
"Mos"));
397 if (!$error && count($graphfiles) > 0) {
398 $mesg = $px->isGraphKo();
400 foreach ($graphfiles as $key => $val) {
401 if (!$graphfiles[$key][
'file']) {
405 $graph_data = array();
407 if (
dol_is_file($dir.
'/'.$graphfiles[$key][
'file'])) {
411 if ($search_categ > 0) {
413 $categ->fetch($search_categ);
414 $listofprodids = $categ->getObjectsInCateg(
'product', 1);
415 $morefilters =
' AND d.fk_product IN ('.$db->sanitize((is_array($listofprodids) && count($listofprodids)) ? join(
',', $listofprodids) :
'0').
')';
417 if ($search_categ == -2) {
418 $morefilters =
' AND NOT EXISTS (SELECT cp.fk_product FROM '.MAIN_DB_PREFIX.
'categorie_product as cp WHERE d.fk_product = cp.fk_product)';
421 if ($key ==
'propal') {
422 $graph_data = $object->get_nb_propal($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
424 if ($key ==
'orders') {
425 $graph_data = $object->get_nb_order($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
427 if ($key ==
'invoices') {
428 $graph_data = $object->get_nb_vente($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
430 if ($key ==
'proposalssuppliers') {
431 $graph_data = $object->get_nb_propalsupplier($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
433 if ($key ==
'invoicessuppliers') {
434 $graph_data = $object->get_nb_achat($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
436 if ($key ==
'orderssuppliers') {
437 $graph_data = $object->get_nb_ordersupplier($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
439 if ($key ==
'contracts') {
440 $graph_data = $object->get_nb_contract($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
443 $graph_data = $object->get_nb_mos($socid, $mode, ((
string) $type !=
'' ? $type : -1), $search_year, $morefilters);
449 if (is_array($graph_data)) {
450 $px->SetData($graph_data);
451 $px->SetYLabel($graphfiles[$key][
'label']);
452 $px->SetMaxValue($px->GetCeilMaxValue() < 0 ? 0 : $px->GetCeilMaxValue());
453 $px->SetMinValue($px->GetFloorMinValue() > 0 ? 0 : $px->GetFloorMinValue());
454 $px->setShowLegend(0);
455 $px->SetWidth($WIDTH);
456 $px->SetHeight($HEIGHT);
457 $px->SetHorizTickIncrement(1);
461 $url = DOL_URL_ROOT.
'/viewimage.php?modulepart='.$graphfiles[$key][
'modulepart'].
'&entity='.((int) $object->entity).
'&file='.urlencode($graphfiles[$key][
'file']).($notab ?
'¬ab='.$notab :
'');
462 $px->draw($dir.
"/".$graphfiles[$key][
'file'], $url);
464 $graphfiles[$key][
'total'] = $px->total();
465 $graphfiles[$key][
'output'] = $px->show();
467 dol_print_error($db,
'Error for calculating graph on key='.$key.
' - '.$object->error);
477 if (count($graphfiles) > 0) {
478 foreach ($graphfiles as $key => $val) {
479 if (!$graphfiles[$key][
'file']) {
483 if ($graphfiles ==
'propal' && !$user->hasRight(
'propal',
'lire')) {
486 if ($graphfiles ==
'order' && !$user->hasRight(
'commande',
'lire')) {
489 if ($graphfiles ==
'invoices' && !$user->hasRight(
'facture',
'lire')) {
492 if ($graphfiles ==
'proposals_suppliers' && !$user->hasRight(
'supplier_proposal',
'lire')) {
495 if ($graphfiles ==
'invoices_suppliers' && !$user->hasRight(
'fournisseur',
'facture',
'lire')) {
498 if ($graphfiles ==
'orders_suppliers' && !$user->hasRight(
'fournisseur',
'commande',
'lire')) {
501 if ($graphfiles ==
'mrp' && !$user->hasRight(
'mrp',
'read')) {
507 print
"\n".
'<div class="fichecenter"><div class="fichehalfleft">'.
"\n";
509 print
"\n".
'<div class="fichehalfright">'.
"\n";
513 if ($graphfiles[$key][
'output'] && !$px->isGraphKo()) {
514 if (file_exists($dir.
"/".$graphfiles[$key][
'file']) && filemtime($dir.
"/".$graphfiles[$key][
'file'])) {
515 $dategenerated = $langs->trans(
"GeneratedOn",
dol_print_date(filemtime($dir.
"/".$graphfiles[$key][
'file']),
"dayhour"));
520 $dategenerated = ($mesg ?
'<span class="error">'.$mesg.
'</span>' : $langs->trans(
"ChartNotGenerated"));
522 $linktoregenerate =
'<a class="reposition" href="'.$_SERVER[
"PHP_SELF"].
'?'.(GETPOSTISSET(
'id') ?
'id='.GETPOST(
'id',
'int') :
'id='.$object->id).(((
string) $type !=
'' && $type !=
'-1') ?
'&type='.((int) $type) :
'').
'&action=recalcul&mode='.urlencode($mode).
'&search_year='.((int) $search_year).($search_categ > 0 ?
'&search_categ='.((int) $search_categ) :
'').
'">';
523 $linktoregenerate .=
img_picto($langs->trans(
"ReCalculate").
' ('.$dategenerated.
')',
'refresh');
524 $linktoregenerate .=
'</a>';
528 print
'<div class="div-table-responsive-no-min">';
529 print
'<table class="noborder centpercent">';
531 print
'<tr class="liste_titre"><td>';
532 print $graphfiles[$key][
'label'];
533 print
' <span class="opacitymedium">('.$graphfiles[$key][
'total'].
')</span></td>';
534 print
'<td align="right">'.$linktoregenerate.
'</td>';
537 print
'<tr><td colspan="2" class="nohover" align="center">';
538 print $graphfiles[$key][
'output'];
544 print
"\n".
'</div>'.
"\n";
546 print
"\n".
'</div></div>';
547 print
'<div class="clear"><div class="fichecenter"><br></div></div>'.
"\n";
555 print
"\n".
'<div class="fichehalfright">'.
"\n";
556 print
"\n".
'</div></div>';
557 print
'<div class="clear"><div class="fichecenter"><br></div></div>'.
"\n";
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Class to manage categories.
static getDefaultGraphSizeForStats($direction, $defaultsize='')
getDefaultGraphSizeForStats
Class to manage products or services.
const TYPE_PRODUCT
Regular product.
const TYPE_SERVICE
Service.
dol_is_file($pathoffile)
Return if path is a file.
dol_banner_tab($object, $paramid, $morehtml='', $shownav=1, $fieldid='rowid', $fieldref='ref', $morehtmlref='', $moreparam='', $nodbprefix=0, $morehtmlleft='', $morehtmlstatus='', $onlybanner=0, $morehtmlright='')
Show tab footer of a card.
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_get_fiche_end($notab=0)
Return tab footer of a card.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_now($mode='auto')
Return date for now.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
dol_mkdir($dir, $dataroot='', $newmask='')
Creation of a directory (this can create recursive subdir)
product_prepare_head($object)
Prepare array with list of tabs.
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.