* Copyright (C) 2004-2013 Laurent Destailleur * Copyright (C) 2005 Eric Seigne * Copyright (C) 2005-2013 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 3 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, see . */ /** * \file htdocs/product/price.php * \ingroup product * \brief Page to show product prices */ require '../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php'; require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php'; $langs->load("products"); $langs->load("bills"); $id = GETPOST('id', 'int'); $ref = GETPOST('ref', 'alpha'); $action = GETPOST('action', 'alpha'); // Security check $fieldvalue = (! empty($id) ? $id : (! empty($ref) ? $ref : '')); $fieldtype = (! empty($ref) ? 'ref' : 'rowid'); if ($user->societe_id) $socid=$user->societe_id; $result=restrictedArea($user,'produit|service',$fieldvalue,'product&product','','',$fieldtype); $object = new Product($db); /* * Actions */ if ($action == 'update_price' && ! $_POST["cancel"] && ($user->rights->produit->creer || $user->rights->service->creer)) { $result = $object->fetch($id); // MultiPrix if (! empty($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]); $newpsq=GETPOST('psqflag'); $newpsq = empty($newpsq) ? 0 : $newpsq; 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"]); $newpsq=GETPOST('psqflag'); $newpsq = empty($newpsq) ? 0 : $newpsq; } if ($object->updatePrice($newprice, $newpricebase, $user, $newvat, $newprice_min, $level, $newnpr, $newpsq) > 0) { $action = ''; $mesg = '

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

'; } else { $action = 'edit_price'; $mesg = '

'.$object->error.'

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

'.$object->error.'

'; } /***************************************************** * Price by quantity *****************************************************/ $error=0; if ($action == 'activate_price_by_qty') { // Activating product price by quantity add a new price, specified as by quantity $result = $object->fetch($id); $level=GETPOST('level'); $object->updatePrice(0, $object->price_base_type, $user, $object->tva_tx, 0, $level, $object->tva_npr, 1); } if ($action == 'edit_price_by_qty') { // Edition d'un prix par quantité $rowid = GETPOST('rowid'); } if ($action == 'update_price_by_qty') { // Ajout / Mise à jour d'un prix par quantité $result = $object->fetch($id); // Récupération des variables $rowid = GETPOST('rowid'); $priceid=GETPOST('priceid'); $newprice=price2num(GETPOST("price"),'MU'); //$newminprice=price2num(GETPOST("price_min"),'MU'); // TODO : Add min price management $quantity=GETPOST('quantity'); $remise_percent=price2num(GETPOST('remise_percent')); $remise=0; // TODO : allow dicsount by amount when available on documents if (empty($quantity)) { $error++; $mesg='

'.$langs->trans("ErrorFieldRequired",$langs->transnoentities("Qty")).'

'; } if (empty($newprice)) { $error++; $mesg='

'.$langs->trans("ErrorFieldRequired",$langs->transnoentities("Price")).'

'; } if(!$error) { // Calcul du prix HT et du prix unitaire if ($object->price_base_type == 'TTC') { $price = price2num($newprice) / (1 + ($object->tva_tx / 100)); } $price = price2num($newprice,'MU'); $unitPrice = price2num($price/$quantity,'MU'); // Ajout / mise à jour if($rowid > 0) { $sql = "UPDATE ".MAIN_DB_PREFIX."product_price_by_qty SET"; $sql.= " price='".$price."',"; $sql.= " unitprice=".$unitPrice.","; $sql.= " quantity=".$quantity.","; $sql.= " remise_percent=".$remise_percent.","; $sql.= " remise=".$remise; $sql.= " WHERE rowid = ".GETPOST('rowid'); $result = $db->query($sql); } else { $sql = "INSERT INTO ".MAIN_DB_PREFIX."product_price_by_qty (fk_product_price,price,unitprice,quantity,remise_percent,remise) values ("; $sql.= $priceid.','.$price.','.$unitPrice.','.$quantity.','.$remise_percent.','.$remise.')'; $result = $db->query($sql); } } } if ($action == 'delete_price_by_qty') { $rowid = GETPOST('rowid'); $sql = "DELETE FROM ".MAIN_DB_PREFIX."product_price_by_qty"; $sql.= " WHERE rowid = ".GETPOST('rowid'); $result = $db->query($sql); } if ($action == 'delete_all_price_by_qty') { $priceid=GETPOST('priceid'); $sql = "DELETE FROM ".MAIN_DB_PREFIX."product_price_by_qty"; $sql.= " WHERE fk_product_price = ".$priceid; $result = $db->query($sql); } /* * View */ $form = new Form($db); if (! empty($id) || ! empty($ref)) $result = $object->fetch($id, $ref); llxHeader("","",$langs->trans("CardProduct".$object->type)); $head=product_prepare_head($object, $user); $titre=$langs->trans("CardProduct".$object->type); $picto=($object->type==1?'service':'product'); dol_fiche_head($head, 'price', $titre, 0, $picto); print ''; // Ref print ''; print ''; print ''; // Label print ''; $isphoto=$object->is_photo_available($conf->product->multidir_output[$object->entity]); $nblignes=5; if ($isphoto) { // Photo print ''; } print ''; // MultiPrix if (! empty($conf->global->PRODUIT_MULTIPRICES)) { if (! empty($socid)) { $soc = new Societe($db); $soc->id = $socid; $soc->fetch($socid); print ''; if ($object->multiprices_base_type["$soc->price_level"] == 'TTC') { print ''; // Prix mini print ''; // TVA print ''; } else { for ($i=1; $i<=$conf->global->PRODUIT_MULTIPRICES_LIMIT; $i++) { // TVA if ($i == 1) // We show only price for level 1 { print ''; } print ''; if ($object->multiprices_base_type["$i"] == 'TTC') { print ''; // Prix mini print ''; // Price by quantity if($conf->global->PRODUIT_CUSTOMER_PRICES_BY_QTY) { print ''; } } } } else { // TVA print ''; // Price print ''; // Price minimum print ''; // Price by quantity if($conf->global->PRODUIT_CUSTOMER_PRICES_BY_QTY) { print ''; } } // Status (to sell) print ''; print "

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

