dolibarr  20.0.0-beta
objectline_view.tpl.php
1 <?php
2 /* Copyright (C) 2010-2013 Regis Houssin <regis.houssin@inodbox.com>
3  * Copyright (C) 2010-2011 Laurent Destailleur <eldy@users.sourceforge.net>
4  * Copyright (C) 2012-2013 Christophe Battarel <christophe.battarel@altairis.fr>
5  * Copyright (C) 2012 Cédric Salvador <csalvador@gpcsolutions.fr>
6  * Copyright (C) 2012-2014 Raphaël Doursenaud <rdoursenaud@gpcsolutions.fr>
7  * Copyright (C) 2013 Florian Henry <florian.henry@open-concept.pro>
8  * Copyright (C) 2017 Juanjo Menent <jmenent@2byte.es>
9  * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
10  *
11  * This program is free software; you can redistribute it and/or modify
12  * it under the terms of the GNU General Public License as published by
13  * the Free Software Foundation; either version 3 of the License, or
14  * (at your option) any later version.
15  *
16  * This program is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19  * GNU General Public License for more details.
20  *
21  * You should have received a copy of the GNU General Public License
22  * along with this program. If not, see <https://www.gnu.org/licenses/>.
23  *
24  * Need to have following variables defined:
25  * $object (invoice, order, ...)
26  * $conf
27  * $langs
28  * $forceall (0 by default, 1 for supplier invoices/orders)
29  * $element (used to test $user->hasRight($element, 'creer'))
30  * $permtoedit (used to replace test $user->hasRight($element, 'creer'))
31  * $inputalsopricewithtax (0 by default, 1 to also show column with unit price including tax)
32  * $object_rights->creer initialized from = $object->getRights()
33  * $disableedit, $disablemove, $disableremove
34  *
35  * $type, $text, $description, $line
36  */
37 
42 '@phan-var-force CommonObjectLine $line
43  @phan-var-force int $num
44  @phan-var-force CommonObject $this
45  @phan-var-force CommonObject $object';
46 
47 require_once DOL_DOCUMENT_ROOT.'/workstation/class/workstation.class.php';
48 
49 // Protection to avoid direct call of template
50 if (empty($object) || !is_object($object)) {
51  print "Error, template page can't be called as URL";
52  exit(1);
53 }
54 
55 
56 global $filtertype;
57 if (empty($filtertype)) {
58  $filtertype = 0;
59 }
60 
61 
62 global $forceall, $senderissupplier, $inputalsopricewithtax, $outputalsopricetotalwithtax, $langs;
63 
64 if (empty($dateSelector)) {
65  $dateSelector = 0;
66 }
67 if (empty($forceall)) {
68  $forceall = 0;
69 }
70 if (empty($senderissupplier)) {
71  $senderissupplier = 0;
72 }
73 if (empty($inputalsopricewithtax)) {
74  $inputalsopricewithtax = 0;
75 }
76 if (empty($outputalsopricetotalwithtax)) {
77  $outputalsopricetotalwithtax = 0;
78 }
79 
80 // add html5 elements
81 if ($filtertype == 1) {
82  $domData = ' data-element="'.$line->element.'service"';
83 } else {
84  $domData = ' data-element="'.$line->element.'"';
85 }
86 
87 $domData .= ' data-id="'.$line->id.'"';
88 $domData .= ' data-qty="'.$line->qty.'"';
89 $domData .= ' data-product_type="'.$line->product_type.'"';
90 
91 // Lines for extrafield
92 $objectline = new BOMLine($object->db);
93 
94 $coldisplay = 0;
95 print "<!-- BEGIN PHP TEMPLATE objectline_view.tpl.php -->\n";
96 print '<tr id="row-'.$line->id.'" class="drag drop oddeven" '.$domData.' >';
97 
98 // Line nb
99 if (getDolGlobalString('MAIN_VIEW_LINE_NUMBER')) {
100  print '<td class="linecolnum center">'.($i + 1).'</td>';
101  $coldisplay++;
102 }
103 
104 // Product
105 print '<td class="linecoldescription minwidth300imp">';
106 print '<div id="line_'.$line->id.'"></div>';
107 $coldisplay++;
108 $tmpproduct = new Product($object->db);
109 $tmpproduct->fetch($line->fk_product);
110 $tmpbom = new BOM($object->db);
111 $res = $tmpbom->fetch($line->fk_bom_child);
112 if ($tmpbom->id > 0) {
113  print $tmpproduct->getNomUrl(1);
114  print ' '.$langs->trans("or").' ';
115  print $tmpbom->getNomUrl(1);
116  print ' <a class="collapse_bom" id="collapse-'.$line->id.'" href="#">';
117  print(!getDolGlobalString('BOM_SHOW_ALL_BOM_BY_DEFAULT') ? img_picto('', 'folder') : img_picto('', 'folder-open'));
118  print '</a>';
119 } else {
120  print $tmpproduct->getNomUrl(1);
121  print ' - '.$tmpproduct->label;
122 }
123 
124 // Line extrafield
125 if (!empty($extrafields)) {
126  $temps = $line->showOptionals($extrafields, 'view', array(), '', '', 1, 'line');
127  if (!empty($temps)) {
128  print '<div style="padding-top: 10px" id="extrafield_lines_area_'.$line->id.'" name="extrafield_lines_area_'.$line->id.'">';
129  print $temps;
130  print '</div>';
131  }
132 }
133 
134 print '</td>';
135 
136 // Qty
137 print '<td class="linecolqty nowrap right">';
138 $coldisplay++;
139 echo price($line->qty, 0, '', 0, 0); // Yes, it is a quantity, not a price, but we just want the formatting role of function price
140 print '</td>';
141 
142 if ($filtertype != 1) {
143  if (getDolGlobalInt('PRODUCT_USE_UNITS')) {
144  print '<td class="linecoluseunit nowrap left">';
145  $label = measuringUnitString($line->fk_unit, '', '', 1);
146  if ($label !== '') {
147  print $langs->trans($label);
148  }
149  print '</td>';
150  }
151 
152  print '<td class="linecolqtyfrozen nowrap right">';
153  $coldisplay++;
154  echo $line->qty_frozen ? yn($line->qty_frozen) : '';
155  print '</td>';
156  print '<td class="linecoldisablestockchange nowrap right">';
157  $coldisplay++;
158  echo $line->disable_stock_change ? yn($line->disable_stock_change) : ''; // Yes, it is a quantity, not a price, but we just want the formatting role of function price
159  print '</td>';
160 
161  print '<td class="linecolefficiency nowrap right">';
162  $coldisplay++;
163  echo $line->efficiency;
164  print '</td>';
165 } else {
166  // Unit
167  print '<td class="linecolunit nowrap right">';
168  $coldisplay++;
169 
170  if (!empty($line->fk_unit)) {
171  require_once DOL_DOCUMENT_ROOT.'/core/class/cunits.class.php';
172  $unit = new CUnits($this->db);
173  $unit->fetch($line->fk_unit);
174  print(isset($unit->label) ? "&nbsp;".$langs->trans(ucwords($unit->label))."&nbsp;" : '');
175  }
176 
177  print '</td>';
178 
179  // Work station
180  if (isModEnabled('workstation')) {
181  $workstation = new Workstation($object->db);
182  $res = $workstation->fetch($line->fk_default_workstation);
183 
184  print '<td class="linecolworkstation nowrap right">';
185  $coldisplay++;
186  if ($res > 0) {
187  echo $workstation->getNomUrl(1);
188  }
189  print '</td>';
190  }
191 }
192 
193 // Cost
194 $total_cost = 0;
195 $tmpbom->calculateCosts();
196 print '<td id="costline_'.$line->id.'" class="linecolcost nowrap right">';
197 $coldisplay++;
198 if (!empty($line->fk_bom_child)) {
199  echo '<span class="amount">'.price($tmpbom->total_cost * (float) $line->qty).'</span>';
200 } else {
201  echo '<span class="amount">'.price($line->total_cost).'</span>';
202 }
203 print '</td>';
204 
205 if ($this->status == 0 && ($object_rights->write) && $action != 'selectlines') {
206  print '<td class="linecoledit center">';
207  $coldisplay++;
208  if (($line->info_bits & 2) == 2 || !empty($disableedit)) {
209  } else {
210  print '<a class="editfielda reposition" href="'.$_SERVER["PHP_SELF"].'?id='.$this->id.'&action=editline&token='.newToken().'&lineid='.$line->id.'">'.img_edit().'</a>';
211  }
212  print '</td>';
213 
214  print '<td class="linecoldelete center">';
215  $coldisplay++;
216  if (($line->fk_prev_id == null) && empty($disableremove)) {
217  //La suppression n'est autorisée que si il n'y a pas de ligne dans une précédente situation
218  print '<a class="reposition" href="'.$_SERVER["PHP_SELF"].'?id='.$this->id.'&action=deleteline&token='.newToken().'&lineid='.$line->id.'">';
219  print img_delete();
220  print '</a>';
221  }
222  print '</td>';
223 
224  if ($num > 1 && $conf->browser->layout != 'phone' && empty($disablemove)) {
225  print '<td class="linecolmove tdlineupdown center">';
226  $coldisplay++;
227  if ($i > 0) {
228  print '<a class="lineupdown" href="'.$_SERVER["PHP_SELF"].'?id='.$this->id.'&action=up&token='.newToken().'&rowid='.$line->id.'">';
229  echo img_up('default', 0, 'imgupforline');
230  print '</a>';
231  }
232  if ($i < $num - 1) {
233  print '<a class="lineupdown" href="'.$_SERVER["PHP_SELF"].'?id='.$this->id.'&action=down&token='.newToken().'&rowid='.$line->id.'">';
234  echo img_down('default', 0, 'imgdownforline');
235  print '</a>';
236  }
237  print '</td>';
238  } else {
239  print '<td '.(($conf->browser->layout != 'phone' && empty($disablemove)) ? ' class="linecolmove tdlineupdown center"' : ' class="linecolmove center"').'></td>';
240  $coldisplay++;
241  }
242 } else {
243  print '<td colspan="3"></td>';
244  $coldisplay = $coldisplay + 3;
245 }
246 
247 if ($action == 'selectlines') {
248  print '<td class="linecolcheck center">';
249  print '<input type="checkbox" class="linecheckbox" name="line_checkbox['.($i + 1).']" value="'.$line->id.'" >';
250  print '</td>';
251 }
252 
253 print '</tr>';
254 
255 // Select of all the sub-BOM lines
256 // From this point to the end of the file, we only take care of sub-BOM lines
257 $sql = 'SELECT rowid, fk_bom_child, fk_product, qty FROM '.MAIN_DB_PREFIX.'bom_bomline AS bl';
258 $sql .= ' WHERE fk_bom ='. (int) $tmpbom->id;
259 $resql = $object->db->query($sql);
260 
261 if ($resql) {
262  // Loop on all the sub-BOM lines if they exist
263  while ($obj = $object->db->fetch_object($resql)) {
264  $sub_bom_product = new Product($object->db);
265  $sub_bom_product->fetch($obj->fk_product);
266 
267  $sub_bom = new BOM($object->db);
268  if (!empty($obj->fk_bom_child)) {
269  $sub_bom->fetch($obj->fk_bom_child);
270  }
271 
272  $sub_bom_line = new BOMLine($object->db);
273  $sub_bom_line->fetch($obj->rowid);
274 
275  //If hidden conf is set, we show directly all the sub-BOM lines
276  if (!getDolGlobalString('BOM_SHOW_ALL_BOM_BY_DEFAULT')) {
277  print '<tr style="display:none" class="sub_bom_lines" parentid="'.$line->id.'">';
278  } else {
279  print '<tr class="sub_bom_lines" parentid="'.$line->id.'">';
280  }
281 
282  // Product OR BOM
283  print '<td style="padding-left: 5%" id="sub_bom_product_'.$sub_bom_line->id.'">';
284  if (!empty($obj->fk_bom_child)) {
285  print $sub_bom_product->getNomUrl(1);
286  print ' '.$langs->trans('or').' ';
287  print $sub_bom->getNomUrl(1);
288  } else {
289  print $sub_bom_product->getNomUrl(1);
290  print '</td>';
291  }
292 
293  // Qty
294  $label = $sub_bom_product->getLabelOfUnit('long');
295  if ($sub_bom_line->qty_frozen > 0) {
296  print '<td class="linecolqty nowrap right" id="sub_bom_qty_'.$sub_bom_line->id.'">'.price($sub_bom_line->qty, 0, '', 0, 0).'</td>';
297  if (getDolGlobalString('PRODUCT_USE_UNITS')) {
298  print '<td class="linecoluseunit nowrap left">';
299  if ($label !== '') {
300  print $langs->trans($label);
301  }
302  print '</td>';
303  }
304  print '<td class="linecolqtyfrozen nowrap right" id="sub_bom_qty_frozen_'.$sub_bom_line->id.'">'.$langs->trans('Yes').'</td>';
305  } else {
306  print '<td class="linecolqty nowrap right" id="sub_bom_qty_'.$sub_bom_line->id.'">'.price($sub_bom_line->qty * (float) $line->qty, 0, '', 0, 0).'</td>';
307  if (getDolGlobalString('PRODUCT_USE_UNITS')) {
308  print '<td class="linecoluseunit nowrap left">';
309  if ($label !== '') {
310  print $langs->trans($label);
311  }
312  print '</td>';
313  }
314 
315  print '<td class="linecolqtyfrozen nowrap right" id="sub_bom_qty_frozen_'.$sub_bom_line->id.'">&nbsp;</td>';
316  }
317 
318  // Disable stock change
319  if ($sub_bom_line->disable_stock_change > 0) {
320  print '<td class="linecoldisablestockchange nowrap right" id="sub_bom_stock_change_'.$sub_bom_line->id.'">'.$sub_bom_line->disable_stock_change.'</td>';
321  } else {
322  print '<td class="linecoldisablestockchange nowrap right" id="sub_bom_stock_change_'.$sub_bom_line->id.'">&nbsp;</td>';
323  }
324 
325  // Efficiency
326  print '<td class="linecolefficiency nowrap right" id="sub_bom_efficiency_'.$sub_bom_line->id.'">'.$sub_bom_line->efficiency.'</td>';
327 
328  // Cost
329  if (!empty($sub_bom->id)) {
330  $sub_bom->calculateCosts();
331  print '<td class="linecolcost nowrap right" id="sub_bom_cost_'.$sub_bom_line->id.'"><span class="amount">'.price(price2num($sub_bom->total_cost * $sub_bom_line->qty * (float) $line->qty, 'MT')).'</span></td>';
332  $total_cost += $sub_bom->total_cost * $sub_bom_line->qty * (float) $line->qty;
333  } elseif ($sub_bom_product->type == Product::TYPE_SERVICE && isModEnabled('workstation') && !empty($sub_bom_product->fk_default_workstation)) {
334  //Convert qty to hour
335  $unit = measuringUnitString($sub_bom_line->fk_unit, '', '', 1);
336  $qty = convertDurationtoHour($sub_bom_line->qty, $unit);
337  $workstation = new Workstation($this->db);
338  $res = $workstation->fetch($sub_bom_product->fk_default_workstation);
339  if ($res > 0) {
340  $sub_bom_line->total_cost = (float) price2num($qty * ($workstation->thm_operator_estimated + $workstation->thm_machine_estimated), 'MT');
341  }
342 
343  print '<td class="linecolcost nowrap right" id="sub_bom_cost_'.$sub_bom_line->id.'"><span class="amount">'.price(price2num($sub_bom_line->total_cost, 'MT')).'</span></td>';
344  $this->total_cost += $line->total_cost;
345  } elseif ($sub_bom_product->cost_price > 0) {
346  print '<td class="linecolcost nowrap right" id="sub_bom_cost_'.$sub_bom_line->id.'">';
347  print '<span class="amount">'.price(price2num($sub_bom_product->cost_price * $sub_bom_line->qty * (float) $line->qty, 'MT')).'</span></td>';
348  $total_cost += $sub_bom_product->cost_price * $sub_bom_line->qty * (float) $line->qty;
349  } elseif ($sub_bom_product->pmp > 0) { // PMP if cost price isn't defined
350  print '<td class="linecolcost nowrap right" id="sub_bom_cost_'.$sub_bom_line->id.'">';
351  print '<span class="amount">'.price(price2num($sub_bom_product->pmp * $sub_bom_line->qty * (float) $line->qty, 'MT')).'</span></td>';
352  $total_cost .= $sub_bom_product->pmp * $sub_bom_line->qty * (float) $line->qty;
353  } else { // Minimum purchase price if cost price and PMP aren't defined
354  $sql_supplier_price = "SELECT MIN(price) AS min_price, quantity AS qty FROM ".MAIN_DB_PREFIX."product_fournisseur_price";
355  $sql_supplier_price .= " WHERE fk_product = ". (int) $sub_bom_product->id;
356  $sql_supplier_price .= " GROUP BY quantity ORDER BY quantity ASC";
357  $resql_supplier_price = $object->db->query($sql_supplier_price);
358  if ($resql_supplier_price) {
359  $obj = $object->db->fetch_object($resql_supplier_price); // Take first value so the ref with the smaller minimum quantity
360  if (!empty($obj->qty) && !empty($sub_bom_line->qty) && !empty($line->qty)) {
361  $line_cost = $obj->min_price / $obj->qty * $sub_bom_line->qty * (float) $line->qty;
362  } else {
363  $line_cost = $obj->min_price;
364  }
365  print '<td class="linecolcost nowrap right" id="sub_bom_cost_'.$sub_bom_line->id.'"><span class="amount">'.price2num($line_cost, 'MT').'</span></td>';
366  $total_cost += $line_cost;
367  }
368  }
369 
370  print '<td></td>';
371  print '<td></td>';
372  print '<td></td>';
373  }
374 }
375 
376 
377 print "<!-- END PHP TEMPLATE objectline_view.tpl.php -->\n";
if($user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition: card.php:58
print $langs trans("AuditedSecurityEvents").'</strong >< span class="opacitymedium"></span >< br > status
Or an array listing all the potential status of the object: array: int of the status => translated la...
Definition: security.php:607
Class for BOM.
Definition: bom.class.php:45
Class for BOMLine.
Definition: bom.class.php:1662
Class of dictionary type of thirdparty (used by imports)
Class to manage products or services.
const TYPE_SERVICE
Service.
Class for Workstation.
if(isModEnabled('invoice') && $user->hasRight('facture', 'lire')) if((isModEnabled('fournisseur') &&!getDolGlobalString('MAIN_USE_NEW_SUPPLIERMOD') && $user->hasRight("fournisseur", "facture", "lire"))||(isModEnabled('supplier_invoice') && $user->hasRight("supplier_invoice", "lire"))) if(isModEnabled('don') && $user->hasRight('don', 'lire')) if(isModEnabled('tax') && $user->hasRight('tax', 'charges', 'lire')) if(isModEnabled('invoice') &&isModEnabled('order') && $user->hasRight("commande", "lire") &&!getDolGlobalString('WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER')) $sql
Social contributions to pay.
Definition: index.php:745
convertDurationtoHour($duration_value, $duration_unit)
Convert duration to hour.
Definition: date.lib.php:334
img_delete($titlealt='default', $other='class="pictodelete"', $morecss='')
Show delete logo.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
yn($yesno, $case=1, $color=0)
Return yes or no in current language.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
img_down($titlealt='default', $selected=0, $moreclass='')
Show down arrow logo.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
img_edit($titlealt='default', $float=0, $other='')
Show logo edit/modify fiche.
img_up($titlealt='default', $selected=0, $moreclass='')
Show top arrow logo.
div float
Buy price without taxes.
Definition: style.css.php:960
measuringUnitString($unit, $measuring_style='', $scale='', $use_short_label=0, $outputlangs=null)
Return translation label of a unit key.