PageRenderTime 73ms CodeModel.GetById 27ms RepoModel.GetById 0ms app.codeStats 0ms

/htdocs/fourn/commande/dispatch.php

http://github.com/Dolibarr/dolibarr
PHP | 1340 lines | 1133 code | 121 blank | 86 comment | 209 complexity | 941561b9eb77b4ed02f70a0299f190dc MD5 | raw file
Possible License(s): GPL-2.0, AGPL-3.0, LGPL-2.0, CC-BY-SA-4.0, BSD-3-Clause, MPL-2.0-no-copyleft-exception, LGPL-3.0, GPL-3.0, LGPL-2.1, MIT

Large files files are truncated, but you can click here to view the full file

    

  1. <?php
    2. 

  2. /* Copyright (C) 2004-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
    3. 

  3.  * Copyright (C) 2004-2016 Laurent Destailleur  <eldy@users.sourceforge.net>
    4. 

  4.  * Copyright (C) 2005      Eric Seigne          <eric.seigne@ryxeo.com>
    5. 

  5.  * Copyright (C) 2005-2009 Regis Houssin        <regis.houssin@inodbox.com>
    6. 

  6.  * Copyright (C) 2010-2021 Juanjo Menent        <jmenent@2byte.es>
    7. 

  7.  * Copyright (C) 2014      Cedric Gross         <c.gross@kreiz-it.fr>
    8. 

  8.  * Copyright (C) 2016      Florian Henry        <florian.henry@atm-consulting.fr>
    9. 

  9.  * Copyright (C) 2017-2020 Ferran Marcet        <fmarcet@2byte.es>
    10. 

  10.  * Copyright (C) 2018      Frédéric France      <frederic.france@netlogic.fr>
    11. 

  11.  * Copyright (C) 2019-2020 Christophe Battarel	<christophe@altairis.fr>
    12. 

  12.  *
    13. 

  13.  * This	program	is free	software; you can redistribute it and/or modify
    14. 

  14.  * it under the	terms of the GNU General Public	License	as published by
    15. 

  15.  * the Free Software Foundation; either	version	2 of the License, or
    16. 

  16.  * (at your option) any later version.
    17. 

  17.  *
    18. 

  18.  * This	program	is distributed in the hope that	it will	be useful,
    19. 

  19.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
    20. 

  20.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
    21. 

  21.  * GNU General Public License for more details.
    22. 

  22.  *
    23. 

  23.  * You should have received a copy of the GNU General Public License
    24. 

  24.  * along with this program. If not, see <https://www.gnu.org/licenses/>.
    25. 

  25.  * or see https://www.gnu.org/
    26. 

  26.  */
    27. 

  27. 

  28. /**
    29. 

  29.  * \file htdocs/fourn/commande/dispatch.php
    30. 

  30.  * \ingroup commande
    31. 

  31.  * \brief Page to dispatch receiving
    32. 

  32.  */
    33. 

  33. 

  34. require '../../main.inc.php';
    35. 

  35. require_once DOL_DOCUMENT_ROOT.'/core/modules/supplier_order/modules_commandefournisseur.php';
    36. 

  36. require_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';
    37. 

  37. require_once DOL_DOCUMENT_ROOT.'/core/lib/fourn.lib.php';
    38. 

  38. require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
    39. 

  39. require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.dispatch.class.php';
    40. 

  40. require_once DOL_DOCUMENT_ROOT.'/product/class/html.formproduct.class.php';
    41. 

  41. require_once DOL_DOCUMENT_ROOT.'/product/stock/class/mouvementstock.class.php';
    42. 

  42. 

  43. if (!empty($conf->projet->enabled)) {
    44. 

  44. 	require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
    45. 

  45. }
    46. 

  46. 

  47. // Load translation files required by the page
    48. 

  48. $langs->loadLangs(array("bills", "orders", "sendings", "companies", "deliveries", "products", "stocks", "receptions"));
    49. 

  49. 

  50. if (!empty($conf->productbatch->enabled)) {
    51. 

  51. 	$langs->load('productbatch');
    52. 

  52. }
    53. 

  53. 

  54. 	// Security check
    55. 

  55. $id = GETPOST("id", 'int');
    56. 

  56. $ref = GETPOST('ref');
    57. 

  57. $lineid = GETPOST('lineid', 'int');
    58. 

  58. $action = GETPOST('action', 'aZ09');
    59. 

  59. $fk_default_warehouse = GETPOST('fk_default_warehouse', 'int');
    60. 

  60. $cancel = GETPOST('cancel', 'alpha');
    61. 

  61. $confirm = GETPOST('confirm', 'alpha');
    62. 

  62. 

  63. if ($user->socid) {
    64. 

  64. 	$socid = $user->socid;
    65. 

  65. }
    66. 

  66. $result = restrictedArea($user, 'fournisseur', $id, 'commande_fournisseur', 'commande');
    67. 

  67. 

  68. if (empty($conf->stock->enabled)) {
    69. 

  69. 	accessforbidden();
    70. 

  70. }
    71. 

  71. 

  72. $hookmanager->initHooks(array('ordersupplierdispatch'));
    73. 

  73. 

  74. // Recuperation de l'id de projet
    75. 

  75. $projectid = 0;
    76. 

  76. if ($_GET["projectid"]) {
    77. 

  77. 	$projectid = GETPOST("projectid", 'int');
    78. 

  78. }
    79. 

  79. 

  80. $object = new CommandeFournisseur($db);
    81. 

  81. 

  82. if ($id > 0 || !empty($ref)) {
    83. 

  83. 	$result = $object->fetch($id, $ref);
    84. 

  84. 	if ($result < 0) {
    85. 

  85. 		setEventMessages($object->error, $object->errors, 'errors');
    86. 

  86. 	}
    87. 

  87. 	$result = $object->fetch_thirdparty();
    88. 

  88. 	if ($result < 0) {
    89. 

  89. 		setEventMessages($object->error, $object->errors, 'errors');
    90. 

  90. 	}
    91. 

  91. }
    92. 

  92. 

  93. 

  94. /*
    95. 

  95.  * Actions
    96. 

  96.  */
    97. 

  97. 

  98. $parameters = array();
    99. 

  99. $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
    100. 

  100. if ($reshook < 0) {
    101. 

  101. 	setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    102. 

  102. }
    103. 

  103. 

  104. 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)))) {
    105. 

  105. 	$error = 0;
    106. 

  106. 	$supplierorderdispatch = new CommandeFournisseurDispatch($db);
    107. 

  107. 

  108. 	$db->begin();
    109. 

  109. 

  110. 	$result = $supplierorderdispatch->fetch($lineid);
    111. 

  111. 	if (!$result) {
    112. 

  112. 		$error++;
    113. 

  113. 		setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
    114. 

  114. 		$action = '';
    115. 

  115. 	}
    116. 

  116. 

  117. 	if (!$error) {
    118. 

  118. 		$result = $supplierorderdispatch->setStatut(1);
    119. 

  119. 		if ($result < 0) {
    120. 

  120. 			setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
    121. 

  121. 			$error++;
    122. 

  122. 			$action = '';
    123. 

  123. 		}
    124. 

  124. 	}
    125. 

  125. 

  126. 	if (!$error) {
    127. 

  127. 		$result = $object->calcAndSetStatusDispatch($user);
    128. 

  128. 		if ($result < 0) {
    129. 

  129. 			setEventMessages($object->error, $object->errors, 'errors');
    130. 

  130. 			$error++;
    131. 

  131. 			$action = '';
    132. 

  132. 		}
    133. 

  133. 	}
    134. 

  134. 	if (!$error) {
    135. 

  135. 		$db->commit();
    136. 

  136. 	} else {
    137. 

  137. 		$db->rollback();
    138. 

  138. 	}
    139. 

  139. }
    140. 

  140. 

  141. 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)))) {
    142. 

  142. 	$error = 0;
    143. 

  143. 	$supplierorderdispatch = new CommandeFournisseurDispatch($db);
    144. 

  144. 

  145. 	$db->begin();
    146. 

  146. 

  147. 	$result = $supplierorderdispatch->fetch($lineid);
    148. 

  148. 	if (!$result) {
    149. 

  149. 		$error++;
    150. 

  150. 		setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
    151. 

  151. 		$action = '';
    152. 

  152. 	}
    153. 

  153. 

  154. 	if (!$error) {
    155. 

  155. 		$result = $supplierorderdispatch->setStatut(0);
    156. 

  156. 		if ($result < 0) {
    157. 

  157. 			setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
    158. 

  158. 			$error++;
    159. 

  159. 			$action = '';
    160. 

  160. 		}
    161. 

  161. 	}
    162. 

  162. 	if (!$error) {
    163. 

  163. 		$result = $object->calcAndSetStatusDispatch($user);
    164. 

  164. 		if ($result < 0) {
    165. 

  165. 			setEventMessages($object->error, $object->errors, 'errors');
    166. 

  166. 			$error++;
    167. 

  167. 			$action = '';
    168. 

  168. 		}
    169. 

  169. 	}
    170. 

  170. 	if (!$error) {
    171. 

  171. 		$db->commit();
    172. 

  172. 	} else {
    173. 

  173. 		$db->rollback();
    174. 

  174. 	}
    175. 

  175. }
    176. 

  176. 

  177. 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)))) {
    178. 

  178. 	$error = 0;
    179. 

  179. 	$supplierorderdispatch = new CommandeFournisseurDispatch($db);
    180. 

  180. 

  181. 	$db->begin();
    182. 

  182. 

  183. 	$result = $supplierorderdispatch->fetch($lineid);
    184. 

  184. 	if (!$result) {
    185. 

  185. 		$error++;
    186. 

  186. 		setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
    187. 

  187. 		$action = '';
    188. 

  188. 	}
    189. 

  189. 

  190. 	if (!$error) {
    191. 

  191. 		$result = $supplierorderdispatch->setStatut(2);
    192. 

  192. 		if ($result < 0) {
    193. 

  193. 			setEventMessages($supplierorderdispatch->error, $supplierorderdispatch->errors, 'errors');
    194. 

  194. 			$error++;
    195. 

  195. 			$action = '';
    196. 

  196. 		}
    197. 

  197. 	}
    198. 

  198. 	if (!$error) {
    199. 

  199. 		$result = $object->calcAndSetStatusDispatch($user);
    200. 

  200. 		if ($result < 0) {
    201. 

  201. 			setEventMessages($object->error, $object->errors, 'errors');
    202. 

  202. 			$error++;
    203. 

  203. 			$action = '';
    204. 

  204. 		}
    205. 

  205. 	}
    206. 

  206. 	if (!$error) {
    207. 

  207. 		$db->commit();
    208. 

  208. 	} else {
    209. 

  209. 		$db->rollback();
    210. 

  210. 	}
    211. 

  211. }
    212. 

  212. 

  213. if ($action == 'dispatch' && $user->rights->fournisseur->commande->receptionner) {
    214. 

  214. 	$error = 0;
    215. 

  215. 

  216. 	$db->begin();
    217. 

  217. 

  218. 	$pos = 0;
    219. 

  219. 	foreach ($_POST as $key => $value) {
    220. 

  220. 		// without batch module enabled
    221. 

  221. 		$reg = array();
    222. 

  222. 		if (preg_match('/^product_([0-9]+)_([0-9]+)$/i', $key, $reg)) {
    223. 

  223. 			$pos++;
    224. 

  224. 

  225. 			// $numline=$reg[2] + 1; // line of product
    226. 

  226. 			$numline = $pos;
    227. 

  227. 			$prod = "product_".$reg[1].'_'.$reg[2];
    228. 

  228. 			$qty = "qty_".$reg[1].'_'.$reg[2];
    229. 

  229. 			$ent = "entrepot_".$reg[1].'_'.$reg[2];
    230. 

  230. 			if (empty(GETPOST($ent))) {
    231. 

  231. 				$ent = $fk_default_warehouse;
    232. 

  232. 			}
    233. 

  233. 			$pu = "pu_".$reg[1].'_'.$reg[2]; // This is unit price including discount
    234. 

  234. 			$fk_commandefourndet = "fk_commandefourndet_".$reg[1].'_'.$reg[2];
    235. 

  235. 

  236. 			if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
    237. 

  237. 				if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
    238. 

  238. 					$dto = GETPOST("dto_".$reg[1].'_'.$reg[2], 'int');
    239. 

  239. 					if (!empty($dto)) {
    240. 

  240. 						$unit_price = price2num(GETPOST("pu_".$reg[1]) * (100 - $dto) / 100, 'MU');
    241. 

  241. 					}
    242. 

  242. 					$saveprice = "saveprice_".$reg[1].'_'.$reg[2];
    243. 

  243. 				}
    244. 

  244. 			}
    245. 

  245. 

  246. 			// We ask to move a qty
    247. 

  247. 			if (GETPOST($qty) != 0) {
    248. 

  248. 				if (!(GETPOST($ent, 'int') > 0)) {
    249. 

  249. 					dol_syslog('No dispatch for line '.$key.' as no warehouse was chosen.');
    250. 

  250. 					$text = $langs->transnoentities('Warehouse').', '.$langs->transnoentities('Line').' '.($numline);
    251. 

  251. 					setEventMessages($langs->trans('ErrorFieldRequired', $text), null, 'errors');
    252. 

  252. 					$error++;
    253. 

  253. 				}
    254. 

  254. 

  255. 				if (!$error) {
    256. 

  256. 					$result = $object->dispatchProduct($user, GETPOST($prod, 'int'), GETPOST($qty), GETPOST($ent, 'int'), GETPOST($pu), GETPOST('comment'), '', '', '', GETPOST($fk_commandefourndet, 'int'), $notrigger);
    257. 

  257. 					if ($result < 0) {
    258. 

  258. 						setEventMessages($object->error, $object->errors, 'errors');
    259. 

  259. 						$error++;
    260. 

  260. 					}
    261. 

  261. 

  262. 					if (!$error && !empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
    263. 

  263. 						if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
    264. 

  264. 							$dto = price2num(GETPOST("dto_".$reg[1].'_'.$reg[2], 'int'), '');
    265. 

  265. 							if (empty($dto)) {
    266. 

  266. 								$dto = 0;
    267. 

  267. 							}
    268. 

  268. 

  269. 							//update supplier price
    270. 

  270. 							if (GETPOSTISSET($saveprice)) {
    271. 

  271. 								// TODO Use class
    272. 

  272. 								$sql = "UPDATE ".MAIN_DB_PREFIX."product_fournisseur_price";
    273. 

  273. 								$sql .= " SET unitprice='".price2num(GETPOST($pu), 'MU')."'";
    274. 

  274. 								$sql .= ", price=".price2num(GETPOST($pu), 'MU')."*quantity";
    275. 

  275. 								$sql .= ", remise_percent = ".((float) $dto);
    276. 

  276. 								$sql .= " WHERE fk_soc=".((int) $object->socid);
    277. 

  277. 								$sql .= " AND fk_product=".((int) GETPOST($prod, 'int'));
    278. 

  278. 

  279. 								$resql = $db->query($sql);
    280. 

  280. 							}
    281. 

  281. 						}
    282. 

  282. 					}
    283. 

  283. 				}
    284. 

  284. 			}
    285. 

  285. 		}
    286. 

  286. 		// with batch module enabled
    287. 

  287. 		if (preg_match('/^product_batch_([0-9]+)_([0-9]+)$/i', $key, $reg)) {
    288. 

  288. 			$pos++;
    289. 

  289. 

  290. 			// eat-by date dispatch
    291. 

  291. 			// $numline=$reg[2] + 1; // line of product
    292. 

  292. 			$numline = $pos;
    293. 

  293. 			$prod = 'product_batch_'.$reg[1].'_'.$reg[2];
    294. 

  294. 			$qty = 'qty_'.$reg[1].'_'.$reg[2];
    295. 

  295. 			$ent = 'entrepot_'.$reg[1].'_'.$reg[2];
    296. 

  296. 			$pu = 'pu_'.$reg[1].'_'.$reg[2];
    297. 

  297. 			$fk_commandefourndet = 'fk_commandefourndet_'.$reg[1].'_'.$reg[2];
    298. 

  298. 			$lot = 'lot_number_'.$reg[1].'_'.$reg[2];
    299. 

  299. 			$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']);
    300. 

  300. 			$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']);
    301. 

  301. 

  302. 			$fk_commandefourndet = 'fk_commandefourndet_'.$reg[1].'_'.$reg[2];
    303. 

  303. 

  304. 			if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
    305. 

  305. 				if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
    306. 

  306. 					$dto = GETPOST("dto_".$reg[1].'_'.$reg[2], 'int');
    307. 

  307. 					if (!empty($dto)) {
    308. 

  308. 						$unit_price = price2num(GETPOST("pu_".$reg[1]) * (100 - $dto) / 100, 'MU');
    309. 

  309. 					}
    310. 

  310. 					$saveprice = "saveprice_".$reg[1].'_'.$reg[2];
    311. 

  311. 				}
    312. 

  312. 			}
    313. 

  313. 

  314. 			// We ask to move a qty
    315. 

  315. 			if (GETPOST($qty) > 0) {
    316. 

  316. 				if (!(GETPOST($ent, 'int') > 0)) {
    317. 

  317. 					dol_syslog('No dispatch for line '.$key.' as no warehouse was chosen.');
    318. 

  318. 					$text = $langs->transnoentities('Warehouse').', '.$langs->transnoentities('Line').' '.($numline).'-'.($reg[1] + 1);
    319. 

  319. 					setEventMessages($langs->trans('ErrorFieldRequired', $text), null, 'errors');
    320. 

  320. 					$error++;
    321. 

  321. 				}
    322. 

  322. 

  323. 				if (!(GETPOST($lot, 'alpha') || $dDLUO || $dDLC)) {
    324. 

  324. 					dol_syslog('No dispatch for line '.$key.' as serial/eat-by/sellby date are not set');
    325. 

  325. 					$text = $langs->transnoentities('atleast1batchfield').', '.$langs->transnoentities('Line').' '.($numline).'-'.($reg[1] + 1);
    326. 

  326. 					setEventMessages($langs->trans('ErrorFieldRequired', $text), null, 'errors');
    327. 

  327. 					$error++;
    328. 

  328. 				}
    329. 

  329. 

  330. 				if (!$error) {
    331. 

  331. 					$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);
    332. 

  332. 					if ($result < 0) {
    333. 

  333. 						setEventMessages($object->error, $object->errors, 'errors');
    334. 

  334. 						$error++;
    335. 

  335. 					}
    336. 

  336. 

  337. 					if (!$error && !empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
    338. 

  338. 						if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
    339. 

  339. 							$dto = GETPOST("dto_".$reg[1].'_'.$reg[2], 'int');
    340. 

  340. 							//update supplier price
    341. 

  341. 							if (GETPOSTISSET($saveprice)) {
    342. 

  342. 								// TODO Use class
    343. 

  343. 								$sql = "UPDATE ".MAIN_DB_PREFIX."product_fournisseur_price";
    344. 

  344. 								$sql .= " SET unitprice = ".price2num(GETPOST($pu), 'MU', 2);
    345. 

  345. 								$sql .= ", price = ".price2num(GETPOST($pu), 'MU', 2)." * quantity";
    346. 

  346. 								$sql .= ", remise_percent = ".price2num((empty($dto) ? 0 : $dto), 3, 2)."'";
    347. 

  347. 								$sql .= " WHERE fk_soc = ".((int) $object->socid);
    348. 

  348. 								$sql .= " AND fk_product=".((int) GETPOST($prod, 'int'));
    349. 

  349. 

  350. 								$resql = $db->query($sql);
    351. 

  351. 							}
    352. 

  352. 						}
    353. 

  353. 					}
    354. 

  354. 				}
    355. 

  355. 			}
    356. 

  356. 		}
    357. 

  357. 	}
    358. 

  358. 

  359. 	if (!$error) {
    360. 

  360. 		$result = $object->calcAndSetStatusDispatch($user, GETPOST('closeopenorder') ? 1 : 0, GETPOST('comment'));
    361. 

  361. 		if ($result < 0) {
    362. 

  362. 			setEventMessages($object->error, $object->errors, 'errors');
    363. 

  363. 			$error++;
    364. 

  364. 		}
    365. 

  365. 	}
    366. 

  366. 

  367. 	if (!$notrigger && !$error) {
    368. 

  368. 		global $conf, $langs, $user;
    369. 

  369. 		// Call trigger
    370. 

  370. 

  371. 		$result = $object->call_trigger('ORDER_SUPPLIER_DISPATCH', $user);
    372. 

  372. 		// End call triggers
    373. 

  373. 

  374. 		if ($result < 0) {
    375. 

  375. 			setEventMessages($object->error, $object->errors, 'errors');
    376. 

  376. 			$error++;
    377. 

  377. 		}
    378. 

  378. 	}
    379. 

  379. 

  380. 	if ($result >= 0 && !$error) {
    381. 

  381. 		$db->commit();
    382. 

  382. 

  383. 		header("Location: dispatch.php?id=".$id);
    384. 

  384. 		exit();
    385. 

  385. 	} else {
    386. 

  386. 		$db->rollback();
    387. 

  387. 	}
    388. 

  388. }
    389. 

  389. 

  390. // Remove a dispatched line
    391. 

  391. if ($action == 'confirm_deleteline' && $confirm == 'yes' && $user->rights->fournisseur->commande->receptionner) {
    392. 

  392. 	$db->begin();
    393. 

  393. 

  394. 	$supplierorderdispatch = new CommandeFournisseurDispatch($db);
    395. 

  395. 	$result = $supplierorderdispatch->fetch($lineid);
    396. 

  396. 	if ($result > 0) {
    397. 

  397. 		$qty = $supplierorderdispatch->qty;
    398. 

  398. 		$entrepot = $supplierorderdispatch->fk_entrepot;
    399. 

  399. 		$product = $supplierorderdispatch->fk_product;
    400. 

  400. 		$price = price2num(GETPOST('price', 'alpha'), 'MU');
    401. 

  401. 		$comment = $supplierorderdispatch->comment;
    402. 

  402. 		$eatby = $supplierorderdispatch->eatby;
    403. 

  403. 		$sellby = $supplierorderdispatch->sellby;
    404. 

  404. 		$batch = $supplierorderdispatch->batch;
    405. 

  405. 

  406. 		$result = $supplierorderdispatch->delete($user);
    407. 

  407. 	}
    408. 

  408. 	if ($result < 0) {
    409. 

  409. 		$errors = $object->errors;
    410. 

  410. 		$error++;
    411. 

  411. 	} else {
    412. 

  412. 		// If module stock is enabled and the stock increase is done on purchase order dispatching
    413. 

  413. 		if ($entrepot > 0 && !empty($conf->stock->enabled) && !empty($conf->global->STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER) && empty($supplierorderdispatch->fk_reception)) {
    414. 

  414. 			$mouv = new MouvementStock($db);
    415. 

  415. 			if ($product > 0) {
    416. 

  416. 				$mouv->origin = &$object;
    417. 

  417. 				$result = $mouv->livraison($user, $product, $entrepot, $qty, $price, $comment, '', $eatby, $sellby, $batch);
    418. 

  418. 				if ($result < 0) {
    419. 

  419. 					$errors = $mouv->errors;
    420. 

  420. 					$error++;
    421. 

  421. 				}
    422. 

  422. 			}
    423. 

  423. 		}
    424. 

  424. 	}
    425. 

  425. 	if ($error > 0) {
    426. 

  426. 		$db->rollback();
    427. 

  427. 		setEventMessages($error, $errors, 'errors');
    428. 

  428. 	} else {
    429. 

  429. 		$db->commit();
    430. 

  430. 	}
    431. 

  431. }
    432. 

  432. 

  433. // Update a dispatched line
    434. 

  434. if ($action == 'updateline' && $user->rights->fournisseur->commande->receptionner) {
    435. 

  435. 	$db->begin();
    436. 

  436. 	$error = 0;
    437. 

  437. 

  438. 	$supplierorderdispatch = new CommandeFournisseurDispatch($db);
    439. 

  439. 	$result = $supplierorderdispatch->fetch($lineid);
    440. 

  440. 	if ($result > 0) {
    441. 

  441. 		$qty = $supplierorderdispatch->qty;
    442. 

  442. 		$entrepot = $supplierorderdispatch->fk_entrepot;
    443. 

  443. 		$product = $supplierorderdispatch->fk_product;
    444. 

  444. 		$price = price2num(GETPOST('price'), '', 2);
    445. 

  445. 		$comment = $supplierorderdispatch->comment;
    446. 

  446. 		$eatby = $supplierorderdispatch->eatby;
    447. 

  447. 		$sellby = $supplierorderdispatch->sellby;
    448. 

  448. 		$batch = $supplierorderdispatch->batch;
    449. 

  449. 

  450. 		$supplierorderdispatch->qty = price2num(GETPOST('qty', 'alpha'), 'MS', 2);
    451. 

  451. 		$supplierorderdispatch->fk_entrepot = GETPOST('fk_entrepot');
    452. 

  452. 		$result = $supplierorderdispatch->update($user);
    453. 

  453. 	}
    454. 

  454. 	if ($result < 0) {
    455. 

  455. 		$error++;
    456. 

  456. 		$errors = $supplierorderdispatch->errors;
    457. 

  457. 	} else {
    458. 

  458. 		// If module stock is enabled and the stock increase is done on purchase order dispatching
    459. 

  459. 		if ($entrepot > 0 && !empty($conf->stock->enabled) && !empty($conf->global->STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER)) {
    460. 

  460. 			$mouv = new MouvementStock($db);
    461. 

  461. 			if ($product > 0) {
    462. 

  462. 				$mouv->origin = &$object;
    463. 

  463. 				$result = $mouv->livraison($user, $product, $entrepot, $qty, $price, $comment, '', $eatby, $sellby, $batch);
    464. 

  464. 				if ($result < 0) {
    465. 

  465. 					$errors = $mouv->errors;
    466. 

  466. 					$error++;
    467. 

  467. 				} else {
    468. 

  468. 					$mouv->origin = &$object;
    469. 

  469. 					$result = $mouv->reception($user, $product, $supplierorderdispatch->fk_entrepot, $supplierorderdispatch->qty, $price, $comment, $eatby, $sellby, $batch);
    470. 

  470. 					if ($result < 0) {
    471. 

  471. 						$errors = $mouv->errors;
    472. 

  472. 						$error++;
    473. 

  473. 					}
    474. 

  474. 				}
    475. 

  475. 			}
    476. 

  476. 		}
    477. 

  477. 	}
    478. 

  478. 	if ($error > 0) {
    479. 

  479. 		$db->rollback();
    480. 

  480. 		setEventMessages($error, $errors, 'errors');
    481. 

  481. 	} else {
    482. 

  482. 		$db->commit();
    483. 

  483. 	}
    484. 

  484. }
    485. 

  485. 

  486. /*
    487. 

  487.  * View
    488. 

  488.  */
    489. 

  489. 

  490. $now = dol_now();
    491. 

  491. 

  492. $form = new Form($db);
    493. 

  493. $formproduct = new FormProduct($db);
    494. 

  494. $warehouse_static = new Entrepot($db);
    495. 

  495. $supplierorderdispatch = new CommandeFournisseurDispatch($db);
    496. 

  496. 

  497. $help_url = 'EN:Module_Suppliers_Orders|FR:CommandeFournisseur|ES:Módulo_Pedidos_a_proveedores';
    498. 

  498. $morejs = array('/fourn/js/lib_dispatch.js.php');
    499. 

  499. 

  500. llxHeader('', $langs->trans("OrderDispatch"), $help_url, '', 0, 0, $morejs);
    501. 

  501. 

  502. if ($id > 0 || !empty($ref)) {
    503. 

  503. 	$soc = new Societe($db);
    504. 

  504. 	$soc->fetch($object->socid);
    505. 

  505. 

  506. 	$author = new User($db);
    507. 

  507. 	$author->fetch($object->user_author_id);
    508. 

  508. 

  509. 	$head = ordersupplier_prepare_head($object);
    510. 

  510. 

  511. 	$title = $langs->trans("SupplierOrder");
    512. 

  512. 	print dol_get_fiche_head($head, 'dispatch', $title, -1, 'order');
    513. 

  513. 

  514. 	$formconfirm = '';
    515. 

  515. 

  516. 	// Confirmation to delete line
    517. 

  517. 	if ($action == 'ask_deleteline') {
    518. 

  518. 		$formconfirm = $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id.'&lineid='.$lineid, $langs->trans('DeleteLine'), $langs->trans('ConfirmDeleteLine'), 'confirm_deleteline', '', 0, 1);
    519. 

  519. 	}
    520. 

  520. 

  521. 	// Call Hook formConfirm
    522. 

  522. 	$parameters = array('lineid' => $lineid);
    523. 

  523. 	// Note that $action and $object may be modified by hook
    524. 

  524. 	$reshook = $hookmanager->executeHooks('formConfirm', $parameters, $object, $action);
    525. 

  525. 	if (empty($reshook)) {
    526. 

  526. 		$formconfirm .= $hookmanager->resPrint;
    527. 

  527. 	} elseif ($reshook > 0) {
    528. 

  528. 		$formconfirm = $hookmanager->resPrint;
    529. 

  529. 	}
    530. 

  530. 

  531. 	// Print form confirm
    532. 

  532. 	print $formconfirm;
    533. 

  533. 

  534. 	// Supplier order card
    535. 

  535. 

  536. 	$linkback = '<a href="'.DOL_URL_ROOT.'/fourn/commande/list.php'.(!empty($socid) ? '?socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
    537. 

  537. 

  538. 	$morehtmlref = '<div class="refidno">';
    539. 

  539. 	// Ref supplier
    540. 

  540. 	$morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
    541. 

  541. 	$morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1);
    542. 

  542. 	// Thirdparty
    543. 

  543. 	$morehtmlref .= '<br>'.$langs->trans('ThirdParty').' : '.$object->thirdparty->getNomUrl(1);
    544. 

  544. 	// Project
    545. 

  545. 	if (!empty($conf->projet->enabled)) {
    546. 

  546. 		$langs->load("projects");
    547. 

  547. 		$morehtmlref .= '<br>'.$langs->trans('Project').' ';
    548. 

  548. 		if ($user->rights->fournisseur->commande->creer || $user->rights->supplier_order->creer) {
    549. 

  549. 			if ($action != 'classify') {
    550. 

  550. 				//$morehtmlref.='<a class="editfielda" href="' . $_SERVER['PHP_SELF'] . '?action=classify&token='.newToken().'&id=' . $object->id . '">' . img_edit($langs->transnoentitiesnoconv('SetProject')) . '</a> : ';
    551. 

  551. 				$morehtmlref .= ' : ';
    552. 

  552. 			}
    553. 

  553. 			if ($action == 'classify') {
    554. 

  554. 				//$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
    555. 

  555. 				$morehtmlref .= '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
    556. 

  556. 				$morehtmlref .= '<input type="hidden" name="action" value="classin">';
    557. 

  557. 				$morehtmlref .= '<input type="hidden" name="token" value="'.newToken().'">';
    558. 

  558. 				$morehtmlref .= $formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
    559. 

  559. 				$morehtmlref .= '<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
    560. 

  560. 				$morehtmlref .= '</form>';
    561. 

  561. 			} else {
    562. 

  562. 				$morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
    563. 

  563. 			}
    564. 

  564. 		} else {
    565. 

  565. 			if (!empty($object->fk_project)) {
    566. 

  566. 				$proj = new Project($db);
    567. 

  567. 				$proj->fetch($object->fk_project);
    568. 

  568. 				$morehtmlref .= ' : '.$proj->getNomUrl(1);
    569. 

  569. 				if ($proj->title) {
    570. 

  570. 					$morehtmlref .= ' - '.$proj->title;
    571. 

  571. 				}
    572. 

  572. 			} else {
    573. 

  573. 				$morehtmlref .= '';
    574. 

  574. 			}
    575. 

  575. 		}
    576. 

  576. 	}
    577. 

  577. 	$morehtmlref .= '</div>';
    578. 

  578. 

  579. 

  580. 	dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);
    581. 

  581. 

  582. 

  583. 	print '<div class="fichecenter">';
    584. 

  584. 	print '<div class="underbanner clearboth"></div>';
    585. 

  585. 

  586. 	print '<table class="border tableforfield" width="100%">';
    587. 

  587. 

  588. 	// Date
    589. 

  589. 	if ($object->methode_commande_id > 0) {
    590. 

  590. 		print '<tr><td class="titlefield">'.$langs->trans("Date").'</td><td>';
    591. 

  591. 		if ($object->date_commande) {
    592. 

  592. 			print dol_print_date($object->date_commande, "dayhour")."\n";
    593. 

  593. 		}
    594. 

  594. 		print "</td></tr>";
    595. 

  595. 

  596. 		if ($object->methode_commande) {
    597. 

  597. 			print '<tr><td>'.$langs->trans("Method").'</td><td>'.$object->getInputMethod().'</td></tr>';
    598. 

  598. 		}
    599. 

  599. 	}
    600. 

  600. 

  601. 	// Author
    602. 

  602. 	print '<tr><td class="titlefield">'.$langs->trans("AuthorRequest").'</td>';
    603. 

  603. 	print '<td>'.$author->getNomUrl(1, '', 0, 0, 0).'</td>';
    604. 

  604. 	print '</tr>';
    605. 

  605. 

  606. 	$parameters = array();
    607. 

  607. 	$reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
    608. 

  608. 

  609. 	print "</table>";
    610. 

  610. 

  611. 	print '</div>';
    612. 

  612. 

  613. 	// if ($mesg) print $mesg;
    614. 

  614. 	print '<br>';
    615. 

  615. 

  616. 	$disabled = 1;
    617. 

  617. 	if (!empty($conf->global->STOCK_CALCULATE_ON_SUPPLIER_DISPATCH_ORDER)) {
    618. 

  618. 		$disabled = 0;
    619. 

  619. 	}
    620. 

  620. 

  621. 	// Line of orders
    622. 

  622. 	if ($object->statut <= CommandeFournisseur::STATUS_ACCEPTED || $object->statut >= CommandeFournisseur::STATUS_CANCELED) {
    623. 

  623. 		print '<br><span class="opacitymedium">'.$langs->trans("OrderStatusNotReadyToDispatch").'</span>';
    624. 

  624. 	}
    625. 

  625. 

  626. 	if ($object->statut == CommandeFournisseur::STATUS_ORDERSENT
    627. 

  627. 		|| $object->statut == CommandeFournisseur::STATUS_RECEIVED_PARTIALLY
    628. 

  628. 		|| $object->statut == CommandeFournisseur::STATUS_RECEIVED_COMPLETELY) {
    629. 

  629. 		require_once DOL_DOCUMENT_ROOT.'/product/class/html.formproduct.class.php';
    630. 

  630. 		$formproduct = new FormProduct($db);
    631. 

  631. 		$formproduct->loadWarehouses();
    632. 

  632. 		$entrepot = new Entrepot($db);
    633. 

  633. 		$listwarehouses = $entrepot->list_array(1);
    634. 

  634. 

  635. 

  636. 		if (empty($conf->reception->enabled)) {
    637. 

  637. 			print '<form method="POST" action="dispatch.php?id='.$object->id.'">';
    638. 

  638. 		} else {
    639. 

  639. 			print '<form method="post" action="'.dol_buildpath('/reception/card.php', 1).'?originid='.$object->id.'&origin=supplierorder">';
    640. 

  640. 		}
    641. 

  641. 

  642. 		print '<input type="hidden" name="token" value="'.newToken().'">';
    643. 

  643. 		if (empty($conf->reception->enabled)) {
    644. 

  644. 			print '<input type="hidden" name="action" value="dispatch">';
    645. 

  645. 		} else {
    646. 

  646. 			print '<input type="hidden" name="action" value="create">';
    647. 

  647. 		}
    648. 

  648. 

  649. 		print '<div class="div-table-responsive-no-min">';
    650. 

  650. 		print '<table class="noborder centpercent">';
    651. 

  651. 

  652. 		// Set $products_dispatched with qty dispatched for each product id
    653. 

  653. 		$products_dispatched = array();
    654. 

  654. 		$sql = "SELECT l.rowid, cfd.fk_product, sum(cfd.qty) as qty";
    655. 

  655. 		$sql .= " FROM ".MAIN_DB_PREFIX."commande_fournisseur_dispatch as cfd";
    656. 

  656. 		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."commande_fournisseurdet as l on l.rowid = cfd.fk_commandefourndet";
    657. 

  657. 		$sql .= " WHERE cfd.fk_commande = ".((int) $object->id);
    658. 

  658. 		$sql .= " GROUP BY l.rowid, cfd.fk_product";
    659. 

  659. 

  660. 		$resql = $db->query($sql);
    661. 

  661. 		if ($resql) {
    662. 

  662. 			$num = $db->num_rows($resql);
    663. 

  663. 			$i = 0;
    664. 

  664. 

  665. 			if ($num) {
    666. 

  666. 				while ($i < $num) {
    667. 

  667. 					$objd = $db->fetch_object($resql);
    668. 

  668. 					$products_dispatched[$objd->rowid] = price2num($objd->qty, 5);
    669. 

  669. 					$i++;
    670. 

  670. 				}
    671. 

  671. 			}
    672. 

  672. 			$db->free($resql);
    673. 

  673. 		}
    674. 

  674. 

  675. 		$sql = "SELECT l.rowid, l.fk_product, l.subprice, l.remise_percent, l.ref AS sref, SUM(l.qty) as qty,";
    676. 

  676. 		$sql .= " p.ref, p.label, p.tobatch, p.fk_default_warehouse";
    677. 

  677. 

  678. 		// Enable hooks to alter the SQL query (SELECT)
    679. 

  679. 		$parameters = array();
    680. 

  680. 		$reshook = $hookmanager->executeHooks(
    681. 

  681. 			'printFieldListSelect',
    682. 

  682. 			$parameters,
    683. 

  683. 			$object,
    684. 

  684. 			$action
    685. 

  685. 		);
    686. 

  686. 		if ($reshook < 0) {
    687. 

  687. 			setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    688. 

  688. 		}
    689. 

  689. 		$sql .= $hookmanager->resPrint;
    690. 

  690. 

  691. 		$sql .= " FROM ".MAIN_DB_PREFIX."commande_fournisseurdet as l";
    692. 

  692. 		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."product as p ON l.fk_product=p.rowid";
    693. 

  693. 		$sql .= " WHERE l.fk_commande = ".((int) $object->id);
    694. 

  694. 		if (empty($conf->global->STOCK_SUPPORTS_SERVICES)) {
    695. 

  695. 			$sql .= " AND l.product_type = 0";
    696. 

  696. 		}
    697. 

  697. 

  698. 		// Enable hooks to alter the SQL query (WHERE)
    699. 

  699. 		$parameters = array();
    700. 

  700. 		$reshook = $hookmanager->executeHooks(
    701. 

  701. 			'printFieldListWhere',
    702. 

  702. 			$parameters,
    703. 

  703. 			$object,
    704. 

  704. 			$action
    705. 

  705. 		);
    706. 

  706. 		if ($reshook < 0) {
    707. 

  707. 			setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    708. 

  708. 		}
    709. 

  709. 		$sql .= $hookmanager->resPrint;
    710. 

  710. 

  711. 		$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
    712. 

  712. 		$sql .= " ORDER BY p.ref, p.label";
    713. 

  713. 

  714. 		$resql = $db->query($sql);
    715. 

  715. 		if ($resql) {
    716. 

  716. 			$num = $db->num_rows($resql);
    717. 

  717. 			$i = 0;
    718. 

  718. 

  719. 			if ($num) {
    720. 

  720. 				print '<tr class="liste_titre">';
    721. 

  721. 

  722. 				print '<td>'.$langs->trans("Description").'</td>';
    723. 

  723. 				if (!empty($conf->productbatch->enabled)) {
    724. 

  724. 					print '<td class="dispatch_batch_number_title">'.$langs->trans("batch_number").'</td>';
    725. 

  725. 					if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    726. 

  726. 						print '<td class="dispatch_dlc_title">'.$langs->trans("SellByDate").'</td>';
    727. 

  727. 					}
    728. 

  728. 					if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    729. 

  729. 						print '<td class="dispatch_dluo_title">'.$langs->trans("EatByDate").'</td>';
    730. 

  730. 					}
    731. 

  731. 				} else {
    732. 

  732. 					print '<td></td>';
    733. 

  733. 					print '<td></td>';
    734. 

  734. 					print '<td></td>';
    735. 

  735. 				}
    736. 

  736. 				print '<td class="right">'.$langs->trans("SupplierRef").'</td>';
    737. 

  737. 				print '<td class="right">'.$langs->trans("QtyOrdered").'</td>';
    738. 

  738. 				print '<td class="right">'.$langs->trans("QtyDispatchedShort").'</td>';
    739. 

  739. 				print ' <td class="right">'.$langs->trans("QtyToDispatchShort");
    740. 

  740. 				print '<br><a href="#" id="autoreset">'.$langs->trans("Reset").'</a></td>';
    741. 

  741. 				print '<td width="32"></td>';
    742. 

  742. 

  743. 				if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
    744. 

  744. 					if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
    745. 

  745. 						print '<td class="right">'.$langs->trans("Price").'</td>';
    746. 

  746. 						print '<td class="right">'.$langs->trans("ReductionShort").' (%)</td>';
    747. 

  747. 						print '<td class="right">'.$langs->trans("UpdatePrice").'</td>';
    748. 

  748. 					}
    749. 

  749. 				}
    750. 

  750. 

  751. 				print '<td align="right">'.$langs->trans("Warehouse");
    752. 

  752. 

  753. 				// Select warehouse to force it everywhere
    754. 

  754. 				if (count($listwarehouses) > 1) {
    755. 

  755. 					print '<br>'.$langs->trans("ForceTo").' '.$form->selectarray('fk_default_warehouse', $listwarehouses, $fk_default_warehouse, 1, 0, 0, '', 0, 0, $disabled, '', 'minwidth100 maxwidth300', 1);
    756. 

  756. 				} elseif (count($listwarehouses) == 1) {
    757. 

  757. 					print '<br>'.$langs->trans("ForceTo").' '.$form->selectarray('fk_default_warehouse', $listwarehouses, $fk_default_warehouse, 0, 0, 0, '', 0, 0, $disabled, '', 'minwidth100 maxwidth300', 1);
    758. 

  758. 				}
    759. 

  759. 

  760. 				print '</td>';
    761. 

  761. 

  762. 				// Enable hooks to append additional columns
    763. 

  763. 				$parameters = array();
    764. 

  764. 				$reshook = $hookmanager->executeHooks(
    765. 

  765. 					'printFieldListTitle',
    766. 

  766. 					$parameters,
    767. 

  767. 					$object,
    768. 

  768. 					$action
    769. 

  769. 				);
    770. 

  770. 				if ($reshook < 0) {
    771. 

  771. 					setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    772. 

  772. 				}
    773. 

  773. 				print $hookmanager->resPrint;
    774. 

  774. 

  775. 				print "</tr>\n";
    776. 

  776. 			}
    777. 

  777. 

  778. 			$nbfreeproduct = 0; // Nb of lins of free products/services
    779. 

  779. 			$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)
    780. 

  780. 									// or nb of line that remain to dispatch if SUPPLIER_ORDER_DISABLE_STOCK_DISPATCH_WHEN_TOTAL_REACHED is on.
    781. 

  781. 

  782. 			while ($i < $num) {
    783. 

  783. 				$objp = $db->fetch_object($resql);
    784. 

  784. 

  785. 				// On n'affiche pas les produits libres
    786. 

  786. 				if (!$objp->fk_product > 0) {
    787. 

  787. 					$nbfreeproduct++;
    788. 

  788. 				} else {
    789. 

  789. 					$remaintodispatch = price2num($objp->qty - ((float) $products_dispatched[$objp->rowid]), 5); // Calculation of dispatched
    790. 

  790. 					if ($remaintodispatch < 0) {
    791. 

  791. 						$remaintodispatch = 0;
    792. 

  792. 					}
    793. 

  793. 

  794. 					if ($remaintodispatch || empty($conf->global->SUPPLIER_ORDER_DISABLE_STOCK_DISPATCH_WHEN_TOTAL_REACHED)) {
    795. 

  795. 						$nbproduct++;
    796. 

  796. 

  797. 						// To show detail cref and description value, we must make calculation by cref
    798. 

  798. 						// print ($objp->cref?' ('.$objp->cref.')':'');
    799. 

  799. 						// if ($objp->description) print '<br>'.nl2br($objp->description);
    800. 

  800. 						$suffix = '_0_'.$i;
    801. 

  801. 

  802. 						print "\n";
    803. 

  803. 						print '<!-- Line to dispatch '.$suffix.' -->'."\n";
    804. 

  804. 						// hidden fields for js function
    805. 

  805. 						print '<input id="qty_ordered'.$suffix.'" type="hidden" value="'.$objp->qty.'">';
    806. 

  806. 						print '<input id="qty_dispatched'.$suffix.'" type="hidden" value="'.(float) $products_dispatched[$objp->rowid].'">';
    807. 

  807. 						print '<tr class="oddeven">';
    808. 

  808. 

  809. 						$linktoprod = '<a href="'.DOL_URL_ROOT.'/product/fournisseurs.php?id='.$objp->fk_product.'">'.img_object($langs->trans("ShowProduct"), 'product').' '.$objp->ref.'</a>';
    810. 

  810. 						$linktoprod .= ' - '.$objp->label."\n";
    811. 

  811. 

  812. 						if (!empty($conf->productbatch->enabled)) {
    813. 

  813. 							if ($objp->tobatch) {
    814. 

  814. 								print '<td>';
    815. 

  815. 								print $linktoprod;
    816. 

  816. 								print "</td>";
    817. 

  817. 								print '<td class="dispatch_batch_number"></td>';
    818. 

  818. 								if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    819. 

  819. 									print '<td class="dispatch_dlc"></td>';
    820. 

  820. 								}
    821. 

  821. 								if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    822. 

  822. 									print '<td class="dispatch_dluo"></td>';
    823. 

  823. 								}
    824. 

  824. 							} else {
    825. 

  825. 								print '<td>';
    826. 

  826. 								print $linktoprod;
    827. 

  827. 								print "</td>";
    828. 

  828. 								print '<td class="dispatch_batch_number">';
    829. 

  829. 								print $langs->trans("ProductDoesNotUseBatchSerial");
    830. 

  830. 								print '</td>';
    831. 

  831. 								if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    832. 

  832. 									print '<td class="dispatch_dlc"></td>';
    833. 

  833. 								}
    834. 

  834. 								if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    835. 

  835. 									print '<td class="dispatch_dluo"></td>';
    836. 

  836. 								}
    837. 

  837. 							}
    838. 

  838. 						} else {
    839. 

  839. 							print '<td colspan="4">';
    840. 

  840. 							print $linktoprod;
    841. 

  841. 							print "</td>";
    842. 

  842. 						}
    843. 

  843. 

  844. 						// Define unit price for PMP calculation
    845. 

  845. 						$up_ht_disc = $objp->subprice;
    846. 

  846. 						if (!empty($objp->remise_percent) && empty($conf->global->STOCK_EXCLUDE_DISCOUNT_FOR_PMP)) {
    847. 

  847. 							$up_ht_disc = price2num($up_ht_disc * (100 - $objp->remise_percent) / 100, 'MU');
    848. 

  848. 						}
    849. 

  849. 

  850. 						// Supplier ref
    851. 

  851. 						print '<td class="right">'.$objp->sref.'</td>';
    852. 

  852. 

  853. 						// Qty ordered
    854. 

  854. 						print '<td class="right">'.$objp->qty.'</td>';
    855. 

  855. 

  856. 						// Already dispatched
    857. 

  857. 						print '<td class="right">'.$products_dispatched[$objp->rowid].'</td>';
    858. 

  858. 

  859. 						if (!empty($conf->productbatch->enabled) && $objp->tobatch > 0) {
    860. 

  860. 							$type = 'batch';
    861. 

  861. 							print '<td class="right">';
    862. 

  862. 							print '</td>'; // Qty to dispatch
    863. 

  863. 							print '<td>';
    864. 

  864. 							//print img_picto($langs->trans('AddDispatchBatchLine'), 'split.png', 'onClick="addDispatchLine(' . $i . ',\'' . $type . '\')"');
    865. 

  865. 							print '</td>'; // Dispatch column
    866. 

  866. 							print '<td></td>'; // Warehouse column
    867. 

  867. 

  868. 							// Enable hooks to append additional columns
    869. 

  869. 							$parameters = array(
    870. 

  870. 								'is_information_row' => true, // allows hook to distinguish between the
    871. 

  871. 															  // rows with information and the rows with
    872. 

  872. 															  // dispatch form input
    873. 

  873. 								'objp' => $objp
    874. 

  874. 							);
    875. 

  875. 							$reshook = $hookmanager->executeHooks(
    876. 

  876. 								'printFieldListValue',
    877. 

  877. 								$parameters,
    878. 

  878. 								$object,
    879. 

  879. 								$action
    880. 

  880. 							);
    881. 

  881. 							if ($reshook < 0) {
    882. 

  882. 								setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    883. 

  883. 							}
    884. 

  884. 							print $hookmanager->resPrint;
    885. 

  885. 

  886. 							print '</tr>';
    887. 

  887. 

  888. 							print '<tr class="oddeven" name="'.$type.$suffix.'">';
    889. 

  889. 							print '<td>';
    890. 

  890. 							print '<input name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
    891. 

  891. 							print '<input name="product_batch'.$suffix.'" type="hidden" value="'.$objp->fk_product.'">';
    892. 

  892. 

  893. 							print '<!-- This is a up (may include discount or not depending on STOCK_EXCLUDE_DISCOUNT_FOR_PMP. will be used for PMP calculation) -->';
    894. 

  894. 							if (!empty($conf->global->SUPPLIER_ORDER_EDIT_BUYINGPRICE_DURING_RECEIPT)) { // Not tested !
    895. 

  895. 								print $langs->trans("BuyingPrice").': <input class="maxwidth75" name="pu'.$suffix.'" type="text" value="'.price2num($up_ht_disc, 'MU').'">';
    896. 

  896. 							} else {
    897. 

  897. 								print '<input class="maxwidth75" name="pu'.$suffix.'" type="hidden" value="'.price2num($up_ht_disc, 'MU').'">';
    898. 

  898. 							}
    899. 

  899. 

  900. 							print '</td>';
    901. 

  901. 

  902. 							print '<td>';
    903. 

  903. 							print '<input type="text" class="inputlotnumber quatrevingtquinzepercent" id="lot_number'.$suffix.'" name="lot_number'.$suffix.'" value="'.GETPOST('lot_number'.$suffix).'">';
    904. 

  904. 							print '</td>';
    905. 

  905. 							if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    906. 

  906. 								print '<td class="nowraponall">';
    907. 

  907. 								$dlcdatesuffix = dol_mktime(0, 0, 0, GETPOST('dlc'.$suffix.'month'), GETPOST('dlc'.$suffix.'day'), GETPOST('dlc'.$suffix.'year'));
    908. 

  908. 								print $form->selectDate($dlcdatesuffix, 'dlc'.$suffix, '', '', 1, '');
    909. 

  909. 								print '</td>';
    910. 

  910. 							}
    911. 

  911. 							if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    912. 

  912. 								print '<td class="nowraponall">';
    913. 

  913. 								$dluodatesuffix = dol_mktime(0, 0, 0, GETPOST('dluo'.$suffix.'month'), GETPOST('dluo'.$suffix.'day'), GETPOST('dluo'.$suffix.'year'));
    914. 

  914. 								print $form->selectDate($dluodatesuffix, 'dluo'.$suffix, '', '', 1, '');
    915. 

  915. 								print '</td>';
    916. 

  916. 							}
    917. 

  917. 							print '<td colspan="3">&nbsp;</td>'; // Supplier ref + Qty ordered + qty already dispatched
    918. 

  918. 						} else {
    919. 

  919. 							$type = 'dispatch';
    920. 

  920. 							$colspan = 7;
    921. 

  921. 							$colspan = (!empty($conf->global->PRODUCT_DISABLE_SELLBY)) ? --$colspan : $colspan;
    922. 

  922. 							$colspan = (!empty($conf->global->PRODUCT_DISABLE_EATBY)) ? --$colspan : $colspan;
    923. 

  923. 							print '<td class="right">';
    924. 

  924. 							print '</td>'; // Qty to dispatch
    925. 

  925. 							print '<td>';
    926. 

  926. 							//print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'onClick="addDispatchLine(' . $i . ',\'' . $type . '\')"');
    927. 

  927. 							print '</td>'; // Dispatch column
    928. 

  928. 							print '<td></td>'; // Warehouse column
    929. 

  929. 

  930. 							// Enable hooks to append additional columns
    931. 

  931. 							$parameters = array(
    932. 

  932. 								'is_information_row' => true, // allows hook to distinguish between the
    933. 

  933. 															  // rows with information and the rows with
    934. 

  934. 															  // dispatch form input
    935. 

  935. 								'objp' => $objp
    936. 

  936. 							);
    937. 

  937. 							$reshook = $hookmanager->executeHooks(
    938. 

  938. 								'printFieldListValue',
    939. 

  939. 								$parameters,
    940. 

  940. 								$object,
    941. 

  941. 								$action
    942. 

  942. 							);
    943. 

  943. 							if ($reshook < 0) {
    944. 

  944. 								setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    945. 

  945. 							}
    946. 

  946. 							print $hookmanager->resPrint;
    947. 

  947. 

  948. 							print '</tr>';
    949. 

  949. 

  950. 							print '<tr class="oddeven" name="'.$type.$suffix.'">';
    951. 

  951. 							print '<td colspan="'.$colspan.'">';
    952. 

  952. 							print '<input name="fk_commandefourndet'.$suffix.'" type="hidden" value="'.$objp->rowid.'">';
    953. 

  953. 							print '<input name="product'.$suffix.'" type="hidden" value="'.$objp->fk_product.'">';
    954. 

  954. 

  955. 							print '<!-- This is a up (may include discount or not depending on STOCK_EXCLUDE_DISCOUNT_FOR_PMP. will be used for PMP calculation) -->';
    956. 

  956. 							if (!empty($conf->global->SUPPLIER_ORDER_EDIT_BUYINGPRICE_DURING_RECEIPT)) { // Not tested !
    957. 

  957. 								print $langs->trans("BuyingPrice").': <input class="maxwidth75" name="pu'.$suffix.'" type="text" value="'.price2num($up_ht_disc, 'MU').'">';
    958. 

  958. 							} else {
    959. 

  959. 								print '<input class="maxwidth75" name="pu'.$suffix.'" type="hidden" value="'.price2num($up_ht_disc, 'MU').'">';
    960. 

  960. 							}
    961. 

  961. 

  962. 							print '</td>';
    963. 

  963. 						}
    964. 

  964. 

  965. 						// Qty to dispatch
    966. 

  966. 						print '<td class="right">';
    967. 

  967. 						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)).'">';
    968. 

  968. 						print '</td>';
    969. 

  969. 

  970. 						print '<td>';
    971. 

  971. 						if (!empty($conf->productbatch->enabled) && $objp->tobatch > 0) {
    972. 

  972. 							$type = 'batch';
    973. 

  973. 							print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'class="splitbutton" onClick="addDispatchLine('.$i.', \''.$type.'\')"');
    974. 

  974. 						} else {
    975. 

  975. 							$type = 'dispatch';
    976. 

  976. 							print img_picto($langs->trans('AddStockLocationLine'), 'split.png', 'class="splitbutton" onClick="addDispatchLine('.$i.', \''.$type.'\')"');
    977. 

  977. 						}
    978. 

  978. 						print '</td>';
    979. 

  979. 

  980. 						if (!empty($conf->global->SUPPLIER_ORDER_CAN_UPDATE_BUYINGPRICE_DURING_RECEIPT)) {
    981. 

  981. 							if (empty($conf->multicurrency->enabled) && empty($conf->dynamicprices->enabled)) {
    982. 

  982. 								// Price
    983. 

  983. 								print '<td class="right">';
    984. 

  984. 								print '<input id="pu'.$suffix.'" name="pu'.$suffix.'" type="text" size="8" value="'.price((GETPOST('pu'.$suffix) != '' ? GETPOST('pu'.$suffix) : $up_ht_disc)).'">';
    985. 

  985. 								print '</td>';
    986. 

  986. 

  987. 								// Discount
    988. 

  988. 								print '<td class="right">';
    989. 

  989. 								print '<input id="dto'.$suffix.'" name="dto'.$suffix.'" type="text" size="8" value="'.(GETPOST('dto'.$suffix) != '' ? GETPOST('dto'.$suffix) : '').'">';
    990. 

  990. 								print '</td>';
    991. 

  991. 

  992. 								// Save price
    993. 

  993. 								print '<td class="center">';
    994. 

  994. 								print '<input class="flat checkformerge" type="checkbox" name="saveprice'.$suffix.'" value="'.(GETPOST('saveprice'.$suffix) != '' ? GETPOST('saveprice'.$suffix) : '').'">';
    995. 

  995. 								print '</td>';
    996. 

  996. 							}
    997. 

  997. 						}
    998. 

  998. 

  999. 						// Warehouse
    1000. 

  1000. 						print '<td class="right">';
    1001. 

  1001. 						if (count($listwarehouses) > 1) {
    1002. 

  1002. 							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);
    1003. 

  1003. 						} elseif (count($listwarehouses) == 1) {
    1004. 

  1004. 							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);
    1005. 

  1005. 						} else {
    1006. 

  1006. 							$langs->load("errors");
    1007. 

  1007. 							print $langs->trans("ErrorNoWarehouseDefined");
    1008. 

  1008. 						}
    1009. 

  1009. 						print "</td>\n";
    1010. 

  1010. 

  1011. 						// Enable hooks to append additional columns
    1012. 

  1012. 						$parameters = array(
    1013. 

  1013. 							'is_information_row' => false // this is a dispatch form row
    1014. 

  1014. 						);
    1015. 

  1015. 						$reshook = $hookmanager->executeHooks(
    1016. 

  1016. 							'printFieldListValue',
    1017. 

  1017. 							$parameters,
    1018. 

  1018. 							$object,
    1019. 

  1019. 							$action
    1020. 

  1020. 						);
    1021. 

  1021. 						if ($reshook < 0) {
    1022. 

  1022. 							setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    1023. 

  1023. 						}
    1024. 

  1024. 						print $hookmanager->resPrint;
    1025. 

  1025. 

  1026. 						print "</tr>\n";
    1027. 

  1027. 					}
    1028. 

  1028. 				}
    1029. 

  1029. 				$i++;
    1030. 

  1030. 			}
    1031. 

  1031. 			$db->free($resql);
    1032. 

  1032. 		} else {
    1033. 

  1033. 			dol_print_error($db);
    1034. 

  1034. 		}
    1035. 

  1035. 

  1036. 		print "</table>\n";
    1037. 

  1037. 		print '</div>';
    1038. 

  1038. 

  1039. 		if ($nbproduct) {
    1040. 

  1040. 			$checkboxlabel = $langs->trans("CloseReceivedSupplierOrdersAutomatically", $langs->transnoentitiesnoconv('StatusOrderReceivedAll'));
    1041. 

  1041. 

  1042. 			print '<div class="center">';
    1043. 

  1043. 			$parameters = array();
    1044. 

  1044. 			$reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been
    1045. 

  1045. 			// modified by hook
    1046. 

  1046. 			if (empty($reshook)) {
    1047. 

  1047. 				if (empty($conf->reception->enabled)) {
    1048. 

  1048. 					print $langs->trans("Comment").' : ';
    1049. 

  1049. 					print '<input type="text" class="minwidth400" maxlength="128" name="comment" value="';
    1050. 

  1050. 					print GETPOSTISSET("comment") ? GETPOST("comment") : $langs->trans("DispatchSupplierOrder", $object->ref);
    1051. 

  1051. 					// print ' / '.$object->ref_supplier; // Not yet available
    1052. 

  1052. 					print '" class="flat"><br>';
    1053. 

  1053. 

  1054. 					print '<input type="checkbox" checked="checked" name="closeopenorder"> '.$checkboxlabel;
    1055. 

  1055. 				}
    1056. 

  1056. 

  1057. 				$dispatchBt = empty($conf->reception->enabled) ? $langs->trans("Receive") : $langs->trans("CreateReception");
    1058. 

  1058. 

  1059. 				print '<br><input type="submit" class="button" name="dispatch" value="'.dol_escape_htmltag($dispatchBt).'"';
    1060. 

  1060. 				if (count($listwarehouses) <= 0) {
    1061. 

  1061. 					print ' disabled';
    1062. 

  1062. 				}
    1063. 

  1063. 				print '>';
    1064. 

  1064. 			}
    1065. 

  1065. 			print '</div>';
    1066. 

  1066. 		}
    1067. 

  1067. 

  1068. 		// Message if nothing to dispatch
    1069. 

  1069. 		if (!$nbproduct) {
    1070. 

  1070. 			print "<br>\n";
    1071. 

  1071. 			if (empty($conf->global->SUPPLIER_ORDER_DISABLE_STOCK_DISPATCH_WHEN_TOTAL_REACHED)) {
    1072. 

  1072. 				print '<div class="opacitymedium">'.$langs->trans("NoPredefinedProductToDispatch").'</div>'; // No predefined line at all
    1073. 

  1073. 			} else {
    1074. 

  1074. 				print '<div class="opacitymedium">'.$langs->trans("NoMorePredefinedProductToDispatch").'</div>'; // No predefined line that remain to be dispatched.
    1075. 

  1075. 			}
    1076. 

  1076. 		}
    1077. 

  1077. 

  1078. 		print '</form>';
    1079. 

  1079. 	}
    1080. 

  1080. 

  1081. 	print dol_get_fiche_end();
    1082. 

  1082. 

  1083. 	// traitement entrepot par défaut
    1084. 

  1084. 	print '<script type="text/javascript">
    1085. 

  1085. 			$(document).ready(function () {
    1086. 

  1086. 				$("select[name=fk_default_warehouse]").change(function() {
    1087. 

  1087. 					var fk_default_warehouse = $("option:selected", this).val();
    1088. 

  1088. 					$("select[name^=entrepot_]").val(fk_default_warehouse).change();
    1089. 

  1089.                 });
    1090. 

  1090. 

  1091. 	            jQuery("#autoreset").click(function() {';
    1092. 

  1092. 	$i = 0;
    1093. 

  1093. 	while ($i < $nbproduct) {
    1094. 

  1094. 		print '           jQuery("#qty_0_'.$i.'").val("");';
    1095. 

  1095. 		$i++;
    1096. 

  1096. 	}
    1097. 

  1097. 	print '
    1098. 

  1098.                 });
    1099. 

  1099. 			});
    1100. 

  1100. 		</script>';
    1101. 

    1102. 

  1102. 	// List of lines already dispatched
    1103. 

  1103. 	$sql = "SELECT p.rowid as pid, p.ref, p.label,";
    1104. 

  1104. 	$sql .= " e.rowid as warehouse_id, e.ref as entrepot,";
    1105. 

  1105. 	$sql .= " cfd.rowid as dispatchlineid, cfd.fk_product, cfd.qty, cfd.eatby, cfd.sellby, cfd.batch, cfd.comment, cfd.status, cfd.datec";
    1106. 

  1106. 	$sql .= " ,cd.rowid, cd.subprice";
    1107. 

  1107. 	if ($conf->reception->enabled) {
    1108. 

  1108. 		$sql .= " ,cfd.fk_reception, r.date_delivery";
    1109. 

  1109. 	}
    1110. 

  1110. 	$sql .= " FROM ".MAIN_DB_PREFIX."product as p,";
    1111. 

  1111. 	$sql .= " ".MAIN_DB_PREFIX."commande_fournisseur_dispatch as cfd";
    1112. 

  1112. 	$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."commande_fournisseurdet as cd ON cd.rowid = cfd.fk_commandefourndet";
    1113. 

  1113. 	$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."entrepot as e ON cfd.fk_entrepot = e.rowid";
    1114. 

  1114. 	if ($conf->reception->enabled) {
    1115. 

  1115. 		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."reception as r ON cfd.fk_reception = r.rowid";
    1116. 

  1116. 	}
    1117. 

  1117. 	$sql .= " WHERE cfd.fk_commande = ".((int) $object->id);
    1118. 

  1118. 	$sql .= " AND cfd.fk_product = p.rowid";
    1119. 

  1119. 	$sql .= " ORDER BY cfd.rowid ASC";
    1120. 

  1120. 

  1121. 	$resql = $db->query($sql);
    1122. 

  1122. 	if ($resql) {
    1123. 

  1123. 		$num = $db->num_rows($resql);
    1124. 

  1124. 		$i = 0;
    1125. 

  1125. 

  1126. 		if ($num > 0) {
    1127. 

  1127. 			print "<br>\n";
    1128. 

  1128. 

  1129. 			print load_fiche_titre($langs->trans("ReceivingForSameOrder"));
    1130. 

  1130. 

  1131. 			print '<div class="div-table-responsive">';
    1132. 

  1132. 			print '<table id="dispatch_received_products" class="noborder centpercent">';
    1133. 

  1133. 

  1134. 			print '<tr class="liste_titre">';
    1135. 

  1135. 			if ($conf->reception->enabled) {
    1136. 

  1136. 				print '<td>'.$langs->trans("Reception").'</td>';
    1137. 

  1137. 			}
    1138. 

  1138. 

  1139. 			print '<td>'.$langs->trans("Product").'</td>';
    1140. 

  1140. 			print '<td>'.$langs->trans("DateCreation").'</td>';
    1141. 

  1141. 			print '<td>'.$langs->trans("DateDeliveryPlanned").'</td>';
    1142. 

  1142. 			if (!empty($conf->productbatch->enabled)) {
    1143. 

  1143. 				print '<td class="dispatch_batch_number_title">'.$langs->trans("batch_number").'</td>';
    1144. 

  1144. 				if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    1145. 

  1145. 					print '<td class="dispatch_dlc_title">'.$langs->trans("SellByDate").'</td>';
    1146. 

  1146. 				}
    1147. 

  1147. 				if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    1148. 

  1148. 					print '<td class="dispatch_dluo_title">'.$langs->trans("EatByDate").'</td>';
    1149. 

  1149. 				}
    1150. 

  1150. 			}
    1151. 

  1151. 			print '<td class="right">'.$langs->trans("QtyDispatched").'</td>';
    1152. 

  1152. 			print '<td>'.$langs->trans("Warehouse").'</td>';
    1153. 

  1153. 			print '<td>'.$langs->trans("Comment").'</td>';
    1154. 

  1154. 

  1155. 			// Status
    1156. 

  1156. 			if (!empty($conf->global->SUPPLIER_ORDER_USE_DISPATCH_STATUS) && empty($reception->rowid)) {
    1157. 

  1157. 				print '<td class="center" colspan="2">'.$langs->trans("Status").'</td>';
    1158. 

  1158. 			} elseif (!empty($conf->reception->enabled)) {
    1159. 

  1159. 				print '<td class="center"></td>';
    1160. 

  1160. 			}
    1161. 

  1161. 

  1162. 			print '<td class="center" colspan="2"></td>';
    1163. 

  1163. 

  1164. 			print "</tr>\n";
    1165. 

  1165. 

  1166. 			while ($i < $num) {
    1167. 

  1167. 				$objp = $db->fetch_object($resql);
    1168. 

  1168. 

  1169. 				if ($action == 'editline' && $lineid == $objp->dispatchlineid) {
    1170. 

  1170. 					print '<form name="editdispatchedlines" id="editdispatchedlines" action="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'#line_'.GETPOST('lineid', 'int').'" method="POST">
    1171. 

  1171. 					<input type="hidden" name="token" value="'.newToken().'">
    1172. 

  1172. 					<input type="hidden" name="action" value="updateline">
    1173. 

  1173. 					<input type="hidden" name="mode" value="">
    1174. 

  1174. 					<input type="hidden" name="lineid" value="'.$objp->dispatchlineid.'">';
    1175. 

  1175. 				}
    1176. 

  1176. 

  1177. 				print '<tr class="oddeven" id="line_'.$objp->dispatchlineid.'" >';
    1178. 

  1178. 

  1179. 				if (!empty($conf->reception->enabled)) {
    1180. 

  1180. 					print '<td>';
    1181. 

  1181. 					if (!empty($objp->fk_reception)) {
    1182. 

  1182. 						$reception = new Reception($db);
    1183. 

  1183. 						$reception->fetch($objp->fk_reception);
    1184. 

  1184. 						print $reception->getNomUrl(1);
    1185. 

  1185. 					}
    1186. 

  1186. 

  1187. 					print "</td>";
    1188. 

  1188. 				}
    1189. 

  1189. 

  1190. 				print '<td>';
    1191. 

  1191. 				print '<a href="'.DOL_URL_ROOT.'/product/fournisseurs.php?id='.$objp->fk_product.'">'.img_object($langs->trans("ShowProduct"), 'product').' '.$objp->ref.'</a>';
    1192. 

  1192. 				print ' - '.$objp->label;
    1193. 

  1193. 				print "</td>\n";
    1194. 

  1194. 				print '<td>'.dol_print_date($db->jdate($objp->datec), 'day').'</td>';
    1195. 

  1195. 				print '<td>'.dol_print_date($db->jdate($objp->date_delivery), 'day').'</td>';
    1196. 

  1196. 

  1197. 				if (!empty($conf->productbatch->enabled)) {
    1198. 

  1198. 					if ($objp->batch) {
    1199. 

  1199. 						include_once DOL_DOCUMENT_ROOT.'/product/stock/class/productlot.class.php';
    1200. 

  1200. 						$lot = new Productlot($db);
    1201. 

  1201. 						$lot->fetch(0, $objp->pid, $objp->batch);
    1202. 

  1202. 						print '<td class="dispatch_batch_number">'.$lot->getNomUrl(1).'</td>';
    1203. 

  1203. 						if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    1204. 

  1204. 							print '<td class="dispatch_dlc">'.dol_print_date($lot->sellby, 'day').'</td>';
    1205. 

  1205. 						}
    1206. 

  1206. 						if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    1207. 

  1207. 							print '<td class="dispatch_dluo">'.dol_print_date($lot->eatby, 'day').'</td>';
    1208. 

  1208. 						}
    1209. 

  1209. 					} else {
    1210. 

  1210. 						print '<td class="dispatch_batch_number"></td>';
    1211. 

  1211. 						if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    1212. 

  1212. 							print '<td class="dispatch_dlc"></td>';
    1213. 

  1213. 						}
    1214. 

  1214. 						if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    1215. 

  1215. 							print '<td class="dispatch_dluo"></td>';
    1216. 

  1216. 						}
    1217. 

  1217. 					}
    1218. 

  1218. 				}
    1219. 

  1219. 

  1220. 				// Qty
    1221. 

  1221. 				print '<td class="right">';
    1222. 

  1222. 				if ($action == 'editline' && $lineid == $objp->dispatchlineid) {
    1223. 

  1223. 					print '<input style="width: 50px;" type="text" min="1" name="qty" value="'.$objp->qty.'" />';
    1224. 

  1224. 				} else {
    1225. 

  1225. 					print $objp->qty;
    1226. 

  1226. 				}
    1227. 

  1227. 				print '<input type="hidden" name="price" value="'.$objp->subprice.'" />';
    1228. 

  1228. 				print '</td>';
    1229. 

  1229. 

  1230. 				// Warehouse
    1231. 

  1231. 				print '<td>';
    1232. 

  1232. 				if ($action == 'editline' && $lineid == $objp->dispatchlineid) {
    1233. 

  1233. 					if (count($listwarehouses) > 1) {
    1234. 

  1234. 						print $formproduct->selectWarehouses(GETPOST("fk_entrepot") ?GETPOST("fk_entrepot") : ($objp->warehouse_id ? $objp->warehouse_id : ''), "fk_entrepot", '', 1, 0, $objp->fk_product, '', 1, 1, null, 'csswarehouse');
    1235. 

  1235. 					} elseif (count($listwarehouses) == 1) {
    1236. 

  1236. 						print $formproduct->selectWarehouses(GETPOST("fk_entrepot") ?GETPOST("fk_entrepot") : ($objp->warehouse_id ? $objp->warehouse_id : ''), "fk_entrepot", '', 0, 0, $objp->fk_product, '', 1, 1, null, 'csswarehouse');
    1237. 

  1237. 					} else {
    1238. 

  1238. 						$langs->load("errors");
    1239. 

  1239. 						print $langs->trans("ErrorNoWarehouseDefined");
    1240. 

  1240. 					}
    1241. 

  1241. 				} else {
    1242. 

  1242. 					$warehouse_static->id = $objp->warehouse_id;
    1243. 

  1243. 					$warehouse_static->label = $objp->entrepot;
    1244. 

  1244. 					print $warehouse_static->getNomUrl(1);
    1245. 

  1245. 				}
    1246. 

  1246. 				print '</td>';
    1247. 

  1247. 

  1248. 				// Comment
    1249. 

  1249. 				print '<td class="tdoverflowmax300" style="white-space: pre;">'.$objp->comment.'</td>';
    1250. 

  1250. 

  1251. 				// Status
    1252. 

  1252. 				if (!empty($conf->global->SUPPLIER_ORDER_USE_DISPATCH_STATUS) && empty($reception->rowid)) {
    1253. 

  1253. 					print '<td class="right">';
    1254. 

  1254. 					$supplierorderdispatch->status = (empty($objp->status) ? 0 : $objp->status);
    1255. 

  1255. 					// print $supplierorderdispatch->status;
    1256. 

  1256. 					print $supplierorderdispatch->getLibStatut(5);
    1257. 

  1257. 					print '</td>';
    1258. 

  1258. 

  1259. 					// Add button to check/uncheck disaptching
    1260. 

  1260. 					print '<td class="center">';
    1261. 

  1261. 					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))) {
    1262. 

  1262. 						if (empty($objp->status)) {
    1263. 

  1263. 							print '<a class="button buttonRefused" href="#">'.$langs->trans("Approve").'</a>';
    1264. 

  1264. 							print '<a class="button buttonRefused" href="#">'.$langs->trans("Deny").'</a>';
    1265. 

  1265. 						} else {
    1266. 

  1266. 							print '<a class="button buttonRefused" href="#">'.$langs->trans("Disapprove").'</a>';
    1267. 

  1267. 							print '<a class="button buttonRefused" href="#">'.$langs->trans("Deny").'</a>';
    1268. 

  1268. 						}
    1269. 

  1269. 					} else {
    1270. 

  1270. 						$disabled = '';
    1271. 

  1271. 						if ($object->statut == 5) {
    1272. 

  1272. 							$disabled = 1;
    1273. 

  1273. 						}
    1274. 

  1274. 						if (empty($objp->status)) {
    1275. 

  1275. 							print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=checkdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Approve").'</a>';
    1276. 

  1276. 							print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=denydispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Deny").'</a>';
    1277. 

  1277. 						}
    1278. 

  1278. 						if ($objp->status == 1) {
    1279. 

  1279. 							print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=uncheckdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Reinit").'</a>';
    1280. 

  1280. 							print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=denydispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Deny").'</a>';
    1281. 

  1281. 						}
    1282. 

  1282. 						if ($objp->status == 2) {
    1283. 

  1283. 							print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=uncheckdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Reinit").'</a>';
    1284. 

  1284. 							print '<a class="button'.($disabled ? ' buttonRefused' : '').'" href="'.$_SERVER["PHP_SELF"]."?id=".$id."&action=checkdispatchline&lineid=".$objp->dispatchlineid.'">'.$langs->trans("Approve").'</a>';
    1285. 

  1285. 						}
    1286. 

  1286. 					}
    1287. 

  1287. 					print '</td>';
    1288. 

  1288. 				} elseif (!empty($conf->reception->enabled)) {
    1289. 

  1289. 					print '<td class="right">';
    1290. 

  1290. 					i…
    1291.

Large files files are truncated, but you can click here to view the full file