* Copyright (C) 2004 Eric Seigne * Copyright (C) 2005-2011 Laurent Destailleur * Copyright (C) 2005-2012 Regis Houssin * Copyright (C) 2011-2012 Juanjo Menent * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /** * \file htdocs/societe/admin/societe.php * \ingroup company * \brief Third party module setup page */ require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php'; $langs->load("admin"); $langs->load('other'); $action=GETPOST('action','alpha'); $value=GETPOST('value','alpha'); if (!$user->admin) accessforbidden(); /* * Actions */ if ($action == 'setcodeclient') { if (dolibarr_set_const($db, "SOCIETE_CODECLIENT_ADDON",$value,'chaine',0,'',$conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } if ($action == 'setcodecompta') { if (dolibarr_set_const($db, "SOCIETE_CODECOMPTA_ADDON",$value,'chaine',0,'',$conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } if ($action == 'updateoptions') { if (GETPOST('COMPANY_USE_SEARCH_TO_SELECT')) { $companysearch = GETPOST('activate_COMPANY_USE_SEARCH_TO_SELECT','alpha'); $res = dolibarr_set_const($db, "COMPANY_USE_SEARCH_TO_SELECT", $companysearch,'chaine',0,'',$conf->entity); if (! $res > 0) $error++; if (! $error) { setEventMessage($langs->trans("SetupSaved")); } else { setEventMessage($langs->trans("Error"), 'errors'); } } if (GETPOST('CONTACT_USE_SEARCH_TO_SELECT')) { $contactsearch = GETPOST('activate_CONTACT_USE_SEARCH_TO_SELECT','alpha'); $res = dolibarr_set_const($db, "CONTACT_USE_SEARCH_TO_SELECT", $contactsearch,'chaine',0,'',$conf->entity); if (! $res > 0) $error++; if (! $error) { setEventMessage($langs->trans("SetupSaved")); } else { setEventMessage($langs->trans("Error"), 'errors'); } } } // Define constants for submodules that contains parameters (forms with param1, param2, ... and value1, value2, ...) if ($action == 'setModuleOptions') { $post_size=count($_POST); $db->begin(); for($i=0;$i < $post_size;$i++) { if (array_key_exists('param'.$i,$_POST)) { $param=GETPOST("param".$i,'alpha'); $value=GETPOST("value".$i,'alpha'); if ($param) $res = dolibarr_set_const($db,$param,$value,'chaine',0,'',$conf->entity); if (! $res > 0) $error++; } } if (! $error) { $db->commit(); setEventMessage($langs->trans("SetupSaved")); } else { $db->rollback(); setEventMessage($langs->trans("Error"), 'errors'); } } // Activate a document generator module if ($action == 'set') { $label = GETPOST('label','alpha'); $scandir = GETPOST('scandir','alpha'); $type='company'; $sql = "INSERT INTO ".MAIN_DB_PREFIX."document_model (nom, type, entity, libelle, description)"; $sql.= " VALUES ('".$db->escape($value)."','".$type."',".$conf->entity.", "; $sql.= ($label?"'".$db->escape($label)."'":'null').", "; $sql.= (! empty($scandir)?"'".$db->escape($scandir)."'":"null"); $sql.= ")"; $resql=$db->query($sql); if (! $resql) dol_print_error($db); } // Disable a document generator module if ($action== 'del') { $type='company'; $sql = "DELETE FROM ".MAIN_DB_PREFIX."document_model"; $sql.= " WHERE nom='".$db->escape($value)."' AND type='".$type."' AND entity=".$conf->entity; $resql=$db->query($sql); if (! $resql) dol_print_error($db); } // Define default generator if ($action == 'setdoc') { $label = GETPOST('label','alpha'); $scandir = GETPOST('scandir','alpha'); $db->begin(); dolibarr_set_const($db, "COMPANY_ADDON_PDF",$value,'chaine',0,'',$conf->entity); // On active le modele $type='company'; $sql_del = "DELETE FROM ".MAIN_DB_PREFIX."document_model"; $sql_del.= " WHERE nom = '".$db->escape(GETPOST('value','alpha'))."'"; $sql_del.= " AND type = '".$type."'"; $sql_del.= " AND entity = ".$conf->entity; dol_syslog("societe.php ".$sql); $result1=$db->query($sql_del); $sql = "INSERT INTO ".MAIN_DB_PREFIX."document_model (nom, type, entity, libelle, description)"; $sql.= " VALUES ('".$db->escape($value)."', '".$type."', ".$conf->entity.", "; $sql.= ($label?"'".$db->escape($label)."'":'null').", "; $sql.= (! empty($scandir)?"'".$db->escape($scandir)."'":"null"); $sql.= ")"; dol_syslog("societe.php", LOG_DEBUG); $result2=$db->query($sql); if ($result1 && $result2) { $db->commit(); } else { $db->rollback(); } } //Activate ProfId if ($action == 'setprofid') { $status = GETPOST('status','alpha'); $idprof="SOCIETE_IDPROF".$value."_UNIQUE"; if (dolibarr_set_const($db, $idprof,$status,'chaine',0,'',$conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } //Activate Set ref in list if ($action=="setaddrefinlist") { $setaddrefinlist = GETPOST('value','int'); $res = dolibarr_set_const($db, "SOCIETE_ADD_REF_IN_LIST", $setaddrefinlist,'yesno',0,'',$conf->entity); if (! $res > 0) $error++; if (! $error) { setEventMessage($langs->trans("SetupSaved")); } else { setEventMessage($langs->trans("Error"), 'errors'); } } //Activate ProfId mandatory if ($action == 'setprofidmandatory') { $status = GETPOST('status','alpha'); $idprof="SOCIETE_IDPROF".$value."_MANDATORY"; if (dolibarr_set_const($db, $idprof,$status,'chaine',0,'',$conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } //Activate ProfId invoice mandatory if ($action == 'setprofidinvoicemandatory') { $status = GETPOST('status','alpha'); $idprof="SOCIETE_IDPROF".$value."_INVOICE_MANDATORY"; if (dolibarr_set_const($db, $idprof,$status,'chaine',0,'',$conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } //Set hide closed customer into combox or select if ($action == 'sethideinactivethirdparty') { $status = GETPOST('status','alpha'); if (dolibarr_set_const($db, "COMPANY_HIDE_INACTIVE_IN_COMBOBOX",$status,'chaine',0,'',$conf->entity) > 0) { header("Location: ".$_SERVER["PHP_SELF"]); exit; } else { dol_print_error($db); } } /* * View */ clearstatcache(); $form=new Form($db); $help_url='EN:Module Third Parties setup|FR:Paramétrage_du_module_Tiers|ES:Configuración_del_módulo_terceros'; llxHeader('',$langs->trans("CompanySetup"),$help_url); $linkback=''.$langs->trans("BackToModuleList").''; print_fiche_titre($langs->trans("CompanySetup"),$linkback,'title_setup'); $head = societe_admin_prepare_head(); dol_fiche_head($head, 'general', $langs->trans("ThirdParties"), 0, 'company'); $dirsociete=array_merge(array('/core/modules/societe/'),$conf->modules_parts['societe']); // Module to manage customer/supplier code print_titre($langs->trans("CompanyCodeChecker")); print ''."\n"; print ''."\n"; print ' '; print ' '; print ' '; print ' '; print ' '; print "\n"; $var = true; foreach ($dirsociete as $dirroot) { $dir = dol_buildpath($dirroot,0); $handle = @opendir($dir); if (is_resource($handle)) { // Loop on each module find in opened directory while (($file = readdir($handle))!==false) { if (substr($file, 0, 15) == 'mod_codeclient_' && substr($file, -3) == 'php') { $file = substr($file, 0, dol_strlen($file)-4); try { dol_include_once($dirroot.$file.'.php'); } catch(Exception $e) { dol_syslog($e->getMessage(), LOG_ERR); } $modCodeTiers = new $file; // Show modules according to features level if ($modCodeTiers->version == 'development' && $conf->global->MAIN_FEATURES_LEVEL < 2) continue; if ($modCodeTiers->version == 'experimental' && $conf->global->MAIN_FEATURES_LEVEL < 1) continue; $var = !$var; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; if ($conf->global->SOCIETE_CODECLIENT_ADDON == "$file") { print '\n"; } else { $disabled = false; if (! empty($conf->multicompany->enabled) && (is_object($mc) && ! empty($mc->sharings['referent']) && $mc->sharings['referent'] == $conf->entity) ? false : true); print ''; } print ''; print ''; } } closedir($handle); } } print '
'.$langs->trans("Name").''.$langs->trans("Description").''.$langs->trans("Example").''.$langs->trans("Status").''.$langs->trans("ShortInfo").'
'.$modCodeTiers->name.''.$modCodeTiers->info($langs).''.$modCodeTiers->getExample($langs).''."\n"; print img_picto($langs->trans("Activated"),'switch_on'); print "'; if (! $disabled) print ''; print img_picto($langs->trans("Disabled"),'switch_off'); if (! $disabled) print ''; print ''; $s=$modCodeTiers->getToolTip($langs,null,-1); print $form->textwithpicto('',$s,1); print '
'; print "
"; // Select accountancy code numbering module print_titre($langs->trans("AccountCodeManager")); print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; $var=true; foreach ($dirsociete as $dirroot) { $dir = dol_buildpath($dirroot,0); $handle = @opendir($dir); if (is_resource($handle)) { while (($file = readdir($handle))!==false) { if (substr($file, 0, 15) == 'mod_codecompta_' && substr($file, -3) == 'php') { $file = substr($file, 0, dol_strlen($file)-4); try { dol_include_once($dirroot.$file.'.php'); } catch(Exception $e) { dol_syslog($e->getMessage(), LOG_ERR); } $modCodeCompta = new $file; $var = !$var; print ''; print ''; print '\n"; if ($conf->global->SOCIETE_CODECOMPTA_ADDON == "$file") { print ''; } else { print ''; } print ''; print "\n"; } } closedir($handle); } } print "
'.$langs->trans("Name").''.$langs->trans("Description").''.$langs->trans("Example").''.$langs->trans("Status").''.$langs->trans("ShortInfo").'
'.$modCodeCompta->name."\n"; print $modCodeCompta->info($langs); print ''.$modCodeCompta->getExample($langs)."'; print img_picto($langs->trans("Activated"),'switch_on'); print ''; print img_picto($langs->trans("Disabled"),'switch_off'); print ''; $s=$modCodeCompta->getToolTip($langs,null,-1); print $form->textwithpicto('',$s,1); print '
\n"; /* * Document templates generators */ print '
'; print_titre($langs->trans("ModelModules")); // Load array def with activated templates $def = array(); $sql = "SELECT nom"; $sql.= " FROM ".MAIN_DB_PREFIX."document_model"; $sql.= " WHERE type = 'company'"; $sql.= " AND entity = ".$conf->entity; $resql=$db->query($sql); if ($resql) { $i = 0; $num_rows=$db->num_rows($resql); while ($i < $num_rows) { $array = $db->fetch_array($resql); array_push($def, $array[0]); $i++; } } else { dol_print_error($db); } print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; $var=true; foreach ($dirsociete as $dirroot) { $dir = dol_buildpath($dirroot.'doc/',0); $handle=@opendir($dir); if (is_resource($handle)) { while (($file = readdir($handle))!==false) { if (preg_match('/\.modules\.php$/i',$file)) { $name = substr($file, 4, dol_strlen($file) -16); $classname = substr($file, 0, dol_strlen($file) -12); try { dol_include_once($dirroot.'doc/'.$file); } catch(Exception $e) { dol_syslog($e->getMessage(), LOG_ERR); } $module = new $classname($db); $modulequalified=1; if (! empty($module->version)) { if ($module->version == 'development' && $conf->global->MAIN_FEATURES_LEVEL < 2) $modulequalified=0; else if ($module->version == 'experimental' && $conf->global->MAIN_FEATURES_LEVEL < 1) $modulequalified=0; } if ($modulequalified) { $var = !$var; print ''; // Activate / Disable if (in_array($name, $def)) { print ""; } else { if (versioncompare($module->phpmin,versionphparray()) > 0) { print ""; } else { print ""; } } // Info $htmltooltip = ''.$langs->trans("Name").': '.$module->name; $htmltooltip.='
'.$langs->trans("Type").': '.($module->type?$module->type:$langs->trans("Unknown")); if ($module->type == 'pdf') { $htmltooltip.='
'.$langs->trans("Height").'/'.$langs->trans("Width").': '.$module->page_hauteur.'/'.$module->page_largeur; } $htmltooltip.='

