index.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2001-2006  Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2015  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2014  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2014-2016  Charlie BENKE           <charlie@patas-monkey.com>
 * Copyright (C) 2015       Jean-François Ferry     <jfefe@aternatik.fr>
 * Copyright (C) 2019       Pierre Ardoin           <mapiolca@me.com>
 * Copyright (C) 2019-2021  Frédéric France         <frederic.france@netlogic.fr>
 * Copyright (C) 2019       Nicolas ZABOURI         <info@inovea-conseil.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/>.
 */
 
// Load Dolibarr environment
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_parser.class.php';
 
$type = GETPOST("type", 'int');
if ($type == '' && empty($user->rights->produit->lire)) {
  $type = '1'; // Force global page on service page only
}
if ($type == '' && empty($user->rights->service->lire)) {
  $type = '0'; // Force global page on product page only
}
 
// Load translation files required by the page
$langs->loadLangs(array('products', 'stocks'));
 
// Initialize technical object to manage hooks. Note that conf->hooks_modules contains array of hooks
$hookmanager->initHooks(array('productindex'));
 
// Initialize objects
$product_static = new Product($db);
 
// Security check
if ($type == '0') {
  $result = restrictedArea($user, 'produit');
} elseif ($type == '1') {
  $result = restrictedArea($user, 'service');
} else {
  $result = restrictedArea($user, 'produit|service|expedition');
}
 
 
/*
 * View
 */
 
$transAreaType = $langs->trans("ProductsAndServicesArea");
 
$helpurl = '';
if (!isset($_GET["type"])) {
  $transAreaType = $langs->trans("ProductsAndServicesArea");
  $helpurl = 'EN:Module_Products|FR:Module_Produits|ES:M&oacute;dulo_Productos';
}
if ((isset($_GET["type"]) && $_GET["type"] == 0) || empty($conf->service->enabled)) {
  $transAreaType = $langs->trans("ProductsArea");
  $helpurl = 'EN:Module_Products|FR:Module_Produits|ES:M&oacute;dulo_Productos';
}
if ((isset($_GET["type"]) && $_GET["type"] == 1) || empty($conf->product->enabled)) {
  $transAreaType = $langs->trans("ServicesArea");
  $helpurl = 'EN:Module_Services_En|FR:Module_Services|ES:M&oacute;dulo_Servicios';
}
 
llxHeader("", $langs->trans("ProductsAndServices"), $helpurl);
 
$linkback = "";
print load_fiche_titre($transAreaType, $linkback, 'product');
 
 
print '<div class="fichecenter"><div class="fichethirdleft">';
 
 
if (!empty($conf->global->MAIN_SEARCH_FORM_ON_HOME_AREAS)) {     // This may be useless due to the global search combo
  // Search contract
  if ((isModEnabled("product") || isModEnabled("service")) && ($user->rights->produit->lire || $user->rights->service->lire)) {
    $listofsearchfields['search_product'] = array('text'=>'ProductOrService');
  }
 
  if (count($listofsearchfields)) {
    print '<form method="post" action="'.DOL_URL_ROOT.'/core/search.php">';
    print '<input type="hidden" name="token" value="'.newToken().'">';
    print '<div class="div-table-responsive-no-min">';
    print '<table class="noborder nohover centpercent">';
    $i = 0;
    foreach ($listofsearchfields as $key => $value) {
      if ($i == 0) {
        print '<tr class="liste_titre"><td colspan="3">'.$langs->trans("Search").'</td></tr>';
      }
      print '<tr class="oddeven">';
      print '<td class="nowrap"><label for="'.$key.'">'.$langs->trans($value["text"]).'</label></td>';
      print '<td><input type="text" class="flat inputsearch" name="'.$key.'" id="'.$key.'" size="18"></td>';
      if ($i == 0) {
        print '<td rowspan="'.count($listofsearchfields).'"><input type="submit" value="'.$langs->trans("Search").'" class="button"></td>';
      }
      print '</tr>';
      $i++;
    }
    print '</table>';
    print '</div>';
    print '</form>';
    print '<br>';
  }
}
 
/*
 * Number of products and/or services
 */
