Dolibarr\Code\Fourn\Classes\PaiementFourn::create()

Complexity

Conditions	47
Paths	1106

Size

Total Lines	254
Code Lines	172

Duplication

Lines	0
Ratio	0 %

Importance

Changes

0

<?php
    public function create($user, $closepaidinvoices = 0, $thirdparty = null)
    {
        global $langs, $conf;

        $error = 0;
        $way = $this->getWay();

        $now = dol_now();

        // Clean parameters
        $totalamount = 0;
        $totalamount_converted = 0;
        $atleastonepaymentnotnull = 0;

        if ($way == 'dolibarr') {
            $amounts = &$this->amounts;
            $amounts_to_update = &$this->multicurrency_amounts;
        } else {
            $amounts = &$this->multicurrency_amounts;
            $amounts_to_update = &$this->amounts;
        }

        $currencyofpayment = '';
        $currencytxofpayment = '';

        foreach ($amounts as $key => $value) {
            if (empty($value)) {
                continue;
            }
            // $key is id of invoice, $value is amount, $way is a 'dolibarr' if amount is in main currency, 'customer' if in foreign currency
            $value_converted = MultiCurrency::getAmountConversionFromInvoiceRate($key, $value ? $value : 0, $way, 'facture_fourn');
            // Add controls of input validity
            if ($value_converted === false) {
                // We failed to find the conversion for one invoice
                $this->error = $langs->trans('FailedToFoundTheConversionRateForInvoice');
                return -1;
            }
            if (empty($currencyofpayment)) {
                $currencyofpayment = $this->multicurrency_code[$key];
            }
            if ($currencyofpayment != $this->multicurrency_code[$key]) {
                // If we have invoices with different currencies in the payment, we stop here
                $this->error = 'ErrorYouTryToPayInvoicesWithDifferentCurrenciesInSamePayment';
                return -1;
            }
            if (empty($currencytxofpayment)) {
                $currencytxofpayment = $this->multicurrency_tx[$key];
            }

            $totalamount_converted += $value_converted;
            $amounts_to_update[$key] = price2num($value_converted, 'MT');

            $newvalue = price2num($value, 'MT');
            $amounts[$key] = $newvalue;
            $totalamount += $newvalue;
            if (!empty($newvalue)) {
                $atleastonepaymentnotnull++;
            }
        }

        if (!empty($currencyofpayment)) {
            // We must check that the currency of invoices is the same than the currency of the bank
            $bankaccount = new Account($this->db);
            $bankaccount->fetch($this->fk_account);
            $bankcurrencycode = empty($bankaccount->currency_code) ? $conf->currency : $bankaccount->currency_code;
            if ($currencyofpayment != $bankcurrencycode && $currencyofpayment != $conf->currency && $bankcurrencycode != $conf->currency) {
                $langs->load("errors");
                $this->error = $langs->trans('ErrorYouTryToPayInvoicesInACurrencyFromBankWithAnotherCurrency', $currencyofpayment, $bankcurrencycode);
                return -1;
            }
        }


        $totalamount = (float) price2num($totalamount);
        $totalamount_converted = (float) price2num($totalamount_converted);

        dol_syslog(get_only_class($this) . "::create", LOG_DEBUG);

        $this->db->begin();

        if ($totalamount != 0) { // On accepte les montants negatifs
            $ref = $this->getNextNumRef(is_object($thirdparty) ? $thirdparty : '');

            if ($way == 'dolibarr') {
                $total = $totalamount;
                $mtotal = $totalamount_converted; // Maybe use price2num with MT for the converted value
            } else {
                $total = $totalamount_converted; // Maybe use price2num with MT for the converted value
                $mtotal = $totalamount;
            }

            $sql = 'INSERT INTO ' . MAIN_DB_PREFIX . 'paiementfourn (';
            $sql .= 'ref, entity, datec, datep, amount, multicurrency_amount, fk_paiement, num_paiement, note, fk_user_author, fk_bank)';
            $sql .= " VALUES ('" . $this->db->escape($ref) . "', " . ((int) $conf->entity) . ", '" . $this->db->idate($now) . "',";
            $sql .= " '" . $this->db->idate($this->datepaye) . "', " . ((float) $total) . ", " . ((float) $mtotal) . ", " . ((int) $this->paiementid) . ", '" . $this->db->escape($this->num_payment) . "', '" . $this->db->escape($this->note_private) . "', " . ((int) $user->id) . ", 0)";

            $resql = $this->db->query($sql);
            if ($resql) {
                $this->id = $this->db->last_insert_id(MAIN_DB_PREFIX . 'paiementfourn');

                // Insere tableau des montants / factures
                foreach ($this->amounts as $key => $amount) {
                    $facid = $key;
                    if (is_numeric($amount) && $amount != 0) {
                        $amount = price2num($amount);
                        $sql = 'INSERT INTO ' . MAIN_DB_PREFIX . 'paiementfourn_facturefourn (fk_facturefourn, fk_paiementfourn, amount, multicurrency_amount, multicurrency_code, multicurrency_tx)';
                        $sql .= " VALUES (" . ((int) $facid) . ", " . ((int) $this->id) . ", " . ((float) $amount) . ', ' . ((float) $this->multicurrency_amounts[$key]) . ', ' . ($currencyofpayment ? "'" . $this->db->escape($currencyofpayment) . "'" : 'NULL') . ', ' . (!empty($currencytxofpayment) ? (float) $currencytxofpayment : 1) . ')';
                        $resql = $this->db->query($sql);
                        if ($resql) {
                            $invoice = new FactureFournisseur($this->db);
                            $invoice->fetch($facid);

                            // If we want to closed paid invoices
                            if ($closepaidinvoices) {
                                $paiement = $invoice->getSommePaiement();
                                $creditnotes = $invoice->getSumCreditNotesUsed();
                                //$creditnotes = 0;
                                $deposits = $invoice->getSumDepositsUsed();
                                //$deposits = 0;
                                $alreadypayed = price2num($paiement + $creditnotes + $deposits, 'MT');
                                $remaintopay = price2num($invoice->total_ttc - $paiement - $creditnotes - $deposits, 'MT');
                                if ($remaintopay == 0) {
                                    // If invoice is a down payment, we also convert down payment to discount
                                    if ($invoice->type == FactureFournisseur::TYPE_DEPOSIT) {
                                        $amount_ht = $amount_tva = $amount_ttc = array();
                                        $multicurrency_amount_ht = $multicurrency_amount_tva = $multicurrency_amount_ttc = array();

                                        // Insert one discount by VAT rate category
                                        $discount = new DiscountAbsolute($this->db);
                                        $discount->fetch('', 0, $invoice->id);
                                        if (empty($discount->id)) {    // If the invoice was not yet converted into a discount (this may have been done manually before we come here)
                                            $discount->discount_type = 1; // Supplier discount
                                            $discount->description = '(DEPOSIT)';
                                            $discount->fk_soc = $invoice->socid;
                                            $discount->socid = $invoice->socid;
                                            $discount->fk_invoice_supplier_source = $invoice->id;

                                            // Loop on each vat rate
                                            $i = 0;
                                            foreach ($invoice->lines as $line) {
                                                if ($line->total_ht != 0) {    // no need to create discount if amount is null
                                                    $amount_ht[$line->tva_tx] += $line->total_ht;
                                                    $amount_tva[$line->tva_tx] += $line->total_tva;
                                                    $amount_ttc[$line->tva_tx] += $line->total_ttc;
                                                    $multicurrency_amount_ht[$line->tva_tx] += $line->multicurrency_total_ht;
                                                    $multicurrency_amount_tva[$line->tva_tx] += $line->multicurrency_total_tva;
                                                    $multicurrency_amount_ttc[$line->tva_tx] += $line->multicurrency_total_ttc;
                                                    $i++;
                                                }
                                            }

                                            foreach ($amount_ht as $tva_tx => $xxx) {
                                                $discount->amount_ht = abs($amount_ht[$tva_tx]);
                                                $discount->amount_tva = abs($amount_tva[$tva_tx]);
                                                $discount->amount_ttc = abs($amount_ttc[$tva_tx]);
                                                $discount->multicurrency_amount_ht = abs($multicurrency_amount_ht[$tva_tx]);
                                                $discount->multicurrency_amount_tva = abs($multicurrency_amount_tva[$tva_tx]);
                                                $discount->multicurrency_amount_ttc = abs($multicurrency_amount_ttc[$tva_tx]);
                                                $discount->tva_tx = abs($tva_tx);

                                                $result = $discount->create($user);
                                                if ($result < 0) {
                                                    $error++;
                                                    break;
                                                }
                                            }
                                        }

                                        if ($error) {
                                            setEventMessages($discount->error, $discount->errors, 'errors');
                                            $error++;
                                        }
                                    }

                                    // Set invoice to paid
                                    if (!$error) {
                                        $result = $invoice->setPaid($user, '', '');
                                        if ($result < 0) {
                                            $this->error = $invoice->error;
                                            $error++;
                                        }
                                    }
                                } else {
                                    // hook to have an option to automatically close a closable invoice with less payment than the total amount (e.g. agreed cash discount terms)
                                    global $hookmanager;
                                    $hookmanager->initHooks(array('payment_supplierdao'));
                                    $parameters = array('facid' => $facid, 'invoice' => $invoice, 'remaintopay' => $remaintopay);
                                    $action = 'CLOSEPAIDSUPPLIERINVOICE';
                                    $reshook = $hookmanager->executeHooks('createPayment', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
                                    if ($reshook < 0) {
                                        $this->error = $hookmanager->error;
                                        $error++;
                                    } elseif ($reshook == 0) {
                                        dol_syslog("Remain to pay for invoice " . $facid . " not null. We do nothing more.");
                                    }
                                }
                            }

                            // Regenerate documents of invoices
                            if (!getDolGlobalString('MAIN_DISABLE_PDF_AUTOUPDATE')) {
                                $newlang = '';
                                $outputlangs = $langs;
                                if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang)) {
                                    $invoice->fetch_thirdparty();
                                    $newlang = $invoice->thirdparty->default_lang;
                                }
                                if (!empty($newlang)) {
                                    $outputlangs = new Translate("", $conf);
                                    $outputlangs->setDefaultLang($newlang);
                                }
                                $ret = $invoice->fetch($facid); // Reload to get new records
                                $result = $invoice->generateDocument($invoice->model_pdf, $outputlangs);
                                if ($result < 0) {
                                    setEventMessages($invoice->error, $invoice->errors, 'errors');
                                    $error++;
                                }
                            }
                        } else {
                            $this->error = $this->db->lasterror();
                            $error++;
                        }
                    } else {
                        dol_syslog(get_only_class($this) . '::Create Amount line ' . $key . ' not a number. We discard it.');
                    }
                }

                if (!$error) {
                    // Call trigger
                    $result = $this->call_trigger('PAYMENT_SUPPLIER_CREATE', $user);
                    if ($result < 0) {
                        $error++;
                    }
                    // End call triggers
                }
            } else {
                $this->error = $this->db->lasterror();
                $error++;
            }
        } else {
            $this->error = "ErrorTotalIsNull";
            dol_syslog('PaiementFourn::Create Error ' . $this->error, LOG_ERR);
            $error++;
        }

        if ($totalamount != 0 && $error == 0) { // On accepte les montants negatifs
            $this->amount = $total;
            $this->total = $total;
            $this->multicurrency_amount = $mtotal;
            $this->db->commit();
            dol_syslog('PaiementFourn::Create Ok Total = ' . $this->amount . ', Total currency = ' . $this->multicurrency_amount);
            return $this->id;
        } else {
            $this->db->rollback();
            return -1;
        }