Nouveau fichier
This commit is contained in:
Rodolphe Quiedeville
parent
ac52f2e8dc
commit
561638585e
109
htdocs/telephonie/ligne/commande/retour/liste.php
Normal file
109
htdocs/telephonie/ligne/commande/retour/liste.php
Normal file
@ -0,0 +1,109 @@
|
||||
<?PHP
|
||||
/* Copyright (C) 2004-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||
*
|
||||
* 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$
|
||||
*
|
||||
*/
|
||||
require("./pre.inc.php");
|
||||
|
||||
if (!$user->rights->telephonie->lire) accessforbidden();
|
||||
|
||||
llxHeader('','Telephonie - Ligne - Commande - Retour');
|
||||
|
||||
|
||||
$page = $_GET["page"];
|
||||
$sortorder = $_GET["sortorder"];
|
||||
|
||||
if ($page == -1) { $page = 0 ; }
|
||||
|
||||
$offset = $conf->liste_limit * $page ;
|
||||
$pageprev = $page - 1;
|
||||
$pagenext = $page + 1;
|
||||
|
||||
if ($sortorder == "") {
|
||||
$sortorder="DESC";
|
||||
}
|
||||
if ($sortfield == "") {
|
||||
$sortfield="rowid";
|
||||
}
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
$sql = "SELECT ";
|
||||
$sql .= " cli,mode,situation,date_mise_service,date_resiliation,motif_resiliation,commentaire,fichier, traite ";
|
||||
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_commande_retour";
|
||||
$sql .= " ORDER BY $sortfield $sortorder " . $db->plimit($conf->liste_limit+1, $offset);
|
||||
|
||||
if ($db->query($sql))
|
||||
{
|
||||
$num = $db->num_rows();
|
||||
$i = 0;
|
||||
|
||||
print_barre_liste("Retours Fournisseurs", $page, "liste.php", "", $sortfield, $sortorder, '', $num);
|
||||
|
||||
print '<table class="noborder" width="100%" cellspacing="0" cellpadding="4">';
|
||||
print '<tr class="liste_titre"><td>Lignes Statuts</td><td>Mode</td><td align="center">Resultat</td>';
|
||||
print '<td align="center">Date</td><td>Commentaire</td><td>-</td>';
|
||||
print "</tr>\n";
|
||||
$var=True;
|
||||
|
||||
while ($i < min($num,$conf->liste_limit))
|
||||
{
|
||||
$obj = $db->fetch_object();
|
||||
$var=!$var;
|
||||
|
||||
$ligne = new LigneTel($db);
|
||||
|
||||
if ( $ligne->fetch($obj->cli) == 1);
|
||||
{
|
||||
print "<tr $bc[$var]><td>";
|
||||
print '<img src="'.DOL_URL_ROOT.'/telephonie/ligne/graph'.$ligne->statut.'.png"> ';
|
||||
print '<a href="'.DOL_URL_ROOT.'/telephonie/ligne/fiche.php?numero='.$obj->cli.'">';
|
||||
print dolibarr_print_phone($obj->cli)."</a></td>\n";
|
||||
print '<td>'.$obj->mode."</td>\n";
|
||||
print '<td align="center">'.$obj->situation."</td>\n";
|
||||
print '<td align="center">'.$obj->date_mise_service."</td>\n";
|
||||
print '<td>'.$obj->commentaire."</td>\n";
|
||||
print '<td>';
|
||||
if ($obj->traite == 0)
|
||||
{
|
||||
print "A traiter";
|
||||
}
|
||||
else
|
||||
{
|
||||
print "-";
|
||||
}
|
||||
print "</td>\n";
|
||||
print "</tr>\n";
|
||||
}
|
||||
$i++;
|
||||
}
|
||||
print "</table>";
|
||||
$db->free();
|
||||
}
|
||||
else
|
||||
{
|
||||
print $db->error() . ' ' . $sql;
|
||||
}
|
||||
|
||||
|
||||
$db->close();
|
||||
|
||||
llxFooter("<em>Dernière modification $Date$ révision $Revision$</em>");
|
||||
?>
|
||||
190
htdocs/telephonie/script/retour-traitement.php
Normal file
190
htdocs/telephonie/script/retour-traitement.php
Normal file
@ -0,0 +1,190 @@
|
||||
<?PHP
|
||||
/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||
*
|
||||
* 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$
|
||||
*
|
||||
* Script de traitement des retour de commande
|
||||
*/
|
||||
|
||||
require ("../../master.inc.php");
|
||||
|
||||
require_once (DOL_DOCUMENT_ROOT."/telephonie/lignetel.class.php");
|
||||
require_once (DOL_DOCUMENT_ROOT."/telephonie/facturetel.class.php");
|
||||
require_once (DOL_DOCUMENT_ROOT."/telephonie/telephonie-tarif.class.php");
|
||||
require_once (DOL_DOCUMENT_ROOT."/telephonie/communication.class.php");
|
||||
require_once (DOL_DOCUMENT_ROOT."/societe.class.php");
|
||||
require_once (DOL_DOCUMENT_ROOT."/lib/dolibarrmail.class.php");
|
||||
|
||||
dolibarr_syslog("retour-traitement");
|
||||
|
||||
$user = new User($db, 1);
|
||||
|
||||
$error = 0;
|
||||
|
||||
|
||||
$sql = "SELECT cli,mode,situation";
|
||||
$sql .= " , ".$db->pdate(date_mise_service);
|
||||
$sql .= " , date_resiliation,motif_resiliation,commentaire,rowid ";
|
||||
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_commande_retour ";
|
||||
$sql .= " WHERE traite = 0";
|
||||
|
||||
if ($db->query($sql))
|
||||
{
|
||||
$i = 0;
|
||||
$num = $db->num_rows();
|
||||
|
||||
while ($i < $num)
|
||||
{
|
||||
$row[$i] = $db->fetch_row();
|
||||
|
||||
$i++;
|
||||
}
|
||||
}
|
||||
|
||||
$n = sizeof($row);
|
||||
|
||||
dolibarr_syslog($n . " lignes à traiter");
|
||||
|
||||
for ($i = 0 ; $i < $n ; $i++)
|
||||
{
|
||||
$numero = $row[$i][0];
|
||||
$mode = $row[$i][1];
|
||||
$situation = $row[$i][2];
|
||||
$date_mise_service = $row[$i][3];
|
||||
$date_resiliation = $row[$i][4];
|
||||
$motif_resiliation = $row[$i][5];
|
||||
$commentaire = $row[$i][6];
|
||||
$rowid = $row[$i][7];
|
||||
|
||||
$ligne = new LigneTel($db);
|
||||
|
||||
if ($ligne->fetch($numero) == 1)
|
||||
{
|
||||
/*
|
||||
* Activation de la ligne
|
||||
*/
|
||||
|
||||
if ($mode == 'PRESELECTION' &&
|
||||
$situation == 'CONFIRME' &&
|
||||
$commentaire == 'CONFIRME PAR FT')
|
||||
{
|
||||
|
||||
if ($ligne->statut == 2)
|
||||
{
|
||||
$statut = 3;
|
||||
$datea = $db->idate($date_mise_service);
|
||||
|
||||
if ($db->query("BEGIN"))
|
||||
{
|
||||
$error = 0;
|
||||
|
||||
if ($ligne->set_statut($user, $statut, $datea) <> 0)
|
||||
{
|
||||
$error++;
|
||||
}
|
||||
|
||||
if (!$error)
|
||||
{
|
||||
/* Tag la ligne comme traitée */
|
||||
|
||||
$sql = "UPDATE ".MAIN_DB_PREFIX."telephonie_commande_retour ";
|
||||
$sql .= " SET traite = 1, date_traitement=now() ";
|
||||
$sql .= " WHERE rowid =".$rowid;
|
||||
|
||||
if (! $db->query($sql))
|
||||
{
|
||||
dolibarr_syslog("Erreur de traitement de ligne $numero");
|
||||
$error++;
|
||||
}
|
||||
}
|
||||
|
||||
if ($error == 0)
|
||||
{
|
||||
$db->query("COMMIT");
|
||||
dolibarr_syslog("COMMIT");
|
||||
}
|
||||
else
|
||||
{
|
||||
$db->query("ROLLBACK");
|
||||
dolibarr_syslog("ROLLBACK");
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
dolibarr_syslog("Ligne $numero déjà active");
|
||||
}
|
||||
}
|
||||
/*
|
||||
* Ligne Rejetée
|
||||
*/
|
||||
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
/*
|
||||
* Prefixe non géré
|
||||
*/
|
||||
|
||||
if ($mode == 'PREFIXE' &&
|
||||
$situation == 'CONFIRME')
|
||||
{
|
||||
if ($db->query("BEGIN"))
|
||||
{
|
||||
$error = 0;
|
||||
|
||||
if (!$error)
|
||||
{
|
||||
/* Tag la ligne comme traitée */
|
||||
|
||||
$sql = "UPDATE ".MAIN_DB_PREFIX."telephonie_commande_retour ";
|
||||
$sql .= " SET traite = 1, date_traitement=now() ";
|
||||
$sql .= " WHERE rowid =".$rowid;
|
||||
|
||||
if (! $db->query($sql))
|
||||
{
|
||||
dolibarr_syslog("Erreur de traitement de ligne $numero");
|
||||
$error++;
|
||||
}
|
||||
}
|
||||
|
||||
if ($error == 0)
|
||||
{
|
||||
$db->query("COMMIT");
|
||||
dolibarr_syslog("COMMIT");
|
||||
}
|
||||
else
|
||||
{
|
||||
$db->query("ROLLBACK");
|
||||
dolibarr_syslog("ROLLBACK");
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
/*
|
||||
* Fin mode PREFIXE
|
||||
*
|
||||
*/
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
158
htdocs/telephonie/script/retour.php
Normal file
158
htdocs/telephonie/script/retour.php
Normal file
@ -0,0 +1,158 @@
|
||||
<?PHP
|
||||
/* Copyright (C) 2004-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||
*
|
||||
* 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$
|
||||
*
|
||||
* Script d'import des retour
|
||||
*/
|
||||
|
||||
require ("../../master.inc.php");
|
||||
|
||||
$dir = DOL_DATA_ROOT."/telephonie/ligne/commande/retour/";
|
||||
$dirdone = DOL_DATA_ROOT."/telephonie/ligne/commande/retour/traite/";
|
||||
|
||||
$dirback = DOL_DATA_ROOT."/telephonie/ligne/commande/retour/backup/";
|
||||
|
||||
if (! file_exists($dirback))
|
||||
{
|
||||
umask(0);
|
||||
if (! @mkdir($dirback, 0755))
|
||||
{
|
||||
dolibarr_syslog("Erreur: creation '$dir'");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
$handle=opendir($dir);
|
||||
|
||||
dolibarr_syslog("Lecture repertoire $dir");
|
||||
|
||||
while (($file = readdir($handle))!==false)
|
||||
{
|
||||
if (is_file($dir.$file))
|
||||
{
|
||||
|
||||
if (is_readable($dir.$file))
|
||||
{
|
||||
|
||||
dolibarr_syslog("Lecture $file");
|
||||
|
||||
if (! file_exists($dirdone))
|
||||
{
|
||||
umask(0);
|
||||
if (! @mkdir($dirdone, 0755))
|
||||
{
|
||||
dolibarr_syslog("Erreur: creation '$dirdone'");
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* On verifie que le fichier n'a pas déjà été traité
|
||||
*/
|
||||
if (! file_exists($dirdone.$file))
|
||||
{
|
||||
if ( import_file($db, $dir, $file) == 0)
|
||||
{
|
||||
rename($dir.$file, $dirdone.$file);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
dolibarr_syslog("Le fichier $file a déjà été traité");
|
||||
}
|
||||
|
||||
}
|
||||
else
|
||||
{
|
||||
dolibarr_syslog("Erreur Lecture $file permissions insuffisante");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
closedir($handle);
|
||||
|
||||
/**
|
||||
*
|
||||
*
|
||||
*
|
||||
*/
|
||||
|
||||
Function import_file($db,$dir,$file)
|
||||
{
|
||||
$error = 0;
|
||||
$line = 0;
|
||||
$hf = fopen ($dir.$file, "r");
|
||||
|
||||
if ($db->query("BEGIN"))
|
||||
{
|
||||
|
||||
while (!feof($hf))
|
||||
{
|
||||
$cont = fgets($hf, 1024);
|
||||
|
||||
$tabline = explode(";", $cont);
|
||||
|
||||
if (substr($tabline, 0, 3) <> 'CLI')
|
||||
{
|
||||
if (sizeof($tabline) == 8)
|
||||
{
|
||||
$numero = $tabline[0];
|
||||
$mode = $tabline[1];
|
||||
$situation = $tabline[2];
|
||||
$date_mise_service = $tabline[3];
|
||||
$date_resiliation = $tabline[4];
|
||||
$motif_resiliation = $tabline[5];
|
||||
$commentaire = $tabline[6];
|
||||
$fichier = $file;
|
||||
|
||||
$sql = "INSERT INTO ".MAIN_DB_PREFIX."telephonie_commande_retour ";
|
||||
|
||||
$sql .= " (cli,mode,situation,date_mise_service,date_resiliation,motif_resiliation,commentaire,fichier) ";
|
||||
$sql .= " VALUES (";
|
||||
$sql .= "'$numero','$mode','$situation','$date_mise_service','$date_resiliation','$motif_resiliation','$commentaire','$fichier')";
|
||||
|
||||
if (! $db->query($sql))
|
||||
{
|
||||
dolibarr_syslog("Erreur de traitement de ligne");
|
||||
dolibarr_syslog($db->error());
|
||||
$error++;
|
||||
}
|
||||
}
|
||||
}
|
||||
$line++;
|
||||
}
|
||||
|
||||
if ($error == 0)
|
||||
{
|
||||
$db->query("COMMIT");
|
||||
dolibarr_syslog("COMMIT");
|
||||
}
|
||||
else
|
||||
{
|
||||
$db->query("ROLLBACK");
|
||||
dolibarr_syslog("ROLLBACK");
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
fclose($hf);
|
||||
|
||||
return $error;
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user