dolibarr 20.0.0
company.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2001-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2019 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2017 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2010-2014 Juanjo Menent <jmenent@2byte.es>
6 * Copyright (C) 2011-2017 Philippe Grand <philippe.grand@atoo-net.com>
7 * Copyright (C) 2015 Alexandre Spangaro <aspangaro@open-dsi.fr>
8 * Copyright (C) 2017 Rui Strecht <rui.strecht@aliartalentos.com>
9 * Copyright (C) 2023 Nick Fragoulis
10 *
11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 3 of the License, or
14 * (at your option) any later version.
15 *
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
20 *
21 * You should have received a copy of the GNU General Public License
22 * along with this program. If not, see <https://www.gnu.org/licenses/>.
23 */
24
31// Load Dolibarr environment
32require '../main.inc.php';
33require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
34require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
35require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
36require_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
37require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
38require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
39require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
40require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
41
42$action = GETPOST('action', 'aZ09');
43$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : 'admincompany'; // To manage different context of search
44$page_y = GETPOSTINT('page_y');
45
46// Load translation files required by the page
47$langs->loadLangs(array('admin', 'companies', 'bills'));
48
49if (!$user->admin) {
50 accessforbidden();
51}
52
53$error = 0;
54
55$tmparraysize = getDefaultImageSizes();
56$maxwidthsmall = $tmparraysize['maxwidthsmall'];
57$maxheightsmall = $tmparraysize['maxheightsmall'];
58$maxwidthmini = $tmparraysize['maxwidthmini'];
59$maxheightmini = $tmparraysize['maxheightmini'];
60$quality = $tmparraysize['quality'];
61
62// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
63$hookmanager->initHooks(array('admincompany', 'globaladmin'));
64
65
66/*
67 * Actions
68 */
69
70$parameters = array();
71$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
72if ($reshook < 0) {
73 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
74}
75
76if (($action == 'update' && !GETPOST("cancel", 'alpha'))
77|| ($action == 'updateedit')) {
78 $tmparray = getCountry(GETPOSTINT('country_id'), 'all', $db, $langs, 0);
79 if (!empty($tmparray['id'])) {
80 if ($tmparray['code'] == 'FR' && $tmparray['id'] != $mysoc->country_id) {
81 // For FR, default value of option to show profid SIREN is on by default
82 $res = dolibarr_set_const($db, "MAIN_PROFID1_IN_ADDRESS", 1, 'chaine', 0, '', $conf->entity);
83 }
84
85 $mysoc->country_id = $tmparray['id'];
86 $mysoc->country_code = $tmparray['code'];
87 $mysoc->country_label = $tmparray['label'];
88
89 $s = $mysoc->country_id.':'.$mysoc->country_code.':'.$mysoc->country_label;
90 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_COUNTRY", $s, 'chaine', 0, '', $conf->entity);
91
92 activateModulesRequiredByCountry($mysoc->country_code);
93 }
94
95 $tmparray = getState(GETPOSTINT('state_id'), 'all', $db, $langs, 0);
96 if (!empty($tmparray['id'])) {
97 $mysoc->state_id = $tmparray['id'];
98 $mysoc->state_code = $tmparray['code'];
99 $mysoc->state_label = $tmparray['label'];
100
101 $s = $mysoc->state_id.':'.$mysoc->state_code.':'.$mysoc->state_label;
102 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_STATE", $s, 'chaine', 0, '', $conf->entity);
103 } else {
104 dolibarr_del_const($db, "MAIN_INFO_SOCIETE_STATE", $conf->entity);
105 }
106
107 $db->begin();
108
109 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_NOM", GETPOST("name", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
110 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_ADDRESS", GETPOST("MAIN_INFO_SOCIETE_ADDRESS", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
111 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_TOWN", GETPOST("MAIN_INFO_SOCIETE_TOWN", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
112 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_ZIP", GETPOST("MAIN_INFO_SOCIETE_ZIP", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
113 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_REGION", GETPOST("region_code", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
114 dolibarr_set_const($db, "MAIN_MONNAIE", GETPOST("currency", 'aZ09'), 'chaine', 0, '', $conf->entity);
115 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_TEL", GETPOST("phone", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
116 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_MOBILE", GETPOST("phone_mobile", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
117 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_FAX", GETPOST("fax", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
118 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_MAIL", GETPOST("mail", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
119 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_WEB", GETPOST("web", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
120 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_NOTE", GETPOST("note", 'restricthtml'), 'chaine', 0, '', $conf->entity);
121 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_GENCOD", GETPOST("barcode", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
122
123 $dirforimage = $conf->mycompany->dir_output.'/logos/';
124
125 $arrayofimages = array('logo', 'logo_squarred');
126 //var_dump($_FILES); exit;
127 foreach ($arrayofimages as $varforimage) {
128 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.
129 $langs->load("errors");
130 setEventMessages($langs->trans("ErrorBadImageFormat"), null, 'errors');
131 break;
132 }
133
134 // Remove to check file size to large
135 /*if ($_FILES[$varforimage]["tmp_name"]) {*/
136 $reg = array();
137 if (preg_match('/([^\\/:]+)$/i', $_FILES[$varforimage]["name"], $reg)) {
138 $original_file = $reg[1];
139
140 $isimage = image_format_supported($original_file);
141 if ($isimage >= 0) {
142 dol_syslog("Move file ".$_FILES[$varforimage]["tmp_name"]." to ".$dirforimage.$original_file);
143 if (!is_dir($dirforimage)) {
144 dol_mkdir($dirforimage);
145 }
146 $result = dol_move_uploaded_file($_FILES[$varforimage]["tmp_name"], $dirforimage.$original_file, 1, 0, $_FILES[$varforimage]['error']);
147
148 if (is_numeric($result) && $result > 0) {
149 $constant = "MAIN_INFO_SOCIETE_LOGO";
150 if ($varforimage == 'logo_squarred') {
151 $constant = "MAIN_INFO_SOCIETE_LOGO_SQUARRED";
152 }
153
154 dolibarr_set_const($db, $constant, $original_file, 'chaine', 0, '', $conf->entity);
155
156 // Create thumbs of logo (Note that PDF use original file and not thumbs)
157 if ($isimage > 0) {
158 // Create thumbs
159 //$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...
160
161
162 // Create small thumb, Used on logon for example
163 $imgThumbSmall = vignette($dirforimage.$original_file, $maxwidthsmall, $maxheightsmall, '_small', $quality);
164 if (image_format_supported($imgThumbSmall) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbSmall, $reg)) {
165 $imgThumbSmall = $reg[1]; // Save only basename
166 dolibarr_set_const($db, $constant."_SMALL", $imgThumbSmall, 'chaine', 0, '', $conf->entity);
167 } else {
168 dol_syslog($imgThumbSmall);
169 }
170
171 // Create mini thumb, Used on menu or for setup page for example
172 $imgThumbMini = vignette($dirforimage.$original_file, $maxwidthmini, $maxheightmini, '_mini', $quality);
173 if (image_format_supported($imgThumbMini) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbMini, $reg)) {
174 $imgThumbMini = $reg[1]; // Save only basename
175 dolibarr_set_const($db, $constant."_MINI", $imgThumbMini, 'chaine', 0, '', $conf->entity);
176 } else {
177 dol_syslog($imgThumbMini);
178 }
179 } else {
180 dol_syslog("ErrorImageFormatNotSupported", LOG_WARNING);
181 }
182 } elseif (preg_match('/^ErrorFileIsInfectedWithAVirus/', $result)) {
183 $error++;
184 $langs->load("errors");
185 $tmparray = explode(':', $result);
186 setEventMessages($langs->trans('ErrorFileIsInfectedWithAVirus', $tmparray[1]), null, 'errors');
187 } elseif (preg_match('/^ErrorFileSizeTooLarge/', $result)) {
188 $error++;
189 setEventMessages($langs->trans("ErrorFileSizeTooLarge"), null, 'errors');
190 } else {
191 $error++;
192 setEventMessages($langs->trans("ErrorFailedToSaveFile"), null, 'errors');
193 }
194 } else {
195 $error++;
196 $langs->load("errors");
197 setEventMessages($langs->trans("ErrorBadImageFormat"), null, 'errors');
198 }
199 }
200 /*}*/
201 }
202
203 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_MANAGERS", GETPOST("MAIN_INFO_SOCIETE_MANAGERS", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
204 dolibarr_set_const($db, "MAIN_INFO_GDPR", GETPOST("MAIN_INFO_GDPR", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
205 dolibarr_set_const($db, "MAIN_INFO_CAPITAL", GETPOST("capital", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
206 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_FORME_JURIDIQUE", GETPOST("forme_juridique_code", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
207 dolibarr_set_const($db, "MAIN_INFO_SIREN", GETPOST("siren", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
208 dolibarr_set_const($db, "MAIN_INFO_SIRET", GETPOST("siret", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
209 dolibarr_set_const($db, "MAIN_INFO_APE", GETPOST("ape", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
210 dolibarr_set_const($db, "MAIN_INFO_RCS", GETPOST("rcs", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
211 dolibarr_set_const($db, "MAIN_INFO_PROFID5", GETPOST("MAIN_INFO_PROFID5", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
212 dolibarr_set_const($db, "MAIN_INFO_PROFID6", GETPOST("MAIN_INFO_PROFID6", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
213 dolibarr_set_const($db, "MAIN_INFO_PROFID7", GETPOST("MAIN_INFO_PROFID7", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
214 dolibarr_set_const($db, "MAIN_INFO_PROFID8", GETPOST("MAIN_INFO_PROFID8", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
215 dolibarr_set_const($db, "MAIN_INFO_PROFID9", GETPOST("MAIN_INFO_PROFID9", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
216 dolibarr_set_const($db, "MAIN_INFO_PROFID10", GETPOST("MAIN_INFO_PROFID10", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
217
218 dolibarr_set_const($db, "MAIN_INFO_TVAINTRA", GETPOST("tva", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
219 dolibarr_set_const($db, "MAIN_INFO_SOCIETE_OBJECT", GETPOST("socialobject", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
220
221 dolibarr_set_const($db, "SOCIETE_FISCAL_MONTH_START", GETPOSTINT("SOCIETE_FISCAL_MONTH_START"), 'chaine', 0, '', $conf->entity);
222
223 // Sale tax options
224 $usevat = GETPOST("optiontva", 'aZ09');
225 $uselocaltax1 = GETPOST("optionlocaltax1", 'aZ09');
226 $uselocaltax2 = GETPOST("optionlocaltax2", 'aZ09');
227 if ($uselocaltax1 == 'localtax1on' && !$usevat) {
228 setEventMessages($langs->trans("IfYouUseASecondTaxYouMustSetYouUseTheMainTax"), null, 'errors');
229 $error++;
230 }
231 if ($uselocaltax2 == 'localtax2on' && !$usevat) {
232 setEventMessages($langs->trans("IfYouUseAThirdTaxYouMustSetYouUseTheMainTax"), null, 'errors');
233 $error++;
234 }
235
236 dolibarr_set_const($db, "FACTURE_TVAOPTION", $usevat, 'chaine', 0, '', $conf->entity);
237 dolibarr_set_const($db, "FACTURE_LOCAL_TAX1_OPTION", $uselocaltax1, 'chaine', 0, '', $conf->entity);
238 dolibarr_set_const($db, "FACTURE_LOCAL_TAX2_OPTION", $uselocaltax2, 'chaine', 0, '', $conf->entity);
239
240 if (GETPOST("optionlocaltax1") == "localtax1on") {
241 if (!GETPOSTISSET('lt1')) {
242 dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX1", 0, 'chaine', 0, '', $conf->entity);
243 } else {
244 dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX1", GETPOST('lt1', 'aZ09'), 'chaine', 0, '', $conf->entity);
245 }
246 dolibarr_set_const($db, "MAIN_INFO_LOCALTAX_CALC1", GETPOST("clt1", 'aZ09'), 'chaine', 0, '', $conf->entity);
247 }
248 if (GETPOST("optionlocaltax2") == "localtax2on") {
249 if (!GETPOSTISSET('lt2')) {
250 dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX2", 0, 'chaine', 0, '', $conf->entity);
251 } else {
252 dolibarr_set_const($db, "MAIN_INFO_VALUE_LOCALTAX2", GETPOST('lt2', 'aZ09'), 'chaine', 0, '', $conf->entity);
253 }
254 dolibarr_set_const($db, "MAIN_INFO_LOCALTAX_CALC2", GETPOST("clt2", 'aZ09'), 'chaine', 0, '', $conf->entity);
255 }
256
257 // Credentials for AADE webservices, applicable only for Greece
258 if ($mysoc->country_code == 'GR') {
259 dolibarr_set_const($db, "MYDATA_AADE_USER", GETPOST("MYDATA_AADE_USER", 'alpha'), 'chaine', 0, '', $conf->entity);
260 dolibarr_set_const($db, "MYDATA_AADE_KEY", GETPOST("MYDATA_AADE_KEY", 'alpha'), 'chaine', 0, '', $conf->entity);
261 dolibarr_set_const($db, "AADE_WEBSERVICE_USER", GETPOST("AADE_WEBSERVICE_USER", 'alpha'), 'chaine', 0, '', $conf->entity);
262 dolibarr_set_const($db, "AADE_WEBSERVICE_KEY", GETPOST("AADE_WEBSERVICE_KEY", 'alpha'), 'chaine', 0, '', $conf->entity);
263 }
264
265 // Remove constant MAIN_INFO_SOCIETE_SETUP_TODO_WARNING
266 dolibarr_del_const($db, "MAIN_INFO_SOCIETE_SETUP_TODO_WARNING", $conf->entity);
267
268 if (!$error) {
269 if (GETPOST('save')) { // To avoid to show message when we juste switch the country that resubmit the form.
270 setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
271 }
272 $db->commit();
273 } else {
274 $db->rollback();
275 }
276
277 if ($action != 'updateedit' && !$error) {
278 header("Location: ".$_SERVER["PHP_SELF"].($page_y ? '?page_y='.$page_y : ''));
279 exit;
280 }
281}
282
283if ($action == 'addthumb' || $action == 'addthumbsquarred') { // Regenerate thumbs
284 if (file_exists($conf->mycompany->dir_output.'/logos/'.GETPOST("file"))) {
285 $isimage = image_format_supported(GETPOST("file"));
286
287 // Create thumbs of logo
288 if ($isimage > 0) {
289 $constant = "MAIN_INFO_SOCIETE_LOGO";
290 if ($action == 'addthumbsquarred') {
291 $constant = "MAIN_INFO_SOCIETE_LOGO_SQUARRED";
292 }
293
294 $reg = array();
295
296 // Create thumbs
297 //$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...
298
299 // Create small thumb. Used on logon for example
300 $imgThumbSmall = vignette($conf->mycompany->dir_output.'/logos/'.GETPOST("file"), $maxwidthsmall, $maxheightsmall, '_small', $quality);
301 if (image_format_supported($imgThumbSmall) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbSmall, $reg)) {
302 $imgThumbSmall = $reg[1]; // Save only basename
303 dolibarr_set_const($db, $constant."_SMALL", $imgThumbSmall, 'chaine', 0, '', $conf->entity);
304 } else {
305 dol_syslog($imgThumbSmall);
306 }
307
308 // Create mini thumbs. Used on menu or for setup page for example
309 $imgThumbMini = vignette($conf->mycompany->dir_output.'/logos/'.GETPOST("file"), $maxwidthmini, $maxheightmini, '_mini', $quality);
310 if (image_format_supported($imgThumbSmall) >= 0 && preg_match('/([^\\/:]+)$/i', $imgThumbMini, $reg)) {
311 $imgThumbMini = $reg[1]; // Save only basename
312 dolibarr_set_const($db, $constant."_MINI", $imgThumbMini, 'chaine', 0, '', $conf->entity);
313 } else {
314 dol_syslog($imgThumbMini);
315 }
316
317 header("Location: ".$_SERVER["PHP_SELF"]);
318 exit;
319 } else {
320 $error++;
321 $langs->load("errors");
322 setEventMessages($langs->trans("ErrorBadImageFormat"), null, 'errors');
323 dol_syslog($langs->transnoentities("ErrorBadImageFormat"), LOG_INFO);
324 }
325 } else {
326 $error++;
327 $langs->load("errors");
328 setEventMessages($langs->trans("ErrorFileDoesNotExists", GETPOST("file")), null, 'errors');
329 dol_syslog($langs->transnoentities("ErrorFileDoesNotExists", GETPOST("file")), LOG_WARNING);
330 }
331}
332
333
334if ($action == 'removelogo' || $action == 'removelogosquarred') {
335 $constant = "MAIN_INFO_SOCIETE_LOGO";
336 if ($action == 'removelogosquarred') {
337 $constant = "MAIN_INFO_SOCIETE_LOGO_SQUARRED";
338 }
339
340 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
341
342 $logofilename = $mysoc->logo;
343 $logofilenamebis = $mysoc->logo_squarred;
344 if ($action == 'removelogosquarred') {
345 $logofilename = $mysoc->logo_squarred;
346 $logofilenamebis = $mysoc->logo;
347 }
348
349 $logofile = $conf->mycompany->dir_output.'/logos/'.$logofilename;
350 if ($logofilename != '' && $logofilename != $logofilenamebis) {
351 dol_delete_file($logofile);
352 }
353 dolibarr_del_const($db, $constant, $conf->entity);
354 if ($action == 'removelogosquarred') {
355 $mysoc->logo_squarred = '';
356 } else {
357 $mysoc->logo = '';
358 }
359
360 $logofilename = $mysoc->logo_small;
361 $logofilenamebis = $mysoc->logo_squarred_small;
362 if ($action == 'removelogosquarred') {
363 $logofilename = $mysoc->logo_squarred_small;
364 $logofilenamebis = $mysoc->logo_small;
365 }
366
367 $logosmallfile = $conf->mycompany->dir_output.'/logos/thumbs/'.$logofilename;
368 if ($logofilename != '' && $logofilename != $logofilenamebis) {
369 dol_delete_file($logosmallfile);
370 }
371 dolibarr_del_const($db, $constant."_SMALL", $conf->entity);
372 if ($action == 'removelogosquarred') {
373 $mysoc->logo_squarred_small = '';
374 } else {
375 $mysoc->logo_small = '';
376 }
377
378 $logofilename = $mysoc->logo_mini;
379 $logofilenamebis = $mysoc->logo_squarred_mini;
380 if ($action == 'removelogosquarred') {
381 $logofilename = $mysoc->logo_squarred_mini;
382 $logofilenamebis = $mysoc->logo_mini;
383 }
384
385 $logominifile = $conf->mycompany->dir_output.'/logos/thumbs/'.$logofilename;
386 if ($logofilename != '' && $logofilename != $logofilenamebis) {
387 dol_delete_file($logominifile);
388 }
389 dolibarr_del_const($db, $constant."_MINI", $conf->entity);
390 if ($action == 'removelogosquarred') {
391 $mysoc->logo_squarred_mini = '';
392 } else {
393 $mysoc->logo_mini = '';
394 }
395}
396
397
398/*
399 * View
400 */
401
402$wikihelp = 'EN:First_setup|FR:Premiers_paramétrages|ES:Primeras_configuraciones';
403llxHeader('', $langs->trans("Setup"), $wikihelp, '', 0, 0, '', '', '', 'mod-admin page-company');
404
405$form = new Form($db);
406$formother = new FormOther($db);
407$formcompany = new FormCompany($db);
408
409$countrynotdefined = '<span class="error">'.$langs->trans("ErrorSetACountryFirst").' <a href="#trzipbeforecountry">('.$langs->trans("SeeAbove").')</a></span>';
410
411print load_fiche_titre($langs->trans("CompanyFoundation"), '', 'title_setup');
412
413$head = company_admin_prepare_head();
414
415print dol_get_fiche_head($head, 'company', '', -1, '');
416
417print '<span class="opacitymedium">'.$langs->trans("CompanyFundationDesc", $langs->transnoentities("Save"))."</span><br>\n";
418print "<br><br>\n";
419
420
421// Edit parameters
422
423if (!empty($conf->use_javascript_ajax)) {
424 print "\n".'<script type="text/javascript">';
425 print '$(document).ready(function () {
426 $("#selectcountry_id").change(function() {
427 document.form_index.action.value="updateedit";
428 document.form_index.submit();
429 });
430 });';
431 print '</script>'."\n";
432}
433
434print '<form enctype="multipart/form-data" method="POST" action="'.$_SERVER["PHP_SELF"].'" name="form_index">';
435print '<input type="hidden" name="token" value="'.newToken().'">';
436print '<input type="hidden" name="action" value="update">';
437print '<input type="hidden" name="page_y" value="">';
438
439print '<table class="noborder centpercent editmode">';
440print '<tr class="liste_titre"><th class="titlefieldcreate wordbreak">'.$langs->trans("CompanyInfo").'</th><th></th></tr>'."\n";
441
442// Name
443print '<tr class="oddeven"><td class="fieldrequired wordbreak"><label for="name">'.$langs->trans("CompanyName").'</label></td><td>';
444print '<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";
445
446// Address
447print '<tr class="oddeven"><td><label for="MAIN_INFO_SOCIETE_ADDRESS">'.$langs->trans("CompanyAddress").'</label></td><td>';
448print '<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";
449
450// Zip
451print '<tr class="oddeven" id="trzipbeforecountry"><td><label for="MAIN_INFO_SOCIETE_ZIP">'.$langs->trans("CompanyZip").'</label></td><td>';
452print '<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";
453
454print '<tr class="oddeven" id="trtownbeforecountry"><td><label for="MAIN_INFO_SOCIETE_TOWN">'.$langs->trans("CompanyTown").'</label></td><td>';
455print '<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";
456
457// Country
458print '<tr class="oddeven"><td class="fieldrequired"><label for="selectcountry_id">'.$langs->trans("Country").'</label></td><td>';
459print img_picto('', 'globe-americas', 'class="pictofixedwidth"');
460print $form->select_country($mysoc->country_id, 'country_id', '', 0);
461if ($user->admin) {
462 print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
463}
464print '</td></tr>'."\n";
465
466print '<tr class="oddeven"><td class="wordbreak"><label for="state_id">'.$langs->trans("State").'</label></td><td>';
467$state_id = 0;
468if (getDolGlobalString('MAIN_INFO_SOCIETE_STATE')) {
469 $tmp = explode(':', getDolGlobalString('MAIN_INFO_SOCIETE_STATE'));
470 $state_id = $tmp[0];
471}
472print img_picto('', 'state', 'class="pictofixedwidth"');
473print $formcompany->select_state($state_id, $mysoc->country_code, 'state_id', 'maxwidth200onsmartphone minwidth300');
474print '</td></tr>'."\n";
475
476// Currency
477print '<tr class="oddeven"><td><label for="currency">'.$langs->trans("CompanyCurrency").'</label></td><td>';
478print img_picto('', 'multicurrency', 'class="pictofixedwidth"');
479print $form->selectCurrency($conf->currency, "currency");
480print '</td></tr>'."\n";
481
482// Phone
483print '<tr class="oddeven"><td><label for="phone">'.$langs->trans("Phone").'</label></td><td>';
484print img_picto('', 'object_phoning', '', false, 0, 0, '', 'pictofixedwidth');
485print '<input class="maxwidth150 widthcentpercentminusx" name="phone" id="phone" value="'.dol_escape_htmltag((GETPOSTISSET('phone') ? GETPOST('phone', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_TEL')))).'"></td></tr>';
486print '</td></tr>'."\n";
487
488// Phone mobile
489print '<tr class="oddeven"><td><label for="phone">'.$langs->trans("PhoneMobile").'</label></td><td>';
490print img_picto('', 'object_phoning_mobile', '', false, 0, 0, '', 'pictofixedwidth');
491print '<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>';
492print '</td></tr>'."\n";
493
494// Fax
495print '<tr class="oddeven"><td><label for="fax">'.$langs->trans("Fax").'</label></td><td>';
496print img_picto('', 'object_phoning_fax', '', false, 0, 0, '', 'pictofixedwidth');
497print '<input class="maxwidth150" name="fax" id="fax" value="'.dol_escape_htmltag((GETPOSTISSET('fax') ? GETPOST('fax', 'alphanohtml') : (getDolGlobalString('MAIN_INFO_SOCIETE_FAX')))).'"></td></tr>';
498print '</td></tr>'."\n";
499
500// Email
501print '<tr class="oddeven"><td><label for="email">'.$langs->trans("EMail").'</label></td><td>';
502print img_picto('', 'object_email', '', false, 0, 0, '', 'pictofixedwidth');
503print '<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>';
504print '</td></tr>'."\n";
505
506// Web
507print '<tr class="oddeven"><td><label for="web">'.$langs->trans("Web").'</label></td><td>';
508print img_picto('', 'globe', '', false, 0, 0, '', 'pictofixedwidth');
509print '<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>';
510print '</td></tr>'."\n";
511
512// Barcode
513if (isModEnabled('barcode')) {
514 print '<tr class="oddeven"><td>';
515 print '<label for="barcode">'.$langs->trans("Gencod").'</label></td><td>';
516 print '<span class="fa fa-barcode pictofixedwidth"></span>';
517 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>';
518 print '</td></tr>';
519}
520
521// Tooltip for both Logo and LogSquarred
522$tooltiplogo = $langs->trans('AvailableFormats').' : png, jpg, jpeg';
523$maxfilesizearray = getMaxFileSizeArray();
524$maxmin = $maxfilesizearray['maxmin'];
525$tooltiplogo .= ($maxmin > 0) ? '<br>'.$langs->trans('MaxSize').' : '.$maxmin.' '.$langs->trans('Kb') : '';
526
527// Logo
528print '<tr class="oddeven"><td><label for="logo">'.$form->textwithpicto($langs->trans("Logo"), $tooltiplogo).'</label></td><td>';
529print '<div class="centpercent nobordernopadding valignmiddle "><div class="inline-block marginrightonly">';
530if ($maxmin > 0) {
531 print '<input type="hidden" name="MAX_FILE_SIZE" value="'.($maxmin * 1024).'">'; // MAX_FILE_SIZE must precede the field type=file
532}
533print '<input type="file" class="flat minwidth100 maxwidthinputfileonsmartphone" name="logo" id="logo" accept="image/*">';
534print '</div>';
535if (!empty($mysoc->logo_small)) {
536 print '<div class="inline-block valignmiddle marginrightonly">';
537 print '<a class="reposition" href="'.$_SERVER["PHP_SELF"].'?action=removelogo&token='.newToken().'">'.img_delete($langs->trans("Delete"), '', 'marginleftonly').'</a>';
538 print '</div>';
539 if (file_exists($conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_small)) {
540 print '<div class="inline-block valignmiddle">';
541 print '<img style="max-height: 80px; max-width: 200px;" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&file='.urlencode('logos/thumbs/'.$mysoc->logo_small).'">';
542 print '</div>';
543 } elseif (!empty($mysoc->logo)) {
544 if (!file_exists($conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_mini)) {
545 $imgThumbMini = vignette($conf->mycompany->dir_output.'/logos/'.$mysoc->logo, $maxwidthmini, $maxheightmini, '_mini', $quality);
546 }
547 $imgThumbSmall = vignette($conf->mycompany->dir_output.'/logos/'.$mysoc->logo, $maxwidthmini, $maxheightmini, '_small', $quality);
548 print '<div class="inline-block valignmiddle">';
549 print '<img style="max-height: 80px; max-width: 200px;" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&amp;file='.urlencode('logos/thumbs/'.basename($imgThumbSmall)).'">';
550 print '</div>';
551 }
552} elseif (!empty($mysoc->logo)) {
553 if (file_exists($conf->mycompany->dir_output.'/logos/'.$mysoc->logo)) {
554 print '<div class="inline-block valignmiddle">';
555 print '<img style="max-height: 80px" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&file='.urlencode('logos/'.$mysoc->logo).'">';
556 print '</div>';
557 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>';
558 } else {
559 print '<div class="inline-block valignmiddle">';
560 print '<img height="80" src="'.DOL_URL_ROOT.'/public/theme/common/nophoto.png" title="File has been removed from disk">';
561 print '</div>';
562 }
563}
564print '</div>';
565print '</td></tr>';
566
567// Logo (squarred)
568print '<tr class="oddeven"><td><label for="logo_squarred">'.$form->textwithpicto($langs->trans("LogoSquarred"), $tooltiplogo).'</label></td><td>';
569print '<div class="centpercent nobordernopadding valignmiddle"><div class="inline-block marginrightonly">';
570$maxfilesizearray = getMaxFileSizeArray();
571$maxmin = $maxfilesizearray['maxmin'];
572if ($maxmin > 0) {
573 print '<input type="hidden" name="MAX_FILE_SIZE" value="'.($maxmin * 1024).'">'; // MAX_FILE_SIZE must precede the field type=file
574}
575print '<input type="file" class="flat minwidth100 maxwidthinputfileonsmartphone" name="logo_squarred" id="logo_squarred" accept="image/*">';
576print '</div>';
577if (!empty($mysoc->logo_squarred_small)) {
578 print '<div class="inline-block valignmiddle marginrightonly">';
579 print '<a class="reposition" href="'.$_SERVER["PHP_SELF"].'?action=removelogosquarred&token='.newToken().'">'.img_delete($langs->trans("Delete"), '', 'marginleftonly').'</a>';
580 print '</div>';
581 if (file_exists($conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_squarred_small)) {
582 print '<div class="inline-block valignmiddle marginrightonly">';
583 print '<img style="max-height: 80px" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&file='.urlencode('logos/thumbs/'.$mysoc->logo_squarred_small).'">';
584 print '</div>';
585 } elseif (!empty($mysoc->logo_squarred)) {
586 if (!file_exists($conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_squarred_mini)) {
587 $imgThumbMini = vignette($conf->mycompany->dir_output.'/logos/'.$mysoc->logo_squarred, $maxwidthmini, $maxheightmini, '_mini', $quality);
588 }
589 $imgThumbSmall = vignette($conf->mycompany->dir_output.'/logos/'.$mysoc->logo_squarred, $maxwidthmini, $maxheightmini, '_small', $quality);
590 print '<div class="inline-block valignmiddle">';
591 print '<img style="max-height: 80px" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&file='.urlencode('logos/thumbs/'.basename($imgThumbSmall)).'">';
592 print '</div>';
593 }
594} elseif (!empty($mysoc->logo_squarred)) {
595 if (file_exists($conf->mycompany->dir_output.'/logos/'.$mysoc->logo_squarred)) {
596 print '<div class="inline-block valignmiddle">';
597 print '<img style="max-height: 80px" src="'.DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&file='.urlencode('logos/'.$mysoc->logo_squarred).'">';
598 print '</div>';
599 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>';
600 } else {
601 print '<div class="inline-block valignmiddle">';
602 print '<img height="80" src="'.DOL_URL_ROOT.'/public/theme/common/nophoto.png" title="File has been removed from disk">';
603 print '</div>';
604 }
605}
606print '</div>';
607print '</td></tr>';
608
609// Note
610print '<tr class="oddeven"><td class="tdtop"><label for="note">'.$langs->trans("Note").'</label></td><td>';
611print '<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>';
612print '</td></tr>';
613
614print '</table>';
615
616print $form->buttonsSaveCancel("Save", '', array(), false, 'reposition');
617
618print '<br><br>';
619
620
621// IDs of the company (country-specific)
622print '<div class="div-table-responsive-no-min">';
623print '<table class="noborder centpercent editmode">';
624print '<tr class="liste_titre"><td class="titlefieldcreate wordbreak">'.$langs->trans("CompanyIds").'</td><td></td></tr>';
625
626$langs->load("companies");
627
628// Managing Director(s)
629print '<tr class="oddeven"><td><label for="director">'.$langs->trans("ManagingDirectors").'</label></td><td>';
630print '<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>';
631
632// GDPR contact
633print '<tr class="oddeven"><td>';
634print $form->textwithpicto($langs->trans("GDPRContact"), $langs->trans("GDPRContactDesc"));
635print '</td><td>';
636print '<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>';
637
638// Capital
639print '<tr class="oddeven"><td><label for="capital">'.$langs->trans("Capital").'</label></td><td>';
640print '<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>';
641
642// Juridical Status
643print '<tr class="oddeven"><td><label for="forme_juridique_code">'.$langs->trans("JuridicalStatus").'</label></td><td>';
644if ($mysoc->country_code) {
645 print $formcompany->select_juridicalstatus(getDolGlobalString('MAIN_INFO_SOCIETE_FORME_JURIDIQUE'), $mysoc->country_code, '', 'forme_juridique_code');
646} else {
647 print $countrynotdefined;
648}
649print '</td></tr>';
650
651// ProfId1
652if ($langs->transcountry("ProfId1", $mysoc->country_code) != '-') {
653 print '<tr class="oddeven"><td><label for="profid1">'.$langs->transcountry("ProfId1", $mysoc->country_code).'</label></td><td>';
654 if (!empty($mysoc->country_code)) {
655 print '<input name="siren" id="profid1" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_SIREN')).'">';
656 } else {
657 print $countrynotdefined;
658 }
659 print '</td></tr>';
660}
661
662// ProfId2
663if ($langs->transcountry("ProfId2", $mysoc->country_code) != '-') {
664 print '<tr class="oddeven"><td><label for="profid2">'.$langs->transcountry("ProfId2", $mysoc->country_code).'</label></td><td>';
665 if (!empty($mysoc->country_code)) {
666 print '<input name="siret" id="profid2" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_SIRET')).'">';
667 } else {
668 print $countrynotdefined;
669 }
670 print '</td></tr>';
671}
672
673// ProfId3
674if ($langs->transcountry("ProfId3", $mysoc->country_code) != '-') {
675 print '<tr class="oddeven"><td><label for="profid3">'.$langs->transcountry("ProfId3", $mysoc->country_code).'</label></td><td>';
676 if (!empty($mysoc->country_code)) {
677 print '<input name="ape" id="profid3" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_APE')).'">';
678 } else {
679 print $countrynotdefined;
680 }
681 print '</td></tr>';
682}
683
684// ProfId4
685if ($langs->transcountry("ProfId4", $mysoc->country_code) != '-') {
686 print '<tr class="oddeven"><td><label for="profid4">'.$langs->transcountry("ProfId4", $mysoc->country_code).'</label></td><td>';
687 if (!empty($mysoc->country_code)) {
688 print '<input name="rcs" id="profid4" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_RCS')).'">';
689 } else {
690 print $countrynotdefined;
691 }
692 print '</td></tr>';
693}
694
695// ProfId5
696if ($langs->transcountry("ProfId5", $mysoc->country_code) != '-') {
697 print '<tr class="oddeven"><td><label for="profid5">'.$langs->transcountry("ProfId5", $mysoc->country_code).'</label></td><td>';
698 if (!empty($mysoc->country_code)) {
699 print '<input name="MAIN_INFO_PROFID5" id="profid5" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID5')).'">';
700 } else {
701 print $countrynotdefined;
702 }
703 print '</td></tr>';
704}
705
706// ProfId6
707if ($langs->transcountry("ProfId6", $mysoc->country_code) != '-') {
708 print '<tr class="oddeven"><td><label for="profid6">'.$langs->transcountry("ProfId6", $mysoc->country_code).'</label></td><td>';
709 if (!empty($mysoc->country_code)) {
710 print '<input name="MAIN_INFO_PROFID6" id="profid6" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID6')).'">';
711 } else {
712 print $countrynotdefined;
713 }
714 print '</td></tr>';
715}
716
717// ProfId7
718if ($langs->transcountry("ProfId7", $mysoc->country_code) != '-') {
719 print '<tr class="oddeven"><td><label for="profid7">'.$langs->transcountry("ProfId7", $mysoc->country_code).'</label></td><td>';
720 if (!empty($mysoc->country_code)) {
721 print '<input name="MAIN_INFO_PROFID7" id="profid7" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID7')).'">';
722 } else {
723 print $countrynotdefined;
724 }
725 print '</td></tr>';
726}
727
728// ProfId8
729if ($langs->transcountry("ProfId8", $mysoc->country_code) != '-') {
730 print '<tr class="oddeven"><td><label for="profid8">'.$langs->transcountry("ProfId8", $mysoc->country_code).'</label></td><td>';
731 if (!empty($mysoc->country_code)) {
732 print '<input name="MAIN_INFO_PROFID8" id="profid8" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID8')).'">';
733 } else {
734 print $countrynotdefined;
735 }
736 print '</td></tr>';
737}
738
739// ProfId9
740if ($langs->transcountry("ProfId9", $mysoc->country_code) != '-') {
741 print '<tr class="oddeven"><td><label for="profid9">'.$langs->transcountry("ProfId9", $mysoc->country_code).'</label></td><td>';
742 if (!empty($mysoc->country_code)) {
743 print '<input name="MAIN_INFO_PROFID9" id="profid9" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID9')).'">';
744 } else {
745 print $countrynotdefined;
746 }
747 print '</td></tr>';
748}
749
750// ProfId10
751if ($langs->transcountry("ProfId10", $mysoc->country_code) != '-') {
752 print '<tr class="oddeven"><td><label for="profid10">'.$langs->transcountry("ProfId10", $mysoc->country_code).'</label></td><td>';
753 if (!empty($mysoc->country_code)) {
754 print '<input name="MAIN_INFO_PROFID10" id="profid10" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_PROFID10')).'">';
755 } else {
756 print $countrynotdefined;
757 }
758 print '</td></tr>';
759}
760
761// Intra-community VAT number
762print '<tr class="oddeven"><td><label for="intra_vat">'.$langs->trans("VATIntra").'</label></td><td>';
763print '<input name="tva" id="intra_vat" class="minwidth200" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_INFO_TVAINTRA')).'">';
764print '</td></tr>';
765
766// Object of the company
767print '<tr class="oddeven"><td><label for="socialobject">'.$langs->trans("CompanyObject").'</label></td><td>';
768print '<textarea class="flat quatrevingtpercent" name="socialobject" id="socialobject" rows="'.ROWS_5.'">'.(getDolGlobalString('MAIN_INFO_SOCIETE_OBJECT')).'</textarea></td></tr>';
769print '</td></tr>';
770
771print '</table>';
772print '</div>';
773
774
775// Fiscal year start
776print '<br>';
777print '<table class="noborder centpercent editmode">';
778print '<tr class="liste_titre">';
779print '<td class="titlefieldcreate">'.$langs->trans("FiscalYearInformation").'</td><td></td>';
780print "</tr>\n";
781
782print '<tr class="oddeven"><td><label for="SOCIETE_FISCAL_MONTH_START">'.$langs->trans("FiscalMonthStart").'</label></td><td>';
783print $formother->select_month(getDolGlobalInt('SOCIETE_FISCAL_MONTH_START') ? $conf->global->SOCIETE_FISCAL_MONTH_START : '', 'SOCIETE_FISCAL_MONTH_START', 0, 1, 'maxwidth100').'</td></tr>';
784
785print "</table>";
786
787print $form->buttonsSaveCancel("Save", '', array(), false, 'reposition');
788
789print '<br>';
790
791
792// Sales taxes (VAT, IRPF, ...)
793print load_fiche_titre($langs->trans("TypeOfSaleTaxes"), '', 'object_payment');
794
795print '<table class="noborder centpercent editmode">';
796print '<tr class="liste_titre">';
797print '<td class="titlefieldcreate">'.$langs->trans("VATManagement").'</td><td></td>';
798print '<td class="right">&nbsp;</td>';
799print "</tr>\n";
800
801// Main tax
802print '<tr class="oddeven"><td><label><input type="radio" name="optiontva" id="use_vat" value="1"'.(!getDolGlobalString('FACTURE_TVAOPTION') ? "" : " checked")."> ".$langs->trans("VATIsUsed")."</label></td>";
803print '<td colspan="2">';
804$tooltiphelp = $langs->trans("VATIsUsedDesc");
805if ($mysoc->country_code == 'FR') {
806 $tooltiphelp .= '<br><br><i>'.$langs->trans("Example").': '.$langs->trans("VATIsUsedExampleFR")."</i>";
807}
808print '<label for="use_vat">'.$form->textwithpicto($langs->trans("VATIsUsedStandard"), $tooltiphelp)."</label>";
809print "</td></tr>\n";
810
811
812print '<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>";
813print '<td colspan="2">';
814$tooltiphelp = '';
815if ($mysoc->country_code == 'FR') {
816 $tooltiphelp = "<i>".$langs->trans("Example").': '.$langs->trans("VATIsNotUsedExampleFR")."</i>\n";
817}
818print '<label for="no_vat">'.$form->textwithpicto($langs->trans("VATIsNotUsedDesc"), $tooltiphelp)."</label>";
819print "</td></tr>\n";
820
821print "</table>";
822
823// Second tax
824print '<br>';
825print '<table class="noborder centpercent editmode">';
826print '<tr class="liste_titre">';
827print '<td class="titlefieldcreate">'.$form->textwithpicto($langs->transcountry("LocalTax1Management", $mysoc->country_code), $langs->transcountry("LocalTax1IsUsedDesc", $mysoc->country_code)).'</td><td></td>';
828print '<td class="right">&nbsp;</td>';
829print "</tr>\n";
830
831if ($mysoc->useLocalTax(1)) {
832 // Note: When option is not set, it must not appears as set on on, because there is no default value for this option
833 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>";
834 print '<td colspan="2">';
835 print '<div class="nobordernopadding">';
836 $tooltiphelp = $langs->transcountry("LocalTax1IsUsedExample", $mysoc->country_code);
837 $tooltiphelp = ($tooltiphelp != "LocalTax1IsUsedExample" ? "<i>".$langs->trans("Example").': '.$langs->transcountry("LocalTax1IsUsedExample", $mysoc->country_code)."</i>\n" : "");
838 print $form->textwithpicto($langs->transcountry("LocalTax1IsUsedDesc", $mysoc->country_code), $tooltiphelp);
839 if (!isOnlyOneLocalTax(1)) {
840 print '<br><label for="lt1">'.$langs->trans("LTRate").'</label>: ';
841 $formcompany->select_localtax(1, $conf->global->MAIN_INFO_VALUE_LOCALTAX1, "lt1");
842 }
843
844 $opcions = array($langs->trans("CalcLocaltax1").' '.$langs->trans("CalcLocaltax1Desc"), $langs->trans("CalcLocaltax2").' - '.$langs->trans("CalcLocaltax2Desc"), $langs->trans("CalcLocaltax3").' - '.$langs->trans("CalcLocaltax3Desc"));
845
846 print '<br><label for="clt1">'.$langs->trans("CalcLocaltax").'</label>: ';
847 print $form->selectarray("clt1", $opcions, getDolGlobalString('MAIN_INFO_LOCALTAX_CALC1'));
848 print "</div>";
849 print "</td></tr>\n";
850
851 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>";
852 print '<td colspan="2">';
853 $tooltiphelp = $langs->transcountry("LocalTax1IsNotUsedExample", $mysoc->country_code);
854 $tooltiphelp = ($tooltiphelp != "LocalTax1IsNotUsedExample" ? "<i>".$langs->trans("Example").': '.$langs->transcountry("LocalTax1IsNotUsedExample", $mysoc->country_code)."</i>\n" : "");
855 print $form->textwithpicto($langs->transcountry("LocalTax1IsNotUsedDesc", $mysoc->country_code), $tooltiphelp);
856 print "</td></tr>\n";
857} else {
858 if (empty($mysoc->country_code)) {
859 print '<tr class="oddeven nohover"><td class="" colspan="3">'.$countrynotdefined.'</td></tr>';
860 } else {
861 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>';
862 }
863}
864
865print "</table>";
866
867// Third tax system
868print '<br>';
869print '<table class="noborder centpercent editmode">';
870print '<tr class="liste_titre">';
871print '<td class="titlefieldcreate">'.$form->textwithpicto($langs->transcountry("LocalTax2Management", $mysoc->country_code), $langs->transcountry("LocalTax2IsUsedDesc", $mysoc->country_code)).'</td><td></td>';
872print '<td class="right">&nbsp;</td>';
873print "</tr>\n";
874
875if ($mysoc->useLocalTax(2)) {
876 // Note: When option is not set, it must not appears as set on on, because there is no default value for this option
877 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>";
878 print '<td colspan="2">';
879 print '<div class="nobordernopadding">';
880 print '<label for="lt2">'.$langs->transcountry("LocalTax2IsUsedDesc", $mysoc->country_code)."</label>";
881 $tooltiphelp = $langs->transcountry("LocalTax2IsUsedExample", $mysoc->country_code);
882 $tooltiphelp = ($tooltiphelp != "LocalTax2IsUsedExample" ? "<i>".$langs->trans("Example").': '.$langs->transcountry("LocalTax2IsUsedExample", $mysoc->country_code)."</i>\n" : "");
883 if (!isOnlyOneLocalTax(2)) {
884 print '<br><label for="lt2">'.$langs->trans("LTRate").'</label>: ';
885 $formcompany->select_localtax(2, getDolGlobalString('MAIN_INFO_VALUE_LOCALTAX2'), "lt2");
886 }
887 print '<br><label for="clt2">'.$langs->trans("CalcLocaltax").'</label>: ';
888 print $form->selectarray("clt2", $opcions, getDolGlobalString('MAIN_INFO_LOCALTAX_CALC2'));
889 print "</div>";
890 print "</td></tr>\n";
891
892 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>";
893 print '<td colspan="2">';
894 print "<div>";
895 $tooltiphelp = $langs->transcountry("LocalTax2IsNotUsedExample", $mysoc->country_code);
896 $tooltiphelp = ($tooltiphelp != "LocalTax2IsNotUsedExample" ? "<i>".$langs->trans("Example").': '.$langs->transcountry("LocalTax2IsNotUsedExample", $mysoc->country_code)."</i>\n" : "");
897 print "<label for=\"nolt2\">".$form->textwithpicto($langs->transcountry("LocalTax2IsNotUsedDesc", $mysoc->country_code), $tooltiphelp)."</label>";
898 print "</div>";
899 print "</td></tr>\n";
900} else {
901 if (empty($mysoc->country_code)) {
902 print '<tr class="oddeven nohover"><td class="" colspan="3">'.$countrynotdefined.'</td></tr>';
903 } else {
904 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>';
905 }
906}
907
908print "</table>";
909
910
911// Tax stamp
912print '<br>';
913print '<table class="noborder centpercent editmode">';
914print '<tr class="liste_titre">';
915print '<td>'.$form->textwithpicto($langs->trans("RevenueStamp"), $langs->trans("RevenueStampDesc")).'</td><td></td>';
916print '<td class="right">&nbsp;</td>';
917print "</tr>\n";
918if ($mysoc->useRevenueStamp()) {
919 // Note: When option is not set, it must not appears as set on on, because there is no default value for this option
920 print '<tr class="oddeven"><td>';
921 print $langs->trans("UseRevenueStamp");
922 print "</td>";
923 print '<td colspan="2">';
924 print $langs->trans("UseRevenueStampExample", $langs->transnoentitiesnoconv("Setup"), $langs->transnoentitiesnoconv("Dictionaries"), $langs->transnoentitiesnoconv("DictionaryRevenueStamp"));
925 print "</td></tr>\n";
926} else {
927 if (empty($mysoc->country_code)) {
928 print '<tr class="oddeven nohover"><td class="" colspan="3">'.$countrynotdefined.'</td></tr>';
929 } else {
930 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>';
931 }
932}
933
934print "</table>";
935
936// AADE webservices credentials, applicable only for Greece
937if ($mysoc->country_code == 'GR') {
938 print load_fiche_titre($langs->trans("AADEWebserviceCredentials"), '', '');
939 print '<table class="noborder centpercent editmode">';
940 print '<tr class="liste_titre">';
941 print '<td>'.$langs->trans("AccountParameter").'</td>';
942 print '<td>'.$langs->trans("Value").'</td>';
943 print '<td></td>';
944 print "</tr>\n";
945
946 print '<tr class="oddeven"><td>';
947 print '<span class="titlefield fieldrequired">'.$langs->trans("MYDATA_AADE_USER").'</span></td><td>';
948 print '<input class="minwidth300" type="text" name="MYDATA_AADE_USER" value="'.getDolGlobalString('MYDATA_AADE_USER').'"';
949 print '</td><td></td></tr>';
950
951 print '<tr class="oddeven"><td>';
952 print '<span class="titlefield fieldrequired">'.$langs->trans("MYDATA_AADE_KEY").'</span></td><td>';
953 print '<input class="minwidth300" type="text" name="MYDATA_AADE_KEY" value="'.getDolGlobalString('MYDATA_AADE_KEY').'"';
954 print '</td><td></td></tr>';
955
956 print '<tr class="oddeven"><td>';
957 print '<span class="titlefield fieldrequired">'.$langs->trans("AADE_WEBSERVICE_USER").'</span></td><td>';
958 print '<input class="minwidth300" type="text" name="AADE_WEBSERVICE_USER" value="'.getDolGlobalString('AADE_WEBSERVICE_USER').'"';
959 print '</td><td></td></tr>';
960
961 print '<tr class="oddeven"><td>';
962 print '<span class="titlefield fieldrequired">'.$langs->trans("AADE_WEBSERVICE_KEY").'</span></td><td>';
963 print '<input class="minwidth300" type="text" name="AADE_WEBSERVICE_KEY" value="'.getDolGlobalString('AADE_WEBSERVICE_KEY').'"';
964 print '</td><td></td></tr>';
965
966 print '<br>';
967
968 print "</table>";
969}
970
971print $form->buttonsSaveCancel("Save", '', array(), false, 'reposition');
972
973print '</form>';
974
975
976// End of page
977llxFooter();
978$db->close();
$object
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
dolibarr_set_const
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
Definition admin.lib.php:656
dolibarr_del_const
dolibarr_del_const($db, $name, $entity=1)
Delete a constant.
Definition admin.lib.php:580
activateModulesRequiredByCountry
activateModulesRequiredByCountry($country_code)
Activate external modules mandatory when country is country_code.
Definition admin.lib.php:1515
company_admin_prepare_head
company_admin_prepare_head()
Return array head with list of tabs to view object information.
Definition admin.lib.php:2029
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:55
llxFooter
llxFooter()
Empty footer.
Definition wrapper.php:69
FormCompany
Class to build HTML component for third parties management Only common components are here.
Definition html.formcompany.class.php:42
Form
Class to manage generation of HTML components Only common components must be here.
Definition html.form.class.php:56
FormOther
Class permettant la generation de composants html autre Only common components are here.
Definition html.formother.class.php:42
getCountry
getCountry($searchkey, $withcode='', $dbtouse=null, $outputlangs=null, $entconv=1, $searchlabel='')
Return country label, code or id from an id, code or label.
Definition company.lib.php:570
getState
getState($id, $withcode='0', $dbtouse=null, $withregion=0, $outputlangs=null, $entconv=1)
Return state translated from an id.
Definition company.lib.php:650
dol_delete_file
dol_delete_file($file, $disableglob=0, $nophperrors=0, $nohook=0, $object=null, $allowdotdot=false, $indexdatabase=1, $nolog=0)
Remove a file or several files with a mask.
Definition files.lib.php:1469
dol_move_uploaded_file
dol_move_uploaded_file($src_file, $dest_file, $allowoverwrite, $disablevirusscan=0, $uploaderrorcode=0, $nohook=0, $varfiles='addedfile', $upload_dir='')
Check validity of a file upload from an GUI page, and move it to its final destination.
Definition files.lib.php:1331
isOnlyOneLocalTax
isOnlyOneLocalTax($local)
Return true if LocalTax (1 or 2) is unique.
Definition functions.lib.php:6995
load_fiche_titre
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
Definition functions.lib.php:6183
img_delete
img_delete($titlealt='default', $other='class="pictodelete"', $morecss='')
Show delete logo.
Definition functions.lib.php:5387
img_picto
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
Definition functions.lib.php:4804
GETPOSTINT
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
Definition functions.lib.php:1078
dol_get_fiche_head
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
Definition functions.lib.php:2461
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
Definition functions.lib.php:230
newToken
newToken()
Return the value of token currently saved into session with name 'newtoken'.
Definition functions.lib.php:12999
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition functions.lib.php:753
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
Definition functions.lib.php:9716
getDolGlobalString
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
Definition functions.lib.php:215
info_admin
info_admin($text, $infoonimgalt=0, $nodiv=0, $admin='1', $morecss='hideonsmartphone', $textfordropdown='', $picto='')
Show information in HTML for admin users or standard users.
Definition functions.lib.php:5759
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition functions.lib.php:2119
dol_mkdir
dol_mkdir($dir, $dataroot='', $newmask='')
Creation of a directory (this can create recursive subdir)
Definition functions.lib.php:7690
vignette
vignette($file, $maxWidth=160, $maxHeight=120, $extName='_small', $quality=50, $outdir='thumbs', $targetformat=0)
Create a thumbnail from an image file (Supported extensions are gif, jpg, png and bmp).
Definition images.lib.php:514
getDefaultImageSizes
if(!defined( 'IMAGETYPE_WEBP')) getDefaultImageSizes()
Return default values for image sizes.
Definition images.lib.php:45
image_format_supported
image_format_supported($file, $acceptsvg=0)
Return if a filename is file name of a supported image format.
Definition images.lib.php:85
getMaxFileSizeArray
getMaxFileSizeArray()
Return the max allowed for file upload.
Definition security.lib.php:1270
accessforbidden
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.
Definition security.lib.php:1204
Generated on Thu Sep 5 2024 01:00:27 for dolibarr by Doxygen 1.11.0