* Copyright (C) 2019-2020 Open-DSI * Copyright (C) 2024 MDW * Copyright (C) 2024 Frédéric France * * 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/intracommreport/admin/intracommreport.php * \ingroup intracommreport * \brief Page to setup the module intracomm report */ // Load Dolibarr environment require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php'; require_once DOL_DOCUMENT_ROOT.'/intracommreport/lib/intracommreport.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php'; /** * @var Conf $conf * @var DoliDB $db * @var HookManager $hookmanager * @var Translate $langs * @var User $user */ // Load translation files required by the page $langs->loadLangs(array("admin", "intracommreport")); // Access Control if (!$user->admin) { accessforbidden(); } // Get Parameters $action = GETPOST('action', 'aZ09'); // Parameters INTRACOMMREPORT_* and others $list_DEB = array( 'INTRACOMMREPORT_NUM_AGREMENT', ); $list_DES = array( 'INTRACOMMREPORT_NUM_DECLARATION', ); if ($action == 'update') { $error = 0; if (!$error) { foreach ($list_DEB as $constname) { $constvalue = GETPOST($constname, 'alpha'); if (!dolibarr_set_const($db, $constname, $constvalue, 'chaine', 0, '', $conf->entity)) { $error++; } } foreach ($list_DES as $constname) { $constvalue = GETPOST($constname, 'alpha'); if (!dolibarr_set_const($db, $constname, $constvalue, 'chaine', 0, '', $conf->entity)) { $error++; } } dolibarr_set_const($db, "INTRACOMMREPORT_TYPE_ACTEUR", GETPOST("INTRACOMMREPORT_TYPE_ACTEUR", 'alpha'), 'chaine', 0, '', $conf->entity); dolibarr_set_const($db, "INTRACOMMREPORT_ROLE_ACTEUR", GETPOST("INTRACOMMREPORT_ROLE_ACTEUR", 'alpha'), 'chaine', 0, '', $conf->entity); dolibarr_set_const($db, "INTRACOMMREPORT_NIV_OBLIGATION_INTRODUCTION", GETPOST("INTRACOMMREPORT_NIV_OBLIGATION_INTRODUCTION", 'alpha'), 'chaine', 0, '', $conf->entity); dolibarr_set_const($db, "INTRACOMMREPORT_NIV_OBLIGATION_EXPEDITION", GETPOST("INTRACOMMREPORT_NIV_OBLIGATION_EXPEDITION", 'alpha'), 'chaine', 0, '', $conf->entity); dolibarr_set_const($db, "INTRACOMMREPORT_CATEG_FRAISDEPORT", GETPOST("INTRACOMMREPORT_CATEG_FRAISDEPORT", 'alpha'), 'chaine', 0, '', $conf->entity); if ($error) { setEventMessages($langs->trans("Error"), null, 'errors'); } } if (!$error) { setEventMessages($langs->trans("SetupSaved"), null, 'mesgs'); } } /* * View */ $form = new Form($db); $formother = new FormOther($db); llxHeader('', $langs->trans("IntracommReportSetup"), '', '', 0, 0, '', '', '', 'mod-intracommreport page-admin_intracommreport'); $linkback = ''.$langs->trans("BackToModuleList").''; print load_fiche_titre($langs->trans("IntracommReportSetup"), $linkback, 'title_setup'); $head = intracommreportAdminPrepareHead(); print dol_get_fiche_head($head, 'general', $langs->trans("IntracommReport"), -1, "intracommreport"); print '
'; print ''; print ''; print load_fiche_titre($langs->trans("Parameters").' (DEB)'); print ''; print ''; print ''; print ''; print ''; foreach ($list_DEB as $key) { print ''; // Param $label = $langs->trans($key); print ''; // Value print ''; print ''; } print ''; print ''; $arraychoices = array('' => $langs->trans("None"), 'PSI' => 'Déclarant pour son compte', 'TDP' => 'Tiers déclarant'); print ''; print "\n"; print ''; print ''; $arraychoices = array('' => $langs->trans("None"), 'sender' => 'Emetteur', 'PSI' => 'Déclarant'); print ''; print "\n"; print ''; print ''; $arraychoices = array(1 => 'Seuil de 460 000 €', 2 => 'En dessous de 460 000 €'); print ''; print "\n"; print ''; print ''; $arraychoices = array(3 => 'Seuil de 460 000 €', 4 => 'En dessous de 460 000 €'); print ''; print "\n"; print ''; print ''; print ''; print "\n"; print '
'.$langs->trans("Description").''.$langs->trans("Value").'
'.$label.''; print ''; print '
'.$langs->trans("INTRACOMMREPORT_TYPE_ACTEUR").''; print $form->selectarray('INTRACOMMREPORT_TYPE_ACTEUR', $arraychoices, $conf->global->INTRACOMMREPORT_TYPE_ACTEUR, 0); print '
'.$langs->trans("INTRACOMMREPORT_ROLE_ACTEUR").''; print $form->selectarray('INTRACOMMREPORT_ROLE_ACTEUR', $arraychoices, $conf->global->INTRACOMMREPORT_ROLE_ACTEUR, 0); print '
'.$langs->trans("INTRACOMMREPORT_NIV_OBLIGATION_INTRODUCTION").''; print $form->selectarray('INTRACOMMREPORT_NIV_OBLIGATION_INTRODUCTION', $arraychoices, $conf->global->INTRACOMMREPORT_NIV_OBLIGATION_INTRODUCTION, 0); print '
'.$langs->trans("INTRACOMMREPORT_NIV_OBLIGATION_EXPEDITION").''; print $form->selectarray('INTRACOMMREPORT_NIV_OBLIGATION_EXPEDITION', $arraychoices, $conf->global->INTRACOMMREPORT_NIV_OBLIGATION_EXPEDITION, 0); print '
'.$langs->trans("INTRACOMMREPORT_CATEG_FRAISDEPORT").''; print $formother->select_categories('product', $conf->global->INTRACOMMREPORT_CATEG_FRAISDEPORT, 'INTRACOMMREPORT_CATEG_FRAISDEPORT'); print '
'; print load_fiche_titre($langs->trans("Parameters").' (DES)'); print ''; print ''; print ''; print ''; print ''; foreach ($list_DES as $key) { print ''; // Param $label = $langs->trans($key); print ''; // Value print ''; print ''; } print '
'.$langs->trans("Description").''.$langs->trans("Value").'
'.$label.''; print ''; print '
'; print '
'; print ''; print '
'; print '
'; print dol_get_fiche_end(); // End of page llxFooter(); $db->close();