* Copyright (C) 2004-2010 Laurent Destailleur * Copyright (C) 2005 Eric Seigne * Copyright (C) 2005-2009 Regis Houssin * Copyright (C) 2006 Andre Cianfarani * * 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 to show product prices * \version $Id$ */ require("../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/lib/product.lib.php"); require_once(DOL_DOCUMENT_ROOT."/product/class/product.class.php"); $langs->load("products"); $langs->load("bills"); // Security check if (isset($_GET["id"]) || isset($_GET["ref"])) { $id = isset($_GET["id"])?$_GET["id"]:(isset($_GET["ref"])?$_GET["ref"]:''); } $fieldid = isset($_GET["ref"])?'ref':'rowid'; $socid=$user->societe_id?$user->societe_id:0; $result=restrictedArea($user,'produit|service',$id,'product','','',$fieldid); /* * Actions */ if ($_POST["action"] == 'update_price' && ! $_POST["cancel"] && ($user->rights->produit->creer || $user->rights->service->creer)) { $product = new Product($db); $result = $product->fetch($_GET["id"]); // MultiPrix if($conf->global->PRODUIT_MULTIPRICES) { $newprice=''; $newprice_min=''; $newpricebase=''; $newvat=''; for($i=1; $i<=$conf->global->PRODUIT_MULTIPRICES_LIMIT; $i++) { if (isset($_POST["price_".$i])) { $level=$i; $newprice=price2num($_POST["price_".$i],'MU'); $newprice_min=price2num($_POST["price_min_".$i],'MU'); $newpricebase=$_POST["multiprices_base_type_".$i]; $newnpr=(preg_match('/\*/',$_POST["tva_tx_".$i]) ? 1 : 0); $newvat=str_replace('*','',$_POST["tva_tx_".$i]); break; // We found submited price } } } else { $level=0; $newprice=price2num($_POST["price"],'MU'); $newprice_min=price2num($_POST["price_min"],'MU'); $newpricebase=$_POST["price_base_type"]; $newnpr=(preg_match('/\*/',$_POST["tva_tx"]) ? 1 : 0); $newvat=str_replace('*','',$_POST["tva_tx"]); } if ($product->update_price($product->id, $newprice, $newpricebase, $user, $newvat, $newprice_min, $level) > 0) { $_GET["action"] = ''; $mesg = '

'.$langs->trans("RecordSaved").'

'; } else { $_GET["action"] = 'edit_price'; $mesg = '

'.$product->error.'

'; } } if ($_GET["action"] == 'delete' && $user->rights->produit->supprimer) { $productstatic = new Product($db); $result=$productstatic->log_price_delete($user,$_GET["lineid"]); if ($result < 0) $mesg='

'.$productstatic->error.'

'; } /* * 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); $picto=($product->type==1?'service':'product'); dol_fiche_head($head, 'price', $titre, 0, $picto); print ''; // Ref print ''; print ''; print ''; // Label print ''; $nblignes=4; if ($product->is_photo_available($conf->produit->dir_output)) { // Photo print ''; } print ''; // MultiPrix if($conf->global->PRODUIT_MULTIPRICES) { if ($socid) { $soc = new Societe($db); $soc->id = $socid; $soc->fetch($socid); print ''; if ($product->multiprices_base_type["$soc->price_level"] == 'TTC') { print ''; // Prix mini print ''; // TVA print ''; } else { for ($i=1; $i<=$conf->global->PRODUIT_MULTIPRICES_LIMIT; $i++) { print ''; if ($product->multiprices_base_type["$i"] == 'TTC') { print ''; // Prix mini print ''; // TVA print ''; } } } else { // Prix print ''; // Prix mini print ''; // TVA print ''; } // Statut print ''; print "

'.$langs->trans("Ref").'	'; print $html->showrefnav($product,'ref','',1,'ref'); print '
'.$langs->trans("Label").'	'.$product->libelle.'	'; print $product->show_photos($conf->produit->dir_output,1,1,0,0,0,80); print '
'.$langs->trans("SellingPrice").'	'.price($product->multiprices_ttc["$soc->price_level"]); } else { print '	'.price($product->multiprices["$soc->price_level"]); } if ($product->multiprices_base_type["$soc->price_level"]) { print ' '.$langs->trans($product->multiprices_base_type["$soc->price_level"]); } else { print ' '.$langs->trans($product->price_base_type); } print '
'.$langs->trans("MinPrice").'	'; if ($product->multiprices_base_type["$soc->price_level"] == 'TTC') { print price($product->multiprices_min_ttc["$soc->price_level"]).' '.$langs->trans($product->multiprices_base_type["$soc->price_level"]); } else { print price($product->multiprices_min["$soc->price_level"]).' '.$langs->trans($product->multiprices_base_type["$soc->price_level"]); } print '
'.$langs->trans("VATRate").'	'.vatrate($product->multiprices_tva_tx["$soc->price_level"],true).'
'.$langs->trans("SellingPrice").' '.$i.'	'.price($product->multiprices_ttc["$i"]); } else { print '	'.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 '
'.$langs->trans("MinPrice").' '.$i.'	'; if ($product->multiprices_base_type["$i"] == 'TTC') { print price($product->multiprices_min_ttc["$i"]).' '.$langs->trans($product->multiprices_base_type["$i"]); } else { print price($product->multiprices_min["$i"]).' '.$langs->trans($product->multiprices_base_type["$i"]); } print '
'.$langs->trans("VATRate").' '.$i.'	'.vatrate($product->multiprices_tva_tx["$i"],true).'
'.$langs->trans("SellingPrice").'	'; if ($product->price_base_type == 'TTC') { print price($product->price_ttc).' '.$langs->trans($product->price_base_type); } else { print price($product->price).' '.$langs->trans($product->price_base_type); } print '
'.$langs->trans("MinPrice").'	'; 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 '
'.$langs->trans("VATRate").'	'.vatrate($product->tva_tx,true).'
'.$langs->trans("Status").'	'; print $product->getLibStatut(2); print '

