dolibarr 19.0.3
mo.php
Go to the documentation of this file.
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.'/core/class/html.formother.class.php';
33
34// Load translation files required by the page
35$langs->loadLangs(array('mrp', 'products', 'companies'));
36
37$id = GETPOST('id', 'int');
38$ref = GETPOST('ref', 'alpha');
39
40// Security check
41$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
42$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
43if ($user->socid) {
44 $socid = $user->socid;
45}
46
47// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
48$hookmanager->initHooks(array('productstatsmo'));
49
50// Load variable for pagination
51$limit = GETPOST('limit', 'int') ? GETPOST('limit', 'int') : $conf->liste_limit;
52$sortfield = GETPOST('sortfield', 'aZ09comma');
53$sortorder = GETPOST('sortorder', 'aZ09comma');
54$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
55if (empty($page) || $page == -1) {
56 $page = 0;
57} // If $page is not defined, or '' or -1
58$offset = $limit * $page;
59$pageprev = $page - 1;
60$pagenext = $page + 1;
61if (!$sortorder) {
62 $sortorder = "DESC";
63}
64if (!$sortfield) {
65 $sortfield = "c.date_valid";
66}
67
68$search_month = GETPOST('search_month', 'int');
69$search_year = GETPOST('search_year', 'int');
70
71if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
72 $search_month = '';
73 $search_year = '';
74}
75
76$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
77
78
79/*
80 * View
81 */
82
83$staticmo = new Mo($db);
84$staticmoligne = new MoLine($db);
85
86$form = new Form($db);
87$formother = new FormOther($db);
88
89if ($id > 0 || !empty($ref)) {
90 $product = new Product($db);
91 $result = $product->fetch($id, $ref);
92
93 $object = $product;
94
95 $parameters = array('id'=>$id);
96 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
97 if ($reshook < 0) {
98 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
99 }
100
101 llxHeader("", "", $langs->trans("CardProduct".$product->type));
102
103 if ($result > 0) {
104 $head = product_prepare_head($product);
105 $titre = $langs->trans("CardProduct".$product->type);
106 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
107 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
108
109 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
110 print $hookmanager->resPrint;
111 if ($reshook < 0) {
112 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
113 }
114
115 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
116
117 $shownav = 1;
118 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
119 $shownav = 0;
120 }
121
122 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
123
124 print '<div class="fichecenter">';
125
126 print '<div class="underbanner clearboth"></div>';
127 print '<table class="border tableforfield" width="100%">';
128
129 $nboflines = show_stats_for_company($product, $socid);
130
131 print "</table>";
132
133 print '</div>';
134 print '<div class="clearboth"></div>';
135
136 print dol_get_fiche_end();
137
138
139 $now = dol_now();
140
141 $sql = "SELECT";
142 $sql .= " sum(".$db->ifsql("cd.role='toconsume'", "cd.qty", 0).') as nb_toconsume,';
143 $sql .= " sum(".$db->ifsql("cd.role='consumed'", "cd.qty", 0).') as nb_consumed,';
144 $sql .= " sum(".$db->ifsql("cd.role='toproduce'", "cd.qty", 0).') as nb_toproduce,';
145 $sql .= " sum(".$db->ifsql("cd.role='produced'", "cd.qty", 0).') as nb_produced,';
146 $sql .= " c.rowid as rowid, c.ref, c.date_valid, c.status";
147 //$sql .= " s.nom as name, s.rowid as socid, s.code_client";
148 $sql .= " FROM ".MAIN_DB_PREFIX."mrp_mo as c";
149 $sql .= ", ".MAIN_DB_PREFIX."mrp_production as cd";
150 $sql .= " WHERE c.rowid = cd.fk_mo";
151 $sql .= " AND c.entity IN (".getEntity('mo').")";
152 $sql .= " AND cd.fk_product = ".((int) $product->id);
153 if (!empty($search_month)) {
154 $sql .= ' AND MONTH(c.date_valid) IN ('.$db->sanitize($search_month).')';
155 }
156 if (!empty($search_year)) {
157 $sql .= ' AND YEAR(c.date_valid) IN ('.$db->sanitize($search_year).')';
158 }
159 if ($socid) {
160 $sql .= " AND s.rowid = ".((int) $socid);
161 }
162 $sql .= " GROUP BY c.rowid, c.ref, c.date_valid, c.status";
163 //$sql .= ", s.nom, s.rowid, s.code_client";
164 $sql .= $db->order($sortfield, $sortorder);
165
166 //Calcul total qty and amount for global if full scan list
167 $total_ht = 0;
168 $total_qty = 0;
169
170 // Count total nb of records
171 $totalofrecords = '';
172 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
173 $result = $db->query($sql);
174 $totalofrecords = $db->num_rows($result);
175 }
176
177 $sql .= $db->plimit($limit + 1, $offset);
178
179 $result = $db->query($sql);
180 if ($result) {
181 $num = $db->num_rows($result);
182
183 $option = '&id='.$product->id;
184
185 if ($limit > 0 && $limit != $conf->liste_limit) {
186 $option .= '&limit='.((int) $limit);
187 }
188 if (!empty($search_month)) {
189 $option .= '&search_month='.urlencode($search_month);
190 }
191 if (!empty($search_year)) {
192 $option .= '&search_year='.urlencode($search_year);
193 }
194
195 print '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
196 print '<input type="hidden" name="token" value="'.newToken().'">';
197 if (!empty($sortfield)) {
198 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
199 }
200 if (!empty($sortorder)) {
201 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
202 }
203
204 print_barre_liste($langs->trans("MOs"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
205
206 if (!empty($page)) {
207 $option .= '&page='.urlencode($page);
208 }
209
210 print '<div class="liste_titre liste_titre_bydiv centpercent">';
211 print '<div class="divsearchfield">';
212 print $langs->trans('Period').' ('.$langs->trans("DateCreation").') - ';
213 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.$search_month.'"> ';
214 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
215 print '<div style="vertical-align: middle; display: inline-block">';
216 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")).'">';
217 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")).'">';
218 print '</div>';
219 print '</div>';
220 print '</div>';
221
222 $i = 0;
223 print '<div class="div-table-responsive">';
224 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
225
226 print '<tr class="liste_titre">';
227 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "c.rowid", "", "&amp;id=".$product->id, '', $sortfield, $sortorder);
228 //print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", "&amp;id=".$product->id, '', $sortfield, $sortorder);
229 print_liste_field_titre("Date", $_SERVER["PHP_SELF"], "c.date_valid", "", "&amp;id=".$product->id, 'align="center"', $sortfield, $sortorder);
230 //print_liste_field_titre("AmountHT"),$_SERVER["PHP_SELF"],"c.amount","","&amp;id=".$product->id,'align="right"',$sortfield,$sortorder);
231 print_liste_field_titre("ToConsume", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$product->id, '', $sortfield, $sortorder, 'center ');
232 print_liste_field_titre("QtyAlreadyConsumed", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$product->id, '', $sortfield, $sortorder, 'center ');
233 print_liste_field_titre("QtyToProduce", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$product->id, '', $sortfield, $sortorder, 'center ');
234 print_liste_field_titre("QtyAlreadyProduced", $_SERVER["PHP_SELF"], "", "", "&amp;id=".$product->id, '', $sortfield, $sortorder, 'center ');
235 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "b.status", "", "&amp;id=".$product->id, '', $sortfield, $sortorder, 'right ');
236 print "</tr>\n";
237
238 $motmp = new Mo($db);
239
240 if ($num > 0) {
241 while ($i < min($num, $limit)) {
242 $objp = $db->fetch_object($result);
243
244 $motmp->id = $objp->rowid;
245 $motmp->ref = $objp->ref;
246 $motmp->status = $objp->status;
247
248 print '<tr class="oddeven">';
249 print '<td>';
250 print $motmp->getNomUrl(1, 'production');
251 print "</td>\n";
252 print "<td align=\"center\">";
253 print dol_print_date($db->jdate($objp->date_valid), 'dayhour')."</td>";
254 //print "<td align=\"right\">".price($objp->total_ht)."</td>\n";
255 //print '<td align="right">';
256 print '<td class="center">'.($objp->nb_toconsume > 0 ? $objp->nb_toconsume : '').'</td>';
257 print '<td class="center">'.($objp->nb_consumed > 0 ? $objp->nb_consumed : '').'</td>';
258 print '<td class="center">'.($objp->nb_toproduce > 0 ? $objp->nb_toproduce : '').'</td>';
259 print '<td class="center">'.($objp->nb_produced > 0 ? $objp->nb_produced : '').'</td>';
260 //$mostatic->LibStatut($objp->statut,5).'</td>';
261 print '<td class="right">'.$motmp->getLibStatut(2).'</td>';
262 print "</tr>\n";
263 $i++;
264 }
265 }
266
267 print '</table>';
268 print '</div>';
269 print '</form>';
270 } else {
271 dol_print_error($db);
272 }
273 $db->free($result);
274 }
275} else {
277}
278
279// End of page
280llxFooter();
281$db->close();
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.
Classe 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.
const TYPE_SERVICE
Service.
dol_banner_tab($object, $paramid, $morehtml='', $shownav=1, $fieldid='rowid', $fieldref='ref', $morehtmlref='', $moreparam='', $nodbprefix=0, $morehtmlleft='', $morehtmlstatus='', $onlybanner=0, $morehtmlright='')
Show tab footer of a card.
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_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_get_fiche_end($notab=0)
Return tab footer of a card.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
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.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
print_barre_liste($titre, $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.
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 company.
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.