<?php
/**
 * Copyright ETS Software Technology Co., Ltd
 *
 * NOTICE OF LICENSE
 *
 * This file is not open source! Each license that you purchased is only available for 1 website only.
 * If you want to use this file on more websites (or projects), you need to purchase additional licenses.
 * You are not allowed to redistribute, resell, lease, license, sub-license or offer our resources to any third party.
 *
 * DISCLAIMER
 *
 * Do not edit or add to this file if you wish to upgrade PrestaShop to newer
 * versions in the future.
 *
 * @author ETS Software Technology Co., Ltd
 * @copyright  ETS Software Technology Co., Ltd
 * @license    Valid for 1 website (or project) for each purchase of license
 */

if (!defined('_PS_VERSION_')) { exit; }

function migrate_orders()
{
    $array_errors = array();
    $res = true;
    if (!defined('PS_TAX_EXC')) {
        define('PS_TAX_EXC', 1);
    }

    if (!defined('PS_TAX_INC')) {
        define('PS_TAX_INC', 0);
    }
    $col_order_detail = [];
    $col_order_detail_old = Db::getInstance()->executeS('SHOW FIELDS FROM `' . _DB_PREFIX_ . 'order_detail`');
    if (is_array($col_order_detail_old) && count($col_order_detail_old) > 0) {
        foreach ($col_order_detail_old as $k => $field) {
            if ($field['Field'] != 'id_order_invoice') {
                $col_order_detail[$k] = $field['Field'];
            }
        }
    } else
        return array('error' => 1, 'msg' => 'unable to get fields list from order_detail table');

    $insert_order_detail = 'INSERT INTO `' . _DB_PREFIX_ . 'order_detail_2` (`' . implode('`, `', $col_order_detail) . '`) VALUES ';

    $col_orders = array();
    $col_orders_old = Db::getInstance()->executeS('SHOW FIELDS FROM `' . _DB_PREFIX_ . 'orders`');

    if (!$col_orders_old) {
        return array('error' => 1, 'msg' => 'unable to get fields list from orders table');
    }

    foreach ($col_orders_old as $k => $field) {
        $col_orders[$k] = $field['Field'];
    }

    $insert_order = 'INSERT INTO `' . _DB_PREFIX_ . 'orders_2` (`' . implode('`, `', $col_orders) . '`) VALUES ';

    // create temporary tables
    $res = mo_duplicateTables();
    if (!$res) {
        $array_errors[] = 'unable to duplicate tables orders and order_detail';
    }

    // this was done like that previously
    $wrapping_tax_rate = 1 + ((float)Db::getInstance()->getValue('SELECT value
		FROM `' . _DB_PREFIX_ . 'configuration`
		WHERE name = "PS_GIFT_WRAPPING_TAX"') / 100);

    $step = 3000;
    $count_orders = Db::getInstance()->getValue('SELECT count(id_order) FROM `' . _DB_PREFIX_ . 'orders`');
    $nb_loop = $start = 0;
    if ($count_orders > 0) {
        $nb_loop = ceil($count_orders / $step);
    }
    $values_order_detail = [];
    $values_order = [];
    for ($i = 0; $i < $nb_loop; $i++) {
        $order_res = Db::getInstance()->query('SELECT * FROM `' . _DB_PREFIX_ . 'orders` LIMIT ' . (int)$start . ', ' . (int)$step);
        $start = (int)(($i + 1) * $step);
        $cpt = 0;
        $flush_limit = 200;
        while ($order = Db::getInstance()->nextRow($order_res)) {
            $sum_total_products = 0;
            $sum_tax_amount = 0;
            $default_group_id = mo_getCustomerDefaultGroup((int)$order['id_customer']);
            $price_display_method = mo_getPriceDisplayMethod((int)$default_group_id);
            $order_details_list = Db::getInstance()->query('
			SELECT od.*
			FROM `' . _DB_PREFIX_ . 'order_detail` od
			WHERE od.`id_order` = ' . (int)$order['id_order']);

            while ($order_details = Db::getInstance()->nextRow($order_details_list)) {
                // we don't want to erase order_details data in order to create the insert query
                $products = mo_setProductPrices($order_details, $price_display_method);
                $tax_rate = 1 + ((float)$products['tax_rate'] / 100);
                $reduction_amount_tax_incl = (float)$products['reduction_amount'];

                // cart::getTaxesAverageUsed equivalent
                $sum_total_products += $products['total_price'];

                $sum_tax_amount += $products['total_wt'] - $products['total_price'];

                $order_details['reduction_amount_tax_incl'] = $reduction_amount_tax_incl;
                $order_details['reduction_amount_tax_excl'] = (float)mo_ps_round($reduction_amount_tax_incl / $tax_rate);
                $order_details['total_price_tax_incl'] = (float)$products['total_wt'];
                $order_details['total_price_tax_excl'] = (float)$products['total_price'];
                $order_details['unit_price_tax_incl'] = (float)$products['product_price_wt'];
                $order_details['unit_price_tax_excl'] = (float)$products['product_price'];

                foreach (array_keys($order_details) as $k) {
                    if (!in_array($k, $col_order_detail)) {
                        unset($order_details[$k]);
                    } else {
                        if (in_array($order_details[$k], array('product_price', 'reduction_percent', 'reduction_amount', 'group_reduction', 'product_quantity_discount', 'tax_rate', 'ecotax', 'ecotax_tax_rate'))) {
                            $order_details[$k] = (float)$order_details[$k];
                        } else {
                            $order_details[$k] = Db::getInstance()->escape($order_details[$k]);
                        }
                    }
                }
                if (count($order_details)) {
                    $values_order_detail[] = '(\'' . implode('\', \'', $order_details) . '\')';
                }
                unset($order_details);
            }

            $average_tax_used = 1;
            if ($sum_total_products > 0) {
                $average_tax_used += $sum_tax_amount / $sum_total_products;
            }
            $average_tax_used = round($average_tax_used, 4);
            $carrier_tax_rate = 1;
            if (isset($order['carrier_tax_rate'])) {
                $carrier_tax_rate + ((float)$order['carrier_tax_rate'] / 100);
            }

            $total_discount_tax_excl = $order['total_discounts'] / $average_tax_used;
            $order['total_discounts_tax_incl'] = (float)$order['total_discounts'];
            $order['total_discounts_tax_excl'] = (float)$total_discount_tax_excl;

            $order['total_shipping_tax_incl'] = (float)$order['total_shipping'];
            $order['total_shipping_tax_excl'] = (float)($order['total_shipping'] / $carrier_tax_rate);
            $shipping_taxes = $order['total_shipping_tax_incl'] - $order['total_shipping_tax_excl'];

            $order['total_wrapping_tax_incl'] = (float)$order['total_wrapping'];
            $order['total_wrapping_tax_excl'] = ((float)$order['total_wrapping'] / $wrapping_tax_rate);
            $wrapping_taxes = $order['total_wrapping_tax_incl'] - $order['total_wrapping_tax_excl'];

            $product_taxes = $order['total_products_wt'] - $order['total_products'];
            $order['total_paid_tax_incl'] = (float)$order['total_paid'];
            $order['total_paid_tax_excl'] = (float)$order['total_paid'] - $shipping_taxes - $wrapping_taxes - $product_taxes;
            // protect text and varchar fields
            $order['gift_message'] = Db::getInstance()->escape($order['gift_message']);
            $order['payment'] = Db::getInstance()->escape($order['payment']);
            $order['module'] = Db::getInstance()->escape($order['module']);

            $values_order[] = '(\'' . implode('\', \'', $order) . '\')';

            unset($order);
            $cpt++;

            // limit to $cpt
            if ($cpt >= $flush_limit) {
                $cpt = 0;
                if (isset($values_order_detail) && count($values_order_detail) && !Db::getInstance()->execute($insert_order_detail . implode(',', $values_order_detail))) {
                    $res = false;
                    $array_errors[] = '[insert order detail 1] - ' . Db::getInstance()->getMsgError();
                }
                if (isset($values_order) && count($values_order) && !Db::getInstance()->execute($insert_order . implode(',', $values_order))) {
                    $res = false;
                    $array_errors[] = '[insert order 2] - ' . Db::getInstance()->getMsgError();
                }
                if (isset($values_order)) {
                    unset($values_order);
                }
                if (isset($values_order_detail)) {
                    unset($values_order_detail);
                }
            }
        }
    }

    if (isset($values_order_detail) && count($values_order_detail) && !Db::getInstance()->execute($insert_order_detail . implode(',', $values_order_detail))) {
        $res = false;
        $array_errors[] = '[insert order detail 3] - ' . Db::getInstance()->getMsgError();
    }
    if (isset($values_order) && count($values_order) && !Db::getInstance()->execute($insert_order . implode(',', $values_order))) {
        $res = false;
        $array_errors[] = '[insert order 4] - ' . Db::getInstance()->getMsgError();
    }
    if (isset($values_order)) {
        unset($values_order);
    }
    if (isset($values_order_detail)) {
        unset($values_order_detail);
    }
    if (!mo_renameTables()) {
        $res = false;
        $array_errors[] = 'unable to rename tables orders_2 and order_detail_2 to orders and order_detail';
    }

    if (!$res) {
        return array('error' => 1, 'msg' => count($array_errors) . ' error(s) : <br/>' . implode('<br/>', $array_errors));
    }
}

/**
 * mo_ps_round is a simplification of Tools::ps_round:
 * - round is always 2
 * - no call to Configuration class
 *
 * @param mixed $val
 * @return void
 */
function mo_ps_round($val)
{
    static $ps_price_round_mode;
    if (empty($ps_price_round_mode)) {
        $ps_price_round_mode = Db::getInstance()->getValue('SELECT value
			FROM `' . _DB_PREFIX_ . 'configuration`
			WHERE name = "PS_PRICE_ROUND_MODE"');
    }

    switch ($ps_price_round_mode) {
        case 0:
            return ceil($val * 100) / 100;
        case 1:
            return floor($val * 100) / 100;
        default:
            return round($val, 2);
    }
}

function mo_duplicateTables()
{
    $res = true;
    $res &= Db::getInstance()->execute('CREATE TABLE IF NOT EXISTS
		`' . _DB_PREFIX_ . 'orders_2` LIKE `' . _DB_PREFIX_ . 'orders`');
    $res &= Db::getInstance()->execute('CREATE TABLE IF NOT EXISTS
		`' . _DB_PREFIX_ . 'order_detail_2` LIKE `' . _DB_PREFIX_ . 'order_detail`');

    return $res;
}

function mo_renameTables()
{
    $res = true;
    $res &= Db::getInstance()->execute('DROP TABLE `' . _DB_PREFIX_ . 'orders`');
    $res &= Db::getInstance()->execute('DROP TABLE `' . _DB_PREFIX_ . 'order_detail`');

    $res &= Db::getInstance()->execute('RENAME TABLE `' . _DB_PREFIX_ . 'orders_2` TO `' . _DB_PREFIX_ . 'orders`');
    $res &= Db::getInstance()->execute('RENAME TABLE `' . _DB_PREFIX_ . 'order_detail_2` TO `' . _DB_PREFIX_ . 'order_detail`');

    return $res;
}

function mo_getCustomerDefaultGroup($id_customer)
{
    static $cache;
    if (!isset($cache[$id_customer])) {
        $cache[$id_customer] = Db::getInstance()->getValue('SELECT `id_default_group` FROM `' . _DB_PREFIX_ . 'customer` WHERE `id_customer` = ' . (int)$id_customer);
    }

    return $cache[$id_customer];
}

function mo_getPriceDisplayMethod($id_group)
{
    static $cache;

    if (!isset($cache[$id_group])) {
        $cache[$id_group] = Db::getInstance()->getValue('
			SELECT `price_display_method`
			FROM `' . _DB_PREFIX_ . 'group`
			WHERE `id_group` = ' . (int)$id_group);
    }

    return $cache[$id_group];
}

function mo_setProductPrices($row, $tax_calculation_method)
{
    if ($tax_calculation_method == PS_TAX_EXC) {
        $row['product_price'] = mo_ps_round($row['product_price']);
    } else {
        $row['product_price_wt'] = mo_ps_round($row['product_price'] * (1 + $row['tax_rate'] / 100));
    }

    $group_reduction = 1;
    if ($row['group_reduction'] > 0) {
        $group_reduction = 1 - $row['group_reduction'] / 100;
    }

    if ($row['reduction_percent'] != 0) {
        if ($tax_calculation_method == PS_TAX_EXC) {
            $row['product_price'] = ($row['product_price'] - $row['product_price'] * ($row['reduction_percent'] * 0.01));
        } else {
            $reduction = mo_ps_round($row['product_price_wt'] * ($row['reduction_percent'] * 0.01));
            $row['product_price_wt'] = mo_ps_round(($row['product_price_wt'] - $reduction));
        }
    }

    if ($row['reduction_amount'] != 0) {
        if ($tax_calculation_method == PS_TAX_EXC) {
            $row['product_price'] = ($row['product_price'] - ($row['reduction_amount'] / (1 + $row['tax_rate'] / 100)));
        } else {
            $row['product_price_wt'] = mo_ps_round(($row['product_price_wt'] - $row['reduction_amount']));
        }
    }

    if ($row['group_reduction'] > 0) {
        if ($tax_calculation_method == PS_TAX_EXC) {
            $row['product_price'] = $row['product_price'] * $group_reduction;
        } else {
            $row['product_price_wt'] = mo_ps_round($row['product_price_wt'] * $group_reduction);
        }
    }

    if (($row['reduction_percent'] || $row['reduction_amount'] || $row['group_reduction']) && $tax_calculation_method == PS_TAX_EXC) {
        $row['product_price'] = mo_ps_round($row['product_price']);
    }

    if ($tax_calculation_method == PS_TAX_EXC) {
        $row['product_price_wt'] = mo_ps_round($row['product_price'] * (1 + ($row['tax_rate'] * 0.01))) + mo_ps_round($row['ecotax'] * (1 + $row['ecotax_tax_rate'] / 100));
    } else {
        $row['product_price_wt_but_ecotax'] = $row['product_price_wt'];
        $row['product_price_wt'] = mo_ps_round($row['product_price_wt'] + $row['ecotax'] * (1 + $row['ecotax_tax_rate'] / 100));
    }

    if ($tax_calculation_method != PS_TAX_EXC) {
        $row['product_price'] = $row['product_price_wt'] / (1 + $row['tax_rate'] / 100);
    }

    $row['total_wt'] = $row['product_quantity'] * $row['product_price_wt'];
    $row['total_price'] = $row['product_quantity'] * $row['product_price'];

    return $row;
}
