<?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  this file match the tables jrn & jrnx the purpose is to
 *   remove or save accountant writing to these table.
 */

/*!
 * @class Acc_Operation
 * \brief  this file match the tables jrn & jrnx the purpose is to
 *   remove or save accountant writing to these table.
 *
 */
class Acc_Operation
{
    var $db; 				/*!< database connx */
    var $jr_id;       	/*!< pk of jrn */
    var $jrn_id;			/*!< jrn_def_id */
    var $debit;			/*!< debit or credit */
    var $user;			/*!< current user */
    var $jrn;			/*!< the ledger to use */
    var $poste;			/*!< account  */
    var $date;			/*!< the date */
    var $periode;			/*!< periode to use */
    var $amount;			/*!< amount of the operatoin */
    var $grpt;			/*!< the group id */
    var $date_paid;
    var $jr_optype; /*!< type of operation :NOR,CLO,EXT,OPE */
    var $currency_rate;             /*< currency rate used */
    var $currency_id;               /*< currency id */
    var $currency_rate_ref;         /*< currency rate in the table currency*/
    //!< Qcode of item
    var $qcode;
    //!< internal code from jrn
    var $jr_internal;
    var $signature;
    var $desc;
    var $type;
    var $jrnx_id;
    var $echeance;
    var $pj;
    var $mt;
    var $f_id;
    /*!
     * \brief constructor set automatically the attributes user and periode
     * \param $p_cn the databse connection
     */
    function __construct($p_cn,$p_jrid=0)
    {
        global $g_user;
        $this->db=$p_cn;
        $this->qcode="";
        $this->user=$_SESSION[SESSION_KEY.'g_user'];
        $this->periode=$g_user->get_periode();
        $this->jr_id=$p_jrid;
        $this->jr_optype="NOR";
        $this->amount=0;
        $this->currency_rate=1;
        $this->currency_rate_ref=1;
        $this->currency_id=NULL;
    }

    function __toString(): string
    {
        $r=<<<EOF
   Acc_Operation Object 
     [   
       
        qcode {$this->qcode}
        user {$this->user}
        periode {$this->periode}
        jr_id {$this->jr_id}
        jr_optype {$this->jr_optype}
        amount  {$this->amount}
        currency_rate {$this->currency_rate}
        currency_rate_ref {$this->currency_rate_ref}
        currency_id {$this->currency_id}
    ]
EOF;
        return $r;
        
    }

