altocompta/include/class_bud_synthese_group.php

<?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 ddebontridder@yahoo.fr

/*!\file 
 * \brief Manage the hypothese for the budget module
 *  synthese
 */
/*!
 * \brief Manage the hypothese for the budget module
 *  synthese
 */
require_once ('class_widget.php');
require_once ('class_bud_synthese.php');
require_once ('class_acc_account_ledger.php');
require_once ('class_bud_hypo.php');

class Bud_Synthese_Group extends Bud_Synthese {
  function from_array($p_array) {
    parent::from_array($p_array);
    foreach (array('ga_id') as $r) {
      $this->$r=(isset($p_array[$r]))?$p_array[$r]:"";
    }
  }
  function select_hypo() {
    $hypo=make_array($this->cn,'select bh_id, bh_name from bud_hypothese order by bh_name');
    $wSelect = new widget('select');
    $wSelect->name='bh_id';
    $wSelect->value=$hypo;
    $wSelect->selected=$this->bh_id;
    $wSelect->javascript='onChange=this.form.submit()';

    $r="Choississez l'hypoth&egrave;se :".$wSelect->IOValue();
    $r.=dossier::hidden();
    return $r;
  }
  function form() {
    /*    2nd Step
    */
    
    if  ( $this->bh_id == 0 ) 
      throw new Exception ("bh_id n'est pas selectionne");
    $hypo=new Bud_Hypo($this->cn);
    $hypo->bh_id=$this->bh_id;
    $hypo->load();
    $fga_id=0;
    if ($hypo->has_plan() == 1 ) {
      $anc_value=make_array($this->cn,"select distinct ga_id, ".
			    " ga_id||'-'||substr(ga_description,10) as ga_description ".
			    "from groupe_analytique ".
			    " join poste_analytique using (ga_id) ".
			    " join bud_detail using (po_id) ".
			    " where bh_id=".$this->bh_id,1);
      if ( count($anc_value) > 0 ) {
	$wGa_id=new widget("select");
	$wGa_id->name="ga_id";
	$wGa_id->value=$anc_value;
	$wGa_id->selected=$this->ga_id;
	$fga_id=1;
      }
    }
    $per=make_array($this->cn,"select p_id,to_char(p_start,'MM.YYYY') ".
		    " from parm_periode order by p_start,p_end");

    $wFrom=new widget('select');
    $wFrom->name='from';
    $wFrom->value=$per;
    $wFrom->selected=$this->from;
    
    $wto=new widget('select');
    $wto->name='to';
    $wto->value=$per;
    $wto->selected=$this->to;

    $r="";
    $r.="Periode de ".$wFrom->IOValue()." &agrave; ".$wto->IOValue();
    /* if there a group analytic */
    if ( $fga_id==1) 
      $r.="Groupe  ".$wGa_id->IOValue();
    $r.=dossier::hidden();
    return $r;
  }
  /*!\brief get all the value and return and array
   * \return Array, the prefix BD : amount taken from the budget
   * module, and acc from the accountancy
(
    [6510] => Array
        (
            [total_bud] => 74
            [total_acc] => 0
            [BD_79] => 2
            [AC_79] => 0
            [BD_80] => 43
            [AC_80] => 0
            [BD_81] => 4
            [AC_81] => 0
            [BD_82] => 5
            [AC_82] => 0
            [BD_83] => 0
            [AC_83] => 0
            [BD_84] => 6
            [AC_84] => 0
            [BD_85] => 7
            [AC_85] => 0
            [BD_86] => 7
            [AC_86] => 0
            [BD_87] => 0
            [AC_87] => 0
            [BD_88] => 0
            [AC_88] => 0
            [BD_89] => 0
            [AC_89] => 0
            [BD_90] => 0
            [AC_90] => 0
            [BD_91] => 0
            [AC_91] => 0
        )

    [6040001] => Array
        (
            [total_bud] => 78
            [total_acc] => 0
            [79] => 1
            [AC_79] => 0
            [BD_80] => 2
            [AC_80] => 0
            [BD_81] => 3
            [AC_81] => 0
            [BD_82] => 4
            [AC_82] => 0
            [BD_83] => 5
            [AC_83] => 0
            [BD_84] => 6
            [AC_84] => 0
            [BD_85] => 7
            [AC_85] => 0
            [BD_86] => 8
            [AC_86] => 0
            [BD_87] => 9
            [AC_87] => 0
            [BD_88] => 10
            [AC_88] => 0
            [BD_89] => 11
            [AC_89] => 0
            [BD_90] => 12
            [AC_90] => 0
            [BD_91] => 0
            [AC_91] => 0
        )

)
 */
  function load() {
    $per=sql_filter_per($this->cn,$this->from,$this->to,'p_id','p_id');
    $hypo=new Bud_Hypo($this->cn);
    $hypo->bh_id=$this->bh_id;
    $hypo->load();
    if ($hypo->has_plan() == 1 && $this->ga_id != "" )
      $sql="select bc_price_unit,pcm_val,sum(bdp_amount) as amount,p_id ".
	" from bud_detail join bud_detail_periode using (bd_id) ".
	" join poste_analytique using (po_id) ".
	" join bud_card using (bc_id) ".
	" where ".
	" ga_id ='".$this->ga_id."'".
	" and bud_detail.bh_id=".$this->bh_id.
	" and $per ".
	" group by pcm_val,p_id,bc_price_unit order by pcm_val,p_id";
    else 
      $sql="select bc_price_unit,pcm_val,sum(bdp_amount) as amount,p_id ".
	" from bud_detail join bud_detail_periode using (bd_id) ".
	" join bud_card using (bc_id) ".
	" where ".
	" bud_detail.bh_id=".$this->bh_id.
	" and $per ".
	" group by pcm_val,p_id,bc_price_unit order by pcm_val,p_id";

    $res=get_array($this->cn,$sql);
    echo_debug(__FILE__.':'.__LINE__.'- load','$res',$res);
    $pcm_val="";
    $old="XX";
    $sub=array();
    if ( empty($res) )
      return;

    foreach ($res as $row) {
      $pcm_val=$row['pcm_val'];

      // first loop
      if ( $old=="XX") {
	$old=$pcm_val;
      }
      if ( $pcm_val == $old ) {
	$per='BD_'.$row['p_id'];
	$sub[$per]=(isset($sub[$per]))?$sub[$per]:0;
	$sub[$per]+=$row['amount']*$row['bc_price_unit'];
      } else {
	// save the array
	$array[$old]=$sub;
	$old=$pcm_val;
	$per='BD_'.$row['p_id'];
	// reinitialize array
	$sub=array();
	$sub[$per]=(isset($sub[$per]))?$sub[$per]:0;
	$sub[$per]+=$row['amount']*$row['bc_price_unit'];

      }
    }
    // save the last value
    $array[$old]=$sub;

    // Add amount from Accountancy
    $tmp=$array;
    $acc=new Acc_Account_Ledger($this->cn,0);
    // $key is the pcm_val and the amount is an array of amount
    // (index = periode)
    foreach ($array as $key=>$amount) {
      $sub=array();
      $sub['total_bud']=0;
      $sub['total_acc']=0;
      foreach ($amount as $periode=>$value){
	$sub[$periode]=$value;
	$sub['total_bud']+=$value;
	$tp=str_replace('BD_','',$periode);
	// ACC
	$idx_acc="AC_".$tp;
	$acc->id=$key;

	$sub[$idx_acc]=$acc->get_solde("j_tech_per =".$tp);
	$sub['total_acc']+=$sub[$idx_acc];
      }
      $tmp[$key]=$sub;
    }
    $array=$tmp;



    return $array;
  }
  /*!\brief compute the sum for the heading and footing row of the
     table 
     \param the array is what load return
\return Array
(
    [BD_79] => 0
    [BD_80] => 0
    [BD_81] => 45
    [BD_82] => 7
    [BD_83] => 9
    [BD_84] => 5
    [BD_85] => 12
    [BD_86] => 14
    [BD_87] => 15
    [BD_88] => 9
    [BD_89] => 10
    [BD_90] => 11
    [BD_91] => 12
    [AC_79] => 0
    [AC_80] => 0
    [AC_81] => 0
    [AC_82] => 0
    [AC_83] => 0
    [AC_84] => 0
    [AC_85] => 0
    [AC_86] => 0
    [AC_87] => 0
    [AC_88] => 0
    [AC_89] => 0
    [AC_90] => 0
    [AC_91] => 0
)
Array
(
    [6510] => 6510
    [BD_79] => 2
    [BD_80] => 45
    [BD_81] => 7
    [BD_82] => 9
    [BD_83] => 5
    [BD_84] => 12
    [BD_85] => 14
    [BD_86] => 15
    [BD_87] => 9
    [BD_88] => 10
    [BD_89] => 11
    [BD_90] => 12
    [BD_91] => 0
    [AC_79] => 0
    [AC_80] => 0
    [AC_81] => 0
    [AC_82] => 0
    [AC_83] => 0
    [AC_84] => 0
    [AC_85] => 0
    [AC_86] => 0
    [AC_87] => 0
    [AC_88] => 0
    [AC_89] => 0
    [AC_90] => 0
    [AC_91] => 0
    [6040001] => 6040001
) */
  function head_foot($p_array) {
    if ( empty ($p_array ) ) return;
    $foot=array();
    $head=array();
    // get the initial value from anc_hypo
    $hypo=new Bud_Hypo($this->cn);
    $hypo->bh_id=$this->bh_id;
    $hypo->load();
    $initial=$hypo->bh_saldo;
    $per=get_array($this->cn,"select p_id,to_char(p_start,'MM.YYYY') as d".
		   " from parm_periode ".
		   " where p_id between ".$this->from.' and '.
		   $this->to." order by p_start" );
    echo_debug(__FILE__.':'.__LINE__.'- head_foot','hypo',$hypo);
    // the key is the pcm_val and the amount is an array
    foreach ($p_array as $key=>$value) {
      echo_debug(__FILE__.':'.__LINE__.'- head_foot','$key',$key);
      echo_debug(__FILE__.':'.__LINE__.'- head_foot','$value',$value);
      foreach($value as $per=>$amount) {
	$foot[$per]=(isset($foot[$per]))?$foot[$per]:0;
	$foot[$per]+=$amount;
      }
    }

    echo_debug(__FILE__.':'.__LINE__.'- head_foot','$foot',$foot);

    //-- now we have the total of each column in $foot
    // we need to report the value
    $tmp=array();
    $acc_previous=$initial;
    $bud_previous=$initial;

    foreach ($foot as $per=>$amount) {
      $tmp[$per]=(isset($tmp[$per]))?$tmp[$per]:0;
      $tmp[$per]+=$amount;
      echo_debug(__FILE__.':'.__LINE__.'- head_foot','testing strpos BD_ $per',$per);
      echo_debug(__FILE__.':'.__LINE__.'- head_foot','result of strpos',strpos($per,'BD_'));
      if ( strpos($per,'BD_')===0) {
	echo_debug(__FILE__.':'.__LINE__.'- head_foot','adding the previous ',$bud_previous);
	$head[$per]=$bud_previous;
	$tmp[$per]+=$bud_previous;
	$bud_previous=$tmp[$per];
      }
      if ( strpos($per,'AC_')===0) {
	$head[$per]=$acc_previous;
	$tmp[$per]+=$acc_previous;
	$anc_previous=$tmp[$per];
      }

      
    }
    $foot=$tmp;
    /* remark the total include the initial value ???
     *
       $foot['total_bud']+=$initial;
       $foot['total_acc']+=$initial_acc;
    */


    echo_debug(__FILE__.':'.__LINE__.'- head_foot','after report $foot',$foot);
    return array($head,$foot);
  }


