Acc_Account_Ledger Class Reference

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 More...
	build_sql_account ($p_jrn)
	build a sql statement thanks a array found with get_account_ledger More...
	button_csv ($p_from, $p_to)
	Return a string with the HTML code to display a button to export the history in CSV. More...
	button_pdf ($p_from, $p_to)
	Return a string with the HTML code to display a button to export the history in PDF. More...
	do_exist ()
	check if the poste exist in the tmp_pcmn More...
	filter_history ($p_table_id)
	Filter in javascript the table with the history. More...
	find_card ()
	Find the id of the cards which are using the current account. More...
	get_account_ledger ($p_jrn)
	With the id of the ledger, get the col jrn_def_class_deb. More...
	get_amount_side ($p_amount)
	return the letter C if amount is > 0, D if < 0 or = More...
	get_name ()
	Return the name of a account it doesn't change any data member. More...
	get_row ($p_from, $p_to)
	Get data for accounting entry between 2 periode. More...
	get_row_date ($p_from, $p_to, $let=0, $solded=0)
	Get data for accounting entry between 2 date. More...
	get_solde ($p_cond=" true ")
	give the balance of an account More...
	get_solde_detail ($p_cond="")
	give the balance of an account More...
	get_type ()
	Return the type of a account. More...
	HtmlTable ($p_array=null, $let=0, $from_div=0)
	HtmlTable, display a HTML of a poste for the asked period. More...
	isTVA ()
	isTva tell is a poste is used for VAT More...
	load ()
	Get all the value for this object from the database the data member are set. More...
	make_sql_accounting_detail ($p_from, $p_to, $sql_let, $filter_sql)
	build the SQL for get_row_data More...
	make_sql_not_balanced_account ($filter)
	make the SQL for the balanced accounting More...
	make_sql_saldo_account ($filter_sql, $sql_let)
	make the SQL for the balance of an accounting More...

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) More...

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 More...

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 735 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;
    }

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 800 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;
    }

References $array, $p_jrn, and $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 843 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, and Dossier\id().

Here is the call graph for this function:

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 865 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, and Dossier\id().

Here is the call graph for this function:

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 885 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);
    }

References HtmlInput\filter_table().

Here is the call graph for this function:

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 830 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 $account, $sql, ATTR_DEF_ACCOUNT, and db.

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 781 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;
    }

References $l, $p_jrn, $row, db, and noalyss_strlentrim().

Here is the call graph for this function:

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 621 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

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 889 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 $a_poste, $cn, $from_date, $sql, $to_date, Dossier\connect(), DatabaseCore\escape_string(), and isDate().

Here is the call graph for this function:

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>';
        }
        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 style=\"text-align:left\">"._('Tiers')." </TH>".
        "<TH style=\"text-align:left\">"._('Description')."</TH>".
        "<TH style=\"text-align:left\">"._('Type')."</TH>".
        "<TH style=\"text-align:left\">"._('ISO')."</TH>".
        "<TH 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.','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>$old_exercice</TD>".
                      "<TD></TD>".td().td().td().td().td().
                      "<TD>"._("Totaux")."</TD>".td("").
                      "<TD style=\"text-align:right;padding-left:10px;\">".nbm($sum_deb)."</TD>".
                      "<TD style=\"text-align:right;padding-left:10px;\">".nbm($sum_cred)."</TD>".
                      td(nbm(abs($progress)).$side,'style="text-align:right;padding-left:10px;"').
                      td('').
                      "</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>".$tiers."</TD>".
              "<TD>".h($op['description']).$op_analytic."</TD>".
                    td($op['jr_optype']);
                     /// 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().td();
            }
            
            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, ' 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().td().td().td().td().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().
        "</TR>";
        echo   "<tr><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, HtmlInput\card_detail(), db, format_date(), get_name(), get_row_date(), get_type(), h, id, nbm(), HtmlInput\show_reconcile(), 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 635 of file acc_account_ledger.class.php.

    {
      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',$_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',$_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",$_REQUEST['from_periode']).
        $hid->input("to_periode",$_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',$_REQUEST['from_poste']);
 
        if (isset($_REQUEST['to_poste']))
          echo HtmlInput::hidden('to_poste',$_REQUEST['to_poste']);
 
        if (isset($_REQUEST['poste_id']))
          echo HtmlInput::hidden("poste_id",$_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",$_REQUEST['from_periode']).
          $hid->input("to_periode",$_REQUEST['to_periode']);
 
        if (isset($_REQUEST['from_poste']))
          echo HtmlInput::hidden('from_poste',$_REQUEST['from_poste']);
 
        if (isset($_REQUEST['to_poste']))
          echo HtmlInput::hidden('to_poste',$_REQUEST['to_poste']);
 
        if (isset($_REQUEST['poste_id']))
          echo HtmlInput::hidden("poste_id",$_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",$_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, $id, align, HtmlInput\hidden(), HtmlInput\submit(), table, and type.

Here is the call graph for this function:

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;
    }

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.

$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