* Copyright (C) 2003 Jean-Louis Bergamo * Copyright (C) 2004-2019 Laurent Destailleur * Copyright (C) 2005-2012 Regis Houssin * Copyright (C) 2019 Nicolas ZABOURI * Copyright (C) 2019 Frédéric France * * 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 . */ /** * \file htdocs/mrp/index.php * \ingroup bom, mrp * \brief Home page for BOM and MRP modules */ // Load Dolibarr environment require '../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/bom/class/bom.class.php'; require_once DOL_DOCUMENT_ROOT.'/mrp/class/mo.class.php'; $hookmanager = new HookManager($db); // Initialize technical object to manage hooks. Note that conf->hooks_modules contains array $hookmanager->initHooks(array('mrpindex')); // Load translation files required by the page $langs->loadLangs(array("companies", "mrp")); // Security check $result = restrictedArea($user, 'bom|mrp'); /* * View */ $staticbom = new BOM($db); $staticmo = new Mo($db); llxHeader('', $langs->trans("MRP"), ''); print load_fiche_titre($langs->trans("MRPArea"), '', 'mrp'); print '
'; /* * Statistics */ if ($conf->use_javascript_ajax) { $sql = "SELECT COUNT(t.rowid) as nb, status"; $sql .= " FROM ".MAIN_DB_PREFIX."mrp_mo as t"; $sql .= " GROUP BY t.status"; $sql .= " ORDER BY t.status ASC"; $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; $totalnb = 0; $dataseries = array(); $colorseries = array(); $vals = array(); include DOL_DOCUMENT_ROOT.'/theme/'.$conf->theme.'/theme_vars.inc.php'; while ($i < $num) { $obj = $db->fetch_object($resql); if ($obj) { $vals[$obj->status] = $obj->nb; $totalnb += $obj->nb; } $i++; } $db->free($resql); print '
'; print ''; print ''."\n"; $listofstatus = array(0, 1, 2, 3, 9); foreach ($listofstatus as $status) { $dataseries[] = array($staticmo->LibStatut($status, 1), (isset($vals[$status]) ? (int) $vals[$status] : 0)); if ($status == Mo::STATUS_DRAFT) { $colorseries[$status] = '-'.$badgeStatus0; } if ($status == Mo::STATUS_VALIDATED) { $colorseries[$status] = $badgeStatus1; } if ($status == Mo::STATUS_INPROGRESS) { $colorseries[$status] = $badgeStatus4; } if ($status == Mo::STATUS_PRODUCED) { $colorseries[$status] = $badgeStatus6; } if ($status == Mo::STATUS_CANCELED) { $colorseries[$status] = $badgeStatus9; } if (empty($conf->use_javascript_ajax)) { print ''; print ''; print ''; print "\n"; } } if ($conf->use_javascript_ajax) { print ''; } print "
'.$langs->trans("Statistics").' - '.$langs->trans("ManufacturingOrder").'
'.$staticmo->LibStatut($status, 0).''.(isset($vals[$status]) ? $vals[$status] : 0).'
'; include_once DOL_DOCUMENT_ROOT.'/core/class/dolgraph.class.php'; $dolgraph = new DolGraph(); $dolgraph->SetData($dataseries); $dolgraph->SetDataColor(array_values($colorseries)); $dolgraph->setShowLegend(2); $dolgraph->setShowPercent(1); $dolgraph->SetType(array('pie')); $dolgraph->SetHeight('200'); $dolgraph->draw('idgraphstatus'); print $dolgraph->show($totalnb ? 0 : 1); print '
"; print "
"; print "
"; } else { dol_print_error($db); } } print '
'; print '
'; /* * Last modified BOM */ $max = 5; $sql = "SELECT a.rowid, a.status, a.ref, a.tms as datem, a.status, a.fk_product"; $sql .= " FROM ".MAIN_DB_PREFIX."bom_bom as a"; $sql .= " WHERE a.entity IN (".getEntity('bom').")"; $sql .= $db->order("a.tms", "DESC"); $sql .= $db->plimit($max, 0); $resql = $db->query($sql); if ($resql) { print '
'; print ''; print ''; print ''; $num = $db->num_rows($resql); if ($num) { $i = 0; while ($i < $num) { $obj = $db->fetch_object($resql); $staticbom->id = $obj->rowid; $staticbom->ref = $obj->ref; $staticbom->fk_product = $obj->fk_product; $staticbom->date_modification = $obj->datem; $staticbom->status = $obj->status; print ''; print ''; print ''; print ''; print ''; $i++; } } else { print ''; print ''; print ''; } print "
'.$langs->trans("LatestBOMModified", $max).'
'.$staticbom->getNomUrl(1, 32).''.dol_print_date($db->jdate($obj->datem), 'dayhour').''.$staticbom->getLibStatut(3).'
'.$langs->trans("None").'
"; print "
"; } else { dol_print_error($db); } /* * Last modified MOs */ $max = 5; $sql = "SELECT a.rowid, a.status, a.ref, a.tms as datem, a.status"; $sql .= " FROM ".MAIN_DB_PREFIX."mrp_mo as a"; $sql .= " WHERE a.entity IN (".getEntity('mo').")"; $sql .= $db->order("a.tms", "DESC"); $sql .= $db->plimit($max, 0); $resql = $db->query($sql); if ($resql) { print '
'; print ''; print ''; print ''; $num = $db->num_rows($resql); if ($num) { $i = 0; while ($i < $num) { $obj = $db->fetch_object($resql); $staticmo->id = $obj->rowid; $staticmo->ref = $obj->ref; $staticmo->date_modification = $obj->datem; $staticmo->status = $obj->status; print ''; print ''; print ''; print ''; print ''; $i++; } } else { print ''; print ''; print ''; } print "
'.$langs->trans("LatestMOModified", $max).'
'.$staticmo->getNomUrl(1, 32).''.dol_print_date($db->jdate($obj->datem), 'dayhour').''.$staticmo->getLibStatut(3).'
'.$langs->trans("None").'
"; print "
"; } else { dol_print_error($db); } print '
'; $object = new stdClass(); $parameters = array( //'type' => $type, 'user' => $user, ); $reshook = $hookmanager->executeHooks('dashboardMRP', $parameters, $object); // End of page llxFooter(); $db->close();