<?php
/**
 * This file is part of FacturaScripts
 * Copyright (C) 2013-2026 Carlos Garcia Gomez <carlos@facturascripts.com>
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser 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 Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */

namespace FacturaScripts\Core\Model;

use FacturaScripts\Core\Model\Base\CompanyRelationTrait;
use FacturaScripts\Core\Model\Base\IbanTrait;
use FacturaScripts\Core\Template\ModelClass;
use FacturaScripts\Core\Template\ModelTrait;
use FacturaScripts\Core\Tools;
use FacturaScripts\Core\Where;
use FacturaScripts\Dinamic\Model\CuentaEspecial as DinCuentaEspecial;
use FacturaScripts\Dinamic\Model\Ejercicio as DinEjercicio;
use FacturaScripts\Dinamic\Model\Subcuenta as DinSubcuenta;

/**
 * A bank account of the company itself.
 *
 * @author Carlos García Gómez <carlos@facturascripts.com>
 */
class CuentaBanco extends ModelClass
{
    use ModelTrait;
    use CompanyRelationTrait;
    use IbanTrait;

    const SPECIAL_ACCOUNT = 'BANCO';
    const SPECIAL_ACCOUNT_FALLBACK = 'CAJA';

    /** Indica si la cuenta bancaria está activa. @var bool */
    public $activa;

    /** Código identificativo de la cuenta bancaria. @var string */
    public $codcuenta;

    /** Código de la subcuenta contable asociada. @var string */
    public $codsubcuenta;

    /** Código de la subcuenta contable utilizada para los gastos bancarios. @var string */
    public $codsubcuentagasto;

    /** Descripción de la cuenta bancaria. @var string */
    public $descripcion;

    /** Sufijo utilizado para identificar al acreedor en operaciones SEPA. @var string */
    public $sufijosepa;

    /** Código SWIFT o BIC de la entidad bancaria. @var string */
    public $swift;

    public function clear(): void
    {
        parent::clear();
        $this->activa = true;
        $this->sufijosepa = '000';
    }

    public function createSubcuenta(string $codejercicio): Subcuenta
    {
        // buscamos la cuenta padre en el ejercicio
        $cuenta = $this->loadParentCuenta($codejercicio);
        if (null === $cuenta) {
            return new DinSubcuenta();
        }

        // obtenemos un código de subcuenta libre
        $code = $this->getFreeSubaccountCode($cuenta, $codejercicio);
        if (empty($code)) {
            return new DinSubcuenta();
        }

        // creamos la subcuenta
        $subAccount = $cuenta->createSubcuenta($code, $this->descripcion);
        if (empty($subAccount->codsubcuenta)) {
            return new DinSubcuenta();
        }

        // guardamos el código de subcuenta
        $this->codsubcuenta = $subAccount->codsubcuenta;
        $this->save();

        return $subAccount;
    }

    private function getFreeSubaccountCode(Cuenta $cuenta, string $codejercicio): string
    {
        $ejercicio = new DinEjercicio();
        if (false === $ejercicio->load($codejercicio)) {
            return '';
        }

        $longsub = (int)$ejercicio->longsubcuenta;
        $prefix = $cuenta->codcuenta;
        $padLength = $longsub - strlen($prefix);
        if ($padLength <= 0) {
            return '';
        }

        $subcuenta = new DinSubcuenta();
        $max = (int)str_repeat('9', $padLength);
        for ($num = 1; $num <= $max; $num++) {
            $candidate = $prefix . str_pad((string)$num, $padLength, '0', STR_PAD_LEFT);
            $where = [
                Where::eq('codejercicio', $codejercicio),
                Where::eq('codsubcuenta', $candidate),
            ];
            if (false === $subcuenta->loadWhere($where)) {
                return $candidate;
            }
        }

        return '';
    }

    public function getSubcuenta(string $codejercicio, bool $create): Subcuenta
    {
        // si no hay una subcuenta definida, devolvemos la subcuenta especial
        if (empty($this->codsubcuenta)) {
            return $this->loadSpecialSubcuenta($codejercicio);
        }

        // buscamos la subcuenta
        $subcuenta = new DinSubcuenta();
        $where = [
            Where::eq('codsubcuenta', $this->codsubcuenta),
            Where::eq('codejercicio', $codejercicio),
        ];
        if ($subcuenta->loadWhere($where)) {
            return $subcuenta;
        }

        // no la hemos encontrado, ¿La creamos?
        if ($create) {
            $cuenta = $this->loadParentCuenta($codejercicio);
            if (null === $cuenta) {
                return new DinSubcuenta();
            }

            // creamos la subcuenta
            return $cuenta->createSubcuenta($this->codsubcuenta, $this->descripcion);
        }

        // devolvemos una vacía
        return new DinSubcuenta();
    }

