/htdocs/facture/class/facture.class.php

Large files files are truncated, but you can click here to view the full file

<?php

/* Copyright (C) 2002-2007 Rodolphe Quiedeville  <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2012 Laurent Destailleur   <eldy@users.sourceforge.net>
 * Copyright (C) 2004      Sebastien Di Cintio   <sdicintio@ressource-toi.org>
 * Copyright (C) 2004      Benoit Mortier        <benoit.mortier@opensides.be>
 * Copyright (C) 2005      Marc Barilley / Ocebo <marc@ocebo.com>
 * Copyright (C) 2005-2012 Regis Houssin         <regis.houssin@capnetworks.com>
 * Copyright (C) 2006      Andre Cianfarani      <acianfa@free.fr>
 * Copyright (C) 2007      Franky Van Liedekerke <franky.van.liedekerke@telenet.be>
 * Copyright (C) 2010-2012 Juanjo Menent         <jmenent@2byte.es>
 * Copyright (C) 2012      Christophe Battarel   <christophe.battarel@altairis.fr>
 * Copyright (C) 2012      Marcos García         <marcosgdf@gmail.com>
 * Copyright (C) 2012      David Moothen         <dmoothen@websitti.fr>
 *
 * 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/facture/class/facture.class.php
 *	\ingroup    facture
 *	\brief      File of class to manage invoices
 */
include_once DOL_DOCUMENT_ROOT . '/core/class/abstractinvoice.class.php';
require_once DOL_DOCUMENT_ROOT . '/product/class/product.class.php';
require_once DOL_DOCUMENT_ROOT . '/societe/class/client.class.php';
require_once DOL_DOCUMENT_ROOT . '/margin/lib/margins.lib.php';

/**
 * 	Class to manage invoices
 */
class Facture extends AbstractInvoice {

	public $element = 'facture';
	public $table_element = 'facture';
	//    public $table_element_line = 'facturedet';
	//    public $fk_element = 'fk_facture';
	protected $ismultientitymanaged = 1; // 0=No test on entity, 1=Test with field entity, 2=Test with link by societe
	var $id;
	//! Id client
	var $socid;
	//! Objet societe client (to load with fetch_client method)
	var $client;
	var $author;
	var $fk_user_author;
	var $fk_user_valid;
	//! Invoice date
	var $date;    // Invoice date
	var $date_creation;  // Creation date
	var $date_validation; // Validation date
	var $datem;
	var $ref;
	var $ref_client;
	var $ref_ext;
	var $ref_int;
	public $type = "INVOICE_STANDARD";
	//var $amount;
	var $remise_absolue;
	var $remise_percent;
	var $total_ht = 0;
	var $total_tva = 0;
	var $total_ttc = 0;
	var $note;   // deprecated
	var $note_private;
	var $note_public;
	//! 0=draft,
	//! 1=validated (need to be paid),
	//! 2=classified paid partially (close_code='discount_vat','badcustomer') or completely (close_code=null),
	//! 3=classified abandoned and no payment done (close_code='badcustomer','abandon' or 'replaced')
	public $Status = "DRAFT";
	//! Fermeture apres paiement partiel: discount_vat, badcustomer, abandon
	//! Fermeture alors que aucun paiement: replaced (si remplace), abandon
	var $close_code;
	//! Commentaire si mis a paye sans paiement complet
	var $close_note;
	//! 1 if invoice paid COMPLETELY, 0 otherwise (do not use it anymore, use statut and close_code
	var $paye;
	//! id of source invoice if replacement invoice or credit note
	var $fk_facture_source;
	var $origin;
	var $origin_id;
	var $linked_objects = array();
	var $fk_project;
	var $date_lim_reglement;
	var $cond_reglement_code;
	var $mode_reglement_code;
	var $modelpdf;
	var $products = array(); // deprecated
	var $lines = array();
	var $line;
	var $extraparams = array();
	//! Pour board
	var $nbtodo;
	var $nbtodolate;
	var $specimen;
	var $fac_rec;

	/**
	 * 	Constructor
	 *
	 * 	@param	DoliDB		$db			Database handler
	 */
	function __construct($db = '') {
		parent::__construct($db);

		$this->no_save[] = 'thirdparty';
		$this->no_save[] = 'line';

		$this->fk_extrafields = new ExtraFields($db);
		$this->fk_extrafields->fetch(get_class($this));

		$this->remise = 0;
		$this->remise_percent = 0;

		$this->products = array();
	}

