dolibarr 21.0.0-alpha
mo.php
1<?php
2/* Copyright (C) 2003-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2021 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2023 Gauthier VERDOL <gauthier.verdol@atm-consulting.fr>
6 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
7 *
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 3 of the License, or
11 * (at your option) any later version.
12 *
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with this program. If not, see <https://www.gnu.org/licenses/>.
20 */
21
28// Load Dolibarr environment
29require '../../../main.inc.php';
30require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
31require_once DOL_DOCUMENT_ROOT.'/mrp/class/mo.class.php';
32require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
33require_once DOL_DOCUMENT_ROOT.'/product/stock/class/productlot.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('mrp', 'products', 'companies', 'productbatch'));
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');
45if ($user->socid) {
46 $socid = $user->socid;
47}
48
49// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
50$hookmanager->initHooks(array('batchproductstatsmo'));
51
52// Load variable for pagination
53$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
54$sortfield = GETPOST('sortfield', 'aZ09comma');
55$sortorder = GETPOST('sortorder', 'aZ09comma');
56$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
57if (empty($page) || $page == -1) {
58 $page = 0;
59} // If $page is not defined, or '' or -1
60$offset = $limit * $page;
61$pageprev = $page - 1;
62$pagenext = $page + 1;
63if (!$sortorder) {
64 $sortorder = "DESC";
65}
66if (!$sortfield) {
67 $sortfield = "c.date_valid";
68}
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}
77
78if (!$user->hasRight('produit', 'lire')) {
80}
81
82
83/*
84 * View
85 */
86
87$staticmo = new Mo($db);
88$staticmoligne = new MoLine($db);
89
90$form = new Form($db);
91$formother = new FormOther($db);
92
93if ($id > 0 || !empty($ref)) {
94 $object = new Productlot($db);
95 if ($ref) {
96 $tmp = explode('_', $ref);
97 $objectid = $tmp[0];
98 $batch = $tmp[1];
99 }
100 $result = $object->fetch($id, $objectid, $batch);
101
102 $parameters = array('id' => $id);
103 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
104 if ($reshook < 0) {
105 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
106 }
107
108 $helpurl = '';
109 $shortlabel = dol_trunc($object->batch, 16);
110 $title = $langs->trans('Batch')." ".$shortlabel." - ".$langs->trans('Referers');
111 $helpurl = 'EN:Module_Products|FR:Module_Produits|ES:M&oacute;dulo_Productos';
112
113 llxHeader('', $title, $helpurl, '', 0, 0, '', '', '', 'mod-product page-stock-stats_mo');
114
115 if ($result > 0) {
117 $titre = $langs->trans("CardProduct".$object->type);
118 $picto = 'lot';
119 print dol_get_fiche_head($head, 'referers', $langs->trans("Batch"), -1, $object->picto);
120
121 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
122 print $hookmanager->resPrint;
123 if ($reshook < 0) {
124 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
125 }
126
127 $linkback = '<a href="'.DOL_URL_ROOT.'/product/stock/productlot_list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
128
129 $shownav = 1;
130 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
131 $shownav = 0;
132 }
133
134 dol_banner_tab($object, 'id', $linkback, $shownav, 'rowid', 'batch', $morehtmlref);
135
136 print '<div class="fichecenter">';
137
138 print '<div class="underbanner clearboth"></div>';
139 print '<table class="border tableforfield" width="100%">';
140
141 // Product
142 print '<tr><td class="titlefield">'.$langs->trans("Product").'</td><td>';
143 $producttmp = new Product($db);
144 $producttmp->fetch($object->fk_product);
145 print $producttmp->getNomUrl(1, 'stock')." - ".$producttmp->label;
146 print '</td></tr>';
147 print "</table>";
148
149 echo '<br>';
150
151 print '<table class="border centpercent tableforfield" width="100%">';
152
153 $nboflines = show_stats_for_batch($object, $socid);
154
155 print "</table>";
156
157 print '</div>';
158 print '<div class="clearboth"></div>';
159
160 print dol_get_fiche_end();
161
162
163 $now = dol_now();
164
165 $sql = "SELECT";
166 // $sql .= " sum(".$db->ifsql("cd.role='toconsume'", "cd.qty", 0).') as nb_toconsume,';
167 $sql .= " sum(".$db->ifsql("cd.role='consumed'", "cd.qty", 0).') as nb_consumed,';
168 // $sql .= " sum(".$db->ifsql("cd.role='toproduce'", "cd.qty", 0).') as nb_toproduce,';
169 $sql .= " sum(".$db->ifsql("cd.role='produced'", "cd.qty", 0).') as nb_produced,';
170 $sql .= " c.rowid as rowid, c.ref, c.date_valid, c.status";
171 //$sql .= " s.nom as name, s.rowid as socid, s.code_client";
172 $sql .= " FROM ".MAIN_DB_PREFIX."mrp_mo as c";
173 $sql .= ", ".MAIN_DB_PREFIX."mrp_production as cd";
174 $sql .= " WHERE c.rowid = cd.fk_mo";
175 $sql .= " AND c.entity IN (".getEntity('mo').")";
176 $sql .= " AND cd.batch = '".($db->escape($object->batch))."'";
177 if (!empty($search_month)) {
178 $sql .= ' AND MONTH(c.date_valid) IN ('.$db->sanitize($search_month).')';
179 }
180 if (!empty($search_year)) {
181 $sql .= ' AND YEAR(c.date_valid) IN ('.$db->sanitize($search_year).')';
182 }
183 if ($socid) {
184 $sql .= " AND s.rowid = ".((int) $socid);
185 }
186 $sql .= " GROUP BY c.rowid, c.ref, c.date_valid, c.status";
187 //$sql .= ", s.nom, s.rowid, s.code_client";
188 $sql .= $db->order($sortfield, $sortorder);
189
190 //Calcul total qty and amount for global if full scan list
191 $total_ht = 0;
192 $total_qty = 0;
193
194 // Count total nb of records
195 $totalofrecords = '';
196 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
197 $result = $db->query($sql);
198 $totalofrecords = $db->num_rows($result);
199 }
200
201 $sql .= $db->plimit($limit + 1, $offset);
202
203 $result = $db->query($sql);
204 if ($result) {
205 $num = $db->num_rows($result);
206
207 $option = '&id='.$object->id;
208
209 if ($limit > 0 && $limit != $conf->liste_limit) {
210 $option .= '&limit='.((int) $limit);
211 }
212 if (!empty($search_month)) {
213 $option .= '&search_month='.urlencode((string) ($search_month));
214 }
215 if (!empty($search_year)) {
216 $option .= '&search_year='.urlencode((string) ($search_year));
217 }
218
219 print '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'" name="search_form">'."\n";
220 print '<input type="hidden" name="token" value="'.newToken().'">';
221 if (!empty($sortfield)) {
222 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
223 }
224 if (!empty($sortorder)) {
225 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
226 }
227
228 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
229 print_barre_liste($langs->trans("MOs"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
230
231 if (!empty($page)) {
232 $option .= '&page='.urlencode((string) ($page));
233 }
234
235 print '<div class="liste_titre liste_titre_bydiv centpercent">';
236 print '<div class="divsearchfield">';
237 print $langs->trans('Period').' ('.$langs->trans("DateCreation").') - ';
238 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.$search_month.'"> ';
239 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
240 print '<div style="vertical-align: middle; display: inline-block">';
241 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")).'">';
242 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")).'">';
243 print '</div>';
244 print '</div>';
245 print '</div>';
246
247 $i = 0;
248 print '<div class="div-table-responsive">';
249 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
250
251 print '<tr class="liste_titre">';
252
253 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "c.rowid", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder);
254 //print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", "&amp;id=".$object->id, '', $sortfield, $sortorder);
255 print_liste_field_titre("Date", $_SERVER["PHP_SELF"], "c.date_valid", "", $option."&amp;id=".$object->id, 'align="center"', $sortfield, $sortorder);
256 //print_liste_field_titre("AmountHT"),$_SERVER["PHP_SELF"],"c.amount","","&amp;id=".$object->id,'align="right"',$sortfield,$sortorder);
257 // print_liste_field_titre("ToConsume", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
258 print_liste_field_titre("QtyAlreadyConsumed", $_SERVER["PHP_SELF"], "", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
259 // print_liste_field_titre("QtyToProduce", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
260 print_liste_field_titre("QtyAlreadyProduced", $_SERVER["PHP_SELF"], "", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
261 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "c.status", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder, 'right ');
262 print "</tr>\n";
263
264 $motmp = new Mo($db);
265
266 $total_consumed = $total_produced = 0;
267
268 if ($num > 0) {
269 while ($i < min($num, $limit)) {
270 $objp = $db->fetch_object($result);
271
272 $motmp->id = $objp->rowid;
273 $motmp->ref = $objp->ref;
274 $motmp->status = $objp->status;
275
276 $total_consumed += $objp->nb_consumed;
277 $total_produced += $objp->nb_produced;
278
279 print '<tr class="oddeven">';
280 print '<td>';
281 print $motmp->getNomUrl(1, 'production');
282 print "</td>\n";
283 print "<td align=\"center\">";
284 print dol_print_date($db->jdate($objp->date_valid), 'dayhour')."</td>";
285 //print "<td align=\"right\">".price($objp->total_ht)."</td>\n";
286 //print '<td align="right">';
287 // print '<td class="center">'.($objp->nb_toconsume > 0 ? $objp->nb_toconsume : '').'</td>';
288 print '<td class="center">'.($objp->nb_consumed > 0 ? $objp->nb_consumed : '').'</td>';
289 // print '<td class="center">'.($objp->nb_toproduce > 0 ? $objp->nb_toproduce : '').'</td>';
290 print '<td class="center">'.($objp->nb_produced > 0 ? $objp->nb_produced : '').'</td>';
291 //$mostatic->LibStatut($objp->statut,5).'</td>';
292 print '<td class="right">'.$motmp->getLibStatut(2).'</td>';
293 print "</tr>\n";
294 $i++;
295 }
296 }
297 print '<tr class="liste_total">';
298 if ($num < $limit) {
299 print '<td class="left">'.$langs->trans("Total").'</td>';
300 } else {
301 print '<td class="left">'.$langs->trans("Totalforthispage").'</td>';
302 }
303 print '<td></td>';
304 print '<td class="center">'.$total_consumed.'</td>';
305 print '<td class="center">'.$total_produced.'</td>';
306 print '<td></td>';
307 print "</table>";
308 print '</div>';
309 print '</form>';
310
311 print '</table>';
312 print '</div>';
313 print '</form>';
314 } else {
315 dol_print_error($db);
316 }
317 $db->free($result);
318 }
319} else {
321}
322
323// End of page
324llxFooter();
325$db->close();
$id
Definition account.php:39
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($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Definition wrapper.php:70
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 for Mo.
Definition mo.class.php:34
Class MoLine.
Class to manage products or services.
Class with list of lots and properties.
llxFooter()
Footer empty.
Definition document.php:107
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
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.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
dol_now($mode='auto')
Return date for now.
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.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
getDolGlobalString($key, $default='')
Return a 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...
show_stats_for_batch($batch, $socid)
Show stats for product batch.
productlot_prepare_head($object)
Prepare array with list of tabs.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.