    public function getSubcuentaGastos(string $codejercicio, bool $create): Subcuenta
    {
        // si no hay una subcuenta definida, devolvemos la subcuenta especial
        if (empty($this->codsubcuentagasto)) {
            return $this->loadSpecialSubcuenta($codejercicio);
        }

        // buscamos la subcuenta
        $subcuenta = new DinSubcuenta();
        $where = [
            Where::eq('codsubcuenta', $this->codsubcuentagasto),
            Where::eq('codejercicio', $codejercicio),
        ];
        if ($subcuenta->loadWhere($where)) {
            return $subcuenta;
        }

        // no la hemos encontrado, ¿La creamos?
        if ($create) {
            $cuenta = $this->loadParentCuenta($codejercicio);
            if (null === $cuenta) {
                return new DinSubcuenta();
            }

            // creamos la subcuenta
            return $cuenta->createSubcuenta($this->codsubcuentagasto, $this->descripcion);
        }

        // devolvemos una vacía
        return new DinSubcuenta();
    }

    private function loadParentCuenta(string $codejercicio): ?Cuenta
    {
        // intentamos primero con BANCO; si no hay cuenta mapeada en el ejercicio, caemos a CAJA
        foreach ([static::SPECIAL_ACCOUNT, static::SPECIAL_ACCOUNT_FALLBACK] as $code) {
            $especial = new DinCuentaEspecial();
            if (false === $especial->load($code)) {
                continue;
            }

            $cuenta = $especial->getCuenta($codejercicio);
            if (!empty($cuenta->codcuenta)) {
                return $cuenta;
            }
        }

        return null;
    }

    private function loadSpecialSubcuenta(string $codejercicio): Subcuenta
    {
        foreach ([static::SPECIAL_ACCOUNT, static::SPECIAL_ACCOUNT_FALLBACK] as $code) {
            $especial = new DinCuentaEspecial();
            if (false === $especial->load($code)) {
                continue;
            }

            $subcuenta = $especial->getSubcuenta($codejercicio);
            if (!empty($subcuenta->codsubcuenta)) {
                return $subcuenta;
            }
        }

        return new DinSubcuenta();
    }

    public function install(): string
    {
        // needed dependencies
        new Empresa();

        return parent::install();
    }

    public static function primaryColumn(): string
    {
        return 'codcuenta';
    }

    public static function tableName(): string
    {
        return 'cuentasbanco';
    }

    public function test(): bool
    {
        $this->codcuenta = Tools::noHtml($this->codcuenta);
        $this->codsubcuenta = Tools::noHtml($this->codsubcuenta);
        $this->codsubcuentagasto = Tools::noHtml($this->codsubcuentagasto);
        $this->descripcion = Tools::noHtml($this->descripcion);
        $this->sufijosepa = Tools::noHtml($this->sufijosepa);
        $this->swift = Tools::noHtml($this->swift);

        if (!empty($this->codcuenta) && false === is_numeric($this->codcuenta)) {
            Tools::log()->error('invalid-number', ['%number%' => $this->codcuenta]);
            return false;
        }

        if (empty($this->idempresa)) {
            $this->idempresa = Tools::settings('default', 'idempresa');
        }

        return parent::test() && $this->testIBAN();
    }

    public function url(string $type = 'auto', string $list = 'ListFormaPago?activetab=List'): string
    {
        return parent::url($type, $list);
    }

    protected function saveInsert(): bool
    {
        if (empty($this->codcuenta)) {
            $this->codcuenta = $this->newCode();
        }

        return parent::saveInsert();
    }

    protected function saveUpdate(): bool
    {
        if (false === parent::saveUpdate()) {
            return false;
        }

        // si ha cambiado el iban, añadimos un aviso al log
        if (!empty($this->getOriginal('iban')) && $this->isDirty('iban')) {
            Tools::log(LogMessage::AUDIT_CHANNEL)->warning('company-iban-changed', [
                '%account%' => $this->codcuenta,
                '%old%' => $this->getOriginal('iban'),
                '%new%' => $this->iban,
            ]);
        }

        return true;
    }
}
