/htdocs/fourn/commande/dispatch.php
PHP | 1090 lines | 824 code | 164 blank | 102 comment | 194 complexity | 285e0dce5f0b89ebc66b4101325df3ea MD5 | raw file
Possible License(s): GPL-2.0, GPL-3.0, CC-BY-SA-4.0, BSD-3-Clause, LGPL-2.1, MPL-2.0-no-copyleft-exception, LGPL-3.0, LGPL-2.0, MIT
- <?php
- /* Copyright (C) 2004-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2004-2016 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2005 Eric Seigne <eric.seigne@ryxeo.com>
- * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.com>
- * Copyright (C) 2010-2019 Juanjo Menent <jmenent@2byte.es>
- * Copyright (C) 2014 Cedric Gross <c.gross@kreiz-it.fr>
- * Copyright (C) 2016 Florian Henry <florian.henry@atm-consulting.fr>
- * Copyright (C) 2017 Ferran Marcet <fmarcet@2byte.es>
- * Copyright (C) 2018 Frédéric France <frederic.france@netlogic.fr>
- * Copyright (C) 2019 Christophe Battarel <christophe@altairis.fr>
- *
- * 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 <https://www.gnu.org/licenses/>.
- * or see https://www.gnu.org/
- */
- /**
- * \file htdocs/fourn/commande/dispatch.php
- * \ingroup commande
- * \brief Page to dispatch receiving
- */
- 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';
- require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.dispatch.class.php';
- require_once DOL_DOCUMENT_ROOT.'/product/class/html.formproduct.class.php';
- if (!empty($conf->projet->enabled))
- require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
- // Load translation files required by the page
- $langs->loadLangs(array("bills", "orders", "sendings", "companies", "deliveries", "products", "stocks", "receptions"));
- if (!empty($conf->productbatch->enabled))
- $langs->load('productbatch');
- // Security check
- $id = GETPOST("id", 'int');
- $ref = GETPOST('ref');
- $lineid = GETPOST('lineid', 'int');
- $action = GETPOST('action', 'aZ09');
- $fk_default_warehouse = GETPOST('fk_default_warehouse', 'int');
- if ($user->socid)
- $socid = $user->socid;
- $result = restrictedArea($user, 'fournisseur', $id, 'commande_fournisseur', 'commande');
- if (empty($conf->stock->enabled)) {
- accessforbidden();
- }
- $hookmanager->initHooks(array('ordersupplierdispatch'));
- // Recuperation de l'id de projet
- $projectid = 0;
- if ($_GET["projectid"])
- $projectid = GETPOST("projectid", 'int');
- $object = new CommandeFournisseur($db);
- if ($id > 0 || !empty($ref)) {
- $result = $object->fetch($id, $ref);
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- }
- $result = $object->fetch_thirdparty();
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- }
- }
- /*
- * Actions
- */
- $parameters = array();
- $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
- if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- if ($action == 'checkdispatchline' && !((empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande->receptionner)) || (!empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande_advance->check))))
- {
- $error = 0;
- $supplierorderdispatch = new CommandeFournisseurDispatch($db);
- $db->begin();
- $result = $supplierorderdispatch->fetch($lineid);
- if (!$result)
- {
- $error++;
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $action = '';
- }
- if (!$error)
- {
- $result = $supplierorderdispatch->setStatut(1);
- if ($result < 0) {
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $error++;
- $action = '';
- }
- }
- if (!$error)
- {
- $result = $object->calcAndSetStatusDispatch($user);
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- $error++;
- $action = '';
- }
- }
- if (!$error)
- {
- $db->commit();
- }
- else
- {
- $db->rollback();
- }
- }
- if ($action == 'uncheckdispatchline' && !((empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande->receptionner)) || (!empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande_advance->check))))
- {
- $error = 0;
- $supplierorderdispatch = new CommandeFournisseurDispatch($db);
- $db->begin();
- $result = $supplierorderdispatch->fetch($lineid);
- if (!$result)
- {
- $error++;
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $action = '';
- }
- if (!$error)
- {
- $result = $supplierorderdispatch->setStatut(0);
- if ($result < 0) {
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $error++;
- $action = '';
- }
- }
- if (!$error)
- {
- $result = $object->calcAndSetStatusDispatch($user);
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- $error++;
- $action = '';
- }
- }
- if (!$error)
- {
- $db->commit();
- }
- else
- {
- $db->rollback();
- }
- }
- if ($action == 'denydispatchline' && !((empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande->receptionner)) || (!empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande_advance->check))))
- {
- $error = 0;
- $supplierorderdispatch = new CommandeFournisseurDispatch($db);
- $db->begin();
- $result = $supplierorderdispatch->fetch($lineid);
- if (!$result)
- {
- $error++;
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $action = '';
- }
- if (!$error)
- {
- $result = $supplierorderdispatch->setStatut(2);
- if ($result < 0) {
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $error++;
- $action = '';
- }
- }
- if (!$error)
- {
- $result = $object->calcAndSetStatusDispatch($user);
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- $error++;
- $action = '';
- }
- }
- if (!$error)
- {
- $db->commit();
- }
- else
- {
- $db->rollback();
- }
- }
- if ($action == 'dispatch' && $user->rights->fournisseur->commande->receptionner) {
- $error = 0;
- $db->begin();
- $pos = 0;
- foreach ($_POST as $key => $value)
- {
- // without batch module enabled
- if (preg_match('/^product_([0-9]+)_([0-9]+)$/i', $key, $reg))
- {
- $pos++;
- // $numline=$reg[2] + 1; // line of product
- $numline = $pos;
- $prod = "product_".$reg[1].'_'.$reg[2];
- $qty = "qty_".$reg[1].'_'.$reg[2];
- $ent = "entrepot_".$reg[1].'_'.$reg[2];
- if (empty(GETPOST($ent))) $ent = $fk_default_warehouse;
- $pu = "pu_".$reg[1].'_'.$reg[2]; // This is unit price including discount
- $fk_commandefourndet = "fk_commandefourndet_".$reg[1].'_'.$reg[2];
- if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
- $dto = GETPOST("dto_".$reg[1].'_'.$reg[2]);
- if (!empty($dto)) {
- $unit_price = price2num(GETPOST("pu_".$reg[1]) * (100 - $dto) / 100, 'MU');
- }
- $saveprice = "saveprice_".$reg[1].'_'.$reg[2];
- }
- }
- // We ask to move a qty
- if (GETPOST($qty) != 0) {
- if (!(GETPOST($ent, 'int') > 0)) {
- dol_syslog('No dispatch for line '.$key.' as no warehouse was chosen.');
- $text = $langs->transnoentities('Warehouse').', '.$langs->transnoentities('Line').' '.($numline);
- setEventMessages($langs->trans('ErrorFieldRequired', $text), null, 'errors');
- $error++;
- }
- if (!$error) {
- $result = $object->dispatchProduct($user, GETPOST($prod, 'int'), GETPOST($qty), GETPOST($ent, 'int'), GETPOST($pu), GETPOST('comment'), '', '', '', GETPOST($fk_commandefourndet, 'int'), $notrigger);
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- $error++;
- }
- if (!$error && !empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
- $dto = GETPOST("dto_".$reg[1].'_'.$reg[2]);
- //update supplier price
- if (GETPOSTISSET($saveprice)) {
- // TODO Use class
- $sql = "UPDATE ".MAIN_DB_PREFIX."product_fournisseur_price";
- $sql .= " SET unitprice='".GETPOST($pu)."'";
- $sql .= ", price=".GETPOST($pu)."*quantity";
- $sql .= ", remise_percent='".$dto."'";
- $sql .= " WHERE fk_soc=".$object->socid;
- $sql .= " AND fk_product=".GETPOST($prod, 'int');
- $resql = $db->query($sql);
- }
- }
- }
- }
- }
- }
- // with batch module enabled
- if (preg_match('/^product_batch_([0-9]+)_([0-9]+)$/i', $key, $reg))
- {
- $pos++;
- // eat-by date dispatch
- // $numline=$reg[2] + 1; // line of product
- $numline = $pos;
- $prod = 'product_batch_'.$reg[1].'_'.$reg[2];
- $qty = 'qty_'.$reg[1].'_'.$reg[2];
- $ent = 'entrepot_'.$reg[1].'_'.$reg[2];
- $pu = 'pu_'.$reg[1].'_'.$reg[2];
- $fk_commandefourndet = 'fk_commandefourndet_'.$reg[1].'_'.$reg[2];
- $lot = 'lot_number_'.$reg[1].'_'.$reg[2];
- $dDLUO = dol_mktime(12, 0, 0, $_POST['dluo_'.$reg[1].'_'.$reg[2].'month'], $_POST['dluo_'.$reg[1].'_'.$reg[2].'day'], $_POST['dluo_'.$reg[1].'_'.$reg[2].'year']);
- $dDLC = dol_mktime(12, 0, 0, $_POST['dlc_'.$reg[1].'_'.$reg[2].'month'], $_POST['dlc_'.$reg[1].'_'.$reg[2].'day'], $_POST['dlc_'.$reg[1].'_'.$reg[2].'year']);
- $fk_commandefourndet = 'fk_commandefourndet_'.$reg[1].'_'.$reg[2];
- // We ask to move a qty
- if (GETPOST($qty) > 0) {
- if (!(GETPOST($ent, 'int') > 0)) {
- dol_syslog('No dispatch for line '.$key.' as no warehouse was chosen.');
- $text = $langs->transnoentities('Warehouse').', '.$langs->transnoentities('Line').' '.($numline).'-'.($reg[1] + 1);
- setEventMessages($langs->trans('ErrorFieldRequired', $text), null, 'errors');
- $error++;
- }
- if (!(GETPOST($lot, 'alpha') || $dDLUO || $dDLC)) {
- dol_syslog('No dispatch for line '.$key.' as serial/eat-by/sellby date are not set');
- $text = $langs->transnoentities('atleast1batchfield').', '.$langs->transnoentities('Line').' '.($numline).'-'.($reg[1] + 1);
- setEventMessages($langs->trans('ErrorFieldRequired', $text), null, 'errors');
- $error++;
- }
- if (!$error) {
- $result = $object->dispatchProduct($user, GETPOST($prod, 'int'), GETPOST($qty), GETPOST($ent, 'int'), GETPOST($pu), GETPOST('comment'), $dDLC, $dDLUO, GETPOST($lot, 'alpha'), GETPOST($fk_commandefourndet, 'int'), $notrigger);
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- $error++;
- }
- }
- }
- }
- }
- if (!$error) {
- $result = $object->calcAndSetStatusDispatch($user, GETPOST('closeopenorder') ? 1 : 0, GETPOST('comment'));
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- $error++;
- }
- }
- if (!$notrigger && !$error) {
- global $conf, $langs, $user;
- // Call trigger
- $result = $object->call_trigger('ORDER_SUPPLIER_DISPATCH', $user);
- // End call triggers
- if ($result < 0) {
- setEventMessages($object->error, $object->errors, 'errors');
- $error++;
- }
- }
- if ($result >= 0 && !$error) {
- $db->commit();
- header("Location: dispatch.php?id=".$id);
- exit();
- } else {
- $db->rollback();
- }
- }
- /*
- * View
- */
- $now = dol_now();
- $form = new Form($db);
- $formproduct = new FormProduct($db);
- $warehouse_static = new Entrepot($db);
- $supplierorderdispatch = new CommandeFournisseurDispatch($db);
- $help_url = 'EN:Module_Suppliers_Orders|FR:CommandeFournisseur|ES:Módulo_Pedidos_a_proveedores';
- llxHeader('', $langs->trans("Order"), $help_url, '', 0, 0, array('/fourn/js/lib_dispatch.js.php'));
- if ($id > 0 || !empty($ref)) {
- $soc = new Societe($db);
- $soc->fetch($object->socid);
- $author = new User($db);
- $author->fetch($object->user_author_id);
- $head = ordersupplier_prepare_head($object);
- $title = $langs->trans("SupplierOrder");
- dol_fiche_head($head, 'dispatch', $title, -1, 'order');
- // Supplier order card
- $linkback = '<a href="'.DOL_URL_ROOT.'/fourn/commande/list.php'.(!empty($socid) ? '?socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
- $morehtmlref = '<div class="refidno">';
- // Ref supplier
- $morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
- $morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1);
- // Thirdparty
- $morehtmlref .= '<br>'.$langs->trans('ThirdParty').' : '.$object->thirdparty->getNomUrl(1);
- // Project
- if (!empty($conf->projet->enabled))
- {
- $langs->load("projects");
- $morehtmlref .= '<br>'.$langs->trans('Project').' ';
- if ($user->rights->fournisseur->commande->creer)
- {
- if ($action != 'classify') {
- //$morehtmlref.='<a class="editfielda" href="' . $_SERVER['PHP_SELF'] . '?action=classify&id=' . $object->id . '">' . img_edit($langs->transnoentitiesnoconv('SetProject')) . '</a> : ';
- $morehtmlref .= ' : ';
- }
- if ($action == 'classify') {
- //$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
- $morehtmlref .= '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
- $morehtmlref .= '<input type="hidden" name="action" value="classin">';
- $morehtmlref .= '<input type="hidden" name="token" value="'.newToken().'">';
- $morehtmlref .= $formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
- $morehtmlref .= '<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
- $morehtmlref .= '</form>';
- } else {
- $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
- }
- } else {
- if (!empty($object->fk_project)) {
- $proj = new Project($db);
- $proj->fetch($object->fk_project);
- $morehtmlref .= '<a href="'.DOL_URL_ROOT.'/projet/card.php?id='.$object->fk_project.'" title="'.$langs->trans('ShowProject').'">';
- $morehtmlref .= $proj->ref;
- $morehtmlref .= '</a>';
- } else {
- $morehtmlref .= '';
- }
- }
- }
- $morehtmlref .= '</div>';
- dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);
- print '<div class="fichecenter">';
- print '<div class="underbanner clearboth"></div>';
- print '<table class="border tableforfield" width="100%">';
- // Date
- if ($object->methode_commande_id > 0) {
- print '<tr><td class="titlefield">'.$langs->trans("Date").'</td><td>';
- if ($object->date_commande) {
- print dol_print_date($object->date_commande, "dayhour")."\n";
- }
- print "</td></tr>";
- if ($object->methode_commande) {
- print '<tr><td>'.$langs->trans("Method").'</td><td>'.$object->getInputMethod().'</td></tr>';
- }
- }
- // Author
- print '<tr><td class="titlefield">'.$langs->trans("AuthorRequest").'</td>';
- print '<td>'.$author->getNomUrl(1, '', 0, 0, 0).'</td>';
- print '</tr>';
- $parameters = array();
- $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
- print "</table>";
- print '</div>';
- // if ($mesg) print $mesg;
- print '<br>';
- $disabled = 1;
- if (!empty($conf->global->STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER))
- $disabled = 0;
- // Line of orders
- if ($object->statut <= CommandeFournisseur::STATUS_ACCEPTED || $object->statut >= CommandeFournisseur::STATUS_CANCELED) {
- print '<br><span class="opacitymedium">'.$langs->trans("OrderStatusNotReadyToDispatch").'</span>';
- }
- if ($object->statut == CommandeFournisseur::STATUS_ORDERSENT
- || $object->statut == CommandeFournisseur::STATUS_RECEIVED_PARTIALLY
- || $object->statut == CommandeFournisseur::STATUS_RECEIVED_COMPLETELY)
- {
- require_once DOL_DOCUMENT_ROOT.'/product/class/html.formproduct.class.php';
- $formproduct = new FormProduct($db);
- $formproduct->loadWarehouses();
- if (empty($conf->reception->enabled))print '<form method="POST" action="dispatch.php?id='.$object->id.'">';
- else print '<form method="post" action="'.dol_buildpath('/reception/card.php', 1).'?originid='.$object->id.'&origin=supplierorder">';
- print '<input type="hidden" name="token" value="'.newToken().'">';
- if (empty($conf->reception->enabled))print '<input type="hidden" name="action" value="dispatch">';
- else print '<input type="hidden" name="action" value="create">';
- print '<div class="div-table-responsive-no-min">';
- print '<table class="noborder centpercent">';
- // Set $products_dispatched with qty dispatched for each product id
- $products_dispatched = array();
- $sql = "SELECT l.rowid, cfd.fk_product, sum(cfd.qty) as qty";
- $sql .= " FROM ".MAIN_DB_PREFIX."commande_fournisseur_dispatch as cfd";
- $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."commande_fournisseurdet as l on l.rowid = cfd.fk_commandefourndet";
- $sql .= " WHERE cfd.fk_commande = ".$object->id;
- $sql .= " GROUP BY l.rowid, cfd.fk_product";
- $resql = $db->query($sql);
- if ($resql) {
- $num = $db->num_rows($resql);
- $i = 0;
- if ($num) {
- while ($i < $num) {
- $objd = $db->fetch_object($resql);
- $products_dispatched[$objd->rowid] = price2num($objd->qty, 5);
- $i++;
- }
- }
- $db->free($resql);
- }
- $sql = "SELECT l.rowid, l.fk_product, l.subprice, l.remise_percent, l.ref AS sref, SUM(l.qty) as qty,";
- $sql .= " p.ref, p.label, p.tobatch, p.fk_default_warehouse";
- // Enable hooks to alter the SQL query (SELECT)
- $parameters = array();
- $reshook = $hookmanager->executeHooks(
- 'printFieldListSelect',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- $sql .= $hookmanager->resPrint;
- $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 = ".$object->id;
- if (empty($conf->global->STOCK_SUPPORTS_SERVICES))
- $sql .= " AND l.product_type = 0";
- // Enable hooks to alter the SQL query (WHERE)
- $parameters = array();
- $reshook = $hookmanager->executeHooks(
- 'printFieldListWhere',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- $sql .= $hookmanager->resPrint;
- $sql .= " GROUP BY p.ref, p.label, p.tobatch, l.rowid, l.fk_product, l.subprice, l.remise_percent, p.fk_default_warehouse"; // 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) {
- $entrepot = new Entrepot($db);
- $listwarehouses = $entrepot->list_array(1);
- print '<tr class="liste_titre">';
- print '<td>'.$langs->trans("Description").'</td>';
- if (!empty($conf->productbatch->enabled))
- {
- print '<td class="dispatch_batch_number_title">'.$langs->trans("batch_number").'</td>';
- print '<td class="dispatch_dluo_title">'.$langs->trans("EatByDate").'</td>';
- print '<td class="dispatch_dlc_title">'.$langs->trans("SellByDate").'</td>';
- }
- else
- {
- print '<td></td>';
- print '<td></td>';
- print '<td></td>';
- }
- print '<td class="right">'.$langs->trans("SupplierRef").'</td>';
- print '<td class="right">'.$langs->trans("QtyOrdered").'</td>';
- print '<td class="right">'.$langs->trans("QtyDispatchedShort").'</td>';
- print '<td class="right">'.$langs->trans("QtyToDispatchShort").'</td>';
- print '<td width="32"></td>';
- if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
- print '<td class="right">'.$langs->trans("Price").'</td>';
- print '<td class="right">'.$langs->trans("ReductionShort").' (%)</td>';
- print '<td class="right">'.$langs->trans("UpdatePrice").'</td>';
- }
- }
- print '<td align="right">'.$langs->trans("Warehouse");
- // Select warehouse to force it everywhere
- if (count($listwarehouses) > 1)
- {
- print '<br>'.$langs->trans("ForceTo").' '.$form->selectarray('fk_default_warehouse', $listwarehouses, $fk_default_warehouse, 1, 0, 0, '', 0, 0, $disabled);
- }
- elseif (count($listwarehouses) == 1)
- {
- print '<br>'.$langs->trans("ForceTo").' '.$form->selectarray('fk_default_warehouse', $listwarehouses, $fk_default_warehouse, 0, 0, 0, '', 0, 0, $disabled);
- }
- print '</td>';
- // Enable hooks to append additional columns
- $parameters = array();
- $reshook = $hookmanager->executeHooks(
- 'printFieldListTitle',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- print $hookmanager->resPrint;
- print "</tr>\n";
- }
- $nbfreeproduct = 0; // Nb of lins of free products/services
- $nbproduct = 0; // Nb of predefined product lines to dispatch (already done or not) if SUPPLIER_ORDER_DISABLE_STOCK_DISPATCH_WHEN_TOTAL_REACHED is off (default)
- // or nb of line that remain to dispatch if SUPPLIER_ORDER_DISABLE_STOCK_DISPATCH_WHEN_TOTAL_REACHED is on.
- while ($i < $num) {
- $objp = $db->fetch_object($resql);
- // On n'affiche pas les produits libres
- if (!$objp->fk_product > 0) {
- $nbfreeproduct++;
- } else {
- $remaintodispatch = price2num($objp->qty - ((float) $products_dispatched[$objp->rowid]), 5); // Calculation of dispatched
- if ($remaintodispatch < 0)
- $remaintodispatch = 0;
- if ($remaintodispatch || empty($conf->global->SUPPLIER_ORDER_DISABLE_STOCK_DISPATCH_WHEN_TOTAL_REACHED)) {
- $nbproduct++;
- // To show detail cref and description value, we must make calculation by cref
- // print ($objp->cref?' ('.$objp->cref.')':'');
- // if ($objp->description) print '<br>'.nl2br($objp->description);
- $suffix = '_0_'.$i;
- print "\n";
- print '<!-- Line to dispatch '.$suffix.' -->'."\n";
- // hidden fields for js function
- print '<input id="qty_ordered'.$suffix.'" type="hidden" value="'.$objp->qty.'">';
- print '<input id="qty_dispatched'.$suffix.'" type="hidden" value="'.(float) $products_dispatched[$objp->rowid].'">';
- print '<tr class="oddeven">';
- $linktoprod = '<a href="'.DOL_URL_ROOT.'/product/fournisseurs.php?id='.$objp->fk_product.'">'.img_object($langs->trans("ShowProduct"), 'product').' '.$objp->ref.'</a>';
- $linktoprod .= ' - '.$objp->label."\n";
- if (!empty($conf->productbatch->enabled)) {
- if ($objp->tobatch) {
- print '<td>';
- print $linktoprod;
- print "</td>";
- print '<td class="dispatch_batch_number"></td>';
- print '<td class="dispatch_dluo"></td>';
- print '<td class="dispatch_dlc"></td>';
- } else {
- print '<td>';
- print $linktoprod;
- print "</td>";
- print '<td class="dispatch_batch_number">';
- print $langs->trans("ProductDoesNotUseBatchSerial");
- print '</td>';
- print '<td class="dispatch_dluo"></td>';
- print '<td class="dispatch_dlc"></td>';
- }
- } else {
- print '<td colspan="4">';
- print $linktoprod;
- print "</td>";
- }
- // Define unit price for PMP calculation
- $up_ht_disc = $objp->subprice;
- if (!empty($objp->remise_percent) && empty($conf->global->STOCK_EXCLUDE_DISCOUNT_FOR_PMP))
- $up_ht_disc = price2num($up_ht_disc * (100 - $objp->remise_percent) / 100, 'MU');
- // Supplier ref
- print '<td class="right">'.$objp->sref.'</td>';
- // Qty ordered
- print '<td class="right">'.$objp->qty.'</td>';
- // Already dispatched
- print '<td class="right">'.$products_dispatched[$objp->rowid].'</td>';
- if (!empty($conf->productbatch->enabled) && $objp->tobatch == 1) {
- $type = 'batch';
- print '<td class="right">';
- print '</td>'; // Qty to dispatch
- print '<td>';
- //print img_picto($langs->trans('AddDispatchBatchLine'), 'split.png', 'onClick="addDispatchLine(' . $i . ',\'' . $type . '\')"');
- print '</td>'; // Dispatch column
- print '<td></td>'; // Warehouse column
- // Enable hooks to append additional columns
- $parameters = array(
- 'is_information_row' => true, // allows hook to distinguish between the
- // rows with information and the rows with
- // dispatch form input
- 'objp' => $objp
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- print $hookmanager->resPrint;
- print '</tr>';
- print '<tr class="oddeven" name="'.$type.$suffix.'">';
- print '<td>';
- print '<input name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
- print '<input name="product_batch'.$suffix.'" type="hidden" value="'.$objp->fk_product.'">';
- print '<!-- This is a up (may include discount or not depending on STOCK_EXCLUDE_DISCOUNT_FOR_PMP. will be used for PMP calculation) -->';
- if (!empty($conf->global->SUPPLIER_ORDER_EDIT_BUYINGPRICE_DURING_RECEIPT)) // Not tested !
- {
- print $langs->trans("BuyingPrice").': <input class="maxwidth75" name="pu'.$suffix.'" type="text" value="'.price2num($up_ht_disc, 'MU').'">';
- }
- else
- {
- print '<input class="maxwidth75" name="pu'.$suffix.'" type="hidden" value="'.price2num($up_ht_disc, 'MU').'">';
- }
- print '</td>';
- print '<td>';
- print '<input type="text" class="inputlotnumber quatrevingtquinzepercent" id="lot_number'.$suffix.'" name="lot_number'.$suffix.'" value="'.GETPOST('lot_number'.$suffix).'">';
- print '</td>';
- print '<td class="nowraponall">';
- $dlcdatesuffix = dol_mktime(0, 0, 0, GETPOST('dlc'.$suffix.'month'), GETPOST('dlc'.$suffix.'day'), GETPOST('dlc'.$suffix.'year'));
- print $form->selectDate($dlcdatesuffix, 'dlc'.$suffix, '', '', 1, '');
- print '</td>';
- print '<td class="nowraponall">';
- $dluodatesuffix = dol_mktime(0, 0, 0, GETPOST('dluo'.$suffix.'month'), GETPOST('dluo'.$suffix.'day'), GETPOST('dluo'.$suffix.'year'));
- print $form->selectDate($dluodatesuffix, 'dluo'.$suffix, '', '', 1, '');
- print '</td>';
- print '<td colspan="3"> </td>'; // Supplier ref + Qty ordered + qty already dispatched
- } else {
- $type = 'dispatch';
- print '<td class="right">';
- print '</td>'; // Qty to dispatch
- print '<td>';
- //print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'onClick="addDispatchLine(' . $i . ',\'' . $type . '\')"');
- print '</td>'; // Dispatch column
- print '<td></td>'; // Warehouse column
- // Enable hooks to append additional columns
- $parameters = array(
- 'is_information_row' => true, // allows hook to distinguish between the
- // rows with information and the rows with
- // dispatch form input
- 'objp' => $objp
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- print $hookmanager->resPrint;
- print '</tr>';
- print '<tr class="oddeven" name="'.$type.$suffix.'">';
- print '<td colspan="7">';
- print '<input name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
- print '<input name="product'.$suffix.'" type="hidden" value="'.$objp->fk_product.'">';
- print '<!-- This is a up (may include discount or not depending on STOCK_EXCLUDE_DISCOUNT_FOR_PMP. will be used for PMP calculation) -->';
- if (!empty($conf->global->SUPPLIER_ORDER_EDIT_BUYINGPRICE_DURING_RECEIPT)) // Not tested !
- {
- print $langs->trans("BuyingPrice").': <input class="maxwidth75" name="pu'.$suffix.'" type="text" value="'.price2num($up_ht_disc, 'MU').'">';
- }
- else
- {
- print '<input class="maxwidth75" name="pu'.$suffix.'" type="hidden" value="'.price2num($up_ht_disc, 'MU').'">';
- }
- print '</td>';
- }
- // Qty to dispatch
- print '<td class="right">';
- print '<input id="qty'.$suffix.'" name="qty'.$suffix.'" type="text" class="width50 right" value="'.(GETPOSTISSET('qty'.$suffix) ? GETPOST('qty'.$suffix, 'int') : (empty($conf->global->SUPPLIER_ORDER_DISPATCH_FORCE_QTY_INPUT_TO_ZERO) ? $remaintodispatch : 0)).'">';
- print '</td>';
- print '<td>';
- if (!empty($conf->productbatch->enabled) && $objp->tobatch == 1) {
- $type = 'batch';
- print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'class="splitbutton" onClick="addDispatchLine('.$i.', \''.$type.'\')"');
- }
- else
- {
- $type = 'dispatch';
- print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'class="splitbutton" onClick="addDispatchLine('.$i.', \''.$type.'\')"');
- }
- print '</td>';
- if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
- // Price
- print '<td class="right">';
- print '<input id="pu'.$suffix.'" name="pu'.$suffix.'" type="text" size="8" value="'.price((GETPOST('pu'.$suffix) != '' ? GETPOST('pu'.$suffix) : $up_ht_disc)).'">';
- print '</td>';
- // Discount
- print '<td class="right">';
- print '<input id="pu'.$suffix.'" name="dto'.$suffix.'" type="text" size="8" value="'.(GETPOST('dto'.$suffix) != '' ? GETPOST('dto'.$suffix) : '').'">';
- print '</td>';
- // Save price
- print '<td class="center">';
- print '<input class="flat checkformerge" type="checkbox" name="saveprice'.$suffix.'" value="'.(GETPOST('saveprice'.$suffix) != '' ? GETPOST('saveprice'.$suffix) : '').'">';
- print '</td>';
- }
- }
- // Warehouse
- print '<td class="right">';
- if (count($listwarehouses) > 1) {
- print $formproduct->selectWarehouses(GETPOST("entrepot".$suffix) ?GETPOST("entrepot".$suffix) : ($objp->fk_default_warehouse ? $objp->fk_default_warehouse : ''), "entrepot".$suffix, '', 1, 0, $objp->fk_product, '', 1, 0, null, 'csswarehouse'.$suffix);
- } elseif (count($listwarehouses) == 1) {
- print $formproduct->selectWarehouses(GETPOST("entrepot".$suffix) ?GETPOST("entrepot".$suffix) : ($objp->fk_default_warehouse ? $objp->fk_default_warehouse : ''), "entrepot".$suffix, '', 0, 0, $objp->fk_product, '', 1, 0, null, 'csswarehouse'.$suffix);
- } else {
- $langs->load("errors");
- print $langs->trans("ErrorNoWarehouseDefined");
- }
- print "</td>\n";
- // Enable hooks to append additional columns
- $parameters = array(
- 'is_information_row' => false // this is a dispatch form row
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- print $hookmanager->resPrint;
- print "</tr>\n";
- }
- }
- $i++;
- }
- $db->free($resql);
- } else {
- dol_print_error($db);
- }
- print "</table>\n";
- print '</div>';
- if ($nbproduct)
- {
- $checkboxlabel = $langs->trans("CloseReceivedSupplierOrdersAutomatically", $langs->transnoentitiesnoconv('StatusOrderReceivedAll'));
- print '<div class="center">';
- $parameters = array();
- $reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been
- // modified by hook
- if (empty($reshook))
- {
- if (empty($conf->reception->enabled)) {
- print $langs->trans("Comment").' : ';
- print '<input type="text" class="minwidth400" maxlength="128" name="comment" value="';
- print $_POST["comment"] ? GETPOST("comment") : $langs->trans("DispatchSupplierOrder", $object->ref);
- // print ' / '.$object->ref_supplier; // Not yet available
- print '" class="flat"><br>';
- print '<input type="checkbox" checked="checked" name="closeopenorder"> '.$checkboxlabel;
- }
- $dispatchBt = empty($conf->reception->enabled) ? $langs->trans("Receive") : $langs->trans("CreateReception");
- print '<br><input type="submit" class="button" name="dispatch" value="'.dol_escape_htmltag($dispatchBt).'"';
- if (count($listwarehouses) <= 0)
- print ' disabled';
- print '>';
- }
- print '</div>';
- }
- // Message if nothing to dispatch
- if (!$nbproduct) {
- print "<br>\n";
- if (empty($conf->global->SUPPLIER_ORDER_DISABLE_STOCK_DISPATCH_WHEN_TOTAL_REACHED))
- print '<div class="opacitymedium">'.$langs->trans("NoPredefinedProductToDispatch").'</div>'; // No predefined line at all
- else
- print '<div class="opacitymedium">'.$langs->trans("NoMorePredefinedProductToDispatch").'</div>'; // No predefined line that remain to be dispatched.
- }
- print '</form>';
- }
- dol_fiche_end();
- // traitement entrepot par défaut
- print '<script type="text/javascript">
- $(document).ready(function () {
- $("select[name=fk_default_warehouse]").change(function() {
- var fk_default_warehouse = $("option:selected", this).val();
- $("select[name^=entrepot_]").val(fk_default_warehouse).change();
- });
- });
- </script>';
- // List of lines already dispatched
- $sql = "SELECT p.ref, p.label,";
- $sql .= " e.rowid as warehouse_id, e.ref as entrepot,";
- $sql .= " cfd.rowid as dispatchlineid, cfd.fk_product, cfd.qty, cfd.eatby, cfd.sellby, cfd.batch, cfd.comment, cfd.status, cfd.datec";
- if ($conf->reception->enabled)$sql .= " ,cfd.fk_reception, r.date_delivery";
- $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";
- if ($conf->reception->enabled)$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."reception as r ON cfd.fk_reception = r.rowid";
- $sql .= " WHERE cfd.fk_commande = ".$object->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 "<br>\n";
- print load_fiche_titre($langs->trans("ReceivingForSameOrder"));
- print '<div class="div-table-responsive">';
- print '<table id="dispatch_received_products" class="noborder centpercent">';
- print '<tr class="liste_titre">';
- if ($conf->reception->enabled)print '<td>'.$langs->trans("Reception").'</td>';
- print '<td>'.$langs->trans("Product").'</td>';
- print '<td>'.$langs->trans("DateCreation").'</td>';
- print '<td>'.$langs->trans("DateDeliveryPlanned").'</td>';
- if (!empty($conf->productbatch->enabled)) {
- print '<td class="dispatch_batch_number_title">'.$langs->trans("batch_number").'</td>';
- print '<td class="dispatch_dluo_title">'.$langs->trans("EatByDate").'</td>';
- print '<td class="dispatch_dlc_title">'.$langs->trans("SellByDate").'</td>';
- }
- print '<td class="right">'.$langs->trans("QtyDispatched").'</td>';
- print '<td></td>';
- print '<td>'.$langs->trans("Warehouse").'</td>';
- print '<td>'.$langs->trans("Comment").'</td>';
- // Status
- if (!empty($conf->global->SUPPLIER_ORDER_USE_DISPATCH_STATUS) && empty($reception->rowid)) {
- print '<td class="center" colspan="2">'.$langs->trans("Status").'</td>';
- }
- elseif (!empty($conf->reception->enabled)) {
- print '<td class="center"></td>';
- }
- print '<td class="center"></td>';
- print "</tr>\n";
- while ($i < $num) {
- $objp = $db->fetch_object($resql);
- print "<tr ".$bc[$var].">";
- if (!empty($conf->reception->enabled)) {
- print '<td>';
- if (!empty($objp->fk_reception)) {
- $reception = new Reception($db);
- $reception->fetch($objp->fk_reception);
- print $reception->getNomUrl(1);
- }
- print "</td>";
- }
- print '<td>';
- print '<a href="'.DOL_URL_ROOT.'/product/fournisseurs.php?id='.$objp->fk_product.'">'.img_object($langs->trans("ShowProduct"), 'product').' '.$objp->ref.'</a>';
- print ' - '.$objp->label;
- print "</td>\n";
- print '<td>'.dol_print_date($db->jdate($objp->datec), 'day').'</td>';
- print '<td>'.dol_print_date($db->jdate($objp->date_delivery), 'day').'</td>';
- if (!empty($conf->productbatch->enabled)) {
- print '<td class="dispatch_batch_number">'.$objp->batch.'</td>';
- print '<td class="dispatch_dluo">'.dol_print_date($db->jdate($objp->eatby), 'day').'</td>';
- print '<td class="dispatch_dlc">'.dol_print_date($db->jdate($objp->sellby), 'day').'</td>';
- }
- // Qty
- print '<td class="right">'.$objp->qty.'</td>';
- print '<td> </td>';
- // Warehouse
- print '<td>';
- $warehouse_static->id = $objp->warehouse_id;
- $warehouse_static->libelle = $objp->entrepot;
- print $warehouse_static->getNomUrl(1);
- print '</td>';
- // Comment
- print '<td class="tdoverflowmax300" style="white-space: pre;">'.$objp->comment.'</td>';
- // Status
- if (!empty($conf->global->SUPPLIER_ORDER_USE_DISPATCH_STATUS) && empty($reception->rowid)) {
- print '<td class="right">';
- $supplierorderdispatch->status = (empty($objp->status) ? 0 : $objp->status);
- // print $supplierorderdispatch->status;
- print $supplierorderdispatch->getLibStatut(5);
- print '</td>';
- // Add button to check/uncheck disaptching
- print '<td class="center">';
- if ((empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande->receptionner)) || (!empty($conf->global->MAIN_USE_ADVANCED_PERMS) && empty($user->rights->fournisseur->commande_advance->check)))
- {
- if (empty($objp->status)) {
- print '<a class="button buttonRefused" href="#">'.$langs->trans("Approve").'</a>';
- print '<a class="button buttonRefused" href="#">'.$langs->trans("Deny").'</a>';
- } else {
- print '<a class="button buttonRefused" href="#">'.$langs->trans("Disapprove").'</a>';
- print '<a class="button buttonRefused" href="#">'.$langs->trans("Deny").'</a>';
- }
- } else {
- $disabled = '';
- if ($object->statut == 5)
- $disabled = 1;
- if (empty($objp->status)) {
- print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=checkdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Approve").'</a>';
- print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=denydispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Deny").'</a>';
- }
- if ($objp->status == 1) {
- print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=uncheckdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Reinit").'</a>';
- print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=denydispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Deny").'</a>';
- }
- if ($objp->status == 2) {
- print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=uncheckdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Reinit").'</a>';
- print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=checkdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Approve").'</a>';
- }
- }
- print '</td>';
- } elseif (!empty($conf->reception->enabled)) {
- print '<td class="right">';
- if (!empty($reception->id)) {
- print $reception->getLibStatut(5);
- }
- print '</td>';
- }
- print '<td class="center"></td>';
- print "</tr>\n";
- $i++;
- }
- $db->free($resql);
- print "</table>\n";
- print '</div>';
- }
- } else {
- dol_print_error($db);
- }
- }
- // End of page
- llxFooter();
- $db->close();