'; print $form->showrefnav($object,'ref','',1,'ref'); print '

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

'.$object->libelle.'

'; print $object->show_photos($conf->product->multidir_output[$object->entity],1,1,0,0,0,80); print '

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

'.price($object->multiprices_ttc["$soc->price_level"]); } else { print '

'.price($object->multiprices["$soc->price_level"]); } if ($object->multiprices_base_type["$soc->price_level"]) { print ' '.$langs->trans($object->multiprices_base_type["$soc->price_level"]); } else { print ' '.$langs->trans($object->price_base_type); } print '

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

'; if ($object->multiprices_base_type["$soc->price_level"] == 'TTC') { print price($object->multiprices_min_ttc["$soc->price_level"]).' '.$langs->trans($object->multiprices_base_type["$soc->price_level"]); } else { print price($object->multiprices_min["$soc->price_level"]).' '.$langs->trans($object->multiprices_base_type["$soc->price_level"]); } print '

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

'.vatrate($object->multiprices_tva_tx["$soc->price_level"],true).'

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

'.vatrate($object->multiprices_tva_tx[1],true).'

'.$langs->trans("SellingPrice").' '.$i.'

'.price($object->multiprices_ttc["$i"]); } else { print '

'.price($object->multiprices["$i"]); } if ($object->multiprices_base_type["$i"]) { print ' '.$langs->trans($object->multiprices_base_type["$i"]); } else { print ' '.$langs->trans($object->price_base_type); } print '

'.$langs->trans("MinPrice").' '.$i.'

'; if ($object->multiprices_base_type["$i"] == 'TTC') { print price($object->multiprices_min_ttc["$i"]).' '.$langs->trans($object->multiprices_base_type["$i"]); } else { print price($object->multiprices_min["$i"]).' '.$langs->trans($object->multiprices_base_type["$i"]); } print '

'.$langs->trans("PriceByQuantity").' '.$i; print '

'; if($object->prices_by_qty[$i] == 1) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; foreach ($object->prices_by_qty_list[$i] as $ii=> $prices) { if($action == 'edit_price_by_qty' && $rowid == $prices['rowid'] && ($user->rights->produit->creer || $user->rights->service->creer)) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; //print ''; print ''; print ''; print ''; print ''; } else { print ''; print ''; print ''; print ''; print ''; print ''; print ''; } } if($action != 'edit_price_by_qty' && ($user->rights->produit->creer || $user->rights->service->creer)) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; //print ''; print ''; print ''; print ''; print ''; } print '

'.$langs->trans("PriceByQuantityRange").' '.$i.'	'.$langs->trans("HT").'	'.$langs->trans("UnitPrice").'	'.$langs->trans("Discount").'
	'.$object->price_base_type.'			%
'.$prices['quantity'].'	'.price($prices['price']).'	'.price($prices['unitprice']).'	'.price($prices['remise_percent']).' %	'; if(($user->rights->produit->creer \|\| $user->rights->service->creer)) { print ''; print img_edit().''; print ''; print img_delete().''; } else { print ' '; } print '
	'.$object->price_base_type.'			%

'; } else { print $langs->trans("No"); print ' ('.$langs->trans("Activate").')'; } print '

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

'.vatrate($object->tva_tx.($object->tva_npr?'*':''),true).'

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

'; if ($object->price_base_type == 'TTC') { print price($object->price_ttc).' '.$langs->trans($object->price_base_type); } else { print price($object->price).' '.$langs->trans($object->price_base_type); } print '

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

