Dolibarr\Code\Facture\Classes\ModelePDFFactures::getSwissQrBill()

Complexity

Conditions	14
Paths	26

Size

Total Lines	101
Code Lines	60

Duplication

Lines	0
Ratio	0 %

Importance

Changes

0

<?php
    private function getSwissQrBill(Facture $object, Translate $langs)
    {
        global $conf;

        if (getDolGlobalString('INVOICE_ADD_SWISS_QR_CODE') != 'bottom') {
            return false;
        }

        if ($object->mode_reglement_code != 'VIR') {
            $this->error = $langs->transnoentities("SwissQrOnlyVIR");
            return false;
        }

        if (empty($object->fk_account)) {
            $this->error = 'Bank account must be defined to use this experimental feature';
            return false;
        }

        // Load the autoload file generated by composer
        if (file_exists(DOL_DOCUMENT_ROOT . '/includes/sprain/swiss-qr-bill/autoload.php')) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/includes/sprain/swiss-qr-bill/autoload.php';
        } elseif (file_exists(DOL_DOCUMENT_ROOT . '/includes/autoload.php')) {
            require_once constant('DOL_DOCUMENT_ROOT') . '/includes/autoload.php';
        } else {
            $this->error = 'PHP library sprain/swiss-qr-bill was not found. Please install it with:<br>cd ' . dirname(DOL_DOCUMENT_ROOT) . '; cp composer.json.disabled composer.json; composer require sprain/swiss-qr-bill;';
            return false;
        }

        // Create a new instance of SwissQrBill, containing default headers with fixed values
        $qrBill = SwissQrBill\QrBill::create();

        // First, set creditor address
        $address = SwissQrBill\DataGroup\Element\CombinedAddress::create(
            $this->emetteur->name,
            $this->emetteur->address,
            $this->emetteur->zip . " " . $this->emetteur->town,
            $this->emetteur->country_code
        );
        if (!$address->isValid()) {
            $this->error = $langs->transnoentities("SwissQrCreditorAddressInvalid", (string)$address->getViolations());
            return false;
        }
        $qrBill->setCreditor($address);

        // Get IBAN from account.
        $account = new Account($this->db);
        $account->fetch($object->fk_account);
        $creditorInformation = SwissQrBill\DataGroup\Element\CreditorInformation::create($account->iban);
        if (!$creditorInformation->isValid()) {
            $langs->load("errors");
            $this->error = $langs->transnoentities("SwissQrCreditorInformationInvalid", $account->iban, (string)$creditorInformation->getViolations());
            return false;
        }
        $qrBill->setCreditorInformation($creditorInformation);

        if ($creditorInformation->containsQrIban()) {
            $this->error = $langs->transnoentities("SwissQrIbanNotImplementedYet", $account->iban);
            return false;
        }

        // Add payment reference CLASSIC-IBAN
        // This is what you will need to identify incoming payments.
        $qrBill->setPaymentReference(
            SwissQrBill\DataGroup\Element\PaymentReference::create(
                SwissQrBill\DataGroup\Element\PaymentReference::TYPE_NON
            )
        );

        $currencyinvoicecode = $object->multicurrency_code ? $object->multicurrency_code : $conf->currency;

        // Add payment amount, with currency
        $pai = SwissQrBill\DataGroup\Element\PaymentAmountInformation::create($currencyinvoicecode, $object->total_ttc);
        if (!$pai->isValid()) {
            $this->error = $langs->transnoentities("SwissQrPaymentInformationInvalid", $object->total_ttc, (string)$pai->getViolations());
            return false;
        }
        $qrBill->setPaymentAmountInformation($pai);

        // Add some human-readable information about what the bill is for.
        $qrBill->setAdditionalInformation(
            SwissQrBill\DataGroup\Element\AdditionalInformation::create(
                $object->ref
            )
        );

        // Set debtor address; We _know_ zip&town have to be filled, so skip that if unfilled.
        if (!empty($object->thirdparty->zip) && !empty($object->thirdparty->town)) {
            $address = SwissQrBill\DataGroup\Element\CombinedAddress::create(
                $object->thirdparty->name,
                $object->thirdparty->address,
                $object->thirdparty->zip . " " . $object->thirdparty->town,
                $object->thirdparty->country_code
            );
            if (!$address->isValid()) {
                $this->error = $langs->transnoentities("SwissQrDebitorAddressInvalid", (string)$address->getViolations());
                return false;
            }
            $qrBill->setUltimateDebtor($address);
        }

        return $qrBill;
    }