if ((isModEnabled("product") || isModEnabled("service")) && ($user->hasRight("produit", "lire") || $user->hasRight("service", "lire"))) {
  $prodser = array();
  $prodser[0][0] = $prodser[0][1] = $prodser[0][2] = $prodser[0][3] = 0;
  $prodser[0]['sell'] = 0;
  $prodser[0]['buy'] = 0;
  $prodser[0]['none'] = 0;
  $prodser[1][0] = $prodser[1][1] = $prodser[1][2] = $prodser[1][3] = 0;
  $prodser[1]['sell'] = 0;
  $prodser[1]['buy'] = 0;
  $prodser[1]['none'] = 0;
 
  $sql = "SELECT COUNT(p.rowid) as total, p.fk_product_type, p.tosell, p.tobuy";
  $sql .= " FROM ".MAIN_DB_PREFIX."product as p";
  $sql .= ' WHERE p.entity IN ('.getEntity($product_static->element, 1).')';
  // Add where from hooks
  $parameters = array();
  $reshook = $hookmanager->executeHooks('printFieldListWhere', $parameters, $product_static); // Note that $action and $object may have been modified by hook
  $sql .= $hookmanager->resPrint;
  $sql .= " GROUP BY p.fk_product_type, p.tosell, p.tobuy";
  $result = $db->query($sql);
  while ($objp = $db->fetch_object($result)) {
    $status = 3; // On sale + On purchase
    if (!$objp->tosell && !$objp->tobuy) {
      $status = 0; // Not on sale, not on purchase
    }
    if ($objp->tosell && !$objp->tobuy) {
      $status = 1; // On sale only
    }
    if (!$objp->tosell && $objp->tobuy) {
      $status = 2; // On purchase only
    }
    $prodser[$objp->fk_product_type][$status] = $objp->total;
    if ($objp->tosell) {
      $prodser[$objp->fk_product_type]['sell'] += $objp->total;
    }
    if ($objp->tobuy) {
      $prodser[$objp->fk_product_type]['buy'] += $objp->total;
    }
    if (!$objp->tosell && !$objp->tobuy) {
      $prodser[$objp->fk_product_type]['none'] += $objp->total;
    }
  }
 
  if ($conf->use_javascript_ajax) {
    print '<div class="div-table-responsive-no-min">';
    print '<table class="noborder centpercent">';
    print '<tr class="liste_titre"><th>'.$langs->trans("Statistics").'</th></tr>';
    print '<tr><td class="center nopaddingleftimp nopaddingrightimp">';
 
    $SommeA = $prodser[0]['sell'];
    $SommeB = $prodser[0]['buy'];
    $SommeC = $prodser[0]['none'];
    $SommeD = $prodser[1]['sell'];
    $SommeE = $prodser[1]['buy'];
    $SommeF = $prodser[1]['none'];
    $total = 0;
    $dataval = array();
    $datalabels = array();
    $i = 0;
 
    $total = $SommeA + $SommeB + $SommeC + $SommeD + $SommeE + $SommeF;
    $dataseries = array();
    if (isModEnabled("product")) {
      $dataseries[] = array($langs->transnoentitiesnoconv("ProductsOnSale"), round($SommeA));
      $dataseries[] = array($langs->transnoentitiesnoconv("ProductsOnPurchase"), round($SommeB));
      $dataseries[] = array($langs->transnoentitiesnoconv("ProductsNotOnSell"), round($SommeC));
    }
    if (isModEnabled("service")) {
      $dataseries[] = array($langs->transnoentitiesnoconv("ServicesOnSale"), round($SommeD));
      $dataseries[] = array($langs->transnoentitiesnoconv("ServicesOnPurchase"), round($SommeE));
      $dataseries[] = array($langs->transnoentitiesnoconv("ServicesNotOnSell"), round($SommeF));
    }
    include_once DOL_DOCUMENT_ROOT.'/core/class/dolgraph.class.php';
    $dolgraph = new DolGraph();
    $dolgraph->SetData($dataseries);
    $dolgraph->setShowLegend(2);
    $dolgraph->setShowPercent(0);
    $dolgraph->SetType(array('pie'));
    $dolgraph->setHeight('200');
    $dolgraph->draw('idgraphstatus');
    print $dolgraph->show($total ? 0 : 1);
 
    print '</td></tr>';
    print '</table>';
    print '</div>';
  }
}
 
 
if (isModEnabled('categorie') && !empty($conf->global->CATEGORY_GRAPHSTATS_ON_PRODUCTS)) {
  require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
  print '<br>';
  print '<div class="div-table-responsive-no-min">';
  print '<table class="noborder centpercent">';
  print '<tr class="liste_titre"><th colspan="2">'.$langs->trans("Categories").'</th></tr>';
  print '<tr><td class="center" colspan="2">';
  $sql = "SELECT c.label, count(*) as nb";
  $sql .= " FROM ".MAIN_DB_PREFIX."categorie_product as cs";
  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."categorie as c ON cs.fk_categorie = c.rowid";
  $sql .= " WHERE c.type = 0";
  $sql .= " AND c.entity IN (".getEntity('category').")";
  $sql .= " GROUP BY c.label";
  $sql .= " ORDER BY nb desc";
  $total = 0;
  $result = $db->query($sql);
  if ($result) {
    $num = $db->num_rows($result);
    $i = 0;
    if (!empty($conf->use_javascript_ajax)) {
      $dataseries = array();
      $rest = 0;
      $nbmax = 10;
      while ($i < $num) {
        $obj = $db->fetch_object($result);
        if ($i < $nbmax) {
          $dataseries[] = array($obj->label, round($obj->nb));
        } else {
          $rest += $obj->nb;
        }
        $total += $obj->nb;
        $i++;
      }
      if ($i > $nbmax) {
        $dataseries[] = array($langs->trans("Other"), round($rest));
      }
 
      include_once DOL_DOCUMENT_ROOT.'/core/class/dolgraph.class.php';
      $dolgraph = new DolGraph();
      $dolgraph->SetData($dataseries);
      $dolgraph->setShowLegend(2);
      $dolgraph->setShowPercent(1);
      $dolgraph->SetType(array('pie'));
      $dolgraph->setHeight('200');
      $dolgraph->draw('idstatscategproduct');
      print $dolgraph->show($total ? 0 : 1);
    } else {
      while ($i < $num) {
        $obj = $db->fetch_object($result);
 
        print '<tr><td>'.$obj->label.'</td><td>'.$obj->nb.'</td></tr>';
        $total += $obj->nb;
        $i++;
      }
    }
  }
  print '</td></tr>';
  print '<tr class="liste_total"><td>'.$langs->trans("Total").'</td><td class="right">';
  print $total;
  print '</td></tr>';
  print '</table>';
  print '</div>';
}
print '</div><div class="fichetwothirdright">';
 
 
/*
 * Latest modified products
 */