	/**
	 * 	Create invoice in database
	 *  Note: this->ref can be set or empty. If empty, we will use "(PROV)"
	 *
	 * 	@param	User	$user      		Object user that create
	 * 	@param  int		$notrigger		1=Does not execute triggers, 0 otherwise
	 * 	@param	int		$forceduedate	1=Do not recalculate due date from payment condition but force it with value
	 * 	@return	int						<0 if KO, >0 if OK
	 */
	function create($user, $notrigger = 0, $forceduedate = 0) {
		global $langs, $conf, $mysoc, $user;
		$error = 0;

		// Clean parameters
		if (empty($this->type))
			$this->type = "INVOICE_STANDARD";
		$this->ref_client = trim($this->ref_client);
		$this->note = (isset($this->note) ? trim($this->note) : trim($this->note_private)); // deprecated
		$this->note_private = (isset($this->note_private) ? trim($this->note_private) : trim($this->note));
		$this->note_public = trim($this->note_public);
		$this->Status = "DRAFT";

		dol_syslog(get_class($this) . "::create user=" . $user->id);

		// Check parameters
		if (empty($this->date) || empty($user->id)) {
			$this->error = "ErrorBadParameter";
			dol_syslog(get_class($this) . "::create Try to create an invoice with an empty parameter (user, date, ...)", LOG_ERR);
			return -3;
		}
		$soc = new Societe($this->db);
		$result = $soc->fetch($this->socid);
		unset($this->socid);
		if ($result < 0) {
			$this->error = "Failed to fetch company";
			dol_syslog(get_class($this) . "::create " . $this->error, LOG_ERR);
			return -2;
		}
		$this->client = new stdClass();
		$this->client->id = $soc->id;
		$this->client->name = $soc->name;

		// author
		$this->author = new stdClass();
		$this->author->id = $user->id;
		$this->author->name = $user->login;

		$this->ref = $this->getNextNumRef($soc);
		$now = dol_now();

		$this->record();
		// Appel des triggers
		include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
		$interface = new Interfaces($this->db);
		$result = $interface->run_triggers('BILL_CREATE', $this, $user, $langs, $conf);
		if ($result < 0) {
			$error++;
			$this->errors = $interface->errors;
		}
		// Fin appel triggers
		return $this->id;


		// Create invoice from a predefined invoice
		//        if ($this->fac_rec > 0) {
		//            require_once DOL_DOCUMENT_ROOT . '/compta/facture/class/facture-rec.class.php';
		//            $_facrec = new FactureRec($this->db);
		//            $result = $_facrec->fetch($this->fac_rec);
		//
		//            $this->fk_project = $_facrec->fk_project;
		//            $this->cond_reglement = $_facrec->cond_reglement_id;
		//            $this->cond_reglement_id = $_facrec->cond_reglement_id;
		//            $this->mode_reglement = $_facrec->mode_reglement_id;
		//            $this->mode_reglement_id = $_facrec->mode_reglement_id;
		//            $this->remise_absolue = $_facrec->remise_absolue;
		//            $this->remise_percent = $_facrec->remise_percent;
		//
		//            // Clean parametres
		//            if (!$this->type)
			//                $this->type = 0;
			//            $this->ref_client = trim($this->ref_client);
			//            $this->note = trim($this->note);
			//            $this->note_public = trim($this->note_public);
			//            //if (! $this->remise) $this->remise = 0;
			//            if (!$this->mode_reglement_id)
				//                $this->mode_reglement_id = 0;
				//            $this->brouillon = 1;
				//        }
				// Define due date if not already defined
				$datelim = (empty($forceduedate) ? $this->calculate_date_lim_reglement() : $forceduedate);

				// Insert into database
				$socid = $this->socid;

				$sql = "INSERT INTO " . MAIN_DB_PREFIX . "facture (";
				$sql.= " facnumber";
				$sql.= ", entity";
				$sql.= ", ref_ext";
				$sql.= ", type";
				$sql.= ", fk_soc";
				$sql.= ", datec";
				$sql.= ", remise_absolue";
				$sql.= ", remise_percent";
				$sql.= ", datef";
				$sql.= ", note";
				$sql.= ", note_public";
				$sql.= ", ref_client, ref_int";
				$sql.= ", fk_facture_source, fk_user_author, fk_projet";
				$sql.= ", fk_cond_reglement, fk_mode_reglement, date_lim_reglement, model_pdf";
				$sql.= ")";
				$sql.= " VALUES (";
				$sql.= "'(PROV)'";
				$sql.= ", " . $conf->entity;
				$sql.= ", " . ($this->ref_ext ? "'" . $this->db->escape($this->ref_ext) . "'" : "null");
				$sql.= ", '" . $this->type . "'";
				$sql.= ", '" . $socid . "'";
				$sql.= ", '" . $this->db->idate($now) . "'";
				$sql.= "," . ($this->remise_absolue > 0 ? $this->remise_absolue : 'NULL');
				$sql.= "," . ($this->remise_percent > 0 ? $this->remise_percent : 'NULL');
				$sql.= ", '" . $this->db->idate($this->date) . "'";
				$sql.= "," . ($this->note_private ? "'" . $this->db->escape($this->note_private) . "'" : "null");
				$sql.= "," . ($this->note_public ? "'" . $this->db->escape($this->note_public) . "'" : "null");
				$sql.= "," . ($this->ref_client ? "'" . $this->db->escape($this->ref_client) . "'" : "null");
				$sql.= "," . ($this->ref_int ? "'" . $this->db->escape($this->ref_int) . "'" : "null");
				$sql.= "," . ($this->fk_facture_source ? "'" . $this->db->escape($this->fk_facture_source) . "'" : "null");
				$sql.= "," . ($user->id > 0 ? "'" . $user->id . "'" : "null");
				$sql.= "," . ($this->fk_project ? $this->fk_project : "null");
				$sql.= ',' . $this->cond_reglement_id;
				$sql.= "," . $this->mode_reglement_id;
				$sql.= ", '" . $this->db->idate($datelim) . "', '" . $this->modelpdf . "')";

				dol_syslog(get_class($this) . "::create sql=" . $sql);
				$resql = $this->db->query($sql);
				if ($resql) {
					$this->id = $this->db->last_insert_id(MAIN_DB_PREFIX . 'facture');

					// Update ref with new one
					$this->ref = '(PROV' . $this->id . ')';
					$sql = 'UPDATE ' . MAIN_DB_PREFIX . "facture SET facnumber='" . $this->ref . "' WHERE rowid=" . $this->id;

					dol_syslog(get_class($this) . "::create sql=" . $sql);
					$resql = $this->db->query($sql);
					if (!$resql)
						$error++;

					// Add object linked
					if (!$error && $this->id && is_array($this->linked_objects) && !empty($this->linked_objects)) {
						foreach ($this->linked_objects as $origin => $origin_id) {
							$ret = $this->add_object_linked($origin, $origin_id);
							if (!$ret) {
								dol_print_error($this->db);
								$error++;
							}

							// TODO mutualiser
							if ($origin == 'commande') {
								// On recupere les differents contact interne et externe
								$order = new Commande($this->db);
								$order->id = $origin_id;

								// On recupere le commercial suivi propale
								$this->userid = $order->getIdcontact('internal', 'SALESREPFOLL');

								if ($this->userid) {
									//On passe le commercial suivi commande en commercial suivi paiement
									$this->add_contact($this->userid[0], 'SALESREPFOLL', 'internal');
								}

								// On recupere le contact client facturation commande
								$this->contactid = $order->getIdcontact('external', 'BILLING');

								if ($this->contactid) {
									//On passe le contact client facturation commande en contact client facturation
									$this->add_contact($this->contactid[0], 'BILLING', 'external');
								}
							}
						}
					}

					/*
					 *  Insert lines of invoices into database
					*/
					if (count($this->lines) && is_object($this->lines[0])) {
						$fk_parent_line = 0;

						dol_syslog("There is " . count($this->lines) . " lines that are invoice lines objects");
						foreach ($this->lines as $i => $val) {
							$newinvoiceline = new FactureLigne($this->db);
							$newinvoiceline = $this->lines[$i];
							$newinvoiceline->fk_facture = $this->id;
							if ($result >= 0 && ($newinvoiceline->info_bits & 0x01) == 0) { // We keep only lines with first bit = 0
								// Reset fk_parent_line for no child products and special product
								if (($newinvoiceline->product_type != 9 && empty($newinvoiceline->fk_parent_line)) || $newinvoiceline->product_type == 9) {
									$fk_parent_line = 0;
								}

								$newinvoiceline->fk_parent_line = $fk_parent_line;
								$result = $newinvoiceline->insert();

								// Defined the new fk_parent_line
								if ($result > 0 && $newinvoiceline->product_type == 9) {
									$fk_parent_line = $result;
								}
							}
							if ($result < 0) {
								$this->error = $newinvoiceline->error;
								$error++;
								break;
							}
						}
					} else {
						$fk_parent_line = 0;

						dol_syslog("There is " . count($this->lines) . " lines that are array lines");
						foreach ($this->lines as $i => $val) {
							if (($this->lines[$i]->info_bits & 0x01) == 0) { // We keep only lines with first bit = 0
								// Reset fk_parent_line for no child products and special product
								if (($this->lines[$i]->product_type != 9 && empty($this->lines[$i]->fk_parent_line)) || $this->lines[$i]->product_type == 9) {
									$fk_parent_line = 0;
								}

								$result = $this->addline(
										$this->id, $this->lines[$i]->desc, $this->lines[$i]->subprice, $this->lines[$i]->qty, $this->lines[$i]->tva_tx, $this->lines[$i]->localtax1_tx, $this->lines[$i]->localtax2_tx, $this->lines[$i]->fk_product, $this->lines[$i]->remise_percent, $this->lines[$i]->date_start, $this->lines[$i]->date_end, $this->lines[$i]->fk_code_ventilation, $this->lines[$i]->info_bits, $this->lines[$i]->fk_remise_except, 'HT', 0, $this->lines[$i]->product_type, $this->lines[$i]->rang, $this->lines[$i]->special_code, '', 0, $fk_parent_line, $this->lines[$i]->fk_fournprice, $this->lines[$i]->pa_ht, $this->lines[$i]->label
								);
								if ($result < 0) {
									$this->error = $this->db->lasterror();
									dol_print_error($this->db);
									$this->db->rollback();
									return -1;
								}

								// Defined the new fk_parent_line
								if ($result > 0 && $this->lines[$i]->product_type == 9) {
									$fk_parent_line = $result;
								}
							}
						}
					}

					/*
					 * Insert lines of predefined invoices
					*/
					if (!$error && $this->fac_rec > 0) {
						foreach ($_facrec->lines as $i => $val) {
							if ($_facrec->lines[$i]->fk_product) {
								$prod = new Product($this->db);
								$res = $prod->fetch($_facrec->lines[$i]->fk_product);
							}
							$tva_tx = get_default_tva($mysoc, $soc, $prod->id);
							$localtax1_tx = get_localtax($tva_tx, 1, $soc);
							$localtax2_tx = get_localtax($tva_tx, 2, $soc);

							$result_insert = $this->addline(
									$this->id, $_facrec->lines[$i]->desc, $_facrec->lines[$i]->subprice, $_facrec->lines[$i]->qty, $tva_tx, $localtax1_tx, $localtax2_tx, $_facrec->lines[$i]->fk_product, $_facrec->lines[$i]->remise_percent, '', '', 0, 0, '', 'HT', 0, $_facrec->lines[$i]->product_type, $_facrec->lines[$i]->rang, $_facrec->lines[$i]->special_code, '', 0, 0, null, 0, $_facrec->lines[$i]->label
							);

							if ($result_insert < 0) {
								$error++;
								$this->error = $this->db->error();
								break;
							}
						}
					}

					if (!$error) {
						$result = $this->update_price(1);
						if ($result > 0) {
							// Appel des triggers
							include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
							$interface = new Interfaces($this->db);
							$result = $interface->run_triggers('BILL_CREATE', $this, $user, $langs, $conf);
							if ($result < 0) {
								$error++;
								$this->errors = $interface->errors;
							}
							// Fin appel triggers

							if (!$error) {
								$this->db->commit();
								return $this->id;
							} else {
								$this->db->rollback();
								return -4;
							}
						} else {
							$this->error = $langs->trans('FailedToUpdatePrice');
							$this->db->rollback();
							return -3;
						}
					} else {
						dol_syslog(get_class($this) . "::create error " . $this->error, LOG_ERR);
						$this->db->rollback();
						return -2;
					}
				} else {
					$this->error = $this->db->error();
					dol_syslog(get_class($this) . "::create error " . $this->error . " sql=" . $sql, LOG_ERR);
					$this->db->rollback();
					return -1;
				}
	}

