discount.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2005      Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2018 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2024      Alexandre Janniaux   <alexandre.janniaux@gmail.com>
 * Copyright (C) 2024-2026  Frédéric France             <frederic.france@free.fr>
 * Copyright (C) 2024-2026  MDW             <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024   Noé Cendrier    <noe.cendrier@altairis.fr>
 * Copyright (C) 2026   Vincent de Grandpré <vincent@de-grandpre.quebec>
 *
 * 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 <https://www.gnu.org/licenses/>.
 */
 
require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';
 
class DiscountAbsolute extends CommonObject
{
  public $fk_soc;
  public $socid;
 
  public $discount_type; // 0 => customer discount, 1 => supplier discount
 
  public $total_ht;
  public $total_tva;
  public $total_ttc;
  public $amount_ht;  // deprecated
  public $amount_tva; // deprecated
  public $amount_ttc; // deprecated
 
  public $multicurrency_total_ht;
  public $multicurrency_total_tva;
  public $multicurrency_total_ttc;
  public $multicurrency_amount_ht;  // deprecated
  public $multicurrency_amount_tva; // deprecated
  public $multicurrency_amount_ttc; // deprecated
 
  public $multicurrency_subprice;
 
  public $fk_invoice_supplier;
 
  public $fk_invoice_supplier_line;
 
  public $tva_tx;
  public $localtax1_tx;
  public $localtax2_tx;
  public $localtax1_type;
  public $localtax2_type;
  public $vat_src_code;
 
  public $fk_user;
 
  public $description;
 
  public $datec;
 
  public $fk_facture_line;
 
  public $fk_facture;
 
  public $fk_facture_source;
  public $ref_facture_source; // Ref credit note or deposit used to create the discount
  public $type_facture_source;
 
  public $fk_invoice_supplier_source;
  public $ref_invoice_supplier_source; // Ref credit note or deposit used to create the discount
  public $type_invoice_supplier_source;
 
  /* Customer Discount */
  const TYPE_CUSTOMER = 0;
 
  /* Supplier Discount */
  const TYPE_SUPPLIER = 1;
 
