<?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 the class Acc_Ledger_Fin inherits from Acc_Ledger, this
 * object permit to manage the financial ledger
 */
require_once("class_idate.php");
require_once("class_icard.php");
require_once("class_ispan.php");
require_once("class_itext.php");
require_once("class_iconcerned.php");
require_once("class_ifile.php");
require_once("class_ihidden.php");
require_once("class_iselect.php");
require_once('class_acc_ledger.php');
require_once('ac_common.php');
require_once('class_acc_reconciliation.php');

class Acc_Ledger_Fin extends Acc_Ledger
{
    function __construct ($p_cn,$p_init)
    {
        parent::__construct($p_cn,$p_init);
        $this->type='FIN';
    }

    /*!\brief verify that the data are correct before inserting or confirming
     *\param an array (usually $_POST)
     *\return String
     *\throw Exception on error occurs
     */
    public function verify($p_array)
    {
        extract ($p_array);
        /* check for a double reload */
        if ( isset($mt) && $this->db->count_sql('select jr_mt from jrn where jr_mt=$1',array($mt)) != 0 )
            throw new Exception (_('Double Encodage'),5);

        /* check if we can write into this ledger */
        $user=new User($this->db);
        if ( $user->check_jrn($p_jrn) != 'W' )
            throw new Exception (_('Accès interdit'),20);

        /* check if there is a bank account linked to the ledger */
        $bank_id=$this->get_bank();

        if ($this->db->count()==0 )
            throw new Exception("Ce journal n'a pas de compte en banque, allez dans paramètre->journal pour régler cela");
        /* check if the accounting of the bank is correct */
        $fBank=new Fiche($this->db,$bank_id);
        $bank_accounting=$fBank->strAttribut(ATTR_DEF_ACCOUNT);
        if ( trim($bank_accounting)=='' )
            throw new Exception ('Le poste comptable du compte en banque de ce journal est invalide');

        /* check if the account exists */
        $poste=new Acc_Account_Ledger($this->db,$bank_accounting);
        if ( $poste->load() == false )
            throw new Exception ('Le poste comptable du compte en banque de ce journal est invalide');

        /*  check if the date is valid */
        if ( isDate($e_date) == null )
        {
            throw new Exception('Date invalide', 2);
        }
        $oPeriode=new Periode($this->db);
        if ($this->check_periode()==false)
        {
            $periode=$oPeriode->find_periode($e_date);
        }
        else
        {
            $oPeriode->p_id=$periode;
            list ($min,$max)=$oPeriode->get_date_limit();
            if ( cmpDate($e_date,$min) < 0 ||
                    cmpDate($e_date,$max) > 0)
                throw new Exception(_('Date et periode ne correspondent pas'),6);
        }

        /* check if the periode is closed */
        if ( $this->is_closed($periode)==1 )
        {
            throw new Exception(_('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 ( $last_date != null  && cmpDate($e_date,$last_date) < 0 )
                throw new Exception(_('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);

        }

        $acc_pay=new Acc_Operation($this->db);

        $nb=0;
        $tot_amount=0;
        //----------------------------------------
        // foreach item
        //----------------------------------------
        for ($i=0;$i< $nb_item;$i++)
        {
            if ( strlen(trim(${'e_other'.$i}))== 0) continue;
            /* check if amount are numeric and */
            if ( isNumber(${'e_other'.$i.'_amount'}) == 0 )
                throw new Exception('La fiche '.${'e_other'.$i}.'a un montant invalide ['.${'e_other'.$i.'_amount'}.']',6);

            /* compute the total */
            $tot_amount+=round(${'e_other'.$i.'_amount'},2);
            /* check if all card has a ATTR_DEF_ACCOUNT*/
            $fiche=new Fiche($this->db);
            $fiche->get_by_qcode(${'e_other'.$i});
            if ( $fiche->empty_attribute(ATTR_DEF_ACCOUNT) == true)
                throw new Exception('La fiche '.${'e_other'.$i}.'n\'a pas de poste comptable',8);

            $sposte=$fiche->strAttribut(ATTR_DEF_ACCOUNT);
            // if 2 accounts, take only the debit one for customer
            if ( strpos($sposte,',') != 0 )
            {
                $array=explode(',',$sposte);
                $poste_val=$array[1];
            }
            else
            {
                $poste_val=$sposte;
            }
            /* The account exists */
            $poste=new Acc_Account_Ledger($this->db,$poste_val);
            if ( $poste->load() == false )
            {
                throw new Exception('Pour la fiche '.${'e_other'.$i}.' le poste comptable ['.$poste->id.'n\'existe pas',9);
            }
            /* Check if the card belong to the ledger */
            $fiche=new Fiche ($this->db);
            $fiche->get_by_qcode(${'e_other'.$i});
            if ( $fiche->belong_ledger($p_jrn,'deb') !=1 )
                throw new Exception('La fiche '.${'e_other'.$i}.'n\'est pas accessible à ce journal',10);
            $nb++;
        }
        if ( $nb == 0 )
            throw new Exception('Il n\'y a aucune opération',12);

        /* Check if the last_saldo and first_saldo are correct */
        if ( strlen(trim($last_sold)) != 0 && isNumber($last_sold) &&
                strlen(trim($first_sold)) != 0 && isNumber($first_sold))
        {
            $diff=$last_sold-$first_sold;
            $diff=round($diff,2)-round($tot_amount,2);
            if ( $first_sold != 0 && $last_sold !=0)
            {
                if ( $diff != 0 )
                    throw new Exception('Le montant de l\'extrait est incorrect'.
                                        $tot_amount.' extrait '.$diff,13);
            }
        }

    }


    /*!\brief
    *\param $p_array contains the value usually it is $_POST 
     *\return string with html code
     *\note the form tag are not  set here
     */
    function input($p_array=null)
    {
        if ( $p_array != null)
            extract ($p_array);
        $owner=new Own($this->db);

        $pview_only=false;
        $user = new User($this->db);
        $f_add_button=new IButton('add_card');
        $f_add_button->label=_('Créer une nouvelle fiche');
        $f_add_button->set_attribute('ipopup','ipop_newcard');
        $f_add_button->set_attribute('jrn',$this->id);
        $f_add_button->javascript=" this.jrn=\$('p_jrn').value;select_card_type(this);";
        $str_add_button=$f_add_button->input();

        // The first day of the periode
        $pPeriode=new Periode($this->db);
        list ($l_date_start,$l_date_end)=$pPeriode->get_date_limit($user->get_periode());
        if (  $owner->MY_DATE_SUGGEST=='Y' )
            $op_date=( ! isset($e_date) ) ?$l_date_start:$e_date;
        else
            $op_date=( ! isset($e_date) ) ?'':$e_date;

        $r="";

        $r.=dossier::hidden();
        $f_legend='Banque, caisse';
        //  Date
        //--
        $Date=new IDate("e_date",$op_date);
        $Date->setReadOnly($pview_only);
        $f_date=$Date->input();
        $f_period='';
        if ($this->check_periode() == true)
        {
            // Periode
            //--
            $l_user_per=(isset($periode))?$periode:$user->get_periode();
            $period=new IPeriod();
            $period->cn=$this->db;
            $period->type=OPEN;
            $period->value=$l_user_per;
            $period->user=$user;
            $period->name='periode';
            try
            {
                $l_form_per=$period->input();
            }
            catch (Exception $e)
            {
                if ($e->getCode() == 1 )
                {
                    echo "Aucune période ouverte";
                    exit();
                }
            }
            $label=HtmlInput::infobulle(3);
            $f_period="Période comptable $label".$l_form_per;
        }

        // Ledger (p_jrn)
        //--
        $add_js="";

        if ( $owner->MY_PJ_SUGGEST == 'Y') $add_js="onchange='update_pj();update_bank();get_last_date();'";

        $wLedger=$this->select_ledger('FIN',2);
        if ($wLedger == null ) exit ('Pas de journal disponible');

        $wLedger->javascript=$add_js;

        $label=" Journal ".HtmlInput::infobulle(2) ;
        $f_jrn=$label.$wLedger->input();


        // retrieve bank name, code and account from the jrn_def.jrn_def_bank

        $f_bank='<span id="bkname">'.$this->get_bank_name().'</span>';

        $f_legend_detail='Opérations financières';
        //--------------------------------------------------
        // Saldo begin end
        //-------------------------------------------------
        // Extrait
        $default_pj='';
        if ( $owner->MY_PJ_SUGGEST=='Y')
        {
            $default_pj=$this->guess_pj();
        }
        $wPJ=new IText('e_pj');
        $wPJ->readonly=false;
        $wPJ->size=10;
        $wPJ->value=(isset($e_pj))?$e_pj:$default_pj;

        $f_extrait=$wPJ->input().HtmlInput::hidden('e_pj_suggest',$default_pj);
        $label=HtmlInput::infobulle(7);

        $first_sold=(isset($first_sold))?$first_sold:"";
        $wFirst=new INum('first_sold',$first_sold);

        $last_sold= isset($last_sold)?$last_sold:"";
        $wLast=new INum('last_sold',$last_sold);


        $max=(isset($nb_item))?$nb_item:MAX_ARTICLE;

        $r.= HtmlInput::hidden('nb_item',$max);
        //--------------------------------------------------
        // financial operation
        //-------------------------------------------------

        $array=array();
        // Parse each " tiers"
        for ($i=0; $i < $max; $i++)
        {
            $tiers=(isset(${"e_other".$i}))?${"e_other".$i}:""
                   ;
            $tiers_label="";
            $tiers_amount=(isset(${"e_other$i"."_amount"}))?round(${"e_other$i"."_amount"},2):0;

            $tiers_comment=(isset (${"e_other$i"."_comment"}))?${"e_other$i"."_comment"}:""
                           ;
            // If $tiers has a value
            if ( $tiers != ""  )
            {
                $fTiers=new Fiche($this->db);
                $fTiers->get_by_qcode($tiers);

                $tiers_label=$fTiers->strAttribut(ATTR_DEF_NAME);

            }
            ${"e_other$i"."_amount"}=(isset (${"e_other$i"."_amount"}))?${"e_other$i"."_amount"}:
                                     0;

            $W1=new ICard();
            $W1->label="";
            $W1->name="e_other".$i;
            $W1->value=$tiers;
            $W1->extra='deb';  // credits
            $W1->typecard='deb';
            $W1->set_dblclick("fill_ipopcard(this);");
            $W1->set_attribute('ipopup','ipopcard');

            // name of the field to update with the name of the card
            $W1->set_attribute('label','e_other'.$i.'_label');
            // name of the field to update with the name of the card
            $W1->set_attribute('typecard','filter');
            // Add the callback function to filter the card on the jrn
            $W1->set_callback('filter_card');
            $W1->set_function('fill_data');
            $W1->javascript=sprintf(' onchange="fill_data_onchange(\'%s\');" ',
                                    $W1->name);
            $W1->readonly=$pview_only;
            $array[$i]['qcode']=$W1->input();
            $array[$i]['search']=$W1->search();

            // label
            $other=new ISpan("e_other$i"."_label", $tiers_label);
            $array[$i]['span']=$other->input();
            // Comment
            $wComment=new IText("e_other$i"."_comment",$tiers_comment);

            $wComment->size=35;
            $wComment->setReadOnly($pview_only);
            $array[$i]['comment']=$wComment->input();
            // amount
            $wAmount=new INum("e_other$i"."_amount",$tiers_amount);

            $wAmount->size=7;
            $wAmount->setReadOnly($pview_only);
            $array[$i]['amount']=$wAmount->input();
            // concerned
            ${"e_concerned".$i}=(isset(${"e_concerned".$i}))?${"e_concerned".$i}:""
                                ;
            $wConcerned=new IConcerned("e_concerned".$i,${"e_concerned".$i});
            $wConcerned->setReadOnly($pview_only);
            $wConcerned->extra=0;

            $wConcerned->extra2='paid';
            $array[$i]['concerned']=$wConcerned->input();
        }

        ob_start();
        require_once('template/form_ledger_fin.php');
        $r.=ob_get_contents();
        ob_clean();


        return $r;

    }
    /*!\brief show the summary before inserting into the database, it
     *calls the function for adding a attachment. The function verify
     *should be called before
     *\param $p_array an array usually is $_POST 
     *\return string with code html
     */
    public function confirm($p_array)
    {
        $r="";
        bcscale(2);
        extract ($p_array);
        $pPeriode=new Periode($this->db);
        if ($this->check_periode() == true)
        {
            $pPeriode->p_id=$periode;
        }
        else
        {
            $pPeriode->find_periode($e_date);
        }

        list ($l_date_start,$l_date_end)=$pPeriode->get_date_limit();
        $exercice=$pPeriode->get_exercice();
        $r.='';
        $r.='<fieldset><legend>Banque, caisse </legend>';
        $r.='<TABLE  width="100%">';
        //  Date
        //--
        $r.="<tr>";
        $r.='<td> Date : </td><td>'.$e_date;
        // Periode
        //--
        $r.="<td>";
        $r.="Période comptable </td><td>";
        $r.=$l_date_start.' - '.$l_date_end;
        $r.="</td>";
        $r.="</tr>";
        // Ledger (p_jrn)
        //--
        $r.='<tr>';
        $r.='<td> Journal </td>';
        $this->id=$p_jrn;
        $r.='<td>';
        $r.=h($this->get_name());
        $r.='</td>';
        $r.='</tr>';

        //retrieve bank name
        $bk_id=$this->get_bank();

        $fBank=new Fiche($this->db,$bk_id);
        $e_bank_account_label=$this->get_bank_name();

        $filter_year="  j_tech_per in (select p_id from parm_periode where  p_exercice='".$exercice."')";

        $acc_account=new Acc_Account_Ledger($this->db,$fBank->strAttribut(ATTR_DEF_ACCOUNT));
        $solde=$acc_account->get_solde($filter_year);
        $new_solde=$solde;

        $r.="<TR><td colspan=\"4\"> Banque ";
        $r.=$e_bank_account_label;

        $r.="</TABLE>";

        $r.='</fieldset>';

        $r.='<fieldset><legend>Opérations financières</legend>';
        //--------------------------------------------------
        // Saldo begin end
        //-------------------------------------------------
        $r.='<fieldset><legend>Extrait de compte</legend>';
        $r.='<table>';
        $r.='<tr>';
        // Extrait
        //--
        $r.='<td> Numéro d\'extrait</td>'.h($e_pj);
        $r.='<td >Solde début extrait </td>';
        $r.='<td>'.$first_sold.'</td>';
        $r.='<td>Solde fin extrait </td>';
        $r.='<td>'.$last_sold.'</td>';
        $r.='</table>';
        $r.='</fieldset>';

        //--------------------------------------------------
        // financial operation
        //-------------------------------------------------
        $r.='<TABLE style="width:100%" id="fin_item">';
        $r.="<TR>";
        $r.="<th colspan=\"2\">code</TH>";
        $r.="<th>Commentaire</TH>";
        $r.="<th>Montant</TH>";
        $r.='<th colspan="2"> Op. Concern&eacute;e(s)</th>';
        $r.="</TR>";
        // Parse each " tiers"
        $tot_amount=0;
        //--------------------------------------------------
        // For each items
        //--------------------------------------------------
        for ($i=0; $i < $nb_item; $i++)
        {

            $tiers=(isset(${"e_other".$i}))?${"e_other".$i}:""
                   ;

            if ( strlen(trim($tiers))==0)continue;
            $tiers_label="";
            $tiers_amount=round(${"e_other$i"."_amount"},2);
            $tot_amount=bcadd($tot_amount,$tiers_amount);
            $tiers_comment=h(${"e_other$i"."_comment"});
            // If $tiers has a value
            $fTiers=new Fiche($this->db);
            $fTiers->get_by_qcode($tiers);

            $tiers_label=$fTiers->strAttribut(ATTR_DEF_NAME);

            $r.="<TR><td>".${'e_other'.$i}."</TD>";
            // label
            $other=new ISpan();
            $r.='<TD style="width:25%;border-bottom:1px dotted grey;">';
            $r.=$fTiers->strAttribut(ATTR_DEF_NAME);
            $r.='</td>';
            // Comment
            $r.='<td style="width:40%">'.$tiers_comment.'</td>';
            // amount
            $r.='<td>'.$tiers_amount.'</td>';
            // concerned
            $r.='<td>';
            $r.=${"e_concerned".$i};
            $r.='</td>';
            $r.='</TR>';
        }
        $r.="</TABLE>";

        // saldo
        $r.='<br>Ancien solde = '.$solde;
        $new_solde+=$tot_amount;
        $r.='<br>Nouveau solde = '.$new_solde;
        $r.='<br>Difference ='.$tot_amount;
        // check for upload piece
        $file=new IFile();

        $r.="<br>Ajoutez une pi&egrave;ce justificative ";
        $r.=$file->input("pj","");

        $r.='</fieldset>';
        //--------------------------------------------------
        // Hidden variables
        //--------------------------------------------------
        $r.=dossier::hidden();
        $r.=HtmlInput::hidden('p_jrn',$this->id);
        $r.=HtmlInput::hidden('nb_item',$nb_item);
        $r.=HtmlInput::hidden('last_sold',$last_sold);
        $r.=HtmlInput::hidden('first_sold',$first_sold);
        $r.=HtmlInput::hidden('e_pj',$e_pj);
        $r.=HtmlInput::hidden('e_pj_suggest',$e_pj_suggest);
        $r.=HtmlInput::hidden('e_date',$e_date);
        $mt=microtime(true);
        $r.=HtmlInput::hidden('mt',$mt);

        if (isset($periode))    $r.=HtmlInput::hidden('periode',$periode);
        $r.=dossier::hidden();
        $r.=HtmlInput::hidden('sa','n');
        for ($i=0; $i < $nb_item; $i++)
        {
            $tiers=(isset(${"e_other".$i}))?${"e_other".$i}:""
                   ;
            $r.=HtmlInput::hidden('e_other'.$i,$tiers);
            $r.=HtmlInput::hidden('e_other'.$i.'_comment',${'e_other'.$i.'_comment'});
            $r.=HtmlInput::hidden('e_other'.$i.'_amount',${'e_other'.$i.'_amount'});
            $r.=HtmlInput::hidden('e_concerned'.$i,${'e_concerned'.$i});
        }

        return $r;
    }
    /*!\brief save the data into the database, included the attachment,
     *and the reconciliations
     *\param $p_array usually $_POST 
     *\return string with HTML code
     */
    public function insert($p_array)
    {
        $internal_code="";
        $oid=0;
        extract ($p_array);
        $ret='';
        // Debit = banque
        $bank_id=$this->get_bank();
        $fBank=new Fiche($this->db,$bank_id);
        $e_bank_account=$fBank->strAttribut(ATTR_DEF_QUICKCODE);

        // Get the saldo
        $pPeriode=new Periode($this->db);
        if ( $this->check_periode() == true )
        {
            $pPeriode->p_id=$periode;
        }
        else
        {
            $pPeriode->find_periode($e_date);
        }
        $exercice=$pPeriode->get_exercice();

        $filter_year="  j_tech_per in (select p_id from parm_periode where  p_exercice='".$exercice."')";
        $sposte=$fBank->strAttribut(ATTR_DEF_ACCOUNT);
        // if 2 accounts, take only the debit one for customer
        if ( strpos($sposte,',') != 0 )
        {
            $array=explode(',',$sposte);
            $poste_val=$array[0];
        }
        else
        {
            $poste_val=$sposte;
        }

        $acc_account=new Acc_Account_Ledger($this->db,$poste_val);
        $solde=$acc_account->get_solde($filter_year);
        $new_solde=$solde;

        try
        {
            $this->db->start();
            $amount=0.0;
            $idx_operation=0;
            $ret='<table class="result" style="width:75%">';
            $ret.=tr(th('Quick Code').th('Nom').th('Libellé').th('Montant'));
            // Credit = goods
            for ( $i = 0; $i < $nb_item;$i++)
            {
                // if tiers is set and amount != 0 insert it into the database
                // and quit the loop ?
                if ( strlen(trim(${"e_other$i"}))==0 ) continue;
                $fPoste=new Fiche($this->db);
                $fPoste->get_by_qcode(${"e_other$i"});

                // round it
                ${"e_other$i"."_amount"}=round( ${"e_other$i"."_amount"},2);

                // Compute display
                $row=td(${"e_other$i"}).td($fPoste->strAttribut(ATTR_DEF_NAME)).td(${"e_other".$i."_comment"}).td(${"e_other$i"."_amount"},'class="num"');

                $ret.=tr($row);

                $amount+=${"e_other$i"."_amount"};
                // Record a line for the bank
                // Compute the j_grpt
                $seq=$this->db->get_next_seq('s_grpt');

                $acc_operation=new Acc_Operation($this->db);
                $acc_operation->date=$e_date;
                $sposte=$fPoste->strAttribut(ATTR_DEF_ACCOUNT);
                // if 2 accounts
                if ( strpos($sposte,',') != 0 )
                {
                    $array=explode(',',$sposte);
                    if ( ${"e_other$i"."_amount"} < 0 )
                        $poste_val=$array[1];
                    else
                        $poste_val=$array[0];
                }
                else
                {
                    $poste_val=$sposte;
                }


                $acc_operation->poste=$poste_val;
                $acc_operation->amount=${"e_other$i"."_amount"}*(-1);
                $acc_operation->grpt=$seq;
                $acc_operation->jrn=$p_jrn;
                $acc_operation->type='d';

                if ( isset($periode))
                    $tperiode=$periode;
                else
                {
                    $per=new Periode($this->db);
                    $tperiode=$per->find_periode($e_date);

                }
                $acc_operation->periode=$tperiode;
                $acc_operation->qcode=${"e_other".$i};
                $acc_operation->insert_jrnx();

                $acc_operation=new Acc_Operation($this->db);
                $acc_operation->date=$e_date;
                $sposte=$fBank->strAttribut(ATTR_DEF_ACCOUNT);

                // if 2 accounts
                if ( strpos($sposte,',') != 0 )
                {
                    $array=explode(',',$sposte);
                    if ( ${"e_other$i"."_amount"} < 0 )
                        $poste_val=$array[1];
                    else
                        $poste_val=$array[0];
                }
                else
                {
                    $poste_val=$sposte;
                }

                $acc_operation->poste=$poste_val;
                $acc_operation->amount=${"e_other$i"."_amount"};
                $acc_operation->grpt=$seq;
                $acc_operation->jrn=$p_jrn;
                $acc_operation->type='d';
                $acc_operation->periode=$tperiode;
                $acc_operation->qcode=$e_bank_account;
                $acc_operation->insert_jrnx();


                if ( FormatString(${"e_other$i"."_comment"}) == null )
                {
                    // if comment is blank set a default one
                    $comment="  compte : ".$fBank->strAttribut(ATTR_DEF_NAME).' a '.
                             $fPoste->strAttribut(ATTR_DEF_NAME);
                }
                else
                {
                    $comment=${'e_other'.$i.'_comment'};
                }


                $acc_operation=new Acc_Operation($this->db);
                $acc_operation->jrn=$p_jrn;
                $acc_operation->amount=abs(${"e_other$i"."_amount"});
                $acc_operation->date=$e_date;
                $acc_operation->desc=$comment;
                $acc_operation->grpt=$seq;
                $acc_operation->periode=$tperiode;
                $acc_operation->mt=$mt;
                $idx_operation++;
                $acc_operation->pj='';

                if ( trim($e_pj) != '' && $this->numb_operation()==true)
                    $acc_operation->pj=$e_pj.str_pad($idx_operation,3,0,STR_PAD_LEFT);

                if ( trim($e_pj) != '' && $this->numb_operation()==false)
                    $acc_operation->pj=$e_pj;

                $jr_id=$acc_operation->insert_jrn();
                // 	  $acc_operation->set_pj();
                $this->db->exec_sql('update jrn set jr_pj_number=$1 where jr_id=$2',
                                    array($acc_operation->pj,$jr_id));
                $internal=$this->compute_internal_code($seq);


                if ( trim(${"e_concerned".$i}) != "" )
                {
                    if ( strpos(${"e_concerned".$i},',') != 0 )
                    {
                        $aRapt=explode(',',${"e_concerned".$i});
                        foreach ($aRapt as $rRapt)
                        {
                            // Add a "concerned operation to bound these op.together
                            //
                            $rec=new Acc_Reconciliation ($this->db);
                            $rec->set_jr_id($jr_id);

                            if ( isNumber($rRapt) == 1 )
                            {
                                $rec->insert($rRapt);
                            }
                        }
                    }
                    else
                        if ( isNumber(${"e_concerned".$i}) == 1 )
                        {
                            $rec=new Acc_Reconciliation ($this->db);
                            $rec->set_jr_id($jr_id);
                            $rec->insert(${"e_concerned$i"});
                        }
                }

                // Set Internal code
                $this->grpt_id=$seq;
                /**
                 * save also into quant_fin
                 */
		$this->insert_quant_fin($fBank->id,$jr_id,$fPoste->id,${"e_other$i"."_amount"});

                $this->update_internal_code($internal);


                if ( $i == 0 )
                {
                    // first record we upload the files and
                    // keep variable to update other row of jrn
                    if ( isset ($_FILES))
                        $oid=$this->db->save_upload_document($seq);

                }
                else
                {
                    if ( $oid  != 0 )
                    {
                        $this->db->exec_sql("update jrn set jr_pj=".$oid.", jr_pj_name='".$_FILES['pj']['name']."', ".
                                            "jr_pj_type='".$_FILES['pj']['type']."'  where jr_grpt_id=$seq");
                    }
                }

            } // for nbitem
            // increment pj
            if ( strlen(trim($e_pj)) !=0 )
            {
                $this->inc_seq_pj();
            }
            $ret.='</table>';
        }
        catch (Exception $e)
        {
            echo '<span class="error">'.
            'Erreur dans l\'enregistrement '.
            __FILE__.':'.__LINE__.' '.
            $e->getMessage();
            $this->db->rollback();
            exit();

        }
        $this->db->commit();
        $r="";
        $r.="<br>Ancien solde ".$solde;
        $new_solde+=$amount;
        $r.="<br>Nouveau solde ".$new_solde;
        $ret.=$r;
        return $ret;
    }
    /*!\brief display operation of a FIN ledger
     *\return html code into a string
     */
    function show_ledger()
    {
        echo dossier::hidden();
        $hid=new IHidden();

        $hid->name="p_action";
        $hid->value="bank";
        echo $hid->input();


        $hid->name="sa";
        $hid->value="l";
        echo $hid->input();

        $User=new User($this->db);

        $w=new ISelect();
        // filter on the current year
        $filter_year=" where p_exercice='".$User->get_exercice()."'";

        $periode_start=$this->db->make_array("select p_id,to_char(p_start,'DD-MM-YYYY') from parm_periode $filter_year order by p_start,p_end",1);
        // User is already set User=new User($this->db);
        $current=(isset($_GET['p_periode']))?$_GET['p_periode']:-1;
        $w->selected=$current;

        echo JS_LEDGER;
        echo JS_PROTOTYPE;
        echo JS_AJAX_FICHE;
        echo '<form>';
        echo 'Période  '.$w->input("p_periode",$periode_start);
        $wLedger=$this->select_ledger('fin',3);

        if ($wLedger == null) exit (_('Pas de journal disponible'));

        if ( count($wLedger->value) > 1)
        {
            $aValue=$wLedger->value;
            $wLedger->value[0]=array('value'=>-1,'label'=>_('Tous les journaux financiers'));
            $idx=1;
            foreach ($aValue as $a)
            {
                $wLedger->value[$idx]=$a;
                $idx++;
            }
        }


        echo 'Journal '.$wLedger->input();
        $w=new ICard();
        $w->noadd='no';
        $w->jrn=$this->id;
        $qcode=(isset($_GET['qcode']))?$_GET['qcode']:"";
        echo dossier::hidden();
        echo HtmlInput::hidden('p_action','bank');
        echo HtmlInput::hidden('sa','l');
        $w->name='qcode';
        $w->value=$qcode;
        $w->label='';
        $this->type='FIN';
        $all=$this->get_all_fiche_def();
        $w->extra=$all;
        $w->extra2='QuickCode';
        $sp=new ISpan();
        echo $sp->input("qcode_label","",$qcode);
        echo $w->input();

        echo HtmlInput::submit('gl_submit',_('Rechercher'));
        echo '</form>';

        // Show list of sell
        // Date - date of payment - Customer - amount
        if ( $current != -1 )
        {
            $filter_per=" and jr_tech_per=".$current;
        }
        else
        {
            $filter_per=" and jr_tech_per in (select p_id from parm_periode where p_exercice::integer=".
                        $User->get_exercice().")";
        }
        /* security  */
        if( $this->id != -1)
            $available_ledger=" and jr_def_id= ".$this->id." and ".$User->get_ledger_sql();
        else
            $available_ledger=" and ".$User->get_ledger_sql();
        // Show list of sell
        // Date - date of payment - Customer - amount
        $sql=SQL_LIST_ALL_INVOICE.$filter_per." and jr_def_type='FIN'".
             " $available_ledger" ;
        $step=$_SESSION['g_pagesize'];
        $page=(isset($_GET['offset']))?$_GET['page']:1;
        $offset=(isset($_GET['offset']))?$_GET['offset']:0;

        $l="";

        // check if qcode contains something
        if ( $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')) ";
        }

        list($max_line,$list)=ListJrn($this->db,"where jrn_def_type='FIN' $filter_per $l $available_ledger "
                                      ,null,$offset,0);
        $bar=jrn_navigation_bar($offset,$max_line,$step,$page);

        echo "<hr> $bar";
        echo $list;
        echo "$bar <hr>";
    }
    /**
     * return a string with the bank account, name and quick_code
     */
    function get_bank_name()
    {
        $bank_id=$this->db->get_value('select jrn_def_bank from jrn_def where jrn_def_id=$1',
                                      array($this->id));
        $fBank=new Fiche($this->db,$bank_id);
        $e_bank_account=" : ".$fBank->strAttribut(ATTR_DEF_BQ_NO);
        $e_bank_name=" : ".$fBank->strAttribut(ATTR_DEF_NAME);
        $e_bank_qcode=": ".$fBank->strAttribut(ATTR_DEF_QUICKCODE);
        return $e_bank_qcode.$e_bank_name.$e_bank_account;
    }
    /**
     *return the fiche_id of the bank
     */
    function get_bank()
    {
        $bank_id=$this->db->get_value('select jrn_def_bank from jrn_def where jrn_def_id=$1',
                                      array($this->id));
        return $bank_id;
    }
    /**
     *return true is we numbere each operation
     */
    function numb_operation()
    {
        $a=$this->db->get_value('select jrn_def_num_op from jrn_def where jrn_def_id=$1',
                                array($this->id));
        if ($a==1) return true;
        return false;
    }
  /**
   * insert into the quant_fin table
   *@param $bank_id is the f_id of the bank
   *@param $jr_id is the jrn.jr_id of the operation
   *@param $other is the f_id of the benefit
   *@param $amount is the amount
   */
  function insert_quant_fin($p_bankid,$p_jrid,$p_otherid,$p_amount)
  {
    $sql="INSERT INTO quant_fin(qf_bank, jr_id, qf_other, qf_amount)
                   VALUES ($1, $2, $3, $4);";
    
    $this->db->exec_sql($sql,array($p_bankid,$p_jrid,$p_otherid,round($p_amount,2)));
  }
}