mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2026-01-03 15:42:29 +01:00
412 lines
11 KiB
PHP
412 lines
11 KiB
PHP
<?php
|
|
/* Copyright (C) 2002-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004 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.
|
|
*
|
|
* $Id$
|
|
* $Source$
|
|
*/
|
|
|
|
/*!
|
|
\file htdocs/fourn/facture/paiementfourn.class.php
|
|
\ingroup fournisseur, facture
|
|
\brief Page de création de paiement factures fournisseurs
|
|
\version $Revision$
|
|
*/
|
|
|
|
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é dans fk_paiement
|
|
// de llx_paiement qui est lié aux types de
|
|
//paiement de llx_c_paiement
|
|
var $num_paiement; // Numéro du CHQ, VIR, etc...
|
|
var $bank_account; // Id compte bancaire du paiement
|
|
var $bank_line; // Id de la ligne d'écriture bancaire
|
|
var $note;
|
|
// 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ès base de données
|
|
*/
|
|
|
|
function PaiementFourn($DB)
|
|
{
|
|
$this->db = $DB ;
|
|
}
|
|
|
|
/**
|
|
* \brief Récupère l'objet paiement
|
|
* \param id id du paiement a récupérer
|
|
* \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 Création du paiement en base
|
|
* \param user object utilisateur qui crée
|
|
* \return int id du paiement crée, < 0 si erreur
|
|
*/
|
|
function create($user)
|
|
{
|
|
$sql_err = 0;
|
|
|
|
$this->db->begin();
|
|
|
|
$this->total = 0.0;
|
|
foreach ($this->amounts as $key => $value)
|
|
{
|
|
$val = price2num($value);
|
|
if (is_numeric($val))
|
|
{
|
|
$val = price2num(round($val, 2));
|
|
$this->total += $val;
|
|
}
|
|
$this->amounts[$key] = $val;
|
|
}
|
|
$this->total = price2num($this->total);
|
|
if ($this->total <> 0) /* On accepte les montants négatifs pour les avoirs ??? */
|
|
{
|
|
$sql = 'INSERT INTO '.MAIN_DB_PREFIX.'paiementfourn (datec, datep, amount, fk_paiement, num_paiement, note, fk_user_author)';
|
|
$sql .= ' VALUES (now(), '.$this->datepaye.', \''.$this->total.'\', '.$this->paiementid.', \''.$this->num_paiement.'\', \''.$this->note.'\', '.$user->id.')';
|
|
$resql = $this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$this->id = $this->db->last_insert_id(MAIN_DB_PREFIX.'paiementfourn');
|
|
foreach ($this->amounts as $key => $amount)
|
|
{
|
|
$facid = $key;
|
|
if (is_numeric($amount) && $amount <> 0)
|
|
{
|
|
$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);
|
|
$sql_err++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog('PaiementFourn::Create Montant non numérique');
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog('PaiementFourn::Create Erreur INSERT dans paiementfourn');
|
|
$sql_err++;
|
|
}
|
|
}
|
|
|
|
if ( $this->total <> 0 && $sql_err == 0 ) // On accepte les montants négatifs
|
|
{
|
|
$this->db->commit();
|
|
dolibarr_syslog('PaiementFourn::Create Ok Total = '.$this->total);
|
|
return $this->id;
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
dolibarr_syslog('PaiementFourn::Create Erreur');
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* \brief Affiche la liste des modes de paiement possible
|
|
* \param name nom du champ select
|
|
* \param filtre filtre sur un sens de paiement particulier, norme ISO (CRDT=Mode propre à un crédit, DBIT=mode propre à un débit)
|
|
* \param id ???
|
|
*/
|
|
function select($name, $filtre='', $id='')
|
|
{
|
|
$form = new Form($this->db);
|
|
|
|
if ($filtre == 'CRDT' || $filtre == 'crédit')
|
|
{
|
|
$sql = 'SELECT id, libelle FROM '.MAIN_DB_PREFIX.'c_paiement WHERE active=1 AND type IN (0,2) ORDER BY libelle';
|
|
}
|
|
elseif ($filtre == 'DBIT' || $filtre == 'débit')
|
|
{
|
|
$sql = 'SELECT id, libelle FROM '.MAIN_DB_PREFIX.'c_paiement WHERE active=1 AND type IN (1,2) ORDER BY libelle';
|
|
}
|
|
else
|
|
{
|
|
$sql = 'SELECT id, libelle FROM '.MAIN_DB_PREFIX.'c_paiement WHERE active=1 ORDER BY libelle';
|
|
}
|
|
$form->select($name, $sql, $id);
|
|
}
|
|
|
|
/**
|
|
* \brief Supprime un paiement ainsi que les lignes qu'il a généré dans comptes
|
|
* Si le paiement porte sur un écriture compte qui est rapprochée, on refuse
|
|
* Si le paiement porte sur au moins une facture à "payé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 à l'état payé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 à l\'état payé';
|
|
$this->db->rollback();
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
return -2;
|
|
}
|
|
|
|
// Vérifier si paiement ne porte pas sur ecriture bancaire rapprochée
|
|
// Si c'est le cas, on refuse le paiement
|
|
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éré une écriture qui a été rapproché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'écriture bancaire si paiement lié à écriture
|
|
if ($bank_line_id)
|
|
{
|
|
$acc = new Account($this->db);
|
|
$result=$acc->deleteline($bank_line_id);
|
|
if ($result < 0)
|
|
{
|
|
$this->error=$acc->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éré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;
|
|
$result = $this->db->query($sql);
|
|
if ($result)
|
|
{
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog('Paiement::Valide Error -1');
|
|
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->idp;
|
|
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;
|
|
}
|
|
}
|
|
|
|
}
|
|
?>
|