AdminCompanyController::index() - Code Metrics - Inspection of "The changes made during the last few days are uplo..." - alxarafe/alixar - Measure and Improve Code Quality continuously with Scrutinizer

Passed
Push — main ( 7af4bb...131f20 )

by Rafael
created 2024-06-21 20:22 UTC
AdminCompanyController::index() F

↳ Parent: AdminCompanyController
Complexity

Conditions	164
Paths	> 20000
Size

Total Lines	961
Code Lines	643
Duplication

Lines	0
Ratio	0 %
Importance

Changes	1
Bugs	0	Features	0
Metric	Value
cc	164
eloc	643
c	1
b	0
f	0
nc	186688
nop	1
dl	0
loc	961
rs	0
How to fix Long Method Complexity

<?php

/* Copyright (C) 2001-2007  Rodolphe Quiedeville    <[email protected]>
 * Copyright (C) 2004-2019	Laurent Destailleur		<[email protected]>
 * Copyright (C) 2005-2017	Regis Houssin			<[email protected]>
 * Copyright (C) 2010-2014	Juanjo Menent			<[email protected]>
 * Copyright (C) 2011-2017	Philippe Grand			<[email protected]>
 * Copyright (C) 2015		Alexandre Spangaro		<[email protected]>
 * Copyright (C) 2017       Rui Strecht			    <[email protected]>
 * Copyright (C) 2023       Nick Fragoulis
 * Copyright (C) 2024       Rafael San José         <[email protected]>
 *
 * 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 <https://www.gnu.org/licenses/>.
 */

namespace DoliModules\Admin\Controller;

global $conf;
global $db;
global $user;
global $hookmanager;
global $user;
global $menumanager;
global $langs;
global $mysoc;


// Load Dolibarr environment
require BASE_PATH . '/main.inc.php';
/*
require_once BASE_PATH . '/../Dolibarr/Lib/Admin.php';
require_once BASE_PATH . '/../Dolibarr/Lib/Company.php';
require_once BASE_PATH . '/../Dolibarr/Lib/Date.php';
require_once BASE_PATH . '/../Dolibarr/Lib/Images.php';
require_once BASE_PATH . '/../Dolibarr/Lib/Files.php';
require_once BASE_PATH . '/../Dolibarr/Lib/Functions2.php';
*/

use DoliCore\Base\DolibarrController;

/**
 *  \file       htdocs/admin/company.php
 *  \ingroup    company
 *  \brief      Setup page to configure company/foundation
 */
