altocompta/html/jrn_csv.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
*/
/* $Revision$ */
// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
/*! \file
 * \brief Send a ledger in CSV format
 */

header('Content-type: application/csv');
header('Content-Disposition: attachment;filename="jrn.csv"',FALSE);
include_once ("ac_common.php");

include_once ("postgres.php");
include_once("check_priv.php");
include("class_jrn.php");
$cn=DbConnect($_SESSION['g_dossier']);
$rep=DbConnect();

include ('class_user.php');
$User=new cl_user($rep);
$User->Check();
if ( $User->CheckAction($cn,IMP) == 0 ||
     $User->AccessJrn($cn,$_GET['jrn_id']) == false){
    /* Cannot Access */
    NoAccess();
  }


 $p_cent=( isset ( $_GET['central']) )?$_GET['central']:'off';

$Jrn=new jrn($cn,$_GET['jrn_id']);

$Jrn->GetName();
$jrn_type=$Jrn->get_type();
// Detailled printing
//---
if  ( $_GET['p_simple'] == 0 ) 
  {
    $Jrn->GetRow( $_GET['from_periode'],
		  $_GET['to_periode'],
		  $p_cent);

    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\";%8.4f;%8.4f\n",
	     $op['j_id'],
	     $op['internal'],
	     $op['j_date'],
	     $op['poste'],
	     $desc,
	     $op['deb_montant'],
	     $op['cred_montant']
	     );
	
    }
    exit;
  }
 else 
   {
     $Row=$Jrn->GetRowSimple($_GET['from_periode'],
			     $_GET['to_periode'],
			     $p_cent,
			     0);
//-----------------------------------------------------
     if ( $jrn_type == 'ODS' || $jrn_type == 'FIN' || $jrn_type=='GL')
       {
	 printf ('" operation";'.
		 '"Date";'.
		 '"commentaire";'.
		 '"internal";'.
		 '"montant";'.
		 "\r\n");

	 foreach ($Row as $line)
	   {
	     
	     echo $line['num'].";";
	     echo $line['date'].";";
	     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 = CountSql($cn,"select * from jrn inner join jrnx on jr_grpt_id=j_grpt ".
				    " where jr_id=".$line['jr_id']." and (j_poste like '55%' or j_poste like '57%' )".
			       " and j_debit='f'");
	       

	       echo ( $positive != 0 )?sprintf("-%8.2f",$line['montant']):sprintf("%8.2f",$line['montant']);
	       echo ";";
	     }
	     else 
	       {
		 printf("% 8.2f",$line['montant']).";";
	       }
	     
	     printf("\r\n");
	   }
       }  
//-----------------------------------------------------
     if ( $jrn_type=='ACH' || $jrn_type=='VEN')
       {
	 $a_Tva=GetArray($cn,"select tva_id,tva_label from tva_rate where tva_rate != 0.0000 order by tva_rate");
	 $col_tva="";
	 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";% 10.2f;',
		    $line['date'],
		    $line['num'],
		    $line['client'],
		    $line['comment'],
		    $line['jr_internal'],
		    $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];
		       }
		   } 
	       }
	   
	     foreach ($a_Tva as $line_tva)
	       {
		 $a=$line_tva['tva_id'];
		 if ( isset($a_tva_amount[$a]))
		   printf("% 8.2f;",$a_tva_amount[$a]);
		 else
		   printf("0;");
	       }

	     printf("% 9.2f\r\n",$line['TVAC']);
	   }
       }
   }
?>