* Copyright (C) 2004-2010 Laurent Destailleur * Copyright (C) 2005 Eric Seigne * Copyright (C) 2005-2009 Regis Houssin * Copyright (C) 2008 Raphael Bertrand (Resultic) * * 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/facture.php * \ingroup facture * \brief Page to setup invoice module * \version $Id: facture.php,v 1.150 2011/07/31 22:23:25 eldy Exp $ */ require("../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/lib/admin.lib.php"); require_once(DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php'); $langs->load("admin"); $langs->load("companies"); $langs->load("bills"); $langs->load("other"); $langs->load("errors"); if (!$user->admin) accessforbidden(); $typeconst=array('yesno','texte','chaine'); /* * Actions */ if ($_POST["action"] == 'updateMask') { $maskconstinvoice=$_POST['maskconstinvoice']; $maskconstcredit=$_POST['maskconstcredit']; $maskinvoice=$_POST['maskinvoice']; $maskcredit=$_POST['maskcredit']; if ($maskconstinvoice) dolibarr_set_const($db,$maskconstinvoice,$maskinvoice,'chaine',0,'',$conf->entity); if ($maskconstcredit) dolibarr_set_const($db,$maskconstcredit,$maskcredit,'chaine',0,'',$conf->entity); } if ($_GET["action"] == 'specimen') { $modele=$_GET["module"]; $facture = new Facture($db); $facture->initAsSpecimen(); // Load template $dir = DOL_DOCUMENT_ROOT . "/includes/modules/facture/doc/"; $file = "pdf_".$modele.".modules.php"; if (file_exists($dir.$file)) { $classname = "pdf_".$modele; require_once($dir.$file); $obj = new $classname($db); if ($obj->write_file($facture,$langs) > 0) { header("Location: ".DOL_URL_ROOT."/document.php?modulepart=facture&file=SPECIMEN.pdf"); return; } else { $mesg='

'.$obj->error.'

'; dol_syslog($obj->error, LOG_ERR); } } else { $mesg='

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

'; dol_syslog($langs->trans("ErrorModuleNotFound"), LOG_ERR); } } // define constants for models generator that need parameters if ($_POST["action"] == 'setModuleOptions') { $post_size=count($_POST); for($i=0;$i < $post_size;$i++) { if (array_key_exists('param'.$i,$_POST)) { $param=$_POST["param".$i]; $value=$_POST["value".$i]; if ($param) dolibarr_set_const($db,$param,$value,'chaine',0,'',$conf->entity); } } } if ($_GET["action"] == 'set') { $type='invoice'; $sql = "INSERT INTO ".MAIN_DB_PREFIX."document_model (nom, type, entity, libelle, description)"; $sql.= " VALUES ('".$db->escape($_GET["value"])."','".$type."',".$conf->entity.", "; $sql.= ($_GET["label"]?"'".$db->escape($_GET["label"])."'":'null').", "; $sql.= (! empty($_GET["scandir"])?"'".$db->escape($_GET["scandir"])."'":"null"); $sql.= ")"; if ($db->query($sql)) { } } if ($_GET["action"] == 'del') { $type='invoice'; $sql = "DELETE FROM ".MAIN_DB_PREFIX."document_model"; $sql.= " WHERE nom = '".$_GET["value"]."'"; $sql.= " AND type = '".$type."'"; $sql.= " AND entity = ".$conf->entity; if ($db->query($sql)) { } } if ($_GET["action"] == 'setdoc') { $db->begin(); if (dolibarr_set_const($db, "FACTURE_ADDON_PDF",$_GET["value"],'chaine',0,'',$conf->entity)) { $conf->global->FACTURE_ADDON_PDF = $_GET["value"]; } // On active le modele $type='invoice'; $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("facture.php ".$sql_del); $result1=$db->query($sql_del); $sql = "INSERT INTO ".MAIN_DB_PREFIX."document_model (nom, type, entity, libelle, description)"; $sql.= " VALUES ('".$_GET["value"]."', '".$type."', ".$conf->entity.", "; $sql.= ($_GET["label"]?"'".$db->escape($_GET["label"])."'":'null').", "; $sql.= (! empty($_GET["scandir"])?"'".$_GET["scandir"]."'":"null"); $sql.= ")"; dol_syslog("facture.php ".$sql); $result2=$db->query($sql); if ($result1 && $result2) { $db->commit(); } else { dol_syslog("facture.php ".$db->lasterror(), LOG_ERR); $db->rollback(); } } if ($_GET["action"] == 'setmod') { // TODO Verifier si module numerotation choisi peut etre active // par appel methode canBeActivated dolibarr_set_const($db, "FACTURE_ADDON",$_GET["value"],'chaine',0,'',$conf->entity); } if ($_POST["action"] == 'setribchq') { dolibarr_set_const($db, "FACTURE_RIB_NUMBER",$_POST["rib"],'chaine',0,'',$conf->entity); dolibarr_set_const($db, "FACTURE_CHQ_NUMBER",$_POST["chq"],'chaine',0,'',$conf->entity); } if ($_POST["action"] == 'set_FACTURE_DRAFT_WATERMARK') { dolibarr_set_const($db, "FACTURE_DRAFT_WATERMARK",trim($_POST["FACTURE_DRAFT_WATERMARK"]),'chaine',0,'',$conf->entity); } if ($_POST["action"] == 'set_FACTURE_FREE_TEXT') { dolibarr_set_const($db, "FACTURE_FREE_TEXT",$_POST["FACTURE_FREE_TEXT"],'chaine',0,'',$conf->entity); } if ($_POST["action"] == 'setforcedate') { dolibarr_set_const($db, "FAC_FORCE_DATE_VALIDATION",$_POST["forcedate"],'chaine',0,'',$conf->entity); } if ($_POST["action"] == 'update' || $_POST["action"] == 'add') { if (! dolibarr_set_const($db, $_POST["constname"],$_POST["constvalue"],$typeconst[$_POST["consttype"]],0,isset($_POST["constnote"])?$_POST["constnote"]:'',$conf->entity)); { dol_print_error($db); } } if ($_GET["action"] == 'delete') { if (! dolibarr_del_const($db, $_GET["rowid"],$conf->entity)); { dol_print_error($db); } } /* * View */ llxHeader("",$langs->trans("BillsSetup"),'EN:Invoice_Configuration|FR:Configuration_module_facture|ES:ConfiguracionFactura'); $html=new Form($db); $linkback=''.$langs->trans("BackToModuleList").''; print_fiche_titre($langs->trans("BillsSetup"),$linkback,'setup'); print '
'; /* $h = 0; $head[$h][0] = DOL_URL_ROOT."/admin/facture.php"; $head[$h][1] = $langs->trans("Invoices"); $hselected=$h; $h++; dol_fiche_head($head, $hselected, $langs->trans("ModuleSetup")); */ /* * Numbering module */ print_titre($langs->trans("BillsNumberingModule")); print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''."\n"; clearstatcache(); $var=true; foreach ($conf->file->dol_document_root as $dirroot) { $dir = $dirroot . "/includes/modules/facture/"; if (is_dir($dir)) { $handle = opendir($dir); if (is_resource($handle)) { while (($file = readdir($handle))!==false) { if (! is_dir($dir.$file) || (substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')) { $filebis = $file; $classname = preg_replace('/\.php$/','',$file); // For compatibility if (! is_file($dir.$filebis)) { $filebis = $file."/".$file.".modules.php"; $classname = "mod_facture_".$file; } //print "x".$dir."-".$filebis."-".$classname; if (! class_exists($classname) && is_readable($dir.$filebis) && (preg_match('/mod_/',$filebis) || preg_match('/mod_/',$classname)) && substr($filebis, dol_strlen($filebis)-3, 3) == 'php') { // Chargement de la classe de numerotation require_once($dir.$filebis); $module = new $classname($db); // Show modules according to features level if ($module->version == 'development' && $conf->global->MAIN_FEATURES_LEVEL < 2) continue; if ($module->version == 'experimental' && $conf->global->MAIN_FEATURES_LEVEL < 1) continue; if ($module->isEnabled()) { $var = !$var; print ''; // Show example of numbering module print ''."\n"; print ''; $facture=new Facture($db); $facture->initAsSpecimen(); // Example for standard invoice $htmltooltip=''; $htmltooltip.=''.$langs->trans("Version").': '.$module->getVersion().'
'; $facture->type=0; $nextval=$module->getNextValue($mysoc,$facture); if ("$nextval" != $langs->trans("NotAvailable")) // Keep " on nextval { $htmltooltip.=$langs->trans("NextValueForInvoices").': '; if ($nextval) { $htmltooltip.=$nextval.'
'; } else { $htmltooltip.=$langs->trans($module->error).'
'; } } // Example for credit invoice $facture->type=2; $nextval=$module->getNextValue($mysoc,$facture); if ("$nextval" != $langs->trans("NotAvailable")) // Keep " on nextval { $htmltooltip.=$langs->trans("NextValueForCreditNotes").': '; if ($nextval) { $htmltooltip.=$nextval; } else { $htmltooltip.=$langs->trans($module->error); } } print ''; print "\n"; } } } } closedir($handle); } } } print '

'.$langs->trans("Name").'	'.$langs->trans("Description").'	'.$langs->trans("Example").'	'.$langs->trans("Status").'	'.$langs->trans("Infos").'
'; echo preg_replace('/mod_facture_/','',preg_replace('/\.php$/','',$file)); print "	\n"; print $module->info(); print '	'; $tmp=$module->getExample(); if (preg_match('/^Error/',$tmp)) print $langs->trans($tmp); else print $tmp; print '	'; //print "> ".$conf->global->FACTURE_ADDON." - ".$file; if ($conf->global->FACTURE_ADDON == $file \|\| $conf->global->FACTURE_ADDON.'.php' == $file) { print img_picto($langs->trans("Activated"),'on'); } else { print 'scandir.'&label='.urlencode($module->name).'" alt="'.$langs->trans("Default").'">'.img_picto($langs->trans("Disabled"),'off').''; } print '	'; print $html->textwithpicto('',$htmltooltip,1,0); if ($conf->global->FACTURE_ADDON.'.php' == $file) // If module is the one used, we show existing errors { if (! empty($module->error)) dol_htmloutput_mesg($module->error,'','error',1); } print '

