<?php

/*
 *   This file is part of NOALYSS.
 *
 *   NOALYSS 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.
 *
 *   NOALYSS 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 NOALYSS; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

// Copyright Author Dany De Bontridder danydb@aevalys.eu

/**
 * \file
 * \brief the class Acc_Ledger_Fin inherits from Acc_Ledger, this
 * object permit to manage the financial ledger
 */
 /**
  * \class Acc_Ledger_Fin
  * \brief the class Acc_Ledger_Fin inherits from Acc_Ledger, this
  * object permit to manage the financial ledger
  */
require_once NOALYSS_INCLUDE.'/lib/ac_common.php';

class Acc_Ledger_Fin extends Acc_Ledger
{
    public $bank_id; //! bank_id (int) FICHE.F_ID for bank
    function __construct($p_cn, $p_init)
    {
        parent::__construct($p_cn, $p_init);
        $this->ledger_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_operation($p_array)
    {
        global $g_user;
        if (is_array($p_array)==false||empty($p_array))
            throw new Exception("Array empty");
        /*
         * Check needed value
         */
        check_parameter($p_array, 'p_jrn');

        extract($p_array, EXTR_SKIP);
        /* 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 */
        if ($g_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->get_attribute(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');
        if ($chdate!=1&&$chdate!=2)
            throw new Exception('Le choix de date est invalide');
        if ($chdate==1)
        {
            /*  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 (noalyss_strlentrim(${'e_other'.$i})==0)
                continue;
            /* check if all card has a ATTR_DEF_ACCOUNT */
            $fiche=new Fiche($this->db);
            $fiche->get_by_qcode(${'e_other'.$i});
            if ($fiche->get_f_enable() == '0')
                throw new Exception(sprintf(_("La fiche %s n'est plus utilisée"),${'e_other'.$i}), 50);
            /* 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);

            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->get_attribute(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);
            if ($chdate==2)
            {
                {/*  check if the date is valid */
                    if (isDate(${'dateop'.$i})==null)
                    {
                        throw new Exception('Date invalide', 2);
                    }
                    $oPeriode=new Periode($this->db);
                    if ($this->check_periode()==false)
                    {
                        $periode=$oPeriode->find_periode(${'dateop'.$i});
                    }
                    else
                    {
                        $oPeriode->p_id=$periode;
                        list ($min, $max)=$oPeriode->get_date_limit();
                        if (cmpDate(${'dateop'.$i}, $min)<0||
                                cmpDate(${'dateop'.$i}, $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(${'dateop'.$i}, $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);
                    }
                }
            }
            $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 (noalyss_strlentrim($last_sold)!=0&&isNumber($last_sold)&&noalyss_strlentrim($first_sold)!=0&&isNumber($first_sold)
        )
        {
            $diff=bcsub($last_sold,$first_sold,2);
            $diff=bcsub($diff,$tot_amount,2);
            $calc=bcadd($first_sold, $tot_amount, 2);
            if ($first_sold!=0||$last_sold!=0)
            {
                if ($diff!=0)
                {
                    throw new Exception(sprintf(_('Le montant de l\'extrait est incorrect,'.
                                                    " solde donné [ %s ]".
                                                    " solde calculé [%s] , différence de [%s]"), $last_sold, $calc,
                                            $diff), 13);
                }
            }
        }
    }

    /**
     * \brief display a form to enter an FIN operation
     * \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, $notused=0)
    {
        global $g_parameter, $g_user;
        if ($p_array!=null)
            extract($p_array, EXTR_SKIP);

        $pview_only=false;

        $min_article=$this->get_min_row();

        $str_add_button_tiers="";
        $add_card=FALSE;
        if ($g_user->check_action(FICADD)==1)
        {
            $add_card=TRUE;
        }

        // The first day of the periode
        $pPeriode=new Periode($this->db);
        list ($l_date_start, $l_date_end)=$pPeriode->get_date_limit($g_user->get_periode());
        if ($g_parameter->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:$g_user->get_periode();
            $period=new IPeriod();
            $period->cn=$this->db;
            $period->type=OPEN;
            $period->value=$l_user_per;
            $period->user=$g_user;
            $period->name='periode';
            try
            {
                $l_form_per=$period->input();
            }
            catch (Exception $e)
            {
                if ($e->getCode()==1)
                {
                    throw new Exception(_("Aucune période ouverte"));
                }
            }
            $label=Icon_Action::infobulle(3);
            $f_period="Période comptable $label".$l_form_per;
        }

        // Ledger (p_jrn)
        //--
        $onchange="update_bank();ajax_saldo('first_sold');update_name();update_row('fin_item');show_ledger_fin_currency();";

        if ($g_parameter->MY_DATE_SUGGEST=='Y')
            $onchange.='get_last_date();';
        if ($g_parameter->MY_PJ_SUGGEST=='Y')
            $onchange.='update_receipt();';

        $add_js='onchange="'.$onchange.'"';
        $wLedger=$this->select_ledger('FIN', 2, FALSE);
        if ($wLedger==null)
            throw new Exception(_('Pas de journal disponible'));

        $wLedger->javascript=$add_js;

        $label_ledger=_("Journal")." ".Icon_Action::infobulle(2);

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

        $f_bank='<span id="bkname">'.$this->get_bank_name().'</span>';
        if ($this->bank_id=="")
        {
            echo h2("Journal de banque non configuré ".$this->get_name(), ' class="error"');
            echo '<span class="error"> vous devez donner à ce journal un compte en banque (fiche), modifiez dans C0JRN</span>';
            alert("Journal de banque non configuré ".$this->get_name());
        }

        $f_legend_detail='Opérations financières';
        //--------------------------------------------------
        // Saldo begin end
        //-------------------------------------------------
        // Extrait
        $default_pj='';
        if ($g_parameter->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=Icon_Action::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:$min_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_amount=(isset(${"e_other$i"."_amount"}))?round(${"e_other$i"."_amount"}, 2):0;

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

            $operation_date=new IDate("dateop".$i);
            $operation_date->value=(isset(${'dateop'.$i}))?${'dateop'.$i}:"";
            $array[$i]['dateop']=$operation_date->input();
            ${"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->id="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_name'.$i);
            // 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();
            $array[$i]['card_add']=($add_card==TRUE)?$this->add_card("deb", $W1->id):"";
            // Card name
            //
            $card_name="";
            if ($tiers!="")
            {
                $fiche=new Fiche($this->db);
                $fiche->get_by_qcode($tiers);
                $card_name=$this->db->get_value("Select ad_value from fiche_detail where ad_id=$1 and f_id=$2",
                        array(ATTR_DEF_NAME, $fiche->id));
            }

            $wcard_name=new IText("e_other_name".$i, $card_name);
            $wcard_name->id=$wcard_name->name;
            $wcard_name->readOnly=true;
            $array[$i]['cname']=$wcard_name->input();

            // Comment
            $wComment=new IText("e_other$i"."_comment", $tiers_comment);
            $wComment->style='class="input_text label_item"';

            $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->tiers="e_other".$i;
            $wConcerned->setReadOnly($pview_only);
            $wConcerned->amount_id="e_other".$i."_amount";

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

        ob_start();
        require_once NOALYSS_TEMPLATE.'/form_ledger_fin.php';
        $r.=ob_get_contents();
        ob_end_clean();
        $r.=create_script("$('".$Date->id."').focus()");

        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, $p_nothing=0)
    {
        global $g_parameter, $g_user;
        $r="";
        if ( ! $this->get_is_loaded()) {
            $this->load();
        }
        bcscale(2);
        extract($p_array, EXTR_SKIP);
        $pPeriode=new Periode($this->db);
        if ($this->check_periode()==true)
        {
            $pPeriode->p_id=$periode;
        }
        else
        {
            if (isDate($e_date)!=null)
            {
                $pPeriode->find_periode($e_date);
            }
            else
            {
                $pPeriode->p_id=$g_user->get_periode();
            }
        }

        list ($l_date_start, $l_date_end)=$pPeriode->get_date_limit();
        $exercice=$pPeriode->get_exercice();
        $r.='';
        $r.='<fieldset><legend>'._("Banque, caisse").' </legend>';
        $r.='<div id="jrn_name_div">';
        $r.='<h1 id="jrn_name" style="display:inline">'.$this->get_name().'</h1>';
        $r.='</div>';
        $r.='<TABLE  width="100%">';
        //  Date
        //--
        $r.="<tr>";
        if ($chdate==1)
            $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->get_attribute(ATTR_DEF_ACCOUNT));
        $asolde=$acc_account->get_solde_detail($filter_year);
        $deb=$asolde['debit'];
        $cred=$asolde['credit'];
        $solde=bcsub($deb, $cred);
        $new_solde=$solde;

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

        $r.="</TABLE>";

        $r.='</fieldset>';

        $r.='<div class="myfieldset"><h1 class="legend">'._("Extrait de compte").'</h1>';
        //--------------------------------------------------
        // Saldo begin end
        //-------------------------------------------------
        $r.='<table>';
        $r.='<tr>';
        // Extrait
        //--
        $r.=tr('<td>'._("Numéro d'extrait").' </td>'.td(h($e_pj)));
        $r.='<tr><td >'._("Solde début extrait").' </td>';
        $r.='<td style="num">'.nbm($first_sold).'</td></tr>';
        $r.='<tr><td>'._("Solde fin extrait").' </td>';
        $r.='<td style="num">'.nbm($last_sold).'</td></tr>';
        $r.='</table>';

        $r.='<h1 class="legend">Opérations financières</h1>';
        //--------------------------------------------------
        // financial operation
        //-------------------------------------------------
        $r.='<TABLE style="width:100%" id="fin_item">';
        $r.="<TR>";
        if ($chdate==2)
            $r.='<th>'._("Date").'</th>';
        $r.="<th style=\"width:auto;text-align:left\" colspan=\"2\">"._("Nom")."</th>";
        $r.="<th style=\"text-align:left\" >"._("Commentaire")."</th>";
        $r.="<th style=\"text-align:right\">"._("Montant")."</th>";
        $r.='<th colspan="2">'._("Op. Concernée(s)").'</th>';

        /* if we use the AC */
        if ($g_parameter->MY_ANALYTIC!='nu')
        {
            $anc=new Anc_Plan($this->db);
            $a_anc=$anc->get_list();
            $x=count($a_anc);
            /* set the width of the col */
            $r.='<th colspan="'.$x.'">'._('Compt. Analytique').'</th>';

            /* add hidden variables pa[] to hold the value of pa_id */
            $r.=Anc_Plan::hidden($a_anc);
        }
        $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 (noalyss_strlentrim($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->get_attribute(ATTR_DEF_NAME);

            $r.="<TR>";
            if ($chdate==2)
                $r.=td(${"dateop".$i});
            $r.="<td>".${'e_other'.$i}."</TD>";
            // label
            $r.='<TD style="width:25%;border-bottom:1px dotted grey;">';
            $r.=$fTiers->get_attribute(ATTR_DEF_NAME);
            $r.='</td>';
            // Comment
            $r.='<td style="width:40%">'.$tiers_comment.'</td>';
            // amount
            $r.='<td class="num">'.nbm($tiers_amount).'</td>';
            // concerned
            $r.='<td style="text-align:center">';
            if (${"e_concerned".$i}!='')
            {
                $jr_internal=$this->db->get_array("select jr_internal from jrn where jr_id in (".${"e_concerned".$i}.")");
                $comma="";
                for ($x=0; $x<count($jr_internal); $x++)
                {
                    $r.=$comma.HtmlInput::detail_op(${"e_concerned".$i}, $jr_internal[$x]['jr_internal']);
                    $comma=" , ";
                }
            }
            $r.='</td>';
            // encode the pa
            if ($g_parameter->MY_ANALYTIC!='nu'&&$g_parameter->match_analytic($fTiers->get_attribute(ATTR_DEF_ACCOUNT))==1) // use of AA
            {
                // show form
                $anc_op=new Anc_Operation($this->db);
                $null=($g_parameter->MY_ANALYTIC=='op')?1:0;
                $r.='<td>';
                $p_mode=1;
                $p_array['pa_id']=$a_anc;
                /* op is the operation it contains either a sequence or a jrnx.j_id */
                $r.=HtmlInput::hidden('op[]=', $i);
                $r.=$anc_op->display_form_plan($p_array, $null, $p_mode, $i, $tiers_amount);
                $r.='</td>';
            }

            $r.='</TR>';
        }
        $r.="</TABLE>";
        $acc_currency=$this->get_currency();

        // If currency is not the default one
        if ($acc_currency->get_id()!=0)
        {

            $solde=$fBank->get_bk_balance_currency();
            $cur=$acc_currency->get_code();
            $cur_rate=$acc_currency->get_rate_date($e_date);
            $default_currency=new Acc_Currency($this->db, 0);
            // saldo
            $r.="<table>";
            $r.=tr(
                    td(_("Ancien solde")).
                    td(nbm($solde).$cur, 'class="num"')
            );
            $new_solde=bcadd($solde??0, $tot_amount??0);
            $r.=tr(
                    td(_("Nouveau solde")).
                    td(nbm($new_solde).$cur, ' class="num"')
            );
            $r.=tr(
                    td(_("Difference")).
                    td(nbm($tot_amount).$cur, ' class="num"')
            );
            $r.=tr(
                    td(_("Taux")).
                    td($cur_rate)
            );
            $r.=tr(
                    td(_("Nouveau solde")).
                    td(bcdiv($new_solde, $cur_rate).$default_currency->get_code(), ' class="num"')
            );
            $r.='</table>';
        }
        else
        {

            $cur=$acc_currency->get_code();
            // saldo
            $r.="<table>";
            $r.=tr(
                    td(_("Ancien solde")).
                    td(nbm($solde).$cur, 'class="num"')
            );
            $new_solde=bcadd($solde, $tot_amount);
            $r.=tr(
                    td(_("Nouveau solde")).
                    td(nbm($new_solde).$cur, ' class="num"')
            );
            $r.=tr(
                    td(_("Difference")).
                    td(nbm($tot_amount).$cur, ' class="num"')
            );

            $r.='</table>';
        }
        // check for upload piece
        $file=new IFile();
        $file->setAlertOnSize(true);
        $r.="<br>"._("Ajoutez une pièce justificative")." ";
        $r.=$file->input("pj", "");

        $r.='</div>';
        //--------------------------------------------------
        // 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', 'chdate');
        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, $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});
            $r.=HtmlInput::hidden('dateop'.$i, ${'dateop'.$i});
            $r.=HtmlInput::hidden('chdate', $chdate);
        }

        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=null)
    {
        global $g_parameter;
        
        if ( ! $this->get_is_loaded()) {
            $this->load();
        }
        bcscale(2);
        $internal_code="";
        $oid=0;
        extract($p_array, EXTR_SKIP);
        $ret='';
        // Debit = banque
        $bank_id=$this->get_bank();
        $fBank=new Fiche($this->db, $bank_id);
        $e_bank_account=$fBank->get_attribute(ATTR_DEF_QUICKCODE);
        // Get the saldo
        $pPeriode=new Periode($this->db);
        $sposte=$fBank->get_attribute(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);

        // If date = deposit date
        if ($chdate==1)
        {
            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."')";
            $asolde=$acc_account->get_solde_detail($filter_year);
            $deb=$asolde['debit'];
            $cred=$asolde['credit'];
            $solde=bcsub($deb, $cred);
            $new_solde=$solde;
        }


        try
        {
            $this->db->start();
            $amount=0.0;
            $idx_operation=0;
            $ret='<table class="result" >';
            $ret.=tr(th(_('Date')).th(_('n° interne')).th(_('Quick Code'))
                    .th(_('Nom')).th(_('Libellé')).th(_('Montant'), ' style="text-align:right"'));
            // Credit = goods
            $get_solde=true;

            $acc_currency=new Acc_Currency($this->db, $this->currency_id);

            // get the currency_rate when we have one date for all the operations
            if ($chdate!=2)
            {
                $currency_rate=$acc_currency->get_rate_date($e_date);
            }
            if (DEBUGNOALYSS>1)
            {
                printf("<p> currency_id %s </p>",$this->currency_id);
                printf("<p> rate %s </p>", $currency_rate);
            }
            // for each item
            for ($i=0; $i<$nb_item; $i++)
            {
                // insert it into the database
                // and quit the loop ?
                if (noalyss_strlentrim(${"e_other$i"})==0)
                    continue;

                // get the currency_rate when each  operation has its own date 
                if ($chdate==2)
                {
                    $e_date=${'dateop'.$i};
                    $currency_rate=$acc_currency->get_rate_date($e_date);
                }
                // if date is date of operation
                if ($chdate==2&&$get_solde)
                {
                    $get_solde=false;
                    if ($this->check_periode()==true&&isset($p_array['periode']))
                    {
                        $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='".
                            sql_string($exercice)."')";
                    $solde=$acc_account->get_solde($filter_year);
                    $new_solde=$solde;
                }
                $fPoste=new Fiche($this->db);
                $fPoste->get_by_qcode(${"e_other$i"});

                // convert to EUR if needed and round it
                $amount_input=${"e_other$i"."_amount"}=round(${"e_other$i"."_amount"}, 2);
                $amount_eur=bcdiv($amount_input, $currency_rate);

                $amount=bcadd($amount, $amount_input);

                // 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->get_attribute(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=bcmul($amount_eur, -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};
                $j_id_currency=$acc_operation->insert_jrnx();

                // -- Insert into Operation Currency 
                $operation_currency=new Operation_currency_SQL($this->db);
                $operation_currency->oc_amount=$amount_input;
                $operation_currency->oc_vat_amount=0;
                $operation_currency->oc_price_unit=0;
                $operation_currency->j_id=$j_id_currency;
                $operation_currency->insert();

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

                // if 2 accounts, use the first one if DEB otherwise the second one
                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=$amount_eur;
                $acc_operation->grpt=$seq;
                $acc_operation->jrn=$p_jrn;
                $acc_operation->type='d';
                $acc_operation->periode=$tperiode;
                $acc_operation->qcode=$e_bank_account;
                $j_id=$acc_operation->insert_jrnx();

                // -- Insert into Operation Currency 
                $operation_currency=new Operation_currency_SQL($this->db);
                $operation_currency->oc_amount=$amount_input;
                $operation_currency->oc_vat_amount=0;
                $operation_currency->oc_price_unit=0;
                $operation_currency->j_id=$j_id;
                $operation_currency->insert();

                if (sql_string(${"e_other$i"."_comment"})==null)
                {
                    // if comment is blank set a default one
                    $comment=sprintf(_("  compte : %s a %s "), $fBank->get_attribute(ATTR_DEF_NAME),
                            $fPoste->get_attribute(ATTR_DEF_NAME)
                    );
                }
                else
                {
                    $comment=strip_tags(${'e_other'.$i.'_comment'});
                }


                $acc_operation=new Acc_Operation($this->db);
                $acc_operation->jrn=$p_jrn;
                $acc_operation->amount=abs($amount_eur);
                $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='';
                $acc_operation->currency_id=$this->currency_id;
                $acc_operation->currency_rate=$currency_rate;
                $acc_operation->currency_rate_ref=$currency_rate;

                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();
                if ( $jr_id == false )
                    throw new Exception (_("Erreur de balance"),EXC_BALANCE);

                // 	  $acc_operation->update_receipt();
                $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);
                                try
                                {
                                    $oppaid=new Acc_Operation($this->db);
                                    $oppaid->set_id($rRapt);
                                    $oppaid->set_paid();
                                }
                                catch (Exception $ex)
                                {
                                    record_log($ex->getTraceAsString());
                                    echo _('Attention , erreur Acc_Ledger_Fin::insert  , coche paiement');
                                }
                            }
                        }
                    }
                    else
                    if (isNumber(${"e_concerned".$i})==1)
                    {
                        $rec=new Acc_Reconciliation($this->db);
                        $rec->set_jr_id($jr_id);
                        $rec->insert(${"e_concerned$i"});
                        try
                        {
                            $oppaid=new Acc_Operation($this->db);
                            $oppaid->set_id(${"e_concerned".$i});
                            $conc_amount=$oppaid->get_amount();
                            if ($conc_amount==$acc_operation->amount)
                            {
                                $oppaid->set_paid();
                            }
                        }
                        catch (Exception $ex)
                        {
                            record_log($ex->getTraceAsString());
                            echo _('Attention , erreur Acc_Ledger_Fin::insert  , coche paiement');
                        }
                    }
                }

