<?php
/**
 * Karaka
 *
 * PHP Version 8.1
 *
 * @package   Modules\Billing
 * @copyright Dennis Eichhorn
 * @license   OMS License 1.0
 * @version   1.0.0
 * @link      https://jingga.app
 */
declare(strict_types=1);

namespace Modules\Billing\Controller;

use Modules\Billing\Models\BillMapper;
use Modules\Billing\Models\BillTypeMapper;
use Modules\Billing\Models\NullBillType;
use Modules\Billing\Models\SettingsEnum;
use Modules\SupplierManagement\Models\NullSupplier;
use Modules\SupplierManagement\Models\Supplier;
use Modules\SupplierManagement\Models\SupplierMapper;
use phpOMS\Contract\RenderableInterface;
use phpOMS\Localization\ISO639x1Enum;
use phpOMS\Localization\LanguageDetection\Language;
use phpOMS\Localization\Money;
use phpOMS\Message\RequestAbstract;
use phpOMS\Message\ResponseAbstract;
use phpOMS\Views\View;

/**
 * Billing controller class.
 *
 * @package Modules\Billing
 * @license OMS License 1.0
 * @link    https://jingga.app
 * @since   1.0.0
 */
final class CliController extends Controller
{
    /**
     * Analyse supplier bill
     *
     * @param RequestAbstract  $request  Request
     * @param ResponseAbstract $response Response
     * @param mixed            $data     Generic data
     *
     * @return RenderableInterface Response can be rendered
     *
     * @since 1.0.0
     * @codeCoverageIgnore
     */
    public function cliParseSupplierBill(RequestAbstract $request, ResponseAbstract $response, mixed $data = null) : RenderableInterface
    {
        $originalType = (int) ($request->getData('type') ?? $this->app->appSettings->get(
            names: SettingsEnum::ORIGINAL_MEDIA_TYPE,
            module: self::NAME
        )->content);

        /** @var \Modules\Billing\Models\Bill $bill */
        $bill = BillMapper::get()
            ->with('media')
            ->with('media/types')
            ->with('media/content')
            ->where('id', (int) $request->getData('i'))
            ->where('media/types/id', $originalType)
            ->execute();

        $old = clone $bill;

        $content = \strtolower($bill->getFileByType($originalType)->content->content ?? '');
        $lines   = \explode("\n", $content);

        $language = $this->detectLanguage($content);
        $bill->language = $language;

        $identifiers = \json_decode(\file_get_contents(__DIR__ . '/../Models/billIdentifier.json'), true);

        /* Supplier */
        $suppliers = SupplierMapper::getAll()
            ->with('account')
            ->with('mainAddress')
            ->with('attributes/type')
            ->where('attributes/type/name', ['bill_match_pattern', 'bill_date_format'], 'IN')
            ->execute();

        $supplierId     = $this->matchSupplier($content, $suppliers);
        $bill->supplier = new NullSupplier($supplierId);
        $supplier       =  $suppliers[$supplierId] ?? new NullSupplier();

        $bill->billTo = $supplier->account->name1;
        $bill->billAddress = $supplier->mainAddress->address;
        $bill->billCity = $supplier->mainAddress->city;
        $bill->billZip = $supplier->mainAddress->postal;
        $bill->billCountry = $supplier->mainAddress->getCountry();

        /* Type */
        $type = $this->findSupplierInvoiceType($content, $identifiers['type'], $language);
        $billType = BillTypeMapper::get()
            ->where('name', $type)
            ->execute();
        $bill->type = new NullBillType($billType->getId());

        /* Number */
        $billNumber   = $this->findBillNumber($lines, $identifiers['bill_no'][$language]);
        $bill->number = $billNumber;

        /* Date */
        $billDateTemp = $this->findBillDate($lines, $identifiers['bill_date'][$language]);
        $billDate     = $this->parseDate($billDateTemp, $supplier, $identifiers['date_format']);

        $bill->billDate = $billDate;

        /* Total Gross */
        $totalGross       = $this->findBillGross($lines, $identifiers['total_gross'][$language]);
        $bill->grossCosts = new Money($totalGross);

        $this->updateModel($request->header->account, $old, $bill, BillMapper::class, 'bill_parsing', $request->getOrigin());

        $view = new View($this->app->l11nManager, $request, $response);
        $view->setTemplate('/Modules/Billing/Theme/Cli/bill-parsed');
        $view->setData('bill', $bill);

        return $view;
    }

    private function detectLanguage(string $content) : string
    {
        $detector = new Language();
        $language = $detector->detect($content)->bestResults()->close();

        if (!\is_array($language) || \count($language) < 1) {
            return 'en';
        }

        return \substr(\array_keys($language)[0], 0, 2);
    }

