Anc_GrandLivre Class Reference

report he Grand Livre for analytic More...

Inheritance diagram for Anc_GrandLivre:

Collaboration diagram for Anc_GrandLivre:

Public Member Functions
	button_export_csv ($p_string="")
	Show the button to export CSV. More...
	button_export_pdf ($p_string="")
	Show the button to export in PDF all the receipt. More...
	display_csv ()
	display_html ($p_with_ck=1)
	compute the html display More...
	load ()
	load the data from the database More...
	load_csv ()
	set_sql_filter ()
	Set the filter (account_date) More...
Public Member Functions inherited from Anc_Print
	__construct ($p_cn)
	check ()
	display_form ($p_hidden="")
	Compute the form to display. More...
	get_request ()
	complete the object with the data in $_REQUEST More...
	set_sql_filter ()
	Set the filter (account_date) More...

Additional Inherited Members
Data Fields inherited from Anc_Print
	$db
	$from
	$from_poste
	$to
	$to_poste

Detailed Description

report he Grand Livre for analytic

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

Member Function Documentation

button_export_csv()

Anc_GrandLivre::button_export_csv

(

$p_string = ""

)

Show the button to export CSV.

Returns

string with the button

Definition at line 340 of file anc_grandlivre.class.php.

    {
        $r="";
        $r.= '<form method="GET" action="export.php"  style="display:inline">';
        $r.= HtmlInput::hidden("act","CSV:AncGrandLivre");
        $r.= HtmlInput::hidden("to",$this->to);
        $r.= HtmlInput::hidden("from",$this->from);
        $r.= HtmlInput::hidden("pa_id",$this->pa_id);
        $r.= HtmlInput::hidden("from_poste",$this->from_poste);
        $r.= HtmlInput::hidden("to_poste",$this->to_poste);
        $r.= $p_string;
        $r.= dossier::hidden();
        $r.=HtmlInput::submit('bt_csv',_("Export en CSV"));
        $r.= '</form>';
        return $r;
    }

References $r, from, from_poste, HtmlInput\hidden(), pa_id, HtmlInput\submit(), to, and to_poste.

Here is the call graph for this function:

button_export_pdf()

Anc_GrandLivre::button_export_pdf

(

$p_string = ""

)

Show the button to export in PDF all the receipt.

Parameters

$p_string

extra hidden value

Returns

string with the button

Definition at line 191 of file anc_grandlivre.class.php.

    {
        if (CONVERT_GIF_PDF <> 'NOT' && PDFTK <> 'NOT')
        {
            $r="";
            $r.= HtmlInput::hidden("to", $this->to);
            $r.= HtmlInput::hidden("from", $this->from);
            $r.= HtmlInput::hidden("pa_id", $this->pa_id);
            $r.= HtmlInput::hidden("from_poste", $this->from_poste);
            $r.= HtmlInput::hidden("to_poste", $this->to_poste);
            $r.= HtmlInput::hidden("act","PDF:AncReceipt");
 
            $r.= $p_string;
            $r.= dossier::hidden();
            $r.=HtmlInput::submit('bt_receipt_anal_pdf', _("Export des pièces en PDF"));
        } 
        else 
        {
            
            $r = "";
            $msg = _("Les extensions CONVERT_GIF_PDF et PDFTK pour convertir en pdf ne sont pas installées ");
            $r = HtmlInput::button("bt_receipt_anal", 
                        _('Export des pièces en PDF'), 
                    sprintf('onclick="smoke.alert(\'%s\')"',$msg));
        }
        return $r;
    }

References $msg, $r, HtmlInput\button(), from, from_poste, HtmlInput\hidden(), pa_id, HtmlInput\submit(), to, and to_poste.

Here is the call graph for this function:

display_csv()

Anc_GrandLivre::display_csv

(

)

Definition at line 356 of file anc_grandlivre.class.php.

    {
        $r="";
        //---Html
        $array=$this->load_csv();
        if ( is_array($array) == false )
        {
            return $array;
 
        }
 
        $ix=0;$prev='xx';
        $tot_deb=$tot_cred=0;
        $aheader=array();
        $aheader[]=array("title"=>'Imp. Analytique','type'=>'string');
        $aheader[]=array("title"=>'Date','type'=>'string');
        $aheader[]=array("title"=>'Date Pay','type'=>'string');
        $aheader[]=array("title"=>'Poste','type'=>'string');
        $aheader[]=array("title"=>'Quick_Code','type'=>'string');
        $aheader[]=array("title"=>'libelle','type'=>'string');
        $aheader[]=array("title"=>'tiers','type'=>'string');
        $aheader[]=array("title"=>'Pièce','type'=>'string');
        $aheader[]=array("title"=>'Num.interne','type'=>'string');
        $aheader[]=array("title"=>'row','type'=>'string');
        $aheader[]=array("title"=>'Debit','type'=>'num');
        $aheader[]=array("title"=>'Credit','type'=>'num');
        $aheader[]=array("title"=>'D/C','type'=>'string');
        $aheader[]=array("title"=>'Action','type'=>'string');
        $aheader[]=array("title"=>'Suivi','type'=>'string');
        $aheader[]=array("title"=>'Rapprochement pièce','type'=>'string');
        $aheader[]=array("title"=>'Rapprochement n° interne','type'=>'string');
        Impress::array_to_csv($array, $aheader,"export-anc-grandlivre");
    }

