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