123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152 |
- <?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-2021 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-2022 Ferran Marcet <fmarcet@2byte.es>
- * Copyright (C) 2018-2022 Frédéric France <frederic.france@netlogic.fr>
- * Copyright (C) 2019-2020 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 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 <https://www.gnu.org/licenses/>.
- */
- /**
- * \file htdocs/fourn/commande/dispatch.php
- * \ingroup commande
- * \brief Page to dispatch receiving
- */
- // Load Dolibarr environment
- 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';
- require_once DOL_DOCUMENT_ROOT.'/product/stock/class/mouvementstock.class.php';
- require_once DOL_DOCUMENT_ROOT.'/core/lib/reception.lib.php';
- if (isModEnabled('project')) {
- 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 (isModEnabled('productbatch')) {
- $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');
- $cancel = GETPOST('cancel', 'alpha');
- $confirm = GETPOST('confirm', 'alpha');
- if ($user->socid) {
- $socid = $user->socid;
- }
- $hookmanager->initHooks(array('ordersupplierdispatch'));
- // Recuperation de l'id de projet
- $projectid = 0;
- if (GETPOSTISSET("projectid")) {
- $projectid = GETPOST("projectid", 'int');
- }
- $object = new Reception($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');
- }
- if (!empty($object->origin)) {
- $origin = $object->origin;
- $object->fetch_origin();
- $typeobject = $object->origin;
- }
- if ($origin == 'order_supplier' && $object->$typeobject->id && (isModEnabled("fournisseur") && empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) || isModEnabled("supplier_order"))) {
- $origin_id = $object->$typeobject->id;
- $objectsrc = new CommandeFournisseur($db);
- $objectsrc->fetch($object->$typeobject->id);
- }
- }
- if (empty($conf->reception->enabled)) {
- $permissiontoreceive = $user->rights->fournisseur->commande->receptionner;
- $permissiontocontrol = ((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)));
- } else {
- $permissiontoreceive = $user->rights->reception->creer;
- $permissiontocontrol = ((empty($conf->global->MAIN_USE_ADVANCED_PERMS) && !empty($user->rights->reception->creer)) || (!empty($conf->global->MAIN_USE_ADVANCED_PERMS) && !empty($user->rights->reception->reception_advance->validate)));
- }
- // $id is id of a purchase order.
- $result = restrictedArea($user, 'fournisseur', $object, 'reception');
- if (!isModEnabled('stock')) {
- accessforbidden();
- }
- $usercancreate = $user->hasRight('reception', 'creer');
- $permissiontoadd = $usercancreate; // Used by the include of actions_addupdatedelete.inc.php
- /*
- * 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');
- }
- // Update a dispatched line
- if ($action == 'updatelines' && $permissiontoreceive) {
- $db->begin();
- $error = 0;
- $supplierorderdispatch = new CommandeFournisseurDispatch($db);
- $pos = 0;
- foreach ($_POST as $key => $value) {
- // without batch module enabled
- $reg = array();
- if (preg_match('/^product_.*([0-9]+)_([0-9]+)$/i', $key, $reg)) {
- $pos++;
- if (preg_match('/^product_([0-9]+)_([0-9]+)$/i', $key, $reg)) {
- $modebatch = "barcode";
- } elseif (preg_match('/^product_batch_([0-9]+)_([0-9]+)$/i', $key, $reg)) { // With batchmode enabled
- $modebatch = "batch";
- }
- $numline = $pos;
- if ($modebatch == "barcode") {
- $prod = "product_".$reg[1].'_'.$reg[2];
- } else {
- $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]; // This is unit price including discount
- $fk_commandefourndet = "fk_commandefourndet_".$reg[1].'_'.$reg[2];
- $idline = GETPOST("idline_".$reg[1].'_'.$reg[2]);
- $lot = '';
- $dDLUO = '';
- $dDLC = '';
- if ($modebatch == "batch") {
- $lot = GETPOST('lot_number_'.$reg[1].'_'.$reg[2]);
- $dDLUO = dol_mktime(12, 0, 0, GETPOST('dluo_'.$reg[1].'_'.$reg[2].'month', 'int'), GETPOST('dluo_'.$reg[1].'_'.$reg[2].'day', 'int'), GETPOST('dluo_'.$reg[1].'_'.$reg[2].'year', 'int'));
- $dDLC = dol_mktime(12, 0, 0, GETPOST('dlc_'.$reg[1].'_'.$reg[2].'month', 'int'), GETPOST('dlc_'.$reg[1].'_'.$reg[2].'day', 'int'), GETPOST('dlc_'.$reg[1].'_'.$reg[2].'year', 'int'));
- }
- if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (!isModEnabled("multicurrency") && empty($conf->dynamicprices->enabled)) {
- $dto = GETPOST("dto_".$reg[1].'_'.$reg[2], 'int');
- 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 (($modebatch == "batch" && GETPOST($qty) > 0) || ($modebatch == "barcode" && 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) {
- if ($idline > 0) {
- $result = $supplierorderdispatch->fetch($idline);
- if ($result < 0) {
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $error++;
- } else {
- $qtystart = $supplierorderdispatch->qty;
- $supplierorderdispatch->qty = GETPOST($qty);
- $supplierorderdispatch->fk_entrepot = GETPOST($ent, 'int');
- if ($modebatch == "batch") {
- $supplierorderdispatch->eatby = $dDLUO;
- $supplierorderdispatch->sellby = $dDLC;
- }
- $result = $supplierorderdispatch->update($user);
- if ($result < 0) {
- setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
- $error++;
- }
- // If module stock is enabled and the stock increase is done on purchase order dispatching
- if (!$error && GETPOST($ent, 'int') > 0 && isModEnabled('stock') && !empty($conf->global->STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER)) {
- $mouv = new MouvementStock($db);
- $product = GETPOST($prod, 'int');
- $entrepot = GETPOST($ent, 'int');
- $qtymouv = GETPOST($qty) - $qtystart;
- $price = GETPOST($pu);
- $comment = GETPOST('comment');
- $inventorycode = dol_print_date(dol_now(), 'dayhourlog');
- $now = dol_now();
- $eatby = '';
- $sellby = '';
- $batch = '';
- if ($modebatch == "batch") {
- $eatby = $dDLUO;
- $sellby = $dDLC;
- $batch = $supplierorderdispatch->batch;
- }
- if ($product > 0) {
- // $price should take into account discount (except if option STOCK_EXCLUDE_DISCOUNT_FOR_PMP is on)
- $mouv->origin = $objectsrc;
- $mouv->setOrigin($objectsrc->element, $objectsrc->id);
- // Method change if qty < 0
- if (!empty($conf->global->SUPPLIER_ORDER_ALLOW_NEGATIVE_QTY_FOR_SUPPLIER_ORDER_RETURN) && $qtymouv < 0) {
- $result = $mouv->livraison($user, $product, $entrepot, $qtymouv*(-1), $price, $comment, $now, $eatby, $sellby, $batch, 0, $inventorycode);
- } else {
- $result = $mouv->reception($user, $product, $entrepot, $qtymouv, $price, $comment, $eatby, $sellby, $batch, '', 0, $inventorycode);
- }
- if ($result < 0) {
- setEventMessages($mouv->error, $mouv->errors, 'errors');
- $error++;
- }
- }
- }
- }
- } else {
- $result = $objectsrc->dispatchProduct($user, GETPOST($prod, 'int'), GETPOST($qty), GETPOST($ent, 'int'), GETPOST($pu), GETPOST('comment'), $dDLUO, $dDLC, $lot, GETPOST($fk_commandefourndet, 'int'), 0, $object->id);
- if ($result < 0) {
- setEventMessages($objectsrc->error, $objectsrc->errors, 'errors');
- $error++;
- }
- }
- if (!$error && !empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (!isModEnabled("multicurrency") && empty($conf->dynamicprices->enabled)) {
- $dto = price2num(GETPOST("dto_".$reg[1].'_'.$reg[2], 'int'), '');
- if (empty($dto)) {
- $dto = 0;
- }
- //update supplier price
- if (GETPOSTISSET($saveprice)) {
- // TODO Use class
- $sql = "UPDATE ".MAIN_DB_PREFIX."product_fournisseur_price";
- $sql .= " SET unitprice='".price2num(GETPOST($pu), 'MU')."'";
- $sql .= ", price=".price2num(GETPOST($pu), 'MU')."*quantity";
- $sql .= ", remise_percent = ".((float) $dto);
- $sql .= " WHERE fk_soc=".((int) $object->socid);
- $sql .= " AND fk_product=".((int) GETPOST($prod, 'int'));
- $resql = $db->query($sql);
- }
- }
- }
- }
- }
- }
- }
- if ($error > 0) {
- $db->rollback();
- setEventMessages($error, $errors, 'errors');
- } else {
- $db->commit();
- setEventMessages($langs->trans("ReceptionUpdated"), null);
- }
- }
- /*
- * View
- */
- $now = dol_now();
- $form = new Form($db);
- $formproduct = new FormProduct($db);
- $warehouse_static = new Entrepot($db);
- $supplierorderdispatch = new CommandeFournisseurDispatch($db);
- $title = $object->ref." - ".$langs->trans('ReceptionDistribution');
- $help_url = 'EN:Module_Suppliers_Orders|FR:CommandeFournisseur|ES:Módulo_Pedidos_a_proveedores';
- $morejs = array('/fourn/js/lib_dispatch.js.php');
- llxHeader('', $title, $help_url, '', 0, 0, $morejs);
- if ($id > 0 || !empty($ref)) {
- if (!empty($object->origin) && $object->origin_id > 0) {
- $object->origin = 'CommandeFournisseur';
- $typeobject = $object->origin;
- $origin = $object->origin;
- $origin_id = $object->origin_id;
- $object->fetch_origin(); // Load property $object->commande, $object->propal, ...
- }
- $soc = new Societe($db);
- $soc->fetch($object->socid);
- $author = new User($db);
- $author->fetch($object->user_author_id);
- $head = reception_prepare_head($object);
- $title = $langs->trans("SupplierOrder");
- print dol_get_fiche_head($head, 'dispatch', $langs->trans("Reception"), -1, 'dollyrevert');
- $formconfirm = '';
- // Confirmation to delete line
- if ($action == 'ask_deleteline') {
- $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id.'&lineid='.$lineid, $langs->trans('DeleteLine'), $langs->trans('ConfirmDeleteLine'), 'confirm_deleteline', '', 0, 1);
- }
- // Call Hook formConfirm
- $parameters = array('lineid' => $lineid);
- // Note that $action and $object may be modified by hook
- $reshook = $hookmanager->executeHooks('formConfirm', $parameters, $object, $action);
- if (empty($reshook)) {
- $formconfirm .= $hookmanager->resPrint;
- } elseif ($reshook > 0) {
- $formconfirm = $hookmanager->resPrint;
- }
- // Print form confirm
- print $formconfirm;
- // Reception card
- $linkback = '<a href="'.DOL_URL_ROOT.'/reception/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
- $morehtmlref = '<div class="refidno">';
- // Ref customer reception
- $morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, $user->rights->reception->creer, 'string', '', 0, 1);
- $morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, $user->rights->reception->creer, 'string', '', null, null, '', 1);
- // Thirdparty
- $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
- // Project
- if (isModEnabled('project')) {
- $langs->load("projects");
- $morehtmlref .= '<br>';
- if (0) { // Do not change on reception
- $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
- if ($action != 'classify' && $permissiontoadd) {
- $morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&token='.newToken().'&id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
- }
- $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, (empty($conf->global->PROJECT_CAN_ALWAYS_LINK_TO_ALL_SUPPLIERS) ? $object->socid : -1), $object->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
- } else {
- if (!empty($objectsrc) && !empty($objectsrc->fk_project)) {
- $proj = new Project($db);
- $proj->fetch($objectsrc->fk_project);
- $morehtmlref .= $proj->getNomUrl(1);
- if ($proj->title) {
- $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
- }
- }
- }
- }
- $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%">';
- // Linked documents
- if ($typeobject == 'commande' && $object->$typeobject->id && isModEnabled('commande')) {
- print '<tr><td>';
- print $langs->trans("RefOrder").'</td>';
- print '<td colspan="3">';
- print $objectsrc->getNomUrl(1, 'commande');
- print "</td>\n";
- print '</tr>';
- }
- if ($typeobject == 'propal' && $object->$typeobject->id && isModEnabled("propal")) {
- print '<tr><td>';
- print $langs->trans("RefProposal").'</td>';
- print '<td colspan="3">';
- print $objectsrc->getNomUrl(1, 'reception');
- print "</td>\n";
- print '</tr>';
- }
- if ($typeobject == 'CommandeFournisseur' && $object->$typeobject->id && isModEnabled("propal")) {
- print '<tr><td>';
- print $langs->trans("SupplierOrder").'</td>';
- print '<td colspan="3">';
- print $objectsrc->getNomUrl(1, 'reception');
- print "</td>\n";
- print '</tr>';
- }
- // Date creation
- print '<tr><td class="titlefield">'.$langs->trans("DateCreation").'</td>';
- print '<td colspan="3">'.dol_print_date($object->date_creation, "dayhour", "tzuserrel")."</td>\n";
- print '</tr>';
- // Delivery date planned
- print '<tr><td height="10">';
- print '<table class="nobordernopadding" width="100%"><tr><td>';
- print $langs->trans('DateDeliveryPlanned');
- print '</td>';
- print '</tr></table>';
- print '</td><td colspan="2">';
- print $object->date_delivery ? dol_print_date($object->date_delivery, 'dayhour') : ' ';
- print '</td>';
- print '</tr>';
- print '</table>';
- print '<br><center>';
- print '<a href="#" id="resetalltoexpected" class="marginrightonly paddingright marginleftonly paddingleft">'.img_picto("", 'autofill', 'class="pictofixedwidth"').$langs->trans("RestoreWithCurrentQtySaved").'</a></td>';
- // Link to clear qty
- print '<a href="#" id="autoreset" class="marginrightonly paddingright marginleftonly paddingleft">'.img_picto("", 'eraser', 'class="pictofixedwidth"').$langs->trans("ClearQtys").'</a></td>';
- print '<center>';
- print '<br>';
- $disabled = 0; // This is used to disable or not the bulk selection of target warehouse. No reason to have it disabled so forced to 0.
- if ($object->statut == Reception::STATUS_DRAFT) {
- require_once DOL_DOCUMENT_ROOT.'/product/class/html.formproduct.class.php';
- $formproduct = new FormProduct($db);
- $formproduct->loadWarehouses();
- $entrepot = new Entrepot($db);
- $listwarehouses = $entrepot->list_array(1);
- print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
- print '<input type="hidden" name="token" value="'.newToken().'">';
- print '<input type="hidden" name="action" value="updatelines">';
- print '<input type="hidden" name="id" value="'.$object->id.'">';
- print '<div class="div-table-responsive-no-min">';
- print '<table class="noborder centpercent">';
- // Get list of lines from the original Order into $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_reception = ".((int) $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, 'MS');
- $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 = "SELECT l.rowid, l.fk_product, l.subprice, l.remise_percent, l.ref AS sref, 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 = ".((int) $objectsrc->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, p.fk_default_warehouse, l.rowid, l.fk_product, l.subprice, l.remise_percent, l.ref"; // Calculation of amount dispatched is done per fk_product so we must group by fk_product
- $sql .= " ORDER BY l.rang, p.ref, p.label";
- $resql = $db->query($sql);
- if ($resql) {
- $num = $db->num_rows($resql);
- $i = 0;
- if ($num) {
- print '<tr class="liste_titre">';
- print '<td>'.$langs->trans("Description").'</td>';
- if (isModEnabled('productbatch')) {
- print '<td class="dispatch_batch_number_title">'.$langs->trans("batch_number").'</td>';
- if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
- print '<td class="dispatch_dlc_title">'.$langs->trans("SellByDate").'</td>';
- }
- if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
- print '<td class="dispatch_dluo_title">'.$langs->trans("EatByDate").'</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");
- //print '<br><a href="#" id="autoreset">'.img_picto($langs->trans("Reset"), 'eraser', 'class="pictofixedwidth opacitymedium"').$langs->trans("Reset").'</a></td>';
- print '<td width="32"></td>';
- if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (!isModEnabled("multicurrency") && 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><span class="opacitymedium">'.$langs->trans("ForceTo").'</span> '.$form->selectarray('fk_default_warehouse', $listwarehouses, $fk_default_warehouse, 1, 0, 0, '', 0, 0, $disabled, '', 'minwidth100 maxwidth300', 1);
- } elseif (count($listwarehouses) == 1) {
- print '<br><span class="opacitymedium">'.$langs->trans("ForceTo").'</span> '.$form->selectarray('fk_default_warehouse', $listwarehouses, $fk_default_warehouse, 0, 0, 0, '', 0, 0, $disabled, '', 'minwidth100 maxwidth300', 1);
- }
- 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.
- $conf->cache['product'] = array();
- // Loop on each source order line (may be more or less than current number of lines in llx_commande_fournisseurdet)
- while ($i < $num) {
- $objp = $db->fetch_object($resql);
- // On n'affiche pas les produits libres
- if (!$objp->fk_product > 0) {
- $nbfreeproduct++;
- } else {
- $alreadydispatched = isset($products_dispatched[$objp->rowid])?$products_dispatched[$objp->rowid]:0;
- $remaintodispatch = price2num($objp->qty, 5); // Calculation of dispatched
- if ($remaintodispatch < 0 && empty($conf->global->SUPPLIER_ORDER_ALLOW_NEGATIVE_QTY_FOR_SUPPLIER_ORDER_RETURN)) {
- $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" data-dispatched="'.((float) $alreadydispatched).'" value="'.(float) $alreadydispatched.'">';
- print '<tr class="oddeven">';
- if (empty($conf->cache['product'][$objp->fk_product])) {
- $tmpproduct = new Product($db);
- $tmpproduct->fetch($objp->fk_product);
- $conf->cache['product'][$objp->fk_product] = $tmpproduct;
- } else {
- $tmpproduct = $conf->cache['product'][$objp->fk_product];
- }
- $linktoprod = $tmpproduct->getNomUrl(1);
- $linktoprod .= ' - '.$objp->label."\n";
- if (isModEnabled('productbatch')) {
- if ($objp->tobatch) {
- // Product
- print '<td>';
- print $linktoprod;
- print "</td>";
- print '<td class="dispatch_batch_number"></td>';
- if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
- print '<td class="dispatch_dlc"></td>';
- }
- if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
- print '<td class="dispatch_dluo"></td>';
- }
- } else {
- // Product
- print '<td>';
- print $linktoprod;
- print "</td>";
- print '<td class="dispatch_batch_number">';
- print '<span class="opacitymedium small">'.$langs->trans("ProductDoesNotUseBatchSerial").'</small>';
- print '</td>';
- if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
- print '<td class="dispatch_dlc"></td>';
- }
- if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
- print '<td class="dispatch_dluo"></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">'.$alreadydispatched.'</td>';
- print '<td class="right">';
- print '</td>'; // Qty to dispatch
- print '<td>';
- print '</td>'; // Dispatch column
- print '<td></td>'; // Warehouse column
- $sql = "SELECT cfd.rowid, cfd.qty, cfd.fk_entrepot, cfd.batch, cfd.eatby, cfd.sellby, cfd.fk_product";
- $sql .= " FROM ".MAIN_DB_PREFIX."commande_fournisseur_dispatch as cfd";
- $sql .= " WHERE cfd.fk_reception = ".((int) $object->id);
- $sql .= " AND cfd.fk_commande = ".((int) $objectsrc->id);
- $sql .= " AND cfd.fk_commandefourndet = ".(int) $objp->rowid;
- //print $sql;
- $resultsql = $db->query($sql);
- $j = 0;
- if ($resultsql) {
- $numd = $db->num_rows($resultsql);
- while ($j < $numd) {
- $suffix = "_".$j."_".$i;
- $objd = $db->fetch_object($resultsql);
- if (isModEnabled('productbatch') && !empty($objd->batch)) {
- $type = 'batch';
- // Enable hooks to append additional columns
- $parameters = array(
- // allows hook to distinguish between the rows with information and the rows with dispatch form input
- 'is_information_row' => true,
- 'j' => $j,
- 'suffix' => $suffix,
- 'objd' => $objd,
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) {
- setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- }
- print $hookmanager->resPrint;
- print '</tr>';
- print '<!-- line for batch '.$numline.' -->';
- print '<tr class="oddeven autoresettr" name="'.$type.$suffix.'" data-remove="clear">';
- print '<td>';
- print '<input id="fk_commandefourndet'.$suffix.'" name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
- print '<input id="idline'.$suffix.'" name="idline'.$suffix.'" type="hidden" value="'.$objd->rowid.'">';
- print '<input name="product_batch'.$suffix.'" type="hidden" value="'.$objd->fk_product.'">';
- print '<!-- This is a U.P. (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 disabled="" type="text" class="inputlotnumber quatrevingtquinzepercent" id="lot_number'.$suffix.'" name="lot_number'.$suffix.'" value="'.$objd->batch.'">';
- print '</td>';
- if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
- print '<td class="nowraponall">';
- $dlcdatesuffix = !empty($objd->sellby) ? dol_stringtotime($objd->sellby) : 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>';
- }
- if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
- print '<td class="nowraponall">';
- $dluodatesuffix = !empty($objd->eatby) ? dol_stringtotime($objd->eatby) : 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';
- $colspan = 7;
- $colspan = (!empty($conf->global->PRODUCT_DISABLE_SELLBY)) ? --$colspan : $colspan;
- $colspan = (!empty($conf->global->PRODUCT_DISABLE_EATBY)) ? --$colspan : $colspan;
- // Enable hooks to append additional columns
- $parameters = array(
- // allows hook to distinguish between the rows with information and the rows with dispatch form input
- 'is_information_row' => true,
- 'j' => $j,
- 'suffix' => $suffix,
- 'objd' => $objd,
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) {
- setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- }
- print $hookmanager->resPrint;
- print '</tr>';
- print '<!-- line no batch '.$numline.' -->';
- print '<tr class="oddeven autoresettr" name="'.$type.$suffix.'" data-remove="clear">';
- print '<td colspan="'.$colspan.'">';
- print '<input id="fk_commandefourndet'.$suffix.'" name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
- print '<input id="idline'.$suffix.'" name="idline'.$suffix.'" type="hidden" value="'.$objd->rowid.'">';
- print '<input name="product'.$suffix.'" type="hidden" value="'.$objd->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 '<a href="#" id="reset'.$suffix.'" class="resetline">'.img_picto($langs->trans("Reset"), 'eraser', 'class="pictofixedwidth opacitymedium"').'</a>';
- print '<input id="qty'.$suffix.'" onchange="onChangeDispatchLineQty($(this))" name="qty'.$suffix.'" data-type="'.$type.'" data-index="'.$i.'" class="width50 right qtydispatchinput" value="'.(GETPOSTISSET('qty'.$suffix) ? GETPOST('qty'.$suffix, 'int') : $objd->qty).'" data-expected="'.$objd->qty.'">';
- print '</td>';
- print '<td>';
- if (isModEnabled('productbatch') && $objp->tobatch > 0) {
- $type = 'batch';
- print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'class="splitbutton" '.($numd != $j+1 ? 'style="display:none"' : '').' onClick="addDispatchLine('.$i.', \''.$type.'\')"');
- } else {
- $type = 'dispatch';
- print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'class="splitbutton" '.($numd != $j+1 ? 'style="display:none"' : '').' onClick="addDispatchLine('.$i.', \''.$type.'\')"');
- }
- print '</td>';
- if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
- if (!isModEnabled("multicurrency") && 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) != '' ? price2num(GETPOST('pu'.$suffix)) : $up_ht_disc)).'">';
- print '</td>';
- // Discount
- print '<td class="right">';
- print '<input id="dto'.$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) : $objd->fk_entrepot, "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) : $objd->fk_entrepot, "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
- 'i' => $i,
- 'suffix' => $suffix,
- 'objp' => $objp,
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) {
- setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- }
- print $hookmanager->resPrint;
- print "</tr>\n";
- $j++;
- $numline++;
- }
- $suffix = "_".$j."_".$i;
- }
- if ($j == 0) {
- if (isModEnabled('productbatch') && !empty($objp->tobatch)) {
- $type = 'batch';
- // Enable hooks to append additional columns
- $parameters = array(
- // allows hook to distinguish between the rows with information and the rows with dispatch form input
- 'is_information_row' => true,
- 'j' => $j,
- 'suffix' => $suffix,
- 'objp' => $objp,
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) {
- setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- }
- print $hookmanager->resPrint;
- print '</tr>';
- print '<!-- line for batch '.$numline.' (not dispatched line yet for this order line) -->';
- print '<tr class="oddeven autoresettr" name="'.$type.$suffix.'">';
- print '<td>';
- print '<input id="fk_commandefourndet'.$suffix.'" name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
- print '<input id="idline'.$suffix.'" name="idline'.$suffix.'" type="hidden" value="-1">';
- 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>';
- if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
- 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>';
- }
- if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
- 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';
- $colspan = 7;
- $colspan = (!empty($conf->global->PRODUCT_DISABLE_SELLBY)) ? --$colspan : $colspan;
- $colspan = (!empty($conf->global->PRODUCT_DISABLE_EATBY)) ? --$colspan : $colspan;
- // Enable hooks to append additional columns
- $parameters = array(
- // allows hook to distinguish between the rows with information and the rows with dispatch form input
- 'is_information_row' => true,
- 'j' => $j,
- 'suffix' => $suffix,
- 'objp' => $objp,
- );
- $reshook = $hookmanager->executeHooks(
- 'printFieldListValue',
- $parameters,
- $object,
- $action
- );
- if ($reshook < 0) {
- setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
- }
- print $hookmanager->resPrint;
- print '</tr>';
- print '<!-- line no batch '.$numline.' (not dispatched line yet for this order line) -->';
- print '<tr class="oddeven autoresettr" name="'.$type.$suffix.'" data-remove="clear">';
- print '<td colspan="'.$colspan.'">';
- print '<input id="fk_commandefourndet'.$suffix.'" name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
- print '<input id="idline'.$suffix.'" name="idline'.$suffix.'" type="hidden" value="-1">';
- 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.'" data-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 '<a href="#" id="reset'.$suffix.'" class="resetline">'.img_picto($langs->trans("Reset"), 'eraser', 'class="pictofixedwidth opacitymedium"').'</a>';
- print '<input id="qty'.$suffix.'" onchange="onChangeDispatchLineQty($(this))" name="qty'.$suffix.'" data-index="'.$i.'" data-type="text" class="width50 right qtydispatchinput" value="'.(GETPOSTISSET('qty'.$suffix) ? GETPOST('qty'.$suffix, 'int') : (empty($conf->global->SUPPLIER_ORDER_DISPATCH_FORCE_QTY_INPUT_TO_ZERO) ? $remaintodispatch : 0)).'" data-expected="'.$remaintodispatch.'">';
- print '</td>';
- print '<td>';
- if (isModEnabled('productbatch') && $objp->tobatch > 0) {
- $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 (!isModEnabled("multicurrency") && 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) != '' ? price2num(GETPOST('pu'.$suffix)) : $up_ht_disc)).'">';
- print '</td>';
- // Discount
- print '<td class="right">';
- print '<input id="dto'.$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
- 'i' => $i,
- 'suffix' => $suffix,
- 'objp' => $objp,
- );
- $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 GETPOSTISSET("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>';
- print '<input type="submit" id="submitform" class="button" name="dispatch" value="'.$langs->trans("Save").'"';
- $disabled = 0;
- if (!$permissiontoreceive) {
- $disabled = 1;
- }
- if (count($listwarehouses) <= 0) {
- $disabled = 1;
- }
- if ($disabled) {
- 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>';
- }
- print dol_get_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();
- });
- $("#autoreset").click(function() {
- $(".autoresettr").each(function(){
- id = $(this).attr("name");
- idtab = id.split("_");
- if ($(this).data("remove") == "clear"){
- console.log("We clear the object to expected value")
- $("#qty_"+idtab[1]+"_"+idtab[2]).val("");
- /*
- qtyexpected = $("#qty_"+idtab[1]+"_"+idtab[2]).data("expected")
- console.log(qtyexpected);
- $("#qty_"+idtab[1]+"_"+idtab[2]).val(qtyexpected);
- qtydispatched = $("#qty_dispatched_0_"+idtab[2]).data("dispatched")
- $("#qty_dispatched_0_"+idtab[2]).val(qtydispatched);
- */
- } else {
- console.log("We remove the object")
- $(this).remove();
- $("tr[name^=\'"+idtab[0]+"_\'][name$=\'_"+idtab[2]+"\']:last .splitbutton").show();
- }
- });
- return false;
- });
- $("#resetalltoexpected").click(function(){
- $(".qtydispatchinput").each(function(){
- console.log("We reset to expected "+$(this).attr("id")+" qty to dispatch");
- $(this).val($(this).data("expected"));
- });
- return false;
- });
- $(".resetline").click(function(){
- id = $(this).attr("id");
- id = id.split("reset_");
- console.log("Reset trigger for id = qty_"+id[1]);
- $("#qty_"+id[1]).val("");
- });
- });
- </script>';
- }
- // End of page
- llxFooter();
- $db->close();
|