Impress Class Reference

contains function for the parsing and computing formulae . More...

Collaboration diagram for Impress:

Static Public Member Functions
static	array_to_csv ($array, $aheader, $p_filename)
	with the handle of a successull query, echo each row into CSV and send it directly More...
static	check_formula ($p_string)
static	compute_amount ($p_cn, $p_expression, $p_cond_sql, $p_cond_anc_sql)
	compute the amount of the accounting ,analytic accounting or a card, the SQL condition from sql_filter_per must be transformed for ANALYTIC ACCOUNT More...
static	compute_periode ($p_cn, $p_from, $p_end)
	make the condition SQL for filtering on the period More...
static	find_computing_mode ($p_formula)
	return what to consider More...
static	parse_formula ($p_cn, $p_label, $p_formula, $p_start, $p_end, $p_eval=true, $p_type_date=0, $p_sql="")

Data Fields
const	STR_PATTERN ="([\[\{]{1,2}[[:alnum:]]*%*(-[c,d,s,S]){0,1}[\]\}]{1,2})"
	< string pattern to use More...

Detailed Description

contains function for the parsing and computing formulae .

Test are in scenario/test_parse_formula.php

Definition at line 31 of file impress.class.php.

Member Function Documentation

array_to_csv()

static Impress::array_to_csv (   $array,   $aheader,   $p_filename  )

static

with the handle of a successull query, echo each row into CSV and send it directly

Parameters

type	$array	of data
type	$aheader	double array, each item of the array contains a key type (num) and a key title

Definition at line 241 of file impress.class.php.

    {
        $file_csv=new Noalyss_Csv($p_filename);
        for ($i=0; $i<count($aheader); $i++)
        {
            $file_csv->add($aheader[$i]['title']);
        }
        $file_csv->write();
 
        // fetch all the rows
        for ($i=0; $i<count($array); $i++)
        {
            $row=$array[$i];
            $e=0;
            // for each rows, for each value
            foreach ($array[$i] as $key=> $value)
            {
                if ($e>count($aheader))
                    continue;
 
                if (isset($aheader[$e]['type']))
                {
                    switch ($aheader[$e]['type'])
                    {
                        case 'num':
                            $file_csv->add($value, "number");
                            break;
                        default:
                            $file_csv->add($value);
                    }
                }
                else
                {
                    $file_csv->add($value);
                }
                $e++;
            }
            $file_csv->write();
        }
    }

References $array, $e, $i, $row, and $value.

Referenced by Anc_GrandLivre\display_csv().

check_formula()

static Impress::check_formula (   $p_string )

static

Definition at line 170 of file impress.class.php.

    {
        // the preg_match gets too complex if we want to add a test
        // for parenthesis, math function...
        // So I prefer remove them before testing
 
 
 
        $p_string=noalyss_str_replace("round", "", $p_string);
        $p_string=noalyss_str_replace("abs", "", $p_string);
        $p_string=noalyss_str_replace("(", "", $p_string);
        $p_string=noalyss_str_replace(")", "", $p_string);
        // for  the inline test like $a=(cond)?value:other;
        $p_string=noalyss_str_replace("?", "+", $p_string);
        $p_string=noalyss_str_replace(":", "+", $p_string);
        $p_string=noalyss_str_replace(">=", "+", $p_string);
        $p_string=noalyss_str_replace("<=", "+", $p_string);
        $p_string=noalyss_str_replace(">", "+", $p_string);
        $p_string=noalyss_str_replace("<", "+", $p_string);
        // eat Space + comma
        $p_string=noalyss_str_replace(" ", "", $p_string);
        $p_string=noalyss_str_replace(",", "", $p_string);
        // Remove D/C/S
        $p_string=noalyss_str_replace("-c", "", $p_string);
        $p_string=noalyss_str_replace("-d", "", $p_string);
        $p_string=noalyss_str_replace("-s", "", $p_string);
        $p_string=noalyss_str_replace("-S", "", $p_string);
        // Remove T,t
        $p_string=noalyss_str_replace("-t", "", $p_string);
 
        // analytic accountancy (between {} )
        $p_string=preg_replace("/\{\{[[:alnum:]]*\}\}/", "", $p_string);
 
        // card (between {} )
        $p_string=preg_replace("/\{[[:alnum:]]*\}/", "", $p_string);
 
        // remove date
        $p_string=preg_replace("/FROM*=*[0-9]+/", "", $p_string);
        // remove comment
        $p_string=preg_replace("/#.*/", "", $p_string);
        // remove php variable $C=
        $p_string=preg_replace('/\$[a-z]*[A-Z]*[0-9]*[A-Z]*[a-z]*/', "", $p_string);
        $p_string=preg_replace('/=/', "", $p_string);
 
        // remove account
        $p_string=preg_replace("/\[[0-9]*[A-Z]*%*\]/", "", $p_string);
 
        $p_string=preg_replace("/\+|-|\/|\*/", "", $p_string);
        $p_string=preg_replace("/[0-9]*\.*[0-9]/", "", $p_string);
 
        //************************************************************************************************************
        // If the string is empty then formula should be good
        //
        //************************************************************************************************************
        if ($p_string=='')
        {
            return true;
        }
        else
        {
            return false;
        }
    }

