dolibarr 21.0.0-alpha
propal.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2004-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2009 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2014 Florian Henry <florian.henry@open-concept.pro>
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.'/comm/propal/class/propal.class.php';
32require_once DOL_DOCUMENT_ROOT.'/product/class/product.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('products', 'companies'));
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');
44$socid = '';
45
46if (!empty($user->socid)) {
47 $socid = $user->socid;
48}
49
50// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
51$hookmanager->initHooks(array('productstatspropal'));
52
53$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
54
55// Load variable for pagination
56$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
57$sortfield = GETPOST('sortfield', 'aZ09comma');
58$sortorder = GETPOST('sortorder', 'aZ09comma');
59$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
60if (empty($page) || $page == -1) {
61 $page = 0;
62} // If $page is not defined, or '' or -1
63$offset = $limit * $page;
64$pageprev = $page - 1;
65$pagenext = $page + 1;
66if (!$sortorder) {
67 $sortorder = "DESC";
68}
69if (!$sortfield) {
70 $sortfield = "p.datep";
71}
72
73$search_month = GETPOSTINT('search_month');
74$search_year = GETPOSTINT('search_year');
75
76if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
77 $search_month = '';
78 $search_year = '';
79}
80
81$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
82
83
84/*
85 * View
86 */
87
88$propalstatic = new Propal($db);
89$societestatic = new Societe($db);
90
91$form = new Form($db);
92$formother = new FormOther($db);
93
94if ($id > 0 || !empty($ref)) {
95 $product = new Product($db);
96 $result = $product->fetch($id, $ref);
97
98 $object = $product;
99
100 $parameters = array('id' => $id);
101 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
102 if ($reshook < 0) {
103 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
104 }
105
106 llxHeader("", "", $langs->trans("CardProduct".$product->type), '', 0, 0, '', '', 'mod-product page-stats_propal');
107
108 if ($result > 0) {
109 $head = product_prepare_head($product);
110 $titre = $langs->trans("CardProduct".$product->type);
111 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
112 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
113
114 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
115 print $hookmanager->resPrint;
116 if ($reshook < 0) {
117 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
118 }
119
120 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
121
122 $shownav = 1;
123 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
124 $shownav = 0;
125 }
126
127 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
128
129 print '<div class="fichecenter">';
130
131 print '<div class="underbanner clearboth"></div>';
132 print '<table class="border tableforfield" width="100%">';
133
134 $nboflines = show_stats_for_company($product, $socid);
135
136 print "</table>";
137
138 print '</div>';
139 print '<div class="clearboth"></div>';
140
141 print dol_get_fiche_end();
142
143
144 if ($user->hasRight('propal', 'lire')) {
145 $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, p.rowid as propalid, p.ref, d.total_ht as amount,";
146 $sql .= " p.ref_client,";
147 $sql .= "p.datep, p.fk_statut as statut, d.rowid, d.qty";
148 if (!$user->hasRight('societe', 'client', 'voir')) {
149 $sql .= ", sc.fk_soc, sc.fk_user ";
150 }
151 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
152 $sql .= ",".MAIN_DB_PREFIX."propal as p";
153 $sql .= ", ".MAIN_DB_PREFIX."propaldet as d";
154 if (!$user->hasRight('societe', 'client', 'voir')) {
155 $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
156 }
157 $sql .= " WHERE p.fk_soc = s.rowid";
158 $sql .= " AND p.entity IN (".getEntity('propal').")";
159 $sql .= " AND d.fk_propal = p.rowid";
160 $sql .= " AND d.fk_product = ".((int) $product->id);
161 if (!empty($search_month)) {
162 $sql .= ' AND MONTH(p.datep) IN ('.$db->sanitize($search_month).')';
163 }
164 if (!empty($search_year)) {
165 $sql .= ' AND YEAR(p.datep) IN ('.$db->sanitize($search_year).')';
166 }
167 if (!$user->hasRight('societe', 'client', 'voir')) {
168 $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
169 }
170 if ($socid) {
171 $sql .= " AND p.fk_soc = ".((int) $socid);
172 }
173 $sql .= $db->order($sortfield, $sortorder);
174
175 // Calcul total qty and amount for global if full scan list
176 $total_ht = 0;
177 $total_qty = 0;
178
179 // Count total nb of records
180 $totalofrecords = '';
181 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
182 $result = $db->query($sql);
183 $totalofrecords = $db->num_rows($result);
184 }
185
186 $sql .= $db->plimit($limit + 1, $offset);
187
188 $result = $db->query($sql);
189 if ($result) {
190 $num = $db->num_rows($result);
191
192 $option = '&id='.$product->id;
193
194 if ($limit > 0 && $limit != $conf->liste_limit) {
195 $option .= '&limit='.((int) $limit);
196 }
197 if (!empty($search_month)) {
198 $option .= '&search_month='.urlencode((string) ($search_month));
199 }
200 if (!empty($search_year)) {
201 $option .= '&search_year='.urlencode((string) ($search_year));
202 }
203
204 print '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
205 print '<input type="hidden" name="token" value="'.newToken().'">';
206 if (!empty($sortfield)) {
207 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
208 }
209 if (!empty($sortorder)) {
210 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
211 }
212
213 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
214 print_barre_liste($langs->trans("Proposals"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
215
216 if (!empty($page)) {
217 $option .= '&page='.urlencode((string) ($page));
218 }
219
220 print '<div class="liste_titre liste_titre_bydiv centpercent">';
221 print '<div class="divsearchfield">';
222 print $langs->trans('Period').' ('.$langs->trans("DatePropal").') - ';
223 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.($search_month > 0 ? $search_month : '').'"> ';
224 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
225 print '<div style="vertical-align: middle; display: inline-block">';
226 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")).'">';
227 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")).'">';
228 print '</div>';
229 print '</div>';
230 print '</div>';
231
232 $i = 0;
233 print '<div class="div-table-responsive">';
234 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
235 print '<tr class="liste_titre">';
236 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "p.rowid", "", $option, '', $sortfield, $sortorder);
237 print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
238 print_liste_field_titre("DatePropal", $_SERVER["PHP_SELF"], "p.datep", "", $option, 'align="center"', $sortfield, $sortorder);
239 print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "d.qty", "", $option, 'align="center"', $sortfield, $sortorder);
240 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "d.total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
241 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "p.fk_statut", "", $option, 'align="right"', $sortfield, $sortorder);
242 print "</tr>\n";
243
244 if ($num > 0) {
245 while ($i < min($num, $limit)) {
246 $objp = $db->fetch_object($result);
247
248 $total_ht += $objp->amount;
249 $total_qty += $objp->qty;
250
251 $propalstatic->id = $objp->propalid;
252 $propalstatic->ref = $objp->ref;
253 $propalstatic->ref_client = $objp->ref_client;
254 $societestatic->fetch($objp->socid);
255
256 print '<tr class="oddeven">';
257 print '<td>';
258 print $propalstatic->getNomUrl(1);
259 print "</td>\n";
260 print '<td>'.$societestatic->getNomUrl(1).'</td>';
261 print '<td class="center">';
262 print dol_print_date($db->jdate($objp->datep), 'dayhour')."</td>";
263 print "<td align=\"center\">".$objp->qty."</td>\n";
264 print '<td align="right">'.price($objp->amount).'</td>'."\n";
265 print '<td align="right">'.$propalstatic->LibStatut($objp->statut, 5).'</td>';
266 print "</tr>\n";
267 $i++;
268 }
269 }
270
271 print '<tr class="liste_total">';
272 if ($num < $limit && empty($offset)) {
273 print '<td>'.$langs->trans("Total").'</td>';
274 } else {
275 print '<td>'.$form->textwithpicto($langs->trans("Total"), $langs->trans("Totalforthispage")).'</td>';
276 }
277 print '<td colspan="2"></td>';
278 print '<td class="center">'.$total_qty.'</td>';
279 print '<td align="right">'.price($total_ht).'</td>';
280 print '<td></td>';
281 print "</table>";
282 print '</div>';
283 print '</form>';
284 } else {
285 dol_print_error($db);
286 }
287 $db->free($result);
288 }
289 }
290} else {
292}
293
294// End of page
295llxFooter();
296$db->close();
$id
Definition account.php:39
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($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 generation of HTML components Only common components must be here.
Class permettant la generation de composants html autre Only common components are here.
Class to manage products or services.
const TYPE_SERVICE
Service.
Class to manage proposals.
Class to manage third parties objects (customers, suppliers, prospects...)
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.
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.
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.
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.
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 a product.
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.