Manage the account from the table jrn, jrnx or tmp_pcmn. More...

Collaboration diagram for Acc_Account_Ledger:

Public Member Functions
	__construct ($p_cn, $p_id)

	belong_ledger ($p_jrn)
	verify that the accounting belong to a ledger

	build_sql_account ($p_jrn)
	build a sql statement thanks a array found with get_account_ledger

	button_csv ($p_from, $p_to)
	Return a string with the HTML code to display a button to export the history in CSV.

	button_pdf ($p_from, $p_to)
	Return a string with the HTML code to display a button to export the history in PDF.

	do_exist ()
	check if the poste exist in the tmp_pcmn

	filter_history ($p_table_id)
	Filter in javascript the table with the history.

	find_card ()
	Find the id of the cards which are using the current account.

	get_account_ledger ($p_jrn)
	With the id of the ledger, get the col jrn_def_class_deb.

	get_amount_side ($p_amount)
	return the letter C if amount is > 0, D if < 0 or =

	get_name ()
	Return the name of a account it doesn't change any data member.

	get_row ($p_from, $p_to)
	Get data for accounting entry between 2 periode.

	get_row_date ($p_from, $p_to, $let=0, $solded=0)
	Get data for accounting entry between 2 date.

	get_solde ($p_cond=" true ")
	give the balance of an account

	get_solde_detail ($p_cond="")
	give the balance of an account

	get_type ()
	Return the type of a account.

	HtmlTable ($p_array=null, $let=0, $from_div=0)
	HtmlTable, display a HTML of a poste for the asked period.

	isTVA ()
	isTva tell is a poste is used for VAT

	load ()
	Get all the value for this object from the database the data member are set.

	make_sql_accounting_detail ($p_from, $p_to, $sql_let, $filter_sql)
	build the SQL for get_row_data

	make_sql_not_balanced_account ($filter)
	make the SQL for the balanced accounting

	make_sql_saldo_account ($filter_sql, $sql_let)
	make the SQL for the balance of an accounting

Static Public Member Functions
static	get_used_accounting ($from_date, $to_date, $from_accounting, $to_accounting)

static	HtmlTableHeader ($actiontarget="poste")
	Display HTML Table Header (button)

Data Fields
	$db

	$id

	$label

	$name

	$parent

	$row

	$tot_cred

	$tot_deb

Private Member Functions
	get_row_sql_deprecated ($Res)
	get the row thanks the resource

Detailed Description

Manage the account from the table jrn, jrnx or tmp_pcmn.

Definition at line 27 of file acc_account_ledger.class.php.

Constructor & Destructor Documentation

◆ __construct()

Acc_Account_Ledger::__construct	(		$p_cn,
			$p_id )

Definition at line 38 of file acc_account_ledger.class.php.

    {
        $this->db=$p_cn;
        $this->id=$p_id;
    }

References $p_id, and db.

Member Function Documentation

◆ belong_ledger()

Acc_Account_Ledger::belong_ledger ( $p_jrn )

verify that the accounting belong to a ledger

Returns: 0 ok, -1 no

Definition at line 746 of file acc_account_ledger.class.php.

    {
        $filter=$this->db->get_value("select jrn_def_class_cred from jrn_def where jrn_def_id=$1", array($p_jrn));
        if ( noalyss_trim ($filter) == '')
            return 0;
 
        $valid_cred=explode(" ",$filter);
        $sql="select count(*) as poste from tmp_pcmn where ";
        // Creation query
        $or="";
       $SqlFilter="";
        $SqlArray = array();
        $SqlArrayN = 1;
        foreach ( $valid_cred as $item_cred)
        {
            if ( strlen (trim($item_cred)))
            {
                if ( strstr($item_cred,"*") == true )
                {
                    $SqlItem=$or . 'pcm_val::text like $' . $SqlArrayN++;
                    array_push($SqlArray, strtr($item_cred,"*","%"));
                    $or="  or ";
                }
                else
                {
                    $SqlItem=$or . 'pcm_val::text = $' . $SqlArrayN++;
                    array_push($SqlArray, $item_cred);
                    $or="  or ";
                }
                $SqlFilter=$SqlFilter.$SqlItem;
            }
        }//foreach
        $sql.=$SqlFilter . ' and pcm_val::text=$' . $SqlArrayN++;
        array_push($SqlArray, $this->id);
        $max=$this->db->get_value($sql, $SqlArray);
        if ($max > 0 )
            return 0;
        else
            return -1;
    }

References from, and jrn_def_id.

◆ build_sql_account()

Acc_Account_Ledger::build_sql_account ( $p_jrn )

build a sql statement thanks a array found with get_account_ledger

Parameters

$p_jrn jrn_id

Returns: an emty string if nothing is found or a valid SQL statement like
pcm_val like ... or pcm_val like ...

Note

See also: get_account_ledger

Definition at line 811 of file acc_account_ledger.class.php.

    {
        $array=$this->get_account_ledger($p_jrn);
        if ( empty($array) ) return "";
        $sql="";
        foreach ( $array as $item_cred)
        {
            if ( strlen (trim($item_cred))>0 )
            {
                if ( strstr($item_cred,"*") == true )
                {
                    $item_cred=strtr($item_cred,"*","%");
                    $sql_tmp=" pcm_val::text like '$item_cred' or";
                }
                else
                {
                    $sql_tmp=" pcm_val::text = '$item_cred' or";
                }
                $sql.=$sql_tmp;
            }
        }//foreach
        /* remove the last or */
        $sql=substr($sql,0,strlen($sql)-2);
        return $sql;
    }

◆ button_csv()

Acc_Account_Ledger::button_csv	(		$p_from,
			$p_to )