References $array, $ix, $prev, $r, $tot_cred, $tot_deb, Impress\array_to_csv(), and load_csv().

Here is the call graph for this function:

display_html()

Anc_GrandLivre::display_html

(

$p_with_ck = 1

)

compute the html display

Returns

string

Definition at line 225 of file anc_grandlivre.class.php.

   {
        $r = "";
        //---Html
        $array = $this->load();
        if (is_array($array) == false || empty($array))
        {
            return 0;
        }
        $r.= '<table class="result" style="width:100%;border-color:transparent">';
        $ix = 0;
        $prev = 'xx';
        $idx = 0;
        $tot_deb = $tot_cred = 0;
 
        bcscale(2);
        foreach ($array as $row)
        {
            if ($prev != $row['po_name'])
            {
                if ($ix > 0)
                {
                    $r.='<tr class="highlight">';
                    $tot_solde = bcsub($tot_cred, $tot_deb);
                    $sign = " ".(($tot_solde > 0) ? 'C' : 'D');
                    $r.=td('') . td('') . td('');
                    $r.=td('') . td('') . td('') . td('') . td('') . td(nbm($tot_deb), ' class="num"') . td(nbm($tot_cred), ' class="num"') . td(nbm($tot_solde) . $sign, ' class="num"');
                }
                $r.='<tr>' . '<td colspan="12" style="width:auto">' . '<h2>' . h($row['po_name'] . ' ' . $row['po_description']) . '</td></tr>';
                $r.= '<tr>' .
                        '<th>' . '</th>' .
                        '<th>' . _('Date') . '</th>' .
                        '<th>' . _('Poste') . '</th>' .
                        '<th>' . _('Quick_code') . '</th>' .
                        '<th>' . _('Libellé') . '</th>' .
                        th(_("Tiers")).
                        '<th>' . '</th>' .
                        '<th>' . _('Pièce') . '</th>' .
                        '<th>' . _('Interne') . '</th>' .
                        '<th style="text-align:right">' . _('Débit') . '</th>' .
                        '<th style="text-align:right">' . _('Crédit') . '</th>' .
                        '<th style="text-align:right">' . _('Prog.') . '</th>' .
                        '</tr>';
 
                $tot_deb = $tot_cred = 0;
                $prev = $row['po_name'];
                $ix++;
            }
            $class = ($idx % 2 == 0) ? 'even' : 'odd';
            $idx++;
            // find out exercice
            $exercice="";
            if ( $row['jr_tech_per'] != null )
            {
                $periode=new Periode($this->db,$row['jr_tech_per']);
                $exercice=$periode->get_exercice();
            }
            $r.='<tr class="' . $class . '">';
            $detail = ($row['jr_id'] != null) ? HtmlInput::detail_op($row['jr_id'], $row['jr_internal']) : '';
            $post_detail = ($row['j_poste'] != null) ? HtmlInput::history_account($row['j_poste'], $row['j_poste'],"",$exercice) : '';
            $card_detail = ($row['f_id'] != null) ? HtmlInput::history_card($row['f_id'], $row['qcode'],"",$exercice) : '';
            $amount_deb = ($row['oa_debit'] == 't') ? $row['oa_amount'] : 0;
            $amount_cred = ($row['oa_debit'] == 'f') ? $row['oa_amount'] : 0;
            $tot_deb = bcadd($tot_deb, $amount_deb);
            $tot_cred = bcadd($tot_cred, $amount_cred);
            $tot_solde=bcsub($tot_cred,$tot_deb);
 
            /*
             * Checked button
             */
            $str_ck = "";
            $str_document = "";
            if ($row['jr_id'] != null && $p_with_ck==1)
            {
                /*
                 * Get receipt info  
                 */
                $str_document = HtmlInput::show_receipt_document($row['jr_id']);
                if ($str_document != "")
                {
                    $ck = new ICheckBox('ck[]', $row['jr_id']);
                    $ck->set_range("document_export_ck");
                    $str_ck = $ck->input();
                }
            }
 
            $r.=
                    '<td>' . $str_ck . '</td>' .
                    '<td>' . $row['oa_date'] . '</td>' .
                    td($post_detail) .
                    td($card_detail) .
                    td($row['jr_comment']) .
                    td($row["qcode_tiers"]).
                    '<td>' . $str_document . '</td>' .
                    td($row['jr_pj_number']) .
                    '<td>' . $detail . '</td>' .
                    '<td class="num">' . nbm($amount_deb) . '</td>' .
                    '<td class="num">' . nbm($amount_cred). '</td>'.
                    '<td class="num">' . nbm($tot_solde). '</td>';
            $r.= '</tr>';
        }
        $r.='<tr class="highlight">';
        $tot_solde = bcsub($tot_cred, $tot_deb);
        $sign = ($tot_solde > 0) ? 'C' : 'D';
        $r.=td('') . td('') . td('');
        $r.=td('') . td('') . td('') . td('') . td('') . td(nbm($tot_deb), ' class="num"') . td(nbm($tot_cred), ' class="num"') . td(nbm($tot_solde) . $sign, '  class="num"');
 
        $r.= '</table>';
        $r.=ICheckBox::javascript_set_range("document_export_ck");
        return $r;
    }

