mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-26 11:21:27 +01:00
469 lines
14 KiB
PHP
469 lines
14 KiB
PHP
<?php
|
|
/* Copyright (C) 2001-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004-2008 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2005 Eric Seigne <eric.seigne@ryxeo.com>
|
|
* Copyright (C) 2005-2007 Regis Houssin <regis@dolibarr.fr>
|
|
* Copyright (C) 2006 Andre Cianfarani <acianfa@free.fr>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/product/price.php
|
|
* \ingroup product
|
|
* \brief Page de la fiche produit
|
|
* \version $Id$
|
|
*/
|
|
|
|
require("./pre.inc.php");
|
|
require_once(DOL_DOCUMENT_ROOT."/lib/product.lib.php");
|
|
require_once(DOL_DOCUMENT_ROOT."/product.class.php");
|
|
|
|
$langs->load("products");
|
|
$langs->load("bills");
|
|
|
|
if (!$user->rights->produit->lire)
|
|
accessforbidden();
|
|
|
|
|
|
|
|
/*
|
|
* Actions
|
|
*/
|
|
|
|
if ($_POST["action"] == 'update_price' && ! $_POST["cancel"] && $user->rights->produit->creer)
|
|
{
|
|
$product = new Product($db);
|
|
|
|
$result = $product->fetch($_GET["id"]);
|
|
|
|
// MultiPrix
|
|
if($conf->global->PRODUIT_MULTIPRICES)
|
|
{
|
|
$newprice='';
|
|
$newpricebase='';
|
|
$newvat='';
|
|
|
|
for($i=1;$i<=$conf->global->PRODUIT_MULTIPRICES_LIMIT;$i++)
|
|
{
|
|
if($_POST["price_".$i])
|
|
{
|
|
// le prix 1 est considere comme le prix de base du produit
|
|
if ($i == 1)
|
|
{
|
|
$newprice=price2num($_POST["price_".$i],'MU');
|
|
$newpricebase=$_POST["multiprices_base_type_".$i];
|
|
$newvat=$_POST["tva_tx_".$i];
|
|
}
|
|
else
|
|
{
|
|
$product->multiprices["$i"] = price2num($_POST["price_".$i],'MU');
|
|
$product->multiprices_base_type["$i"] = $_POST["multiprices_base_type_".$i];
|
|
$product->multiprices_vat_rate["$i"] = $_POST["tva_tx_".$i];
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$product->multiprices["$i"] = "";
|
|
$product->multiprices_ttc["$i"] = "";
|
|
$product->multiprices_base_type["$i"] = "";
|
|
$product->multiprices_vat_rate["$i"] = "";
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$newprice=price2num($_POST["price"],'MU');
|
|
$newpricebase=$_POST["price_base_type"];
|
|
$newvat=$_POST["tva_tx"];
|
|
}
|
|
|
|
$newprice_min = '' ;
|
|
$newprice_min = price2num($_POST["price_min"],'MU');
|
|
|
|
if ($product->update_price($product->id, $newprice, $newpricebase, $user, $newvat,$newprice_min) > 0)
|
|
{
|
|
$_GET["action"] = '';
|
|
$mesg = '<div class="ok">'.$langs->trans("RecordSaved").'</div>';
|
|
}
|
|
else
|
|
{
|
|
$_GET["action"] = 'edit_price';
|
|
$mesg = '<div class="error">'.$product->error.'</div>';
|
|
}
|
|
}
|
|
|
|
if ($_GET["action"] == 'delete' && $user->rights->produit->supprimer)
|
|
{
|
|
$productstatic = new Product($db);
|
|
$result=$productstatic->log_price_delete($user,$_GET["lineid"]);
|
|
if ($result < 0) $mesg='<div class="error">'.$productstatic->error.'</div>';
|
|
}
|
|
|
|
|
|
/*
|
|
* View
|
|
*/
|
|
|
|
$html = new Form($db);
|
|
|
|
$product = new Product($db);
|
|
if ($_GET["ref"]) $result = $product->fetch('',$_GET["ref"]);
|
|
if ($_GET["id"]) $result = $product->fetch($_GET["id"]);
|
|
|
|
llxHeader("","",$langs->trans("CardProduct".$product->type));
|
|
|
|
$head=product_prepare_head($product, $user);
|
|
$titre=$langs->trans("CardProduct".$product->type);
|
|
dolibarr_fiche_head($head, 'price', $titre);
|
|
|
|
|
|
print '<table class="border" width="100%">';
|
|
|
|
// Reference
|
|
print '<tr>';
|
|
print '<td width="15%">'.$langs->trans("Ref").'</td><td colspan="2">';
|
|
print $html->showrefnav($product,'ref','',1,'ref');
|
|
print '</td>';
|
|
print '</tr>';
|
|
|
|
// Libelle
|
|
print '<tr><td>'.$langs->trans("Label").'</td><td colspan="2">'.$product->libelle.'</td>';
|
|
print '</tr>';
|
|
|
|
|
|
// MultiPrix
|
|
if($conf->global->PRODUIT_MULTIPRICES)
|
|
{
|
|
for($i=1;$i<=$conf->global->PRODUIT_MULTIPRICES_LIMIT;$i++)
|
|
{
|
|
print '<tr><td>'.$langs->trans("SellingPrice").' '.$i.'</td>';
|
|
|
|
if ($product->multiprices_base_type["$i"] == 'TTC')
|
|
{
|
|
print '<td>'.price($product->multiprices_ttc["$i"]);
|
|
}
|
|
else
|
|
{
|
|
print '<td>'.price($product->multiprices["$i"]);
|
|
}
|
|
|
|
if ($product->multiprices_base_type["$i"])
|
|
{
|
|
print ' '.$langs->trans($product->multiprices_base_type["$i"]);
|
|
}
|
|
else
|
|
{
|
|
print ' '.$langs->trans($product->price_base_type);
|
|
}
|
|
print '</td></tr>';
|
|
}
|
|
}
|
|
// Prix
|
|
else
|
|
{
|
|
print '<tr><td>'.$langs->trans("SellingPrice").'</td><td colspan="2">';
|
|
if ($product->price_base_type == 'TTC')
|
|
{
|
|
print price($product->price_ttc).' '.$langs->trans($product->price_base_type).'</td></tr>';
|
|
}
|
|
else
|
|
{
|
|
print price($product->price).' '.$langs->trans($product->price_base_type).'</td></tr>';
|
|
}
|
|
}
|
|
|
|
// Prix minimum
|
|
print '<tr><td>'.$langs->trans("MinPrice").'</td><td>';
|
|
if ($product->price_base_type == 'TTC')
|
|
{
|
|
print price($product->price_min_ttc).' '.$langs->trans($product->price_base_type);
|
|
}
|
|
else
|
|
{
|
|
print price($product->price_min).' '.$langs->trans($product->price_base_type);
|
|
}
|
|
print '</td></tr>';
|
|
|
|
// TVA
|
|
print '<tr><td>'.$langs->trans("VATRate").'</td><td colspan="2">'.vatrate($product->tva_tx,true).'</td></tr>';
|
|
|
|
// Statut
|
|
print '<tr><td>'.$langs->trans("Status").'</td><td colspan="2">';
|
|
print $product->getLibStatut(2);
|
|
print '</td></tr>';
|
|
|
|
print "</table>\n";
|
|
|
|
print "</div>\n";
|
|
|
|
if ($mesg) print $mesg;
|
|
|
|
|
|
/* ************************************************************************** */
|
|
/* */
|
|
/* Barre d'action */
|
|
/* */
|
|
/* ************************************************************************** */
|
|
|
|
if (empty($_GET["action"]) || $_GET["action"]=='delete')
|
|
{
|
|
print "\n<div class=\"tabsAction\">\n";
|
|
|
|
if ($user->rights->produit->modifier || $user->rights->produit->creer)
|
|
{
|
|
print '<a class="butAction" href="'.DOL_URL_ROOT.'/product/price.php?action=edit_price&id='.$product->id.'">'.$langs->trans("UpdatePrice").'</a>';
|
|
}
|
|
|
|
print "\n</div>\n";
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* Edition du prix
|
|
*/
|
|
if ($_GET["action"] == 'edit_price' && $user->rights->produit->creer)
|
|
{
|
|
print_fiche_titre($langs->trans("NewPrice"));
|
|
|
|
if (! $conf->global->PRODUIT_MULTIPRICES)
|
|
{
|
|
print '<form action="price.php?id='.$product->id.'" method="post">';
|
|
print '<input type="hidden" name="action" value="update_price">';
|
|
print '<input type="hidden" name="id" value="'.$product->id.'">';
|
|
print '<table class="border" width="100%">';
|
|
|
|
// Price base
|
|
print '<tr><td width="15%">';
|
|
print $langs->trans('PriceBase');
|
|
print '</td>';
|
|
print '<td>';
|
|
print $html->select_PriceBaseType($product->price_base_type, "price_base_type");
|
|
print '</td>';
|
|
print '</tr>';
|
|
|
|
// Price
|
|
print '<tr><td width="15%">';
|
|
$text=$langs->trans('SellingPrice');
|
|
print $html->textwithhelp($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1);
|
|
print '</td>';
|
|
if ($product->price_base_type == 'TTC')
|
|
{
|
|
print '<td><input name="price" size="10" value="'.price($product->price_ttc).'">';
|
|
}
|
|
else
|
|
{
|
|
print '<td><input name="price" size="10" value="'.price($product->price).'">';
|
|
}
|
|
|
|
print '<tr><td>' ;
|
|
$text=$langs->trans('MinPrice') ;
|
|
print $html->textwithhelp($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1);
|
|
if ($product->price_base_type == 'TTC')
|
|
{
|
|
print '<td><input name="price_min" size="10" value="'.price($product->price_min_ttc).'">';
|
|
}
|
|
else
|
|
{
|
|
print '<td><input name="price_min" size="10" value="'.price($product->price_min).'">';
|
|
}
|
|
print '</td></tr>';
|
|
|
|
// VAT
|
|
print '<tr><td width="20%">'.$langs->trans("VATRate").'</td><td>';
|
|
print $html->select_tva("tva_tx",$product->tva_tx,$mysoc,'');
|
|
print '</td></tr>';
|
|
|
|
print '<tr><td colspan="2" align="center"><input type="submit" class="button" value="'.$langs->trans("Save").'"> ';
|
|
print '<input type="submit" class="button" name="cancel" value="'.$langs->trans("Cancel").'"></td></tr>';
|
|
print '</table>';
|
|
print '</form>';
|
|
}
|
|
else
|
|
{
|
|
for($i=1;$i<=$conf->global->PRODUIT_MULTIPRICES_LIMIT;$i++)
|
|
{
|
|
print '<form action="price.php?id='.$product->id.'" method="post">';
|
|
print '<input type="hidden" name="action" value="update_price">';
|
|
print '<input type="hidden" name="id" value="'.$product->id.'">';
|
|
print '<table class="border" width="100%">';
|
|
print '<tr><td width="15%">';
|
|
$text=$langs->trans('SellingPrice').' '.$i;
|
|
print $html->textwithhelp($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1);
|
|
print '</td>';
|
|
|
|
if ($product->multiprices_base_type["$i"] == 'TTC')
|
|
{
|
|
print '<td><input name="price_'.$i.'" size="10" value="'.price($product->multiprices_ttc["$i"]).'">';
|
|
}
|
|
else
|
|
{
|
|
print '<td><input name="price_'.$i.'" size="10" value="'.price($product->multiprices["$i"]).'">';
|
|
}
|
|
|
|
print $html->select_PriceBaseType($product->multiprices_base_type["$i"], "multiprices_base_type_".$i);
|
|
print '</td>';
|
|
|
|
print '<tr><td>' ;
|
|
$text=$langs->trans('MinPrice') ;
|
|
print $html->textwithhelp($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1);
|
|
if ($product->price_base_type == 'TTC')
|
|
{
|
|
print '<td><input name="price_min" size="10" value="'.price($product->price_min_ttc).'">';
|
|
}
|
|
else
|
|
{
|
|
print '<td><input name="price_min" size="10" value="'.price($product->price_min).'">';
|
|
}
|
|
print '</td>';
|
|
|
|
// VAT
|
|
print '<td width="20%">'.$langs->trans("VATRate").'</td><td>';
|
|
print $html->select_tva("tva_tx_".$i,$product->multiprices_tva_tx["$i"],$mysoc,'');
|
|
print '</td></tr>';
|
|
|
|
print '<tr><td colspan="2" align="center"><input type="submit" class="button" value="'.$langs->trans("Save").'"> ';
|
|
print '<input type="submit" class="button" name="cancel" value="'.$langs->trans("Cancel").'"></td></tr>';
|
|
print '</table>';
|
|
print '</form>';
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// Liste des evolutions du prix
|
|
if($conf->global->PRODUIT_MULTIPRICES)
|
|
{
|
|
$sql = "SELECT p.rowid, p.price, p.price_ttc, p.price_base_type, p.tva_tx,";
|
|
$sql.= " p.price_level,";
|
|
$sql.= " ".$db->pdate("p.date_price")." as dp, u.rowid as user_id, u.login";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."product_price as p, ".MAIN_DB_PREFIX."user as u";
|
|
$sql.= " WHERE fk_product = ".$product->id;
|
|
$sql.= " AND p.fk_user_author = u.rowid ";
|
|
$sql.= " ORDER BY p.price_level ASC, p.date_price DESC";
|
|
}
|
|
else
|
|
{
|
|
$sql = "SELECT p.rowid, p.price, p.price_ttc, p.price_base_type, p.tva_tx,";
|
|
$sql.= " p.price_min, p.price_min_ttc,";
|
|
$sql.= " ".$db->pdate("p.date_price")." as dp, u.rowid as user_id, u.login";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."user as u, ".MAIN_DB_PREFIX."product_price as p ";
|
|
$sql.= " WHERE p.fk_product = ".$product->id;
|
|
$sql.= " AND p.fk_user_author = u.rowid";
|
|
$sql.= " ORDER BY p.date_price DESC";
|
|
}
|
|
//$sql .= $db->plimit();
|
|
|
|
$result = $db->query($sql) ;
|
|
if ($result)
|
|
{
|
|
$num = $db->num_rows($result);
|
|
|
|
if (! $num)
|
|
{
|
|
$db->free($result) ;
|
|
|
|
// Il doit au moins y avoir la ligne de prix initial.
|
|
// On l'ajoute donc pour remettre a niveau (pb vieilles versions)
|
|
$product->update_price($product->id, $product->price, 'HT', $user, $newprice_min);
|
|
|
|
$result = $db->query($sql) ;
|
|
$num = $db->num_rows($result);
|
|
}
|
|
|
|
if ($num > 0)
|
|
{
|
|
print '<br>';
|
|
|
|
print '<table class="noborder" width="100%">';
|
|
|
|
print '<tr class="liste_titre">';
|
|
print '<td>'.$langs->trans("AppliedPricesFrom").'</td>';
|
|
|
|
if($conf->global->PRODUIT_MULTIPRICES)
|
|
{
|
|
print '<td>'.$langs->trans("MultiPriceLevelsName").'</td>';
|
|
}
|
|
|
|
print '<td align="center">'.$langs->trans("PriceBase").'</td>';
|
|
print '<td align="right">'.$langs->trans("VAT").'</td>';
|
|
print '<td align="right">'.$langs->trans("HT").'</td>';
|
|
print '<td align="right">'.$langs->trans("TTC").'</td>';
|
|
print '<td align="right">'.$langs->trans("MinPrice").' '.$langs->trans("HT").'</td>';
|
|
print '<td align="right">'.$langs->trans("MinPrice").' '.$langs->trans("TTC").'</td>';
|
|
print '<td align="right">'.$langs->trans("ChangedBy").'</td>';
|
|
if ($user->rights->produit->supprimer) print '<td align="right"> </td>';
|
|
print '</tr>';
|
|
|
|
$var=True;
|
|
$i = 0;
|
|
while ($i < $num)
|
|
{
|
|
$objp = $db->fetch_object($result);
|
|
$var=!$var;
|
|
print "<tr $bc[$var]>";
|
|
// Date
|
|
print "<td>".dolibarr_print_date($objp->dp,"dayhour")."</td>";
|
|
|
|
// Price level
|
|
if ($conf->global->PRODUIT_MULTIPRICES)
|
|
{
|
|
print "<td>".$objp->price_level."</td>";
|
|
}
|
|
|
|
print '<td align="center">'.$langs->trans($objp->price_base_type)."</td>";
|
|
print '<td align="right">'.vatrate($objp->tva_tx,true)."</td>";
|
|
print '<td align="right">'.price($objp->price)."</td>";
|
|
print '<td align="right">'.price($objp->price_ttc)."</td>";
|
|
print '<td align="right">'.price($objp->price_min).'</td>';
|
|
print '<td align="right">'.price($objp->price_min_ttc).'</td>';
|
|
|
|
// User
|
|
print '<td align="right"><a href="'.DOL_URL_ROOT.'/user/fiche.php?id='.$objp->user_id.'">'.img_object($langs->trans("ShowUser"),'user').' '.$objp->login.'</a></td>';
|
|
|
|
// Action
|
|
if ($user->rights->produit->supprimer)
|
|
{
|
|
print '<td align="right">';
|
|
if ($i > 0)
|
|
{
|
|
print '<a href="'.$_SERVER["PHP_SELF"].'?action=delete&id='.$product->id.'&lineid='.$objp->rowid.'">';
|
|
print img_delete();
|
|
print '</a>';
|
|
}
|
|
else print ' '; // Can not delete last price (it's current price)
|
|
print '</td>';
|
|
}
|
|
|
|
print "</tr>\n";
|
|
$i++;
|
|
}
|
|
$db->free($result);
|
|
print "</table>";
|
|
print "<br>";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_print_error($db);
|
|
}
|
|
|
|
|
|
$db->close();
|
|
|
|
llxFooter('$Date$ - $Revision$');
|
|
?>
|