<?php
/**
 * Copyright © Magento, Inc. All rights reserved.
 * See COPYING.txt for license details.
 */
declare(strict_types=1);

namespace Magento\Sales\Model\Order\Creditmemo\Validation;

use Magento\Framework\Pricing\PriceCurrencyInterface;
use Magento\Sales\Api\Data\CreditmemoInterface;
use Magento\Sales\Api\Data\OrderInterface;
use Magento\Sales\Api\Data\OrderItemInterface;
use Magento\Sales\Api\InvoiceRepositoryInterface;
use Magento\Sales\Api\OrderRepositoryInterface;
use Magento\Sales\Model\Order\Creditmemo;
use Magento\Sales\Model\Order\Item;
use Magento\Sales\Model\ValidatorInterface;
use Magento\Sales\Api\Data\CreditmemoItemInterface;
use Magento\Framework\Phrase;

/**
 * Creditmemo QuantityValidator
 */
class QuantityValidator implements ValidatorInterface
{
    /**
     * @var OrderRepositoryInterface
     */
    private $orderRepository;

    /**
     * @var InvoiceRepositoryInterface
     */
    private $invoiceRepository;

    /**
     * @var PriceCurrencyInterface
     */
    private $priceCurrency;

    /**
     * InvoiceValidator constructor.
     *
     * @param OrderRepositoryInterface $orderRepository
     * @param InvoiceRepositoryInterface $invoiceRepository
     * @param PriceCurrencyInterface $priceCurrency
     */
    public function __construct(
        OrderRepositoryInterface $orderRepository,
        InvoiceRepositoryInterface $invoiceRepository,
        PriceCurrencyInterface $priceCurrency
    ) {
        $this->orderRepository = $orderRepository;
        $this->invoiceRepository = $invoiceRepository;
        $this->priceCurrency = $priceCurrency;
    }

    /**
     * @inheritdoc
     */
    public function validate($entity)
    {
        /**
         * @var $entity CreditmemoInterface
         */
        if ($entity->getOrderId() === null) {
            return [__('Order Id is required for creditmemo document')];
        }

        $messages = [];

        $order = $this->orderRepository->get($entity->getOrderId());
        $orderItemsById = $this->getOrderItems($order);
        $invoiceQtysRefundLimits = $this->getInvoiceQtysRefundLimits($entity, $order);

        $totalQuantity = 0;
        foreach ($entity->getItems() as $item) {
            $message = $this->validateTotalQuantityRefundable(
                $orderItemsById,
                $item,
                $invoiceQtysRefundLimits
            );
            if ($message) {
                $messages[] = $message;
            } else {
                $totalQuantity += $item->getQty();
            }
        }

        if (!$entity->isValidGrandTotal()) {
            $messages[] = __('The credit memo\'s total must be positive.');
        } elseif ($totalQuantity < 0 && !$this->canRefundShipping($order)) {
            $messages[] = __('You can\'t create a creditmemo without products.');
        }

        return $messages;
    }

    /**
     * To check the refund qty is decimal if getIsQtyDecimal is unset.
     *
     * @param mixed $isQtyDecimal
     * @param float $itemQty
     * @return bool
     */
    private function isValidDecimalRefundQty($isQtyDecimal, float $itemQty): bool
    {
        if (!$isQtyDecimal && (floor($itemQty) !== $itemQty)) {
            return false;
        }
        return true;
    }

    /**
     * Calculate total quantity.
     *
     * @param array $orderItemsById
     * @param CreditmemoItemInterface $item
     * @param array $invoiceQtysRefundLimits
     * @return Phrase|void
     */
    private function validateTotalQuantityRefundable(
        array $orderItemsById,
        CreditmemoItemInterface $item,
        array $invoiceQtysRefundLimits
    ) {
        if (!isset($orderItemsById[$item->getOrderItemId()])) {
            return __(
                'The creditmemo contains product SKU "%1" that is not part of the original order.',
                $item->getSku()
            );
        }
        $orderItem = $orderItemsById[$item->getOrderItemId()];

        if (!$this->isValidDecimalRefundQty($orderItem->getIsQtyDecimal(), $item->getQty())) {
            return __(
                'We found an invalid quantity to refund item "%1".',
                $orderItem->getSku()
            );
        }

        if (!$this->canRefundItem($orderItem, $item->getQty(), $invoiceQtysRefundLimits) ||
            !$this->isQtyAvailable($orderItem, $item->getQty())
        ) {
            return __(
                'The quantity to creditmemo must not be greater than the unrefunded quantity'
                . ' for product SKU "%1".',
                $orderItem->getSku()
            );
        }
    }

    /**
     * We can have problem with float in php (on some server $a=762.73;$b=762.73; $a-$b!=0)
     * for this we have additional diapason for 0
     * TotalPaid - contains amount, that were not rounded.
     *
     * @param OrderInterface $order
     * @return bool
     */
    private function canRefundShipping(OrderInterface $order)
    {
        return !abs($this->priceCurrency->round($order->getShippingAmount()) - $order->getShippingRefunded()) < .0001;
    }

