manage the list of operation when we need several ledger with a different type or from Misceleaneous ledger More...

Inheritance diagram for Acc_Ledger_History_Generic:

Collaboration diagram for Acc_Ledger_History_Generic:

Public Member Functions
	__construct (Database $cn, $pa_ledger, $p_from, $p_to, $p_mode)

	export_accounting_html ()
	display in html the accounting of the list of operations

	export_csv ()
	export CSV

	export_detail_html ()
	display in html the detail the list of operation

	export_extended_html ()
	display in html with extended detail the list of operation

	export_html ()
	depending on the mode will call the right function

	export_oneline_html ()
	list operation on one line per operation

	get_data ()
	To get data.

	get_detail (&$p_array, $p_jrn_type, $trunc=0, $a_TVA=null, $a_ParmCode=null)
	get_detail gives the detail of row this array must contains at least the field

	get_row ($p_limit=-1, $p_offset=-1)
	set $this->data with the array of rows

	get_rowSimple ($trunc=0, $p_limit=-1, $p_offset=-1)
	Get simplified row from ledger.

Public Member Functions inherited from Acc_Ledger_History
	get_filter_operation ()
	Filter operation.

	get_from ()
	setter / getter

	get_ledger ()
	setter / getter

	get_ledger_type ()

	get_mode ()
	setter / getter

	get_tiers ($p_jrn_type, $jr_id)
	Retrieve the third : supplier for purchase, customer for sale, bank for fin,.

	get_tiers_id ($p_jrn_type, $jr_id)
	Return the f_id of the tiers , called by get_tiers.

	get_to ()
	setter / getter

	has_other_tax ()
	count the number of addition tax for the ledger

	set_a_ledger ($ma_ledger)
	setter ma_ledger (array of jrn_def_id)

	set_filter_operation ($filter_operation)
	Filter operation ,.

	set_from ($m_from)
	setter m_from (periode id)

	set_ledger_type ($ledger_type)

	set_m_mode ($m_mode)
	Setter.

	set_to ($m_to)
	setter m_to (periode id)

Additional Inherited Members
Static Public Member Functions inherited from Acc_Ledger_History
static	factory (Database $cn, $pa_ledger, $p_from, $p_to, $p_mode, $p_paid)
	Build the right object.

Data Fields inherited from Acc_Ledger_History
	$db
	database connx

Protected Member Functions inherited from Acc_Ledger_History
	add_additional_tax_info ()
	add additional info about additional tax.

	build_filter_operation ()
	Build a SQL clause to filter operation depending if they are paid, unpaid or no filter.

	prepare_reconcile_date ()
	Prepare the query for fetching the linked operation @staticvar int $prepare.

Protected Attributes inherited from Acc_Ledger_History
	$data
	Contains data see acc_ledger_history_financial->get_row.

	$filter_operation
	type of ledger VEN , ACH , ODS, FIN

	$ledger_type

	$m_from
	Starting Periode : periode.p_id.

	$m_mode
	mode of export L : one line, E accounting writing , D : Detail

	$m_to
	Ending Periode : periode.p_id.

	$ma_ledger
	Array of ledger id : jrn_def.jrn_def_id.

Detailed Description

manage the list of operation when we need several ledger with a different type or from Misceleaneous ledger

<?php
 
/*
 *   This file is part of NOALYSS.
 *
 *   PhpCompta 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 PhpCompta; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
// Copyright (2018) Author Dany De Bontridder <dany@alchimerys.be>
 
//@description:History : show different history : detail, list, ...
 
/**
 * @file
 * @brief Test of ledger_history show html
 */
require_once NOALYSS_INCLUDE."/class/acc_ledger_history.class.php";
html_page_start();
$ledger=[1,2,3,4];
echo Dossier::hidden();
global $cn, $g_user, $g_succeed, $g_failed;
$cn=Dossier::connect();
 
$ledger_history=Acc_Ledger_History::factory($cn, $ledger, $min, $max, "E","all");
echo h1("Detailled Accounting");
echo h2(_("export detail html all ledgers result = Detailled Accounting from Acc_Ledger_History_Generic"));
echo '<a href="#n1">Detailled Accounting</a>';
$ledger_history->export_detail_html();
 
echo h2(_("Set mode to D etailled all_ledgers result = Detailled Accounting from Acc_Ledger_History_Generic" )
    ,'id="n1"');
echo '<a href="#n2">Sale Listing</a>';
 
$ledger_history->set_m_mode("D");
$ledger_history->export_html();
 
echo h1(_("Only VEN from Acc_Ledger_History_Sale"),' id="n2"');
echo '<a href="#n3">Sale Detailed</a>';
$ledger_history=Acc_Ledger_History::factory($cn, [2], $min , $max , "L","all");
$ledger_history->export_detail_html();
 
