-
Laurent Destailleur authoredLaurent Destailleur authored
rejet-prelevement.class.php 8.37 KiB
<?php
/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2005-2009 Regis Houssin <regis@dolibarr.fr>
* Copyright (C) 2010 Juanjo Menent <jmenent@2byte.es>
*
* 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$
*/
/**
\file htdocs/compta/prelevement/class/rejet-prelevement.class.php
\ingroup prelevement
\brief File of class to manage standing orders rejects
\version $Revision$
*/
/**
\class RejetPrelevement
\brief Class to manage standing orders rejects
*/
class RejetPrelevement
{
var $id;
var $db;
/**
* \brief Constructeur de la classe
* \param DB Handler acces base de donnees
* \param user Utilisateur
*/
function RejetPrelevement($DB, $user)
{
$this->db = $DB ;
$this->user = $user;
$this->motifs = array();
/* $this->motifs[0] = "Non renseigne";
$this->motifs[1] = "Provision insuffisante";
$this->motifs[2] = "Tirage conteste";
$this->motifs[3] = "Pas de bon � payer";
$this->motifs[4] = "Opposition sur compte";
$this->motifs[5] = "RIB inexploitable";
$this->motifs[6] = "Compte solde";
$this->motifs[7] = "Decision judiciaire";
$this->motifs[8] = "Autre motif";*/
}
function create($user, $id, $motif, $date_rejet, $bonid, $facturation=0)
{
$error = 0;
$this->id = $id;
$this->bon_id = $bonid;
dol_syslog("RejetPrelevement::Create id $id");
$facs = $this->_get_list_factures();
$this->db->begin();
/* Insert la ligne de rejet dans la base */
$sql = "INSERT INTO ".MAIN_DB_PREFIX."prelevement_rejet (";
$sql.= "fk_prelevement_lignes";
$sql.= ", date_rejet";
$sql.= ", motif";
$sql.= ", fk_user_creation";
$sql.= ", date_creation";
$sql.= ", afacturer";
$sql.= ") VALUES (";
$sql.= $id;
$sql.= ", '".$this->db->idate($date_rejet)."'";
$sql.= ", ".$motif;
$sql.= ", ".$user->id;
$sql.= ", ".$this->db->idate(mktime());
$sql.= ", ".$facturation;
$sql.= ")";
$result=$this->db->query($sql);
if (!$result)
{
dol_syslog("RejetPrelevement::create Erreur 4");
dol_syslog("RejetPrelevement::create Erreur 4 $sql");
$error++;
}
/* Tag la ligne de prev comme rejetee */
$sql = " UPDATE ".MAIN_DB_PREFIX."prelevement_lignes ";
$sql.= " SET statut = 3";
$sql.= " WHERE rowid = ".$id;
if (! $this->db->query($sql))
{
dol_syslog("RejetPrelevement::create Erreur 5");
$error++;
}
for ($i = 0 ; $i < sizeof($facs) ; $i++)
{
$fac = new Facture($this->db);
$fac->fetch($facs[$i]);
/* Emet un paiement negatif */
$pai = new Paiement($this->db);
$pai->amounts = array();
// On remplace la virgule eventuelle par un point sinon
// certaines install de PHP renvoie uniquement la partie
// entiere negative
$pai->amounts[$facs[$i]] = price2num($fac->total_ttc * -1);
$pai->datepaye = $this->db->idate($date_rejet);
$pai->paiementid = 3; // prelevement
$pai->num_paiement = "Rejet";
if ($pai->create($this->user, 1) == -1) // on appelle en no_commit
{
$error++;
dol_syslog("RejetPrelevement::Create Erreur creation paiement facture ".$facs[$i]);
}
/* Valide le paiement */
if ($pai->valide() < 0)
{
$error++;
dol_syslog("RejetPrelevement::Create Erreur validation du paiement");
}
/* Tag la facture comme impayee */
dol_syslog("RejetPrelevement::Create set_unpaid fac ".$fac->ref);
$fac->set_unpaid($fac->id, $user);
/* Envoi un email � l'emetteur de la demande de prev */
$this->_send_email($fac);
}
if ($error == 0)
{
dol_syslog("RejetPrelevement::Create Commit");
$this->db->commit();
}
else
{
dol_syslog("RejetPrelevement::Create Rollback");
$this->db->rollback();
}
}
/**
* \brief Envoi mail
* \param fac Invoice object
*/
function _send_email($fac)
{
global $langs;
$userid = 0;
$sql = "SELECT fk_user_demande";
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_facture_demande as pfd";
$sql.= " WHERE pfd.fk_prelevement_bons = ".$this->bon_id;
$sql.= " AND pfd.fk_facture = ".$fac->id;
$resql=$this->db->query($sql);
if ($resql)
{
$num = $this->db->num_rows($resql);
if ($num > 0)
{
$row = $this->db->fetch_row($resql);
$userid = $row[0];
}
}
else
{
dol_syslog("RejetPrelevement::_send_email Erreur lecture user");
}
if ($userid > 0)
{
$emuser = new User($this->db);
$emuser->fetch($userid);
$soc = new Societe($this->db);
$soc->fetch($fac->socid);
require_once(DOL_DOCUMENT_ROOT."/lib/CMailFile.class.php");
$subject = "Prelevement rejete"; $sendto = $emuser->getFullName($langs)." <".$emuser->email.">";
$from = $this->user->getFullName($langs)." <".$this->user->email.">";
$msgishtml=0;
$arr_file = array();
$arr_mime = array();
$arr_name = array();
$message = "Bonjour,\n";
$message .= "\nLe prelevement de la facture ".$fac->ref." pour le compte de la societe ".$soc->nom." d'un montant de ".price($fac->total_ttc)." a ete rejete par la banque.";
$message .= "\n\n--\n".$this->user->getFullName($langs);
$mailfile = new CMailFile($subject,$sendto,$from,$message,
$arr_file,$arr_mime,$arr_name,
'', '', 0, $msgishtml,$this->user->email);
$result=$mailfile->sendfile();
if ($result)
{
dol_syslog("RejetPrelevement::_send_email email envoye");
}
else
{
dol_syslog("RejetPrelevement::_send_email Erreur envoi email");
}
}
else
{
dol_syslog("RejetPrelevement::_send_email Userid invalide");
}
}
/**
* \brief Recupere la liste des factures concernees
*/
function _get_list_factures()
{
global $conf;
$arr = array();
/*
* Renvoie toutes les factures associ�e � un pr�l�vement
*
*/
$sql = "SELECT f.rowid as facid";
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_facture as pf";
$sql.= ", ".MAIN_DB_PREFIX."facture as f";
$sql.= " WHERE pf.fk_prelevement_lignes = ".$this->id;
$sql.= " AND pf.fk_facture = f.rowid";
$sql.= " AND f.entity = ".$conf->entity;
$result=$this->db->query($sql);
if ($result)
{
$num = $this->db->num_rows();
if ($num)
{
$i = 0;
while ($i < $num)
{
$row = $this->db->fetch_row();
$arr[$i] = $row[0];
$i++;
}
}
$this->db->free();
} else
{
dol_syslog("RejetPrelevement Erreur");
}
return $arr;
}
/**
* \brief Recupere l'objet prelevement
* \param rowid id de la facture a recuperer
*/
function fetch($rowid)
{
$sql = "SELECT pr.date_rejet as dr, motif";
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_rejet as pr";
$sql.= " WHERE pr.fk_prelevement_lignes =".$rowid;
if ($this->db->query($sql))
{
if ($this->db->num_rows())
{
$obj = $this->db->fetch_object();
$this->id = $rowid;
$this->date_rejet = $this->db->jdate($obj->dr);
$this->motif = $this->motifs[$obj->motif];
$this->db->free();
return 0;
}
else
{
dol_syslog("RejetPrelevement::Fetch Erreur rowid=$rowid numrows=0");
return -1;
}
}
else
{
dol_syslog("RejetPrelevement::Fetch Erreur rowid=$rowid");
return -2;
}
}
}
?>