725 lines
23 KiB
PHP
725 lines
23 KiB
PHP
<?php
|
||
/*
|
||
* This file is part of PhpCompta.
|
||
*
|
||
* PhpCompta 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 2 of the License, or
|
||
* (at your option) any later version.
|
||
*
|
||
* PhpCompta 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 PhpCompta; if not, write to the Free Software
|
||
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||
*/
|
||
|
||
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
|
||
// $Revision$
|
||
|
||
|
||
/*!
|
||
* \brief Get dat for poste
|
||
*
|
||
* \param connection
|
||
* \param condition
|
||
* \param position
|
||
*
|
||
*/
|
||
function get_dataPoste($p_cn,$p_poste,$p_condition)
|
||
{
|
||
$Res=ExecSql($p_cn,"select to_char(j_date,'DD.MM.YYYY') as j_date,".
|
||
"case when j_debit='t' then to_char(j_montant,'999999999.99') else ' ' end as deb_montant,".
|
||
"case when j_debit='f' then to_char(j_montant,'999999999.99') else ' ' end as cred_montant,".
|
||
" jr_comment as description,jrn_def_name as jrn_name,".
|
||
"j_debit, jr_internal ".
|
||
// " case when j_debit='t' then 'debit' else 'credit' end as debit".
|
||
" from jrnx left join jrn_def on jrn_def_id=j_jrn_def ".
|
||
" left join jrn on jr_grpt_id=j_grpt".
|
||
" where j_poste=".$p_poste." and ".$p_condition.
|
||
" order by j_date::date");
|
||
$array=array();
|
||
$tot_cred=0;
|
||
$tot_deb=0;
|
||
$Max=pg_NumRows($Res);
|
||
if ( $Max == 0 ) return null;
|
||
for ($i=0;$i<$Max;$i++) {
|
||
$array[]=pg_fetch_array($Res,$i);
|
||
if ($array[$i]['j_debit']=='t') {
|
||
$tot_deb+=$array[$i]['deb_montant'] ;
|
||
} else {
|
||
$tot_cred+=$array[$i]['cred_montant'] ;
|
||
}
|
||
}
|
||
return array($array,$tot_deb,$tot_cred);
|
||
}
|
||
/*!
|
||
* \brief Get data from the jrn table
|
||
*
|
||
* \param connection
|
||
* \param array periode
|
||
* \param filter (default = YES)
|
||
* \return error code if something code wrong
|
||
* otherwise the result
|
||
*
|
||
*/
|
||
function get_dataJrn($p_cn,$p_array,$filter=YES)
|
||
{
|
||
if ( !isset ($p_array['periode']) ) return NO_PERIOD_SELECTED;
|
||
|
||
if ( $filter==YES) {
|
||
if ( ! isset ( $p_array['central'])){
|
||
$cond=CreatePeriodeCond($p_array['periode']);
|
||
$Res=ExecSql($p_cn,"select to_char(j_date,'DD.MM.YYYY') as j_date,
|
||
j_montant as montant,j_debit as debit,j_poste as poste,".
|
||
"j_text as description,j_grpt as grp,jr_comment as comment,
|
||
j_rapt as oc,jr_internal from jrnx left join jrn on ".
|
||
"jr_grpt_id=j_grpt where j_jrn_def=".$p_array['p_id'].
|
||
" and ".$cond." order by j_date::date,j_grpt,j_debit desc");
|
||
} else {
|
||
// create
|
||
$cond=CreatePeriodeCond($p_array['periode'],"c_periode");
|
||
|
||
$Res=ExecSql($p_cn,"select to_char(c_date,'DD.MM.YYYY') as j_date,
|
||
c_montant as montant,c_debit as debit,c_poste as poste,".
|
||
"c_description as description,c_grp as grp,c_comment as comment,
|
||
c_rapt as oc,c_internal as jr_internal from centralized left join jrn on ".
|
||
"jr_grpt_id=c_grp where c_jrn_def=".$p_array['p_id']." and ".
|
||
$cond." order by c_id,c_date,c_grp,c_debit desc");
|
||
}
|
||
|
||
} // if filter == YES
|
||
if ( $filter == NO) {
|
||
if ( ! isset ($p_array['central']) ) {
|
||
$cond=CreatePeriodeCond($p_array['periode']);
|
||
$Res=ExecSql($p_cn,"select to_char(j_date,'DD.MM.YYYY') as j_date,
|
||
j_montant as montant,j_debit as debit,j_poste as poste,".
|
||
"j_text as description,j_grpt as grp,jr_comment as comment,
|
||
j_rapt as oc,jr_internal from jrnx left join jrn on ".
|
||
"jr_grpt_id=j_grpt where ".
|
||
$cond." order by j_date::date,j_grpt,j_debit desc");
|
||
} else {
|
||
$cond=CreatePeriodeCond($p_array['periode'],"c_periode");
|
||
|
||
$Res=ExecSql($p_cn,"select to_char(c_date,'DD.MM.YYYY') as j_date,
|
||
c_montant as montant,c_debit as debit,c_poste as poste,".
|
||
"c_description as description,c_grp as grp,c_comment as comment,
|
||
c_rapt as oc,c_internal as jr_internal from centralized left join jrn on ".
|
||
"jr_grpt_id=c_grp where ".
|
||
$cond." order by c_id,c_date,c_grp,c_debit desc");
|
||
|
||
}
|
||
}// filter == no
|
||
$array=array();
|
||
$Max=pg_NumRows($Res);
|
||
for ($i=0;$i<$Max;$i++) {
|
||
$array[]=pg_fetch_array($Res,$i);
|
||
}
|
||
return $array;
|
||
}
|
||
/*! \function CreatePeriodeCond
|
||
* \brief Create the sql query for the periode
|
||
*
|
||
* \param p_periode
|
||
* \param p_field (default = j_tech_per)
|
||
* \return a string containing the query
|
||
*
|
||
*/
|
||
function CreatePeriodeCond($p_periode,$p_field=" j_tech_per")
|
||
{
|
||
if ( count($p_periode) == 1) {
|
||
return $p_field."=".$p_periode[0];
|
||
}
|
||
|
||
$cond_periode=" $p_field in (";
|
||
// condition periode
|
||
$old=0;
|
||
$follow=0;
|
||
foreach ( $p_periode as $per) {
|
||
if ( $old == 0) {
|
||
$old=$per;
|
||
$follow=1;
|
||
continue;
|
||
}
|
||
if ( $per == $old+1 ) {
|
||
$old=$per;
|
||
$follow++;
|
||
}
|
||
|
||
}// foreach
|
||
if ( count($p_periode) == $follow) {
|
||
$cond=$p_field." >= ".$p_periode[0].' and '.$p_field.' <= '.$p_periode[count($p_periode)-1];
|
||
return $cond;
|
||
}
|
||
|
||
// condition periode
|
||
foreach ( $p_periode as $per) {
|
||
$cond_periode.=$per.",";
|
||
}
|
||
$cond_periode=substr($cond_periode,0,strlen($cond_periode)-1);
|
||
$cond_periode.=")";
|
||
return $cond_periode;
|
||
}
|
||
/*!
|
||
* \brief Get The data for the pdf printing
|
||
* \param connection
|
||
* \param array
|
||
* \param p_limit starting line
|
||
* \param p_offset number of lines
|
||
* \return Array with the asked data
|
||
*
|
||
*/
|
||
function get_dataJrnPdf($p_cn,$p_array,$p_limit,$p_offset)
|
||
{
|
||
echo_debug('impress_inc.php',__LINE__,"get_dataJrnPdf");
|
||
|
||
if ( !isset ($p_array['periode']) ) return NO_PERIOD_SELECTED;
|
||
|
||
if ( $p_array['filter']==YES) {
|
||
$cond=CreatePeriodeCond($p_array['periode']);
|
||
if ( ! isset ($p_array['central']) ) {
|
||
// Journaux non centralis<69>s
|
||
$Res=ExecSql($p_cn,"select j_id,to_char(j_date,'DD.MM.YYYY') as j_date,
|
||
jr_internal,
|
||
case j_debit when 't' then j_montant::text else ' ' end as deb_montant,
|
||
case j_debit when 'f' then j_montant::text else ' ' end as cred_montant,
|
||
j_debit as debit,j_poste as poste,jr_montant , ".
|
||
"pcm_lib as description,j_grpt as grp,jr_comment ,
|
||
jr_rapt as oc, j_tech_per as periode from jrnx left join jrn on ".
|
||
"jr_grpt_id=j_grpt ".
|
||
" left join tmp_pcmn on pcm_val=j_poste ".
|
||
" where j_jrn_def=".$p_array['p_id'].
|
||
" and ".$cond." order by j_date::date asc,jr_internal,j_debit desc".
|
||
" limit ".$p_limit." offset ".$p_offset);
|
||
}else {
|
||
// Journaux centralis<69>s
|
||
$cond=CreatePeriodeCond($p_array['periode'],"c_periode");
|
||
$Sql="select c_id as j_id,
|
||
c_j_id,
|
||
to_char (c_date,'DD.MM.YYYY') as j_date ,
|
||
c_internal as jr_internal,
|
||
case c_debit when 't' then c_montant::text else ' ' end as deb_montant,
|
||
case c_debit when 'f' then c_montant::text else ' ' end as cred_montant,
|
||
c_debit as j_debit,
|
||
c_poste as poste,
|
||
pcm_lib as description,
|
||
jr_comment,
|
||
jr_montant,
|
||
c_grp as grp,
|
||
c_comment as comment,
|
||
c_rapt as oc,
|
||
c_periode as periode
|
||
from centralized left join jrn on ".
|
||
"jr_grpt_id=c_grp left join tmp_pcmn on pcm_val=c_poste where ".
|
||
" c_jrn_def=".$p_array['p_id']." and ".
|
||
$cond." order by c_id ";
|
||
$Res=ExecSql($p_cn,$Sql." limit ".$p_limit." offset ".$p_offset);
|
||
|
||
}
|
||
} else {
|
||
// Grand Livre
|
||
if (! isset($p_array['central'])) {
|
||
// Non centralis<69>
|
||
$cond=CreatePeriodeCond($p_array['periode']);
|
||
$Res=ExecSql($p_cn,"select j_id,to_char(j_date,'DD.MM.YYYY') as j_date,
|
||
jr_internal,
|
||
case j_debit when 't' then j_montant::text else ' ' end as deb_montant,
|
||
case j_debit when 'f' then j_montant::text else ' ' end as cred_montant,
|
||
j_debit as debit,j_poste as poste,".
|
||
"pcm_lib as description,j_grpt as grp,jr_comment as jr_comment,
|
||
jr_montant,
|
||
jr_rapt as oc, j_tech_per as periode from jrnx left join jrn on ".
|
||
"jr_grpt_id=j_grpt left join tmp_pcmn on pcm_val=j_poste where ".
|
||
" ".$cond." order by j_date::date,j_grpt,j_debit desc".
|
||
" limit ".$p_limit." offset ".$p_offset);
|
||
|
||
} else {
|
||
// Centralis<69>
|
||
$cond=CreatePeriodeCond($p_array['periode'],"c_periode");
|
||
$Sql="select c_id as j_id,
|
||
c_j_id,
|
||
to_char (c_date,'DD.MM.YYYY') as j_date ,
|
||
c_internal as jr_internal,
|
||
case c_debit when 't' then c_montant::text else ' ' end as deb_montant,
|
||
case c_debit when 'f' then c_montant::text else ' ' end as cred_montant,
|
||
c_debit as j_debit,
|
||
c_poste as poste,
|
||
pcm_lib as description,
|
||
jr_comment,
|
||
jr_montant,
|
||
c_grp as grp,
|
||
c_comment as comment,
|
||
c_rapt as oc,
|
||
c_periode as periode
|
||
from centralized left join jrn on ".
|
||
"jr_grpt_id=c_grp left join tmp_pcmn on pcm_val=c_poste where ".
|
||
$cond." order by c_id ";
|
||
$Res=ExecSql($p_cn,$Sql." limit ".$p_limit." offset ".$p_offset);
|
||
} // Grand Livre
|
||
}
|
||
|
||
|
||
$array=array();
|
||
$Max=pg_NumRows($Res);
|
||
if ($Max==0) return null;
|
||
$case="";
|
||
$tot_deb=0;
|
||
$tot_cred=0;
|
||
for ($i=0;$i<$Max;$i++) {
|
||
$line=pg_fetch_array($Res,$i);
|
||
$mont_deb=($line['deb_montant']!=0)?sprintf("% 8.2f",$line['deb_montant']):"";
|
||
$mont_cred=($line['cred_montant']!=0)?sprintf("% 8.2f",$line['cred_montant']):"";
|
||
$jr_montant=($line['jr_montant']!=0)?sprintf("% 8.2f",$line['jr_montant']):"";
|
||
$tot_deb+=$line['deb_montant'];
|
||
$tot_cred+=$line['cred_montant'];
|
||
echo_debug('impress_inc.php',__LINE__," GetJrnDataPdf : mont_Deb ".$mont_deb);
|
||
echo_debug('impress_inc.php',__LINE__," GetJrnDataPdf : mont_cred ".$mont_cred);
|
||
|
||
if ( $case != $line['grp'] ) {
|
||
$case=$line['grp'];
|
||
$array[]=array (
|
||
'j_id'=>$line['j_id'],
|
||
'j_date' => $line['j_date'],
|
||
'internal'=>$line['jr_internal'],
|
||
'deb_montant'=>'',
|
||
'cred_montant'=>'<b><i>'.$jr_montant.'</i></b>',
|
||
'description'=>'<b><i>'.$line['jr_comment'].'</i></b>',
|
||
'poste' => $line['oc'],
|
||
'periode' =>$line['periode'] );
|
||
|
||
$array[]=array (
|
||
'j_id'=>$line['j_id'],
|
||
'j_date' => '',
|
||
'internal'=>'',
|
||
'deb_montant'=>$mont_deb,
|
||
'cred_montant'=>$mont_cred,
|
||
'description'=>$line['description'],
|
||
'poste' => $line['poste'],
|
||
'periode' => $line['periode']
|
||
);
|
||
|
||
}else {
|
||
$array[]=array (
|
||
'j_id'=>$line['j_id'],
|
||
'j_date' => '',
|
||
'internal'=>'',
|
||
'deb_montant'=>$mont_deb,
|
||
'cred_montant'=>$mont_cred,
|
||
'description'=>$line['description'],
|
||
'poste' => $line['poste'],
|
||
'periode' => $line['periode']);
|
||
|
||
}
|
||
|
||
|
||
}
|
||
echo_debug('impress_inc.php',__LINE__,"Total debit $tot_deb,credit $tot_cred");
|
||
$a=array($array,$tot_deb,$tot_cred);
|
||
return $a;
|
||
}
|
||
/*!
|
||
* \brief
|
||
*
|
||
* \param
|
||
*
|
||
*\return
|
||
*/
|
||
function get_dataGrpt($p_cn,$p_array)
|
||
{
|
||
if ( !isset ($p_array['periode']) ) return NO_PERIOD_SELECTED;
|
||
$cond=CreatePeriodeCond($p_array['periode']);
|
||
$Res=ExecSql($p_cn,"select distinct ".
|
||
" j_grpt as grp".
|
||
" from jrnx ".
|
||
" where j_jrn_def=".$p_array['p_id'].
|
||
" and ".$cond." order by j_grpt");
|
||
$array=array();
|
||
$Max=pg_NumRows($Res);
|
||
$case="";
|
||
for ($i=0;$i<$Max;$i++) {
|
||
$array[]=pg_fetch_array($Res,$i);
|
||
}
|
||
return $array;
|
||
}
|
||
/*!
|
||
* \brief
|
||
* \param $p_cn database connection
|
||
* \param $p_jr_id jrn.jr_id not centralized
|
||
* or jr_op_id normal ledger centralized or jr_c_op_id if GL and centralized
|
||
* \param $p_jrn_id id of the ledger (0 for GL)
|
||
* \param $p_exercice
|
||
* \param $p_which LAST or FIRST
|
||
* \param $p_type CENT for centralized otherwise empty
|
||
*
|
||
*
|
||
* \return array sum(HTVA) sum(TVAC) sum (each TVA)
|
||
*/
|
||
function get_rappel_simple ($p_cn,$p_jrn_id,$p_jrn_type,$p_from,&$arap)
|
||
{
|
||
echo_debug("impress_inc",__LINE__,"function get_rappel_simple ($p_cn,$p_jrn_id,$p_jrn_type,$p_from,$arap) ");
|
||
if ( $p_jrn_type !='VEN' && $p_jrn_type != "ACH")
|
||
{
|
||
echo "ERREUR Journal invalide $p_jrn_type __FILE__ __LINE__";
|
||
exit;
|
||
}
|
||
// find the last operation of the previous periode
|
||
$min=getDbValue($p_cn,"select max (c_id) from centralized where c_jrn_def=$p_jrn_id ".
|
||
" and c_date < (select p_start from parm_periode where p_id = $p_from)");
|
||
if ($min == "" ) return 0;
|
||
// Find Exercice
|
||
$Exercice=get_exercice($p_cn,$p_from);
|
||
|
||
$a_Tva=get_array($p_cn,"select tva_id,tva_label,tva_poste from tva_rate where tva_rate != 0.0000 order by tva_id");
|
||
|
||
// Compute VAT
|
||
foreach ($a_Tva as $line_tva)
|
||
{
|
||
list ($deb,$cred)=split(',',$line_tva['tva_poste']);
|
||
if ( $p_jrn_type == 'ACH' )
|
||
$ctva=$deb;
|
||
else
|
||
$ctva=$cred;
|
||
$sum_deb=getDbValue($p_cn,"select sum(j_montant) from (select distinct c_internal,j_montant ".
|
||
" from jrnx join centralized on (j_grpt=c_grp) ".
|
||
" where c_id < $min and j_poste = '$ctva' and j_debit='t' and ".
|
||
" c_jrn_def=$p_jrn_id and j_tech_per in ".
|
||
" (select p_id from parm_periode where p_exercice='$Exercice') ) as w");
|
||
|
||
$sum_cred=getDbValue($p_cn,"select sum(j_montant) from (select distinct c_internal,j_montant ".
|
||
" from jrnx join centralized on (j_grpt=c_grp) ".
|
||
" where c_id < $min and j_poste = '$ctva' and j_debit='f' and ".
|
||
" c_jrn_def=$p_jrn_id and j_tech_per in ".
|
||
" (select p_id from parm_periode where p_exercice='$Exercice') ) as w");
|
||
|
||
|
||
|
||
$ix=$line_tva['tva_label'];
|
||
$arap[$ix]=($p_jrn_type=='ACH')?$sum_deb-$sum_cred:$sum_cred-$sum_deb;
|
||
}
|
||
// Previous period
|
||
$previous=getDbValue($p_cn,"select max(p_id) from parm_periode where ".
|
||
"p_end < (select p_end from parm_periode where p_id=$p_from) ".
|
||
" and p_start <= (select p_start from parm_periode where p_id=$p_from)");
|
||
|
||
$j=new Acc_Ledger($p_cn,$p_jrn_id);
|
||
$a=$j->get_rowSimple($previous,$previous,$cent='on');
|
||
$total_tvac=0.0;
|
||
$total_htva=0.0;
|
||
foreach ($a as $line) {
|
||
$total_tvac+=$line['TVAC'];
|
||
$total_htva+=$line['HTVA'];
|
||
}
|
||
return array($total_tvac,$total_htva);
|
||
}
|
||
/*!
|
||
* \brief Get the amount on each page
|
||
*
|
||
* \param $p_cn
|
||
* \param $p_jrnx_id jrnx.j_id
|
||
* \param $p_jrn_id jr_def_id
|
||
* \param $which LAST or FIRST
|
||
* \param $p_type valeur JRN GL-CENTRAL GL-NOCENTRAL
|
||
* \return array sum (deb) sum(cred)
|
||
*
|
||
*/
|
||
function get_rappel($p_cn,$p_jrnx_id,$p_jrn_id,$p_exercice,$which,$p_type,$p_central)
|
||
{
|
||
include_once("preference.php");
|
||
|
||
if ( $which == LAST)
|
||
$cmp="<=";
|
||
else
|
||
$cmp="<";
|
||
|
||
if ( $p_type == 1 ) {
|
||
// Vue filtree => Journaux
|
||
if ( $p_central == 0 ) { // Vue non centralis<69>e
|
||
return array(0,0);
|
||
} // p_central == 0
|
||
|
||
// Vue filtree => Journaux & Jrn centralis<69>
|
||
if ( $p_central == 1 ) {
|
||
$c_line=CountSql($p_cn,"select * from centralized left join parm_periode on c_periode=p_id ".
|
||
" where c_jrn_def=$p_jrn_id and p_exercice='".$p_exercice."'".
|
||
" and c_order $cmp $p_jrnx_id ");
|
||
|
||
if ($c_line == 0 ) { return array (0,0); }
|
||
$sql="select sum(c_montant) as tot_amount ".
|
||
" from centralized ".
|
||
" left join parm_periode on c_periode=p_id ".
|
||
" inner join jrn on jr_grpt_id=c_grp ".
|
||
" where c_jrn_def=$p_jrn_id and ".
|
||
" p_exercice='".$p_exercice."'".
|
||
" and c_order $cmp $p_jrnx_id " ;
|
||
$Res=ExecSql($p_cn,$sql." and c_debit='t' ");
|
||
if ( pg_NumRows($Res) == 0 )
|
||
$deb=0;
|
||
else {
|
||
$line=pg_fetch_array($Res,0);
|
||
$deb=$line['tot_amount'];
|
||
}
|
||
|
||
$Res=ExecSql($p_cn,$sql." and c_debit='f' ");
|
||
if ( pg_NumRows($Res) == 0 )
|
||
$cred=0;
|
||
else {
|
||
|
||
$line=pg_fetch_array($Res,0);
|
||
$cred=$line['tot_amount'];
|
||
}
|
||
echo_debug('impress_inc.php',__LINE__,"MONTANT $deb,$cred");
|
||
$a=array($deb,$cred);
|
||
return $a;
|
||
|
||
}
|
||
} // Type = jrn
|
||
if ($p_type==0 ) { // Si Grand Livre, prendre donn<6E>e centralis<69>e{
|
||
if ( $p_central == 1) {
|
||
$c_line=CountSql($p_cn,"select * from centralized left join parm_periode on c_periode=p_id ".
|
||
"where p_exercice='".$p_exercice."'".
|
||
" and c_id $cmp $p_jrnx_id ");
|
||
|
||
if ($c_line == 0 ) { return array (0,0); }
|
||
$sql="select sum(c_montant) as tot_amount ".
|
||
" from centralized ".
|
||
" left join parm_periode on c_periode=p_id ".
|
||
" where ".
|
||
" p_exercice='".$p_exercice."'".
|
||
" and c_order $cmp $p_jrnx_id " ;
|
||
$Res=ExecSql($p_cn,$sql." and c_debit='t' ");
|
||
if ( pg_NumRows($Res) == 0 )
|
||
$deb=0;
|
||
else {
|
||
$line=pg_fetch_array($Res,0);
|
||
$deb=$line['tot_amount'];
|
||
}
|
||
|
||
$Res=ExecSql($p_cn,$sql." and c_debit='f' ");
|
||
if ( pg_NumRows($Res) == 0 )
|
||
$cred=0;
|
||
else {
|
||
|
||
$line=pg_fetch_array($Res,0);
|
||
$cred=$line['tot_amount'];
|
||
}
|
||
echo_debug('impress_inc.php',__LINE__,"MONTANT $deb,$cred");
|
||
$a=array($deb,$cred);
|
||
return $a;
|
||
} // central == 1
|
||
else // Donn<6E>e non centralis<69>e => pas de rappel
|
||
{
|
||
if ($p_central== 0) { // Si Grand Livre, prendre donn<6E>e non centralis<69>e{
|
||
return array(0,0);
|
||
}
|
||
}//else
|
||
} // if type==0
|
||
|
||
}
|
||
|
||
/*! \brief Purpose Parse a formula
|
||
*
|
||
* \param $p_cn connexion
|
||
* \param $p_label
|
||
* \param $p_formula
|
||
* \param $p_eval true if we eval here otherwise the function returns
|
||
* a string which must be evaluated
|
||
* \param $p_type_date : type of the date 0 for accountant period or 1
|
||
* for calendar
|
||
* \return array
|
||
*
|
||
*
|
||
*/
|
||
function ParseFormula($p_cn,$p_label,$p_formula,$p_start,$p_end,$p_eval=true,$p_type_date=0)
|
||
{
|
||
|
||
echo_debug('impress_inc',__LINE__,'ParseFormula');
|
||
if ( CheckFormula($p_formula) == false) {
|
||
if ( $p_eval == true)
|
||
return array('desc'=>$p_label.' Erreur Formule!',
|
||
'montant'=>0);
|
||
else
|
||
return $p_formula;
|
||
|
||
}
|
||
if ( $p_type_date == 0 )
|
||
$cond=sql_filter_per($p_cn,$p_start,$p_end,'p_id','j_tech_per');
|
||
else
|
||
$cond="( j_date >= to_date('$p_start','DD.MM.YYYY') and j_date <= to_date('$p_end','DD.MM.YYYY'))";
|
||
|
||
include_once("class_acc_account.php");
|
||
while (ereg("(\[[0-9]*%*D*C*\])",$p_formula,$e) == true) {
|
||
|
||
// remove the [ ]
|
||
$x=$e;
|
||
$compute='all';
|
||
if ( strpos($e[0],'D') != 0 )
|
||
$compute='deb';
|
||
if ( strpos($e[0],'C') != 0 )
|
||
$compute='cred';
|
||
echo_debug(__FILE__,__LINE__,' $e = '.$e[0]);
|
||
$e[0]=str_replace ("[","",$e[0]);
|
||
$e[0]=str_replace ("]","",$e[0]);
|
||
$e[0]=str_replace ("D","",$e[0]);
|
||
$e[0]=str_replace ("C","",$e[0]);
|
||
echo_debug('impress_inc',__LINE__,"p_formula is $p_formula");
|
||
// If there is a FROM clause we must recompute
|
||
// the time cond
|
||
|
||
if ($p_type_date == 0 && ereg ("FROM=[0-9]+\.[0-9]+", $p_formula,$afrom) == true ){
|
||
// There is a FROM clause
|
||
// then we must modify the cond for the periode
|
||
$from=str_replace("FROM=","",$afrom[0]);
|
||
|
||
// Get the periode
|
||
/*! \note special value for the clause FROM=00.0000
|
||
*/
|
||
if ( $from == '00.0000' ) {
|
||
// retrieve the first month of this periode
|
||
$User=new cl_user($p_cn);
|
||
$user_periode=$User->getPeriode();
|
||
$periode=getDbValue($p_cn,
|
||
"select p_exercice from parm_periode where p_id=$user_periode");
|
||
$sql_per="select to_char(p_start,'MM.YYYY') as start from parm_periode where ".
|
||
" p_exercice='".$periode."' order by p_start";
|
||
$ret=getArray($p_cn,$sql_per);
|
||
$from=$ret[0]['start'];
|
||
|
||
}
|
||
$from=getPeriodeFromMonth($p_cn,$from);
|
||
|
||
// the clause from is something else
|
||
// Compute the cond
|
||
$cond=sql_filter_per($p_cn,$from,$p_end,'p_id','j_tech_per');
|
||
|
||
}
|
||
|
||
if ( strpos($p_formula,"FROM") != 0) {
|
||
// We remove FROM out of the p_formula
|
||
$p_formula=substr_replace($p_formula,"",strpos($p_formula,"FROM"));
|
||
}
|
||
|
||
// Get sum of account
|
||
$P=new Acc_Account($p_cn,$e[0]);
|
||
echo_debug(__FILE__.":".__LINE__." condition is $cond");
|
||
|
||
$detail=$P->get_solde_detail($cond);
|
||
|
||
|
||
if ( $compute=='all')
|
||
$i=$detail['solde'];
|
||
if ( $compute=='deb')
|
||
$i=$detail['debit'];
|
||
if ( $compute=='cred')
|
||
$i=$detail['credit'];
|
||
|
||
$p_formula=str_replace($x[0],$i,$p_formula);
|
||
|
||
}
|
||
|
||
// $p_eval is true then we eval and returns result
|
||
if ( $p_eval == true) {
|
||
$p_formula="\$result=".$p_formula.";";
|
||
echo_debug('impress_inc.php',__LINE__, $p_formula);
|
||
|
||
eval("$p_formula");
|
||
$aret=array('desc'=>$p_label,
|
||
'montant'=>$result);
|
||
return $aret;
|
||
} else {
|
||
// $p_eval is false we returns only the string
|
||
return $p_formula;
|
||
}
|
||
}
|
||
/*!
|
||
* \brief Parse the formula contained in the fo_formula
|
||
* field and return a array containing all the columns
|
||
*
|
||
* \param $p_cn connexion
|
||
* \param $p_label
|
||
* \param $p_formula
|
||
* \return array
|
||
*
|
||
*/
|
||
function GetFormulaValue($p_cn,$p_label,$p_formula,$p_cond)
|
||
{
|
||
$aret=array();
|
||
$l_debit=0;
|
||
$l_credit=0;
|
||
// somme debit
|
||
$Res=ExecSql($p_cn,"select sum (j_montant) as montant from
|
||
jrnx where $p_cond and j_debit='t' and j_poste like '$p_formula'");
|
||
if (pg_NumRows($Res)==0){
|
||
$l_debit=0;
|
||
} else {
|
||
$l=pg_fetch_array($Res,0);
|
||
$l_debit=$l['montant'];
|
||
}
|
||
// somme credit
|
||
$Res=ExecSql($p_cn,"select sum (j_montant) as montant from
|
||
jrnx where $p_cond and j_debit='f' and j_poste like '$p_formula'");
|
||
if (pg_NumRows($Res)==0) {
|
||
$l_credit=0;
|
||
} else {
|
||
$l=pg_fetch_array($Res,0);
|
||
$l_credit=$l['montant'];
|
||
}
|
||
|
||
if ( $l_credit==$l_debit) {
|
||
$aret=array('desc' => $p_label,
|
||
'montant' => '0',
|
||
'cmontant'=>0);
|
||
}
|
||
if ( $l_credit < $l_debit) {
|
||
$l2=sprintf("% .2f",$l_debit-$l_credit);
|
||
$aret=array('desc' => $p_label,
|
||
'montant' => $l2,
|
||
'cmontant'=>$l2);
|
||
}
|
||
if ( $l_credit>$l_debit) {
|
||
$l2=sprintf("(% .2f)",$l_credit-$l_debit);
|
||
$aret=array('desc' => $p_label,
|
||
'montant' => $l2,
|
||
'cmontant'=> $l_debit-$l_credit);
|
||
|
||
}
|
||
return $aret;
|
||
}
|
||
/*!
|
||
* \brief Check if formula doesn't contain
|
||
* php injection
|
||
* \param string
|
||
*
|
||
* \return true if the formula is good otherwise false
|
||
*/
|
||
function CheckFormula($p_string) {
|
||
// the ereg gets too complex if we want to add a test
|
||
// for parenthesis, math function...
|
||
// So I prefer remove them before testing
|
||
$p_string=str_replace("round","",$p_string);
|
||
$p_string=str_replace("abs","",$p_string);
|
||
$p_string=str_replace("(","",$p_string);
|
||
$p_string=str_replace(")","",$p_string);
|
||
// for the inline test like $a=(cond)?value:other;
|
||
$p_string=str_replace("?","+",$p_string);
|
||
$p_string=str_replace(":","+",$p_string);
|
||
$p_string=str_replace(">=","+",$p_string);
|
||
$p_string=str_replace("<=","+",$p_string);
|
||
$p_string=str_replace(">","+",$p_string);
|
||
$p_string=str_replace("<","+",$p_string);
|
||
// eat Space
|
||
$p_string=str_replace(" ","",$p_string);
|
||
// Remove D/C
|
||
$p_string=str_replace("C","",$p_string);
|
||
$p_string=str_replace("D","",$p_string);
|
||
if ( ereg ("^(\\$[a-zA-Z]*[0-9]*=){0,1}((\[{0,1}[0-9]+\.*[0-9]*%{0,1}\]{0,1})+ *([+-\*/])* *(\[{0,1}[0-9]+\.*[0-9]*%{0,1}\]{0,1})*)*(([+-\*/])*\\$([a-zA-Z])+[0-9]*([+-\*/])*)* *( *FROM=[0-9][0-0].20[0-9][0-9]){0,1}$",$p_string) == false)
|
||
{
|
||
return false;
|
||
} else {
|
||
return true;
|
||
}
|
||
}
|
||
|
||
?>
|