echo h2(_("Only VEN one line"));
$ledger_history->set_a_ledger([2]);
$ledger_history->set_m_mode("L");
$ledger_history->export_html();
echo h2(_("Only VEN Detailled"),'id="n3"');
echo '<a href="#n4">Sale Extended</a>';
$ledger_history->set_a_ledger([2]);
$ledger_history->set_m_mode("D");
$ledger_history->export_html();
 
echo h2(_("Only VEN Extended"),'id="n4"');
echo '<a href="#n5">Sale + Purchase</a>';
$ledger_history->set_a_ledger([2]);
$ledger_history->set_m_mode("E");
$ledger_history->export_html();
 
echo h2("VEN + ACH",'id="n5"');
echo '<a href="#n6">Purchase Detailed</a>';
$ledger_history=Acc_Ledger_History::factory($cn, [3,2], $min, $max , "L","all");
 
$ledger_history->export_oneline_html();
 
echo h1("ACH from Acc_Ledger_History_Purchase");
echo h2("Detailled accouting",'id="n6"');
echo '<a href="#n7">Purchase listing</a>';
$ledger_history=new Acc_Ledger_History_Purchase($cn,[3],$max,$min,"A","all");
$ledger_history->export_html();
echo h2("Ach one line",'id="n7"');
echo '<a href="#n8">Purchase Detailed</a>';
$ledger_history->set_m_mode("L");
$ledger_history->export_html();
echo h2("Ach Detail" ,'id="n8"');
echo '<a href="#n9">Purchase Extended</a>';
$ledger_history->set_m_mode("D");
$ledger_history->export_html();
echo h2("Ach Extended" ,'id="n9"');
echo '<a href="#n10">Financial</a>';
$ledger_history->set_m_mode("E");
$ledger_history->export_html();
 
echo h1("FIN from Acc_Ledger_History_Financial");
echo h2("Detailled accouting",'id="n10"');
echo '<a href="#n11">Financial one line</a>';
$ledger_history=new Acc_Ledger_History_Financial($cn,[11,16],$min,$max,"A","all");
$ledger_history->export_html();
echo h2("FIN one line" ,'id="n11"');
echo '<a href="#n12">Financial Detailed</a>';
$ledger_history->set_m_mode("L");
$ledger_history->export_html();
echo h2(">FIN Detail", 'id="n12"');
echo '<a href="#n13">Financial extended</a>';
$ledger_history->set_m_mode("D");
$ledger_history->export_html();
echo h2("FIN Extended", 'id="n13"');
$ledger_history->set_m_mode("E");
$ledger_history->export_html();

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

Constructor & Destructor Documentation

◆ __construct()

Acc_Ledger_History_Generic::__construct	(	Database	$cn,
			$pa_ledger,
			$p_from,
			$p_to,
			$p_mode )

Parameters

Database	$cn
array	$pa_ledger	array of jrn_def.jrn_def_id
integer	$p_from	periode
integer	$p_to
char	$p_mode	E D L or A , for Extended ,Detail , Listing , Accounting

Exceptions

Exception if $pa_ledger is not an array

Reimplemented from Acc_Ledger_History.

Definition at line 46 of file acc_ledger_history_generic.class.php.

    {
        parent::__construct($cn, $pa_ledger, $p_from, $p_to, $p_mode);
        $this->data=[];
        $this->ledger_type='ODS';
    }

References $cn.

Member Function Documentation

◆ export_accounting_html()

Acc_Ledger_History_Generic::export_accounting_html ( )

display in html the accounting of the list of operations

Reimplemented from Acc_Ledger_History.

Definition at line 655 of file acc_ledger_history_generic.class.php.

    {
 
        $this->get_row();
        echo '<TABLE class="result">';
        // detailled printing
        //---
        if ( empty ($this->data)) return;
        foreach ($this->data[0] as $op)
        {
            $class="";
            if ($op['j_date']!='')
            {
                $class="odd";
            }
 
            echo "<TR  class=\"$class\">";
 
            echo "<TD>".$op['j_date']."</TD>";
            echo "<TD >".$op['jr_pj_number']."</TD>";
 
 
            if ($op['internal']!='')
                echo "<TD>".HtmlInput::detail_op($op['jr_id'], $op['internal'])."</TD>";
            else
                echo td();
 
            echo "<TD >".$op['poste']."</TD>".
            "<TD  >".$op['description']."</TD>".
            "<TD   style=\"text-align:right\">".nbm($op['deb_montant'])."</TD>".
            "<TD style=\"text-align:right\">".nbm($op['cred_montant'])."</TD>".
            "</TR>";
        }// end loop
        echo "</table>";
 
// show the saldo
//@todo use <li> instead of <br>
        echo _("solde débiteur:").$this->data[1]."<br>";
        echo _("solde créditeur:").$this->data[2];
    }

References $class, $op, _, get_row(), and td().

Referenced by export_detail_html(), export_extended_html(), and export_html().

Here is the call graph for this function:

◆ export_csv()

Acc_Ledger_History_Generic::export_csv ( )

export CSV

