YunoHost-Apps/noalyss_ynh
1
0
Fork 0
mirror of https://github.com/YunoHost-Apps/noalyss_ynh.git synced 2024-09-03 19:46:20 +02:00
Code Issues Activity Actions
noalyss_ynh/sources/include/class/acc_balance.class.php
dudjima 3a905a4a87 Update sources 7.01 
Update files from sources with last update on noalyss.eu
2018-04-13 18:58:28 +02:00

461 lines
19 KiB
PHP
Raw Blame History

<?php
/*
* This file is part of NOALYSS.
*
* NOALYSS 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.
*
* NOALYSS 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 NOALYSS; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
// Copyright Author Dany De Bontridder danydb@aevalys.eu
/*! \file
* \brief Class for manipulating data to print the balance of account
*/
/*!
* \brief Class for manipulating data to print the balance of account
*/
require_once NOALYSS_INCLUDE.'/class/acc_account.class.php';
class Acc_Balance
{
var $db; /*! < database connection */
var $row; /*! < row for ledger*/
var $jrn; /*!< idx of a table of ledger create by user->get_ledger */
var $from_poste; /*!< from_poste filter on the post */
var $to_poste; /*!< to_poste filter on the post*/
var $unsold; /**= 0) */
function __construct($p_cn)
{
$this->db=$p_cn;
$this->jrn=null;
$from_poste="";
$to_poste="";
$unsold=false;
}
/*!
* \brief retrieve all the row from the ledger in the range of a periode
* \param $p_from_periode start periode (p_id)
* \param $p_to_periode end periode (p_id)
* \param $p_previous_exc previous exercice 1= yes default =0
*
* \return a double array
* array of
* - $a['poste']
* - $a['label']
* - $a['sum_deb']
* - $a['sum_cred']
* - $a['solde_deb']
* - $a['solde_cred']
*/
function get_row($p_from_periode,$p_to_periode,$p_previous_exc=0)
{
global $g_user;
// filter on requested periode
$per_sql=sql_filter_per($this->db,$p_from_periode,$p_to_periode,'p_id','j_tech_per');
bcscale(2);
$and="";
$jrn="";
$from_poste="";
$to_poste="";
/* if several ledgers are asked then we filter here */
if ($this->jrn!== null)
{
/**
*@file
*@bug the get_ledger here is not valid and useless we just need a list of the
* asked ledgers
*/
$jrn=" j_jrn_def in (";
$comma='';
for ($e=0;$e<count($this->jrn);$e++)
{
$jrn.=$comma.$this->jrn[$e];
$comma=',';
}
$jrn.=')';
$and=" and ";
}
if ( strlen(trim($this->from_poste)) != 0 && $this->from_poste!=-1 )
{
$from_poste=" $and j_poste::text >= '".$this->from_poste."'";
$and=" and ";
}
if ( strlen(trim($this->to_poste)) != 0 && $this->to_poste!=-1 )
{
$to_poste=" $and j_poste::text <= '".$this->to_poste."'";
$and=" and ";
}
$filter_sql=$g_user->get_ledger_sql('ALL',3);
switch ($p_previous_exc)
{
case 0:
// build query
$sql="select j_poste as poste,
sum(deb) as sum_deb,
sum(cred) as sum_cred,
sum(deb_op) as sum_deb_ope ,
sum(cred_op) as sum_cred_ope
from
( select j_poste,
case when j_debit='t' then j_montant else 0 end as deb,
case when j_debit='f' then j_montant else 0 end as cred,
case when j_debit='t' and jr_optype='OPE' then j_montant else 0 end as deb_op,
case when j_debit='f' and jr_optype='OPE' then j_montant else 0 end as cred_op
from jrnx join tmp_pcmn on (j_poste=pcm_val)
left join parm_periode on (j_tech_per = p_id)
join jrn_def on (j_jrn_def=jrn_def_id)
join jrn on (j_grpt=jr_grpt_id)
where
$jrn $from_poste $to_poste
$and $filter_sql
and
$per_sql ) as m group by 1 order by 1";
break;
case 1:
/*
* retrieve balance previous exercice
*/
$periode=new Periode($this->db);
$previous_exc=$periode->get_exercice($p_from_periode)-1;
try {
list($previous_start,$previous_end)=$periode->get_limit($previous_exc);
$per_sql_previous=sql_filter_per($this->db,$previous_start->p_id,$previous_end->p_id,'p_id','j_tech_per');
$sql="
with m as
( select j_poste,sum(deb) as sdeb,sum(cred) as scred,
sum(deb_op) as sum_deb_ope ,
sum(cred_op) as sum_cred_ope
from
(select j_poste,
case when j_debit='t' then j_montant else 0 end as deb,
case when j_debit='f' then j_montant else 0 end as cred ,
case when j_debit='t' and jr_optype='OPE' then j_montant else 0 end as deb_op,
case when j_debit='f' and jr_optype='OPE' then j_montant else 0 end as cred_op
from jrnx
join jrn on (j_grpt=jr_grpt_id)
join tmp_pcmn on (j_poste=pcm_val)
left join parm_periode on (j_tech_per = p_id)
join jrn_def on (j_jrn_def=jrn_def_id)
where
$jrn $from_poste $to_poste
$and $filter_sql and $per_sql
) as sub_m group by j_poste order by j_poste ) ,
p as ( select j_poste,sum(deb) as sdeb,
sum(cred) as scred
from
(select j_poste,
case when j_debit='t' then j_montant else 0 end as deb,
case when j_debit='f' then j_montant else 0 end as cred
from jrnx join tmp_pcmn on (j_poste=pcm_val)
left join parm_periode on (j_tech_per = p_id)
join jrn_def on (j_jrn_def=jrn_def_id)
join jrn on (j_grpt=jr_grpt_id)
where
$jrn $from_poste $to_poste
$and $filter_sql and $per_sql_previous) as sub_p group by j_poste order by j_poste)
select coalesce(m.j_poste,p.j_poste) as poste
,coalesce(m.sdeb,0) as sum_deb
, coalesce(m.scred,0) as sum_cred
,coalesce(p.sdeb,0) as sum_deb_previous
, coalesce(p.scred,0) as sum_cred_previous
,coalesce(sum_deb_ope,0) as sum_deb_ope
,coalesce(sum_cred_ope,0) as sum_cred_ope
from m full join p on (p.j_poste=m.j_poste)
order by poste";
} catch (Exception $exc) {
$p_previous_exc=0;
/*
* no previous exercice
*/
$sql="select j_poste as poste,
sum(deb) as sum_deb,
sum(cred) as sum_cred,
sum(deb_op) as sum_deb_ope ,
sum(cred_op) as sum_cred_ope
from
( select j_poste,
case when j_debit='t' then j_montant else 0 end as deb,
case when j_debit='f' then j_montant else 0 end as cred,
case when j_debit='t' and jr_optype='OPE' then j_montant else 0 end as deb_op,
case when j_debit='f' and jr_optype='OPE' then j_montant else 0 end as cred_op
from jrnx join tmp_pcmn on (j_poste=pcm_val)
left join parm_periode on (j_tech_per = p_id)
join jrn_def on (j_jrn_def=jrn_def_id)
join jrn on (j_grpt=jr_grpt_id)
where
$jrn $from_poste $to_poste
$and $filter_sql
and
$per_sql ) as m group by poste order by poste";
}
break;
}
$cn=clone $this->db;
$Res=$this->db->exec_sql($sql);
$tot_cred= 0.0;
$tot_deb= 0.0;
$tot_deb_saldo=0.0;
$tot_cred_saldo=0.0;
$tot_cred_ope= 0.0;
$tot_deb_ope= 0.0;
$tot_deb_saldo_ope=0.0;
$tot_cred_saldo_ope=0.0;
$tot_cred_previous= 0.0;
$tot_deb_previous= 0.0;
$tot_deb_saldo_previous=0.0;
$tot_cred_saldo_previous=0.0;
$M=$this->db->size();
// Load the array
for ($i=0; $i <$M;$i++)
{
$r=$this->db->fetch($i);
$poste=new Acc_Account($cn,$r['poste']);
$a['poste']=$r['poste'];
$a['label']=mb_substr($poste->get_lib(),0,40);
$a['sum_deb']=round($r['sum_deb'],2);
$a['sum_cred']=round($r['sum_cred'],2);
$a['solde_deb']=round(( $a['sum_deb'] >= $a['sum_cred'] )? $a['sum_deb']- $a['sum_cred']:0,2);
$a['solde_cred']=round(( $a['sum_deb'] <= $a['sum_cred'] )?$a['sum_cred']-$a['sum_deb']:0,2);
// opening
$a['sum_deb_ope']=round($r['sum_deb_ope'],2);
$a['sum_cred_ope']=round($r['sum_cred_ope'],2);
$a['solde_deb_ope']=round(( $a['sum_deb_ope'] >= $a['sum_cred_ope'] )? $a['sum_deb_ope']- $a['sum_cred_ope']:0,2);
$a['solde_cred_ope']=round(( $a['sum_deb_ope'] <= $a['sum_cred_ope'] )?$a['sum_cred_ope']-$a['sum_deb_ope']:0,2);
if ($p_previous_exc==1)
{
$a['sum_deb_previous']=round($r['sum_deb_previous'],2);
$a['sum_cred_previous']=round($r['sum_cred_previous'],2);
$a['solde_deb_previous']=round(( $a['sum_deb_previous'] >= $a['sum_cred_previous'] )? $a['sum_deb_previous']- $a['sum_cred_previous']:0,2);
$a['solde_cred_previous']=round(( $a['sum_deb_previous'] <= $a['sum_cred_previous'] )?$a['sum_cred_previous']-$a['sum_deb_previous']:0,2);
$tot_cred_previous = bcadd ($tot_cred_previous, $a['sum_cred_previous']);
$tot_deb_previous = bcadd( $tot_deb_previous,$a['sum_deb_previous']);
$tot_deb_saldo_previous = bcadd ($tot_deb_saldo_previous ,$a['solde_deb_previous']);
$tot_cred_saldo_previous = bcadd ($tot_cred_saldo_previous,$a['solde_cred_previous']);
}
if ($p_previous_exc==0 && $this->unsold==true && $a['solde_cred']==0 && $a['solde_deb']==0) continue;
if ($p_previous_exc==1 && $this->unsold==true && $a['solde_cred']==0 && $a['solde_deb']==0 && $a['solde_cred_previous']==0 && $a['solde_deb_previous']==0) continue;
$array[$i]=$a;
// Normal op
$tot_cred= bcadd ($tot_cred,$a['sum_cred']);
$tot_deb= bcadd($tot_deb, $a['sum_deb']);
$tot_deb_saldo= bcadd($tot_deb_saldo, $a['solde_deb']);
$tot_cred_saldo= bcadd($tot_cred_saldo,$a['solde_cred']);
// Opening op.
$tot_cred_ope= bcadd ($tot_cred_ope,$a['sum_cred_ope']);
$tot_deb_ope= bcadd($tot_deb_ope, $a['sum_deb_ope']);
$tot_deb_saldo_ope= bcadd($tot_deb_saldo_ope, $a['solde_deb_ope']);
$tot_cred_saldo_ope= bcadd($tot_cred_saldo_ope,$a['solde_cred_ope']);
}//for i
// Add the saldo
$i+=1;
$delta=bcsub($tot_deb,$tot_cred);
$side_delta=($delta<0)?"C":"D";
$side_delta=($delta==0)?"=":$side_delta;
$a['poste']="";
$a['label']="Totaux ".nbm(abs($delta)).$side_delta;
$a['sum_deb']=$tot_deb;
$a['sum_cred']=$tot_cred;
$a['solde_deb']=$tot_deb_saldo;
$a['solde_cred']=$tot_cred_saldo;
$a['sum_deb_ope']=$tot_deb_ope;
$a['sum_cred_ope']=$tot_cred_ope;
$a['solde_deb_ope']=$tot_deb_saldo_ope;
$a['solde_cred_ope']=$tot_cred_saldo_ope;
if ($p_previous_exc==1) {
$a['sum_deb_previous']=$tot_deb_previous;
$a['sum_cred_previous']=$tot_cred_previous;
$a['solde_deb_previous']=$tot_deb_saldo_previous;
$a['solde_cred_previous']=$tot_cred_saldo_previous;
}
$array[$i]=$a;
$this->row=$array;
return $array;
}
/**
* set the $this->jrn to the cat
* @todo Cette function semble ne pas fonctionner correctement
*/
function filter_cat($p_array)
{
if ( empty($p_array) )
{
$this->jrn=null;
return;
}
/* get the list of jrn of the cat. */
$array=Acc_Ledger::array_cat();
$jrn=array();
for ($e=0;$e<count($array);$e++)
{
if ( isset($p_array[$e]))
{
$t_a=$this->db->get_array('select jrn_def_id from jrn_def where jrn_def_type=$1',array($array[$e]['cat']));
for ( $f=0;$f < count($t_a);$f++) $this->jrn[]=$t_a[$f]['jrn_def_id'];
}
}
}
/**
* @brief create an empty array for computing the summary
*/
function summary_init()
{
$array=[];
$array["1_5"]=["deb"=>0,"cred"=>0];
$array["6"]=["deb"=>0,"cred"=>0];
$array["7"]=["deb"=>0,"cred"=>0];
return $array;
}
/**
* Add the current amount (d /c) to the right item in the array, in order
* to compute a summary (1 to 5 , 6 charge and 7 profit ),
* the return value is an array
* @see Acc_Balance::summary_init()
* @param array $p_array array with the result
* @param string $p_accounting accounting
* @param numeric $p_deb
* @param numeric $p_cred
* @return array
*/
function summary_add($p_array,$p_accounting,$p_deb,$p_cred)
{
if (trim($p_accounting)=="") return $p_array;
// Summary
$first_digit=trim($p_accounting);
$first_digit_trim=$first_digit[0];
if ( $first_digit_trim >0 && $first_digit_trim < 6) {
$p_array["1_5"]["deb"]=bcadd( $p_array["1_5"]["deb"],$p_deb);
$p_array["1_5"]["cred"]=bcadd( $p_array["1_5"]["cred"],$p_cred);
}
elseif ($first_digit_trim == "6") {
$p_array["6"]["deb"]=bcadd( $p_array["6"]["deb"],$p_deb);
$p_array["6"]["cred"]=bcadd( $p_array["6"]["cred"],$p_cred);
}
elseif ($first_digit_trim=="7") {
$p_array["7"]["deb"]=bcadd( $p_array["7"]["deb"],$p_deb);
$p_array["7"]["cred"]=bcadd( $p_array["7"]["cred"],$p_cred);
}
return $p_array;
}
/**
* Display the summary of result in HTML
* @see Acc_Balance::summary_init()
* @param array $p_array
*/
function summary_display($p_array)
{
echo "<table>";
echo "<tr>";
echo td(_("Class 1-5"));
$diff=bcsub($p_array["1_5"]["deb"],$p_array["1_5"]["cred"]);
echo td(nbm(abs($diff),2),' class="num"');
$side=($diff < 0)?"C":"D";
$side=($diff == 0)?"=":$side;
echo td($side);
echo "</tr>";
echo "<tr>";
echo td(_("Class 6"));
$diff6=bcsub($p_array["6"]["deb"],$p_array["6"]["cred"]);
echo td(nbm(abs($diff6),2),' class="num"');
$side=($diff6 < 0)?"C":"D";
$side=($diff6 == 0)?"=":$side;
echo td($side);
echo "</tr>";
echo "<tr>";
echo td(_("Class 7"));
$diff7=bcsub($p_array["7"]["deb"],$p_array["7"]["cred"]);
echo td(nbm(abs($diff7),2),' class="num"');
$side=($diff7 < 0)?"C":"D";
$side=($diff7 == 0)?"=":$side;
echo td($side);
echo "</tr>";
echo "<tr>";
echo td(_("Solde 6/7"));
$diff=bcadd($diff6,$diff7);
echo td(nbm(abs($diff),2),' class="num"');
$side=($diff < 0)?"C":"D";
$side=($diff == 0)?"=":$side;
echo td($side);
echo "</tr>";
echo "</table>";
}
/**
* Display the summary of result in PDF
* @param array $p_array
* @param PDF $p_pdf
* @see Acc_Balance::summary_init()
*/
function summary_display_pdf($p_array,$p_pdf)
{
$p_pdf->write_cell(30,6,_("Class 1-5"));
$diff=bcsub($p_array["1_5"]["deb"],$p_array["1_5"]["cred"]);
$p_pdf->write_cell(50,6,
nbm(abs($diff),2),0,0,'R');
$side=($diff < 0)?"C":"D";
$side=($diff == 0)?"=":$side;
$p_pdf->write_cell(10,6,$side);
$p_pdf->line_new();
$p_pdf->write_cell(30,6,_("Class 6"));
$diff6=bcsub($p_array["6"]["deb"],$p_array["6"]["cred"]);
$p_pdf->write_cell(50,6,nbm(abs($diff6),2),0,0,'R');
$side=($diff6 < 0)?"C":"D";
$side=($diff6 == 0)?"=":$side;
$p_pdf->write_cell(10,6,$side);
$p_pdf->line_new();
$p_pdf->write_cell(30,6,_("Class 7"));
$diff7=bcsub($p_array["7"]["deb"],$p_array["7"]["cred"]);
$p_pdf->write_cell(50,6,nbm(abs($diff7),2),0,0,'R');
$side=($diff7 < 0)?"C":"D";
$side=($diff7 == 0)?"=":$side;
$p_pdf->write_cell(10,6,$side);
$p_pdf->line_new();
$p_pdf->write_cell(30,6,_("Solde 6/7"));
$diff=bcadd($diff6,$diff7);
$p_pdf->write_cell(50,6,nbm(abs($diff),2),0,0,'R');
$side=($diff < 0)?"C":"D";
$side=($diff == 0)?"=":$side;
$p_pdf->write_cell(10,6,$side);
$p_pdf->line_new();
}
static function test_me ()
{
require 'class/user.class.php';
global $g_user;
$cn=Dossier::connect();
$g_user=new User($cn);
$a=new Acc_Balance($cn);
$a->get_row(163, 175, 1);
var_dump($a);
}
}
Reference in a new issue View git blame Copy permalink