References noalyss_str_replace().

Referenced by Acc_Report_MTable\check(), Forecast_Item_MTable\check(), and parse_formula().

Here is the call graph for this function:

compute_amount()

static Impress::compute_amount (   $p_cn,   $p_expression,   $p_cond_sql,   $p_cond_anc_sql  )

static

compute the amount of the accounting ,analytic accounting or a card, the SQL condition from sql_filter_per must be transformed for ANALYTIC ACCOUNT

See also

sql_filter_per

Parameters

DatabaseCore	$p_cn
string	$p_expression	part of a formula
string	$p_cond_sql	SQL cond for accountancy
string	$p_cond_sql	SQL cond for analytic accountancy

Transform the $p_cond_sql , it comes from sql_filter_per

Definition at line 377 of file impress.class.php.

    {
        if ( DEBUGNOALYSS > 1) 
        {
            tracedebug("impress.debug.log", "$p_expression", '$p_expression' );
            tracedebug("impress.debug.log", "$p_cond_sql", '$p_cond_sql' );
        }
        $compute=\Impress::find_computing_mode($p_expression);
        // remove char for the mode
        $p_expression=noalyss_str_replace("-d", "", $p_expression);
        $p_expression=noalyss_str_replace("-c", "", $p_expression);
        $p_expression=noalyss_str_replace("-s", "", $p_expression);
        $p_expression=noalyss_str_replace("-S", "", $p_expression);
        // we have an account
        if (preg_match("/\[.*\]/", $p_expression)) {
            $p_expression=noalyss_str_replace("[", "", $p_expression);
            $p_expression=noalyss_str_replace("]", "", $p_expression);
            $P=new Acc_Account_Ledger($p_cn, $p_expression);
            $detail=$P->get_solde_detail($p_cond_sql);
        } elseif (preg_match("/\{\{.*\}\}/", $p_expression))
        { 
            $p_expression=noalyss_str_replace("{", "", $p_expression);
            $p_expression=noalyss_str_replace("}", "", $p_expression);
            $anc_account= new Anc_Account($p_cn);
            $anc_account->load_by_code($p_expression);
          
             if ( DEBUGNOALYSS > 1) 
            {
                tracedebug("impress.debug.log", $p_expression, 'code analytic account');
                tracedebug("impress.debug.log", $p_cond_anc_sql, 'condition SQL ');
            }
            /// Transform the $p_cond_sql , it comes from sql_filter_per
            // and looks like j_tech_per in (select p_id from parm_periode  where 
            
            $detail=$anc_account->get_balance($p_cond_anc_sql);
        
        } elseif (preg_match("/\{.*\}/", $p_expression))
        { // we have a card
            // remove useless char
            $p_expression=noalyss_str_replace("{", "", $p_expression);
            $p_expression=noalyss_str_replace("}", "", $p_expression);
            $fiche=new Fiche($p_cn);
            if ( DEBUGNOALYSS > 1) 
            {
                tracedebug("impress.debug.log", "$p_expression", 'search_card qcode =');
            }
            $fiche->get_by_qcode(strtoupper(trim($p_expression)));
            $detail=$fiche->get_solde_detail($p_cond_sql);
        } else {
            throw new \Exception ("Impress::compute_amount383.".
                    " Unknown expression \$p_expression [$p_expression]".
                    " \$p_cond_sql $p_cond_sql");
        }
        
        
        
      
        // Get sum of account
 
        switch ($compute)
        {
            case "all":
                $res=$detail['solde'];
                break;
            case 'deb':
                $res=$detail['debit'];
                break;
            case 'cred':
                $res=$detail['credit'];
                break;
            case 'signed':
                $res=bcsub($detail['debit'], $detail['credit'], 4);
                break;
            case 'cdsigned':
                $res=bcsub($detail['credit'], $detail['debit'], 4);
                break;
        }
        return $res;
    }

References $detail, $fiche, $res, elseif, find_computing_mode(), and noalyss_str_replace().

