Dolibarr\Code\Accountancy\Classes\AccountancyExport::exportFEC()

Complexity

Conditions	25
Paths	2392

Size

Total Lines	199
Code Lines	115

Duplication

Lines	0
Ratio	0 %

Importance

Changes

0

<?php
    public function exportFEC($objectLines, $exportFile = null, $archiveFileList = array(), $withAttachment = 0)
    {
        global $conf, $langs;

        $separator = "\t";
        $end_line = "\r\n";

        $tab = array();
        $tab[] = "JournalCode";
        $tab[] = "JournalLib";
        $tab[] = "EcritureNum";
        $tab[] = "EcritureDate";
        $tab[] = "CompteNum";
        $tab[] = "CompteLib";
        $tab[] = "CompAuxNum";
        $tab[] = "CompAuxLib";
        $tab[] = "PieceRef";
        $tab[] = "PieceDate";
        $tab[] = "EcritureLib";
        $tab[] = "Debit";
        $tab[] = "Credit";
        $tab[] = "EcritureLet";
        $tab[] = "DateLet";
        $tab[] = "ValidDate";
        $tab[] = "Montantdevise";
        $tab[] = "Idevise";
        $tab[] = "DateLimitReglmt";
        $tab[] = "NumFacture";
        $tab[] = "FichierFacture";

        $output = implode($separator, $tab) . $end_line;
        if ($exportFile) {
            fwrite($exportFile, $output);
        } else {
            print $output;
        }

        foreach ($objectLines as $line) {
            if ($line->debit == 0 && $line->credit == 0) {
                //var_dump($line->id);
                //unset($array[$line]);
            } else {
                $date_creation = dol_print_date($line->date_creation, '%Y%m%d');
                $date_document = dol_print_date($line->doc_date, '%Y%m%d');
                $date_lettering = dol_print_date($line->date_lettering, '%Y%m%d');
                $date_validation = dol_print_date($line->date_validation, '%Y%m%d');
                $date_limit_payment = dol_print_date($line->date_lim_reglement, '%Y%m%d');

                $refInvoice = '';
                if ($line->doc_type == 'customer_invoice') {
                    // Customer invoice
                    require_once constant('DOL_DOCUMENT_ROOT') . '/compta/facture/class/facture.class.php';
                    $invoice = new Facture($this->db);
                    $invoice->fetch($line->fk_doc);

                    $refInvoice = $invoice->ref;
                } elseif ($line->doc_type == 'supplier_invoice') {
                    // Supplier invoice
                    require_once constant('DOL_DOCUMENT_ROOT') . '/fourn/class/fournisseur.facture.class.php';
                    $invoice = new FactureFournisseur($this->db);
                    $invoice->fetch($line->fk_doc);

                    $refInvoice = $invoice->ref_supplier;
                }

                $tab = array();

                // FEC:JournalCode
                $tab[] = $line->code_journal;

                // FEC:JournalLib
                $labeljournal = dol_string_unaccent($langs->transnoentities($line->journal_label));
                $labeljournal = dol_string_nospecial($labeljournal, ' ');
                $tab[] = $labeljournal;

                // FEC:EcritureNum
                $tab[] = $line->piece_num;

                // FEC:EcritureDate
                $tab[] = $date_document;

                // FEC:CompteNum
                $tab[] = length_accountg($line->numero_compte);

                // FEC:CompteLib
                $tab[] = dol_string_unaccent($line->label_compte);

                // FEC:CompAuxNum
                $tab[] = length_accounta($line->subledger_account);

                // FEC:CompAuxLib
                $tab[] = dol_string_unaccent($line->subledger_label);

                // FEC:PieceRef
                $tab[] = $line->doc_ref;

                // FEC:PieceDate
                $tab[] = dol_string_unaccent($date_creation);

                // FEC:EcritureLib
                // Clean label operation to prevent problem on export with tab separator & other character
                $line->label_operation = str_replace(array("\t", "\n", "\r"), " ", $line->label_operation);
                $line->label_operation = str_replace(array("..."), "", $line->label_operation);
                $tab[] = dol_string_unaccent($line->label_operation);

                // FEC:Debit
                $tab[] = price2fec($line->debit);

                // FEC:Credit
                $tab[] = price2fec($line->credit);

                // FEC:EcritureLet
                $tab[] = $line->lettering_code;

                // FEC:DateLet
                $tab[] = $date_lettering;

                // FEC:ValidDate
                $tab[] = $date_validation;

                // FEC:Montantdevise
                $tab[] = $line->multicurrency_amount;

                // FEC:Idevise
                $tab[] = $line->multicurrency_code;

                // FEC_suppl:DateLimitReglmt
                $tab[] = $date_limit_payment;

                // FEC_suppl:NumFacture
                // Clean ref invoice to prevent problem on export with tab separator & other character
                $refInvoice = str_replace(array("\t", "\n", "\r"), " ", $refInvoice);
                $tab[] = dol_trunc(self::toAnsi($refInvoice), 17, 'right', 'UTF-8', 1);

                // FEC_suppl:FichierFacture
                // get document file
                $attachmentFileName = '';
                if ($withAttachment == 1) {
                    $attachmentFileKey = trim($line->piece_num);

                    if (!isset($archiveFileList[$attachmentFileKey])) {
                        $objectDirPath = '';
                        $objectFileName = dol_sanitizeFileName($line->doc_ref);
                        if ($line->doc_type == 'customer_invoice') {
                            $objectDirPath = !empty($conf->invoice->multidir_output[$conf->entity]) ? $conf->invoice->multidir_output[$conf->entity] : $conf->invoice->dir_output;
                        } elseif ($line->doc_type == 'expense_report') {
                            $objectDirPath = !empty($conf->expensereport->multidir_output[$conf->entity]) ? $conf->expensereport->multidir_output[$conf->entity] : $conf->expensereport->dir_output;
                        } elseif ($line->doc_type == 'supplier_invoice') {
                            $objectDirPath = !empty($conf->fournisseur->facture->multidir_output[$conf->entity]) ? $conf->fournisseur->facture->multidir_output[$conf->entity] : $conf->fournisseur->facture->dir_output;
                            $objectDirPath .= '/' . rtrim(get_exdir($invoice->id, 2, 0, 0, $invoice, 'invoice_supplier'), '/');
                        }
                        $arrayofinclusion = array();
                        // If it is a supplier invoice, we want to use last uploaded file
                        $arrayofinclusion[] = '^' . preg_quote($objectFileName, '/') . (($line->doc_type == 'supplier_invoice') ? '.+' : '') . '\.pdf$';
                        $fileFoundList = dol_dir_list($objectDirPath . '/' . $objectFileName, 'files', 0, implode('|', $arrayofinclusion), '(\.meta|_preview.*\.png)$', 'date', SORT_DESC, 0, true);
                        if (!empty($fileFoundList)) {
                            $attachmentFileNameTrunc = $line->doc_ref;
                            foreach ($fileFoundList as $fileFound) {
                                if (strstr($fileFound['name'], $objectFileName)) {
                                    // skip native invoice pdfs (canelle)
                                    // We want to retrieve an attachment representative of the supplier invoice, not a fake document generated by Dolibarr.
                                    if ($line->doc_type == 'supplier_invoice') {
                                        if ($fileFound['name'] === $objectFileName . '.pdf') {
                                            continue;
                                        }
                                    } elseif ($fileFound['name'] !== $objectFileName . '.pdf') {
                                        continue;
                                    }
                                    $fileFoundPath = $objectDirPath . '/' . $objectFileName . '/' . $fileFound['name'];
                                    if (file_exists($fileFoundPath)) {
                                        $archiveFileList[$attachmentFileKey] = array(
                                            'path' => $fileFoundPath,
                                            'name' => $attachmentFileNameTrunc . '.pdf',
                                        );
                                        break;
                                    }
                                }
                            }
                        }
                    }

                    if (isset($archiveFileList[$attachmentFileKey])) {
                        $attachmentFileName = $archiveFileList[$attachmentFileKey]['name'];
                    }
                }

                $tab[] = $attachmentFileName;

                $output = implode($separator, $tab) . $end_line;

                if ($exportFile) {
                    fwrite($exportFile, $output);
                } else {
                    print $output;
                }
            }
        }

        return $archiveFileList;
    }