* Copyright (C) 2016 Laurent Destailleur * * 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/margin/admin/margin.php * \ingroup margin * \brief Page to setup margin module */ include '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/margin/lib/margins.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php'; require_once DOL_DOCUMENT_ROOT."/compta/facture/class/facture.class.php"; $langs->loadLangs(array("admin", "bills", "margins", "stocks")); if (!$user->admin) { accessforbidden(); } $action = GETPOST('action', 'aZ09'); /* * Action */ $reg = array(); if (preg_match('/set_([a-z0-9_\-]+)/i', $action, $reg)) { $code = $reg[1]; if (dolibarr_set_const($db, $code, 1, 'yesno', 0, '', $conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } if (preg_match('/del_([a-z0-9_\-]+)/i', $action, $reg)) { $code = $reg[1]; if (dolibarr_del_const($db, $code, $conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } if ($action == 'remises') { if (dolibarr_set_const($db, 'MARGIN_METHODE_FOR_DISCOUNT', GETPOST('MARGIN_METHODE_FOR_DISCOUNT'), 'chaine', 0, '', $conf->entity) > 0) { setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs'); } else { dol_print_error($db); } } if ($action == 'typemarges') { if (dolibarr_set_const($db, 'MARGIN_TYPE', GETPOST('MARGIN_TYPE'), 'chaine', 0, '', $conf->entity) > 0) { setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs'); } else { dol_print_error($db); } } if ($action == 'contact') { if (dolibarr_set_const($db, 'AGENT_CONTACT_TYPE', GETPOST('AGENT_CONTACT_TYPE'), 'chaine', 0, '', $conf->entity) > 0) { setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs'); } else { dol_print_error($db); } } /* * View */ $form = new Form($db); llxHeader('', $langs->trans("margesSetup"), '', '', 0, 0, '', '', '', 'mod-margin page-admin_margin'); $linkback = ''.$langs->trans("BackToModuleList").''; print load_fiche_titre($langs->trans("margesSetup"), $linkback, 'title_setup'); $head = marges_admin_prepare_head(); print dol_get_fiche_head($head, 'parameters', $langs->trans("Margins"), -1, 'margin'); print ''; print ''; print ''; print ''."\n"; print ''."\n"; print ''; // GLOBAL DISCOUNT MANAGEMENT print ''; print ''; print ""; print ''; print ''; print ''; print ''; print ''; print ''; print ''; // DISPLAY MARGIN RATES print ''; print ''; print ''; print ''; print ''; // DISPLAY MARK RATES print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; // GLOBAL DISCOUNT MANAGEMENT $methods = array( 1 => $langs->trans('UseDiscountAsProduct'), 2 => $langs->trans('UseDiscountAsService'), 3 => $langs->trans('UseDiscountOnTotal') ); print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; // INTERNAL CONTACT TYPE USED AS COMMERCIAL AGENT print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '

'.$langs->trans("MemberMainOptions").'	'.$langs->trans("Value").'		'.$langs->trans("Description").'
'.$langs->trans("MARGIN_TYPE").'	'; print ' '; print $langs->trans('MargeType1'); print ' '; print ' '; print $langs->trans('MargeType2'); print ' '; print ' '; print $langs->trans('MargeType3'); print '	'; print ''; print '	'.$langs->trans('MarginTypeDesc'); print '
'.$langs->trans("DisplayMarginRates").'	'; if (!empty($conf->use_javascript_ajax)) { print ajax_constantonoff('DISPLAY_MARGIN_RATES'); } else { if (!getDolGlobalString('DISPLAY_MARGIN_RATES')) { print ''.img_picto($langs->trans("Disabled"), 'off').''; } else { print ''.img_picto($langs->trans("Enabled"), 'on').''; } } print '		'.$langs->trans('MarginRate').' = '.$langs->trans('Margin').' / '.$langs->trans('BuyingPrice').'
'.$langs->trans("DisplayMarkRates").'	'; if (!empty($conf->use_javascript_ajax)) { print ajax_constantonoff('DISPLAY_MARK_RATES'); } else { if (!getDolGlobalString('DISPLAY_MARK_RATES')) { print ''.img_picto($langs->trans("Disabled"), 'off').''; } else { print ''.img_picto($langs->trans("Enabled"), 'on').''; } } print '		'.$langs->trans('MarkRate').' = '.$langs->trans('Margin').' / '.$langs->trans('SellingPrice').'
'.$langs->trans("ForceBuyingPriceIfNull").'	'; if (!empty($conf->use_javascript_ajax)) { print ajax_constantonoff('ForceBuyingPriceIfNull'); } else { if (!getDolGlobalString('ForceBuyingPriceIfNull')) { print ''.img_picto($langs->trans("Disabled"), 'off').''; } else { print ''.img_picto($langs->trans("Enabled"), 'on').''; } } print '		'.$langs->trans('ForceBuyingPriceIfNullDetails').'
'.$langs->trans("MARGIN_METHODE_FOR_DISCOUNT").'	'; print Form::selectarray('MARGIN_METHODE_FOR_DISCOUNT', $methods, getDolGlobalString('MARGIN_METHODE_FOR_DISCOUNT')); print '	'; print ''; print '	'.$langs->trans('MARGIN_METHODE_FOR_DISCOUNT_DETAILS').'
'.$langs->trans("AgentContactType").'	'; $formcompany = new FormCompany($db); $facture = new Facture($db); print $formcompany->selectTypeContact($facture, getDolGlobalString('AGENT_CONTACT_TYPE'), "AGENT_CONTACT_TYPE", "internal", "code", 1, "maxwidth250"); print '	'; print ''; print '	'.$langs->trans('AgentContactTypeDetails').'

'; print dol_get_fiche_end(); print '
'; // End of page llxFooter(); $db->close();