<?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 letter the accounting entry (row level)
 */

/**
 * @class
 * @brief mother class for the lettering by account and by card
 * use the tables jnt_letter, letter_deb and letter_cred
 * - "account"=>"account",       => the accounting of the j_id (use by Lettering_Account)
 * - "quick_code"=>"quick_code", => the quick_code of the j_id (used by Lettering_Card)
 * - "start"=>"start",	   => date of the first day
 * - "end"=>"end",		   => date of the last day
 * - "sql_ledger"=>"sql_ledger"  => the sql clause to filter on the available ledgers
 *
 * @see unit-test/include/class/acc_letterTest.php
 * @see test scenario scenario/XML/ajax_display_letter.php
 */


#[\AllowDynamicProperties]
class Lettering
{
 ///@todo Lettering must be rewritten and use __set and __get
 /// instead of an array + data_member
    protected $variable=array("account"=>"account", /* the accounting of the j_id (use by Lettering_Account) */
        "quick_code"=>"quick_code", /* the quick_code of the j_id (used by Lettering_Card) */
        "start"=>"start", /* date of the first day */
        "end"=>"end", /* date of the last day */
        "sql_ledger"=>"sql_ledger" /*   the sql clause to filter on the available ledgers */
            )
    ;//!< $variable (array)  data member 
    var $db;
    var $start;
    var $end;
    var $sql_ledger;
    var $object_type;
    var $content;
    var $fil_amount_max;
    var $fil_amount_min;
    var $fil_deb;
    var $linked;

    /**
     * constructor
     * @param $p_init resource to database
     * @note by default start and end are the 1.1.exercice to 31.12.exercice
     */
    function __construct( $p_init)
    {
        $this->db=$p_init;
        $a=new Noalyss_user($p_init);
        $exercice=$a->get_exercice();
        if ($exercice>0)
        {
            $periode=new Periode($p_init);
            $aLimite=$periode->get_limit($exercice);
            $this->start=$aLimite[0]->first_day();
            $this->end=$aLimite[1]->last_day();
        }
        else
        {
            $this->start='01.01.'.$exercice;
            $this->end='31.12.'.$exercice;
        }
        // available ledgers
        $this->sql_ledger=noalyss_str_replace('jrn_def_id', 'jr_def_id', $a->get_ledger_sql('ALL', 3));
    }

    public function get_parameter($p_string)
    {
        if (array_key_exists($p_string, $this->variable))
        {
            $idx=$this->variable[$p_string];
            return $this->$idx;
        }
        else
            throw new Exception(__FILE__.":".__LINE__.$p_string.'Erreur attribut inexistant');
    }

    public function set_parameter($p_string, $p_value)
    {
        if (array_key_exists($p_string, $this->variable))
        {
            $idx=$this->variable[$p_string];
            $this->$idx=$p_value;
        }
        else
            throw new Exception(__FILE__.":".__LINE__.$p_string.'Erreur attribut inexistant');
    }

