mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2026-01-07 17:42:53 +01:00
8d206fdfb0
upgrade were not yet received. So we prepare for GPL by uniformizing licence text keys to GPL-3+. Will move later to AGPL if all answers are positive.
1653 lines
52 KiB
PHP
1653 lines
52 KiB
PHP
<?php
|
|
/* Copyright (C) 2004-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2005-2012 Regis Houssin <regis.houssin@capnetworks.com>
|
|
* Copyright (C) 2010-2013 Juanjo Menent <jmenent@2byte.es>
|
|
* Copyright (C) 2010-2012 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
*
|
|
* 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 3 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 <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/compta/prelevement/class/bonprelevement.class.php
|
|
* \ingroup prelevement
|
|
* \brief Fichier de la classe des bons de prelevements
|
|
*/
|
|
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
|
|
|
|
|
|
/**
|
|
* Class to manage withdrawal receipts
|
|
*/
|
|
class BonPrelevement extends CommonObject
|
|
{
|
|
var $db;
|
|
|
|
var $date_echeance;
|
|
var $raison_sociale;
|
|
var $reference_remise;
|
|
var $emetteur_code_guichet;
|
|
var $emetteur_numero_compte;
|
|
var $emetteur_code_banque;
|
|
var $emetteur_number_key;
|
|
var $total;
|
|
var $_fetched;
|
|
var $statut; // 0-Wait, 1-Trans, 2-Done
|
|
var $labelstatut=array();
|
|
|
|
|
|
/**
|
|
* Constructor
|
|
*
|
|
* @param DoliDB $db Database handler
|
|
* @param string $filename Filename of withdraw receipt
|
|
*/
|
|
function __construct($db, $filename='')
|
|
{
|
|
global $conf,$langs;
|
|
|
|
$error = 0;
|
|
$this->db = $db;
|
|
|
|
$this->filename=$filename;
|
|
|
|
$this->date_echeance = time();
|
|
$this->raison_sociale = "";
|
|
$this->reference_remise = "";
|
|
|
|
$this->emetteur_code_guichet = "";
|
|
$this->emetteur_numero_compte = "";
|
|
$this->emetteur_code_banque = "";
|
|
$this->emetteur_number_key = "";
|
|
|
|
$this->factures = array();
|
|
|
|
$this->numero_national_emetteur = "";
|
|
|
|
$this->methodes_trans = array();
|
|
|
|
$this->methodes_trans[0] = "Internet";
|
|
|
|
$this->_fetched = 0;
|
|
|
|
|
|
$langs->load("withdrawals");
|
|
$this->labelstatut[0]=$langs->trans("StatusWaiting");
|
|
$this->labelstatut[1]=$langs->trans("StatusTrans");
|
|
$this->labelstatut[2]=$langs->trans("StatusCredited");
|
|
|
|
return 1;
|
|
}
|
|
|
|
/**
|
|
* Add facture to withdrawal
|
|
*
|
|
* @param int $facture_id id invoice to add
|
|
* @param int $client_id id invoice customer
|
|
* @param string $client_nom name of cliente
|
|
* @param int $amount amount of invoice
|
|
* @param string $code_banque code of bank withdrawal
|
|
* @param string $code_guichet code of bank's office
|
|
* @param string $number bank account number
|
|
* @param string $number_key number key of account number
|
|
* @return int >0 if OK, <0 if KO
|
|
*/
|
|
function AddFacture($facture_id, $client_id, $client_nom, $amount, $code_banque, $code_guichet, $number, $number_key)
|
|
{
|
|
$result = 0;
|
|
$line_id = 0;
|
|
|
|
$result = $this->addline($line_id, $client_id, $client_nom, $amount, $code_banque, $code_guichet, $number, $number_key);
|
|
|
|
if ($result == 0)
|
|
{
|
|
if ($line_id > 0)
|
|
{
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."prelevement_facture (";
|
|
$sql.= "fk_facture";
|
|
$sql.= ",fk_prelevement_lignes";
|
|
$sql.= ") VALUES (";
|
|
$sql.= $facture_id;
|
|
$sql.= ", ".$line_id;
|
|
$sql.= ")";
|
|
|
|
if ($this->db->query($sql))
|
|
{
|
|
$result = 0;
|
|
}
|
|
else
|
|
{
|
|
$result = -1;
|
|
dol_syslog(get_class($this)."::AddFacture Erreur $result");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$result = -2;
|
|
dol_syslog(get_class($this)."::AddFacture Erreur $result");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$result = -3;
|
|
dol_syslog(get_class($this)."::AddFacture Erreur $result");
|
|
}
|
|
|
|
return $result;
|
|
|
|
}
|
|
|
|
/**
|
|
* Add line to withdrawal
|
|
*
|
|
* @param int &$line_id id line to add
|
|
* @param int $client_id id invoice customer
|
|
* @param string $client_nom name of cliente
|
|
* @param int $amount amount of invoice
|
|
* @param string $code_banque code of bank withdrawal
|
|
* @param string $code_guichet code of bank's office
|
|
* @param string $number bank account number
|
|
* @param string $number_key number key of account number
|
|
* @return int >0 if OK, <0 if KO
|
|
*/
|
|
function addline(&$line_id, $client_id, $client_nom, $amount, $code_banque, $code_guichet, $number, $number_key)
|
|
{
|
|
$result = -1;
|
|
$concat = 0;
|
|
|
|
if ($concat == 1)
|
|
{
|
|
/*
|
|
* On aggrege les lignes
|
|
*/
|
|
$sql = "SELECT rowid";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_lignes";
|
|
$sql.= " WHERE fk_prelevement_bons = ".$this->id;
|
|
$sql.= " AND fk_soc =".$client_id;
|
|
$sql.= " AND code_banque ='".$code_banque."'";
|
|
$sql.= " AND code_guichet ='".$code_guichet."'";
|
|
$sql.= " AND number ='".$number."'";
|
|
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
}
|
|
else
|
|
{
|
|
$result = -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/*
|
|
* Pas de d'agregation
|
|
*/
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."prelevement_lignes (";
|
|
$sql.= "fk_prelevement_bons";
|
|
$sql.= ", fk_soc";
|
|
$sql.= ", client_nom";
|
|
$sql.= ", amount";
|
|
$sql.= ", code_banque";
|
|
$sql.= ", code_guichet";
|
|
$sql.= ", number";
|
|
$sql.= ", cle_rib";
|
|
$sql.= ") VALUES (";
|
|
$sql.= $this->id;
|
|
$sql.= ", ".$client_id;
|
|
$sql.= ", '".$this->db->escape($client_nom)."'";
|
|
$sql.= ", '".price2num($amount)."'";
|
|
$sql.= ", '".$code_banque."'";
|
|
$sql.= ", '".$code_guichet."'";
|
|
$sql.= ", '".$number."'";
|
|
$sql.= ", '".$number_key."'";
|
|
$sql.= ")";
|
|
|
|
if ($this->db->query($sql))
|
|
{
|
|
$line_id = $this->db->last_insert_id(MAIN_DB_PREFIX."prelevement_lignes");
|
|
$result = 0;
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::addline Error -2");
|
|
$result = -2;
|
|
}
|
|
|
|
}
|
|
|
|
return $result;
|
|
}
|
|
|
|
/**
|
|
* Read errors
|
|
*
|
|
* @param int $error id of error
|
|
* @return array Array of errors
|
|
*/
|
|
function ReadError($error)
|
|
{
|
|
$errors = array();
|
|
|
|
$errors[1027] = "Date invalide";
|
|
|
|
return $errors[abs($error)];
|
|
}
|
|
|
|
/**
|
|
* Get object and lines from database
|
|
*
|
|
* @param int $rowid id of object to load
|
|
* @return int >0 if OK, <0 if KO
|
|
*/
|
|
function fetch($rowid)
|
|
{
|
|
global $conf;
|
|
|
|
$sql = "SELECT p.rowid, p.ref, p.amount, p.note";
|
|
$sql.= ", p.datec as dc";
|
|
$sql.= ", p.date_trans as date_trans";
|
|
$sql.= ", p.method_trans, p.fk_user_trans";
|
|
$sql.= ", p.date_credit as date_credit";
|
|
$sql.= ", p.fk_user_credit";
|
|
$sql.= ", p.statut";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_bons as p";
|
|
$sql.= " WHERE p.rowid = ".$rowid;
|
|
$sql.= " AND p.entity = ".$conf->entity;
|
|
|
|
dol_syslog(get_class($this)."::fetch sql=".$sql, LOG_DEBUG);
|
|
$result=$this->db->query($sql);
|
|
if ($result)
|
|
{
|
|
if ($this->db->num_rows($result))
|
|
{
|
|
$obj = $this->db->fetch_object($result);
|
|
|
|
$this->id = $obj->rowid;
|
|
$this->ref = $obj->ref;
|
|
$this->amount = $obj->amount;
|
|
$this->note = $obj->note;
|
|
$this->datec = $this->db->jdate($obj->dc);
|
|
|
|
$this->date_trans = $this->db->jdate($obj->date_trans);
|
|
$this->method_trans = $obj->method_trans;
|
|
$this->user_trans = $obj->fk_user_trans;
|
|
|
|
$this->date_credit = $this->db->jdate($obj->date_credit);
|
|
$this->user_credit = $obj->fk_user_credit;
|
|
|
|
$this->statut = $obj->statut;
|
|
|
|
$this->_fetched = 1;
|
|
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::Fetch Erreur aucune ligne retournee");
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::Fetch Erreur sql=".$sql, LOG_ERR);
|
|
return -2;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Set credite and set status of linked invoices
|
|
*
|
|
* @return int <0 if KO, >0 if OK
|
|
*/
|
|
function set_credite()
|
|
{
|
|
global $user,$conf;
|
|
|
|
$error = 0;
|
|
|
|
if ($this->db->begin())
|
|
{
|
|
$sql = " UPDATE ".MAIN_DB_PREFIX."prelevement_bons";
|
|
$sql.= " SET statut = 1";
|
|
$sql.= " WHERE rowid = ".$this->id;
|
|
$sql.= " AND entity = ".$conf->entity;
|
|
|
|
$result=$this->db->query($sql);
|
|
if (! $result)
|
|
{
|
|
dol_syslog(get_class($this)."::set_credite Erreur 1");
|
|
$error++;
|
|
}
|
|
|
|
if ($error == 0)
|
|
{
|
|
$facs = array();
|
|
$facs = $this->getListInvoices();
|
|
|
|
$num=count($facs);
|
|
for ($i = 0; $i < $num; $i++)
|
|
{
|
|
/* Tag invoice as payed */
|
|
dol_syslog(get_class($this)."::set_credite set_paid fac ".$facs[$i]);
|
|
$fac = new Facture($this->db);
|
|
$fac->fetch($facs[$i]);
|
|
$result = $fac->set_paid($user);
|
|
}
|
|
}
|
|
|
|
if ($error == 0)
|
|
{
|
|
|
|
$sql = " UPDATE ".MAIN_DB_PREFIX."prelevement_lignes";
|
|
$sql.= " SET statut = 2";
|
|
$sql.= " WHERE fk_prelevement_bons = ".$this->id;
|
|
|
|
if (! $this->db->query($sql))
|
|
{
|
|
dol_syslog(get_class($this)."::set_credite Erreur 1");
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Fin de la procedure
|
|
*/
|
|
if ($error == 0)
|
|
{
|
|
$this->db->commit();
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
dol_syslog(get_class($this)."::set_credite ROLLBACK ");
|
|
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::set_credite Ouverture transaction SQL impossible ");
|
|
return -2;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Set withdrawal to credited status
|
|
*
|
|
* @param User $user id of user
|
|
* @param timestamp $date date of action
|
|
* @return int >0 if OK, <0 if KO
|
|
*/
|
|
function set_infocredit($user, $date)
|
|
{
|
|
global $conf,$langs;
|
|
|
|
$error = 0;
|
|
|
|
if ($this->_fetched == 1)
|
|
{
|
|
if ($date >= $this->date_trans)
|
|
{
|
|
if ($this->db->begin())
|
|
{
|
|
$sql = " UPDATE ".MAIN_DB_PREFIX."prelevement_bons ";
|
|
$sql.= " SET fk_user_credit = ".$user->id;
|
|
$sql.= ", statut = 2";
|
|
$sql.= ", date_credit = '".$this->db->idate($date)."'";
|
|
$sql.= " WHERE rowid=".$this->id;
|
|
$sql.= " AND entity = ".$conf->entity;
|
|
$sql.= " AND statut = 1";
|
|
|
|
if ($this->db->query($sql))
|
|
{
|
|
|
|
$langs->load('withdrawals');
|
|
$subject = $langs->trans("InfoCreditSubject", $this->ref);
|
|
$message = $langs->trans("InfoCreditMessage", $this->ref, dol_print_date($date,'dayhour'));
|
|
|
|
//Add payment of withdrawal into bank
|
|
$bankaccount = $conf->global->PRELEVEMENT_ID_BANKACCOUNT;
|
|
$facs = array();
|
|
$amounts = array();
|
|
|
|
$facs = $this->getListInvoices();
|
|
|
|
$num=count($facs);
|
|
for ($i = 0; $i < $num; $i++)
|
|
{
|
|
$fac = new Facture($this->db);
|
|
$fac->fetch($facs[$i]);
|
|
$amounts[$fac->id] = $fac->total_ttc;
|
|
$result = $fac->set_paid($user);
|
|
}
|
|
$paiement = new Paiement($this->db);
|
|
$paiement->datepaye = $date ;
|
|
$paiement->amounts = $amounts;
|
|
$paiement->paiementid = 3; //
|
|
$paiement->num_paiement = $this->ref ;
|
|
|
|
$paiement_id = $paiement->create($user);
|
|
if ($paiement_id < 0)
|
|
{
|
|
dol_syslog(get_class($this)."::set_credite AddPayment Error");
|
|
$error++;
|
|
}
|
|
else
|
|
{
|
|
$result=$paiement->addPaymentToBank($user,'payment','(WithdrawalPayment)',$bankaccount,'','');
|
|
if ($result < 0)
|
|
{
|
|
dol_syslog(get_class($this)."::set_credite AddPaymentToBank Error");
|
|
$error++;
|
|
}
|
|
}
|
|
// Update prelevement line
|
|
// TODO: Translate to ligneprelevement.class.php
|
|
$sql = " UPDATE ".MAIN_DB_PREFIX."prelevement_lignes";
|
|
$sql.= " SET statut = 2";
|
|
$sql.= " WHERE fk_prelevement_bons = ".$this->id;
|
|
|
|
if (! $this->db->query($sql))
|
|
{
|
|
dol_syslog(get_class($this)."::set_credite Update lines Error");
|
|
$error++;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::set_infocredit Update Bons Error");
|
|
$error++;
|
|
}
|
|
|
|
/*
|
|
* End of procedure
|
|
*/
|
|
if ($error == 0)
|
|
{
|
|
$this->db->commit();
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
dol_syslog("bon-prelevment::set_infocredit ROLLBACK ");
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::set_infocredit 1025 Open SQL transaction impossible ");
|
|
return -1025;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("bon-prelevment::set_infocredit 1027 Date de credit < Date de trans ");
|
|
return -1027;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
return -1026;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Set withdrawal to transmited status
|
|
*
|
|
* @param User $user id of user
|
|
* @param timestamp $date date of action
|
|
* @param string $method method of transmision to bank
|
|
* @return int >0 if OK, <0 if KO
|
|
*/
|
|
function set_infotrans($user, $date, $method)
|
|
{
|
|
global $conf,$langs;
|
|
|
|
$error = 0;
|
|
|
|
dol_syslog(get_class($this)."::set_infotrans Start",LOG_INFO);
|
|
if ($this->db->begin())
|
|
{
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."prelevement_bons ";
|
|
$sql.= " SET fk_user_trans = ".$user->id;
|
|
$sql.= " , date_trans = '".$this->db->idate($date)."'";
|
|
$sql.= " , method_trans = ".$method;
|
|
$sql.= " , statut = 1";
|
|
$sql.= " WHERE rowid = ".$this->id;
|
|
$sql.= " AND entity = ".$conf->entity;
|
|
$sql.= " AND statut = 0";
|
|
|
|
if ($this->db->query($sql))
|
|
{
|
|
$this->method_trans = $method;
|
|
$langs->load('withdrawals');
|
|
$subject = $langs->trans("InfoTransSubject", $this->ref);
|
|
$message = $langs->trans("InfoTransMessage", $this->ref, $user->prenom, $user->nom);
|
|
$message .=$langs->trans("InfoTransData", price($this->amount), $this->methodes_trans[$this->method_trans], dol_print_date($date,'day'));
|
|
|
|
// TODO Call trigger to create a notification using notification module
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::set_infotrans Erreur 1", LOG_ERR);
|
|
dol_syslog($this->db->error());
|
|
$error++;
|
|
}
|
|
|
|
if ($error == 0)
|
|
{
|
|
$this->db->commit();
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
dol_syslog(get_class($this)."::set_infotrans ROLLBACK", LOG_ERR);
|
|
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
|
|
dol_syslog(get_class($this)."::set_infotrans Ouverture transaction SQL impossible", LOG_CRIT);
|
|
return -2;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Get invoice list
|
|
*
|
|
* @return array id of invoices
|
|
*/
|
|
private function getListInvoices()
|
|
{
|
|
global $conf;
|
|
|
|
$arr = array();
|
|
|
|
/*
|
|
* Renvoie toutes les factures presente
|
|
* dans un bon de prelevement
|
|
*/
|
|
$sql = "SELECT fk_facture";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_bons as p";
|
|
$sql.= " , ".MAIN_DB_PREFIX."prelevement_lignes as pl";
|
|
$sql.= " , ".MAIN_DB_PREFIX."prelevement_facture as pf";
|
|
$sql.= " WHERE pf.fk_prelevement_lignes = pl.rowid";
|
|
$sql.= " AND pl.fk_prelevement_bons = p.rowid";
|
|
$sql.= " AND p.rowid = ".$this->id;
|
|
$sql.= " AND p.entity = ".$conf->entity;
|
|
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
if ($num)
|
|
{
|
|
$i = 0;
|
|
while ($i < $num)
|
|
{
|
|
$row = $this->db->fetch_row($resql);
|
|
$arr[$i] = $row[0];
|
|
$i++;
|
|
}
|
|
}
|
|
$this->db->free($resql);
|
|
}
|
|
else
|
|
{
|
|
dol_syslog(get_class($this)."::getListInvoices Erreur");
|
|
}
|
|
|
|
return $arr;
|
|
}
|
|
|
|
/**
|
|
* Returns amount of withdrawal
|
|
*
|
|
* @return double Total amount
|
|
*/
|
|
function SommeAPrelever()
|
|
{
|
|
global $conf;
|
|
|
|
$sql = "SELECT sum(f.total_ttc)";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."facture as f,";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_facture_demande as pfd";
|
|
//$sql.= " ,".MAIN_DB_PREFIX."c_paiement as cp";
|
|
$sql.= " WHERE f.fk_statut = 1";
|
|
$sql.= " AND f.entity = ".$conf->entity;
|
|
$sql.= " AND f.rowid = pfd.fk_facture";
|
|
$sql.= " AND f.paye = 0";
|
|
$sql.= " AND pfd.traite = 0";
|
|
$sql.= " AND f.total_ttc > 0";
|
|
|
|
$resql = $this->db->query($sql);
|
|
if ( $resql )
|
|
{
|
|
$row = $this->db->fetch_row($resql);
|
|
|
|
return $row[0];
|
|
|
|
$this->db->free($resql);
|
|
}
|
|
else
|
|
{
|
|
$error = 1;
|
|
dol_syslog(get_class($this)."::SommeAPrelever Erreur -1");
|
|
dol_syslog($this->db->error());
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Get number of invoices to withdrawal
|
|
*
|
|
* @param int $banque bank
|
|
* @param int $agence agence
|
|
* @return int <O if KO, number of invoices if OK
|
|
*/
|
|
function NbFactureAPrelever($banque=0,$agence=0)
|
|
{
|
|
global $conf;
|
|
|
|
$sql = "SELECT count(f.rowid)";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."facture as f";
|
|
$sql.= ", ".MAIN_DB_PREFIX."prelevement_facture_demande as pfd";
|
|
if ($banque == 1 || $agence == 1) $sql.=", ".MAIN_DB_PREFIX."societe_rib as sr";
|
|
$sql.= " WHERE f.fk_statut = 1";
|
|
$sql.= " AND f.entity = ".$conf->entity;
|
|
$sql.= " AND f.rowid = pfd.fk_facture";
|
|
$sql.= " AND f.paye = 0";
|
|
$sql.= " AND pfd.traite = 0";
|
|
$sql.= " AND f.total_ttc > 0";
|
|
if ($banque == 1 || $agence == 1) $sql.= " AND f.fk_soc = sr.rowid";
|
|
if ($banque == 1) $sql.= " AND sr.code_banque = '".$conf->global->PRELEVEMENT_CODE_BANQUE."'";
|
|
if ($agence == 1) $sql.= " AND sr.code_guichet = '".$conf->global->PRELEVEMENT_CODE_GUICHET."'";
|
|
|
|
$resql = $this->db->query($sql);
|
|
|
|
if ( $resql )
|
|
{
|
|
$row = $this->db->fetch_row($resql);
|
|
|
|
$this->db->free($resql);
|
|
|
|
return $row[0];
|
|
}
|
|
else
|
|
{
|
|
$this->error=get_class($this)."::SommeAPrelever Erreur -1 sql=".$this->db->error();
|
|
dol_syslog($this->error, LOG_ERR);
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Create a withdraw
|
|
*
|
|
* @param int $banque code of bank
|
|
* @param int $agence code of bank office (guichet)
|
|
* @param string $mode real=do action, simu=test only
|
|
* @return int <0 if KO, nbre of invoice withdrawed if OK
|
|
*/
|
|
function Create($banque=0, $agence=0, $mode='real')
|
|
{
|
|
global $conf,$langs;
|
|
|
|
dol_syslog(get_class($this)."::Create banque=$banque agence=$agence");
|
|
|
|
require_once (DOL_DOCUMENT_ROOT."/compta/facture/class/facture.class.php");
|
|
require_once (DOL_DOCUMENT_ROOT."/societe/class/societe.class.php");
|
|
|
|
$error = 0;
|
|
|
|
$datetimeprev = time();
|
|
|
|
$month = strftime("%m", $datetimeprev);
|
|
$year = strftime("%Y", $datetimeprev);
|
|
|
|
$puser = new User($this->db, $conf->global->PRELEVEMENT_USER);
|
|
|
|
/*
|
|
* Read invoices
|
|
*/
|
|
$factures = array();
|
|
$factures_prev = array();
|
|
$factures_result = array();
|
|
|
|
if (! $error)
|
|
{
|
|
$sql = "SELECT f.rowid, pfd.rowid as pfdrowid, f.fk_soc";
|
|
$sql.= ", pfd.code_banque, pfd.code_guichet, pfd.number, pfd.cle_rib";
|
|
$sql.= ", pfd.amount";
|
|
$sql.= ", s.nom";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."facture as f";
|
|
$sql.= ", ".MAIN_DB_PREFIX."societe as s";
|
|
$sql.= ", ".MAIN_DB_PREFIX."prelevement_facture_demande as pfd";
|
|
if ($banque == 1 || $agence ==1) $sql.= ", ".MAIN_DB_PREFIX."societe_rib as sr";
|
|
$sql.= " WHERE f.rowid = pfd.fk_facture";
|
|
$sql.= " AND f.entity = ".$conf->entity;
|
|
$sql.= " AND s.rowid = f.fk_soc";
|
|
if ($banque == 1 || $agence ==1) $sql.= " AND s.rowid = sr.fk_soc";
|
|
$sql.= " AND f.fk_statut = 1";
|
|
$sql.= " AND f.paye = 0";
|
|
$sql.= " AND pfd.traite = 0";
|
|
$sql.= " AND f.total_ttc > 0";
|
|
if ($banque == 1) $sql.= " AND sr.code_banque = '".$conf->global->PRELEVEMENT_CODE_BANQUE."'";
|
|
if ($agence == 1) $sql.= " AND sr.code_guichet = '".$conf->global->PRELEVEMENT_CODE_GUICHET."'";
|
|
|
|
dol_syslog(get_class($this)."::Create sql=".$sql, LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
$i = 0;
|
|
|
|
while ($i < $num)
|
|
{
|
|
$row = $this->db->fetch_row($resql);
|
|
$factures[$i] = $row;
|
|
$i++;
|
|
}
|
|
$this->db->free($resql);
|
|
dol_syslog($i." invoices to withdraw");
|
|
}
|
|
else
|
|
{
|
|
$error = 1;
|
|
dol_syslog("Erreur -1");
|
|
dol_syslog($this->db->error());
|
|
}
|
|
}
|
|
|
|
if (! $error)
|
|
{
|
|
// Check RIB
|
|
$i = 0;
|
|
dol_syslog("Start RIB check");
|
|
|
|
if (count($factures) > 0)
|
|
{
|
|
foreach ($factures as $fac)
|
|
{
|
|
$fact = new Facture($this->db);
|
|
|
|
if ($fact->fetch($fac[0]) >= 0)
|
|
{
|
|
$soc = new Societe($this->db);
|
|
if ($soc->fetch($fact->socid) >= 0)
|
|
{
|
|
if ($soc->verif_rib() == 1)
|
|
{
|
|
$factures_prev[$i] = $fac;
|
|
/* second tableau necessaire pour BonPrelevement */
|
|
$factures_prev_id[$i] = $fac[0];
|
|
$i++;
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("Error on third party bank number RIB/IBAN $fact->socid $soc->nom", LOG_ERR);
|
|
$facture_errors[$fac[0]]="Error on third party bank number RIB/IBAN $fact->socid $soc->nom";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("Failed to read company", LOG_ERR);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("Failed to read invoice", LOG_ERR);
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("No invoice to process");
|
|
}
|
|
}
|
|
|
|
$ok=0;
|
|
|
|
// Withdraw invoices in factures_prev array
|
|
$out=count($factures_prev)." invoices will be withdrawn.";
|
|
//print $out."\n";
|
|
dol_syslog($out);
|
|
|
|
|
|
if (count($factures_prev) > 0)
|
|
{
|
|
if ($mode=='real')
|
|
{
|
|
$ok=1;
|
|
}
|
|
else
|
|
{
|
|
print $langs->trans("ModeWarning"); //"Option for real mode was not set, we stop after this simulation\n";
|
|
}
|
|
}
|
|
|
|
|
|
if ($ok)
|
|
{
|
|
/*
|
|
* We are in real mode.
|
|
* We create withdraw receipt and build withdraw into disk
|
|
*/
|
|
$this->db->begin();
|
|
|
|
$now=dol_now();
|
|
|
|
/*
|
|
* Traitements
|
|
*/
|
|
if (!$error)
|
|
{
|
|
$ref = "T".substr($year,-2).$month;
|
|
|
|
$sql = "SELECT count(*)";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."prelevement_bons";
|
|
$sql.= " WHERE ref LIKE '".$ref."%'";
|
|
$sql.= " AND entity = ".$conf->entity;
|
|
|
|
dol_syslog(get_class($this)."::Create sql=".$sql, LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
|
|
if ($resql)
|
|
{
|
|
$row = $this->db->fetch_row($resql);
|
|
}
|
|
else
|
|
{
|
|
$error++;
|
|
dol_syslog("Erreur recherche reference");
|
|
}
|
|
|
|
$ref = $ref . substr("00".($row[0]+1), -2);
|
|
|
|
$filebonprev = $ref;
|
|
|
|
// Create withdraw receipt in database
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."prelevement_bons (";
|
|
$sql.= " ref, entity, datec";
|
|
$sql.= ") VALUES (";
|
|
$sql.= "'".$ref."'";
|
|
$sql.= ", ".$conf->entity;
|
|
$sql.= ", '".$this->db->idate($now)."'";
|
|
$sql.= ")";
|
|
|
|
dol_syslog(get_class($this)."::Create sql=".$sql, LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
|
|
if ($resql)
|
|
{
|
|
$prev_id = $this->db->last_insert_id(MAIN_DB_PREFIX."prelevement_bons");
|
|
|
|
$dir=$conf->prelevement->dir_output.'/receipts';
|
|
$file=$filebonprev;
|
|
if (! is_dir($dir)) dol_mkdir($dir);
|
|
|
|
$bonprev = new BonPrelevement($this->db, $dir."/".$file);
|
|
$bonprev->id = $prev_id;
|
|
}
|
|
else
|
|
{
|
|
$error++;
|
|
dol_syslog("Erreur creation du bon de prelevement");
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Create withdrawal receipt
|
|
*/
|
|
if (!$error)
|
|
{
|
|
if (count($factures_prev) > 0)
|
|
{
|
|
foreach ($factures_prev as $fac)
|
|
{
|
|
// Fetch invoice
|
|
$fact = new Facture($this->db);
|
|
$fact->fetch($fac[0]);
|
|
/*
|
|
* Add standing order
|
|
*
|
|
*
|
|
* $fac[3] : banque
|
|
* $fac[4] : guichet
|
|
* $fac[5] : number
|
|
* $fac[6] : cle rib
|
|
* $fac[7] : amount
|
|
* $fac[8] : client nom
|
|
* $fac[2] : client id
|
|
*/
|
|
$ri = $bonprev->AddFacture($fac[0], $fac[2], $fac[8], $fac[7], $fac[3], $fac[4], $fac[5], $fac[6]);
|
|
if ($ri <> 0)
|
|
{
|
|
$error++;
|
|
}
|
|
|
|
/*
|
|
* Update orders
|
|
*
|
|
*/
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."prelevement_facture_demande";
|
|
$sql.= " SET traite = 1";
|
|
$sql.= ", date_traite = ".$this->db->idate($now);
|
|
$sql.= ", fk_prelevement_bons = ".$prev_id;
|
|
$sql.= " WHERE rowid = ".$fac[1];
|
|
|
|
dol_syslog(get_class($this)."::Create sql=".$sql, LOG_DEBUG);
|
|
$resql=$this->db->query($sql);
|
|
if (! $resql)
|
|
{
|
|
$error++;
|
|
dol_syslog("Erreur mise a jour des demandes");
|
|
dol_syslog($this->db->error());
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (!$error)
|
|
{
|
|
/*
|
|
* Withdraw receipt
|
|
*/
|
|
|
|
dol_syslog("Debut prelevement - Nombre de factures ".count($factures_prev));
|
|
|
|
if (count($factures_prev) > 0)
|
|
{
|
|
$bonprev->date_echeance = $datetimeprev;
|
|
$bonprev->reference_remise = $ref;
|
|
|
|
$bonprev->numero_national_emetteur = $conf->global->PRELEVEMENT_NUMERO_NATIONAL_EMETTEUR;
|
|
$bonprev->raison_sociale = $conf->global->PRELEVEMENT_RAISON_SOCIALE;
|
|
|
|
$bonprev->emetteur_code_banque = $conf->global->PRELEVEMENT_CODE_BANQUE;
|
|
$bonprev->emetteur_code_guichet = $conf->global->PRELEVEMENT_CODE_GUICHET;
|
|
$bonprev->emetteur_numero_compte = $conf->global->PRELEVEMENT_NUMERO_COMPTE;
|
|
$bonprev->emetteur_number_key = $conf->global->PRELEVEMENT_NUMBER_KEY;
|
|
|
|
$bonprev->factures = $factures_prev_id;
|
|
|
|
//Build file
|
|
$bonprev->generate();
|
|
}
|
|
dol_syslog($filebonprev);
|
|
dol_syslog("Fin prelevement");
|
|
}
|
|
|
|
/*
|
|
* Update total
|
|
*/
|
|
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."prelevement_bons";
|
|
$sql.= " SET amount = ".price2num($bonprev->total);
|
|
$sql.= " WHERE rowid = ".$prev_id;
|
|
$sql.= " AND entity = ".$conf->entity;
|
|
|
|
dol_syslog(get_class($this)."::Create sql=".$sql, LOG_DEBUG);
|
|
$resql=$this->db->query($sql);
|
|
if (! $resql)
|
|
{
|
|
$error++;
|
|
dol_syslog("Erreur mise a jour du total - $sql");
|
|
}
|
|
|
|
/*
|
|
* Rollback or Commit
|
|
*/
|
|
if (!$error)
|
|
{
|
|
$this->db->commit();
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
dol_syslog("Error",LOG_ERR);
|
|
}
|
|
|
|
return count($factures_prev);
|
|
}
|
|
else
|
|
{
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Get object and lines from database
|
|
*
|
|
* @return int >0 if OK, <0 if KO
|
|
*/
|
|
function delete()
|
|
{
|
|
$this->db->begin();
|
|
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."prelevement_facture WHERE fk_prelevement_lignes IN (SELECT rowid FROM ".MAIN_DB_PREFIX."prelevement_lignes WHERE fk_prelevement_bons = '".$this->id."')";
|
|
$resql1=$this->db->query($sql);
|
|
if (! $resql1) dol_print_error($this->db);
|
|
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."prelevement_lignes WHERE fk_prelevement_bons = '".$this->id."'";
|
|
$resql2=$this->db->query($sql);
|
|
if (! $resql2) dol_print_error($this->db);
|
|
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."prelevement_bons WHERE rowid = '".$this->id."'";
|
|
$resql3=$this->db->query($sql);
|
|
if (! $resql3) dol_print_error($this->db);
|
|
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."prelevement_facture_demande SET fk_prelevement_bons = NULL, traite = 0 WHERE fk_prelevement_bons = '".$this->id."'";
|
|
$resql4=$this->db->query($sql);
|
|
if (! $resql4) dol_print_error($this->db);
|
|
|
|
if ($resql1 && $resql2 && $resql3)
|
|
{
|
|
$this->db->commit();
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Returns clickable name (with picto)
|
|
*
|
|
* @param int $withpicto link with picto
|
|
* @param string $option link target
|
|
* @return string URL of target
|
|
*/
|
|
function getNomUrl($withpicto=0,$option='')
|
|
{
|
|
global $langs;
|
|
|
|
$result='';
|
|
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/compta/prelevement/fiche.php?id='.$this->id.'">';
|
|
$lienfin='</a>';
|
|
|
|
if ($option == 'xxx')
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/compta/prelevement/fiche.php?id='.$this->id.'">';
|
|
$lienfin='</a>';
|
|
}
|
|
|
|
if ($withpicto) $result.=($lien.img_object($langs->trans("ShowWithdraw"),'payment').$lienfin.' ');
|
|
$result.=$lien.$this->ref.$lienfin;
|
|
return $result;
|
|
}
|
|
|
|
|
|
/**
|
|
* Delete a notification def by id
|
|
*
|
|
* @param int $rowid id of notification
|
|
* @return int 0 if OK, <0 if KO
|
|
*/
|
|
function DeleteNotificationById($rowid)
|
|
{
|
|
$result = 0;
|
|
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."notify_def";
|
|
$sql.= " WHERE rowid = '".$rowid."'";
|
|
|
|
if ($this->db->query($sql))
|
|
{
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Delete a notification
|
|
*
|
|
* @param User $user notification user
|
|
* @param string $action notification action
|
|
* @return int >0 if OK, <0 if KO
|
|
*/
|
|
function DeleteNotification($user, $action)
|
|
{
|
|
$result = 0;
|
|
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."notify_def";
|
|
$sql .= " WHERE fk_user=".$user." AND fk_action='".$action."'";
|
|
|
|
if ($this->db->query($sql))
|
|
{
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Add a notification
|
|
*
|
|
* @param DoliDB $db database handler
|
|
* @param User $user notification user
|
|
* @param string $action notification action
|
|
* @return int 0 if OK, <0 if KO
|
|
*/
|
|
function AddNotification($db, $user, $action)
|
|
{
|
|
$result = 0;
|
|
|
|
if ($this->DeleteNotification($user, $action) == 0)
|
|
{
|
|
$now=dol_now();
|
|
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."notify_def (datec,fk_user, fk_soc, fk_contact, fk_action)";
|
|
$sql .= " VALUES (".$db->idate($now).",".$user.", 'NULL', 'NULL', '".$action."')";
|
|
|
|
dol_syslog("adnotiff: ".$sql);
|
|
if ($this->db->query($sql))
|
|
{
|
|
$result = 0;
|
|
}
|
|
else
|
|
{
|
|
$result = -1;
|
|
dol_syslog(get_class($this)."::AddNotification Error $result");
|
|
}
|
|
}
|
|
|
|
return $result;
|
|
}
|
|
|
|
|
|
/**
|
|
* Generate a withdrawal file. Generation Formats:
|
|
* France: CFONB
|
|
* Spain: AEB19 (if external module EsAEB is enabled)
|
|
* Others: Warning message
|
|
* File is generated with name this->filename
|
|
*
|
|
* @return int 0 if OK, <0 if KO
|
|
*/
|
|
//TODO: Optimize code to read lines in a single function
|
|
function Generate()
|
|
{
|
|
global $conf,$langs,$mysoc;
|
|
|
|
$result = 0;
|
|
|
|
dol_syslog(get_class($this)."::Generate build file ".$this->filename);
|
|
|
|
$this->file = fopen($this->filename,"w");
|
|
|
|
// TODO Move code for es and fr into an external module file with selection into setup of prelevement module
|
|
|
|
// Build file for Spain
|
|
if ($mysoc->country_code=='ES')
|
|
{
|
|
if (! empty($conf->esaeb->enabled))
|
|
{
|
|
dol_include_once('/esaeb/class/esaeb19.class.php');
|
|
|
|
//Head
|
|
$esaeb19 = new AEB19DocWritter;
|
|
$esaeb19->configuraPresentador($this->numero_national_emetteur,$conf->global->ESAEB_SUFIX_PRESENTADOR,$this->raison_sociale,$this->emetteur_code_banque,$this->emetteur_code_guichet);
|
|
$idOrdenante = $esaeb19->agregaOrdenante($this->numero_national_emetteur,$conf->global->ESAEB_SUFIX_ORDENANTE,$this->raison_sociale,$this->emetteur_code_banque,$this->emetteur_code_guichet, $this->emetteur_number_key, $this->emetteur_numero_compte);
|
|
$this->total = 0;
|
|
$sql = "SELECT pl.rowid, pl.fk_soc, pl.client_nom, pl.code_banque, pl.code_guichet, pl.cle_rib, pl.number, pl.amount,";
|
|
$sql.= " f.facnumber, pf.fk_facture";
|
|
$sql.= " FROM";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_lignes as pl,";
|
|
$sql.= " ".MAIN_DB_PREFIX."facture as f,";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_facture as pf";
|
|
$sql.= " WHERE pl.fk_prelevement_bons = ".$this->id;
|
|
$sql.= " AND pl.rowid = pf.fk_prelevement_lignes";
|
|
$sql.= " AND pf.fk_facture = f.rowid";
|
|
|
|
//Lines
|
|
$i = 0;
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
$client = new Societe($this->db);
|
|
|
|
while ($i < $num)
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
$client->fetch($obj->fk_soc);
|
|
|
|
$esaeb19->agregaRecibo(
|
|
$idOrdenante,
|
|
$client->idprof1,
|
|
$obj->client_nom,
|
|
$obj->code_banque,
|
|
$obj->code_guichet,
|
|
$obj->cle_rib,
|
|
$obj->number,
|
|
$obj->amount,
|
|
"Fra.".$obj->facnumber." ".$obj->amount
|
|
);
|
|
|
|
$this->total = $this->total + $obj->amount;
|
|
|
|
$i++;
|
|
}
|
|
}
|
|
|
|
else
|
|
{
|
|
$result = -2;
|
|
}
|
|
|
|
fputs($this->file, $esaeb19->generaRemesa());
|
|
}
|
|
else
|
|
{
|
|
$this->total = 0;
|
|
$sql = "SELECT pl.amount";
|
|
$sql.= " FROM";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_lignes as pl,";
|
|
$sql.= " ".MAIN_DB_PREFIX."facture as f,";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_facture as pf";
|
|
$sql.= " WHERE pl.fk_prelevement_bons = ".$this->id;
|
|
$sql.= " AND pl.rowid = pf.fk_prelevement_lignes";
|
|
$sql.= " AND pf.fk_facture = f.rowid";
|
|
|
|
//Lines
|
|
$i = 0;
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
while ($i < $num)
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
$this->total = $this->total + $obj->amount;
|
|
$i++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$result = -2;
|
|
}
|
|
$langs->load('withdrawals');
|
|
fputs($this->file, $langs->trans('WithdrawalFileNotCapable'));
|
|
}
|
|
}
|
|
// Build file for France
|
|
elseif ($mysoc->country_code=='FR')
|
|
{
|
|
/*
|
|
* En-tete Emetteur
|
|
*/
|
|
$this->EnregEmetteur();
|
|
|
|
/*
|
|
* Lines
|
|
*/
|
|
$this->total = 0;
|
|
|
|
$sql = "SELECT pl.rowid, pl.client_nom, pl.code_banque, pl.code_guichet, pl.number, pl.amount,";
|
|
$sql.= " f.facnumber, pf.fk_facture";
|
|
$sql.= " FROM";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_lignes as pl,";
|
|
$sql.= " ".MAIN_DB_PREFIX."facture as f,";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_facture as pf";
|
|
$sql.= " WHERE pl.fk_prelevement_bons = ".$this->id;
|
|
$sql.= " AND pl.rowid = pf.fk_prelevement_lignes";
|
|
$sql.= " AND pf.fk_facture = f.rowid";
|
|
|
|
$i = 0;
|
|
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
while ($i < $num)
|
|
{
|
|
$row = $this->db->fetch_row($resql);
|
|
|
|
$this->EnregDestinataire($row[0],$row[1],$row[2],$row[3],$row[4],$row[5],$row[6],$row[7]);
|
|
|
|
$this->total = $this->total + $row[5];
|
|
|
|
$i++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$result = -2;
|
|
}
|
|
|
|
/*
|
|
* Pied de page total
|
|
*/
|
|
|
|
$this->EnregTotal($this->total);
|
|
}
|
|
// Build file for Other Countries with unknow format
|
|
else
|
|
{
|
|
$this->total = 0;
|
|
$sql = "SELECT pl.amount";
|
|
$sql.= " FROM";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_lignes as pl,";
|
|
$sql.= " ".MAIN_DB_PREFIX."facture as f,";
|
|
$sql.= " ".MAIN_DB_PREFIX."prelevement_facture as pf";
|
|
$sql.= " WHERE pl.fk_prelevement_bons = ".$this->id;
|
|
$sql.= " AND pl.rowid = pf.fk_prelevement_lignes";
|
|
$sql.= " AND pf.fk_facture = f.rowid";
|
|
|
|
//Lines
|
|
$i = 0;
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
while ($i < $num)
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
$this->total = $this->total + $obj->amount;
|
|
$i++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$result = -2;
|
|
}
|
|
$langs->load('withdrawals');
|
|
fputs($this->file, $langs->trans('WithdrawalFileNotCapable'));
|
|
}
|
|
|
|
fclose($this->file);
|
|
if (! empty($conf->global->MAIN_UMASK))
|
|
@chmod($this->file, octdec($conf->global->MAIN_UMASK));
|
|
return $result;
|
|
|
|
}
|
|
|
|
|
|
/**
|
|
* Write recipient of request (customer)
|
|
*
|
|
* @param int $rowid id of line
|
|
* @param string $client_nom name of customer
|
|
* @param string $rib_banque code of bank
|
|
* @param string $rib_guichet code of bank office
|
|
* @param string $rib_number bank account
|
|
* @param float $amount amount
|
|
* @param string $facnumber ref of invoice
|
|
* @param int $facid id of invoice
|
|
* @return void
|
|
*/
|
|
function EnregDestinataire($rowid, $client_nom, $rib_banque, $rib_guichet, $rib_number, $amount, $facnumber, $facid)
|
|
{
|
|
fputs($this->file, "06");
|
|
fputs($this->file, "08"); // Prelevement ordinaire
|
|
|
|
fputs($this->file, " "); // Zone Reservee B2
|
|
|
|
fputs($this->file, $this->numero_national_emetteur); // Numero National d'emmetteur B3
|
|
|
|
// Date d'echeance C1
|
|
|
|
fputs($this->file, " ");
|
|
fputs($this->file, strftime("%d%m", $this->date_echeance));
|
|
fputs($this->file, substr(strftime("%y", $this->date_echeance),1));
|
|
|
|
// Raison Sociale Destinataire C2
|
|
|
|
fputs($this->file, substr($client->nom. " ",0,24));
|
|
|
|
// Domiciliation facultative D1
|
|
|
|
fputs($this->file, substr(" ",0,24));
|
|
|
|
// Zone Reservee D2
|
|
|
|
fputs($this->file, substr(" ",0,8));
|
|
|
|
// Code Guichet D3
|
|
|
|
fputs($this->file, $rib_guichet);
|
|
|
|
// Numero de compte D4
|
|
|
|
fputs($this->file, substr("000000000000000".$rib_number, -11));
|
|
|
|
// Zone E Montant
|
|
|
|
$montant = (round($amount,2) * 100);
|
|
|
|
fputs($this->file, substr("000000000000000".$montant, -16));
|
|
|
|
// Libelle F
|
|
|
|
fputs($this->file, substr("*".$this->ref.$rowid." ",0,13));
|
|
fputs($this->file, substr(" ",0,18));
|
|
|
|
// Code etablissement G1
|
|
|
|
fputs($this->file, $rib_banque);
|
|
|
|
// Zone Reservee G2
|
|
|
|
fputs($this->file, substr(" ",0,5));
|
|
|
|
fputs($this->file, "\n");
|
|
}
|
|
|
|
|
|
/**
|
|
* Write sender of request (me)
|
|
*
|
|
* @return void
|
|
*/
|
|
function EnregEmetteur()
|
|
{
|
|
fputs($this->file, "03");
|
|
fputs($this->file, "08"); // Prelevement ordinaire
|
|
|
|
fputs($this->file, " "); // Zone Reservee B2
|
|
|
|
fputs($this->file, $this->numero_national_emetteur); // Numero National d'emmetteur B3
|
|
|
|
// Date d'echeance C1
|
|
|
|
fputs($this->file, " ");
|
|
fputs($this->file, strftime("%d%m", $this->date_echeance));
|
|
fputs($this->file, substr(strftime("%y", $this->date_echeance),1));
|
|
|
|
// Raison Sociale C2
|
|
|
|
fputs($this->file, substr($this->raison_sociale. " ",0,24));
|
|
|
|
// Reference de la remise creancier D1 sur 7 caracteres
|
|
|
|
fputs($this->file, substr($this->reference_remise. " ",0,7));
|
|
|
|
// Zone Reservee D1-2
|
|
|
|
fputs($this->file, substr(" ",0,17));
|
|
|
|
// Zone Reservee D2
|
|
|
|
fputs($this->file, substr(" ",0,2));
|
|
fputs($this->file, "E");
|
|
fputs($this->file, substr(" ",0,5));
|
|
|
|
// Code Guichet D3
|
|
|
|
fputs($this->file, $this->emetteur_code_guichet);
|
|
|
|
// Numero de compte D4
|
|
|
|
fputs($this->file, substr("000000000000000".$this->emetteur_numero_compte, -11));
|
|
|
|
// Zone Reservee E
|
|
|
|
fputs($this->file, substr(" ",0,16));
|
|
|
|
// Zone Reservee F
|
|
|
|
fputs($this->file, substr(" ",0,31));
|
|
|
|
// Code etablissement
|
|
|
|
fputs($this->file, $this->emetteur_code_banque);
|
|
|
|
// Zone Reservee G
|
|
|
|
fputs($this->file, substr(" ",0,5));
|
|
|
|
fputs($this->file, "\n");
|
|
|
|
}
|
|
|
|
/**
|
|
* Write end
|
|
*
|
|
* @param int $total total amount
|
|
* @return void
|
|
*/
|
|
function EnregTotal($total)
|
|
{
|
|
fputs($this->file, "08");
|
|
fputs($this->file, "08"); // Prelevement ordinaire
|
|
|
|
fputs($this->file, " "); // Zone Reservee B2
|
|
|
|
fputs($this->file, $this->numero_national_emetteur); // Numero National d'emmetteur B3
|
|
|
|
// Reserve C1
|
|
|
|
fputs($this->file, substr(" ",0,12));
|
|
|
|
|
|
// Raison Sociale C2
|
|
|
|
fputs($this->file, substr(" ",0,24));
|
|
|
|
// D1
|
|
|
|
fputs($this->file, substr(" ",0,24));
|
|
|
|
// Zone Reservee D2
|
|
|
|
fputs($this->file, substr(" ",0,8));
|
|
|
|
// Code Guichet D3
|
|
|
|
fputs($this->file, substr(" ",0,5));
|
|
|
|
// Numero de compte D4
|
|
|
|
fputs($this->file, substr(" ",0,11));
|
|
|
|
// Zone E Montant
|
|
|
|
$montant = ($total * 100);
|
|
|
|
fputs($this->file, substr("000000000000000".$montant, -16));
|
|
|
|
// Zone Reservee F
|
|
|
|
fputs($this->file, substr(" ",0,31));
|
|
|
|
// Code etablissement
|
|
|
|
fputs($this->file, substr(" ",0,5));
|
|
|
|
// Zone Reservee F
|
|
|
|
fputs($this->file, substr(" ",0,5));
|
|
|
|
fputs($this->file, "\n");
|
|
}
|
|
|
|
/**
|
|
* Return status label of object
|
|
*
|
|
* @param int $mode 0=Label, 1=Picto + label, 2=Picto, 3=Label + Picto
|
|
* @return string Label
|
|
*/
|
|
function getLibStatut($mode=0)
|
|
{
|
|
return $this->LibStatut($this->statut,$mode);
|
|
}
|
|
|
|
/**
|
|
* Return status label for a status
|
|
*
|
|
* @param int $statut id statut
|
|
* @param int $mode 0=Label, 1=Picto + label, 2=Picto, 3=Label + Picto
|
|
* @return string Label
|
|
*/
|
|
function LibStatut($statut,$mode=0)
|
|
{
|
|
global $langs;
|
|
|
|
if ($mode == 0)
|
|
{
|
|
return $langs->trans($this->labelstatut[$statut]);
|
|
}
|
|
|
|
if ($mode == 1)
|
|
{
|
|
if ($statut==0) return img_picto($langs->trans($this->labelstatut[$statut]),'statut0').' '.$langs->trans($this->labelstatut[$statut]);
|
|
if ($statut==1) return img_picto($langs->trans($this->labelstatut[$statut]),'statut1').' '.$langs->trans($this->labelstatut[$statut]);
|
|
if ($statut==2) return img_picto($langs->trans($this->labelstatut[$statut]),'statut6').' '.$langs->trans($this->labelstatut[$statut]);
|
|
}
|
|
if ($mode == 2)
|
|
{
|
|
if ($statut==0) return img_picto($langs->trans($this->labelstatut[$statut]),'statut0');
|
|
if ($statut==1) return img_picto($langs->trans($this->labelstatut[$statut]),'statut1');
|
|
if ($statut==2) return img_picto($langs->trans($this->labelstatut[$statut]),'statut6');
|
|
}
|
|
|
|
if ($mode == 3)
|
|
{
|
|
if ($statut==0) return $langs->trans($this->labelstatut[$statut]).' '.img_picto($langs->trans($this->labelstatut[$statut]),'statut0');
|
|
if ($statut==1) return $langs->trans($this->labelstatut[$statut]).' '.img_picto($langs->trans($this->labelstatut[$statut]),'statut1');
|
|
if ($statut==2) return $langs->trans($this->labelstatut[$statut]).' '.img_picto($langs->trans($this->labelstatut[$statut]),'statut6');
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
?>
|