commoninvoice.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2012       Regis Houssin       <regis.houssin@inodbox.com>
 * Copyright (C) 2012       Cédric Salvador     <csalvador@gpcsolutions.fr>
 * Copyright (C) 2012-2014  Raphaël Doursenaud  <rdoursenaud@gpcsolutions.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 <https://www.gnu.org/licenses/>.
 */

require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/commonincoterm.class.php';

abstract class CommonInvoice extends CommonObject
{
  use CommonIncoterm;

  const TYPE_STANDARD = 0;

  const TYPE_REPLACEMENT = 1;

  const TYPE_CREDIT_NOTE = 2;

  const TYPE_DEPOSIT = 3;

  const TYPE_PROFORMA = 4;

  const TYPE_SITUATION = 5;

  const STATUS_DRAFT = 0;

  const STATUS_VALIDATED = 1;

  const STATUS_CLOSED = 2;

  const STATUS_ABANDONED = 3;


  public $totalpaid;      // duplicate with sumpayed
  public $totaldeposits;    // duplicate with sumdeposit
  public $totalcreditnotes; // duplicate with sumcreditnote

  public $sumpayed;
  public $sumpayed_multicurrency;
  public $sumdeposit;
  public $sumdeposit_multicurrency;
  public $sumcreditnote;
  public $sumcreditnote_multicurrency;
  public $remaintopay;


  public function getRemainToPay($multicurrency = 0)
  {
    $alreadypaid = 0.0;
    $alreadypaid += $this->getSommePaiement($multicurrency);
    $alreadypaid += $this->getSumDepositsUsed($multicurrency);
    $alreadypaid += $this->getSumCreditNotesUsed($multicurrency);

    $remaintopay = price2num($this->total_ttc - $alreadypaid, 'MT');
    if ($this->statut == self::STATUS_CLOSED && $this->close_code == 'discount_vat') {    // If invoice closed with discount for anticipated payment
      $remaintopay = 0.0;
    }
    return $remaintopay;
  }