    /**
     *@brief retrieve the grpt_id from jrn for a jr_id
     *@return jrn.jr_grpt_id or an empty string if not found
     */
    function seek_group()
    {
        $ret=$this->db->get_value('select jr_grpt_id from jrn where jr_id=$1',
                                  array($this->jr_id));
        return $ret;
    }
     /**
     * \brief prepare the query for getting the qcode of the tiers, when
     * executing this SQL , an array of (jrn.jr_id , jrnx.j_id) must be 
     * provided
     */
    private function prepare_sql_tiers()
    {
         // prepare for getting the tiers
        $this->db->prepare('prep_tiers',"select fiche_detail.f_id,ad_value from 
                                        fiche_detail 
                                         join (select qf_other as f_id 
                                          from quant_fin
                                          where 
                                          quant_fin.jr_id = $1
                                        union all 
                                        select qp_supplier as f_id 
                                        from quant_purchase
                                        where quant_purchase.j_id=$2
                                        union all 
                                        select qs_client as f_id 
                                        from quant_sold			
                                        where quant_sold.j_id=$2 ) as v_fiche on (fiche_detail.f_id=v_fiche.f_id) where ad_id=23 ");
    }
    /**
     * \brief prepare the query for getting the qcode of the tiers, when
     * executing this SQL , an array of (jrn.jr_id , jrnx.j_id) must be 
     * provided
     */
    private function prepare_sql_counterpart()
    {
         // prepare for getting the tiers
        $this->db->prepare('prep_counterpart',"select fiche_detail.f_id,ad_value from 
                                        fiche_detail 
                                         join (select qf_bank as f_id 
                                          from quant_fin
                                          where 
                                          quant_fin.jr_id = $1
                                        union all 
                                        select qp_fiche as f_id 
                                        from quant_purchase
                                        where quant_purchase.j_id=$2
                                        union all 
                                        select qs_fiche as f_id 
                                        from quant_sold			
                                        where quant_sold.j_id=$2 ) as v_fiche on (fiche_detail.f_id=v_fiche.f_id) where ad_id=23 ");
    }
    /**
     * @brief Find the tiers of an operation , thanks the SQL prepared query
     * prep_tiers and prep_counterpart. Return a string with the quick_code
     * @param type $pn_jrn_id pk of the table jrn (jrn.jr_id)
     * @param type $pn_jrnx_id pk of the table jrnx (jrnx.jr_id)
     * @param type $p_code quickcode 
     * @return string
     */
    function find_tiers($pn_jrn_id,$pn_jrnx_id,$p_code) 
    {
        static $p=0;
        if ( $p == 0 ){
            $this->prepare_sql_counterpart();
            $this->prepare_sql_tiers();
            $p=1;
        }
        $tiers="";
         $res_tiers=$this->db->execute('prep_tiers',
                 array($pn_jrn_id,$pn_jrnx_id));
         if ( Database::num_row($res_tiers) > 0) {
                $atiers=Database::fetch_array($res_tiers);
                $tiers=$atiers['ad_value'];
                // If the found tiers has the same quickcode than the current
                // card, it means it is a card of supplier or customer,
                //  so we must look for the countercard
                if ($tiers == $p_code)  {
                    $res_counterpart=$this->db->execute('prep_counterpart',
                            array($pn_jrn_id,$pn_jrnx_id));
                    $tiers="";
                    if ( Database::num_row($res_counterpart) > 0) {
                        $atiers=Database::fetch_array($res_counterpart);
                        $tiers=$atiers['ad_value'];
                    }
                }
            }
            return $tiers;
    }
    /**
     *@brief  Insert into the table Jrn
     *The needed data are :
     * - this->date
     * - this->amount
     * - this->poste
     * - this->grpt
     * - this->jrn
     * - this->type ( debit or credit)
     * - this->user
     * - this->periode
     * - this->qcode
     * - this->desc optional
     *@note if the amount is less than 0 then side changes, for example debit becomes
     *a credit and vice versa
     *@return jrnx.j_id
     */

    function insert_jrnx()
    {
      if ( $this->poste == "") { throw new  Exception (__FILE__.':'.__LINE__.' Poste comptable vide');return false; }
        /* for negative amount the operation is reversed */
        if ( $this->amount < 0 )
        {
            $this->type=($this->type=='d')?'c':'d';
        }
        if ( DEBUGNOALYSS > 1 ) {
            echo "insert_jrnx = [{ $this->poste}]  {$this->amount}  rounded ".round($this->amount,2)." type {$this->type}<br>";
        }
        $this->amount=abs($this->amount);
        $debit=($this->type=='c')?'false':'true';
        $this->desc=(isset($this->desc))?$this->desc:'';
        $this->amount=(trim($this->amount)==''||$this->amount==NULL)?0:$this->amount;
        $Res=$this->db->exec_sql("select insert_jrnx
                                 ($1::text,abs($2)::numeric,$3::account_type,$4::integer,$5::integer,$6::bool,$7::text,$8::integer,upper($9),$10::text)",
                                 array(
                                     $this->date, //$1
                                     round($this->amount,2), //$2
                                     $this->poste, //$3
                                     $this->grpt, //$4
                                     $this->jrn, //$5
                                     $debit, //$6
                                     $this->user, //$7
                                     $this->periode, //$8
                                     $this->qcode, // $9
                                     $this->desc)); //$10
        if ( $Res===FALSE) return FALSE;
        $this->jrnx_id=$this->db->get_current_seq('s_jrn_op');
        return $this->jrnx_id;

    }

    /**
     * @brief get the sum of other tax linked to this operation
     */
    function get_sum_other_tax() {
        if ( $this->jr_id == 0 ) {return 0;}
        $sum=$this->db->get_value("select 
       sum(case when j_debit is false and jrn_def.jrn_def_type='ACH' 
           then 0-j_montant when j_debit is true and jrn_def.jrn_def_type='VEN' 
               then 0-j_montant 
           else j_montant end) sum_tax
         from 
            jrn_tax join jrnx j1 using (j_id)  
            join jrn on (jr_grpt_id=j1.j_grpt) 
            join jrn_def on (jrn.jr_def_id=jrn_def.jrn_def_id)
         where 
         jrn.jr_id=$1",[$this->jr_id]);
        ;
        if ( $this->db->count()==0) {return 0;}
        return $sum;
    }

    /*!
     *\brief set the pj of a operation in jrn. the jr_id must be set
     *\note if the jr_id it fails
     */
    function update_receipt()
    {
        if ( noalyss_strlentrim($this->pj) == 0 )
        {
           // echo __LINE__."debug {$this->pj} est vide";
            $sql="update jrn set jr_pj_number=$1 where jr_id=$2";
            $this->db->exec_sql($sql,array(null,$this->jr_id));
            return '';
        }
        /* is pj uniq ? */
        if ( $this->db->count_sql("select jr_id from jrn
             where jr_pj_number=$1 and jr_def_id=$2
                and jr_id !=$3",
                                  array($this->pj,$this->jrn,$this->jr_id)
                                 ) == 0 )
        {

            $sql="update jrn set jr_pj_number=$1 where jr_id=$2";
            $this->db->exec_sql($sql,array($this->pj,$this->jr_id));
        }
        else
        {
            /* get pref */
            $pref=$this->db->get_value("select jrn_def_pj_pref from jrn_def where jrn_def_id=$1",
                                       array($this->jrn));
            /*  try another seq */
            $flag=0;
            $limit=100;
            while ( $flag == 0 )
            {
                /*  limit the search to $limit */
                if ( $limit < 1 )
                {
                    $this->pj='';
                    $flag=2;
                    break;
                }
                /* get padding */
                $padding=$this->db->get_value("select jrn_def_pj_padding from jrn_def where jrn_def_id=$1",
                    array($this->jrn));

                $seq=$this->db->get_next_seq('s_jrn_pj'.$this->jrn);

                // see Acc_Ledger::guess_pj
                $this->pj=$pref.str_pad($seq,$padding??0,'0',STR_PAD_LEFT);

                /* check if the new pj numb exist */
                $c=$this->db->count_sql("select jr_id from jrn where jr_pj_number=$1 and jr_def_id=$2
                                            and jr_id !=$3",
                                        array($this->pj,$this->jrn,$this->jr_id)
                                       );
                if ( $c == 0 )
                {
                    $flag=1;
                    break;
                }
                $limit--;
            }
            /* a pj numb is found */
            if ( $flag == 1 )
            {
                $sql="update jrn set jr_pj_number=$1 where jr_id=$2";
                $this->db->exec_sql($sql,array($this->pj,$this->jr_id));
            }
        }
        return $this->pj;
    }

    /*!
     *\brief  Insert into the table Jrn, the amount is computed from jrnx thanks the
     *        group id ($p_grpt)
     *
     * \return  sequence of jr_id
     *
     */

    function insert_jrn()
    {
        $p_comment=$this->desc;
        if ( DEBUGNOALYSS > 1 ) {
             echo "insert_jrn = {$this->amount}  <br>";
        }
        $diff=$this->db->get_value("select check_balance ($1)",array($this->grpt));
        if ( $diff != 0 )
        {

            printf (_("Erreur : balance incorrecte :diff = %s"),$diff);
            return false;
        }

        $echeance=( isset( $this->echeance) && noalyss_strlentrim($this->echeance) != 0)?$this->echeance:null;
        if ( ! isset($this->mt) )
        {
            $this->mt=microtime(true);
        }
        
        // if amount == -1then the triggers will throw an error
        //
        $this->amount=(trim($this->amount)==''||$this->amount==NULL)?0:$this->amount;
        $Res=$this->db->exec_sql("insert into jrn (jr_def_id,jr_montant,jr_comment,".
                                 "jr_date,jr_ech,jr_grpt_id,jr_tech_per,jr_mt,jr_optype,currency_id,currency_rate,currency_rate_ref)   values (".
                                 "$1,$2,$3,".
                                 "to_date($4,'DD.MM.YYYY'),to_date($5,'DD.MM.YYYY'),$6,$7,$8,$9,$10,$11,$12)",
                                 array ($this->jrn, $this->amount,$p_comment,
                                        $this->date,$echeance,$this->grpt,$this->periode,$this->mt,$this->jr_optype,
                                        $this->currency_id,$this->currency_rate,$this->currency_rate_ref)
                                );
        if ($Res==FALSE)
        {
            return FALSE;
        }
        $this->jr_id=$this->db->get_current_seq('s_jrn');
        return $this->jr_id;
    }
    /*!
     * \brief  Return the internal value, the property jr_id must be set before
     *
     * \return  null si aucune valeur de trouv
     *
     */
    function get_internal()
    {
        if ( ! isset($this->jr_id) )
            throw new Exception('jr_id is not set',1);
        $Res=$this->db->exec_sql("select jr_internal from jrn where jr_id=$1",[$this->jr_id]);
        if ( Database::num_row($Res) == 0 ) return null;
        $l_line=Database::fetch_array($Res);
        $this->jr_internal= $l_line['jr_internal'];
        return $this->jr_internal;
    }
    /*!
     * \brief search an operation thankx it internal code
     * \param internal code
     * \return 0 ok -1 nok
     */
    function seek_internal($p_internal)
    {
        $res=$this->db->exec_sql('select jr_id from jrn where jr_internal=$1',
                                 array($p_internal));
        if ( Database::num_row($res) == 0 ) return -1;
        $this->jr_id=Database::fetch_result($res,0,0);
        return 0;
    }
    /*!
    * \brief retrieve data from jrnx
    *\note the data are filtered by the access of the current user
    * \return an array or FALSE if nothing found
    */
    function get_jrnx_detail()
    {
        global $g_user;
        $filter_sql=$g_user->get_ledger_sql('ALL',3);
        $filter_sql=noalyss_str_replace('jrn_def_id','jr_def_id',$filter_sql);
        if ( $this->jr_id==0 ) return;
        $sql=" select  jr_id,j_id,jr_date,j_qcode,j_poste,j_montant,jr_internal,case when j_debit = 'f' then 'C' else 'D' end as debit,jr_comment as description,
             vw_name,pcm_lib,j_debit,coalesce(comptaproc.get_letter_jnt(j_id),-1) as letter,jr_def_id ".
             " from jrnx join jrn on (jr_grpt_id=j_grpt)
             join tmp_pcmn on (j_poste=pcm_val)
             left join vw_fiche_attr on (j_qcode=quick_code)
             where
             jr_id=$1 and $filter_sql order by j_debit desc";
        $res=$this->db->exec_sql($sql,array($this->jr_id));
        if ( Database::num_row ($res) == 0 ) return array();
        $all=Database::fetch_all($res);
        return $all;
    }
    /*!
     * \brief add a comment to the line (jrnx.j_text) 
     */
    function update_comment($p_text)
    {
        $sql="update jrnx set j_text=$1 where j_id=$2";
        $this->db->exec_sql($sql,array($p_text,$this->jrnx_id));
    }
    /*!
     * \brief add a comment to the operation (jrn.jr_text) 
     */
    function operation_update_comment($p_text)
    {
        $sql="update jrn set jr_comment=$1 where jr_id=$2";
        $this->db->exec_sql($sql,array($p_text,$this->jr_id));
    }
    /*!
     * \brief add a limit of payment to the operation (jrn.jr_ech) 
     */
    function operation_update_date_limit($p_text)
    {
        if ( isDate($p_text) == null )
        {
            $p_text=null;
        }
        $sql="update jrn set jr_ech=to_date($1,'DD.MM.YYYY') where jr_id=$2";
        $this->db->exec_sql($sql,array($p_text,$this->jr_id));
    }
    /*!
     * \brief return the jrn_def_id from jrn 
     */
    function get_ledger()
    {
        $sql="select jr_def_id from jrn where jr_id=$1";
        $row=$this->db->get_value($sql,array($this->jr_id));
        return $row;
    }
    /*!\brief display_jrnx_detail : get the data from get_jrnx_data and
       return a string with HTML code
     * \param table(=0 no code for table,1 code for table,2 code for CSV)

    */
    function display_jrnx_detail($p_table)
    {
        $show=$this->get_jrnx_detail();

        $r='';
        $r_notable='';
        $csv="";
        foreach ($show as $l)
        {
            $border="";
            if ( $l['j_poste'] == $this->poste || ($l['j_qcode']==$this->qcode && trim($this->qcode) != ''))
                $border=' class="highlight"';
            $r.='<tr '.$border.'>';
            $r.='<td>';
            $a=$l['j_qcode'];
            
            $r_notable.=$a;
            $r.=$a;
            $csv.='"'.$a.'";';
            $r.='</td>';

            $r.='<td  '.$border.'>';
            $a=$l['j_poste'];
            $r_notable.=$a;
            $r.=$a;
            $csv.='"'.$a.'";';
            $r.='</td>';

            $r.='<td  '.$border.'>';
            //       $a=($l['vw_name']=="")?$l['j_qcode']:$l['pcm_lib'];
            $a=(noalyss_strlentrim($l['j_qcode'])==0)?$l['pcm_lib']:$l['vw_name'];
            $r_notable.=$a;
            $r.=h($a);
            $csv.='"'.$a.'";';
            $r.='</td>';

            $r.='<td  '.$border.'>';
            $a=$l['j_montant'];
            $r_notable.=$a;
            $r.=$a;
            $csv.=$a.';';
            $r.='</td>';

            $r.='<td  '.$border.'>';
            $a=$l['debit'];
            $r_notable.=$a;
            $r.=$a;
            $csv.='"'.$a.'"';

            $csv.="\r\n";
            $r.='</td>';
            $r.='<td  '.$border.'>';
            $a=($l['letter']!=-1)?$l['letter']:'';
            $r_notable.=$a;
            $r.=$a;
            $csv.='"'.$a.'"';

            $csv.="\r\n";
            $r.='</td>';


            $r.='</tr>';
        }
        switch ($p_table)
        {
        case 1:
            return $r;
            break;
        case 0:
            return $r_notable;
            break;
        case 2:
            return $csv;
        }
        return "ERROR PARAMETRE";
    }
    /*!
     * @brief  Get data from jrnx where p_grpt=jrnx(j_grpt)
     *
     * @param connection
     * @return array of 3 elements
     *  - First Element is an array
    @verbatim
    Array
    (
        [op_date] => 01.12.2009
        [class_cred0] => 7000008
        [mont_cred0] => 8880.0000
        [op_cred0] => 754
        [text_cred0] =>
        [jr_internal] => 23VEN-01-302
        [comment] =>
        [ech] =>
        [jr_id] => 302
        [jr_def_id] => 2
        [class_deb0] => 4000005
        [mont_deb0] => 10744.8000
        [text_deb0] =>
        [op_deb0] => 755
        [class_cred1] => 4511
        [mont_cred1] => 1864.8000
        [op_cred1] => 756
        [text_cred1] =>
    )
    @endverbatim
     *  - Second  : number of line with debit
     *  - Third  : number of line with credit
     */
    function get_data ($p_grpt)
    {
        $Res=$this->db->exec_sql("select
                                 to_char(j_date,'DD.MM.YYYY') as j_date,
                                 j_text,
                                 j_debit,
                                 j_poste,
                                 coalesce(j_qcode,'-') as qcode,
                                 j_montant,
                                 j_id,
                                 jr_comment,
                                 to_char(jr_ech,'DD.MM.YYYY') as jr_ech,
                                 to_char(jr_date,'DD.MM.YYYY') as jr_date,
                                 jr_id,jr_internal,jr_def_id,jr_pj
                                 from jrnx inner join jrn on j_grpt=jr_grpt_id where j_grpt=$1",array($p_grpt));
        $MaxLine=Database::num_row($Res);
        if ( $MaxLine == 0 ) return null;
        $deb=0;
        $cred=0;
        for ( $i=0; $i < $MaxLine; $i++)
        {

            $l_line=Database::fetch_array($Res,$i);
            $l_array['op_date']=$l_line['j_date'];
            if ( $l_line['j_debit'] == 't' )
            {
                $l_class=sprintf("class_deb%d",$deb);
                $l_montant=sprintf("mont_deb%d",$deb);
                $l_text=sprintf("text_deb%d",$deb);
                $l_qcode=sprintf("qcode_deb%d",$deb);
                $l_array[$l_class]=$l_line['j_poste'];
                $l_array[$l_montant]=$l_line['j_montant'];
                $l_array[$l_text]=$l_line['j_text'];
                $l_array[$l_qcode]=$l_line['qcode'];
                $l_id=sprintf("op_deb%d",$deb);
                $l_array[$l_id]=$l_line['j_id'];
                $deb++;
            }
            if ( $l_line['j_debit'] == 'f' )
            {
                $l_class=sprintf("class_cred%d",$cred);
                $l_montant=sprintf("mont_cred%d",$cred);
                $l_array[$l_class]=$l_line['j_poste'];
                $l_array[$l_montant]=$l_line['j_montant'];
                $l_id=sprintf("op_cred%d",$cred);
                $l_array[$l_id]=$l_line['j_id'];
                $l_text=sprintf("text_cred%d",$cred);
                $l_array[$l_text]=$l_line['j_text'];
                $l_qcode=sprintf("qcode_cred%d",$cred);
                $l_array[$l_qcode]=$l_line['qcode'];
                $cred++;
            }
            $l_array['jr_internal']=$l_line['jr_internal'];
            $l_array['comment']=$l_line['jr_comment'];
            $l_array['ech']=$l_line['jr_ech'];
            $l_array['jr_id']=$l_line['jr_id'];
            $l_array['jr_def_id']=$l_line['jr_def_id'];
        }
        return array($l_array,$deb,$cred);
    }
    /**
    *@brief retrieve data from jrnx and jrn
    *@return return an object
    *@note
    *@see
    @code

    @endcode
    */
    function get()
    {
        $ret=new Acc_Misc($this->db,$this->jr_id);
        $ret->get();
        return $ret;
    }
    /**
     *@brief retrieve data from the table QUANT_*
     *@return return an object or null if there is no
     * data from the QUANT table
     *@see Acc_Sold Acc_Purchase Acc_Fin Acc_Detail Acc_Misc
     */
    function get_quant()
    {
        $ledger_id=$this->get_ledger();
        if ( $ledger_id=='') throw new Exception(_('Journal non trouvé'));
        $oledger=new Acc_Ledger($this->db,$ledger_id);

        // retrieve info from jrn_info


        switch($oledger->get_type())
        {
        case 'VEN':
            $ret=new Acc_Sold($this->db,$this->jr_id);
            break;
        case 'ACH':
            $ret=new Acc_Purchase($this->db,$this->jr_id);
            break;
        case 'FIN':
            $ret=new Acc_Fin($this->db,$this->jr_id);
            break;
        default:
            $ret=new Acc_Misc($this->db,$this->jr_id);
            break;
        }
        $ret->get();
        if ( empty($ret->det->array))
        {
            $ret=new Acc_Misc($this->db,$this->jr_id);
            $ret->get();
        }
        $ret->get_info();
        return $ret;
    }
     /**
     *@brief retrieve amount in currency for the operation
     *@return amount in currency or 0 if this operation doesn't use currency
     *@see Acc_Sold Acc_Purchase Acc_Fin Acc_Detail Acc_Misc
     */
    function get_currency_amount()
    {
        if ( $this->det->currency_id == 0 ) {
            return 0;
        }
        $ledger_id=$this->get_ledger();
        if ( $ledger_id=='') throw new Exception(_('Journal non trouvé'));
        $oledger=new Acc_Ledger($this->db,$ledger_id);

        // retrieve info from jrn_info
       

        switch($oledger->get_type())
        {
        case 'VEN':
            $sql_amount="
                select 
                sum(oc_amount)+sum(oc_vat_amount ) 
                from operation_currency oc 
                join quant_sold qs using(j_id) 
                where 
                oc.j_id in (select j_id 
                    from jrnx join jrn on (jr_grpt_id=j_grpt) 
                    where jr_id=$1);
                ";
            break;
        case 'ACH':
             $sql_amount="
                select 
                sum(oc_amount)+sum(oc_vat_amount ) 
                from operation_currency oc 
                join quant_purchase qs using(j_id) 
                where 
                oc.j_id in (select j_id 
                    from jrnx join jrn on (jr_grpt_id=j_grpt) 
                    where jr_id=$1);
                ";
            break;
        case 'FIN':
             $sql_amount="
                select 
                sum(oc_amount)+sum(oc_vat_amount ) 
                from operation_currency oc 
                join quant_fin qs using(j_id) 
                where 
                oc.j_id in (select j_id 
                    from jrnx join jrn on (jr_grpt_id=j_grpt) 
                    where jr_id=$1);
                ";
            break;
        default:
             $sql_amount="
                select 
                sum(oc_amount)+sum(oc_vat_amount ) 
                from operation_currency oc 
                join jrnx using(j_id) 
                join jrn on (jr_grpt_id=j_grpt) 
                where 
                jr_id=$1 and j_debit='t';
                ";
            break;
        }
        $amount=$this->db->get_value($sql_amount,[$this->jr_id]);
        return $amount;
    }
    /**
     * @brief retrieve info from the jrn_info, create 2 new arrays
     * obj->info->command and obj->info->other
     * the columns are the idx
     */
    function get_info()
    {
        $this->info=new stdClass();
        // other info
        $array=$this->db->get_value("select ji_value from jrn_info where
            jr_id=$1 and id_type=$2",array($this->jr_id,'OTHER'));
        $this->info->other= $array;

        // Bon de commande
        $array=$this->db->get_value("select ji_value from jrn_info where
            jr_id=$1 and id_type=$2",array($this->jr_id,'BON_COMMANDE'));
        $this->info->command=  $array;

    }
    /**
     * Save into jrn_info
     * @param $p_info msg to save
     * @param $p_type is OTHER or BON_COMMAND
     */
    function save_info($p_info,$p_type)
    {
        if ( ! in_array($p_type,array('OTHER','BON_COMMANDE'))) return;
        if (trim($p_info)=="") {
            $this->db->exec_sql('delete from jrn_info where jr_id=$1 and id_type=$2',array($this->jr_id,$p_type));
            return;
        }
        $exist=$this->db->get_value('select count(ji_id) from jrn_info where jr_id=$1 and id_type=$2',array($this->jr_id,$p_type));
        if ( $exist == "0" ) {
            //insert into jrn_info
            $this->db->exec_sql('insert into jrn_info(jr_id,id_type,ji_value) values ($1,$2,$3)',
                    array($this->jr_id,$p_type,$p_info));
        } elseif ( $exist == 1) {
            //update
            $this->db->exec_sql('update jrn_info set ji_value=$3 where jr_id=$1 and id_type=$2',
                    array($this->jr_id,$p_type,$p_info));
        }
    }
    
    function insert_related_action($p_string)
    {
        if ($p_string == "") return;
        $a_action=explode(',',$p_string);
        for ($i=0;$i<count($a_action);$i++)
        {
            $action = new Follow_Up($this->db,$a_action[$i]);
            $action->operation=$this->jr_id;
            $action->insert_operation();
        }
    }
    /**
     * @brief set the operation id (jrn.jr_id)
     * @param type $p_id
     */
    function set_id($p_id) 
    {
        if (isNumber($p_id)==0) {
            throw new Exception(_('Acc_Operation::set_id , id invalide '));
        }
        $this->jr_id=$p_id;
    }
    /**
     * \brief flag the operation as paid
     */
    function set_paid() 
    {
        // Operation 
        if ( $this->jr_id == 0 )            
            throw new Exception(_('Object invalide, id incorrect'));
        if ( 
                $this->db->get_value('select count(*) from jrn where jr_id=$1',
                        array($this->jr_id)) == 0 )
            throw new Exception(_('Object invalide, id incorrect'));
        
        $this->db->exec_sql("update jrn set jr_rapt = 'paid' where jr_id = $1",
                array($this->jr_id));
    }
    /**
     * return amount of the jr_id
     */
    function get_amount() 
    {
        if ( $this->jr_id == 0 )            
            throw new Exception(_('Object invalide, id incorrect'));
        $amount=$this->db->get_value('select jr_montant from jrn where jr_id=$1',
                array($this->jr_id));
        return $amount;
    }
    static function test_me()
    {
        global $g_user;
        $cn=Dossier::connect();
        $g_user=new Noalyss_user($cn);
        $a=new Acc_Operation($cn);
        $a->jr_id=993;
        $b=$a->get_quant();
        echo h1('contain of get_quant() ');
        var_dump($b);
        echo h1('contain of get_jrnx_detail()');
        var_dump($a->get_jrnx_detail());
    }
    /**
     * Return a select object to choose the type of operation
     *   - NOR normal
     *   - EXT reverse operation
     *   - CLO closing periode
     *   - OPE opening periode
     * @param string $p_status
     * @return \ISelect
     */
    static function select_operation_type($p_status)
    {
        $type_operation=new ISelect("jr_optype");
        $type_operation->value=array(
            array(("label")=>_("Normal"), "value"=>"NOR"),
            array(("label")=>_("Ouverture"), "value"=>"OPE"),
            array(("label")=>_("Fermeture"), "value"=>"CLO"),
            array(("label")=>_("Extourne"), "value"=>"EXT")
        );

        $type_operation->selected=$p_status;
        return $type_operation;
    }
    /**
     * @brief create a form to recreate the operation and returns it,
     * it works the same as when you want to correct an operation instead of confirming
     *
     * @see compta_ach.inc.php
     * @see compta_ven.inc.php
     *
     * @param $p_id string DOMID of the form
     */
    function form_clone_operation($p_id) {
        // retrieve all info about operation
        $operation = $this->get_quant();
        $array=$operation->compute_array();
        
        global $g_user;
        $a_code=$this->db->get_array("select code from v_menu_dependency vmd  where me_code=$1 and p_id=$2",
                array( $operation->signature,$g_user->get_profile()));
        if ( empty ($a_code)) {
            $r=_("Menu invalide");
            return $r;
        }
       
        // Prepare the form
        // select the menu where the operation will be duplicated
        $r=sprintf('<form id="%s" method="POST" ACTION="%s">',$p_id,NOALYSS_URL."/do.php?".http_build_query([
                "ac"=>$a_code[0]['code'],"gDossier"=>Dossier::id()
        ]));
        $r.=Dossier::hidden();
        $default_currency=new Acc_Currency($this->db,0);
        // select the menu where the operation will be duplicated

        $r.="<p>";
        $r.="<ul style=\"margin-left:2rem;padding-left:0;list-style:none;\">";
        $r.=sprintf("<li>%s %s</li>",_("Date"),$operation->det->jr_pj_number);
        $r.=sprintf("<li>%s %s</li>",_("Libellé"),$operation->det->jr_comment);
        $r.=sprintf("<li>%s %s %s</li>",_("Montant "),nbm($operation->det->jr_montant),$default_currency->get_code());
        // Add info if the operation using a currency
        if ( $operation->det->currency_id != 0 ) {
            $currency=$this->db->get_value("select cr_code_iso from currency where id=$1",[$operation->det->currency_id]);
            $r.=sprintf("<li>%s %s</li>",_('Devise'),$currency);
            $r.=sprintf("<li>%s %s</li>",_("Taux"),$operation->det->currency_rate);
            $array['p_currency_code']=$operation->det->currency_id;
            $array['p_currency_rate']=$operation->det->currency_rate;
        }
        $r.="</ul>";
        $r.="</p>";
        if (count($a_code) == 1 ) {
            $r.=HtmlInput::hidden("ac",$a_code[0]['code']);
            $r.=sprintf(_("Voulez-vous aller à %s pour dupliquer cette opération ?"),$a_code[0]['code']);
            
        } else {
            $select=new ISelect("ac");
            $select->value=array();
            $nb_code=count($a_code);
            
            for ($i=0;$i<$nb_code;$i++) {
                $select->value[]=array("label"=>$a_code[$i]['code'],"value"=>$a_code[$i]['code']);
            }
            $r.=sprintf(_("Voulez-vous aller à %s pour dupliquer cette opération ?"),$select->input());
                       
        }
       
        $r.="</p>";
      
        // For Misc Operation , if a card is given then there is no accounting
        // modify amount with currency if not in default currency
        if ( $operation->signature==="ODS") {
            $nb_array = count($array);
            for ($i = 0; $i < $nb_array; $i++) {
                if (isset ($array["qc_" . $i]) && $array["qc_" . $i] != "") {
                    $array["poste" . $i] = "";
                }

            }
            $idx=0;
            foreach ($operation->det->array as $item) {
                if ($operation->det->currency_id != 0) {
                    $array['amount'. $idx] = $item['oc_amount'];
                    $idx++;
                }
            }

        }elseif ( $operation->signature==="ACH" || $operation->signature=="VEN") {
            $idx=0;
            foreach ($operation->det->array as $item) {

                // currency replace amount
                if ($operation->det->currency_id != 0 ) {
                    $array['e_march'.$idx.'_tva_amount']=$item['oc_vat_amount'];
                    $array['e_march'.$idx.'_tva_amount']=$item['oc_amount'];
                    $array['e_march'.$idx.'_price']=$item['oc_price_unit'];
                }

                if ( isset ($item['qs_vat_sided']) && $item['qs_vat_sided'] != 0 ) {
                    $array['e_march'.$idx.'_tva_amount']=0;
                }elseif (isset ($item['qp_vat_sided']) && $item['qp_vat_sided'] != 0 ){
                    $array['e_march'.$idx.'_tva_amount']=0;
                }

                $idx++;
            }
        }elseif ($operation->signature=='FIN') {
            $idx=0;
            foreach ($operation->det->array as $item) {
                if ($operation->det->currency_id != 0) {
                    $array['e_other' . $idx . '_amount'] = $item['oc_amount'];
                    $idx++;
                }
            }
        }

        if ( DEBUGNOALYSS>1) {
            echo \Noalyss\Dbg::hidden_info("operation->det_array", $operation->det->array);
            echo \Noalyss\Dbg::hidden_info("operation->det", $operation->det);
            echo \Noalyss\Dbg::hidden_info("array", $array);
        }
        $ledger=new \Acc_Ledger($this->db,$operation->det->jr_def_id);
        $array['nb_item']=max($ledger->get_min_row(),$array['nb_item']);
        // transform the operation into hidden element
        $r.=HtmlInput::simple_array_to_hidden($array);
        $r.=HtmlInput::hidden("e_comm",$operation->det->jr_comment);
        $r.=HtmlInput::submit(uniqid(), _("Dupliquer"));
        $r.=HtmlInput::button_close("duplicate_operation_div");
        $r.='</form>';
        
        
        // return the form as a string 
        return $r;
    }

}
/////////////////////////////////////////////////////////////////////////////

/**
 * @class Acc_Detail
 * @brief Contains the detail of an operation Acc_Operation
 * propery :
 *      - $det 
            - jr_id PKfrom table JRN
            -  jr_def_id id of the ledger (FK to - _DEF- _DEF_ID)from table JRN
            -  jr_montant AMOUNT of the operationfrom table JRN
            -  jr_comment COMMENT from table JRN
            -  jr_date    DATEfrom table JRN
            -  jr_grpt_id CODE to group - X rowsfrom table JRN
            -  jr_internal    INTERNAL CODEfrom table JRN
            -  jr_tech_date   DATE OF CHANGEfrom table JRN
            -  jr_tech_per    FK TO PARAM_PERIODEP_IDfrom table JRN
            -  jrn_ech    from table JRN
            -  jr_ech DATE LIMIT OF PAYMENTfrom table JRN
            -  jr_rapt    from table JRN
            - jr_echfrom table JRN
            -  jr_validfrom table JRN
            -  jr_opid    from table JRN
            -  jr_c_opidfrom table JRN
            -  jr_pj      OID OF THE DOCUMENTfrom table JRN
            -  jr_pj_name NAME OF THE DOCUMENTfrom table JRN
            -  jr_pj_typefrom table JRN
            -  jr_pj_number RECEIPT NBfrom table JRN
            -  jr_mt INTERNAL CODEfrom table JRN
            - jr_raptfrom table JRN
            - jr_date_paid   DATE OF PAYMENTfrom table JRN
            - jr_optype TYPE OF OPERATION NOR = NORMAL OPE=OPENING EXT=EXTOURNEfrom table JRN
            - currency_id FK TO CURRENCYIDfrom table JRN
            - currency_rate  amountfrom table JRN
            - currency_rate_ref  amount in CURRENT_HISTORYCH_VALUEfrom table JRN
 *          - note from table JRN_NOTE
        - $jr_id JRN.JR_ID
        - $info
 */
class Acc_Detail extends Acc_Operation
{
    public $det;//!< Object with columns from JRN
    public $jr_id;//! $jr_id (int) JRN.JR_ID
    public $info;

    function __construct($p_cn,$p_jrid=0)
    {
        parent::__construct($p_cn);
        $this->jr_id=$p_jrid;
        $this->det=new stdClass();
    }
    /**
     *@brief retrieve some common data from jrn as
     * the datum, the comment,payment limit...
     */
    function get()
    {
        $sql="SELECT jr_id
            , jr_def_id
            , jr_montant
            , jr_comment
            , jr_date
            , jr_grpt_id
            , jr_internal
            , jr_tech_date
            , jr_tech_per
            , jrn_ech
            , jr_ech
            , jr_rapt
            ,jr_ech
            , jr_valid
            , jr_opid
            , jr_c_opid
            , jr_pj
            , jr_pj_name
            , jr_pj_type,
             jr_pj_number
             , jr_mt
             ,jr_rapt
             ,jr_date_paid
             ,jr_optype
             ,currency_id
             ,currency_rate
             ,currency_rate_ref
             ,jr_document_xml
             FROM jrn where jr_id=$1";
        $array=$this->db->get_array($sql,array($this->jr_id));
        if ( count($array) == 0 ) throw new Exception('Aucune ligne trouvée');
        foreach ($array[0] as $key=>$val)
        {
            $this->det->$key=$val;
        }
	$sql="select n_text,n_html from jrn_note where jr_id=$1";
        $a=$this->db->get_row($sql,array($this->jr_id));
	if ( empty($a)) {
            $this->det->note="";
            $this->det->note_html=null;
        } else {
            $this->det->note=strip_tags($a['n_text']??"");
            $this->det->note_html=($a['n_html'] == "")?$a['n_text']:$a['n_html'];
    }
    }
    /**
     * 
     */
    function compute_array()
    {
        $array=array();
        $array['desc']=$this->det->jr_comment;
        $array['e_date']="";
        $array['e_ech']="";
        $array['p_jrn']=$this->det->jr_def_id;
        return $array;

    }
        function __toString(): string
    {
         $r= __CLASS__;
         $r.="this->signature ".$this->signature."\n";
         $r.="this->det ".print_r($this->det,true);
        
        return $r;
        
    }
}
/////////////////////////////////////////////////////////////////////////////
/**
 * @class Acc_Misc
 *@brief this class manage data from the JRNX and JRN
 * table
 *@note Data member are the column of the table
 */
class Acc_Misc extends Acc_Detail
{
    var $signature;		/*!< signature of the obj ODS */
    var $array;		/*!< an array containing the data from JRNX */
    function __construct($p_cn,$p_jrid=0)
    {
        parent::__construct($p_cn,$p_jrid);
        $this->signature='ODS';
        $this->det=new stdClass();
    }
    function get()
    {
        parent::get();
        $sql="
SELECT jx1.j_id
	,jx1.j_date
	,jx1.j_montant
	,jx1.j_poste
	,jx1.j_grpt
	,jx1.j_rapt
	,jx1.j_jrn_def
	,jx1.j_debit
	,jx1.j_text
	,jx1.j_centralized
	,jx1.j_internal
	,jx1.j_tech_user
	,jx1.j_tech_date
	,jx1.j_tech_per
	,jx1.j_qcode
	,jx1.f_id
	,oc1.oc_amount 
	FROM jrnx jx1
	left join operation_currency oc1 using(j_id)
	where 
	jx1.j_grpt = $1 
	order by jx1.j_debit desc,jx1.j_poste
";
        $this->det->array=$this->db->get_array($sql,array($this->det->jr_grpt_id));
    }
    /***
     * Compute an array for using with Acc_Ledger::insert
     * 
     */
    function compute_array()
    {
        $this->get();
        $array=parent::compute_array();
        $nb_array=count($this->det->array);
        $array['nb_item']=$nb_array;
        
        for ($i=0;$i<$nb_array;$i++) {
            $array["qc_".$i]=$this->det->array[$i]['j_qcode'];
            $array["poste".$i]=$this->det->array[$i]['j_poste'];
            $array["amount".$i]=$this->det->array[$i]['j_montant'];
            if ( $this->det->array[$i]['j_debit'] == 't') {
                $array["ck".$i]=1;
            }
            $array["ld".$i]=$this->det->array[$i]['j_text'];
         }
         
        return $array;
        
    }
        function __toString(): string
    {
         $r= __CLASS__;
         $r.="this->signature ".$this->signature."\n";
         $r.="this->det ".print_r($this->det,true);
        
        return $r;
        
    }
}
/////////////////////////////////////////////////////////////////////////////
/**
 * @class Acc_Sold
 *@brief this class manage data from the QUANT_SOLD
 * table
 *@note Data member are the column of the table
 */
class Acc_Sold extends Acc_Detail
{
    function __construct($p_cn,$p_jrid=0)
    {
        parent::__construct($p_cn,$p_jrid);
        $this->signature='VEN';
        $this->det->array=new stdClass();
    }
    function get()
    {
        parent::get();
        $sql="
        select qs_id, qs_internal
                , jx1.j_id
                , qs1.qs_fiche
                , qs1.qs_quantite
                , qs1.qs_price
                , qs1.qs_vat
                , qs1.qs_vat_code
                , qs1.qs_client
                , qs1.qs_valid
                , jx1.j_text
                , qs_vat_sided
                , qs_unit 
                , jx1.j_debit
                ,oc1.oc_amount
                ,oc1.oc_vat_amount 
                ,oc1.oc_price_unit 
                from quant_sold qs1
                join jrnx jx1	using(j_id)
                left join operation_currency oc1 using(j_id)
                where jx1.j_grpt = $1
                order by jx1.j_id;
        ";
        $this->det->array=$this->db->get_array($sql,array($this->det->jr_grpt_id));
    }
    /***
     * @brief Compute an array for using with Acc_Ledger::insert
     * 
     */
    function compute_array()
    {
        $this->get();
        $array=parent::compute_array();
        $nb_array=count($this->det->array);
        $array['nb_item']=$nb_array;
        
        
        $array["e_client"]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23",
                    array($this->det->array[0]['qs_client']));
            
        for ($i=0;$i<$nb_array;$i++) {
            $array["e_march".$i]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23",
                    array($this->det->array[$i]['qs_fiche']));
            
            $array["e_march".$i."_price"]=$this->det->array[$i]['qs_unit'];
            $array["e_march".$i."_label"]=$this->det->array[$i]['j_text'];
            $array["e_march".$i."_tva_id"]=$this->det->array[$i]['qs_vat_code'];
            $array["e_march".$i."_tva_amount"]=$this->det->array[$i]['qs_vat'];
            $array["e_quant".$i]=$this->det->array[$i]['qs_quantite'];
         }
         $array['correct']=1;
        return $array;
        
    }
    function __toString(): string
    {
        $r="";
         $r.="this->signature ".$this->signature."\n";
         $r.="this->det ".print_r($this->det,true);
        
        return $r;
        
    }
}
/////////////////////////////////////////////////////////////////////////////
/**
 *  @class Acc_Purchase
 *@brief this class manage data from the QUANT_PURCHASE
 * table
 *@note Data member are the column of the table

 */
class Acc_Purchase extends Acc_Detail
{
    function __construct($p_cn,$p_jrid=0)
    {
        parent::__construct($p_cn,$p_jrid);
        $this->signature='ACH';
    }

    function get()
    {
        parent::get();
        $sql="
        select qp_id, qp_internal
, jx1.j_id
, qp1.qp_fiche
, qp1.qp_quantite
, qp1.qp_price
, qp1.qp_vat
, qp1.qp_vat_code
, qp1.qp_nd_amount
, qp1.qp_nd_tva
, qp1.qp_nd_tva_recup
, qp1.qp_supplier
, qp1.qp_valid
, qp1.qp_dep_priv
, jx1.j_text
, qp1.qp_vat_sided
, qp1.qp_unit 
, jx1.j_debit
,oc1.oc_amount
,oc1.oc_vat_amount 
,oc1.oc_price_unit 
from quant_purchase qp1
join jrnx jx1	using(j_id)
left join operation_currency oc1 using(j_id)
where jx1.j_grpt = $1
order by jx1.j_id
        ";
        $this->det->array=$this->db->get_array($sql,array($this->det->jr_grpt_id));
    }


     /***
     * @brief Compute an array for using with Acc_Ledger::insert
     * 
     */
    function compute_array()
    {
        $this->get();
        $array=parent::compute_array();
        $nb_array=count($this->det->array);
        $array['nb_item']=$nb_array;
        
        
        $array["e_client"]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23",
                    array($this->det->array[0]['qp_supplier']));
            
        for ($i=0;$i<$nb_array;$i++) {
            $array["e_march".$i]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23",
                    array($this->det->array[$i]['qp_fiche']));
            
            $array["e_march".$i."_price"]=$this->det->array[$i]['qp_unit'];
            $array["e_march".$i."_label"]=$this->det->array[$i]['j_text'];
            $array["e_march".$i."_tva_id"]=$this->det->array[$i]['qp_vat_code'];
            $array["e_march".$i."_tva_amount"]=$this->det->array[$i]['qp_vat'];
            $array["e_quant".$i]=$this->det->array[$i]['qp_quantite'];

         }
         $array['correct']=1;

         return $array;
        
    }
        function __toString(): string
    {
         $r= __CLASS__;
         $r.="this->signature ".$this->signature."\n";
         $r.="this->det ".print_r($this->det,true);
        
        return $r;
        
    }

}
/////////////////////////////////////////////////////////////////////////////
/**
 * @class Acc_Fin
 *@brief this class manage data from the QUANT_FIN
 * table
 *@note Data member are the column of the table
 */
class Acc_Fin extends Acc_Detail
{
    function __construct($p_cn,$p_jrid=0)
    {
        parent::__construct($p_cn,$p_jrid);
        $this->signature='FIN';
    }

    function get()
    {
        parent::get();
        $sql="SELECT qf_id
                 ,qf_bank
                 ,jr_id
                 ,qf_other
                 ,qf_amount,j_id
                ,oc1.oc_amount
                ,oc1.oc_vat_amount 
                ,oc1.oc_price_unit 
             FROM quant_fin
        left      join operation_currency oc1 using(j_id)
             where 
                 jr_id = $1";
        $this->det->array=$this->db->get_array($sql,array($this->jr_id));
    }
     /***
     * Compute an array for using with Acc_Ledger::insert
     * 
     */
    function compute_array()
    {
        $this->get();
        $array=parent::compute_array();
        $nb_array=count($this->det->array);
        $array['nb_item']=$nb_array;
        
        
        for ($i=0;$i<$nb_array;$i++) {
            $array["e_other".$i]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23",
                    array($this->det->array[$i]['qf_other']));
            
            $array["e_other".$i."_amount"]=$this->det->array[$i]['qf_amount'];
            $array["e_other".$i."_comment"]=$this->det->jr_comment;
         }
         $array['correct']=1;
        return $array;
        
    }
        function __toString(): string
    {
         $r= __CLASS__;
         $r.="this->signature ".$this->signature."\n";
         $r.="this->det ".print_r($this->det,true);
        
        return $r;
        
    }
}
