dolibarr 20.0.4
fournisseur.facture.class.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2002-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2012 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2004 Christophe Combelles <ccomb@free.fr>
5 * Copyright (C) 2005 Marc Barilley <marc@ocebo.com>
6 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
7 * Copyright (C) 2010-2023 Juanjo Menent <jmenent@simnandez.es>
8 * Copyright (C) 2013-2019 Philippe Grand <philippe.grand@atoo-net.com>
9 * Copyright (C) 2013 Florian Henry <florian.henry@open-concept.pro>
10 * Copyright (C) 2014-2016 Marcos García <marcosgdf@gmail.com>
11 * Copyright (C) 2015 Bahfir Abbes <bafbes@gmail.com>
12 * Copyright (C) 2015-2022 Ferran Marcet <fmarcet@2byte.es>
13 * Copyright (C) 2016-2023 Alexandre Spangaro <aspangaro@open-dsi.fr>
14 * Copyright (C) 2018 Nicolas ZABOURI <info@inovea-conseil.com>
15 * Copyright (C) 2018-2024 Frédéric France <frederic.france@free.fr>
16 * Copyright (C) 2022 Gauthier VERDOL <gauthier.verdol@atm-consulting.fr>
17 * Copyright (C) 2023 Nick Fragoulis
18 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
19 *
20 * This program is free software; you can redistribute it and/or modify
21 * it under the terms of the GNU General Public License as published by
22 * the Free Software Foundation; either version 3 of the License, or
23 * (at your option) any later version.
24 *
25 * This program is distributed in the hope that it will be useful,
26 * but WITHOUT ANY WARRANTY; without even the implied warranty of
27 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
28 * GNU General Public License for more details.
29 *
30 * You should have received a copy of the GNU General Public License
31 * along with this program. If not, see <https://www.gnu.org/licenses/>.
32 */
33
40require_once DOL_DOCUMENT_ROOT.'/core/class/commoninvoice.class.php';
41require_once DOL_DOCUMENT_ROOT.'/core/class/commonobjectline.class.php';
42require_once DOL_DOCUMENT_ROOT.'/multicurrency/class/multicurrency.class.php';
43require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
44
45if (isModEnabled('accounting')) {
46 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formaccounting.class.php';
47 require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
48}
49
54{
58 public $element = 'invoice_supplier';
59
63 public $table_element = 'facture_fourn';
64
68 public $table_element_line = 'facture_fourn_det';
69
73 public $fk_element = 'fk_facture_fourn';
74
78 public $picto = 'supplier_invoice';
79
84 public $restrictiononfksoc = 1;
85
89 protected $table_ref_field = 'ref';
90
94 public $rowid;
95
99 public $ref;
100
104 public $ref_supplier;
105
110 public $libelle;
114 public $label;
115
116 //Check constants for types
117 public $type = self::TYPE_STANDARD;
118
125 public $statut;
126
132 public $status;
133
140 public $fk_statut;
141
147 public $paye;
152 public $paid;
153
158 public $author;
159
165 public $datec;
166
172 public $date_echeance;
173
178 public $amount = 0;
183 public $remise = 0;
184
189 public $tva;
190
191 // Warning: Do not set default value into property definition. it must stay null.
192 // For example to avoid to have substitution done when object is generic and not yet defined.
194 public $localtax1;
196 public $localtax2;
198 public $total_ht;
200 public $total_tva;
202 public $total_localtax1;
204 public $total_localtax2;
206 public $total_ttc;
207
213 public $note;
215 public $note_private;
217 public $note_public;
219 public $propalid;
220
224 public $fk_account; // default bank account
225
229 public $transport_mode_id;
230
234 public $vat_reverse_charge;
235
236 public $extraparams = array();
237
242 public $lines = array();
243
248 public $fournisseur;
249
251
254 public $fk_facture_source;
255
257 public $fac_rec;
259 public $fk_fac_rec_source;
260
261 public $fields = array(
262 'rowid' => array('type' => 'integer', 'label' => 'TechnicalID', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 10),
263 'ref' => array('type' => 'varchar(255)', 'label' => 'Ref', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'showoncombobox' => 1, 'position' => 15),
264 'ref_supplier' => array('type' => 'varchar(255)', 'label' => 'RefSupplier', 'enabled' => 1, 'visible' => -1, 'position' => 20),
265 'entity' => array('type' => 'integer', 'label' => 'Entity', 'default' => '1', 'enabled' => 1, 'visible' => -2, 'notnull' => 1, 'position' => 25, 'index' => 1),
266 'ref_ext' => array('type' => 'varchar(255)', 'label' => 'RefExt', 'enabled' => 1, 'visible' => 0, 'position' => 30),
267 'type' => array('type' => 'smallint(6)', 'label' => 'Type', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 35),
268 'subtype' => array('type' => 'smallint(6)', 'label' => 'InvoiceSubtype', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 36),
269 'fk_soc' => array('type' => 'integer:Societe:societe/class/societe.class.php', 'label' => 'ThirdParty', 'enabled' => 'isModEnabled("societe")', 'visible' => -1, 'notnull' => 1, 'position' => 40),
270 'datec' => array('type' => 'datetime', 'label' => 'DateCreation', 'enabled' => 1, 'visible' => -1, 'position' => 45),
271 'datef' => array('type' => 'date', 'label' => 'Date', 'enabled' => 1, 'visible' => -1, 'position' => 50),
272 'tms' => array('type' => 'timestamp', 'label' => 'DateModification', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 55),
273 'libelle' => array('type' => 'varchar(255)', 'label' => 'Label', 'enabled' => 1, 'visible' => -1, 'position' => 60),
274 'paye' => array('type' => 'smallint(6)', 'label' => 'Paye', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 65),
275 'amount' => array('type' => 'double(24,8)', 'label' => 'Amount', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 70),
276 'remise' => array('type' => 'double(24,8)', 'label' => 'Discount', 'enabled' => 1, 'visible' => -1, 'position' => 75),
277 'close_code' => array('type' => 'varchar(16)', 'label' => 'CloseCode', 'enabled' => 1, 'visible' => -1, 'position' => 80),
278 'close_note' => array('type' => 'varchar(128)', 'label' => 'CloseNote', 'enabled' => 1, 'visible' => -1, 'position' => 85),
279 'tva' => array('type' => 'double(24,8)', 'label' => 'Tva', 'enabled' => 1, 'visible' => -1, 'position' => 90),
280 'localtax1' => array('type' => 'double(24,8)', 'label' => 'Localtax1', 'enabled' => 1, 'visible' => -1, 'position' => 95),
281 'localtax2' => array('type' => 'double(24,8)', 'label' => 'Localtax2', 'enabled' => 1, 'visible' => -1, 'position' => 100),
282 'total_ht' => array('type' => 'double(24,8)', 'label' => 'TotalHT', 'enabled' => 1, 'visible' => -1, 'position' => 105),
283 'total_tva' => array('type' => 'double(24,8)', 'label' => 'TotalVAT', 'enabled' => 1, 'visible' => -1, 'position' => 110),
284 'total_ttc' => array('type' => 'double(24,8)', 'label' => 'TotalTTC', 'enabled' => 1, 'visible' => -1, 'position' => 115),
285 'fk_user_author' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'UserAuthor', 'enabled' => 1, 'visible' => -1, 'position' => 125),
286 'fk_user_modif' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'UserModif', 'enabled' => 1, 'visible' => -2, 'notnull' => -1, 'position' => 130),
287 'fk_user_valid' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'UserValidation', 'enabled' => 1, 'visible' => -1, 'position' => 135),
288 'fk_facture_source' => array('type' => 'integer', 'label' => 'Fk facture source', 'enabled' => 1, 'visible' => -1, 'position' => 140),
289 'fk_projet' => array('type' => 'integer:Project:projet/class/project.class.php:1:fk_statut=1', 'label' => 'Project', 'enabled' => "isModEnabled('project')", 'visible' => -1, 'position' => 145),
290 'fk_account' => array('type' => 'integer', 'label' => 'Account', 'enabled' => 'isModEnabled("bank")', 'visible' => -1, 'position' => 150),
291 'fk_cond_reglement' => array('type' => 'integer', 'label' => 'PaymentTerm', 'enabled' => 1, 'visible' => -1, 'position' => 155),
292 'fk_mode_reglement' => array('type' => 'integer', 'label' => 'PaymentMode', 'enabled' => 1, 'visible' => -1, 'position' => 160),
293 'date_lim_reglement' => array('type' => 'date', 'label' => 'DateLimReglement', 'enabled' => 1, 'visible' => -1, 'position' => 165),
294 'note_private' => array('type' => 'html', 'label' => 'NotePrivate', 'enabled' => 1, 'visible' => 0, 'position' => 170),
295 'note_public' => array('type' => 'html', 'label' => 'NotePublic', 'enabled' => 1, 'visible' => 0, 'position' => 175),
296 'model_pdf' => array('type' => 'varchar(255)', 'label' => 'ModelPdf', 'enabled' => 1, 'visible' => 0, 'position' => 180),
297 'extraparams' => array('type' => 'varchar(255)', 'label' => 'Extraparams', 'enabled' => 1, 'visible' => -1, 'position' => 190),
298 'fk_incoterms' => array('type' => 'integer', 'label' => 'IncotermCode', 'enabled' => 1, 'visible' => -1, 'position' => 195),
299 'location_incoterms' => array('type' => 'varchar(255)', 'label' => 'IncotermLocation', 'enabled' => 1, 'visible' => -1, 'position' => 200),
300 'fk_multicurrency' => array('type' => 'integer', 'label' => 'MulticurrencyId', 'enabled' => 1, 'visible' => -1, 'position' => 205),
301 'multicurrency_code' => array('type' => 'varchar(255)', 'label' => 'MulticurrencyCode', 'enabled' => 1, 'visible' => -1, 'position' => 210),
302 'multicurrency_tx' => array('type' => 'double(24,8)', 'label' => 'MulticurrencyRate', 'enabled' => 1, 'visible' => -1, 'position' => 215),
303 'multicurrency_total_ht' => array('type' => 'double(24,8)', 'label' => 'MulticurrencyTotalHT', 'enabled' => 1, 'visible' => -1, 'position' => 220),
304 'multicurrency_total_tva' => array('type' => 'double(24,8)', 'label' => 'MulticurrencyTotalVAT', 'enabled' => 1, 'visible' => -1, 'position' => 225),
305 'multicurrency_total_ttc' => array('type' => 'double(24,8)', 'label' => 'MulticurrencyTotalTTC', 'enabled' => 1, 'visible' => -1, 'position' => 230),
306 'date_pointoftax' => array('type' => 'date', 'label' => 'Date pointoftax', 'enabled' => 1, 'visible' => -1, 'position' => 235),
307 'date_valid' => array('type' => 'date', 'label' => 'DateValidation', 'enabled' => 1, 'visible' => -1, 'position' => 240),
308 'last_main_doc' => array('type' => 'varchar(255)', 'label' => 'Last main doc', 'enabled' => 1, 'visible' => -1, 'position' => 245),
309 'fk_statut' => array('type' => 'smallint(6)', 'label' => 'Status', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 500),
310 'import_key' => array('type' => 'varchar(14)', 'label' => 'ImportId', 'enabled' => 1, 'visible' => -2, 'position' => 900),
311 );
312
313
317 const TYPE_STANDARD = 0;
318
323
328
332 const TYPE_DEPOSIT = 3;
333
337 const STATUS_DRAFT = 0;
338
343
351 const STATUS_CLOSED = 2;
352
361
362 const CLOSECODE_DISCOUNTVAT = 'discount_vat';
363 const CLOSECODE_BADCREDIT = 'badsupplier';
364 const CLOSECODE_ABANDONED = 'abandon';
365 const CLOSECODE_REPLACED = 'replaced';
366
372 public function __construct($db)
373 {
374 $this->db = $db;
375
376 $this->ismultientitymanaged = 1;
377 }
378
385 public function create($user)
386 {
387 global $langs, $conf, $hookmanager;
388
389 $error = 0;
390 $now = dol_now();
391
392 // Clean parameters
393 if (isset($this->ref_supplier)) {
394 $this->ref_supplier = trim($this->ref_supplier);
395 }
396 if (empty($this->type)) {
397 $this->type = self::TYPE_STANDARD;
398 }
399 if (empty($this->date)) {
400 $this->date = $now;
401 }
402
403 // Multicurrency (test on $this->multicurrency_tx because we should take the default rate only if not using origin rate)
404 if (!empty($this->multicurrency_code) && empty($this->multicurrency_tx)) {
405 list($this->fk_multicurrency, $this->multicurrency_tx) = MultiCurrency::getIdAndTxFromCode($this->db, $this->multicurrency_code, $this->date);
406 } else {
407 $this->fk_multicurrency = MultiCurrency::getIdFromCode($this->db, $this->multicurrency_code);
408 }
409 if (empty($this->fk_multicurrency)) {
410 $this->multicurrency_code = $conf->currency;
411 $this->fk_multicurrency = 0;
412 $this->multicurrency_tx = 1;
413 }
414
415 $this->db->begin();
416
417 // Create invoice from a template recurring invoice
418 if ($this->fac_rec > 0) {
419 $this->fk_fac_rec_source = $this->fac_rec;
420
421 require_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.facture-rec.class.php';
422 $_facrec = new FactureFournisseurRec($this->db);
423 $result = $_facrec->fetch($this->fac_rec);
424 $result = $_facrec->fetchObjectLinked(null, '', null, '', 'OR', 1, 'sourcetype', 0); // This load $_facrec->linkedObjectsIds
425
426 // Define some dates
427 if (!empty($_facrec->frequency)) {
428 $originaldatewhen = $_facrec->date_when;
429 $nextdatewhen = dol_time_plus_duree($originaldatewhen, $_facrec->frequency, $_facrec->unit_frequency);
430 $previousdaynextdatewhen = dol_time_plus_duree($nextdatewhen, -1, 'd');
431 $this->socid = $_facrec->socid;
432 } else {
433 $originaldatewhen = 0;
434 $nextdatewhen = 0;
435 $previousdaynextdatewhen = 0;
436 }
437
438 $this->entity = $_facrec->entity; // Invoice created in same entity than template
439
440 // Fields coming from GUI
441 // @TODO Value of template should be used as default value on the form on the GUI, and we should here always use the value from GUI
442 // set by posted page with $object->xxx = ... and this section should be removed.
443 $this->fk_project = GETPOSTINT('projectid') > 0 ? (GETPOSTINT('projectid')) : $_facrec->fk_project;
444 $this->note_public = GETPOST('note_public', 'restricthtml') ? GETPOST('note_public', 'restricthtml') : $_facrec->note_public;
445 $this->note_private = GETPOST('note_private', 'restricthtml') ? GETPOST('note_private', 'restricthtml') : $_facrec->note_private;
446 $this->model_pdf = GETPOST('model', 'alpha') ? GETPOST('model', 'alpha') : $_facrec->model_pdf;
447 $this->cond_reglement_id = GETPOSTINT('cond_reglement_id') > 0 ? (GETPOSTINT('cond_reglement_id')) : $_facrec->cond_reglement_id;
448 $this->mode_reglement_id = GETPOSTINT('mode_reglement_id') > 0 ? (GETPOSTINT('mode_reglement_id')) : $_facrec->mode_reglement_id;
449 $this->fk_account = GETPOST('fk_account') > 0 ? ((int) GETPOST('fk_account')) : $_facrec->fk_account;
450
451 // Set here to have this defined for substitution into notes, should be recalculated after adding lines to get same result
452 $this->total_ht = $_facrec->total_ht;
453 $this->total_ttc = $_facrec->total_ttc;
454
455 // Fields always coming from template
456 $this->fk_incoterms = $_facrec->fk_incoterms;
457 $this->location_incoterms = $_facrec->location_incoterms;
458
459 // Clean parameters
460 if (! $this->type) {
461 $this->type = self::TYPE_STANDARD;
462 }
463 if (!empty(GETPOST('ref_supplier'))) {
464 $this->ref_supplier = trim($this->ref_supplier);
465 } else {
466 $this->ref_supplier = trim($this->ref_supplier . '_' . ($_facrec->nb_gen_done + 1));
467 }
468 $this->note_public = trim($this->note_public);
469 $this->note_private = trim($this->note_private);
470 $this->note_private = dol_concatdesc($this->note_private, $langs->trans("GeneratedFromRecurringInvoice", $_facrec->title));
471
472 $this->array_options = $_facrec->array_options;
473
474 if (! $this->mode_reglement_id) {
475 $this->mode_reglement_id = 0;
476 }
477 $this->status = self::STATUS_DRAFT;
478 $this->statut = self::STATUS_DRAFT; // deprecated
479
480 $this->linked_objects = $_facrec->linkedObjectsIds;
481 // We do not add link to template invoice or next invoice will be linked to all generated invoices
482 //$this->linked_objects['facturerec'][0] = $this->fac_rec;
483
484 $forceduedate = $this->calculate_date_lim_reglement();
485
486 // For recurring invoices, update date and number of last generation of recurring template invoice, before inserting new invoice
487 if ($_facrec->frequency > 0) {
488 dol_syslog("This is a recurring invoice so we set date_last_gen and next date_when");
489 if (empty($_facrec->date_when)) {
490 $_facrec->date_when = $now;
491 }
492 $next_date = $_facrec->getNextDate(); // Calculate next date
493 $result = $_facrec->setValueFrom('date_last_gen', $now, '', 0, 'date', '', $user, '');
494 //$_facrec->setValueFrom('nb_gen_done', $_facrec->nb_gen_done + 1); // Not required, +1 already included into setNextDate when second param is 1.
495 $result = $_facrec->setNextDate($next_date, 1);
496 }
497
498 // Define lang of customer
499 $outputlangs = $langs;
500 $newlang = '';
501
502 if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && isset($this->thirdparty->default_lang)) {
503 $newlang = $this->thirdparty->default_lang; // for proposal, order, invoice, ...
504 }
505 if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && isset($this->default_lang)) {
506 $newlang = $this->default_lang; // for thirdparty
507 }
508 if (!empty($newlang)) {
509 $outputlangs = new Translate("", $conf);
510 $outputlangs->setDefaultLang($newlang);
511 } // Array of possible substitutions (See also file mailing-send.php that should manage same substitutions)
512 $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $this);
513 $substitutionarray['__INVOICE_PREVIOUS_MONTH__'] = dol_print_date(dol_time_plus_duree($this->date, -1, 'm'), '%m');
514 $substitutionarray['__INVOICE_MONTH__'] = dol_print_date($this->date, '%m');
515 $substitutionarray['__INVOICE_NEXT_MONTH__'] = dol_print_date(dol_time_plus_duree($this->date, 1, 'm'), '%m');
516 $substitutionarray['__INVOICE_PREVIOUS_MONTH_TEXT__'] = dol_print_date(dol_time_plus_duree($this->date, -1, 'm'), '%B');
517 $substitutionarray['__INVOICE_MONTH_TEXT__'] = dol_print_date($this->date, '%B');
518 $substitutionarray['__INVOICE_NEXT_MONTH_TEXT__'] = dol_print_date(dol_time_plus_duree($this->date, 1, 'm'), '%B');
519 $substitutionarray['__INVOICE_PREVIOUS_YEAR__'] = dol_print_date(dol_time_plus_duree($this->date, -1, 'y'), '%Y');
520 $substitutionarray['__INVOICE_YEAR__'] = dol_print_date($this->date, '%Y');
521 $substitutionarray['__INVOICE_NEXT_YEAR__'] = dol_print_date(dol_time_plus_duree($this->date, 1, 'y'), '%Y'); // Only for template invoice
522 $substitutionarray['__INVOICE_DATE_NEXT_INVOICE_BEFORE_GEN__'] = $originaldatewhen ? dol_print_date($originaldatewhen, 'dayhour') : '';
523 $substitutionarray['__INVOICE_DATE_NEXT_INVOICE_AFTER_GEN__'] = $nextdatewhen ? dol_print_date($nextdatewhen, 'dayhour') : '';
524 $substitutionarray['__INVOICE_PREVIOUS_DATE_NEXT_INVOICE_AFTER_GEN__'] = $previousdaynextdatewhen ? dol_print_date($previousdaynextdatewhen, 'dayhour') : '';
525 $substitutionarray['__INVOICE_COUNTER_CURRENT__'] = $_facrec->nb_gen_done;
526 $substitutionarray['__INVOICE_COUNTER_MAX__'] = $_facrec->nb_gen_max;
527
528 complete_substitutions_array($substitutionarray, $outputlangs);
529
530 $this->note_public = make_substitutions($this->note_public, $substitutionarray);
531 $this->note_private = make_substitutions($this->note_private, $substitutionarray);
532 }
533
534 // Define due date if not already defined
535 if (!empty($forceduedate)) {
536 $this->date_echeance = $forceduedate;
537 }
538
539 $sql = "INSERT INTO ".MAIN_DB_PREFIX."facture_fourn (";
540 $sql .= "ref";
541 $sql .= ", ref_supplier";
542 $sql .= ", ref_ext";
543 $sql .= ", entity";
544 $sql .= ", type";
545 $sql .= ", subtype";
546 $sql .= ", libelle";
547 $sql .= ", fk_soc";
548 $sql .= ", datec";
549 $sql .= ", datef";
550 $sql .= ", vat_reverse_charge";
551 $sql .= ", fk_projet";
552 $sql .= ", fk_cond_reglement";
553 $sql .= ", fk_mode_reglement";
554 $sql .= ", fk_account";
555 $sql .= ", note_private";
556 $sql .= ", note_public";
557 $sql .= ", fk_user_author";
558 $sql .= ", date_lim_reglement";
559 $sql .= ", fk_incoterms, location_incoterms";
560 $sql .= ", fk_multicurrency";
561 $sql .= ", multicurrency_code";
562 $sql .= ", multicurrency_tx";
563 $sql .= ", fk_facture_source";
564 $sql .= ", fk_fac_rec_source";
565 $sql .= ")";
566 $sql .= " VALUES (";
567 $sql .= "'(PROV)'";
568 $sql .= ", '".$this->db->escape($this->ref_supplier)."'";
569 $sql .= ", '".$this->db->escape($this->ref_ext)."'";
570 $sql .= ", ".((int) $conf->entity);
571 $sql .= ", '".$this->db->escape($this->type)."'";
572 $sql .= ", ".((int) $this->subtype);
573 $sql .= ", '".$this->db->escape(isset($this->label) ? $this->label : (isset($this->libelle) ? $this->libelle : ''))."'";
574 $sql .= ", ".((int) $this->socid);
575 $sql .= ", '".$this->db->idate($now)."'";
576 $sql .= ", '".$this->db->idate($this->date)."'";
577 $sql .= ", ".($this->vat_reverse_charge != '' ? ((int) $this->db->escape($this->vat_reverse_charge)) : 0);
578 $sql .= ", ".($this->fk_project > 0 ? ((int) $this->fk_project) : "null");
579 $sql .= ", ".($this->cond_reglement_id > 0 ? ((int) $this->cond_reglement_id) : "null");
580 $sql .= ", ".($this->mode_reglement_id > 0 ? ((int) $this->mode_reglement_id) : "null");
581 $sql .= ", ".($this->fk_account > 0 ? ((int) $this->fk_account) : 'NULL');
582 $sql .= ", '".$this->db->escape($this->note_private)."'";
583 $sql .= ", '".$this->db->escape($this->note_public)."'";
584 $sql .= ", ".((int) $user->id).",";
585 $sql .= $this->date_echeance != '' ? "'".$this->db->idate($this->date_echeance)."'" : "null";
586 $sql .= ", ".(int) $this->fk_incoterms;
587 $sql .= ", '".$this->db->escape($this->location_incoterms)."'";
588 $sql .= ", ".(int) $this->fk_multicurrency;
589 $sql .= ", '".$this->db->escape($this->multicurrency_code)."'";
590 $sql .= ", ".(float) $this->multicurrency_tx;
591 $sql .= ", ".($this->fk_facture_source ? ((int) $this->fk_facture_source) : "null");
592 $sql .= ", ".(isset($this->fk_fac_rec_source) ? $this->fk_fac_rec_source : "NULL");
593 $sql .= ")";
594
595 dol_syslog(get_class($this)."::create", LOG_DEBUG);
596 $resql = $this->db->query($sql);
597 if ($resql) {
598 $this->id = $this->db->last_insert_id(MAIN_DB_PREFIX.'facture_fourn');
599
600 // Update ref with new one
601 $this->ref = '(PROV'.$this->id.')';
602 $sql = 'UPDATE '.MAIN_DB_PREFIX."facture_fourn SET ref='".$this->db->escape($this->ref)."' WHERE rowid=".((int) $this->id);
603
604 dol_syslog(get_class($this)."::create", LOG_DEBUG);
605 $resql = $this->db->query($sql);
606 if (!$resql) {
607 $error++;
608 }
609
610 if (!empty($this->linkedObjectsIds) && empty($this->linked_objects)) { // To use new linkedObjectsIds instead of old linked_objects
611 $this->linked_objects = $this->linkedObjectsIds; // TODO Replace linked_objects with linkedObjectsIds
612 }
613
614 // Add object linked
615 if (!$error && $this->id && !empty($this->linked_objects) && is_array($this->linked_objects)) {
616 foreach ($this->linked_objects as $origin => $tmp_origin_id) {
617 if (is_array($tmp_origin_id)) { // New behaviour, if linked_object can have several links per type, so is something like array('contract'=>array(id1, id2, ...))
618 foreach ($tmp_origin_id as $origin_id) {
619 $ret = $this->add_object_linked($origin, $origin_id);
620 if (!$ret) {
621 dol_print_error($this->db);
622 $error++;
623 }
624 }
625 } else { // Old behaviour, if linked_object has only one link per type, so is something like array('contract'=>id1))
626 $origin_id = $tmp_origin_id;
627 $ret = $this->add_object_linked($origin, $origin_id);
628 if (!$ret) {
629 dol_print_error($this->db);
630 $error++;
631 }
632 }
633 }
634 }
635
636 if (!$error && empty($this->fac_rec) && count($this->lines) && is_object($this->lines[0])) { // If this->lines is array of InvoiceLines (preferred mode)
637 dol_syslog("There is ".count($this->lines)." lines that are invoice lines objects");
638 foreach ($this->lines as $i => $val) {
639 $sql = 'INSERT INTO '.MAIN_DB_PREFIX.'facture_fourn_det (fk_facture_fourn, special_code, fk_remise_except)';
640 $sql .= " VALUES (".((int) $this->id).", ".((int) $this->lines[$i]->special_code).", ".($this->lines[$i]->fk_remise_except > 0 ? ((int) $this->lines[$i]->fk_remise_except) : 'NULL').')';
641
642 $resql_insert = $this->db->query($sql);
643 if ($resql_insert) {
644 $idligne = $this->db->last_insert_id(MAIN_DB_PREFIX.'facture_fourn_det');
645
646 $res = $this->updateline(
647 $idligne,
648 $this->lines[$i]->desc ? $this->lines[$i]->desc : $this->lines[$i]->description,
649 $this->lines[$i]->subprice,
650 $this->lines[$i]->tva_tx.($this->lines[$i]->vat_src_code ? ' ('.$this->lines[$i]->vat_src_code.')' : ''),
651 $this->lines[$i]->localtax1_tx,
652 $this->lines[$i]->localtax2_tx,
653 $this->lines[$i]->qty,
654 $this->lines[$i]->fk_product,
655 'HT',
656 (!empty($this->lines[$i]->info_bits) ? $this->lines[$i]->info_bits : ''),
657 $this->lines[$i]->product_type,
658 $this->lines[$i]->remise_percent,
659 false,
660 $this->lines[$i]->date_start,
661 $this->lines[$i]->date_end,
662 $this->lines[$i]->array_options,
663 $this->lines[$i]->fk_unit,
664 $this->lines[$i]->multicurrency_subprice,
665 $this->lines[$i]->ref_supplier
666 );
667 } else {
668 $this->error = $this->db->lasterror();
669 $this->db->rollback();
670 return -5;
671 }
672 }
673 } elseif (!$error && empty($this->fac_rec)) { // If this->lines is an array of invoice line arrays
674 dol_syslog("There is ".count($this->lines)." lines that are array lines");
675 foreach ($this->lines as $i => $val) {
676 $line = $this->lines[$i];
677
678 // Test and convert into object this->lines[$i]. When coming from REST API, we may still have an array
679 //if (! is_object($line)) $line=json_decode(json_encode($line), false); // convert recursively array into object.
680 if (!is_object($line)) {
681 $line = (object) $line;
682 }
683
684 $sql = 'INSERT INTO '.MAIN_DB_PREFIX.'facture_fourn_det (fk_facture_fourn, special_code, fk_remise_except)';
685 $sql .= " VALUES (".((int) $this->id).", ".((int) $this->lines[$i]->special_code).", ".($this->lines[$i]->fk_remise_except > 0 ? ((int) $this->lines[$i]->fk_remise_except) : 'NULL').')';
686
687 $resql_insert = $this->db->query($sql);
688 if ($resql_insert) {
689 $idligne = $this->db->last_insert_id(MAIN_DB_PREFIX.'facture_fourn_det');
690
691 $this->updateline(
692 $idligne,
693 $line->desc ? $line->desc : $line->description,
694 $line->subprice,
695 $line->tva_tx,
696 $line->localtax1_tx,
697 $line->localtax2_tx,
698 $line->qty,
699 $line->fk_product,
700 'HT',
701 (!empty($line->info_bits) ? $line->info_bits : ''),
702 $line->product_type,
703 $line->remise_percent,
704 0,
705 $line->date_start,
706 $line->date_end,
707 $line->array_options,
708 $line->fk_unit,
709 $line->multicurrency_subprice,
710 $line->ref_supplier
711 );
712 } else {
713 $this->error = $this->db->lasterror();
714 $this->db->rollback();
715 return -5;
716 }
717 }
718 }
719
720 /*
721 * Insert lines of template invoices
722 */
723 if (! $error && $this->fac_rec > 0 && $_facrec instanceof FactureFournisseurRec) {
724 foreach ($_facrec->lines as $i => $val) {
725 $product_type = $_facrec->lines[$i]->product_type;
726 if ($_facrec->lines[$i]->fk_product) {
727 $prod = new Product($this->db);
728 $res = $prod->fetch($_facrec->lines[$i]->fk_product);
729 }
730
731 // For line from template invoice, we use data from template invoice
732 /*
733 $tva_tx = get_default_tva($mysoc,$soc,$prod->id);
734 $tva_npr = get_default_npr($mysoc,$soc,$prod->id);
735 if (empty($tva_tx)) $tva_npr=0;
736 $localtax1_tx=get_localtax($tva_tx,1,$soc,$mysoc,$tva_npr);
737 $localtax2_tx=get_localtax($tva_tx,2,$soc,$mysoc,$tva_npr);
738 */
739 $tva_tx = $_facrec->lines[$i]->tva_tx . ($_facrec->lines[$i]->vat_src_code ? '(' . $_facrec->lines[$i]->vat_src_code . ')' : '');
740 $tva_npr = $_facrec->lines[$i]->info_bits;
741 if (empty($tva_tx)) {
742 $tva_npr = 0;
743 }
744 $localtax1_tx = $_facrec->lines[$i]->localtax1_tx;
745 $localtax2_tx = $_facrec->lines[$i]->localtax2_tx;
746
747 $fk_product_fournisseur_price = empty($_facrec->lines[$i]->fk_product_fournisseur_price) ? null : $_facrec->lines[$i]->fk_product_fournisseur_price;
748 $buyprice = empty($_facrec->lines[$i]->buyprice) ? 0 : $_facrec->lines[$i]->buyprice;
749
750 // If buyprice not defined from template invoice, we try to guess the best value
751 if (! $buyprice && $_facrec->lines[$i]->fk_product > 0) {
752 require_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.product.class.php';
753 $producttmp = new ProductFournisseur($this->db);
754 $producttmp->fetch($_facrec->lines[$i]->fk_product);
755
756 // If margin module defined on costprice, we try the costprice
757 // If not defined or if module margin defined and pmp and stock module enabled, we try pmp price
758 // else we get the best supplier price
759 if (getDolGlobalString('MARGIN_TYPE') == 'costprice' && !empty($producttmp->cost_price)) {
760 $buyprice = $producttmp->cost_price;
761 } elseif (isModEnabled('stock') && (getDolGlobalString('MARGIN_TYPE') == 'costprice' || getDolGlobalString('MARGIN_TYPE') == 'pmp') && !empty($producttmp->pmp)) {
762 $buyprice = $producttmp->pmp;
763 } else {
764 if ($producttmp->find_min_price_product_fournisseur($_facrec->lines[$i]->fk_product) > 0) {
765 if ($producttmp->product_fourn_price_id > 0) {
766 $buyprice = price2num($producttmp->fourn_unitprice * (1 - $producttmp->fourn_remise_percent / 100) + $producttmp->fourn_remise, 'MU');
767 }
768 }
769 }
770 }
771
772 $result_insert = $this->addline(
773 $_facrec->lines[$i]->desc ? $_facrec->lines[$i]->desc : $_facrec->lines[$i]->description,
774 $_facrec->lines[$i]->pu_ht,
775 $tva_tx,
776 $localtax1_tx,
777 $localtax2_tx,
778 $_facrec->lines[$i]->qty,
779 $_facrec->lines[$i]->fk_product,
780 $_facrec->lines[$i]->remise_percent,
781 ($_facrec->lines[$i]->date_start == 1 && $this->date) ? $this->date : '',
782 ($_facrec->lines[$i]->date_end == 1 && $previousdaynextdatewhen) ? $previousdaynextdatewhen : '',
783 0,
784 $_facrec->lines[$i]->info_bits,
785 'HT',
786 $product_type,
787 $_facrec->lines[$i]->rang,
788 false,
789 $_facrec->lines[$i]->array_options,
790 $_facrec->lines[$i]->fk_unit,
791 0,
792 0,
793 $_facrec->lines[$i]->ref_supplier,
794 $_facrec->lines[$i]->special_code,
795 0,
796 0
797 );
798 if ($result_insert < 0) {
799 $error++;
800 $this->error = $this->db->error();
801 break;
802 }
803 }
804 }
805
806
807 // Update total price
808 $result = $this->update_price(1);
809 if ($result > 0) {
810 // Actions on extra fields
811 if (!$error) {
812 $result = $this->insertExtraFields(); // This also set $this->error or $this->errors if errors are found
813 if ($result < 0) {
814 $error++;
815 }
816 }
817
818 if (!$error) {
819 // Call trigger
820 $result = $this->call_trigger('BILL_SUPPLIER_CREATE', $user);
821 if ($result < 0) {
822 $error++;
823 }
824 // End call triggers
825 }
826
827 if (!$error) {
828 $this->db->commit();
829 return $this->id;
830 } else {
831 $this->db->rollback();
832 return -4;
833 }
834 } else {
835 $this->error = $langs->trans('FailedToUpdatePrice');
836 $this->db->rollback();
837 return -3;
838 }
839 } else {
840 if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
841 $this->error = $langs->trans('ErrorRefAlreadyExists');
842 $this->db->rollback();
843 return -1;
844 } else {
845 $this->error = $this->db->lasterror();
846 $this->db->rollback();
847 return -2;
848 }
849 }
850 }
851
860 public function fetch($id = 0, $ref = '', $ref_ext = '')
861 {
862 if (empty($id) && empty($ref) && empty($ref_ext)) {
863 return -1;
864 }
865
866 $sql = "SELECT";
867 $sql .= " t.rowid,";
868 $sql .= " t.ref,";
869 $sql .= " t.ref_supplier,";
870 $sql .= " t.ref_ext,";
871 $sql .= " t.entity,";
872 $sql .= " t.type,";
873 $sql .= " t.subtype,";
874 $sql .= " t.fk_soc,";
875 $sql .= " t.datec,";
876 $sql .= " t.datef,";
877 $sql .= " t.tms,";
878 $sql .= " t.libelle as label,";
879 $sql .= " t.paye,";
880 $sql .= " t.close_code,";
881 $sql .= " t.close_note,";
882 $sql .= " t.tva,";
883 $sql .= " t.localtax1,";
884 $sql .= " t.localtax2,";
885 $sql .= " t.total_ht,";
886 $sql .= " t.total_tva,";
887 $sql .= " t.total_ttc,";
888 $sql .= " t.fk_statut as status,";
889 $sql .= " t.fk_user_author,";
890 $sql .= " t.fk_user_valid,";
891 $sql .= " t.fk_facture_source,";
892 $sql .= " t.vat_reverse_charge,";
893 $sql .= " t.fk_fac_rec_source,";
894 $sql .= " t.fk_projet as fk_project,";
895 $sql .= " t.fk_cond_reglement,";
896 $sql .= " t.fk_account,";
897 $sql .= " t.fk_mode_reglement,";
898 $sql .= " t.date_lim_reglement,";
899 $sql .= " t.note_private,";
900 $sql .= " t.note_public,";
901 $sql .= " t.model_pdf,";
902 $sql .= " t.last_main_doc,";
903 $sql .= " t.import_key,";
904 $sql .= " t.extraparams,";
905 $sql .= " cr.code as cond_reglement_code, cr.libelle as cond_reglement_label, cr.libelle_facture as cond_reglement_doc,";
906 $sql .= " p.code as mode_reglement_code, p.libelle as mode_reglement_label,";
907 $sql .= ' s.nom as socnom, s.rowid as socid,';
908 $sql .= ' t.fk_incoterms, t.location_incoterms,';
909 $sql .= " i.libelle as label_incoterms,";
910 $sql .= ' t.fk_transport_mode,';
911 $sql .= ' t.fk_multicurrency, t.multicurrency_code, t.multicurrency_tx, t.multicurrency_total_ht, t.multicurrency_total_tva, t.multicurrency_total_ttc';
912 $sql .= ' FROM '.MAIN_DB_PREFIX.'facture_fourn as t';
913 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON (t.fk_soc = s.rowid)";
914 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_payment_term as cr ON t.fk_cond_reglement = cr.rowid";
915 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_paiement as p ON t.fk_mode_reglement = p.id";
916 $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'c_incoterms as i ON t.fk_incoterms = i.rowid';
917 if ($id) {
918 $sql .= " WHERE t.rowid = ".((int) $id);
919 } else {
920 $sql .= ' WHERE t.entity IN ('.getEntity('supplier_invoice').')'; // Don't use entity if you use rowid
921 if ($ref) {
922 $sql .= " AND t.ref = '".$this->db->escape($ref)."'";
923 }
924 if ($ref_ext) {
925 $sql .= " AND t.ref_ext = '".$this->db->escape($ref_ext)."'";
926 }
927 }
928
929 dol_syslog(get_class($this)."::fetch", LOG_DEBUG);
930 $resql = $this->db->query($sql);
931 if ($resql) {
932 if ($this->db->num_rows($resql)) {
933 $obj = $this->db->fetch_object($resql);
934
935 $this->id = $obj->rowid;
936 $this->ref = $obj->ref ? $obj->ref : $obj->rowid; // We take rowid if ref is empty for backward compatibility
937
938 $this->ref_supplier = $obj->ref_supplier;
939 $this->ref_ext = $obj->ref_ext;
940 $this->entity = $obj->entity;
941 $this->type = empty($obj->type) ? self::TYPE_STANDARD : $obj->type;
942 $this->subtype = (int) $obj->subtype;
943 $this->socid = $obj->fk_soc;
944 $this->datec = $this->db->jdate($obj->datec);
945 $this->date = $this->db->jdate($obj->datef);
946 //$this->datep = $this->db->jdate($obj->datef);
947 $this->tms = $this->db->jdate($obj->tms);
948 $this->libelle = $obj->label; // deprecated
949 $this->label = $obj->label;
950 $this->paye = $obj->paye;
951 $this->paid = $obj->paye;
952 $this->close_code = $obj->close_code;
953 $this->close_note = $obj->close_note;
954 $this->total_localtax1 = $obj->localtax1;
955 $this->total_localtax2 = $obj->localtax2;
956 $this->total_ht = $obj->total_ht;
957 $this->total_tva = $obj->total_tva;
958 $this->total_ttc = $obj->total_ttc;
959 $this->status = $obj->status;
960 $this->statut = $obj->status; // For backward compatibility
961 $this->fk_statut = $obj->status; // For backward compatibility
962 $this->user_creation_id = $obj->fk_user_author;
963 $this->author = $obj->fk_user_author; // deprecated
964 $this->user_validation_id = $obj->fk_user_valid;
965 $this->fk_facture_source = $obj->fk_facture_source;
966 $this->vat_reverse_charge = empty($obj->vat_reverse_charge) ? 0 : 1;
967 $this->fk_fac_rec_source = $obj->fk_fac_rec_source;
968 $this->fk_project = $obj->fk_project;
969 $this->cond_reglement_id = $obj->fk_cond_reglement;
970 $this->cond_reglement_code = $obj->cond_reglement_code;
971 $this->cond_reglement = $obj->cond_reglement_label; // deprecated
972 $this->cond_reglement_label = $obj->cond_reglement_label;
973 $this->cond_reglement_doc = $obj->cond_reglement_doc;
974 $this->fk_account = $obj->fk_account;
975 $this->mode_reglement_id = $obj->fk_mode_reglement;
976 $this->mode_reglement_code = $obj->mode_reglement_code;
977 $this->mode_reglement = $obj->mode_reglement_label;
978 $this->date_echeance = $this->db->jdate($obj->date_lim_reglement);
979 $this->note = $obj->note_private; // deprecated
980 $this->note_private = $obj->note_private;
981 $this->note_public = $obj->note_public;
982 $this->model_pdf = $obj->model_pdf;
983 $this->last_main_doc = $obj->last_main_doc;
984 $this->import_key = $obj->import_key;
985
986 //Incoterms
987 $this->fk_incoterms = $obj->fk_incoterms;
988 $this->location_incoterms = $obj->location_incoterms;
989 $this->label_incoterms = $obj->label_incoterms;
990 $this->transport_mode_id = $obj->fk_transport_mode;
991
992 // Multicurrency
993 $this->fk_multicurrency = $obj->fk_multicurrency;
994 $this->multicurrency_code = $obj->multicurrency_code;
995 $this->multicurrency_tx = $obj->multicurrency_tx;
996 $this->multicurrency_total_ht = $obj->multicurrency_total_ht;
997 $this->multicurrency_total_tva = $obj->multicurrency_total_tva;
998 $this->multicurrency_total_ttc = $obj->multicurrency_total_ttc;
999
1000 $this->extraparams = isset($obj->extraparams) ? (array) json_decode($obj->extraparams, true) : array();
1001
1002 $this->socid = $obj->socid;
1003
1004 // Retrieve all extrafield
1005 // fetch optionals attributes and labels
1006 $this->fetch_optionals();
1007
1008 $result = $this->fetch_lines();
1009 if ($result < 0) {
1010 $this->error = $this->db->lasterror();
1011 return -3;
1012 }
1013 } else {
1014 $this->error = 'Bill with id '.$id.' not found';
1015 dol_syslog(get_class($this).'::fetch '.$this->error);
1016 return 0;
1017 }
1018
1019 $this->db->free($resql);
1020 return 1;
1021 } else {
1022 $this->error = "Error ".$this->db->lasterror();
1023 return -1;
1024 }
1025 }
1026
1027
1028 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1034 public function fetch_lines()
1035 {
1036 // phpcs:enable
1037 $this->lines = array();
1038
1039 $sql = 'SELECT f.rowid, f.ref as ref_supplier, f.description as line_desc, f.date_start, f.date_end, f.pu_ht, f.pu_ttc, f.qty, f.remise_percent, f.vat_src_code, f.tva_tx';
1040 $sql .= ', f.localtax1_tx, f.localtax2_tx, f.localtax1_type, f.localtax2_type, f.total_localtax1, f.total_localtax2, f.fk_facture_fourn, f.fk_remise_except';
1041 $sql .= ', f.total_ht, f.tva as total_tva, f.total_ttc, f.fk_product, f.product_type, f.info_bits, f.rang, f.special_code, f.fk_parent_line, f.fk_unit';
1042 $sql .= ', p.rowid as product_id, p.ref as product_ref, p.label as label, p.barcode as product_barcode, p.description as product_desc';
1043 $sql .= ', f.fk_code_ventilation, f.fk_multicurrency, f.multicurrency_code, f.multicurrency_subprice, f.multicurrency_total_ht, f.multicurrency_total_tva, f.multicurrency_total_ttc';
1044 $sql .= ' FROM '.MAIN_DB_PREFIX.'facture_fourn_det as f';
1045 $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'product as p ON f.fk_product = p.rowid';
1046 $sql .= ' WHERE fk_facture_fourn='.((int) $this->id);
1047 $sql .= ' ORDER BY f.rang, f.rowid';
1048
1049 dol_syslog(get_class($this)."::fetch_lines", LOG_DEBUG);
1050
1051 $resql_rows = $this->db->query($sql);
1052 if ($resql_rows) {
1053 $num_rows = $this->db->num_rows($resql_rows);
1054 if ($num_rows) {
1055 $i = 0;
1056 while ($i < $num_rows) {
1057 $obj = $this->db->fetch_object($resql_rows);
1058
1059 $line = new SupplierInvoiceLine($this->db);
1060
1061 $line->id = $obj->rowid;
1062 $line->rowid = $obj->rowid;
1063 $line->description = $obj->line_desc;
1064 $line->desc = $obj->line_desc;
1065 $line->date_start = $obj->date_start;
1066 $line->date_end = $obj->date_end;
1067 $line->product_ref = $obj->product_ref;
1068 $line->ref = $obj->product_ref;
1069 $line->ref_supplier = $obj->ref_supplier;
1070 $line->libelle = $obj->label;
1071 $line->label = $obj->label;
1072 $line->product_barcode = $obj->product_barcode;
1073 $line->product_desc = $obj->product_desc;
1074 $line->subprice = $obj->pu_ht;
1075 $line->pu_ht = $obj->pu_ht;
1076 $line->pu_ttc = $obj->pu_ttc;
1077 $line->vat_src_code = $obj->vat_src_code;
1078 $line->tva_tx = $obj->tva_tx;
1079 $line->localtax1_tx = $obj->localtax1_tx;
1080 $line->localtax2_tx = $obj->localtax2_tx;
1081 $line->localtax1_type = $obj->localtax1_type;
1082 $line->localtax2_type = $obj->localtax2_type;
1083 $line->qty = $obj->qty;
1084 $line->remise_percent = $obj->remise_percent;
1085 $line->fk_remise_except = $obj->fk_remise_except;
1086 //$line->tva = $obj->total_tva; // deprecated
1087 $line->total_ht = $obj->total_ht;
1088 $line->total_ttc = $obj->total_ttc;
1089 $line->total_tva = $obj->total_tva;
1090 $line->total_localtax1 = $obj->total_localtax1;
1091 $line->total_localtax2 = $obj->total_localtax2;
1092 $line->fk_facture_fourn = $obj->fk_facture_fourn;
1093 $line->fk_product = $obj->fk_product;
1094 $line->product_type = $obj->product_type;
1095 $line->product_label = $obj->label;
1096 $line->info_bits = $obj->info_bits;
1097 $line->fk_parent_line = $obj->fk_parent_line;
1098 $line->special_code = $obj->special_code;
1099 $line->rang = $obj->rang;
1100 $line->fk_unit = $obj->fk_unit;
1101
1102 // Accountancy
1103 $line->fk_accounting_account = $obj->fk_code_ventilation;
1104
1105 // Multicurrency
1106 $line->fk_multicurrency = $obj->fk_multicurrency;
1107 $line->multicurrency_code = $obj->multicurrency_code;
1108 $line->multicurrency_subprice = $obj->multicurrency_subprice;
1109 $line->multicurrency_total_ht = $obj->multicurrency_total_ht;
1110 $line->multicurrency_total_tva = $obj->multicurrency_total_tva;
1111 $line->multicurrency_total_ttc = $obj->multicurrency_total_ttc;
1112
1113 // Extra fields
1114 $line->fetch_optionals();
1115
1116 $this->lines[$i] = $line;
1117
1118 $i++;
1119 }
1120 }
1121 $this->db->free($resql_rows);
1122 return 1;
1123 } else {
1124 $this->error = $this->db->error();
1125 dol_syslog(get_class($this)."::fetch_lines - No lines:{$this->error} Error:{$this->error}", LOG_DEBUG);
1126 return -3;
1127 }
1128 }
1129
1130
1138 public function update($user = null, $notrigger = 0)
1139 {
1140 global $langs;
1141 $error = 0;
1142
1143 // Clean parameters
1144 if (empty($this->type)) {
1145 $this->type = self::TYPE_STANDARD;
1146 }
1147 if (isset($this->ref)) {
1148 $this->ref = trim($this->ref);
1149 }
1150 if (isset($this->ref_supplier)) {
1151 $this->ref_supplier = trim($this->ref_supplier);
1152 }
1153 if (isset($this->ref_ext)) {
1154 $this->ref_ext = trim($this->ref_ext);
1155 }
1156 if (isset($this->entity)) {
1157 $this->entity = (int) $this->entity;
1158 }
1159 if (isset($this->type)) {
1160 $this->type = (int) $this->type;
1161 }
1162 if (isset($this->subtype)) {
1163 $this->subtype = (int) $this->subtype;
1164 }
1165 if (isset($this->socid)) {
1166 $this->socid = (int) $this->socid;
1167 }
1168 if (isset($this->label)) {
1169 $this->label = trim($this->label);
1170 }
1171 if (isset($this->paid)) {
1172 $this->paid = (int) (bool) $this->paye;
1173 $this->paye = $this->paid;
1174 } elseif (isset($this->paye)) {
1175 $this->paid = (int) (bool) $this->paye;
1176 $this->paye = $this->paid;
1177 }
1178 if (isset($this->close_code)) {
1179 $this->close_code = trim($this->close_code);
1180 }
1181 if (isset($this->close_note)) {
1182 $this->close_note = trim($this->close_note);
1183 }
1184 if (empty($this->total_ht)) {
1185 $this->total_ht = 0;
1186 }
1187 if (empty($this->total_tva)) {
1188 $this->total_tva = 0;
1189 }
1190 if (empty($this->total_localtax1)) {
1191 $this->total_localtax1 = 0;
1192 }
1193 if (empty($this->total_localtax2)) {
1194 $this->total_localtax2 = 0;
1195 }
1196 if (isset($this->total_ttc)) {
1197 $this->total_ttc = (float) $this->total_ttc;
1198 }
1199 if (isset($this->status)) {
1200 $this->status = (int) $this->status;
1201 $this->statut = $this->status;
1202 } elseif (isset($this->statut)) {
1203 $this->status = (int) $this->statut;
1204 $this->statut = $this->status;
1205 }
1206 if (isset($this->author)) { // TODO: user_creation_id?
1207 $this->author = (int) $this->author;
1208 }
1209 if (isset($this->fk_user_valid)) {
1210 $this->fk_user_valid = trim($this->fk_user_valid);
1211 }
1212 if (isset($this->fk_facture_source)) {
1213 $this->fk_facture_source = (int) $this->fk_facture_source;
1214 }
1215 if (isset($this->fk_project)) {
1216 if (empty($this->fk_project)) {
1217 $this->fk_project = 0;
1218 } else {
1219 $this->fk_project = (int) $this->fk_project;
1220 }
1221 }
1222 if (isset($this->cond_reglement_id)) {
1223 $this->cond_reglement_id = (int) $this->cond_reglement_id;
1224 }
1225 if (isset($this->note_private)) {
1226 $this->note_private = trim($this->note_private);
1227 $this->note = $this->note_private;
1228 }
1229 if (isset($this->note_public)) {
1230 $this->note_public = trim($this->note_public);
1231 }
1232 if (isset($this->model_pdf)) {
1233 $this->model_pdf = trim($this->model_pdf);
1234 }
1235 if (isset($this->import_key)) {
1236 $this->import_key = trim($this->import_key);
1237 }
1238
1239
1240 // Check parameters
1241 // Put here code to add control on parameters values
1242
1243 // Update request
1244 $sql = "UPDATE ".MAIN_DB_PREFIX."facture_fourn SET";
1245 $sql .= " ref=".(isset($this->ref) ? "'".$this->db->escape($this->ref)."'" : "null").",";
1246 $sql .= " ref_supplier=".(isset($this->ref_supplier) ? "'".$this->db->escape($this->ref_supplier)."'" : "null").",";
1247 $sql .= " ref_ext=".(isset($this->ref_ext) ? "'".$this->db->escape($this->ref_ext)."'" : "null").",";
1248 $sql .= " entity=".(isset($this->entity) ? ((int) $this->entity) : "null").",";
1249 $sql .= " type=".(isset($this->type) ? ((int) $this->type) : "null").",";
1250 $sql .= " subtype=".((int) $this->subtype).",";
1251 $sql .= " fk_soc=".(isset($this->socid) ? ((int) $this->socid) : "null").",";
1252 $sql .= " datec=".(dol_strlen($this->datec) != 0 ? "'".$this->db->idate($this->datec)."'" : 'null').",";
1253 $sql .= " datef=".(dol_strlen($this->date) != 0 ? "'".$this->db->idate($this->date)."'" : 'null').",";
1254 if (dol_strlen($this->tms) != 0) {
1255 $sql .= " tms=".(dol_strlen($this->tms) != 0 ? "'".$this->db->idate($this->tms)."'" : 'null').",";
1256 }
1257 $sql .= " libelle=".(isset($this->label) ? "'".$this->db->escape($this->label)."'" : "null").",";
1258 $sql .= " paye=".(isset($this->paid) ? ((int) $this->paid) : "0").",";
1259 $sql .= " close_code=".(isset($this->close_code) ? "'".$this->db->escape($this->close_code)."'" : "null").",";
1260 $sql .= " close_note=".(isset($this->close_note) ? "'".$this->db->escape($this->close_note)."'" : "null").",";
1261 $sql .= " localtax1=".(isset($this->total_localtax1) ? ((float) $this->total_localtax1) : "null").",";
1262 $sql .= " localtax2=".(isset($this->total_localtax2) ? ((float) $this->total_localtax2) : "null").",";
1263 $sql .= " total_ht=".(isset($this->total_ht) ? ((float) $this->total_ht) : "null").",";
1264 $sql .= " total_tva=".(isset($this->total_tva) ? ((float) $this->total_tva) : "null").",";
1265 $sql .= " total_ttc=".(isset($this->total_ttc) ? ((float) $this->total_ttc) : "null").",";
1266 $sql .= " fk_statut=".(isset($this->status) ? ((int) $this->status) : (isset($this->statut) ? ((int) $this->statut) : "null")).",";
1267 $sql .= " fk_user_author=".(isset($this->author) ? ((int) $this->author) : "null").",";
1268 $sql .= " fk_user_valid=".(isset($this->fk_user_valid) ? ((int) $this->fk_user_valid) : "null").",";
1269 $sql .= " fk_facture_source=".($this->fk_facture_source ? ((int) $this->fk_facture_source) : "null").",";
1270 $sql .= " vat_reverse_charge = ".($this->vat_reverse_charge != '' ? ((int) $this->db->escape($this->vat_reverse_charge)) : 0).",";
1271 $sql .= " fk_projet=".(!empty($this->fk_project) ? ((int) $this->fk_project) : "null").",";
1272 $sql .= " fk_cond_reglement=".(isset($this->cond_reglement_id) ? ((int) $this->cond_reglement_id) : "null").",";
1273 $sql .= " date_lim_reglement=".(dol_strlen($this->date_echeance) != 0 ? "'".$this->db->idate($this->date_echeance)."'" : 'null').",";
1274 $sql .= " note_private=".(isset($this->note_private) ? "'".$this->db->escape($this->note_private)."'" : "null").",";
1275 $sql .= " note_public=".(isset($this->note_public) ? "'".$this->db->escape($this->note_public)."'" : "null").",";
1276 $sql .= " model_pdf=".(isset($this->model_pdf) ? "'".$this->db->escape($this->model_pdf)."'" : "null").",";
1277 $sql .= " import_key=".(isset($this->import_key) ? "'".$this->db->escape($this->import_key)."'" : "null");
1278 $sql .= " WHERE rowid=".((int) $this->id);
1279
1280 $this->db->begin();
1281
1282 dol_syslog(get_class($this)."::update", LOG_DEBUG);
1283 $resql = $this->db->query($sql);
1284
1285 if (!$resql) {
1286 $error++;
1287
1288 if ($this->db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
1289 $this->errors[] = $langs->trans('ErrorRefAlreadyExists');
1290 } else {
1291 $this->errors[] = "Error ".$this->db->lasterror();
1292 }
1293 }
1294
1295 if (!$error) {
1296 $result = $this->insertExtraFields();
1297 if ($result < 0) {
1298 $error++;
1299 }
1300 }
1301
1302 if (!$error) {
1303 if (!$notrigger) {
1304 // Call trigger
1305 $result = $this->call_trigger('BILL_SUPPLIER_MODIFY', $user);
1306 if ($result < 0) {
1307 $error++;
1308 }
1309 // End call triggers
1310 }
1311 }
1312
1313 // Commit or rollback
1314 if ($error) {
1315 foreach ($this->errors as $errmsg) {
1316 dol_syslog(get_class($this)."::update ".$errmsg, LOG_ERR);
1317 $this->error .= ($this->error ? ', '.$errmsg : $errmsg);
1318 }
1319 $this->db->rollback();
1320 return -1 * $error;
1321 } else {
1322 $this->db->commit();
1323 return 1;
1324 }
1325 }
1326
1327 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1334 public function insert_discount($idremise)
1335 {
1336 // phpcs:enable
1337 global $conf, $langs;
1338
1339 include_once DOL_DOCUMENT_ROOT.'/core/lib/price.lib.php';
1340 include_once DOL_DOCUMENT_ROOT.'/core/class/discount.class.php';
1341
1342 $this->db->begin();
1343
1344 $remise = new DiscountAbsolute($this->db);
1345 $result = $remise->fetch($idremise);
1346
1347 if ($result > 0) {
1348 if ($remise->fk_invoice_supplier) { // Protection against multiple submission
1349 $this->error = $langs->trans("ErrorDiscountAlreadyUsed");
1350 $this->db->rollback();
1351 return -5;
1352 }
1353
1354 $facligne = new SupplierInvoiceLine($this->db);
1355 $facligne->fk_facture_fourn = $this->id;
1356 $facligne->fk_remise_except = $remise->id;
1357 $facligne->desc = $remise->description; // Description ligne
1358 $facligne->vat_src_code = $remise->vat_src_code;
1359 $facligne->tva_tx = $remise->tva_tx;
1360 $facligne->subprice = -$remise->amount_ht;
1361 $facligne->fk_product = 0; // Id produit predefini
1362 $facligne->product_type = 0;
1363 $facligne->qty = 1;
1364 $facligne->remise_percent = 0;
1365 $facligne->rang = -1;
1366 $facligne->info_bits = 2;
1367
1368 if (getDolGlobalString('MAIN_ADD_LINE_AT_POSITION')) {
1369 $facligne->rang = 1;
1370 $linecount = count($this->lines);
1371 for ($ii = 1; $ii <= $linecount; $ii++) {
1372 $this->updateRangOfLine($this->lines[$ii - 1]->id, $ii + 1);
1373 }
1374 }
1375
1376 // Get buy/cost price of invoice that is source of discount
1377 if ($remise->fk_invoice_supplier_source > 0) {
1378 $srcinvoice = new FactureFournisseur($this->db);
1379 $srcinvoice->fetch($remise->fk_invoice_supplier_source);
1380 $totalcostpriceofinvoice = 0;
1381 include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmargin.class.php'; // TODO Move this into commonobject
1382 $formmargin = new FormMargin($this->db);
1383 $arraytmp = $formmargin->getMarginInfosArray($srcinvoice, false);
1384 $facligne->pa_ht = $arraytmp['pa_total'];
1385 }
1386
1387 $facligne->total_ht = -$remise->amount_ht;
1388 $facligne->total_tva = -$remise->amount_tva;
1389 $facligne->total_ttc = -$remise->amount_ttc;
1390
1391 $facligne->multicurrency_subprice = -$remise->multicurrency_subprice;
1392 $facligne->multicurrency_total_ht = -$remise->multicurrency_total_ht;
1393 $facligne->multicurrency_total_tva = -$remise->multicurrency_total_tva;
1394 $facligne->multicurrency_total_ttc = -$remise->multicurrency_total_ttc;
1395
1396 $lineid = $facligne->insert();
1397 if ($lineid > 0) {
1398 $result = $this->update_price(1);
1399 if ($result > 0) {
1400 // Create link between discount and invoice line
1401 $result = $remise->link_to_invoice($lineid, 0);
1402 if ($result < 0) {
1403 $this->error = $remise->error;
1404 $this->db->rollback();
1405 return -4;
1406 }
1407
1408 $this->db->commit();
1409 return 1;
1410 } else {
1411 $this->error = $facligne->error;
1412 $this->db->rollback();
1413 return -1;
1414 }
1415 } else {
1416 $this->error = $facligne->error;
1417 $this->db->rollback();
1418 return -2;
1419 }
1420 } else {
1421 $this->db->rollback();
1422 return -3;
1423 }
1424 }
1425
1426
1434 public function delete(User $user, $notrigger = 0)
1435 {
1436 global $conf;
1437
1438 $rowid = $this->id;
1439
1440 dol_syslog("FactureFournisseur::delete rowid=".$rowid, LOG_DEBUG);
1441
1442 // TODO Test if there is at least on payment. If yes, refuse to delete.
1443
1444 $error = 0;
1445 $this->db->begin();
1446
1447 if (!$error && !$notrigger) {
1448 // Call trigger
1449 $result = $this->call_trigger('BILL_SUPPLIER_DELETE', $user);
1450 if ($result < 0) {
1451 $this->db->rollback();
1452 return -1;
1453 }
1454 // Fin appel triggers
1455 }
1456
1457 if (!$error) {
1458 // If invoice was converted into a discount not yet consumed, we remove discount
1459 $sql = 'DELETE FROM '.MAIN_DB_PREFIX.'societe_remise_except';
1460 $sql .= ' WHERE fk_invoice_supplier_source = '.((int) $rowid);
1461 $sql .= ' AND fk_invoice_supplier_line IS NULL';
1462 $resql = $this->db->query($sql);
1463
1464 // If invoice has consumned discounts
1465 $this->fetch_lines();
1466 $list_rowid_det = array();
1467 foreach ($this->lines as $key => $invoiceline) {
1468 $list_rowid_det[] = $invoiceline->id;
1469 }
1470
1471 // Consumned discounts are freed
1472 if (count($list_rowid_det)) {
1473 $sql = 'UPDATE '.MAIN_DB_PREFIX.'societe_remise_except';
1474 $sql .= ' SET fk_invoice_supplier = NULL, fk_invoice_supplier_line = NULL';
1475 $sql .= ' WHERE fk_invoice_supplier_line IN ('.$this->db->sanitize(implode(',', $list_rowid_det)).')';
1476
1477 dol_syslog(get_class($this)."::delete", LOG_DEBUG);
1478 if (!$this->db->query($sql)) {
1479 $error++;
1480 }
1481 }
1482 }
1483
1484 if (!$error) {
1485 $main = MAIN_DB_PREFIX.'facture_fourn_det';
1486 $ef = $main."_extrafields";
1487 $sqlef = "DELETE FROM $ef WHERE fk_object IN (SELECT rowid FROM ".$main." WHERE fk_facture_fourn = ".((int) $rowid).")";
1488 $resqlef = $this->db->query($sqlef);
1489 $sql = 'DELETE FROM '.MAIN_DB_PREFIX.'facture_fourn_det WHERE fk_facture_fourn = '.((int) $rowid);
1490 dol_syslog(get_class($this)."::delete", LOG_DEBUG);
1491 $resql = $this->db->query($sql);
1492 if ($resqlef && $resql) {
1493 $sql = 'DELETE FROM '.MAIN_DB_PREFIX.'facture_fourn WHERE rowid = '.((int) $rowid);
1494 dol_syslog(get_class($this)."::delete", LOG_DEBUG);
1495 $resql2 = $this->db->query($sql);
1496 if (!$resql2) {
1497 $error++;
1498 }
1499 } else {
1500 $error++;
1501 }
1502 }
1503
1504 if (!$error) {
1505 // Delete linked object
1506 $res = $this->deleteObjectLinked();
1507 if ($res < 0) {
1508 $error++;
1509 }
1510 }
1511
1512 if (!$error) {
1513 // Delete record into ECM index (Note that delete is also done when deleting files with the dol_delete_dir_recursive
1514 $this->deleteEcmFiles(0); // Deleting files physically is done later with the dol_delete_dir_recursive
1515 $this->deleteEcmFiles(1); // Deleting files physically is done later with the dol_delete_dir_recursive
1516
1517 // We remove directory
1518 if ($conf->fournisseur->facture->dir_output) {
1519 include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
1520
1521 $ref = dol_sanitizeFileName($this->ref);
1522 $dir = $conf->fournisseur->facture->dir_output.'/'.get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$ref;
1523 $file = $dir."/".$ref.".pdf";
1524 if (file_exists($file)) {
1525 if (!dol_delete_file($file, 0, 0, 0, $this)) { // For triggers
1526 $this->error = 'ErrorFailToDeleteFile';
1527 $error++;
1528 }
1529 }
1530 if (file_exists($dir)) {
1531 $res = @dol_delete_dir_recursive($dir);
1532
1533 if (!$res) {
1534 $this->error = 'ErrorFailToDeleteDir';
1535 $error++;
1536 }
1537 }
1538 }
1539 }
1540
1541 // Remove extrafields
1542 if (!$error) {
1543 $result = $this->deleteExtraFields();
1544 if ($result < 0) {
1545 $error++;
1546 dol_syslog(get_class($this)."::delete error -4 ".$this->error, LOG_ERR);
1547 }
1548 }
1549
1550 if (!$error) {
1551 dol_syslog(get_class($this)."::delete $this->id by $user->id", LOG_DEBUG);
1552 $this->db->commit();
1553 return 1;
1554 } else {
1555 $this->error = $this->db->lasterror();
1556 $this->db->rollback();
1557 return -$error;
1558 }
1559 }
1560
1561
1562 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1573 public function set_paid($user, $close_code = '', $close_note = '')
1574 {
1575 // phpcs:enable
1576 dol_syslog(get_class($this)."::set_paid is deprecated, use setPaid instead", LOG_NOTICE);
1577 return $this->setPaid($user, $close_code, $close_note);
1578 }
1579
1588 public function setPaid($user, $close_code = '', $close_note = '')
1589 {
1590 $error = 0;
1591
1592 if ($this->paid != 1) {
1593 $this->db->begin();
1594
1595 $now = dol_now();
1596
1597 dol_syslog("FactureFournisseur::setPaid", LOG_DEBUG);
1598
1599 $sql = 'UPDATE '.MAIN_DB_PREFIX.'facture_fourn SET';
1600 $sql .= ' fk_statut = '.self::STATUS_CLOSED;
1601 if (!$close_code) {
1602 $sql .= ', paye=1';
1603 }
1604 if ($close_code) {
1605 $sql .= ", close_code='".$this->db->escape($close_code)."'";
1606 }
1607 if ($close_note) {
1608 $sql .= ", close_note='".$this->db->escape($close_note)."'";
1609 }
1610 $sql .= ', fk_user_closing = '.((int) $user->id);
1611 $sql .= ", date_closing = '".$this->db->idate($now)."'";
1612 $sql .= ' WHERE rowid = '.((int) $this->id);
1613
1614 $resql = $this->db->query($sql);
1615 if ($resql) {
1616 // Call trigger
1617 $result = $this->call_trigger('BILL_SUPPLIER_PAYED', $user);
1618 if ($result < 0) {
1619 $error++;
1620 }
1621 // End call triggers
1622 } else {
1623 $error++;
1624 $this->error = $this->db->error();
1625 dol_print_error($this->db);
1626 }
1627
1628 if (!$error) {
1629 $this->db->commit();
1630 return 1;
1631 } else {
1632 $this->db->rollback();
1633 return -1;
1634 }
1635 } else {
1636 return 0;
1637 }
1638 }
1639
1640 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1651 public function set_unpaid($user)
1652 {
1653 // phpcs:enable
1654 dol_syslog(get_class($this)."::set_unpaid is deprecated, use setUnpaid instead", LOG_NOTICE);
1655 return $this->setUnpaid($user);
1656 }
1657
1666 public function setUnpaid($user)
1667 {
1668 $error = 0;
1669
1670 $this->db->begin();
1671
1672 $sql = 'UPDATE '.MAIN_DB_PREFIX.'facture_fourn';
1673 $sql .= ' SET paye=0, fk_statut='.self::STATUS_VALIDATED.', close_code=null, close_note=null,';
1674 $sql .= ' date_closing=null,';
1675 $sql .= ' fk_user_closing=null';
1676 $sql .= ' WHERE rowid = '.((int) $this->id);
1677
1678 dol_syslog(get_class($this)."::set_unpaid", LOG_DEBUG);
1679 $resql = $this->db->query($sql);
1680 if ($resql) {
1681 // Call trigger
1682 $result = $this->call_trigger('BILL_SUPPLIER_UNPAYED', $user);
1683 if ($result < 0) {
1684 $error++;
1685 }
1686 // End call triggers
1687 } else {
1688 $error++;
1689 $this->error = $this->db->error();
1690 dol_print_error($this->db);
1691 }
1692
1693 if (!$error) {
1694 $this->db->commit();
1695 return 1;
1696 } else {
1697 $this->db->rollback();
1698 return -1;
1699 }
1700 }
1701
1712 public function setCanceled($user, $close_code = '', $close_note = '')
1713 {
1714 dol_syslog(get_class($this)."::setCanceled rowid=".((int) $this->id), LOG_DEBUG);
1715
1716 $this->db->begin();
1717
1718 $sql = 'UPDATE '.MAIN_DB_PREFIX.'facture_fourn SET';
1719 $sql .= ' fk_statut='.self::STATUS_ABANDONED;
1720 if ($close_code) {
1721 $sql .= ", close_code='".$this->db->escape($close_code)."'";
1722 }
1723 if ($close_note) {
1724 $sql .= ", close_note='".$this->db->escape($close_note)."'";
1725 }
1726 $sql .= " WHERE rowid = ".((int) $this->id);
1727
1728 $resql = $this->db->query($sql);
1729 if ($resql) {
1730 // Bound discounts are deducted from the invoice
1731 // as they have not been used since the invoice is abandoned.
1732 $sql = 'UPDATE '.MAIN_DB_PREFIX.'societe_remise_except';
1733 $sql .= ' SET fk_invoice_supplier = NULL';
1734 $sql .= ' WHERE fk_invoice_supplier = '.((int) $this->id);
1735
1736 $resql = $this->db->query($sql);
1737 if ($resql) {
1738 // Call trigger
1739 $result = $this->call_trigger('BILL_SUPPLIER_CANCEL', $user);
1740 if ($result < 0) {
1741 $this->db->rollback();
1742 return -1;
1743 }
1744 // End call triggers
1745
1746 $this->db->commit();
1747 return 1;
1748 } else {
1749 $this->error = $this->db->error()." sql=".$sql;
1750 $this->db->rollback();
1751 return -1;
1752 }
1753 } else {
1754 $this->error = $this->db->error()." sql=".$sql;
1755 $this->db->rollback();
1756 return -2;
1757 }
1758 }
1759
1769 public function validate($user, $force_number = '', $idwarehouse = 0, $notrigger = 0)
1770 {
1771 global $mysoc, $conf, $langs;
1772
1773 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
1774
1775 $now = dol_now();
1776
1777 $error = 0;
1778 dol_syslog(get_class($this).'::validate user='.$user->id.', force_number='.$force_number.', idwarehouse='.$idwarehouse);
1779
1780 // Force to have object complete for checks
1781 $this->fetch_thirdparty();
1782 $this->fetch_lines();
1783
1784 // Check parameters
1785 if ($this->status > self::STATUS_DRAFT) { // This is to avoid to validate twice (avoid errors on logs and stock management)
1786 dol_syslog(get_class($this)."::validate no draft status", LOG_WARNING);
1787 return 0;
1788 }
1789 if (preg_match('/^'.preg_quote($langs->trans("CopyOf").' ').'/', $this->ref_supplier)) {
1790 $langs->load("errors");
1791 $this->error = $langs->trans("ErrorFieldFormat", $langs->transnoentities("RefSupplier")).'. '.$langs->trans('RemoveString', $langs->transnoentitiesnoconv("CopyOf"));
1792 return -1;
1793 }
1794 if (count($this->lines) <= 0) {
1795 $langs->load("errors");
1796 $this->error = $langs->trans("ErrorObjectMustHaveLinesToBeValidated", $this->ref);
1797 return -1;
1798 }
1799
1800 // Check for mandatory fields in thirdparty (defined into setup)
1801 if (!empty($this->thirdparty) && is_object($this->thirdparty)) {
1802 $array_to_check = array('IDPROF1', 'IDPROF2', 'IDPROF3', 'IDPROF4', 'IDPROF5', 'IDPROF6', 'EMAIL', 'ACCOUNTANCY_CODE_SUPPLIER');
1803 foreach ($array_to_check as $key) {
1804 $keymin = strtolower($key);
1805 if ($keymin == 'accountancy_code_supplier') {
1806 $keymin = 'code_compta_fournisseur';
1807 }
1808 if (!property_exists($this->thirdparty, $keymin)) {
1809 continue;
1810 }
1811 $vallabel = $this->thirdparty->$keymin;
1812
1813 $i = (int) preg_replace('/[^0-9]/', '', $key);
1814 if ($i > 0) {
1815 if ($this->thirdparty->isACompany()) {
1816 // Check for mandatory prof id (but only if country is other than ours)
1817 if ($mysoc->country_id > 0 && $this->thirdparty->country_id == $mysoc->country_id) {
1818 $idprof_mandatory = 'SOCIETE_'.$key.'_INVOICE_MANDATORY';
1819 if (!$vallabel && getDolGlobalString($idprof_mandatory)) {
1820 $langs->load("errors");
1821 $this->error = $langs->trans('ErrorProdIdIsMandatory', $langs->transcountry('ProfId'.$i, $this->thirdparty->country_code)).' ('.$langs->trans("ForbiddenBySetupRules").') ['.$langs->trans('Company').' : '.$this->thirdparty->name.']';
1822 dol_syslog(__METHOD__.' '.$this->error, LOG_ERR);
1823 return -1;
1824 }
1825 }
1826 }
1827 } else {
1828 if ($key == 'EMAIL') {
1829 // Check for mandatory
1830 if (getDolGlobalString('SOCIETE_EMAIL_INVOICE_MANDATORY') && !isValidEmail($this->thirdparty->email)) {
1831 $langs->load("errors");
1832 $this->error = $langs->trans("ErrorBadEMail", $this->thirdparty->email).' ('.$langs->trans("ForbiddenBySetupRules").') ['.$langs->trans('Company').' : '.$this->thirdparty->name.']';
1833 dol_syslog(__METHOD__.' '.$this->error, LOG_ERR);
1834 return -1;
1835 }
1836 } elseif ($key == 'ACCOUNTANCY_CODE_SUPPLIER') {
1837 // Check for mandatory
1838 if (getDolGlobalString('SOCIETE_ACCOUNTANCY_CODE_SUPPLIER_INVOICE_MANDATORY') && empty($this->thirdparty->code_compta_fournisseur)) {
1839 $langs->load("errors");
1840 $this->error = $langs->trans("ErrorAccountancyCodeSupplierIsMandatory", $this->thirdparty->name).' ('.$langs->trans("ForbiddenBySetupRules").')';
1841 dol_syslog(__METHOD__.' '.$this->error, LOG_ERR);
1842 return -1;
1843 }
1844 }
1845 }
1846 }
1847 }
1848
1849 $this->db->begin();
1850
1851 // Define new ref
1852 if ($force_number) {
1853 $num = $force_number;
1854 } elseif (preg_match('/^[\‍(]?PROV/i', $this->ref) || empty($this->ref)) { // empty should not happened, but when it occurs, the test save life
1855 $num = $this->getNextNumRef($this->thirdparty);
1856 } else {
1857 $num = $this->ref;
1858 }
1859 $this->newref = dol_sanitizeFileName($num);
1860
1861 $sql = "UPDATE ".MAIN_DB_PREFIX."facture_fourn";
1862 $sql .= " SET ref='".$this->db->escape($num)."', fk_statut = 1, fk_user_valid = ".((int) $user->id).", date_valid = '".$this->db->idate($now)."'";
1863 $sql .= " WHERE rowid = ".((int) $this->id);
1864
1865 dol_syslog(get_class($this)."::validate", LOG_DEBUG);
1866 $resql = $this->db->query($sql);
1867 if ($resql) {
1868 // Si on incrémente le produit principal et ses composants à la validation de facture fournisseur
1869 if (!$error && isModEnabled('stock') && getDolGlobalString('STOCK_CALCULATE_ON_SUPPLIER_BILL')) {
1870 require_once DOL_DOCUMENT_ROOT.'/product/stock/class/mouvementstock.class.php';
1871 $langs->load("agenda");
1872
1873 $cpt = count($this->lines);
1874 for ($i = 0; $i < $cpt; $i++) {
1875 if ($this->lines[$i]->fk_product > 0) {
1876 $mouvP = new MouvementStock($this->db);
1877 $mouvP->origin = &$this;
1878 $mouvP->setOrigin($this->element, $this->id);
1879 // We increase stock for product
1880 $up_ht_disc = $this->lines[$i]->subprice;
1881 if (!empty($this->lines[$i]->remise_percent) && !getDolGlobalString('STOCK_EXCLUDE_DISCOUNT_FOR_PMP')) {
1882 $up_ht_disc = price2num($up_ht_disc * (100 - $this->lines[$i]->remise_percent) / 100, 'MU');
1883 }
1885 $result = $mouvP->livraison($user, $this->lines[$i]->fk_product, $idwarehouse, $this->lines[$i]->qty, $up_ht_disc, $langs->trans("InvoiceValidatedInDolibarr", $num));
1886 } else {
1887 $result = $mouvP->reception($user, $this->lines[$i]->fk_product, $idwarehouse, $this->lines[$i]->qty, $up_ht_disc, $langs->trans("InvoiceValidatedInDolibarr", $num));
1888 }
1889 if ($result < 0) {
1890 $this->error = $mouvP->error;
1891 if (count($mouvP->errors)) {
1892 $this->errors = $mouvP->errors;
1893 }
1894 return -2;
1895 }
1896 }
1897 }
1898 }
1899
1900 // Triggers call
1901 if (!$error && empty($notrigger)) {
1902 // Call trigger
1903 $result = $this->call_trigger('BILL_SUPPLIER_VALIDATE', $user);
1904 if ($result < 0) {
1905 $error++;
1906 }
1907 // End call triggers
1908 }
1909
1910 if (!$error) {
1911 $this->oldref = $this->ref;
1912
1913 // Rename directory if dir was a temporary ref
1914 if (preg_match('/^[\‍(]?PROV/i', $this->ref)) {
1915 // Now we rename also files into index
1916 $sql = 'UPDATE '.MAIN_DB_PREFIX."ecm_files set filename = CONCAT('".$this->db->escape($this->newref)."', SUBSTR(filename, ".(strlen($this->ref) + 1).")), filepath = 'fournisseur/facture/".get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$this->db->escape($this->newref)."'";
1917 $sql .= " WHERE filename LIKE '".$this->db->escape($this->ref)."%' AND filepath = 'fournisseur/facture/".get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$this->db->escape($this->ref)."' and entity = ".$conf->entity;
1918 $resql = $this->db->query($sql);
1919 if (!$resql) {
1920 $error++;
1921 $this->error = $this->db->lasterror();
1922 }
1923 $sql = 'UPDATE '.MAIN_DB_PREFIX."ecm_files set filepath = 'fournisseur/facture/".get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$this->db->escape($this->newref)."'";
1924 $sql .= " WHERE filepath = 'fournisseur/facture/".get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$this->db->escape($this->ref)."' and entity = ".$conf->entity;
1925 $resql = $this->db->query($sql);
1926 if (!$resql) {
1927 $error++;
1928 $this->error = $this->db->lasterror();
1929 }
1930
1931 // We rename directory ($this->ref = old ref, $num = new ref) in order not to lose the attachments
1932 $oldref = dol_sanitizeFileName($this->ref);
1933 $dirsource = $conf->fournisseur->facture->dir_output.'/'.get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$oldref;
1934 $dirdest = $conf->fournisseur->facture->dir_output.'/'.get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$this->newref;
1935 if (!$error && file_exists($dirsource)) {
1936 dol_syslog(get_class($this)."::validate rename dir ".$dirsource." into ".$dirdest);
1937
1938 if (@rename($dirsource, $dirdest)) {
1939 dol_syslog("Rename ok");
1940 // Rename docs starting with $oldref with $this->newref
1941 $listoffiles = dol_dir_list($conf->fournisseur->facture->dir_output.'/'.get_exdir($this->id, 2, 0, 0, $this, 'invoice_supplier').$this->newref, 'files', 1, '^'.preg_quote($oldref, '/'));
1942 foreach ($listoffiles as $fileentry) {
1943 $dirsource = $fileentry['name'];
1944 $dirdest = preg_replace('/^'.preg_quote($oldref, '/').'/', $this->newref, $dirsource);
1945 $dirsource = $fileentry['path'].'/'.$dirsource;
1946 $dirdest = $fileentry['path'].'/'.$dirdest;
1947 @rename($dirsource, $dirdest);
1948 }
1949 }
1950 }
1951 }
1952 }
1953
1954 // Set new ref and define current statut
1955 if (!$error) {
1956 $this->ref = $this->newref;
1959 //$this->date_validation=$now; this is stored into log table
1960 }
1961
1962 if (!$error) {
1963 $this->db->commit();
1964 return 1;
1965 } else {
1966 $this->db->rollback();
1967 return -1;
1968 }
1969 } else {
1970 $this->error = $this->db->error();
1971 $this->db->rollback();
1972 return -1;
1973 }
1974 }
1975
1984 public function setDraft($user, $idwarehouse = -1, $notrigger = 0)
1985 {
1986 // phpcs:enable
1987 global $conf, $langs;
1988
1989 $error = 0;
1990
1991 if ($this->status == self::STATUS_DRAFT) {
1992 dol_syslog(__METHOD__." already draft status", LOG_WARNING);
1993 return 0;
1994 }
1995
1996 dol_syslog(__METHOD__, LOG_DEBUG);
1997
1998 $this->db->begin();
1999
2000 $sql = "UPDATE ".MAIN_DB_PREFIX."facture_fourn";
2001 $sql .= " SET fk_statut = ".self::STATUS_DRAFT;
2002 $sql .= " WHERE rowid = ".((int) $this->id);
2003
2004 $result = $this->db->query($sql);
2005 if ($result) {
2006 if (!$error) {
2007 $this->oldcopy = clone $this;
2008 }
2009
2010 // Si on incremente le produit principal et ses composants a la validation de facture fournisseur, on decremente
2011 if ($result >= 0 && isModEnabled('stock') && getDolGlobalString('STOCK_CALCULATE_ON_SUPPLIER_BILL')) {
2012 require_once DOL_DOCUMENT_ROOT.'/product/stock/class/mouvementstock.class.php';
2013 $langs->load("agenda");
2014
2015 $cpt = count($this->lines);
2016 for ($i = 0; $i < $cpt; $i++) {
2017 if ($this->lines[$i]->fk_product > 0) {
2018 $mouvP = new MouvementStock($this->db);
2019 $mouvP->origin = &$this;
2020 $mouvP->setOrigin($this->element, $this->id);
2021 // We increase stock for product
2023 $result = $mouvP->reception($user, $this->lines[$i]->fk_product, $idwarehouse, $this->lines[$i]->qty, $this->lines[$i]->subprice, $langs->trans("InvoiceBackToDraftInDolibarr", $this->ref));
2024 } else {
2025 $result = $mouvP->livraison($user, $this->lines[$i]->fk_product, $idwarehouse, $this->lines[$i]->qty, $this->lines[$i]->subprice, $langs->trans("InvoiceBackToDraftInDolibarr", $this->ref));
2026 }
2027 }
2028 }
2029 }
2030 // Triggers call
2031 if (!$error && empty($notrigger)) {
2032 // Call trigger
2033 $result = $this->call_trigger('BILL_SUPPLIER_UNVALIDATE', $user);
2034 if ($result < 0) {
2035 $error++;
2036 }
2037 // End call triggers
2038 }
2039 if ($error == 0) {
2040 $this->db->commit();
2041 return 1;
2042 } else {
2043 $this->db->rollback();
2044 return -1;
2045 }
2046 } else {
2047 $this->error = $this->db->error();
2048 $this->db->rollback();
2049 return -1;
2050 }
2051 }
2052
2053
2087 public function addline($desc, $pu, $txtva, $txlocaltax1, $txlocaltax2, $qty, $fk_product = 0, $remise_percent = 0, $date_start = 0, $date_end = 0, $fk_code_ventilation = 0, $info_bits = 0, $price_base_type = 'HT', $type = 0, $rang = -1, $notrigger = 0, $array_options = [], $fk_unit = null, $origin_id = 0, $pu_devise = 0, $ref_supplier = '', $special_code = 0, $fk_parent_line = 0, $fk_remise_except = 0)
2088 {
2089 global $langs, $mysoc;
2090
2091 dol_syslog(get_class($this)."::addline $desc,$pu,$qty,$txtva,$fk_product,$remise_percent,$date_start,$date_end,$fk_code_ventilation,$info_bits,$price_base_type,$type,$fk_unit,fk_remise_except=$fk_remise_except", LOG_DEBUG);
2092 include_once DOL_DOCUMENT_ROOT.'/core/lib/price.lib.php';
2093
2094 if ($this->status == self::STATUS_DRAFT) {
2095 // Clean parameters
2096 if (empty($remise_percent)) {
2097 $remise_percent = 0;
2098 }
2099 if (empty($qty)) {
2100 $qty = 0;
2101 }
2102 if (empty($info_bits)) {
2103 $info_bits = 0;
2104 }
2105 if (empty($rang)) {
2106 $rang = 0;
2107 }
2108 if (empty($fk_code_ventilation)) {
2109 $fk_code_ventilation = 0;
2110 }
2111 if (empty($txtva)) {
2112 $txtva = 0;
2113 }
2114 if (empty($txlocaltax1)) {
2115 $txlocaltax1 = 0;
2116 }
2117 if (empty($txlocaltax2)) {
2118 $txlocaltax2 = 0;
2119 }
2120
2121 $remise_percent = price2num($remise_percent);
2122 $qty = price2num($qty);
2123 $pu = price2num($pu);
2124 if (!preg_match('/\‍((.*)\‍)/', (string) $txtva)) {
2125 $txtva = price2num($txtva); // $txtva can have format '5,1' or '5.1' or '5.1(XXX)', we must clean only if '5,1'
2126 }
2127 $txlocaltax1 = price2num($txlocaltax1);
2128 $txlocaltax2 = price2num($txlocaltax2);
2129
2130 if ($date_start && $date_end && $date_start > $date_end) {
2131 $langs->load("errors");
2132 $this->error = $langs->trans('ErrorStartDateGreaterEnd');
2133 return -1;
2134 }
2135
2136 $this->db->begin();
2137
2138 if ($fk_product > 0) {
2139 if (getDolGlobalString('SUPPLIER_INVOICE_WITH_PREDEFINED_PRICES_ONLY')) {
2140 // Check quantity is enough
2141 dol_syslog(get_class($this)."::addline we check supplier prices fk_product=".$fk_product." qty=".$qty." ref_supplier=".$ref_supplier);
2142 $prod = new ProductFournisseur($this->db);
2143 if ($prod->fetch($fk_product) > 0) {
2144 $product_type = $prod->type;
2145 $label = $prod->label;
2146 $fk_prod_fourn_price = 0;
2147
2148 // We use 'none' instead of $ref_supplier, because $ref_supplier may not exists anymore. So we will take the first supplier price ok.
2149 // If we want a dedicated supplier price, we must provide $fk_prod_fourn_price.
2150 $result = $prod->get_buyprice($fk_prod_fourn_price, $qty, $fk_product, 'none', ($this->fk_soc ? $this->fk_soc : $this->socid)); // Search on couple $fk_prod_fourn_price/$qty first, then on triplet $qty/$fk_product/$ref_supplier/$this->fk_soc
2151 if ($result > 0) {
2152 if (empty($pu)) {
2153 $pu = $prod->fourn_pu; // Unit price supplier price set by get_buyprice
2154 }
2155 $ref_supplier = $prod->ref_supplier; // Ref supplier price set by get_buyprice
2156 // is remise percent not keyed but present for the product we add it
2157 if ($remise_percent == 0 && $prod->remise_percent != 0) {
2158 $remise_percent = $prod->remise_percent;
2159 }
2160 }
2161 if ($result == 0) { // If result == 0, we failed to found the supplier reference price
2162 $langs->load("errors");
2163 $this->error = "Ref ".$prod->ref." ".$langs->trans("ErrorQtyTooLowForThisSupplier");
2164 $this->db->rollback();
2165 dol_syslog(get_class($this)."::addline we did not found supplier price, so we can't guess unit price");
2166 //$pu = $prod->fourn_pu; // We do not overwrite unit price
2167 //$ref = $prod->ref_fourn; // We do not overwrite ref supplier price
2168 return -1;
2169 }
2170 if ($result == -1) {
2171 $langs->load("errors");
2172 $this->error = "Ref ".$prod->ref." ".$langs->trans("ErrorQtyTooLowForThisSupplier");
2173 $this->db->rollback();
2174 dol_syslog(get_class($this)."::addline result=".$result." - ".$this->error, LOG_DEBUG);
2175 return -1;
2176 }
2177 if ($result < -1) {
2178 $this->error = $prod->error;
2179 $this->db->rollback();
2180 dol_syslog(get_class($this)."::addline result=".$result." - ".$this->error, LOG_ERR);
2181 return -1;
2182 }
2183 } else {
2184 $this->error = $prod->error;
2185 $this->db->rollback();
2186 return -1;
2187 }
2188 }
2189 } else {
2190 $product_type = $type;
2191 }
2192
2193 if (isModEnabled("multicurrency") && $pu_devise > 0) {
2194 $pu = 0;
2195 }
2196
2197 $localtaxes_type = getLocalTaxesFromRate($txtva, 0, $mysoc, $this->thirdparty);
2198
2199 // Clean vat code
2200 $reg = array();
2201 $vat_src_code = '';
2202 if (preg_match('/\‍((.*)\‍)/', $txtva, $reg)) {
2203 $vat_src_code = $reg[1];
2204 $txtva = preg_replace('/\s*\‍(.*\‍)/', '', $txtva); // Remove code into vatrate.
2205 }
2206
2207 // Calcul du total TTC et de la TVA pour la ligne a partir de
2208 // qty, pu, remise_percent et txtva
2209 // TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
2210 // la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
2211
2212 $tabprice = calcul_price_total($qty, $pu, $remise_percent, $txtva, $txlocaltax1, $txlocaltax2, 0, $price_base_type, $info_bits, $type, $this->thirdparty, $localtaxes_type, 100, $this->multicurrency_tx, $pu_devise);
2213 $total_ht = $tabprice[0];
2214 $total_tva = $tabprice[1];
2215 $total_ttc = $tabprice[2];
2216 $total_localtax1 = $tabprice[9];
2217 $total_localtax2 = $tabprice[10];
2218 $pu_ht = $tabprice[3];
2219
2220 // MultiCurrency
2221 $multicurrency_total_ht = $tabprice[16];
2222 $multicurrency_total_tva = $tabprice[17];
2223 $multicurrency_total_ttc = $tabprice[18];
2224 $pu_ht_devise = $tabprice[19];
2225
2226 // Check parameters
2227 if ($type < 0) {
2228 return -1;
2229 }
2230
2231 if ($rang < 0) {
2232 $rangmax = $this->line_max();
2233 $rang = $rangmax + 1;
2234 }
2235
2236 // Insert line
2237 $supplierinvoiceline = new SupplierInvoiceLine($this->db);
2238
2239 $supplierinvoiceline->context = $this->context;
2240
2241 $supplierinvoiceline->fk_facture_fourn = $this->id;
2242 //$supplierinvoiceline->label=$label; // deprecated
2243 $supplierinvoiceline->desc = $desc;
2244 $supplierinvoiceline->ref_supplier = $ref_supplier;
2245
2246 $supplierinvoiceline->qty = ($this->type == self::TYPE_CREDIT_NOTE ? abs((float) $qty) : $qty); // For credit note, quantity is always positive and unit price negative
2247 $supplierinvoiceline->subprice = ($this->type == self::TYPE_CREDIT_NOTE ? -abs($pu_ht) : $pu_ht); // For credit note, unit price always negative, always positive otherwise
2248
2249 $supplierinvoiceline->vat_src_code = $vat_src_code;
2250 $supplierinvoiceline->tva_tx = $txtva;
2251 $supplierinvoiceline->localtax1_tx = ($total_localtax1 ? $localtaxes_type[1] : 0);
2252 $supplierinvoiceline->localtax2_tx = ($total_localtax2 ? $localtaxes_type[3] : 0);
2253 $supplierinvoiceline->localtax1_type = empty($localtaxes_type[0]) ? 0 : $localtaxes_type[0];
2254 $supplierinvoiceline->localtax2_type = empty($localtaxes_type[2]) ? 0 : $localtaxes_type[2];
2255
2256 $supplierinvoiceline->total_ht = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_ht) : $total_ht); // For credit note and if qty is negative, total is negative
2257 $supplierinvoiceline->total_tva = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_tva) : $total_tva); // For credit note and if qty is negative, total is negative
2258 $supplierinvoiceline->total_localtax1 = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_localtax1) : $total_localtax1); // For credit note and if qty is negative, total is negative
2259 $supplierinvoiceline->total_localtax2 = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_localtax2) : $total_localtax2); // For credit note and if qty is negative, total is negative
2260 $supplierinvoiceline->total_ttc = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_ttc) : $total_ttc); // For credit note and if qty is negative, total is negative
2261
2262 $supplierinvoiceline->fk_product = $fk_product;
2263 $supplierinvoiceline->product_type = $type;
2264 $supplierinvoiceline->remise_percent = $remise_percent;
2265 $supplierinvoiceline->date_start = $date_start;
2266 $supplierinvoiceline->date_end = $date_end;
2267 $supplierinvoiceline->fk_code_ventilation = $fk_code_ventilation;
2268 $supplierinvoiceline->rang = $rang;
2269 $supplierinvoiceline->info_bits = $info_bits;
2270 $supplierinvoiceline->fk_remise_except = $fk_remise_except;
2271
2272
2273 $supplierinvoiceline->special_code = (int) $special_code;
2274 $supplierinvoiceline->fk_parent_line = $fk_parent_line;
2275 $supplierinvoiceline->origin = $this->origin;
2276 $supplierinvoiceline->origin_id = $origin_id;
2277 $supplierinvoiceline->fk_unit = $fk_unit;
2278
2279 // Multicurrency
2280 $supplierinvoiceline->fk_multicurrency = $this->fk_multicurrency;
2281 $supplierinvoiceline->multicurrency_code = $this->multicurrency_code;
2282 $supplierinvoiceline->multicurrency_subprice = ($this->type == self::TYPE_CREDIT_NOTE ? -abs($pu_ht_devise) : $pu_ht_devise); // For credit note, unit price always negative, always positive otherwise
2283
2284 $supplierinvoiceline->multicurrency_total_ht = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($multicurrency_total_ht) : $multicurrency_total_ht); // For credit note and if qty is negative, total is negative
2285 $supplierinvoiceline->multicurrency_total_tva = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($multicurrency_total_tva) : $multicurrency_total_tva); // For credit note and if qty is negative, total is negative
2286 $supplierinvoiceline->multicurrency_total_ttc = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($multicurrency_total_ttc) : $multicurrency_total_ttc); // For credit note and if qty is negative, total is negative
2287
2288 if (is_array($array_options) && count($array_options) > 0) {
2289 $supplierinvoiceline->array_options = $array_options;
2290 }
2291
2292 $result = $supplierinvoiceline->insert($notrigger);
2293 if ($result > 0) {
2294 // Reorder if child line
2295 if (!empty($fk_parent_line)) {
2296 $this->line_order(true, 'DESC');
2297 } elseif ($rang > 0 && $rang <= count($this->lines)) { // Update all rank of all other lines
2298 $linecount = count($this->lines);
2299 for ($ii = $rang; $ii <= $linecount; $ii++) {
2300 $this->updateRangOfLine($this->lines[$ii - 1]->id, $ii + 1);
2301 }
2302 }
2303
2304 // Mise a jour information denormalisees au niveau de la facture meme
2305 $result = $this->update_price(1, 'auto', 0, $this->thirdparty); // The addline method is designed to add line from user input so total calculation with update_price must be done using 'auto' mode.
2306 if ($result > 0) {
2307 $this->db->commit();
2308 return $supplierinvoiceline->id;
2309 } else {
2310 $this->error = $this->db->error();
2311 $this->db->rollback();
2312 return -1;
2313 }
2314 } else {
2315 $this->error = $supplierinvoiceline->error;
2316 $this->errors = $supplierinvoiceline->errors;
2317 $this->db->rollback();
2318 return -2;
2319 }
2320 } else {
2321 return 0;
2322 }
2323 }
2324
2350 public function updateline($id, $desc, $pu, $vatrate, $txlocaltax1 = 0, $txlocaltax2 = 0, $qty = 1, $idproduct = 0, $price_base_type = 'HT', $info_bits = 0, $type = 0, $remise_percent = 0, $notrigger = 0, $date_start = '', $date_end = '', $array_options = [], $fk_unit = null, $pu_devise = 0, $ref_supplier = '', $rang = 0)
2351 {
2352 global $mysoc, $langs;
2353
2354 dol_syslog(get_class($this)."::updateline $id,$desc,$pu,$vatrate,$qty,$idproduct,$price_base_type,$info_bits,$type,$remise_percent,$notrigger,$date_start,$date_end,$fk_unit,$pu_devise,$ref_supplier", LOG_DEBUG);
2355 include_once DOL_DOCUMENT_ROOT.'/core/lib/price.lib.php';
2356
2357 $pu = price2num($pu);
2358 $qty = price2num($qty);
2359 $remise_percent = (float) price2num($remise_percent);
2360 $pu_devise = price2num($pu_devise);
2361
2362 // Check parameters
2363 //if (! is_numeric($pu) || ! is_numeric($qty)) return -1;
2364 if ($type < 0) {
2365 return -1;
2366 }
2367
2368 if ($date_start && $date_end && $date_start > $date_end) {
2369 $langs->load("errors");
2370 $this->error = $langs->trans('ErrorStartDateGreaterEnd');
2371 return -1;
2372 }
2373
2374 // Clean parameters
2375 if (empty($vatrate)) {
2376 $vatrate = 0;
2377 }
2378 if (empty($txlocaltax1)) {
2379 $txlocaltax1 = 0;
2380 }
2381 if (empty($txlocaltax2)) {
2382 $txlocaltax2 = 0;
2383 }
2384
2385 $txlocaltax1 = (float) price2num($txlocaltax1);
2386 $txlocaltax2 = (float) price2num($txlocaltax2);
2387
2388 // Calcul du total TTC et de la TVA pour la ligne a partir de
2389 // qty, pu, remise_percent et txtva
2390 // TRES IMPORTANT: C'est au moment de l'insertion ligne qu'on doit stocker
2391 // la part ht, tva et ttc, et ce au niveau de la ligne qui a son propre taux tva.
2392
2393 $localtaxes_type = getLocalTaxesFromRate($vatrate, 0, $mysoc, $this->thirdparty);
2394
2395 $reg = array();
2396
2397 // Clean vat code
2398 $vat_src_code = '';
2399 if (preg_match('/\‍((.*)\‍)/', (string) $vatrate, $reg)) {
2400 $vat_src_code = $reg[1];
2401 $vatrate = preg_replace('/\s*\‍(.*\‍)/', '', (string) $vatrate); // Remove code into vatrate.
2402 }
2403
2404 $tabprice = calcul_price_total($qty, $pu, $remise_percent, $vatrate, $txlocaltax1, $txlocaltax2, 0, $price_base_type, $info_bits, $type, $this->thirdparty, $localtaxes_type, 100, $this->multicurrency_tx, $pu_devise);
2405 $total_ht = $tabprice[0];
2406 $total_tva = $tabprice[1];
2407 $total_ttc = $tabprice[2];
2408 $pu_ht = $tabprice[3];
2409 $pu_tva = $tabprice[4];
2410 $pu_ttc = $tabprice[5];
2411 $total_localtax1 = $tabprice[9];
2412 $total_localtax2 = $tabprice[10];
2413
2414 // MultiCurrency
2415 $multicurrency_total_ht = $tabprice[16];
2416 $multicurrency_total_tva = $tabprice[17];
2417 $multicurrency_total_ttc = $tabprice[18];
2418 $pu_ht_devise = $tabprice[19];
2419
2420 if (empty($info_bits)) {
2421 $info_bits = 0;
2422 }
2423
2424 //Fetch current line from the database and then clone the object and set it in $oldline property
2425 $line = new SupplierInvoiceLine($this->db);
2426 $line->fetch($id);
2427 $line->fetch_optionals();
2428
2429 $staticline = clone $line;
2430
2431 if ($idproduct) {
2432 $product = new Product($this->db);
2433 $result = $product->fetch($idproduct);
2434 $product_type = $product->type;
2435 } else {
2436 $idproduct = $staticline->fk_product;
2437 $product_type = $type;
2438 }
2439
2440 $line->oldline = $staticline;
2441 $line->context = $this->context;
2442
2443 $line->description = $desc;
2444 $line->desc = $desc;
2445
2446 $line->qty = ($this->type == self::TYPE_CREDIT_NOTE ? abs((float) $qty) : $qty); // For credit note, quantity is always positive and unit price negative
2447 $line->subprice = ($this->type == self::TYPE_CREDIT_NOTE ? -abs($pu_ht) : $pu_ht); // For credit note, unit price always negative, always positive otherwise
2448 $line->pu_ht = $line->subprice; // deprecated
2449 $line->pu_ttc = ($this->type == self::TYPE_CREDIT_NOTE ? -abs($pu_ttc) : $pu_ttc); // For credit note, unit price always negative, always positive otherwise
2450
2451 $line->remise_percent = $remise_percent;
2452 $line->ref_supplier = $ref_supplier;
2453
2454 $line->date_start = $date_start;
2455 $line->date_end = $date_end;
2456
2457 $line->vat_src_code = $vat_src_code;
2458 $line->tva_tx = $vatrate;
2459 $line->localtax1_tx = $txlocaltax1;
2460 $line->localtax2_tx = $txlocaltax2;
2461 $line->localtax1_type = empty($localtaxes_type[0]) ? 0 : $localtaxes_type[0];
2462 $line->localtax2_type = empty($localtaxes_type[2]) ? 0 : $localtaxes_type[2];
2463
2464 $line->total_ht = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_ht) : $total_ht);
2465 $line->total_tva = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_tva) : $total_tva);
2466 $line->total_localtax1 = $total_localtax1;
2467 $line->total_localtax2 = $total_localtax2;
2468 $line->total_ttc = (($this->type == self::TYPE_CREDIT_NOTE || $qty < 0) ? -abs($total_ttc) : $total_ttc);
2469
2470 $line->fk_product = $idproduct;
2471 $line->product_type = $product_type;
2472 $line->info_bits = $info_bits;
2473 $line->fk_unit = $fk_unit;
2474 $line->rang = $rang;
2475
2476 if (is_array($array_options) && count($array_options) > 0) {
2477 // We replace values in this->line->array_options only for entries defined into $array_options
2478 foreach ($array_options as $key => $value) {
2479 $line->array_options[$key] = $array_options[$key];
2480 }
2481 }
2482
2483 // Multicurrency
2484 $line->multicurrency_subprice = $pu_ht_devise;
2485 $line->multicurrency_total_ht = $multicurrency_total_ht;
2486 $line->multicurrency_total_tva = $multicurrency_total_tva;
2487 $line->multicurrency_total_ttc = $multicurrency_total_ttc;
2488
2489 $res = $line->update($notrigger);
2490
2491 if ($res < 1) {
2492 $this->errors[] = $line->error;
2493 } else {
2494 // Update total price into invoice record
2495 $res = $this->update_price('1', 'auto', 0, $this->thirdparty);
2496 }
2497
2498 return $res;
2499 }
2500
2508 public function deleteLine($rowid, $notrigger = 0)
2509 {
2510 if (!$rowid) {
2511 $rowid = $this->id;
2512 }
2513
2514 $this->db->begin();
2515
2516 // Free the discount linked to a line of invoice
2517 $sql = 'UPDATE '.MAIN_DB_PREFIX.'societe_remise_except';
2518 $sql .= ' SET fk_invoice_supplier_line = NULL';
2519 $sql .= ' WHERE fk_invoice_supplier_line = '.((int) $rowid);
2520
2521 dol_syslog(get_class($this)."::deleteline", LOG_DEBUG);
2522 $result = $this->db->query($sql);
2523 if (!$result) {
2524 $this->error = $this->db->error();
2525 $this->db->rollback();
2526 return -2;
2527 }
2528
2529 $line = new SupplierInvoiceLine($this->db);
2530
2531 if ($line->fetch($rowid) < 1) {
2532 return -1;
2533 }
2534
2535 $res = $line->delete($notrigger);
2536
2537 if ($res < 1) {
2538 $this->errors[] = $line->error;
2539 $this->db->rollback();
2540 return -3;
2541 } else {
2542 $res = $this->update_price(1);
2543
2544 if ($res > 0) {
2545 $this->db->commit();
2546 return 1;
2547 } else {
2548 $this->db->rollback();
2549 $this->error = $this->db->lasterror();
2550 return -4;
2551 }
2552 }
2553 }
2554
2555
2562 public function info($id)
2563 {
2564 $sql = 'SELECT c.rowid, datec, tms as datem, ';
2565 $sql .= ' fk_user_author, fk_user_modif, fk_user_valid';
2566 $sql .= ' FROM '.MAIN_DB_PREFIX.'facture_fourn as c';
2567 $sql .= ' WHERE c.rowid = '.((int) $id);
2568
2569 $result = $this->db->query($sql);
2570 if ($result) {
2571 if ($this->db->num_rows($result)) {
2572 $obj = $this->db->fetch_object($result);
2573
2574 $this->id = $obj->rowid;
2575
2576 $this->user_creation_id = $obj->fk_user_author;
2577 $this->user_validation_id = $obj->fk_user_valid;
2578 $this->user_modification_id = $obj->fk_user_modif;
2579 $this->date_creation = $this->db->jdate($obj->datec);
2580 $this->date_modification = $this->db->jdate($obj->datem);
2581 //$this->date_validation = $obj->datev; // This field is not available. Should be store into log table and using this function should be replaced with showing content of log (like for supplier orders)
2582 }
2583 $this->db->free($result);
2584 } else {
2585 dol_print_error($this->db);
2586 }
2587 }
2588
2589 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2598 public function list_replacable_supplier_invoices($socid = 0)
2599 {
2600 // phpcs:enable
2601 global $conf;
2602
2603 $return = array();
2604
2605 $sql = "SELECT f.rowid as rowid, f.ref, f.fk_statut,";
2606 $sql .= " ff.rowid as rowidnext";
2607 $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f";
2608 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."paiementfourn_facturefourn as pf ON f.rowid = pf.fk_facturefourn";
2609 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as ff ON f.rowid = ff.fk_facture_source";
2610 $sql .= " WHERE (f.fk_statut = ".self::STATUS_VALIDATED." OR (f.fk_statut = ".self::STATUS_ABANDONED." AND f.close_code = '".self::CLOSECODE_ABANDONED."'))";
2611 $sql .= " AND f.entity = ".$conf->entity;
2612 $sql .= " AND f.paye = 0"; // Pas classee payee completement
2613 $sql .= " AND pf.fk_paiementfourn IS NULL"; // Aucun paiement deja fait
2614 $sql .= " AND ff.fk_statut IS NULL"; // Renvoi vrai si pas facture de replacement
2615 if ($socid > 0) {
2616 $sql .= " AND f.fk_soc = ".((int) $socid);
2617 }
2618 $sql .= " ORDER BY f.ref";
2619
2620 dol_syslog(get_class($this)."::list_replacable_supplier_invoices", LOG_DEBUG);
2621 $resql = $this->db->query($sql);
2622 if ($resql) {
2623 while ($obj = $this->db->fetch_object($resql)) {
2624 $return[$obj->rowid] = array(
2625 'id' => $obj->rowid,
2626 'ref' => $obj->ref,
2627 'status' => $obj->fk_statut
2628 );
2629 }
2630 //print_r($return);
2631 return $return;
2632 } else {
2633 $this->error = $this->db->error();
2634 return -1;
2635 }
2636 }
2637
2638 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2648 public function list_qualified_avoir_supplier_invoices($socid = 0)
2649 {
2650 // phpcs:enable
2651 global $conf;
2652
2653 $return = array();
2654
2655 $sql = "SELECT f.rowid as rowid, f.ref, f.fk_statut, f.type, f.subtype, f.paye, pf.fk_paiementfourn";
2656 $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f";
2657 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."paiementfourn_facturefourn as pf ON f.rowid = pf.fk_facturefourn";
2658 $sql .= " WHERE f.entity = ".$conf->entity;
2659 $sql .= " AND f.fk_statut in (".self::STATUS_VALIDATED.",".self::STATUS_CLOSED.")";
2660 $sql .= " AND NOT EXISTS (SELECT rowid from ".MAIN_DB_PREFIX."facture_fourn as ff WHERE f.rowid = ff.fk_facture_source";
2661 $sql .= " AND ff.type=".self::TYPE_REPLACEMENT.")";
2662 $sql .= " AND f.type != ".self::TYPE_CREDIT_NOTE; // Type non 2 si facture non avoir
2663 if ($socid > 0) {
2664 $sql .= " AND f.fk_soc = ".((int) $socid);
2665 }
2666 $sql .= " ORDER BY f.ref";
2667
2668 dol_syslog(get_class($this)."::list_qualified_avoir_supplier_invoices", LOG_DEBUG);
2669 $resql = $this->db->query($sql);
2670 if ($resql) {
2671 while ($obj = $this->db->fetch_object($resql)) {
2672 $qualified = 0;
2673 if ($obj->fk_statut == self::STATUS_VALIDATED) {
2674 $qualified = 1;
2675 }
2676 if ($obj->fk_statut == self::STATUS_CLOSED) {
2677 $qualified = 1;
2678 }
2679 if ($qualified) {
2680 $paymentornot = ($obj->fk_paiementfourn ? 1 : 0);
2681 $return[$obj->rowid] = array('ref' => $obj->ref, 'status' => $obj->fk_statut, 'type' => $obj->type, 'paye' => $obj->paye, 'paymentornot' => $paymentornot);
2682 }
2683 }
2684
2685 return $return;
2686 } else {
2687 $this->error = $this->db->error();
2688 return -1;
2689 }
2690 }
2691
2692 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2699 public function load_board($user)
2700 {
2701 // phpcs:enable
2702 global $conf, $langs;
2703
2704 $sql = 'SELECT ff.rowid, ff.date_lim_reglement as datefin, ff.fk_statut as status, ff.total_ht, ff.total_ttc';
2705 $sql .= ' FROM '.MAIN_DB_PREFIX.'facture_fourn as ff';
2706 if (!$user->hasRight("societe", "client", "voir") && !$user->socid) {
2707 $sql .= " JOIN ".MAIN_DB_PREFIX."societe_commerciaux as sc ON ff.fk_soc = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
2708 }
2709 $sql .= ' WHERE ff.paye = 0';
2710 $sql .= " AND ff.fk_statut IN (".self::STATUS_VALIDATED.")";
2711 $sql .= " AND ff.entity = ".$conf->entity;
2712 if ($user->socid) {
2713 $sql .= ' AND ff.fk_soc = '.((int) $user->socid);
2714 }
2715
2716 $resql = $this->db->query($sql);
2717 if ($resql) {
2718 $langs->load("bills");
2719 $now = dol_now();
2720
2721 $response = new WorkboardResponse();
2722 $response->warning_delay = $conf->facture->fournisseur->warning_delay / 60 / 60 / 24;
2723 $response->label = $langs->trans("SupplierBillsToPay");
2724 $response->labelShort = $langs->trans("StatusToPay");
2725
2726 $response->url = DOL_URL_ROOT.'/fourn/facture/list.php?search_status=1&mainmenu=billing&leftmenu=suppliers_bills';
2727 $response->img = img_object($langs->trans("Bills"), "bill");
2728
2729 $facturestatic = new FactureFournisseur($this->db);
2730
2731 while ($obj = $this->db->fetch_object($resql)) {
2732 $facturestatic->date_echeance = $this->db->jdate($obj->datefin);
2733 $facturestatic->statut = $obj->status; // For backward compatibility
2734 $facturestatic->status = $obj->status;
2735
2736 $response->nbtodo++;
2737 $response->total += $obj->total_ht;
2738
2739 if ($facturestatic->hasDelay()) {
2740 $response->nbtodolate++;
2741 $response->url_late = DOL_URL_ROOT.'/fourn/facture/list.php?search_option=late&mainmenu=billing&leftmenu=suppliers_bills';
2742 }
2743 }
2744
2745 $this->db->free($resql);
2746 return $response;
2747 } else {
2748 dol_print_error($this->db);
2749 $this->error = $this->db->error();
2750 return -1;
2751 }
2752 }
2753
2761 public function getTooltipContentArray($params)
2762 {
2763 global $conf, $langs, $mysoc;
2764
2765 $langs->load('bills');
2766
2767 $datas = [];
2768 $moretitle = $params['moretitle'] ?? '';
2769
2770 $picto = $this->picto;
2771 if ($this->type == self::TYPE_REPLACEMENT) {
2772 $picto .= 'r'; // Replacement invoice
2773 }
2774 if ($this->type == self::TYPE_CREDIT_NOTE) {
2775 $picto .= 'a'; // Credit note
2776 }
2777 if ($this->type == self::TYPE_DEPOSIT) {
2778 $picto .= 'd'; // Deposit invoice
2779 }
2780
2781 $datas['picto'] = img_picto('', $picto).' <u class="paddingrightonly">'.$langs->trans("SupplierInvoice").'</u>';
2782 if ($this->type == self::TYPE_REPLACEMENT) {
2783 $datas['picto'] .= '<u class="paddingrightonly">'.$langs->transnoentitiesnoconv("InvoiceReplace").'</u>';
2784 } elseif ($this->type == self::TYPE_CREDIT_NOTE) {
2785 $datas['picto'] .= '<u class="paddingrightonly">'.$langs->transnoentitiesnoconv("CreditNote").'</u>';
2786 } elseif ($this->type == self::TYPE_DEPOSIT) {
2787 $datas['picto'] .= '<u class="paddingrightonly">'.$langs->transnoentitiesnoconv("Deposit").'</u>';
2788 }
2789 if (isset($this->status)) {
2790 $alreadypaid = -1;
2791 if (isset($this->alreadypaid)) {
2792 $alreadypaid = $this->alreadypaid;
2793 }
2794
2795 $datas['picto'] .= ' '.$this->getLibStatut(5, $alreadypaid);
2796 }
2797 if ($moretitle) {
2798 $datas['picto'] .= ' - '.$moretitle;
2799 }
2800 if (!empty($this->ref)) {
2801 $datas['ref'] = '<br><b>'.$langs->trans('Ref').':</b> '.$this->ref;
2802 }
2803 if (!empty($this->ref_supplier)) {
2804 $datas['refsupplier'] = '<br><b>'.$langs->trans('RefSupplier').':</b> '.$this->ref_supplier;
2805 }
2806 if (!empty($this->label)) {
2807 $datas['label'] = '<br><b>'.$langs->trans('Label').':</b> '.$this->label;
2808 }
2809 if (!empty($this->date)) {
2810 $datas['date'] = '<br><b>'.$langs->trans('Date').':</b> '.dol_print_date($this->date, 'day');
2811 }
2812 if (!empty($this->date_echeance)) {
2813 $datas['date_echeance'] = '<br><b>'.$langs->trans('DateDue').':</b> '.dol_print_date($this->date_echeance, 'day');
2814 }
2815 if (!empty($this->total_ht)) {
2816 $datas['amountht'] = '<br><b>'.$langs->trans('AmountHT').':</b> '.price($this->total_ht, 0, $langs, 0, -1, -1, $conf->currency);
2817 }
2818 if (!empty($this->total_tva)) {
2819 $datas['totaltva'] = '<br><b>'.$langs->trans('AmountVAT').':</b> '.price($this->total_tva, 0, $langs, 0, -1, -1, $conf->currency);
2820 }
2821 if (!empty($this->total_localtax1) && $this->total_localtax1 != 0) {
2822 // We keep test != 0 because $this->total_localtax1 can be '0.00000000'
2823 $datas['amountlt1'] = '<br><b>'.$langs->transcountry('AmountLT1', $mysoc->country_code).':</b> '.price($this->total_localtax1, 0, $langs, 0, -1, -1, $conf->currency);
2824 }
2825 if (!empty($this->total_localtax2) && $this->total_localtax2 != 0) {
2826 $datas['amountlt2'] = '<br><b>'.$langs->transcountry('AmountLT2', $mysoc->country_code).':</b> '.price($this->total_localtax2, 0, $langs, 0, -1, -1, $conf->currency);
2827 }
2828 if (!empty($this->revenuestamp)) {
2829 $datas['amountrevenustamp'] = '<br><b>'.$langs->trans('RevenueStamp').':</b> '.price($this->revenuestamp, 0, $langs, 0, -1, -1, $conf->currency);
2830 }
2831 if (!empty($this->total_ttc)) {
2832 $datas['totalttc'] = '<br><b>'.$langs->trans('AmountTTC').':</b> '.price($this->total_ttc, 0, $langs, 0, -1, -1, $conf->currency);
2833 }
2834 return $datas;
2835 }
2836
2850 public function getNomUrl($withpicto = 0, $option = '', $max = 0, $short = 0, $moretitle = '', $notooltip = 0, $save_lastsearch_value = -1, $addlinktonotes = 0)
2851 {
2852 global $langs, $conf, $user, $hookmanager;
2853
2854 $result = '';
2855
2856 if ($option == 'withdraw') {
2857 $url = DOL_URL_ROOT.'/compta/facture/prelevement.php?facid='.$this->id.'&type=bank-transfer';
2858 } elseif ($option == 'document') {
2859 $url = DOL_URL_ROOT.'/fourn/facture/document.php?facid='.$this->id;
2860 } else {
2861 $url = DOL_URL_ROOT.'/fourn/facture/card.php?facid='.$this->id;
2862 }
2863
2864 if ($short) {
2865 return $url;
2866 }
2867
2868 if ($option !== 'nolink') {
2869 // Add param to save lastsearch_values or not
2870 $add_save_lastsearch_values = ($save_lastsearch_value == 1 ? 1 : 0);
2871 if ($save_lastsearch_value == -1 && isset($_SERVER["PHP_SELF"]) && preg_match('/list\.php/', $_SERVER["PHP_SELF"])) {
2872 $add_save_lastsearch_values = 1;
2873 }
2874 if ($add_save_lastsearch_values) {
2875 $url .= '&save_lastsearch_values=1';
2876 }
2877 }
2878
2879 $picto = $this->picto;
2880 if ($this->type == self::TYPE_REPLACEMENT) {
2881 $picto .= 'r'; // Replacement invoice
2882 }
2883 if ($this->type == self::TYPE_CREDIT_NOTE) {
2884 $picto .= 'a'; // Credit note
2885 }
2886 if ($this->type == self::TYPE_DEPOSIT) {
2887 $picto .= 'd'; // Deposit invoice
2888 }
2889
2890 $params = [
2891 'id' => $this->id,
2892 'objecttype' => $this->element,
2893 'option' => $option,
2894 'moretitle' => $moretitle,
2895 ];
2896 $classfortooltip = 'classfortooltip';
2897 $dataparams = '';
2898 if (getDolGlobalInt('MAIN_ENABLE_AJAX_TOOLTIP')) {
2899 $classfortooltip = 'classforajaxtooltip';
2900 $dataparams = ' data-params="'.dol_escape_htmltag(json_encode($params)).'"';
2901 $label = '';
2902 } else {
2903 $label = implode($this->getTooltipContentArray($params));
2904 }
2905
2906 $ref = $this->ref;
2907 if (empty($ref)) {
2908 $ref = $this->id;
2909 }
2910
2911 $linkclose = '';
2912 if (empty($notooltip)) {
2913 if (getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
2914 $label = $langs->trans("ShowSupplierInvoice");
2915 $linkclose .= ' alt="'.dol_escape_htmltag($label, 1).'"';
2916 }
2917 $linkclose .= ($label ? ' title="'.dol_escape_htmltag($label, 1).'"' : ' title="tocomplete"');
2918 $linkclose .= $dataparams.' class="'.$classfortooltip.'"';
2919 }
2920
2921 $linkstart = '<a href="'.$url.'"';
2922 $linkstart .= $linkclose.'>';
2923 $linkend = '</a>';
2924
2925 $result .= $linkstart;
2926 if ($withpicto) {
2927 $result .= img_object(($notooltip ? '' : $label), ($picto ? $picto : 'generic'), ($notooltip ? (($withpicto != 2) ? 'class="paddingright"' : '') : 'class="'.(($withpicto != 2) ? 'paddingright ' : '').'"'), 0, 0, $notooltip ? 0 : 1);
2928 }
2929 if ($withpicto != 2) {
2930 $result .= ($max ? dol_trunc($ref, $max) : $ref);
2931 }
2932 $result .= $linkend;
2933
2934 if ($addlinktonotes) {
2935 $txttoshow = ($user->socid > 0 ? $this->note_public : $this->note_private);
2936 if ($txttoshow) {
2937 $notetoshow = $langs->trans("ViewPrivateNote").':<br>'.dol_string_nohtmltag($txttoshow, 1);
2938 $result .= ' <span class="note inline-block">';
2939 $result .= '<a href="'.DOL_URL_ROOT.'/fourn/facture/note.php?id='.$this->id.'" class="classfortooltip" title="'.dol_escape_htmltag($notetoshow).'">';
2940 $result .= img_picto('', 'note');
2941 $result .= '</a>';
2942 $result .= '</span>';
2943 }
2944 }
2945 global $action;
2946 $hookmanager->initHooks(array($this->element . 'dao'));
2947 $parameters = array('id' => $this->id, 'getnomurl' => &$result);
2948 $reshook = $hookmanager->executeHooks('getNomUrl', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
2949 if ($reshook > 0) {
2950 $result = $hookmanager->resPrint;
2951 } else {
2952 $result .= $hookmanager->resPrint;
2953 }
2954 return $result;
2955 }
2956
2965 public function getNextNumRef($soc, $mode = 'next')
2966 {
2967 global $db, $langs, $conf;
2968 $langs->load("orders");
2969
2970 // Clean parameters (if not defined or using deprecated value)
2971 if (!getDolGlobalString('INVOICE_SUPPLIER_ADDON_NUMBER')) {
2972 $conf->global->INVOICE_SUPPLIER_ADDON_NUMBER = 'mod_facture_fournisseur_cactus';
2973 }
2974
2975 $mybool = false;
2976
2977 $file = getDolGlobalString('INVOICE_SUPPLIER_ADDON_NUMBER') . ".php";
2978 $classname = getDolGlobalString('INVOICE_SUPPLIER_ADDON_NUMBER');
2979
2980 // Include file with class
2981 $dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']);
2982
2983 foreach ($dirmodels as $reldir) {
2984 $dir = dol_buildpath($reldir."core/modules/supplier_invoice/");
2985
2986 // Load file with numbering class (if found)
2987 $mybool = ((bool) @include_once $dir.$file) || $mybool;
2988 }
2989
2990 if (!$mybool) {
2991 dol_print_error(null, "Failed to include file ".$file);
2992 return '';
2993 }
2994
2995 $obj = new $classname();
2996 '@phan-var-force ModeleNumRefSuppliersInvoices $obj';
2997 $numref = "";
2998 $numref = $obj->getNextValue($soc, $this, $mode);
2999
3000 if ($numref != "") {
3001 return $numref;
3002 } else {
3003 $this->error = $obj->error;
3004 return -1;
3005 }
3006 }
3007
3008
3017 public function initAsSpecimen($option = '')
3018 {
3019 global $langs, $conf;
3020 include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
3021
3022 $now = dol_now();
3023
3024 // Load array of products prodids
3025 $num_prods = 0;
3026 $prodids = array();
3027
3028 $sql = "SELECT rowid";
3029 $sql .= " FROM ".MAIN_DB_PREFIX."product";
3030 $sql .= " WHERE entity IN (".getEntity('product').")";
3031 $sql .= $this->db->plimit(100);
3032
3033 $resql = $this->db->query($sql);
3034 if ($resql) {
3035 $num_prods = $this->db->num_rows($resql);
3036 $i = 0;
3037 while ($i < $num_prods) {
3038 $i++;
3039 $row = $this->db->fetch_row($resql);
3040 $prodids[$i] = $row[0];
3041 }
3042 }
3043
3044 // Initialise parameters
3045 $this->id = 0;
3046 $this->ref = 'SPECIMEN';
3047 $this->ref_supplier = 'SUPPLIER_REF_SPECIMEN';
3048 $this->specimen = 1;
3049 $this->socid = 1;
3050 $this->date = $now;
3051 $this->date_lim_reglement = $this->date + 3600 * 24 * 30;
3052 $this->cond_reglement_code = 'RECEP';
3053 $this->mode_reglement_code = 'CHQ';
3054
3055 $this->note_public = 'This is a comment (public)';
3056 $this->note_private = 'This is a comment (private)';
3057
3058 $this->multicurrency_tx = 1;
3059 $this->multicurrency_code = $conf->currency;
3060
3061 $xnbp = 0;
3062 if (empty($option) || $option != 'nolines') {
3063 // Lines
3064 $nbp = 5;
3065 while ($xnbp < $nbp) {
3066 $line = new SupplierInvoiceLine($this->db);
3067 $line->desc = $langs->trans("Description")." ".$xnbp;
3068 $line->qty = 1;
3069 $line->subprice = 100;
3070 $line->pu_ht = $line->subprice; // the canelle template use pu_ht and not subprice
3071 $line->price = 100;
3072 $line->tva_tx = 19.6;
3073 $line->localtax1_tx = 0;
3074 $line->localtax2_tx = 0;
3075 if ($xnbp == 2) {
3076 $line->total_ht = 50;
3077 $line->total_ttc = 59.8;
3078 $line->total_tva = 9.8;
3079 $line->remise_percent = 50;
3080 } else {
3081 $line->total_ht = 100;
3082 $line->total_ttc = 119.6;
3083 $line->total_tva = 19.6;
3084 $line->remise_percent = 0;
3085 }
3086
3087 if ($num_prods > 0) {
3088 $prodid = mt_rand(1, $num_prods);
3089 $line->fk_product = $prodids[$prodid];
3090 }
3091 $line->product_type = 0;
3092
3093 $this->lines[$xnbp] = $line;
3094
3095 $this->total_ht += $line->total_ht;
3096 $this->total_tva += $line->total_tva;
3097 $this->total_ttc += $line->total_ttc;
3098
3099 $xnbp++;
3100 }
3101 }
3102
3103 $this->total_ht = $xnbp * 100;
3104 $this->total_tva = $xnbp * 19.6;
3105 $this->total_ttc = $xnbp * 119.6;
3106
3107 return 1;
3108 }
3109
3115 public function loadStateBoard()
3116 {
3117 global $conf, $user;
3118
3119 $this->nb = array();
3120
3121 $clause = "WHERE";
3122
3123 $sql = "SELECT count(f.rowid) as nb";
3124 $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f";
3125 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON f.fk_soc = s.rowid";
3126 if (!$user->hasRight("societe", "client", "voir") && !$user->socid) {
3127 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe_commerciaux as sc ON s.rowid = sc.fk_soc";
3128 $sql .= " WHERE sc.fk_user = ".((int) $user->id);
3129 $clause = "AND";
3130 }
3131 $sql .= " ".$clause." f.entity = ".$conf->entity;
3132
3133 $resql = $this->db->query($sql);
3134 if ($resql) {
3135 while ($obj = $this->db->fetch_object($resql)) {
3136 $this->nb["supplier_invoices"] = $obj->nb;
3137 }
3138 $this->db->free($resql);
3139 return 1;
3140 } else {
3141 dol_print_error($this->db);
3142 $this->error = $this->db->error();
3143 return -1;
3144 }
3145 }
3146
3155 public function createFromClone(User $user, $fromid, $invertdetail = 0)
3156 {
3157 global $conf, $langs;
3158
3159 $error = 0;
3160
3161 $object = new FactureFournisseur($this->db);
3162
3163 $this->db->begin();
3164
3165 // Load source object
3166 $object->fetch($fromid);
3167 $object->id = 0;
3168 $object->statut = self::STATUS_DRAFT; // For backward compatibility
3169 $object->status = self::STATUS_DRAFT;
3170
3171 $object->fetch_thirdparty(); // We need it to recalculate VAT localtaxes according to main sale taxes and vendor
3172
3173 // Clear fields
3174 $object->ref_supplier = (empty($this->ref_supplier) ? $langs->trans("CopyOf").' '.$object->ref_supplier : $this->ref_supplier);
3175 $object->author = $user->id; // FIXME? user_validation_id is replacement for author
3176 $object->user_validation_id = 0; // FIXME? user_validation_id is replacement for author
3177 $object->fk_facture_source = 0;
3178 $object->date_creation = '';
3179 $object->date_validation = '';
3180 $object->date = (empty($this->date) ? dol_now() : $this->date);
3181 $object->ref_client = '';
3182 $object->close_code = '';
3183 $object->close_note = '';
3184 if (getDolGlobalInt('MAIN_DONT_KEEP_NOTE_ON_CLONING') == 1) {
3185 $object->note_private = '';
3186 $object->note_public = '';
3187 }
3188
3189 $object->date_echeance = $object->calculate_date_lim_reglement();
3190
3191 // Loop on each line of new invoice
3192 foreach ($object->lines as $i => $line) {
3193 if (isset($object->lines[$i]->info_bits) && ($object->lines[$i]->info_bits & 0x02) == 0x02) { // We do not clone line of discounts
3194 unset($object->lines[$i]);
3195 }
3196 }
3197
3198 // Create clone
3199 $object->context['createfromclone'] = 'createfromclone';
3200 $result = $object->create($user);
3201
3202 // Other options
3203 if ($result < 0) {
3204 $this->error = $object->error;
3205 $this->errors = $object->errors;
3206 $error++;
3207 }
3208
3209 if (!$error) {
3210 }
3211
3212 unset($object->context['createfromclone']);
3213
3214 // End
3215 if (!$error) {
3216 $this->db->commit();
3217 return $object->id;
3218 } else {
3219 $this->db->rollback();
3220 return -1;
3221 }
3222 }
3223
3235 public function generateDocument($modele, $outputlangs, $hidedetails = 0, $hidedesc = 0, $hideref = 0, $moreparams = null)
3236 {
3237 global $langs;
3238
3239 $langs->load("suppliers");
3240 $outputlangs->load("products");
3241
3242 // Set the model on the model name to use
3243 if (empty($modele)) {
3244 if (getDolGlobalString('INVOICE_SUPPLIER_ADDON_PDF')) {
3245 $modele = getDolGlobalString('INVOICE_SUPPLIER_ADDON_PDF');
3246 } else {
3247 $modele = ''; // No default value. For supplier invoice, we allow to disable all PDF generation
3248 }
3249 }
3250
3251 if (empty($modele)) {
3252 return 0;
3253 } else {
3254 $modelpath = "core/modules/supplier_invoice/doc/";
3255
3256 return $this->commonGenerateDocument($modelpath, $modele, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams);
3257 }
3258 }
3259
3264 public function getRights()
3265 {
3266 global $user;
3267
3268 return $user->hasRight("fournisseur", "facture");
3269 }
3270
3279 public static function replaceThirdparty(DoliDB $dbs, $origin_id, $dest_id)
3280 {
3281 $tables = array(
3282 'facture_fourn'
3283 );
3284
3285 return CommonObject::commonReplaceThirdparty($dbs, $origin_id, $dest_id, $tables);
3286 }
3287
3296 public static function replaceProduct(DoliDB $db, $origin_id, $dest_id)
3297 {
3298 $tables = array(
3299 'facture_fourn_det'
3300 );
3301
3302 return CommonObject::commonReplaceProduct($db, $origin_id, $dest_id, $tables);
3303 }
3304
3310 public function hasDelay()
3311 {
3312 global $conf;
3313
3314 $now = dol_now();
3315
3316 if (!$this->date_echeance) {
3317 return false;
3318 }
3319
3320 $status = isset($this->status) ? $this->status : $this->statut;
3321
3322 return ($status == self::STATUS_VALIDATED) && ($this->date_echeance < ($now - $conf->facture->fournisseur->warning_delay));
3323 }
3324
3330 public function isCreditNoteUsed()
3331 {
3332 $isUsed = false;
3333
3334 $sql = "SELECT fk_invoice_supplier FROM ".MAIN_DB_PREFIX."societe_remise_except WHERE fk_invoice_supplier_source = ".((int) $this->id);
3335 $resql = $this->db->query($sql);
3336 if (!empty($resql)) {
3337 $obj = $this->db->fetch_object($resql);
3338 if (!empty($obj->fk_invoice_supplier)) {
3339 $isUsed = true;
3340 }
3341 }
3342
3343 return $isUsed;
3344 }
3352 public function getKanbanView($option = '', $arraydata = null)
3353 {
3354 global $langs;
3355
3356 $selected = (empty($arraydata['selected']) ? 0 : $arraydata['selected']);
3357
3358 $picto = $this->picto;
3359 if ($this->type == self::TYPE_REPLACEMENT) {
3360 $picto .= 'r'; // Replacement invoice
3361 }
3362 if ($this->type == self::TYPE_CREDIT_NOTE) {
3363 $picto .= 'a'; // Credit note
3364 }
3365 if ($this->type == self::TYPE_DEPOSIT) {
3366 $picto .= 'd'; // Deposit invoice
3367 }
3368
3369 $return = '<div class="box-flex-item box-flex-grow-zero">';
3370 $return .= '<div class="info-box info-box-sm">';
3371 $return .= '<span class="info-box-icon bg-infobox-action">';
3372 $return .= img_picto('', $picto);
3373 $return .= '</span>';
3374 $return .= '<div class="info-box-content">';
3375 $return .= '<span class="info-box-ref inline-block tdoverflowmax150 valignmiddle">'.(method_exists($this, 'getNomUrl') ? $this->getNomUrl(1) : $this->ref).'</span>';
3376 if ($selected >= 0) {
3377 $return .= '<input id="cb'.$this->id.'" class="flat checkforselect fright" type="checkbox" name="toselect[]" value="'.$this->id.'"'.($selected ? ' checked="checked"' : '').'>';
3378 }
3379 if (!empty($arraydata['thirdparty'])) {
3380 $return .= '<br><span class="info-box-label">'.$arraydata['thirdparty'].'</span>';
3381 }
3382 if (property_exists($this, 'date')) {
3383 $return .= '<br><span class="info-box-label">'.dol_print_date($this->date, 'day').'</span>';
3384 }
3385 if (property_exists($this, 'total_ht')) {
3386 $return .= ' &nbsp; <span class="info-box-label amount" title="'.dol_escape_htmltag($langs->trans("AmountHT")).'">'.price($this->total_ht);
3387 $return .= ' '.$langs->trans("HT");
3388 $return .= '</span>';
3389 }
3390 if (method_exists($this, 'getLibStatut')) {
3391 $alreadypaid = (empty($arraydata['alreadypaid']) ? 0 : $arraydata['alreadypaid']);
3392 $return .= '<br><div class="info-box-status">'.$this->getLibStatut(3, $alreadypaid).'</div>';
3393 }
3394 $return .= '</div>';
3395 $return .= '</div>';
3396 $return .= '</div>';
3397 return $return;
3398 }
3399
3406 public function setVATReverseCharge($vatreversecharge)
3407 {
3408 if (!$this->table_element) {
3409 dol_syslog(get_class($this)."::setVATReverseCharge was called on object with property table_element not defined", LOG_ERR);
3410 return -1;
3411 }
3412
3413 dol_syslog(get_class($this).'::setVATReverseCharge('.$vatreversecharge.')');
3414
3415 $sql = "UPDATE ".MAIN_DB_PREFIX.$this->table_element;
3416 $sql .= " SET vat_reverse_charge = ".((int) $vatreversecharge);
3417 $sql .= " WHERE rowid=".((int) $this->id);
3418
3419 if ($this->db->query($sql)) {
3420 $this->vat_reverse_charge = ($vatreversecharge == 0) ? 0 : 1;
3421 return 1;
3422 } else {
3423 dol_syslog(get_class($this).'::setVATReverseCharge Error ', LOG_DEBUG);
3424 $this->error = $this->db->error();
3425 return 0;
3426 }
3427 }
3428
3440 public function sendEmailsRemindersOnSupplierInvoiceDueDate($nbdays = 0, $paymentmode = 'all', $template = '', $datetouse = 'duedate', $forcerecipient = '')
3441 {
3442 global $conf, $langs, $user;
3443
3444 $this->output = '';
3445 $this->error = '';
3446 $nbMailSend = 0;
3447
3448 $error = 0;
3449 $errorsMsg = array();
3450
3451 $langs->load('bills');
3452
3453 if (!isModEnabled(empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) ? 'fournisseur' : 'supplier_invoice')) { // Should not happen. If module disabled, cron job should not be visible.
3454 $this->output .= $langs->trans('ModuleNotEnabled', $langs->transnoentitiesnoconv('Suppliers'));
3455 return 0;
3456 }
3457 if (!in_array($datetouse, array('duedate', 'invoicedate'))) {
3458 $this->output .= 'Bad value for parameter datetouse. Must be "duedate" or "invoicedate"';
3459 return 0;
3460 }
3461
3462 require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
3463 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
3464 require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
3465 $formmail = new FormMail($this->db);
3466
3467 $now = dol_now();
3468 $tmpidate = dol_get_first_hour(dol_time_plus_duree($now, $nbdays, 'd'), 'gmt');
3469
3470 $tmpinvoice = new FactureFournisseur($this->db);
3471
3472 dol_syslog(__METHOD__." start", LOG_INFO);
3473
3474 // Select all action comm reminder
3475 $sql = "SELECT rowid as id FROM ".MAIN_DB_PREFIX."facture_fourn as f";
3476 if (!empty($paymentmode) && $paymentmode != 'all') {
3477 $sql .= ", ".MAIN_DB_PREFIX."c_paiement as cp";
3478 }
3479 $sql .= " WHERE f.paye = 0"; // Only unpaid
3480 $sql .= " AND f.fk_statut = ".self::STATUS_VALIDATED; // Only validated status
3481 if ($datetouse == 'invoicedate') {
3482 $sql .= " AND f.datef = '".$this->db->idate($tmpidate, 'gmt')."'";
3483 } else {
3484 $sql .= " AND f.date_lim_reglement = '".$this->db->idate($tmpidate, 'gmt')."'";
3485 }
3486 $sql .= " AND f.entity IN (".getEntity('supplier_invoice', 0).")"; // One batch process only one company (no sharing)
3487 if (!empty($paymentmode) && $paymentmode != 'all') {
3488 $sql .= " AND f.fk_mode_reglement = cp.id AND cp.code = '".$this->db->escape($paymentmode)."'";
3489 }
3490 // TODO Add a filter to check there is no payment started yet
3491 if ($datetouse == 'invoicedate') {
3492 $sql .= $this->db->order("datef", "ASC");
3493 } else {
3494 $sql .= $this->db->order("date_lim_reglement", "ASC");
3495 }
3496
3497 $resql = $this->db->query($sql);
3498
3499 $stmpidate = dol_print_date($tmpidate, 'day', 'gmt');
3500 if ($datetouse == 'invoicedate') {
3501 $this->output .= $langs->transnoentitiesnoconv("SearchValidatedSupplierInvoicesWithDate", $stmpidate);
3502 } else {
3503 $this->output .= $langs->transnoentitiesnoconv("SearchUnpaidSupplierInvoicesWithDueDate", $stmpidate);
3504 }
3505 if (!empty($paymentmode) && $paymentmode != 'all') {
3506 $this->output .= ' ('.$langs->transnoentitiesnoconv("PaymentMode").' '.$paymentmode.')';
3507 }
3508 $this->output .= '<br>';
3509
3510 if ($resql) {
3511 while ($obj = $this->db->fetch_object($resql)) {
3512 if (!$error) {
3513 // Load event
3514 $res = $tmpinvoice->fetch($obj->id);
3515 if ($res > 0) {
3516 $tmpinvoice->fetch_thirdparty();
3517
3518 $outputlangs = new Translate('', $conf);
3519 if ($tmpinvoice->thirdparty->default_lang) {
3520 $outputlangs->setDefaultLang($tmpinvoice->thirdparty->default_lang);
3521 $outputlangs->loadLangs(array("main", "suppliers"));
3522 } else {
3523 $outputlangs = $langs;
3524 }
3525
3526 // Select email template according to language of recipient
3527 $templateId = 0;
3528 $templateLabel = '';
3529 if (empty($template) || $template == 'EmailTemplateCode') {
3530 $templateLabel = '(SendingReminderEmailOnUnpaidSupplierInvoice)';
3531 } else {
3532 if (is_numeric($template)) {
3533 $templateId = $template;
3534 } else {
3535 $templateLabel = $template;
3536 }
3537 }
3538
3539 $arraymessage = $formmail->getEMailTemplate($this->db, 'invoice_supplier_send', $user, $outputlangs, $templateId, 1, $templateLabel);
3540 if (is_numeric($arraymessage) && $arraymessage <= 0) {
3541 $langs->load("errors");
3542 $this->output .= $langs->trans('ErrorFailedToFindEmailTemplate', $template);
3543 return 0;
3544 }
3545
3546 // PREPARE EMAIL
3547 $errormesg = '';
3548
3549 // Make substitution in email content
3550 $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, '', $tmpinvoice);
3551
3552 complete_substitutions_array($substitutionarray, $outputlangs, $tmpinvoice);
3553
3554 // Topic
3555 $sendTopic = make_substitutions(empty($arraymessage->topic) ? $outputlangs->transnoentitiesnoconv('InformationMessage') : $arraymessage->topic, $substitutionarray, $outputlangs, 1);
3556
3557 // Content
3558 $content = $outputlangs->transnoentitiesnoconv($arraymessage->content);
3559
3560 $sendContent = make_substitutions($content, $substitutionarray, $outputlangs, 1);
3561
3562 // Recipient
3563 $to = array();
3564 if ($forcerecipient) { // If a recipient was forced
3565 $to = array($forcerecipient);
3566 } else {
3567 $res = $tmpinvoice->fetch_thirdparty();
3568 $recipient = $tmpinvoice->thirdparty;
3569 if ($res > 0) {
3570 $tmparraycontact = $tmpinvoice->liste_contact(-1, 'internal', 0, 'SALESREPFOLL');
3571 if (is_array($tmparraycontact) && count($tmparraycontact) > 0) {
3572 foreach ($tmparraycontact as $data_email) {
3573 if (!empty($data_email['email'])) {
3574 $to[] = $data_email['email'];
3575 }
3576 }
3577 }
3578 if (empty($to) && !empty($recipient->email)) {
3579 $to[] = $recipient->email;
3580 }
3581 if (empty($to)) {
3582 $errormesg = "Failed to send remind to thirdparty id=".$tmpinvoice->socid.". No email defined for supplier invoice or customer.";
3583 $error++;
3584 }
3585 } else {
3586 $errormesg = "Failed to load recipient with thirdparty id=".$tmpinvoice->socid;
3587 $error++;
3588 }
3589 }
3590
3591 // Sender
3592 $from = getDolGlobalString('MAIN_MAIL_EMAIL_FROM');
3593 if (!empty($arraymessage->email_from)) { // If a sender is defined into template, we use it in priority
3594 $from = $arraymessage->email_from;
3595 }
3596 if (empty($from)) {
3597 $errormesg = "Failed to get sender into global setup MAIN_MAIL_EMAIL_FROM";
3598 $error++;
3599 }
3600
3601 if (!$error && !empty($to)) {
3602 $this->db->begin();
3603
3604 $to = implode(',', $to);
3605 if (!empty($arraymessage->email_to)) { // If a recipient is defined into template, we add it
3606 $to = $to.','.$arraymessage->email_to;
3607 }
3608
3609 // Errors Recipient
3610 $errors_to = $conf->global->MAIN_MAIL_ERRORS_TO;
3611
3612 $trackid = 'inv'.$tmpinvoice->id;
3613 $sendcontext = 'standard';
3614
3615 $email_tocc = '';
3616 if (!empty($arraymessage->email_tocc)) { // If a CC is defined into template, we use it
3617 $email_tocc = $arraymessage->email_tocc;
3618 }
3619
3620 $email_tobcc = '';
3621 if (!empty($arraymessage->email_tobcc)) { // If a BCC is defined into template, we use it
3622 $email_tobcc = $arraymessage->email_tobcc;
3623 }
3624
3625 // Mail Creation
3626 $cMailFile = new CMailFile($sendTopic, $to, $from, $sendContent, array(), array(), array(), $email_tocc, $email_tobcc, 0, 1, $errors_to, '', $trackid, '', $sendcontext, '');
3627
3628 // Sending Mail
3629 if ($cMailFile->sendfile()) {
3630 $nbMailSend++;
3631
3632 // Add a line into event table
3633 require_once DOL_DOCUMENT_ROOT.'/comm/action/class/actioncomm.class.php';
3634
3635 // Insert record of emails sent
3636 $actioncomm = new ActionComm($this->db);
3637
3638 $actioncomm->type_code = 'AC_OTH_AUTO'; // Event insert into agenda automatically
3639 $actioncomm->socid = $tmpinvoice->thirdparty->id; // To link to a company
3640 $actioncomm->contact_id = 0;
3641
3642 $actioncomm->code = 'AC_EMAIL';
3643 $actioncomm->label = 'sendEmailsRemindersOnInvoiceDueDateOK (nbdays='.$nbdays.' paymentmode='.$paymentmode.' template='.$template.' datetouse='.$datetouse.' forcerecipient='.$forcerecipient.')';
3644 $actioncomm->note_private = $sendContent;
3645 $actioncomm->fk_project = $tmpinvoice->fk_project;
3646 $actioncomm->datep = dol_now();
3647 $actioncomm->datef = $actioncomm->datep;
3648 $actioncomm->percentage = -1; // Not applicable
3649 $actioncomm->authorid = $user->id; // User saving action
3650 $actioncomm->userownerid = $user->id; // Owner of action
3651 // Fields when action is an email (content should be added into note)
3652 $actioncomm->email_msgid = $cMailFile->msgid;
3653 $actioncomm->email_subject = $sendTopic;
3654 $actioncomm->email_from = $from;
3655 $actioncomm->email_sender = '';
3656 $actioncomm->email_to = $to;
3657 //$actioncomm->email_tocc = $sendtocc;
3658 //$actioncomm->email_tobcc = $sendtobcc;
3659 //$actioncomm->email_subject = $subject;
3660 $actioncomm->errors_to = $errors_to;
3661
3662 $actioncomm->elementtype = 'invoice_supplier';
3663 $actioncomm->fk_element = $tmpinvoice->id;
3664
3665 //$actioncomm->extraparams = $extraparams;
3666
3667 $actioncomm->create($user);
3668 } else {
3669 $errormesg = $cMailFile->error.' : '.$to;
3670 $error++;
3671
3672 // Add a line into event table
3673 require_once DOL_DOCUMENT_ROOT.'/comm/action/class/actioncomm.class.php';
3674
3675 // Insert record of emails sent
3676 $actioncomm = new ActionComm($this->db);
3677
3678 $actioncomm->type_code = 'AC_OTH_AUTO'; // Event insert into agenda automatically
3679 $actioncomm->socid = $tmpinvoice->thirdparty->id; // To link to a company
3680 $actioncomm->contact_id = 0;
3681
3682 $actioncomm->code = 'AC_EMAIL';
3683 $actioncomm->label = 'sendEmailsRemindersOnInvoiceDueDateKO';
3684 $actioncomm->note_private = $errormesg;
3685 $actioncomm->fk_project = $tmpinvoice->fk_project;
3686 $actioncomm->datep = dol_now();
3687 $actioncomm->datef = $actioncomm->datep;
3688 $actioncomm->percentage = -1; // Not applicable
3689 $actioncomm->authorid = $user->id; // User saving action
3690 $actioncomm->userownerid = $user->id; // Owner of action
3691 // Fields when action is an email (content should be added into note)
3692 $actioncomm->email_msgid = $cMailFile->msgid;
3693 $actioncomm->email_from = $from;
3694 $actioncomm->email_sender = '';
3695 $actioncomm->email_to = $to;
3696 //$actioncomm->email_tocc = $sendtocc;
3697 //$actioncomm->email_tobcc = $sendtobcc;
3698 //$actioncomm->email_subject = $subject;
3699 $actioncomm->errors_to = $errors_to;
3700
3701 //$actioncomm->extraparams = $extraparams;
3702
3703 $actioncomm->create($user);
3704 }
3705
3706 $this->db->commit(); // We always commit
3707 }
3708
3709 if ($errormesg) {
3710 $errorsMsg[] = $errormesg;
3711 }
3712 } else {
3713 $errorsMsg[] = 'Failed to fetch record invoice with ID = '.$obj->id;
3714 $error++;
3715 }
3716 }
3717 }
3718 } else {
3719 $error++;
3720 }
3721
3722 if (!$error) {
3723 $this->output .= 'Nb of emails sent : '.$nbMailSend;
3724
3725 dol_syslog(__METHOD__." end - ".$this->output, LOG_INFO);
3726
3727 return 0;
3728 } else {
3729 $this->error = 'Nb of emails sent : '.$nbMailSend.', '.(empty($errorsMsg) ? $error : implode(', ', $errorsMsg));
3730
3731 dol_syslog(__METHOD__." end - ".$this->error, LOG_INFO);
3732
3733 return $error;
3734 }
3735 }
3736}
3737
3738
3739
3744{
3748 public $element = 'facture_fourn_det';
3749
3753 public $table_element = 'facture_fourn_det';
3754
3758 public $parent_element = 'facture_fourn';
3759
3763 public $fk_parent_attribute = 'fk_facture_fourn';
3764
3768 public $oldline;
3769
3774 public $ref;
3775
3780 public $product_ref;
3781
3787 public $ref_supplier;
3788
3793 public $product_desc;
3794
3801 public $pu_ht;
3802
3807 public $subprice;
3808
3813 public $pu_ttc;
3814
3815
3820 public $fk_facture_fourn;
3821
3827 public $label;
3828
3834 public $description;
3835
3836 public $date_start;
3837 public $date_end;
3838
3842 public $fk_code_ventilation;
3843
3847 public $skip_update_total; // Skip update price total for special lines
3848
3852 public $situation_percent;
3853
3857 public $fk_prev_id;
3858
3863 public $vat_src_code;
3864
3869 public $tva_tx;
3870
3875 public $localtax1_tx;
3876
3881 public $localtax2_tx;
3882
3887 public $qty;
3888
3893 public $remise_percent;
3894
3899 public $pa_ht;
3900
3905 public $total_ht;
3906
3911 public $total_ttc;
3912
3917 public $total_tva;
3918
3923 public $total_localtax1;
3924
3929 public $total_localtax2;
3930
3934 public $fk_product;
3935
3940 public $product_type;
3941
3946 public $product_label;
3947
3954 public $info_bits;
3955
3960 public $fk_remise_except;
3961
3965 public $fk_parent_line;
3966
3970 public $special_code;
3971
3975 public $rang;
3976
3981 public $localtax1_type;
3982
3987 public $localtax2_type;
3988
3989
3995 public function __construct($db)
3996 {
3997 $this->db = $db;
3998 }
3999
4006 public function fetch($rowid)
4007 {
4008 $sql = 'SELECT f.rowid, f.ref as ref_supplier, f.description as line_desc, f.date_start, f.date_end, f.pu_ht, f.pu_ttc, f.qty, f.remise_percent, f.tva_tx';
4009 $sql .= ', f.localtax1_type, f.localtax2_type, f.localtax1_tx, f.localtax2_tx, f.total_localtax1, f.total_localtax2, f.fk_remise_except';
4010 $sql .= ', f.total_ht, f.tva as total_tva, f.total_ttc, f.fk_facture_fourn, f.fk_product, f.product_type, f.info_bits, f.rang, f.special_code, f.fk_parent_line, f.fk_unit';
4011 $sql .= ', p.rowid as product_id, p.ref as product_ref, p.label as product_label, p.description as product_desc';
4012 $sql .= ', f.multicurrency_subprice, f.multicurrency_total_ht, f.multicurrency_total_tva, multicurrency_total_ttc';
4013 $sql .= ' FROM '.MAIN_DB_PREFIX.'facture_fourn_det as f';
4014 $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'product as p ON f.fk_product = p.rowid';
4015 $sql .= ' WHERE f.rowid = '.((int) $rowid);
4016 $sql .= ' ORDER BY f.rang, f.rowid';
4017
4018 $query = $this->db->query($sql);
4019
4020 if (!$query) {
4021 $this->errors[] = $this->db->error();
4022 return -1;
4023 }
4024
4025 if (!$this->db->num_rows($query)) {
4026 return 0;
4027 }
4028
4029 $obj = $this->db->fetch_object($query);
4030
4031 $this->id = $obj->rowid;
4032 $this->rowid = $obj->rowid;
4033 $this->fk_facture_fourn = $obj->fk_facture_fourn;
4034 $this->description = $obj->line_desc;
4035 $this->desc = $obj->line_desc;
4036 $this->date_start = $obj->date_start;
4037 $this->date_end = $obj->date_end;
4038 $this->product_ref = $obj->product_ref;
4039 $this->ref_supplier = $obj->ref_supplier;
4040 $this->product_desc = $obj->product_desc;
4041
4042 $this->subprice = $obj->pu_ht;
4043 $this->pu_ht = $this->subprice;
4044 $this->pu_ttc = $obj->pu_ttc;
4045 $this->tva_tx = $obj->tva_tx;
4046 $this->localtax1_tx = $obj->localtax1_tx;
4047 $this->localtax2_tx = $obj->localtax2_tx;
4048 $this->localtax1_type = $obj->localtax1_type;
4049 $this->localtax2_type = $obj->localtax2_type;
4050
4051 $this->qty = $obj->qty;
4052 $this->remise_percent = $obj->remise_percent;
4053 $this->fk_remise_except = $obj->fk_remise_except;
4054 //$this->tva = $obj->total_tva; // deprecated
4055 $this->total_ht = $obj->total_ht;
4056 $this->total_tva = $obj->total_tva;
4057 $this->total_localtax1 = $obj->total_localtax1;
4058 $this->total_localtax2 = $obj->total_localtax2;
4059 $this->total_ttc = $obj->total_ttc;
4060 $this->fk_product = $obj->fk_product;
4061 $this->product_type = $obj->product_type;
4062 $this->product_label = $obj->product_label;
4063 $this->label = $obj->product_label;
4064 $this->info_bits = $obj->info_bits;
4065 $this->fk_parent_line = $obj->fk_parent_line;
4066 $this->special_code = $obj->special_code;
4067 $this->rang = $obj->rang;
4068 $this->fk_unit = $obj->fk_unit;
4069
4070 $this->multicurrency_subprice = $obj->multicurrency_subprice;
4071 $this->multicurrency_total_ht = $obj->multicurrency_total_ht;
4072 $this->multicurrency_total_tva = $obj->multicurrency_total_tva;
4073 $this->multicurrency_total_ttc = $obj->multicurrency_total_ttc;
4074
4075 $this->fetch_optionals();
4076
4077 return 1;
4078 }
4079
4086 public function delete($notrigger = 0)
4087 {
4088 global $user;
4089
4090 dol_syslog(get_class($this)."::deleteline rowid=".((int) $this->id), LOG_DEBUG);
4091
4092 $error = 0;
4093
4094 $this->db->begin();
4095
4096 if (!$notrigger) {
4097 if ($this->call_trigger('LINEBILL_SUPPLIER_DELETE', $user) < 0) {
4098 $error++;
4099 }
4100 }
4101
4102 $this->deleteObjectLinked();
4103
4104 // Remove extrafields
4105 if (!$error) {
4106 $result = $this->deleteExtraFields();
4107 if ($result < 0) {
4108 $error++;
4109 dol_syslog(get_class($this)."::delete error -4 ".$this->error, LOG_ERR);
4110 }
4111 }
4112
4113 if (!$error) {
4114 // Supprime ligne
4115 $sql = 'DELETE FROM '.MAIN_DB_PREFIX.'facture_fourn_det ';
4116 $sql .= " WHERE rowid = ".((int) $this->id);
4117 dol_syslog(get_class($this)."::delete", LOG_DEBUG);
4118 $resql = $this->db->query($sql);
4119 if (!$resql) {
4120 $error++;
4121 $this->error = $this->db->lasterror();
4122 }
4123 }
4124
4125 if (!$error) {
4126 $this->db->commit();
4127 return 1;
4128 } else {
4129 $this->db->rollback();
4130 return -1;
4131 }
4132 }
4133
4140 public function update($notrigger = 0)
4141 {
4142 global $conf;
4143
4144 $pu = price2num($this->subprice);
4145 $qty = price2num($this->qty);
4146
4147 // Check parameters
4148 if (empty($this->qty)) {
4149 $this->qty = 0;
4150 }
4151
4152 if ($this->product_type < 0) {
4153 return -1;
4154 }
4155
4156 // Clean parameters
4157 if (empty($this->remise_percent)) {
4158 $this->remise_percent = 0;
4159 }
4160 if (empty($this->tva_tx)) {
4161 $this->tva_tx = 0;
4162 }
4163 if (empty($this->localtax1_tx)) {
4164 $this->localtax1_tx = 0;
4165 }
4166 if (empty($this->localtax2_tx)) {
4167 $this->localtax2_tx = 0;
4168 }
4169
4170 if (empty($this->pa_ht)) {
4171 $this->pa_ht = 0;
4172 }
4173 if (empty($this->multicurrency_subprice)) {
4174 $this->multicurrency_subprice = 0;
4175 }
4176 if (empty($this->multicurrency_total_ht)) {
4177 $this->multicurrency_total_ht = 0;
4178 }
4179 if (empty($this->multicurrency_total_tva)) {
4180 $this->multicurrency_total_tva = 0;
4181 }
4182 if (empty($this->multicurrency_total_ttc)) {
4183 $this->multicurrency_total_ttc = 0;
4184 }
4185
4186 $fk_product = (int) $this->fk_product;
4187 $fk_unit = (int) $this->fk_unit;
4188
4189 $this->db->begin();
4190
4191 $sql = "UPDATE ".MAIN_DB_PREFIX."facture_fourn_det SET";
4192 $sql .= " description = '".$this->db->escape(empty($this->description) ? $this->desc : $this->description)."'";
4193 $sql .= ", ref = '".$this->db->escape($this->ref_supplier ? $this->ref_supplier : $this->ref)."'";
4194 $sql .= ", date_start = ".($this->date_start != '' ? "'".$this->db->idate($this->date_start)."'" : "null");
4195 $sql .= ", date_end = ".($this->date_end != '' ? "'".$this->db->idate($this->date_end)."'" : "null");
4196 $sql .= ", pu_ht = ".price2num($this->subprice);
4197 $sql .= ", pu_ttc = ".price2num($this->pu_ttc);
4198 $sql .= ", qty = ".price2num($this->qty);
4199 $sql .= ", remise_percent = ".price2num($this->remise_percent);
4200 if ($this->fk_remise_except > 0) {
4201 $sql .= ", fk_remise_except=".((int) $this->fk_remise_except);
4202 } else {
4203 $sql .= ", fk_remise_except=null";
4204 }
4205 $sql .= ", vat_src_code = '".$this->db->escape(empty($this->vat_src_code) ? '' : $this->vat_src_code)."'";
4206 $sql .= ", tva_tx = ".price2num($this->tva_tx);
4207 $sql .= ", localtax1_tx = ".price2num($this->localtax1_tx);
4208 $sql .= ", localtax2_tx = ".price2num($this->localtax2_tx);
4209 $sql .= ", localtax1_type = '".$this->db->escape($this->localtax1_type)."'";
4210 $sql .= ", localtax2_type = '".$this->db->escape($this->localtax2_type)."'";
4211 $sql .= ", total_ht = ".price2num($this->total_ht);
4212 $sql .= ", tva= ".price2num($this->total_tva);
4213 $sql .= ", total_localtax1= ".price2num($this->total_localtax1);
4214 $sql .= ", total_localtax2= ".price2num($this->total_localtax2);
4215 $sql .= ", total_ttc = ".price2num($this->total_ttc);
4216 $sql .= ", fk_product = ".($fk_product > 0 ? (int) $fk_product : 'null');
4217 $sql .= ", product_type = ".((int) $this->product_type);
4218 $sql .= ", info_bits = ".((int) $this->info_bits);
4219 $sql .= ", fk_unit = ".($fk_unit > 0 ? (int) $fk_unit : 'null');
4220
4221 if (!empty($this->rang)) {
4222 $sql .= ", rang=".((int) $this->rang);
4223 }
4224
4225 // Multicurrency
4226 $sql .= " , multicurrency_subprice=".price2num($this->multicurrency_subprice);
4227 $sql .= " , multicurrency_total_ht=".price2num($this->multicurrency_total_ht);
4228 $sql .= " , multicurrency_total_tva=".price2num($this->multicurrency_total_tva);
4229 $sql .= " , multicurrency_total_ttc=".price2num($this->multicurrency_total_ttc);
4230
4231 $sql .= " WHERE rowid = ".((int) $this->id);
4232
4233 dol_syslog(get_class($this)."::update", LOG_DEBUG);
4234 $resql = $this->db->query($sql);
4235
4236 if (!$resql) {
4237 $this->db->rollback();
4238 $this->error = $this->db->lasterror();
4239 return -1;
4240 }
4241
4242 $this->rowid = $this->id;
4243 $error = 0;
4244
4245 if (!$error) {
4246 $result = $this->insertExtraFields();
4247 if ($result < 0) {
4248 $error++;
4249 }
4250 }
4251
4252 if (!$error && !$notrigger) {
4253 global $langs, $user;
4254
4255 // Call trigger
4256 if ($this->call_trigger('LINEBILL_SUPPLIER_MODIFY', $user) < 0) {
4257 $this->db->rollback();
4258 return -1;
4259 }
4260 // End call triggers
4261 }
4262
4263 if ($error) {
4264 $this->db->rollback();
4265 return -1;
4266 }
4267
4268 $this->db->commit();
4269 return 1;
4270 }
4271
4279 public function insert($notrigger = 0, $noerrorifdiscountalreadylinked = 0)
4280 {
4281 global $user, $langs;
4282
4283 $error = 0;
4284
4285 dol_syslog(get_class($this)."::insert rang=".$this->rang, LOG_DEBUG);
4286
4287 // Clean parameters
4288 $this->desc = trim($this->desc);
4289 if (empty($this->tva_tx)) {
4290 $this->tva_tx = 0;
4291 }
4292 if (empty($this->localtax1_tx)) {
4293 $this->localtax1_tx = 0;
4294 }
4295 if (empty($this->localtax2_tx)) {
4296 $this->localtax2_tx = 0;
4297 }
4298 if (empty($this->localtax1_type)) {
4299 $this->localtax1_type = 0.0;
4300 }
4301 if (empty($this->localtax2_type)) {
4302 $this->localtax2_type = 0.0;
4303 }
4304 if (empty($this->total_tva)) {
4305 $this->total_tva = 0;
4306 }
4307 if (empty($this->total_localtax1)) {
4308 $this->total_localtax1 = 0;
4309 }
4310 if (empty($this->total_localtax2)) {
4311 $this->total_localtax2 = 0;
4312 }
4313 if (empty($this->rang)) {
4314 $this->rang = 0;
4315 }
4316 if (empty($this->remise_percent)) {
4317 $this->remise_percent = 0;
4318 }
4319 if (empty($this->info_bits)) {
4320 $this->info_bits = 0;
4321 }
4322 if (empty($this->subprice)) {
4323 $this->subprice = 0;
4324 }
4325 if (empty($this->special_code)) {
4326 $this->special_code = 0;
4327 }
4328 if (empty($this->fk_parent_line)) {
4329 $this->fk_parent_line = 0;
4330 }
4331 if (!isset($this->situation_percent) || $this->situation_percent > 100 || (string) $this->situation_percent == '') {
4332 $this->situation_percent = 100;
4333 }
4334
4335 if (empty($this->pa_ht)) {
4336 $this->pa_ht = 0;
4337 }
4338 if (empty($this->multicurrency_subprice)) {
4339 $this->multicurrency_subprice = 0;
4340 }
4341 if (empty($this->multicurrency_total_ht)) {
4342 $this->multicurrency_total_ht = 0;
4343 }
4344 if (empty($this->multicurrency_total_tva)) {
4345 $this->multicurrency_total_tva = 0;
4346 }
4347 if (empty($this->multicurrency_total_ttc)) {
4348 $this->multicurrency_total_ttc = 0;
4349 }
4350
4351
4352 // Check parameters
4353 if ($this->product_type < 0) {
4354 $this->error = 'ErrorProductTypeMustBe0orMore';
4355 return -1;
4356 }
4357 if (!empty($this->fk_product) && $this->fk_product > 0) {
4358 // Check product exists
4359 $result = Product::isExistingObject('product', $this->fk_product);
4360 if ($result <= 0) {
4361 $this->error = 'ErrorProductIdDoesNotExists';
4362 return -1;
4363 }
4364 }
4365
4366 $this->db->begin();
4367
4368 // Insertion dans base de la ligne
4369 $sql = 'INSERT INTO '.MAIN_DB_PREFIX.$this->table_element;
4370 $sql .= ' (fk_facture_fourn, fk_parent_line, label, description, ref, qty,';
4371 $sql .= ' vat_src_code, tva_tx, localtax1_tx, localtax2_tx, localtax1_type, localtax2_type,';
4372 $sql .= ' fk_product, product_type, remise_percent, fk_remise_except, pu_ht, pu_ttc,';
4373 $sql .= ' date_start, date_end, fk_code_ventilation, rang, special_code,';
4374 $sql .= ' info_bits, total_ht, tva, total_ttc, total_localtax1, total_localtax2, fk_unit';
4375 $sql .= ', fk_multicurrency, multicurrency_code, multicurrency_subprice, multicurrency_total_ht, multicurrency_total_tva, multicurrency_total_ttc';
4376 $sql .= ')';
4377 $sql .= " VALUES (".$this->fk_facture_fourn.",";
4378 $sql .= " ".($this->fk_parent_line > 0 ? "'".$this->db->escape($this->fk_parent_line)."'" : "null").",";
4379 $product_label
4380 = !empty($this->product_label)
4381 ? $this->product_label :
4382 (!empty($this->label) ? $this->label : null);
4383 $sql .= " ".(!empty($product_label) ? "'".$this->db->escape($product_label)."'" : "null").",";
4384 $sql .= " '".$this->db->escape($this->desc ? $this->desc : $this->description)."',";
4385 $sql .= " '".$this->db->escape($this->ref_supplier)."',";
4386 $sql .= " ".price2num($this->qty).",";
4387
4388 $sql .= " ".(empty($this->vat_src_code) ? "''" : "'".$this->db->escape($this->vat_src_code)."'").",";
4389 $sql .= " ".price2num($this->tva_tx).",";
4390 $sql .= " ".price2num($this->localtax1_tx).",";
4391 $sql .= " ".price2num($this->localtax2_tx).",";
4392 $sql .= " '".$this->db->escape($this->localtax1_type)."',";
4393 $sql .= " '".$this->db->escape($this->localtax2_type)."',";
4394 $sql .= ' '.((!empty($this->fk_product) && $this->fk_product > 0) ? $this->fk_product : "null").',';
4395 $sql .= " ".((int) $this->product_type).",";
4396 $sql .= " ".price2num($this->remise_percent).",";
4397 $sql .= ' '.(!empty($this->fk_remise_except) ? ((int) $this->fk_remise_except) : "null").',';
4398 $sql .= " ".price2num($this->subprice).",";
4399 $sql .= " ".(!empty($this->qty) ? price2num($this->total_ttc / $this->qty) : price2num($this->total_ttc)).",";
4400 $sql .= " ".(!empty($this->date_start) ? "'".$this->db->idate($this->date_start)."'" : "null").",";
4401 $sql .= " ".(!empty($this->date_end) ? "'".$this->db->idate($this->date_end)."'" : "null").",";
4402 $sql .= ' '.(!empty($this->fk_code_ventilation) ? $this->fk_code_ventilation : 0).',';
4403 $sql .= ' '.((int) $this->rang).',';
4404 $sql .= ' '.((int) $this->special_code).',';
4405 $sql .= " ".((int) $this->info_bits).",";
4406 $sql .= " ".price2num($this->total_ht).",";
4407 $sql .= " ".price2num($this->total_tva).",";
4408 $sql .= " ".price2num($this->total_ttc).",";
4409 $sql .= " ".price2num($this->total_localtax1).",";
4410 $sql .= " ".price2num($this->total_localtax2);
4411 $sql .= ", ".(!$this->fk_unit ? 'NULL' : $this->fk_unit);
4412 $sql .= ", ".(int) $this->fk_multicurrency;
4413 $sql .= ", '".$this->db->escape($this->multicurrency_code)."'";
4414 $sql .= ", ".price2num($this->multicurrency_subprice);
4415 $sql .= ", ".price2num($this->multicurrency_total_ht);
4416 $sql .= ", ".price2num($this->multicurrency_total_tva);
4417 $sql .= ", ".price2num($this->multicurrency_total_ttc);
4418 $sql .= ')';
4419
4420 $resql = $this->db->query($sql);
4421 if ($resql) {
4422 $this->id = $this->db->last_insert_id(MAIN_DB_PREFIX.$this->table_element);
4423 $this->rowid = $this->id; // backward compatibility
4424
4425 if (!$error) {
4426 $result = $this->insertExtraFields();
4427 if ($result < 0) {
4428 $error++;
4429 }
4430 }
4431
4432 // Si fk_remise_except defini, on lie la remise a la facture
4433 // ce qui la flague comme "consommee".
4434 if ($this->fk_remise_except) {
4435 $discount = new DiscountAbsolute($this->db);
4436 $result = $discount->fetch($this->fk_remise_except);
4437 if ($result >= 0) {
4438 // Check if discount was found
4439 if ($result > 0) {
4440 // Check if discount not already affected to another invoice
4441 if ($discount->fk_facture_line > 0) {
4442 if (empty($noerrorifdiscountalreadylinked)) {
4443 $this->error = $langs->trans("ErrorDiscountAlreadyUsed", $discount->id);
4444 dol_syslog(get_class($this)."::insert Error ".$this->error, LOG_ERR);
4445 $this->db->rollback();
4446 return -3;
4447 }
4448 } else {
4449 $result = $discount->link_to_invoice($this->id, 0);
4450 if ($result < 0) {
4451 $this->error = $discount->error;
4452 dol_syslog(get_class($this)."::insert Error ".$this->error, LOG_ERR);
4453 $this->db->rollback();
4454 return -3;
4455 }
4456 }
4457 } else {
4458 $this->error = $langs->trans("ErrorADiscountThatHasBeenRemovedIsIncluded");
4459 dol_syslog(get_class($this)."::insert Error ".$this->error, LOG_ERR);
4460 $this->db->rollback();
4461 return -3;
4462 }
4463 } else {
4464 $this->error = $discount->error;
4465 dol_syslog(get_class($this)."::insert Error ".$this->error, LOG_ERR);
4466 $this->db->rollback();
4467 return -3;
4468 }
4469 }
4470
4471 if (!$error && !$notrigger) {
4472 // Call trigger
4473 $result = $this->call_trigger('LINEBILL_SUPPLIER_CREATE', $user);
4474 if ($result < 0) {
4475 $this->db->rollback();
4476 return -2;
4477 }
4478 // End call triggers
4479 }
4480
4481 $this->db->commit();
4482 return $this->id;
4483 } else {
4484 $this->error = $this->db->error();
4485 $this->db->rollback();
4486 return -2;
4487 }
4488 }
4489
4490 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
4496 public function update_total()
4497 {
4498 // phpcs:enable
4499 $this->db->begin();
4500
4501 // Mise a jour ligne en base
4502 $sql = "UPDATE ".MAIN_DB_PREFIX."facture_fourn_det SET";
4503 $sql .= " total_ht = ".price2num($this->total_ht);
4504 $sql .= ", tva= ".price2num($this->total_tva);
4505 $sql .= ", total_localtax1 = ".price2num($this->total_localtax1);
4506 $sql .= ", total_localtax2 = ".price2num($this->total_localtax2);
4507 $sql .= ", total_ttc = ".price2num($this->total_ttc);
4508 $sql .= " WHERE rowid = ".((int) $this->id);
4509
4510 dol_syslog("FactureFournisseurLigne.class.php::update_total", LOG_DEBUG);
4511
4512 $resql = $this->db->query($sql);
4513 if ($resql) {
4514 $this->db->commit();
4515 return 1;
4516 } else {
4517 $this->error = $this->db->error();
4518 $this->db->rollback();
4519 return -2;
4520 }
4521 }
4522}
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
print $langs trans("AuditedSecurityEvents").'</strong >< span class="opacitymedium"></span >< br > status
Or an array listing all the potential status of the object: array: int of the status => translated la...
Definition security.php:637
$object ref
Definition info.php:79
Class to manage agenda events (actions)
Class to send emails (with attachments or not) Usage: $mailfile = new CMailFile($subject,...
Superclass for invoices classes.
calculate_date_lim_reglement($cond_reglement=0)
Returns an invoice payment deadline based on the invoice settlement conditions and billing date.
fetch_optionals($rowid=null, $optionsArray=null)
Function to get extra fields of an object into $this->array_options This method is in most cases call...
line_order($renum=false, $rowidorder='ASC', $fk_parent_line=true)
Save a new position (field rang) for details lines.
deleteEcmFiles($mode=0)
Delete related files of object in database.
update_price($exclspec=0, $roundingadjust='auto', $nodatabaseupdate=0, $seller=null)
Update total_ht, total_ttc, total_vat, total_localtax1, total_localtax2 for an object (sum of lines).
add_object_linked($origin=null, $origin_id=null, $f_user=null, $notrigger=0)
Add an object link into llx_element_element.
commonGenerateDocument($modelspath, $modele, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams=null)
Common function for all objects extending CommonObject for generating documents.
fetch_thirdparty($force_thirdparty_id=0)
Load the third party of object, from id $this->socid or $this->fk_soc, into this->thirdparty.
deleteObjectLinked($sourceid=null, $sourcetype='', $targetid=null, $targettype='', $rowid=0, $f_user=null, $notrigger=0)
Delete all links between an object $this.
static isExistingObject($element, $id, $ref='', $ref_ext='')
Check if an object id or ref exists If you don't need or want to instantiate the object and just need...
updateRangOfLine($rowid, $rang)
Update position of line (rang)
deleteExtraFields()
Delete all extra fields values for the current object.
static commonReplaceThirdparty(DoliDB $dbs, $origin_id, $dest_id, array $tables, $ignoreerrors=0)
Function used to replace a thirdparty id with another one.
static commonReplaceProduct(DoliDB $dbs, $origin_id, $dest_id, array $tables, $ignoreerrors=0)
Function used to replace a product id with another one.
line_max($fk_parent_line=0)
Get max value used for position of line (rang)
insertExtraFields($trigger='', $userused=null)
Add/Update all extra fields values for the current object.
call_trigger($triggerName, $user)
Call trigger based on this instance.
Parent class for class inheritance lines of business objects This class is useless for the moment so ...
Class to manage absolute discounts.
Class to manage Dolibarr database access.
Class to manage suppliers invoices.
const TYPE_DEPOSIT
Deposit invoice.
create($user)
Create supplier invoice into database.
list_qualified_avoir_supplier_invoices($socid=0)
Return list of qualifying invoices for correction by credit note Invoices that respect the following ...
list_replacable_supplier_invoices($socid=0)
Return list of replaceable invoices Status valid or abandoned for other reason + not paid + no paymen...
deleteLine($rowid, $notrigger=0)
Delete a detail line from database.
set_unpaid($user)
Tag the invoice as not fully paid + trigger call BILL_UNPAYED Function used when a direct debit payme...
setCanceled($user, $close_code='', $close_note='')
Tag invoice as canceled, with no payment on it (example for replacement invoice or payment never rece...
fetch($id=0, $ref='', $ref_ext='')
Load object in memory from database.
addline($desc, $pu, $txtva, $txlocaltax1, $txlocaltax2, $qty, $fk_product=0, $remise_percent=0, $date_start=0, $date_end=0, $fk_code_ventilation=0, $info_bits=0, $price_base_type='HT', $type=0, $rang=-1, $notrigger=0, $array_options=[], $fk_unit=null, $origin_id=0, $pu_devise=0, $ref_supplier='', $special_code=0, $fk_parent_line=0, $fk_remise_except=0)
Adds an invoice line (associated with no predefined product/service) The parameters are already suppo...
info($id)
Loads the info order information into the invoice object.
const TYPE_CREDIT_NOTE
Credit note invoice.
isCreditNoteUsed()
Is credit note used.
getKanbanView($option='', $arraydata=null)
Return clicable link of object (with eventually picto)
load_board($user)
Load indicators for dashboard (this->nbtodo and this->nbtodolate)
getNomUrl($withpicto=0, $option='', $max=0, $short=0, $moretitle='', $notooltip=0, $save_lastsearch_value=-1, $addlinktonotes=0)
Return clicable name (with picto eventually)
getTooltipContentArray($params)
getTooltipContentArray
setPaid($user, $close_code='', $close_note='')
Tag invoice as a paid invoice.
update($user=null, $notrigger=0)
Update database.
static replaceThirdparty(DoliDB $dbs, $origin_id, $dest_id)
Function used to replace a thirdparty id with another one.
const TYPE_REPLACEMENT
Replacement invoice.
setUnpaid($user)
Tag the invoice as not fully paid + trigger call BILL_UNPAYED Function used when a direct debit payme...
const STATUS_VALIDATED
Validated (need to be paid)
setDraft($user, $idwarehouse=-1, $notrigger=0)
Set draft status.
getNextNumRef($soc, $mode='next')
Return next reference of supplier invoice not already used (or last reference) according to numbering...
updateline($id, $desc, $pu, $vatrate, $txlocaltax1=0, $txlocaltax2=0, $qty=1, $idproduct=0, $price_base_type='HT', $info_bits=0, $type=0, $remise_percent=0, $notrigger=0, $date_start='', $date_end='', $array_options=[], $fk_unit=null, $pu_devise=0, $ref_supplier='', $rang=0)
Update a line detail into database.
sendEmailsRemindersOnSupplierInvoiceDueDate($nbdays=0, $paymentmode='all', $template='', $datetouse='duedate', $forcerecipient='')
Send reminders by emails for supplier invoices validated that are due.
insert_discount($idremise)
Add a discount line into an invoice (as an invoice line) using an existing absolute discount (Consume...
initAsSpecimen($option='')
Initialise an instance with random values.
const TYPE_STANDARD
Standard invoice.
validate($user, $force_number='', $idwarehouse=0, $notrigger=0)
Tag invoice as validated + call trigger BILL_VALIDATE.
set_paid($user, $close_code='', $close_note='')
Tag invoice as a paid invoice.
createFromClone(User $user, $fromid, $invertdetail=0)
Load an object from its id and create a new one in database.
generateDocument($modele, $outputlangs, $hidedetails=0, $hidedesc=0, $hideref=0, $moreparams=null)
Create a document onto disk according to template model.
getRights()
Returns the rights used for this class.
const STATUS_ABANDONED
Classified abandoned and no payment done.
hasDelay()
Is the payment of the supplier invoice having a delay?
static replaceProduct(DoliDB $db, $origin_id, $dest_id)
Function used to replace a product id with another one.
loadStateBoard()
Load indicators for dashboard (this->nbtodo and this->nbtodolate)
const STATUS_CLOSED
Classified paid.
setVATReverseCharge($vatreversecharge)
Change the option VAT reverse charge.
Class to manage invoice templates.
Class permettant la generation du formulaire html d'envoi de mail unitaire Usage: $formail = new Form...
Class permettant la generation de composants html autre Only common components are here.
Class to manage stock movements.
static getIdFromCode($dbs, $code)
Get id of currency from code.
static getIdAndTxFromCode($dbs, $code, $date_document='')
Get id and rate of currency from code.
Class to manage predefined suppliers products.
Class to manage products or services.
Class to manage line invoices.
fetch($rowid)
Retrieves a supplier invoice line.
update($notrigger=0)
Update a supplier invoice line.
insert($notrigger=0, $noerrorifdiscountalreadylinked=0)
Insert line into database.
update_total()
Mise a jour de l'objet ligne de commande en base.
Class to manage translations.
Class to manage Dolibarr users.
dol_get_first_hour($date, $gm='tzserver')
Return GMT time for first hour of a given GMT date (it removes hours, min and second part)
Definition date.lib.php:655
dol_time_plus_duree($time, $duration_value, $duration_unit, $ruleforendofmonth=0)
Add a delay to a date.
Definition date.lib.php:125
print $script_file $mode $langs defaultlang(is_numeric($duration_value) ? " delay=". $duration_value :"").(is_numeric($duration_value2) ? " after cd cd cd description as description
Only used if Module[ID]Desc translation string is not found.
dol_delete_dir_recursive($dir, $count=0, $nophperrors=0, $onlysub=0, &$countdeleted=0, $indexdatabase=1, $nolog=0)
Remove a directory $dir and its subdirectories (or only files and subdirectories)
dol_delete_file($file, $disableglob=0, $nophperrors=0, $nohook=0, $object=null, $allowdotdot=false, $indexdatabase=1, $nolog=0)
Remove a file or several files with a mask.
dol_dir_list($utf8_path, $types="all", $recursive=0, $filter="", $excludefilter=null, $sortcriteria="name", $sortorder=SORT_ASC, $mode=0, $nohook=0, $relativename="", $donotfollowsymlinks=0, $nbsecondsold=0)
Scan a directory and return a list of files/directories.
Definition files.lib.php:63
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0)
Show a picto called object_picto (generic function)
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_string_nohtmltag($stringtoclean, $removelinefeed=1, $pagecodeto='UTF-8', $strip_tags=0, $removedoublespaces=1)
Clean a string from all HTML tags and entities.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
getLocalTaxesFromRate($vatrate, $local, $buyer, $seller, $firstparamisid=0)
Get type and rate of localtaxes for a particular vat rate/country of a thirdparty.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_concatdesc($text1, $text2, $forxml=false, $invert=false)
Concat 2 descriptions with a new line between them (second operand after first one with appropriate n...
complete_substitutions_array(&$substitutionarray, $outputlangs, $object=null, $parameters=null, $callfunc="completesubstitutionarray")
Complete the $substitutionarray with more entries coming from external module that had set the "subst...
make_substitutions($text, $substitutionarray, $outputlangs=null, $converttextinhtmlifnecessary=0)
Make substitution into a text string, replacing keys with vals from $substitutionarray (oldval=>newva...
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
dol_sanitizeFileName($str, $newstr='_', $unaccent=1)
Clean a string to use it as a file name.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
getCommonSubstitutionArray($outputlangs, $onlykey=0, $exclude=null, $object=null, $include=null)
Return array of possible common substitutions.
isValidEmail($address, $acceptsupervisorkey=0, $acceptuserkey=0)
Return true if email syntax is ok.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
get_exdir($num, $level, $alpha, $withoutslash, $object, $modulepart='')
Return a path to have a the directory according to object where files are stored.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
calcul_price_total($qty, $pu, $remise_percent_ligne, $txtva, $uselocaltax1_rate, $uselocaltax2_rate, $remise_percent_global, $price_base_type, $info_bits, $type, $seller='', $localtaxes_array=[], $progress=100, $multicurrency_tx=1, $pu_devise=0, $multicurrency_code='')
Calculate totals (net, vat, ...) of a line.
Definition price.lib.php:88
if(preg_match('/crypted:/i', $dolibarr_main_db_pass)||!empty($dolibarr_main_db_encrypted_pass)) $conf db type
Definition repair.php:137
publicphonebutton2 phonegreen basiclayout basiclayout TotalHT VATCode TotalVAT TotalLT1 TotalLT2 TotalTTC TotalHT clearboth nowraponall TAKEPOS_SHOW_SUBPRICE right right right takeposterminal SELECT e e e e e statut
Definition invoice.php:2010
publicphonebutton2 phonegreen basiclayout basiclayout TotalHT VATCode TotalVAT TotalLT1 TotalLT2 TotalTTC TotalHT clearboth nowraponall TAKEPOS_SHOW_SUBPRICE right right right takeposterminal SELECT e rowid
Definition invoice.php:2010