dolibarr  19.0.0-dev
getSupplierPrices.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2012 Christophe Battarel <christophe.battarel@altairis.fr>
3  * Copyright (C) 2015 Francis Appels <francis.appels@z-application.com>
4  * Copyright (C) 2016 Laurent Destailleur <eldy@users.sourceforge.net>
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program. If not, see <https://www.gnu.org/licenses/>.
18  */
19 
25 if (!defined('NOTOKENRENEWAL')) {
26  define('NOTOKENRENEWAL', '1'); // Disables token renewal
27 }
28 if (!defined('NOREQUIREMENU')) {
29  define('NOREQUIREMENU', '1');
30 }
31 if (!defined('NOREQUIREAJAX')) {
32  define('NOREQUIREAJAX', '1');
33 }
34 if (!defined('NOREQUIRESOC')) {
35  define('NOREQUIRESOC', '1');
36 }
37 
38 // Load Dolibarr environment
39 require '../../main.inc.php';
40 require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
41 
42 $idprod = GETPOST('idprod', 'int');
43 
44 $prices = array();
45 
46 // Load translation files required by the page
47 $langs->loadLangs(array("stocks", "margins", "products"));
48 
49 
50 /*
51  * View
52  */
53 
54 top_httphead();
55 
56 //print '<!-- Ajax page called with url '.dol_escape_htmltag($_SERVER["PHP_SELF"]).'?'.dol_escape_htmltag($_SERVER["QUERY_STRING"]).' -->'."\n";
57 
58 if ($idprod > 0) {
59  $producttmp = new ProductFournisseur($db);
60  $producttmp->fetch($idprod);
61 
62  $sorttouse = 's.nom, pfp.quantity, pfp.price';
63  if (GETPOST('bestpricefirst')) {
64  $sorttouse = 'pfp.unitprice, s.nom, pfp.quantity, pfp.price';
65  }
66 
67  $productSupplierArray = $producttmp->list_product_fournisseur_price($idprod, $sorttouse); // We list all price per supplier, and then firstly with the lower quantity. So we can choose first one with enough quantity into list.
68  if (is_array($productSupplierArray)) {
69  foreach ($productSupplierArray as $productSupplier) {
70  if (getDolGlobalInt("DISABLE_BAD_REPUTATION_PRODUCT_PRICE") && $productSupplier->supplier_reputation == "DONOTORDER") {
71  continue;
72  }
73 
74  $price = $productSupplier->fourn_price * (1 - $productSupplier->fourn_remise_percent / 100);
75  $unitprice = $productSupplier->fourn_unitprice * (1 - $productSupplier->fourn_remise_percent / 100);
76 
77  $title = $productSupplier->fourn_name.' - '.$productSupplier->fourn_ref.' - ';
78 
79  if ($productSupplier->fourn_qty == 1) {
80  $title .= price($price, 0, $langs, 0, 0, -1, $conf->currency)."/";
81  }
82  $title .= $productSupplier->fourn_qty.' '.($productSupplier->fourn_qty == 1 ? $langs->trans("Unit") : $langs->trans("Units"));
83 
84  if ($productSupplier->fourn_qty > 1) {
85  $title .= " - ";
86  $title .= price($unitprice, 0, $langs, 0, 0, -1, $conf->currency)."/".$langs->trans("Unit");
87  $price = $unitprice;
88  }
89 
90  $label = price($price, 0, $langs, 0, 0, -1, $conf->currency)."/".$langs->trans("Unit");
91  if ($productSupplier->fourn_ref) {
92  $label .= ' ('.$productSupplier->fourn_ref.')';
93  }
94 
95  $prices[] = array("id" => $productSupplier->product_fourn_price_id, "price" => price2num($price, '', 0), "label" => $label, "title" => $title); // For price field, we must use price2num(), for label or title, price()
96  }
97  }
98 
99  // After best supplier prices and before costprice
100  if (isModEnabled('stock')) {
101  // Add price for pmp
102  $price = $producttmp->pmp;
103  if (empty($price) && !empty($conf->global->PRODUCT_USE_SUB_COST_PRICES_IF_COST_PRICE_EMPTY)) {
104  // get pmp for subproducts if any
105  $producttmp->get_sousproduits_arbo();
106  $prods_arbo=$producttmp->get_arbo_each_prod();
107  if (!empty($prods_arbo)) {
108  $price = 0;
109  foreach ($prods_arbo as $child) {
110  $sousprod = new Product($db);
111  $sousprod->fetch($child['id']);
112  $price += $sousprod->pmp;
113  }
114  }
115  }
116 
117  $prices[] = array("id" => 'pmpprice', "price" => price2num($price), "label" => $langs->trans("PMPValueShort").': '.price($price, 0, $langs, 0, 0, -1, $conf->currency), "title" => $langs->trans("PMPValueShort").': '.price($price, 0, $langs, 0, 0, -1, $conf->currency)); // For price field, we must use price2num(), for label or title, price()
118  }
119 
120  // Add price for costprice (at end)
121  $price = $producttmp->cost_price;
122  if (empty($price) && !empty($conf->global->PRODUCT_USE_SUB_COST_PRICES_IF_COST_PRICE_EMPTY)) {
123  // get costprice for subproducts if any
124  $producttmp->get_sousproduits_arbo();
125  $prods_arbo=$producttmp->get_arbo_each_prod();
126  if (!empty($prods_arbo)) {
127  $price = 0;
128  foreach ($prods_arbo as $child) {
129  $sousprod = new Product($db);
130  $sousprod->fetch($child['id']);
131  $price += $sousprod->cost_price;
132  }
133  }
134  }
135 
136  $prices[] = array("id" => 'costprice', "price" => price2num($price), "label" => $langs->trans("CostPrice").': '.price($price, 0, $langs, 0, 0, -1, $conf->currency), "title" => $langs->trans("PMPValueShort").': '.price($price, 0, $langs, 0, 0, -1, $conf->currency)); // For price field, we must use price2num(), for label or title, price()
137 }
138 
139 echo json_encode($prices);
Class to manage predefined suppliers products.
Class to manage products or services.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
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 dolibarr global constant int value.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
isModEnabled($module)
Is Dolibarr module enabled.
if(!defined('NOREQUIREMENU')) if(!empty(GETPOST('seteventmessages', 'alpha'))) if(!function_exists("llxHeader")) top_httphead($contenttype='text/html', $forcenocache=0)
Show HTTP header.
Definition: main.inc.php:1494