	/**
	 * 	Create a new invoice in database from current invoice
	 *
	 * 	@param      User	$user    		Object user that ask creation
	 * 	@param		int		$invertdetail	Reverse sign of amounts for lines
	 * 	@return		int						<0 if KO, >0 if OK
	 */
	function createFromCurrent($user, $invertdetail = 0) {
		// Charge facture source
		$facture = new Facture($this->db);

		$facture->fk_facture_source = $this->fk_facture_source;
		$facture->type = $this->type;
		$facture->socid = $this->socid;
		$facture->date = $this->date;
		$facture->note_public = $this->note_public;
		$facture->note = $this->note;
		$facture->ref_client = $this->ref_client;
		$facture->modelpdf = $this->modelpdf;
		$facture->fk_project = $this->fk_project;
		$facture->cond_reglement_code = $this->cond_reglement_code;
		$facture->mode_reglement_code = $this->mode_reglement_code;
		$facture->remise_absolue = $this->remise_absolue;
		$facture->remise_percent = $this->remise_percent;
		$facture->Status = "NOT_PAID";
		$facture->ref = $this->getNextNumRef($this->socid);

		//        $facture->lines = $this->lines; // Tableau des lignes de factures
		//        $facture->products = $this->lines; // Tant que products encore utilise
		//        // Loop on each line of new invoice
		//        foreach ($facture->lines as $i => $line) {
		//            if ($invertdetail) {
		//                $facture->lines[$i]->subprice = -$facture->lines[$i]->subprice;
		//                $facture->lines[$i]->total_ht = -$facture->lines[$i]->total_ht;
		//                $facture->lines[$i]->total_tva = -$facture->lines[$i]->total_tva;
		//                $facture->lines[$i]->total_localtax1 = -$facture->lines[$i]->total_localtax1;
		//                $facture->lines[$i]->total_localtax2 = -$facture->lines[$i]->total_localtax2;
		//                $facture->lines[$i]->total_ttc = -$facture->lines[$i]->total_ttc;
		//            }
		//        }

		dol_syslog(get_class($this) . "::createFromCurrent invertdetail=" . $invertdetail . " socid=" . $this->socid . " nboflines=" . count($facture->lines));

		$facid = $facture->create($user);

		// Copier les lignes de la facture
		$this->getLinesArray();
		foreach ($this->lines as $line) {
			unset($line->id);
			unset($line->_id);
			unset($line->_rev);
			$line->fk_facture = $facid;
			$line->record();
		}
		$facture->update_price();

		//        if ($facid <= 0) {
		//            $this->error = $facture->error;
		//            $this->errors = $facture->errors;
		//        }

		return $facid;
	}