if ((isModEnabled("product") || isModEnabled("service")) && ($user->hasRight("produit", "lire") || $user->hasRight("service", "lire"))) {
  $max = 15;
  $sql = "SELECT p.rowid, p.label, p.price, p.ref, p.fk_product_type, p.tosell, p.tobuy, p.tobatch, p.fk_price_expression,";
  $sql .= " p.entity,";
  $sql .= " p.tms as datem";
  $sql .= " FROM ".MAIN_DB_PREFIX."product as p";
  $sql .= " WHERE p.entity IN (".getEntity($product_static->element, 1).")";
  if ($type != '') {
    $sql .= " AND p.fk_product_type = ".((int) $type);
  }
  // Add where from hooks
  $parameters = array();
  $reshook = $hookmanager->executeHooks('printFieldListWhere', $parameters, $product_static); // Note that $action and $object may have been modified by hook
  $sql .= $hookmanager->resPrint;
  $sql .= $db->order("p.tms", "DESC");
  $sql .= $db->plimit($max, 0);
 
  //print $sql;
  $result = $db->query($sql);
  if ($result) {
    $num = $db->num_rows($result);
 
    $i = 0;
 
    if ($num > 0) {
      $transRecordedType = $langs->trans("LastModifiedProductsAndServices", $max);
      if (isset($_GET["type"]) && $_GET["type"] == 0) {
        $transRecordedType = $langs->trans("LastRecordedProducts", $max);
      }
      if (isset($_GET["type"]) && $_GET["type"] == 1) {
        $transRecordedType = $langs->trans("LastRecordedServices", $max);
      }
 
      print '<div class="div-table-responsive-no-min">';
      print '<table class="noborder centpercent">';
 
      $colnb = 2;
      if (empty($conf->global->PRODUIT_MULTIPRICES)) {
        $colnb++;
      }
 
      print '<tr class="liste_titre"><th colspan="'.$colnb.'">'.$transRecordedType.'</th>';
      print '<th class="right" colspan="3"><a href="'.DOL_URL_ROOT.'/product/list.php?sortfield=p.tms&sortorder=DESC">'.$langs->trans("FullList").'</td>';
      print '</tr>';
 
      while ($i < $num) {
        $objp = $db->fetch_object($result);
 
        $product_static->id = $objp->rowid;
        $product_static->ref = $objp->ref;
        $product_static->label = $objp->label;
        $product_static->type = $objp->fk_product_type;
        $product_static->entity = $objp->entity;
        $product_static->status = $objp->tosell;
        $product_static->status_buy = $objp->tobuy;
        $product_static->status_batch = $objp->tobatch;
 
        $usercancreadprice = getDolGlobalString('MAIN_USE_ADVANCED_PERMS')?$user->hasRight('product', 'product_advance', 'read_prices'):$user->hasRight('product', 'read');
        if ($product_static->isService()) {
          $usercancreadprice = getDolGlobalString('MAIN_USE_ADVANCED_PERMS')?$user->hasRight('service', 'service_advance', 'read_prices'):$user->hasRight('service', 'read');
        }
 
        // Multilangs
        if (getDolGlobalInt('MAIN_MULTILANGS')) {
          $sql = "SELECT label";
          $sql .= " FROM ".MAIN_DB_PREFIX."product_lang";
          $sql .= " WHERE fk_product = ".((int) $objp->rowid);
          $sql .= " AND lang = '".$db->escape($langs->getDefaultLang())."'";
 
          $resultd = $db->query($sql);
          if ($resultd) {
            $objtp = $db->fetch_object($resultd);
            if ($objtp && $objtp->label != '') {
              $objp->label = $objtp->label;
            }
          }
        }
 
 
        print '<tr class="oddeven">';
        print '<td class="nowraponall tdoverflowmax100">';
        print $product_static->getNomUrl(1, '', 16);
        print "</td>\n";
        print '<td class="tdoverflowmax200" title="'.dol_escape_htmltag($objp->label).'">'.dol_escape_htmltag($objp->label).'</td>';
        print '<td title="'.dol_escape_htmltag($langs->trans("DateModification").': '.dol_print_date($db->jdate($objp->datem), 'dayhour', 'tzuserrel')).'">';
        print dol_print_date($db->jdate($objp->datem), 'day', 'tzuserrel');
        print "</td>";
        // Sell price
        if (empty($conf->global->PRODUIT_MULTIPRICES)) {
          if (isModEnabled('dynamicprices') && !empty($objp->fk_price_expression)) {
            $product = new Product($db);
            $product->fetch($objp->rowid);
 
            require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_parser.class.php';
            $priceparser = new PriceParser($db);
            $price_result = $priceparser->parseProduct($product);
            if ($price_result >= 0) {
              $objp->price = $price_result;
            }
          }
          print '<td class="nowraponall amount right">';
          if ($usercancreadprice) {
            if (isset($objp->price_base_type) && $objp->price_base_type == 'TTC') {
              print price($objp->price_ttc).' '.$langs->trans("TTC");
            } else {
              print price($objp->price).' '.$langs->trans("HT");
            }
          }
          print '</td>';
        }
        print '<td class="right nowrap width25"><span class="statusrefsell">';
        print $product_static->LibStatut($objp->tosell, 3, 0);
        print "</span></td>";
        print '<td class="right nowrap width25"><span class="statusrefbuy">';
        print $product_static->LibStatut($objp->tobuy, 3, 1);
        print "</span></td>";
        print "</tr>\n";
        $i++;
      }
 
      $db->free($result);
 
      print "</table>";
      print '</div>';
      print '<br>';
    }
  } else {
    dol_print_error($db);
  }
}
 
 
// TODO Move this into a page that should be available into menu "accountancy - report - turnover - per quarter"
// Also method used for counting must provide the 2 possible methods like done by all other reports into menu "accountancy - report - turnover":
// "commitment engagment" method and "cash accounting" method
if (isModEnabled("invoice") && $user->hasRight('facture', 'lire') && getDolGlobalString('MAIN_SHOW_PRODUCT_ACTIVITY_TRIM')) {
  if (isModEnabled("product")) {
    activitytrim(0);
  }
  if (isModEnabled("service")) {
    activitytrim(1);
  }
}
 
 
print '</div></div>';
 