'; if ($object->price_base_type == 'TTC') { print price($object->price_min_ttc).' '.$langs->trans($object->price_base_type); } else { print price($object->price_min).' '.$langs->trans($object->price_base_type); } print '

'.$langs->trans("PriceByQuantity"); if($object->prices_by_qty[0] == 0) { print ' '.$langs->trans("Activate"); } print '

'; if ($object->prices_by_qty[0] == 1) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; foreach ($object->prices_by_qty_list[0] as $ii=> $prices) { if($action == 'edit_price_by_qty' && $rowid == $prices['rowid'] && ($user->rights->produit->creer || $user->rights->service->creer)) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; //print ''; print ''; print ''; print ''; print ''; } else { print ''; print ''; print ''; print ''; print ''; print ''; print ''; } } if($action != 'edit_price_by_qty') { print ''; print ''; print ''; print ''; print ''; print ''; print ''; //print ''; print ''; print ''; print ''; print ''; } print '

'.$langs->trans("PriceByQuantityRange").'	'.$langs->trans("HT").'	'.$langs->trans("UnitPrice").'	'.$langs->trans("Discount").'
	'.$object->price_base_type.'			%
'.$prices['quantity'].'	'.price($prices['price']).'	'.price($prices['unitprice']).'	'.price($prices['remise_percent']).' %	'; if(($user->rights->produit->creer \|\| $user->rights->service->creer)) { print ''; print img_edit().''; print ''; print img_delete().''; } else { print ' '; } print '
	'.$object->price_base_type.'			%

'; } else { print $langs->trans("No"); } print '

'.$langs->trans("Status").' ('.$langs->trans("Sell").')

'; print $object->getLibStatut(2,0); print '

\n"; print "\n"; if (! empty($mesg)) { dol_htmloutput_mesg($mesg); } /* ************************************************************************** */ /* */ /* Barre d'action */ /* */ /* ************************************************************************** */ if (! $action || $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 ($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 ''; // VAT print ''; // Price base print ''; print ''; print ''; // Price print ''; // Price minimum print ''; print '

'.$langs->trans("VATRate").'	'; print $form->load_tva("tva_tx",$object->tva_tx,$mysoc,'',$object->id,$object->tva_npr); print '
'; print $langs->trans('PriceBase'); print '	'; print $form->select_PriceBaseType($object->price_base_type, "price_base_type"); print '
'; $text=$langs->trans('SellingPrice'); print $form->textwithpicto($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),1,1); print '	'; if ($object->price_base_type == 'TTC') { print ''; } else { print ''; } print '
' ; $text=$langs->trans('MinPrice'); print $form->textwithpicto($text,$langs->trans("PrecisionUnitIsLimitedToXDecimals",$conf->global->MAIN_MAX_DECIMALS_UNIT),1,1); if ($object->price_base_type == 'TTC') { print '	'; } else { print '	'; } print '

'; print '
'; print ''; print '

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

'; print ''; print ''; print ''; print ''; // VAT if ($i == 1) { print ''; } else { // We always use the vat rate of price level 1 (A vat rate does not depends on customer) print ''; } // Selling price print ''; // Min price print ''; print ''; print '

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

'; print '

'; } } } // Liste des evolutions du prix $sql = "SELECT p.rowid, p.price, p.price_ttc, p.price_base_type, p.tva_tx, p.recuperableonly,"; $sql.= " p.price_level, p.price_min, p.price_min_ttc,p.price_by_qty,"; $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 = ".$object->id; $sql.= " AND p.entity IN (".getEntity('productprice', 1).")"; $sql.= " AND p.fk_user_author = u.rowid"; if (! empty($socid) && ! empty($conf->global->PRODUIT_MULTIPRICES)) $sql.= " AND p.price_level = ".$soc->price_level; $sql.= " ORDER BY p.date_price DESC, p.price_level ASC"; dol_syslog("sql=".$sql); $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) $object->updatePrice($object->price, $object->price_base_type, $user, $newprice_min); $result = $db->query($sql); $num = $db->num_rows($result); } if ($num > 0) { print '
'; print ''; print ''; print ''; if (! empty($conf->global->PRODUIT_MULTIPRICES)) { print ''; } if (! empty($conf->global->PRODUIT_CUSTOMER_PRICES_BY_QTY)) { 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 (! empty($conf->global->PRODUIT_MULTIPRICES)) { print '"; } // Price by quantity if (! empty($conf->global->PRODUIT_CUSTOMER_PRICES_BY_QTY)) { $type = ($objp->price_by_qty == 1) ? 'PriceByQuantity' : 'Standard'; 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("Type").'	'.$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($type)."	'.$langs->trans($objp->price_base_type)."	'.vatrate($objp->tva_tx,true,$objp->recuperableonly)."	'.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); } llxFooter(); $db->close(); ?>