altocompta/html/jrn_pdf.php

<?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
*/


// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
// $Revision$
/*! \file
 * \brief Send a ledger in a pdf format
 *
 *\todo for the pdf, which doesn't support unicode you must
 translate all the string to latin-1 with the utf8-decode function 
*/

require_once('class_dossier.php');
$gDossier=dossier::id();

include_once('class_user.php');
include_once("jrn.php");
include_once("ac_common.php");
include_once("postgres.php");
include_once("class.ezpdf.php");
include_once("impress_inc.php");
include_once("preference.php");
include_once("class_acc_ledger.php");
include_once("check_priv.php");
require_once ('header_print.php');

echo_debug('jrn_pdf.php',__LINE__,"imp pdf journaux");
$cn=DbConnect($gDossier);
$l_type="JRN";
$centr=" Non centralisé";
$l_centr=0;
if ($_GET['central'] == 'on' ) {
  $centr=utf8_decode(" centralisé ");
  $l_centr=1;
}
$Jrn=new Acc_Ledger($cn,$_GET['jrn_id']);

$Jrn->get_name();
$User=new User(DbConnect());
$User->Check();

// Security
if ($User->check_action($cn,IMP) == 0 ||
    $User->AccessJrn($cn,$_GET['jrn_id']) == false){
    /* Cannot Access */
    NoAccess();
 }

$ret="";