	/**
	 * 		Load an object from its id and create a new one in database
	 *
	 * 		@param		int				$socid			Id of thirdparty
	 * 	 	@return		int								New id of clone
	 */
	function createFromClone($socid = 0) {
		global $conf, $user, $langs, $hookmanager;

		$error = 0;

		$this->db->begin();

		// Load source object
		$objFrom = dol_clone($this);

		// Change socid if needed
		if (!empty($socid) && $socid != $this->socid) {
			$objsoc = new Societe($this->db);

			if ($objsoc->fetch($socid) > 0) {
				$this->socid = $objsoc->id;
				$this->cond_reglement_id = (!empty($objsoc->cond_reglement_id) ? $objsoc->cond_reglement_id : 0);
				$this->mode_reglement_id = (!empty($objsoc->mode_reglement_id) ? $objsoc->mode_reglement_id : 0);
				$this->fk_project = '';
				$this->fk_delivery_address = '';
			}

			// TODO Change product price if multi-prices
		}

		$this->id = 0;
		$this->statut = 0;

		// Clear fields
		$this->user_author = $user->id;
		$this->user_valid = '';
		$this->fk_facture_source = 0;
		$this->date_creation = '';
		$this->date_validation = '';
		$this->ref_client = '';
		$this->close_code = '';
		$this->close_note = '';
		$this->products = $this->lines; // Tant que products encore utilise
		// Loop on each line of new invoice
		foreach ($this->lines as $i => $line) {
			if (($this->lines[$i]->info_bits & 0x02) == 0x02) { // We do not clone line of discounts
				unset($this->lines[$i]);
				unset($this->products[$i]); // Tant que products encore utilise
			}
		}

		// Create clone
		$result = $this->create($user);
		if ($result < 0)
			$error++;

		if (!$error) {
			// Hook of thirdparty module
			if (is_object($hookmanager)) {
				$parameters = array('objFrom' => $objFrom);
				$action = '';
				$reshook = $hookmanager->executeHooks('createFrom', $parameters, $this, $action);    // Note that $action and $object may have been modified by some hooks
				if ($reshook < 0)
					$error++;
			}

			// Appel des triggers
			include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
			$interface = new Interfaces($this->db);
			$result = $interface->run_triggers('BILL_CLONE', $this, $user, $langs, $conf);
			if ($result < 0) {
				$error++;
				$this->errors = $interface->errors;
			}
			// Fin appel triggers
		}

		// End
		if (!$error) {
			$this->db->commit();
			return $this->id;
		} else {
			$this->db->rollback();
			return -1;
		}
	}

	/**
	 *  Load an object from an order and create a new invoice into database
	 *
	 *  @param      Object			$object         	Object source
	 *  @return     int             					<0 if KO, 0 if nothing done, 1 if OK
	 */
	function createFromOrder($object) {
		global $conf, $user, $langs, $hookmanager;

		$error = 0;

		// Closed order
		$this->date = dol_now();
		$this->source = 0;

		$num = count($object->lines);
		for ($i = 0; $i < $num; $i++) {
			$line = new FactureLigne($this->db);

			$line->libelle = $object->lines[$i]->libelle;
			$line->label = $object->lines[$i]->label;
			$line->desc = $object->lines[$i]->desc;
			$line->subprice = $object->lines[$i]->subprice;
			$line->total_ht = $object->lines[$i]->total_ht;
			$line->total_tva = $object->lines[$i]->total_tva;
			$line->total_ttc = $object->lines[$i]->total_ttc;
			$line->tva_tx = $object->lines[$i]->tva_tx;
			$line->localtax1_tx = $object->lines[$i]->localtax1_tx;
			$line->localtax2_tx = $object->lines[$i]->localtax2_tx;
			$line->qty = $object->lines[$i]->qty;
			$line->fk_remise_except = $object->lines[$i]->fk_remise_except;
			$line->remise_percent = $object->lines[$i]->remise_percent;
			$line->fk_product = $object->lines[$i]->fk_product;
			$line->info_bits = $object->lines[$i]->info_bits;
			$line->product_type = $object->lines[$i]->product_type;
			$line->rang = $object->lines[$i]->rang;
			$line->special_code = $object->lines[$i]->special_code;
			$line->fk_parent_line = $object->lines[$i]->fk_parent_line;

			$this->lines[$i] = $line;
		}

		$this->socid = $object->socid;
		$this->fk_project = $object->fk_project;
		$this->cond_reglement_id = $object->cond_reglement_id;
		$this->mode_reglement_id = $object->mode_reglement_id;
		$this->availability_id = $object->availability_id;
		$this->demand_reason_id = $object->demand_reason_id;
		$this->date_livraison = $object->date_livraison;
		$this->fk_delivery_address = $object->fk_delivery_address;
		$this->contact_id = $object->contactid;
		$this->ref_client = $object->ref_client;
		$this->note = $object->note;
		$this->note_public = $object->note_public;

		$this->origin = $object->element;
		$this->origin_id = $object->id;

		// Possibility to add external linked objects with hooks
		$this->linked_objects[$this->origin] = $this->origin_id;
		if (!empty($object->other_linked_objects) && is_array($object->other_linked_objects)) {
			$this->linked_objects = array_merge($this->linked_objects, $object->other_linked_objects);
		}

		$ret = $this->create($user);

		if ($ret > 0) {
			// Actions hooked (by external module)
			$hookmanager->initHooks(array('invoicedao'));
			$parameters = array('objFrom' => $object);
			$action = '';
			$reshook = $hookmanager->executeHooks('createFrom', $parameters, $this, $action);    // Note that $action and $object may have been modified by some hooks
			if ($reshook < 0)
				$error++;

			if (!$error) {
				return 1;
			}
			else
				return -1;
		}
		else
			return -1;
	}

	/**
	 *      Return clicable link of object (with eventually picto)
	 *
	 *      @param	int		$withpicto       Add picto into link
	 *      @param  string	$option          Where point the link
	 *      @param  int		$max             Maxlength of ref
	 *      @param  int		$short           1=Return just URL
	 *      @param  string  $moretitle       Add more text to title tooltip
	 *      @return string 			         String with URL
	 */
	function getNomUrl($withpicto = 0, $option = '', $max = 0, $short = 0, $moretitle = '') {
		global $langs;

		$result = '';

		if ($option == 'withdraw')
			$url = DOL_URL_ROOT . '/compta/facture/prelevement.php?facid=' . $this->id;
		else
			$url = DOL_URL_ROOT . '/facture/fiche.php?id=' . $this->id;

		if ($short)
			return $url;

		$picto = 'bill';
		if ($this->type == 1)
			$picto.='r'; // Replacement invoice
		if ($this->type == 2)
			$picto.='a'; // Credit note
		if ($this->type == 3)
			$picto.='d'; // Deposit invoice

		$label = $langs->trans("ShowInvoice") . ': ' . $this->ref;
		if ($this->type == 1)
			$label = $langs->transnoentitiesnoconv("ShowInvoiceReplace") . ': ' . $this->ref;
		if ($this->type == 2)
			$label = $langs->transnoentitiesnoconv("ShowInvoiceAvoir") . ': ' . $this->ref;
		if ($this->type == 3)
			$label = $langs->transnoentitiesnoconv("ShowInvoiceDeposit") . ': ' . $this->ref;
		if ($moretitle)
			$label.=' - ' . $moretitle;

		//$linkstart='<a href="'.$url.'" title="'.dol_escape_htmltag($label).'">';
		$linkstart = '<a href="' . $url . '">';
		$linkend = '</a>';

		if ($withpicto)
			$result.=($linkstart . img_object(($max ? dol_trunc($label, $max) : $label), $picto) . $linkend);
		if ($withpicto && $withpicto != 2)
			$result.=' ';
		if ($withpicto != 2)
			$result.=$linkstart . ($max ? dol_trunc($this->ref, $max) : $this->ref) . $linkend;
		return $result;
	}

