admingit/altocompta
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix problem with total in balance export

Browse source
This commit is contained in:
Dany De Bontridder 2019-01-08 17:53:53 +01:00
parent 7b488dfd39
commit 910c31ab7d
2 changed files with 248 additions and 254 deletions
Download patch file Download diff file Expand all files Collapse all files

2
include/class/acc_balance.class.php
View file

@ -311,7 +311,7 @@ class Acc_Balance
/* get the list of jrn of the cat. */
$array=Acc_Ledger::array_cat();
$jrn=array();
$this->jrn=array();
for ($e=0;$e<count($array);$e++)
{
if ( isset($p_array[$e]))

500
include/export/export_balance_pdf.php
View file

@ -29,307 +29,302 @@
* \param e_comment invoice number
*/
// Copyright Author Dany De Bontridder danydb@aevalys.eu
if ( ! defined ('ALLOWED') ) die('Appel direct ne sont pas permis');
if (!defined('ALLOWED')) die('Appel direct ne sont pas permis');
include_once("lib/ac_common.php");
require_once NOALYSS_INCLUDE.'/lib/database.class.php';
require_once NOALYSS_INCLUDE . '/lib/database.class.php';
include_once("class/acc_balance.class.php");
require_once NOALYSS_INCLUDE.'/header_print.php';
require_once NOALYSS_INCLUDE.'/class/dossier.class.php';
require_once NOALYSS_INCLUDE.'/lib/pdf.class.php';
require_once NOALYSS_INCLUDE.'/lib/http_input.class.php';
$http=new HttpInput();
require_once NOALYSS_INCLUDE . '/header_print.php';
require_once NOALYSS_INCLUDE . '/class/dossier.class.php';
require_once NOALYSS_INCLUDE . '/lib/pdf.class.php';
require_once NOALYSS_INCLUDE . '/lib/http_input.class.php';
$http = new HttpInput();
$gDossier=dossier::id();
$gDossier = dossier::id();
bcscale(4);
$cn=Dossier::connect();
$rep=new Database();
require_once NOALYSS_INCLUDE.'/class/user.class.php';
$cn = Dossier::connect();
$rep = new Database();
require_once NOALYSS_INCLUDE . '/class/user.class.php';
$g_user->Check();
$bal=new Acc_Balance($cn);
try
{
$from_periode=$http->request("from_periode");
$to_periode=$http->request("to_periode");
$from_poste=$http->request("from_poste");
$to_poste=$http->request("to_poste");
$p_filter=$http->request("p_filter","string");
}
catch (Exception $exc)
{
$bal = new Acc_Balance($cn);
try {
$from_periode = $http->request("from_periode");
$to_periode = $http->request("to_periode");
$from_poste = $http->request("from_poste");
$to_poste = $http->request("to_poste");
$p_filter = $http->request("p_filter", "string");
} catch (Exception $exc) {
error_log("Missing parameters");
error_log($exc->getTraceAsString());
return;
}
// Compute for the summary
$summary_tab=$bal->summary_init();
$summary_prev_tab=$bal->summary_init();
$is_summary=$http->get("summary","string", 0);
$bal->jrn=null;
switch( $p_filter)
{
case 0:
$bal->jrn=null;
break;
case 1:
if ( isset($_GET['r_jrn']))
{
$selected=$_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];
$summary_tab = $bal->summary_init();
$summary_prev_tab = $bal->summary_init();
$is_summary = $http->get("summary", "string", 0);
$bal->jrn = null;
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])
&& isNumber($selected[$e]) == 1
&& in_array($selected[$e], $array)) {
$bal->jrn[] = $selected[$e];
}
}
}
}
break;
case 2:
if ( isset($_GET['r_cat'])) $bal->filter_cat($_GET['r_cat']);
break;
break;
case 2:
if (isset($_GET['r_cat'])) $bal->filter_cat($http->get("r_cat"));
break;
}
$bal->from_poste=$from_poste;
$bal->to_poste=$to_poste;
if (isset($_GET['unsold'])) $bal->unsold=true;
$previous=(isset($_GET['previous_exc']))?1:0;
$array=$bal->get_row($from_periode,$to_periode,$previous);
$bal->from_poste = $from_poste;
$bal->to_poste = $to_poste;
if (isset($_GET['unsold'])) $bal->unsold = true;
$previous = (isset($_GET['previous_exc'])) ? 1 : 0;
$previous= (isset ($array[0]['sum_cred_previous']))?1:0;
$array = $bal->get_row($from_periode, $to_periode, $previous);
$previous = (isset ($array[0]['sum_cred_previous'])) ? 1 : 0;
if ( sizeof($array) == 0 )
{
if (sizeof($array) == 0) {
exit();
}
$pPeriode=new Periode($cn);
$a=$pPeriode->get_date_limit($from_periode);
$b=$pPeriode->get_date_limit($to_periode);
$per_text=" du ".$a['p_start']." au ".$b['p_end'];
$pPeriode = new Periode($cn);
$a = $pPeriode->get_date_limit($from_periode);
$b = $pPeriode->get_date_limit($to_periode);
$per_text = sprintf(_("Du %s au %s" ), $a['p_start'] ,$b['p_end']);
// If compare with previous exercice ,
// we use the landscape mode
if ($previous == 1 ) {
$pdf=new PDFLand($cn);
if ($previous == 1) {
$pdf = new PDFLand($cn);
} else {
$pdf= new PDF($cn);
$pdf = new PDF($cn);
}
$pdf->setDossierInfo(" Balance ".$per_text);
$pdf->setDossierInfo(" Balance " . $per_text);
$pdf->AliasNbPages();
$pdf->AddPage();
$pdf->SetAuthor('NOALYSS');
$pdf->SetFont('DejaVuCond','',7);
$pdf->setTitle(_("Balance comptable"),true);
$pdf->write_cell(30,6,_('poste'));
$pdf->LongLine(60,6,_('Libellé'));
if ($previous == 1 ){
$pdf->write_cell(20,6,'Débit N-1',0,0,'R');
$pdf->write_cell(20,6,'Crédit N-1',0,0,'R');
$pdf->write_cell(20,6,'Solde N-1',0,0,'R');
$pdf->SetFont('DejaVuCond', '', 7);
$pdf->setTitle(_("Balance comptable"), true);
$pdf->write_cell(30, 6, _('poste'));
$pdf->LongLine(60, 6, _('Libellé'));
if ($previous == 1) {
$pdf->write_cell(20, 6, 'Débit N-1', 0, 0, 'R');
$pdf->write_cell(20, 6, 'Crédit N-1', 0, 0, 'R');
$pdf->write_cell(20, 6, 'Solde N-1', 0, 0, 'R');
}
$pdf->write_cell(25,6,_('Ouverture'),0,0,'R');
$pdf->write_cell(25,6,_('Total Débit'),0,0,'R');
$pdf->write_cell(25,6,_('Total Crédit'),0,0,'R');
$pdf->write_cell(25,6,_('Solde Débiteur'),0,0,'R');
$pdf->write_cell(25, 6, _('Ouverture'), 0, 0, 'R');
$pdf->write_cell(25, 6, _('Total Débit'), 0, 0, 'R');
$pdf->write_cell(25, 6, _('Total Crédit'), 0, 0, 'R');
$pdf->write_cell(25, 6, _('Solde'), 0, 0, 'R');
$pdf->line_new();
$pdf->SetFont('DejaVuCond','',8);
$tp_deb=0;
$tp_cred=0;
$tp_sold=0;
$tp_solc=0;
$tp_deb_previous=0;
$tp_cred_previous=0;
$tp_sold_previous=0;
$tp_solc_previous=0;
if ( $previous == 1) {
$a_sum=array('sum_cred','sum_deb','solde_deb','solde_cred','sum_cred_previous','sum_deb_previous','solde_deb_previous','solde_cred_previous','sum_cred_ope','sum_deb_ope');
$pdf->SetFont('DejaVuCond', '', 8);
$tp_deb = 0;
$tp_cred = 0;
$tp_sold = 0;
$tp_solc = 0;
$tot_opening = 0;
$tp_deb_previous = 0;
$tp_cred_previous = 0;
$tp_sold_previous = 0;
$tp_solc_previous = 0;
if ($previous == 1) {
$a_sum = array('sum_cred', 'sum_deb', 'solde_deb', 'solde_cred', 'sum_cred_previous', 'sum_deb_previous', 'solde_deb_previous', 'solde_cred_previous', 'sum_cred_ope', 'sum_deb_ope');
} else {
$a_sum = array('sum_cred', 'sum_deb', 'solde_deb', 'solde_cred', 'sum_cred_ope', 'sum_deb_ope');
}
else {
$a_sum=array('sum_cred','sum_deb','solde_deb','solde_cred','sum_cred_ope','sum_deb_ope') ;
foreach ($a_sum as $a) {
$nlvl1[$a] = 0;
$nlvl2[$a] = 0;
$nlvl3[$a] = 0;
}
foreach($a_sum as $a)
{
$nlvl1[$a]=0;
$nlvl2[$a]=0;
$nlvl3[$a]=0;
}
$lvl1_old='';
$lvl2_old='';
$lvl3_old='';
$lvl1_old = '';
$lvl2_old = '';
$lvl3_old = '';
bcscale(2);
if (! empty($array))
{
$i=0;
foreach ($array as $key=>$value)
{
$i++;
/*
* level x
*/
if ( $value['poste']=='') continue;
foreach (array(3,2,1) as $ind)
{
$r=$value;
if ( ! isset($_GET['lvl'.$ind]))continue;
if (!empty($array)) {
$i = 0;
foreach ($array as $key => $value) {
$i++;
/*
* level x
*/
if ($value['poste'] == '') continue;
foreach (array(3, 2, 1) as $ind) {
$r = $value;
if (!isset($_GET['lvl' . $ind])) continue;
if (${'lvl' . $ind . '_old'} == '') ${'lvl' . $ind . '_old'} = substr($r['poste'], 0, $ind);
if (${'lvl' . $ind . '_old'} != substr($r['poste'], 0, $ind)) {
$pdf->SetFont('DejaVu', 'B', 7);
$pdf->LongLine(30, 6, ${'lvl' . $ind . '_old'});
$delta = bcsub(${'nlvl' . $ind}['solde_cred'], ${'nlvl' . $ind}['solde_deb']);
$side = ($delta < 0) ? "D" : "C";
if ($previous == 1) {
$delta_previous = bcsub(${'nlvl' . $ind}['solde_cred_previous'], ${'nlvl' . $ind}['solde_deb_previous']);
$side_previous = ($delta_previous < 0) ? "D" : "C";
$pdf->write_cell(60, 6, " ", 0, 0, 'R');
$pdf->write_cell(22, 6, nbm(${'nlvl' . $ind}['sum_deb_previous']), 0, 0, 'R');
$pdf->write_cell(22, 6, nbm(${'nlvl' . $ind}['sum_cred_previous']), 0, 0, 'R');
$pdf->write_cell(22, 6, nbm(abs($delta_previous)) . " $side_previous", 0, 0, 'R');
if (${'lvl'.$ind.'_old'} == '') ${'lvl'.$ind.'_old'}=substr($r['poste'],0,$ind);
if ( ${'lvl'.$ind.'_old'} != substr($r['poste'],0,$ind))
{
$pdf->SetFont('DejaVu','B',7);
$pdf->LongLine(30,6,${'lvl'.$ind.'_old'});
$delta=bcsub(${'nlvl'.$ind}['solde_cred'],${'nlvl'.$ind}['solde_deb']);
$side=($delta< 0) ? "D":"C";
if ($previous == 1 ) {
$delta_previous=bcsub(${'nlvl'.$ind}['solde_cred_previous'],${'nlvl'.$ind}['solde_deb_previous']);
$side_previous=($delta_previous < 0) ? "D":"C";
$pdf->write_cell(60,6," ",0,0,'R');
$pdf->write_cell(22,6,nbm(${'nlvl'.$ind}['sum_deb_previous']),0,0,'R');
$pdf->write_cell(22,6,nbm(${'nlvl'.$ind}['sum_cred_previous']),0,0,'R');
$pdf->write_cell(22,6,nbm(abs($delta_previous))." $side_previous",0,0,'R');
} else {
$pdf->write_cell(60,6," ",0,0,'R');
$pdf->write_cell(60, 6, " ", 0, 0, 'R');
}
$solde_lv=bcsub(${'nlvl'.$ind}['sum_deb_ope'],${'nlvl'.$ind}['sum_cred_ope']);
$side_lv=($solde_lv<0)?" C":" D";
$side_lv=($solde_lv==0)?" ":$side_lv;
$pdf->write_cell(25,6,nbm(abs($solde_lv)).$side_lv,0,0,'R');
$pdf->write_cell(25,6,nbm(bcsub(${'nlvl'.$ind}['sum_deb'],${'nlvl'.$ind}['sum_deb_ope'])),0,0,'R');
$pdf->write_cell(25,6,nbm(bcsub(${'nlvl'.$ind}['sum_cred'],${'nlvl'.$ind}['sum_cred_ope'])),0,0,'R');
$solde_lv=bcsub(${'nlvl'.$ind}['solde_deb'],${'nlvl'.$ind}['solde_cred']);
$side_lv=($solde_lv>0)?"D":"C";
$side_lv=($solde_lv==0)?"":$side_lv;
$pdf->write_cell(25,6,nbm(abs($solde_lv))." $side_lv",0,0,'R');
$pdf->line_new();
$pdf->SetFont('DejaVuCond','',7);
${'lvl'.$ind.'_old'}=substr($r['poste'],0,$ind);
foreach($a_sum as $a)
{
${'nlvl'.$ind}[$a]=0;
}
}
}
foreach($a_sum as $a)
{
$nlvl1[$a]=bcadd($nlvl1[$a],$r[$a]);
$nlvl2[$a]=bcadd($nlvl2[$a],$r[$a]);
$nlvl3[$a]=bcadd($nlvl3[$a],$r[$a]);
}
$solde_lv = bcsub(${'nlvl' . $ind}['sum_deb_ope'], ${'nlvl' . $ind}['sum_cred_ope']);
$side_lv = ($solde_lv < 0) ? " C" : " D";
$side_lv = ($solde_lv == 0) ? " " : $side_lv;
$pdf->write_cell(25, 6, nbm(abs($solde_lv)) . $side_lv, 0, 0, 'R');
$pdf->write_cell(25, 6, nbm(bcsub(${'nlvl' . $ind}['sum_deb'], ${'nlvl' . $ind}['sum_deb_ope'])), 0, 0, 'R');
$pdf->write_cell(25, 6, nbm(bcsub(${'nlvl' . $ind}['sum_cred'], ${'nlvl' . $ind}['sum_cred_ope'])), 0, 0, 'R');
$solde_lv = bcsub(${'nlvl' . $ind}['solde_deb'], ${'nlvl' . $ind}['solde_cred']);
$side_lv = ($solde_lv > 0) ? "D" : "C";
$side_lv = ($solde_lv == 0) ? "" : $side_lv;
$pdf->write_cell(25, 6, nbm(abs($solde_lv)) . " $side_lv", 0, 0, 'R');
$pdf->line_new();
$pdf->SetFont('DejaVuCond', '', 7);
${'lvl' . $ind . '_old'} = substr($r['poste'], 0, $ind);
foreach ($a_sum as $a) {
${'nlvl' . $ind}[$a] = 0;
}
}
}
foreach ($a_sum as $a) {
$nlvl1[$a] = bcadd($nlvl1[$a], $r[$a]);
$nlvl2[$a] = bcadd($nlvl2[$a], $r[$a]);
$nlvl3[$a] = bcadd($nlvl3[$a], $r[$a]);
}
if ( $i % 2 == 0 )
{
$pdf->SetFillColor(220,221,255);
$fill=1;
}
else
{
$pdf->SetFillColor(0,0,0);
$fill=0;
}
if ($i % 2 == 0) {
$pdf->SetFillColor(220, 221, 255);
$fill = 1;
} else {
$pdf->SetFillColor(0, 0, 0);
$fill = 0;
}
$pdf->LongLine(30, 6, $value['poste'], 0, 'L', $fill);
$pdf->LongLine(60, 6, $value['label'], 0, 'L', $fill);
$summary_tab = $bal->summary_add($summary_tab, $value['poste'],
$value['sum_deb'],
$value['sum_cred']);
if ($previous == 1) {
$pdf->write_cell(22, 6, nbm($value['sum_deb_previous']), 0, 0, 'R', $fill);
$pdf->write_cell(22, 6, nbm($value['sum_cred_previous']), 0, 0, 'R', $fill);
$pdf->LongLine(30,6,$value['poste'],0,'L',$fill);
$pdf->LongLine(60,6,$value['label'],0,'L',$fill);
$summary_tab=$bal->summary_add($summary_tab,$value['poste'],
$value['sum_deb'],
$value['sum_cred']);
if ($previous == 1 ) {
$pdf->write_cell(22,6,nbm($value['sum_deb_previous']),0,0,'R',$fill);
$pdf->write_cell(22,6,nbm($value['sum_cred_previous']),0,0,'R',$fill);
// $pdf->write_cell(22,6,nbm($value['solde_deb_previous']),0,0,'R',$fill);
// $pdf->write_cell(22,6,nbm($value['solde_cred_previous']),0,0,'R',$fill);
$solde_previous=bcsub($value['solde_cred_previous'],$value['solde_deb_previous']);
$side_previous=($solde_previous<0)?" D":" C";
$side_previous=($solde_previous==0)?"":$side_previous;
$pdf->write_cell(22,6,nbm(abs($solde_previous)).$side_previous,0,0,'R',$fill);
$tp_deb_previous=bcadd($tp_deb_previous,$value['sum_deb_previous']);
$tp_cred_previous=bcadd($tp_cred_previous,$value['sum_cred_previous']);
$tp_sold_previous=bcadd($tp_sold_previous,$value['solde_deb_previous']);
$tp_solc_previous=bcadd($tp_solc_previous,$value['solde_cred_previous']);
$summary_prev_tab=$bal->summary_add($summary_prev_tab,
$value['poste'],
$value['sum_deb_previous'],
$value['sum_cred_previous']);
$solde_previous = bcsub($value['solde_cred_previous'], $value['solde_deb_previous']);
$side_previous = ($solde_previous < 0) ? " D" : " C";
$side_previous = ($solde_previous == 0) ? "" : $side_previous;
$pdf->write_cell(22, 6, nbm(abs($solde_previous)) . $side_previous, 0, 0, 'R', $fill);
$tp_deb_previous = bcadd($tp_deb_previous, $value['sum_deb_previous']);
$tp_cred_previous = bcadd($tp_cred_previous, $value['sum_cred_previous']);
$tp_sold_previous = bcadd($tp_sold_previous, $value['solde_deb_previous']);
$tp_solc_previous = bcadd($tp_solc_previous, $value['solde_cred_previous']);
$summary_prev_tab = $bal->summary_add($summary_prev_tab,
$value['poste'],
$value['sum_deb_previous'],
$value['sum_cred_previous']);
}
$solde_ope=bcsub($value['sum_deb_ope'],$value['sum_cred_ope']);
$side_ope=($solde_ope>0)?" D":"C";
$side_ope=($solde_ope==0)?" ":$side_ope;
$pdf->write_cell(25,6,nbm(abs($solde_ope)).$side_ope,0,0,'R',$fill);
$pdf->write_cell(25,6,nbm(bcsub($value['sum_deb'],$value['sum_deb_ope'])),0,0,'R',$fill);
$pdf->write_cell(25,6,nbm(bcsub($value['sum_cred'],$value['sum_cred_ope'])),0,0,'R',$fill);
$solde=bcsub($value['sum_deb'],$value['sum_cred']);
$side=($solde>0)?"D":"C";
$side=($solde==0)?"":$side;
$pdf->write_cell(25,6,nbm(abs($solde)).$side,0,0,'R',$fill);
$pdf->line_new();
$tp_deb=bcadd($tp_deb,$value['sum_deb']);
$tp_cred=bcadd($tp_cred,$value['sum_cred']);
$tp_sold=bcadd($tp_sold,$value['solde_deb']);
$tp_solc=bcadd($tp_solc,$value['solde_cred']);
$solde_ope = bcsub($value['sum_deb_ope'], $value['sum_cred_ope']);
$tot_opening=bcadd($tot_opening,$solde_ope);
}
foreach (array(3,2,1) as $ind)
{
$r=$value;
if ( ! isset($_GET['lvl'.$ind]))continue;
$side_ope = ($solde_ope > 0) ? " D" : "C";
$side_ope = ($solde_ope == 0) ? " " : $side_ope;
// compute column value
$deb = bcsub($value['sum_deb'], $value['sum_deb_ope']);
$cred = bcsub($value['sum_cred'], $value['sum_cred_ope']);
$pdf->write_cell(25, 6, nbm(abs($solde_ope)) . $side_ope, 0, 0, 'R', $fill);
$pdf->write_cell(25, 6, nbm($deb), 0, 0, 'R', $fill);
$pdf->write_cell(25, 6, nbm($cred), 0, 0, 'R', $fill);
$solde = bcsub($value['sum_deb'], $value['sum_cred']);
$side = ($solde > 0) ? "D" : "C";
$side = ($solde == 0) ? "" : $side;
$pdf->write_cell(25, 6, nbm(abs($solde)) . $side, 0, 0, 'R', $fill);
$pdf->line_new();
$tp_deb = bcadd($tp_deb, $deb);
$tp_cred = bcadd($tp_cred, $cred);
$tp_sold = bcadd($tp_sold, $value['solde_deb']);
$tp_solc = bcadd($tp_solc, $value['solde_cred']);
if (${'lvl'.$ind.'_old'} == '') ${'lvl'.$ind.'_old'}=substr($r['poste'],0,$ind);
if ( ${'lvl'.$ind.'_old'} != substr($r['poste'],0,$ind))
{
$pdf->SetFont('DejaVu','B',7);
$pdf->write_cell(30,6,"Totaux ".$ind);
$pdf->write_cell(60,6,${'lvl'.$ind.'_old'});
if ($previous == 1 ) {
$pdf->write_cell(22,6,nbm(${'nlvl'.$ind}['sum_deb_previous']),0,0,'R');
$pdf->write_cell(22,6,nbm(${'nlvl'.$ind}['sum_cred_previous']),0,0,'R');
$pdf->write_cell(22,6,nbm(${'nlvl'.$ind}['solde_deb_previous']),0,0,'R');
$pdf->write_cell(22,6,nbm(${'nlvl'.$ind}['solde_cred_previous']),0,0,'R');
}
$pdf->write_cell(25,6,nbm(${'nlvl'.$ind}['sum_deb']),0,0,'R');
$pdf->write_cell(25,6,nbm(${'nlvl'.$ind}['sum_cred']),0,0,'R');
$solde_lv=bcsub(${'nlvl'.$ind}['solde_deb'],${'nlvl'.$ind}['solde_cred']);
$side_lv=($solde_lv>0)?"D":"C";
$side_lv=($solde_lv==0)?"":$side_lv;
$pdf->write_cell(25,6,nbm(abs($solde_lv))." $side_lv",0,0,'R');
$pdf->line_new();
$pdf->SetFont('DejaVuCond','',7);
${'lvl'.$ind.'_old'}=substr($r['poste'],0,$ind);
foreach($a_sum as $a)
{
${'nlvl'.$ind}[$a]=0;
}
}
}
}
foreach (array(3, 2, 1) as $ind) {
$r = $value;
if (!isset($_GET['lvl' . $ind])) continue;
if (${'lvl' . $ind . '_old'} == '') ${'lvl' . $ind . '_old'} = substr($r['poste'], 0, $ind);
if (${'lvl' . $ind . '_old'} != substr($r['poste'], 0, $ind)) {
$pdf->SetFont('DejaVu', 'B', 7);
$pdf->write_cell(30, 6, "Totaux " . $ind);
$pdf->write_cell(60, 6, ${'lvl' . $ind . '_old'});
if ($previous == 1) {
$pdf->write_cell(22, 6, nbm(${'nlvl' . $ind}['sum_deb_previous']), 0, 0, 'R');
$pdf->write_cell(22, 6, nbm(${'nlvl' . $ind}['sum_cred_previous']), 0, 0, 'R');
$pdf->write_cell(22, 6, nbm(${'nlvl' . $ind}['solde_deb_previous']), 0, 0, 'R');
$pdf->write_cell(22, 6, nbm(${'nlvl' . $ind}['solde_cred_previous']), 0, 0, 'R');
}
$pdf->write_cell(25, 6, nbm(${'nlvl' . $ind}['sum_deb']), 0, 0, 'R');
$pdf->write_cell(25, 6, nbm(${'nlvl' . $ind}['sum_cred']), 0, 0, 'R');
$solde_lv = bcsub(${'nlvl' . $ind}['solde_deb'], ${'nlvl' . $ind}['solde_cred']);
$side_lv = findSide($solde_lv );
$pdf->write_cell(25, 6, nbm(abs($solde_lv)) . " $side_lv", 0, 0, 'R');
$pdf->line_new();
$pdf->SetFont('DejaVuCond', '', 7);
${'lvl' . $ind . '_old'} = substr($r['poste'], 0, $ind);
foreach ($a_sum as $a) {
${'nlvl' . $ind}[$a] = 0;
}
}
}
// Totaux
$pdf->SetFont('DejaVuCond','B',8);
$pdf->write_cell(90,6,$r['label']);
if ($previous == 1 ) {
$pdf->write_cell(22,6,nbm($tp_deb_previous),'T',0,'R',0);
$pdf->write_cell(22,6,nbm($tp_cred_previous),'T',0,'R',0);
$pdf->write_cell(22,6,nbm($tp_sold_previous),'T',0,'R',0);
$pdf->write_cell(22,6,nbm($tp_solc_previous),'T',0,'R',0);
$pdf->SetFont('DejaVuCond', 'B', 8);
$pdf->write_cell(90, 6, $r['label']);
if ($previous == 1) {
$pdf->write_cell(22, 6, nbm($tp_deb_previous), 'T', 0, 'R', 0);
$pdf->write_cell(22, 6, nbm($tp_cred_previous), 'T', 0, 'R', 0);
$pdf->write_cell(22, 6, nbm($tp_sold_previous), 'T', 0, 'R', 0);
$pdf->write_cell(22, 6, nbm($tp_solc_previous), 'T', 0, 'R', 0);
}
$pdf->write_cell(25,6,nbm($tp_deb),'T',0,'R',0);
$pdf->write_cell(25,6,nbm($tp_cred),'T',0,'R',0);
$pdf->write_cell(25,6,nbm($tp_sold),'T',0,'R',0);
$pdf->write_cell(25,6,nbm($tp_solc),'T',0,'R',0);
$solde = bcsub($tp_sold,$tp_solc);
$solde_side = findSide($solde);
$tot_opening_side = findSide($tot_opening);
// ---------------
// Footer column
// ---------------
$pdf->write_cell(25, 6, nbm(abs($tot_opening))." ".$tot_opening_side, 'T', 0, 'R', 0);
$pdf->write_cell(25, 6, nbm($tp_deb), 'T', 0, 'R', 0);
$pdf->write_cell(25, 6, nbm($tp_cred), 'T', 0, 'R', 0);
$pdf->write_cell(25, 6, nbm(abs($solde)).$solde_side, 'T', 0, 'R', 0);
$pdf->line_new();
} /** empty */
// display the summary
if ($is_summary==1) {
if ($previous==1) {
}
/** empty */
// display the summary
if ($is_summary == 1) {
if ($previous == 1) {
$pdf->SetFont('DejaVuCond', 'B', 8);
$pdf->write_cell(50, 8, _("Résumé Exercice précédent"));
$pdf->line_new();
@ -344,9 +339,8 @@ if (! empty($array))
$bal->summary_display_pdf($summary_tab, $pdf);
}
$fDate=date('dmy-Hi');
$pdf->Output('balance-'.$fDate.'.pdf','D');
$fDate = date('dmy-Hi');
$pdf->Output('balance-' . $fDate . '.pdf', 'D');
?>