'.$langs->trans("FeaturesSupported").':'; $htmltooltip.='
'.$langs->trans("WatermarkOnDraft").': '.yn((! empty($module->option_draft_watermark)?$module->option_draft_watermark:''), 1, 1); print ''; // Preview print ''; print "\n"; } } } closedir($handle); } } print '
'.$langs->trans("Name").''.$langs->trans("Description").''.$langs->trans("Status").''.$langs->trans("ShortInfo").''.$langs->trans("Preview").'
'; print $module->name; print "\n"; if (method_exists($module,'info')) print $module->info($langs); else print $module->description; print '\n"; //if ($conf->global->COMPANY_ADDON_PDF != "$name") //{ print 'scandir.'&label='.urlencode($module->name).'">'; print img_picto($langs->trans("Enabled"),'switch_on'); print ''; //} //else //{ // print img_picto($langs->trans("Enabled"),'on'); //} print "\n"; print img_picto(dol_escape_htmltag($langs->trans("ErrorModuleRequirePHPVersion",join('.',$module->phpmin))),'switch_off'); print "\n"; print 'scandir.'&label='.urlencode($module->name).'">'.img_picto($langs->trans("Disabled"),'switch_off').''; print "'; print $form->textwithpicto('',$htmltooltip,1,0); print ''; if ($module->type == 'pdf') { $linkspec=''.img_object($langs->trans("Preview"),'bill').''; } else { $linkspec=img_object($langs->trans("PreviewNotAvailable"),'generic'); } print $linkspec; print '
'; print '
'; //IDProf print_titre($langs->trans("CompanyIdProfChecker")); print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; $profid[0][0]=$langs->trans("ProfId1"); $profid[0][1]=$langs->transcountry('ProfId1', $mysoc->country_code); $profid[1][0]=$langs->trans("ProfId2"); $profid[1][1]=$langs->transcountry('ProfId2', $mysoc->country_code); $profid[2][0]=$langs->trans("ProfId3"); $profid[2][1]=$langs->transcountry('ProfId3', $mysoc->country_code); $profid[3][0]=$langs->trans("ProfId4"); $profid[3][1]=$langs->transcountry('ProfId4', $mysoc->country_code); $profid[4][0]=$langs->trans("ProfId5"); $profid[4][1]=$langs->transcountry('ProfId5', $mysoc->country_code); $profid[5][0]=$langs->trans("ProfId6"); $profid[5][1]=$langs->transcountry('ProfId6', $mysoc->country_code); $var = true; $i=0; $nbofloop=count($profid); while ($i < $nbofloop) { if ($profid[$i][1]!='-') { $var = !$var; print ''; print ''; $idprof_unique ='SOCIETE_IDPROF'.($i+1).'_UNIQUE'; $idprof_mandatory ='SOCIETE_IDPROF'.($i+1).'_MANDATORY'; $idprof_invoice_mandatory ='SOCIETE_IDPROF'.($i+1).'_INVOICE_MANDATORY'; $verif=(empty($conf->global->$idprof_unique)?false:true); $mandatory=(empty($conf->global->$idprof_mandatory)?false:true); $invoice_mandatory=(empty($conf->global->$idprof_invoice_mandatory)?false:true); if ($verif) { print ''; } else { print ''; } if ($mandatory) { print ''; } else { print ''; } if ($invoice_mandatory) { print ''; } else { print ''; } print "\n"; } $i++; } print "
'.$langs->trans("Name").''.$langs->trans("Description").''.$langs->trans("MustBeUnique").''.$langs->trans("MustBeMandatory").''.$langs->trans("MustBeInvoiceMandatory").'
'.$profid[$i][0]."\n"; print $profid[$i][1]; print ''; print img_picto($langs->trans("Activated"),'switch_on'); print ''; print img_picto($langs->trans("Disabled"),'switch_off'); print ''; print img_picto($langs->trans("Activated"),'switch_on'); print ''; print img_picto($langs->trans("Disabled"),'switch_off'); print ''; print img_picto($langs->trans("Activated"),'switch_on'); print ''; print img_picto($langs->trans("Disabled"),'switch_off'); print '