	/**
	 * 	Get object and lines from database
	 *
	 * 	@param      int		$rowid       	Id of object to load
	 * 	@param		string	$ref			Reference of invoice
	 * 	@param		string	$ref_ext		External reference of invoice
	 * 	@param		int		$ref_int		Internal reference of other object
	 * 	@return     int         			>0 if OK, <0 if KO, 0 if not found
	 */
	function fetch($rowid, $ref = '', $ref_ext = '', $ref_int = '') {
		global $conf;
		return parent::fetch($rowid);
	}

	/**
	 * 	Load all detailed lines into this->lines
	 *
	 * 	@return     int         1 if OK, < 0 if KO
	 */
	function fetch_lines() {
		$this->lines = array();

		$sql = 'SELECT l.rowid, l.fk_product, l.fk_parent_line, l.label as custom_label, l.description, l.product_type, l.price, l.qty, l.tva_tx, ';
		$sql.= ' l.localtax1_tx, l.localtax2_tx, l.remise, l.remise_percent, l.fk_remise_except, l.subprice,';
		$sql.= ' l.rang, l.special_code,';
		$sql.= ' l.date_start as date_start, l.date_end as date_end,';
		$sql.= ' l.info_bits, l.total_ht, l.total_tva, l.total_localtax1, l.total_localtax2, l.total_ttc, l.fk_code_ventilation, l.fk_export_compta, l.fk_product_fournisseur_price as fk_fournprice, l.buy_price_ht as pa_ht,';
		$sql.= ' p.ref as product_ref, p.fk_product_type as fk_product_type, p.label as product_label, p.description as product_desc';
		$sql.= ' FROM ' . MAIN_DB_PREFIX . 'facturedet as l';
		$sql.= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'product as p ON l.fk_product = p.rowid';
		$sql.= ' WHERE l.fk_facture = ' . $this->id;
		$sql.= ' ORDER BY l.rang';

		dol_syslog(get_class($this) . '::fetch_lines sql=' . $sql, LOG_DEBUG);
		$result = $this->db->query($sql);
		if ($result) {
			$num = $this->db->num_rows($result);
			$i = 0;
			while ($i < $num) {
				$objp = $this->db->fetch_object($result);
				$line = new FactureLigne($this->db);

				$line->rowid = $objp->rowid;
				$line->label = $objp->custom_label;
				$line->desc = $objp->description;  // Description line
				$line->product_type = $objp->product_type;  // Type of line
				$line->product_ref = $objp->product_ref;  // Ref product
				$line->libelle = $objp->product_label;  // TODO deprecated
				$line->product_label = $objp->product_label;  // Label product
				$line->product_desc = $objp->product_desc;  // Description product
				$line->fk_product_type = $objp->fk_product_type; // Type of product
				$line->qty = $objp->qty;
				$line->subprice = $objp->subprice;
				$line->tva_tx = $objp->tva_tx;
				$line->localtax1_tx = $objp->localtax1_tx;
				$line->localtax2_tx = $objp->localtax2_tx;
				$line->remise_percent = $objp->remise_percent;
				$line->fk_remise_except = $objp->fk_remise_except;
				$line->fk_product = $objp->fk_product;
				$line->date_start = $this->db->jdate($objp->date_start);
				$line->date_end = $this->db->jdate($objp->date_end);
				$line->date_start = $this->db->jdate($objp->date_start);
				$line->date_end = $this->db->jdate($objp->date_end);
				$line->info_bits = $objp->info_bits;
				$line->total_ht = $objp->total_ht;
				$line->total_tva = $objp->total_tva;
				$line->total_localtax1 = $objp->total_localtax1;
				$line->total_localtax2 = $objp->total_localtax2;
				$line->total_ttc = $objp->total_ttc;
				$line->export_compta = $objp->fk_export_compta;
				$line->code_ventilation = $objp->fk_code_ventilation;
				$line->fk_fournprice = $objp->fk_fournprice;
				$marginInfos = getMarginInfos($objp->subprice, $objp->remise_percent, $objp->tva_tx, $objp->localtax1_tx, $objp->localtax2_tx, $line->fk_fournprice, $objp->pa_ht);
				$line->pa_ht = $marginInfos[0];
				$line->marge_tx = $marginInfos[1];
				$line->marque_tx = $marginInfos[2];
				$line->rang = $objp->rang;
				$line->special_code = $objp->special_code;
				$line->fk_parent_line = $objp->fk_parent_line;

				// Ne plus utiliser
				//$line->price            = $objp->price;
				//$line->remise           = $objp->remise;

				$this->lines[$i] = $line;

				$i++;
			}
			$this->db->free($result);
			return 1;
		} else {
			$this->error = $this->db->error();
			dol_syslog(get_class($this) . '::fetch_lines ' . $this->error, LOG_ERR);
			return -3;
		}
	}

