<?php
/*
 * OpenSTAManager: il software gestionale open source per l'assistenza tecnica e la fatturazione
 * Copyright (C) DevCode s.r.l.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

use Modules\Fatture\Fattura;
use Modules\Iva\Aliquota;
use Util\Generator;

/*
 * Funzione per generare un nuovo numero per la fattura.
 *
 * @deprecated 2.4.5
 */
if (!function_exists('get_new_numerofattura')) {
    function get_new_numerofattura($data)
    {
        global $dir;
        global $id_segment;

        return Fattura::getNextNumero($data, $dir, $id_segment);
    }
}

/*
 * Funzione per calcolare il numero secondario successivo utilizzando la maschera dalle impostazioni.
 *
 * @deprecated 2.4.5
 */

if (!function_exists('get_new_numerosecondariofattura')) {
    function get_new_numerosecondariofattura($data)
    {
        global $dir;
        global $id_segment;

        return Fattura::getNextNumeroSecondario($data, $dir, $id_segment);
    }
}

/*
 * Calcolo imponibile fattura (totale_righe - sconto).
 *
 * @deprecated 2.4.5
 */

if (!function_exists('get_imponibile_fattura')) {
    function get_imponibile_fattura($iddocumento)
    {
        $fattura = Fattura::find($iddocumento);

        return $fattura->imponibile;
    }
}

/*
 * Calcolo totale fattura (imponibile + iva).
 *
 * @deprecated 2.4.5
 */
if (!function_exists('get_totale_fattura')) {
    function get_totale_fattura($iddocumento)
    {
        $fattura = Fattura::find($iddocumento);

        return $fattura->totale;
    }
}
/*
 * Calcolo netto a pagare fattura (totale - ritenute - bolli).
 *
 * @deprecated 2.4.5
 */
if (!function_exists('get_netto_fattura')) {
    function get_netto_fattura($iddocumento)
    {
        $fattura = Fattura::find($iddocumento);

        return $fattura->netto;
    }
}

/*
 * Calcolo iva detraibile fattura.
 *
 * @deprecated 2.4.5
 */
if (!function_exists('get_ivadetraibile_fattura')) {
    function get_ivadetraibile_fattura($iddocumento)
    {
        $fattura = Fattura::find($iddocumento);

        return $fattura->iva_detraibile;
    }
}

/*
 * Calcolo iva indetraibile fattura.
 *
 * @deprecated 2.4.5
 */

if (!function_exists('get_ivaindetraibile_fattura')) {
    function get_ivaindetraibile_fattura($iddocumento)
    {
        $fattura = Fattura::find($iddocumento);

        return $fattura->iva_indetraibile;
    }
}

/*
 * Elimina una scadenza in base al codice documento.
 *
 * @deprecated 2.4.17
 */
if (!function_exists('elimina_scadenze')) {
    function elimina_scadenze($iddocumento)
    {
        $fattura = Fattura::find($iddocumento);

        $fattura->rimuoviScadenze();
    }
}
/*
 * Funzione per ricalcolare lo scadenzario di una determinata fattura
 * $iddocumento	string		E' l'id del documento di cui ricalcolare lo scadenzario
 * $pagamento		string		Nome del tipo di pagamento. Se è vuoto lo leggo da co_pagamenti_documenti, perché significa che devo solo aggiornare gli importi.
 * $pagato boolean Indica se devo segnare l'importo come pagato.
 *
 * @deprecated 2.4.17
 */
if (!function_exists('aggiungi_scadenza')) {
    function aggiungi_scadenza($iddocumento, $pagamento = '', $pagato = false)
    {
        $fattura = Fattura::find($iddocumento);

        $fattura->registraScadenze($pagato);
    }
}

/*
 * Elimina i movimenti collegati ad una fattura.
 * Se il flag $prima_nota è impostato a 1 elimina solo i movimenti di Prima Nota, altrimenti rimuove quelli automatici.
 *
 * @param $iddocumento
 * @param int $prima_nota
 *
 * @deprecated 2.4.17
 */