'; /* * Document templates generators */ print '
'; print_titre($langs->trans("BillsPDFModules")); // Load array def with activated templates $def = array(); $sql = "SELECT nom"; $sql.= " FROM ".MAIN_DB_PREFIX."document_model"; $sql.= " WHERE type = 'invoice'"; $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"; clearstatcache(); $var=true; foreach ($conf->file->dol_document_root as $dirroot) { foreach (array('','/doc') as $valdir) { $dir = $dirroot . "/includes/modules/facture".$valdir; if (is_dir($dir)) { $handle=opendir($dir); if (is_resource($handle)) { while (($file = readdir($handle))!==false) { $filelist[]=$file; } closedir($handle); //sort($filelist); //var_dump($filelist); foreach($filelist as $file) { if (preg_match('/\.modules\.php$/i',$file) && preg_match('/^(pdf_|doc_)/',$file)) { if (file_exists($dir.'/'.$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 ''; // Active if (in_array($name, $def)) { print ""; } else { print ""; } // Defaut 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("Logo").': '.yn($module->option_logo,1,1); $htmltooltip.='
'.$langs->trans("PaymentMode").': '.yn($module->option_modereg,1,1); $htmltooltip.='
'.$langs->trans("PaymentConditions").': '.yn($module->option_condreg,1,1); $htmltooltip.='
'.$langs->trans("Escompte").': '.yn($module->option_escompte,1,1); $htmltooltip.='
'.$langs->trans("CreditNote").': '.yn($module->option_credit_note,1,1); $htmltooltip.='
'.$langs->trans("MultiLanguage").': '.yn($module->option_multilang,1,1); $htmltooltip.='
'.$langs->trans("WatermarkOnDraftInvoices").': '.yn($module->option_draft_watermark,1,1); print ''; // Preview print ''; print "\n"; } } } } } } } } print '