	/**
	 *      Update database
	 *
	 *      @param      User	$user        	User that modify
	 *      @param      int		$notrigger	    0=launch triggers after, 1=disable triggers
	 *      @return     int      			   	<0 if KO, >0 if OK
	 */
	function update($user = 0, $notrigger = 0) {
		global $conf, $langs;
		$error = 0;

		// Clean parameters
		if (empty($this->type))
			$this->type = "INVOICE_STANDARD";
		if (isset($this->facnumber))
			$this->facnumber = trim($this->ref);
		if (isset($this->ref_client))
			$this->ref_client = trim($this->ref_client);
		if (isset($this->increment))
			$this->increment = trim($this->increment);
		if (isset($this->close_code))
			$this->close_code = trim($this->close_code);
		if (isset($this->close_note))
			$this->close_note = trim($this->close_note);
		if (isset($this->note) || isset($this->note_private))
			$this->note = (isset($this->note) ? trim($this->note) : trim($this->note_private));  // deprecated
		if (isset($this->note) || isset($this->note_private))
			$this->note_private = (isset($this->note_private) ? trim($this->note_private) : trim($this->note));
		if (isset($this->note_public))
			$this->note_public = trim($this->note_public);
		if (isset($this->modelpdf))
			$this->modelpdf = trim($this->modelpdf);
		if (isset($this->import_key))
			$this->import_key = trim($this->import_key);

		$soc = new Societe($db);
		$soc->fetch($this->socid);
		if ($this->client->id != $soc->id) {
			$this->client->id = $soc->id;
			$this->client->name = $soc->name;
		}

		$this->record();
		if (!$notrigger) {
			// Call triggers
			include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
			$interface = new Interfaces($this->db);
			$result = $interface->run_triggers('BILL_MODIFY', $this, $user, $langs, $conf);
			if ($result < 0) {
				$error++;
				$this->errors = $interface->errors;
			}
		}
		// End call triggers
		return 1;

		// Check parameters
		// Put here code to add control on parameters values
		// Update request
		$sql = "UPDATE " . MAIN_DB_PREFIX . "facture SET";

		$sql.= " facnumber=" . (isset($this->ref) ? "'" . $this->db->escape($this->ref) . "'" : "null") . ",";
		$sql.= " type=" . (isset($this->type) ? $this->type : "null") . ",";
		$sql.= " ref_client=" . (isset($this->ref_client) ? "'" . $this->db->escape($this->ref_client) . "'" : "null") . ",";
		$sql.= " increment=" . (isset($this->increment) ? "'" . $this->db->escape($this->increment) . "'" : "null") . ",";
		$sql.= " fk_soc=" . (isset($this->socid) ? $this->socid : "null") . ",";
		$sql.= " datec=" . (strval($this->date_creation) != '' ? "'" . $this->db->idate($this->date_creation) . "'" : 'null') . ",";
		$sql.= " datef=" . (strval($this->date) != '' ? "'" . $this->db->idate($this->date) . "'" : 'null') . ",";
		$sql.= " date_valid=" . (strval($this->date_validation) != '' ? "'" . $this->db->idate($this->date_validation) . "'" : 'null') . ",";
		$sql.= " paye=" . (isset($this->paye) ? $this->paye : "null") . ",";
		$sql.= " remise_percent=" . (isset($this->remise_percent) ? $this->remise_percent : "null") . ",";
		$sql.= " remise_absolue=" . (isset($this->remise_absolue) ? $this->remise_absolue : "null") . ",";
		//$sql.= " remise=".(isset($this->remise)?$this->remise:"null").",";
		$sql.= " close_code=" . (isset($this->close_code) ? "'" . $this->db->escape($this->close_code) . "'" : "null") . ",";
		$sql.= " close_note=" . (isset($this->close_note) ? "'" . $this->db->escape($this->close_note) . "'" : "null") . ",";
		$sql.= " tva=" . (isset($this->total_tva) ? $this->total_tva : "null") . ",";
		$sql.= " localtax1=" . (isset($this->total_localtax1) ? $this->total_localtax1 : "null") . ",";
		$sql.= " localtax2=" . (isset($this->total_localtax2) ? $this->total_localtax2 : "null") . ",";
		$sql.= " total=" . (isset($this->total_ht) ? $this->total_ht : "null") . ",";
		$sql.= " total_ttc=" . (isset($this->total_ttc) ? $this->total_ttc : "null") . ",";
		$sql.= " fk_statut=" . (isset($this->statut) ? $this->statut : "null") . ",";
		$sql.= " fk_user_author=" . (isset($this->user_author) ? $this->user_author : "null") . ",";
		$sql.= " fk_user_valid=" . (isset($this->fk_user_valid) ? $this->fk_user_valid : "null") . ",";
		$sql.= " fk_facture_source=" . (isset($this->fk_facture_source) ? $this->fk_facture_source : "null") . ",";
		$sql.= " fk_projet=" . (isset($this->fk_project) ? $this->fk_project : "null") . ",";
		$sql.= " fk_cond_reglement=" . (isset($this->cond_reglement_id) ? $this->cond_reglement_id : "null") . ",";
		$sql.= " fk_mode_reglement=" . (isset($this->mode_reglement_id) ? $this->mode_reglement_id : "null") . ",";
		$sql.= " date_lim_reglement=" . (strval($this->date_lim_reglement) != '' ? "'" . $this->db->idate($this->date_lim_reglement) . "'" : 'null') . ",";
		$sql.= " note=" . (isset($this->note_private) ? "'" . $this->db->escape($this->note_private) . "'" : "null") . ",";
		$sql.= " note_public=" . (isset($this->note_public) ? "'" . $this->db->escape($this->note_public) . "'" : "null") . ",";
		$sql.= " model_pdf=" . (isset($this->modelpdf) ? "'" . $this->db->escape($this->modelpdf) . "'" : "null") . ",";
		$sql.= " import_key=" . (isset($this->import_key) ? "'" . $this->db->escape($this->import_key) . "'" : "null") . "";

		$sql.= " WHERE rowid=" . $this->id;

		$this->db->begin();

		dol_syslog(get_class($this) . "::update sql=" . $sql, LOG_DEBUG);
		$resql = $this->db->query($sql);
		if (!$resql) {
			$error++;
			$this->errors[] = "Error " . $this->db->lasterror();
		}

		if (!$error) {
			if (!$notrigger) {
				// Call triggers
				include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
				$interface = new Interfaces($this->db);
				$result = $interface->run_triggers('BILL_MODIFY', $this, $user, $langs, $conf);
				if ($result < 0) {
					$error++;
					$this->errors = $interface->errors;
				}
				// End call triggers
			}
		}

		// Commit or rollback
		if ($error) {
			foreach ($this->errors as $errmsg) {
				dol_syslog(get_class($this) . "::update " . $errmsg, LOG_ERR);
				$this->error.=($this->error ? ', ' . $errmsg : $errmsg);
			}
			$this->db->rollback();
			return -1 * $error;
		} else {
			$this->db->commit();
			return 1;
		}
	}

	/**
	 *    Add a discount line into invoice using an existing absolute discount
	 *
	 *    @param     int	$idremise	Id of absolute discount
	 *    @return    int          		>0 if OK, <0 if KO
	 */
	function insert_discount($idremise) {
		global $langs;

		include_once DOL_DOCUMENT_ROOT . '/core/lib/price.lib.php';
		include_once DOL_DOCUMENT_ROOT . '/core/class/discount.class.php';

		$remise = new DiscountAbsolute($this->db);
		$result = $remise->fetch($idremise);

		if (!empty($result)) {
			if ($remise->fk_facture) { // Protection against multiple submission
				$this->error = $langs->trans("ErrorDiscountAlreadyUsed");
				return -5;
			}

			$facligne = new FactureLigne($this->db);
			$facligne->fk_facture = $this->id;
			$facligne->fk_remise_except = $remise->id;
			$facligne->description = $remise->description;    // Description ligne
			$facligne->tva_tx = $remise->tva_tx;
			$facligne->subprice = -$remise->amount_ht;
			$facligne->fk_product = 0;     // Id produit predefini
			$facligne->qty = 1;
			$facligne->remise_percent = 0;
			$facligne->rang = -1;
			$facligne->info_bits = 2;

			$facligne->total_ht = -$remise->amount_ht;
			$facligne->total_tva = -$remise->amount_tva;
			$facligne->total_ttc = -$remise->amount_ttc;

			$lineid = $facligne->insert();
			if (!empty($lineid)) {
				$result = $this->update_price();
				if ($result > 0) {
					// Create linke between discount and invoice line
					$result = $remise->link_to_invoice($lineid, 0);
					if ($result < 0) {
						$this->error = $remise->error;
						return -4;
					}

					return 1;
				} else {
					$this->error = $facligne->error;
					return -1;
				}
			} else {
				$this->error = $facligne->error;
				return -2;
			}
		} else {
			return -3;
		}
	}