                // Set Internal code
                $this->jr_grpt_id=$seq;
                /**
                 * save also into quant_fin
                 */
                $this->insert_quant_fin($fBank->id, $jr_id, $fPoste->id, $amount_eur, $j_id_currency);

                if ($g_parameter->MY_ANALYTIC!="nu")
                {
                    // for each item, insert into operation_analytique */
                    $op=new Anc_Operation($this->db);
                    $op->set_currency_rate($currency_rate);
                    $op->oa_group=$this->db->get_next_seq("s_oa_group"); /* for analytic */
                    $op->j_id=$j_id_currency;
                    $op->oa_date=$e_date;
                    $op->oa_debit='f';
                    $op->oa_description=sql_string($comment);
                    $op->save_form_plan($_POST, $i, $j_id_currency);
                }


                $this->update_internal_code($internal);

                $js_detail=HtmlInput::detail_op($jr_id, $internal);
                // Compute display
                $row=td($e_date)
                        .td($js_detail)
                        .td(${"e_other$i"})
                        .td($fPoste->get_attribute(ATTR_DEF_NAME))
                        .td(${"e_other".$i."_comment"})
                        .td(nbm(${"e_other$i"."_amount"}), 'class="num"');
                $class=($i%2==0)?' class="even" ':' class="odd" ';
                $ret.=tr($row, $class);

