altocompta/include/class_acc_bilan.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 this class handle the different bilan, from the table bilan
 *
 */
require_once("class_iselect.php");
require_once ('class_database.php');
require_once ('class_dossier.php');
require_once ('impress_inc.php');
require_once ('header_print.php');
require_once ('class_acc_account_ledger.php');

/*!
 * \brief this class handle the different bilan, from the table bilan, parse the form and replace
 * in the template
 */
class Acc_Bilan {
  var $db;						/*!< database connection */
  var $b_id;					/*!< id of the bilan (bilan.b_id) */
  var $from;					/*!< from periode */
  var $to;					/*!< end periode */

  function Acc_Bilan($p_cn) {
	$this->db=$p_cn;
  }
/*! 
 * \brief return a string with the form for selecting the periode and
 * the type of bilan
 * \param $p_filter_year filter on a year
 *
 * \return a string
 */
  function display_form($p_filter_year="") {
	$r="";
	$r.=dossier::hidden();
	$r.= '<TABLE>';

	$r.='<TR>';
// filter on the current year
	$w=new ISelect();
	$w->table=1;

	$periode_start=$this->db->make_array("select p_id,to_char(p_start,'DD-MM-YYYY') from parm_periode $p_filter_year order by p_start,p_end");
	
	$periode_end=$this->db->make_array("select p_id,to_char(p_end,'DD-MM-YYYY') from parm_periode $p_filter_year order by p_start,p_end");

	$w->label=_("Depuis");
	$w->value=$this->from;
	$w->selected=$this->from;
	$r.= td($w->input('from_periode',$periode_start));
	$w->label=_(" jusque ");
	$w->value=$this->to;
	$w->selected=$this->to;
	$r.= td($w->input('to_periode',$periode_end));
	$r.= "</TR>";
	$r.="<tr>";
	$mod=new ISelect();
	$mod->table=1;
	$mod->value=$this->db->make_array("select b_id, b_name from bilan order by b_name");
	$mod->label=_("Choix du bilan");
	$r.=td($mod->input('b_id'));
	$r.="</tr>";
	$r.= '</TABLE>';
	return $r;
  }
  /*!\brief check and warn if an accound has the wrong saldo
   * \param $p_message legend of the fieldset
   * \param $p_type type of the Acccount ACT actif, ACTINV...
   * \param $p_type the saldo must debit or credit
   */
  private function warning($p_message,$p_type,$p_deb) {
    $sql="select pcm_val,pcm_lib from tmp_pcmn where pcm_type='$p_type'";
    $res=$this->db->exec_sql($sql);
    if ( Database::num_row($res) ==0 ) 
      return;
    $count=0;
    $nRow=Database::num_row($res);
    $ret="";
    $obj=new Acc_Account_Ledger($this->db,0);
    for ($i=0;$i<$nRow;$i++) {

      $line=Database::fetch_array($res);
      /* set the periode filter */
      $sql=sql_filter_per($this->db,$this->from,$this->to,'p_id','j_tech_per');
      $obj->id=$line['pcm_val'];

      $solde=$obj->get_solde_detail($sql);
      $solde_signed=$solde['debit']-$solde['credit'];
      if ( 
	  ($solde_signed < 0 && $p_deb == 'D' ) ||
	  ($solde_signed > 0 && $p_deb == 'C' )
	   ) {
	$ret.= '<li>Anomalie pour le compte '.$line['pcm_val'].
	  $line['pcm_lib'].
	  "  D: ".$solde['debit'].
	  "  C: ".$solde['credit']." diff ".$solde['solde'];
	$count++;
      }
	  
    }

    echo '<fieldset>';
    echo '<legend>'.$p_message.'</legend>';
    if ( $count <> 0 ) {
      echo '<ol>'.$ret.'</ol>';
      echo '<span class="error">Nbres anomalies : '.$count.'</span>';
    } else
      echo " Pas d'anomalie d&eacute;tect&eacute;e";
      echo '</fieldset>';
    
    
  }
  /*!\brief verify that the saldo is good for the type of account */
  function verify() {
    echo '<h3> Comptes normaux </h3>';
    $this->warning('Actif avec un solde crediteur','ACT','D');
    $this->warning('Passif avec un solde debiteur','PAS','C');
    $this->warning('Compte de resultat : Charge avec un solde crediteur','CHA','D');
    $this->warning('Compte de resultat : produit avec un solde debiteur','PRO','C');
    echo '<hr>';
    echo '<h3> Comptes inverses </h3>';
    $this->warning('Compte inverse : actif avec un solde debiteur','ACTINV','C');
    $this->warning('Compte inverse : passif avec un solde crediteur','PASINV','D');
    $this->warning('Compte inverse : Charge avec un solde debiteur','CHAINV','C');
    $this->warning('Compte inverse : produit avec un solde crediteur','PROINV','D');
    echo '<h3>Solde </h3>';
    /* set the periode filter */
    $sql_periode=sql_filter_per($this->db,$this->from,$this->to,'p_id','j_tech_per');
    /* debit Actif */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='t' and (pcm_type='ACT' or pcm_type='ACTINV')";
    $sql.="and $sql_periode";
    $debit_actif=$this->db->get_value($sql);

    /* Credit Actif */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='f' and (pcm_type='ACT' or pcm_type='ACTINV')";

    $sql.="and $sql_periode";

    $credit_actif=$this->db->get_value($sql);
    $total_actif=abs($debit_actif-$credit_actif);
    echo 'Total actif '.$total_actif;
    echo '<br>';
    /* debit passif */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='t' and (pcm_type='PAS' or pcm_type='PASINV') ";
    $sql.="and $sql_periode";

    $debit_passif=$this->db->get_value($sql);

    /* Credit Actif */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='f' and (pcm_type='PAS' or pcm_type='PASINV') ";
    $sql.="and $sql_periode";
    $credit_passif=$this->db->get_value($sql);
    $total_passif=abs($debit_passif-$credit_passif);
    echo 'Total passif '.$total_passif;
    echo '<br>';
    /* debit charge */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='t' and (pcm_type='CHA' or pcm_type='CHAINV')";
    $sql.="and $sql_periode";
    $debit_charge=$this->db->get_value($sql);

    /* Credit charge */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='f' and (pcm_type='CHA' or pcm_type='CHAINV')";
    $sql.="and $sql_periode";
    $credit_charge=$this->db->get_value($sql);
    $total_charge=abs($debit_charge-$credit_charge);
    echo 'Total charge '.$total_charge;
    echo '<br>';

    /* debit prod */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='t' and (pcm_type='PRO' or pcm_type='PROINV')";
    $sql.="and $sql_periode";
    $debit_pro=$this->db->get_value($sql);

    /* Credit prod */
    $sql="select sum(j_montant) from jrnx join tmp_pcmn on (j_poste=pcm_val)".
      " where j_debit='f' and (pcm_type='PRO' or pcm_type='PROINV')";
    $sql.="and $sql_periode";
    $credit_pro=$this->db->get_value($sql);
    $total_pro=abs($debit_pro-$credit_pro);
    echo 'Total produit '.$total_pro;
    echo '<br>';
    if ( $total_actif != $total_passif ) {
      $diff=$total_actif-$total_passif;
      echo '<span >Difference Actif - Passif = '.$diff.'</span>';
      echo '<br>';
    }
    $diff=$total_pro-$total_charge;
    echo '<span >';
    echo "Difference Produit - Charge ".$diff;
    echo '</span>';
  }
/*! 
 * \brief get data from the $_GET
 *
 */
  function get_request_get() {
	$this->id=(isset($_GET['b_id']))?$_GET['b_id']:"";
	$this->from=( isset ($_GET['from_periode']))?$_GET['from_periode']:-1;
	$this->to=( isset ($_GET['to_periode']))?$_GET['to_periode']:-1;

  }
  /*!\brief load from the database the document data  */
  function load(){
	try {
	  if ( $this->id=="") 
		throw new Exception("le formulaire id n'est pas donnee");
	  
	  $sql="select b_name,b_file_template,b_file_form,lower(b_type) as b_type from bilan where".
		" b_id = ".$this->id;
	  $res=$this->db->exec_sql($sql);
	  
	  if ( Database::num_row($res)==0)
		throw new Exception ('Aucun enregistrement trouve');
	  $array=Database::fetch_array($res,0);
	  foreach ($array as $name=>$value)
		$this->$name=$value;
	  
	}catch(Exception $Ex) {
	  echo $Ex->getMessage();
	  exit();
	}
  }
  /*!\brief open the file of the form */
  /*\return an handle to this file */
  function file_open_form()
  {
	$form=fopen($this->b_file_form,'r');
	if ( $form == false) {
	  echo 'Cannot Open';
	  exit();
	}
	return $form;
  }
  /*!\brief open the file with the template */
  /*\return an handle to this file */
  function file_open_template()
  {
	$templ=fopen($this->b_file_template,'r');
	if ( $templ == false) {
	  echo 'Cannot Open';
	  exit();
	}
	return $templ;

  }
/*! 
 * \brief Compute all the formula
 * \param $p_handle the handle to the file
 * \param
 * \param
 * 
 *
 * \return
 */
  function compute_formula($p_handle) {
	while (! feof ($p_handle)) {
	  $buffer=trim(fgets($p_handle));
	  echo_debug(__FILE__.":".__LINE__." get buffer = ",$buffer);
	  // $a=(CheckFormula($buffer)  == true)?"$buffer ok<br>":'<font color="red">'.'Pas ok '.$buffer."</font><br>";
	  // echo $a;
	  // blank line are skipped
	  if (strlen(trim($buffer))==0) 
		continue;
	  // skip comment
	   if ( strpos($buffer,'#') === true )  
		 continue; 
	  // buffer contains a formula A$=....
	  // We need to eval it 
	  //ereg("\\$[a-zA-Z]+[0-9]*=",$buffer,$e);
	  //  echo $e[0];
	  //echo "<br>".$form;
	  $a=ParseFormula($this->db,"$buffer",$buffer,$this->from,$this->to,false);
	  echo_debug(__FILE__.":".__LINE__."  evaluate \$a",$a);
	  $b=str_replace("$","\$this->",$a);
	  echo_debug(__FILE__.":".__LINE__."  evaluate \$b",$b);
	  
	 if ( eval("$b;") === false ) 
		echo_debug(__FILE__,__LINE__,"Code failed with $b");
	  
	}// end read form line per line
	echo_debug(__FILE__.':'.__LINE__," End of reading form");
  }
  /*!\brief generate the ods document 
  * \param the handle to the template file 
  * \return the xml 
  */
  function generate_odt()
  {
    // create a temp directory in /tmp to unpack file and to parse it
    $dirname=tempnam($_ENV['TMP'],'bilan_');
   
   
    unlink($dirname);
    mkdir ($dirname);
    chdir($dirname);

    echo_debug(__FILE__.':'.__LINE__.'- ','dirname is ',$dirname);
    $file_base=dirname($_SERVER['SCRIPT_FILENAME']).DIRECTORY_SEPARATOR.$this->b_file_template;
    echo_debug(__FILE__.':'.__LINE__.'-','$file_base',$file_base);
    echo_debug(__FILE__.':'.__LINE__.'- ','this is ',$this->b_file_template);
    $work_file=basename($file_base);
    if ( copy ($file_base,$work_file) == false )
      {
	echo "Je ne peux pas ouvrir ce fichier ";
	exit();
      }
    ob_start();
    system('unzip "'.$work_file.'"');
    ob_end_clean();
    unlink($work_file);
    // remove the zip file
    $p_file=fopen('content.xml','r');

    if ( $p_file == false) {
      echo 'Cannot Open';
      exit();
    }

    $r="";
    $regex="&lt;&lt;\\$[A-Z]*[0-9]*&gt;&gt;";
    $lt="&lt;";
    $gt="&gt;";
    while ( !feof($p_file) ) {
      echo_debug(__FILE__.':'.__LINE__.'- ','read line OD FILE');
      $line_rtf=fgets($p_file);
      //      echo_debug(__FILE__.':'.__LINE__.'-','$line_rtf',$line_rtf);

      /* replace the header tag */
      while( ereg('&lt;&lt;header&gt;&gt;',$line_rtf,$head) == true ) {
	foreach ($head as $h) {
	  // Create the header
	  $line_rtf=str_replace($h,header_txt($this->db),$line_rtf);
	  echo_debug(__FILE__.':'.__LINE__.'- ','Header : ');
	}
      }
      //	  echo_debug(__FILE__.':'.__LINE__.'- ','$r',$r);
      // the line contains the magic <<
      $tmp="";
      while (ereg($regex,$line_rtf,$f2) == true) {
	echo_debug(__FILE__.':'.__LINE__.'- ','Pattern found',$f2);

	// the f2 array contains all the magic << in the line
	foreach ($f2 as $f2_str) {
	  echo_debug(__FILE__.':'.__LINE__.'- ','f2_str',$f2_str);

	  $to_remove=$f2_str;
	  $f2_value=str_replace("&lt;","",$f2_str);
	  $f2_value=str_replace("&gt;","",$f2_value);
	  $f2_value=str_replace("$","",$f2_value);

	  // check for missing variables and labels (N vars)
	  if( ! isset($this->$f2_value)) {
	    $a = "!!".$f2_value."!!";
	    if( substr($f2_value, 0, 1) == "N" ) {
	      $ret = $this->db->get_array("SELECT pcm_lib AS acct_name FROM tmp_pcmn WHERE pcm_val::text LIKE ".
			       " substr($1, 2)||'%' ORDER BY pcm_val ASC LIMIT 1",array($f2_value));
	      if($ret[0]['acct_name']) {
		$a = $ret[0]['acct_name'];
		$a=str_replace('<','&lt;',$a);
		$a=str_replace('>','&gt;',$a);
	      }
	    }
	  } else {
		    
	    $a=$this->$f2_value;
	  }
	  if ( $a=='-0' ) $a=0; 

	  /*  allow numeric cel in ODT for the formatting and formula */
	   if ( is_numeric($a) ) {
	     echo_debug(__FILE__,__LINE__," a is numeric $a");
	     $searched='office:value-type="string"><text:p>'.$f2_str;
	     $replaced='office:value-type="float" office:value="'.$a.'"><text:p>'.$f2_str;
	     $line_rtf=str_replace($searched, $replaced, $line_rtf);
	   }		  
	   
	   echo_debug(__FILE__.':'.__LINE__.'- $a =',$a);
	   
	   $line_rtf=str_replace($f2_str,$a,$line_rtf);
		  
	}// foreach end
      } // while ereg
      $r.=$line_rtf;
		
    }// odt file is read
    return $r;
	  
 }

/*! 
 * \brief generate the plain  file (rtf,txt, or html)
 * \param the handle to the template file
 */
  function generate_plain($p_file) {
	$r="";
	if ( $this->b_type=='html') {
	  $lt='&lt;';$gt='&gt;';
	} else {
	  $lt='<';$gt='>';
	}

	while ( !feof($p_file) ) {
	  $line_rtf=fgets($p_file);
	  echo_debug(__FILE__.':'.__LINE__.'-','$line_rtf',$line_rtf);
	  if ( ereg($lt.$lt.'header'.$gt.$gt,$line_rtf) ) {
		// Create the header
		$line_rtf=str_replace($lt.$lt.'header'.$gt.$gt,header_txt($this->db),$line_rtf);
		$r.=$line_rtf;
		continue;
	  }
	  echo_debug(__FILE__.':'.__LINE__.'- ','$r',$r);
	  // the line contains the magic <<
	  if (ereg($lt.$lt."\\$[a-zA-Z]*[0-9]*".$gt.$gt,$line_rtf,$f2) == true) {
		// DEBUG
		//    echo $r.'<br>';
		echo_debug(__FILE__.':'.__LINE__.'- ','Pattern found',$f2);
		// the f2 array contains all the magic << in the line
		foreach ($f2 as $f2_str) {
		  // DEBUG
		  // echo "single_f2 = $f2_str <br>";
		  // replace single_f2 by its value
		  $f2_value=str_replace($lt,"",$f2_str);
		  $f2_value=str_replace($gt,"",$f2_value);
		  $f2_value=str_replace("$","",$f2_value);

          // check for missing variables and labels (N vars)
          if( ! isset($this->$f2_value)) {
            $a = "!!".$f2_value."!!";
            if( substr($f2_value, 0, 1) == "N" ) {
                $ret = $this->db->get_array("SELECT pcm_lib AS acct_name FROM tmp_pcmn WHERE ".
				 " pcm_val::text LIKE substr($1, 2)||'%' ORDER BY pcm_val ASC LIMIT 1",
				 array($f2_value));
                if($ret[0]['acct_name']) {
		  /* for rtf we have the string to put it in latin1 */
                  $a = utf8_decode($ret[0]['acct_name']);
                }
            }
          } else {
		  // DEBUG
		  //echo "f2_value=$f2_value";
		  //		  $a=${"$f2_value"};
		  $a=$this->$f2_value;
          }
		  // DEBUG      echo " a = $a";
		  echo_debug(__FILE__.':'.__LINE__.'- $a =',$a);
		  if ( $a=='-0' ) $a=0; 
		  $line_rtf=str_replace($f2_str,$a,$line_rtf);
		  
		}// foreach end
	  }
	  $r.=$line_rtf;
		
	}// rtf file is read
	// DEBUG
	//  fwrite($out,$r);
	return $r;
	  
	  

	
  }
  /*!\brief generate the document and send it to the browser
   */
  function generate() {
	// Load the data
	$this->load();
	// Open the files
	$form=$this->file_open_form();

	// Compute all the formula and add the value to this
	$this->compute_formula($form);
	fclose($form);
	// open the form
	$templ=$this->file_open_template();
	switch ($this->b_type) {
	case 'rtf':
	  $result=$this->generate_plain($templ);
	  $this->send($result);
	  break;
	case 'txt':
	  $result=$this->generate_plain($templ);
	  $this->send($result);
	case 'html':
	  $result=$this->generate_plain($templ);
	  $this->send($result);

	  break;
	case 'odt':
	case 'ods':
	  $result=$this->generate_odt($templ);	  
	   $this->send($result);
	   break;

	 }
	 fclose($templ);
   }
   /*!\brief send the result of generate plain to the browser
    * \param $p_result is the string returned by generate_...
    */
   function send($p_result) {
	 switch ($this->b_type) {
	 case 'rtf':
	   // A rtf file is generated
	   header('Content-type: application/rtf');
	   header('Content-Disposition: attachment; filename="'.$this->b_name.'.rtf"');
	   echo $p_result;
	   break;

	 case 'txt':
	   // A txt file is generated
	   header('Content-type: application/txt');
	   header('Content-Disposition: attachment; filename="'.$this->b_name.'.txt"');

	   echo $p_result;
	   break;
	 case 'html':
	   // A txt file is generated
	   header('Content-type: application/html');
	   header('Content-Disposition: attachment; filename="'.$this->b_name.'.html"');

	   echo $p_result;
	   break;
	 case 'odt':
	 case 'ods':
	   /*   header("Pragma: public");
	 header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
	 header("Cache-Control: must-revalidate"); 
	 if ( $this->b_type == 'odt' )
	   header('Content-type: application/vnd.oasis.opendocument.text');
	 if ( $this->b_type == 'ods' )
	   header('Content-type: application/vnd.oasis.opendocument.spreadsheet');
	 header('Content-Disposition: attachment;filename="'.$this->b_name.'.odt"',FALSE);
	 header("Accept-Ranges: bytes"); 
	   */
	  ob_start();
	  // save the file in a temp folder
	  // create a temp directory in /tmp to unpack file and to parse it
	  $dirname=tempnam($_SERVER['DOCUMENT_ROOT'].DIRECTORY_SEPARATOR.'tmp','bilan_');
	  
	  
	  unlink($dirname);
	  mkdir ($dirname);
	  chdir($dirname);
	  echo_debug(__FILE__.':'.__LINE__.'- ','dirname is ',$dirname);
	  // create a temp directory in /tmp to unpack file and to parse it
	  $file_base=dirname($_SERVER['SCRIPT_FILENAME']).DIRECTORY_SEPARATOR.$this->b_file_template;
	  echo_debug(__FILE__.':'.__LINE__.'-','$file_base',$file_base);
	  echo_debug(__FILE__.':'.__LINE__.'- ','this is ',$this->b_file_template);
	  $work_file=basename($file_base);
	  if ( copy ($file_base,$work_file) == false )
		{
		  echo "Je ne peux pas ouvrir ce fichier ";
		  echo_debug(__FILE__.':'.__LINE__.'- Je ne peux pas ouvrir ce fichier ');
		  exit();
		}
	  system('unzip "'.$work_file.'"');
	  // remove the zip file
	  unlink ($work_file);


	  // replace the file
	  $p_file=fopen($dirname.DIRECTORY_SEPARATOR.'content.xml','wb');
	  if ( $p_file == false ){
		echo_debug(__FILE__.':'.__LINE__.'- Je ne peux pas ouvrir content.xml ');
		exit('Je ne peux pas ouvrir content.xml');

	  }
	  $a=fwrite($p_file,$p_result);
	  if ( $a==false) {
		echo "Je ne peux pas ecrire dans content.xml";
		echo_debug(__FILE__.':'.__LINE__.'- Je ne peux pas ecrire dans content.xml ');
		exit();
	  }
	  // repack
	  system ('zip -r "'.$this->b_name.'.'.$this->b_type.'" *');
	  ob_end_clean();
	  fclose($p_file);
	  echo_debug(__FILE__.':'.__LINE__.'- ','Send the file');
	  $fdoc=fopen($dirname.DIRECTORY_SEPARATOR.$this->b_name.'.'.$this->b_type,'r');
	  if ( $fdoc == false ){
		echo_debug(__FILE__.':'.__LINE__.'- Je ne peux pas ouvrir ce document');
		exit('Je ne peux pas ouvrir ce document');
	  }
	  $buffer=fread ($fdoc,filesize($dirname.DIRECTORY_SEPARATOR.$this->b_name.'.'.$this->b_type));
	  echo $buffer;

	  break;
	  // and send
	}

  }
  static function test_me() {

	if ( isset($_GET['result'])) {
	  ob_start();
	  $cn=new Database(dossier::id());
	  $a=new Acc_Bilan($cn);
	  $a->get_request_get();

	  $a->load();
	  $form=$a->file_open_form();
	  $a->compute_formula($form);
	  fclose($form);
	// open the form
	  $templ=$a->file_open_template();
	  $r=$a->generate_odt($templ);
	  fclose($templ);
	  ob_end_clean();

	  //	  echo_debug(__FILE__.':'.__LINE__,"resutl ",$r);
	  $a->send($r);
	}
	else {
	$cn=new Database(dossier::id());
	$a=new Acc_Bilan($cn);
	$a->get_request_get();

	echo '<form method="get">';
	echo $a->display_form();
	echo '</form>';
	}
  }
}