	/**
	 * 	Set customer ref
	 *
	 * 	@param     	string	$ref_client		Customer ref
	 * 	@return		int						<0 if KO, >0 if OK
	 */
	function set_ref_client($ref_client) {
		$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'facture';
		if (empty($ref_client))
			$sql .= ' SET ref_client = NULL';
		else
			$sql .= ' SET ref_client = \'' . $this->db->escape($ref_client) . '\'';
		$sql .= ' WHERE rowid = ' . $this->id;
		if ($this->db->query($sql)) {
			$this->ref_client = $ref_client;
			return 1;
		} else {
			dol_print_error($this->db);
			return -1;
		}
	}

	/**
	 * 	Delete invoice
	 *
	 * 	@param     	int		$rowid      	Id of invoice to delete. If empty, we delete current instance of invoice
	 * 	@param		int		$notrigger		1=Does not execute triggers, 0= execute triggers
	 * 	@return		int						<0 if KO, >0 if OK
	 */
	function delete($rowid = 0, $notrigger = 0) {
		global $user, $langs, $conf;
		require_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php';

		if (!$rowid)
			$rowid = $this->id;

		dol_syslog(get_class($this) . "::delete rowid=" . $rowid, LOG_DEBUG);

		// TODO Test if there is at least on payment. If yes, refuse to delete.

		$error = 0;

		// Supprimer les lignes de la facture
		$this->getLinesArray();
		foreach ($this->lines as $line) {
			$line->delete();
		}

		$this->deleteDoc();

		if (!$error && !$notrigger) {
			// Appel des triggers
			include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
			$interface = new Interfaces($this->db);
			$result = $interface->run_triggers('BILL_DELETE', $this, $user, $langs, $conf);
			if ($result < 0) {
				$error++;
				$this->errors = $interface->errors;
			}
			// Fin appel triggers
		}

		return 1;

		if (!$error) {
			// Delete linked object
			$res = $this->deleteObjectLinked();
			if ($res < 0)
				$error++;
		}

		if (!$error) {
			// If invoice was converted into a discount not yet consumed, we remove discount
			$sql = 'DELETE FROM ' . MAIN_DB_PREFIX . 'societe_remise_except';
			$sql.= ' WHERE fk_facture_source = ' . $rowid;
			$sql.= ' AND fk_facture_line IS NULL';
			$resql = $this->db->query($sql);

			// If invoice has consumned discounts
			$this->fetch_lines();
			$list_rowid_det = array();
			foreach ($this->lines as $key => $invoiceline) {
				$list_rowid_det[] = $invoiceline->rowid;
			}

			// Consumned discounts are freed
			if (count($list_rowid_det)) {
				$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'societe_remise_except';
				$sql.= ' SET fk_facture = NULL, fk_facture_line = NULL';
				$sql.= ' WHERE fk_facture_line IN (' . join(',', $list_rowid_det) . ')';

				dol_syslog(get_class($this) . "::delete sql=" . $sql);
				if (!$this->db->query($sql)) {
					$this->error = $this->db->error() . " sql=" . $sql;
					dol_syslog(get_class($this) . "::delete " . $this->error, LOG_ERR);
					$this->db->rollback();
					return -5;
				}
			}

			// Delete invoice line
			$sql = 'DELETE FROM ' . MAIN_DB_PREFIX . 'facturedet WHERE fk_facture = ' . $rowid;
			if ($this->db->query($sql) && $this->delete_linked_contact()) {
				$sql = 'DELETE FROM ' . MAIN_DB_PREFIX . 'facture WHERE rowid = ' . $rowid;
				$resql = $this->db->query($sql);
				if ($resql) {
					// On efface le repertoire de pdf provisoire
					$ref = dol_sanitizeFileName($this->ref);
					if ($conf->facture->dir_output) {
						$dir = $conf->facture->dir_output . "/" . $ref;
						$file = $conf->facture->dir_output . "/" . $ref . "/" . $ref . ".pdf";
						if (file_exists($file)) { // We must delete all files before deleting directory
							$ret = dol_delete_preview($this);

							if (!dol_delete_file($file, 0, 0, 0, $this)) { // For triggers
								$this->error = $langs->trans("ErrorCanNotDeleteFile", $file);
								$this->db->rollback();
								return 0;
							}
						}
						if (file_exists($dir)) {
							if (!dol_delete_dir_recursive($dir)) { // For remove dir and meta
								$this->error = $langs->trans("ErrorCanNotDeleteDir", $dir);
								$this->db->rollback();
								return 0;
							}
						}
					}

					$this->db->commit();
					return 1;
				} else {
					$this->error = $this->db->lasterror() . " sql=" . $sql;
					dol_syslog(get_class($this) . "::delete " . $this->error, LOG_ERR);
					$this->db->rollback();
					return -6;
				}
			} else {
				$this->error = $this->db->lasterror() . " sql=" . $sql;
				dol_syslog(get_class($this) . "::delete " . $this->error, LOG_ERR);
				$this->db->rollback();
				return -4;
			}
		} else {
			$this->error = $this->db->lasterror();
			dol_syslog(get_class($this) . "::delete " . $this->error, LOG_ERR);
			$this->db->rollback();
			return -2;
		}
	}

	/**
	 * 	Renvoi une date limite de reglement de facture en fonction des
	 * 	conditions de reglements de la facture et date de facturation
	 *
	 * 	@param      string	$cond_reglement   	Condition of payment (code or id) to use. If 0, we use current condition.
	 * 	@return     date     			       	Date limite de reglement si ok, <0 si ko
	 */
	function calculate_date_lim_reglement($cond_reglement = 0) {

		if (empty($cond_reglement))
			$cond_reglement = $this->cond_reglement_code;

		$data = $this->fk_extrafields->fields->cond_reglement_code->values->{$cond_reglement};

		$cdr_nbjour = $data->nbjour;
		$cdr_fdm = $data->fdm;
		$cdr_decalage = $data->decalage;

		/* Definition de la date limite */

		// 1 : ajout du nombre de jours
		$datelim = $this->date + ($cdr_nbjour * 3600 * 24);

		// 2 : application de la regle "fin de mois"
		if ($cdr_fdm) {
			$mois = date('m', $datelim);
			$annee = date('Y', $datelim);
			if ($mois == 12) {
				$mois = 1;
				$annee += 1;
			} else {
				$mois += 1;
			}
			// On se deplace au debut du mois suivant, et on retire un jour
			$datelim = dol_mktime(12, 0, 0, $mois, 1, $annee);
			$datelim -= (3600 * 24);
		}

		// 3 : application du decalage
		$datelim += ($cdr_decalage * 3600 * 24);

		return $datelim;
	}