  public function __construct($db)
  {
    $this->db = $db;
  }
 
 
  public function fetch($rowid, $fk_facture_source = 0, $fk_invoice_supplier_source = 0)
  {
    // Check parameters
    if (!$rowid && !$fk_facture_source && !$fk_invoice_supplier_source) {
      $this->error = 'ErrorBadParameters';
      return -1;
    }
 
    $sql = "SELECT sr.rowid, sr.fk_soc, sr.discount_type,";
    $sql .= " sr.fk_user,";
    $sql .= " sr.amount_ht, sr.amount_tva, sr.amount_localtax1, sr.amount_localtax2, sr.amount_ttc, sr.tva_tx, sr.localtax1_tx, sr.localtax1_type, sr.localtax2_tx, sr.localtax2_type, sr.vat_src_code,";
    $sql .= " sr.multicurrency_amount_ht, sr.multicurrency_amount_tva, sr.multicurrency_amount_ttc,";
    $sql .= " sr.fk_facture_line, sr.fk_facture, sr.fk_facture_source, sr.fk_invoice_supplier_line, sr.fk_invoice_supplier, sr.fk_invoice_supplier_source, sr.description,";
    $sql .= " sr.datec,";
    $sql .= " f.ref as ref_facture_source, f.type as type_facture_source,";
    $sql .= " fsup.ref as ref_invoice_supplier_source, fsup.type as type_invoice_supplier_source";
    $sql .= " FROM ".$this->db->prefix()."societe_remise_except as sr";
    $sql .= " LEFT JOIN ".$this->db->prefix()."facture as f ON sr.fk_facture_source = f.rowid";
    $sql .= " LEFT JOIN ".$this->db->prefix()."facture_fourn as fsup ON sr.fk_invoice_supplier_source = fsup.rowid";
    $sql .= " WHERE sr.entity IN (".getEntity('invoice').")";
    if ($rowid) {
      $sql .= " AND sr.rowid = ".((int) $rowid);
    }
    if ($fk_facture_source) {
      $sql .= " AND sr.fk_facture_source = ".((int) $fk_facture_source);
    }
    if ($fk_invoice_supplier_source) {
      $sql .= " AND sr.fk_invoice_supplier_source = ".((int) $fk_invoice_supplier_source);
    }
 
    dol_syslog(get_class($this)."::fetch", LOG_DEBUG);
    $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->socid = $obj->fk_soc;
        $this->discount_type = $obj->discount_type;
 
        $this->total_ht = $obj->amount_ht;
        $this->total_tva = $obj->amount_tva;
        $this->total_localtax1 = $obj->amount_localtax1;
        $this->total_localtax2 = $obj->amount_localtax2;
        $this->total_ttc = $obj->amount_ttc;
        // For backward compatibility
        $this->amount_ht = $this->total_ht;
        $this->amount_tva = $this->total_tva;
        $this->amount_ttc = $this->total_ttc;
 
        $this->multicurrency_total_ht = $this->multicurrency_subprice = $obj->multicurrency_amount_ht;
        $this->multicurrency_total_tva = $obj->multicurrency_amount_tva;
        $this->multicurrency_total_ttc = $obj->multicurrency_amount_ttc;
        // For backward compatibility
        $this->multicurrency_amount_ht = $this->multicurrency_total_ht;
        $this->multicurrency_amount_tva = $this->multicurrency_total_tva;
        $this->multicurrency_amount_ttc = $this->multicurrency_total_ttc;
 
        $this->tva_tx = $obj->tva_tx;
        $this->localtax1_tx = $obj->localtax1_tx;
        $this->localtax1_type = $obj->localtax1_type;
        $this->localtax2_tx = $obj->localtax2_tx;
        $this->localtax2_type = $obj->localtax2_type;
        $this->vat_src_code = $obj->vat_src_code;
 
        $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 credit note or deposit source
        $this->ref_facture_source = $obj->ref_facture_source; // Ref credit note or deposit  source
        $this->type_facture_source = $obj->type_facture_source; // Type credit note or deposit  source
        $this->fk_invoice_supplier_line = $obj->fk_invoice_supplier_line;
        $this->fk_invoice_supplier = $obj->fk_invoice_supplier;
        $this->fk_invoice_supplier_source = $obj->fk_invoice_supplier_source; // Id credit note or deposit source
        $this->ref_invoice_supplier_source = $obj->ref_invoice_supplier_source; // Ref credit note or deposit  source
        $this->type_invoice_supplier_source = $obj->type_invoice_supplier_source; // Type credit note or deposit  source
        $this->description = $obj->description;
        $this->datec = $this->db->jdate($obj->datec);
 
        $this->db->free($resql);
        return 1;
      } else {
        $this->db->free($resql);
        return 0;
      }
    } else {
      $this->error = $this->db->error();
      return -1;
    }
  }
 
 
  public function create($user)
  {
    global $conf;
 
    // Clean parameters
    $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);
    $this->localtax1_tx = price2num($this->localtax1_tx);
    $this->localtax1_type = price2num($this->localtax1_type);
    $this->localtax2_tx = price2num($this->localtax2_tx);
    $this->localtax2_type = price2num($this->localtax2_type);
 
    $this->multicurrency_amount_ht = price2num($this->multicurrency_amount_ht);
    $this->multicurrency_amount_tva = price2num($this->multicurrency_amount_tva);
    $this->multicurrency_amount_ttc = price2num($this->multicurrency_amount_ttc);
 
    if (empty($this->multicurrency_amount_ht)) {
      $this->multicurrency_amount_ht = 0;
    }
    if (empty($this->multicurrency_amount_tva)) {
      $this->multicurrency_amount_tva = 0;
    }
    if (empty($this->multicurrency_amount_ttc)) {
      $this->multicurrency_amount_ttc = 0;
    }
    if (empty($this->tva_tx)) {
      $this->tva_tx = 0;
    }
    if (empty($this->localtax1_tx)) {
      $this->localtax1_tx = 0;
      $this->localtax1_type = 0;
    }
    if (empty($this->localtax2_tx)) {
      $this->localtax2_tx = 0;
      $this->localtax2_type = 0;
    }
 
    // Check parameters
    if (empty($this->description)) {
      $this->error = 'BadValueForPropertyDescriptionOfDiscount';
      dol_syslog(get_class($this)."::create ".$this->error, LOG_ERR);
      return -1;
    }
 
    $userid = $user->id;
    if (!($userid > 0)) {   // For example when record is saved into an anonymous context with a not loaded object $user.
      include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
      $tmpinvoice = new Facture($this->db);
      $tmpinvoice->fetch($this->fk_facture_source);
      $userid = $tmpinvoice->user_creation_id; // We use the author of invoice
    }
 
    // Insert request
    $sql = "INSERT INTO ".$this->db->prefix()."societe_remise_except";
    $sql .= " (entity, datec, fk_soc, discount_type, fk_user, description,";
    $sql .= " amount_ht, amount_tva, amount_localtax1, amount_localtax2, amount_ttc, tva_tx, localtax1_tx, localtax1_type, localtax2_tx, localtax2_type, vat_src_code,";
    $sql .= " multicurrency_amount_ht, multicurrency_amount_tva, multicurrency_amount_ttc,";
    $sql .= " fk_facture_source, fk_invoice_supplier_source, multicurrency_code, multicurrency_tx";
    $sql .= ")";
    $sql .= " VALUES (".((int) $conf->entity).", '".$this->db->idate($this->datec != '' ? $this->datec : dol_now())."', ".((int) $this->socid).", ".(empty($this->discount_type) ? 0 : intval($this->discount_type)).", ".((int) $userid).", '".$this->db->escape($this->description)."',";
    $sql .= " ".price2num($this->amount_ht).", ".price2num($this->amount_tva).", ";
    $sql .= " ".($this->total_localtax1 ? price2num($this->total_localtax1) : 0).", ".($this->total_localtax2 ? price2num($this->total_localtax2) : 0).", ".price2num($this->amount_ttc).", ".price2num($this->tva_tx).",";
    $sql .= " ".($this->localtax1_tx ? price2num($this->localtax1_tx) : 0).", ".($this->localtax1_type ? price2num($this->localtax1_type) : 0).", ";
    $sql .= " ".($this->localtax2_tx ? price2num($this->localtax2_tx) : 0).", ".($this->localtax2_type ? price2num($this->localtax2_type) : 0).", '".$this->db->escape($this->vat_src_code)."',";
    $sql .= " ".price2num($this->multicurrency_amount_ht).", ".price2num($this->multicurrency_amount_tva).", ";
    $sql .= " ".price2num($this->multicurrency_amount_ttc).", ";
    $sql .= " ".($this->fk_facture_source ? ((int) $this->fk_facture_source) : "null").",";
    $sql .= " ".($this->fk_invoice_supplier_source ? ((int) $this->fk_invoice_supplier_source) : "null").",";
    $sql .= " ".($this->multicurrency_code ? "'".$this->db->escape($this->multicurrency_code)."'" : "null").",";
    $sql .= " ".($this->multicurrency_tx ? price2num($this->multicurrency_tx) : "null");
    $sql .= ")";
 
    dol_syslog(get_class($this)."::create", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $this->id = $this->db->last_insert_id($this->db->prefix()."societe_remise_except");
 
      // Call trigger
      $result = $this->call_trigger('DISCOUNTABSOLUTE_CREATE', $user);
      if ($result < 0) {
        return -1;
      }
      // End call triggers
 
      return $this->id;
    } else {
      $this->error = $this->db->lasterror().' - sql='.$sql;
      return -1;
    }
  }
 
 
  public function delete($user)
  {
    // Check if we can remove the discount
    if ($this->fk_facture_source) {
      $sql = "SELECT COUNT(rowid) as nb";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except";
      $sql .= " WHERE (fk_facture_line IS NOT NULL"; // Not used as absolute simple discount
      $sql .= " OR fk_facture IS NOT NULL)"; // Not used as credit note and not used as deposit
      $sql .= " AND fk_facture_source = ".((int) $this->fk_facture_source);
      //$sql.=" AND rowid != ".((int) $this->id);
 
      dol_syslog(get_class($this)."::delete Check if we can remove discount", LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        $obj = $this->db->fetch_object($resql);
        if ($obj->nb > 0) {
          $this->error = 'ErrorThisPartOrAnotherIsAlreadyUsedSoDiscountSerieCantBeRemoved';
          return -2;
        }
      } else {
        dol_print_error($this->db);
        return -1;
      }
    }
 
    // Check if we can remove the discount
    if ($this->fk_invoice_supplier_source) {
      $sql = "SELECT COUNT(rowid) as nb";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except";
      $sql .= " WHERE (fk_invoice_supplier_line IS NOT NULL"; // Not used as absolute simple discount
      $sql .= " OR fk_invoice_supplier IS NOT NULL)"; // Not used as credit note and not used as deposit
      $sql .= " AND fk_invoice_supplier_source = ".((int) $this->fk_invoice_supplier_source);
      //$sql.=" AND rowid != ".((int) $this->id);
 
      dol_syslog(get_class($this)."::delete Check if we can remove discount", LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        $obj = $this->db->fetch_object($resql);
        if ($obj->nb > 0) {
          $this->error = 'ErrorThisPartOrAnotherIsAlreadyUsedSoDiscountSerieCantBeRemoved';
          return -2;
        }
      } else {
        dol_print_error($this->db);
        return -1;
      }
    }
 
    $this->db->begin();
 
    // Delete but only if not used
    $sql = "DELETE FROM ".$this->db->prefix()."societe_remise_except ";
    if ($this->fk_facture_source) {
      $sql .= " WHERE fk_facture_source = ".((int) $this->fk_facture_source); // Delete all lines of same series
    } elseif ($this->fk_invoice_supplier_source) {
      $sql .= " WHERE fk_invoice_supplier_source = ".((int) $this->fk_invoice_supplier_source); // Delete all lines of same series
    } else {
      $sql .= " WHERE rowid = ".((int) $this->id); // Delete only line
    }
    $sql .= " AND (fk_facture_line IS NULL"; // Not used as absolute simple discount
    $sql .= " AND fk_facture IS NULL)"; // Not used as credit note and not used as deposit
    $sql .= " AND (fk_invoice_supplier_line IS NULL"; // Not used as absolute simple discount
    $sql .= " AND fk_invoice_supplier IS NULL)"; // Not used as credit note and not used as deposit
 
    dol_syslog(get_class($this)."::delete Delete discount", LOG_DEBUG);
 
    require_once DOL_DOCUMENT_ROOT. '/core/class/commoninvoice.class.php';
    $result = $this->db->query($sql);
    if ($result) {
      // If source of discount was a credit note or deposit, we change source statut.
      if ($this->fk_facture_source) {
        $sql = "UPDATE ".$this->db->prefix()."facture";
        $sql .= " set paye=0, fk_statut=1";
        $sql .= " WHERE type IN (".$this->db->sanitize(CommonInvoice::TYPE_CREDIT_NOTE.", ".CommonInvoice::TYPE_DEPOSIT).") AND rowid = ".((int) $this->fk_facture_source);
 
        dol_syslog(get_class($this)."::delete Update credit note or deposit invoice statut", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result) {
          $this->db->commit();
          return 1;
        } else {
          $this->error = $this->db->lasterror();
          $this->db->rollback();
          return -1;
        }
      } elseif ($this->fk_invoice_supplier_source) {
        $sql = "UPDATE ".$this->db->prefix()."facture_fourn";
        $sql .= " set paye=0, fk_statut=1";
        $sql .= " WHERE type IN (".$this->db->sanitize(CommonInvoice::TYPE_CREDIT_NOTE.", ".CommonInvoice::TYPE_DEPOSIT).") AND rowid = ".((int) $this->fk_invoice_supplier_source);
 
        dol_syslog(get_class($this)."::delete Update credit note or deposit invoice statut", LOG_DEBUG);
        $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;
    }
  }
 
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function link_to_invoice($rowidline, $rowidinvoice, $notrigger = 0)
  {
    // phpcs:enable
    global $user;
 
    // Check parameters
    if (!$rowidline && !$rowidinvoice) {
      $this->error = 'ErrorBadParameters';
      return -1;
    }
    if ($rowidline && $rowidinvoice) {
      $this->error = 'ErrorBadParameters';
      return -2;
    }
 
    $sql = "UPDATE ".$this->db->prefix()."societe_remise_except";
    if (!empty($this->discount_type)) {
      if ($rowidline) {
        $sql .= " SET fk_invoice_supplier_line = ".((int) $rowidline);
      }
      if ($rowidinvoice) {
        $sql .= " SET fk_invoice_supplier = ".((int) $rowidinvoice);
      }
    } else {
      if ($rowidline) {
        $sql .= " SET fk_facture_line = ".((int) $rowidline);
      }
      if ($rowidinvoice) {
        $sql .= " SET fk_facture = ".((int) $rowidinvoice);
      }
    }
    $sql .= " WHERE rowid = ".((int) $this->id);
 
    dol_syslog(get_class($this)."::link_to_invoice", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      if (!empty($this->discount_type)) {
        $this->fk_invoice_supplier_line = $rowidline;
        $this->fk_invoice_supplier = $rowidinvoice;
      } else {
        $this->fk_facture_line = $rowidline;
        $this->fk_facture = $rowidinvoice;
      }
 
      // If a discount comes from a source invoice (deposit/credit note/excess) and is applied to another invoice,
      // also create a link between the source invoice and the target invoice.
      if ($rowidinvoice) {
        $sourcetype = '';
        $targettype = '';
        $sourceinvoiceid = 0;
 
        if (!empty($this->discount_type)) {
          $sourcetype = 'invoice_supplier';
          $targettype = 'invoice_supplier';
          $sourceinvoiceid = (int) $this->fk_invoice_supplier_source;
        } else {
          $sourcetype = 'facture';
          $targettype = 'facture';
          $sourceinvoiceid = (int) $this->fk_facture_source;
        }
 
        if ($sourceinvoiceid > 0 && $sourceinvoiceid !== (int) $rowidinvoice) {
          $sqlcheck = "SELECT 1";
          $sqlcheck .= " FROM ".$this->db->prefix()."element_element";
          $sqlcheck .= " WHERE fk_source = ".((int) $sourceinvoiceid);
          $sqlcheck .= " AND sourcetype = '".$this->db->escape($sourcetype)."'";
          $sqlcheck .= " AND fk_target = ".((int) $rowidinvoice);
          $sqlcheck .= " AND targettype = '".$this->db->escape($targettype)."'";
          $sqlcheck .= $this->db->plimit(1);
 
          $rescheck = $this->db->query($sqlcheck);
          if ($rescheck && $this->db->num_rows($rescheck) === 0) {
            $sqladd = "INSERT INTO ".$this->db->prefix()."element_element (fk_source, sourcetype, fk_target, targettype)";
            $sqladd .= " VALUES (".((int) $sourceinvoiceid).", '".$this->db->escape($sourcetype)."', ".((int) $rowidinvoice).", '".$this->db->escape($targettype)."')";
            $this->db->query($sqladd); // Best-effort: do not fail discount link if object link can't be created.
          }
        }
      }
 
      if (!$notrigger) {
        // Call trigger
        $result = $this->call_trigger('DISCOUNT_MODIFY', $user);
        if ($result < 0) {
          return -2;
        }
        // End call triggers
      }
      return 1;
    } else {
      $this->error = $this->db->error();
      return -3;
    }
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function unlink_invoice($notrigger = 0)
  {
    // phpcs:enable
    global $user;
 
    $sql = "UPDATE ".$this->db->prefix()."societe_remise_except";
    if (!empty($this->discount_type)) {
      $sql .= " SET fk_invoice_supplier_line = NULL, fk_invoice_supplier = NULL";
    } else {
      $sql .= " SET fk_facture_line = NULL, fk_facture = NULL";
    }
    $sql .= " WHERE rowid = ".((int) $this->id);
 
    dol_syslog(get_class($this)."::unlink_invoice", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      if (!$notrigger) {
        // Call trigger
        $result = $this->call_trigger('DISCOUNT_MODIFY', $user);
        if ($result < 0) {
          return -2;
        }
        // End call triggers
      }
      return 1;
    } else {
      $this->error = $this->db->error();
      return -3;
    }
  }
 
 
  public function getAvailableDiscounts($company = null, $user = null, $filter = '', $maxvalue = 0, $discount_type = 0, $multicurrency = 0)
  {
    global $conf, $hookmanager;
 
    dol_syslog(get_class($this)."::getAvailableDiscounts discount_type=".$discount_type, LOG_DEBUG);
 
    $parameters = array(
      'company' => $company,
      'user' => $user,
      'filter' => $filter,
      'maxvalue' => $maxvalue,
      'discount_type' => $discount_type,
      'multicurrency' => $multicurrency
    );
 
    $reshook = $hookmanager->executeHooks('getAvailableDiscounts', $parameters);
    if (empty($reshook)) {
      $sql = "SELECT SUM(rc.amount_ttc) as amount, SUM(rc.multicurrency_amount_ttc) as multicurrency_amount";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except as rc";
      $sql .= " WHERE rc.entity = ".((int) $conf->entity);
      $sql .= " AND rc.discount_type=".((int) $discount_type);
      if (!empty($discount_type)) {
        $sql .= " AND (rc.fk_invoice_supplier IS NULL AND rc.fk_invoice_supplier_line IS NULL)"; // Available from supplier
      } else {
        $sql .= " AND (rc.fk_facture IS NULL AND rc.fk_facture_line IS NULL)"; // Available to customer
      }
      if (is_object($company)) {
        $sql .= " AND rc.fk_soc = ".((int) $company->id);
      }
      if (is_object($user)) {
        $sql .= " AND rc.fk_user = ".((int) $user->id);
      }
      if ($filter) {
        $sql .= " AND (".$filter.")";  // @phan-suppress-current-line SqlInjection
      }
      if ($maxvalue) {
        $sql .= ' AND rc.amount_ttc <= '.((float) price2num($maxvalue));
      }
    } else {
      $sql = $hookmanager->resArray['sql'];
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      //while ($obj)
      //{
      //print 'zz'.$obj->amount;
      //$obj = $this->db->fetch_object($resql);
      //}
      if ($multicurrency) {
        return $obj->multicurrency_amount;
      }
 
      return $obj->amount;
    }
    return -1;
  }
 
  public function getSumDepositsUsed($invoice, $multicurrency = 0)
  {
    dol_syslog(get_class($this)."::getSumDepositsUsed", LOG_DEBUG);
 
    if ($invoice->element == 'facture' || $invoice->element == 'invoice') {
      $sql = "SELECT sum(rc.amount_ttc) as amount, sum(rc.multicurrency_amount_ttc) as multicurrency_amount";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except as rc, ".$this->db->prefix()."facture as f";
      $sql .= " WHERE rc.fk_facture_source=f.rowid AND rc.fk_facture = ".((int) $invoice->id);
      $sql .= " AND f.type = ". (int) $invoice::TYPE_DEPOSIT;
    } elseif ($invoice->element == 'invoice_supplier') {
      $sql = "SELECT sum(rc.amount_ttc) as amount, sum(rc.multicurrency_amount_ttc) as multicurrency_amount";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except as rc, ".$this->db->prefix()."facture_fourn as f";
      $sql .= " WHERE rc.fk_invoice_supplier_source=f.rowid AND rc.fk_invoice_supplier = ".((int) $invoice->id);
      $sql .= " AND f.type = ". (int) $invoice::TYPE_DEPOSIT;
    } else {
      $this->error = get_class($this)."::getSumDepositsUsed was called with a bad object as a first parameter";
      dol_print_error($this->db, $this->error);
      return -1;
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      if ($multicurrency == 1) {
        return $obj->multicurrency_amount;
      } else {
        return $obj->amount;
      }
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }
  }
 
  public function getSumCreditNotesUsed($invoice, $multicurrency = 0)
  {
    dol_syslog(get_class($this)."::getSumCreditNotesUsed", LOG_DEBUG);
 
    if ($invoice->element == 'facture' || $invoice->element == 'invoice') {
      $sql = "SELECT sum(rc.amount_ttc) as amount, sum(rc.multicurrency_amount_ttc) as multicurrency_amount";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except as rc, ".$this->db->prefix()."facture as f";
      $sql .= " WHERE rc.fk_facture_source=f.rowid AND rc.fk_facture = ".((int) $invoice->id);
      $sql .= " AND f.type IN (".$this->db->sanitize($invoice::TYPE_STANDARD.", ".$invoice::TYPE_CREDIT_NOTE.", ".$invoice::TYPE_SITUATION).")"; // Find discount coming from credit note or excess received
    } elseif ($invoice->element == 'invoice_supplier') {
      $sql = "SELECT sum(rc.amount_ttc) as amount, sum(rc.multicurrency_amount_ttc) as multicurrency_amount";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except as rc, ".$this->db->prefix()."facture_fourn as f";
      $sql .= " WHERE rc.fk_invoice_supplier_source=f.rowid AND rc.fk_invoice_supplier = ".((int) $invoice->id);
      $sql .= " AND f.type IN (".$this->db->sanitize($invoice::TYPE_STANDARD.", ".$invoice::TYPE_CREDIT_NOTE).")"; // Find discount coming from credit note or excess paid
    } else {
      $this->error = get_class($this)."::getSumCreditNotesUsed was called with a bad object as a first parameter";
      dol_print_error($this->db, $this->error);
      return 'ErrorBadElementType';
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      if ($multicurrency == 1) {
        return $obj->multicurrency_amount;
      } else {
        return $obj->amount;
      }
    } else {
      $this->error = $this->db->lasterror();
      return 'ErrorBadSQLquery';
    }
  }
  public function getSumFromThisCreditNotesNotUsed($invoice, $multicurrency = 0)
  {
    dol_syslog(get_class($this)."::getSumCreditNotesUsed", LOG_DEBUG);
 
    if ($invoice->element == 'facture' || $invoice->element == 'invoice') {
      $sql = "SELECT sum(rc.amount_ttc) as amount, sum(rc.multicurrency_amount_ttc) as multicurrency_amount";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except as rc";
      $sql .= " WHERE rc.fk_facture IS NULL AND rc.fk_facture_source = ".((int) $invoice->id);
    } elseif ($invoice->element == 'invoice_supplier') {
      $sql = "SELECT sum(rc.amount_ttc) as amount, sum(rc.multicurrency_amount_ttc) as multicurrency_amount";
      $sql .= " FROM ".$this->db->prefix()."societe_remise_except as rc";
      $sql .= " WHERE rc.fk_invoice_supplier IS NULL AND rc.fk_invoice_supplier_source = ".((int) $invoice->id);
    } else {
      $this->error = get_class($this)."::getSumCreditNotesUsed was called with a bad object as a first parameter";
      dol_print_error($this->db, $this->error);
      return -1;
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      if ($multicurrency) {
        return $obj->multicurrency_amount;
      } else {
        return $obj->amount;
      }
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }
  }
 
  public function getNomUrl($withpicto = 0, $option = 'invoice')
  {
    global $langs;
 
    $result = '';
    $link = '';
    $linkend = '';
    $label = '';
    $picto = '';
    $ref = '';
 
    if ($option == 'invoice') {
      $facid = !empty($this->discount_type) ? $this->fk_invoice_supplier_source : $this->fk_facture_source;
      $link = !empty($this->discount_type) ? '/fourn/facture/card.php' : '/compta/facture/card.php';
      $label = $langs->trans("ShowSourceInvoice").': '.$this->ref_facture_source;
      $link = '<a href="'.DOL_URL_ROOT.$link.'?facid='.$facid.'" title="'.dol_escape_htmltag($label, 1).'" class="classfortooltip">';
      $linkend = '</a>';
      $ref = !empty($this->discount_type) ? $this->ref_invoice_supplier_source : $this->ref_facture_source;
      $picto = 'bill';
    }
    if ($option == 'discount') {
      $label = $langs->trans("Discount");
      $link = '<a href="'.DOL_URL_ROOT.'/comm/remx.php?id='.$this->socid.'" title="'.dol_escape_htmltag($label, 1).'" class="classfortooltip">';
      $linkend = '</a>';
      $ref = $langs->trans("Discount");
      $picto = 'generic';
    }
 
 
    if ($withpicto) {
      $result .= ($link.img_object($label, $picto, 'class="classfortooltip"').$linkend);
    }
    if ($withpicto && $withpicto != 2) {
      $result .= ' ';
    }
    $result .= $link.$ref.$linkend;
    return $result;
  }
 
 
  public function initAsSpecimen()
  {
    $this->socid          = 1;
    $this->amount_ht      = 10;
    $this->amount_tva     = 1.96;
    $this->amount_ttc     = 11.96;
    $this->tva_tx         = 19.6;
    $this->description    = 'Specimen discount';
 
    return 1;
  }
 
  public function generateFromAmount($amount, $amount_type, $tva_tx, $localtax1_tx, $localtax2_tx, $localtax1_type = 1, $localtax2_type = 1)
  {
    $tva_tx_pct = (float) ($tva_tx / 100);
    $localtax1_tx_pct = (float) ($localtax1_tx / 100);
    $localtax2_tx_pct = (float) ($localtax2_tx / 100);
 
    $err = 0;
 
    //var_dump("amount=$amount, amount_type=$amount_type, tva_tx=$tva_tx, localtax1_tx=$localtax1_tx, localtax2_tx=$localtax2_tx, localtax1_type=$localtax1_type, localtax2_type=$localtax2_type");
 
    // Test if localtax type is 2, 4 or 6 (loca tax are calculated on ht + vat)
    $localtax1_type2 = ((int) $localtax1_type > 0 && (int) $localtax1_type % 2 == 0 ? 1 : 0);
    $localtax2_type2 = ((int) $localtax2_type > 0 && (int) $localtax2_type % 2 == 0 ? 1 : 0);
 
    if ($amount_type == 1) {
      // TTC
      $this->total_ttc = (float) price2num($amount, 'MT');
 
      $ttc = (float) $this->total_ttc;
 
      // Calculate lt1 and/or lt2 = taxes added after VAT
      $lt1 = 0;
      $lt2 = 0;
      $tx_before_vat = 0;
      $tx_before_vat_without1 = 0;
      $tx_before_vat_without2 = 0;
      $tx_after_vat = 0;
      $tx_after_vat_without1 = 0;
      $tx_after_vat_without2 = 0;
      if ($localtax1_type2 && $localtax1_tx_pct > 0) {
        $tx_after_vat += $localtax1_tx_pct;
        $tx_after_vat_without2 += $localtax1_tx_pct;
      } else {
        $tx_before_vat += $localtax1_tx_pct;
        $tx_before_vat_without2 += $localtax1_tx_pct;
      }
      if ($localtax2_type2 && $localtax2_tx_pct > 0) {
        $tx_after_vat += $localtax2_tx_pct;
        $tx_after_vat_without1 += $localtax2_tx_pct;
      } else {
        $tx_before_vat += $localtax2_tx_pct;
        $tx_before_vat_without1 += $localtax2_tx_pct;
      }
      $tx_before_vat += $tva_tx_pct;
      $tx_before_vat_without1 += $tva_tx_pct;
      $tx_before_vat_without2 += $tva_tx_pct;
      if ($localtax1_type2 && $localtax1_tx_pct > 0) {
        $lt1 = (float) price2num($ttc - $ttc / (1 + $tx_after_vat) * (1 + $tx_after_vat_without1), 'MT');
      }
      if ($localtax2_type2 && $localtax2_tx_pct > 0) {
        $lt2 = (float) price2num($ttc - $ttc / (1 + $tx_after_vat) * (1 + $tx_after_vat_without2), 'MT');
      }
 
      // lt1 and lt2 if calculated including taxes
      //var_dump("if lt1 or lt2 are calculated including vat: lt1=$lt1 lt2=$lt2");
 
      $htplusbeforevat = $ttc - $lt1 - $lt2;  // $htplusbeforevat = amount with HT + taxes added before VAT
 
      if (!$localtax1_type2 && $localtax1_tx_pct > 0) {
        $lt1 = (float) price2num($htplusbeforevat - $htplusbeforevat / (1 + $tx_before_vat) * (1 + $tx_before_vat_without1), 'MT');
      }
      if (!$localtax2_type2 && $localtax2_tx_pct > 0) {
        $lt2 = (float) price2num($htplusbeforevat - $htplusbeforevat / (1 + $tx_before_vat) * (1 + $tx_before_vat_without2), 'MT');
      }
 
      // lt1 and lt2 are now local taxes (whatever they are calculated before of after vat)
      //var_dump("lt1 or lt2 whatever is calculation mode: lt1=$lt1 lt2=$lt2");
 
      $tva = ($ttc - $lt2 - $lt1) - ($ttc - $lt2 - $lt1) / (1 + $tva_tx_pct);
      $this->total_tva = (float) price2num($tva, 'MT');
      $this->total_localtax1 = $lt1;
      $this->total_localtax2 = $lt2;
      $this->total_ht = (float) price2num($this->total_ttc - $this->total_localtax1 - $this->total_localtax2 - $this->total_tva, 'MT');
 
 
      $this->multicurrency_total_ttc = (float) price2num($amount * (float) $this->multicurrency_tx, 'MT');
      $this->multicurrency_total_ht = (float) price2num((float) $amount / (1 + $tva_tx_pct) * (float) $this->multicurrency_tx, 'MT');
      $this->multicurrency_total_tva = (float) price2num($this->multicurrency_total_ttc - $this->multicurrency_total_ht, 'MT');
    } elseif ($amount_type == 0) {
      // HT
      $this->total_ht = (float) price2num($amount, 'MT');
      $this->total_tva = (float) price2num((float) $this->total_ht * $tva_tx_pct, 'MT');
      //$this->total_ttc = price2num((float) $this->total_ht + (float) $this->total_tva + ..., 'MT');   // Is set later
 
      $this->multicurrency_total_ht = (float) price2num($amount * (float) $this->multicurrency_tx, 'MT');
      $this->multicurrency_total_tva = (float) price2num(((float) $amount * $tva_tx_pct) * (float) $this->multicurrency_tx, 'MT');
      //$this->multicurrency_total_ttc = price2num(((float) $this->total_ht + (float) $this->total_tva + ...) * (float) $this->multicurrency_tx, 'MT'); // Is set later
 
      if ($localtax1_type2 == 0) {
        $this->total_localtax1 = (float) price2num((float) $this->total_ht * $localtax1_tx_pct, 'MT');
      } elseif ($localtax1_type2 == 1) {
        $this->total_localtax1 = (float) price2num(((float) $this->total_ht + (float) $this->total_tva) * $localtax1_tx_pct, 'MT');
      }
 
      if ($localtax2_type2 == 0) {
        $this->total_localtax2 = (float) price2num((float) $this->total_ht * $localtax2_tx_pct, 'MT');
      } elseif ($localtax2_type2 == 1) {
        $this->total_localtax2 = (float) price2num(((float) $this->total_ht + (float) $this->total_tva) * $localtax2_tx_pct, 'MT');
      }
    }
 
    // For backward compatibility
    $this->amount_ht = $this->total_ht;
    $this->amount_tva = $this->total_tva;
    $this->amount_ttc = $this->total_ttc;
    $this->multicurrency_amount_ht = $this->multicurrency_total_ht;
    $this->multicurrency_amount_tva = $this->multicurrency_total_tva;
    $this->multicurrency_amount_ttc = $this->multicurrency_total_ttc;
 
    $this->tva_tx = $tva_tx;
    $this->localtax1_tx = $localtax1_tx;
    $this->localtax1_type = $localtax1_type;
    $this->localtax2_tx = $localtax2_tx;
    $this->localtax2_type = $localtax2_type;
 
    //var_dump("localtax1 mode=$localtax1_type2 localtax2 mode=$localtax2_type2");
 
 
    if (empty($this->total_ttc)) {
      // If the total amount comes from a split discount, we take it as-is
      // because recalculating the total amount from the net amount creates precision errors.
      $this->total_ttc = (float) price2num((float) $this->total_ht + (float) $this->total_tva + $this->total_localtax1 + $this->total_localtax2, 'MT');
      $this->multicurrency_total_ttc = (float) price2num(((float) $this->total_ht + (float) $this->total_tva + $this->total_localtax1 + $this->total_localtax2) * (float) $this->multicurrency_tx, 'MT');
 
      // For backward compatibility
      $this->amount_ttc = $this->total_ttc;
      $this->multicurrency_amount_ttc = $this->multicurrency_total_ttc;
    }
 
    //var_dump("total_ht=".$this->total_ht." total_tva=".$this->total_tva." total_localtax1=".$this->total_localtax1." total_localtax2=".$this->total_localtax2." total_ttc=".$this->total_ttc);
 
    return $err;
  }
 
  public function splitAmount($amount_ttc1, $amount_ttc2)
  {
    // Moved from remx.php :: domain-related operations within action confirm_split
    $newdiscount1 = new DiscountAbsolute($this->db);
    $newdiscount2 = new DiscountAbsolute($this->db);
    $newdiscount1->fk_facture_source = $this->fk_facture_source;
    $newdiscount2->fk_facture_source = $this->fk_facture_source;
    $newdiscount1->fk_facture = $this->fk_facture;
    $newdiscount2->fk_facture = $this->fk_facture;
    $newdiscount1->fk_facture_line = $this->fk_facture_line;
    $newdiscount2->fk_facture_line = $this->fk_facture_line;
    $newdiscount1->fk_invoice_supplier_source = $this->fk_invoice_supplier_source;
    $newdiscount2->fk_invoice_supplier_source = $this->fk_invoice_supplier_source;
    $newdiscount1->fk_invoice_supplier = $this->fk_invoice_supplier;
    $newdiscount2->fk_invoice_supplier = $this->fk_invoice_supplier;
    $newdiscount1->fk_invoice_supplier_line = $this->fk_invoice_supplier_line;
    $newdiscount2->fk_invoice_supplier_line = $this->fk_invoice_supplier_line;
    if ($this->description == '(CREDIT_NOTE)' || $this->description == '(DEPOSIT)') {
      $newdiscount1->description = $this->description;
      $newdiscount2->description = $this->description;
    } else {
      $newdiscount1->description = $this->description.' (1)';
      $newdiscount2->description = $this->description.' (2)';
    }
    $newdiscount1->fk_user = $this->fk_user;
    $newdiscount2->fk_user = $this->fk_user;
    $newdiscount1->fk_soc = $this->fk_soc;
    $newdiscount1->socid = $this->socid;
    $newdiscount2->fk_soc = $this->fk_soc;
    $newdiscount2->socid = $this->socid;
    $newdiscount1->discount_type = $this->discount_type;
    $newdiscount2->discount_type = $this->discount_type;
    $newdiscount1->datec = $this->datec;
    $newdiscount2->datec = $this->datec;
    $newdiscount1->tva_tx = $this->tva_tx;
    $newdiscount2->tva_tx = $this->tva_tx;
    $newdiscount1->localtax1_tx = $this->localtax1_tx;
    $newdiscount2->localtax1_tx = $this->localtax1_tx;
    $newdiscount1->localtax2_tx = $this->localtax2_tx;
    $newdiscount2->localtax2_tx = $this->localtax2_tx;
    $newdiscount1->vat_src_code = $this->vat_src_code;
    $newdiscount2->vat_src_code = $this->vat_src_code;
 
    $newdiscount1->generateFromAmount($amount_ttc1, 1, $newdiscount1->tva_tx, $newdiscount1->localtax1_tx, $newdiscount1->localtax2_tx, $this->localtax1_type, $this->localtax2_type);
    $newdiscount2->generateFromAmount($amount_ttc2, 1, $newdiscount2->tva_tx, $newdiscount2->localtax1_tx, $newdiscount2->localtax2_tx, $this->localtax1_type, $this->localtax2_type);
 
    return array($newdiscount1, $newdiscount2);
  }
}