<?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
 */
require_once NOALYSS_INCLUDE.'/class/acc_ledger.class.php';
require_once NOALYSS_INCLUDE.'/lib/idate.class.php';
require_once NOALYSS_INCLUDE.'/lib/icard.class.php';
require_once NOALYSS_INCLUDE.'/lib/ispan.class.php';
require_once NOALYSS_INCLUDE.'/lib/itext.class.php';
require_once NOALYSS_INCLUDE.'/lib/iconcerned.class.php';
require_once NOALYSS_INCLUDE.'/lib/ifile.class.php';
require_once NOALYSS_INCLUDE.'/lib/ihidden.class.php';
require_once NOALYSS_INCLUDE.'/lib/iselect.class.php';
require_once NOALYSS_INCLUDE.'/lib/ac_common.php';
require_once NOALYSS_INCLUDE.'/class/acc_reconciliation.class.php';

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

	/**
         * Verify that the data are correct before inserting or confirming
         * @brief verify the data 
	 * @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->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');
		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 (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);
			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 (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, $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_pj();';

		$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 CFGLED</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 = "";
		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.='<h2 id="jrn_name" style="display:inline">' . $this->get_name() . '</h2>';
		$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->strAttribut(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 (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>";
			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->strAttribut(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->strAttribut(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,$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.=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();

		$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;
		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->strAttribut(ATTR_DEF_QUICKCODE);
		// Get the saldo
		$pPeriode = new Periode($this->db);
		$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);

		// 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);
                        $currency_rate=$acc_currency->get_rate_date($e_date);
                        
                        // for each item
			for ($i = 0; $i < $nb_item; $i++)
			{
				// insert it into the database
				// and quit the loop ?
				if (strlen(trim(${"e_other$i"})) == 0)
					continue;

				if ( $chdate == 2 ) $e_date=${'dateop'.$i};
				// 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->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 = 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->strAttribut(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->strAttribut(ATTR_DEF_NAME),
							$fPoste->strAttribut(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();
				// 	  $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);
                                                                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->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->strAttribut(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))
						$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 (strlen(trim($e_pj)) != 0)
			{
				$this->inc_seq_pj();
			}
			$ret.='</table>';
		}
		catch (Exception $e)
		{
			$r = '<span class="error">' .
			'Erreur dans l\'enregistrement ' .
			__FILE__ . ':' . __LINE__ . ' ' .
			$e->getMessage();
			$this->db->rollback();
                          record_log($e);
			throw new Exception($r);
		}
		$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->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 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));
	}

}