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