* Copyright (C) 2004-2011 Laurent Destailleur * Copyright (C) 2005-2009 Regis Houssin * * 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 2 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/product/stock/index.php * \ingroup stock * \brief Home page of stock area */ require("../../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/product/stock/class/entrepot.class.php"); $langs->load("stocks"); if (!$user->rights->stock->lire) accessforbidden(); /* * View */ $help_url='EN:Module_Stocks_En|FR:Module_Stock|ES:Módulo_Stocks'; llxHeader("",$langs->trans("Stocks"),$help_url); print_fiche_titre($langs->trans("StocksArea")); print ''; print '

'; /* * Zone recherche entrepot */ print ' '; print ''; print ''; print ""; print ''; print "'; print "'; print " '.$langs->trans("Search").' "; print $langs->trans("Ref").': ".$langs->trans("Other").': "; $sql = "SELECT e.label, e.rowid, e.statut"; $sql.= " FROM ".MAIN_DB_PREFIX."entrepot as e"; $sql.= " WHERE e.statut in (0,1)"; $sql.= " AND e.entity = ".$conf->entity; $sql.= $db->order('e.statut','DESC'); $sql.= $db->plimit(15, 0); $result = $db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; print ''; print ''; if ($num) { $entrepot=new Entrepot($db); $var=True; while ($i < $num) { $objp = $db->fetch_object($result); $var=!$var; print ""; print "\n"; print ''; print "\n"; $i++; } $db->free($result); } print " '.$langs->trans("Warehouses").' rowid\">".img_object($langs->trans("ShowStock"),"stock")." ".$objp->label." '.$entrepot->LibStatut($objp->statut,5).' "; } else { dol_print_error($db); } print '

'; // Last movements $max=10; $sql = "SELECT p.rowid, p.label as produit,"; $sql.= " e.label as stock, e.rowid as entrepot_id,"; $sql.= " m.value, m.datem"; $sql.= " FROM ".MAIN_DB_PREFIX."entrepot as e"; $sql.= ", ".MAIN_DB_PREFIX."stock_mouvement as m"; $sql.= ", ".MAIN_DB_PREFIX."product as p"; $sql.= " WHERE m.fk_product = p.rowid"; $sql.= " AND m.fk_entrepot = e.rowid"; $sql.= " AND e.entity = ".$conf->entity; if (empty($conf->global->STOCK_SUPPORTS_SERVICES)) $sql.= " AND p.fk_product_type = 0"; $sql.= $db->order("datem","DESC"); $sql.= $db->plimit($max,0); dol_syslog("Index:list stock movements sql=".$sql, LOG_DEBUG); $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); print ''; print ""; print ''; print ''; print ''; print ''; print "\n"; $var=True; $i=0; while ($i < min($num,$max)) { $objp = $db->fetch_object($resql); $var=!$var; print ""; print ''; print "\n"; print '\n"; print ''; print "\n"; $i++; } $db->free($resql); print " '.$langs->trans("LastMovements",min($num,$max)).' '.$langs->trans("Product").' '.$langs->trans("Warehouse").' '.$langs->trans("FullList").' '.dol_print_date($db->jdate($objp->datem),'dayhour').' rowid\">"; print img_object($langs->trans("ShowProduct"),"product").' '.$objp->produit; print " '; print img_object($langs->trans("ShowWarehouse"),"stock").' '.$objp->stock; print " '; if ($objp->value > 0) print '+'; print $objp->value.' "; } print '

'; llxFooter(); $db->close(); ?>