dolibarr 21.0.0-alpha
valo.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2001-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2011 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
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.'/product/stock/class/entrepot.class.php';
30
31// Load translation files required by the page
32$langs->load("stocks");
33
34$sref = GETPOST("sref", 'alpha');
35$snom = GETPOST("snom", 'alpha');
36$sall = trim((GETPOST('search_all', 'alphanohtml') != '') ? GETPOST('search_all', 'alphanohtml') : GETPOST('sall', 'alphanohtml'));
37
38$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
39$sortfield = GETPOST('sortfield', 'aZ09comma');
40$sortorder = GETPOST('sortorder', 'aZ09comma');
41$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT('page');
42if (empty($page) || $page < 0 || GETPOST('button_search', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
43 // If $page is not defined, or '' or -1 or if we click on clear filters
44 $page = 0;
45}
46$offset = $limit * $page;
47
48if (!$sortfield) {
49 $sortfield = "e.ref";
50}
51if (!$sortorder) {
52 $sortorder = "ASC";
53}
54
55$year = dol_print_date(dol_now('gmt'), "%Y", 'gmt');
56
57// Security check
58$result = restrictedArea($user, 'stock');
59
60
61/*
62 * View
63 */
64
65$sql = "SELECT e.rowid, e.ref, e.statut, e.lieu, e.address, e.zip, e.town, e.fk_pays,";
66$sql .= " SUM(ps.pmp * ps.reel) as estimatedvalue, SUM(p.price * ps.reel) as sellvalue";
67$sql .= " FROM ".MAIN_DB_PREFIX."entrepot as e";
68$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."product_stock as ps ON e.rowid = ps.fk_entrepot";
69$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."product as p ON ps.fk_product = p.rowid";
70$sql .= " WHERE e.entity IN (".getEntity('stock').")";
71if ($sref) {
72 $sql .= natural_search("e.ref", $sref);
73}
74if ($sall) {
75 $sql .= " AND (e.ref LIKE '%".$db->escape($sall)."%'";
76 $sql .= " OR e.description LIKE '%".$db->escape($sall)."%'";
77 $sql .= " OR e.lieu LIKE '%".$db->escape($sall)."%'";
78 $sql .= " OR e.address LIKE '%".$db->escape($sall)."%'";
79 $sql .= " OR e.town LIKE '%".$db->escape($sall)."%')";
80}
81$sql .= " GROUP BY e.rowid, e.ref, e.statut, e.lieu, e.address, e.zip, e.town, e.fk_pays";
82$sql .= $db->order($sortfield, $sortorder);
83$sql .= $db->plimit($limit + 1, $offset);
84
85$result = $db->query($sql);
86if ($result) {
87 $num = $db->num_rows($result);
88
89 $i = 0;
90
91 $help_url = 'EN:Module_Stocks_En|FR:Module_Stock|ES:M&oacute;dulo_Stocks';
92 llxHeader("", $langs->trans("EnhancedValueOfWarehouses"), $help_url, '', 0, 0, '', '', '', 'mod-product page-stock_valo');
93
94 print_barre_liste($langs->trans("EnhancedValueOfWarehouses"), $page, $_SERVER["PHP_SELF"], "", $sortfield, $sortorder, '', $num);
95
96 print '<table class="noborder centpercent">';
97 print "<tr class=\"liste_titre\">";
98 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "e.ref", "", "", "", $sortfield, $sortorder);
99 print_liste_field_titre("LocationSummary", $_SERVER["PHP_SELF"], "e.lieu", "", "", "", $sortfield, $sortorder);
100 print_liste_field_titre("EstimatedStockValue", $_SERVER["PHP_SELF"], "e.valo_pmp", '', '', '', $sortfield, $sortorder, 'right ');
101 print_liste_field_titre("EstimatedStockValueSell", $_SERVER["PHP_SELF"], "", '', '', '', $sortfield, $sortorder, 'right ');
102 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "e.statut", '', '', '', $sortfield, $sortorder, 'right ');
103 print "</tr>\n";
104
105 if ($num) {
106 $entrepot = new Entrepot($db);
107 $total = $totalsell = 0;
108 $var = false;
109 while ($i < min($num, $limit)) {
110 $objp = $db->fetch_object($result);
111 print '<tr class="oddeven">';
112 print '<td><a href="card.php?id='.$objp->rowid.'">'.img_object($langs->trans("ShowWarehouse"), 'stock').' '.$objp->ref.'</a></td>';
113 print '<td>'.$objp->lieu.'</td>';
114 // PMP value
115 print '<td class="right">';
116 if (price2num($objp->estimatedvalue, 'MT')) {
117 print price(price2num($objp->estimatedvalue, 'MT'), 1);
118 } else {
119 print '';
120 }
121 print '</td>';
122 // Selling value
123 print '<td class="right">';
124 if (!getDolGlobalString('PRODUIT_MULTIPRICES')) {
125 print price(price2num($objp->sellvalue, 'MT'), 1);
126 } else {
127 print $langs->trans("Variable");
128 }
129 print '</td>';
130 // Status
131 print '<td class="right">'.$entrepot->LibStatut($objp->statut, 5).'</td>';
132 print "</tr>\n";
133 $total += price2num($objp->estimatedvalue, 'MU');
134 $totalsell += price2num($objp->sellvalue, 'MU');
135
136 $i++;
137 }
138
139 print '<tr class="liste_total">';
140 print '<td colspan="2" class="right">'.$langs->trans("Total").'</td>';
141 print '<td class="right">'.price(price2num($total, 'MT'), 1, $langs, 0, 0, -1, $conf->currency).'</td>';
142 print '<td class="right">'.price(price2num($totalsell, 'MT'), 1, $langs, 0, 0, -1, $conf->currency).'</td>';
143 print '<td class="right">&nbsp;</td>';
144 print "</tr>\n";
145 }
146
147 $db->free($result);
148
149 print "</table>";
150
151 print '<br>';
152
153 $file = 'entrepot-'.$year.'.png';
154 if (file_exists($conf->stock->dir_temp.'/'.$file)) {
155 $url = DOL_URL_ROOT.'/viewimage.php?modulepart=graph_stock&amp;file='.$file;
156 print '<img src="'.$url.'">';
157 }
158
159 $file = 'entrepot-'.((int) $year - 1).'.png';
160 if (file_exists($conf->stock->dir_temp.'/'.$file)) {
161 $url = DOL_URL_ROOT.'/viewimage.php?modulepart=graph_stock&amp;file='.$file;
162 print '<br><img src="'.$url.'">';
163 }
164} else {
165 dol_print_error($db);
166}
167
168// End of page
169llxFooter();
170$db->close();
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 warehouses.
llxFooter()
Footer empty.
Definition document.php:107
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0)
Show a picto called object_picto (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
natural_search($fields, $value, $mode=0, $nofirstand=0)
Generate natural SQL search string for a criteria (this criteria can be tested on one or several fiel...
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.
dol_now($mode='auto')
Return date for now.
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...
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
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.