Return a string with the HTML code to display a button to export the history in CSV.

Parameters

type	$p_from	from date (DD.MM.YYYY)
type	$p_to	to date (DD.MM.YYYY)

Returns: HTML string

Definition at line 854 of file acc_account_ledger.class.php.

                                       {
        $href="export.php?".http_build_query(
                array(
                    "gDossier"=>Dossier::id(),
                    "poste_id"=>$this->id,
                    "ople"=>0,
                    "type"=>"poste",
                    "from_periode"=>$p_from,
                    "to_periode"=>$p_to,
                    "act"=>"CSV:postedetail"
                    )
                );
        return '<a class="smallbutton" style="display:inline-block" href="'.$href.'">'._("Export CSV").'</a>';
 
    }

References $href, display, and type.

◆ button_pdf()

Acc_Account_Ledger::button_pdf	(		$p_from,
			$p_to )

Return a string with the HTML code to display a button to export the history in PDF.

Parameters

type	$p_from	from date (DD.MM.YYYY)
type	$p_to	to date (DD.MM.YYYY)

Returns: HTML string

Definition at line 876 of file acc_account_ledger.class.php.

                                       {
        $href="export.php?".http_build_query(
                array(
                    "gDossier"=>Dossier::id(),
                    "poste_id"=>$this->id,
                    "ople"=>0,
                    "type"=>"poste",
                    "from_periode"=>$p_from,
                    "to_periode"=>$p_to,
                    "act"=>"PDF:postedetail"
                    )
                );
        return '<a class="smallbutton" style="display:inline-block" href="'.$href.'">'._("Export PDF").'</a>';
        
    }

References $href, display, and type.

◆ do_exist()

Acc_Account_Ledger::do_exist ( )

check if the poste exist in the tmp_pcmn

Returns: the number of line (normally 1 or 0)

Definition at line 322 of file acc_account_ledger.class.php.

    {
        $sql="select pcm_val from tmp_pcmn where pcm_val= $1";
        $ret=$this->db->exec_sql($sql,array($this->id));
        return Database::num_row($ret) ;
    }

References $ret, $sql, db, and DatabaseCore\num_row().

Here is the call graph for this function:

◆ filter_history()

Acc_Account_Ledger::filter_history ( $p_table_id )

Filter in javascript the table with the history.

Parameters

type $p_table_id id of the table containting the data to filter

Returns: html string

Definition at line 896 of file acc_account_ledger.class.php.

                                         {
        return _('Filtre rapide').' '.HtmlInput::filter_table($p_table_id, '0,1,2,3,4,5,6,7,8,9,10', 1);
    }

◆ find_card()

Acc_Account_Ledger::find_card ( )

Find the id of the cards which are using the current account.

Returns: an array of f_id

Definition at line 841 of file acc_account_ledger.class.php.

    {
            $sql="select f_id from fiche_detail where ad_id=$1 and ad_value=$2";
            $account=$this->db->get_array($sql,array(ATTR_DEF_ACCOUNT,$this->id));
            return $account;
    }

References from.

◆ get_account_ledger()

Acc_Account_Ledger::get_account_ledger ( $p_jrn )

With the id of the ledger, get the col jrn_def_class_deb.

Parameters

$p_jrn jrn_id

Returns: array of value, or an empty array if nothing is found

Note

See also

Definition at line 792 of file acc_account_ledger.class.php.

    {
        $l=new Acc_Ledger($this->db,$p_jrn);
        $row=$l->get_propertie();
        if ($l->get_type() != 'ODS') { return [];}
        if ( $row == null || noalyss_strlentrim($row['jrn_def_class_deb']) == 0 ) return array();
        $valid_account=explode(" ",$row['jrn_def_class_deb']);
        return $valid_account;
    }

◆ get_amount_side()

Acc_Account_Ledger::get_amount_side ( $p_amount )

return the letter C if amount is > 0, D if < 0 or =

Parameters

type $p_amount

Returns: string

Definition at line 631 of file acc_account_ledger.class.php.

                {
                        if ($p_amount == 0)
                                return "=";
                        if ($p_amount < 0)
                                return "C";
                        if ($p_amount > 0)
                                return "D";
                }

◆ get_name()

Acc_Account_Ledger::get_name ( )

Return the name of a account it doesn't change any data member.

Returns: string with the pcm_lib

