mirror of
https://github.com/YunoHost-Apps/noalyss_ynh.git
synced 2024-09-03 19:46:20 +02:00
285 lines
12 KiB
PHP
285 lines
12 KiB
PHP
|
<?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.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 Acc_Balance($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');
|
||
|
|
|
||
|
|
|
||
|
|
$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 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)
|
||
|
|
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
|
||
|
|
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)
|
||
|
|
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)
|
||
|
|
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 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 upper(j_poste::text) as poste,sum(deb) as sum_deb, sum(cred) as sum_cred 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)
|
||
|
|
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_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);
|
||
|
|
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+= $a['sum_cred_previous'];
|
||
|
|
$tot_deb_previous+= $a['sum_deb_previous'];
|
||
|
|
$tot_deb_saldo_previous+= $a['solde_deb_previous'];
|
||
|
|
$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;
|
||
|
|
$tot_cred+= $a['sum_cred'];
|
||
|
|
$tot_deb+= $a['sum_deb'];
|
||
|
|
$tot_deb_saldo+= $a['solde_deb'];
|
||
|
|
$tot_cred_saldo+= $a['solde_cred'];
|
||
|
|
|
||
|
|
|
||
|
|
}//for i
|
||
|
|
// Add the saldo
|
||
|
|
$i+=1;
|
||
|
|
$a['poste']="";
|
||
|
|
$a['label']="Totaux ";
|
||
|
|
$a['sum_deb']=$tot_deb;
|
||
|
|
$a['sum_cred']=$tot_cred;
|
||
|
|
$a['solde_deb']=$tot_deb_saldo;
|
||
|
|
$a['solde_cred']=$tot_cred_saldo;
|
||
|
|
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'];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
static function test_me ()
|
||
|
|
{
|
||
|
|
require 'class_user.php';
|
||
|
|
global $g_user;
|
||
|
|
$cn=new Database(dossier::id());
|
||
|
|
$g_user=new User($cn);
|
||
|
|
$a=new Acc_Balance($cn);
|
||
|
|
$a->get_row(163, 175, 1);
|
||
|
|
var_dump($a);
|
||
|
|
}
|
||
|
|
}
|