\n"; print_titre($langs->trans("Other")); // Autres options $form=new Form($db); $var=true; print '
'; print ''; print ''; print ''; print ''; print "\n"; print ''."\n"; print ''."\n"; // Utilisation formulaire Ajax sur choix societe $var=!$var; print ""; print ''; if (! $conf->use_javascript_ajax) { print '"; } else { print '"; } print ''; $var=!$var; print ""; print ''; if (! $conf->use_javascript_ajax) { print '"; } else { print '"; } print ''; $var=!$var; print ""; print ''; print ''; print ''; print ''; /* // COMPANY_USE_SEARCH_TO_SELECT $var=!$var; print ""; print ''; if (! empty($conf->global->COMPANY_HIDE_INACTIVE_IN_COMBOBOX)) { print ''; } else { print ''; } print ''; */ print '
".$langs->trans("Parameters")."'.$langs->trans("Value").' 
'.$form->textwithpicto($langs->trans("DelaiedFullListToSelectCompany"),$langs->trans('UseSearchToSelectCompanyTooltip'),1).' '; print $langs->trans("NotAvailableWhenAjaxDisabled"); print "'; $arrval=array('0'=>$langs->trans("No"), '1'=>$langs->trans("Yes").' ('.$langs->trans("NumberOfKeyToSearch",1).')', '2'=>$langs->trans("Yes").' ('.$langs->trans("NumberOfKeyToSearch",2).')', '3'=>$langs->trans("Yes").' ('.$langs->trans("NumberOfKeyToSearch",3).')', ); print $form->selectarray("activate_COMPANY_USE_SEARCH_TO_SELECT", $arrval, $conf->global->COMPANY_USE_SEARCH_TO_SELECT); print ''; print ''; print "
'.$form->textwithpicto($langs->trans("DelaiedFullListToSelectContact"),$langs->trans('UseSearchToSelectContactTooltip'),1).''; print $langs->trans("NotAvailableWhenAjaxDisabled"); print "'; $arrval=array('0'=>$langs->trans("No"), '1'=>$langs->trans("Yes").' ('.$langs->trans("NumberOfKeyToSearch",1).')', '2'=>$langs->trans("Yes").' ('.$langs->trans("NumberOfKeyToSearch",2).')', '3'=>$langs->trans("Yes").' ('.$langs->trans("NumberOfKeyToSearch",3).')', ); print $form->selectarray("activate_CONTACT_USE_SEARCH_TO_SELECT", $arrval, $conf->global->CONTACT_USE_SEARCH_TO_SELECT); print ''; print ''; print "
'.$langs->trans("AddRefInList").' '; if (!empty($conf->global->SOCIETE_ADD_REF_IN_LIST)) { print ''; print img_picto($langs->trans("Activated"),'switch_on'); } else { print ''; print img_picto($langs->trans("Disabled"),'switch_off'); } print '
'.$langs->trans("HideClosedThirdpartyComboBox").''; print img_picto($langs->trans("Activated"),'switch_on'); print ''; print img_picto($langs->trans("Disabled"),'switch_off'); print '
'; print '
'; dol_fiche_end(); $db->close(); llxFooter();