    private function findSupplierInvoiceType(string $content, array $types, string $language) : string
    {
        $bestPos   = \strlen($content);
        $bestMatch = '';

        foreach ($types as $name => $type) {
            foreach ($type[$language] as $l11n) {
                $found = \stripos($content, \strtolower($l11n));

                if ($found !== false && $found < $bestPos) {
                    $bestPos   = $found;
                    $bestMatch = $name;
                }
            }
        }

        return empty($bestMatch) ? 'purchase_invoice' : $bestMatch;
    }

    private function findBillNumber(array $lines, array $matches) : string
    {
        $bestPos   = \count($lines);
        $bestMatch = '';

        $found = [];

        foreach ($matches as $match) {
            foreach ($lines as $row => $line) {
                if (\preg_match($match, $line, $found) === 1) {
                    if ($row < $bestPos) {
                        $bestPos = $row;
                        $bestMatch = \trim($found['bill_no']);
                    }

                    break;
                }
            }
        }

        return $bestMatch;
    }

    private function findBillDue(array $lines, array $matches) : string
    {
        $bestPos   = \count($lines);
        $bestMatch = '';

        $found = [];

        foreach ($matches as $match) {
            foreach ($lines as $row => $line) {
                if (\preg_match($match, $line, $found) === 1) {
                    if ($row < $bestPos) {
                        // @question: don't many invoices have the due date at the bottom? bestPos doesn't make sense?!
                        $bestPos = $row;
                        $bestMatch = \trim($found['bill_due']);
                    }

                    break;
                }
            }
        }

        return $bestMatch;
    }

    private function findBillDate(array $lines, array $matches) : string
    {
        $bestPos   = \count($lines);
        $bestMatch = '';

        $found = [];

        foreach ($matches as $match) {
            foreach ($lines as $row => $line) {
                if (\preg_match($match, $line, $found) === 1) {
                    if ($row < $bestPos) {
                        $bestPos = $row;
                        $bestMatch = \trim($found['bill_date']);
                    }

                    break;
                }
            }
        }

        return $bestMatch;
    }

    private function findBillGross(array $lines, array $matches) : int
    {
        $bestMatch = 0;

        $found = [];

        foreach ($matches as $match) {
            foreach ($lines as $line) {
                if (\preg_match($match, $line, $found) === 1) {
                    $temp = \trim($found['total_gross']);

                    $posD = \stripos($temp, '.');
                    $posK = \stripos($temp, ',');

                    $hasDecimal = ($posD !== false || $posK !== false)
                        && \max((int) $posD, (int) $posK) + 3 >= \strlen($temp);

                    $gross = ((int) \str_replace(['.', ','], ['', ''], $temp)) * ($hasDecimal
                        ? 100
                        : 10000);

                    if ($gross > $bestMatch) {
                        $bestMatch = $gross;
                    }
                }
            }
        }

        return $bestMatch;
    }

    private function matchSupplier(string $content, array $suppliers) : int
    {
        $bestMatch = 0;

        foreach ($suppliers as $supplier) {
            if ((!empty($supplier->getAttributeByTypeName('iban')->value->valueStr)
                    && \stripos($content, $supplier->getAttributeByTypeName('iban')->value->valueStr) !== false)
                || (!empty($supplier->getAttributeByTypeName('bill_match_pattern')->value->valueStr)
                    && \stripos($content, $supplier->getAttributeByTypeName('bill_match_pattern')->value->valueStr) !== false)
            ) {
                return $supplier->getId();
            }

            if (\stripos($content, $supplier->account->name1) !== false) {
                if ((!empty($supplier->mainAddress->city)
                        && \stripos($content, $supplier->mainAddress->city) !== false)
                    || (!empty( $supplier->mainAddress->address)
                        && \stripos($content, $supplier->mainAddress->address) !== false)
                ) {
                    return $supplier->getId();
                }

                $bestMatch = $supplier->getId();
            }
        }

        return $bestMatch;
    }

    private function parseDate(string $date, Supplier $supplier, array $formats) : ?\DateTime
    {
        if ((!empty($supplier->getAttributeByTypeName('bill_date_format')->value->valueStr))) {
            return \DateTime::createFromFormat(
                $supplier->getAttributeByTypeName('bill_date_format')->value->valueStr,
                $date
            );
        }

        foreach ($formats as $format) {
            if (($obj = \DateTime::createFromFormat($format, $date)) !== false) {
                return $obj;
            }
        }

        return null;
    }
}