* * 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/admin/product_tools.php * \ingroup product * \brief Setup page of product module */ // TODO We must add a confirmation on button because this will make a mass change // FIXME Should also change table product_price for price levels require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php'; require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php'; $langs->load("admin"); $langs->load("products"); // Security check if (! $user->admin) accessforbidden(); $action = GETPOST('action','alpha'); $oldvatrate=GETPOST('oldvatrate'); $newvatrate=GETPOST('newvatrate'); //$price_base_type=GETPOST('price_base_type'); $objectstatic = new Product($db); /* * Actions */ if ($action == 'convert') { $error=0; if ($oldvatrate == $newvatrate) { $langs->load("errors"); setEventMessage($langs->trans("ErrorNewVaueCantMatchOldValue"),'errors'); $error++; } if (! $error) { $db->begin(); $sql = 'SELECT rowid'; $sql.= ' FROM '.MAIN_DB_PREFIX.'product'; $sql.= ' WHERE entity IN ('.getEntity('product',1).')'; $sql.= " AND tva_tx = '".$db->escape($oldvatrate)."'"; //$sql.= ' AND price_base_type = "'..'"'; //print $sql; $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; $nbrecordsmodified=0; while ($i < $num) { $obj = $db->fetch_object($resql); $ret=$objectstatic->fetch($obj->rowid); if ($ret > 0) { $price_base_type = $objectstatic->price_base_type; // Get price_base_type of product/service to keep the same for update if ($price_base_type == 'TTC') { $newprice=price2num($objectstatic->price_ttc,'MU'); // Second param must be MU (we want a unit price so 'MU'. If unit price was on 4 decimal, we must keep 4 decimals) $newminprice=$objectstatic->price_min_ttc; } else { $newprice=price2num($objectstatic->price,'MU'); // Second param must be MU (we want a unit price so 'MU'. If unit price was on 4 decimal, we must keep 4 decimals) $newminprice=$objectstatic->price_min; } if ($newminprice > $newprice) $newminprice=$newprice; $newvat=str_replace('*','',$newvatrate); $newnpr=$objectstatic->recuperableonly; $newlevel=0; $ret=$objectstatic->updatePrice($objectstatic->id, $newprice, $price_base_type, $user, $newvat, $newminprice, $newlevel, $newnpr); if ($ret < 0) $error++; else $nbrecordsmodified++; // FIXME Now update all price levels. Call $objectstatic->updatePrice( as many times than exisitng price_level } $i++; } if (! $error) { if ($nbrecordsmodified > 0) setEventMessage($langs->trans("RecordsModified",$nbrecordsmodified)); else setEventMessage($langs->trans("NoRecordFound"),'warnings'); $db->commit(); } else { setEventMessage($langs->trans("Error"),'errors'); $db->rollback(); } } } } /* * View */ $form=new Form($db); $title = $langs->trans('ModulesSystemTools'); llxHeader('',$title); print_fiche_titre($title,'','setup'); print $langs->trans("ProductVatMassChangeDesc").'

'; if (empty($mysoc->country_code)) { $langs->load("errors"); $warnpicto=img_error($langs->trans("WarningMandatorySetupNotComplete")); print '
'.$warnpicto.' '.$langs->trans("WarningMandatorySetupNotComplete").''; } else { $var=true; print '
'; print ''; print ''; print ''; print ''; print ''."\n"; print ''."\n"; print ''."\n"; $var=!$var; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; $var=!$var; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; /* $var=!$var; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; */ print '
'.$langs->trans("Parameters").''.$langs->trans("Value").'
'.$langs->trans("OldVATRates").''."\n"; print $form->load_tva('oldvatrate', $oldvatrate); print '
'.$langs->trans("NewVATRates").''."\n"; print $form->load_tva('newvatrate', $newvatrate); print '
'.$langs->trans("PriceBaseTypeToChange").''."\n"; print $form->load_PriceBaseType($price_base_type); print '
'; print ''; // Boutons actions print '
'; print ''; print '
'; print '
'; } llxFooter(); $db->close(); ?>