<?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\DataSrc\Paises;
use FacturaScripts\Core\Lib\Vies;
use FacturaScripts\Core\Model\Base\EmailAndPhonesTrait;
use FacturaScripts\Core\Model\Base\FiscalNumberTrait;
use FacturaScripts\Core\Model\Base\GravatarTrait;
use FacturaScripts\Core\Template\ModelClass;
use FacturaScripts\Core\Template\ModelTrait;
use FacturaScripts\Core\Tools;
use FacturaScripts\Core\Where;
use FacturaScripts\Core\Validator;
use FacturaScripts\Dinamic\Lib\RegimenIVA;
use FacturaScripts\Core\Lib\TaxExceptions;
use FacturaScripts\Dinamic\Model\Contacto as DinContacto;
use FacturaScripts\Dinamic\Model\CuentaBancoProveedor as DinCuentaBancoProveedor;
use FacturaScripts\Dinamic\Model\CuentaEspecial as DinCuentaEspecial;
use FacturaScripts\Dinamic\Model\Retencion;
use FacturaScripts\Dinamic\Model\Subcuenta as DinSubcuenta;

/**
 * A supplier. It can be related to several addresses or accounts.
 *
 * @author Carlos García Gómez <carlos@facturascripts.com>
 */
class Proveedor extends ModelClass
{
    use ModelTrait;
    use EmailAndPhonesTrait;
    use FiscalNumberTrait;
    use GravatarTrait;

    const SPECIAL_ACCOUNT = 'PROVEE';
    const SPECIAL_CREDITOR_ACCOUNT = 'ACREED';

    /** Indica si el proveedor actúa como acreedor. @var bool */
    public $acreedor;

    /** Código del cliente vinculado al proveedor. @var string */
    public $codcliente;

    /** Código de la forma de pago habitual del proveedor. @var string */
    public $codpago;

    /** Código identificativo del proveedor. @var string */
    public $codproveedor;

    /** Código de la retención aplicable al proveedor. @var string */
    public $codretencion;

    /** Código de la serie predeterminada para el proveedor. @var string */
    public $codserie;

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

    /** Indica si el proveedor está dado de baja. @var bool */
    public $debaja;

    /** Código de la excepción de IVA aplicable al proveedor. @var string */
    public $excepcioniva;

    /** Número de fax del proveedor. @var string */
    public $fax;

    /** Fecha de alta del proveedor. @var string */
    public $fechaalta;

    /** Fecha de baja del proveedor. @var string */
    public $fechabaja;

    /** Identificador del contacto predeterminado del proveedor. @var int */
    public $idcontacto;

    /** Código del idioma preferido del proveedor. @var string */
    public $langcode;

    /** Nombre comercial o nombre completo del proveedor. @var string */
    public $nombre;

    /** Clave de operación de IVA aplicable al proveedor. @var string */
    public $operacion;

    /** Observaciones internas sobre el proveedor. @var string */
    public $observaciones;

    /** Indica si el proveedor es una persona física. @var bool */
    public $personafisica;

    /** Razón social del proveedor. @var string */
    public $razonsocial;

    /** Régimen de IVA aplicable al proveedor. @var string */
    public $regimeniva;

    /** Sitio web del proveedor. @var string */
    public $web;

    public function checkVies(bool $msg = true): bool
    {
        $codiso = Paises::get($this->getDefaultAddress()->codpais)->codiso ?? '';
        return Vies::check($this->cifnif ?? '', $codiso, $msg) === 1;
    }

    public function clear(): void
    {
        parent::clear();
        $this->acreedor = false;
        $this->codretencion = Tools::settings('default', 'codretencion');
        $this->debaja = false;
        $this->fechaalta = Tools::date();
        $this->personafisica = true;
        $this->regimeniva = RegimenIVA::defaultValue();
        $this->tipoidfiscal = Tools::settings('default', 'tipoidfiscal');
    }

    public function codeModelSearch(string $query, string $fieldCode = '', array $where = []): array
    {
        $field = empty($fieldCode) ? $this->primaryColumn() : $fieldCode;
        $fields = 'cifnif|codproveedor|email|nombre|observaciones|razonsocial|telefono1|telefono2';
        $where[] = Where::like($fields, mb_strtolower($query, 'UTF8'));
        $where[] = Where::isNull('fechabaja');
        return CodeModel::all($this->tableName(), $field, $this->primaryDescriptionColumn(), false, $where);
    }

    /**
     * Returns the addresses associated with this supplier.
     *
     * @return DinContacto[]
     */
    public function getAddresses(): array
    {
        return DinContacto::allWhereEq($this->primaryColumn(), $this->id());
    }

    /**
     * Returns the bank accounts associated with the provider.
     *
     * @return DinCuentaBancoProveedor[]
     */
    public function getBankAccounts(): array
    {
        return DinCuentaBancoProveedor::allWhereEq($this->primaryColumn(), $this->id());
    }

    /**
     * Return the default billing or shipping address.
     *
     * @return DinContacto
     */
    public function getDefaultAddress(): Contacto
    {
        $contact = new DinContacto();
        $contact->load($this->idcontacto);
        return $contact;
    }

