#238 : recode entirely the export (PDF / CSV )
This commit is contained in:
Dany De Bontridder
parent
2ed18aed5c
commit
d83210ea14
43 changed files with 237 additions and 135 deletions
188
include/export_ledger_csv.php
Normal file
188
include/export_ledger_csv.php
Normal file
|
|
@ -0,0 +1,188 @@
|
|||
<?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
|
||||
*/
|
||||
/* $Revision$ */
|
||||
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
|
||||
/*! \file
|
||||
* \brief Send a ledger in CSV format
|
||||
*/
|
||||
|
||||
header('Pragma: public');
|
||||
header('Content-type: application/csv');
|
||||
header('Content-Disposition: attachment;filename="jrn.csv"',FALSE);
|
||||
include_once ("ac_common.php");
|
||||
require_once('class_own.php');
|
||||
|
||||
require_once('class_dossier.php');
|
||||
$gDossier=dossier::id();
|
||||
|
||||
require_once('class_database.php');
|
||||
require_once("class_acc_ledger.php");
|
||||
$cn=new Database($gDossier);
|
||||
|
||||
|
||||
require_once ('class_user.php');
|
||||
$User=new User($cn);
|
||||
$User->Check();
|
||||
$User->can_request(IMPJRN,0);
|
||||
$User->check_dossier($gDossier);
|
||||
|
||||
if ($_GET['jrn_id']!=0 && $User->check_jrn($_GET['jrn_id']) =='X')
|
||||
{
|
||||
NoAccess();
|
||||
exit();
|
||||
}
|
||||
|
||||
$Jrn=new Acc_Ledger($cn,$_GET['jrn_id']);
|
||||
|
||||
$Jrn->get_name();
|
||||
$jrn_type=$Jrn->get_type();
|
||||
|
||||
// Detailled printing
|
||||
//---
|
||||
if ( $_GET['p_simple'] == 0 )
|
||||
{
|
||||
$Jrn->get_row( $_GET['from_periode'],
|
||||
$_GET['to_periode']
|
||||
);
|
||||
|
||||
if ( count($Jrn->row) == 0)
|
||||
exit;
|
||||
foreach ( $Jrn->row as $op )
|
||||
{
|
||||
// should clean description : remove <b><i> tag and '; char
|
||||
$desc=$op['description'];
|
||||
$desc=str_replace("<b>","",$desc);
|
||||
$desc=str_replace("</b>","",$desc);
|
||||
$desc=str_replace("<i>","",$desc);
|
||||
$desc=str_replace("</i>","",$desc);
|
||||
$desc=str_replace('"',"'",$desc);
|
||||
$desc=str_replace(";",",",$desc);
|
||||
|
||||
printf("\"%s\";\"%s\";\"%s\";\"%s\";\"%s\";\"%s\";%s;%s\n",
|
||||
$op['j_id'],
|
||||
$op['jr_pj_number'],
|
||||
$op['internal'],
|
||||
$op['j_date'],
|
||||
$op['poste'],
|
||||
$desc,
|
||||
nb($op['deb_montant']),
|
||||
nb($op['cred_montant'])
|
||||
);
|
||||
|
||||
}
|
||||
exit;
|
||||
}
|
||||
else
|
||||
{
|
||||
$Row=$Jrn->get_rowSimple($_GET['from_periode'],
|
||||
$_GET['to_periode'],
|
||||
0);
|
||||
//-----------------------------------------------------
|
||||
if ( $jrn_type == 'ODS' || $jrn_type == 'FIN' || $jrn_type=='GL')
|
||||
{
|
||||
printf ('" operation";'.
|
||||
'"Date";'.
|
||||
'"N° Pièce";'.
|
||||
'"commentaire";'.
|
||||
'"internal";'.
|
||||
'"montant";'.
|
||||
"\r\n");
|
||||
foreach ($Row as $line)
|
||||
{
|
||||
|
||||
echo $line['num'].";";
|
||||
echo $line['date'].";";
|
||||
echo $line['jr_pj_number'].";";
|
||||
echo $line['comment'].";";
|
||||
echo $line['jr_internal'].";";
|
||||
// echo "<TD>".$line['pj'].";";
|
||||
// If the ledger is financial :
|
||||
// the credit must be negative and written in red
|
||||
// Get the jrn type
|
||||
if ( $line['jrn_def_type'] == 'FIN' ) {
|
||||
$positive = $cn->get_value("select qf_amount from quant_fin ".
|
||||
" where jr_id=".$line['jr_id']);
|
||||
|
||||
echo nb($positive);
|
||||
echo ";";
|
||||
}
|
||||
else
|
||||
{
|
||||
echo nb($line['montant']).";";
|
||||
}
|
||||
|
||||
printf("\r\n");
|
||||
}
|
||||
}
|
||||
|
||||
//-----------------------------------------------------
|
||||
if ( $jrn_type=='ACH' || $jrn_type=='VEN')
|
||||
{
|
||||
$own=new Own($cn);
|
||||
$col_tva="";
|
||||
|
||||
if ( $own->MY_TVA_USE=='Y')
|
||||
{
|
||||
$a_Tva=$cn->get_array("select tva_id,tva_label from tva_rate where tva_rate != 0.0000 order by tva_rate");
|
||||
foreach($a_Tva as $line_tva)
|
||||
{
|
||||
$col_tva.='"Tva '.$line_tva['tva_label'].'";';
|
||||
}
|
||||
}
|
||||
echo '"Date";"operation";"Client/Fourn.";"Commentaire";"inter.";"HTVA";'.$col_tva.'"TVAC"'."\n\r";
|
||||
foreach ($Row as $line)
|
||||
{
|
||||
printf('"%s";"%s";"%s";"%s";"%s";%s;',
|
||||
$line['date'],
|
||||
$line['num'],
|
||||
$line['client'],
|
||||
$line['comment'],
|
||||
$line['jr_internal'],
|
||||
nb($line['HTVA']));
|
||||
$a_tva_amount=array();
|
||||
foreach ($line['TVA'] as $lineTVA)
|
||||
{
|
||||
foreach ($a_Tva as $idx=>$line_tva)
|
||||
{
|
||||
|
||||
if ($line_tva['tva_id'] == $lineTVA[1][0])
|
||||
{
|
||||
$a=$line_tva['tva_id'];
|
||||
$a_tva_amount[$a]=$lineTVA[1][2];
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($own->MY_TVA_USE == 'Y' )
|
||||
{
|
||||
foreach ($a_Tva as $line_tva)
|
||||
{
|
||||
$a=$line_tva['tva_id'];
|
||||
if ( isset($a_tva_amount[$a]))
|
||||
echo nb($a_tva_amount[$a]).';';
|
||||
else
|
||||
printf("0;");
|
||||
}
|
||||
}
|
||||
echo nb ($line['TVAC']);
|
||||
printf("\r\n");
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
?>
|
||||
Loading…
Add table
Add a link
Reference in a new issue