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>
 *
 * 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/>.
 */
 
class DiscountAbsolute
{
  public $db;
 
  public $error;
 
  public $errors = array();
 
  public $id;
 
  public $fk_soc;
 
  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
 
  // Vat rate
  public $tva_tx;
  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;
 
  public function __construct($db)
  {
    $this->db = $db;
  }
 
 
  public function fetch($rowid, $fk_facture_source = 0, $fk_invoice_supplier_source = 0)
  {
    global $conf;
 
    // 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_ttc, sr.tva_tx, 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->discount_type = $obj->discount_type;
 
        $this->total_ht = $obj->amount_ht;
        $this->total_tva = $obj->amount_tva;
        $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->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, $langs;
 
    // 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->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;
    }
 
    // 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->fk_user_author; // 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_ttc, tva_tx, vat_src_code,";
    $sql .= " multicurrency_amount_ht, multicurrency_amount_tva, multicurrency_amount_ttc,";
    $sql .= " fk_facture_source, fk_invoice_supplier_source";
    $sql .= ")";
    $sql .= " VALUES (".$conf->entity.", '".$this->db->idate($this->datec != '' ? $this->datec : dol_now())."', ".((int) $this->fk_soc).", ".(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).", ".price2num($this->amount_ttc).", ".price2num($this->tva_tx).", '".$this->db->escape($this->vat_src_code)."',";
    $sql .= " ".price2num($this->multicurrency_amount_ht).", ".price2num($this->multicurrency_amount_tva).", ".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 .= ")";
 
    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");
      return $this->id;
    } else {
      $this->error = $this->db->lasterror().' - sql='.$sql;
      return -1;
    }
  }
 
 
  public function delete($user)
  {
    global $conf, $langs;
 
    // 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 != ".$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 != ".$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 serie
    } elseif ($this->fk_invoice_supplier_source) {
      $sql .= " WHERE fk_invoice_supplier_source = ".((int) $this->fk_invoice_supplier_source); // Delete all lines of same serie
    } 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)
  {
    // phpcs:enable
    // 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;
      }
      return 1;
    } else {
      $this->error = $this->db->error();
      return -3;
    }
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function unlink_invoice()
  {
    // phpcs:enable
    $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) {
      return 1;
    } else {
      $this->error = $this->db->error();
      return -3;
    }
  }
 
 
  public function getAvailableDiscounts($company = '', $user = '', $filter = '', $maxvalue = 0, $discount_type = 0, $multicurrency = 0)
  {
    global $conf;
 
    dol_syslog(get_class($this)."::getAvailableDiscounts discount_type=".$discount_type, LOG_DEBUG);
 
    $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 = ".$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.")";
    }
    if ($maxvalue) {
      $sql .= ' AND rc.amount_ttc <= '.((float) price2num($maxvalue));
    }
 
    $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 -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 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, $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->fk_soc.'" 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()
  {
    global $user, $langs, $conf;
 
    $this->fk_soc         = 1;
    $this->amount_ht      = 10;
    $this->amount_tva     = 1.96;
    $this->amount_ttc     = 11.96;
    $this->tva_tx         = 19.6;
    $this->description    = 'Specimen discount';
  }
}