4d0a68d48c
This is to be more portable, to solve problem when database server time differs from PHP server and to prepare for TZ support.
546 lines
16 KiB
PHP
546 lines
16 KiB
PHP
<?php
|
||
/* Copyright (C) 2002-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||
* Copyright (C) 2004-2007 Laurent Destailleur <eldy@users.sourceforge.net>
|
||
* Copyright (C) 2005 Marc Barilley / Ocebo <marc@ocebo.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.
|
||
*/
|
||
|
||
/**
|
||
\file htdocs/fourn/facture/paiementfourn.class.php
|
||
\ingroup fournisseur, facture
|
||
\brief Classe paiement fournisseur
|
||
\remarks Cette classe est presque identique a paiement.class.php
|
||
\version $Id$
|
||
*/
|
||
|
||
require_once(DOL_DOCUMENT_ROOT.'/compta/bank/account.class.php');
|
||
|
||
/**
|
||
\class PaiementFourn
|
||
\brief Classe permettant la gestion des paiements des factures fournisseurs
|
||
*/
|
||
|
||
class PaiementFourn
|
||
{
|
||
var $id;
|
||
var $ref;
|
||
var $facid;
|
||
var $datepaye;
|
||
var $amount;
|
||
var $total;
|
||
var $author;
|
||
var $paiementid; // Type de paiement. Stock<63> dans fk_paiement
|
||
// de llx_paiement qui est li<6C> aux types de
|
||
//paiement de llx_c_paiement
|
||
var $num_paiement; // Num<75>ro du CHQ, VIR, etc...
|
||
var $bank_account; // Id compte bancaire du paiement
|
||
var $bank_line; // Id de la ligne d'<27>criture bancaire
|
||
var $note;
|
||
var $statut; //Status of payment. 0 = unvalidated; 1 = validated
|
||
// fk_paiement dans llx_paiement est l'id du type de paiement (7 pour CHQ, ...)
|
||
// fk_paiement dans llx_paiement_facture est le rowid du paiement
|
||
|
||
var $db;
|
||
|
||
/**
|
||
* \brief Constructeur de la classe
|
||
* \param DB handler acc<63>s base de donn<6E>es
|
||
*/
|
||
|
||
function PaiementFourn($DB)
|
||
{
|
||
$this->db = $DB ;
|
||
}
|
||
|
||
/**
|
||
* \brief Load payment object
|
||
* \param id id paiement to get
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function fetch($id)
|
||
{
|
||
$sql = 'SELECT p.rowid,'.$this->db->pdate('p.datep').' as dp, p.amount, p.statut, p.fk_bank,';
|
||
$sql.= ' c.libelle as paiement_type,';
|
||
$sql.= ' p.num_paiement, p.note, b.fk_account';
|
||
$sql.= ' FROM '.MAIN_DB_PREFIX.'c_paiement as c, '.MAIN_DB_PREFIX.'paiementfourn as p';
|
||
$sql.= ' LEFT JOIN '.MAIN_DB_PREFIX.'bank as b ON p.fk_bank = b.rowid ';
|
||
$sql.= ' WHERE p.fk_paiement = c.id';
|
||
$sql.= ' AND p.rowid = '.$id;
|
||
$resql = $this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$num = $this->db->num_rows($resql);
|
||
if ($num > 0)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
$this->id = $obj->rowid;
|
||
$this->ref = $obj->rowid;
|
||
$this->date = $obj->dp;
|
||
$this->numero = $obj->num_paiement;
|
||
$this->bank_account = $obj->fk_account;
|
||
$this->bank_line = $obj->fk_bank;
|
||
$this->montant = $obj->amount;
|
||
$this->note = $obj->note;
|
||
$this->type_libelle = $obj->paiement_type;
|
||
$this->statut = $obj->statut;
|
||
$error = 1;
|
||
}
|
||
else
|
||
{
|
||
$error = -2;
|
||
}
|
||
$this->db->free($resql);
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
$error = -1;
|
||
}
|
||
return $error;
|
||
}
|
||
|
||
/**
|
||
* \brief Create payment in database
|
||
* \param user Object of creating user
|
||
* \return int id of created payment, < 0 if error
|
||
*/
|
||
function create($user)
|
||
{
|
||
global $langs,$conf;
|
||
|
||
$error = 0;
|
||
|
||
// Clean parameters
|
||
$this->total = 0;
|
||
foreach ($this->amounts as $key => $value)
|
||
{
|
||
$value = price2num($value);
|
||
$val = round($value, 2);
|
||
$this->amounts[$key] = $val;
|
||
$this->total += $val;
|
||
}
|
||
$this->total = price2num($this->total);
|
||
|
||
|
||
$this->db->begin();
|
||
|
||
if ($this->total <> 0) // On accepte les montants negatifs
|
||
{
|
||
$sql = 'INSERT INTO '.MAIN_DB_PREFIX.'paiementfourn (';
|
||
$sql.= 'datec, datep, amount, fk_paiement, num_paiement, note, fk_user_author, fk_bank)';
|
||
$sql.= ' VALUES (".$this->db->idate(mktime()).",';
|
||
$sql.= " ".$this->db->idate($this->datepaye).", '".$this->total."', ".$this->paiementid.", '".$this->num_paiement."', '".addslashes($this->note)."', ".$user->id.", 0)";
|
||
|
||
dolibarr_syslog("PaiementFourn::create sql=".$sql);
|
||
$resql = $this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$this->id = $this->db->last_insert_id(MAIN_DB_PREFIX.'paiementfourn');
|
||
|
||
// Insere tableau des montants / factures
|
||
foreach ($this->amounts as $key => $amount)
|
||
{
|
||
$facid = $key;
|
||
if (is_numeric($amount) && $amount <> 0)
|
||
{
|
||
$amount = price2num($amount);
|
||
$sql = 'INSERT INTO '.MAIN_DB_PREFIX.'paiementfourn_facturefourn (fk_facturefourn, fk_paiementfourn, amount)';
|
||
$sql .= ' VALUES ('.$facid.','. $this->id.',\''.$amount.'\')';
|
||
if (! $this->db->query($sql) )
|
||
{
|
||
dolibarr_syslog('Paiement::Create Erreur INSERT dans paiement_facture '.$facid);
|
||
$error++;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dolibarr_syslog('PaiementFourn::Create Montant non numerique',LOG_ERR);
|
||
}
|
||
}
|
||
|
||
if (! $error)
|
||
{
|
||
// Appel des triggers
|
||
include_once(DOL_DOCUMENT_ROOT . "/interfaces.class.php");
|
||
$interface=new Interfaces($this->db);
|
||
$result=$interface->run_triggers('PAYMENT_SUPPLIER_CREATE',$this,$user,$langs,$conf);
|
||
if ($result < 0) { $error++; $this->errors=$interface->errors; }
|
||
// Fin appel triggers
|
||
}
|
||
}
|
||
else
|
||
{
|
||
$this->error=$this->db->lasterror();
|
||
dolibarr_syslog('PaiementFourn::Create Error '.$this->error, LOG_ERR);
|
||
$error++;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
$this->error="ErrorTotalIsNull";
|
||
dolibarr_syslog('PaiementFourn::Create Error '.$this->error, LOG_ERR);
|
||
$error++;
|
||
}
|
||
|
||
if ($this->total <> 0 && $error == 0) // On accepte les montants negatifs
|
||
{
|
||
$this->db->commit();
|
||
dolibarr_syslog('PaiementFourn::Create Ok Total = '.$this->total);
|
||
return $this->id;
|
||
}
|
||
else
|
||
{
|
||
$this->db->rollback();
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Supprime un paiement ainsi que les lignes qu'il a g<>n<EFBFBD>r<EFBFBD> dans comptes
|
||
* Si le paiement porte sur un <20>criture compte qui est rapproch<63>e, on refuse
|
||
* Si le paiement porte sur au moins une facture <20> "pay<61>e", on refuse
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function delete()
|
||
{
|
||
$bank_line_id = $this->bank_line;
|
||
|
||
$this->db->begin();
|
||
|
||
// V<>rifier si paiement porte pas sur une facture <20> l'<27>tat pay<61>e
|
||
// Si c'est le cas, on refuse la suppression
|
||
$billsarray=$this->getBillsArray('paye=1');
|
||
if (is_array($billsarray))
|
||
{
|
||
if (sizeof($billsarray))
|
||
{
|
||
$this->error='Impossible de supprimer un paiement portant sur au moins une facture <20> l\'<27>tat pay<61>';
|
||
$this->db->rollback();
|
||
return -1;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
$this->db->rollback();
|
||
return -2;
|
||
}
|
||
|
||
// V<>rifier si paiement ne porte pas sur ecriture bancaire rapproch<63>e
|
||
// Si c'est le cas, on refuse le delete
|
||
if ($bank_line_id)
|
||
{
|
||
$accline = new AccountLine($this->db,$bank_line_id);
|
||
$accline->fetch($bank_line_id);
|
||
if ($accline->rappro)
|
||
{
|
||
$this->error='Impossible de supprimer un paiement qui a g<>n<EFBFBD>r<EFBFBD> une <20>criture qui a <20>t<EFBFBD> rapproch<63>e';
|
||
$this->db->rollback();
|
||
return -3;
|
||
}
|
||
}
|
||
|
||
// Efface la ligne de paiement (dans paiement_facture et paiement)
|
||
$sql = 'DELETE FROM '.MAIN_DB_PREFIX.'paiementfourn_facturefourn';
|
||
$sql.= ' WHERE fk_paiementfourn = '.$this->id;
|
||
$resql = $this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$sql = 'DELETE FROM '.MAIN_DB_PREFIX.'paiementfourn';
|
||
$sql.= ' WHERE rowid = '.$this->id;
|
||
$result = $this->db->query($sql);
|
||
if (! $result)
|
||
{
|
||
$this->error=$this->db->error();
|
||
$this->db->rollback();
|
||
return -3;
|
||
}
|
||
|
||
// Supprimer l'<27>criture bancaire si paiement li<6C> <20> <20>criture
|
||
if ($bank_line_id)
|
||
{
|
||
$accline = new AccountLine($this->db);
|
||
$accline->fetch($bank_line_id);
|
||
$result=$accline->delete();
|
||
if ($result < 0)
|
||
{
|
||
$this->error=$accline->error;
|
||
$this->db->rollback();
|
||
return -4;
|
||
}
|
||
}
|
||
$this->db->commit();
|
||
return 1;
|
||
}
|
||
else
|
||
{
|
||
$this->error=$this->db->error;
|
||
$this->db->rollback();
|
||
return -5;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Mise a jour du lien entre le paiement et la ligne g<>n<EFBFBD>r<EFBFBD>e dans llx_bank
|
||
* \param id_bank Id compte bancaire
|
||
*/
|
||
function update_fk_bank($id_bank)
|
||
{
|
||
$sql = 'UPDATE '.MAIN_DB_PREFIX.'paiementfourn set fk_bank = '.$id_bank;
|
||
$sql.= ' WHERE rowid = '.$this->id;
|
||
$result = $this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
return 1;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Valide le paiement
|
||
* \return int <0 si ko, >0 si ok
|
||
*/
|
||
function valide()
|
||
{
|
||
$sql = 'UPDATE '.MAIN_DB_PREFIX.'paiementfourn SET statut = 1 WHERE rowid = '.$this->id;
|
||
|
||
dolibarr_syslog("PaiementFourn::valide sql=".$sql);
|
||
$result = $this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
$this->error='Paiement::Valide Error -1 '.$this->db->error();
|
||
dolibarr_syslog('PaiementFourn::valide error '.$this->error);
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
/*
|
||
* \brief Information sur l'objet
|
||
* \param id id du paiement dont il faut afficher les infos
|
||
*/
|
||
function info($id)
|
||
{
|
||
$sql = 'SELECT c.rowid, '.$this->db->pdate('datec').' as datec, fk_user_author';
|
||
$sql .= ', '.$this->db->pdate('tms').' as tms';
|
||
$sql .= ' FROM '.MAIN_DB_PREFIX.'paiementfourn as c';
|
||
$sql .= ' WHERE c.rowid = '.$id;
|
||
|
||
$resql = $this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$num = $this->db->num_rows($resql);
|
||
if ($num)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
$this->id = $obj->rowid;
|
||
if ($obj->fk_user_creat)
|
||
{
|
||
$cuser = new User($this->db, $obj->fk_user_creat);
|
||
$cuser->fetch();
|
||
$this->user_creation = $cuser;
|
||
}
|
||
if ($obj->fk_user_modif)
|
||
{
|
||
$muser = new User($this->db, $obj->fk_user_modif);
|
||
$muser->fetch();
|
||
$this->user_modification = $muser;
|
||
}
|
||
$this->date_creation = $obj->datec;
|
||
$this->date_modification = $obj->tms;
|
||
}
|
||
$this->db->free($resql);
|
||
}
|
||
else
|
||
{
|
||
dolibarr_print_error($this->db);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne la liste des factures sur lesquels porte le paiement
|
||
* \param filter Critere de filtre
|
||
* \return array Tableau des id de factures
|
||
*/
|
||
function getBillsArray($filter='')
|
||
{
|
||
$sql = 'SELECT fk_facturefourn';
|
||
$sql.= ' FROM '.MAIN_DB_PREFIX.'paiementfourn_facturefourn as pf, '.MAIN_DB_PREFIX.'facture_fourn as f';
|
||
$sql.= ' WHERE pf.fk_facturefourn = f.rowid AND fk_paiementfourn = '.$this->id;
|
||
if ($filter) $sql.= ' AND '.$filter;
|
||
$resql = $this->db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$i=0;
|
||
$num=$this->db->num_rows($resql);
|
||
$billsarray=array();
|
||
|
||
while ($i < $num)
|
||
{
|
||
$obj = $this->db->fetch_object($resql);
|
||
$billsarray[$i]=$obj->fk_facture;
|
||
$i++;
|
||
}
|
||
|
||
return $billsarray;
|
||
}
|
||
else
|
||
{
|
||
$this->error=$this->db->error();
|
||
dolibarr_syslog('PaiementFourn::getBillsArray Error '.$this->error.' - sql='.$sql);
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* \brief Retourne le libell<6C> du statut d'une facture (brouillon, valid<69>e, abandonn<6E>e, pay<61>e)
|
||
* \param mode 0=libell<6C> long, 1=libell<6C> court, 2=Picto + Libell<6C> court, 3=Picto, 4=Picto + Libell<6C> long, 5=Libell<6C> court + Picto
|
||
* \return string Libelle
|
||
*/
|
||
function getLibStatut($mode=0)
|
||
{
|
||
return $this->LibStatut($this->statut,$mode);
|
||
}
|
||
|
||
/**
|
||
* \brief Renvoi le libell<6C> d'un statut donne
|
||
* \param status Statut
|
||
* \param mode 0=libell<6C> long, 1=libell<6C> court, 2=Picto + Libell<6C> court, 3=Picto, 4=Picto + Libell<6C> long, 5=Libell<6C> court + Picto
|
||
* \return string Libell<6C> du statut
|
||
*/
|
||
function LibStatut($status,$mode=0)
|
||
{
|
||
global $langs;
|
||
|
||
$langs->load('compta');
|
||
if ($mode == 0)
|
||
{
|
||
if ($status == 0) return $langs->trans('ToValidate');
|
||
if ($status == 1) return $langs->trans('Validated');
|
||
}
|
||
if ($mode == 1)
|
||
{
|
||
if ($status == 0) return $langs->trans('ToValidate');
|
||
if ($status == 1) return $langs->trans('Validated');
|
||
}
|
||
if ($mode == 2)
|
||
{
|
||
if ($status == 0) return img_picto($langs->trans('ToValidate'),'statut1').' '.$langs->trans('ToValidate');
|
||
if ($status == 1) return img_picto($langs->trans('Validated'),'statut4').' '.$langs->trans('Validated');
|
||
}
|
||
if ($mode == 3)
|
||
{
|
||
if ($status == 0) return img_picto($langs->trans('ToValidate'),'statut1');
|
||
if ($status == 1) return img_picto($langs->trans('Validated'),'statut4');
|
||
}
|
||
if ($mode == 4)
|
||
{
|
||
if ($status == 0) return img_picto($langs->trans('ToValidate'),'statut1').' '.$langs->trans('ToValidate');
|
||
if ($status == 1) return img_picto($langs->trans('Validated'),'statut4').' '.$langs->trans('Validated');
|
||
}
|
||
if ($mode == 5)
|
||
{
|
||
if ($status == 0) return $langs->trans('ToValidate').' '.img_picto($langs->trans('ToValidate'),'statut1');
|
||
if ($status == 1) return $langs->trans('Validated').' '.img_picto($langs->trans('Validated'),'statut4');
|
||
}
|
||
return $langs->trans('Unknown');
|
||
}
|
||
|
||
|
||
/**
|
||
* \brief Renvoie nom clicable (avec eventuellement le picto)
|
||
* \param withpicto 0=Pas de picto, 1=Inclut le picto dans le lien, 2=Picto seul
|
||
* \param option Sur quoi pointe le lien
|
||
* \return string Chaine avec URL
|
||
*/
|
||
function getNomUrl($withpicto=0,$option='')
|
||
{
|
||
global $langs;
|
||
|
||
$result='';
|
||
|
||
$lien = '<a href="'.DOL_URL_ROOT.'/fourn/paiement/fiche.php?id='.$this->rowid.'">';
|
||
$lienfin='</a>';
|
||
|
||
if ($withpicto) $result.=($lien.img_object($langs->trans("ShowPayment"),'payment').$lienfin);
|
||
if ($withpicto && $withpicto != 2) $result.=' ';
|
||
if ($withpicto != 2) $result.=$lien.$this->rowid.$lienfin;
|
||
return $result;
|
||
}
|
||
/**
|
||
* \brief Updates the payment number
|
||
* \param string New num
|
||
* \return int -1 on error, 0 otherwise
|
||
*/
|
||
function update_num($num)
|
||
{
|
||
if(!empty($num) && $this->statut!=1)
|
||
{
|
||
$sql = 'UPDATE '.MAIN_DB_PREFIX.'paiementfourn SET num_paiement = \''.$this->db->escape($num).'\' WHERE rowid = '.$this->id;
|
||
|
||
dolibarr_syslog("PaiementFourn::update_num sql=".$sql);
|
||
$result = $this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
$this->numero = $this->db->escape($num);
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
$this->error='PaiementFourn::update_num Error -1 '.$this->db->error();
|
||
dolibarr_syslog('PaiementFourn::update_num error '.$this->error);
|
||
return -1;
|
||
}
|
||
}
|
||
return -1; //no num given or already validated
|
||
}
|
||
/**
|
||
* \brief Updates the payment date
|
||
* \param string New date
|
||
* \return int -1 on error, 0 otherwise
|
||
*/
|
||
function update_date($date)
|
||
{
|
||
if(!empty($date) && $this->statut!=1)
|
||
{
|
||
$sql = 'UPDATE '.MAIN_DB_PREFIX.'paiementfourn SET datep = '.$this->db->idate($date).' WHERE rowid = '.$this->id;
|
||
dolibarr_syslog("PaiementFourn::update_date sql=".$sql);
|
||
$result = $this->db->query($sql);
|
||
if ($result)
|
||
{
|
||
$this->datepaye = $date;
|
||
$this-> date = $date;
|
||
return 0;
|
||
}
|
||
else
|
||
{
|
||
$this->error='PaiementFourn::update_date Error -1 '.$this->db->error();
|
||
dolibarr_syslog('PaiementFourn::update_date error '.$this->error);
|
||
return -1;
|
||
}
|
||
}
|
||
return -1; //no date given or already validated
|
||
}
|
||
}
|
||
?>
|