Definition at line 790 of file acc_ledger_history_generic.class.php.

    {
        $export=new Noalyss_Csv(_('journal'));
        $export->send_header();
        
        $this->get_row();
        $title=array();
        $title[]=_("operation");
        $title[]=_("N° Pièce");
        $title[]=_("Interne");
        $title[]=_("Date");
        $title[]=_("Poste");
        $title[]=_("QuickCode");
        $title[]=_("Libellé");
        $title[]=_("Débit");
        $title[]=_("Crédit");
        $export->write_header($title);
        if (count($this->data)==0)
            exit;
        $old_id="";
        foreach ($this->data[0] as $idx=>$op)
        {
            // should clean description : remove <b><i> tag and '; char
            $desc=$op['description'];
            $desc=noalyss_str_replace("<b>", "", $desc);
            $desc=noalyss_str_replace("</b>", "", $desc);
            $desc=noalyss_str_replace("<i>", "", $desc);
            $desc=noalyss_str_replace("</i>", "", $desc);
            if ($op['j_id']!="")
                $old_id=$op['j_id'];
 
            $export->add($old_id, "text");
            $export->add($op['jr_pj_number']);
            $export->add($op['internal']);
            $export->add($op['j_date']);
            $export->add($op['poste']);
            $export->add($op['j_qcode']);
            $export->add($desc);
            $export->add($op['deb_montant'], "number");
            $export->add($op['cred_montant'], "number");
            $export->write();
        }
    }

References $desc, $export, $idx, $op, $title, _, exit, get_row(), and noalyss_str_replace().

Here is the call graph for this function:

◆ export_detail_html()

Acc_Ledger_History_Generic::export_detail_html ( )

display in html the detail the list of operation

Reimplemented from Acc_Ledger_History.

Definition at line 639 of file acc_ledger_history_generic.class.php.

    {
        $this->export_accounting_html();
    }

References export_accounting_html().

Here is the call graph for this function:

◆ export_extended_html()

Acc_Ledger_History_Generic::export_extended_html ( )

display in html with extended detail the list of operation

Reimplemented from Acc_Ledger_History.

Definition at line 647 of file acc_ledger_history_generic.class.php.

    {
        $this->export_accounting_html();
    }

References export_accounting_html().

Here is the call graph for this function:

◆ export_html()

Acc_Ledger_History_Generic::export_html ( )

depending on the mode will call the right function

export_oneline_html for one line (mode=L)
export_accounting_html for accounting (mode=A,D,E)

Reimplemented from Acc_Ledger_History.

Definition at line 382 of file acc_ledger_history_generic.class.php.

    {
        switch ($this->m_mode)
        {
            case "E":
                $this->export_accounting_html();
                break;
            case "D":
                $this->export_accounting_html();
                break;
            case "L":
                $this->export_oneline_html();
                break;
            case "A":
                $this->export_accounting_html();
                break;
            default:
                break;
        }
    }

References export_accounting_html(), and export_oneline_html().

Here is the call graph for this function:

◆ export_oneline_html()

Acc_Ledger_History_Generic::export_oneline_html ( )

list operation on one line per operation

Reimplemented from Acc_Ledger_History.

Definition at line 699 of file acc_ledger_history_generic.class.php.

    {
        $this->get_rowSimple();
 
        echo \HtmlInput::filter_table("tb_print_ledger", "0,1,2,3,4,5,6", 1);
        echo '<TABLE class="result" id="tb_print_ledger">';
        echo "<TR>".
        th(_("Date")).
        th(_("n° pièce")).
        th(_("internal")).
        th(_("Tiers")).
        th(_("Commentaire")).
        th(_("Devise")).
        th(_("Total opération")).
        "</TR>";
        // set a filter for the FIN
        $i=0; $tot_amount=0;
        bcscale(2);
        foreach ($this->data as $line)
        {
            $i++;
            $class=($i%2==0)?' class="even" ':' class="odd" ';
            echo "<tr $class>";
            echo "<TD>".$line['date']."</TD>";
            echo "<TD>".h($line['jr_pj_number'])."</TD>";
            echo "<TD>".HtmlInput::detail_op($line['jr_id'],
                    $line['jr_internal'])."</TD>";
            $tiers=$this->get_tiers($line['jrn_def_type'], $line['jr_id']);
            echo td($tiers);
            echo "<TD>".h($line['comment'])."</TD>";
            if ( $line['currency_id'] != 0) {
                echo td(bcadd($line['sum_ocamount'],$line['sum_ocvat_amount'])." ".$line['cr_code_iso'],'class="num"');
            } else  {
                echo td("");
            }
                
 
 
            //    echo "<TD>".$line['pj']."</TD>";
            // If the ledger is financial :
            // the credit must be negative and written in red
            // Get the jrn type
            if ($line['jrn_def_type']=='FIN')
            {
                $positive=$this->db->get_value("select qf_amount from quant_fin where jr_id=$1",
                        array($line['jr_id']));
                if ($this->db->count()==0)
                    $positive=1;
                else
                    $positive=($positive>0)?1:0;
 
                echo "<TD align=\"right\">";
                echo ( $positive==0 )?"<font color=\"red\">  - ".nbm($line['montant'])."</font>":nbm($line['montant']);
                echo "</TD>";
                if ($positive==1)
                {
                    $tot_amount=bcadd($tot_amount, $line['montant']);
                }
                else
                {
                    $tot_amount=bcsub($tot_amount, $line['montant']);
                }
            }
            else
            {
                echo "<TD align=\"right\">".nbm($line['montant'])."</TD>";
                $tot_amount=bcadd($tot_amount, $line['montant']);
            }
 
            echo "</tr>";
        }
        echo '<tr class="highlight">';
        echo '<td>'._('Totaux').'</td>';
        echo td().td().td().td().td();
        echo '<td class="num">'.nbm($tot_amount).'</td>';
        echo '</tr>';
        echo "</table>";
    }