    public function getSubcuenta(string $codejercicio, bool $crear): Subcuenta
    {
        $specialAccount = $this->acreedor ?
            static::SPECIAL_CREDITOR_ACCOUNT :
            static::SPECIAL_ACCOUNT;

        // ya tiene una subcuenta asignada
        if ($this->codsubcuenta) {
            // buscamos la subcuenta para el ejercicio
            $subAccount = new DinSubcuenta();
            $where = [
                Where::eq('codsubcuenta', $this->codsubcuenta),
                Where::eq('codejercicio', $codejercicio),
            ];
            if ($subAccount->loadWhere($where)) {
                return $subAccount;
            }

            // no hemos encontrado la subcuenta
            // si no queremos crearla, devolvemos una vacía
            if (false === $crear) {
                return new DinSubcuenta();
            }

            // buscamos la cuenta especial
            $special = new DinCuentaEspecial();
            if (false === $special->load($specialAccount)) {
                return new DinSubcuenta();
            }

            // ahora creamos la subcuenta
            return $special->getCuenta($codejercicio)->createSubcuenta($this->codsubcuenta, $this->razonsocial);
        }

        // si no creamos la subcuenta, devolvemos una vacía
        return $crear ?
            $this->createSubcuenta($codejercicio, $specialAccount) :
            new DinSubcuenta();
    }

    public function install(): string
    {
        // dependencias
        new FormaPago();
        new Retencion();
        new Serie();

        return parent::install();
    }

    public function irpf(): float
    {
        if (empty($this->codretencion)) {
            return 0.0;
        }

        $retention = new Retencion();
        if ($retention->load($this->codretencion)) {
            return $retention->porcentaje;
        }

        return 0.0;
    }

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

    public function primaryDescriptionColumn(): string
    {
        return 'nombre';
    }

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

    public function test(): bool
    {
        $this->debaja = !empty($this->fechabaja);
        if (empty($this->fechaalta)) {
            $this->fechaalta = Tools::date();
        }
        $this->fax = Tools::noHtml($this->fax) ?? '';
        $this->langcode = Tools::noHtml($this->langcode);
        $this->nombre = Tools::noHtml($this->nombre);
        $this->observaciones = Tools::noHtml($this->observaciones) ?? '';
        $this->razonsocial = Tools::noHtml($this->razonsocial);
        $this->web = Tools::noHtml($this->web);

        if (!empty($this->codproveedor) && 1 !== preg_match('/^[A-Z0-9_\+\.\-]{1,10}$/i', $this->codproveedor)) {
            Tools::log()->warning(
                'invalid-alphanumeric-code',
                ['%value%' => $this->codproveedor, '%column%' => 'codproveedor', '%min%' => '1', '%max%' => '10']
            );
            return false;
        }

        if (empty($this->nombre)) {
            Tools::log()->warning(
                'field-can-not-be-null',
                ['%fieldName%' => 'nombre', '%tableName%' => static::tableName()]
            );
            return false;
        }

        if (empty($this->razonsocial)) {
            $this->razonsocial = $this->nombre;
        }

        // check if the web is a valid url
        if (!empty($this->web) && false === Validator::url($this->web)) {
            Tools::log()->warning('invalid-web', ['%web%' => $this->web]);
            return false;
        }

        if (false === TaxExceptions::isValidCombination($this->operacion, $this->excepcioniva, 'purchases')) {
            Tools::log()->warning('invalid-operation-exception-combination');
            return false;
        }

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

    protected function createSubcuenta(string $codejercicio, string $specialAccount): Subcuenta
    {
        // buscamos la cuenta especial
        $special = new DinCuentaEspecial();
        if (false === $special->load($specialAccount)) {
            return new Subcuenta();
        }

        // buscamos la cuenta
        $cuenta = $special->getCuenta($codejercicio);
        if (empty($cuenta->codcuenta)) {
            return new DinSubcuenta();
        }

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

        // creamos la subcuenta
        $subAccount = $cuenta->createSubcuenta($code, $this->razonsocial);
        if (false === $subAccount->save()) {
            return new DinSubcuenta();
        }

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

        return $subAccount;
    }

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

        $return = parent::saveInsert();
        if ($return && empty($this->idcontacto)) {
            // creates new contact
            $contact = new DinContacto();
            $contact->cifnif = $this->cifnif;
            $contact->codproveedor = $this->codproveedor;
            $contact->descripcion = $this->nombre;
            $contact->email = $this->email;
            $contact->empresa = $this->razonsocial;
            $contact->fax = $this->fax;
            $contact->nombre = $this->nombre;
            $contact->personafisica = $this->personafisica;
            $contact->telefono1 = $this->telefono1;
            $contact->telefono2 = $this->telefono2;
            $contact->tipoidfiscal = $this->tipoidfiscal;
            if ($contact->save()) {
                $this->idcontacto = $contact->idcontacto;
                return $this->save();
            }
        }

        return $return;
    }
}
