* Copyright (C) 2004 Eric Seigne * Copyright (C) 2005-2011 Laurent Destailleur * Copyright (C) 2005-2010 Regis Houssin * Copyright (C) 2011 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 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, see . */ /** * \file htdocs/admin/societe.php * \ingroup company * \brief Third party module setup page */ require("../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/lib/admin.lib.php"); require_once(DOL_DOCUMENT_ROOT."/lib/company.lib.php"); $langs->load("admin"); if (!$user->admin) accessforbidden(); $action=GETPOST("action"); $value=GETPOST("value"); /* * 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 == 'COMPANY_USE_SEARCH_TO_SELECT') { $companysearch = GETPOST("activate_COMPANY_USE_SEARCH_TO_SELECT"); $res = dolibarr_set_const($db, "COMPANY_USE_SEARCH_TO_SELECT", $companysearch,'chaine',0,'',$conf->entity); if (! $res > 0) $error++; if (! $error) { $mesg = "".$langs->trans("SetupSaved").""; } else { $mesg = "".$langs->trans("Error").""; } } // 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=$_POST["param".$i]; $value=$_POST["value".$i]; if ($param) $res = dolibarr_set_const($db,$param,$value,'chaine',0,'',$conf->entity); if (! $res > 0) $error++; } } if (! $error) { $db->commit(); $mesg = "".$langs->trans("SetupSaved").""; } else { $db->rollback(); $mesg = "".$langs->trans("Error").""; } } // Activate a document generator module if ($action == 'set') { $label = GETPOST("label"); $scandir = GETPOST("scandir"); $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"); $scandir = GETPOST("scandir"); $db->begin(); if (dolibarr_set_const($db, "COMPANY_ADDON_PDF",$value,'chaine',0,'',$conf->entity)) { $conf->global->COMPANY_ADDON_PDF = $value; } // On active le modele $type='company'; $sql_del = "DELETE FROM ".MAIN_DB_PREFIX."document_model"; $sql_del.= " WHERE nom = '".$db->escape($_GET["value"])."'"; $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 ".$sql); $result2=$db->query($sql); if ($result1 && $result2) { $db->commit(); } else { dol_syslog("societe.php ".$db->lasterror(), LOG_ERR); $db->rollback(); } } //Activate ProfId if ($action == 'setprofid') { $status = GETPOST("status"); $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); } } /* * View */ $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,'setup'); $head = societe_admin_prepare_head(null); dol_fiche_head($head, 'general', $langs->trans("ThirdParty"), 0, 'company'); dol_htmloutput_mesg($mesg); // Module to manage customer/supplier code print_titre($langs->trans("CompanyCodeChecker")); print "\n"; print "\n"; print ' '; print ' '; print ' '; print ' '; print ' '; print "\n"; clearstatcache(); $dir = "../includes/modules/societe/"; $handle = opendir($dir); if (is_resource($handle)) { $var = true; // 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); require_once(DOL_DOCUMENT_ROOT ."/includes/modules/societe/".$file.".php"); $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 \n \n"; print '\n"; if ($conf->global->SOCIETE_CODECLIENT_ADDON == "$file") { print "\n"; } else { print ''; } print ''; print ''; } } closedir($handle); } print '

