<?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
 */
/*! \file
 * \brief Print the balance in pdf format
 * \param received parameters
 * \param e_date element 01.01.2003
 * \param e_client element 3
 * \param nb_item element 2
 * \param e_march0 element 11
 * \param e_quant0 element 1
 * \param e_march1 element 6
 * \param e_quant1 element 2
 * \param e_comment  invoice number
 */
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
// $Revision$

include_once("ac_common.php");
require_once('class_database.php');
include_once("class_acc_balance.php");
require_once ('header_print.php');
require_once('class_dossier.php');
require_once('class_pdf.php');
$gDossier=dossier::id();

$cn=new Database($gDossier);
$rep=new Database();
require_once ('class_user.php');
$User=new User($cn);
$User->Check();

$bal=new Acc_Balance($cn);
$User->can_request(IMPBAL,1);

extract ($_GET);
$bal->jrn=null;
switch( $_GET['p_filter'])
{
case 0:
        $bal->jrn=null;
    break;
case 1:
    if (  isset($_GET['r_jrn']))
    {
        $selected=$_GET['r_jrn'];
        $array_ledger=$User->get_ledger('ALL',3);
        for ($e=0;$e<count($array_ledger);$e++)
        {
            if (isset ($selected[$e]))
                $bal->jrn[]=$array_ledger[$e]['jrn_def_id'];
        }
    }
    break;
case 2:
    if ( isset($_GET['r_cat']))   $bal->filter_cat($_GET['r_cat']);
    break;
}

$bal->from_poste=$_GET['from_poste'];
$bal->to_poste=$_GET['to_poste'];
if (isset($_GET['unsold'])) $bal->unsold=true;

$array=$bal->get_row($from_periode,$to_periode);

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'];
$pdf= new PDF($cn);
$pdf->setDossierInfo(" Balance  ".$per_text);
$pdf->AliasNbPages();
$pdf->AddPage();
$pdf->SetFont('DejaVuCond','',7);
$pdf->Cell(30,6,'poste');
$pdf->Cell(80,6,'Libellé');
$pdf->Cell(20,6,'Total Débit',0,0,'R');
$pdf->Cell(20,6,'Total Crédit',0,0,'R');
$pdf->Cell(20,6,'Solde Débiteur',0,0,'R');
$pdf->Cell(20,6,'Solde Créditeur',0,0,'R');
$pdf->Ln();

$pdf->SetFont('DejaVuCond','',8);
$tp_deb=0;
$tp_cred=0;
$tp_sold=0;
$tp_solc=0;
foreach(array('sum_cred','sum_deb','solde_deb','solde_cred') as $a)
  {
    $nlvl1[$a]=0;
    $nlvl2[$a]=0;
    $nlvl3[$a]=0;
  }
$lvl1_old='';
$lvl2_old='';
$lvl3_old='';

bcscale(2);

for ($i=0;$i<count($array);$i++)
{
  if ( ! isset($array[$i]))continue;
  /*
   * level x
   */

  foreach (array(3,2,1) as $ind)
    {	
      $r=$array[$i];
      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->Cell(30,6,"Totaux ".$ind);
	  $pdf->Cell(80,6,${'lvl'.$ind.'_old'});
	  $pdf->Cell(20,6,nbm(${'nlvl'.$ind}['sum_deb']),0,0,'R');
	  $pdf->Cell(20,6,nbm(${'nlvl'.$ind}['sum_cred']),0,0,'R');
	  $pdf->Cell(20,6,nbm(${'nlvl'.$ind}['solde_deb']),0,0,'R');
	  $pdf->Cell(20,6,nbm(${'nlvl'.$ind}['solde_cred']),0,0,'R');
	  $pdf->Ln();
	  $pdf->SetFont('DejaVuCond','',7);
	  ${'lvl'.$ind.'_old'}=substr($r['poste'],0,$ind);
	  foreach(array('sum_cred','sum_deb','solde_deb','solde_cred') as $a)
	    {
	      ${'nlvl'.$ind}[$a]=0;
	    }
	}
    }
  foreach(array('sum_cred','sum_deb','solde_deb','solde_cred') 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;
    }

    $pdf->Cell(30,6,$array[$i]['poste'],0,0,'L',$fill);
    $pdf->Cell(80,6,$array[$i]['label'],0,0,'L',$fill);
    $pdf->Cell(20,6,nbm($array[$i]['sum_deb']),0,0,'R',$fill);
    $pdf->Cell(20,6,nbm($array[$i]['sum_cred']),0,0,'R',$fill);
    $pdf->Cell(20,6,nbm($array[$i]['solde_deb']),0,0,'R',$fill);
    $pdf->Cell(20,6,nbm($array[$i]['solde_cred']),0,0,'R',$fill);
    $pdf->Ln();
    $tp_deb=bcadd($tp_deb,$array[$i]['sum_deb']);
    $tp_cred=bcadd($tp_cred,$array[$i]['sum_cred']);
    $tp_sold=bcadd($tp_sold,$array[$i]['solde_deb']);
    $tp_solc=bcadd($tp_solc,$array[$i]['solde_cred']);

}
// Totaux
$pdf->SetFont('DejaVuCond','B',8);
$pdf->Cell(110,6,'Totaux');
$pdf->Cell(20,6,nbm($tp_deb),'T',0,'R',0);
$pdf->Cell(20,6,nbm($tp_cred),'T',0,'R',0);
$pdf->Cell(20,6,nbm($tp_sold),'T',0,'R',0);
$pdf->Cell(20,6,nbm($tp_solc),'T',0,'R',0);
$pdf->Ln();


$fDate=date('dmy-Hi');
$pdf->Output('balance-'.$fDate.'.pdf','I');


?>