dolibarr 20.0.0
expedition.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2003-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2009 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2014 Florian Henry <florian.henry@open-concept.pro>
6 * Copyright (C) 2024 Jean-Rémi Taponier <jean-remi@netlogic.fr>
7 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
8 *
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 3 of the License, or
12 * (at your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this program. If not, see <https://www.gnu.org/licenses/>.
21 */
22
29// Load Dolibarr environment
30require '../../main.inc.php';
31require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
32require_once DOL_DOCUMENT_ROOT.'/expedition/class/expedition.class.php';
33require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
34require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
35
36// Load translation files required by the page
37$langs->loadLangs(array('orders', 'sendings', 'products', 'companies'));
38
39$id = GETPOSTINT('id');
40$ref = GETPOST('ref', 'alpha');
41
42// Security check
43$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
44$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
45$socid = '';
46if (!empty($user->socid)) {
47 $socid = $user->socid;
48}
49
50// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
51$hookmanager->initHooks(array('productstatsexpedition'));
52
53// Load variable for pagination
54$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
55$sortfield = GETPOST('sortfield', 'aZ09comma');
56$sortorder = GETPOST('sortorder', 'aZ09comma');
57$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
58if (empty($page) || $page == -1) {
59 $page = 0;
60} // If $page is not defined, or '' or -1
61$offset = $limit * $page;
62$pageprev = $page - 1;
63$pagenext = $page + 1;
64if (!$sortorder) {
65 $sortorder = "DESC";
66}
67if (!$sortfield) {
68 $sortfield = "e.date_creation";
69}
70$search_month = GETPOSTINT('search_month');
71$search_year = GETPOSTINT('search_year');
72
73if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
74 $search_month = '';
75 $search_year = '';
76 $search_status = '';
77}
78
79$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
80
81
82/*
83 * View
84 */
85
86$expeditionstatic = new Expedition($db);
87$societestatic = new Societe($db);
88
89$form = new Form($db);
90$formother = new FormOther($db);
91
92if ($id > 0 || !empty($ref)) {
93 $product = new Product($db);
94 $result = $product->fetch($id, $ref);
95
96 $object = $product;
97
98 $parameters = array('id' => $id);
99 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
100 if ($reshook < 0) {
101 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
102 }
103
104 llxHeader("", "", $langs->trans("CardProduct".$product->type), '', '', 0, 0, '', '', 'mod-product page-stats_expedition');
105
106 if ($result > 0) {
107 $head = product_prepare_head($product);
108 $titre = $langs->trans("CardProduct".$product->type);
109 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
110 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
111
112 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
113 print $hookmanager->resPrint;
114 if ($reshook < 0) {
115 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
116 }
117
118 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
119
120 $shownav = 1;
121 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
122 $shownav = 0;
123 }
124
125 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
126
127 print '<div class="fichecenter">';
128
129 print '<div class="underbanner clearboth"></div>';
130 print '<table class="border tableforfield" width="100%">';
131
132 $nboflines = show_stats_for_company($product, $socid);
133
134 print "</table>";
135
136 print '</div>';
137 print '<div class="clearboth"></div>';
138
139 print dol_get_fiche_end();
140
141
142 if ($user->hasRight('shipping', 'lire')) {
143 $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, s.code_client, e.ref, e.ref_customer";
144 $sql .= ", e.date_creation, e.date_delivery, e.fk_statut as statut, e.rowid as expeditionid, ed.rowid";
145 $sql .= ", ed.qty , cd.subprice * (100 - cd.remise_percent) / 100 * ed.qty AS total_ht";
146 if (empty($user->rights->societe->client->voir) && !$socid) {
147 $sql .= ", sc.fk_soc, sc.fk_user ";
148 }
149 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
150 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."expedition as e ON e.fk_soc = s.rowid";
151 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."expeditiondet as ed ON ed.fk_expedition = e.rowid";
152 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."commandedet as cd ON cd.rowid = ed.fk_elementdet AND (ed.element_type = 'commande' OR ed.element_type = 'order')";
153 if (empty($user->rights->societe->client->voir) && !$socid) {
154 $sql .= " INNER JOIN ".MAIN_DB_PREFIX."societe_commerciaux as sc ON s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
155 }
156 $sql .= " WHERE e.entity IN (".getEntity('expedition').")";
157 $sql .= " AND cd.fk_product = ".((int) $product->id);
158 if (!empty($search_month)) {
159 $sql .= ' AND MONTH(e.date_creation) IN ('.$db->sanitize($search_month).')';
160 }
161 if (!empty($search_year)) {
162 $sql .= ' AND YEAR(e.date_creation) IN ('.$db->sanitize($search_year).')';
163 }
164 if ($socid) {
165 $sql .= " AND e.fk_soc = ".((int) $socid);
166 }
167 $sql .= $db->order($sortfield, $sortorder);
168
169 //Calcul total qty and amount for global if full scan list
170 $total_ht = 0;
171 $total_qty = 0;
172
173 // Count total nb of records
174 $totalofrecords = '';
175 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
176 $result = $db->query($sql);
177 $totalofrecords = $db->num_rows($result);
178 }
179
180 $sql .= $db->plimit($limit + 1, $offset);
181
182 $result = $db->query($sql);
183 if ($result) {
184 $num = $db->num_rows($result);
185
186 $option = '&id='.$product->id;
187
188 if ($limit > 0 && $limit != $conf->liste_limit) {
189 $option .= '&limit='.((int) $limit);
190 }
191 if (!empty($search_month)) {
192 $option .= '&search_month='.urlencode((string) ($search_month));
193 }
194 if (!empty($search_year)) {
195 $option .= '&search_year='.urlencode((string) ($search_year));
196 }
197
198 print '<form method="post" action="'.$_SERVER ['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
199 print '<input type="hidden" name="token" value="'.newToken().'">';
200 if (!empty($sortfield)) {
201 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
202 }
203 if (!empty($sortorder)) {
204 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
205 }
206
207 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
208 print_barre_liste($langs->trans("Shipments"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
209
210 if (!empty($page)) {
211 $option .= '&page='.urlencode((string) ($page));
212 }
213
214 print '<div class="liste_titre liste_titre_bydiv centpercent">';
215 print '<div class="divsearchfield">';
216 print $langs->trans('Period').' ('.$langs->trans("DateCreation").') - ';
217 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.($search_month > 0 ? $search_month : '').'"> ';
218 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
219 print '<div style="vertical-align: middle; display: inline-block">';
220 print '<input type="image" class="liste_titre" name="button_search" src="'.img_picto($langs->trans("Search"), 'search.png', '', 0, 1).'" value="'.dol_escape_htmltag($langs->trans("Search")).'" title="'.dol_escape_htmltag($langs->trans("Search")).'">';
221 print '<input type="image" class="liste_titre" name="button_removefilter" src="'.img_picto($langs->trans("Search"), 'searchclear.png', '', 0, 1).'" value="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'" title="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'">';
222 print '</div>';
223 print '</div>';
224 print '</div>';
225
226 $i = 0;
227 print '<div class="div-table-responsive">';
228 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
229 print '<tr class="liste_titre">';
230 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "e.rowid", "", $option, '', $sortfield, $sortorder);
231 print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
232 print_liste_field_titre("CustomerCode", $_SERVER["PHP_SELF"], "s.code_client", "", $option, '', $sortfield, $sortorder);
233 print_liste_field_titre("DateCreation", $_SERVER["PHP_SELF"], "e.date_creation", "", $option, 'align="center"', $sortfield, $sortorder);
234 print_liste_field_titre('DateDeliveryPlanned', $_SERVER['PHP_SELF'], 'e.date_delivery', '', $option, 'align="center"', $sortfield, $sortorder);
235 print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "ed.qty", "", $option, 'align="center"', $sortfield, $sortorder);
236 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
237 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "e.fk_statut", "", $option, 'align="right"', $sortfield, $sortorder);
238 print "</tr>\n";
239
240 if ($num > 0) {
241 while ($i < min($num, $limit)) {
242 $objp = $db->fetch_object($result);
243
244 $objp->total_ht = price2num($objp->total_ht, 'MT');
245 $total_ht += $objp->total_ht;
246 $total_qty += $objp->qty;
247
248 $expeditionstatic->id = $objp->expeditionid;
249 $expeditionstatic->ref = $objp->ref;
250 $expeditionstatic->ref_customer = $objp->ref_customer;
251 $societestatic->fetch($objp->socid);
252
253 print '<tr class="oddeven">';
254 print '<td>';
255 print $expeditionstatic->getNomUrl(1);
256 print "</td>\n";
257 print '<td>'.$societestatic->getNomUrl(1).'</td>';
258 print "<td>".$objp->code_client."</td>\n";
259 print '<td class="center">';
260 print dol_print_date($db->jdate($objp->date_creation), 'dayhour')."</td>";
261 // delivery planned date
262 print '<td class="center">';
263 print dol_print_date($db->jdate($objp->date_delivery), 'dayhour');
264 print '</td>';
265 print '<td class="center">'.$objp->qty."</td>\n";
266 print '<td align="right">'.price($objp->total_ht)."</td>\n";
267 print '<td align="right">'.$expeditionstatic->LibStatut($objp->statut, 4).'</td>';
268 print "</tr>\n";
269 $i++;
270 }
271 }
272 print '<tr class="liste_total">';
273 if ($num < $limit && empty($offset)) {
274 print '<td>'.$langs->trans("Total").'</td>';
275 } else {
276 print '<td>'.$form->textwithpicto($langs->trans("Total"), $langs->trans("Totalforthispage")).'</td>';
277 }
278 print '<td colspan="3"></td>';
279 print '<td></td>';
280 print '<td class="center">'.$total_qty.'</td>';
281 print '<td align="right">'.price($total_ht).'</td>';
282 print '<td></td>';
283 print "</table>";
284 print "</div>";
285 print '</form>';
286 } else {
287 dol_print_error($db);
288 }
289 $db->free($result);
290 }
291 }
292} else {
294}
295
296// End of page
297llxFooter();
298$db->close();
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to manage shipments.
Class to manage generation of HTML components Only common components must be here.
Class permettant la generation de composants html autre Only common components are here.
Class to manage products or services.
const TYPE_SERVICE
Service.
Class to manage third parties objects (customers, suppliers, prospects...)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $hideselectlimit=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
product_prepare_head($object)
Prepare array with list of tabs.
show_stats_for_company($product, $socid)
Show stats for a product.
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.