class AdminCompanyController extends DolibarrController
{
    /**
     *      \file       htdocs/adherents/type.php
     *      \ingroup    member
     *      \brief      Member's type setup
     */
    public function index($executeActions = true): bool
    {
        global $conf;
        global $db;
        global $user;
        global $hookmanager;
        global $user;
        global $menumanager;
        global $langs;
        global $mysoc;

        $action = GETPOST('action', 'aZ09');
        $contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : 'admincompany'; // To manage different context of search
        $page_y = GETPOSTINT('page_y');

        $conf = \DoliCore\Base\Config::getConf();

// Load translation files required by the page
        $langs->loadLangs(['admin', 'companies', 'bills']);

        if (!$user->admin) {
            accessforbidden();
        }

        $error = 0;

        $tmparraysize = getDefaultImageSizes();
        $maxwidthsmall = $tmparraysize['maxwidthsmall'];
        $maxheightsmall = $tmparraysize['maxheightsmall'];
        $maxwidthmini = $tmparraysize['maxwidthmini'];
        $maxheightmini = $tmparraysize['maxheightmini'];
        $quality = $tmparraysize['quality'];

// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
        $hookmanager->initHooks(['admincompany', 'globaladmin']);


        /*
         * Actions
         */

        $parameters = [];
        $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks

        if ($reshook < 0) {
            setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
        }

        if (
            ($action == 'update' && !GETPOST("cancel", 'alpha'))
            || ($action == 'updateedit')
        ) {
            $tmparray = getCountry(GETPOSTINT('country_id'), 'all', $db, $langs, 0);
            if (!empty($tmparray['id'])) {
                if ($tmparray['code'] == 'FR' && $tmparray['id'] != $mysoc->country_id) {
                    // For FR, default value of option to show profid SIREN is on by default
                    $res = dolibarr_set_const($db, "MAIN_PROFID1_IN_ADDRESS", 1, 'chaine', 0, '', $conf->entity);
                }

                $mysoc->country_id = $tmparray['id'];
                $mysoc->country_code = $tmparray['code'];
                $mysoc->country_label = $tmparray['label'];

                $s = $mysoc->country_id . ':' . $mysoc->country_code . ':' . $mysoc->country_label;
                dolibarr_set_const($db, "MAIN_INFO_SOCIETE_COUNTRY", $s, 'chaine', 0, '', $conf->entity);

                activateModulesRequiredByCountry($mysoc->country_code);
            }

            $tmparray = getState(GETPOSTINT('state_id'), 'all', $db, $langs, 0);
            if (!empty($tmparray['id'])) {
                $mysoc->state_id = $tmparray['id'];
                $mysoc->state_code = $tmparray['code'];
                $mysoc->state_label = $tmparray['label'];

                $s = $mysoc->state_id . ':' . $mysoc->state_code . ':' . $mysoc->state_label;
                dolibarr_set_const($db, "MAIN_INFO_SOCIETE_STATE", $s, 'chaine', 0, '', $conf->entity);
            } else {
                dolibarr_del_const($db, "MAIN_INFO_SOCIETE_STATE", $conf->entity);
            }

            $db->begin();

            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_NOM", GETPOST("name", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_ADDRESS", GETPOST("MAIN_INFO_SOCIETE_ADDRESS", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_TOWN", GETPOST("MAIN_INFO_SOCIETE_TOWN", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_ZIP", GETPOST("MAIN_INFO_SOCIETE_ZIP", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_REGION", GETPOST("region_code", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_MONNAIE", GETPOST("currency", 'aZ09'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_TEL", GETPOST("phone", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_MOBILE", GETPOST("phone_mobile", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_FAX", GETPOST("fax", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_MAIL", GETPOST("mail", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_WEB", GETPOST("web", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_NOTE", GETPOST("note", 'restricthtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_GENCOD", GETPOST("barcode", 'alphanohtml'), 'chaine', 0, '', $conf->entity);

            $dirforimage = $conf->mycompany->dir_output . '/logos/';

            $arrayofimages = ['logo', 'logo_squarred'];
            //var_dump($_FILES); exit;
            foreach ($arrayofimages as $varforimage) {
                if ($_FILES[$varforimage]["name"] && !preg_match('/(\.jpeg|\.jpg|\.png)$/i', $_FILES[$varforimage]["name"])) {  // Logo can be used on a lot of different places. Only jpg and png can be supported.
                    $langs->load("errors");
                    setEventMessages($langs->trans("ErrorBadImageFormat"), null, 'errors');
                    break;
                }

                // Remove to check file size to large
                /*if ($_FILES[$varforimage]["tmp_name"]) {*/
                $reg = [];
                if (preg_match('/([^\\/:]+)$/i', $_FILES[$varforimage]["name"], $reg)) {
                    $original_file = $reg[1];

                    $isimage = image_format_supported($original_file);
                    if ($isimage >= 0) {
                        dol_syslog("Move file " . $_FILES[$varforimage]["tmp_name"] . " to " . $dirforimage . $original_file);
                        if (!is_dir($dirforimage)) {
                            dol_mkdir($dirforimage);
                        }
                        $result = dol_move_uploaded_file($_FILES[$varforimage]["tmp_name"], $dirforimage . $original_file, 1, 0, $_FILES[$varforimage]['error']);

                        if (is_numeric($result) && $result > 0) {
                            $constant = "MAIN_INFO_SOCIETE_LOGO";
                            if ($varforimage == 'logo_squarred') {
                                $constant = "MAIN_INFO_SOCIETE_LOGO_SQUARRED";
                            }

                            dolibarr_set_const($db, $constant, $original_file, 'chaine', 0, '', $conf->entity);

                            // Create thumbs of logo (Note that PDF use original file and not thumbs)
                            if ($isimage > 0) {
                                // Create thumbs
                                //$object->addThumbs($newfile);    // We can't use addThumbs here yet because we need name of generated thumbs to add them into constants. TODO Check if need such constants. We should be able to retrieve value with get...


                                // Create small thumb, Used on logon for example
                                $imgThumbSmall = vignette($dirforimage . $original_file, $maxwidthsmall, $maxheightsmall, '_small', $quality);
                                if (image_format_supported($imgThumbSmall) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbSmall, $reg)) {
                                    $imgThumbSmall = $reg[1]; // Save only basename
                                    dolibarr_set_const($db, $constant . "_SMALL", $imgThumbSmall, 'chaine', 0, '', $conf->entity);
                                } else {
                                    dol_syslog($imgThumbSmall);
                                }

                                // Create mini thumb, Used on menu or for setup page for example
                                $imgThumbMini = vignette($dirforimage . $original_file, $maxwidthmini, $maxheightmini, '_mini', $quality);
                                if (image_format_supported($imgThumbMini) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbMini, $reg)) {
                                    $imgThumbMini = $reg[1]; // Save only basename
                                    dolibarr_set_const($db, $constant . "_MINI", $imgThumbMini, 'chaine', 0, '', $conf->entity);
                                } else {
                                    dol_syslog($imgThumbMini);
                                }
                            } else {
                                dol_syslog("ErrorImageFormatNotSupported", LOG_WARNING);
                            }
                        } elseif (preg_match('/^ErrorFileIsInfectedWithAVirus/', $result)) {
                            $error++;
                            $langs->load("errors");
                            $tmparray = explode(':', $result);
                            setEventMessages($langs->trans('ErrorFileIsInfectedWithAVirus', $tmparray[1]), null, 'errors');
                        } elseif (preg_match('/^ErrorFileSizeTooLarge/', $result)) {
                            $error++;
                            setEventMessages($langs->trans("ErrorFileSizeTooLarge"), null, 'errors');
                        } else {
                            $error++;
                            setEventMessages($langs->trans("ErrorFailedToSaveFile"), null, 'errors');
                        }
                    } else {
                        $error++;
                        $langs->load("errors");
                        setEventMessages($langs->trans("ErrorBadImageFormat"), null, 'errors');
                    }
                }
                /*}*/
            }

            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_MANAGERS", GETPOST("MAIN_INFO_SOCIETE_MANAGERS", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_GDPR", GETPOST("MAIN_INFO_GDPR", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_CAPITAL", GETPOST("capital", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_FORME_JURIDIQUE", GETPOST("forme_juridique_code", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SIREN", GETPOST("siren", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SIRET", GETPOST("siret", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_APE", GETPOST("ape", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_RCS", GETPOST("rcs", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_PROFID5", GETPOST("MAIN_INFO_PROFID5", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_PROFID6", GETPOST("MAIN_INFO_PROFID6", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_PROFID7", GETPOST("MAIN_INFO_PROFID7", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_PROFID8", GETPOST("MAIN_INFO_PROFID8", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_PROFID9", GETPOST("MAIN_INFO_PROFID9", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_PROFID10", GETPOST("MAIN_INFO_PROFID10", 'alphanohtml'), 'chaine', 0, '', $conf->entity);

            dolibarr_set_const($db, "MAIN_INFO_TVAINTRA", GETPOST("tva", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "MAIN_INFO_SOCIETE_OBJECT", GETPOST("socialobject", 'alphanohtml'), 'chaine', 0, '', $conf->entity);

            dolibarr_set_const($db, "SOCIETE_FISCAL_MONTH_START", GETPOSTINT("SOCIETE_FISCAL_MONTH_START"), 'chaine', 0, '', $conf->entity);

            // Sale tax options
            $usevat = GETPOST("optiontva", 'aZ09');
            $uselocaltax1 = GETPOST("optionlocaltax1", 'aZ09');
            $uselocaltax2 = GETPOST("optionlocaltax2", 'aZ09');
            if ($uselocaltax1 == 'localtax1on' && !$usevat) {
                setEventMessages($langs->trans("IfYouUseASecondTaxYouMustSetYouUseTheMainTax"), null, 'errors');
                $error++;
            }
            if ($uselocaltax2 == 'localtax2on' && !$usevat) {
                setEventMessages($langs->trans("IfYouUseAThirdTaxYouMustSetYouUseTheMainTax"), null, 'errors');
                $error++;
            }

            dolibarr_set_const($db, "FACTURE_TVAOPTION", $usevat, 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "FACTURE_LOCAL_TAX1_OPTION", $uselocaltax1, 'chaine', 0, '', $conf->entity);
            dolibarr_set_const($db, "FACTURE_LOCAL_TAX2_OPTION", $uselocaltax2, 'chaine', 0, '', $conf->entity);

            if (GETPOST("optionlocaltax1") == "localtax1on") {
                if (!GETPOSTISSET('lt1')) {
                    dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX1", 0, 'chaine', 0, '', $conf->entity);
                } else {
                    dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX1", GETPOST('lt1', 'aZ09'), 'chaine', 0, '', $conf->entity);
                }
                dolibarr_set_const($db, "MAIN_INFO_LOCALTAX_CALC1", GETPOST("clt1", 'aZ09'), 'chaine', 0, '', $conf->entity);
            }
            if (GETPOST("optionlocaltax2") == "localtax2on") {
                if (!GETPOSTISSET('lt2')) {
                    dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX2", 0, 'chaine', 0, '', $conf->entity);
                } else {
                    dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX2", GETPOST('lt2', 'aZ09'), 'chaine', 0, '', $conf->entity);
                }
                dolibarr_set_const($db, "MAIN_INFO_LOCALTAX_CALC2", GETPOST("clt2", 'aZ09'), 'chaine', 0, '', $conf->entity);
            }

            // Credentials for AADE webservices, applicable only for Greece
            if ($mysoc->country_code == 'GR') {
                dolibarr_set_const($db, "MYDATA_AADE_USER", GETPOST("MYDATA_AADE_USER", 'alpha'), 'chaine', 0, '', $conf->entity);
                dolibarr_set_const($db, "MYDATA_AADE_KEY", GETPOST("MYDATA_AADE_KEY", 'alpha'), 'chaine', 0, '', $conf->entity);
                dolibarr_set_const($db, "AADE_WEBSERVICE_USER", GETPOST("AADE_WEBSERVICE_USER", 'alpha'), 'chaine', 0, '', $conf->entity);
                dolibarr_set_const($db, "AADE_WEBSERVICE_KEY", GETPOST("AADE_WEBSERVICE_KEY", 'alpha'), 'chaine', 0, '', $conf->entity);
            }

            // Remove constant MAIN_INFO_SOCIETE_SETUP_TODO_WARNING
            dolibarr_del_const($db, "MAIN_INFO_SOCIETE_SETUP_TODO_WARNING", $conf->entity);

            if (!$error) {
                if (GETPOST('save')) {  // To avoid to show message when we juste switch the country that resubmit the form.
                    setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
                }
                $db->commit();
            } else {
                $db->rollback();
            }

            if ($action != 'updateedit' && !$error) {
                header("Location: " . $_SERVER['PHP_SELF'] . ($page_y ? '?page_y=' . $page_y : ''));
                exit;
interface ReturnsInt {
    public function returnsIntHinted(): int;
}

class MyClass implements ReturnsInt {
    public function returnsIntHinted(): int
    {
        if (foo()) {
            return 123;
        }
        // here: null is implicitly returned
    }
}
            }
        }

        if ($action == 'addthumb' || $action == 'addthumbsquarred') {  // Regenerate thumbs
            if (file_exists($conf->mycompany->dir_output . '/logos/' . $_GET["file"])) {
                $isimage = image_format_supported($_GET["file"]);

                // Create thumbs of logo
                if ($isimage > 0) {
                    $constant = "MAIN_INFO_SOCIETE_LOGO";
                    if ($action == 'addthumbsquarred') {
                        $constant = "MAIN_INFO_SOCIETE_LOGO_SQUARRED";
                    }

                    $reg = [];

                    // Create thumbs
                    //$object->addThumbs($newfile);    // We can't use addThumbs here yet because we need name of generated thumbs to add them into constants. TODO Check if need such constants. We should be able to retrieve value with get...

                    // Create small thumb. Used on logon for example
                    $imgThumbSmall = vignette($conf->mycompany->dir_output . '/logos/' . $_GET["file"], $maxwidthsmall, $maxheightsmall, '_small', $quality);
                    if (image_format_supported($imgThumbSmall) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbSmall, $reg)) {
                        $imgThumbSmall = $reg[1]; // Save only basename
                        dolibarr_set_const($db, $constant . "_SMALL", $imgThumbSmall, 'chaine', 0, '', $conf->entity);
                    } else {
                        dol_syslog($imgThumbSmall);
                    }

                    // Create mini thumbs. Used on menu or for setup page for example
                    $imgThumbMini = vignette($conf->mycompany->dir_output . '/logos/' . $_GET["file"], $maxwidthmini, $maxheightmini, '_mini', $quality);
                    if (image_format_supported($imgThumbSmall) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbMini, $reg)) {
                        $imgThumbMini = $reg[1]; // Save only basename
                        dolibarr_set_const($db, $constant . "_MINI", $imgThumbMini, 'chaine', 0, '', $conf->entity);
                    } else {
                        dol_syslog($imgThumbMini);
                    }

                    header("Location: " . $_SERVER['PHP_SELF']);
                    exit;
interface ReturnsInt {
    public function returnsIntHinted(): int;
}

class MyClass implements ReturnsInt {
    public function returnsIntHinted(): int
    {
        if (foo()) {
            return 123;
        }
        // here: null is implicitly returned
    }
}
                } else {
                    $error++;
                    $langs->load("errors");
                    setEventMessages($langs->trans("ErrorBadImageFormat"), null, 'errors');
                    dol_syslog($langs->transnoentities("ErrorBadImageFormat"), LOG_INFO);
                }
            } else {
                $error++;
                $langs->load("errors");
                setEventMessages($langs->trans("ErrorFileDoesNotExists", GETPOST("file")), null, 'errors');
                dol_syslog($langs->transnoentities("ErrorFileDoesNotExists", GETPOST("file")), LOG_WARNING);
            }
        }


        if ($action == 'removelogo' || $action == 'removelogosquarred') {
            $constant = "MAIN_INFO_SOCIETE_LOGO";
            if ($action == 'removelogosquarred') {
                $constant = "MAIN_INFO_SOCIETE_LOGO_SQUARRED";
            }

            require_once BASE_PATH . '/../Dolibarr/Lib/Files.php';

            $logofilename = $mysoc->logo;
            $logofilenamebis = $mysoc->logo_squarred;
            if ($action == 'removelogosquarred') {
                $logofilename = $mysoc->logo_squarred;
                $logofilenamebis = $mysoc->logo;
            }

            $logofile = $conf->mycompany->dir_output . '/logos/' . $logofilename;
            if ($logofilename != '' && $logofilename != $logofilenamebis) {
                dol_delete_file($logofile);
            }
            dolibarr_del_const($db, $constant, $conf->entity);
            if ($action == 'removelogosquarred') {
                $mysoc->logo_squarred = '';
            } else {
                $mysoc->logo = '';
            }

            $logofilename = $mysoc->logo_small;
            $logofilenamebis = $mysoc->logo_squarred_small;
            if ($action == 'removelogosquarred') {
                $logofilename = $mysoc->logo_squarred_small;
                $logofilenamebis = $mysoc->logo_small;
            }

            $logosmallfile = $conf->mycompany->dir_output . '/logos/thumbs/' . $logofilename;
            if ($logofilename != '' && $logofilename != $logofilenamebis) {
                dol_delete_file($logosmallfile);
            }
            dolibarr_del_const($db, $constant . "_SMALL", $conf->entity);
            if ($action == 'removelogosquarred') {
                $mysoc->logo_squarred_small = '';
            } else {
                $mysoc->logo_small = '';
            }

            $logofilename = $mysoc->logo_mini;
            $logofilenamebis = $mysoc->logo_squarred_mini;
            if ($action == 'removelogosquarred') {
                $logofilename = $mysoc->logo_squarred_mini;
                $logofilenamebis = $mysoc->logo_mini;
            }

            $logominifile = $conf->mycompany->dir_output . '/logos/thumbs/' . $logofilename;
            if ($logofilename != '' && $logofilename != $logofilenamebis) {
                dol_delete_file($logominifile);
            }
            dolibarr_del_const($db, $constant . "_MINI", $conf->entity);
            if ($action == 'removelogosquarred') {
                $mysoc->logo_squarred_mini = '';
            } else {
                $mysoc->logo_mini = '';
            }
        }


        /*
         * View
         */

        $wikihelp = 'EN:First_setup|FR:Premiers_paramétrages|ES:Primeras_configuraciones';
        llxHeader('', $langs->trans("Setup"), $wikihelp);

        $form = new Form($db);
        $formother = new FormOther($db);
        $formcompany = new FormCompany($db);

        $countrynotdefined = '<span class="error">' . $langs->trans("ErrorSetACountryFirst") . ' <a href="#trzipbeforecountry">(' . $langs->trans("SeeAbove") . ')</a></span>';

        print load_fiche_titre($langs->trans("CompanyFoundation"), '', 'title_setup');

        $head = company_admin_prepare_head();

        print dol_get_fiche_head($head, 'company', '', -1, '');

        print '<span class="opacitymedium">' . $langs->trans("CompanyFundationDesc", $langs->transnoentities("Save")) . "</span><br>\n";
        print "<br><br>\n";


// Edit parameters
        if (!empty($conf->use_javascript_ajax)) {
            print "\n" . '<script type="text/javascript">';
            print '$(document).ready(function () {
		  $("#selectcountry_id").change(function() {
			document.form_index.action.value="updateedit";
			document.form_index.submit();
		  });
	  });';
            print '</script>' . "\n";
        }

        print '<form enctype="multipart/form-data" method="POST" action="' . $_SERVER['PHP_SELF'] . '" name="form_index">';
        print '<input type="hidden" name="token" value="' . newToken() . '">';
        print '<input type="hidden" name="action" value="update">';
        print '<input type="hidden" name="page_y" value="">';

        print '<table class="noborder centpercent editmode">';
        print '<tr class="liste_titre"><th class="titlefieldcreate wordbreak">' . $langs->trans("CompanyInfo") . '</th><th></th></tr>' . "\n";

// Name
        print '<tr class="oddeven"><td class="fieldrequired wordbreak"><label for="name">' . $langs->trans("CompanyName") . '</label></td><td>';
        print '<input name="name" id="name" class="minwidth200" value="' . dol_escape_htmltag((GETPOSTISSET('name') ? GETPOST('name', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_NOM')))) . '"' . (!getDolGlobalString('MAIN_INFO_SOCIETE_NOM') ? ' autofocus="autofocus"' : '') . '></td></tr>' . "\n";

// Address
        print '<tr class="oddeven"><td><label for="MAIN_INFO_SOCIETE_ADDRESS">' . $langs->trans("CompanyAddress") . '</label></td><td>';
        print '<textarea name="MAIN_INFO_SOCIETE_ADDRESS" id="MAIN_INFO_SOCIETE_ADDRESS" class="quatrevingtpercent" rows="' . ROWS_3 . '">' . (GETPOSTISSET('MAIN_INFO_SOCIETE_ADDRESS') ? GETPOST('MAIN_INFO_SOCIETE_ADDRESS', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_ADDRESS'))) . '</textarea></td></tr>' . "\n";

// Zip
        print '<tr class="oddeven" id="trzipbeforecountry"><td><label for="MAIN_INFO_SOCIETE_ZIP">' . $langs->trans("CompanyZip") . '</label></td><td>';
        print '<input class="width100" name="MAIN_INFO_SOCIETE_ZIP" id="MAIN_INFO_SOCIETE_ZIP" value="' . dol_escape_htmltag((GETPOSTISSET('MAIN_INFO_SOCIETE_ZIP') ? GETPOST('MAIN_INFO_SOCIETE_ZIP', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_ZIP')))) . '"></td></tr>' . "\n";

        print '<tr class="oddeven" id="trtownbeforecountry"><td><label for="MAIN_INFO_SOCIETE_TOWN">' . $langs->trans("CompanyTown") . '</label></td><td>';
        print '<input name="MAIN_INFO_SOCIETE_TOWN" class="minwidth200" id="MAIN_INFO_SOCIETE_TOWN" value="' . dol_escape_htmltag((GETPOSTISSET('MAIN_INFO_SOCIETE_TOWN') ? GETPOST('MAIN_INFO_SOCIETE_TOWN', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_TOWN')))) . '"></td></tr>' . "\n";

// Country
        print '<tr class="oddeven"><td class="fieldrequired"><label for="selectcountry_id">' . $langs->trans("Country") . '</label></td><td>';
        print img_picto('', 'globe-americas', 'class="pictofixedwidth"');
        print $form->select_country($mysoc->country_id, 'country_id', '', 0);
        if ($user->admin) {
            print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
        }
        print '</td></tr>' . "\n";

        print '<tr class="oddeven"><td class="wordbreak"><label for="state_id">' . $langs->trans("State") . '</label></td><td>';
        $state_id = 0;
        if (getDolGlobalString('MAIN_INFO_SOCIETE_STATE')) {
            $tmp = explode(':', getDolGlobalString('MAIN_INFO_SOCIETE_STATE'));
            $state_id = $tmp[0];
        }
        print img_picto('', 'state', 'class="pictofixedwidth"');
        print $formcompany->select_state($state_id, $mysoc->country_code, 'state_id', 'maxwidth200onsmartphone minwidth300');
        print '</td></tr>' . "\n";

// Currency
        print '<tr class="oddeven"><td><label for="currency">' . $langs->trans("CompanyCurrency") . '</label></td><td>';
        print img_picto('', 'multicurrency', 'class="pictofixedwidth"');
        print $form->selectCurrency($conf->currency, "currency");
        print '</td></tr>' . "\n";

// Phone
        print '<tr class="oddeven"><td><label for="phone">' . $langs->trans("Phone") . '</label></td><td>';
        print img_picto('', 'object_phoning', '', false, 0, 0, '', 'pictofixedwidth');
        print '<input class="maxwidth150 widthcentpercentminusx" name="phone" id="phone" value="' . dol_escape_htmltag((GETPOSTISSET('phone') ? GETPOST('phone', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_TEL')))) . '"></td></tr>';
        print '</td></tr>' . "\n";

// Phone mobile
        print '<tr class="oddeven"><td><label for="phone">' . $langs->trans("PhoneMobile") . '</label></td><td>';
        print img_picto('', 'object_phoning_mobile', '', false, 0, 0, '', 'pictofixedwidth');
        print '<input class="maxwidth150 widthcentpercentminusx" name="phone_mobile" id="phone_mobile" value="' . dol_escape_htmltag((GETPOSTISSET('phone_mobile') ? GETPOST('phone_mobile', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_MOBILE')))) . '"></td></tr>';
        print '</td></tr>' . "\n";

// Fax
        print '<tr class="oddeven"><td><label for="fax">' . $langs->trans("Fax") . '</label></td><td>';
        print img_picto('', 'object_phoning_fax', '', false, 0, 0, '', 'pictofixedwidth');
        print '<input class="maxwidth150" name="fax" id="fax" value="' . dol_escape_htmltag((GETPOSTISSET('fax') ? GETPOST('fax', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_FAX')))) . '"></td></tr>';
        print '</td></tr>' . "\n";

// Email
        print '<tr class="oddeven"><td><label for="email">' . $langs->trans("EMail") . '</label></td><td>';
        print img_picto('', 'object_email', '', false, 0, 0, '', 'pictofixedwidth');
        print '<input class="minwidth300 maxwidth500 widthcentpercentminusx" name="mail" id="email" value="' . dol_escape_htmltag((GETPOSTISSET('mail') ? GETPOST('mail', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_MAIL') ? $conf->global->MAIN_INFO_SOCIETE_MAIL : ''))) . '"></td></tr>';
        print '</td></tr>' . "\n";

// Web
        print '<tr class="oddeven"><td><label for="web">' . $langs->trans("Web") . '</label></td><td>';
        print img_picto('', 'globe', '', false, 0, 0, '', 'pictofixedwidth');
        print '<input class="maxwidth300 widthcentpercentminusx" name="web" id="web" value="' . dol_escape_htmltag((GETPOSTISSET('web') ? GETPOST('web', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_WEB') ? $conf->global->MAIN_INFO_SOCIETE_WEB : ''))) . '"></td></tr>';
        print '</td></tr>' . "\n";

// Barcode
        if (isModEnabled('barcode')) {
            print '<tr class="oddeven"><td>';
            print '<label for="barcode">' . $langs->trans("Gencod") . '</label></td><td>';
            print '<span class="fa fa-barcode pictofixedwidth"></span>';
            print '<input name="barcode" id="barcode" class="minwidth150 widthcentpercentminusx maxwidth300" value="' . dol_escape_htmltag(GETPOSTISSET('barcode') ? GETPOST('barcode', 'alphanohtml') : getDolGlobalString('MAIN_INFO_SOCIETE_GENCOD', '')) . '"></td></tr>';
            print '</td></tr>';
        }

// Tooltip for both Logo and LogSquarred
        $tooltiplogo = $langs->trans('AvailableFormats') . ' : png, jpg, jpeg';
        $maxfilesizearray = getMaxFileSizeArray();
        $maxmin = $maxfilesizearray['maxmin'];
        $tooltiplogo .= ($maxmin > 0) ? '<br>' . $langs->trans('MaxSize') . ' : ' . $maxmin . ' ' . $langs->trans('Kb') : '';

// Logo
        print '<tr class="oddeven"><td><label for="logo">' . $form->textwithpicto($langs->trans("Logo"), $tooltiplogo) . '</label></td><td>';
        print '<div class="centpercent nobordernopadding valignmiddle "><div class="inline-block marginrightonly">';
        if ($maxmin > 0) {
            print '<input type="hidden" name="MAX_FILE_SIZE" value="' . ($maxmin * 1024) . '">';    // MAX_FILE_SIZE must precede the field type=file
        }
        print '<input type="file" class="flat minwidth100 maxwidthinputfileonsmartphone" name="logo" id="logo" accept="image/*">';
        print '</div>';
        if (!empty($mysoc->logo_small)) {
            print '<div class="inline-block valignmiddle marginrightonly">';
            print '<a class="reposition" href="' . $_SERVER['PHP_SELF'] . '?action=removelogo&token=' . newToken() . '">' . img_delete($langs->trans("Delete"), '', 'marginleftonly') . '</a>';
            print '</div>';
            if (file_exists($conf->mycompany->dir_output . '/logos/thumbs/' . $mysoc->logo_small)) {
                print '<div class="inline-block valignmiddle">';
                print '<img style="max-height: 80px; max-width: 200px;" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=mycompany&file=' . urlencode('logos/thumbs/' . $mysoc->logo_small) . '">';
                print '</div>';
            } elseif (!empty($mysoc->logo)) {
                if (!file_exists($conf->mycompany->dir_output . '/logos/thumbs/' . $mysoc->logo_mini)) {
                    $imgThumbMini = vignette($conf->mycompany->dir_output . '/logos/' . $mysoc->logo, $maxwidthmini, $maxheightmini, '_mini', $quality);
                }
                $imgThumbSmall = vignette($conf->mycompany->dir_output . '/logos/' . $mysoc->logo, $maxwidthmini, $maxheightmini, '_small', $quality);
                print '<div class="inline-block valignmiddle">';
                print '<img style="max-height: 80px; max-width: 200px;" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=mycompany&amp;file=' . urlencode('logos/thumbs/' . basename($imgThumbSmall)) . '">';
                print '</div>';
            }
        } elseif (!empty($mysoc->logo)) {
            if (file_exists($conf->mycompany->dir_output . '/logos/' . $mysoc->logo)) {
                print '<div class="inline-block valignmiddle">';
                print '<img style="max-height: 80px" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=mycompany&file=' . urlencode('logos/' . $mysoc->logo) . '">';
                print '</div>';
                print '<div class="inline-block valignmiddle marginrightonly"><a class="reposition" href="' . $_SERVER['PHP_SELF'] . '?action=removelogo&token=' . newToken() . '">' . img_delete($langs->trans("Delete"), '', 'marginleftonly') . '</a></div>';
            } else {
                print '<div class="inline-block valignmiddle">';
                print '<img height="80" src="' . DOL_URL_ROOT . '/public/theme/common/nophoto.png" title="File has been removed from disk">';
                print '</div>';
            }
        }
        print '</div>';
        print '</td></tr>';

// Logo (squarred)
        print '<tr class="oddeven"><td><label for="logo_squarred">' . $form->textwithpicto($langs->trans("LogoSquarred"), $tooltiplogo) . '</label></td><td>';
        print '<div class="centpercent nobordernopadding valignmiddle"><div class="inline-block marginrightonly">';
        $maxfilesizearray = getMaxFileSizeArray();
        $maxmin = $maxfilesizearray['maxmin'];
        if ($maxmin > 0) {
            print '<input type="hidden" name="MAX_FILE_SIZE" value="' . ($maxmin * 1024) . '">';    // MAX_FILE_SIZE must precede the field type=file
        }
        print '<input type="file" class="flat minwidth100 maxwidthinputfileonsmartphone" name="logo_squarred" id="logo_squarred" accept="image/*">';
        print '</div>';
        if (!empty($mysoc->logo_squarred_small)) {
            print '<div class="inline-block valignmiddle marginrightonly">';
            print '<a class="reposition" href="' . $_SERVER['PHP_SELF'] . '?action=removelogosquarred&token=' . newToken() . '">' . img_delete($langs->trans("Delete"), '', 'marginleftonly') . '</a>';
            print '</div>';
            if (file_exists($conf->mycompany->dir_output . '/logos/thumbs/' . $mysoc->logo_squarred_small)) {
                print '<div class="inline-block valignmiddle marginrightonly">';
                print '<img style="max-height: 80px" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=mycompany&file=' . urlencode('logos/thumbs/' . $mysoc->logo_squarred_small) . '">';
                print '</div>';
            } elseif (!empty($mysoc->logo_squarred)) {
                if (!file_exists($conf->mycompany->dir_output . '/logos/thumbs/' . $mysoc->logo_squarred_mini)) {
                    $imgThumbMini = vignette($conf->mycompany->dir_output . '/logos/' . $mysoc->logo_squarred, $maxwidthmini, $maxheightmini, '_mini', $quality);
                }
                $imgThumbSmall = vignette($conf->mycompany->dir_output . '/logos/' . $mysoc->logo_squarred, $maxwidthmini, $maxheightmini, '_small', $quality);
                print '<div class="inline-block valignmiddle">';
                print '<img style="max-height: 80px" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=mycompany&file=' . urlencode('logos/thumbs/' . basename($imgThumbSmall)) . '">';
                print '</div>';
            }
        } elseif (!empty($mysoc->logo_squarred)) {
            if (file_exists($conf->mycompany->dir_output . '/logos/' . $mysoc->logo_squarred)) {
                print '<div class="inline-block valignmiddle">';
                print '<img style="max-height: 80px" src="' . DOL_URL_ROOT . '/viewimage.php?modulepart=mycompany&file=' . urlencode('logos/' . $mysoc->logo_squarred) . '">';
                print '</div>';
                print '<div class="inline-block valignmiddle marginrightonly"><a class="reposition" href="' . $_SERVER['PHP_SELF'] . '?action=removelogosquarred&token=' . newToken() . '">' . img_delete($langs->trans("Delete"), '', 'marginleftonly') . '</a></div>';
            } else {
                print '<div class="inline-block valignmiddle">';
                print '<img height="80" src="' . DOL_URL_ROOT . '/public/theme/common/nophoto.png" title="File has been removed from disk">';
                print '</div>';
            }
        }
        print '</div>';
        print '</td></tr>';

// Note
        print '<tr class="oddeven"><td class="tdtop"><label for="note">' . $langs->trans("Note") . '</label></td><td>';
        print '<textarea class="flat quatrevingtpercent" name="note" id="note" rows="' . ROWS_5 . '">' . (GETPOSTISSET('note') ? GETPOST('note', 'restricthtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_NOTE') ? $conf->global->MAIN_INFO_SOCIETE_NOTE : '')) . '</textarea></td></tr>';
        print '</td></tr>';

        print '</table>';

        print $form->buttonsSaveCancel("Save", '', [], false, 'reposition');

        print '<br><br>';


// IDs of the company (country-specific)
        print '<div class="div-table-responsive-no-min">';
        print '<table class="noborder centpercent editmode">';
        print '<tr class="liste_titre"><td class="titlefieldcreate wordbreak">' . $langs->trans("CompanyIds") . '</td><td></td></tr>';

        $langs->load("companies");

// Managing Director(s)
        print '<tr class="oddeven"><td><label for="director">' . $langs->trans("ManagingDirectors") . '</label></td><td>';
        print '<input name="MAIN_INFO_SOCIETE_MANAGERS" id="directors" class="minwidth300" value="' . dol_escape_htmltag((GETPOSTISSET('MAIN_INFO_SOCIETE_MANAGERS') ? GETPOST('MAIN_INFO_SOCIETE_MANAGERS', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_MANAGERS') ? $conf->global->MAIN_INFO_SOCIETE_MANAGERS : ''))) . '"></td></tr>';

// GDPR contact
        print '<tr class="oddeven"><td>';
        print $form->textwithpicto($langs->trans("GDPRContact"), $langs->trans("GDPRContactDesc"));
        print '</td><td>';
        print '<input name="MAIN_INFO_GDPR" id="infodirector" class="minwidth300" value="' . dol_escape_htmltag((GETPOSTISSET("MAIN_INFO_GDPR") ? GETPOST("MAIN_INFO_GDPR", 'alphanohtml') : (getDolGlobalString('MAIN_INFO_GDPR') ? $conf->global->MAIN_INFO_GDPR : ''))) . '"></td></tr>';

// Capital
        print '<tr class="oddeven"><td><label for="capital">' . $langs->trans("Capital") . '</label></td><td>';
        print '<input name="capital" id="capital" class="maxwidth100" value="' . dol_escape_htmltag((GETPOSTISSET('capital') ? GETPOST('capital', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_CAPITAL') ? $conf->global->MAIN_INFO_CAPITAL : ''))) . '"></td></tr>';

// Juridical Status
        print '<tr class="oddeven"><td><label for="forme_juridique_code">' . $langs->trans("JuridicalStatus") . '</label></td><td>';
        if ($mysoc->country_code) {
            print $formcompany->select_juridicalstatus($conf->global->MAIN_INFO_SOCIETE_FORME_JURIDIQUE ?? '', $mysoc->country_code, '', 'forme_juridique_code');
        } else {
            print $countrynotdefined;
        }
        print '</td></tr>';

// ProfId1
        if ($langs->transcountry("ProfId1", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid1">' . $langs->transcountry("ProfId1", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="siren" id="profid1" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_SIREN') ? $conf->global->MAIN_INFO_SIREN : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId2
        if ($langs->transcountry("ProfId2", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid2">' . $langs->transcountry("ProfId2", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="siret" id="profid2" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_SIRET') ? $conf->global->MAIN_INFO_SIRET : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId3
        if ($langs->transcountry("ProfId3", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid3">' . $langs->transcountry("ProfId3", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="ape" id="profid3" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_APE') ? $conf->global->MAIN_INFO_APE : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId4
        if ($langs->transcountry("ProfId4", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid4">' . $langs->transcountry("ProfId4", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="rcs" id="profid4" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_RCS') ? $conf->global->MAIN_INFO_RCS : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId5
        if ($langs->transcountry("ProfId5", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid5">' . $langs->transcountry("ProfId5", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="MAIN_INFO_PROFID5" id="profid5" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID5') ? $conf->global->MAIN_INFO_PROFID5 : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId6
        if ($langs->transcountry("ProfId6", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid6">' . $langs->transcountry("ProfId6", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="MAIN_INFO_PROFID6" id="profid6" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID6') ? $conf->global->MAIN_INFO_PROFID6 : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId7
        if ($langs->transcountry("ProfId7", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid7">' . $langs->transcountry("profid7", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="MAIN_INFO_PROFID7" id="profid7" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID7') ? $conf->global->MAIN_INFO_PROFID7 : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId8
        if ($langs->transcountry("ProfId8", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid8">' . $langs->transcountry("profid8", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="MAIN_INFO_PROFID8" id="profid8" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID8') ? $conf->global->MAIN_INFO_PROFID8 : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId9
        if ($langs->transcountry("ProfId9", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid9">' . $langs->transcountry("profid9", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="MAIN_INFO_PROFID9" id="profid9" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID9') ? $conf->global->MAIN_INFO_PROFID9 : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// ProfId10
        if ($langs->transcountry("ProfId10", $mysoc->country_code) != '-') {
            print '<tr class="oddeven"><td><label for="profid10">' . $langs->transcountry("profid10", $mysoc->country_code) . '</label></td><td>';
            if (!empty($mysoc->country_code)) {
                print '<input name="MAIN_INFO_PROFID10" id="profid10" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID10') ? $conf->global->MAIN_INFO_PROFID10 : '') . '">';
            } else {
                print $countrynotdefined;
            }
            print '</td></tr>';
        }

// Intra-community VAT number
        print '<tr class="oddeven"><td><label for="intra_vat">' . $langs->trans("VATIntra") . '</label></td><td>';
        print '<input name="tva" id="intra_vat" class="minwidth200" value="' . dol_escape_htmltag(getDolGlobalString('MAIN_INFO_TVAINTRA') ? $conf->global->MAIN_INFO_TVAINTRA : '') . '">';
        print '</td></tr>';

// Object of the company
        print '<tr class="oddeven"><td><label for="socialobject">' . $langs->trans("CompanyObject") . '</label></td><td>';
        print '<textarea class="flat quatrevingtpercent" name="socialobject" id="socialobject" rows="' . ROWS_5 . '">' . (getDolGlobalString('MAIN_INFO_SOCIETE_OBJECT') ? $conf->global->MAIN_INFO_SOCIETE_OBJECT : '') . '</textarea></td></tr>';
        print '</td></tr>';

        print '</table>';
        print '</div>';


// Fiscal year start
        print '<br>';
        print '<table class="noborder centpercent editmode">';
        print '<tr class="liste_titre">';
        print '<td class="titlefieldcreate">' . $langs->trans("FiscalYearInformation") . '</td><td></td>';
        print "</tr>\n";

        print '<tr class="oddeven"><td><label for="SOCIETE_FISCAL_MONTH_START">' . $langs->trans("FiscalMonthStart") . '</label></td><td>';
        print $formother->select_month(getDolGlobalInt('SOCIETE_FISCAL_MONTH_START') ? $conf->global->SOCIETE_FISCAL_MONTH_START : '', 'SOCIETE_FISCAL_MONTH_START', 0, 1, 'maxwidth100') . '</td></tr>';

        print "</table>";

        print $form->buttonsSaveCancel("Save", '', [], false, 'reposition');

        print '<br>';


// Sales taxes (VAT, IRPF, ...)
        print load_fiche_titre($langs->trans("TypeOfSaleTaxes"), '', 'object_payment');

        print '<table class="noborder centpercent editmode">';
        print '<tr class="liste_titre">';
        print '<td class="titlefieldcreate">' . $langs->trans("VATManagement") . '</td><td></td>';
        print '<td class="right">&nbsp;</td>';
        print "</tr>\n";

// Main tax
        print '<tr class="oddeven"><td><label><input type="radio" name="optiontva" id="use_vat" value="1"' . (!getDolGlobalString('FACTURE_TVAOPTION') ? "" : " checked") . "> " . $langs->trans("VATIsUsed") . "</label></td>";
        print '<td colspan="2">';
        $tooltiphelp = '';
        if ($mysoc->country_code == 'FR') {
            $tooltiphelp = '<i>' . $langs->trans("Example") . ': ' . $langs->trans("VATIsUsedExampleFR") . "</i>";
        }
        print '<label for="use_vat">' . $form->textwithpicto($langs->trans("VATIsUsedDesc"), $tooltiphelp) . "</label>";
        print "</td></tr>\n";


        print '<tr class="oddeven"><td width="140"><label><input type="radio" name="optiontva" id="no_vat" value="0"' . (!getDolGlobalString('FACTURE_TVAOPTION') ? " checked" : "") . "> " . $langs->trans("VATIsNotUsed") . "</label></td>";
        print '<td colspan="2">';
        $tooltiphelp = '';
        if ($mysoc->country_code == 'FR') {
            $tooltiphelp = "<i>" . $langs->trans("Example") . ': ' . $langs->trans("VATIsNotUsedExampleFR") . "</i>\n";
        }
        print '<label for="no_vat">' . $form->textwithpicto($langs->trans("VATIsNotUsedDesc"), $tooltiphelp) . "</label>";
        print "</td></tr>\n";

        print "</table>";

// Second tax
        print '<br>';
        print '<table class="noborder centpercent editmode">';
        print '<tr class="liste_titre">';
        print '<td class="titlefieldcreate">' . $form->textwithpicto($langs->transcountry("LocalTax1Management", $mysoc->country_code), $langs->transcountry("LocalTax1IsUsedDesc", $mysoc->country_code)) . '</td><td></td>';
        print '<td class="right">&nbsp;</td>';
        print "</tr>\n";

        if ($mysoc->useLocalTax(1)) {
            // Note: When option is not set, it must not appears as set on on, because there is no default value for this option
            print '<tr class="oddeven"><td><input type="radio" name="optionlocaltax1" id="lt1" value="localtax1on"' . ((getDolGlobalString('FACTURE_LOCAL_TAX1_OPTION') == '1' || getDolGlobalString('FACTURE_LOCAL_TAX1_OPTION') == "localtax1on") ? " checked" : "") . '> <label for="lt1">' . $langs->transcountry("LocalTax1IsUsed", $mysoc->country_code) . "</label></td>";
            print '<td colspan="2">';
            print '<div class="nobordernopadding">';
            $tooltiphelp = $langs->transcountry("LocalTax1IsUsedExample", $mysoc->country_code);
            $tooltiphelp = ($tooltiphelp != "LocalTax1IsUsedExample" ? "<i>" . $langs->trans("Example") . ': ' . $langs->transcountry("LocalTax1IsUsedExample", $mysoc->country_code) . "</i>\n" : "");
            print $form->textwithpicto($langs->transcountry("LocalTax1IsUsedDesc", $mysoc->country_code), $tooltiphelp);
            if (!isOnlyOneLocalTax(1)) {
                print '<br><label for="lt1">' . $langs->trans("LTRate") . '</label>: ';
                $formcompany->select_localtax(1, $conf->global->MAIN_INFO_VALUE_LOCALTAX1, "lt1");
            }

            $opcions = [$langs->trans("CalcLocaltax1") . ' ' . $langs->trans("CalcLocaltax1Desc"), $langs->trans("CalcLocaltax2") . ' - ' . $langs->trans("CalcLocaltax2Desc"), $langs->trans("CalcLocaltax3") . ' - ' . $langs->trans("CalcLocaltax3Desc")];

            print '<br><label for="clt1">' . $langs->trans("CalcLocaltax") . '</label>: ';
            print $form->selectarray("clt1", $opcions, getDolGlobalString('MAIN_INFO_LOCALTAX_CALC1'));
            print "</div>";
            print "</td></tr>\n";

            print '<tr class="oddeven"><td><input type="radio" name="optionlocaltax1" id="nolt1" value="localtax1off"' . ((!getDolGlobalString('FACTURE_LOCAL_TAX1_OPTION') || getDolGlobalString('FACTURE_LOCAL_TAX1_OPTION') == "localtax1off") ? " checked" : "") . '> <label for="nolt1">' . $langs->transcountry("LocalTax1IsNotUsed", $mysoc->country_code) . "</label></td>";
            print '<td colspan="2">';
            $tooltiphelp = $langs->transcountry("LocalTax1IsNotUsedExample", $mysoc->country_code);
            $tooltiphelp = ($tooltiphelp != "LocalTax1IsNotUsedExample" ? "<i>" . $langs->trans("Example") . ': ' . $langs->transcountry("LocalTax1IsNotUsedExample", $mysoc->country_code) . "</i>\n" : "");
            print $form->textwithpicto($langs->transcountry("LocalTax1IsNotUsedDesc", $mysoc->country_code), $tooltiphelp);
            print "</td></tr>\n";
        } else {
            if (empty($mysoc->country_code)) {
                print '<tr class="oddeven nohover"><td class="">' . $countrynotdefined . '</td><td></td><td></td></tr>';
            } else {
                print '<tr class="oddeven nohover"><td class="" colspan="3"><span class="opacitymedium">' . $langs->trans("NoLocalTaxXForThisCountry", $langs->transnoentitiesnoconv("Setup"), $langs->transnoentitiesnoconv("Dictionaries"), $langs->transnoentitiesnoconv("DictionaryVAT"), $langs->transnoentitiesnoconv("LocalTax1Management")) . '</span></td></tr>';
            }
        }

        print "</table>";

// Third tax system
        print '<br>';
        print '<table class="noborder centpercent editmode">';
        print '<tr class="liste_titre">';
        print '<td class="titlefieldcreate">' . $form->textwithpicto($langs->transcountry("LocalTax2Management", $mysoc->country_code), $langs->transcountry("LocalTax2IsUsedDesc", $mysoc->country_code)) . '</td><td></td>';
        print '<td class="right">&nbsp;</td>';
        print "</tr>\n";

        if ($mysoc->useLocalTax(2)) {
            // Note: When option is not set, it must not appears as set on on, because there is no default value for this option
            print '<tr class="oddeven"><td><input type="radio" name="optionlocaltax2" id="lt2" value="localtax2on"' . ((getDolGlobalString('FACTURE_LOCAL_TAX2_OPTION') == '1' || getDolGlobalString('FACTURE_LOCAL_TAX2_OPTION') == "localtax2on") ? " checked" : "") . '> <label for="lt2">' . $langs->transcountry("LocalTax2IsUsed", $mysoc->country_code) . "</label></td>";
            print '<td colspan="2">';
            print '<div class="nobordernopadding">';
            print '<label for="lt2">' . $langs->transcountry("LocalTax2IsUsedDesc", $mysoc->country_code) . "</label>";
            $tooltiphelp = $langs->transcountry("LocalTax2IsUsedExample", $mysoc->country_code);
            $tooltiphelp = ($tooltiphelp != "LocalTax2IsUsedExample" ? "<i>" . $langs->trans("Example") . ': ' . $langs->transcountry("LocalTax2IsUsedExample", $mysoc->country_code) . "</i>\n" : "");
            if (!isOnlyOneLocalTax(2)) {
                print '<br><label for="lt2">' . $langs->trans("LTRate") . '</label>: ';
                $formcompany->select_localtax(2, $conf->global->MAIN_INFO_VALUE_LOCALTAX2 ?? '', "lt2");
            }
            print '<br><label for="clt2">' . $langs->trans("CalcLocaltax") . '</label>: ';
            print $form->selectarray("clt2", $opcions, getDolGlobalString('MAIN_INFO_LOCALTAX_CALC2'));
            print "</div>";
            print "</td></tr>\n";

            print '<tr class="oddeven"><td><input type="radio" name="optionlocaltax2" id="nolt2" value="localtax2off"' . ((!getDolGlobalString('FACTURE_LOCAL_TAX2_OPTION') || getDolGlobalString('FACTURE_LOCAL_TAX2_OPTION') == "localtax2off") ? " checked" : "") . '> <label for="nolt2">' . $langs->transcountry("LocalTax2IsNotUsed", $mysoc->country_code) . "</label></td>";
            print '<td colspan="2">';
            print "<div>";
            $tooltiphelp = $langs->transcountry("LocalTax2IsNotUsedExample", $mysoc->country_code);
            $tooltiphelp = ($tooltiphelp != "LocalTax2IsNotUsedExample" ? "<i>" . $langs->trans("Example") . ': ' . $langs->transcountry("LocalTax2IsNotUsedExample", $mysoc->country_code) . "</i>\n" : "");
            print "<label for=\"nolt2\">" . $form->textwithpicto($langs->transcountry("LocalTax2IsNotUsedDesc", $mysoc->country_code), $tooltiphelp) . "</label>";
            print "</div>";
            print "</td></tr>\n";
        } else {
            if (empty($mysoc->country_code)) {
                print '<tr class="oddeven nohover"><td class="">' . $countrynotdefined . '</td><td></td><td></td></tr>';
            } else {
                print '<tr class="oddeven nohover"><td class="" colspan="3"><span class="opacitymedium">' . $langs->trans("NoLocalTaxXForThisCountry", $langs->transnoentitiesnoconv("Setup"), $langs->transnoentitiesnoconv("Dictionaries"), $langs->transnoentitiesnoconv("DictionaryVAT"), $langs->transnoentitiesnoconv("LocalTax2Management")) . '</span></td></tr>';
            }
        }

        print "</table>";


// Tax stamp
        print '<br>';
        print '<table class="noborder centpercent editmode">';
        print '<tr class="liste_titre">';
        print '<td>' . $form->textwithpicto($langs->trans("RevenueStamp"), $langs->trans("RevenueStampDesc")) . '</td><td></td>';
        print '<td class="right">&nbsp;</td>';
        print "</tr>\n";
        if ($mysoc->useRevenueStamp()) {
            // Note: When option is not set, it must not appears as set on on, because there is no default value for this option
            print '<tr class="oddeven"><td>';
            print $langs->trans("UseRevenueStamp");
            print "</td>";
            print '<td colspan="2">';
            print $langs->trans("UseRevenueStampExample", $langs->transnoentitiesnoconv("Setup"), $langs->transnoentitiesnoconv("Dictionaries"), $langs->transnoentitiesnoconv("DictionaryRevenueStamp"));
            print "</td></tr>\n";
        } else {
            if (empty($mysoc->country_code)) {
                print '<tr class="oddeven nohover"><td class="">' . $countrynotdefined . '</td><td></td><td></td></tr>';
            } else {
                print '<tr class="oddeven nohover"><td class="" colspan="3"><span class="opacitymedium">' . $langs->trans("NoLocalTaxXForThisCountry", $langs->transnoentitiesnoconv("Setup"), $langs->transnoentitiesnoconv("Dictionaries"), $langs->transnoentitiesnoconv("DictionaryRevenueStamp"), $langs->transnoentitiesnoconv("RevenueStamp")) . '</span></td></tr>';
            }
        }

        print "</table>";

// AADE webservices credentials, applicable only for Greece
        if ($mysoc->country_code == 'GR') {
            print load_fiche_titre($langs->trans("AADEWebserviceCredentials"), '', '');
            print '<table class="noborder centpercent editmode">';
            print '<tr class="liste_titre">';
            print '<td>' . $langs->trans("AccountParameter") . '</td>';
            print '<td>' . $langs->trans("Value") . '</td>';
            print '<td></td>';
            print "</tr>\n";

            print '<tr class="oddeven"><td>';
            print '<span class="titlefield fieldrequired">' . $langs->trans("MYDATA_AADE_USER") . '</span></td><td>';
            print '<input class="minwidth300" type="text" name="MYDATA_AADE_USER" value="' . getDolGlobalString('MYDATA_AADE_USER') . '"';
            print '</td><td></td></tr>';

            print '<tr class="oddeven"><td>';
            print '<span class="titlefield fieldrequired">' . $langs->trans("MYDATA_AADE_KEY") . '</span></td><td>';
            print '<input class="minwidth300" type="text" name="MYDATA_AADE_KEY" value="' . getDolGlobalString('MYDATA_AADE_KEY') . '"';
            print '</td><td></td></tr>';

            print '<tr class="oddeven"><td>';
            print '<span class="titlefield fieldrequired">' . $langs->trans("AADE_WEBSERVICE_USER") . '</span></td><td>';
            print '<input class="minwidth300" type="text" name="AADE_WEBSERVICE_USER" value="' . getDolGlobalString('AADE_WEBSERVICE_USER') . '"';
            print '</td><td></td></tr>';

            print '<tr class="oddeven"><td>';
            print '<span class="titlefield fieldrequired">' . $langs->trans("AADE_WEBSERVICE_KEY") . '</span></td><td>';
            print '<input class="minwidth300" type="text" name="AADE_WEBSERVICE_KEY" value="' . getDolGlobalString('AADE_WEBSERVICE_KEY') . '"';
            print '</td><td></td></tr>';

            print '<br>';

            print "</table>";
        }

        print $form->buttonsSaveCancel("Save", '', [], false, 'reposition');

        print '</form>';


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


        /*
         * View
         */
        require_once realpath(BASE_PATH . '/../Dolibarr/Modules/Admin/Views/admin_menu.php');

        $db->close();

        return true;
    }
}

alxarafe / alixar

Push — main ( 7af4bb...131f20 )

AdminCompanyController::index() F

Complexity

Size

Duplication

Importance

How to fix Long Method Complexity

Long Method

Duplication Side-by-Side

Filter issues like