\n"; print "\n"; if ($mesg) print $mesg; /* ************************************************************************** */ /* */ /* Barre d'action */ /* */ /* ************************************************************************** */ if (empty($_GET["action"]) || $_GET["action"]=='delete') { print "\n

\n"; if ($user->rights->produit->creer || $user->rights->service->creer) { print ''.$langs->trans("UpdatePrice").''; } print "\n

\n"; } /* * Edition du prix */ if ($_GET["action"] == 'edit_price' && ($user->rights->produit->creer || $user->rights->service->creer)) { print_fiche_titre($langs->trans("NewPrice"),'',''); if (empty($conf->global->PRODUIT_MULTIPRICES)) { print '

'; print ''; print ''; print ''; print ''; // Price base print ''; print ''; print ''; // Price print ''; print ''; // VAT print ''; print ''; print '

'; print $langs->trans('PriceBase'); print '	'; print $html->select_PriceBaseType($product->price_base_type, "price_base_type"); print '
'; $text=$langs->trans('SellingPrice'); print $html->textwithpicto($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1); print '	'; if ($product->price_base_type == 'TTC') { print ''; } else { print ''; } print '
' ; $text=$langs->trans('MinPrice') ; print $html->textwithpicto($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1); if ($product->price_base_type == 'TTC') { print '	'; } else { print '	'; } print '
'.$langs->trans("VATRate").'	'; print $html->select_tva("tva_tx",$product->tva_tx,$mysoc,''); print '
'; print '

'; print '

'; } else { for($i=1; $i<=$conf->global->PRODUIT_MULTIPRICES_LIMIT; $i++) { print '

'; print ''; print ''; print ''; print ''; print ''; print ''; // VAT print ''; print ''; print '

'; $text=$langs->trans('SellingPrice').' '.$i; print $html->textwithpicto($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1); print '	'; if ($product->multiprices_base_type["$i"] == 'TTC') { print ''; } else { print ''; } print $html->select_PriceBaseType($product->multiprices_base_type["$i"], "multiprices_base_type_".$i); print '
'; $text=$langs->trans('MinPrice').' '.$i; print $html->textwithpicto($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),$direction=1,$usehelpcursor=1); if ($product->multiprices_base_type["$i"] == 'TTC') { print '	'; } else { print '	'; } print '
'.$langs->trans("VATRate").'	'; print $html->select_tva("tva_tx_".$i,$product->multiprices_tva_tx["$i"],$mysoc,''); print '
'; print '

'; print '

'; } } } // Liste des evolutions du prix $sql = "SELECT p.rowid, p.price, p.price_ttc, p.price_base_type, p.tva_tx,"; $sql.= " p.price_level, p.price_min, p.price_min_ttc,"; $sql.= " p.date_price as dp, u.rowid as user_id, u.login"; $sql.= " FROM ".MAIN_DB_PREFIX."product_price as p,"; $sql.= " ".MAIN_DB_PREFIX."user as u"; $sql.= " WHERE fk_product = ".$product->id; $sql.= " AND p.fk_user_author = u.rowid"; if ($socid && $conf->global->PRODUIT_MULTIPRICES) $sql.= " AND p.price_level = ".$soc->price_level; $sql.= " ORDER BY p.date_price DESC, p.price_level ASC"; //$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 '
'; print ''; print ''; print ''; if($conf->global->PRODUIT_MULTIPRICES) { print ''; } print ''; print ''; print ''; print ''; print ''; print ''; print ''; if ($user->rights->produit->supprimer) print ''; print ''; $var=True; $i = 0; while ($i < $num) { $objp = $db->fetch_object($result); $var=!$var; print ""; // Date print ""; // Price level if ($conf->global->PRODUIT_MULTIPRICES) { print '"; } print '"; print '"; print '"; print '"; print ''; print ''; // User print ''; // Action if ($user->rights->produit->supprimer) { print ''; } print "\n"; $i++; } $db->free($result); print "

'.$langs->trans("AppliedPricesFrom").'	'.$langs->trans("MultiPriceLevelsName").'	'.$langs->trans("PriceBase").'	'.$langs->trans("VAT").'	'.$langs->trans("HT").'	'.$langs->trans("TTC").'	'.$langs->trans("MinPrice").' '.$langs->trans("HT").'	'.$langs->trans("MinPrice").' '.$langs->trans("TTC").'	'.$langs->trans("ChangedBy").'
".dol_print_date($db->jdate($objp->dp),"dayhour")."	'.$objp->price_level."	'.$langs->trans($objp->price_base_type)."	'.vatrate($objp->tva_tx,true)."	'.price($objp->price)."	'.price($objp->price_ttc)."	'.price($objp->price_min).'	'.price($objp->price_min_ttc).'	'.img_object($langs->trans("ShowUser"),'user').' '.$objp->login.'	'; if ($i > 0) { print 'id.'&lineid='.$objp->rowid.'">'; print img_delete(); print ''; } else print ' '; // Can not delete last price (it's current price) print '

"; print "
"; } } else { dol_print_error($db); } $db->close(); llxFooter('$Date$ - $Revision$'); ?>