<?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 file match the tables jrn & jrnx the purpose is to
 *   remove or save accountant writing to these table. 
 */
require_once ('class_user.php');
/*! \brief  this file match the tables jrn & jrnx the purpose is to
 *   remove or save accountant writing to these table. 
 *
 */
class Acc_Operation 
{
  var $db; 				/*!< database connx */
var $jr_id;	/*!< pk of jrn */
  var $jrn_id;			/*!< jrn_def_id */
  var $debit;			/*!< debit or credit */
  var $user;			/*!< current user */
  var $jrn;			/*!< the ledger to use */
  var $poste;			/*!< account  */
  var $date;			/*!< the date */
  var $periode;			/*!< periode to use */
  var $amount;			/*!< amount of the operatoin */
  var $grpt;			/*!< the group id */
/*! 
 * \brief constructor set automatically the attributes user and periode
 * \param $p_cn the databse connection
 */
  function __construct($p_cn) {
    $this->db=$p_cn;
    $this->qcode="";
    $this->user=$_SESSION['g_user'];
    $user=new User($this->db);
    $this->periode=$user->get_periode();
    $this->jr_id=0;
  }
  /* **************************************************
   *\brief  Insert into the table Jrn
   *        
   *  
   * \return  nothing
   *
   */

  function insert_jrnx()
  {
    if ( $this->poste == "") return true;

    $debit=($this->type=='c')?'false':'true';
    
    $sql=sprintf("select insert_jrnx
		 ('%s',abs(%.2f),%d,%d,%d,%s,'%s',%d,upper('%s'))",
		 $this->date,round($this->amount,2),
		 $this->poste,$this->grpt,$this->jrn,
		 $debit,$this->user,$this->periode,$this->qcode);
    
    $Res=ExecSql($this->db,$sql);
    if ( $Res==false) return $Res;
    $this->jrnx_id=GetSequence($this->db,'s_jrn_op');
    return $this->jrnx_id;
    
}
/*!
 **************************************************
 *\brief  Insert into the table Jrn, the amount is computed from jrnx thanks the 
 *        group id ($p_grpt)
 *        
 * \return  sequence
 *  
 */

  function insert_jrn()
{
	$p_comment=FormatString($this->desc);


	// retrieve the value from jrnx
	// 
	$montant_deb=getDBValue($this->db,"select sum(j_montant) from jrnx where j_debit='t' and j_grpt=".$this->grpt);
	$montant_cred=getDBValue($this->db,"select sum(j_montant) from jrnx where j_debit='f' and j_grpt=".$this->grpt);
	echo_debug('InsertJrn',__LINE__,"debit = $montant_deb credit  = $montant_cred ");

	$amount=-1.0000;
	if ( $montant_deb == $montant_cred ) {
	  $amount=$montant_deb;
	} else {
	  echo "Erreur : balance incorrecte : d&eacute;bit = $montant_deb cr&eacute;dit = $montant_cred";
	  return false;
	}
	// if amount == -1then the triggers will throw an error
	// 
	$sql=sprintf("insert into jrn (jr_def_id,jr_montant,jr_comment,jr_date,jr_ech,jr_grpt_id,jr_tech_per)
	         values ( %d,abs(%.2f),'%s',to_date('%s','DD.MM.YYYY'),null,%d,%d)",
		     $this->jrn, $amount,$p_comment,$this->date,$this->grpt,$this->periode);


	$Res=ExecSql($this->db,$sql);				 
	if ( $Res == false)  return false;
	$this->jr_id=GetSequence($this->db,'s_jrn');
	return $this->jr_id;
}
/*!
 * \brief  Return the internal value, the property jr_id must be set before
 *
 * \return  null si aucune valeur de trouv
 *
 */
function get_internal() {
 if ( ! isset($this->jr_id) ) 
		throw new Exception('jr_id is not set',1);
  $Res=ExecSql($this->db,"select jr_internal from jrn where jr_id=".$this->jr_id);
  if ( pg_NumRows($Res) == 0 ) return null;
  $l_line=pg_fetch_array($Res);
  $this->jr_internal= $l_line['jr_internal'];
  return $this->jr_internal;
}
/*!\brief search an operation thankx it internal code
 * \param internal code
 * \return 0 ok -1 nok
 */
 function seek_internal($p_internal) {
   $res=ExecSqlParam($this->db,'select j_id from jrn where jr_internal=$1',
		     array($p_internal));
   if ( pg_NumRows($Res) == 0 ) return -1;
   $this->jr_id=pg_fetch_result($Res,0,0);
   return 0;
 }
 /*!\brief retrieve data from jrnx 
  * \return an array
  */
 function get_jrnx_detail() {
   if ( $this->jr_id==0 ) return;
   $sql=" select j_date,j_qcode,j_poste,j_montant,jr_internal,case when j_debit = 'f' then 'C' else 'D' end as debit,
                vw_name,pcm_lib from jrnx join jrn on (jr_grpt_id=j_grpt)
                join tmp_pcmn on (j_poste=pcm_val)
                left join vw_fiche_attr on (j_qcode=quick_code)
		where
		jr_id=$1";
   $res=ExecSqlParam($this->db,$sql,array($this->jr_id));
   if ( pg_NumRows ($res) == 0 ) return array();
   $all=pg_fetch_all($res);
   return $all;
 }
 /*!\brief display_jrnx_detail : get the data from get_jrnx_data and
    return a string with HTML code 
  * \param table(=0 no code for table,1 code for table,2 code for CSV)

 */
 function display_jrnx_detail($p_table) {
   $show=$this->get_jrnx_detail();

   $r='';
   $r_notable='';
   $csv="";
   foreach ($show as $l) {
     if ( $l['j_poste'] == $this->poste)
       $r.='<tr bgcolor="red">';
     else
       $r.='<tr>';

       $r.='<td>';
       $a=$l['j_qcode'];;
       $r_notable.=$a;
       $r.=$a;
       $csv.='"'.$a.'";';
       $r.='</td>';
       
       $r.='<td>';
       $a=$l['j_poste'];
       $r_notable.=$a;
       $r.=$a;
       $csv.='"'.$a.'";';
       $r.='</td>';

       $r.='<td>';
       $a=($l['vw_name']=="")?$l['j_qcode']:$l['pcm_lib'];
       $r_notable.=$a;
       $r.=$a;
       $csv.='"'.$a.'";';
       $r.='</td>';
       
       $r.='<td>';
       $a=$l['j_montant'];
       $r_notable.=$a;
       $r.=$a;
       $csv.=$a.';';
       $r.='</td>';
       
       $r.='<td>';
       $a=$l['debit'];
       $r_notable.=$a;
       $r.=$a;
       $csv.='"'.$a.'"';

       $csv.="\n\r";
       $r.='</td>';
     
       $r.='</tr>';
   }
   switch ($p_table) {
   case 1:
     return $r;
     break;
   case 0:
     return $r_notable;
     break;
   case 2:
     return $csv;
   }
   return "ERROR PARAMETRE";
 }
}