forked from Wavyzz/dolibarr
413 lines
10 KiB
PHP
413 lines
10 KiB
PHP
<?php
|
||
/* Copyright (C) 2003-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||
* Copyright (C) 2004-2007 Laurent Destailleur <eldy@users.sourceforge.net>
|
||
* Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
|
||
* Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
|
||
* Copyright (C) 2004 Eric Seigne <eric.seigne@ryxeo.com>
|
||
* Copyright (C) 2005-2006 Regis Houssin <regis.houssin@cap-networks.com>
|
||
*
|
||
* 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/expedition.php
|
||
\ingroup expedition
|
||
\brief Page d'administration/configuration du module Expedition
|
||
\version $Revision$
|
||
*/
|
||
|
||
require("./pre.inc.php");
|
||
require_once(DOL_DOCUMENT_ROOT.'/expedition/expedition.class.php');
|
||
|
||
$langs->load("admin");
|
||
$langs->load("bills");
|
||
$langs->load("other");
|
||
$langs->load("sendings");
|
||
$langs->load("deliveries");
|
||
|
||
if (!$user->admin) accessforbidden();
|
||
|
||
|
||
/*
|
||
* Actions
|
||
*/
|
||
if ($_GET["action"] == 'specimen')
|
||
{
|
||
$modele=$_GET["module"];
|
||
|
||
$exp = new Expedition($db);
|
||
$exp->initAsSpecimen();
|
||
$exp->fetch_commande();
|
||
|
||
// Charge le modele
|
||
$dir = DOL_DOCUMENT_ROOT . "/expedition/mods/pdf/";
|
||
$file = "pdf_expedition_".$modele.".modules.php";
|
||
if (file_exists($dir.$file))
|
||
{
|
||
$classname = "pdf_expedition_".$modele;
|
||
require_once($dir.$file);
|
||
|
||
$obj = new $classname($db);
|
||
|
||
if ($obj->write_file($exp,$langs) > 0)
|
||
{
|
||
header("Location: ".DOL_URL_ROOT."/document.php?modulepart=expedition&file=SPECIMEN.pdf");
|
||
return;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
$mesg='<div class="error">'.$langs->trans("ErrorModuleNotFound").'</div>';
|
||
}
|
||
}
|
||
|
||
if ($_GET["action"] == 'set')
|
||
{
|
||
$type='shipping';
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."document_model (nom, type) VALUES ('".$_GET["value"]."','".$type."')";
|
||
if ($db->query($sql))
|
||
{
|
||
|
||
}
|
||
}
|
||
|
||
if ($_GET["action"] == 'del')
|
||
{
|
||
$type='shipping';
|
||
$sql = "DELETE FROM ".MAIN_DB_PREFIX."document_model";
|
||
$sql .= " WHERE nom = '".$_GET["value"]."' AND type = '".$type."'";
|
||
if ($db->query($sql))
|
||
{
|
||
|
||
}
|
||
}
|
||
|
||
if ($_GET["action"] == 'setdoc')
|
||
{
|
||
$db->begin();
|
||
|
||
if (dolibarr_set_const($db, "EXPEDITION_ADDON_PDF",$_GET["value"]))
|
||
{
|
||
$conf->global->EXPEDITION_ADDON_PDF = $_GET["value"];
|
||
}
|
||
|
||
// On active le modele
|
||
$type='shipping';
|
||
$sql_del = "DELETE FROM ".MAIN_DB_PREFIX."document_model";
|
||
$sql_del .= " WHERE nom = '".$_GET["value"]."' AND type = '".$type."'";
|
||
$result1=$db->query($sql_del);
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."document_model (nom,type) VALUES ('".$_GET["value"]."','".$type."')";
|
||
$result2=$db->query($sql);
|
||
if ($result1 && $result2)
|
||
{
|
||
$db->commit();
|
||
}
|
||
else
|
||
{
|
||
$db->rollback();
|
||
}
|
||
}
|
||
|
||
// \todo A quoi servent les methode d'expedition ?
|
||
if ($_GET["action"] == 'setmethod')
|
||
{
|
||
$db->begin();
|
||
|
||
$value=$_GET["value"];
|
||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."expedition_methode (code,libelle,description,statut)";
|
||
$sql.= " VALUES ('".$_GET["value"]."','".$_GET["value"]."','',1)";
|
||
$result=$db->query($sql);
|
||
if ($result)
|
||
{
|
||
$db->commit();
|
||
}
|
||
else
|
||
{
|
||
$db->rollback();
|
||
}
|
||
}
|
||
|
||
if ($_GET["action"] == 'setmod')
|
||
{
|
||
// \todo Verifier si module numerotation choisi peut etre activ<69>
|
||
// par appel methode canBeActivated
|
||
|
||
dolibarr_set_const($db, "EXPEDITION_ADDON",$_GET["value"]);
|
||
}
|
||
|
||
|
||
|
||
/*
|
||
* Affiche page
|
||
*/
|
||
|
||
llxHeader("","");
|
||
|
||
if ($mesg) print $mesg.'<br>';
|
||
|
||
|
||
$dir = DOL_DOCUMENT_ROOT."/expedition/mods/";
|
||
$html=new Form($db);
|
||
|
||
$h = 0;
|
||
|
||
$head[$h][0] = DOL_URL_ROOT."/admin/confexped.php";
|
||
$head[$h][1] = $langs->trans("Setup");
|
||
$h++;
|
||
|
||
$head[$h][0] = DOL_URL_ROOT."/admin/expedition.php";
|
||
$head[$h][1] = $langs->trans("Sending");
|
||
$hselected=$h;
|
||
$h++;
|
||
|
||
if ($conf->global->MAIN_SUBMODULE_LIVRAISON)
|
||
{
|
||
$head[$h][0] = DOL_URL_ROOT."/admin/livraison.php";
|
||
$head[$h][1] = $langs->trans("Delivery");
|
||
$h++;
|
||
}
|
||
|
||
dolibarr_fiche_head($head, $hselected, $langs->trans("ModuleSetup"));
|
||
|
||
// M<>thode de livraison
|
||
$mods=array();
|
||
$sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."expedition_methode WHERE statut = 1";
|
||
$resql = $db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$i = 0;
|
||
$num = $db->num_rows($resql);
|
||
while ($i < $num)
|
||
{
|
||
$obj = $db->fetch_object($resql);
|
||
$mods[$i]=$obj->rowid;
|
||
$i++;
|
||
}
|
||
}
|
||
|
||
print_fiche_titre($langs->trans("SendingMethod"),'','setup');
|
||
|
||
print '<table class="noborder" width="100%">';
|
||
print '<tr class="liste_titre">';
|
||
print '<td width="140">'.$langs->trans("Name").'</td><td>'.$langs->trans("Description").'</td>';
|
||
print '<td align="center"> </td>';
|
||
print '<td align="center" width="60">'.$langs->trans("Action").'</td>';
|
||
print '<td align="center" width="60">'.$langs->trans("Default").'</td>';
|
||
print '<td align="center" width="16">'.$langs->trans("Infos").'</td>';
|
||
print "</tr>\n";
|
||
|
||
if(is_dir($dir))
|
||
{
|
||
$handle=opendir($dir);
|
||
$var=true;
|
||
|
||
while (($file = readdir($handle))!==false)
|
||
{
|
||
if (substr($file, strlen($file) -12) == '.modules.php' && substr($file,0,19) == 'methode_expedition_')
|
||
{
|
||
$name = substr($file, 19, strlen($file) - 31);
|
||
$classname = substr($file, 0, strlen($file) - 12);
|
||
|
||
require_once($dir.$file);
|
||
|
||
$module = new $classname();
|
||
|
||
$var=!$var;
|
||
print "<tr $bc[$var]><td>";
|
||
echo $module->name;
|
||
print "</td><td>\n";
|
||
|
||
print $module->description;
|
||
|
||
print '</td><td align="center">';
|
||
|
||
if (in_array($module->id, $mods))
|
||
{
|
||
print img_tick();
|
||
print '</td><td align="center">';
|
||
print '<a href="'.$_SERVER["PHP_SELF"].'?action=setmethod&statut=0&value='.$name.'">'.$langs->trans("Disable").'</a>';
|
||
|
||
}
|
||
else
|
||
{
|
||
print ' </td><td align="center">';
|
||
print '<a href="'.$_SERVER["PHP_SELF"].'?action=setmethod&statut=1&value='.$name.'">'.$langs->trans("Activate").'</a>';
|
||
}
|
||
|
||
print '</td>';
|
||
|
||
// Default
|
||
print '<td align="center">';
|
||
if ($conf->global->EXPEDITION_ADDON == "$name")
|
||
{
|
||
print img_tick();
|
||
}
|
||
else
|
||
{
|
||
print '<a href="'.$_SERVER["PHP_SELF"].'?action=setmod&value='.$name.'">'.$langs->trans("Default").'</a>';
|
||
}
|
||
print '</td>';
|
||
|
||
// Info
|
||
print '<td> </td>';
|
||
|
||
print '</tr>';
|
||
}
|
||
}
|
||
closedir($handle);
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td><b>ERROR</b>: $dir is not a directory !</td></tr>\n";
|
||
}
|
||
print '</table>';
|
||
|
||
|
||
/*
|
||
* Modeles de documents
|
||
*/
|
||
print '<br>';
|
||
print_titre($langs->trans("SendingsReceiptModel"));
|
||
|
||
// Defini tableau def de modele invoice
|
||
$type="shipping";
|
||
$def = array();
|
||
$sql = "SELECT nom";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."document_model";
|
||
$sql.= " WHERE type = '".$type."'";
|
||
$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
|
||
{
|
||
dolibarr_print_error($db);
|
||
}
|
||
|
||
print '<table class="noborder" width="100%">';
|
||
print '<tr class="liste_titre">';
|
||
print '<td width="140">'.$langs->trans("Name").'</td>';
|
||
print '<td>'.$langs->trans("Description").'</td>';
|
||
print '<td align="center" width="60">'.$langs->trans("Activated").'</td>';
|
||
print '<td align="center" width="60">'.$langs->trans("Default").'</td>';
|
||
print '<td align="center" width="32" colspan="2">'.$langs->trans("Infos").'</td>';
|
||
print "</tr>\n";
|
||
|
||
clearstatcache();
|
||
|
||
$dir = DOL_DOCUMENT_ROOT."/expedition/mods/pdf/";
|
||
|
||
if(is_dir($dir))
|
||
{
|
||
$handle=opendir($dir);
|
||
$var=true;
|
||
|
||
while (($file = readdir($handle))!==false)
|
||
{
|
||
if (substr($file, strlen($file) -12) == '.modules.php' && substr($file,0,15) == 'pdf_expedition_')
|
||
{
|
||
$name = substr($file, 15, strlen($file) - 27);
|
||
$classname = substr($file, 0, strlen($file) - 12);
|
||
|
||
$var=!$var;
|
||
print "<tr $bc[$var]><td>";
|
||
print $name;
|
||
print "</td><td>\n";
|
||
require_once($dir.$file);
|
||
$module = new $classname();
|
||
|
||
print $module->description;
|
||
print '</td>';
|
||
|
||
// Activ
|
||
if (in_array($name, $def))
|
||
{
|
||
print "<td align=\"center\">\n";
|
||
if ($conf->global->EXPEDITION_ADDON_PDF != "$name")
|
||
{
|
||
print '<a href="'.$_SERVER["PHP_SELF"].'?action=del&value='.$name.'">';
|
||
print img_tick($langs->trans("Disable"));
|
||
print '</a>';
|
||
}
|
||
else
|
||
{
|
||
print img_tick($langs->trans("Enabled"));
|
||
}
|
||
print "</td>";
|
||
}
|
||
else
|
||
{
|
||
print "<td align=\"center\">\n";
|
||
print '<a href="'.$_SERVER["PHP_SELF"].'?action=set&value='.$name.'">'.$langs->trans("Activate").'</a>';
|
||
print "</td>";
|
||
}
|
||
|
||
// Defaut
|
||
print "<td align=\"center\">";
|
||
if ($conf->global->EXPEDITION_ADDON_PDF == "$name")
|
||
{
|
||
print img_tick($langs->trans("Default"));
|
||
}
|
||
else
|
||
{
|
||
print '<a href="'.$_SERVER["PHP_SELF"].'?action=setdoc&value='.$name.'" alt="'.$langs->trans("Default").'">'.$langs->trans("Default").'</a>';
|
||
}
|
||
print '</td>';
|
||
|
||
// Info
|
||
$htmltooltip = '<b>'.$langs->trans("Name").'</b>: '.$module->name;
|
||
$htmltooltip.='<br><b>'.$langs->trans("Type").'</b>: '.($module->type?$module->type:$langs->trans("Unknown"));
|
||
$htmltooltip.='<br><b>'.$langs->trans("Width").'/'.$langs->trans("Height").'</b>: '.$module->page_largeur.'/'.$module->page_hauteur;
|
||
$htmltooltip.='<br><br>'.$langs->trans("FeaturesSupported").':';
|
||
$htmltooltip.='<br><b>'.$langs->trans("Logo").'</b>: '.yn($module->option_logo);
|
||
print '<td align="center">';
|
||
print $html->textwithhelp('',$htmltooltip,1,0);
|
||
print '</td>';
|
||
print '<td align="center">';
|
||
print '<a href="'.$_SERVER["PHP_SELF"].'?action=specimen&module='.$name.'">'.img_object($langs->trans("Preview"),'sending').'</a>';
|
||
print '</td>';
|
||
|
||
print '</tr>';
|
||
}
|
||
}
|
||
closedir($handle);
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td><b>ERROR</b>: $dir is not a directory !</td></tr>\n";
|
||
}
|
||
print '</table>';
|
||
|
||
/*
|
||
*
|
||
*
|
||
*/
|
||
|
||
$db->close();
|
||
|
||
llxFooter();
|
||
?>
|