* Copyright (C) 2004-2005 Laurent Destailleur * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 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, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ */ /** \file htdocs/admin/index.php \brief Page d'accueil de l'espace administration/configuration \version $Revision$ */ require("./pre.inc.php"); $langs->load("admin"); $langs->load("companies"); if (!$user->admin) accessforbidden(); if ( (isset($_POST["action"]) && $_POST["action"] == 'update') || (isset($_POST["action"]) && $_POST["action"] == 'updateedit') ) { dolibarr_set_const($db, "MAIN_INFO_SOCIETE_NOM",$_POST["nom"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_ADRESSE",$_POST["address"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_VILLE",$_POST["ville"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_CP",$_POST["cp"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_PAYS",$_POST["pays_id"]); dolibarr_set_const($db, "MAIN_MONNAIE",$_POST["currency"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_TEL",$_POST["tel"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_FAX",$_POST["fax"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_MAIL",$_POST["mail"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_WEB",$_POST["web"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_NOTE",$_POST["note"]); if ($_FILES["logo"]["tmp_name"]) { if (eregi('([^\\\/:]+)$',$_FILES["logo"]["name"],$reg)) { $original_file=$reg[1]; dolibarr_syslog("Move file ".$_FILES["logo"]["tmp_name"]." to ".DOL_DATA_ROOT.'/logo/'.$original_file); if (move_uploaded_file($_FILES["logo"]["tmp_name"],DOL_DATA_ROOT.'/logo/'.$original_file)) { dolibarr_set_const($db, "MAIN_INFO_SOCIETE_LOGO",$original_file); } } } dolibarr_set_const($db, "MAIN_INFO_CAPITAL",$_POST["capital"]); dolibarr_set_const($db, "MAIN_INFO_SOCIETE_FORME_JURIDIQUE",$_POST["forme_juridique_code"]); dolibarr_set_const($db, "MAIN_INFO_SIREN",$_POST["siren"]); dolibarr_set_const($db, "MAIN_INFO_SIRET",$_POST["siret"]); dolibarr_set_const($db, "MAIN_INFO_APE",$_POST["ape"]); dolibarr_set_const($db, "MAIN_INFO_RCS",$_POST["rcs"]); dolibarr_set_const($db, "MAIN_INFO_TVAINTRA",$_POST["tva"]); dolibarr_set_const($db, "FACTURE_TVAOPTION",$_POST["optiontva"]); if ($_POST['action'] != 'updateedit') { Header("Location: index.php"); exit; } } llxHeader(); $form = new Form($db); $countrynotdefined=''.$langs->trans("ErrorSetACountryFirst").' ('.$langs->trans("SeeAbove").')'; print_fiche_titre($langs->trans("GlobalSetup")); if ((isset($_GET["action"]) && $_GET["action"] == 'edit') || (isset($_POST["action"]) && $_POST["action"] == 'updateedit') ) { /** * Edition des paramètres */ if ($conf->use_javascript) { print ' '; } print '

'; print ''; $var=true; print ''; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; print ''; $var=!$var; print ''; print ''; $var=!$var; print ''; print ''; $var=!$var; print ''; print ''; $var=!$var; print ''; print ''; $var=!$var; print ''; print ''; print '

'.$langs->trans("CompanyInfo").'	'.$langs->trans("Value").'
'.$langs->trans("CompanyName").'	'; print '
'.$langs->trans("CompanyAddress").'	'; print ''. $conf->global->MAIN_INFO_SOCIETE_ADRESSE . '
'.$langs->trans("CompanyZip").'	'; print '
'.$langs->trans("CompanyTown").'	'; print '
'.$langs->trans("Country").'	'; $form->select_pays($conf->global->MAIN_INFO_SOCIETE_PAYS,'pays_id',($conf->use_javascript?' onChange="save_refresh()"':'')); print '
'.$langs->trans("CompanyCurrency").'	'; $form->select_currency($conf->global->MAIN_MONNAIE,"currency"); print '
'.$langs->trans("Tel").'	'; print '
'.$langs->trans("Fax").'	'; print '
'.$langs->trans("Mail").'	'; print '
'.$langs->trans("Web").'	'; print '
'.$langs->trans("Logo").' (png,jpg)	'; print '
'.$langs->trans("Note").'	'; print ''.$conf->global->MAIN_INFO_SOCIETE_NOTE.'

'; print '
'; // Identifiants de la société (propre au pays) print ''; print ''; $var=true; $langs->load("companies"); // Recupere code pays $code_pays=substr($langs->defaultlang,-2); // Par defaut, pays de la localisation if ($conf->global->MAIN_INFO_SOCIETE_PAYS) { $sql = "SELECT code from ".MAIN_DB_PREFIX."c_pays"; $sql .= " WHERE rowid = ".$conf->global->MAIN_INFO_SOCIETE_PAYS; $resql=$db->query($sql); if ($resql) { $obj = $db->fetch_object($resql); if ($obj->code) $code_pays=$obj->code; } else { dolibarr_print_error($db); } } // Capital $var=!$var; print ''; // Forme juridique $var=!$var; print ''; // ProfID1 if ($langs->transcountry("ProfId1",$code_pays) != '-') { $var=!$var; print ''; } // ProfId2 if ($langs->transcountry("ProfId2",$code_pays) != '-') { $var=!$var; print ''; } // ProfId3 if ($langs->transcountry("ProfId3",$code_pays) != '-') { $var=!$var; print ''; } // ProfId4 if ($langs->transcountry("ProfId4",$code_pays) != '-') { $var=!$var; print ''; } // TVA Intra $var=!$var; print ''; print '

'.$langs->trans("CompanyIds").'	'.$langs->trans("Value").'
'.$langs->trans("Capital").'	'; print '
'.$langs->trans("JuridicalStatus").'	'; if ($conf->global->MAIN_INFO_SOCIETE_PAYS) { $form->select_forme_juridique($conf->global->MAIN_INFO_SOCIETE_FORME_JURIDIQUE,$code_pays); } else { print $countrynotdefined; } print '
'.$langs->transcountry("ProfId1",$code_pays).'	'; if ($conf->global->MAIN_INFO_SOCIETE_PAYS) { print ''; } else { print $countrynotdefined; } print '
'.$langs->transcountry("ProfId2",$code_pays).'	'; if ($conf->global->MAIN_INFO_SOCIETE_PAYS) { print ''; } else { print $countrynotdefined; } print '
'.$langs->transcountry("ProfId3",$code_pays).'	'; if ($conf->global->MAIN_INFO_SOCIETE_PAYS) { print ''; } else { print $countrynotdefined; } print '
'.$langs->transcountry("ProfId4",$code_pays).'	'; if ($conf->global->MAIN_INFO_SOCIETE_PAYS) { print ''; } else { print $countrynotdefined; } print '
'.$langs->trans("TVAIntra").'	'; print '

'; /* * Options fiscale */ print '
'; print ''; print ''; print ''; print ''; print "\n"; $var=true; $var=!$var; print ""; print '\n"; /* Je désactive cette option "facturation" car ce statut fiscal n'existe pas. Seul le réel et franchise existe. Cette option ne doit donc pas etre en "exclusif" avec l'option fiscale de gestion de tva. Peut etre faut-il une option a part qui n'entre pas en conflit avec les choix "assujéti TVA" ou "non". $var=!$var; print ""; print "\n"; */ $var=!$var; print ""; print '\n"; print "

'.$langs->trans("VATManagement").'

'.$langs->trans("Description").'

global->FACTURE_TVAOPTION != "franchise"?" checked":"")."> ".$langs->trans("VATIsUsed")."

'; print ""; print ""; print "\n"; print "

".$langs->trans("VATIsUsedDesc")."

".$langs->trans("Example").': '.$langs->trans("VATIsUsedExampleFR")."

"; print "

global->FACTURE_TVAOPTION == "facturation"?" checked":"")."> Option facturation

L'option 'facturation' est utilisée par les entreprises qui payent la TVA à facturation (vente de matériel).

global->FACTURE_TVAOPTION == "franchise"?" checked":"")."> ".$langs->trans("VATIsNotUsed")."

'; print ""; print ""; print "\n"; print "

".$langs->trans("VATIsNotUsedDesc")."

".$langs->trans("Example").': '.$langs->trans("VATIsNotUsedExampleFR")."

"; print "

"; print '
'; print '
'; print '

'; } else { /* * Affichage des paramètres */ print ''; print ''; $var=true; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; $var=!$var; print ''; print '

'.$langs->trans("CompanyInfo").'	'.$langs->trans("Value").'
'.$langs->trans("CompanyName").'	' . $conf->global->MAIN_INFO_SOCIETE_NOM . '
'.$langs->trans("CompanyAddress").'	' . nl2br($conf->global->MAIN_INFO_SOCIETE_ADRESSE) . '
'.$langs->trans("CompanyZip").'	' . $conf->global->MAIN_INFO_SOCIETE_CP . '
'.$langs->trans("CompanyTown").'	' . $conf->global->MAIN_INFO_SOCIETE_VILLE . '
'.$langs->trans("CompanyCountry").'	'; print $form->pays_name($conf->global->MAIN_INFO_SOCIETE_PAYS,1); print '
'.$langs->trans("CompanyCurrency").'	'; print $form->currency_name($conf->global->MAIN_MONNAIE,1); print '
'.$langs->trans("Tel").'	' . $conf->global->MAIN_INFO_SOCIETE_TEL . '
'.$langs->trans("Fax").'	' . $conf->global->MAIN_INFO_SOCIETE_FAX . '
'.$langs->trans("Mail").'	' . $conf->global->MAIN_INFO_SOCIETE_MAIL . '
'.$langs->trans("Web").'	' . $conf->global->MAIN_INFO_SOCIETE_WEB . '
'.$langs->trans("Logo").'	' . $conf->global->MAIN_INFO_SOCIETE_LOGO . '
'.$langs->trans("Note").'	' . nl2br($conf->global->MAIN_INFO_SOCIETE_NOTE) . '

'; print '
'; // Identifiants de la société (propre au pays) print ''; print ''; $var=true; // Recupere code pays $code_pays=substr($langs->defaultlang,-2); // Par defaut, pays de la localisation if ($conf->global->MAIN_INFO_SOCIETE_PAYS) { $sql = "SELECT code from ".MAIN_DB_PREFIX."c_pays"; $sql .= " WHERE rowid = ".$conf->global->MAIN_INFO_SOCIETE_PAYS; $result=$db->query($sql); if ($result) { $obj = $db->fetch_object(); if ($obj->code) $code_pays=$obj->code; } else { dolibarr_print_error($db); } } // Capital $var=!$var; print ''; // Forme juridique $var=!$var; print ''; // ProfId1 if ($langs->transcountry("ProfId1",$code_pays) != '-') { $var=!$var; print ''; } // ProfId2 if ($langs->transcountry("ProfId2",$code_pays) != '-') { $var=!$var; print ''; } // ProfId3 if ($langs->transcountry("ProfId3",$code_pays) != '-') { $var=!$var; print ''; } // ProfId4 if ($langs->transcountry("ProfId4",$code_pays) != '-') { $var=!$var; print ''; } // TVA Intracommunautaire $var=!$var; print ''; print '

'.$langs->trans("CompanyIds").'	'.$langs->trans("Value").'
'.$langs->trans("Capital").'	'; print $conf->global->MAIN_INFO_CAPITAL . '
'.$langs->trans("JuridicalStatus").'	'; print $form->forme_juridique_name($conf->global->MAIN_INFO_SOCIETE_FORME_JURIDIQUE,1); print '
'.$langs->transcountry("ProfId1",$code_pays).'	'; if ($langs->transcountry("ProfId1",$code_pays) != '-') { print $conf->global->MAIN_INFO_SIREN; } print '
'.$langs->transcountry("ProfId2",$code_pays).'	'; if ($langs->transcountry("ProfId2",$code_pays) != '-') { print $conf->global->MAIN_INFO_SIRET; } print '
'.$langs->transcountry("ProfId3",$code_pays).'	'; if ($langs->transcountry("ProfId3",$code_pays) != '-') { print $conf->global->MAIN_INFO_APE; } print '
'.$langs->transcountry("ProfId4",$code_pays).'	'; if ($langs->transcountry("ProfId4",$code_pays) != '-') { print $conf->global->MAIN_INFO_RCS; } print '
'.$langs->trans("TVAIntra").'	' . $conf->global->MAIN_INFO_TVAINTRA . '

'.$langs->trans("VATManagement").'

'.$langs->trans("Description").'

global->FACTURE_TVAOPTION != "franchise"?" checked":"")."> ".$langs->trans("VATIsUsed")."

'; print ""; print ""; print "\n"; print "

".$langs->trans("VATIsUsedDesc")."

".$langs->trans("Example").': '.$langs->trans("VATIsUsedExampleFR")."

"; print "

global->FACTURE_TVAOPTION == "facturation"?" checked":"")."> Option facturation

L'option 'facturation' est utilisée par les entreprises qui payent la TVA à facturation (vente de matériel).

global->FACTURE_TVAOPTION == "franchise"?" checked":"")."> ".$langs->trans("VATIsNotUsed")."

'; print ""; print ""; print "\n"; print "

".$langs->trans("VATIsNotUsedDesc")."

".$langs->trans("Example").': '.$langs->trans("VATIsNotUsedExampleFR")."

"; print "

"; // Boutons d'action print '

'; print ''.$langs->trans("Edit").''; print '

'; print '
'; } llxFooter('$Date$ - $Revision$'); ?>