[Phpcompta-dev] r4111 - phpcompta/trunk/include

[phpcompta-dev]

Author: danydb
Date: 2011-05-17 23:22:54 +0200 (Tue, 17 May 2011)
New Revision: 4111

Added:
   phpcompta/trunk/include/class_anc_grandlivre.php
Modified:
   phpcompta/trunk/include/anc_imp.inc.php
Log:
0000252: Le grand livre analytique (TBD)



Modified: phpcompta/trunk/include/anc_imp.inc.php
===================================================================
--- phpcompta/trunk/include/anc_imp.inc.php     2011-05-16 17:17:56 UTC (rev 
4110)
+++ phpcompta/trunk/include/anc_imp.inc.php     2011-05-17 21:22:54 UTC (rev 
4111)
@@ -33,11 +33,12 @@
 require_once('ac_common.php');
 
 //-- the menu
-$menu=array(array("?p_action=ca_imp&sub=listing&$str_dossier",_("Listing"),_("Listing
 des opérations"),"listing"),
+$menu=array(array("?p_action=ca_imp&sub=listing&$str_dossier",_("Historique"),_("Historique
 des opérations"),"listing"),
+            array("?p_action=ca_imp&sub=ancgl&$str_dossier",_("grand 
livre"),_("Grand livre d' plan analytique"),"ancgl"),
             array("?p_action=ca_imp&sub=bs&$str_dossier",_("Balance 
simple"),_("Balance simple d'un plan analytique"),"bs"),
             array("?p_action=ca_imp&sub=bc2&$str_dossier",_("Balance 
croisée"),_("Balance croisée de 2 plans analytiques"),"bc2"),
            
array("?p_action=ca_imp&sub=tab&$str_dossier",_("Tableau"),_("Tableau lié à la 
comptabilité"),'tab'),
-           array("?p_action=ca_imp&sub=lico&$str_dossier",_("Lien 
comptabilité"),_("Lien entre comptabilité et Comptabilité analytique"),'lico'),
+           array("?p_action=ca_imp&sub=lico&$str_dossier",_("Balance 
comptabilité"),_("Lien entre comptabilité et Comptabilité analytique"),'lico'),
            
array("?p_action=ca_imp&sub=groupe&$str_dossier",_("Groupe"),_("Balance par 
groupe"),'gr'),
 
            );
@@ -66,7 +67,7 @@
     //---- result
     if ( isset($_GET['result']) )
     {
-        echo '<div class="u_redcontent">';
+        echo '<div class="content">';
 
         //--------------------------------
         // export Buttons
@@ -151,3 +152,19 @@
     }
   }
 
+//---------------------------------------------------------------------------
+if ( $sub == 'ancgl')
+  {
+    require_once('class_anc_grandlivre.php');
+    $gl=new Anc_GrandLivre($cn);
+    $gl->get_request();
+    echo '<form method="get">';
+    echo $gl->display_form($str_hidden);
+    echo '<p>'.HtmlInput::submit('Recherche','Recherche').'</p>';
+    echo '</form>';
+    if ( isset($_GET['result']))
+    {
+      //        echo $gl->show_button($str_hidden);
+       echo $gl->display_html();
+    }
+  }
\ No newline at end of file

Added: phpcompta/trunk/include/class_anc_grandlivre.php
===================================================================
--- phpcompta/trunk/include/class_anc_grandlivre.php                            
(rev 0)
+++ phpcompta/trunk/include/class_anc_grandlivre.php    2011-05-17 21:22:54 UTC 
(rev 4111)
@@ -0,0 +1,152 @@
+<?php
+/*
+ *   This file is part of PhpCompta.
+ *
+ *   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.
+ *
+ *   PhpCompta 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
+*/
+/* $Revision$ */
+
+// Copyright Author Dany De Bontridder address@hidden
+
+/*!\file
+ * \brief show the Grand Livre for analytic
+ */
+require_once('class_anc_print.php');
+
+class Anc_GrandLivre extends Anc_Print
+{
+      /*!
+     * \brief load the data from the database
+     *
+     * \return array
+     */
+    function load()
+    {
+      $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, 
+       jr_comment,
+       j_poste,
+       jrnx.f_id,
+       ( select ad_value from fiche_Detail where f_id=jrnx.f_id and ad_id=23) 
as qcode
+       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)
+             where $pa_id_cond oa_amount <> 0.0  $cond_poste
+       order by po_name,oa_date ,qcode,j_poste");
+
+       
+        return $array;
+    }
+   /*!
+     * \brief compute the html display
+     *
+     *
+     * \return string
+     */
+
+    function display_html()
+    {
+        $r="";
+        //---Html
+        $array=$this->load();
+        if ( is_array($array) == false )
+        {
+            return $array;
+
+        }
+
+        if ( empty($array) )
+        {
+            $r.= _("aucune donnée");
+            return $r;
+        }
+        $r.= '<table class="result" style="width=100%">';
+       $ix=0;$prev='xx';
+       $tot_deb=$tot_cred=0;
+        foreach ( $array as $row )
+        {
+         if ($prev != $row['po_name'])
+           {
+             if ( $ix>0)
+               {
+                 $r.='<tr>';
+                 $tot_solde=bcsub($tot_cred,$tot_deb);
+                 $sign=($tot_solde>0)?'C':'D';
+                 $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="7" 
style="width:auto">'.'<h2>'.h($row['po_name'].' 
'.$row['po_description']).'</td></tr>';
+             $r.= '<tr>'.
+               '<th>'._('Date').'</th>'.
+               '<th>'._('Poste').'</th>'.
+               '<th>'._('Quick_code').'</th>'.
+               '<th>'._('libelle').'</th>'.
+               '<th>'._('Num.interne').'</th>'.
+               '<th style="text-align:right">'._('Debit').'</th>'.
+               '<th style="text-align:right">'._('Credit').'</th>'.
+               '</tr>';
+
+             $tot_deb=$tot_cred=0;
+             $prev=$row['po_name'];
+             $ix++;
+           }
+             
+            $r.= '<tr>';
+           $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']):'';
+           $card_detail=($row['f_id'] != 
null)?HtmlInput::history_card($row['f_id'],$row['qcode']):'';
+           $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);
+
+            $r.=
+                '<td>'.$row['oa_date'].'</td>'.
+             td($post_detail).
+             td($card_detail).
+             //              '<td>'.h($row['oa_description']).'</td>'.
+             td($row['jr_comment']).
+             '<td>'.$detail.'</td>'.
+             '<td class="num">'.nbm($amount_deb).'</td>'.
+             '<td class="num">'.nbm($amount_cred)
+             .'</td>';
+            $r.= '</tr>';
+        }
+       $r.='<tr>';
+       $tot_solde=bcsub($tot_cred,$tot_deb);
+       $sign=($tot_solde>0)?'C':'D';
+       $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>';
+        return $r;
+    }
+}
\ No newline at end of file