* Copyright (C) 2004-2011 Laurent Destailleur * Copyright (C) 2005 Eric Seigne * Copyright (C) 2005-2009 Regis Houssin * Copyright (C) 2010 Juanjo Menent * * 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 . * or see http://www.gnu.org/ */ /** * \file htdocs/fourn/commande/dispatch.php * \ingroup commande * \brief Fiche de ventilation des commandes fournisseurs */ require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/modules/supplier_order/modules_commandefournisseur.php'; require_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/fourn.lib.php'; require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php'; if (! empty($conf->projet->enabled)) require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php'; $langs->load('orders'); $langs->load('sendings'); $langs->load('companies'); $langs->load('bills'); $langs->load('deliveries'); $langs->load('products'); $langs->load('stocks'); // Security check $id = isset($_GET["id"])?$_GET["id"]:''; if ($user->societe_id) $socid=$user->societe_id; $result = restrictedArea($user, 'fournisseur', $id, '', 'commande'); if (empty($conf->stock->enabled)) { accessforbidden(); } // Recuperation de l'id de projet $projectid = 0; if ($_GET["projectid"]) $projectid = $_GET["projectid"]; $mesg=''; /* * Actions */ if ($_POST["action"] == 'dispatch' && $user->rights->fournisseur->commande->receptionner) { $commande = new CommandeFournisseur($db); $commande->fetch($_GET["id"]); foreach($_POST as $key => $value) { if ( preg_match('/^product_([0-9]+)$/i', $key, $reg) ) { $prod = "product_".$reg[1]; $qty = "qty_".$reg[1]; $ent = "entrepot_".$reg[1]; $pu = "pu_".$reg[1]; if ($_POST[$ent] > 0) { $result = $commande->DispatchProduct($user, $_POST[$prod], $_POST[$qty], $_POST[$ent], $_POST[$pu], $_POST["comment"]); } else { dol_syslog('No dispatch for line '.$key.' as no warehouse choosed'); } } } if (! $notrigger) { global $conf, $langs, $user; // Appel des triggers include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php'; $interface=new Interfaces($db); $result_trigger=$interface->run_triggers('ORDER_SUPPLIER_DISPATCH',$commande,$user,$langs,$conf); if ($result_trigger < 0) { $error++; $commande->errors=$interface->errors; } // Fin appel triggers $db->commit(); } if ($result > 0) { header("Location: dispatch.php?id=".$_GET["id"]); exit; } else { $mesg='

'.$langs->trans($commande->error).'

'; } } /* * View */ llxHeader('',$langs->trans("OrderCard"),"CommandeFournisseur"); $form = new Form($db); $warehouse_static = new Entrepot($db); $now=dol_now(); $id = $_GET['id']; $ref= $_GET['ref']; if ($id > 0 || ! empty($ref)) { //if ($mesg) print $mesg.'
'; $commande = new CommandeFournisseur($db); $result=$commande->fetch($_GET['id'],$_GET['ref']); if ($result >= 0) { $soc = new Societe($db); $soc->fetch($commande->socid); $author = new User($db); $author->fetch($commande->user_author_id); $head = ordersupplier_prepare_head($commande); $title=$langs->trans("SupplierOrder"); dol_fiche_head($head, 'dispatch', $title, 0, 'order'); /* * Commande */ print ''; // Ref print ''; print ''; print ''; // Fournisseur print '"; print ''; print ''; // Statut print ''; print ''; print '"; // Date if ($commande->methode_commande_id > 0) { print '"; if ($commande->methode_commande) { print ''; } } // Auteur print ''; print ''; print ''; print "

'.$langs->trans("Ref").'	'; print $form->showrefnav($commande,'ref','',1,'ref','ref'); print '
'.$langs->trans("Supplier")."	'.$soc->getNomUrl(1,'supplier').'
'.$langs->trans("Status").'	'; print $commande->getLibStatut(4); print "
'.$langs->trans("Date").'	'; if ($commande->date_commande) { print dol_print_date($commande->date_commande,"dayhourtext")."\n"; } print "
'.$langs->trans("Method").'	'.$commande->methode_commande.'
'.$langs->trans("AuthorRequest").'	'.$author->getNomUrl(1).'

"; if ($mesg) print $mesg; else print '
'; $disabled=1; if (! empty($conf->global->STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER)) $disabled=0; /* * Lignes de commandes */ if ($commande->statut <= 2 || $commande->statut >= 6) { print $langs->trans("OrderStatusNotReadyToDispatch"); } if ($commande->statut == 3 || $commande->statut == 4 || $commande->statut == 5) { $entrepot = new Entrepot($db); $listwarehouses=$entrepot->list_array(1); print '