Referenced by parse_formula().

Here is the call graph for this function:

compute_periode()

static Impress::compute_periode (   $p_cn,   $p_from,   $p_end  )

static

make the condition SQL for filtering on the period

Parameters

\DatabaseCore	$p_cn
int	$p_from	periode id
int	$p_end	until periode id

Exceptions

Exception

Definition at line 320 of file impress.class.php.

    {
        // There is a FROM clause
        // then we must modify the cond for the periode
        
 
        // Get the periode
        /* ! \note special value for the clause FROM=00.0000, we take the first day of the exercice of $p_end
         */
        if ($p_from=='00.0000')
        {
            $current_exercice=$p_cn->get_value('select p_exercice from parm_periode where p_id=$1',
                    [$p_end]);
            if ( $current_exercice=="") {
                throw new Execution(_('CP329'));
            }
            $first_day=$p_cn->get_value("select to_char(min(p_start),'DD.MM.YYYY') as p_start from parm_periode where p_exercice=$1",
                    [$current_exercice]);
            $last_day=$p_cn->get_value("select to_char(p_end,'DD.MM.YYYY') from parm_periode where p_id=$1",[$p_end]);
            // retrieve the first month of this periode
            if (empty($first_day))
                throw new Exception('Pas de limite à cette période', 1);
            $cond=sql_filter_per($p_cn, $first_day, $last_day, 'date', 'j_tech_per');
        }
        else
        {
            $oPeriode=new Periode($p_cn);
            try
            {
                $pfrom=$oPeriode->find_periode('01.'.$p_from);
                $cond=sql_filter_per($p_cn, $pfrom, $p_end, 'p_id', 'j_tech_per');
            }
            catch (Exception $exp)
            {
                /* if none periode is found
                  then we take the first periode of the year
                 */
               
               $first_day=$p_cn->get_value("select to_char(min(p_start),'DD.MM.YYYY') as p_start from parm_periode");
                $last_day=$p_cn->get_value("select to_char(p_end,'DD.MM.YYYY') from parm_periode where p_id=$1",[$p_end]);
                // retrieve the first month of this periode
                if (empty($first_day))
                    throw new Exception('Pas de limite à cette période', 1);
                $cond=sql_filter_per($p_cn, $first_day, $last_day, 'date', 'j_tech_per');
            }
        }
        return $cond;
    }

References $current_exercice, $first_day, $last_day, $oPeriode, $p_end, and sql_filter_per().

Referenced by parse_formula().

Here is the call graph for this function:

find_computing_mode()

static Impress::find_computing_mode (   $p_formula )

static

return what to consider

• "deb" for the total of the debit ,
• "cred" for total of credit,
• "signed" for tot. debit - tot. credit
• "cdsigned" for tot.credit - tot.debit
• "all" is the balance of accounting in absolute value

Parameters

string

$p_formula

Returns

"all", "deb","cred","signed" or "cdsigned"

Definition at line 293 of file impress.class.php.

    {
        if (strpos($p_formula, '-d')!=0)
        {
            return 'deb';
        }
        elseif (strpos($p_formula, '-c')!=0)
        {
            return 'cred';
        }
        elseif (strpos($p_formula, '-s')!=0)
        {
            return 'signed';
        }
        elseif (strpos($p_formula, '-S')!=0)
        {
            return 'cdsigned';
        }
        return 'all';
    }

References elseif.

Referenced by compute_amount().

parse_formula()

static Impress::parse_formula (   $p_cn,   $p_label,   $p_formula,   $p_start,   $p_end,   $p_eval = true,   $p_type_date = 0,   $p_sql = ""  )

static

