115 lines
3.4 KiB
PHP
115 lines
3.4 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 Return the balance in CSV format
|
|
*/
|
|
if ( ! defined ('ALLOWED') ) die('Appel direct ne sont pas permis');
|
|
|
|
include_once ("lib/ac_common.php");
|
|
include_once("class/acc_balance.class.php");
|
|
|
|
$http=new HttpInput();
|
|
$gDossier=dossier::id();
|
|
|
|
$cn=Dossier::connect();
|
|
bcscale(2);
|
|
|
|
$http=new HttpInput();
|
|
$export=new Noalyss_Csv('balance');
|
|
$bal=new Acc_Balance($cn);
|
|
$bal->jrn=null;
|
|
$p_filter=$http->get("p_filter");
|
|
switch( $p_filter)
|
|
{
|
|
case 0:
|
|
$bal->jrn=null;
|
|
break;
|
|
case 1:
|
|
if ( isset($_GET['r_jrn']))
|
|
{
|
|
$selected=$http->get('r_jrn');
|
|
$array_ledger=$g_user->get_ledger('ALL',3);
|
|
$array=get_array_column($array_ledger,'jrn_def_id');
|
|
for ($e=0;$e<count($selected);$e++)
|
|
{
|
|
if (isset ($selected[$e]) && in_array ($selected[$e],$array) )
|
|
$bal->jrn[]=$selected[$e];
|
|
}
|
|
}
|
|
break;
|
|
case 2:
|
|
if ( isset($_GET['r_cat'])) $bal->filter_cat($http->get('r_cat'));
|
|
break;
|
|
}
|
|
|
|
$bal->from_poste=$http->get('from_poste');
|
|
$bal->to_poste=$http->get('to_poste');
|
|
|
|
if (isset($_GET['unsold'])) $bal->unsold=true;
|
|
$prev = (isset($_GET['previous_exc'])) ? 1: 0;
|
|
|
|
$row=$bal->get_row($http->get('from_periode','number'),
|
|
$http->get('to_periode','number'),
|
|
$prev);
|
|
$prev = ( isset ($row[0]['sum_cred_previous'])) ?1:0;
|
|
$title=array('poste','libelle');
|
|
if ($prev == 1 ) $title=array_merge($title,array('deb n-1','cred n-1','solde n-1','d/c;'));
|
|
$title=array_merge($title,array(_('Débit'),_('Crédit'),_("Solde débiteur"),_("Solde créditeur")));
|
|
|
|
$export->send_header();
|
|
$pstart = new Periode($cn,$http->get("from_periode"));
|
|
$pend= new Periode($cn,$http->get("to_periode"));
|
|
|
|
$export->add(sprintf (_("balance du %s au %s"),$pstart->first_day(),$pend->last_day()));
|
|
$export->write();
|
|
$export->write_header($title);
|
|
|
|
foreach ($row as $r)
|
|
{
|
|
$export->add($r['poste']);
|
|
$export->add($r['label']);
|
|
|
|
if ( $prev == 1 )
|
|
{
|
|
$delta=bcsub($r['solde_deb_previous'],$r['solde_cred_previous']);
|
|
$sign=($delta<0)?'C':'D';
|
|
$sign=($delta == 0)?'=':$sign;
|
|
$export->add($r['sum_deb_previous'],"number");
|
|
$export->add($r['sum_cred_previous'],"number");
|
|
$export->add(abs($delta),"number");
|
|
$export->add($sign);
|
|
|
|
}
|
|
$delta=bcsub($r['solde_deb'],$r['solde_cred']);
|
|
$export->add($r['sum_deb'],"number");
|
|
$export->add($r['sum_cred'],"number");
|
|
|
|
if ( $delta < 0 ){
|
|
$export->add("0","number");
|
|
$export->add(abs($delta),"number");
|
|
}else {
|
|
$export->add(abs($delta),"number");
|
|
$export->add("0","number");
|
|
}
|
|
$export->write();
|
|
}
|
|
|
|
|
|
?>
|