calcul_price_total()

Complexity

Conditions	70
Paths	> 20000

Size

Total Lines	359
Code Lines	245

Duplication

Lines	0
Ratio	0 %

Importance

Changes

0

<?php
function calcul_price_total($qty, $pu, $remise_percent_ligne, $txtva, $uselocaltax1_rate, $uselocaltax2_rate, $remise_percent_global, $price_base_type, $info_bits, $type, $seller = '', $localtaxes_array = [], $progress = 100, $multicurrency_tx = 1, $pu_devise = 0, $multicurrency_code = '')
{
    global $conf, $mysoc, $db;

    $result = array();

    // Clean parameters
    if (empty($info_bits)) {
        $info_bits = 0;
    }
    if (empty($txtva)) {
        $txtva = 0;
    }
    if (empty($seller) || !is_object($seller)) {
        dol_syslog("Price.lib::calcul_price_total Warning: function is called with parameter seller that is missing", LOG_WARNING);
        if (!is_object($mysoc)) {   // mysoc may be not defined (during migration process)
            $mysoc = new Societe($db);
            $mysoc->setMysoc($conf);
        }
        $seller = $mysoc; // If sell is done to a customer, $seller is not provided, we use $mysoc
        //var_dump($seller->country_id);exit;
    }
    if (empty($localtaxes_array) || !is_array($localtaxes_array)) {
        dol_syslog("Price.lib::calcul_price_total Warning: function is called with parameter localtaxes_array that is missing or empty", LOG_WARNING);
    }
    if (!is_numeric($txtva)) {
        dol_syslog("Price.lib::calcul_price_total Warning: function was called with a parameter vat rate that is not a real numeric value. There is surely a bug.", LOG_ERR);
    } elseif ($txtva >= 1000) {
        dol_syslog("Price.lib::calcul_price_total Warning: function was called with a bad value for vat rate (should be often < 100, always < 1000). There is surely a bug.", LOG_ERR);
    }
    // Too verbose. Enable for debug only
    // dol_syslog("Price.lib::calcul_price_total qty=".$qty." pu=".$pu." remiserpercent_ligne=".$remise_percent_ligne." txtva=".$txtva." uselocaltax1_rate=".$uselocaltax1_rate." uselocaltax2_rate=".$uselocaltax2_rate.' remise_percent_global='.$remise_percent_global.' price_base_type='.$ice_base_type.' type='.$type.' progress='.$progress);

    $countryid = $seller->country_id;

    if (is_numeric($uselocaltax1_rate)) {
        $uselocaltax1_rate = (float)$uselocaltax1_rate;
    }
    if (is_numeric($uselocaltax2_rate)) {
        $uselocaltax2_rate = (float)$uselocaltax2_rate;
    }

    if ($uselocaltax1_rate < 0) {
        $uselocaltax1_rate = $seller->localtax1_assuj;
    }
    if ($uselocaltax2_rate < 0) {
        $uselocaltax2_rate = $seller->localtax2_assuj;
    }

    //var_dump($uselocaltax1_rate.' - '.$uselocaltax2_rate);
    dol_syslog('Price.lib::calcul_price_total qty=' . $qty . ' pu=' . $pu . ' remise_percent_ligne=' . $remise_percent_ligne . ' txtva=' . $txtva . ' uselocaltax1_rate=' . $uselocaltax1_rate . ' uselocaltax2_rate=' . $uselocaltax2_rate . ' remise_percent_global=' . $remise_percent_global . ' price_base_type=' . $price_base_type . ' type=' . $type . ' progress=' . $progress);

    // Now we search localtaxes information ourself (rates and types).
    $localtax1_type = 0;
    $localtax2_type = 0;

    if (is_array($localtaxes_array) && count($localtaxes_array)) {
        $localtax1_type = $localtaxes_array[0];
        $localtax1_rate = $localtaxes_array[1];
        $localtax2_type = $localtaxes_array[2];
        $localtax2_rate = $localtaxes_array[3];
    } else {
        // deprecated method. values and type for localtaxes must be provided by caller and loaded with getLocalTaxesFromRate using the full vat rate (including text code)
        // also, with this method, we may get several possible values (for example with localtax2 in spain), so we take the first one.
        dol_syslog("Price.lib::calcul_price_total search vat information using old deprecated method", LOG_WARNING);

        $sql = "SELECT taux, localtax1, localtax2, localtax1_type, localtax2_type";
        $sql .= " FROM " . MAIN_DB_PREFIX . "c_tva as cv";
        $sql .= " WHERE cv.taux = " . ((float)$txtva);
        $sql .= " AND cv.fk_pays = " . ((int)$countryid);
        $sql .= " AND cv.entity IN (" . getEntity('c_tva') . ")";
        $resql = $db->query($sql);
        if ($resql) {
            $obj = $db->fetch_object($resql);
            if ($obj) {
                $localtax1_rate = (float)$obj->localtax1; // Use float to force to get first numeric value when value is x:y:z
                $localtax2_rate = (float)$obj->localtax2; // Use float to force to get first numeric value when value is -19:-15:-9
                $localtax1_type = $obj->localtax1_type;
                $localtax2_type = $obj->localtax2_type;
                //var_dump($localtax1_rate.' '.$localtax2_rate.' '.$localtax1_type.' '.$localtax2_type);
            }
        } else {
            dol_print_error($db);
        }
    }

    // pu calculation from pu_devise if pu empty
    if (empty($pu) && !empty($pu_devise)) {
        if (!empty($multicurrency_tx)) {
            $pu = $pu_devise / $multicurrency_tx;
        } else {
            dol_syslog('Price.lib::calcul_price_total function called with bad parameters combination (multicurrency_tx empty when pu_devise not) ', LOG_ERR);
            return array();
        }
    }
    if ($pu === '') {
        $pu = 0;
    }
    // pu_devise calculation from pu
    if (empty($pu_devise) && !empty($multicurrency_tx)) {
        if (is_numeric($pu) && is_numeric($multicurrency_tx)) {
            $pu_devise = $pu * $multicurrency_tx;
        } else {
            dol_syslog('Price.lib::calcul_price_total function called with bad parameters combination (pu or multicurrency_tx are not numeric)', LOG_ERR);
            return array();
        }
    }

    // initialize total (may be HT or TTC depending on price_base_type)
    $tot_sans_remise = $pu * $qty * $progress / 100;
    $tot_avec_remise_ligne = $tot_sans_remise * (1 - ((float)$remise_percent_ligne / 100));
    $tot_avec_remise = $tot_avec_remise_ligne * (1 - ((float)$remise_percent_global / 100));

    // initialize result array
    for ($i = 0; $i <= 15; $i++) {
        $result[$i] = 0;
    }

    // if there's some localtax including vat, we calculate localtaxes (we will add later)

    // if input unit price is 'HT', we need to have the totals with main VAT for a correct calculation
    if ($price_base_type != 'TTC') {
        $tot_sans_remise_wt = price2num($tot_sans_remise * (1 + ($txtva / 100)), 'MU');
        $tot_avec_remise_wt = price2num($tot_avec_remise * (1 + ($txtva / 100)), 'MU');
        $pu_wt = price2num($pu * (1 + ($txtva / 100)), 'MU');
    } else {
        $tot_sans_remise_wt = $tot_sans_remise;
        $tot_avec_remise_wt = $tot_avec_remise;
        $pu_wt = $pu;
    }

    //print 'rr'.$price_base_type.'-'.$txtva.'-'.$tot_sans_remise_wt."-".$pu_wt."-".$uselocaltax1_rate."-".$localtax1_rate."-".$localtax1_type."\n";

    $localtaxes = array(0, 0, 0);
    $apply_tax = false;
    switch ($localtax1_type) {
        case '2':     // localtax on product or service
            $apply_tax = true;
            break;
        case '4':     // localtax on product
            if ($type == 0) {
                $apply_tax = true;
            }
            break;
        case '6':     // localtax on service
            if ($type == 1) {
                $apply_tax = true;
            }
            break;
    }

    if ($uselocaltax1_rate && $apply_tax) {
        $result[14] = price2num(($tot_sans_remise_wt * (1 + ($localtax1_rate / 100))) - $tot_sans_remise_wt, 'MT');
        $localtaxes[0] += $result[14];

        $result[9] = price2num(($tot_avec_remise_wt * (1 + ($localtax1_rate / 100))) - $tot_avec_remise_wt, 'MT');
        $localtaxes[1] += $result[9];

        $result[11] = price2num(($pu_wt * (1 + ($localtax1_rate / 100))) - $pu_wt, 'MU');
        $localtaxes[2] += $result[11];
    }

    $apply_tax = false;
    switch ($localtax2_type) {
        case '2':     // localtax on product or service
            $apply_tax = true;
            break;
        case '4':     // localtax on product
            if ($type == 0) {
                $apply_tax = true;
            }
            break;
        case '6':     // localtax on service
            if ($type == 1) {
                $apply_tax = true;
            }
            break;
    }
    if ($uselocaltax2_rate && $apply_tax) {
        $result[15] = price2num(($tot_sans_remise_wt * (1 + ($localtax2_rate / 100))) - $tot_sans_remise_wt, 'MT');
        $localtaxes[0] += $result[15];

        $result[10] = price2num(($tot_avec_remise_wt * (1 + ($localtax2_rate / 100))) - $tot_avec_remise_wt, 'MT');
        $localtaxes[1] += $result[10];

        $result[12] = price2num(($pu_wt * (1 + ($localtax2_rate / 100))) - $pu_wt, 'MU');
        $localtaxes[2] += $result[12];
    }

    //dol_syslog("price.lib::calcul_price_total $qty, $pu, $remise_percent_ligne, $txtva, $price_base_type $info_bits");
    if ($price_base_type == 'HT') {
        // We work to define prices using the price without tax
        $result[6] = price2num($tot_sans_remise, 'MT');
        $result[8] = price2num($tot_sans_remise * (1 + ((($info_bits & 1) ? 0 : $txtva) / 100)) + $localtaxes[0], 'MT'); // Selon TVA NPR ou non
        $result8bis = price2num($tot_sans_remise * (1 + ($txtva / 100)) + $localtaxes[0], 'MT'); // Si TVA consideree normal (non NPR)
        $result[7] = price2num((float)$result8bis - ((float)$result[6] + $localtaxes[0]), 'MT');

        $result[0] = price2num($tot_avec_remise, 'MT');
        $result[2] = price2num($tot_avec_remise * (1 + ((($info_bits & 1) ? 0 : $txtva) / 100)) + $localtaxes[1], 'MT'); // Selon TVA NPR ou non
        $result2bis = price2num($tot_avec_remise * (1 + ($txtva / 100)) + $localtaxes[1], 'MT'); // Si TVA consideree normal (non NPR)
        $result[1] = price2num((float)$result2bis - ((float)$result[0] + $localtaxes[1]), 'MT'); // Total VAT = TTC - (HT + localtax)

        $result[3] = price2num($pu, 'MU');
        $result[5] = price2num($pu * (1 + ((($info_bits & 1) ? 0 : $txtva) / 100)) + $localtaxes[2], 'MU'); // Selon TVA NPR ou non
        $result5bis = price2num($pu * (1 + ($txtva / 100)) + $localtaxes[2], 'MU'); // Si TVA consideree normal (non NPR)
        $result[4] = price2num((float)$result5bis - ((float)$result[3] + $localtaxes[2]), 'MU');
    } else {
        // We work to define prices using the price with tax
        $result[8] = price2num($tot_sans_remise + $localtaxes[0], 'MT');
        $result[6] = price2num($tot_sans_remise / (1 + ((($info_bits & 1) ? 0 : $txtva) / 100)), 'MT'); // Selon TVA NPR ou non
        $result6bis = price2num($tot_sans_remise / (1 + ($txtva / 100)), 'MT'); // Si TVA consideree normal (non NPR)
        $result[7] = price2num((float)$result[8] - ((float)$result6bis + $localtaxes[0]), 'MT');

        $result[2] = price2num((float)$tot_avec_remise + (float)$localtaxes[1], 'MT');
        $result[0] = price2num((float)$tot_avec_remise / (1 + ((($info_bits & 1) ? 0 : (float)$txtva) / 100)), 'MT'); // Selon TVA NPR ou non
        $result0bis = price2num((float)$tot_avec_remise / (1 + ((float)$txtva / 100)), 'MT'); // Si TVA consideree normal (non NPR)
        $result[1] = price2num((float)$result[2] - ((float)$result0bis + (float)$localtaxes[1]), 'MT'); // Total VAT = TTC - (HT + localtax)

        $result[5] = price2num($pu + $localtaxes[2], 'MU');
        $result[3] = price2num($pu / (1 + ((($info_bits & 1) ? 0 : $txtva) / 100)), 'MU'); // Selon TVA NPR ou non
        $result3bis = price2num($pu / (1 + ($txtva / 100)), 'MU'); // Si TVA consideree normal (non NPR)
        $result[4] = price2num((float)$result[5] - ((float)$result3bis + (float)$localtaxes[2]), 'MU');
    }

    // if there's some localtax without vat, we calculate localtaxes (we will add them at end)

    //If input unit price is 'TTC', we need to have the totals without main VAT for a correct calculation
    if ($price_base_type == 'TTC') {
        $tot_sans_remise = price2num($tot_sans_remise / (1 + ($txtva / 100)), 'MU');
        $tot_avec_remise = price2num($tot_avec_remise / (1 + ($txtva / 100)), 'MU');
        $pu = price2num($pu / (1 + ($txtva / 100)), 'MU');
    }

    $apply_tax = false;
    switch ($localtax1_type) {
        case '1':     // localtax on product or service
            $apply_tax = true;
            break;
        case '3':     // localtax on product
            if ($type == 0) {
                $apply_tax = true;
            }
            break;
        case '5':     // localtax on service
            if ($type == 1) {
                $apply_tax = true;
            }
            break;
    }
    if ($uselocaltax1_rate && $apply_tax) {
        $result[14] = price2num(($tot_sans_remise * (1 + ($localtax1_rate / 100))) - $tot_sans_remise, 'MT'); // amount tax1 for total_ht_without_discount
        $result[8] += $result[14]; // total_ttc_without_discount + tax1

        $result[9] = price2num(($tot_avec_remise * (1 + ($localtax1_rate / 100))) - $tot_avec_remise, 'MT'); // amount tax1 for total_ht
        $result[2] += $result[9]; // total_ttc + tax1

        $result[11] = price2num(($pu * (1 + ($localtax1_rate / 100))) - $pu, 'MU'); // amount tax1 for pu_ht
        $result[5] += $result[11]; // pu_ht + tax1
    }

    $apply_tax = false;
    switch ($localtax2_type) {
        case '1':     // localtax on product or service
            $apply_tax = true;
            break;
        case '3':     // localtax on product
            if ($type == 0) {
                $apply_tax = true;
            }
            break;
        case '5':     // localtax on service
            if ($type == 1) {
                $apply_tax = true;
            }
            break;
    }
    if ($uselocaltax2_rate && $apply_tax) {
        $result[15] = price2num(($tot_sans_remise * (1 + ($localtax2_rate / 100))) - $tot_sans_remise, 'MT'); // amount tax2 for total_ht_without_discount
        $result[8] += $result[15]; // total_ttc_without_discount + tax2

        $result[10] = price2num(($tot_avec_remise * (1 + ($localtax2_rate / 100))) - $tot_avec_remise, 'MT'); // amount tax2 for total_ht
        $result[2] += $result[10]; // total_ttc + tax2

        $result[12] = price2num(($pu * (1 + ($localtax2_rate / 100))) - $pu, 'MU'); // amount tax2 for pu_ht
        $result[5] += $result[12]; // pu_ht + tax2
    }

    // If rounding is not using base 10 (rare)
    if (getDolGlobalString('MAIN_ROUNDING_RULE_TOT')) {
        if ($price_base_type == 'HT') {
            $result[0] = price2num(round((float)$result[0] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[1] = price2num(round((float)$result[1] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[9] = price2num(round((float)$result[9] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[10] = price2num(round((float)$result[10] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[2] = price2num((float)$result[0] + (float)$result[1] + (float)$result[9] + (float)$result[10], 'MT');
        } else {
            $result[1] = price2num(round((float)$result[1] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[2] = price2num(round((float)$result[2] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[9] = price2num(round((float)$result[9] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[10] = price2num(round((float)$result[10] / (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 0) * (float)$conf->global->MAIN_ROUNDING_RULE_TOT, 'MT');
            $result[0] = price2num((float)$result[2] - (float)$result[1] - (float)$result[9] - (float)$result[10], 'MT');
        }
    }

    // Multicurrency
    if ($multicurrency_tx != 1) {
        if ($multicurrency_code) {
            $savMAIN_MAX_DECIMALS_UNIT = getDolGlobalString('MAIN_MAX_DECIMALS_UNIT');
            $savMAIN_MAX_DECIMALS_TOT = getDolGlobalString('MAIN_MAX_DECIMALS_TOT');
            $savMAIN_ROUNDING_RULE_TOT = getDolGlobalString('MAIN_ROUNDING_RULE_TOT');

            // Set parameter for currency accurency according to the value of $multicurrency_code (this is because a foreign currency may have different rounding rules)
            $keyforforeignMAIN_MAX_DECIMALS_UNIT = 'MAIN_MAX_DECIMALS_UNIT_' . $multicurrency_code;
            $keyforforeignMAIN_MAX_DECIMALS_TOT = 'MAIN_MAX_DECIMALS_TOT_' . $multicurrency_code;
            $keyforforeignMAIN_ROUNDING_RULE_TOT = 'MAIN_ROUNDING_RULE_TOT_' . $multicurrency_code;
            if (getDolGlobalString($keyforforeignMAIN_ROUNDING_RULE_TOT)) {
                $conf->global->MAIN_MAX_DECIMALS_UNIT = getDolGlobalString($keyforforeignMAIN_MAX_DECIMALS_UNIT);
                $conf->global->MAIN_MAX_DECIMALS_TOT = getDolGlobalString($keyforforeignMAIN_MAX_DECIMALS_TOT);
                $conf->global->MAIN_ROUNDING_RULE_TOT = getDolGlobalString($keyforforeignMAIN_ROUNDING_RULE_TOT);
            }
        }

        // Recall function using the multicurrency price as reference price. We must set param $multicurrency_tx to 1 to avoid infinite loop.
        $newresult = calcul_price_total($qty, $pu_devise, $remise_percent_ligne, $txtva, $uselocaltax1_rate, $uselocaltax2_rate, $remise_percent_global, $price_base_type, $info_bits, $type, $seller, $localtaxes_array, $progress, 1, 0, '');

        if ($multicurrency_code) {
            // Restore setup of currency accurency
            $conf->global->MAIN_MAX_DECIMALS_UNIT = $savMAIN_MAX_DECIMALS_UNIT;  // @phan-suppress-current-line PhanPossiblyUndeclaredVariable
            $conf->global->MAIN_MAX_DECIMALS_TOT = $savMAIN_MAX_DECIMALS_TOT;  // @phan-suppress-current-line PhanPossiblyUndeclaredVariable
            $conf->global->MAIN_ROUNDING_RULE_TOT = $savMAIN_ROUNDING_RULE_TOT;  // @phan-suppress-current-line PhanPossiblyUndeclaredVariable
        }

        $result[16] = $newresult[0];
        $result[17] = $newresult[1];
        $result[18] = $newresult[2];
        $result[19] = $newresult[3];
        $result[20] = $newresult[4];
        $result[21] = $newresult[5];
        $result[22] = $newresult[6];
        $result[23] = $newresult[7];
        $result[24] = $newresult[8];
        $result[25] = $newresult[9];
        $result[26] = $newresult[10];
    } else {
        $result[16] = $result[0];
        $result[17] = $result[1];
        $result[18] = $result[2];
        $result[19] = $result[3];
        $result[20] = $result[4];
        $result[21] = $result[5];
        $result[22] = $result[6];
        $result[23] = $result[7];
        $result[24] = $result[8];
        $result[25] = $result[9];
        $result[26] = $result[10];
    }
    dol_syslog('Price.lib::calcul_price_total MAIN_ROUNDING_RULE_TOT=' . getDolGlobalString('MAIN_ROUNDING_RULE_TOT') . ' pu=' . $pu . ' qty=' . $qty . ' price_base_type=' . $price_base_type . ' total_ht=' . $result[0] . '-total_vat=' . $result[1] . '-total_ttc=' . $result[2]);

    return $result;
}