  function display_html($p_array) {
    $r="";
    $persql=sql_filter_per($this->cn,$this->from,$this->to,'p_id','p_id');
    list ($head,$foot)=$this->head_foot($p_array);
    $per=get_array($this->cn,"select p_id,to_char(p_start,'MM.YYYY') as d".
		   " from parm_periode ".
		   " where $persql");
    $r.='<table>';
    $heading="<tr><th> CE </th>";
    foreach( $per as $c) { 
      $heading.='<th>'.$c['d'].'</th>';
      $heading.='<th> CE'.$c['d'].'</th>';
    }
    $heading.="<th>Tot. Cout</th>";
    $heading.="<th>Resultat</th></tr>";
    $r.=$heading;
    //show header
    $r.='<td></td>';
    foreach ($per as $c) {
      $idx_bud='BD_'.$c['p_id'];
      $idx_acc='AC_'.$c['p_id'];
      $r.='<td align="right">'.sprintf('% 10.2f',$head[$idx_bud]).'</td>';
      $r.='<td align="right">'.sprintf('% 10.2f',$head[$idx_acc]).'</td>';
    }
    $r.='<td></td>';
    $r.='<td></td>';
    $r.='</tr>';
    // content
    if ( empty($p_array))
      return;
    foreach ($p_array as $key => $value ){
      $r.='<tr>';
      $r.='<td>'.$key.'</td>';
      foreach ( $per as $c) {
	$ix_acc='AC_'.$c['p_id'];
	$ix_bud='BD_'.$c['p_id'];
	$color="";
	if ( strpos($key,'6') === 0 ) {
	  if ( $value[$ix_acc] > $value[$ix_bud] )
	    $color="red";
	  else 
	    $color="lightgreen";
	}
	if ( strpos($key,'7') === 0 || strpos($key,'5')===0 ) {
	  if ( $value[$ix_acc] < $value[$ix_bud] )
	    $color="red";
	  else 
	    $color="lightgreen";

	}
	$r.=sprintf('<td align="right">% 10.2f</td>',$value[$ix_bud]);
	$r.=sprintf('<td bgcolor="%s" align="right">% 10.2f</td>',$color,$value[$ix_acc]);

      }
      $r.=sprintf('<td align="right">% 10.2f</td>',$value['total_bud']);
      $r.=sprintf('<td align="right">% 10.2f</td>',$value['total_acc']);
      $r.='</tr>';
    }
    $r.='<tr>';
    $r.='<td></td>';
    foreach ($per as $c) {
      $idx_bud='BD_'.$c['p_id'];
      $idx_acc='AC_'.$c['p_id'];
      $r.='<td align="right">'.sprintf('% 10.2f',$foot[$idx_bud]).'</td>';
      $r.='<td align="right">'.sprintf('% 10.2f',$foot[$idx_acc]).'</td>';
    }
    $r.=sprintf('<td align="right">% 10.2f</td>',$foot['total_bud']);
    $r.=sprintf('<td align="right">% 10.2f</td>',$foot['total_acc']);

    $r.='</tr>';
    $r.='</table>';
    return $r;
  }
  function display_csv($p_array) {
    $r="";
    list ($head,$foot)=$this->head_foot($p_array);
    $per=get_array($this->cn,"select p_id,to_char(p_start,'MM.YYYY') as d".
		   " from parm_periode ".
		   " where p_id between ".$this->from.' and '.
		   $this->to." order by p_start" );
    $heading='"CE",';
    foreach( $per as $c) { 
      $heading.='"'.$c['d'].'",';
      $heading.='"CE'.$c['d'].'",';
    }
    $heading.='"Tot. Cout",';
    $heading.='"Resultat"';
    $r.=$heading;
    //show header
    $r.="\r\n";
    $r.='"",';
    foreach ($per as $c) {
      $idx_bud='BD_'.$c['p_id'];
      $idx_acc='AC_'.$c['p_id'];
      $r.=sprintf('% 10.2f,',$head[$idx_bud]);
      $r.=sprintf('% 10.2f,',$head[$idx_acc]);
    }
    $r.='"",';
    $r.='""';

    // content

    foreach ($p_array as $key => $value ){
      $r.="\r\n";
      $r.='"'.$key.'",';
      foreach ( $per as $c) {
	$ix_acc='AC_'.$c['p_id'];
	$ix_bud='BD_'.$c['p_id'];
	$r.=sprintf('% 10.2f,',$value[$ix_bud]);
	$r.=sprintf('% 10.2f,',$value[$ix_acc]);
      }
      $r.=sprintf('% 10.2f,',$value['total_bud']);
      $r.=sprintf('% 10.2f',$value['total_acc']);
    }
    $r.="\r\n";
    $r.='"",';

    foreach ($per as $c) {
      $idx_bud='BD_'.$c['p_id'];
      $idx_acc='AC_'.$c['p_id'];
      $r.=sprintf('% 10.2f,',$foot[$idx_bud]);
      $r.=sprintf('% 10.2f,',$foot[$idx_acc]);
    }
    $r.=sprintf('% 10.2f,',$foot['total_bud']);
    $r.=sprintf('% 10.2f',$foot['total_acc']);

    $r.="\r\n";
    return $r;
  }

  function hidden() {
    $r="";
    foreach (array('bh_id','ga_id','from','to') as $e)
      $r.=widget::hidden($e,$this->$e);
    return $r;
  }

  static function test_me() {
    $cn=DbConnect(dossier::id());
    $obj=new Bud_Synthese_Group($cn);
    echo '<form method="GET">';
	echo widget::hidden('test_select',$_REQUEST['test_select']);
    echo $obj->select_hypo();
    echo widget::submit('recherche','recherche');
    echo '</form>';
    if ( isset($_GET['recherche'])) {
      $obj->from_array($_GET);
      echo '<form method="GET">';
      echo $obj->form();
      echo widget::hidden('bh_id',$obj->bh_id);
	  echo widget::hidden('test_select',$_REQUEST['test_select']);
      echo widget::submit('recherche2','recherche');
      echo '</form>';
    }
    if ( isset($_GET['recherche2'])){
      print_r($_GET);
      $obj->from_array($_GET);

      echo 'ICI';
      $res=$obj->load();
      print_r($res);
      echo '<hr>';
      list($head_table,$foot_table)=$obj->head_foot($res);
      echo '<hr>';

      print_r($head_table);
      print_r($foot_table);
      echo $obj->display_html($res);
    }
  }


}