price_parser.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2015       Ion Agorria         <ion@agorria.com>
 * Copyright (C) 2024-2025  MDW         <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2025       Frédéric France     <frederic.france@free.fr>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
require_once DOL_DOCUMENT_ROOT.'/core/class/evalmath.class.php';
require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_expression.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_global_variable.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/dynamic_price/class/price_global_variable_updater.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
 
class PriceParser
{
  protected $db;
  public $limit = 100;
  public $error_parser;
  public $error_expr;
  public $special_chr = "#";
  public $separator_chr = ";";
 
  public function __construct($db)
  {
    $this->db = $db;
  }
 
  public function translatedError()
  {
    global $langs;
    $langs->load("errors");
    /*
    -No arg
     9, an unexpected error occurred
    14, division by zero
    19, expression not found
    20, empty expression
 
    -1 Arg
     1, cannot assign to constant '%s'
     2, cannot redefine built-in function '%s'
     3, undefined variable '%s' in function definition
     4, illegal character '%s'
     5, unexpected '%s'
     8, unexpected operator '%s'
    10, operator '%s' lacks operand
    11, expecting '%s'
    17, undefined variable '%s'
    21, empty result '%s'
    22, negative result '%s'
    24, variable '%s' exists but has no value
 
    -2 Args
     6, wrong number of arguments (%s given, %s expected)
    23, unknown or non set variable '%s' after %s
 
    -internal errors
     7, internal error
    12, internal error
    13, internal error
    15, internal error
    16, internal error
    18, internal error
    */
    if (empty($this->error_parser)) {
      return $langs->trans("ErrorPriceExpressionUnknown", 0); //this is not supposed to happen
    }
    list($code, $info) = $this->error_parser;
    if (in_array($code, array(9, 14, 19, 20))) { //Errors which have 0 arg
      return $langs->trans("ErrorPriceExpression".$code);
    } elseif (in_array($code, array(1, 2, 3, 4, 5, 8, 10, 11, 17, 21, 22))) { //Errors which have 1 arg
      return $langs->trans("ErrorPriceExpression".$code, (string) $info);
    } elseif (in_array($code, array(6, 23))) { //Errors which have 2 args
      return $langs->trans("ErrorPriceExpression".$code, $info[0], $info[1]);
    } elseif (in_array($code, array(7, 12, 13, 15, 16, 18))) { //Internal errors
      return $langs->trans("ErrorPriceExpressionInternal", (string) $code);
    } else { //Unknown errors
      return $langs->trans("ErrorPriceExpressionUnknown", (string) $code);
    }
  }
 
  public function parseExpression($product, $expression, $values)
  {
    global $user, $hookmanager, $extrafields;
 
    $action = 'PARSEEXPRESSION';
    $reshook = $hookmanager->executeHooks('doDynamicPrice', array('expression' => &$expression, 'product' => &$product, 'values' => &$values), $this, $action);
    if ($reshook > 0) {
      return $hookmanager->resArray['return'];
    }
    //Check if empty
    $expression = trim($expression);
    if (empty($expression)) {
      $this->error_parser = array(20, null);
      return -2;
    }
 
    //Accessible product values by expressions
    $values = array_merge($values, array(
      "tva_tx" => $product->tva_tx,
      "localtax1_tx" => $product->localtax1_tx,
      "localtax2_tx" => $product->localtax2_tx,
      "weight" => $product->weight,
      "length" => $product->length,
      "surface" => $product->surface,
      "price_min" => $product->price_min,
      "cost_price" => $product->cost_price,
      "pmp" => $product->pmp,
    ));
 
    // Retrieve all extrafields if not already not know (should not happen)
    if (! is_object($extrafields)) {
      $extrafields = new ExtraFields($this->db);
      $extrafields->fetch_name_optionals_label($product->table_element);
    }
 
    $product->fetch_optionals();
    if (is_array($extrafields->attributes[$product->table_element]['label'])) {
      foreach ($extrafields->attributes[$product->table_element]['label'] as $key => $label) {
        $values["extrafield_".$key] = $product->array_options['options_'.$key];
      }
    }
 
    //Process any pending updaters
    $price_updaters = new PriceGlobalVariableUpdater($this->db);
    foreach ($price_updaters->listPendingUpdaters() as $entry) {
      //Schedule the next update by adding current timestamp (secs) + interval (mins)
      $entry->update_next_update(dol_now() + ($entry->update_interval * 60), $user);
      //Do processing
      $res = $entry->process();
      //Store any error or clear status if OK
      $entry->update_status($res < 1 ? $entry->error : '', $user);
    }
 
    //Get all global values
    $price_globals = new PriceGlobalVariable($this->db);
    foreach ($price_globals->listGlobalVariables() as $entry) {
      $values["global_".$entry->code] = $entry->value;
    }
 
    //Remove internal variables
    unset($values["supplier_id"]);
 
    //Prepare the lib, parameters and values
    $em = new EvalMath();
    $em->suppress_errors = true; //Don't print errors on page
    $this->error_expr = null;
    $last_result = null;
 
    //Fill each variable in expression from values
    $expression = str_replace("\n", $this->separator_chr, $expression);
    foreach ($values as $key => $value) {
      if ($value === null && strpos($expression, $key) !== false) {
        $this->error_parser = array(24, $key);
        return -7;
      }
      $expression = str_replace($this->special_chr.$key.$this->special_chr, strval($value), $expression);
    }
 
    //Check if there is unfilled variable
    if (strpos($expression, $this->special_chr) !== false) {
      $data = explode($this->special_chr, $expression);
      $variable = $this->special_chr.$data[1];
      if (isset($data[2])) {
        $variable .= $this->special_chr;
      }
      $this->error_parser = array(23, array($variable, $expression));
      return -6;
    }
 
    //Iterate over each expression split by $separator_chr
    $expressions = explode($this->separator_chr, $expression);
    $expressions = array_slice($expressions, 0, $this->limit);
    foreach ($expressions as $expr) {
      $expr = trim($expr);
      if (!empty($expr)) {
        $last_result = $em->evaluate($expr);
        $this->error_parser = $em->last_error_code;
        if ($this->error_parser !== null) { //$em->last_error_code is null if no error happened, so just check if error_parser is not null
          $this->error_expr = $expr;
          return -3;
        }
      }
    }
    $vars = $em->vars();
    if (empty($vars["price"])) {
      $vars["price"] = $last_result;
    }
    if (!isset($vars["price"])) {
      $this->error_parser = array(21, $expression);
      return -4;
    }
    if ($vars["price"] < 0) {
      $this->error_parser = array(22, $expression);
      return -5;
    }
    return $vars["price"];
  }
 
