304 lines
9.2 KiB
PHP
304 lines
9.2 KiB
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
|
|
*/
|
|
|
|
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=" 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=sprintf( "report Débit % 10.2f",$rap_deb);
|
|
$str_credit=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'=>' Numéro',
|
|
'j_date' => 'Date',
|
|
'poste'=>'Poste',
|
|
'description' => 'Description',
|
|
'deb_montant'=> 'Débit',
|
|
'cred_montant'=>'Crédit')," ",
|
|
array('shaded'=>0,'showHeadings'=>1,'width'=>500,
|
|
'cols'=>array('deb_montant'=> array('justification'=>'right'),
|
|
'cred_montant'=> array('justification'=>'right'))));
|
|
$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'=> 'Total Débit',
|
|
'cred'=>'Total Crédit')," ",
|
|
array('shaded'=>0,'showHeadings'=>1,'width'=>200,
|
|
'xPos'=>'right','xOrientation'=>'left',
|
|
'cols'=>array('deb'=> array('justification'=>'right'),
|
|
'cred'=> array('justification'=>'right'))));
|
|
|
|
$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=sprintf( "à reporter Débit % 10.2f",$rap_deb);
|
|
$str_credit=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'=> 'Total Débit',
|
|
'cred'=>'Total Crédit')," ",
|
|
array('shaded'=>0,'showHeadings'=>1,'width'=>500,
|
|
'cols'=>array('deb'=> array('justification'=>'right'),
|
|
'cred'=> array('justification'=>'right'))));
|
|
$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=sprintf( "à reporter Débit % 10.2f",$rap_deb);
|
|
$str_credit=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).$line_tva['tva_label'];
|
|
else
|
|
$col_tva.=str_repeat(" ",$space-strlen($line_tva['tva_label'])).$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.=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'=>'Numéro',
|
|
'date'=>'Date',
|
|
'client'=>'Client',
|
|
'jr_internal'=>'Int.',
|
|
'comment'=>'Description',
|
|
'HTVA'=>'HTVA',
|
|
'TVA_INLINE'=>$col_tva,
|
|
'TVAC'=>'TVAC'),
|
|
$Jrn->name,
|
|
array('shaded'=>0,'showHeadings'=>1,'fontSize'=>8,'width'=>750,'Maxwidth'=>750)
|
|
|
|
|
|
|
|
);
|
|
//--------------------------------------------------------------------------------
|
|
// 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.=sprintf('[ %s = % .2f ]',$idx,$am);
|
|
}
|
|
$pdf->ezText($t,9,array('justification'=>'left'));
|
|
|
|
$t=sprintf("total à reporter TVAC = %.2f HTVA= %.2f",$total_TVAC,$total_HTVA);
|
|
foreach($rap_tva as $idx=>$am) {
|
|
$t.=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);
|
|
|
|
}
|
|
?>
|