    /**
     * Invoice qty refund limits
     *
     * @param CreditmemoInterface $creditmemo
     * @param OrderInterface $order
     * @return array
     */
    private function getInvoiceQtysRefundLimits(CreditmemoInterface $creditmemo, OrderInterface $order)
    {
        $invoiceQtysRefundLimits = [];
        if ($creditmemo->getInvoiceId() !== null) {
            $invoiceQtysRefunded = [];
            $invoice = $this->invoiceRepository->get($creditmemo->getInvoiceId());
            foreach ($order->getCreditmemosCollection() as $createdCreditmemo) {
                if ($createdCreditmemo->getState() != Creditmemo::STATE_CANCELED &&
                    $createdCreditmemo->getInvoiceId() == $invoice->getId()
                ) {
                    foreach ($createdCreditmemo->getAllItems() as $createdCreditmemoItem) {
                        $orderItemId = $createdCreditmemoItem->getOrderItem()->getId();
                        if (isset($invoiceQtysRefunded[$orderItemId])) {
                            $invoiceQtysRefunded[$orderItemId] += $createdCreditmemoItem->getQty();
                        } else {
                            $invoiceQtysRefunded[$orderItemId] = $createdCreditmemoItem->getQty();
                        }
                    }
                }
            }

            foreach ($invoice->getItems() as $invoiceItem) {
                $invoiceQtyCanBeRefunded = $invoiceItem->getQty();
                $orderItemId = $invoiceItem->getOrderItem()->getId();
                if (isset($invoiceQtysRefunded[$orderItemId])) {
                    $invoiceQtyCanBeRefunded = $invoiceQtyCanBeRefunded - $invoiceQtysRefunded[$orderItemId];
                }
                $invoiceQtysRefundLimits[$orderItemId] = $invoiceQtyCanBeRefunded;
            }
        }

        return $invoiceQtysRefundLimits;
    }

    /**
     * Get order items
     *
     * @param OrderInterface $order
     * @return OrderItemInterface[]
     */
    private function getOrderItems(OrderInterface $order)
    {
        $orderItemsById = [];
        foreach ($order->getItems() as $item) {
            $orderItemsById[$item->getItemId()] = $item;
        }

        return $orderItemsById;
    }

    /**
     * Check is qty available
     *
     * @param Item $orderItem
     * @param int $qty
     * @return bool
     */
    private function isQtyAvailable(Item $orderItem, $qty)
    {
        return $qty <= $orderItem->getQtyToRefund() || $orderItem->isDummy();
    }

    /**
     * Check if order item can be refunded
     *
     * @param Item $item
     * @param double $qty
     * @param array $invoiceQtysRefundLimits
     * @return bool
     */
    private function canRefundItem(Item $item, $qty, array $invoiceQtysRefundLimits)
    {
        if ($item->isDummy()) {
            return $this->canRefundDummyItem($item, $qty, $invoiceQtysRefundLimits);
        }

        return $this->canRefundNoDummyItem($item, $invoiceQtysRefundLimits);
    }

    /**
     * Check if no dummy order item can be refunded
     *
     * @param Item $item
     * @param array $invoiceQtysRefundLimits
     * @return bool
     */
    private function canRefundNoDummyItem(Item $item, array $invoiceQtysRefundLimits = [])
    {
        if ($item->getQtyToRefund() < 0) {
            return false;
        }
        if (isset($invoiceQtysRefundLimits[$item->getId()])) {
            return $invoiceQtysRefundLimits[$item->getId()] > 0;
        }
        return true;
    }

    /**
     * Check can refund dummy item
     *
     * @param Item $item
     * @param int $qty
     * @param array $invoiceQtysRefundLimits
     * @return bool
     */
    private function canRefundDummyItem(Item $item, $qty, array $invoiceQtysRefundLimits)
    {
        if ($item->getHasChildren()) {
            foreach ($item->getChildrenItems() as $child) {
                if ($this->canRefundRequestedQty($child, $qty, $invoiceQtysRefundLimits)) {
                    return true;
                }
            }
        } elseif ($item->getParentItem()) {
            return $this->canRefundRequestedQty($item->getParentItem(), $qty, $invoiceQtysRefundLimits);
        }

        return false;
    }

    /**
     * Check can refund request qty
     *
     * @param Item $item
     * @param int $qty
     * @param array $invoiceQtysRefundLimits
     * @return bool
     */
    private function canRefundRequestedQty(Item $item, $qty, array $invoiceQtysRefundLimits)
    {
        return $qty === null ? $this->canRefundNoDummyItem($item, $invoiceQtysRefundLimits) : $qty > 0;
    }
}