mirror of
https://github.com/YunoHost-Apps/noalyss_ynh.git
synced 2024-09-03 19:46:20 +02:00
336 lines
10 KiB
PHP
336 lines
10 KiB
PHP
|
<?php
|
||
|
|
/*
|
||
|
|
* This file is part of NOALYSS.
|
||
|
|
*
|
||
|
|
* NOALYSS 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 NOALYSS; if not, write to the Free Software
|
||
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||
|
|
*/
|
||
|
|
|
||
|
|
// Copyright Author Dany De Bontridder danydb@aevalys.eu
|
||
|
|
|
||
|
|
/*!\file
|
||
|
|
\brief manage the simple balance for CA, inherit from balance_ca
|
||
|
|
*/
|
||
|
|
|
||
|
|
require_once NOALYSS_INCLUDE.'/lib/ihidden.class.php';
|
||
|
|
require_once NOALYSS_INCLUDE.'/class/anc_print.class.php';
|
||
|
|
require_once NOALYSS_INCLUDE.'/class/anc_plan.class.php';
|
||
|
|
require_once NOALYSS_INCLUDE.'/lib/ac_common.php';
|
||
|
|
require_once NOALYSS_INCLUDE.'/lib/pdf.class.php';
|
||
|
|
require_once NOALYSS_INCLUDE.'/header_print.php';
|
||
|
|
/*! \brief manage the simple balance for CA, inherit from balance_ca
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
class Anc_Balance_Simple extends Anc_Print
|
||
|
|
{
|
||
|
|
|
||
|
|
/*!
|
||
|
|
* \brief load the data from the database
|
||
|
|
*
|
||
|
|
* \return array
|
||
|
|
*/
|
||
|
|
function load()
|
||
|
|
{
|
||
|
|
$filter=$this->set_sql_filter();
|
||
|
|
// sum debit
|
||
|
|
|
||
|
|
$sql="select m.po_id,sum(deb) as sum_deb,sum(cred) as sum_cred,";
|
||
|
|
$sql.=" po_name||' '||coalesce(po_description,'') as po_name";
|
||
|
|
$sql.=",ga_description ";
|
||
|
|
$sql.=" from ";
|
||
|
|
$sql.=" (select po_id,case when oa_debit='t' then oa_amount else 0 end as deb,";
|
||
|
|
$sql.="case when oa_debit='f' then oa_amount else 0 end as cred ";
|
||
|
|
$sql.=" from operation_analytique join poste_analytique using(po_id)";
|
||
|
|
$sql.=(empty($filter) == false)?" where ".$filter:"";
|
||
|
|
$sql.=" ) as m join poste_analytique using (po_id)";
|
||
|
|
$sql.=" left join groupe_analytique on ( poste_analytique.ga_id=groupe_analytique.ga_id)";
|
||
|
|
$sql.=" where poste_analytique.pa_id=".$this->pa_id;
|
||
|
|
$sql.=" group by po_id,po_name,po_description,ga_description";
|
||
|
|
$sql.=" order by po_name";
|
||
|
|
|
||
|
|
$res=$this->db->exec_sql($sql);
|
||
|
|
|
||
|
|
if ( Database::num_row($res) == 0 ) {
|
||
|
|
$this->has_data=0;
|
||
|
|
return null;
|
||
|
|
}
|
||
|
|
$a=array();
|
||
|
|
$count=0;
|
||
|
|
$array=Database::fetch_all($res);
|
||
|
|
foreach ($array as $row)
|
||
|
|
{
|
||
|
|
$a[$count]['po_id']=$row['po_id'];
|
||
|
|
$a[$count]['sum_deb']=$row['sum_deb'];
|
||
|
|
$a[$count]['sum_cred']=$row['sum_cred'];
|
||
|
|
$a[$count]['po_name']=$row['po_name'];
|
||
|
|
$a[$count]['ga_description']=$row['ga_description'];
|
||
|
|
$a[$count]['solde']=abs($row['sum_deb']-$row['sum_cred']);
|
||
|
|
$a[$count]['debit']=($row['sum_deb']>$row['sum_cred'])?"debit":"credit";
|
||
|
|
$count++;
|
||
|
|
}
|
||
|
|
$this->has_data=$count;
|
||
|
|
return $a;
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
/*!
|
||
|
|
* \brief Set the filter (account_date)
|
||
|
|
*
|
||
|
|
* \return return the string to add to load
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
function set_sql_filter()
|
||
|
|
{
|
||
|
|
$sql="";
|
||
|
|
$and="";
|
||
|
|
if ( $this->from != "" )
|
||
|
|
{
|
||
|
|
$sql.=" oa_date >= to_date('".$this->from."','DD.MM.YYYY')";
|
||
|
|
$and=" and ";
|
||
|
|
}
|
||
|
|
if ( $this->to != "" )
|
||
|
|
{
|
||
|
|
$sql.=" $and oa_date <= to_date('".$this->to."','DD.MM.YYYY')";
|
||
|
|
$and=" and ";
|
||
|
|
}
|
||
|
|
if ( $this->from_poste != "" )
|
||
|
|
{
|
||
|
|
$sql.=" $and upper(po_name)>= upper('".$this->from_poste."')";
|
||
|
|
$and=" and ";
|
||
|
|
}
|
||
|
|
if ( $this->to_poste != "" )
|
||
|
|
{
|
||
|
|
$sql.=" $and upper(po_name)<= upper('".$this->to_poste."')";
|
||
|
|
$and=" and ";
|
||
|
|
}
|
||
|
|
return $sql;
|
||
|
|
|
||
|
|
}
|
||
|
|
/*!
|
||
|
|
* \brief compute the html display
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* \return string
|
||
|
|
*/
|
||
|
|
function display_html()
|
||
|
|
{
|
||
|
|
$r="<table class=\"result\">";
|
||
|
|
$r.="<tr>";
|
||
|
|
$r.="<th>Poste comptable Analytique</th>";
|
||
|
|
$r.="<th>Groupe</th>";
|
||
|
|
$r.="<th>Débit</th>";
|
||
|
|
$r.="<th>Crédit</th>";
|
||
|
|
$r.="<th>Solde</th>";
|
||
|
|
$r.="<th>D/C</th>";
|
||
|
|
$r.="</tr>";
|
||
|
|
|
||
|
|
$array=$this->load();
|
||
|
|
$odd=0;
|
||
|
|
if ( is_array($array) == false )
|
||
|
|
{
|
||
|
|
return $array;
|
||
|
|
|
||
|
|
}
|
||
|
|
bcscale(2);
|
||
|
|
$deb_side=0;$cred_side=0;
|
||
|
|
foreach ( $array as $row)
|
||
|
|
{
|
||
|
|
$odd++;
|
||
|
|
|
||
|
|
$r.=($odd%2==0)?'<tr class="odd">':'<tr class="even">';
|
||
|
|
// the name and po_id
|
||
|
|
// $r.=sprintf("<td>%s</td>",$row['po_id']);
|
||
|
|
$r.=sprintf("<td align=\"left\">%s</td>",h($row['po_name']));
|
||
|
|
$r.=sprintf("<td align=\"left\">%s</td>",h($row['ga_description']));
|
||
|
|
$r.=td(nbm($row['sum_deb']),' class="num"');
|
||
|
|
$r.=td(nbm($row['sum_cred']),' class="num"');
|
||
|
|
$r.=td(nbm($row['solde']),' class="num"');
|
||
|
|
$deb=($row['sum_deb'] > $row['sum_cred'])?"D":"C";
|
||
|
|
$deb=($row['solde'] == 0 )?'':$deb;
|
||
|
|
$r.=sprintf("<td>%s</td>",$deb);
|
||
|
|
$r.="</tr>";
|
||
|
|
$deb_side=bcadd($deb_side,$row['sum_deb']);
|
||
|
|
$cred_side=bcadd($cred_side,$row['sum_cred']);
|
||
|
|
|
||
|
|
}
|
||
|
|
$r.='<tr class="highlight">';
|
||
|
|
$r.=td(_("Total"));
|
||
|
|
$r.=td(" ");
|
||
|
|
$r.=td(nbm($deb_side),'class="num"');
|
||
|
|
$r.=td(nbm($cred_side),'class="num"');
|
||
|
|
$solde_side=abs(bcsub($deb_side,$cred_side));
|
||
|
|
$r.=td(nbm($solde_side),'class="num"');
|
||
|
|
if ( $deb_side == $cred_side ) $r.=td("=");
|
||
|
|
else if ( $deb_side > $cred_side ) $r.=td("D");
|
||
|
|
else $r.=td("C");
|
||
|
|
$r.="</table>";
|
||
|
|
return $r;
|
||
|
|
}
|
||
|
|
/*!
|
||
|
|
* \brief Compute the form to display
|
||
|
|
* \param $p_hidden hidden tag to be included (gDossier,...)
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* \return string containing the data
|
||
|
|
*/
|
||
|
|
function display_form($p_string="")
|
||
|
|
{
|
||
|
|
$r=parent::display_form($p_string);
|
||
|
|
|
||
|
|
$r.= HtmlInput::submit('Affiche', _('Rechercher'));
|
||
|
|
|
||
|
|
return $r;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
* \brief Display the result in pdf
|
||
|
|
*
|
||
|
|
* \return none
|
||
|
|
*/
|
||
|
|
function display_pdf()
|
||
|
|
{
|
||
|
|
$array=$this->load();
|
||
|
|
$pdf=new PDFBalance_Simple($this->db);
|
||
|
|
$pdf->set_info($this->from_poste,$this->to_poste,$this->from,$this->to);
|
||
|
|
$pdf->AliasNbPages();
|
||
|
|
$pdf->AddPage();
|
||
|
|
$pdf->setTitle("Balance analytique",true);
|
||
|
|
|
||
|
|
$pdf->SetFont('DejaVu','',6);
|
||
|
|
for ($i=0;$i<count($array);$i++)
|
||
|
|
{
|
||
|
|
$row=$array[$i];
|
||
|
|
$pdf->write_cell(50,6,$row['po_name'],0,0,'L');
|
||
|
|
$pdf->write_cell(50,6,$row['ga_description'],0,0,'L');
|
||
|
|
$pdf->write_cell(20,6,sprintf('%s',nbm($row['sum_deb'])),0,0,'R');
|
||
|
|
$pdf->write_cell(20,6,sprintf('%s',nbm($row['sum_cred'])),0,0,'R');
|
||
|
|
$pdf->write_cell(20,6,sprintf('%s',nbm($row['solde'])),0,0,'R');
|
||
|
|
$pdf->write_cell(20,6,$row['debit'],0,0,'R');
|
||
|
|
$pdf->line_new();
|
||
|
|
}
|
||
|
|
$fDate=date('dmy-Hi');
|
||
|
|
$pdf->output('simple-balance-'.$fDate.'.pdf','D');
|
||
|
|
|
||
|
|
}
|
||
|
|
/*!
|
||
|
|
* \brief Compute the csv export
|
||
|
|
* \return string with the csv
|
||
|
|
*/
|
||
|
|
function display_csv()
|
||
|
|
{
|
||
|
|
$array=$this->load();
|
||
|
|
if ( is_array($array) == false )
|
||
|
|
{
|
||
|
|
return $array;
|
||
|
|
|
||
|
|
}
|
||
|
|
$csv=new Noalyss_Csv("ca_bal_simple");
|
||
|
|
$csv->send_header();
|
||
|
|
$r="";
|
||
|
|
foreach ( $array as $row)
|
||
|
|
{
|
||
|
|
// the name and po_id
|
||
|
|
$solde=($row['sum_cred']>$row['sum_deb'])?'C':'D';
|
||
|
|
$solde=($row['sum_cred']==$row['sum_deb'])?'0':$solde;
|
||
|
|
$csv->add($row['po_name']);
|
||
|
|
$csv->add($row['ga_description']);
|
||
|
|
$csv->add($row['sum_deb'],"number");
|
||
|
|
$csv->add($row['sum_cred'],"number");
|
||
|
|
$csv->add($row['solde'],"number");
|
||
|
|
$csv->add($row['debit'],"text");
|
||
|
|
|
||
|
|
$csv->write();
|
||
|
|
}
|
||
|
|
return $r;
|
||
|
|
|
||
|
|
}
|
||
|
|
/*!
|
||
|
|
* \brief Show the button to export in PDF or CSV
|
||
|
|
* \param $url_csv url of the csv
|
||
|
|
* \param $url_pdf url of the pdf
|
||
|
|
* \param $p_string hidden data to include in the form
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* \return string with the button
|
||
|
|
*/
|
||
|
|
function show_button($p_string="")
|
||
|
|
{
|
||
|
|
$r="";
|
||
|
|
$r.= '<form method="GET" action="export.php" style="display:inline">';
|
||
|
|
$r.= $p_string;
|
||
|
|
$r.= dossier::hidden();
|
||
|
|
$r.= HtmlInput::hidden("to",$this->to);
|
||
|
|
$r.= HtmlInput::hidden("act","PDF:AncBalSimple");
|
||
|
|
|
||
|
|
$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::submit('bt_pdf',"Export en PDF");
|
||
|
|
$r.= '</form>';
|
||
|
|
|
||
|
|
$r.= '<form method="GET" action="export.php" style="display:inline">';
|
||
|
|
$r.= HtmlInput::hidden("act","CSV:AncBalSimple");
|
||
|
|
$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;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
* \brief for testing and debuggind the class
|
||
|
|
* it must never be called from production system, it is
|
||
|
|
* intended only for developpers
|
||
|
|
* \param
|
||
|
|
* \param
|
||
|
|
* \param
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* \return none
|
||
|
|
*/
|
||
|
|
static function test_me ()
|
||
|
|
{
|
||
|
|
// call the page with ?gDossier=14
|
||
|
|
$a=Dossier::connect();
|
||
|
|
|
||
|
|
$bal=new Anc_Balance_Simple($a);
|
||
|
|
$bal->get_request();
|
||
|
|
|
||
|
|
echo '<form method="GET">';
|
||
|
|
|
||
|
|
echo $bal->display_form();
|
||
|
|
echo '</form>';
|
||
|
|
if ( isset($_GET['result']))
|
||
|
|
{
|
||
|
|
echo $bal->show_button("","");
|
||
|
|
echo "<h1>HTML</h1>";
|
||
|
|
echo $bal->display_html();
|
||
|
|
echo "<h1>CSV</h1>";
|
||
|
|
echo $bal->display_csv();
|
||
|
|
/* echo "<h1>pdf</h1>"; */
|
||
|
|
/* echo $bal->display_pdf(); */
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|