Definition at line 52 of file impress.class.php.

    {
        global $g_user;
        if (Impress::check_formula($p_formula)==false)
        {
            if ($p_eval==true)
                return array('desc'=>$p_label.'  Erreur Formule!',
                    'montant'=>0);
            else
                return $p_formula;
        }
        // Bug 
        //     with PHP8  if ('periode'==0 ) echo "hello"; else echo 'different' ; => different
        //     with PHP7 if ('periode'==0 ) echo "hello"; else echo 'different' ;  => hello
 
        if ($p_type_date==0)
        {
            $cond=sql_filter_per($p_cn, $p_start, $p_end, 'p_id', 'j_tech_per');
            $cond_anc= "and ".transform_sql_filter_per($cond);
        }
        elseif ($p_type_date == 1) {
            $cond="( j_date >= to_date('$p_start','DD.MM.YYYY') and j_date <= to_date('$p_end','DD.MM.YYYY'))";
            $cond_anc="and ( oa_date >= to_date('$p_start','DD.MM.YYYY') and oa_date <= to_date('$p_end','DD.MM.YYYY'))";
        } else {
             throw new Exception("impress72 invalid type_date [ {$p_type_date} ] ");
        }
 
        // ------------------- for accounting , analytic or card-------------------------------------
        if ( DEBUGNOALYSS > 1) 
        {
            tracedebug("impress.debug.log", "$p_formula ", 'parse_formula-71 $formula to parse' );
            tracedebug("impress.debug.log", "$p_label ", 'parse_formula-72 $p_label' );
            tracedebug("impress.debug.log", $p_start,'parse_formula-73 $p_start' );
            tracedebug("impress.debug.log", $p_end,'parse_formula-74 $p_end ' );
            tracedebug("impress.debug.log", $p_type_date,'parse_formula-75 $p_type_date' );
            tracedebug("impress.debug.log", $p_sql,'parse_formula-76 $p_sql' );
            tracedebug("impress.debug.log", $cond ,'parse_formula-77 $cond SQL accountancy' );
            tracedebug("impress.debug.log", $cond_anc,'parse_formula-78 $cond_anc SQL Analytic Acc' );
        }
        while (preg_match_all(Impress::STR_PATTERN, $p_formula, $e)==true)
        {
            $x=$e[0];
            foreach ($x as $line)
            {
               
                // If there is a FROM clause we must recompute
                // the time cond
 
                if ($p_type_date==0&&preg_match("/FROM=[0-9]+\.[0-9]+/", $p_formula, $afrom)==1)
                {
                    $from=noalyss_str_replace('FROM=','',$afrom[0]);
                    $cond = \Impress::compute_periode($p_cn,$from,$p_end);
                    $cond_anc=" and ".transform_sql_filter_per($cond);
                    // We remove FROM out of the p_formula
                    $p_formula=substr_replace($p_formula, "", strpos($p_formula, "FROM"));
                }
                  if ($p_type_date==1&&preg_match("/FROM=[0-9]+\.[0-9]+/", $p_formula, $afrom)==1)
                {
                    // We remove FROM out of the p_formula
                    $p_formula=substr_replace($p_formula, "", strpos($p_formula, "FROM"));
                }
                $amount=\Impress::compute_amount($p_cn,$line,$cond." ".$p_sql,$cond_anc." ".$p_sql);
      
 
                $p_formula=noalyss_str_replace($x[0],"(". $amount.")", $p_formula);
            }
        }
 
        // $p_eval is true then we eval and returns result
        if ($p_eval==true)
        {
            /* -------------------------------------
             * Protect againt division by zero 
             */
            $p_formula=remove_divide_zero($p_formula);
            $p_formula="\$result=".$p_formula.";";
            try {
                eval("$p_formula");
            } catch(Exception $e) {
                return array("desc"=>"erreur","montant"=>'0');
            }
            while (preg_match("/\[([0-9]+)(-[Tt]*)\]/", trim($p_label), $e)==1)
            {
                $nom="!!".$e[1]."!!";
                if (Impress::check_formula($e[0]))
                {
                    $nom=$p_cn->get_value("SELECT pcm_lib AS acct_name FROM tmp_pcmn WHERE pcm_val::text LIKE $1||'%' ORDER BY pcm_val ASC LIMIT 1",
                            array($e[1]));
                    if ($nom)
                    {
                        if ($e[2]=='-T')
                            $nom=strtoupper($nom);
                        if ($e[2]=='-t')
                            $nom=strtolower($nom);
                    }
                }
                $p_label=noalyss_str_replace($e[0], $nom, $p_label);
            }
 
            $aret=array('desc'=>$p_label,
                'montant'=>$result);
            return $aret;
        }
        else
        {
            // $p_eval is false we returns only the string
            return $p_formula;
        }
    }

References $amount, $e, $from, $g_user, $line, $p_end, $p_start, $result, check_formula(), compute_amount(), compute_periode(), elseif, noalyss_str_replace(), remove_divide_zero(), sql_filter_per(), and STR_PATTERN.

Referenced by Acc_Bilan\compute_formula(), Anticipation\display(), and Acc_Report\get_row().

Here is the call graph for this function:

Field Documentation

STR_PATTERN

const Impress::STR_PATTERN ="([\[\{]{1,2}[[:alnum:]]*%*(-[c,d,s,S]){0,1}[\]\}]{1,2})"

< string pattern to use

Definition at line 34 of file impress.class.php.

Referenced by parse_formula().

---

The documentation for this class was generated from the following file:

• include/lib/impress.class.php