if (!function_exists('elimina_movimenti')) {
    function elimina_movimenti($id_documento, $prima_nota = 0)
    {
        $dbo = database();

        $idmastrino = $dbo->fetchOne('SELECT idmastrino FROM co_movimenti WHERE iddocumento='.prepare($id_documento).' AND primanota='.prepare($prima_nota))['idmastrino'];

        $query2 = 'DELETE FROM co_movimenti WHERE idmastrino='.prepare($idmastrino).' AND primanota='.prepare($prima_nota);
        $dbo->query($query2);
    }
}

/*
 * Funzione per aggiungere la fattura in prima nota
 * $iddocumento	string		E' l'id del documento da collegare alla prima nota
 * $dir			string		Direzione dell'importo (entrata, uscita)
 * $primanota		boolean		Indica se il movimento è un movimento di prima nota o un movimento normale (di default movimento normale).
 *
 * @deprecated 2.4.17
 */
if (!function_exists('aggiungi_movimento')) {
    function aggiungi_movimento($iddocumento, $dir, $primanota = 0)
    {
        $dbo = database();

        $fattura = Fattura::find($iddocumento);
        $is_nota = $fattura->isNota();

        // Totale marca da bollo, inps, ritenuta, idagente
        $query = 'SELECT data, bollo, ritenutaacconto, rivalsainps, split_payment FROM co_documenti WHERE id='.prepare($iddocumento);
        $rs = $dbo->fetchArray($query);
        $totale_bolli = $is_nota ? -$rs[0]['bollo'] : $rs[0]['bollo'];
        $totale_ritenutaacconto = $is_nota ? -$rs[0]['ritenutaacconto'] : $rs[0]['ritenutaacconto'];
        $totale_ritenutacontributi = $is_nota ? -$fattura->totale_ritenuta_contributi : $fattura->totale_ritenuta_contributi;
        $totale_rivalsainps = $is_nota ? -$rs[0]['rivalsainps'] : $rs[0]['rivalsainps'];
        $data_documento = $rs[0]['data'];
        $split_payment = $rs[0]['split_payment'];

        $netto_fattura = get_netto_fattura($iddocumento);
        $totale_fattura = get_totale_fattura($iddocumento);
        $totale_fattura = $is_nota ? -$totale_fattura : $totale_fattura;

        $imponibile_fattura = get_imponibile_fattura($iddocumento);

        // Calcolo l'iva della rivalsa inps
        $iva_rivalsainps = 0;

        $rsr = $dbo->fetchArray('SELECT `idiva`, `rivalsainps` FROM `co_righe_documenti` WHERE `iddocumento`='.prepare($iddocumento));

        for ($r = 0; $r < sizeof($rsr); ++$r) {
            $qi = Aliquota::find(prepare($rsr[$r]['idiva']))->percentuale;
            $rsi = $dbo->fetchArray($qi);
            $iva_rivalsainps += $rsr[$r]['rivalsainps'] / 100 * $rsi[0]['percentuale'];
        }

        // Lettura iva indetraibile fattura
        $query = 'SELECT SUM(`iva_indetraibile`) AS iva_indetraibile FROM `co_righe_documenti` GROUP BY `iddocumento` HAVING `iddocumento`='.prepare($iddocumento);
        $rs = $dbo->fetchArray($query);
        $iva_indetraibile_fattura = $is_nota ? -$rs[0]['iva_indetraibile'] : $rs[0]['iva_indetraibile'];

        // Lettura iva delle righe in fattura
        $query = 'SELECT `iva` FROM `co_righe_documenti` WHERE `iddocumento`='.prepare($iddocumento);
        $rs = $dbo->fetchArray($query);
        $iva_fattura = sum(array_column($rs, 'iva'), null) + $iva_rivalsainps - $iva_indetraibile_fattura;
        $iva_fattura = $is_nota ? -$iva_fattura : $iva_fattura;

        // Imposto i segni + e - in base se la fattura è di acquisto o vendita
        if ($dir == 'uscita') {
            $segno_mov1_cliente = -1;
            $segno_mov2_ricavivendite = 1;
            $segno_mov3_iva = 1;

            $segno_mov4_inps = 1;
            $segno_mov5_ritenutaacconto = -1;

            // Lettura conto fornitore
            $query = 'SELECT idconto_fornitore FROM an_anagrafiche INNER JOIN co_documenti ON an_anagrafiche.idanagrafica=co_documenti.idanagrafica WHERE co_documenti.id='.prepare($iddocumento);
            $rs = $dbo->fetchArray($query);
            $idconto_controparte = $rs[0]['idconto_fornitore'];

            if ($idconto_controparte == '') {
                $idconto_controparte = setting('Conto per Riepilogativo fornitori');
            }
        } else {
            $segno_mov1_cliente = 1;
            $segno_mov2_ricavivendite = -1;
            $segno_mov3_iva = -1;

            $segno_mov4_inps = -1;
            $segno_mov5_ritenutaacconto = 1;

            // Lettura conto cliente
            $query = 'SELECT idconto_cliente FROM an_anagrafiche INNER JOIN co_documenti ON an_anagrafiche.idanagrafica=co_documenti.idanagrafica WHERE co_documenti.id='.prepare($iddocumento);
            $rs = $dbo->fetchArray($query);
            $idconto_controparte = $rs[0]['idconto_cliente'];

            if ($idconto_controparte == '') {
                $idconto_controparte = setting('Conto per Riepilogativo clienti');
            }
        }

        // Lettura info fattura
        $query = 'SELECT *, `co_documenti`.`data_competenza`, `co_documenti`.`note`, `co_documenti`.`idpagamento`, `co_documenti`.`id` AS iddocumento, `co_statidocumento_lang`.`name` AS `stato`, `co_tipidocumento_lang`.`name` AS descrizione_tipo FROM `co_documenti` INNER JOIN `co_statidocumento` ON `co_documenti`.`idstatodocumento`=`co_statidocumento`.`id` INNER JOIN `an_anagrafiche` ON `co_documenti`.`idanagrafica`=`an_anagrafiche`.`idanagrafica` INNER JOIN `co_tipidocumento` ON `co_documenti`.`idtipodocumento`=`co_tipidocumento`.`id` LEFT JOIN `co_tipidocumento_lang` ON (`co_tipidocumento_lang`.`id_record` = `co_tipidocumento`.`id` AND `co_tipidocumento_lang`.`id_lang` = '.prepare(\App::getLang()).') WHERE `co_documenti`.`id`='.prepare($iddocumento);

        $rs = $dbo->fetchArray($query);
        $data = $rs[0]['data_competenza'];
        $ragione_sociale = $rs[0]['ragione_sociale'];

        $idmastrino = get_new_idmastrino();

        // Prendo il numero doc. esterno se c'è, altrimenti quello normale
        if (!empty($rs[0]['numero_esterno'])) {
            $numero = $rs[0]['numero_esterno'];
        } else {
            $numero = $rs[0]['numero'];
        }

        // Abbreviazioni contabili dei movimenti
        $tipodoc = '';
        if ($rs[0]['descrizione_tipo'] == 'Nota di credito') {
            $tipodoc = 'Nota di credito';
        } elseif ($rs[0]['descrizione_tipo'] == 'Nota di debito') {
            $tipodoc = 'Nota di debito';
        } else {
            $tipodoc = 'Fattura';
        }

        $descrizione = $tipodoc.' num. '.$numero;

        /*
            Il mastrino si apre con almeno 3 righe di solito (esempio fattura di vendita):
            1) dare imponibile+iva al conto cliente
            2) avere imponibile sul conto dei ricavi
            3) avere iva sul conto dell'iva a credito (ed eventuale iva indetraibile sul rispettivo conto)

            aggiuntivo:
            4) eventuale rivalsa inps
            5) eventuale ritenuta d'acconto
        */
        // 1) Aggiungo la riga del conto cliente
        $importo_cliente = $totale_fattura;

        if ($split_payment) {
            $importo_cliente = sum($importo_cliente, -$iva_fattura, 2);
        }

        $query2 = 'INSERT INTO co_movimenti(idmastrino, data, iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).', '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_controparte).', '.prepare(($importo_cliente + $totale_bolli) * $segno_mov1_cliente).', '.prepare($primanota).' )';
        $dbo->query($query2);

        // 2) Aggiungo il totale sul conto dei ricavi/spese scelto
        // Lettura descrizione conto ricavi/spese per ogni riga del documento
        $righe = $dbo->fetchArray('SELECT idconto, SUM(subtotale - sconto) AS imponibile FROM co_righe_documenti WHERE iddocumento='.prepare($iddocumento).' GROUP BY idconto');

        foreach ($righe as $riga) {
            // Retrocompatibilità
            $idconto_riga = $riga['idconto'];
            $riga['imponibile'] = $is_nota ? -$riga['imponibile'] : $riga['imponibile'];

            $query2 = 'INSERT INTO co_movimenti(idmastrino, data, iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).', '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_riga).', '.prepare($riga['imponibile'] * $segno_mov2_ricavivendite).', '.prepare($primanota).')';
            $dbo->query($query2);
        }

        // 3) Aggiungo il totale sul conto dell'iva
        // Lettura id conto iva
        if ($iva_fattura != 0 && !$split_payment) {
            $descrizione_conto_iva = ($dir == 'entrata') ? 'Iva su vendite' : 'Iva su acquisti';
            $idconto_iva = setting('Conto per '.$descrizione_conto_iva);

            $query2 = 'INSERT INTO co_movimenti(idmastrino, data, iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).', '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_iva).', '.prepare($iva_fattura * $segno_mov3_iva).', '.prepare($primanota).')';
            $dbo->query($query2);
        }

        // Lettura id conto iva indetraibile
        if ($iva_indetraibile_fattura != 0 && !$split_payment) {
            $idconto_iva2 = setting('Conto per Iva indetraibile');

            $query2 = 'INSERT INTO co_movimenti(idmastrino, data,  iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).',  '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_iva2).', '.prepare($iva_indetraibile_fattura * $segno_mov3_iva).', '.prepare($primanota).')';
            $dbo->query($query2);
        }

        // 4) Aggiungo la rivalsa INPS se c'è
        // Lettura id conto inps
        if ($totale_rivalsainps != 0) {
            $idconto_inps = setting('Conto per Erario c/INPS');

            $query2 = 'INSERT INTO co_movimenti(idmastrino, data,  iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).', '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_inps).', '.prepare($totale_rivalsainps * $segno_mov4_inps).', '.prepare($primanota).')';
            $dbo->query($query2);
        }

        // 5) Aggiungo la ritenuta d'acconto se c'è
        // Lettura id conto ritenuta e la storno subito
        if ($totale_ritenutaacconto != 0) {
            $idconto_ritenutaacconto = setting("Conto per Erario c/ritenute d'acconto");

            // DARE nel conto ritenuta
            $query2 = 'INSERT INTO co_movimenti(idmastrino, data, iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).',  '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_ritenutaacconto).', '.prepare($totale_ritenutaacconto * $segno_mov5_ritenutaacconto).', '.prepare($primanota).')';
            $dbo->query($query2);

            // AVERE nel riepilogativo clienti
            $query2 = 'INSERT INTO co_movimenti(idmastrino, data,  iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).',  '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_controparte).', '.prepare(($totale_ritenutaacconto * $segno_mov5_ritenutaacconto) * -1).', '.prepare($primanota).')';
            $dbo->query($query2);
        }

        // 6) Aggiungo la ritenuta enasarco se c'è
        // Lettura id conto ritenuta e la storno subito
        if ($totale_ritenutacontributi != 0) {
            $idconto_ritenutaenasarco = setting('Conto per Erario c/enasarco');

            // DARE nel conto ritenuta
            $query2 = 'INSERT INTO co_movimenti(idmastrino, data, iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).', '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_ritenutaenasarco).', '.prepare($totale_ritenutacontributi * $segno_mov5_ritenutaacconto).', '.prepare($primanota).')';
            $dbo->query($query2);

            // AVERE nel riepilogativo clienti
            $query2 = 'INSERT INTO co_movimenti(idmastrino, data, iddocumento, id_anagrafica, descrizione, idconto, totale, primanota) VALUES('.prepare($idmastrino).', '.prepare($data).',  '.prepare($iddocumento).", '', ".prepare($descrizione.' del '.date('d/m/Y', strtotime($data)).' ('.$ragione_sociale.')').', '.prepare($idconto_controparte).', '.prepare(($totale_ritenutacontributi * $segno_mov5_ritenutaacconto) * -1).', '.prepare($primanota).')';
            $dbo->query($query2);
        }
    }
}
/*
 * Funzione per generare un nuovo codice per il mastrino.
 *
 * @deprecated 2.4.17
 */