    /**
     * @brief Use to just insert a couple of lettered operation but do not make a link between operation
     */
    function insert_couple($j_id1, $j_id2)
    {

        /*  take needed data */
        $first=$this->db->get_value('select j_debit from jrnx where j_id=$1', array($j_id1));
        if ($this->db->count()==0)
            throw new Exception('Opération non existante');

        $second=$this->db->get_value('select j_debit from jrnx where j_id=$1', array($j_id2));
        if ($this->db->count()==0)
            throw new Exception('Opération non existante');
        $sql_already="select distinct(jl_id)
			from jnt_letter
			left outer join letter_deb using (jl_id)
			left outer join letter_cred using (jl_id)
			where
			letter_deb.j_id = $1 or letter_cred.j_id=$1";
        $let1=0; $let2=0;
        $already=$this->db->get_array($sql_already, array($j_id1));
        if (count($already)>0)
        {
            if (count($already)==1)
            {
                // retrieve the letter
                $let1=$this->db->get_value("select distinct(jl_id)
                                                from jnt_letter
                                                left outer join letter_deb using (jl_id)
                                                left outer join letter_cred using (jl_id)
                                                where
                                                letter_deb.j_id = $1 or letter_cred.j_id=$1", array($j_id1));
            }
            else
            {
                return;
            }
        }

        $already=$this->db->get_array($sql_already, array($j_id2));
        if (count($already)>0)
        {
            if (count($already)==1)
            {
                // retrieve the letter
                $let2=$this->db->get_value("select distinct(jl_id)
                                                from jnt_letter
                                                left outer join letter_deb using (jl_id)
                                                left outer join letter_cred using (jl_id)
                                                where
                                                letter_deb.j_id = $1 or letter_cred.j_id=$1", array($j_id2));
            }
            else
            {
                return;
            }
        }
        $jl_id=0;
        // already linked together
        if ($let1!=0&&$let1==$let2)
            return;

        // already linked
     /*   if ($let1!=0&&$let2!=0&&$let1!=$let2)
            return;
*/
        // none is linked
        if ($let1==0&&$let2==0)
        {
            $jl_id=$this->db->get_next_seq("jnt_letter_jl_id_seq");
            $this->db->exec_sql('insert into jnt_letter(jl_id) values($1)', array($jl_id));
        } elseif ($let1==0&&$let2!=0)
        {
            // one is linked but not the other
            $jl_id=$let2;
        }elseif  ($let1!=0&&$let2==0) {
            $jl_id=$let1;
        } else {
            throw new \Exception ("LET179 invalid");
        }

        /* insert */
        if ($first=='t')
        {
            // save into letter_deb
            if ($let1==0)
                $ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
                        array($j_id1, $jl_id));
        }
        else
        {
            if ($let1==0)
                $lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id)  values($1,$2) returning lc_id',
                        array($j_id1, $jl_id));
        }
        if ($second=='t')
        {
            // save into letter_deb
            if ($let2==0)
                $ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
                        array($j_id2, $jl_id));
        }
        else
        {
            if ($let2==0)
                $lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id)  values($1,$2) returning lc_id',
                        array($j_id2, $jl_id));
        }
    }

    public function get_info()
    {
        return var_export(self::$variable, true);
    }

    public function verify()
    {
        // Verify that the elt we want to add is correct
    }

    /**
     * @brief save from array, letter the accounting (or card) and create a link between operation
     * 
     * @param $p_array
      @code
      gDossier => string '13' (length=2)
      letter_j_id => is an array of j_id value
      ck => array of j_id to letter with j_id
     j_id => row to link
      @endcode
     */
    public function save($p_array)
    {
        
        if (!isset($p_array['letter_j_id']))
        {
            // if nothing selected then remove
             $this->db->exec_sql('delete from jnt_letter where jl_id=$1', array($p_array['jnt_id']));
            return;
        }
        $nb_letter_j_id=count($p_array['letter_j_id']);
        
        if ($nb_letter_j_id == 0 ) {
            $this->db->exec_sql('delete from jnt_letter where jl_id=$1', array($p_array['jnt_id']));
            return;
        }
        try
        {
            $this->db->start();
            
            $this->db->exec_sql('delete from jnt_letter where jl_id=$1', array($p_array['jnt_id']));

            $jl_id=$this->db->get_next_seq("jnt_letter_jl_id_seq");
            $this->db->exec_sql('insert into jnt_letter(jl_id) values($1)', array($jl_id));

            // save the source
            $deb=$this->db->get_value('select j_debit,j_montant from jrnx where j_id=$1', array($p_array['j_id']));
            if ($deb=='t')
            {
                // save into letter_deb
                $ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
                        array($p_array['j_id'], $jl_id));
            }
            else
            {
                $lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id)  values($1,$2) returning lc_id',
                        array($p_array['j_id'], $jl_id));
            }
            // save dest
            for ($i=0; $i<$nb_letter_j_id; $i++)
            {
                if (! isset($p_array['ck'][$i]) || $p_array['ck'][$i] == "-2" ) { continue ; }
                
                // save the dest
                $deb=$this->db->get_value('select j_debit,j_montant from jrnx where j_id=$1',
                        array($p_array['ck'][$i]));
                if ($deb=='t')
                {
                    // save into letter_deb
                    $ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
                            array($p_array['ck'][$i], $jl_id));
                }
                else
                {
                    $lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id)  values($1,$2) returning lc_id',
                            array($p_array['ck'][$i], $jl_id));
                }
                $acc_reconciliation_lettering=new Acc_Reconciliation_Lettering($this->db);
                $acc_reconciliation_lettering->insert_reconcilied($p_array['ck'][$i], $p_array['j_id']);
            } //end for
          
        }
        catch (Exception $exc)
        {
            echo $exc->getMessage();
            record_log($exc);
            $this->db->rollback();
            return;
        }


        $this->db->commit();
    }

    /**
     * @brief retrieve * row thanks a condition
     */
    public function seek($cond, $p_array=null)
    {
        /*
          $sql="select * from * where $cond";
          return $this->cn->get_array($cond,$p_array)
         */
    }

    public function insert()
    {
        if ($this->verify()!=0)
            return;
    }

    /**
     * show all the record from jrnx and their status (linked or not)
     * it fills the array $this->content
     */
    protected function show_all()
    {
        $this->get_all();
        $r="";
        ob_start();
        include(NOALYSS_TEMPLATE.'/letter_all.php');
        $r=ob_get_contents();
        ob_end_clean();
        return $r;
    }

    function get_linked($p_jlid)
    {
        $sql="select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,
             j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,jr_pj_number,
             coalesce(comptaproc.get_letter_jnt(j_id),-1) as letter
             from jrnx join jrn on (j_grpt = jr_grpt_id)
			 where
			 j_id in (select j_id from letter_cred where jl_id=$1
					union all
					select j_id from letter_deb where jl_id=$1)
					order by j_date";

        $this->linked=$this->db->get_array($sql, array($p_jlid));
    }

    /**
     * @brief show only the lettered records from jrnx
     * it fills the array $this->content
     */
    protected function show_lettered()
    {
        $this->get_letter();
        $r="";
        ob_start();
        include(NOALYSS_TEMPLATE.'/letter_all.php');
        $r=ob_get_contents();
        ob_end_clean();
        return $r;
    }

    /**
     * @brief show only the lettered records from jrnx
     * it fills the array $this->content
     */
    protected function show_lettered_diff()
    {
        $this->get_letter_diff();
        $r="";
        ob_start();
        include(NOALYSS_TEMPLATE.'/letter_all.php');
        $r=ob_get_contents();
        ob_end_clean();
        return $r;
    }

    /**
     * @brief show only the not lettered records from jrnx
     * it fills the array $this->content
     */
    protected function show_not_lettered()
    {
        $this->get_unletter();
        $r="";
        ob_start();
        include(NOALYSS_TEMPLATE.'/letter_all.php');
        $r=ob_get_contents();
        ob_end_clean();
        return $r;
    }
    /**
     * @brief for some reason , sometimes, a record in letter_X doesn't have his counterpart
     * in letter_Y
     */
    function remove_incoherent()
    {
        $this->db->exec_sql("delete from letter_cred lc  where jl_id not in (select jl_id from letter_deb)");
        $this->db->exec_sql("delete from letter_deb lc  where jl_id not in (select jl_id from letter_cred)");
    }
    /**
     * wrapper : it call show_all, show_lettered or show_not_lettered depending
     * of the parameter
     * @param $p_type poss. values are all, unletter, letter
     */
    public function show_list($p_type)
    {
        
        switch ($p_type)
        {
            case 'all':
                return $this->show_all();
                break;
            case 'unletter':
                return $this->show_not_lettered();
                break;
            case 'letter':
                return $this->show_lettered();
                break;
            case 'letter_diff':
                return $this->show_lettered_diff();
                break;
        }
        throw new Exception("[$p_type] is no unknown");
    }

    public function show_letter($p_jid)
    {
        $j_debit=$this->db->get_value('select j_Debit from jrnx where j_id=$1', array($p_jid));
        $amount_init=$this->db->get_value('select j_montant from jrnx where j_id=$1', array($p_jid));

        $this->get_filter($p_jid);
        // retrieve jnt_letter.id
        $sql="select distinct(jl_id) from jnt_letter  left outer join letter_deb using (jl_id) left outer join letter_cred using (jl_id)
             where letter_deb.j_id = $1 or letter_cred.j_id=$2";
        $a_jnt_id=$this->db->get_array($sql, array($p_jid, $p_jid));

        if (count($a_jnt_id)==0)
        {
            $jnt_id=-2;
        }
        else
        {
            $jnt_id=$a_jnt_id[0]['jl_id'];
        }
        $this->get_linked($jnt_id);
        ob_start();
        require_once NOALYSS_TEMPLATE.'/letter_prop.php';
        $r=ob_get_contents();
        ob_end_clean();
        $r.=HtmlInput::hidden('j_id', $p_jid);
        $r.=HtmlInput::hidden('jnt_id', $jnt_id);

        return $r;
    }

    public function update()
    {
        if ($this->verify()!=0)
            return;
    }

    public function load()
    {
        
        throw new Exception('load not implemented');
    }

    public function delete()
    {
        throw new Exception('delete not implemented');
    }

}

