dolibarr 21.0.0-beta
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 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
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
26if (!defined('NOTOKENRENEWAL')) {
27 define('NOTOKENRENEWAL', '1'); // Disables token renewal
28}
29if (!defined('NOREQUIREMENU')) {
30 define('NOREQUIREMENU', '1');
31}
32if (!defined('NOREQUIREAJAX')) {
33 define('NOREQUIREAJAX', '1');
34}
35if (!defined('NOREQUIRESOC')) {
36 define('NOREQUIRESOC', '1');
37}
38
39// Load Dolibarr environment
40require '../../main.inc.php';
41require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
50$idprod = GETPOSTINT('idprod');
51
52$prices = array();
53
54// Load translation files required by the page
55$langs->loadLangs(array("stocks", "margins", "products"));
56
57
58/*
59 * View
60 */
61
63
64//print '<!-- Ajax page called with url '.dol_escape_htmltag($_SERVER["PHP_SELF"]).'?'.dol_escape_htmltag($_SERVER["QUERY_STRING"]).' -->'."\n";
65
66if ($idprod > 0) {
67 $producttmp = new ProductFournisseur($db);
68 $producttmp->fetch($idprod);
69
70 $sorttouse = 's.nom, pfp.quantity, pfp.price';
71 if (GETPOST('bestpricefirst')) {
72 $sorttouse = 'pfp.unitprice, s.nom, pfp.quantity, pfp.price';
73 }
74
75 $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.
76 if (is_array($productSupplierArray)) {
77 foreach ($productSupplierArray as $productSupplier) {
78 if (getDolGlobalInt("DISABLE_BAD_REPUTATION_PRODUCT_PRICE") && $productSupplier->supplier_reputation == "DONOTORDER") {
79 continue;
80 }
81
82 $price = $productSupplier->fourn_price * (1 - $productSupplier->fourn_remise_percent / 100);
83 $unitprice = $productSupplier->fourn_unitprice * (1 - $productSupplier->fourn_remise_percent / 100);
84
85 $title = $productSupplier->fourn_name.' - '.$productSupplier->fourn_ref.' - ';
86
87 if ($productSupplier->fourn_qty == 1) {
88 $title .= price($price, 0, $langs, 0, 0, -1, $conf->currency)."/";
89 }
90 $title .= $productSupplier->fourn_qty.' '.($productSupplier->fourn_qty == 1 ? $langs->trans("Unit") : $langs->trans("Units"));
91
92 if ($productSupplier->fourn_qty > 1) {
93 $title .= " - ";
94 $title .= price($unitprice, 0, $langs, 0, 0, -1, $conf->currency)."/".$langs->trans("Unit");
95 $price = $unitprice;
96 }
97
98 $label = price($price, 0, $langs, 0, 0, -1, $conf->currency)."/".$langs->trans("Unit");
99 if ($productSupplier->fourn_ref) {
100 $label .= ' ('.$productSupplier->fourn_ref.')';
101 }
102
103 $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()
104 }
105 }
106
107 // After best supplier prices and before costprice
108 if (isModEnabled('stock')) {
109 // Add price for pmp
110 $price = $producttmp->pmp;
111 if (empty($price) && getDolGlobalString('PRODUCT_USE_SUB_COST_PRICES_IF_COST_PRICE_EMPTY')) {
112 // get pmp for subproducts if any
113 $producttmp->get_sousproduits_arbo();
114 $prods_arbo=$producttmp->get_arbo_each_prod();
115 if (!empty($prods_arbo)) {
116 $price = 0;
117 foreach ($prods_arbo as $child) {
118 $sousprod = new Product($db);
119 $sousprod->fetch($child['id']);
120 $price += $sousprod->pmp;
121 }
122 }
123 }
124
125 $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()
126 }
127
128 // Add price for costprice (at end)
129 $price = $producttmp->cost_price;
130 if (empty($price) && getDolGlobalString('PRODUCT_USE_SUB_COST_PRICES_IF_COST_PRICE_EMPTY')) {
131 // get costprice for subproducts if any
132 $producttmp->get_sousproduits_arbo();
133 $prods_arbo=$producttmp->get_arbo_each_prod();
134 if (!empty($prods_arbo)) {
135 $price = 0;
136 foreach ($prods_arbo as $child) {
137 $sousprod = new Product($db);
138 $sousprod->fetch($child['id']);
139 $price += $sousprod->cost_price;
140 }
141 }
142 }
143
144 $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()
145}
146
147echo json_encode($prices);
Class to manage predefined suppliers products.
Class to manage products or services.
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 '.
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 a 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.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
if(!defined( 'NOREQUIREMENU')) if(!empty(GETPOST('seteventmessages', 'alpha'))) if(!function_exists("llxHeader")) top_httphead($contenttype='text/html', $forcenocache=0)
Show HTTP header.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
Definition member.php:79