'; print ''; print ''; print ''; $sql = "SELECT cfd.fk_product, sum(cfd.qty) as qty"; $sql.= " FROM ".MAIN_DB_PREFIX."commande_fournisseur_dispatch as cfd"; $sql.= " WHERE cfd.fk_commande = ".$commande->id; $sql.= " GROUP BY cfd.fk_product"; $resql = $db->query($sql); if ($resql) { while ( $row = $db->fetch_row($resql) ) { $products_dispatched[$row[0]] = $row[1]; } $db->free($resql); } $sql = "SELECT l.fk_product, l.subprice, SUM(l.qty) as qty,"; $sql.= " p.ref, p.label"; $sql.= " FROM ".MAIN_DB_PREFIX."commande_fournisseurdet as l"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product as p ON l.fk_product=p.rowid"; $sql.= " WHERE l.fk_commande = ".$commande->id; $sql.= " GROUP BY p.ref, p.label, l.fk_product, l.subprice"; // Calculation of amount dispatched is done per fk_product so we must group by fk_product $sql.= " ORDER BY p.ref, p.label"; $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; if ($num) { print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; } $nbfreeproduct=0; $nbproduct=0; $var=true; while ($i < $num) { $objp = $db->fetch_object($resql); // On n'affiche pas les produits personnalises if (! $objp->fk_product > 0) { $nbfreeproduct++; } else { $nbproduct++; $remaintodispatch=($objp->qty - $products_dispatched[$objp->fk_product]); // Calculation of dispatched if ($remaintodispatch < 0) $remaintodispatch=0; $var=!$var; print ""; print '\n"; print ''; print ''; // Dispatch print ''; // Warehouse print '\n"; print "\n"; } $i++; } $db->free($resql); } else { dol_print_error($db); } print "

'.$langs->trans("Description").'	'.$langs->trans("QtyOrdered").'	'.$langs->trans("QtyDispatched").'	'.$langs->trans("QtyDelivered").'	'.$langs->trans("Warehouse").'
'; print ''.img_object($langs->trans("ShowProduct"),'product').' '.$objp->ref.''; print ' - '.$objp->label; // To show detail cref and description value, we must make calculation by cref //print ($objp->cref?' ('.$objp->cref.')':''); //if ($objp->description) print ' '.nl2br($objp->description); print ''; print ''; print "	'.$objp->qty.'	'.$products_dispatched[$objp->fk_product].'		'; if (count($listwarehouses)) { print $form->selectarray("entrepot_".$i, $listwarehouses, '', $disabled, 0, 0, '', 0, 0, $disabled); } else { print $langs->trans("NoWarehouseDefined"); } print "

\n"; print "
\n"; if ($nbproduct) { print $langs->trans("Comment").' : '; print 'trans("DispatchSupplierOrder",$commande->ref); // print ' / '.$commande->ref_supplier; // Not yet available print '" class="flat">

'; print ''; } if (! $nbproduct && $nbfreeproduct) { print $langs->trans("NoPredefinedProductToDispatch"); } print '

'; } // List of already dispatching $sql = "SELECT p.ref, p.label,"; $sql.= " e.rowid as warehouse_id, e.label as entrepot,"; $sql.= " cfd.fk_product, cfd.qty, cfd.rowid"; $sql.= " FROM ".MAIN_DB_PREFIX."product as p,"; $sql.= " ".MAIN_DB_PREFIX."commande_fournisseur_dispatch as cfd"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."entrepot as e ON cfd.fk_entrepot = e.rowid"; $sql.= " WHERE cfd.fk_commande = ".$commande->id; $sql.= " AND cfd.fk_product = p.rowid"; $sql.= " ORDER BY cfd.rowid ASC"; $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; if ($num > 0) { print "
\n"; print ''; print ''; print ''; print ''; print ''; print "\n"; $var=false; while ($i < $num) { $objp = $db->fetch_object($resql); print ""; print '\n"; print ''; print ''; print "\n"; $i++; $var=!$var; } $db->free($resql); print "

'.$langs->trans("Description").'	'.$langs->trans("QtyDispatched").'	'.$langs->trans("Warehouse").'
'; print ''.img_object($langs->trans("ShowProduct"),'product').' '.$objp->ref.''; print ' - '.$objp->label; print "	'.$objp->qty.'	'; $warehouse_static->id=$objp->warehouse_id; $warehouse_static->libelle=$objp->entrepot; print $warehouse_static->getNomUrl(1); print '

\n"; } } else { dol_print_error($db); } dol_fiche_end(); /** * Boutons actions */ if ($user->societe_id == 0 && $commande->statut < 3 && ($_GET["action"] <> 'valid' || $_GET['action'] == 'builddoc')) { //print '

'; //print "

"; } } else { // Commande non trouvee dol_print_error($db); } } $db->close(); llxFooter(); ?>