$parameters = array('type' => $type, 'user' => $user);
$reshook = $hookmanager->executeHooks('dashboardProductsServices', $parameters, $product_static); // Note that $action and $object may have been modified by hook
 
// End of page
llxFooter();
$db->close();
 
 
function activitytrim($product_type)
{
  global $conf, $langs, $db;
 
  // We display the last 3 years
  $yearofbegindate = date('Y', dol_time_plus_duree(time(), -3, "y"));
 
  // breakdown by quarter
  $sql = "SELECT DATE_FORMAT(p.datep,'%Y') as annee, DATE_FORMAT(p.datep,'%m') as mois, SUM(fd.total_ht) as Mnttot";
  $sql .= " FROM ".MAIN_DB_PREFIX."facture as f, ".MAIN_DB_PREFIX."facturedet as fd";
  $sql .= " , ".MAIN_DB_PREFIX."paiement as p,".MAIN_DB_PREFIX."paiement_facture as pf";
  $sql .= " WHERE f.entity IN (".getEntity('invoice').")";
  $sql .= " AND f.rowid = fd.fk_facture";
  $sql .= " AND pf.fk_facture = f.rowid";
  $sql .= " AND pf.fk_paiement = p.rowid";
  $sql .= " AND fd.product_type = ".((int) $product_type);
  $sql .= " AND p.datep >= '".$db->idate(dol_get_first_day($yearofbegindate), 1)."'";
  $sql .= " GROUP BY annee, mois ";
  $sql .= " ORDER BY annee, mois ";
 
  $result = $db->query($sql);
  if ($result) {
    $tmpyear = 0;
    $trim1 = 0;
    $trim2 = 0;
    $trim3 = 0;
    $trim4 = 0;
    $lgn = 0;
    $num = $db->num_rows($result);
 
    if ($num > 0) {
      print '<div class="div-table-responsive-no-min">';
      print '<table class="noborder" width="75%">';
 
      if ($product_type == 0) {
        print '<tr class="liste_titre"><td class=left>'.$langs->trans("ProductSellByQuarterHT").'</td>';
      } else {
        print '<tr class="liste_titre"><td class=left>'.$langs->trans("ServiceSellByQuarterHT").'</td>';
      }
      print '<td class=right>'.$langs->trans("Quarter1").'</td>';
      print '<td class=right>'.$langs->trans("Quarter2").'</td>';
      print '<td class=right>'.$langs->trans("Quarter3").'</td>';
      print '<td class=right>'.$langs->trans("Quarter4").'</td>';
      print '<td class=right>'.$langs->trans("Total").'</td>';
      print '</tr>';
    }
    $i = 0;
 
    while ($i < $num) {
      $objp = $db->fetch_object($result);
      if ($tmpyear != $objp->annee) {
        if ($trim1 + $trim2 + $trim3 + $trim4 > 0) {
          print '<tr class="oddeven"><td class=left>'.$tmpyear.'</td>';
          print '<td class="nowrap right">'.price($trim1).'</td>';
          print '<td class="nowrap right">'.price($trim2).'</td>';
          print '<td class="nowrap right">'.price($trim3).'</td>';
          print '<td class="nowrap right">'.price($trim4).'</td>';
          print '<td class="nowrap right">'.price($trim1 + $trim2 + $trim3 + $trim4).'</td>';
          print '</tr>';
          $lgn++;
        }
        // We go to the following year
        $tmpyear = $objp->annee;
        $trim1 = 0;
        $trim2 = 0;
        $trim3 = 0;
        $trim4 = 0;
      }
 
      if ($objp->mois == "01" || $objp->mois == "02" || $objp->mois == "03") {
        $trim1 += $objp->Mnttot;
      }
 
      if ($objp->mois == "04" || $objp->mois == "05" || $objp->mois == "06") {
        $trim2 += $objp->Mnttot;
      }
 
      if ($objp->mois == "07" || $objp->mois == "08" || $objp->mois == "09") {
        $trim3 += $objp->Mnttot;
      }
 
      if ($objp->mois == "10" || $objp->mois == "11" || $objp->mois == "12") {
        $trim4 += $objp->Mnttot;
      }
 
      $i++;
    }
    if ($trim1 + $trim2 + $trim3 + $trim4 > 0) {
      print '<tr class="oddeven"><td class=left>'.$tmpyear.'</td>';
      print '<td class="nowrap right">'.price($trim1).'</td>';
      print '<td class="nowrap right">'.price($trim2).'</td>';
      print '<td class="nowrap right">'.price($trim3).'</td>';
      print '<td class="nowrap right">'.price($trim4).'</td>';
      print '<td class="nowrap right">'.price($trim1 + $trim2 + $trim3 + $trim4).'</td>';
      print '</tr>';
    }
    if ($num > 0) {
      print '</table></div>';
    }
  }
}