// filter : 0 for Grand Livre otherwise 1
$filter=( $Jrn->id == 0)?0:1;
$jrn_type=$Jrn->get_type();
echo_debug('jrn_pdf',__LINE__,'Jrn type '.$jrn_type);
echo_debug('jrn_pdf',__LINE__,'p_simple = '.$_REQUEST['p_simple']);
//----------------------------------------------------------------------
// Detailled Printing
//---------------------------------------------------------------------
if ( $Jrn->id==0  || $jrn_type=='FIN' || $jrn_type=='ODS' || $_REQUEST['p_simple']== 0 ) 
{
  $pdf= new Cezpdf("A4");
  $pdf->selectFont('./addon/fonts/Helvetica.afm');
  header_pdf($cn,$pdf);
  // detailled printing
  $offset=0;$limit=22;$step=22;
  $rap_deb=0;$rap_cred=0;
  while (1) {
    $a=0;
    list ($a_jrn,$tot_deb,$tot_cred)=$Jrn->get_row($_GET['from_periode'],
						  $_GET['to_periode'],
						  $_GET['central'],
						  $limit,$offset);
    echo_debug('jrn_pdf.php',__LINE__,"Total debit $tot_deb,credit $tot_cred");
    
    if ( $a_jrn==null) break;
    $offset+=$step; 
    $first_id=$a_jrn[0]['int_j_id'];
    $Exercice=get_exercice($cn,$a_jrn[0]['periode']);
    

    list($rap_deb,$rap_cred)=get_rappel($cn,$first_id,$Jrn->id,$Exercice,FIRST,
				     $filter,
				     $l_centr
				     );
    echo_debug('jrn_pdf.php',__LINE__,"MONTANT $rap_deb,$rap_cred");
    echo_debug('jrn_pdf.php',__LINE__,"  list($rap_deb,$rap_cred)=get_rappel($cn,$first_id,".$Jrn->id.",$Exercice,FIRST)");
    $pdf->ezText($Jrn->name,30);
    
    if (  $l_centr == 1 ) {
    // si centralisé montre les montants de rappel
      $str_debit=utf8_decode(sprintf( "report Débit  % 10.2f",$rap_deb));
      $str_credit=utf8_decode(sprintf("report Crédit % 10.2f",$rap_cred));
      $pdf->ezText($str_debit,12,array('justification'=>'right'));
      $pdf->ezText($str_credit,12,array('justification'=>'right'));
    }
    $pdf->ezTable($a_jrn,
		  array ('j_id'=>utf8_decode(' Numéro'),
			 'j_date' => 'Date',
			 'poste'=>'Poste',
			 'description' => 'Description',
			 'deb_montant'=>utf8_decode( 'Débit'),
			 'cred_montant'=>utf8_decode('Crédit')),
		  " ",
		  array('shaded'=>0,'showHeadings'=>1,'width'=>500,
			'cols'=>array('deb_montant'=> array('justification'=>'right'),
				      'cred_montant'=> array('justification'=>'right'))),
		  true);
    $a=1;
    // Total Page
    $apage=array(array('deb'=>sprintf("%8.2f",$tot_deb),'cred'=>$tot_cred));
    foreach ($apage as $key=>$element) echo_debug('jrn_pdf.php',__LINE__,"apage $key => $element");
    $pdf->ezTable($apage,
		array (
		       'deb'=>utf8_decode( 'Total Débit'),
		       'cred'=>utf8_decode('Total Crédit'))," ",
		array('shaded'=>0,'showHeadings'=>1,'width'=>200,
		      'xPos'=>'right','xOrientation'=>'left',
		      'cols'=>array('deb'=> array('justification'=>'right'),
				    'cred'=> array('justification'=>'right'))),true);

    $count=count($a_jrn)-1;
    $last_id=$a_jrn[$count]['int_j_id'];
    $Exercice=get_exercice($cn,$a_jrn[$count]['periode']);
    if ( $l_centr == 1) {
      // Montant de rappel si centralisé
      list($rap_deb,$rap_cred)=get_rappel($cn,$last_id,$Jrn->id,$Exercice,LAST,$filter,$l_centr);
      $str_debit=utf8_decode(sprintf( "à reporter Débit  % 10.2f",$rap_deb));
      $str_credit=utf8_decode(sprintf("à reporter Crédit % 10.2f",$rap_cred));
      $pdf->ezText($str_debit,12,array('justification'=>'right'));
      $pdf->ezText($str_credit,12,array('justification'=>'right'));
    }
    //New page
    $pdf->ezNewPage();
	header_pdf($cn,$pdf);

  }    
  if ( $a == 1 )   {
    $apage=array('deb'=>$tot_deb,'cred'=>$tot_cred);
    $pdf->ezTable($apage,
		  array (
			 'deb'=>utf8_decode( 'Total Débit'),
			 'cred'=>utf8_decode('Total Crédit'))," ",
		  array('shaded'=>0,'showHeadings'=>1,'width'=>500,
			'cols'=>array('deb'=> array('justification'=>'right'),
				      'cred'=> array('justification'=>'right'))),true);
    $count=count($a_jrn)-1;
    $last_id=$a_jrn[$count]['int_j_id'];
    $Exercice=get_exercice($cn,$a_jrn[$count]['periode']);
    
    list($rap_deb,$rap_cred)=get_rappel($cn,$last_id,$Jrn->id,$Exercice,LAST,$filter,$l_centr);
    $str_debit=utf8_decode(sprintf( "à reporter  Débit % 10.2f",$rap_deb));
    $str_credit=utf8_deccode(sprintf("à reporter Crédit % 10.2f",$rap_cred));
    $pdf->ezText($str_debit,12,array('justification'=>'right'));
    $pdf->ezText($str_credit,12,array('justification'=>'right'));
    
  }
  $pdf->ezStream();
  exit(0);
} // impression detaillé
//----------------------------------------------------------------------
// Simple Printing
//---------------------------------------------------------------------
if  ( ($jrn_type=='ACH' || $jrn_type=='VEN' ) && $_REQUEST['p_simple']== 1 ) 
{

  echo_debug ('jrn_pdf',__LINE__,'here');
  echo_debug('jrn_pdf',__LINE__,$Jrn);
  $pdf= new Cezpdf("A4",'landscape');
  //  $pdf->selectFont('./addon/fonts/Helvetica.afm');
  $pdf->selectFont('./addon/fonts/Courier.afm');
  header_pdf($cn,$pdf);

  $offset=0;$limit=30;$step=30;
  $a_Tva=get_array($cn,"select tva_id,tva_label,tva_poste from tva_rate where tva_rate != 0.0000 order by tva_id");
  $col_tva="TVA ";
  $space=0;
  $total_HTVA=0.0;
  $total_TVAC=0.0;
  foreach($a_Tva as $line_tva)
    {
      //initialize Amount TVA
      $tmp1=$line_tva['tva_label'];
      $rap_tva[$tmp1]=0.0;
      if ( $space == 0 )
	$col_tva=str_repeat(" ",6).utf8_decode($line_tva['tva_label']);
      else {
	$ecart=$space-strlen($line_tva['tva_label']);
	$ecart=($ecart<0)?0:$ecart;
	$col_tva.=str_repeat(" ",$ecart).utf8_decode($line_tva['tva_label']);
      }
      $space=9;
    } 

  // if the period is centralized get the first amounts
  if ( $l_centr==1) 
    list($total_TVAC,$total_HTVA)=get_rappel_simple($cn,$Jrn->id,$jrn_type,$_GET['from_periode'],$rap_tva);



  while (1) {

    $a=0;
    $a_jrn=$Jrn->get_rowSimple($_GET['from_periode'],
			      $_GET['to_periode'],
			      $_GET['central'],
			      1,
			      $limit,
			      $offset);
    if ( $a_jrn == null ) break;

    // page Header 
    $t=sprintf("Rappel TVAC = %.2f HTVA= %.2f",$total_TVAC,$total_HTVA);
    foreach($rap_tva as $idx=>$am) {
      $t.=utf8_decode(sprintf('[ %s = % .2f]',$idx,$am));
    }
    $pdf->ezText($t,9,array('justification'=>'left'));

    $offset+=$step;
    //total page
    $total_htva_page=0.0;$total_tvac_page=0.0;
    foreach($a_Tva as $line_tva)
      {
	//initialize Amount TVA
	$tmp1=$line_tva['tva_label'];
      $page_tva[$tmp1]=0.0;
      }
    $str_tva="";


    $pdf->ezTable($a_jrn,
		  array('num'=>utf8_decode('Numéro'),
			'date'=>'Date',
			'client'=>'Client',
			'jr_internal'=>'Int.',
			'comment'=>'Description', 
			'HTVA'=>'HTVA',
			'TVA_INLINE'=>$col_tva,
			'TVAC'=>'TVAC'),
		  utf8_decode($Jrn->name),
		  array('shaded'=>0,'showHeadings'=>1,'fontSize'=>8,'width'=>750,'Maxwidth'=>750),
		  true

		       
		  
		  );
    //--------------------------------------------------------------------------------
    // Foot
    // Set total foot page
    // amount VAT
    foreach ($a_jrn as $row) 
      {
	$total_TVAC+=$row['TVAC'];
	$total_HTVA+=$row['HTVA'];
	$total_tvac_page+=$row['TVAC'];
	$total_htva_page+=$row['HTVA'];

	foreach ($row['TVA'] as $line)
	  {
	    $tva_id=$line[1][1];
	    $rap_tva[$tva_id]+=$line[1][2];
	    $page_tva[$tva_id]+=$line[1][2];
	  }
      }
    //total page
    $t=sprintf("total page TVAC = %.2f HTVA= %.2f",$total_tvac_page,$total_htva_page);
    foreach($page_tva as $idx=>$am) {
      $t.=utf8_decode(sprintf('[ %s = % .2f ]',$idx,$am));
    }
    $pdf->ezText($t,9,array('justification'=>'left'));

    $t=utf8_decode(sprintf("total à reporter TVAC = %.2f HTVA= %.2f",$total_TVAC,$total_HTVA));
    foreach($rap_tva as $idx=>$am) {
      $t.=utf8_decode(sprintf('[ %s = % .2f ]',$idx,$am));
    }
    $pdf->ezText($t,9,array('justification'=>'left'));

    // New Page
    $pdf->ezNewPage();
	header_pdf($cn,$pdf);







    echo_debug('jrn_pdf',__LINE__,$a_jrn);
  }
  echo_debug('jrn_pdf',__LINE__,'Envoie PDF');
  $pdf->ezStream();
  exit(0);

}
?>