/**
 *@class
 * @brief only for operation retrieved thanks a account (jrnx.j_poste)
 * manage the accounting entries for a given account
 *
 * @see unit-test/include/class/acc_letterTest.php
 *
 */
class Lettering_Account extends Lettering
{
    var $account;
    function __construct($p_init, $p_account=null)
    {
        parent::__construct($p_init);
        $this->account=$p_account;
        $this->object_type='account';
    }

    /**
     * @brief fills the this->content, datas are filtered thanks
     * - fil_deb poss values t (debit), f(credit), ' ' (everything)
     * - fil_amount_max max amount
     * - fil_amount_min min amount
     * - $this->start min date
     * - $this->end max date
     * - this->account: accounting
     */
    public function get_filter($p_jid=0)
    {
        $filter_deb='';
        if (isset($this->fil_deb))
        {
            switch ($this->fil_deb)
            {
                case 0:
                    $filter_deb=" and j_debit='t' ";
                    break;
                case 1:
                    $filter_deb=" and j_debit='f' ";
                    break;
                case 2:
                    $filter_deb=" ";
                    break;
            }
        }
        $filter_amount="";
        if (isset($this->fil_amount_max)&&
                isset($this->fil_amount_min)&&
                isNumber($this->fil_amount_max)==1&&
                isNumber($this->fil_amount_min)==1&&
                ($this->fil_amount_max!=0||$this->fil_amount_min!=0))
            $filter_amount=" and (j_montant >= $this->fil_amount_min and j_montant<=$this->fil_amount_max "
                . " or (coalesce(comptaproc.get_letter_jnt($p_jid),-1)= coalesce(comptaproc.get_letter_jnt(j_id),-1) "
                . " and coalesce(comptaproc.get_letter_jnt($p_jid),-1) <> -1 )) ";
        $sql="
             select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,
             j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
             coalesce(comptaproc.get_letter_jnt(j_id),-1) as letter,
             jr_pj_number,
             round(j_montant/currency_rate,4) as currency_amount,
             currency_rate, 
             currency_rate_ref,
             (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
             from jrnx join jrn on (j_grpt = jr_grpt_id)
             where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
             $filter_deb
             $filter_amount
             order by j_date,j_id";

        $this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
    }

    /**
     * @brief fills this->content with all the operation for the this->account(jrnx.j_poste)
     */
    public function get_all()
    {
        $sql=" with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
			from
			( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
			left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
			letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
							coalesce(let_diff.jl_id,-1) as letter,
					diff_letter1 as letter_diff,
                                        round(j_montant/currency_rate,4) as currency_amount,
                                          currency_id,
                                        currency_rate, 
                                        currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from jrnx join jrn on (j_grpt = jr_grpt_id)
						left join letter_jl using (j_id)
						left join let_diff using (jl_id)
             where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger

             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
    }

    /**
     * @brief same as get_all but only for lettered operation
     */
    public function get_letter()
    {
        $sql="
			with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
			from
			( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
			left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
			letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
						let_diff.jl_id as letter,
					diff_letter1 as letter_diff,
                                         round(j_montant/currency_rate,4) as currency_amount,
                                         currency_id,
                                        currency_rate, 
                                        currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from jrnx join jrn on (j_grpt = jr_grpt_id)
						 join letter_jl using (j_id)
						left join let_diff using (jl_id)
					where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
    }

    /**
     *@brief same as get_all but only for lettered operation
     */
    public function get_letter_diff()
    {
        $sql="
            with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
			from
			( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
			left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
			letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select  distinct j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
						let_diff.jl_id as letter,
					diff_letter1 as letter_diff,
                                         round(j_montant/currency_rate,4) as currency_amount,
                                           currency_id,
                                        currency_rate, 
                                        currency_rate_ref,
                                        (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from
						jrnx join jrn on (j_grpt = jr_grpt_id)
						 join letter_jl using (j_id)
						join let_diff using (jl_id)
             where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
			 and diff_letter1 <> 0
             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
    }

    /**
     *@brief  same as get_all but only for unlettered operation
     */
    public function get_unletter()
    {
        $sql="
			with letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
						-1 as letter,
					0 as letter_diff,
                                         round(j_montant/currency_rate,4) as currency_amount,
                                           currency_id,
                                        currency_rate, 
                                        currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from jrnx join jrn on (j_grpt = jr_grpt_id)
             where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
             and j_id not in (select j_id from letter_jl)
             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
    }

}

/**
 * @class
 * @brief only for operation retrieved thanks a quick_code
 * manage the accounting entries for a given card
 */
class Lettering_Card extends Lettering
{

    /**
     * constructor
     * @param $p_init db resource
     * @param $p_qcode quick_code of the jrnx.j_id
     */
    public $quick_code;
    function __construct($p_init, $p_qcode=null)
    {
        parent::__construct($p_init);
        $this->quick_code=$p_qcode;
        $this->object_type='card';
    }

    /**
     *@brief  fills the this->content, datas are filtered thanks
     * - fil_deb poss values t (debit), f(credit), ' ' (everything)
     * - fil_amount_max max amount
     * - fil_amount_min min amount
     * - $this->start min date
     * - $this->end max date
     * - this->quick_code: quick_code
     */
    public function get_filter($p_jid=0)
    {
        $filter_deb='';
        if (isset($this->fil_deb))
        {
            switch ($this->fil_deb)
            {
                case 0:
                    $filter_deb=" and j_debit='t' ";
                    break;
                case 1:
                    $filter_deb=" and j_debit='f' ";
                    break;
                case 2:
                    $filter_deb=" ";
                    break;
            }
        }
        $filter_amount="";
        if (isset($this->fil_amount_max)&&
                isset($this->fil_amount_min)&&
                isNumber($this->fil_amount_max)==1&&
                isNumber($this->fil_amount_min)==1&&
                ($this->fil_amount_max!=0||$this->fil_amount_min!=0))
            $filter_amount=" and (j_montant between $this->fil_amount_min and $this->fil_amount_max or (coalesce(comptaproc.get_letter_jnt($p_jid),-1)= coalesce(comptaproc.get_letter_jnt(j_id),-1) and coalesce(comptaproc.get_letter_jnt($p_jid),-1) <> -1 )) ";
        $sql="
            with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
			from
			( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
			left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
			letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select distinct j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
						coalesce(let_diff.jl_id,-1) as letter,
					diff_letter1 as letter_diff,
					 round(j_montant/currency_rate,4) as currency_amount,
                                        currency_rate, 
                                        currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from jrnx join jrn on (j_grpt = jr_grpt_id)
						left join letter_jl using (j_id)
						left join let_diff using (jl_id)
             where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
             $filter_deb
             $filter_amount
             order by j_date,j_id";

        $this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
    }

    /**
     * @brief fills this->content with all the operation for the this->quick_code(j_qcode)
     */
    public function get_all()
    {
        $sql="
       with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
			from
			( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
			left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
			letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select DISTINCT j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
						coalesce(let_diff.jl_id,-1) as letter,
					diff_letter1 as letter_diff,
                                         round(j_montant/currency_rate,4) as currency_amount,
                                        currency_rate, 
                                        currency_id,
                                        currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from jrnx join jrn on (j_grpt = jr_grpt_id)
						left join letter_jl using (j_id)
						left join let_diff using (jl_id)
             where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger

             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
    }

    /**
     * @brief  same as get_all but only for lettered operation
     */
    public function get_letter()
    {
        $sql="
     with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
			from
			( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
			left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
			letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
						let_diff.jl_id as letter,
					diff_letter1 as letter_diff,
					 round(j_montant/currency_rate,4) as currency_amount,
                                        currency_rate, 
                                         currency_id,
                                        currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from jrnx join jrn on (j_grpt = jr_grpt_id)
						join letter_jl using (j_id)
						left join let_diff using (jl_id)
             where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
    }

    /**
     * @brief  lettered operation with a different amount
     * @return void
     */
    public function get_letter_diff()
    {
        $sql="
   with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
			from
			( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
			left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
			letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
			select distinct j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
						j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
						let_diff.jl_id as letter,
					diff_letter1 as letter_diff,
					 round(j_montant/currency_rate,4) as currency_amount,
                                           currency_id,
                                        currency_rate, 
                                        currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
						from jrnx join jrn on (j_grpt = jr_grpt_id)
						left join letter_jl using (j_id)
						left join let_diff using (jl_id)
             where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
			 and diff_letter1 <>0
             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
    }

    /**
     * @brief  same as get_all but only for unlettered operation
     */
    public function get_unletter()
    {
        $sql="
             select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
             j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
             -1 as letter,
			 0 as letter_diff,
				 round(j_montant/currency_rate,4) as currency_amount,
                                currency_id,
                                currency_rate, 
                                currency_rate_ref,
		            (select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
             from jrnx join jrn on (j_grpt = jr_grpt_id)
             where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
             and $this->sql_ledger
             and j_id not in (select j_id from letter_deb join jnt_letter using (jl_id) union select j_id from letter_cred join jnt_letter using (jl_id) )
             order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
    }

    /**
     * @brief fill $this->content with the rows from this query
     * Columns are 
     *  - j_id, id of jrnx
     *  - j_date, date opeation (yyyy.mm.dd)
     *  - to_char(j_date,'DD.MM.YYYY') as j_date_fmt,
     *  - jr_pj_number, receipt number
     *  - j_montant, amount of the rows
     *  - j_debit,  Debit or credit
     *  - jr_comment, label of the operation
     *  - jr_internal, internal number
     *  - jr_id, id of jrn
     *  - jr_def_id, id of the ledger (jrn_def.jrn_def_id)
     *  - coalesce(let_diff.jl_id,-1) as letter, id of the lettering , -1 means unlettered
     *  - diff_letter1 as letter_diff, delta between lettered operation
     *  - extract ('days' from coalesce(jr_date_paid,now())-coalesce(jr_ech,jr_date)) as day_paid, days between operation and payment
     *  - jd1.jrn_def_type type of the ledger (FIN, ODS,VEN or ACH)
     * 
     * 
     * @param type $p_type  value is unlet for unlettered operation or let for everything
     */
    public function get_balance_ageing($p_type)
    {
        $sql_let=($p_type=='unlet')?'  let_diff.jl_id is null and':'';
        $sql="  with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
                        from
                        ( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
                        left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
                        letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
                select DISTINCT j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
                                                                j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
                                                                coalesce(let_diff.jl_id,-1) as letter,
                                                                diff_letter1 as letter_diff,
                                                                extract ('days' from coalesce(jr_date_paid,now())-jr_date) as day_paid,
                                                                jd1.jrn_def_type
                                                                from jrnx join jrn on (j_grpt = jr_grpt_id)
                                                                join jrn_def as jd1 on (jrn.jr_def_id=jd1.jrn_def_id)
                                                                left join letter_jl using (j_id)
                                                                left join let_diff using (jl_id)
                where 
                 {$sql_let}
                  j_qcode = upper($1) 
                and j_date >= to_date($2,'DD.MM.YYYY')
                and {$this->sql_ledger}
		and jrn_def_type in ('VEN','ACH')
                 order by j_date,j_id";
        $this->content=$this->db->get_array($sql, array($this->quick_code, $this->start));
    }

}