* Copyright (C) 2004-2012 Laurent Destailleur * Copyright (C) 2005 Eric Seigne * Copyright (C) 2005-2012 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, 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($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 ($object->updatePrice($object->id, $newprice, $newpricebase, $user, $newvat, $newprice_min, $level, $newnpr) > 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.'

'; } /* * 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 ($conf->global->PRODUIT_MULTIPRICES) { if ($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 ''; } } } else { // TVA print ''; // Price print ''; // Price minimum 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("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("Status").' ('.$langs->trans("Sell").')	'; print $object->getLibStatut(2,0); print '

\n"; print "\n"; 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,"; $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.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) $object->updatePrice($object->id, $object->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,$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(); ?>