if (!function_exists('get_new_idmastrino')) {
    function get_new_idmastrino($table = 'co_movimenti')
    {
        $dbo = database();

        $query = 'SELECT MAX(idmastrino) AS maxidmastrino FROM '.$table;
        $rs = $dbo->fetchArray($query);

        return intval($rs[0]['maxidmastrino']) + 1;
    }
}

/*
 * Ricalcola i costi aggiuntivi in fattura (rivalsa inps, ritenuta d'acconto, marca da bollo)
 * Deve essere eseguito ogni volta che si aggiunge o toglie una riga
 * $iddocumento		int		ID della fattura.
 *
 * @deprecated 2.4.17
 */

if (!function_exists('ricalcola_costiagg_fattura')) {
    function ricalcola_costiagg_fattura($iddocumento)
    {
        global $dir;

        $fattura = Fattura::find($iddocumento);
        $fattura->save();
    }
}

/*
 * Verifica che il numero_esterno della fattura indicata sia correttamente impostato, a partire dai valori delle fatture ai giorni precedenti.
 * Restituisce il numero_esterno mancante in caso di numero errato.
 *
 * @return bool|string
 */
if (!function_exists('verifica_numero_fattura')) {
    function verifica_numero_fattura(Fattura $fattura)
    {
        if (empty($fattura->numero_esterno)) {
            return null;
        }

        $id_segment = $fattura->id_segment;
        $data = $fattura->data;

        $documenti = Fattura::where('id_segment', '=', $id_segment)
            ->where('data', '=', $data)
            ->get();

        // Recupero maschera per questo segmento
        $maschera = Generator::getMaschera($id_segment);

        $ultimo = Generator::getPreviousFrom($maschera, 'co_documenti', 'numero_esterno', [
            'data < '.prepare(date('Y-m-d', strtotime($data))),
            'YEAR(data) = '.prepare(date('Y', strtotime($data))),
            'id_segment = '.prepare($id_segment),
        ], $data);

        do {
            $numero = Generator::generate($maschera, $ultimo, 1, Generator::dateToPattern($data));

            $filtered = $documenti->reject(function ($item, $key) use ($numero) {
                return $item->numero_esterno == $numero;
            });

            if ($documenti->count() == $filtered->count()) {
                return $numero;
            }

            $documenti = $filtered;
            $ultimo = $numero;
        } while ($numero != $fattura->numero_esterno);

        return null;
    }
}