'.$langs->trans("Name").'	'.$langs->trans("Description").'	'.$langs->trans("Example").'	'.$langs->trans("Status").'	'.$langs->trans("Infos").'
".$modCodeTiers->nom."	"; print $modCodeTiers->info($langs); print "	'.$modCodeTiers->getExample($langs)."	\n"; print img_picto($langs->trans("Activated"),'switch_on'); print "	'; print img_picto($langs->trans("Disabled"),'switch_off'); 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"; clearstatcache(); $dir = "../includes/modules/societe/"; $handle = opendir($dir); if (is_resource($handle)) { $var = true; while (($file = readdir($handle))!==false) { if (substr($file, 0, 15) == 'mod_codecompta_' && substr($file, -3) == 'php') { $file = substr($file, 0, dol_strlen($file)-4); require_once(DOL_DOCUMENT_ROOT ."/includes/modules/societe/".$file.".php"); $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").'
'.$modCodeCompta->nom."	\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 "\n"; clearstatcache(); $var=true; foreach ($conf->file->dol_document_root as $dirroot) { $dir = $dirroot . "/includes/modules/societe/doc"; if (is_dir($dir)) { $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); require_once($dir.'/'.$file); $module = new $classname($db); $modulequalified=1; if ($module->version == 'development' && $conf->global->MAIN_FEATURES_LEVEL < 2) $modulequalified=0; 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 ($modele->type == 'pdf') { $htmltooltip.='
'.$langs->trans("Height").'/'.$langs->trans("Width").': '.$module->page_hauteur.'/'.$module->page_largeur; } $htmltooltip.='

'.$langs->trans("FeaturesSupported").':'; $htmltooltip.='
'.$langs->trans("WatermarkOnDraft").': '.yn($module->option_draft_watermark,1,1); print ''; print "\n"; } } } closedir($handle); } } } print '

'.$langs->trans("Name").'	'.$langs->trans("Description").'	'.$langs->trans("Status").'	'.$langs->trans("Infos").'
'; 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 "	'; if ($modele->type == 'pdf') { $linkspec=''.img_object($langs->trans("Preview"),'bill').''; } else { $linkspec=img_object($langs->trans("PreviewNotAvailable"),'generic'); } print $form->textwithpicto('   '.$linkspec,$htmltooltip,1,0); print '

'; print '
'; //IDProf print_titre($langs->trans("CompanyIdProfChecker")); print ''; print ''; print ''; print ''; print ''; print "\n"; $profid[0][0]=$langs->trans("ProfId1"); $profid[0][1]=$langs->transcountry('ProfId1', $mysoc->pays_code); $profid[1][0]=$langs->trans("ProfId2"); $profid[1][1]=$langs->transcountry('ProfId2', $mysoc->pays_code); $profid[2][0]=$langs->trans("ProfId3"); $profid[2][1]=$langs->transcountry('ProfId3', $mysoc->pays_code); $profid[3][0]=$langs->trans("ProfId4"); $profid[3][1]=$langs->transcountry('ProfId4', $mysoc->pays_code); $var = true; $i=0; $nbofloop=count($profid); while ($i < $nbofloop) { $var = !$var; print ''; print ''; switch($i) { case 0: $verif=(!$conf->global->SOCIETE_IDPROF1_UNIQUE?false:true); break; case 1: $verif=(!$conf->global->SOCIETE_IDPROF2_UNIQUE?false:true); break; case 2: $verif=(!$conf->global->SOCIETE_IDPROF3_UNIQUE?false:true); break; case 3: $verif=(!$conf->global->SOCIETE_IDPROF4_UNIQUE?false:true); break; } if ($verif) { print ''; } else { print ''; } print "\n"; $i++; } print "

'.$langs->trans("Name").'	'.$langs->trans("Description").'	'.$langs->trans("MustBeUnique").'
'.$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 '

\n"; print_titre($langs->trans("Other")); // Autres options $html=new Form($db); $var=true; print ''; print ''; print "\n"; print ''."\n"; print ''."\n"; // Utilisation formulaire Ajax sur choix societe $var=!$var; print ''; print ''; print ''; print ""; print ''; if (! $conf->use_javascript_ajax) { print '"; } else { print '"; } print ''; print ''; print '

".$langs->trans("Parameters")."	'.$langs->trans("Value").'
'.$langs->trans("UseSearchToSelectCompany").'	'; 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 $html->selectarray("activate_COMPANY_USE_SEARCH_TO_SELECT",$arrval,$conf->global->COMPANY_USE_SEARCH_TO_SELECT); print '	'; print ''; print "

'; dol_fiche_end(); $db->close(); llxFooter(); ?>