References $amount_cred, $amount_deb, $array, $ck, $class, $detail, $exercice, $idx, $ix, $periode, $prev, $r, $row, $tot_cred, $tot_deb, db, HtmlInput\detail_op(), h, HtmlInput\history_account(), HtmlInput\history_card(), ICheckBox\javascript_set_range(), load(), nbm(), HtmlInput\show_receipt_document(), td(), and th().

Here is the call graph for this function:

load()

Anc_GrandLivre::load

(

)

load the data from the database

Returns

array

Definition at line 54 of file anc_grandlivre.class.php.

    {
      $filter_date=$this->set_sql_filter();
      $cond_poste='';
      if ($this->from_poste != "" )
            $cond_poste=" and upper(po_name) >= upper('".$this->from_poste."')";
        if ($this->to_poste != "" )
            $cond_poste.=" and upper(po_name) <= upper('".$this->to_poste."')";
        $pa_id_cond="";
        if ( isset ( $this->pa_id) && $this->pa_id !='')
            $pa_id_cond= "pa_id=".$this->pa_id." and";
        $array=$this->db->get_array("    select oa_id,
        po_name,
        oa_description,
        po_description,
        oa_debit,
        to_char(oa_date,'DD.MM.YYYY') as oa_date,
        oa_amount,
        oa_group,
        j_id ,
        jr_internal,
        jr_id,
        coalesce(jr_comment,b.oa_description) as jr_comment,
        case when j_poste is null and b.f_id is not null then
        (select ad_value from fiche_detail where fiche_detail.f_id=b.f_id and ad_id=23)
            when j_poste is not null then
            j_poste
            end as j_poste,
        coalesce(jrnx.f_id,b.f_id) as f_id,
        case when jrnx.f_id is not null then 
                 (select ad_value from fiche_Detail where f_id=jrnx.f_id and ad_id=23) 
                 when b.f_id is not null then
                 (select ad_value from fiche_Detail where f_id=b.f_id and ad_id=23)
        end
                 as qcode,
        jr_pj_number,
        jr_tech_per,
        ftiers.cardid,
        (select ad_value from fiche_detail where f_id=ftiers.cardid and ad_id=23) as qcode_tiers
        from operation_analytique as B join poste_analytique using(po_id)
        left join jrnx using (j_id)
        left join jrn on  (j_grpt=jr_grpt_id)
        left join (     select distinct qp_supplier as cardid,j_id from  quant_purchase qp 
                                        union
                                select distinct qs_client,j_id from  quant_sold qs  
                                union 
                                        select distinct qf_bank,j_id from  quant_fin qf ) as ftiers using (j_id)
             where $pa_id_cond oa_amount <> 0.0  $cond_poste  $filter_date
        order by po_name,oa_date::date,qcode,j_poste");
        $this->has_data=count($array);
        return $array;
    }

References $array, db, from_poste, pa_id, set_sql_filter(), and to_poste.

Referenced by display_html().

Here is the call graph for this function:

load_csv()

Anc_GrandLivre::load_csv

(

)

Definition at line 107 of file anc_grandlivre.class.php.

    {
      $filter_date=$this->set_sql_filter();
      $cond_poste='';
      if ($this->from_poste != "" )
            $cond_poste=" and upper(po_name) >= upper('".$this->from_poste."')";
        if ($this->to_poste != "" )
            $cond_poste.=" and upper(po_name) <= upper('".$this->to_poste."')";
        $pa_id_cond="";
        if ( isset ( $this->pa_id) && $this->pa_id !='')
            $pa_id_cond= "pa_id=".$this->pa_id." and";
        $array=$this->db->get_array("   select
        po_name,
        to_char(oa_date,'DD.MM.YYYY') as oa_date,
        to_char(jr_date_paid,'DD.MM.YY') as strdate_paid,
        case when j_poste is null and b.f_id is not null then
        (select ad_value from fiche_detail where fiche_detail.f_id=b.f_id and ad_id=5)
            when j_poste is not null then
            j_poste
            end as j_poste
        ,
        case when jrnx.f_id is not null then 
                 (select ad_value from fiche_Detail where f_id=jrnx.f_id and ad_id=23) 
                 when b.f_id is not null then
                 (select ad_value from fiche_Detail where f_id=b.f_id and ad_id=23)
        end
                 as qcode,
        coalesce(jr_comment,b.oa_description) as jr_comment,
        (select ad_value from fiche_detail where f_id=ftiers.cardid and ad_id=23) as qcode_tiers,
        coalesce (jr_pj_number,'') as jr_pj_number,
        coalesce(jr_internal,'') as jr_internal,
        coalesce(oa_group,0) as oa_group,
        case when oa_debit='t' then oa_amount else  0 end as amount_deb,
        case when oa_debit='f' then oa_amount else  0 end as amount_cred,
        case when oa_debit='f' then 'C' else  'D' end as deb_cred,
    ac.str_action   ,
    ag.str_action_ref ,
    (
        select string_agg( j10.jr_pj_number::text,'-')   
                from jrn j10
                left join (select jr10.jr_id , jr10.jra_concerned  from jrn_rapt jr10 ) as opr_cnc1 on (j10.jr_id=opr_cnc1.jr_id or j10.jr_id=opr_cnc1.jra_concerned)
                where 
                        opr_cnc1.jr_id=jrn.jr_id
                        or opr_cnc1.jra_concerned=jrn.jr_id) as agg_jr_pj_number,
    (
        select string_agg( j11.jr_internal::text,'-')   
                from jrn j11
                left join (select jr11.jr_id , jr11.jra_concerned  from jrn_rapt jr11 ) as opr_cnc2 on (j11.jr_id=opr_cnc2.jr_id or j11.jr_id=opr_cnc2.jra_concerned)
                where 
                        opr_cnc2.jr_id=jrn.jr_id
                        or opr_cnc2.jra_concerned=jrn.jr_id) as agg_jr_internal
        from operation_analytique as B join poste_analytique using(po_id)
        left join jrnx using (j_id)
        left join jrn on  (j_grpt=jr_grpt_id)
        left join (     select distinct qp_supplier as cardid,j_id from  quant_purchase qp 
                                        union
                                select distinct qs_client,j_id from  quant_sold qs  
                                union 
                                        select distinct qf_bank,j_id from  quant_fin qf ) as ftiers using (j_id)
    left join (select j.jr_id,string_agg( ag_id::text,'-') as str_action 
                from jrn j  left 
                join action_gestion_operation ago  on (j.jr_id=ago.jr_id ) 
                group by j.jr_id) as ac on (ac.jr_id=jrn.jr_id) 
   left join (select j9.jr_id,string_agg( ag9.ag_ref::text,'-') as str_action_ref 
                from jrn j9  left 
                join action_gestion_operation ago9  on (j9.jr_id=ago9.jr_id )
                join action_gestion ag9 on (ag9.ag_id =ago9.ag_id )
                group by j9.jr_id) as ag on (ag.jr_id=jrn.jr_id) 
    where 
        $pa_id_cond oa_amount <> 0.0  $cond_poste $filter_date
        order by po_name,oa_date::date,qcode,j_poste
        
");
 
 
        return $array;
    }

References $array, db, from_poste, pa_id, set_sql_filter(), and to_poste.

Referenced by display_csv().

Here is the call graph for this function:

set_sql_filter()

Anc_GrandLivre::set_sql_filter

(

)

Set the filter (account_date)

Returns

return the string to add to load

Reimplemented from Anc_Print.

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

    {
        $sql="";
        $and=" and ";
        if ( $this->from != "" )
        {
            $sql.="$and oa_date >= to_date('".$this->from."','DD.MM.YYYY')";
        }
        if ( $this->to != "" )
        {
            $sql.=" $and oa_date <= to_date('".$this->to."','DD.MM.YYYY')";
        }
 
        return $sql;
 
    }

References $sql, from, and to.

Referenced by load(), and load_csv().

---

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

• include/class/anc_grandlivre.class.php