References $class, $i, $line, $tiers, $tot_amount, _, db, get_rowSimple(), Acc_Ledger_History\get_tiers(), nbm(), td(), and th().

Referenced by export_html().

Here is the call graph for this function:

◆ get_data()

Acc_Ledger_History_Generic::get_data ( )

To get data.

Returns: array of rows

Definition at line 782 of file acc_ledger_history_generic.class.php.

    {
        return $this->data;
    }

References Acc_Ledger_History\$data.

◆ get_detail()

Acc_Ledger_History_Generic::get_detail	(	&	$p_array,
			$p_jrn_type,
			$trunc = 0,
			$a_TVA = null,
			$a_ParmCode = null )

get_detail gives the detail of row this array must contains at least the field

montant
grpt_id

the following field will be added

HTVA
TVAC
TVA array with
- field 0 idx
- array containing tva_id,tva_label and tva_amount

@paramp_array the structure is set in get_rowSimple, this array is modified,

jrn.jr_id as jr_id ,
jrn.jr_id as num ,
jrn.jr_def_id as jr_def_id,
jrn.jr_montant as montant,
substr(jrn.jr_comment,1,35) as comment,
to_char(jrn.jr_date,'DD-MM-YYYY') as date,
to_char(jrn.jr_date_paid,'DD-MM-YYYY') as date_paid,
jr_pj_number,
jr_internal,
jrn.jr_grpt_id as grpt_id,
jrn.jr_pj_name as pj,
jrn_def_type,
jrn.jr_tech_per

Parameters

$trunc	if the data must be truncated, usefull for pdf export @paramp_jrn_type is the type of the ledger (ACH or VEN)
$a_TVA	TVA Array (default null)
$a_ParmCode	Array (default null)

Todo: useless since only 2 modes are supported : oneline and extended (accounting writing) but can be used for ledger before 2007

Returns: p_array