                if ($i==0)
                {
                    // first record we upload the files and
                    // keep variable to update other row of jrn
                    if (isset($_FILES['pj']))
                        $oid=$this->db->save_receipt($seq);
                }
                else
                {
                    if ($oid!=0)
                    {
                        $this->db->exec_sql("update jrn set jr_pj=$1 , jr_pj_name=$2,
                                            jr_pj_type=$3  where jr_grpt_id=$4",
                                array($oid, $_FILES['pj']['name'], $_FILES['pj']['type'], $seq));
                    }
                }
            } // for nbitem
            // increment pj
            if (noalyss_strlentrim($e_pj)!=0)
            {
                $this->inc_seq_pj();
            }
            $ret.='</table>';
        }
        catch (Exception $e)
        {

            $this->db->rollback();
            record_log($e);
            throw $e;
        }
        $this->db->commit();
        if ($acc_currency->get_id()==0)
        {
            $r="";
            $r.=sprintf("<br>"._("Ancien solde %s %s"), nbm($solde), $acc_currency->get_code());
            $new_solde=bcadd($new_solde, $amount);
            $r.=sprintf("<br>"._("Nouveau solde %s %s"), nbm($new_solde), $acc_currency->get_code());
            $ret.=$r;
        }
        else
        {
            $solde_cur=$fBank->get_bk_balance_currency();
            $r="";
            $r.=sprintf("<br>"._("Ancien solde %s %s"), nbm($solde_cur), $acc_currency->get_code());
            $new_solde=bcadd($solde_cur, $amount);
            $r.=sprintf("<br>"._("Nouveau solde %s %s"), nbm($new_solde), $acc_currency->get_code());
            $ret.=$r;
        }
        return $ret;
    }

    /**
     * return a string with the bank account, name and quick_code
     */
    function get_bank_name()
    {
        $this->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, $this->bank_id);
        $e_bank_account=" : ".$fBank->get_attribute(ATTR_DEF_BQ_NO);
        $e_bank_name=" : ".$fBank->get_attribute(ATTR_DEF_NAME);
        $e_bank_qcode=": ".$fBank->get_attribute(ATTR_DEF_QUICKCODE);
        return $e_bank_qcode.$e_bank_name.$e_bank_account;
    }

    /**
     * @brief find and FICHE.F_ID of the bank or -1 if not found
     */
    function get_bank()
    {
        $bank_id=$this->db->get_value('select jrn_def_bank from jrn_def where jrn_def_id=$1', array($this->id));
        if (empty($bank_id)) return -1;
        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 integer $bank_id is the f_id of the bank
     * @param integer $jr_id is the jrn.jr_id of the operation
     * @param integer $other is the f_id of the benefit
     * @param integer $amount is the amount
     * @param integer $p_j_id is the j_id of the operation
     */
    function insert_quant_fin($p_bankid, $p_jrid, $p_otherid, $p_amount, $p_j_id_currency)
    {
        $sql="INSERT INTO quant_fin(qf_bank, jr_id, qf_other, qf_amount,j_id)
                   VALUES ($1, $2, $3, $4,$5);";

        $this->db->exec_sql($sql, array($p_bankid, $p_jrid, $p_otherid, round($p_amount, 2), $p_j_id_currency));
    }

}