  public function getSommePaiement($multicurrency = 0)
  {
    $table = 'paiement_facture';
    $field = 'fk_facture';
    if ($this->element == 'facture_fourn' || $this->element == 'invoice_supplier') {
      $table = 'paiementfourn_facturefourn';
      $field = 'fk_facturefourn';
    }

    $sql = "SELECT sum(amount) as amount, sum(multicurrency_amount) as multicurrency_amount";
    $sql .= " FROM ".$this->db->prefix().$table;
    $sql .= " WHERE ".$field." = ".((int) $this->id);

    dol_syslog(get_class($this)."::getSommePaiement", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);

      $this->db->free($resql);
      if ($multicurrency) {
        $this->sumpayed_multicurrency = $obj->multicurrency_amount;
        return $obj->multicurrency_amount;
      } else {
        $this->sumpayed = $obj->amount;
        return $obj->amount;
      }
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }
  }

  public function getSumDepositsUsed($multicurrency = 0)
  {
    /*if ($this->element == 'facture_fourn' || $this->element == 'invoice_supplier') {
      // FACTURE_DEPOSITS_ARE_JUST_PAYMENTS was never supported for purchase invoice, so we can return 0 with no need of SQL for this case.
      return 0.0;
    }*/

    require_once DOL_DOCUMENT_ROOT.'/core/class/discount.class.php';

    $discountstatic = new DiscountAbsolute($this->db);
    $result = $discountstatic->getSumDepositsUsed($this, $multicurrency);

    if ($result >= 0) {
      if ($multicurrency) {
        $this->sumdeposit_multicurrency = $result;
      } else {
        $this->sumdeposit = $result;
      }

      return $result;
    } else {
      $this->error = $discountstatic->error;
      return -1;
    }
  }

  public function getSumCreditNotesUsed($multicurrency = 0)
  {
    require_once DOL_DOCUMENT_ROOT.'/core/class/discount.class.php';

    $discountstatic = new DiscountAbsolute($this->db);
    $result = $discountstatic->getSumCreditNotesUsed($this, $multicurrency);
    if ($result >= 0) {
      if ($multicurrency) {
        $this->sumcreditnote_multicurrency = $result;
      } else {
        $this->sumcreditnote = $result;
      }

      return $result;
    } else {
      $this->error = $discountstatic->error;
      return -1;
    }
  }

  public function getSumFromThisCreditNotesNotUsed($multicurrency = 0)
  {
    require_once DOL_DOCUMENT_ROOT.'/core/class/discount.class.php';

    $discountstatic = new DiscountAbsolute($this->db);
    $result = $discountstatic->getSumFromThisCreditNotesNotUsed($this, $multicurrency);
    if ($result >= 0) {
      return $result;
    } else {
      $this->error = $discountstatic->error;
      return -1;
    }
  }

  public function getListIdAvoirFromInvoice()
  {
    $idarray = array();

    $sql = "SELECT rowid";
    $sql .= " FROM ".$this->db->prefix().$this->table_element;
    $sql .= " WHERE fk_facture_source = ".((int) $this->id);
    $sql .= " AND type = 2";
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      $i = 0;
      while ($i < $num) {
        $row = $this->db->fetch_row($resql);
        $idarray[] = $row[0];
        $i++;
      }
    } else {
      dol_print_error($this->db);
    }
    return $idarray;
  }

  public function getIdReplacingInvoice($option = '')
  {
    $sql = "SELECT rowid";
    $sql .= " FROM ".$this->db->prefix().$this->table_element;
    $sql .= " WHERE fk_facture_source = ".((int) $this->id);
    $sql .= " AND type < 2";
    if ($option == 'validated') {
      $sql .= ' AND fk_statut = 1';
    }
    // PROTECTION BAD DATA
    // In case the database is corrupted and there is a valid replectement invoice
    // and another no, priority is given to the valid one.
    // Should not happen (unless concurrent access and 2 people have created a
    // replacement invoice for the same invoice at the same time)
    $sql .= " ORDER BY fk_statut DESC";

    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      if ($obj) {
        // If there is any
        return $obj->rowid;
      } else {
        // If no invoice replaces it
        return 0;
      }
    } else {
      return -1;
    }
  }

  public function getListOfPayments($filtertype = '')
  {
    $retarray = array();

    $table = 'paiement_facture';
    $table2 = 'paiement';
    $field = 'fk_facture';
    $field2 = 'fk_paiement';
    $field3 = ', p.ref_ext';
    $sharedentity = 'facture';
    if ($this->element == 'facture_fourn' || $this->element == 'invoice_supplier') {
      $table = 'paiementfourn_facturefourn';
      $table2 = 'paiementfourn';
      $field = 'fk_facturefourn';
      $field2 = 'fk_paiementfourn';
      $field3 = '';
      $sharedentity = 'facture_fourn';
    }

    $sql = "SELECT p.ref, pf.amount, pf.multicurrency_amount, p.fk_paiement, p.datep, p.num_paiement as num, t.code".$field3;
    $sql .= " FROM ".$this->db->prefix().$table." as pf, ".$this->db->prefix().$table2." as p, ".$this->db->prefix()."c_paiement as t";
    $sql .= " WHERE pf.".$field." = ".((int) $this->id);
    $sql .= " AND pf.".$field2." = p.rowid";
    $sql .= ' AND p.fk_paiement = t.id';
    $sql .= ' AND p.entity IN ('.getEntity($sharedentity).')';
    if ($filtertype) {
      $sql .= " AND t.code='PRE'";
    }

    dol_syslog(get_class($this)."::getListOfPayments", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      $i = 0;
      while ($i < $num) {
        $obj = $this->db->fetch_object($resql);
        $tmp = array('amount'=>$obj->amount, 'type'=>$obj->code, 'date'=>$obj->datep, 'num'=>$obj->num, 'ref'=>$obj->ref);
        if (!empty($field3)) {
          $tmp['ref_ext'] = $obj->ref_ext;
        }
        $retarray[] = $tmp;
        $i++;
      }
      $this->db->free($resql);

      //look for credit notes and discounts and deposits
      $sql = '';
      if ($this->element == 'facture' || $this->element == 'invoice') {
        $sql = "SELECT rc.amount_ttc as amount, rc.multicurrency_amount_ttc as multicurrency_amount, rc.datec as date, f.ref as ref, rc.description as type";
        $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) $this->id);
        $sql .= ' AND (f.type = 2 OR f.type = 0 OR f.type = 3)'; // Find discount coming from credit note or excess received or deposits (payments from deposits are always null except if FACTURE_DEPOSITS_ARE_JUST_PAYMENTS is set)
      } elseif ($this->element == 'facture_fourn' || $this->element == 'invoice_supplier') {
        $sql = "SELECT rc.amount_ttc as amount, rc.multicurrency_amount_ttc as multicurrency_amount, rc.datec as date, f.ref as ref, rc.description as type";
        $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) $this->id);
        $sql .= ' AND (f.type = 2 OR f.type = 0 OR f.type = 3)'; // Find discount coming from credit note or excess received or deposits (payments from deposits are always null except if FACTURE_DEPOSITS_ARE_JUST_PAYMENTS is set)
      }

      if ($sql) {
        $resql = $this->db->query($sql);
        if ($resql) {
          $num = $this->db->num_rows($resql);
          $i = 0;
          while ($i < $num) {
            $obj = $this->db->fetch_object($resql);
            if ($multicurrency) {
              $retarray[] = array('amount'=>$obj->multicurrency_amount, 'type'=>$obj->type, 'date'=>$obj->date, 'num'=>'0', 'ref'=>$obj->ref);
            } else {
              $retarray[] = array('amount'=>$obj->amount, 'type'=>$obj->type, 'date'=>$obj->date, 'num'=>'', 'ref'=>$obj->ref);
            }
            $i++;
          }
        } else {
          $this->error = $this->db->lasterror();
          dol_print_error($this->db);
          return array();
        }
        $this->db->free($resql);
      }

      return $retarray;
    } else {
      $this->error = $this->db->lasterror();
      dol_print_error($this->db);
      return array();
    }
  }


  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function is_erasable()
  {
    // phpcs:enable
    global $conf;

    // We check if invoice is a temporary number (PROVxxxx)
    $tmppart = substr($this->ref, 1, 4);

    if ($this->statut == self::STATUS_DRAFT && $tmppart === 'PROV') { // If draft invoice and ref not yet defined
      return 1;
    }

    if (!empty($conf->global->INVOICE_CAN_NEVER_BE_REMOVED)) {
      return 0;
    }

    // If not a draft invoice and not temporary invoice
    if ($tmppart !== 'PROV') {
      $ventilExportCompta = $this->getVentilExportCompta();
      if ($ventilExportCompta != 0) {
        return -1;
      }

      // Get last number of validated invoice
      if ($this->element != 'invoice_supplier') {
        if (empty($this->thirdparty)) {
          $this->fetch_thirdparty(); // We need to have this->thirdparty defined, in case of numbering rule use tags that depend on thirdparty (like {t} tag).
        }
        $maxref = $this->getNextNumRef($this->thirdparty, 'last');

        // If there is no invoice into the reset range and not already dispatched, we can delete
        // If invoice to delete is last one and not already dispatched, we can delete
        if (empty($conf->global->INVOICE_CAN_ALWAYS_BE_REMOVED) && $maxref != '' && $maxref != $this->ref) {
          return -2;
        }

        // TODO If there is payment in bookkeeping, check payment is not dispatched in accounting
        // ...

        if ($this->situation_cycle_ref && method_exists($this, 'is_last_in_cycle')) {
          $last = $this->is_last_in_cycle();
          if (!$last) {
            return -3;
          }
        }
      }
    }

    // Test if there is at least one payment. If yes, refuse to delete.
    if (empty($conf->global->INVOICE_CAN_ALWAYS_BE_REMOVED) && $this->getSommePaiement() > 0) {
      return -4;
    }

    return 2;
  }

  public function getVentilExportCompta()
  {
    $alreadydispatched = 0;

    $type = 'customer_invoice';
    if ($this->element == 'invoice_supplier') {
      $type = 'supplier_invoice';
    }

    $sql = " SELECT COUNT(ab.rowid) as nb FROM ".$this->db->prefix()."accounting_bookkeeping as ab WHERE ab.doc_type='".$this->db->escape($type)."' AND ab.fk_doc = ".((int) $this->id);
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      if ($obj) {
        $alreadydispatched = $obj->nb;
      }
    } else {
      $this->error = $this->db->lasterror();
      return -1;
    }

    if ($alreadydispatched) {
      return 1;
    }
    return 0;
  }


  public function getLibType()
  {
    global $langs;
    if ($this->type == CommonInvoice::TYPE_STANDARD) {
      return $langs->trans("InvoiceStandard");
    } elseif ($this->type == CommonInvoice::TYPE_REPLACEMENT) {
      return $langs->trans("InvoiceReplacement");
    } elseif ($this->type == CommonInvoice::TYPE_CREDIT_NOTE) {
      return $langs->trans("InvoiceAvoir");
    } elseif ($this->type == CommonInvoice::TYPE_DEPOSIT) {
      return $langs->trans("InvoiceDeposit");
    } elseif ($this->type == CommonInvoice::TYPE_PROFORMA) {
      return $langs->trans("InvoiceProForma"); // Not used.
    } elseif ($this->type == CommonInvoice::TYPE_SITUATION) {
      return $langs->trans("InvoiceSituation");
    }
    return $langs->trans("Unknown");
  }

  public function getLibStatut($mode = 0, $alreadypaid = -1)
  {
    return $this->LibStatut($this->paye, $this->statut, $mode, $alreadypaid, $this->type);
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function LibStatut($paye, $status, $mode = 0, $alreadypaid = -1, $type = -1)
  {
    // phpcs:enable
    global $langs;
    $langs->load('bills');

    if ($type == -1) {
      $type = $this->type;
    }

    $statusType = 'status0';
    $prefix = 'Short';
    if (!$paye) {
      if ($status == 0) {
        $labelStatus = $langs->transnoentitiesnoconv('BillStatusDraft');
        $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusDraft');
      } elseif (($status == 3 || $status == 2) && $alreadypaid <= 0) {
        if ($status == 3) {
          $labelStatus = $langs->transnoentitiesnoconv('BillStatusCanceled');
          $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusCanceled');
        } else {
          $labelStatus = $langs->transnoentitiesnoconv('BillStatusClosedUnpaid');
          $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusClosedUnpaid');
        }
        $statusType = 'status5';
      } elseif (($status == 3 || $status == 2) && $alreadypaid > 0) {
        $labelStatus = $langs->transnoentitiesnoconv('BillStatusClosedPaidPartially');
        $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusClosedPaidPartially');
        $statusType = 'status9';
      } elseif ($alreadypaid == 0) {
        $labelStatus = $langs->transnoentitiesnoconv('BillStatusNotPaid');
        $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusNotPaid');
        $statusType = 'status1';
      } else {
        $labelStatus = $langs->transnoentitiesnoconv('BillStatusStarted');
        $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusStarted');
        $statusType = 'status3';
      }
    } else {
      $statusType = 'status6';

      if ($type == self::TYPE_CREDIT_NOTE) {
        $labelStatus = $langs->transnoentitiesnoconv('BillStatusPaidBackOrConverted'); // credit note
        $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusPaidBackOrConverted'); // credit note
      } elseif ($type == self::TYPE_DEPOSIT) {
        $labelStatus = $langs->transnoentitiesnoconv('BillStatusConverted'); // deposit invoice
        $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusConverted'); // deposit invoice
      } else {
        $labelStatus = $langs->transnoentitiesnoconv('BillStatusPaid');
        $labelStatusShort = $langs->transnoentitiesnoconv('Bill'.$prefix.'StatusPaid');
      }
    }

    return dolGetStatus($labelStatus, $labelStatusShort, '', $statusType, $mode);
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function calculate_date_lim_reglement($cond_reglement = 0)
  {
    // phpcs:enable
    if (!$cond_reglement) {
      $cond_reglement = $this->cond_reglement_code;
    }
    if (!$cond_reglement) {
      $cond_reglement = $this->cond_reglement_id;
    }

    $cdr_nbjour = 0;
    $cdr_type = 0;
    $cdr_decalage = 0;

    $sqltemp = "SELECT c.type_cdr, c.nbjour, c.decalage";
    $sqltemp .= " FROM ".$this->db->prefix()."c_payment_term as c";
    if (is_numeric($cond_reglement)) {
      $sqltemp .= " WHERE c.rowid=".((int) $cond_reglement);
    } else {
      $sqltemp .= " WHERE c.entity IN (".getEntity('c_payment_term').")";
      $sqltemp .= " AND c.code = '".$this->db->escape($cond_reglement)."'";
    }

    dol_syslog(get_class($this).'::calculate_date_lim_reglement', LOG_DEBUG);
    $resqltemp = $this->db->query($sqltemp);
    if ($resqltemp) {
      if ($this->db->num_rows($resqltemp)) {
        $obj = $this->db->fetch_object($resqltemp);
        $cdr_nbjour = $obj->nbjour;
        $cdr_type = $obj->type_cdr;
        $cdr_decalage = $obj->decalage;
      }
    } else {
      $this->error = $this->db->error();
      return -1;
    }
    $this->db->free($resqltemp);

    /* Definition de la date limite */

    // 0 : adding the number of days
    if ($cdr_type == 0) {
      $datelim = $this->date + ($cdr_nbjour * 3600 * 24);

      $datelim += ($cdr_decalage * 3600 * 24);
    } elseif ($cdr_type == 1) {
      // 1 : application of the "end of the month" rule
      $datelim = $this->date + ($cdr_nbjour * 3600 * 24);

      $mois = date('m', $datelim);
      $annee = date('Y', $datelim);
      if ($mois == 12) {
        $mois = 1;
        $annee += 1;
      } else {
        $mois += 1;
      }
      // We move at the beginning of the next month, and we take a day off
      $datelim = dol_mktime(12, 0, 0, $mois, 1, $annee);
      $datelim -= (3600 * 24);

      $datelim += ($cdr_decalage * 3600 * 24);
    } elseif ($cdr_type == 2 && !empty($cdr_decalage)) {
      // 2 : application of the rule, the N of the current or next month
      include_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
      $datelim = $this->date + ($cdr_nbjour * 3600 * 24);

      $date_piece = dol_mktime(0, 0, 0, date('m', $datelim), date('d', $datelim), date('Y', $datelim)); // Sans les heures minutes et secondes
      $date_lim_current = dol_mktime(0, 0, 0, date('m', $datelim), $cdr_decalage, date('Y', $datelim)); // Sans les heures minutes et secondes
      $date_lim_next = dol_time_plus_duree($date_lim_current, 1, 'm'); // Add 1 month

      $diff = $date_piece - $date_lim_current;

      if ($diff < 0) {
        $datelim = $date_lim_current;
      } else {
        $datelim = $date_lim_next;
      }
    } else {
      return 'Bad value for type_cdr in database for record cond_reglement = '.$cond_reglement;
    }

    return $datelim;
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function demande_prelevement($fuser, $amount = 0, $type = 'direct-debit', $sourcetype = 'facture')
  {
    // phpcs:enable
    global $conf;

    $error = 0;

    dol_syslog(get_class($this)."::demande_prelevement", LOG_DEBUG);

    if ($this->statut > self::STATUS_DRAFT && $this->paye == 0) {
      require_once DOL_DOCUMENT_ROOT.'/societe/class/companybankaccount.class.php';
      $bac = new CompanyBankAccount($this->db);
      $bac->fetch(0, $this->socid);

      $sql = "SELECT count(*)";
      $sql .= " FROM ".$this->db->prefix()."prelevement_facture_demande";
      if ($type == 'bank-transfer') {
        $sql .= " WHERE fk_facture_fourn = ".((int) $this->id);
      } else {
        $sql .= " WHERE fk_facture = ".((int) $this->id);
      }
      $sql .= " AND ext_payment_id IS NULL"; // To exclude record done for some online payments
      $sql .= " AND traite = 0";

      dol_syslog(get_class($this)."::demande_prelevement", LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        $row = $this->db->fetch_row($resql);
        if ($row[0] == 0) {
          $now = dol_now();

          $totalpaid = $this->getSommePaiement();
          $totalcreditnotes = $this->getSumCreditNotesUsed();
          $totaldeposits = $this->getSumDepositsUsed();
          //print "totalpaid=".$totalpaid." totalcreditnotes=".$totalcreditnotes." totaldeposts=".$totaldeposits;

          // We can also use bcadd to avoid pb with floating points
          // For example print 239.2 - 229.3 - 9.9; does not return 0.
          //$resteapayer=bcadd($this->total_ttc,$totalpaid,$conf->global->MAIN_MAX_DECIMALS_TOT);
          //$resteapayer=bcadd($resteapayer,$totalavoir,$conf->global->MAIN_MAX_DECIMALS_TOT);
          if (empty($amount)) {
            $amount = price2num($this->total_ttc - $totalpaid - $totalcreditnotes - $totaldeposits, 'MT');
          }

          if (is_numeric($amount) && $amount != 0) {
            $sql = 'INSERT INTO '.$this->db->prefix().'prelevement_facture_demande(';
            if ($type == 'bank-transfer') {
              $sql .= 'fk_facture_fourn, ';
            } else {
              $sql .= 'fk_facture, ';
            }
            $sql .= ' amount, date_demande, fk_user_demande, code_banque, code_guichet, number, cle_rib, sourcetype, entity)';
            $sql .= " VALUES (".((int) $this->id);
            $sql .= ", ".((float) price2num($amount));
            $sql .= ", '".$this->db->idate($now)."'";
            $sql .= ", ".((int) $fuser->id);
            $sql .= ", '".$this->db->escape($bac->code_banque)."'";
            $sql .= ", '".$this->db->escape($bac->code_guichet)."'";
            $sql .= ", '".$this->db->escape($bac->number)."'";
            $sql .= ", '".$this->db->escape($bac->cle_rib)."'";
            $sql .= ", '".$this->db->escape($sourcetype)."'";
            $sql .= ", ".((int) $conf->entity);
            $sql .= ")";

            dol_syslog(get_class($this)."::demande_prelevement", LOG_DEBUG);
            $resql = $this->db->query($sql);
            if (!$resql) {
              $this->error = $this->db->lasterror();
              dol_syslog(get_class($this).'::demandeprelevement Erreur');
              $error++;
            }
          } else {
            $this->error = 'WithdrawRequestErrorNilAmount';
            dol_syslog(get_class($this).'::demandeprelevement WithdrawRequestErrorNilAmount');
            $error++;
          }

          if (!$error) {
            // Force payment mode of invoice to withdraw
            $payment_mode_id = dol_getIdFromCode($this->db, ($type == 'bank-transfer' ? 'VIR' : 'PRE'), 'c_paiement', 'code', 'id', 1);
            if ($payment_mode_id > 0) {
              $result = $this->setPaymentMethods($payment_mode_id);
            }
          }

          if ($error) {
            return -1;
          }
          return 1;
        } else {
          $this->error = "A request already exists";
          dol_syslog(get_class($this).'::demandeprelevement Impossible de creer une demande, demande deja en cours');
          return 0;
        }
      } else {
        $this->error = $this->db->error();
        dol_syslog(get_class($this).'::demandeprelevement Erreur -2');
        return -2;
      }
    } else {
      $this->error = "Status of invoice does not allow this";
      dol_syslog(get_class($this)."::demandeprelevement ".$this->error." $this->statut, $this->paye, $this->mode_reglement_id");
      return -3;
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function demande_prelevement_delete($fuser, $did)
  {
    // phpcs:enable
    $sql = 'DELETE FROM '.$this->db->prefix().'prelevement_facture_demande';
    $sql .= ' WHERE rowid = '.((int) $did);
    $sql .= ' AND traite = 0';
    if ($this->db->query($sql)) {
      return 0;
    } else {
      $this->error = $this->db->lasterror();
      dol_syslog(get_class($this).'::demande_prelevement_delete Error '.$this->error);
      return -1;
    }
  }


  public function buildZATCAQRString()
  {
    global $conf, $mysoc;

    $tmplang = new Translate('', $conf);
    $tmplang->setDefaultLang('en_US');
    $tmplang->load("main");

    $datestring = dol_print_date($this->date, 'dayhourrfc');
    //$pricewithtaxstring = price($this->total_ttc, 0, $tmplang, 0, -1, 2);
    //$pricetaxstring = price($this->total_tva, 0, $tmplang, 0, -1, 2);
    $pricewithtaxstring = price2num($this->total_ttc, 2, 1);
    $pricetaxstring = price2num($this->total_tva, 2, 1);

    /*
    $name = implode(unpack("H*", $this->thirdparty->name));
    $vatnumber = implode(unpack("H*", $this->thirdparty->tva_intra));
    $date = implode(unpack("H*", $datestring));
    $pricewithtax = implode(unpack("H*", price2num($pricewithtaxstring, 2)));
    $pricetax = implode(unpack("H*", $pricetaxstring));

    //var_dump(strlen($this->thirdparty->name));
    //var_dump(str_pad(dechex('9'), 2, '0', STR_PAD_LEFT));
    //var_dump($this->thirdparty->name);
    //var_dump(implode(unpack("H*", $this->thirdparty->name)));
    //var_dump(price($this->total_tva, 0, $tmplang, 0, -1, 2));

    $s = '01'.str_pad(dechex(strlen($this->thirdparty->name)), 2, '0', STR_PAD_LEFT).$name;
    $s .= '02'.str_pad(dechex(strlen($this->thirdparty->tva_intra)), 2, '0', STR_PAD_LEFT).$vatnumber;
    $s .= '03'.str_pad(dechex(strlen($datestring)), 2, '0', STR_PAD_LEFT).$date;
    $s .= '04'.str_pad(dechex(strlen($pricewithtaxstring)), 2, '0', STR_PAD_LEFT).$pricewithtax;
    $s .= '05'.str_pad(dechex(strlen($pricetaxstring)), 2, '0', STR_PAD_LEFT).$pricetax;
    $s .= '';         // Hash of xml invoice
    $s .= '';         // ecda signature
    $s .= '';         // ecda public key
    $s .= '';         // ecda signature of public key stamp
    */

    // Using TLV format
    $s = pack('C1', 1).pack('C1', strlen($mysoc->name)).$mysoc->name;
    $s .= pack('C1', 2).pack('C1', strlen($mysoc->tva_intra)).$mysoc->tva_intra;
    $s .= pack('C1', 3).pack('C1', strlen($datestring)).$datestring;
    $s .= pack('C1', 4).pack('C1', strlen($pricewithtaxstring)).$pricewithtaxstring;
    $s .= pack('C1', 5).pack('C1', strlen($pricetaxstring)).$pricetaxstring;
    $s .= '';         // Hash of xml invoice
    $s .= '';         // ecda signature
    $s .= '';         // ecda public key
    $s .= '';         // ecda signature of public key stamp

    $s = base64_encode($s);

    return $s;
  }


  public function buildSwitzerlandQRString()
  {
    global $conf, $mysoc;

    $tmplang = new Translate('', $conf);
    $tmplang->setDefaultLang('en_US');
    $tmplang->load("main");

    $pricewithtaxstring = price2num($this->total_ttc, 2, 1);
    $pricetaxstring = price2num($this->total_tva, 2, 1);

    $complementaryinfo = '';
    /*
     Example: //S1/10/10201409/11/190512/20/1400.000-53/30/106017086/31/180508/32/7.7/40/2:10;0:30
     /10/ Numéro de facture – 10201409
     /11/ Date de facture – 12.05.2019
     /20/ Référence client – 1400.000-53
     /30/ Numéro IDE pour la TVA – CHE-106.017.086 TVA
     /31/ Date de la prestation pour la comptabilisation de la TVA – 08.05.2018
     /32/ Taux de TVA sur le montant total de la facture – 7.7%
     /40/ Conditions – 2% d’escompte à 10 jours, paiement net à 30 jours
     */
    $datestring = dol_print_date($this->date, '%y%m%d');
    //$pricewithtaxstring = price($this->total_ttc, 0, $tmplang, 0, -1, 2);
    //$pricetaxstring = price($this->total_tva, 0, $tmplang, 0, -1, 2);
    $complementaryinfo = '//S1/10/'.str_replace('/', '', $this->ref).'/11/'.$datestring;
    if ($this->ref_client) {
      $complementaryinfo .= '/20/'.$this->ref_client;
    }
    if ($this->thirdparty->vat_number) {
      $complementaryinfo .= '/30/'.$this->thirdparty->vat_number;
    }

    // Header
    $s .= "SPC\n";
    $s .= "0200\n";
    $s .= "1\n";
    if ($this->fk_account > 0) {
      // Bank BAN if country is LI or CH
      // TODO Add
      $bankaccount = new Account($this->db);
      $bankaccount->fetch($this->fk_account);
      $s .= $bankaccount->iban."\n";
    } else {
      $s .= "\n";
    }
    // Seller
    $s .= "S\n";
    $s .= dol_trunc($mysoc->name, 70, 'right', 'UTF-8', 1)."\n";
    $addresslinearray = explode("\n", $mysoc->address);
    $s .= dol_trunc(empty($addresslinearray[1]) ? '' : $addresslinearray[1], 70, 'right', 'UTF-8', 1)."\n";   // address line 1
    $s .= dol_trunc(empty($addresslinearray[2]) ? '' : $addresslinearray[2], 70, 'right', 'UTF-8', 1)."\n";   // address line 2
    $s .= dol_trunc($mysoc->zip, 16, 'right', 'UTF-8', 1)."\n";
    $s .= dol_trunc($mysoc->town, 35, 'right', 'UTF-8', 1)."\n";
    $s .= dol_trunc($mysoc->country_code, 2, 'right', 'UTF-8', 1)."\n";
    // Final seller
    $s .= "\n";
    $s .= "\n";
    $s .= "\n";
    $s .= "\n";
    $s .= "\n";
    $s .= "\n";
    $s .= "\n";
    // Amount of payment (to do?)
    $s .= price($pricewithtaxstring, 0, 'none', 0, 0, 2)."\n";
    $s .= ($this->multicurrency_code ? $this->multicurrency_code : $conf->currency)."\n";
    // Buyer
    $s .= "S\n";
    $s .= dol_trunc($this->thirdparty->name, 70, 'right', 'UTF-8', 1)."\n";
    $addresslinearray = explode("\n", $this->thirdparty->address);
    $s .= dol_trunc(empty($addresslinearray[1]) ? '' : $addresslinearray[1], 70, 'right', 'UTF-8', 1)."\n";   // address line 1
    $s .= dol_trunc(empty($addresslinearray[2]) ? '' : $addresslinearray[2], 70, 'right', 'UTF-8', 1)."\n";   // address line 2
    $s .= dol_trunc($this->thirdparty->zip, 16, 'right', 'UTF-8', 1)."\n";
    $s .= dol_trunc($this->thirdparty->town, 35, 'right', 'UTF-8', 1)."\n";
    $s .= dol_trunc($this->thirdparty->country_code, 2, 'right', 'UTF-8', 1)."\n";
    // ID of payment
    $s .= "NON\n";      // NON or QRR
    $s .= "\n";       // QR Code if previous field is QRR
    if ($complementaryinfo) {
      $s .= $complementaryinfo."\n";
    } else {
      $s .= "\n";
    }
    $s .= "EPD\n";
    $s .= "\n";
    //var_dump($s);exit;
    return $s;
  }
}



require_once DOL_DOCUMENT_ROOT.'/core/class/commonobjectline.class.php';

abstract class CommonInvoiceLine extends CommonObjectLine
{
  public $label;

  public $ref; // Product ref (deprecated)
  public $libelle; // Product label (deprecated)

  public $product_type = 0;

  public $product_ref;

  public $product_label;

  public $product_desc;

  public $qty;

  public $subprice;

  public $price;

  public $fk_product;

  public $vat_src_code;

  public $tva_tx;

  public $localtax1_tx;

  public $localtax2_tx;

  public $localtax1_type;

  public $localtax2_type;

  public $remise_percent;

  public $remise;

  public $total_ht;

  public $total_tva;

  public $total_localtax1;

  public $total_localtax2;

  public $total_ttc;

  public $date_start_fill; // If set to 1, when invoice is created from a template invoice, it will also auto set the field date_start at creation
  public $date_end_fill; // If set to 1, when invoice is created from a template invoice, it will also auto set the field date_end at creation

  public $buy_price_ht;
  public $buyprice; // For backward compatibility
  public $pa_ht; // For backward compatibility

  public $marge_tx;
  public $marque_tx;

  public $info_bits = 0;

  public $special_code = 0;

  public $fk_multicurrency;
  public $multicurrency_code;
  public $multicurrency_subprice;
  public $multicurrency_total_ht;
  public $multicurrency_total_tva;
  public $multicurrency_total_ttc;

  public $fk_user_author;
  public $fk_user_modif;

  public $fk_accounting_account;
}