  public function parseProduct($product, $extra_values = array())
  {
    //Get the expression from db
    $price_expression = new PriceExpression($this->db);
    $res = $price_expression->fetch($product->fk_price_expression);
    if ($res < 1) {
      $this->error_parser = array(19, null);
      return -1;
    }
 
    //Get the supplier min price
    $productFournisseur = new ProductFournisseur($this->db);
    $res = $productFournisseur->find_min_price_product_fournisseur($product->id, 0, 0);
    if ($res < 0) {
      $this->error_parser = array(25, null);
      return -1;
    } elseif ($res == 0) {
      $supplier_min_price = 0;
      $supplier_min_price_with_discount = 0;
    } else {
      $supplier_min_price = $productFournisseur->fourn_unitprice;
      $supplier_min_price_with_discount = $productFournisseur->fourn_unitprice_with_discount;
    }
 
    //Accessible values by expressions
    $extra_values = array_merge($extra_values, array(
      "supplier_min_price" => $supplier_min_price,
      "supplier_min_price_with_discount" => $supplier_min_price_with_discount,
    ));
 
    //Parse the expression and return the price, if not error occurred check if price is higher than min
    $result = $this->parseExpression($product, $price_expression->expression, $extra_values);
    if (empty($this->error_parser)) {
      if ($result < $product->price_min) {
        $result = $product->price_min;
      }
    }
    return $result;
  }
 
  public function parseProductSupplier($product_supplier, $extra_values = array())
  {
    //Get the expression from db
    $price_expression = new PriceExpression($this->db);
    $res = $price_expression->fetch($product_supplier->fk_supplier_price_expression);
    if ($res < 1) {
      $this->error_parser = array(19, null);
      return -1;
    }
 
    //Get the product data (use ignore_expression to avoid possible recursion)
    $product_supplier->fetch($product_supplier->id, '', '', '', 1);
 
    //Accessible values by expressions
    $extra_values = array_merge($extra_values, array(
      "supplier_quantity" => $product_supplier->fourn_qty,
      "supplier_tva_tx" => $product_supplier->fourn_tva_tx,
    ));
 
    //Parse the expression and return the price
    return $this->parseExpression($product_supplier, $price_expression->expression, $extra_values);
  }
 
  public function testExpression($product_id, $expression, $extra_values = array())
  {
    //Get the product data
    $product = new Product($this->db);
    $product->fetch($product_id, '', '', '1');
 
    //Values for product expressions
    $extra_values = array_merge($extra_values, array(
      "supplier_min_price" => 1,
      "supplier_min_price_with_discount" => 2,
    ));
 
    //Values for supplier product expressions
    $extra_values = array_merge($extra_values, array(
      "supplier_quantity" => 3,
      "supplier_tva_tx" => 4,
    ));
    return $this->parseExpression($product, $expression, $extra_values);
  }
}