forked from Wavyzz/dolibarr
382 lines
11 KiB
PHP
382 lines
11 KiB
PHP
<?php
|
|
/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004-2007 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 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/discount.class.php
|
|
\ingroup propal,facture,commande
|
|
\brief Fichier de la classe de gestion des remises
|
|
\version $Revision$
|
|
*/
|
|
|
|
|
|
/**
|
|
\class DiscountAbsolute
|
|
\brief Classe permettant la gestion des remises fixes
|
|
*/
|
|
|
|
class DiscountAbsolute
|
|
{
|
|
var $db;
|
|
var $error;
|
|
|
|
var $id; // Id remise
|
|
var $amount_ht; //
|
|
var $amount_tva; //
|
|
var $amount_ttc; //
|
|
var $tva_tx; //
|
|
var $fk_user; // Id utilisateur qui accorde la remise
|
|
var $description; // Description libre
|
|
var $datec; // Date creation
|
|
var $fk_facture_line; // Id invoice line when a discount linked to invoice line
|
|
var $fk_facture; // Id invoice when a discoutn linked to invoice
|
|
var $fk_facture_source; // Id facture avoir à l'origine de la remise
|
|
var $ref_facture_source; // Ref facture avoir à l'origine de la remise
|
|
|
|
/**
|
|
* \brief Constructeur de la classe
|
|
* \param DB handler accès base de données
|
|
*/
|
|
function DiscountAbsolute($DB)
|
|
{
|
|
$this->db = $DB;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Charge objet remise depuis la base
|
|
* \param rowid id du projet à charger
|
|
* \param fk_facture_source fk_facture_source
|
|
* \return int <0 si ko, =0 si non trouvé, >0 si ok
|
|
*/
|
|
function fetch($rowid,$fk_facture_source=0)
|
|
{
|
|
// Check parameters
|
|
if (! $rowid && ! $fk_facture_source)
|
|
{
|
|
$this->error='ErrorBadParameters';
|
|
return -1;
|
|
}
|
|
|
|
$sql = "SELECT sr.rowid, sr.fk_soc,";
|
|
$sql.= " sr.fk_user,";
|
|
$sql.= " sr.amount_ht, sr.amount_tva, sr.amount_ttc, sr.tva_tx,";
|
|
$sql.= " sr.fk_facture_line, sr.fk_facture, sr.fk_facture_source, sr.description,";
|
|
$sql.= " ".$this->db->pdate("sr.datec")." as datec,";
|
|
$sql.= " f.facnumber as ref_facture_source";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."societe_remise_except as sr";
|
|
$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."facture as f ON sr.fk_facture_source = f.rowid";
|
|
$sql.= " WHERE";
|
|
if ($rowid) $sql.= " sr.rowid=".$rowid;
|
|
if ($fk_facture_source) $sql.= " sr.fk_facture_source=".$fk_facture_source;
|
|
|
|
dolibarr_syslog("DiscountAbsolute::fetch sql=".$sql);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
if ($this->db->num_rows($resql))
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
$this->id = $obj->rowid;
|
|
$this->fk_soc = $obj->fk_soc;
|
|
$this->amount_ht = $obj->amount_ht;
|
|
$this->amount_tva = $obj->amount_tva;
|
|
$this->amount_ttc = $obj->amount_ttc;
|
|
$this->tva_tx = $obj->tva_tx;
|
|
$this->fk_user = $obj->fk_user;
|
|
$this->fk_facture_line = $obj->fk_facture_line;
|
|
$this->fk_facture = $obj->fk_facture;
|
|
$this->fk_facture_source = $obj->fk_facture_source; // Id avoir source
|
|
$this->ref_facture_source = $obj->ref_facture_source; // Ref avoir source
|
|
$this->description = $obj->description;
|
|
$this->datec = $obj->datec;
|
|
|
|
$this->db->free($resql);
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->db->free($resql);
|
|
return 0;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->error();
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Create in database
|
|
* \param user User that create
|
|
* \return int <0 si ko, >0 si ok
|
|
*/
|
|
function create($user)
|
|
{
|
|
global $conf, $langs;
|
|
|
|
// Nettoyage parametres
|
|
$this->amount_ht=price2num($this->amount_ht);
|
|
$this->amount_tva=price2num($this->amount_tva);
|
|
$this->amount_ttc=price2num($this->amount_ttc);
|
|
$this->tva_tx=price2num($this->tva_tx);
|
|
|
|
// Insert request
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_remise_except";
|
|
$sql.= " (datec, fk_soc, fk_user, description,";
|
|
$sql.= " amount_ht, amount_tva, amount_ttc, tva_tx,";
|
|
$sql.= " fk_facture_source";
|
|
$sql.= ")";
|
|
$sql.= " VALUES (now(),".$this->fk_soc.",".$user->id.",'".addslashes($this->desc)."',";
|
|
$sql.= " '".$this->amount_ht."','".$this->amount_tva."','".$this->amount_ttc."','".$this->tva_tx."',";
|
|
$sql.= " ".($this->fk_facture_source?"'".$this->fk_facture_source."'":"null");
|
|
$sql.= ")";
|
|
|
|
dolibarr_syslog("DiscountAbsolute::create sql=".$sql);
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$this->id=$this->db->last_insert_id(MAIN_DB_PREFIX."societe_remise_except");
|
|
return $this->id;
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->lasterror().' - sql='.$sql;
|
|
dolibarr_syslog("DiscountAbsolute::create ".$this->error);
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* \brief Delete object in database
|
|
* \return int <0 if KO, >0 if OK
|
|
*/
|
|
function delete()
|
|
{
|
|
global $conf, $langs;
|
|
|
|
$this->db->begin();
|
|
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."societe_remise_except ";
|
|
$sql.= " WHERE rowid = ".$this->id." AND (fk_facture_line IS NULL or fk_facture IS NULL)";
|
|
|
|
dolibarr_syslog("DiscountAbsolute::delete Delete discount sql=".$sql);
|
|
$result=$this->db->query($sql);
|
|
if ($result)
|
|
{
|
|
// If source of discount was a credit not, we change credit note statut.
|
|
if ($this->fk_facture_source)
|
|
{
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."facture";
|
|
$sql.=" set paye=0, fk_statut=1";
|
|
$sql.=" WHERE type = 2 AND rowid=".$this->fk_facture_source;
|
|
|
|
dolibarr_syslog("DiscountAbsolute::delete Update credit note statut sql=".$sql);
|
|
$result=$this->db->query($sql);
|
|
if ($result)
|
|
{
|
|
$this->db->commit();
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->lasterror();
|
|
$this->db->rollback();
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$this->db->commit();
|
|
return 1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->lasterror();
|
|
$this->db->rollback();
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
* \brief Link the discount to a particular invoice line or a particular invoice
|
|
* \param rowidline Invoice line id
|
|
* \param rowidinvoice Invoice id
|
|
* \return int <0 ko, >0 ok
|
|
*/
|
|
function link_to_invoice($rowidline,$rowidinvoice)
|
|
{
|
|
// Check parameters
|
|
if (! $rowidline && ! $rowidinvoice)
|
|
{
|
|
$this->error='ErrorBadParameters';
|
|
return -1;
|
|
}
|
|
if ($rowidline && $rowidinvoice)
|
|
{
|
|
$this->error='ErrorBadParameters';
|
|
return -2;
|
|
}
|
|
|
|
$sql ="UPDATE ".MAIN_DB_PREFIX."societe_remise_except";
|
|
if ($rowidline) $sql.=" SET fk_facture_line = ".$rowidline;
|
|
if ($rowidinvoice) $sql.=" SET fk_facture = ".$rowidinvoice;
|
|
$sql.=" WHERE rowid = ".$this->id;
|
|
|
|
dolibarr_syslog("DiscountAbsolute::link_to_invoice sql=".$sql,LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->error();
|
|
dolibarr_syslog("DiscountAbsolute::link_to_invoice ".$this->error,LOG_ERR);
|
|
return -3;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Link the discount to a particular invoice line or a particular invoice
|
|
* \remarks Do not call this if discount is linked to a reconcialiated invoice
|
|
* \param rowidline Invoice line id
|
|
* \param rowidinvoice Invoice id
|
|
* \return int <0 if KO, >0 if OK
|
|
*/
|
|
function unlink_invoice()
|
|
{
|
|
$sql ="UPDATE ".MAIN_DB_PREFIX."societe_remise_except";
|
|
$sql.=" SET fk_facture_line = NULL, fk_facture = NULL";
|
|
$sql.=" WHERE rowid = ".$this->id;
|
|
|
|
dolibarr_syslog("DiscountAbsolute::unlink_invoice sql=".$sql,LOG_DEBUG);
|
|
$resql = $this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->error=$this->db->error();
|
|
dolibarr_syslog("DiscountAbsolute::link_to_invoice ".$this->error,LOG_ERR);
|
|
return -3;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Renvoie montant TTC des avoirs en cours disponibles
|
|
* \param fk_soc Filtre sur une societe
|
|
* \param user Filtre sur un user auteur des remises
|
|
* \param filter Filtre autre
|
|
* \return int <0 si ko, montant avoir sinon
|
|
*/
|
|
function getAvailableDiscounts($company='', $user='',$filter='')
|
|
{
|
|
$sql = "SELECT SUM(rc.amount_ttc) as amount";
|
|
$sql.= " FROM ".MAIN_DB_PREFIX."societe_remise_except as rc";
|
|
$sql.= " WHERE (rc.fk_facture IS NULL AND rc.fk_facture_line IS NULL)"; // Available
|
|
if (is_object($company)) $sql.= " AND rc.fk_soc = ".$company->id;
|
|
if (is_object($user)) $sql.= " AND rc.fk_user = ".$user->id;
|
|
if ($filter) $sql.=' AND '.$filter;
|
|
|
|
dolibarr_syslog("Discount::getAvailableDiscounts sql=".$sql,LOG_DEBUG);
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
return $obj->amount;
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Renvoie montant TTC des avoirs utilises par la facture
|
|
* \return int <0 if KO, Credit note amount otherwise
|
|
*/
|
|
function getSommeCreditNote($invoice)
|
|
{
|
|
$sql = 'SELECT sum(rc.amount_ttc) as amount';
|
|
$sql.= ' FROM '.MAIN_DB_PREFIX.'societe_remise_except as rc';
|
|
$sql.= ' WHERE rc.fk_facture = '.$invoice->id;
|
|
|
|
dolibarr_syslog("Discount::getSommeCreditNote sql=".$sql,LOG_DEBUG);
|
|
$resql=$this->db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$obj = $this->db->fetch_object($resql);
|
|
return $obj->amount;
|
|
}
|
|
else
|
|
{
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
\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,$option='invoice')
|
|
{
|
|
global $langs;
|
|
|
|
$result='';
|
|
|
|
if ($option == 'invoice')
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/compta/facture.php?facid='.$this->fk_facture_source.'">';
|
|
$lienfin='</a>';
|
|
$label=$langs->trans("ShowDiscount").': '.$this->ref_facture_source;
|
|
$ref=$this->ref_facture_source;
|
|
$picto='bill';
|
|
}
|
|
if ($option == 'discount')
|
|
{
|
|
$lien = '<a href="'.DOL_URL_ROOT.'/comm/remx.php?id='.$this->fk_soc.'">';
|
|
$lienfin='</a>';
|
|
$label=$langs->trans("Discount");
|
|
$ref=$langs->trans("Discount");
|
|
$picto='generic';
|
|
}
|
|
|
|
|
|
if ($withpicto) $result.=($lien.img_object($label,$picto).$lienfin);
|
|
if ($withpicto && $withpicto != 2) $result.=' ';
|
|
$result.=$lien.$ref.$lienfin;
|
|
return $result;
|
|
}
|
|
|
|
}
|
|
?>
|