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