'.$langs->trans("Name").'	'.$langs->trans("Description").'	'.$langs->trans("Status").'	'.$langs->trans("Default").'	'.$langs->trans("Infos").'
'; print (empty($module->name)?$name:$module->name); print "	\n"; if (method_exists($module,'info')) print $module->info($langs); else print $module->description; print '	\n"; if ($conf->global->FACTURE_ADDON_PDF != "$name") { print ''; print img_picto($langs->trans("Enabled"),'on'); print ''; } else { print img_picto($langs->trans("Enabled"),'on'); } print "	\n"; print 'scandir.'&label='.urlencode($module->name).'">'.img_picto($langs->trans("Disabled"),'off').''; print "	"; if ($conf->global->FACTURE_ADDON_PDF == "$name") { print img_picto($langs->trans("Default"),'on'); } else { print 'scandir.'&label='.urlencode($module->name).'" alt="'.$langs->trans("Default").'">'.img_picto($langs->trans("Disabled"),'off').''; } print '	'; print $html->textwithpicto('',$htmltooltip,1,0); print '	'; if ($module->type == 'pdf') { print ''.img_object($langs->trans("Preview"),'bill').''; } else { print img_object($langs->trans("PreviewNotAvailable"),'generic'); } print '

'; /* * Modes de reglement * */ print '
'; print_titre($langs->trans("SuggestedPaymentModesIfNotDefinedInInvoice")); print '

