dolibarr 21.0.0-beta
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
44// Load translation files required by the page
45$langs->loadLangs(array('mrp', 'products', 'companies', 'productbatch'));
46
47$id = GETPOSTINT('id');
48$ref = GETPOST('ref', 'alpha');
49
50// Security check
51$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
52$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
53$socid = 0;
54if ($user->socid) {
55 $socid = $user->socid;
56}
57
58// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
59$hookmanager->initHooks(array('batchproductstatsmo'));
60
61// Load variable for pagination
62$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
63$sortfield = GETPOST('sortfield', 'aZ09comma');
64$sortorder = GETPOST('sortorder', 'aZ09comma');
65$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
66if (empty($page) || $page == -1) {
67 $page = 0;
68} // If $page is not defined, or '' or -1
69$offset = $limit * $page;
70$pageprev = $page - 1;
71$pagenext = $page + 1;
72if (empty($sortorder)) {
73 $sortorder = "DESC";
74}
75if (empty($sortfield)) {
76 $sortfield = "c.date_valid";
77}
78
79$search_month = GETPOSTINT('search_month');
80$search_year = GETPOSTINT('search_year');
81
82if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
83 $search_month = '';
84 $search_year = '';
85}
86
87if (!$user->hasRight('produit', 'lire')) {
89}
90
91
92/*
93 * View
94 */
95
96$staticmo = new Mo($db);
97$staticmoligne = new MoLine($db);
98
99$form = new Form($db);
100$formother = new FormOther($db);
101
102if ($id > 0 || !empty($ref)) {
103 $object = new Productlot($db);
104 $batch = '';
105 $objectid = 0;
106 if ($ref) {
107 $tmp = explode('_', $ref);
108 $objectid = $tmp[0];
109 $batch = $tmp[1];
110 }
111 $result = $object->fetch($id, $objectid, $batch);
112
113 $parameters = array('id' => $id);
114 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
115 if ($reshook < 0) {
116 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
117 }
118
119 $helpurl = '';
120 $shortlabel = dol_trunc($object->batch, 16);
121 $title = $langs->trans('Batch')." ".$shortlabel." - ".$langs->trans('Referers');
122 $helpurl = 'EN:Module_Products|FR:Module_Produits|ES:M&oacute;dulo_Productos';
123
124 llxHeader('', $title, $helpurl, '', 0, 0, '', '', '', 'mod-product page-stock-stats_mo');
125
126 if ($result > 0) {
128 $titre = $langs->trans("CardProduct".$object->type);
129 $picto = 'lot';
130 $morehtmlref = '';
131 print dol_get_fiche_head($head, 'referers', $langs->trans("Batch"), -1, $object->picto);
132
133 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
134 print $hookmanager->resPrint;
135 if ($reshook < 0) {
136 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
137 }
138
139 $linkback = '<a href="'.DOL_URL_ROOT.'/product/stock/productlot_list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
140
141 $shownav = 1;
142 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
143 $shownav = 0;
144 }
145
146 dol_banner_tab($object, 'id', $linkback, $shownav, 'rowid', 'batch', $morehtmlref);
147
148 print '<div class="fichecenter">';
149
150 print '<div class="underbanner clearboth"></div>';
151 print '<table class="border tableforfield" width="100%">';
152
153 // Product
154 print '<tr><td class="titlefield">'.$langs->trans("Product").'</td><td>';
155 $producttmp = new Product($db);
156 $producttmp->fetch($object->fk_product);
157 print $producttmp->getNomUrl(1, 'stock')." - ".$producttmp->label;
158 print '</td></tr>';
159 print "</table>";
160
161 echo '<br>';
162
163 print '<table class="border centpercent tableforfield" width="100%">';
164
165 $nboflines = show_stats_for_batch($object, $socid);
166
167 print "</table>";
168
169 print '</div>';
170 print '<div class="clearboth"></div>';
171
172 print dol_get_fiche_end();
173
174
175 $now = dol_now();
176
177 $sql = "SELECT";
178 // $sql .= " sum(".$db->ifsql("cd.role='toconsume'", "cd.qty", 0).') as nb_toconsume,';
179 $sql .= " sum(".$db->ifsql("cd.role='consumed'", "cd.qty", 0).') as nb_consumed,';
180 // $sql .= " sum(".$db->ifsql("cd.role='toproduce'", "cd.qty", 0).') as nb_toproduce,';
181 $sql .= " sum(".$db->ifsql("cd.role='produced'", "cd.qty", 0).') as nb_produced,';
182 $sql .= " c.rowid as rowid, c.ref, c.date_valid, c.status";
183 //$sql .= " s.nom as name, s.rowid as socid, s.code_client";
184 $sql .= " FROM ".MAIN_DB_PREFIX."mrp_mo as c";
185 $sql .= ", ".MAIN_DB_PREFIX."mrp_production as cd";
186 $sql .= " WHERE c.rowid = cd.fk_mo";
187 $sql .= " AND c.entity IN (".getEntity('mo').")";
188 $sql .= " AND cd.batch = '".($db->escape($object->batch))."'";
189 if (!empty($search_month)) {
190 $sql .= ' AND MONTH(c.date_valid) IN ('.$db->sanitize($search_month).')';
191 }
192 if (!empty($search_year)) {
193 $sql .= ' AND YEAR(c.date_valid) IN ('.$db->sanitize($search_year).')';
194 }
195 if ($socid > 0) {
196 $sql .= " AND s.rowid = ".((int) $socid);
197 }
198 $sql .= " GROUP BY c.rowid, c.ref, c.date_valid, c.status";
199 //$sql .= ", s.nom, s.rowid, s.code_client";
200 $sql .= $db->order($sortfield, $sortorder);
201
202 //Calcul total qty and amount for global if full scan list
203 $total_ht = 0;
204 $total_qty = 0;
205
206 // Count total nb of records
207 $totalofrecords = '';
208 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
209 $result = $db->query($sql);
210 $totalofrecords = $db->num_rows($result);
211 }
212
213 $sql .= $db->plimit($limit + 1, $offset);
214
215 $result = $db->query($sql);
216 if ($result) {
217 $num = $db->num_rows($result);
218
219 $option = '&id='.$object->id;
220
221 if ($limit > 0 && $limit != $conf->liste_limit) {
222 $option .= '&limit='.((int) $limit);
223 }
224 if (!empty($search_month)) {
225 $option .= '&search_month='.urlencode((string) ($search_month));
226 }
227 if (!empty($search_year)) {
228 $option .= '&search_year='.urlencode((string) ($search_year));
229 }
230
231 print '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'" name="search_form">'."\n";
232 print '<input type="hidden" name="token" value="'.newToken().'">';
233 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
234 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
235
236 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
237 print_barre_liste($langs->trans("MOs"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
238
239 if (!empty($page)) {
240 $option .= '&page='.urlencode((string) ($page));
241 }
242
243 print '<div class="liste_titre liste_titre_bydiv centpercent">';
244 print '<div class="divsearchfield">';
245 print $langs->trans('Period').' ('.$langs->trans("DateCreation").') - ';
246 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.$search_month.'"> ';
247 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
248 print '<div style="vertical-align: middle; display: inline-block">';
249 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")).'">';
250 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")).'">';
251 print '</div>';
252 print '</div>';
253 print '</div>';
254
255 $i = 0;
256 print '<div class="div-table-responsive">';
257 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
258
259 print '<tr class="liste_titre">';
260
261 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "c.rowid", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder);
262 //print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", "&amp;id=".$object->id, '', $sortfield, $sortorder);
263 print_liste_field_titre("Date", $_SERVER["PHP_SELF"], "c.date_valid", "", $option."&amp;id=".$object->id, 'align="center"', $sortfield, $sortorder);
264 //print_liste_field_titre("AmountHT"),$_SERVER["PHP_SELF"],"c.amount","","&amp;id=".$object->id,'align="right"',$sortfield,$sortorder);
265 // print_liste_field_titre("ToConsume", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
266 print_liste_field_titre("QtyAlreadyConsumed", $_SERVER["PHP_SELF"], "", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
267 // print_liste_field_titre("QtyToProduce", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
268 print_liste_field_titre("QtyAlreadyProduced", $_SERVER["PHP_SELF"], "", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder, 'center ');
269 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "c.status", "", $option."&amp;id=".$object->id, '', $sortfield, $sortorder, 'right ');
270 print "</tr>\n";
271
272 $motmp = new Mo($db);
273
274 $total_consumed = $total_produced = 0;
275
276 if ($num > 0) {
277 while ($i < min($num, $limit)) {
278 $objp = $db->fetch_object($result);
279
280 $motmp->id = $objp->rowid;
281 $motmp->ref = $objp->ref;
282 $motmp->status = $objp->status;
283
284 $total_consumed += $objp->nb_consumed;
285 $total_produced += $objp->nb_produced;
286
287 print '<tr class="oddeven">';
288 print '<td>';
289 print $motmp->getNomUrl(1, 'production');
290 print "</td>\n";
291 print "<td align=\"center\">";
292 print dol_print_date($db->jdate($objp->date_valid), 'dayhour')."</td>";
293 //print "<td align=\"right\">".price($objp->total_ht)."</td>\n";
294 //print '<td align="right">';
295 // print '<td class="center">'.($objp->nb_toconsume > 0 ? $objp->nb_toconsume : '').'</td>';
296 print '<td class="center">'.($objp->nb_consumed > 0 ? $objp->nb_consumed : '').'</td>';
297 // print '<td class="center">'.($objp->nb_toproduce > 0 ? $objp->nb_toproduce : '').'</td>';
298 print '<td class="center">'.($objp->nb_produced > 0 ? $objp->nb_produced : '').'</td>';
299 //$mostatic->LibStatut($objp->statut,5).'</td>';
300 print '<td class="right">'.$motmp->getLibStatut(2).'</td>';
301 print "</tr>\n";
302 $i++;
303 }
304 }
305 print '<tr class="liste_total">';
306 if ($num < $limit) {
307 print '<td class="left">'.$langs->trans("Total").'</td>';
308 } else {
309 print '<td class="left">'.$langs->trans("Totalforthispage").'</td>';
310 }
311 print '<td></td>';
312 print '<td class="center">'.$total_consumed.'</td>';
313 print '<td class="center">'.$total_produced.'</td>';
314 print '<td></td>';
315 print "</table>";
316 print '</div>';
317 print '</form>';
318
319 print '</table>';
320 print '</div>';
321 print '</form>';
322 } else {
323 dol_print_error($db);
324 }
325 $db->free($result);
326 }
327} else {
329}
330
331// End of page
332llxFooter();
333$db->close();
$id
Definition account.php:48
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:66
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:71
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.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $selectlimitsuffix=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
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.
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...
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
Definition member.php:79
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.