Definition at line 98 of file acc_ledger_history_generic.class.php.

    {
        bcscale(2);
 
        if ($a_TVA==null)
        {
            //Load TVA array
            $a_TVA=$this->db->get_array('select tva_id,tva_label,tva_poste
                                        from tva_rate where tva_rate != 0 order by tva_rate,tva_label,tva_id');
        }
        if ($a_ParmCode==null)
        {
            //Load Parm_code
            $a_ParmCode=$this->db->get_array('select p_code,p_value from parm_code');
        }
        // init
        $p_array['client']="";
        $p_array['TVAC']=0;
        $p_array['HTVA']=0;
        $p_array['TVA']=array();
        $p_array['AMOUNT_TVA']=0.0;
        $p_array['dep_priv']=0;
        $p_array['dna']=0;
        $p_array['tva_dna']=0;
        $p_array['tva_np']=0;
        $dep_priv=0.0;
 
 
        // if using the QUANT_* tables then get there the needed info
        //
        if ($this->use_quant_table($p_array['grpt_id'], $p_array['jrn_def_type'])
                ==TRUE)
        {
            // Initialize amount for VAT
            $nb_tva=count($a_TVA);
            for ($i=0; $i<$nb_tva; $i++)
            {
                $p_array['TVA'][$i]=array($i,
                    array(
                        $a_TVA[$i]['tva_id'],
                        $a_TVA[$i]['tva_label'],
                        0)
                );
            }
            switch ($p_array['jrn_def_type'])
            {
                case "ACH":
                    $sql="select 
                            sum(coalesce(qp_price,0)) as htva,
                            sum(coalesce(qp_vat)) as  vat,
                            sum(coalesce(qp_nd_tva)) as  nd_tva,
                            sum(coalesce(qp_nd_tva_recup)) as  nd_tva_recup,
                            sum(coalesce(qp_dep_priv)) as dep_priv,
                            qp_vat_code as tva_code,
                            qp_supplier as fiche_id,
                            qp_vat_sided as tva_sided
                        from 
                            quant_purchase 
                        where 
                            qp_internal=$1 
                            group by qp_supplier,qp_vat_code,qp_vat_sided ";
                    break;
                case "VEN":
                    $sql="select 
                            sum(coalesce(qs_price,0)) as htva,
                            sum(coalesce(qs_vat)) as  vat,
                            sum(0) as  nd_tva,
                            sum(0) as  nd_tva_recup,
                            sum(0) as dep_priv,
                            qs_vat_code as tva_code,
                            qs_client as fiche_id,
                            qs_vat_sided as tva_sided
                        from 
                            quant_sold
                        where 
                            qs_internal=$1 
                            group by qs_client,qs_vat_code,qs_vat_sided ";
                    break;
 
                default:
                    break;
            }
            $a_detail=$this->db->get_array($sql, array($p_array['jr_internal']));
            $nb_detail=count($a_detail);
            for ($x=0; $x<$nb_detail; $x++)
            {
                $p_array['HTVA']=bcadd($p_array['HTVA'], $a_detail[$x]['htva']);
                $p_array['tva_dna']=bcadd($p_array['tva_dna'],
                        $a_detail[$x]['nd_tva_recup']);
                $p_array['tva_dna']=bcadd($p_array['tva_dna'],
                        $a_detail[$x]['nd_tva']);
                $p_array['TVAC']=bcadd($p_array['TVAC'], $a_detail[$x]['htva']);
                if ($a_detail[$x]['tva_sided']==0)
                    $p_array['TVAC']=bcadd($p_array['TVAC'],
                            $a_detail[$x]['vat']);
                $p_array['TVAC']=bcadd($p_array['TVAC'], $a_detail[$x]['nd_tva']);
                $p_array['TVAC']=bcadd($p_array['TVAC'],
                        $a_detail[$x]['nd_tva_recup']);
                $p_array['dep_priv']=bcadd($p_array['dep_priv'],
                        $a_detail[$x]['dep_priv']);
                $xdx=$a_detail[$x]['tva_code'];
                // $p_array['TVA'][$xdx]=bcadd($p_array['TVA'][$xdx],$a_detail[$x]['vat']);
                //--- Put VAT in the right place in the array $a_TVA
                $nb_tva=count($a_TVA);
                for ($j=0; $j<$nb_tva; $j++)
                {
                    if ($xdx==$p_array['TVA'][$j][1][0])
                    {
                        $p_array['TVA'][$j][1][2]=bcadd($p_array['TVA'][$j][1][2],
                                $a_detail[$x]['vat']);
                    }
                }
            }
            $fiche=new Fiche($this->db, $a_detail[0]['fiche_id']);
            $p_array['client']=($trunc==0)?$fiche->getName():mb_substr($fiche->getName(),
                            0, 20);
            return $p_array;
        }
        //
        // Retrieve data from jrnx
        // Order is important for TVA autoreversed
        $sql="select j_id,j_poste,j_montant, j_debit,j_qcode from jrnx where ".
                " j_grpt=$1 order by 1 desc";
        $Res2=$this->db->exec_sql($sql, array($p_array['grpt_id']));
        $data_jrnx=Database::fetch_all($Res2);
        $c=0;
 
        // Parse data from jrnx and fill diff. field
        if ( $data_jrnx == FALSE ){
            $data_jrnx=[];
        }
        foreach ($data_jrnx as $code)
        {
            $idx_tva=0;
            $poste=new Acc_Account_Ledger($this->db, $code['j_poste']);
 
            // if card retrieve name if the account is not a VAT account
            if (noalyss_strlentrim($code['j_qcode'])!=0&&$poste->isTva()==0)
            {
                $fiche=new Fiche($this->db);
                $fiche->get_by_qcode(trim($code['j_qcode']), false);
                $fiche_def_id=$fiche->get_fiche_def_ref_id();
                // Customer or supplier
                if ($fiche_def_id==FICHE_TYPE_CLIENT||
                        $fiche_def_id==FICHE_TYPE_FOURNISSEUR||$fiche_def_id==FICHE_TYPE_ADM_TAX)
                {
                    $p_array['TVAC']=$code['j_montant'];
 
                    $p_array['client']=($trunc==0)?$fiche->getName():mb_substr($fiche->getName(),
                                    0, 20);
                    $p_array['reversed']=false;
                    if ($fiche_def_id==FICHE_TYPE_CLIENT&&$code['j_debit']=='f')
                    {
                        $p_array['reversed']=true;
                        $p_array['TVAC']*=-1;
                    }
                    if ($fiche_def_id==FICHE_TYPE_ADM_TAX&&$code['j_debit']=='f')
                    {
                        $p_array['reversed']=true;
                        $p_array['TVAC']*=-1;
                    }
                    if ($fiche_def_id==FICHE_TYPE_FOURNISSEUR&&$code['j_debit']=='t')
                    {
                        $p_array['reversed']=true;
                        $p_array['TVAC']*=-1;
                    }
                }
                else
                {
                    // if we use the ledger ven / ach for others card than supplier and customer
                    if ($fiche_def_id!=FICHE_TYPE_VENTE&&
                            $fiche_def_id!=FICHE_TYPE_ACH_MAR&&
                            $fiche_def_id!=FICHE_TYPE_ACH_SER&&
                            $fiche_def_id!=FICHE_TYPE_ACH_MAT
                    )
                    {
                        $p_array['TVAC']=$code['j_montant'];
 
                        $p_array['client']=($trunc==0)?$fiche->getName():mb_substr($fiche->getName(),
                                        0, 20);
                        $p_array['reversed']=false;
                        if ($p_jrn_type=='ACH'&&$code['j_debit']=='t')
                        {
                            $p_array['reversed']=true;
                            $p_array['TVAC']*=-1;
                        }
                        if ($p_jrn_type=='VEN'&&$code['j_debit']=='f')
                        {
                            $p_array['reversed']=true;
                            $p_array['TVAC']*=-1;
                        }
                    }
                }
            }
            // if TVA, load amount, tva id and rate in array
            foreach ($a_TVA as $line_tva)
            {
                list($tva_deb, $tva_cred)=explode(',', $line_tva['tva_poste']);
                if ($code['j_poste']==$tva_deb||
                        $code['j_poste']==$tva_cred)
                {
 
                    // For the reversed operation
                    if ($p_jrn_type=='ACH'&&$code['j_debit']=='f')
                    {
                        $code['j_montant']=-1*$code['j_montant'];
                    }
                    if ($p_jrn_type=='VEN'&&$code['j_debit']=='t')
                    {
                        $code['j_montant']=-1*$code['j_montant'];
                    }
 
                    $p_array['AMOUNT_TVA']+=$code['j_montant'];
 
                    $p_array['TVA'][$c]=array($idx_tva, array($line_tva['tva_id'],
                            $line_tva['tva_label'], $code['j_montant']));
                    $c++;
 
                    $idx_tva++;
                }
            }
 
            // isDNA
            // If operation is reversed then  amount are negatif
            /* if ND */
            if ($p_array['jrn_def_type']=='ACH')
            {
                $qp_id=$this->get_value("select qp_id from quant_purchase where j_id=$1",[$code['j_id']]);
                $purchase=new Quant_Purchase_SQL($this->db,$qp_id);
 
                $dep_priv=bcadd ($dep_priv,$purchase->qp_dep_priv);
                $p_array['dep_priv']=$dep_priv;
                $p_array['dna']=bcadd($p_array['dna'], $purchase->qp_nd_amount);
                $p_array['tva_dna']=bcadd($p_array['tva_dna'],
                        bcadd($purchase->qp_nd_tva, $purchase->qp_nd_tva_recup));
                $p_array['tva_np']=bcadd($purchase->qp_vat_sided,
                        $p_array['tva_np']);
            }
            if ($p_array['jrn_def_type']=='VEN')
            {
                $qs_id=$this->db->get_value("select qs_id from quant_sold where j_id=$1",array($code['j_id']));
                $sold=new Quant_Sold_SQL($this->db,$qs_id);
                $p_array['tva_np']=bcadd($sold->qs_vat_sided, $p_array['tva_np']);
            }
        }
        $p_array['TVAC']=sprintf('% 10.2f', $p_array['TVAC']);
        $p_array['HTVA']=sprintf('% 10.2f',
                $p_array['TVAC']-$p_array['AMOUNT_TVA']-$p_array['tva_dna']);
        $r="";
        $a_tva_amount=array();
        // inline TVA (used for the PDF)
        foreach ($p_array['TVA'] as $linetva)
        {
            foreach ($a_TVA as $tva)
            {
                if ($tva['tva_id']==$linetva[1][0])
                {
                    $a=$tva['tva_id'];
                    $a_tva_amount[$a]=$linetva[1][2];
                }
            }
        }
        foreach ($a_TVA as $line_tva)
        {
            $a=$line_tva['tva_id'];
            if (isset($a_tva_amount[$a]))
            {
                $tmp=sprintf("% 10.2f", $a_tva_amount[$a]);
                $r.="$tmp";
            }
            else
                $r.=sprintf("% 10.2f", 0);
        }
        $p_array['TVA_INLINE']=$r;
 
        return $p_array;
    }

References $a, $a_detail, $c, $code, $fiche, $fiche_def_id, $i, $nb_detail, $p_array, $poste, $r, $sql, $tmp, $x, db, DatabaseCore\fetch_all(), FICHE_TYPE_ACH_MAR, FICHE_TYPE_ACH_MAT, FICHE_TYPE_ACH_SER, FICHE_TYPE_ADM_TAX, FICHE_TYPE_CLIENT, FICHE_TYPE_FOURNISSEUR, FICHE_TYPE_VENTE, and noalyss_strlentrim().

Here is the call graph for this function:

◆ get_row()

Acc_Ledger_History_Generic::get_row	(		$p_limit = -1,
			$p_offset = -1 )

set $this->data with the array of rows

Parameters

p_limit	starting line
p_offset	number of lines

Returns: nb of rows found

Reimplemented from Acc_Ledger_History.

Definition at line 503 of file acc_ledger_history_generic.class.php.

    {
        global $g_user;
        $periode=sql_filter_per($this->db, $this->m_from, $this->m_to, 'p_id',
                'jr_tech_per');
 
        $cond_limite=($p_limit!=-1)?" limit ".$p_limit." offset ".$p_offset:"";
 
        $ledger_list=join( ",",$this->ma_ledger);
// Grand livre == 0
        $Res=$this->db->exec_sql("select jr_id,j_id,j_id as int_j_id,to_char(j_date,'DD.MM.YYYY') as j_date,
                                     jr_internal,
                                     case j_debit when 't' then j_montant else 0 end as deb_montant,
                                     case j_debit when 'f' then j_montant else 0 end as cred_montant,
                                     j_debit as debit,j_poste as poste,j_qcode,jr_montant , ".
                "case when j_text='' or j_text is null then pcm_lib else j_text end as description,j_grpt as grp,
                                     jr_comment||' ('||jr_internal||')'  as jr_comment,
                                     jr_pj_number,
                                     j_qcode,
                                     jrn_def_type,
                                     jr_rapt as oc, j_tech_per as periode,
                                     j_id,
                                     jrn.currency_id,
                                     jrn.currency_rate,
                                     jrn.currency_rate_ref,
                                     operation_currency.oc_amount,
                                     operation_currency.oc_vat_amount
                                     from jrnx 
                                     join jrn on  (jr_grpt_id=j_grpt )
                                     left join operation_currency using (j_id)
                   left join tmp_pcmn on pcm_val=j_poste 
                   join jrn_def on (jrn_def_id=jr_def_id)
                    where j_jrn_def in (".$ledger_list.") 
                    and ".$periode."
                    order by j_date::date asc,substring(jr_pj_number,'[0-9]+$')::numeric asc,j_grpt,j_debit desc ".
                $cond_limite);
 
        $array=array();
        $Max=Database::num_row($Res);
        if ($Max==0)
            return array();
        $case="";
        $tot_deb=0;
        $tot_cred=0;
        $row=Database::fetch_all($Res);
        bcscale(2);
        for ($i=0; $i<$Max; $i++)
        {
 
            $line=$row[$i];
            $tot_deb=bcadd($tot_deb, $line['deb_montant']);
            $tot_cred=bcadd($tot_cred, $line['cred_montant']);
            $tot_op=$line['jr_montant'];
 
            /* Check first if there is a quickcode */
            if (noalyss_strlentrim($line['description'])==0&&noalyss_strlentrim($line['j_qcode'])
                    !=0)
            {
                $fiche=new Fiche($this->db);
                if ($fiche->get_by_qcode($line['j_qcode'], false)==0)
                {
                    $line['description']=$fiche->get_attribute(ATTR_DEF_NAME);
                }
            }
            if ($case!=$line['grp'])
            {
                $case=$line['grp'];
                // for financial, we show if the amount is or not in negative
                if ($line['jrn_def_type']=='FIN')
                {
                    $amount=$this->db->get_value('select qf_amount from quant_fin where jr_id=$1',
                            array($line['jr_id']));
                    /*  if nothing is found */
                    if ($this->db->count()==0)
                        $tot_op=$line['jr_montant'];
                    else if ($amount<0)
                    {
                        $tot_op=$amount;
                    }
                }
                $array[]=array(
                    'jr_id'=>$line['jr_id'],
                    'int_j_id'=>$line['int_j_id'],
                    'j_id'=>$line['j_id'],
                    'j_date'=>$line['j_date'],
                    'internal'=>$line['jr_internal'],
                    'deb_montant'=>'',
                    'cred_montant'=>' ',
                    'description'=>'<b><i>'.h($line['jr_comment']).' ['.$tot_op.'] </i></b>',
                    'poste'=>$line['oc'],
                    'j_qcode'=>$line['j_qcode'],
                    'periode'=>$line['periode'],
                    'jr_pj_number'=>$line ['jr_pj_number'],
                    "ledger_type"=>$line['jrn_def_type']);
 
                $array[]=array(
                    'jr_id'=>'',
                    'int_j_id'=>$line['int_j_id'],
                    'j_id'=>'',
                    'j_date'=>'',
                    'internal'=>'',
                    'deb_montant'=>$line['deb_montant'],
                    'cred_montant'=>$line['cred_montant'],
                    'description'=>$line['description'],
                    'poste'=>$line['poste'],
                    'j_qcode'=>$line['j_qcode'],
                    'periode'=>$line['periode'],
                    'jr_pj_number'=>'',
                    "ledger_type"=>$line['jrn_def_type']
                );
            }
            else
            {
                $array[]=array(
                    'jr_id'=>$line['jr_id'],
                    'int_j_id'=>$line['int_j_id'],
                    'j_id'=>'',
                    'j_date'=>'',
                    'internal'=>'',
                    'deb_montant'=>$line['deb_montant'],
                    'cred_montant'=>$line['cred_montant'],
                    'description'=>$line['description'],
                    'poste'=>$line['poste'],
                    'j_qcode'=>$line['j_qcode'],
                    'periode'=>$line['periode'],
                    'jr_pj_number'=>'',
                    "ledger_type"=>$line['jrn_def_type']);
            }
        }
        $this->data=array($array, $tot_deb, $tot_cred);
        return $Max;
    }

References $amount, $array, $fiche, $g_user, $i, $line, $Max, $periode, $Res, $row, $tot_cred, $tot_deb, ATTR_DEF_NAME, db, DatabaseCore\fetch_all(), h, noalyss_strlentrim(), DatabaseCore\num_row(), and sql_filter_per().

Referenced by export_accounting_html(), and export_csv().

Here is the call graph for this function:

◆ get_rowSimple()

Acc_Ledger_History_Generic::get_rowSimple	(	$trunc = 0,
		$p_limit = -1,
		$p_offset = -1 )

Get simplified row from ledger.

Parameters

p_from	periode
p_to	periode
p_limit	starting line
p_offset	number of lines
trunc	if data must be truncated (pdf export)

Todo: Prévoir aussi les journaux sans tables quant < 2007

Returns: numbe of rows found

Definition at line 414 of file acc_ledger_history_generic.class.php.

    {
        global $g_user;
        $jrn=" jrn_def_id in (".join(',',$this->ma_ledger).")";
 
        $periode=sql_filter_per($this->db, $this->m_from, $this->m_to, 'p_id',
                'jr_tech_per');
 
        $cond_limite=($p_limit!=-1)?" limit ".$p_limit." offset ".$p_offset:"";
        //---
        $sql="
             SELECT jrn.jr_id as jr_id ,
             jrn.jr_id as num ,
             jrn.jr_def_id as jr_def_id,
             jrn.jr_montant as montant,
             substr(jrn.jr_comment,1,35) as comment,
             jrn.jr_comment str_comment,
             to_char(jrn.jr_date,'DD-MM-YYYY') as date,
             to_char(jrn.jr_date_paid,'DD-MM-YYYY') as date_paid,
             jr_pj_number,
             jr_internal,
             jrn.jr_grpt_id as grpt_id,
             jrn.jr_pj_name as pj,
             jrn_def_type,
             jrn.jr_tech_per,
             jrn.currency_id,
             jrn.currency_rate,
             jrn.currency_rate_ref,
             currency.cr_code_iso,
             coalesce(sum_ocamount,0) as sum_ocamount,
             coalesce(sum_ocvat_amount,0) as sum_ocvat_amount
             FROM jrn join jrn_def on (jrn_def_id=jr_def_id)
             join currency on (currency.id=jrn.currency_id)
             left join (
                select jrn2.jr_id , sum(coalesce(oc_amount,0)) as sum_ocamount,sum(coalesce(oc_vat_amount,0)) as sum_ocvat_amount
                        from operation_currency
                                join jrnx using (j_id)
                                join jrn as jrn2 on (j_grpt=jrn2.jr_grpt_Id) 
                        where 
                                j_id in (select j_id from jrnx where j_grpt=jrn2.jr_grpt_id)
                                group by jr_id
                ) as OC1 using (jr_id)
             WHERE $periode and $jrn order by jr_date,substring(jrn.jr_pj_number,'[0-9]+$')::numeric asc  $cond_limite";
        $Res=$this->db->exec_sql($sql);
        $Max=Database::num_row($Res);
        if ($Max==0)
        {
            return 0;
        }
//        @todo Pas nécessaire puisqu'on ne traite que les journaux d'opération diverses, 
//        Il faudrait p-e prévoir un système pour les journaux avant 2007 qui n'utilisaient
//        pas les tables quant
//        
//        $type=$this->get_type();
//        // for type ACH and Ven we take more info
//        if ($type=='ACH'||$type=='VEN')
//        {
//            $a_ParmCode=$this->db->get_array('select p_code,p_value from parm_code');
//            $a_TVA=$this->db->get_array('select tva_id,tva_label,tva_poste
//                                        from tva_rate where tva_rate != 0 order by tva_rate,tva_label,tva_id ');
//            for ($i=0; $i<$Max; $i++)
//            {
//                $array[$i]=Database::fetch_array($Res, $i);
//                $p=$this->get_detail($array[$i], $type, $trunc, $a_TVA,
//                        $a_ParmCode);
//                if ($array[$i]['dep_priv']!=0.0)
//                {
//                    $array[$i]['comment'].="(priv. ".$array[$i]['dep_priv'].")";
//                }
//            }
//        }
//        else
//        {
        $array=Database::fetch_all($Res);
//        }
 
        $this->data=$array;
        return $Max;
    }