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

528 lines
16 KiB
PHP
Raw Blame History

<?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();
require_once('class_pdf.php');
include_once('class_user.php');
include_once("jrn.php");
include_once("ac_common.php");
require_once('class_database.php');
include_once("impress_inc.php");
include_once("class_acc_ledger.php");
require_once('class_own.php');
require_once('class_periode.php');
$cn=new Database($gDossier);
$periode=new Periode($cn);
$l_type="JRN";
$own=new Own($cn);
$Jrn=new Acc_Ledger($cn,$_GET['jrn_id']);
$Jrn->get_name();
$User=new User($cn);
$User->Check();
$User->check_dossier($gDossier);
$User->can_request(IMPJRN,0);
// Security
if ( $_GET['jrn_id']!=0 && $User->check_jrn($_GET['jrn_id']) == 'X' ){
/* Cannot Access */
NoAccess();
}
$ret="";
// filter : 0 for Grand Livre otherwise 1
$filter=( $Jrn->id == 0)?0:1;
$jrn_type=$Jrn->get_type();
//----------------------------------------------------------------------
// Detailled Printing
//---------------------------------------------------------------------
if ( $Jrn->id==0 || $jrn_type=='FIN' || $jrn_type=='ODS' || $_REQUEST['p_simple']== 0 )
{
$pdf=new PDF($cn);
$pdf->setDossierInfo($Jrn->name);
$pdf->AliasNbPages();
$pdf->AddPage();
// detailled printing
$rap_deb=0;$rap_cred=0;
// take all operations from jrn
$array=$Jrn->get_operation($_GET['from_periode'],$_GET['to_periode']);
$pdf->SetFont('DejaVu','BI',7);
$pdf->Cell(160,7,'report Débit',0,0,'R');
$pdf->Cell(30,7,sprintf('%10.2f',$rap_deb),0,0,'R');$pdf->Ln(4);
$pdf->Cell(160,7,'report Crédit',0,0,'R');
$pdf->Cell(30,7,sprintf('%10.2f',$rap_cred),0,0,'R');$pdf->Ln(4);
// print all operation
for ($i=0;$i< count($array);$i++) {
$pdf->SetFont('DejaVuCond','B',7);
$row=$array[$i];
$pdf->Cell(15,7,$row['id']);
$pdf->Cell(20,7,$row['internal']);
$pdf->Cell(15,7,$row['date_fmt']);
$pdf->Cell(100,7,$row['comment']);
$pdf->Cell(20,7,$row['pj']);
$pdf->Cell(20,7,$row['montant'],0,0,'R');
$pdf->Ln(4);
// get the entries
$aEntry=$cn->get_array("select j_id,j_poste,j_qcode,j_montant,j_debit, ".
" pcm_lib ".
" from jrnx join tmp_pcmn on (j_poste=pcm_val) where j_grpt = $1".
" order by j_debit,j_id",
array($row['jr_grpt_id']));
for ($j=0;$j<count($aEntry);$j++) {
$pdf->SetFont('DejaVuCond','',7);
$entry=$aEntry[$j];
// $pdf->Cell(15,6,$entry['j_id'],0,0,'R');
$pdf->Cell(32,6,$entry['j_qcode'],0,0,'R');
$pdf->Cell(23,6,$entry['j_poste'],0,0,'R');
// if j_qcode is not empty retrieve name
if ( $entry['j_qcode'] != '') {
$f_id=$cn->get_value('select f_id from vw_poste_qcode where j_qcode=$1',array($entry['j_qcode']));
$name=$cn->get_value('select av_text from attr_value join jnt_fic_att_value using(jft_id) where f_id=$1 and ad_id=1',
array($f_id));
} else
$name=$entry['pcm_lib'];
$pdf->Cell(80,6,$name,0,0,'L');
// print amount
$str_amount=sprintf('%10.2f',$entry['j_montant']);
if ( $entry['j_debit']=='t') {
$pdf->Cell(20,6,$str_amount,0,0,'R');
$pdf->Cell(20,6,'',0,0,'R');
} else {
$pdf->Cell(20,6,'',0,0,'R');
$pdf->Cell(20,6,$str_amount,0,0,'R');
}
$pdf->Ln(4);
}
}
$fDate=date('dmy-Hi');
$pdf->Output('journal-'.$fDate.'.pdf','I');
exit(0);
} // impression detaillé
//----------------------------------------------------------------------
// Simple Printing Purchase Ledger
//---------------------------------------------------------------------
if ( ($jrn_type=='VEN' || $jrn_type=='ACH') && $_REQUEST['p_simple']== 1 )
{
$pdf= new PDFLand($cn,'L');
$pdf->setDossierInfo($Jrn->name);
$pdf->AliasNbPages();
$pdf->AddPage();
$offset=0;$limit=30;$step=30;
/* simple printing with vat */
if ( $own->MY_TVA_USE=='Y') {
$pdf->SetFont('DejaVu','BI',7);
// Show column header, if $flag_tva is false then display vat as column
$a_Tva=$Jrn->existing_vat();
foreach($a_Tva as $line_tva)
{
//initialize Amount TVA
$tmp1=$line_tva['tva_id'];
$rap_tva[$tmp1]=0;
}
$flag_tva=(count($a_Tva) > 4)?true:false;
$pdf->Cell(15,6,'PJ');
$pdf->Cell(15,6,'Date');
if ( $jrn_type=='ACH')
$pdf->Cell(20,6,'Client');
else
$pdf->Cell(20,6,'Fournisseur');
if ( !$flag_tva ) $pdf->Cell(65,6,'Description');
$pdf->Cell(15,6,'HTVA',0,0,'R');
if ( $jrn_type=='ACH')
{
$pdf->Cell(15,6,'Privé',0,0,'R');
$pdf->Cell(15,6,'TVA ND',0,0,'R');
}
foreach($a_Tva as $line_tva) {
$pdf->Cell(15,6,$line_tva['tva_label'],0,0,'R');
}
$pdf->Cell(15,6,'TVAC',0,0,'R');
$pdf->Ln(5);
$a_jrn=$Jrn->get_operation($_GET['from_periode'],
$_GET['to_periode']);
if ( $a_jrn == null ) exit();
/*
* get rappel to initialize amount rap_xx
*the easiest way is to compute sum from quant_
*/
$previous=$Jrn->previous_amount($_GET['from_periode']);
/* initialize the amount to report */
foreach($previous['tva'] as $line_tva)
{
//initialize Amount TVA
$tmp1=$line_tva['tva_id'];
$rap_tva[$tmp1]=$line_tva['sum_vat'];
}
$rap_htva=$previous['price'];$rap_tvac=$previous['price']+$previous['vat'];$rap_priv=$previous['priv'];$rap_nd=$previous['tva_nd_recup'];
$pdf->SetFont('DejaVu','',6);
// page Header
$pdf->Cell(130,6,sprintf('%.2f',$previous['price']),0,0,'R'); /* HTVA */
if ( $jrn_type != 'VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$previous['priv']),0,0,'R'); /* prive */
$pdf->Cell(15,6,sprintf('%.2f',$previous['tva_nd_recup']),0,0,'R'); /* Tva ND */
}
foreach($previous['tva'] as $line_tva)
$pdf->Cell(15,6,sprintf('%.2f',$line_tva['sum_vat']),0,0,'R');
$pdf->Cell(15,6,sprintf('%.2f',$previous['price']+$previous['vat']),0,0,'R'); /* Tvac */
$pdf->Ln(6);
$offset+=$step;
$new_page=false;
//total page
$tp_htva=0.0;$tp_tvac=0.0;$tp_priv=0;$tp_nd=0;
foreach($a_Tva as $line_tva)
{
//initialize Amount TVA
$tmp1=$line_tva['tva_id'];
$tp_tva[$tmp1]=0.0;
}
for ( $i=0;$i<count($a_jrn);$i++){
if ( $new_page ) {
$new_page=false;
/* reset total page */
foreach($a_Tva as $line_tva)
{
//initialize Amount TVA
$tmp1=$line_tva['tva_id'];
$tp_tva[$tmp1]=0.0;
}
//total page
$tp_htva=0.0;$tp_tvac=0.0;$tp_priv=0;$tp_nd=0;
$pdf->SetFont('DejaVu','BI',7);
$pdf->AddPage();
// page Header
$pdf->Cell(15,6,'PJ');
$pdf->Cell(15,6,'Date');
if ( $jrn_type=='ACH')
$pdf->Cell(20,6,'Client');
else
$pdf->Cell(20,6,'Fournisseur');
if ( ! $flag_tva ) $pdf->Cell(65,6,'Description');
$pdf->Cell(15,6,'HTVA',0,0,'R');
if ($jrn_type !='VEN') {
$pdf->Cell(15,6,'Privé',0,0,'R');
$pdf->Cell(15,6,'TVA ND',0,0,'R');
}
if ( ! $flag_tva ) {
foreach($a_Tva as $line_tva) {
$pdf->Cell(15,6,$line_tva['tva_label'],0,0,'R');
}
}
$pdf->Cell(15,6,'TVAC',0,0,'R');
$pdf->Ln(5);
$pdf->SetFont('DejaVu','',6);
$pdf->Cell(130,6,sprintf('%.2f',$rap_htva),0,0,'R'); /* HTVA */
if($jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$rap_priv),0,0,'R'); /* prive */
$pdf->Cell(15,6,sprintf('%.2f',$rap_nd),0,0,'R'); /* Tva ND */
}
foreach($a_Tva as $line_tva) {
$l=$line_tva['tva_id'];
$pdf->Cell(15,6,sprintf('%.2f',$rap_tva[$l]),0,0,'R');
}
$pdf->Cell(15,6,sprintf('%.2f',$rap_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(6);
}
/* initialize tva */
for ($f=0;$f<count($a_Tva);$f++) {
$l=$a_Tva[$f]['tva_id'];
$atva_amount[$l]=0;
}
// retrieve info from ledger
$aAmountVat=$Jrn->vat_operation($a_jrn[$i]['jr_grpt_id']);
// put vat into array
for ($f=0;$f<count($aAmountVat);$f++) {
$l=$aAmountVat[$f]['tva_id'];
$atva_amount[$l]=$aAmountVat[$f]['sum_vat'];
$tp_tva[$l]+=$aAmountVat[$f]['sum_vat'];
$rap_tva[$l]+=$aAmountVat[$f]['sum_vat'];
}
$row=$a_jrn[$i];
$pdf->Cell(15,6,($row['pj']));
$pdf->Cell(15,6,shrink_date($row['date_fmt']));
$pdf->Cell(20,6,$row['internal']);
$pdf->Cell(65,6,$row['comment']);
/* get other amount (without vat, total vat included, private, ND */
$other=$Jrn->get_other_amount($a_jrn[$i]['jr_grpt_id']);
$tp_htva+=$other['price'];
$tp_tvac+=$other['price']+$other['vat'];
$tp_priv+=$other['priv'];
$tp_nd+=$other['priv'];
$rap_htva+=$other['price'];
$rap_tvac+=$other['price']+$other['vat'];
$rap_priv+=$other['priv'];
$rap_nd+=$other['priv'];
$pdf->Cell(15,6,sprintf("%.2f",$other['price']),0,0,'R');
if ( $jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf("%.2f",$other['priv']),0,0,'R');
$pdf->Cell(15,6,sprintf("%.2f",$other['tva_nd_recup']),0,0,'R');
}
foreach ($atva_amount as $row_atva_amount) {
$pdf->Cell(15,6,sprintf("%.2f",$row_atva_amount),0,0,'R');
}
$pdf->Cell(15,6,sprintf("%.2f",($other['price']+$other['vat'])),0,0,'R');
$pdf->Ln(5);
/* footer */
/* every lines reset total page and print table footer and set flag new_page to true */
if ($i>0 && $i % 26 == 0) {
$pdf->Cell(115,6,'total page',0,0,'R'); /* HTVA */
$pdf->Cell(15,6,sprintf('%.2f',$tp_htva),0,0,'R'); /* HTVA */
if ( $jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$tp_priv),0,0,'R'); /* prive */
$pdf->Cell(15,6,sprintf('%.2f',$tp_nd),0,0,'R'); /* Tva ND */
}
foreach($a_Tva as $line_tva) {
$l=$line_tva['tva_id'];
$pdf->Cell(15,6,sprintf('%.2f',$tp_tva[$l]),0,0,'R');
}
$pdf->Cell(15,6,sprintf('%.2f',$tp_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(2);
$pdf->Cell(115,6,'report',0,0,'R'); /* HTVA */
$pdf->Cell(15,6,sprintf('%.2f',$rap_htva),0,0,'R'); /* HTVA */
if ( $jrn_type != 'VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$rap_priv),0,0,'R'); /* prive */
$pdf->Cell(15,6,sprintf('%.2f',$rap_nd),0,0,'R'); /* Tva ND */
}
foreach($a_Tva as $line_tva) {
$l=$line_tva['tva_id'];
$pdf->Cell(15,6,sprintf('%.2f',$rap_tva[$l]),0,0,'R');
}
$pdf->Cell(15,6,sprintf('%.2f',$rap_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(2);
$new_page=true;
}
}
/* last footer */
if ( ! $new_page) {
$pdf->Cell(115,6,'Total page ',0,'T','R'); /* HTVA */
$pdf->Cell(15,6,sprintf('%.2f',$tp_htva),0,'T','R'); /* HTVA */
if ( $jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$tp_priv),0,'T','R'); /* prive */
$pdf->Cell(15,6,sprintf('%.2f',$tp_nd),0,'T','R'); /* Tva ND */
}
foreach($a_Tva as $line_tva) {
$l=$line_tva['tva_id'];
$pdf->Cell(15,6,sprintf('%.2f',$tp_tva[$l]),0,'T','R');
}
$pdf->Cell(15,6,sprintf('%.2f',$tp_tvac),0,'T','R'); /* Tvac */
$pdf->Ln(2);
$pdf->Cell(115,6,'report',0,0,'R'); /* HTVA */
$pdf->Cell(15,6,sprintf('%.2f',$rap_htva),0,0,'R'); /* HTVA */
if ( $jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$rap_priv),0,0,'R'); /* prive */
$pdf->Cell(15,6,sprintf('%.2f',$rap_nd),0,0,'R'); /* Tva ND */
}
foreach($a_Tva as $line_tva) {
$l=$line_tva['tva_id'];
$pdf->Cell(15,6,sprintf('%.2f',$rap_tva[$l]),0,0,'R');
}
$pdf->Cell(15,6,sprintf('%.2f',$rap_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(2);
$new_page=true;
}
} else {
/* ---------------------------------------------------------------------- */
/* we do not use any vat */
/* ---------------------------------------------------------------------- */
$pdf->SetFont('DejaVu','BI',7);
$pdf->Cell(15,6,'PJ');
$pdf->Cell(15,6,'Date');
if ( $jrn_type=='ACH')
$pdf->Cell(20,6,'Client');
else
$pdf->Cell(20,6,'Fournisseur');
$pdf->Cell(65,6,'Description');
if ( $jrn_type=='ACH')
{
$pdf->Cell(15,6,'Privé',0,0,'R');
}
$pdf->Cell(15,6,'TVAC',0,0,'R');
$pdf->Ln(5);
$a_jrn=$Jrn->get_operation($_GET['from_periode'],
$_GET['to_periode']);
if ( $a_jrn == null ) exit();
/*
* get rappel to initialize amount rap_xx
*the easiest way is to compute sum from quant_
*/
$previous=$Jrn->previous_amount($_GET['from_periode']);
$rap_htva=$previous['price'];$rap_tvac=$previous['price']+$previous['vat'];$rap_priv=$previous['priv'];$rap_nd=$previous['tva_nd_recup'];
$pdf->SetFont('DejaVu','',6);
// page Header
$pdf->Cell(130,6,sprintf('%.2f',$previous['price']),0,0,'R'); /* HTVA */
if ( $jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$previous['priv']),0,0,'R'); /* prive */
}
$pdf->Ln(6);
$offset+=$step;
$new_page=false;
//total page
$tp_htva=0.0;$tp_tvac=0.0;$tp_priv=0;$tp_nd=0;
for ( $i=0;$i<count($a_jrn);$i++){
if ( $new_page ) {
$new_page=false;
/* reset total page */
//total page
$tp_htva=0.0;$tp_tvac=0.0;$tp_priv=0;$tp_nd=0;
$pdf->SetFont('DejaVu','BI',7);
$pdf->AddPage();
// page Header
$pdf->Cell(15,6,'PJ');
$pdf->Cell(15,6,'Date');
if ( $jrn_type=='ACH')
$pdf->Cell(20,6,'Client');
else
$pdf->Cell(20,6,'Fournisseur');
$pdf->Cell(65,6,'Description');
if ($jrn_type !='VEN') {
$pdf->Cell(15,6,'Privé',0,0,'R');
}
$pdf->Cell(15,6,'TVAC',0,0,'R');
$pdf->Ln(5);
$pdf->SetFont('DejaVu','',6);
if($jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf('%.2f',$rap_priv),0,0,'R'); /* prive */
}
$pdf->Cell(15,6,sprintf('%.2f',$rap_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(6);
}
$row=$a_jrn[$i];
$pdf->Cell(15,6,($row['pj']));
$pdf->Cell(15,6,shrink_date($row['date_fmt']));
$pdf->Cell(20,6,$row['internal']);
$pdf->Cell(65,6,$row['comment']);
/* get other amount (without vat, total vat included, private, ND */
$other=$Jrn->get_other_amount($a_jrn[$i]['jr_grpt_id']);
$tp_htva+=$other['price'];
$tp_tvac+=$other['price']+$other['vat'];
$tp_priv+=$other['priv'];
$tp_nd+=$other['priv'];
$rap_htva+=$other['price'];
$rap_tvac+=$other['price']+$other['vat'];
$rap_priv+=$other['priv'];
$rap_nd+=$other['priv'];
if ( $jrn_type !='VEN') {
$pdf->Cell(15,6,sprintf("%.2f",$other['priv']),0,0,'R');
}
$pdf->Cell(15,6,sprintf("%.2f",($other['price']+$other['vat'])),0,0,'R');
$pdf->Ln(5);
/* footer */
/* every lines reset total page and print table footer and set flag new_page to true */
if ($i>0 && $i % 26 == 0) {
$pdf->Cell(115,6,'total page',0,0,'R'); /* HTVA */
if ( $jrn_type=='ACH') {
$pdf->Cell(15,6,sprintf('%.2f',$tp_priv),0,0,'R'); /* prive */
}
$pdf->Cell(15,6,sprintf('%.2f',$tp_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(2);
$pdf->Cell(115,6,'report',0,0,'R'); /* HTVA */
if ( $jrn_type=='ACH') {
$pdf->Cell(15,6,sprintf('%.2f',$rap_priv),0,0,'R'); /* prive */
}
$pdf->Cell(15,6,sprintf('%.2f',$rap_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(2);
$new_page=true;
}
}
/* last footer */
if ( ! $new_page) {
$pdf->Cell(115,6,'Total page ',0,'T','R'); /* HTVA */
if ( $jrn_type=='ACH') {
$pdf->Cell(15,6,sprintf('%.2f',$tp_priv),0,'T','R'); /* prive */
}
$pdf->Cell(15,6,sprintf('%.2f',$tp_tvac),0,'T','R'); /* Tvac */
$pdf->Ln(2);
$pdf->Cell(115,6,'report',0,0,'R'); /* HTVA */
if ( $jrn_type=='ACH') {
$pdf->Cell(15,6,sprintf('%.2f',$rap_priv),0,0,'R'); /* prive */
}
$pdf->Cell(15,6,sprintf('%.2f',$rap_tvac),0,0,'R'); /* Tvac */
$pdf->Ln(2);
$new_page=true;
}
} /* else */
$fDate=date('dmy-Hi');
$pdf->Output('journal-'.$fDate.'.pdf','I');
exit(0);
}
?>
Reference in a new issue View git blame Copy permalink