	/**
	 *  Tag la facture comme paye completement (close_code non renseigne) ou partiellement (close_code renseigne) + appel trigger BILL_PAYED
	 *
	 *  @param	User	$user      	Objet utilisateur qui modifie
	 * 	@param  string	$close_code	Code renseigne si on classe a payee completement alors que paiement incomplet (cas escompte par exemple)
	 * 	@param  string	$close_note	Commentaire renseigne si on classe a payee alors que paiement incomplet (cas escompte par exemple)
	 *  @return int         		<0 if KO, >0 if OK
	 */
	function set_paid($user, $close_code = '', $close_note = '') {
		global $conf, $langs;
		$error = 0;
		if ($close_code)
			$this->Status = "PAID_PARTIALLY";
		else $this->Status = "PAID";
		$this->record();
		// Appel des triggers
		include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
		$interface = new Interfaces($this->db);
		$result = $interface->run_triggers('BILL_PAYED', $this, $user, $langs, $conf);
		if ($result < 0) {
			$error++;
			$this->errors = $interface->errors;
		}
		// Fin appel triggers
		return 1;

		if ($this->paye != 1) {
			$this->db->begin();

			dol_syslog(get_class($this) . "::set_paid rowid=" . $this->id, LOG_DEBUG);
			$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'facture SET';
			$sql.= ' fk_statut=2';
			if (!$close_code)
				$sql.= ', paye=1';
			if ($close_code)
				$sql.= ", close_code='" . $this->db->escape($close_code) . "'";
			if ($close_note)
				$sql.= ", close_note='" . $this->db->escape($close_note) . "'";
			$sql.= ' WHERE rowid = ' . $this->id;

			$resql = $this->db->query($sql);
			if ($resql) {
				// Appel des triggers
				include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
				$interface = new Interfaces($this->db);
				$result = $interface->run_triggers('BILL_PAYED', $this, $user, $langs, $conf);
				if ($result < 0) {
					$error++;
					$this->errors = $interface->errors;
				}
				// Fin appel triggers
			} else {
				$error++;
				$this->error = $this->db->error();
				dol_print_error($this->db);
			}

			if (!$error) {
				$this->db->commit();
				return 1;
			} else {
				$this->db->rollback();
				return -1;
			}
		} else {
			return 0;
		}
	}

	/**
	 *  Tag la facture comme non payee completement + appel trigger BILL_UNPAYED
	 * 	Fonction utilisee quand un paiement prelevement est refuse,
	 * 	ou quand une facture annulee et reouverte.
	 *
	 *  @param	User	$user       Object user that change status
	 *  @return int         		<0 if KO, >0 if OK
	 */
	function set_unpaid($user) {
		global $conf, $langs;
		$error = 0;
		if ($this->getSommePaiement() > 0)
			$this->Status = "STARTED";
		else
			$this->Status = "NOT_PAID";
		$this->record();
		// Appel des triggers
		include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
		$interface = new Interfaces($this->db);
		$result = $interface->run_triggers('BILL_UNPAYED', $this, $user, $langs, $conf);
		if ($result < 0) {
			$error++;
			$this->errors = $interface->errors;
		}
		// Fin appel triggers
		return 1;
		$this->db->begin();

		$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'facture';
		$sql.= ' SET paye=0, fk_statut=1, close_code=null, close_note=null';
		$sql.= ' WHERE rowid = ' . $this->id;

		dol_syslog(get_class($this) . "::set_unpaid sql=" . $sql);
		$resql = $this->db->query($sql);
		if ($resql) {
			// Appel des triggers
			include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
			$interface = new Interfaces($this->db);
			$result = $interface->run_triggers('BILL_UNPAYED', $this, $user, $langs, $conf);
			if ($result < 0) {
				$error++;
				$this->errors = $interface->errors;
			}
			// Fin appel triggers
		} else {
			$error++;
			$this->error = $this->db->error();
			dol_print_error($this->db);
		}

		if (!$error) {
			$this->db->commit();
			return 1;
		} else {
			$this->db->rollback();
			return -1;
		}
	}

	/**
	 * 	Tag invoice as canceled, with no payment on it (example for replacement invoice or payment never received) + call trigger BILL_CANCEL
	 * 	Warning, if option to decrease stock on invoice was set, this function does not change stock (it might be a cancel because
	 *  of no payment even if merchandises were sent).
	 *
	 * 	@param	User	$user        	Object user making change
	 * 	@param	string	$close_code		Code de fermeture
	 * 	@param	string	$close_note		Comment
	 * 	@return int         			<0 if KO, >0 if OK
	 */
	function set_canceled($user, $close_code = '', $close_note = '') {
		global $conf, $langs;

		$error = 0;
		$this->Status = "CANCELED";
		$this->record();
		// Appel des triggers
		include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
		$interface = new Interfaces($this->db);
		$result = $interface->run_triggers('BILL_CANCEL', $this, $user, $langs, $conf);
		if ($result < 0) {
			$error++;
			$this->errors = $interface->errors;
		}
		// Fin appel triggers
		return 1;

		dol_syslog(get_class($this) . "::set_canceled rowid=" . $this->id, LOG_DEBUG);

		$this->db->begin();

		$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'facture SET';
		$sql.= ' fk_statut=3';
		if ($close_code)
			$sql.= ", close_code='" . $this->db->escape($close_code) . "'";
		if ($close_note)
			$sql.= ", close_note='" . $this->db->escape($close_note) . "'";
		$sql.= ' WHERE rowid = ' . $this->id;

		$resql = $this->db->query($sql);
		if ($resql) {
			// On desaffecte de la facture les remises liees
			// car elles n'ont pas ete utilisees vu que la facture est abandonnee.
			$sql = 'UPDATE ' . MAIN_DB_PREFIX . 'societe_remise_except';
			$sql.= ' SET fk_facture = NULL';
			$sql.= ' WHERE fk_facture = ' . $this->id;

			$resql = $this->db->query($sql);
			if ($resql) {
				// Appel des triggers
				include_once DOL_DOCUMENT_ROOT . '/core/class/interfaces.class.php';
				$interface = new Interfaces($this->db);
				$result = $interface->run_triggers('BILL_CANCEL', $this, $user, $langs…