<?php
declare(strict_types=1);

namespace app\services\order;

use app\dao\order\OrderCenterDao;
use app\dao\user\UserBillDao;
use app\dao\user\UserBrokerageDao;
use app\dao\user\UserDao;
use app\services\user\UserBillServices;
use app\services\user\UserBrokerageServices;
use crmeb\basic\BaseService;
use think\facade\Log;

/**
 * 普通订单退款权益冲正：按累计退款比例计算目标，扣除已冲正流水后只补差额。
 */
class OrderRefundRewardServices extends BaseService
{
    /** @var OrderCenterDao */
    protected OrderCenterDao $centerDao;
    /** @var UserDao */
    protected UserDao $userDao;
    /** @var UserBillDao */
    protected UserBillDao $billDao;
    /** @var UserBrokerageDao */
    protected UserBrokerageDao $brokerageDao;

    /**
     * 初始化账务依赖。
     * @return void
     */
    protected function initialize(): void
    {
        $this->centerDao = $this->app->make(OrderCenterDao::class);
        $this->userDao = $this->app->make(UserDao::class);
        $this->billDao = $this->app->make(UserBillDao::class);
        $this->brokerageDao = $this->app->make(UserBrokerageDao::class);
    }

    /**
     * 对齐普通订单积分与佣金；同订单退款及收货共用订单锁。
     * @param array $order 中台订单
     * @param string $refundTotal 累计到账退款额
     * @return void
     */
    public function reconcile(array $order, string $refundTotal): void
    {
        if (($order['product_type'] ?? '') !== 'normal'
            || !in_array((string)($order['activity_type'] ?? ''), ['', 'normal'], true)
            || bccomp((string)($order['pay_price'] ?? '0'), '0', 2) <= 0
            || bccomp($refundTotal, '0', 2) <= 0) {
            return;
        }
        $this->transaction(function () use ($order, $refundTotal): void {
            $locked = $this->centerDao->getByIdForUpdate((int)$order['id']);
            if (!$locked) {
                throw new \RuntimeException('退款权益关联订单不存在');
            }
            $order = $locked->toArray();
            $recorded = $order['refund_reward_accounted'] ?? [];
            $recorded = is_array($recorded) ? $recorded : (json_decode((string)$recorded, true) ?: []);
            $accounted = $recorded;
            $paid = (string)$order['pay_price'];
            $total = bccomp($refundTotal, $paid, 2) >= 0 ? $paid : $refundTotal;
            $uid = (int)$order['uid'];
            $user = $this->userDao->getByUidForUpdate($uid);
            if (!$user) {
                throw new \RuntimeException('退款权益关联用户不存在');
            }
            $earned = $returned = $earnedOrder = $earnedProduct = '0';
            foreach ($this->billDao->getOrderIntegralRewards((int)$order['id'], $uid) as $bill) {
                if ((int)$bill['pm'] === 1) {
                    $earned = bcadd($earned, (string)$bill['number'], 0);
                    // 下单赠送族 gain/order_give_integral，购买赠送族 product_gain/pay_give_integral
                    if (in_array($bill['type'], ['gain', 'order_give_integral'], true)) {
                        $earnedOrder = bcadd($earnedOrder, (string)$bill['number'], 0);
                    } else {
                        $earnedProduct = bcadd($earnedProduct, (string)$bill['number'], 0);
                    }
                } else {
                    $returned = bcadd($returned, (string)$bill['number'], 0);
                }
            }
            $integralTarget = $this->target($earned, $total, $paid, 0);
            $processed = max((int)$returned, (int)($accounted['integral'] ?? 0));
            $due = max(0, (int)bcsub($integralTarget, (string)$processed, 0));
            // 按两族赠送占比拆分本次冲正额，分族落库（order_gain_refund / product_gain_refund）
            $dueOrder = $earned > 0 ? (int)bcdiv(bcmul((string)$due, $earnedOrder, 2), $earned, 0) : 0;
            $dueProduct = max(0, $due - $dueOrder);
            $balance = max(0, (int)$user['integral']);
            $deductOrder = min($dueOrder, $balance);
            $balance -= $deductOrder;
            $deductProduct = min($dueProduct, $balance);
            $deduct = $deductOrder + $deductProduct;
            $userBillServices = $this->app->make(UserBillServices::class);
            if ($deductOrder > 0 && !$userBillServices->billIntegralIncome(
                'order_gain_refund', $uid, $deductOrder, (int)$order['id'], '订单退款回收下单赠送积分：' . $order['order_no']
            )) {
                throw new \RuntimeException('退款赠积分冲正失败');
            }
            if ($deductProduct > 0 && !$userBillServices->billIntegralIncome(
                'product_gain_refund', $uid, $deductProduct, (int)$order['id'], '订单退款回收购买商品赠送积分：' . $order['order_no']
            )) {
                throw new \RuntimeException('退款赠积分冲正失败');
            }
            if ($due > $deduct) {
                Log::warning('[RefundReward] 赠积分余额不足 order_no=' . $order['order_no'] . ' shortfall=' . ($due - $deduct));
            }
            // 短缺也记入已处理目标，保留旧政策：不在重试时追扣后续到账的用户积分。
            $accounted['integral'] = max($processed, (int)$integralTarget);

            $accounts = [];
            foreach ($this->brokerageDao->getOrderBrokerageRewards((int)$order['id']) as $bill) {
                $key = (int)$bill['uid'];
                $dimension = (int)$bill['pm'] === 1 ? 'earned' : 'returned';
                $accounts[$key][$dimension] = bcadd($accounts[$key][$dimension] ?? '0.00', (string)$bill['number'], 2);
            }
            ksort($accounts);
            foreach ($accounts as $recipient => $account) {
                $target = $this->target($account['earned'] ?? '0', $total, $paid, 2);
                $processed = (string)($accounted['brokerage'][$recipient] ?? '0');
                if (bccomp((string)($account['returned'] ?? '0'), $processed, 2) > 0) {
                    $processed = (string)$account['returned'];
                }
                $due = bcsub($target, $processed, 2);
                $accounted['brokerage'][$recipient] = bccomp($target, $processed, 2) > 0 ? $target : $processed;
                if (bccomp($due, '0', 2) <= 0) {
                    continue;
                }
                $recipientUser = $this->userDao->getByUidForUpdate($recipient);
                if (!$recipientUser) {
                    throw new \RuntimeException('退款佣金收款人不存在');
                }
                $profile = event('DistributionServiceProxy', [
                    'service' => 'DistributionUserServices',
                    'action' => 'profile',
                    'args' => [$recipient, ['brokerage_price' => $recipientUser['brokerage_price']]],
                ]);
                $balance = (string)($profile[0]['brokerage_price'] ?? $recipientUser['brokerage_price']);
                $deduct = bccomp($due, $balance, 2) > 0 ? $balance : $due;
                // 保留原规则：不扣成负余额，短缺留日志供人工核对。
                if (bccomp($deduct, '0', 2) > 0 && !$this->app->make(UserBrokerageServices::class)->brokerageIncome(
                    'brokerage_refund', $recipient, $deduct, (int)$order['id'], '订单退款退佣：' . $order['order_no']
                )) {
                    throw new \RuntimeException('退款佣金冲正失败');
                }
                if (bccomp($due, $deduct, 2) > 0) {
                    Log::warning('[RefundReward] 佣金余额不足 order_no=' . $order['order_no'] . ' uid=' . $recipient
                        . ' shortfall=' . bcsub($due, $deduct, 2));
                }
            }
            $this->billDao->releaseOrderRewardFreeze((int)$order['id'], $uid);
            $this->brokerageDao->releaseOrderRewardFreeze((int)$order['id']);
            if ($recorded !== $accounted) {
                if (!$this->centerDao->update((int)$order['id'], [
                    'refund_reward_accounted' => json_encode($accounted, JSON_UNESCAPED_UNICODE | JSON_THROW_ON_ERROR),
                ])) {
                    throw new \RuntimeException('退款权益处理目标保存失败');
                }
            }
        });
    }

    /**
     * 累计目标采用 BCMath 截断，全额时精确回收原奖励，避免分次退款尾差。
     * @param string $reward 原奖励
     * @param string $refunded 累计退款
     * @param string $paid 原实付
     * @param int $scale 积分为0，佣金为2
     * @return string
     */
    protected function target(string $reward, string $refunded, string $paid, int $scale): string
    {
        return bcdiv(bcmul($reward, $refunded, $scale + 2), $paid, $scale);
    }
}