Definition at line 291 of file acc_account_ledger.class.php.

    {
        $ret=$this->db->exec_sql(
                 "select pcm_lib from tmp_pcmn where
                 pcm_val=$1",array($this->id));
        if ( Database::num_row($ret) != 0)
        {
            $r=Database::fetch_array($ret);
            $this->name=$r['pcm_lib'];
        }
        else
        {
            $this->name=_("Poste inconnu");
        }
        return $this->name;
    }

References $name, $r, $ret, _, db, DatabaseCore\fetch_array(), name, and DatabaseCore\num_row().

Referenced by HtmlTable().

Here is the call graph for this function:

◆ get_row()

Acc_Account_Ledger::get_row	(		$p_from,
			$p_to )

Get data for accounting entry between 2 periode.

Parameters

$p_from	periode from
$p_to	end periode

Returns: double array (j_date,deb_montant,cred_montant,description,jrn_name,j_debit,jr_internal) (tot_deb,tot_credit

Definition at line 83 of file acc_account_ledger.class.php.

    {
        $periode=sql_filter_per($this->db,$p_from,$p_to,'p_id','jr_tech_per');
 
        $this->row=$this->db->get_array("select distinct j_id,jr_id,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,j_date,".
                                 "case when j_debit='t' then j_montant else 0 end as deb_montant,".
                                 "case when j_debit='f' then j_montant else 0 end as cred_montant,".
                                 " jr_comment as description,jrn_def_name as jrn_name,".
                                 "j_debit, jr_internal,jr_pj_number ".
                                  ",oc_amount,oc_vat_amount".
                                 " from jrnx left join jrn_def on jrn_def_id=j_jrn_def ".
                                 "  left join operation_currency using (j_id) ".
                                 " left join jrn on jr_grpt_id=j_grpt".
                                 " where j_poste=$1 and $periode ".
                                 " order by j_date",array($this->id));
         $res_saldo = $this->db->exec_sql(
                 "select  sum(deb_montant),sum(cred_montant) from 
                    (select case when j_debit='t' then j_montant else 0 end as deb_montant,
                    case when j_debit='f' then j_montant else 0 end as cred_montant
                    from jrnx 
                    left join jrn_def 
                    on jrn_def_id=j_jrn_def 
                    left join jrn on jr_grpt_id=j_grpt
                  where j_poste=$1 and $periode ) as m
                  ",array($this->id));
        $this->tot_deb=$this->tot_cred=0;
        
        if ( Database::num_row($res_saldo) > 0 ) {
            $this->tot_deb=Database::fetch_result($res_saldo, 0, 0);
            $this->tot_cred=Database::fetch_result($res_saldo, 0, 1);
        }
        return array($this->row,$this->tot_deb,$this->tot_cred);
    }

References $periode, db, DatabaseCore\fetch_result(), DatabaseCore\num_row(), and sql_filter_per().

Here is the call graph for this function:

◆ get_row_date()

Acc_Account_Ledger::get_row_date	(	$p_from,
		$p_to,
		$let = 0,
		$solded = 0 )

Get data for accounting entry between 2 date.

Parameters

$p_from	date from DD.MM.YYYY
$p_to	end date DD.MM.YYYY
$let	0 means all rows, 1 only lettered, 2 only unlettered
$solded	0 means all account, 1 means only accounts with a saldo <> 0

Note: the data are filtered by the access of the current user

Returns: double array (j_date,deb_montant,cred_montant,description,jrn_name,j_debit,jr_internal) (tot_deb,tot_credit

Definition at line 231 of file acc_account_ledger.class.php.

    {
        global $g_user;
        $filter_sql = $g_user->get_ledger_sql('ALL', 3);
        $sql_let = '';
        switch ($let) {
            case 0:
                break;
            case 1:
                $sql_let = ' and j1.j_id in (select j_id from letter_cred union all select j_id from letter_deb)';
                break;
            case '2':
                $sql_let = ' and j1.j_id not in (select j_id from letter_cred union all select j_id from letter_deb) ';
                break;
        }
        // if accounting is balanced , D = C then returns an empty array
        if ($solded == 1) {
            if ($this->db->is_prepare("not_balanced_account") == false) {
                $filter=noalyss_str_replace('jrn_def_id','jr_def_id',$filter_sql);
                $sql_balanced = $this->make_sql_not_balanced_account($filter);
                $this->db->prepare("not_balanced_account", $sql_balanced);
            }
 
            $ret_balanced = $this->db->execute("not_balanced_account", array($this->id, $p_from, $p_to));
 
            $r = Database::fetch_all($ret_balanced);
            if (empty($r)) return array();
            if ($r[0]['s_deb'] == $r[0]['s_cred']) return array();
        }
 
        // get the detail of accouting
        if (!$this->db->is_prepare("sql_accounting_detail")) {
            $sql = $this->make_sql_accounting_detail($p_from, $p_to, $sql_let, $filter_sql);
            $this->db->prepare("sql_accounting_detail", $sql);
 
        }
        $ret = $this->db->execute("sql_accounting_detail", array($this->id, $p_from, $p_to));
        $this->row = Database::fetch_all($ret);
 
        // $this->row=$this->db->get_array(,array($this->id,$p_from,$p_to));
        if ($this->db->is_prepare("saldo_account") == false) {
            $sql_saldo = $this->make_sql_saldo_account($filter_sql, $sql_let);
            $this->db->prepare("saldo_account", $sql_saldo);
        }
        $res_saldo = $this->db->execute("saldo_account", array($this->id, $p_from, $p_to));
        $result=Database::fetch_all($res_saldo);
        $this->tot_deb = $this->tot_cred = 0;
 
        if (! empty($result) > 0) {
            $this->tot_deb = $result[0]['deb'];
            $this->tot_cred = $result[0]['cred'];
        }
        return array($this->row, $this->tot_deb, $this->tot_cred);
    }

References $filter, $g_user, $let, $r, $result, $ret, $solded, $sql, db, DatabaseCore\fetch_all(), make_sql_accounting_detail(), make_sql_not_balanced_account(), make_sql_saldo_account(), and noalyss_str_replace().

Referenced by HtmlTable().

Here is the call graph for this function:

◆ get_row_sql_deprecated()

Acc_Account_Ledger::get_row_sql_deprecated ( $Res )

private

get the row thanks the resource

Returns: double array (j_date,deb_montant,cred_montant,description,jrn_name,j_debit,jr_internal) (tot_deb,tot_credit)

Deprecated: since version 6920

Definition at line 49 of file acc_account_ledger.class.php.

    {
        $array=array();
        $tot_cred=0.0;
        $tot_deb=0.0;
        $Max=Database::num_row($Res);
        if ( $Max == 0 ) return null;
        for ($i=0;$i<$Max;$i++)
        {
            $array[]=Database::fetch_array($Res,$i);
            if ($array[$i]['j_debit']=='t')
            {
                $tot_deb+=$array[$i]['deb_montant'] ;
            }
            else
            {
                $tot_cred+=$array[$i]['cred_montant'] ;
            }
        }
        $this->row=$array;
        $this->tot_deb=$tot_deb;
        $this->tot_cred=$tot_cred;
        return array($array,$tot_deb,$tot_cred);
 
    }

References $array, $i, $Max, $Res, $tot_cred, $tot_deb, DatabaseCore\fetch_array(), and DatabaseCore\num_row().

Here is the call graph for this function:

◆ get_solde()

Acc_Account_Ledger::get_solde ( $p_cond = " true " )

give the balance of an account

Parameters

$p_cond (text) a SQL Condition,

Returns: balance of the account

Definition at line 353 of file acc_account_ledger.class.php.

    {
        if (DEBUGNOALYSS  > 1 ) { echo __CLASS__.".".__FUNCTION__."p_cond {$p_cond}"; }
 
        $Res=$this->db->exec_sql("select sum(deb) as sum_deb, sum(cred) as sum_cred from
                                 ( select j_poste,
                                 case when j_debit='t' then j_montant else 0 end as deb,
                                 case when j_debit='f' then j_montant else 0 end as cred
                                 from jrnx join tmp_pcmn on j_poste=pcm_val
                                 where
                                 j_poste::text like ('$this->id'::text) and
                                 $p_cond
                                 ) as m  ");
        if (DEBUGNOALYSS  > 1 ) { echo $this->db->get_sql(); }
        $Max=Database::num_row($Res);
        if ($Max==0) return 0;
        $r=Database::fetch_array($Res,0);
 
        return abs($r['sum_deb']-$r['sum_cred']);
    }

References $Max, $r, $Res, db, DatabaseCore\fetch_array(), and DatabaseCore\num_row().

Here is the call graph for this function:

◆ get_solde_detail()

Acc_Account_Ledger::get_solde_detail ( $p_cond = "" )

give the balance of an account

Returns: balance of the account

Definition at line 379 of file acc_account_ledger.class.php.

    {
        if ( $p_cond != "") $p_cond=" and ".$p_cond;
 
        $sql="select sum(deb) as sum_deb, sum(cred) as sum_cred from
             ( select j_poste,
             case when j_debit='t' then j_montant else 0 end as deb,
             case when j_debit='f' then j_montant else 0 end as cred
             from jrnx
             where
             j_poste::text like ('$this->id'::text)
             $p_cond
             ) as m  ";
        if (DEBUGNOALYSS  > 1 ) {  tracedebug("impress.debug.log", "$sql", 'acc_account_ledger:get_solde_detail'); }
        $Res=$this->db->exec_sql($sql);
        $Max=Database::num_row($Res);
 
        if ($Max==0)
        {
            return array('debit'=>0,
                         'credit'=>0,
                         'solde'=>0)     ;
        }
        $r=Database::fetch_array($Res,0);
// if p_start is < p_end the query returns null to avoid any problem
// we set it to 0
        if ($r['sum_deb']=='')
            $r['sum_deb']=0.0;
        if ($r['sum_cred']=='')
            $r['sum_cred']=0.0;
 
        return array('debit'=>$r['sum_deb'],
                     'credit'=>$r['sum_cred'],
                     'solde'=>abs(bcsub($r['sum_deb'],$r['sum_cred'],2)));
    }

References $Max, $r, $Res, $sql, db, DatabaseCore\fetch_array(), and DatabaseCore\num_row().

Here is the call graph for this function:

◆ get_type()

Acc_Account_Ledger::get_type ( )

Return the type of a account.

Returns: string ACT,ACTINV,CHA,CHAINV,CON,PAS,PRO

Definition at line 311 of file acc_account_ledger.class.php.

    {
        $type=$this->db->get_value(
            "select pcm_type from tmp_pcmn where
                 pcm_val=$1",array($this->id));
        return $type;
    }

References $type, and db.

Referenced by HtmlTable().

◆ get_used_accounting()

static Acc_Account_Ledger::get_used_accounting	(	$from_date,
		$to_date,
		$from_accounting,
		$to_accounting )

static

Definition at line 900 of file acc_account_ledger.class.php.

    {
        // check date
        if (isDate($from_date) != $from_date || isDate($to_date) != $to_date) {
            return array();
        }
        // build query
        $sql = "select pcm_val,pcm_lib from tmp_pcmn  
                       where pcm_val in 
                             (select j_poste from jrnx where j_date >= to_date('$from_date','DD.MM.YYYY')
    and j_date <= to_date('$to_date','DD.MM.YYYY') ) ";
        $cond_poste="";
        if ($from_accounting != '') {
            $cond_poste .= "and pcm_val >= upper ('" . Database::escape_string($from_accounting) . "')";
        }
 
        if ($to_accounting != '') {
            $cond_poste .= " and pcm_val <= upper ('" . Database::escape_string($to_accounting) . "')";
        }
 
        $sql = $sql . $cond_poste . '  order by pcm_val::text';
 
        // get array
        $cn=Dossier::connect();
        $a_poste = $cn->get_array($sql);
        // return array
        return $a_poste;
 
    }

References $from_date, $to_date, and from.

◆ HtmlTable()

Acc_Account_Ledger::HtmlTable	(	$p_array = null,
		$let = 0,
		$from_div = 0 )

HtmlTable, display a HTML of a poste for the asked period.

Parameters

$p_array	array for filter
$let	lettering of operation 0

Returns: -1 if nothing is found otherwise 0

If the currency is not the default one , then show the amount

Definition at line 447 of file acc_account_ledger.class.php.

    {
        
        if ( $p_array==null)$p_array=$_REQUEST;
        global $g_parameter;
        $this->get_name();
        list($array,$tot_deb,$tot_cred)=$this->get_row_date( $p_array['from_periode'],
                                                             $p_array['to_periode'],$let
                                                           );
 
        if ( count($this->row ) == 0 )
            return -1;
 
        $rep="";
 
        $type =$this->get_type();
        // label  warning if the saldo is incorrect
        $label="";
        if (in_array($type,array('CHA','ACT','PASINV','PROINV')) && $tot_deb<$tot_cred)
        {
 
            $label.=_("Solde créditeur au lieu de débiteur").'<span class="icon">&#xe80e;</span>';
        }
        if (in_array($type,array('PRO','PAS','ACTINV','CHAINV')) && $tot_deb>$tot_cred)
        {
 
            $label.=_("Solde débiteur au lieu de créditeur")." ".'<span class="icon">&#xe80e;</span>';
        }
        if ( $label !="" ) 
                echo '<span class="notice" >'.$label.'</span>';
        
        if ( $from_div == 1)
                        echo "<TABLE id=\"tbpopup\" class=\"resultfooter\" style=\"border-collapse:separate;margin:1%;width:98%;\">";
                else
                        echo "<TABLE id=\"tb".$from_div."\" class=\"resultfooter\" style=\"border-collapse:separate;margin:1%;width:98%;\">";
        echo '<tbody>';
        echo "<TR>".
        "<TH style=\"text-align:left\">"._('Date')." </TH>".
        "<TH style=\"text-align:left\">"._('Pièce')." </TH>".
        "<TH style=\"text-align:left\">"._('Code')."</TH>".
        "<TH style=\"text-align:left\">"._('Interne')." </TH>".
        "<TH class=\"visible_gt800\"  style=\"text-align:left\">"._('Tiers')." </TH>".
        "<TH class=\"visible_gt800\"  style=\"text-align:left\">"._('Description')."</TH>".
        "<TH class=\"visible_gt800\"  style=\"text-align:left\">"._('Type')."</TH>".
        "<TH class=\"visible_gt800\"  style=\"text-align:left\">"._('ISO')."</TH>".
        "<TH class=\"visible_gt800\"  style=\"text-align:right\">"._('Dev.')."</TH>".
        "<TH style=\"text-align:right\">"._('Débit')."</TH>".
        "<TH style=\"text-align:right\">"._("Crédit")."</TH>".
        th('Prog.','style="text-align:right"').
        th('Let.',' class="visible_gt800" '.'style="text-align:right"');
        "</TR>"
        ;
        $progress=0;$sum_deb=0;$sum_cred=0;
        bcscale(2);
        $old_exercice="";
        $idx=0;
        $operation=new Acc_Operation($this->db);
        foreach ( $this->row as $op )
        {
           
            $tiers=$operation->find_tiers($op['jr_id'],$op['j_id'],$op['j_qcode']);
           
            
            $vw_operation = sprintf('<A class="detail" style="text-decoration:underline;color:red" HREF="javascript:modifyOperation(\'%s\',\'%s\')" >%s</A>', $op['jr_id'], dossier::id(), $op['jr_internal']);
            $let = '';
                        $html_let = "";
                        if ($op['letter'] != 0)
                        {
                                $let = strtoupper(base_convert($op['letter'], 10, 36));
                                $html_let = HtmlInput::show_reconcile($from_div, $let);
                                if ( $op['delta_letter'] != 0) $html_let='<img src="image/warning.png" onmouseover="displayBulle(\'delta = '.$op['delta_letter'].'\')" onmouseleave="hideBulle()" style="height:12px"/>'.$html_let;
                        }
                        $tmp_diff=bcsub($op['deb_montant'],$op['cred_montant']);
 
            /*
             * reset prog. balance to zero if we change of exercice
             */
            if ($old_exercice != $op['p_exercice']) {
                if ($old_exercice != '') {
                    $progress = bcsub($sum_deb, $sum_cred);
                    $side = "&nbsp;" . $this->get_amount_side($progress);
                    echo "<TR class=\"highlight\">" .
                    td($op['p_exercice']) .
                    td("", ' class="visible_gt800" ') .
                    td("", ' class="visible_gt800" ') .
                    td("", ' class="visible_gt800" ') .
                    td("", ' class="visible_gt800" ') .
                    td("", ' class="visible_gt800" ') .
                    td() .
                    "<TD >Totaux</TD>" . td("") .
                    "<TD  style=\"text-align:right\">" . nbm($sum_deb) . "</TD>" .
                    "<TD  style=\"text-align:right\">" . nbm($sum_cred) . "</TD>" .
                    td(nbm(abs($progress)).$side,'style="text-align:right;padding-left:10px;"').
                    td("", ' class="visible_gt800" ') .
                    "</TR>";
                 
                   
                    $sum_cred = 0;
                    $sum_deb = 0;
                    $progress = 0;
                }
            }
            $progress=bcadd($progress,$tmp_diff);
                $side="&nbsp;".$this->get_amount_side($progress);
            $sum_cred=bcadd($sum_cred,$op['cred_montant']);
            $sum_deb=bcadd($sum_deb,$op['deb_montant']);
            $class=($idx%2 == 0)?'class="odd"':$class=' class="even"';
            $idx++;
 $op_analytic=($op['op_analytic']==1)?'<span style="float:right;background:black;color:white;">&ni;</span>':'';
            echo "<TR $class name=\"tr_" . $let . "_" . $from_div . "\">" .
                        "<TD>".smaller_date(format_date($op['j_date']))."</TD>".
              td(h($op['jr_pj_number'])).
              "<TD>".\HtmlInput::card_detail($op['j_qcode'])."</TD>".
              "<TD>".$vw_operation."</TD>".
                "<TD class=\"visible_gt800\" >".$tiers."</TD>".
              "<TD class=\"visible_gt800\" >".h($op['description']).$op_analytic."</TD>".
                    td($op['jr_optype'],' class="visible_gt800" ');
                     /// If the currency is not the default one , then show the amount
            if ( $op['currency_id'] > 0  )
            {
                // some amount are not directly recorded into operation_currency, like VAT
                $currency_val=($op['oc_amount'] == 0)?round(bcmul ($op['j_montant'],$op['currency_rate']),2):$op['oc_amount'] ;
               
               echo   td($op['cr_code_iso']).
                    td(nbm($currency_val,2),'style="text-align:right;padding-left:10px;"');
            } else {
                echo td('', 'class="visible_gt800" ').td('',' class="visible_gt800"' );
            }
            
            echo 
              "<TD style=\"text-align:right;padding-left:10px;\">".nbm($op['deb_montant'])."</TD>".
              "<TD style=\"text-align:right;padding-left:10px;\">".nbm($op['cred_montant'])."</TD>".
              td(nbm(abs($progress)).$side,'style="text-align:right"').
 
              td($html_let, ' class="visible_gt800" '.' style="color:red;text-align:right"') .
                        "</TR>";
            $old_exercice=$op['p_exercice'];
        }
        echo '<tfoot>';
        $solde_type=($sum_deb>$sum_cred)?_("solde débiteur"):_("solde créditeur");
        $diff=bcsub($sum_deb,$sum_cred);
                $side="&nbsp;".$this->get_amount_side($diff);
       echo "<TR class=\"highlight\">".
                td($op['p_exercice']).
                 td("",' class="visible_gt800" ').
                td("",' class="visible_gt800" ').
                td("",' class="visible_gt800" ').
                td("",' class="visible_gt800" ').
                td("",' class="visible_gt800" ').
                td().
        "<TD >Totaux</TD>".td("").
          "<TD  style=\"text-align:right\">".nbm($sum_deb)."</TD>".
          "<TD  style=\"text-align:right\">".nbm($sum_cred)."</TD>".
          "<TD style=\"text-align:right\">".nbm(abs($diff)).$side."</TD>".
                td("",' class="visible_gt800" ').
        "</TR>";
        echo   "<tr style=\"font-weight:bold\"><TD>$solde_type</TD><td></td>".
          "<TD style=\"text-align:right\">".nbm(abs($diff))."</TD>".
        "</TR>";
        // take saldo from 1st day until last
        if ($g_parameter->MY_REPORT=='N') {
            $solde_until_now=$this->get_solde_detail("  j_date <= to_date('{$p_array['to_periode']}','DD.MM.YYYY')  ");
            echo '<tr style="font-weight:bold;color:orangered">';
            echo td(_("Solde global"));
            echo td("D : ".nbm($solde_until_now['debit']),'class="num"');
            echo td("C : ".nbm($solde_until_now['credit']),'class="num"');
            echo td("Delta : ".nbm($solde_until_now['solde'])." ".$this->get_amount_side($solde_until_now['debit']-$solde_until_now['credit']),'class="num"');
            echo '</tr>';
 
        }
        echo '</tfoot>';
        echo '</tbody>';
 
        echo "</table>";
        if ( DEBUGNOALYSS>1) echo \Noalyss\Dbg::hidden_info("variable", get_defined_vars());
        if ( DEBUGNOALYSS>1) echo \Noalyss\Dbg::hidden_info("this", $this);
 
        return;
    }

References $_REQUEST, $array, $class, $from_div, $g_parameter, $idx, $label, $let, $op, $operation, $p_array, $progress, $rep, $side, $tiers, $tot_cred, $tot_deb, $type, _, db, format_date(), get_name(), get_row_date(), get_type(), h, nbm(), td(), and th().

Here is the call graph for this function:

◆ HtmlTableHeader()

static Acc_Account_Ledger::HtmlTableHeader ( $actiontarget = "poste" )

static

Display HTML Table Header (button)

Returns: none

Definition at line 645 of file acc_account_ledger.class.php.

    {
        $http=new \HttpInput();
      switch($actiontarget)
        {
        case 'poste':
          $action_csv='CSV:postedetail';
          $action_pdf='PDF:postedetail';
          break;
        case 'gl_comptes':
          $action_csv='CSV:glcompte';
          $action_pdf='PDF:glcompte';
          break;
        default:
          throw new Exception(" Fonction HtmlTableHeader argument actiontarget invalid");
        }
        $hid=new IHidden();
 
        echo "<table  >";
        echo '<TR>';
        $str_ople=(isset($_REQUEST['ople']))?HtmlInput::hidden('ople',$http->request('ople')):'';
        if ($actiontarget=='poste')
          {
            echo '<TD><form method="GET" ACTION="export.php">'.
              dossier::hidden().
              HtmlInput::submit('bt_other',"Autre poste").
              $hid->input("type","poste").$hid->input('ac',$http->request('ac'))."</form></TD>";
          }
 
        $id=uniqid("pdf_");
        echo '<TD><form method="GET" ACTION="export.php" '.
             'id="'.$id.'"  onsubmit="return download_document_form(\''.$id.'\')">'.
        dossier::hidden().
        HtmlInput::submit('bt_pdf',"Export PDF").
        HtmlInput::hidden('act',$action_pdf).
        $hid->input("type","poste").$str_ople.
        $hid->input('p_action','impress').
        $hid->input("from_periode",$http->request('from_periode')).
        $hid->input("to_periode",$http->request('to_periode'))
          ;
 
        if ( isset($_REQUEST['letter'] )) echo HtmlInput::hidden('letter','2');
        if ( isset($_REQUEST['solded'] )) echo HtmlInput::hidden('solded','1');
 
        if (isset($_REQUEST['from_poste']))
          echo HtmlInput::hidden('from_poste',$http->request('from_poste'));
 
        if (isset($_REQUEST['to_poste']))
          echo HtmlInput::hidden('to_poste',$http->request('to_poste'));
 
        if (isset($_REQUEST['poste_id']))
          echo HtmlInput::hidden("poste_id",$http->request('poste_id'));
 
        if (isset($_REQUEST['poste_fille']))
            echo $hid->input('poste_fille','on');
        if (isset($_REQUEST['oper_detail']))
            echo $hid->input('oper_detail','on');
 
        echo "</form></TD>";
        $id=uniqid("csv_");
        echo '<TD><form method="GET" ACTION="export.php" id="'.$id.'"  onsubmit="download_document_form(\''.$id.'\')">'.
        dossier::hidden().
        HtmlInput::submit('bt_csv',"Export CSV").
        HtmlInput::hidden('act',$action_csv).
        $hid->input("type","poste").$str_ople.
        $hid->input('p_action','impress').
        $hid->input("from_periode",$http->request('from_periode')).
          $hid->input("to_periode",$http->request('to_periode'));
 
        if (isset($_REQUEST['from_poste']))
          echo HtmlInput::hidden('from_poste',$http->request('from_poste'));
 
        if (isset($_REQUEST['to_poste']))
          echo HtmlInput::hidden('to_poste',$http->request('to_poste'));
 
        if (isset($_REQUEST['poste_id']))
          echo HtmlInput::hidden("poste_id",$http->request('poste_id'));
 
        if ( isset($_REQUEST['letter'] )) echo HtmlInput::hidden('letter','2');
        if ( isset($_REQUEST['solded'] )) echo HtmlInput::hidden('solded','1');
 
        if (isset($_REQUEST['poste_fille']))
            echo $hid->input('poste_fille','on');
        if (isset($_REQUEST['oper_detail']))
            echo $hid->input('oper_detail','on');
        if (isset($_REQUEST['poste_id'])) echo $hid->input("poste_id",$http->request('poste_id'));
 
        echo "</form></TD>";
        echo '<td style="vertical-align:top">';
        echo HtmlInput::print_window();
        echo '</td>';
        echo '</tr>';
        echo "</table>";
 
 
    }

References $_REQUEST, $hid, $http, $id, table, and type.

◆ isTVA()

Acc_Account_Ledger::isTVA ( )

isTva tell is a poste is used for VAT

Parameters

none

Returns: 1 is Yes otherwise 0

Definition at line 421 of file acc_account_ledger.class.php.

    {
        // Load TVA array
        $a_TVA=$this->db->get_array('select tva_poste
                                    from tva_rate');
        foreach ( $a_TVA as $line_tva)
        {
            if ( $line_tva['tva_poste']  == '' )
                continue;
            list($tva_deb,$tva_cred)=explode(',',$line_tva['tva_poste']);
            if ( $this->id == $tva_deb ||
                    $this->id == $tva_cred )
            {
                return 1;
            }
        }
        return 0;
 
    }

References db.

◆ load()

Acc_Account_Ledger::load ( )

Get all the value for this object from the database the data member are set.

Returns: false if this account doesn't exist otherwise true

Definition at line 332 of file acc_account_ledger.class.php.

                   :bool
    {
        $ret=$this->db->exec_sql("select pcm_lib,pcm_val_parent from
                                 tmp_pcmn where pcm_val=$1",array($this->id));
        $r=Database::fetch_all($ret);
 
        if ( ! $r ) return false;
        $this->label=$r[0]['pcm_lib'];
        $this->parent=$r[0]['pcm_val_parent'];
        return true;
 
    }

References $r, $ret, db, DatabaseCore\fetch_all(), and label.

Here is the call graph for this function:

◆ make_sql_accounting_detail()

Acc_Account_Ledger::make_sql_accounting_detail	(	$p_from,
		$p_to,
		$sql_let,
		$filter_sql )

build the SQL for get_row_data

Parameters

$p_from	date d.m.Y start date
$p_to	date d.m.Y until date
$sql_let	sql string for getting lettering info
$filter_sql	string SQL for filtering the ledgers , to respect security on ledgers

Returns: sql SELECT

Definition at line 124 of file acc_account_ledger.class.php.

    {
 
     $sql =  "
 with sqlletter as (select j_id,jl_id from letter_cred union all select j_id , jl_id from   letter_deb )
         select j1.j_id,jr_id,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,j_date,
                                j_qcode
                                 ,case when j_debit='t' then j_montant else 0 end as deb_montant,
                                 case when j_debit='f' then j_montant else 0 end as cred_montant,
                                  case when j_text is null or j_text = '' then jr_comment 
                                   else jr_comment||' '||j_text  end
                                 as description,jrn_def_name as jrn_name,
                                 j_debit, jr_internal,jr_pj_number
                                 ,(select distinct jl_id from sqlletter  where sqlletter.j_id=j1.j_id ) as letter 
                                 ,pcm_lib
                                 ,jr_optype
                                                                 ,jr_tech_per
                                 ,p_exercice
                                 ,jrn_def_name
                                 ,jrn_def_code
                                 ,(with cred as (select jl_id, sum(j_montant) as amount_cred from letter_cred left join jrnx using (j_id)  group by jl_id )
                                , deb as (select jl_id, sum(j_montant) as amount_deb from letter_deb left join jrnx using (j_id)   group by jl_id )
        select amount_deb-amount_cred
        from 
        cred 
        full  join deb using (jl_id) where jl_id=(select distinct jl_id from sqlletter  where sqlletter.j_id=j1.j_id  )) as delta_letter
            ,jrn.currency_rate
            ,jrn.currency_rate_ref
            ,jrn.currency_id
            ,(select cr_code_iso from currency where id=jrn.currency_id) as cr_code_iso
            ,j_montant
            ,oc_amount
            ,oc_vat_amount ,
        case when exists(select 1 from operation_analytique oa where j1.j_id=oa.j_id) then 1 else 0 end as op_analytic
  from jrnx as j1
    left join operation_currency as va on (j1.j_id = va.j_id )
          join jrn_def on (jrn_def_id=j_jrn_def )
           join jrn on (jr_grpt_id=j_grpt)
           join tmp_pcmn on (j1.j_poste=pcm_val)
           join parm_periode on (p_id=jr_tech_per)              
          where j1.j_poste=$1 and 
          ( to_date($2,'DD.MM.YYYY') <= j_date and 
            to_date($3,'DD.MM.YYYY') >= j_date )
                                  and $filter_sql  $sql_let 
                                  order by j_date,substring(jr_pj_number,'[0-9]+$') asc";
        return $sql;
    }

References $sql.

Referenced by get_row_date().

◆ make_sql_not_balanced_account()

Acc_Account_Ledger::make_sql_not_balanced_account ( $filter )

make the SQL for the balanced accounting

Parameters

$filter filter to respect the security on ledger

Returns: sql SELECT

Definition at line 177 of file acc_account_ledger.class.php.

    {
        $bal_sql="select sum(amount_deb) as s_deb,sum(amount_cred) as s_cred, j_poste
                        from                                            
                        (select case when j_debit='t' then j_montant else 0 end as amount_deb,
                                case when j_debit='f' then j_montant else 0 end as amount_cred,
                                j_poste
                                from jrnx join jrn on (j_grpt = jr_grpt_id)
                                where
                                j_poste=$1 and
                                $filter and
                                ( to_date($2,'DD.MM.YYYY') <= j_date and
                                  to_date($3,'DD.MM.YYYY') >= j_date  )) as signed_amount
                                                group by j_poste
                                                ";
        return $bal_sql;
    }

References $filter.

Referenced by get_row_date().

◆ make_sql_saldo_account()

Acc_Account_Ledger::make_sql_saldo_account	(		$filter_sql,
			$sql_let )

make the SQL for the balance of an accounting

Parameters

$filter_sql	filter to respect the security on ledger
$sql_let	string for getting lettering info

Returns: sql SELECT

Definition at line 202 of file acc_account_ledger.class.php.

    {
        $sql_saldo="select  sum(deb_montant) as deb,sum(cred_montant) as cred
                    from 
                    (select case when j_debit='t' then j_montant else 0 end as deb_montant,
                    case when j_debit='f' then j_montant else 0 end as cred_montant
                                  from jrnx j1
                                  join jrn_def on (jrn_def_id=j_jrn_def )
                                   join jrn on (jr_grpt_id=j_grpt)
                                   join tmp_pcmn on (j_poste=pcm_val)
                                   join parm_periode on (p_id=jr_tech_per) 
                                  where j_poste=$1 and 
                                  ( to_date($2,'DD.MM.YYYY') <= j_date and 
                                    to_date($3,'DD.MM.YYYY') >= j_date ) 
                                  and $filter_sql  $sql_let ) as m";
        return $sql_saldo;
    }

Referenced by get_row_date().

Field Documentation

◆ $db

Acc_Account_Ledger::$db

$db database connection

Definition at line 29 of file acc_account_ledger.class.php.

◆ $id

Acc_Account_Ledger::$id

$id poste_id (pcm_val)

Definition at line 30 of file acc_account_ledger.class.php.

Referenced by HtmlTableHeader().

◆ $label

Acc_Account_Ledger::$label

$label label of the poste

Definition at line 31 of file acc_account_ledger.class.php.

Referenced by HtmlTable().

◆ $name

Acc_Account_Ledger::$name

Definition at line 36 of file acc_account_ledger.class.php.

Referenced by get_name().

◆ $parent

Acc_Account_Ledger::$parent

$parent parent account

Definition at line 32 of file acc_account_ledger.class.php.

◆ $row

Acc_Account_Ledger::$row

$row double array see get_row

Definition at line 33 of file acc_account_ledger.class.php.

◆ $tot_cred

Acc_Account_Ledger::$tot_cred

value by get_row

Definition at line 35 of file acc_account_ledger.class.php.

Referenced by get_row_sql_deprecated(), and HtmlTable().

◆ $tot_deb

Acc_Account_Ledger::$tot_deb

value set by get_row

Definition at line 34 of file acc_account_ledger.class.php.

Referenced by get_row_sql_deprecated(), and HtmlTable().

The documentation for this class was generated from the following file:

include/class/acc_account_ledger.class.php

Public Member Functions

Static Public Member Functions

Data Fields

Private Member Functions

Detailed Description

Constructor & Destructor Documentation

◆ __construct()

Member Function Documentation

◆ belong_ledger()

◆ build_sql_account()

◆ button_csv()

◆ button_pdf()

◆ do_exist()

◆ filter_history()

◆ find_card()

◆ get_account_ledger()

◆ get_amount_side()

◆ get_name()

◆ get_row()

◆ get_row_date()

◆ get_row_sql_deprecated()

◆ get_solde()

◆ get_solde_detail()

◆ get_type()

◆ get_used_accounting()

◆ HtmlTable()

◆ HtmlTableHeader()

◆ isTVA()

◆ load()

◆ make_sql_accounting_detail()

◆ make_sql_not_balanced_account()

◆ make_sql_saldo_account()

Field Documentation

◆ $db

◆ $id

◆ $label

◆ $name

◆ $parent

◆ $row

◆ $tot_cred

◆ $tot_deb