<?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
require_once('class_fiche.php');
require_once('class_user.php');
require_once ('class_widget.php');
require_once ('class_dossier.php');
require_once ('class_own.php');
require_once ('class_anc_operation.php');
require_once ('class_acc_operation.php');
require_once ('class_acc_account_ledger.php');
require_once ('class_pre_op_advanced.php');
require_once ('jrn.php');
require_once ('class_acexception.php');
require_once ('class_acc_reconciliation.php');
require_once ('class_periode.php');
require_once ('class_gestion_purchase.php');
require_once ('class_acc_account.php');
require_once('ac_common.php');
/*!\file
* \brief Class for jrn,  class acc_ledger for manipulating the ledger
*/

/*!\brief Class for jrn,  class acc_ledger for manipulating the ledger
*
*/
class Acc_Ledger {
  var $id;			/*!< jrn_def.jrn_def_id */
  var $name;			/*!< jrn_def.jrn_def_name */
  var $db;			/*!< database connextion */
  var $row;			/*!< row of the ledger */
  var $type;			/*!< type of the ledger ACH ODS FIN
				  VEN or GL */
  var $nb;			/*!< default number of rows by
				  default 10 */

  function Acc_Ledger ($p_cn,$p_id){
    $this->id=$p_id;
    $this->db=$p_cn;
    $this->row=null;
    $this->nb=10;
  }
  function get_last_pj() {
    if ( exist_sequence($this->db,"s_jrn_pj".$this->id) )
      return getDbValue($this->db,"select last_value from s_jrn_pj".$this->id);
    else
      create_sequence($this->db,"s_jrn_pj".$this->id);
    return 0;
  }
  /*! 
   * \brief Return the type of a ledger (ACH,VEN,ODS or FIN) or GL 
   * 
   */
  function get_type() {
    if ( $this->id==0 ) {
      $this->name=" Grand Livre ";
      $this->type="GL";
      return "GL";
    }

    $Res=ExecSql($this->db,"select jrn_def_type from ".
		 " jrn_def where jrn_def_id=".
		 $this->id);
    $Max=pg_NumRows($Res);
    if ($Max==0) return null;
    $ret=pg_fetch_array($Res,0);
    $this->type=$ret['jrn_def_type'];
    return $ret['jrn_def_type'];
  }
  /*! 
   * \brief Return the name of a ledger 
   * 
   */
  function get_name() {
    if ( $this->id==0 ) {
      $this->name=" Grand Livre ";
      return $this->name;
    }
  
    $Res=ExecSql($this->db,"select jrn_def_name from ".
		 " jrn_def where jrn_def_id=".
		 $this->id);
    $Max=pg_NumRows($Res);
    if ($Max==0) return null;
    $ret=pg_fetch_array($Res,0);
    $this->name=$ret['jrn_def_name'];
    return $ret['jrn_def_name'];
  }
 
 
  /*! \function  get_row
   * \brief  Get The data 
   * 
   *
   * \param p_from from periode
   * \param p_to to periode
   * \param $p_cent (on or off)
   * \param p_limit starting line
   * \param p_offset number of lines
   * \return Array with the asked data
   *
   */ 
  function get_row($p_from,$p_to,$cent='off',$p_limit=-1,$p_offset=-1) {

    echo_debug('class_acc_ledger.php',__LINE__,"get_row ( $p_from,$p_to,$cent,$p_limit,$p_offset)");
  
    $periode=sql_filter_per($this->db,$p_from,$p_to,'p_id','jr_tech_per');
  
    $cond_limite=($p_limit!=-1)?" limit ".$p_limit." offset ".$p_offset:"";
    // retrieve the type
    $this->get_type();
    // Grand livre == 0
    if ( $this->id != 0 ) {

      if ( $cent=='off' ) {
	echo_debug('class_acc_ledger.php',__LINE__,"journaux non  centralise");
	// Journaux non centralises
	$Res=ExecSql($this->db,"select j_id,j_id as int_j_id,to_char(j_date,'DD.MM.YYYY') as j_date,
	      jr_internal,
	case j_debit when 't' then j_montant::text else '   ' end as deb_montant,
	case j_debit when 'f' then j_montant::text else '   ' end as cred_montant,
	j_debit as debit,j_poste as poste,jr_montant , ".
		     "coalesce(j_text,pcm_lib) as description,j_grpt as grp,
jr_comment||' ('||jr_internal||')'||case when jr_pj_number is not null and jr_pj_number  !='' then jr_pj_number else '' end  as jr_comment,
       j_qcode,
	jr_rapt as oc, j_tech_per as periode 
      from jrnx left join jrn on ".
		     "jr_grpt_id=j_grpt ".
		     " left join tmp_pcmn on pcm_val=j_poste ".
		     " where j_jrn_def=".$this->id.
		     " and ".$periode." order by j_date::date asc,jr_internal,j_debit desc ".
		     $cond_limite);
      }else {
	// Journaux centralises
	//      echo'class_acc_ledger.php',__LINE__,"journaux centralise";
	$Sql="select jr_opid as j_id,
	    c_order as int_j_id,
    to_char (c_date,'DD.MM.YYYY') as j_date ,
    c_internal as jr_internal,
    case c_debit when 't' then c_montant::text else '   ' end as deb_montant,
    case c_debit when 'f' then c_montant::text else '   ' end as cred_montant,
    c_debit as j_debit,
    c_poste as poste,
    coalesce(j_text,pcm_lib) as description,
    j_qcode,
jr_comment||' ('||c_internal||')'||case when jr_pj_number is not null and jr_pj_number  !='' then 'pj:'||coalesce(jr_pj_number,'-') else '' end  as jr_comment,
    jr_montant,
    c_grp as grp,
    c_comment as comment,
    c_rapt as oc,
    c_periode as periode 
    from 
  
  centralized left join jrnx on j_id=c_j_id 
 left join tmp_pcmn on pcm_val=c_poste 
 left join jrn on jr_grpt_id=c_grp
   where ".
	  " c_jrn_def=".$this->id." and ".
	  $periode." order by c_order ";
	$Res=ExecSql($this->db,$Sql.$cond_limite);

      }
    } else {
      // Grand Livre
      if ( $cent == 'off') {
	echo_debug('class_acc_ledger.php',__LINE__,"Grand livre non centralise");
	// Non centralise
	$Res=ExecSql($this->db,"select j_id,j_id as int_j_id,to_char(j_date,'DD.MM.YYYY') as j_date,
	      jr_internal,
	case j_debit when 't' then j_montant::text else '   ' end as deb_montant,
	case j_debit when 'f' then j_montant::text else '   ' end as cred_montant,
	j_debit as debit,j_poste as poste,".
		     "coalesce(j_text,pcm_lib) as description,j_grpt as grp,
jr_comment||' ('||jr_internal||')'||case when jr_pj_number is not null and jr_pj_number  !='' then 'pj:'||coalesce(jr_pj_number,'-') else '' end as jr_comment,
	jr_montant,
	j_qcode,
	jr_rapt as oc, j_tech_per as periode from jrnx left join jrn on ".
		     "jr_grpt_id=j_grpt left join tmp_pcmn on pcm_val=j_poste where ".
		     "  ".$periode." order by j_date::date,j_grpt,j_debit desc   ".
		     $cond_limite);

      } else {
	echo_debug('class_acc_ledger.php',__LINE__,"Grand livre  centralise");
	// Centralise
	$Sql="select jr_c_opid as j_id,
	   c_order as int_j_id,
    c_j_id,
    to_char (c_date,'DD.MM.YYYY') as j_date ,
    c_internal as jr_internal,
    case c_debit when 't' then c_montant::text else '   ' end as deb_montant,
    case c_debit when 'f' then c_montant::text else '   ' end as cred_montant,
    c_debit as j_debit,
    c_poste as poste,
    coalesce(j_text,pcm_lib) as description,
jr_comment||' ('||c_internal||')'||case when jr_pj_number is not null and jr_pj_number  !='' then 'pj:'||coalesce(jr_pj_number,'-') else '' end as jr_comment,
    jr_montant,
    c_grp as grp,
    c_comment||' ('||c_internal||' '||jr_opid||')'||'pj:'||coalesce(jr_pj_number,'-') as comment,
    c_rapt as oc,
    j_qcode,
    c_periode as periode
    from centralized left join jrn on ".
	  "jr_grpt_id=c_grp left join tmp_pcmn ".
	  " on (pcm_val=c_poste)  ".
	  "            join jrnx on (j_id=c_j_id)".
	  " where ".
	  $periode." order by c_order ";
	$Res=ExecSql($this->db,$Sql.$cond_limite);
      } // Grand Livre
    }


    $array=array();
    $Max=pg_NumRows($Res);
    if ($Max==0) return null;
    $case="";
    $tot_deb=0;
    $tot_cred=0;
    $row=pg_fetch_all($Res);
    for ($i=0;$i<$Max;$i++) {
      $fiche=new fiche($this->db);
      $line=$row[$i];
      $mont_deb=($line['deb_montant']!=0)?sprintf("% 8.2f",$line['deb_montant']):"";
      $mont_cred=($line['cred_montant']!=0)?sprintf("% 8.2f",$line['cred_montant']):"";
      $jr_montant=($line['jr_montant']!=0)?sprintf("% 8.2f",$line['jr_montant']):"";
      $tot_deb+=$line['deb_montant'];
      $tot_cred+=$line['cred_montant'];
      $tot_op=$line['jr_montant'];
      echo_debug('class_acc_ledger.php',__LINE__," get_row : mont_Deb ".$mont_deb);
      echo_debug('class_acc_ledger.php',__LINE__," get_row : mont_cred ".$mont_cred);

      /* Check first if there is a quickcode */
      if ( strlen(trim($line['j_qcode'])) != 0 ) 
	{
	  if ( $fiche->get_by_qcode($line['j_qcode'],false) == 0 ) 
	    {
	      $line['description']=$fiche->strAttribut(ATTR_DEF_NAME);
	    }
	}
      if ( $case != $line['grp'] ) {
	$case=$line['grp'];
	// for financial, we show if the amount is or not in negative
	if ( $this->type=='FIN') {
	  echo_debug(__FILE__,__LINE__,"Journal FIN");
	  $eMax=(($i+20) < $Max)?$i+20:$Max;
	  // check in $row if the BQE is in deb or cred
	  for ($e=$i;$e<$Max;$e++) {
	    echo_debug(__FILE__,__LINE__,$row[$e]);
	    if ( $row[$e]['grp'] != $case ) continue;
	    if ( strlen(trim($row[$e]['j_qcode'])) == 0 ) continue;
	
	    $f=new fiche($this->db);
	    $f->get_by_qcode($row[$e]['j_qcode'],false);
	    echo_debug(__FILE__,__LINE__,$f);
	    if ( $f->get_fiche_def_ref_id() == FICHE_TYPE_FIN ) {
	      $tot_op=($row[$e]['debit'] == 't')?$jr_montant:" - ".$jr_montant;
	      break;
	    }
	  }
	}
	$array[]=array (
			'int_j_id' => $line['int_j_id'],
			'j_id'=>$line['j_id'],
			'j_date' => $line['j_date'],
			'internal'=>$line['jr_internal'],
			'deb_montant'=>'',
			'cred_montant'=>' ',
			'description'=>'<b><i>'.h($line['jr_comment']).' ['.$tot_op.'] </i></b>',
			'poste' => $line['oc'],
			'qcode' => $line['j_qcode'],
			'periode' =>$line['periode'] );

	$array[]=array (
			'int_j_id' => $line['int_j_id'],
			'j_id'=>'', 
			'j_date' => '',
			'internal'=>'',
			'deb_montant'=>$mont_deb,
			'cred_montant'=>$mont_cred,
			'description'=>$line['description'],
			'poste' => $line['poste'],
			'qcode' => $line['j_qcode'],
			'periode' => $line['periode']
			);

      }else {
	$array[]=array (
			'int_j_id' => $line['int_j_id'],
			'j_id'=>'',
			'j_date' => '',
			'internal'=>'',
			'deb_montant'=>$mont_deb,
			'cred_montant'=>$mont_cred,
			'description'=>$line['description'],
			'poste' => $line['poste'],
			'qcode' => $line['j_qcode'],
			'periode' => $line['periode']);

      }


    }
    echo_debug('class_acc_ledger.php',__LINE__,"Total debit $tot_deb,credit $tot_cred");
    $this->row=$array;
    $a=array($array,$tot_deb,$tot_cred);
    return $a;
  }
  /*! \brief  Get simplified row from ledger 
   *        
   * \param from periode 
   * \param to periode 
   * \param centralized (on or off) 
   * \param p_limit starting line 
   * \param p_offset number of lines
   * \param trunc if data must be truncated (pdf export)
   *
   * \return an Array with the asked data 
   */
  function get_rowSimple($p_from,$p_to,$cent='off',$trunc=0,$p_limit=-1,$p_offset=-1) 
  {
    // Grand-livre : id= 0
    //---
    $jrn=($this->id == 0 )?"":"and jrn_def_id = ".$this->id;
    // Non Centralise si cent=off
    //--
    if ($cent=='off') 
      {// Non centralise

	$periode=sql_filter_per($this->db,$p_from,$p_to,'p_id','jr_tech_per');

	$cond_limite=($p_limit!=-1)?" limit ".$p_limit." offset ".$p_offset:"";
	//---
	$sql=" 
	  SELECT jrn.jr_id as jr_id ,
	      jrn.jr_id as num , 
	      jrn.jr_def_id as jr_def_id, 
	      jrn.jr_montant as montant, 
	      substr(jrn.jr_comment,1,30)|| case when jr_pj_number is not null and jr_pj_number  !='' then 'pj:'||coalesce(jr_pj_number,'-') else '' end as comment,
	      to_char(jrn.jr_date,'DD-MM-YYYY') as date, 
	      jr_internal,
	      jrn.jr_grpt_id as grpt_id, 
	      jrn.jr_pj_name as pj,
	      jrn_def_type,
	       jrn.jr_tech_per
	  FROM jrn join jrn_def on (jrn_def_id=jr_def_id)
	  WHERE $periode $jrn order by jr_date $cond_limite";
      } 
    else 
      {

	$periode=sql_filter_per($this->db,$p_from,$p_to,'p_id','jr_tech_per');

	$cond_limite=($p_limit!=-1)?" limit ".$p_limit." offset ".$p_offset:"";
	//Centralise
	//---
	$id=($this->id == 0 ) ?"jr_c_opid as num":"jr_opid as num";

	$sql="
    SELECT jrn.jr_id as jr_id ,
	   $id , 
	   jrn.jr_def_id as jr_def_id, 
	   jrn.jr_montant as montant, 
	      substr(jrn.jr_comment,1,30)|| case when jr_pj_number is not null and jr_pj_number  !='' then 'pj:'||coalesce(jr_pj_number,'-') else '' end as comment,
	   to_char(jrn.jr_date,'DD-MM-YYYY') as date, 
	   jr_internal,
	   jrn.jr_grpt_id as grpt_id, 
	   jrn.jr_pj_name as pj,
	   jrn_def_type,
	   jrn.jr_tech_per 
   FROM jrn join jrn_def on (jrn_def_id=jr_def_id) 
       where 
	 $periode $jrn and 
	 jr_opid is not null
	 order by num  $cond_limite";
      }// end else $cent=='off'
    //load all data into an array
    //---

    $Res=ExecSql($this->db,$sql);
    $Max=pg_NumRows($Res);
    if ( $Max == 0 ) 
      {
	return null;
      } 
    $type=$this->get_type();
    // for type ACH and Ven we take more info
    if (  $type == 'ACH' ||  	  $type == 'VEN') 
      {
	$a_ParmCode=get_array($this->db,'select p_code,p_value from parm_code');
	$a_TVA=get_array($this->db,'select tva_id,tva_label,tva_poste 
			 from tva_rate where tva_rate != 0 order by tva_id');
	for ( $i=0;$i<$Max;$i++) 
	  {
	    $array[$i]=pg_fetch_array($Res); 
	    $p=$this->get_detail($array[$i],$type,$trunc,$a_TVA,$a_ParmCode);
	    if ( $array[$i]['dep_priv'] != 0.0) {
	      $array[$i]['comment'].="(priv. ".$array[$i]['dep_priv'].")";
	    } 
	  }
 
      }
    else 
      {
	$array=pg_fetch_all($Res);
 
      }

    return $array;  
  }// end function get_rowSimple

  /*!\brief guess what  the next pj should be
   */
  function guess_pj() {
    $prop=$this->get_propertie();
    $pj_pref=$prop["jrn_def_pj_pref"];
    $pj_seq=$this->get_last_pj();
    return $pj_pref.$pj_seq;
  }
  /*!\brief Show all the operation, propose a form to select the
   *ledger and the periode
   *\return none
   *\note echo directly, there is no return with the html code
   */
  public function show_ledger() {

    $w=new widget("select");
    $User=new User($this->db); 
    // filter on the current year
    $filter_year=" where p_exercice='".$User->get_exercice()."'";
    
    $periode_start=make_array($this->db,"select p_id,to_char(p_start,'DD-MM-YYYY') from parm_periode $filter_year order by  p_start,p_end",1);
    $current=(isset($_GET['p_periode']))?$_GET['p_periode']:$User->get_periode();
    $w->selected=$current;
    
    echo 'Période  '.$w->IOValue("p_periode",$periode_start);

    $qcode=(isset($_GET['qcode']))?$_GET['qcode']:"";

    $all=$this->get_all_fiche_def();
    echo JS_SEARCH_CARD;
    echo JS_PROTOTYPE;
    echo JS_AJAX_FICHE;
    $w=new widget('js_search_only');
    $w->name='qcode';
    $w->value=$qcode;
    $w->label='';
    $w->extra='filter';
    $w->extra2='QuickCode';
    $w->table=0;
    $sp= new widget("span"); 
    echo $sp->IOValue("qcode_label","",$qcode); 
    echo $w->IOValue();

    echo widget::submit('gl_submit','Recherche');
 // Show list of sell
 // Date - date of payment - Customer - amount
    if ( $current == -1) {
      $cond=" jr_tech_per in (select p_id from parm_periode where p_exercice='".$User->get_exercice()."')";
    } else {
      $cond="  jr_tech_per=".$current;
    }
    
    $sql=SQL_LIST_ALL_INVOICE."where ".$cond." and jr_def_id=".$this->id ;
    $step=$_SESSION['g_pagesize'];
    $page=(isset($_GET['offset']))?$_GET['page']:1;
    $offset=(isset($_GET['offset']))?$_GET['offset']:0;
    $filter_ledger=" jr_def_id=".$this->id;
    $l="";
    // check if qcode contains something
    if ( $qcode != "" )
      {
	$qcode=Formatstring($qcode);
	// add a condition to filter on the quick code
	$l=" and jr_grpt_id in (select j_grpt from jrnx where j_qcode=upper('$qcode')) ";
	$sql="where  $cond $l and $filter_ledger ";
      }

    list($max_line,$list)=ListJrn($this->db,$this->id,$sql,null,$offset,0);
    $bar=jrn_navigation_bar($offset,$max_line,$step,$page);
    
    echo "<hr>$bar";
    echo dossier::hidden();  
    $hid=new widget("hidden");
    
    echo $list;

    echo "$bar <hr>";
    
    echo '</div>';
    
    
}
  /*! 
   * \brief get_detail gives the detail of row 
   * this array must contains at least the field
   *       <ul>
   *       <li> montant</li>
   *       <li> grpt_id
   *       </ul>
   * the following field will be added
   *       <ul>
   *       <li> HTVA  
   *       <li> TVAC
   *       <li> TVA array with
   *          <ul>
   *          <li> field 0 idx
   *          <li> array containing tva_id,tva_label and tva_amount
   *          </ul>
   *       </ul> 
   *
   * \param p_array the structure is set in get_rowSimple, this array is 
   *        modified,  
   * \param $trunc if the data must be truncated, usefull for pdf export
   * \param p_jrn_type is the type of the ledger (ACH or VEN)
   * \param $a_TVA TVA Array (default null)
   * \param $a_ParmCode Array (default null)
   * \return p_array 
   */
  function get_detail(&$p_array,$p_jrn_type,$trunc=0,$a_TVA=null,$a_ParmCode=null)
  {
    echo_debug(__FILE__.':'.__LINE__.'- get_detail','$p_array',$p_array);
    if ( $a_TVA == null ) 
      {
	//Load TVA array
	$a_TVA=get_array($this->db,'select tva_id,tva_label,tva_poste 
			 from tva_rate where tva_rate != 0 order by tva_id');
      }
    if ( $a_ParmCode == null )
      {
	//Load Parm_code
	$a_ParmCode=get_array($this->db,'select p_code,p_value from parm_code');
      }
    // init
    $p_array['client']="";
    $p_array['TVAC']=0;
    $p_array['TVA']=array();
    $p_array['AMOUNT_TVA']=0.0;
    $p_array['dep_priv']=0;
    $dep_priv=0.0;
    //
    // Retrieve data from jrnx
    $sql="select j_id,j_poste,j_montant, j_debit,j_qcode from jrnx where ".
      " j_grpt=".$p_array['grpt_id'];
    $Res2=ExecSql($this->db,$sql);
    $data_jrnx=pg_fetch_all($Res2);
    $c=0;

    // Parse data from jrnx and fill diff. field
    foreach ( $data_jrnx as $code ) {
      $idx_tva=0;
      echo_debug('class_acc_ledger',__LINE__,'Code is');
      echo_debug('class_acc_ledger',__LINE__,$code);
      $poste=new Acc_Account_Ledger($this->db,$code['j_poste']);

      // if card retrieve name if the account is not a VAT account
      if ( strlen(trim($code['j_qcode'] )) != 0 && $poste->isTva() == 0 )
	{
	  echo_debug('class_acc_ledger',__LINE__,'fiche_def = '.$code['j_qcode']);
	  $fiche=new fiche($this->db);
	  $fiche->get_by_qcode(trim($code['j_qcode']),false);
	  $fiche_def_id=$fiche->get_fiche_def_ref_id();
	  // Customer or supplier
	  if ( $fiche_def_id == FICHE_TYPE_CLIENT ||
	       $fiche_def_id == FICHE_TYPE_FOURNISSEUR ) 
	    {
	      echo_debug('class_acc_ledger',__LINE__,$code['j_qcode'].'est F ou C');
	      $p_array['TVAC']=$code['j_montant'];

	      $p_array['client']=($trunc==0)?$fiche->getName():substr($fiche->getName(),0,20);
	      $p_array['reversed']=false;
	      if (	$fiche_def_id == FICHE_TYPE_CLIENT && $code['j_debit']=='f')
		{
		  $p_array['reversed']=true;
		  $p_array['TVAC']*=-1;
	      
		}
	      if (	$fiche_def_id == FICHE_TYPE_FOURNISSEUR && $code['j_debit']=='t')
		{
		  $p_array['reversed']=true;
		  $p_array['TVAC']*=-1;
		}
	  
	  
	    } else {
	    // if we use the ledger ven / ach for others card than supplier and customer
	    if ( $fiche_def_id != FICHE_TYPE_VENTE &&
		 $fiche_def_id != FICHE_TYPE_ACH_MAR && 
		 $fiche_def_id != FICHE_TYPE_ACH_SER ) {
	      echo_debug('class_acc_ledger',__LINE__,$code['j_qcode']."n 'est PAS F ou C");
	      $p_array['TVAC']=$code['j_montant'];
	    
	      $p_array['client']=	($trunc==0)?$fiche->getName():substr($fiche->getName(),0,20);
	      $p_array['reversed']=false;
	      if ($p_jrn_type == 'ACH' && $code['j_debit']=='t')
		{
		  $p_array['reversed']=true;
		  $p_array['TVAC']*=-1;
		
		}
	      if ($p_jrn_type == 'VEN'  && $code['j_debit']=='f')
		{
		  $p_array['reversed']=true;
		  $p_array['TVAC']*=-1;
		}
	    
	    
	    }
	  }
	}
      echo_debug('class_acc_ledger',__LINE__,$a_TVA);
      // if TVA, load amount, tva id and rate in array 
      foreach ( $a_TVA as $line_tva) 
	{	      
	  echo_debug('class_acc_ledger',__LINE__,'ICI');
	  echo_debug('class_acc_ledger',__LINE__,'Montant TVA = '.$p_array['AMOUNT_TVA']);
	  list($tva_deb,$tva_cred)=split(',',$line_tva['tva_poste']);
	  if ( $code['j_poste'] == $tva_deb ||
	       $code['j_poste'] == $tva_cred )
	    {
		  
	      // For the reversed operation
	      if ( $p_jrn_type == 'ACH' && $code['j_debit'] == 'f')
		{
		  $code['j_montant']=-1*$code['j_montant'];
		}
	      if ( $p_jrn_type == 'VEN' && $code['j_debit'] == 't')
		{
		  $code['j_montant']=-1*$code['j_montant'];
		}
		  
	      $p_array['AMOUNT_TVA']+=$code['j_montant'];
		  
	      $p_array['TVA'][$c]=array($idx_tva,array($line_tva['tva_id'],$line_tva['tva_label'],$code['j_montant']));
	      echo_debug('class_acc_ledger',__LINE__,'Montant TVA = '.$p_array['AMOUNT_TVA']);
	      $c++;
		  
	      $idx_tva++;
	    }
	}
  
      // isDNA
      // If operation is reversed then  amount are negatif
    /* if ND */
      if ( $p_array['jrn_def_type'] == 'ACH') {
	$purchase=new Gestion_Purchase($this->db);
	$purchase->search_by_jid($code['j_id']);
	$purchase->load();
	$dep_priv+=$purchase->qp_dep_priv;
	echo_debug(__FILE__.':'.__LINE__.'- get_detail','$dep_priv',$dep_priv);
	$p_array['dep_priv']=$dep_priv;
      }

    }
    $p_array['TVAC']=sprintf('% 10.2f',$p_array['TVAC']-$dep_priv);
    $p_array['HTVA']=sprintf('% 10.2f',$p_array['TVAC']-$p_array['AMOUNT_TVA']);
    $r="";
    $a_tva_amount=array();
    // inline TVA (used for the PDF)
    foreach ($p_array['TVA'] as $linetva) 
      {
	foreach ($a_TVA as $tva)
	  {
	    if ( $tva['tva_id'] == $linetva[1][0] )
	      {
		$a=$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])) 
	  {
	    $tmp=sprintf("% 10.2f",$a_tva_amount[$a]);     
	    //		$r.=str_repeat("_",10-strlen($tmp)).$tmp." ";
	    // $r.=str_repeat(" ",10-strlen($tmp)).$tmp." ";
	    $r.="$tmp";
	  }
	else
	  $r.=sprintf("% 10.2f",0);
	//         $r.=str_repeat(" ",6)."0.00 ";
	//	            $r.=str_repeat("_",6)."0.00 ";
	//$r.="     0.00";
      }
    $p_array['TVA_INLINE']=$r;

    return $p_array;
  }  // retrieve data from jrnx
  /*!
   * \brief  Get the properties of a journal
   *
   * parm :
   *      - p_dossier the folder id
   *      - p_jrn the jrn id
   * gen :
   *      - none
   * return:
   *      - an array containing properties
   *
   */
  function get_propertie()
  { 
    if ( $this->id == 0 ) return;

    $Res=ExecSqlParam($this->db,"select jrn_Def_id,jrn_def_name,jrn_def_class_deb,jrn_def_class_cred,jrn_def_type,
	   jrn_deb_max_line,jrn_cred_max_line,jrn_def_ech,jrn_def_ech_lib,jrn_def_code,
	   jrn_def_fiche_deb,jrn_def_fiche_deb,jrn_def_pj_pref
	   from jrn_Def
	      where jrn_def_id=$1",array($this->id));
    $Count=pg_NumRows($Res);
    if ( $Count == 0 ) {
      echo '<DIV="redcontent"><H2 class="error"> Parametres journaux non trouves</H2> </DIV>';
      return null;
    }
    return pg_fetch_array($Res,0);
  }

  /*! \function GetDefLine
   * \brief Get the number of lines of a journal
   * \param $p_cred deb or cred
   *
   * \return an integer
   */
  function GetDefLine() 
  {
    $sql_cred='jrn_deb_max_line';
    $sql="select jrn_deb_max_line as value from jrn_def where jrn_def_id=$1";
    $r=ExecSqlParam($this->db,$sql,array($this->id));
    $Res=pg_fetch_all($r);
    echo_debug('class_acc_ledger',__LINE__,$Res);
    if ( sizeof($Res) == 0 ) return 1;
    return $Res[0]['value'];
  }
  /*!\brief get the saldo of a ledger for a specific period
   * \param $p_from start period
   * \param $p_to end period
   * \param $p_cent 1 for a centralized period otherwise 0
   */
  function get_solde($p_from,$p_to,$p_cent) {
    $ledger=""; 
    if ( $this->id != 0 && $p_cent=='off') {
      $ledger=" and j_jrn_def = ".$this->id;
    }
 
    if ( $this->id != 0 && $p_cent=='on') {
      $ledger=" and c_jrn_def = ".$this->id;
    }
 
    // we ask for a specific ledger
    if ( $p_cent == 'off') {
      $periode=sql_filter_per($this->db,$p_from,$p_to,'p_id','j_tech_per');
      $sql='select j_montant as montant,j_debit as deb from jrnx where '
	.$periode.$ledger;
    }else {
      $periode=sql_filter_per($this->db,$p_from,$p_to,'p_id','c_periode');
      $sql='select c_montant as montant,c_debit as deb from centralized where '
	.$periode.$ledger;
    }
    $ret=ExecSql($this->db,$sql);
    $array=pg_fetch_all($ret);
    $deb=0.0;
    $cred=0.0;
    foreach ($array as $line) {
 
      if ( $line['deb']=='t' )
	$deb+=$line['montant'];
      else
	$cred+=$line['montant'];
    }
    $response=array($deb,$cred);
    return $response;
  }
  /*! 
   * \brief Show a select list of the ledger you can access in
   * writing, the security is taken in care but show the readable AND
   * writable ledger.
   * \param $p_type = ALL or the type of the ledger (ACH,VEN,FIN,ODS)
   * \param $p_access =3 for READ and WRITE, 2 for write and 1 for readonly
   * \return object widget select
   */
  function select_ledger($p_type="ALL",$p_access=3) {
    $user=new User($this->db);
    $array=$user->get_ledger($p_type,$p_access);

    if ( $array == null ) return null;
    $idx=0;
    $ret=array();

    foreach ( $array as $value) {
      $ret[$idx]['value']=$value['jrn_def_id'];
      $ret[$idx]['label']=h($value['jrn_def_name']);
      $idx++;
    }

    $select=new widget("select");
    $select->name='p_jrn';
    $select->value=$ret;
    $select->selected=$this->id;
    return $select;
  }
  /*! 
   * \brief retrieve the jrn_def_fiche and return them into a array
   *        index deb, cred
   * \param
   * \param
   * \param
   * 
   *
   * \return return an array ('deb'=> ,'cred'=>)
   */
  function get_fiche_def() {
    $sql="select jrn_def_fiche_deb as deb,jrn_def_fiche_cred as cred ".
      " from jrn_def where ".
      " jrn_def_id = $1 ";

    $r=ExecSqlParam($this->db,$sql,array($this->id));

    $res=pg_fetch_all($r);
    if ( empty($res) ) return null;

    return $res[0];
  }
  /*! 
   * \brief retrieve the jrn_def_class_deb and return it
   *
   *
   * \return return an string 
   */
  function get_class_def() {
    $sql="select jrn_def_class_deb  ".
      " from jrn_def where ".
      " jrn_def_id = $1";

    $r=ExecSqlParam($this->db,$sql,array($this->id));

    $res=pg_fetch_all($r);

    if ( empty($res) ) return null;

    return $res[0];
  }

  /*! 
   * \brief show the result of the array
   * \param $p_array array from the form
   * \param
   * \param
   * 
   *
   * \return string
   */
  function show_summary($p_array) {
    $this->id=$p_array['p_jrn'];
    if ( empty($p_array)) return 'Aucun r&eacute;sultat';
    extract($p_array);
    $ret="";
    $ret.="<table>";
    $ret.="<tr><td>Date : </td><td>$date</td></tr>";
    $ret.="<tr><td>Description </td><td>".h($desc)."</td></tr>";
    $ret.="<tr><td>PJ Num </td><td>".h($e_pj)."</td></tr>";
    $ret.='</table>';
    $ret.="<table>";
    $ret.="<tr>";
    $ret.="<th> Quick Code  ou ";
    $ret.="Poste </th>";
    $ret.="<th> Montant </th>";
    $ret.="<th> D&eacute;bit</th>";
    $ret.="</tr>";
    $own=new own($this->db);
    $hidden=new widget('hidden');
    $ret.=$hidden->IOValue('date',$date);
    $ret.=$hidden->IOValue('desc',$desc);
    $ret.=widget::hidden('e_pj',$e_pj);
    $ret.=widget::hidden('e_pj_suggest',$e_pj_suggest);

    // For predefined operation
    $ret.=$hidden->IOValue('e_comm',$desc);
    $ret.=$hidden->IOValue('jrn_type',$this->get_type());
    $ret.=$hidden->IOValue('p_jrn',$this->id);
    $ret.=$hidden->IOValue('nb_item',$nb_item);
    if ( $this->with_concerned==true) {
      $ret.=$hidden->IOValue('jrn_concerned',$jrn_concerned);
    }
    $ret.=dossier::hidden();
    $count=0;
    for ($i=0;$i<$nb_item;$i++) {
      $ret.="<tr>";
      if ( trim(${'qc_'.$i})!="") {
	$oqc=new fiche($this->db);
	$oqc->get_by_qcode(${'qc_'.$i},false);
	$strPoste=$oqc->strAttribut(ATTR_DEF_ACCOUNT);
	$ret.="<td>".
	  ${'qc_'.$i}.' - '.
	  $oqc->strAttribut(ATTR_DEF_NAME).$hidden->IOValue('qc_'.$i,${'qc_'.$i}).
			'</td>';
      }

      if ( trim(${'qc_'.$i})=="" && trim(${'poste'.$i}) != "") {
	$oposte=new Acc_Account_Ledger($this->db,${'poste'.$i});
	$strPoste=$oposte->id;
	$ret.="<td>".h(${"poste".$i}." - ".
	      $oposte->get_name()).$hidden->IOValue('poste'.$i,${'poste'.$i}).
             '</td>';
      }

      if ( trim(${'qc_'.$i})=="" && trim(${'poste'.$i}) == "") 
	continue;
      $ret.="<td>".h(${"ld".$i}).$hidden->IOValue('ld'.$i,${'ld'.$i})."</td>";
      $ret.="<td>".${"amount".$i}.$hidden->IOValue('amount'.$i,${'amount'.$i})."</td>";
      $ret.="<td>";
      $ret.=(isset(${"ck$i"}))?"D":"C";
      $ret.=(isset(${"ck$i"}))?$hidden->IOValue('ck'.$i,${'ck'.$i}):"";
      $ret.="</td>";
      // CA 

      if (  $own->MY_ANALYTIC!='nu') // use of AA
	{
	  if ( ereg("^[6,7]+",$strPoste)) {
	    // show form
	    $op=new Anc_Operation($this->db);
	    $null=($own->MY_ANALYTIC=='op')?1:0;
	    $ret.='<td>';
	    $ret.=$op->display_form_plan(null,$null,1,$count,round(${'amount'.$i},2));
	    $ret.='</td>';
	    $count++;
	  }
	   
	}


      $ret.="</tr>";
    }
    $ret.="</table>";
    return $ret;
  }

  /*! 
   * \brief Show the form to encode your operation
   * \param $p_array if you correct or use a predef operation
   * \param $p_readonly 1 for readonly 0 for writable
   *
   * \return a string containing the form
   */
  function show_form($p_array=null,$p_readonly=0)
  {
    if ( $p_readonly == 1 )
      return $this->show_summary($p_array);
     
    if ( $p_array != null )
      extract($p_array);

    $ret="";
    // Load the javascript
    $ret.=JS_SEARCH_CARD;
    $ret.=JS_SEARCH_POSTE;
    $ret.=JS_AJAX_FICHE;
    $ret.=JS_PROTOTYPE;
    $ret.=JS_INFOBULLE;
    // 
    $ret.="<table>";
    $ret.= '<tr><td>';
    $wDate=new widget('js_date','Date','date');
    $wDate->table=1;
    $wDate->readonly=$p_readonly;
    $date=(isset($date)&&trim($date)!='')?$date:'';
    if (trim($date)=='') {
      $user=new User($this->db);
      $periode=new Periode($this->db);
      list ($l_date_start,$l_date_end)=$periode->get_date_limit($user->get_periode());
      $date=$l_date_start;
    }
    $wDate->value=$date;

    $ret.=$wDate->IOValue();
    $ret.= '</td></tr>';

    $ret.= '<tr><td>';
    $wDescription=new widget('text',"Description",'desc');
    $wDescription->readonly=$p_readonly;
    $wDescription->table=1;
    $wDescription->value=(isset($desc))?$desc:'';
    $ret.=$wDescription->IOValue();
    $ret.= '</td>';

    $wPJ=new widget('text',"PJ Num: ",'e_pj');
    $wPJ->readonly=false;
    $wPJ->table=1;
    $wPJ->size=10;

    /* suggest PJ ? */
    $default_pj='';
    $own=new Own($this->db);
    if ( $own->MY_PJ_SUGGEST=='Y') {
      $default_pj=$this->guess_pj();
    } 
    $wPJ->value=(isset($e_pj))?$e_pj:$default_pj;

    $ret.=$wPJ->IOValue();
    $ret.=widget::hidden('e_pj_suggest',$default_pj);
    $ret.= '</td></tr>';

    $ret.= '</table>';
    $nb_row=(isset($nb_item) )?$nb_item:$this->nb;

    $ret.=widget::hidden('nb_item',$nb_row);
    $ret.=dossier::hidden();
    $hidden=new widget('hidden');
    $ret.=$hidden->IOValue('p_jrn',$this->id);
    $ret.=$hidden->IOValue('jrn_type',$this->get_type());
    $info= widget::infobulle(0);
    $info_poste=widget::infobulle(9);
    $ret.='<table id="quick_item" style="width:100%">';
    $ret.='<tr>'.
      '<th >Quickcode'.$info.'</th>'.
      '<th >Poste'.$info_poste.'</th>'.
      '<th >Libell&eacute;</th>'.
      '<th> Montant</th>'.
      '<th>D&eacute;bit</th>'.
      '</tr>';
    $l_sessid=$_REQUEST['PHPSESSID'];

    for ($i = 0 ;$i<$nb_row;$i++){
      // Quick Code
      $quick_code=new widget('js_search_card_control');
      $quick_code->name='qc_'.$i;
      $quick_code->ctrl="ld".$i;
      $quick_code->value=(isset(${'qc_'.$i}))?${'qc_'.$i}:"";
      $quick_code->javascript=sprintf('onBlur="ajaxFid(\'%s\',\'filter\',\'%s\',\'%s\',\'%s\'); if ( this.value!=\'\' ) my_clear(\'poste'.$i.'\'); "',
				$quick_code->name,
				$l_sessid,
				"searchcardControl",
				$quick_code->ctrl
				);
      $quick_code->readonly=$p_readonly;
      $quick_code->extra2='QuickCode?';
      $quick_code->extra='filter';
      $label='';
      if ( $quick_code->value != '' ) {
	$Fiche=new fiche($this->db);
	$Fiche->get_by_qcode($quick_code->value);
	$label=$Fiche->strAttribut(ATTR_DEF_NAME);
      }


      // Account 
      $poste=new widget('js_search_poste');
      $poste->name='poste'.$i;
      $poste->value=(isset(${'poste'.$i}))?${"poste".$i}:'';
      $poste->readonly=$p_readonly;
      $poste->extra=$this->id;
      $poste->extra2=$this->get_class_def();
      $poste->ctrl="ld".$i;

      if ( $poste->value != '' ) {
	$Poste=new Acc_Account($this->db);
	$Poste->pcm_value=$poste->value;
	$label=$Poste->get_lib();
      }

      // Description of the line
      $line_desc=new widget('text');
      $line_desc->name='ld'.$i;
      $line_desc->size=30;
      $line_desc->value=(isset(${"ld".$i}))?${"ld".$i}:$label;

      // Amount
      $amount=new widget('text');
      $amount->size=10;
      $amount->name='amount'.$i;
      $amount->value=(isset(${'amount'.$i}))?${"amount".$i}:'';
      $amount->readonly=$p_readonly;
      $amount->javascript=' onChange="checkTotalDirect()"';
      // D/C
      $deb=new widget('checkbox');
      $deb->name='ck'.$i;
      $deb->selected=(isset(${'ck'.$i}))?true:false;
      $deb->readonly=$p_readonly;
      $deb->javascript=' onChange="checkTotalDirect()"';

      $ret.='<tr>';
      $ret.='<td>'.$quick_code->IOValue().'</td>';
      $ret.='<td>'.$poste->IOValue().
	'<script> document.getElementById(\'poste'.$i.'\').onblur=function(){ if (trim(this.value) !=\'\') my_clear(\'qc_'.$i.'\');}</script>'.
	'</td>';
      $ret.='<td>'.$line_desc->IOValue().'</td>';
      $ret.='<td>'.$amount->IOValue().'</td>';
      $ret.='<td>'.$deb->IOValue().'</td>';
      $ret.='</tr>';
      // If readonly == 1 then show CA
    }     
    $ret.='</table>';
    if ( isset ($this->with_concerned) && $this->with_concerned==true) {
      $oRapt=new Acc_Reconciliation($this->db);
      $w=$oRapt->widget();
      $w->name='jrn_concerned';
      $w->value=(isset($jrn_concerned))?$jrn_concerned:"";
      $ret.="R&eacute;conciliation/rapprochements : ".$w->IOValue();
    }
    return $ret;
  }

  /*!\brief 
   * check if the current ledger is closed
   *\return 1 for yes, otherwise 0
   *\see Periode::is_closed
   */
  function is_closed($p_periode) {
    $per=new Periode($this->db);
    $per->set_jrn($this->id);
    $per->set_periode($p_periode);
    $ret=$per->is_closed();
    echo_debug(__FILE__.':'.__LINE__.'- is_closed','return',$ret);
    return $ret;

  }
  /*! 
   * \brief verify that the operation can be saved
   * \param $p_array array of data same layout that the $_POST from show_form
   * 
   *
   * \return the return value are  0 ok,1 incorrect balance,  2 date
   * invalid, 3 invalid amount,  4 the card is not in the range of
   * permitted card, 5 not in the user's period, 6 closed period
   * 
   */
  function verify($p_array)
  {
    extract ($p_array);
    $user=new User($this->db);
    $tot_cred=0;$tot_deb=0;
    // Check the periode and the date
    if ( isDate($date) == null ) { 
      throw new AcException('Date invalide', 2);
    }
    list ($l_date_start,$l_date_end)=get_periode($this->db,$user->get_periode());
  
    // Date dans la periode active
    if ( cmpDate($date,$l_date_start)<0 || 
	 cmpDate($date,$l_date_end)>0 )
      {
	throw new AcException('Pas dans la periode active',5);
      }
    // Periode ferme 
    if ( $this->is_closed($user->get_periode())==1 )
      {
	echo_debug(__FILE__.':'.__LINE__.'- verify',' the periode is closed ');
	throw new AcException('Periode fermee',6);
      }
    /* check if we are using the strict mode */
    if( $this->check_strict() == true) {
      /* if we use the strict mode, we get the date of the last
	 operation */
      $last_date=$this->get_last_date();
      if ( cmpDate($date,$last_date) < 0 )
	throw new AcException('Vous utilisez le mode strict la dernière operation est la date du '
			      .$last_date.' vous ne pouvez pas encoder à une date antérieure',15);

    }

    for ($i=0;$i<$nb_item;$i++) 
      {
	$err=0;

	// Check the balance
	if ( ! isset (${'amount'.$i}))
	  continue;

	$amount=round(${'amount'.$i},2);
	$tot_deb+=(isset(${'ck'.$i}))?$amount:0;
	$tot_cred+=(! isset(${'ck'.$i}))?$amount:0;

	// Check if the card is permitted
	if ( isset (${'qc_'.$i}) && trim(${'qc_'.$i}) !="") {
	  $f=new fiche($this->db);
	  $f->quick_code=${'qc_'.$i};
	  if ( $f->belong_ledger($p_jrn) < 0 )
	    throw new AcException("La fiche quick_code = ".
				  $f->quick_code." n\'est pas dans ce journal",4);
	  if ( strlen(trim(${'qc_'.$i}))!=0 &&  isNumber(${'amount'.$i} ) == 0 )
	    throw new AcException('Montant invalide',3);

	}

	// Check if the account is permitted
	if ( isset (${'poste'.$i}) && strlen (trim(${'poste'.$i})) != 0 ) {
	  $p=new Acc_Account_Ledger($this->db,${'poste'.$i});
	  if ( $p->belong_ledger ($p_jrn) < 0 )
	    throw new AcException("Le poste ".$p->id." n\'est pas dans ce journal",5);
	  if ( strlen(trim(${'poste'.$i}))!=0 &&  isNumber(${'amount'.$i} ) == 0 )
	    throw new AcException('Poste invalide',3);
	  if ( $p->do_exist() == 0 )
	    throw new AcException('Poste Inexistant',4);
	}


      }
    $tot_deb=round($tot_deb,4);
    $tot_cred=round($tot_cred,4);
    if ( $tot_deb != $tot_cred ) {
      /*      print_r('$tot_deb'.$tot_deb);
	      print_r('$tot_cred'.$tot_cred); */
      throw new AcException("Balance incorrecte debit = $tot_deb credit=$tot_cred ",1);
    }
       
  }
  /*!
   * \brief compute the internal code of the saved operation and set the $this->jr_internal to
   *  the computed value
   *
   * \param $p_grpt id in jr_grpt_
   *
   * \return string internal_code
   *      -
   *
   */
  function compute_internal_code($p_grpt)
  {
    if ( $this->id==0) return;
    $num = NextSequence($this->db,'s_internal');
    $atype=$this->get_propertie();
    $type=$atype['jrn_def_code'];
    $internal_code=sprintf("%d%s-%s",dossier::id(),$type,$num);
    echo_debug (__FILE__,__LINE__,"internal_code = $internal_code");
    $this->jr_internal=$internal_code;
    return $internal_code;
  }

  /*! 
   * \brief save the operation into the jrnx,jrn, ,
   *  CA and pre_def
   * \param $p_array 
   *
   * \return array with [0] = false if failed otherwise true, [1] error
   * code
   */
  function save ($p_array) {
    extract ($p_array);
    try {
      $this->verify($p_array);
     
      StartSql($this->db) ;
       
      $seq=NextSequence($this->db,'s_grpt');
      $internal=$this->compute_internal_code($seq);
       
      $group=NextSequence($this->db,"s_oa_group");       
      $own=new own($this->db);
      $tot_amount=0;
      $tot_deb=0;
      $tot_cred=0;
      $count=0;
      for ($i=0;$i<$nb_item;$i++) 
	{
	  if ( ! isset (${'qc_'.$i}) && ! isset(${'poste'.$i}))
	    continue;
	  $acc_op=new Acc_Operation($this->db);
	  $quick_code="";
	  // First we save the jrnx
	  if ( isset(${'qc_'.$i})) {
	    $qc=new fiche($this->db);
	    $qc->get_by_qcode(${'qc_'.$i},false);
	    $poste=$qc->strAttribut(ATTR_DEF_ACCOUNT);
	    $quick_code=${'qc_'.$i};
	  }
	  else {
	    $poste=${'poste'.$i};
	  }
	  $acc_op->date=$date;
	  $acc_op->desc=$desc;
	  $acc_op->amount=round(${'amount'.$i},2);
	  $acc_op->grpt=$seq;
	  $acc_op->poste=$poste;
	  $acc_op->jrn=$this->id;
	  $acc_op->type=(isset (${'ck'.$i}))?'d':'c';
	  $acc_op->qcode=$quick_code;
	  $j_id=$acc_op->insert_jrnx();
	  if ( strlen(trim(${'ld'.$i})) != 0 )
	    $acc_op->update_comment(${'ld'.$i});
	  $tot_amount+=round($acc_op->amount,2);
	  $tot_deb+=($acc_op->type=='d')?$acc_op->amount:0;
	  $tot_cred+=($acc_op->type=='c')?$acc_op->amount:0;
	  if ( $own->MY_ANALYTIC != "nu" )
	    {
	      if ( ereg("^[6,7]+",$poste)) {
	   
		// for each item, insert into operation_analytique */
		$op=new Anc_Operation($this->db); 
		$op->oa_group=$group;
		$op->j_id=$j_id;
		$op->oa_date=$date;
		$op->oa_debit=($acc_op->type=='d' )?'t':'f';
		$op->oa_description=$desc;
		$op->save_form_plan($p_array,$count);
		$count++;
	      }
	    }
	}// loop for each item
      $acc_end=new Acc_Operation($this->db);
      $acc_end->amount=$tot_deb;
      $acc_end->date=$date;
      $acc_end->desc=$desc;
      $acc_end->grpt=$seq;
      $acc_end->jrn=$this->id;
      $jr_id= $acc_end->insert_jrn();
      if ($jr_id == false )
	throw new Exception('Balance incorrecte');     
      $acc_end->pj=$e_pj;
      
      /* if e_suggest != e_pj then do not increment sequence */
      if ( strcmp($e_pj,$e_pj_suggest) == 0 && strlen(trim($e_pj)) !=0) {
      	$this->inc_seq_pj();
      }

      $this->pj=$acc_end->set_pj();

      ExecSql($this->db,"update jrn set jr_internal='".$internal."' where ".
	      " jr_grpt_id = ".$seq);

      // Save now the predef op 
      //------------------------
      if ( isset($save_opd)) {
	$opd=new Pre_Op_Advanced($this->db);
	$opd->name=(trim($desc)=='')?$internal:$desc;
	$opd->get_post();
	$opd->save();
      }

      if ( isset($this->with_concerned) && $this->with_concerned==true) {
	$orap=new acc_reconciliation($this->db);
	$orap->jr_id=$jr_id;

	$orap->insert($jrn_concerned);
      }
     
    }

    catch (AcException $a) {
      throw $a;
    } 
    catch (Exception $e) {
      Rollback($this->db);
      echo 'OPERATION ANNULEE ';
      echo '<hr>';
      echo __FILE__.__LINE__.$e->getMessage();
      exit();
    }
    Commit($this->db);
    return true;
  }

  /*! 
   * \brief get all the data from request and build the object 
   */
  function get_request() 
  {
    $this->id=$_REQUEST['p_jrn'];

  }

  /*!
   * \brief retrieve the next number for this type of ledger
   * \param p_cn connx
   * \param p_type ledger type
   *
   * \return the number
   *      
   * \todo this function show be a part of the acc_ledger_type class
   *       as soon as this class is created
   *
   */
  static function next_number($p_cn,$p_type)
  {
  
    $Ret=CountSql($p_cn,"select * from jrn_def where jrn_def_type='".$p_type."'");
    return $Ret+1;
  }
  /*!\brief get the first ledger
   *\param the type
   *\return the j_id
   */
  public function get_first($p_type) {
    $user=new User($this->db);
    $all=$user->get_ledger($p_type);
    return $all[0];
  }


  /*!\brief Update the paiment  in the list of operation
   *\param $p_array is normally $_GET 
   */
  function update_paid($p_array) {
	// reset all the paid flag because the checkbox is post only
	// when checked
	foreach ($p_array as $name=>$paid) 
	  {
	    list($ad) = sscanf($name,"set_jr_id%d");
 	    if ( $ad == null ) continue;
 	    $sql="update jrn set jr_rapt='' where jr_id=$ad";
 	    $Res=ExecSql($this->db,$sql);

	  }
	// set a paid flag for the checked box
	foreach ($p_array as $name=>$paid) 
	  {
	    list ($id) = sscanf ($name,"rd_paid%d");

	    if ( $id == null ) continue;
	    $paid=($paid=='on')?'paid':'';
	    $sql="update jrn set jr_rapt='$paid' where jr_id=$id";
	    $Res=ExecSql($this->db,$sql);
	  }

  }
  function update_internal_code($p_internal) {
    if ( ! isset($this->grpt_id) )
      exit( 'ERREUR '.__FILE__.":".__LINE__);
    $Res=ExecSql($this->db,"update jrn set jr_internal='".$p_internal."' where ".
		 " jr_grpt_id = ".$this->grpt_id);

  }
  /*!\brief retrieve all the card for this type of ledger, make them
   *into a string separated by comma
   *\param none 
   *\return all the card or null is nothing is found
   */
  function get_all_fiche_def() {
    $sql="select jrn_def_fiche_deb as deb,jrn_def_fiche_cred as cred ".
      " from jrn_def where ".
      " jrn_def_type = $1 ";

    $r=ExecSqlParam($this->db,$sql,array($this->type));

    $res=pg_fetch_all($r);
    if ( empty($res) ) return null;
    $card="";
    $comma='';
    foreach ($res as $item ) {
      if ( strlen(trim($item['deb'])) != 0 ) {
	$card.=$comma.$item['deb'];
	$comma=',';
      }
      if ( strlen(trim($item['cred'])) != '') {
	$card.=$comma.$item['cred'];
	$comma=',';
      }

    }

    return $card;
  }
  /*!\brief get the saldo of an exercice, used for the opening of a folder
   *\param $p_exercice is the exercice we want
   *\return an array
   * index = 
   * - solde (debit > 0 ; credit < 0)
   * - j_poste
   * - j_qcode
   */
  function get_saldo_exercice($p_exercice) {
    $sql="select sum(a.montant) as solde, j_poste, j_qcode
          from 
             (select j_id, case when j_debit='t' then j_montant
                                                 else j_montant * (-1) end  as montant
               from jrnx) as a
          join jrnx using (j_id)
          join parm_periode on (j_tech_per = p_id )
          where
          p_exercice=$1
          and j_poste::text not like '7%'
          and j_poste::text not like '6%'
          group by j_poste,j_qcode
          having (sum(a.montant) != 0 )";
    $res=get_array($this->db,$sql,array($p_exercice));
    return $res;
  }
/*!
 *\brief Check if a Dossier is using the strict mode or not
 * \return true if we are using the strict_mode
 */
function check_strict() {
	$own=new Own($this->db);
	if ( $own->MY_STRICT=='Y') return true;
	if ( $own->MY_STRICT=='N') return false;
	exit("Valeur invalid ".__FILE__.':'.__LINE__);
}

/*!\brief get the date of the last operation
*/
function get_last_date()
{
	if ( $this->id==0) throw AcException (__FILE__.":".__LINE__."Journal incorrect ");
	$sql="select to_char(max(jr_date),'DD.MM.YYYY') from jrn where jr_def_id=$1";
	$date=getDbValue($this->db,$sql,array($this->id));
	return $date;
}
  /*!\brief retrieve the jr_id thanks the internal code, do not change
   *anything to the current object
   *\param the internal code
   *\return the jr_id or 0 if not found
   */
  function get_id($p_internal) {
    $sql='select jr_id from jrn where jr_internal=$1';
    $value=getDbValue($this->db,$sql,array($p_internal));
    if ($value=='') $value=0;
    return $value;
  }
  /*!\brief create the invoice and saved it as attachment to the
   *operation, 
   *\param $internal is the internal code
   *\param $p_array is normally the $_POST
   *\return a string
   */
  function create_document($internal,$p_array) {
    extract ($p_array);
    $doc=new Document($this->db);
    $doc->f_id=$e_client;
    $doc->md_id=$gen_doc;
    $doc->ag_id=0;
    $str_file=$doc->Generate();
    // Move the document to the jrn
    $doc->MoveDocumentPj($internal);
    // Update the comment with invoice number
    $sql="update jrn set jr_comment=' document ".$doc->d_number."' where jr_internal='$internal'";
    ExecSql($this->db,$sql);
    return '<h2 class="info">'.$str_file.'</h2>';
    
  }
  /*!\brief check if the payment method is valid
   *\param $e_mp is the value and $e_mp_qcode is the quickcode
   *\return nothing throw an Exception
   */
  public function check_payment($e_mp,$e_mp_qcode) {
    /*   Check if the "paid by" is empty, */
    if (  $e_mp != 0) {
    /* the paid by is not empty then check if valid */
      $empl=new fiche($this->db);
      $empl->get_by_qcode($e_mp_qcode);
      if ( $empl->empty_attribute(ATTR_DEF_ACCOUNT)== true) {
	throw new AcException('Celui qui paie n\' a pas de poste comptable',20);
      }
      $poste=new Acc_Account_Ledger($this->db,$empl->strAttribut(ATTR_DEF_ACCOUNT));
      if ( $poste->load() == false ){
	throw new AcException('Pour la fiche'.$empl->quick_code.'  le poste comptable ['.$poste->id.'n\'existe pas',9);

      }
    }
  }
  /*! 
   * \brief this function is intended to test this class
   */
  static function test_me() 
  {
    echo Acc_Reconciliation::$javascript;
    html_page_start();
    $cn=DbConnect(dossier::id());
    $_SESSION['g_user']='phpcompta';
    $_SESSION['g_pass']='phpcompta';

    $id=(isset ($_REQUEST['p_jrn']))?$_REQUEST['p_jrn']:-1;
    $a=new Acc_Ledger($cn,$id);
    $a->with_concerned=true;
    // Vide
    echo '<FORM method="post">';
    echo $a->select_ledger()->IOValue();
    echo widget::submit('go','Test it');
    echo '</form>';
    if ( isset($_POST['go'])) {
      echo "Ok ";
      echo '<form method="post">';
      echo $a->show_form();
      echo widget::submit('post_id','Try me');
      echo '</form>';
      // Show the predef operation
      // Don't forget the p_jrn 
      echo '<form>';
      echo dossier::hidden();
      echo '<input type="hidden" value="'.$id.'" name="p_jrn">';
      $op=new Pre_operation($cn);
      $op->p_jrn=$id;
      $op->od_direct='t';
      if ($op->count() != 0 ) {
	print_r("Count != 0");
	echo widget::submit('use_opd','Utilisez une op.pr&eacute;d&eacute;finie');
	echo $op->show_button();
      }
      echo '</form>';
      exit();
    }
 
    if ( isset($_POST['post_id' ])) {

      echo '<form method="post">';
      echo $a->show_form($_POST,1);
      echo widget::button('add','Ajout d\'une ligne','onClick="quick_writing_add_row()"');
      echo widget::submit('save_it',"Sauver");
      echo '</form>';
      exit();
    }
    if ( isset($_POST['save_it' ])) {
      print 'saving';
      $array=$_POST;
      $array['save_opd']=1;
      try {
	$a->save($array);
      } catch (AcException $e) {
	echo '<script>alert (\''.$e->getMessage()."'); </script>";
	echo '<form method="post">';

	echo $a->show_form($_POST);
	echo widget::submit('post_id','Try me');
	echo '</form>';
	 
      }
      exit();
    }
    // The GET at the end because automatically repost when you don't
    // specify the url in the METHOD field
    if ( isset ($_GET['use_opd'])) {
      $op=new Pre_op_advanced($cn);
      $op->set_od_id($_REQUEST['pre_def']);
      //$op->p_jrn=$id;

      $p_post=$op->compute_array();

      echo '<FORM method="post">';

      echo $a->show_form($p_post);
      echo widget::submit('post_id','Use predefined operation');
      echo '</form>';
      exit();

    }

  }

  /*!\brief increment the sequence for the pj */
  function inc_seq_pj() {
    $sql="select nextval('s_jrn_pj".$this->id."')";
    ExecSql($this->db,$sql);
  }
}