'; print ''; print ''; $var=True; print ''; print ''; print ''; print "\n"; $var=!$var; print ''; print ""; print ""; $var=!$var; print ''; print ""; print ""; print "

'; print ''; print $langs->trans("PaymentMode").'
".$langs->trans("SuggestPaymentByRIBOnAccount")."	"; if ($conf->banque->enabled) { $sql = "SELECT rowid, label"; $sql.= " FROM ".MAIN_DB_PREFIX."bank_account"; $sql.= " WHERE clos = 0"; $sql.= " AND courant = 1"; $sql.= " AND entity = ".$conf->entity; $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; if ($num > 0) { print ""; } else { print "".$langs->trans("NoActiveBankAccountDefined").""; } } } else { print $langs->trans("BankModuleNotActive"); } print "
".$langs->trans("SuggestPaymentByChequeToAddress")."	"; print '"; print "

"; print "

"; print "
"; print_titre($langs->trans("OtherOptions")); print ''; print ''; print ''; print ''; print ''; print "\n"; $var=true; // Force date validation $var=! $var; print ''; print ''; print ''; print '\n"; print ''; $var=! $var; print ''; print ''; print ''; print '\n"; print ''; $var=!$var; print ""; print ''; print ""; print '\n"; print ''; print '

'.$langs->trans("Parameter").'	'.$langs->trans("Value").'
'; print $langs->trans("ForceInvoiceDate"); print '	'; print $html->selectyesno("forcedate",$conf->global->FAC_FORCE_DATE_VALIDATION,1); print '	'; print ''; print "
'; print $langs->trans("FreeLegalTextOnInvoices").' ('.$langs->trans("AddCRIfTooLong").') '; print ''.$conf->global->FACTURE_FREE_TEXT.''; print '		'; print ''; print "
'; print $langs->trans("WatermarkOnDraftBill").' '; print ''; print '		'; print ''; print "

'; /* * Repertoire */ print '
'; print_titre($langs->trans("PathToDocuments")); print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n \n \n\n"; print "

".$langs->trans("Name")."	".$langs->trans("Value")."
".$langs->trans("PathDirectory")."	".$conf->facture->dir_output."

\n"; //dol_fiche_end(); $db->close(); llxFooter('$Date: 2011/07/31 22:23:25 $ - $Revision: 1.150 $'); ?>