* 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 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/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"); $langs->load("productbatch"); // Security check $result=restrictedArea($user,'stock'); /* * 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 '
'; 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 IN (".getEntity('stock', 1).")"; $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 '
'; 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 as qty, m.datem, m.batch, m.eatby, m.sellby"; $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 IN (".getEntity('stock', 1).")"; 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", LOG_DEBUG); $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); print ''; print ""; print ''; print ''; if (! empty($conf->productbatch->enabled)) { 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"; if (! empty($conf->productbatch->enabled)) { print ''; print ''; print ''; } print '\n"; print ''; print "\n"; $i++; } $db->free($resql); print "
'.$langs->trans("LastMovements",min($num,$max)).''.$langs->trans("Product").''.$langs->trans("Batch").''.$langs->trans("l_eatby").''.$langs->trans("l_sellby").''.$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 "'.$objp->batch.''.dol_print_date($db->jdate($objp->eatby),'day').''.dol_print_date($db->jdate($objp->sellby),'day').''; print img_object($langs->trans("ShowWarehouse"),"stock").' '.$objp->stock; print "'; if ($objp->qty > 0) print '+'; print $objp->qty.'
"; } //print '
'; print ''; llxFooter(); $db->close();