* Copyright (C) 2012 Cédric Salvador * Copyright (C) 2012-2014 Raphaël Doursenaud * * 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 . */ /** * \file htdocs/core/class/commoninvoice.class.php * \ingroup core * \brief File of the superclass of invoices classes (customer and supplier) */ require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/commonincoterm.class.php'; /** * Superclass for invoices classes */ abstract class CommonInvoice extends CommonObject { use CommonIncoterm; /** * Standard invoice */ const TYPE_STANDARD = 0; /** * Replacement invoice */ const TYPE_REPLACEMENT = 1; /** * Credit note invoice */ const TYPE_CREDIT_NOTE = 2; /** * Deposit invoice */ const TYPE_DEPOSIT = 3; /** * Proforma invoice. * @deprectad Remove this. A "proforma invoice" is an order with a look of invoice, not an invoice ! */ const TYPE_PROFORMA = 4; /** * Situation invoice */ const TYPE_SITUATION = 5; /** * Draft status */ const STATUS_DRAFT = 0; /** * Validated (need to be paid) */ const STATUS_VALIDATED = 1; /** * Classified paid. * If paid partially, $this->close_code can be: * - CLOSECODE_DISCOUNTVAT * - CLOSECODE_BADDEBT * If paid completelly, this->close_code will be null */ const STATUS_CLOSED = 2; /** * Classified abandoned and no payment done. * $this->close_code can be: * - CLOSECODE_BADDEBT * - CLOSECODE_ABANDONED * - CLOSECODE_REPLACED */ const STATUS_ABANDONED = 3; public $sumpayed; public $sumpayed_multicurrency; public $sumdeposit; public $sumdeposit_multicurrency; public $sumcreditnote; public $sumcreditnote_multicurrency; /** * Return remain amount to pay. Property ->id and ->total_ttc must be set. * This does not include open direct debit requests. * * @param int $multicurrency Return multicurrency_amount instead of amount * @return float Remain of amount to pay */ 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; } /** * Return amount of payments already done. This must include ONLY the record into the payment table. * Payments dones using discounts, credit notes, etc are not included. * * @param int $multicurrency Return multicurrency_amount instead of amount * @return float Amount of payment already done, <0 and set ->error if KO */ 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; } } /** * Return amount (with tax) of all deposits invoices used by invoice. * Should always be empty, except if option FACTURE_DEPOSITS_ARE_JUST_PAYMENTS is on (not recommended). * * @param int $multicurrency Return multicurrency_amount instead of amount * @return float <0 and set ->error if KO, Sum of deposits amount otherwise */ 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; } } /** * Return amount (with tax) of all credit notes invoices + excess received used by invoice * * @param int $multicurrency Return multicurrency_amount instead of amount * @return float <0 and set ->error if KO, Sum of credit notes and deposits amount otherwise */ 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; } } /** * Return amount (with tax) of all converted amount for this credit note * * @param int $multicurrency Return multicurrency_amount instead of amount * @return float <0 if KO, Sum of credit notes and deposits amount otherwise */ 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; } } /** * Returns array of credit note ids from the invoice * * @return array Array of credit note ids */ 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; } /** * Returns the id of the invoice that replaces it * * @param string $option status filter ('', 'validated', ...) * @return int <0 si KO, 0 if no invoice replaces it, id of invoice otherwise */ 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; } } /** * Return list of payments * * @param string $filtertype 1 to filter on type of payment == 'PRE' * @return array Array with list of payments */ 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 /** * Return if an invoice can be deleted * Rule is: * If invoice is draft and has a temporary ref -> yes (1) * If hidden option INVOICE_CAN_NEVER_BE_REMOVED is on -> no (0) * If invoice is dispatched in bookkeeping -> no (-1) * If invoice has a definitive ref, is not last and INVOICE_CAN_ALWAYS_BE_REMOVED off -> no (-2) * If invoice not last in a cycle -> no (-3) * If there is payment -> no (-4) * Otherwise -> yes (2) * * @return int <=0 if no, >0 if yes */ 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; } /** * Return if an invoice was dispatched into bookkeeping * * @return int <0 if KO, 0=no, 1=yes */ 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; } /** * Return label of type of invoice * * @return string Label of type of invoice */ 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"); } /** * Return label of object status * * @param int $mode 0=long label, 1=short label, 2=Picto + short label, 3=Picto, 4=Picto + long label, 5=short label + picto, 6=Long label + picto * @param integer $alreadypaid 0=No payment already done, >0=Some payments were already done (we recommand to put here amount payed if you have it, 1 otherwise) * @return string Label of status */ public function getLibStatut($mode = 0, $alreadypaid = -1) { return $this->LibStatut($this->paye, $this->statut, $mode, $alreadypaid, $this->type); } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return label of a status * * @param int $paye Status field paye * @param int $status Id status * @param int $mode 0=long label, 1=short label, 2=Picto + short label, 3=Picto, 4=Picto + long label, 5=short label + picto, 6=long label + picto * @param integer $alreadypaid 0=No payment already done, >0=Some payments were already done (we recommand to put here amount payed if you have it, -1 otherwise) * @param int $type Type invoice. If -1, we use $this->type * @return string Label of status */ 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) { $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 /** * Returns an invoice payment deadline based on the invoice settlement * conditions and billing date. * * @param integer $cond_reglement Condition of payment (code or id) to use. If 0, we use current condition. * @return integer Date limite de reglement si ok, <0 si ko */ 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 /** * Create a withdrawal request for a direct debit order or a credit transfer order. * Use the remain to pay excluding all existing open direct debit requests. * * @param User $fuser User asking the direct debit transfer * @param float $amount Amount we request direct debit for * @param string $type 'direct-debit' or 'bank-transfer' * @param string $sourcetype Source ('facture' or 'supplier_invoice') * @return int <0 if KO, >0 if OK */ 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(); $totalpaye = $this->getSommePaiement(); $totalcreditnotes = $this->getSumCreditNotesUsed(); $totaldeposits = $this->getSumDepositsUsed(); //print "totalpaye=".$totalpaye." 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,$totalpaye,$conf->global->MAIN_MAX_DECIMALS_TOT); //$resteapayer=bcadd($resteapayer,$totalavoir,$conf->global->MAIN_MAX_DECIMALS_TOT); if (empty($amount)) { $amount = price2num($this->total_ttc - $totalpaye - $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 /** * Remove a direct debit request or a credit transfer request * * @param User $fuser User making delete * @param int $did ID of request to delete * @return int <0 if OK, >0 if KO */ 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; } } /** * Build string for ZATCA QR Code (Arabi Saudia) * * @return string String for ZATCA QR Code */ public function buildZATCAQRString() { global $conf; $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($this->thirdparty->name)).$this->thirdparty->name; $s .= pack('C1', 2).pack('C1', strlen($this->thirdparty->tva_intra)).$this->thirdparty->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; } } require_once DOL_DOCUMENT_ROOT.'/core/class/commonobjectline.class.php'; /** * Parent class of all other business classes for details of elements (invoices, contracts, proposals, orders, ...) */ abstract class CommonInvoiceLine extends CommonObjectLine { /** * Custom label of line. Not used by default. * @deprecated */ public $label; /** * @deprecated * @see $product_ref */ public $ref; // Product ref (deprecated) /** * @deprecated * @see $product_label */ public $libelle; // Product label (deprecated) /** * Type of the product. 0 for product 1 for service * @var int */ public $product_type = 0; /** * Product ref * @var string */ public $product_ref; /** * Product label * @var string */ public $product_label; /** * Product description * @var string */ public $product_desc; /** * Quantity * @var double */ public $qty; /** * Unit price before taxes * @var float */ public $subprice; /** * Unit price before taxes * @var float * @deprecated */ public $price; /** * Id of corresponding product * @var int */ public $fk_product; /** * VAT code * @var string */ public $vat_src_code; /** * VAT % * @var float */ public $tva_tx; /** * Local tax 1 % * @var float */ public $localtax1_tx; /** * Local tax 2 % * @var float */ public $localtax2_tx; /** * Local tax 1 type * @var string */ public $localtax1_type; /** * Local tax 2 type * @var string */ public $localtax2_type; /** * Percent of discount * @var float */ public $remise_percent; /** * Fixed discount * @var float * @deprecated */ public $remise; /** * Total amount before taxes * @var float */ public $total_ht; /** * Total VAT amount * @var float */ public $total_tva; /** * Total local tax 1 amount * @var float */ public $total_localtax1; /** * Total local tax 2 amount * @var float */ public $total_localtax2; /** * Total amount with taxes * @var float */ 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; /** * List of cumulative options: * Bit 0: 0 for common VAT - 1 if VAT french NPR * Bit 1: 0 si ligne normal - 1 si bit discount (link to line into llx_remise_except) * @var int */ 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; }