352 lines
10 KiB
PHP
352 lines
10 KiB
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 account
|
||
*/
|
||
/*!
|
||
* \brief Manage the account from the table jrn, jrnx or tmp_pcmn
|
||
*/
|
||
require_once ('postgres.php');
|
||
require_once ('class_dossier.php');
|
||
|
||
class Acc_Account_Ledger {
|
||
var $db; /*! \enum $db database connection */
|
||
var $id; /*! \enum $id poste_id (pcm_val)*/
|
||
var $label; /*! \enum $label label of the poste */
|
||
var $parent; /*! \enum $parent parent account */
|
||
var $row; /*! \enum $row double array see get_row */
|
||
function __construct ($p_cn,$p_id) {
|
||
$this->db=$p_cn;
|
||
$this->id=$p_id;
|
||
}
|
||
|
||
/*!
|
||
* \brief Get data for poste
|
||
*
|
||
* \param $p_from periode from
|
||
* \param $p_to end periode
|
||
* \return double array (j_date,deb_montant,cred_montant,description,jrn_name,j_debit,jr_internal)
|
||
* (tot_deb,tot_credit
|
||
*
|
||
*/
|
||
function get_row($p_from,$p_to)
|
||
{
|
||
$periode=sql_filter_per($this->db,$p_from,$p_to,'p_id','jr_tech_per');
|
||
|
||
|
||
$Res=ExecSql($this->db,"select to_char(j_date,'DD.MM.YYYY') as j_date,".
|
||
"case when j_debit='t' then j_montant else 0 end as deb_montant,".
|
||
"case when j_debit='f' then j_montant else 0 end as cred_montant,".
|
||
" jr_comment as description,jrn_def_name as jrn_name,".
|
||
"j_debit, jr_internal ".
|
||
" from jrnx left join jrn_def on jrn_def_id=j_jrn_def ".
|
||
" left join jrn on jr_grpt_id=j_grpt".
|
||
" where j_poste=".$this->id." and ".$periode.
|
||
" order by j_date::date");
|
||
$array=array();
|
||
$tot_cred=0.0;
|
||
$tot_deb=0.0;
|
||
$Max=pg_NumRows($Res);
|
||
if ( $Max == 0 ) return null;
|
||
for ($i=0;$i<$Max;$i++) {
|
||
$array[]=pg_fetch_array($Res,$i);
|
||
if ($array[$i]['j_debit']=='t') {
|
||
$tot_deb+=$array[$i]['deb_montant'] ;
|
||
} else {
|
||
$tot_cred+=$array[$i]['cred_montant'] ;
|
||
}
|
||
}
|
||
$this->row=$array;
|
||
return array($array,$tot_deb,$tot_cred);
|
||
}
|
||
/*!\brief Return the name of a account
|
||
* it doesn't change any data member
|
||
* \return string with the pcm_lib
|
||
*/
|
||
function get_name() {
|
||
$ret=pg_exec($this->db,
|
||
"select pcm_lib from tmp_pcmn where
|
||
pcm_val=".$this->id);
|
||
if ( pg_NumRows($ret) != 0) {
|
||
$r=pg_fetch_array($ret);
|
||
$this->name=$r['pcm_lib'];
|
||
} else {
|
||
$this->name="Poste inconnu";
|
||
}
|
||
return $this->name;
|
||
}
|
||
/*!\brief Get all the value for this object from the database
|
||
* the data member are set
|
||
* \return false if this account doesn't exist otherwise true
|
||
*/
|
||
function load()
|
||
{
|
||
$ret=ExecSql($this->db,"select pcm_lib,pcm_val_parent from
|
||
tmp_pcmn where pcm_val=".$this->id);
|
||
$r=pg_fetch_all($ret);
|
||
|
||
if ( ! $r ) return false;
|
||
$this->label=$r[0]['pcm_lib'];
|
||
$this->parent=$r[0]['pcm_val_parent'];
|
||
return true;
|
||
|
||
}
|
||
/*!\brief Get all the value for this object from the database
|
||
* the data member are set
|
||
* \return false if this account doesn't exist otherwise true
|
||
*/
|
||
function get()
|
||
{
|
||
echo "OBSOLETE Acc_Account_Ledger->get(), a remplacer par Acc_Account_Ledger->load()";
|
||
return $this->load();
|
||
}
|
||
|
||
/*!
|
||
* \brief give the balance of an account
|
||
*
|
||
* \return
|
||
* balance of the account
|
||
*
|
||
*/
|
||
function get_solde($p_cond=" true ") {
|
||
$Res=ExecSql($this->db,"select sum(deb) as sum_deb, sum(cred) as sum_cred from
|
||
( select j_poste,
|
||
case when j_debit='t' then j_montant else 0 end as deb,
|
||
case when j_debit='f' then j_montant else 0 end as cred
|
||
from jrnx join tmp_pcmn on j_poste=pcm_val
|
||
where
|
||
j_poste like ('$this->id'::text) and
|
||
$p_cond
|
||
) as m ");
|
||
$Max=pg_NumRows($Res);
|
||
if ($Max==0) return 0;
|
||
$r=pg_fetch_array($Res,0);
|
||
|
||
return abs($r['sum_deb']-$r['sum_cred']);
|
||
}
|
||
/*!
|
||
* \brief give the balance of an account
|
||
* \return
|
||
* balance of the account
|
||
*
|
||
*/
|
||
function get_solde_detail($p_cond="") {
|
||
|
||
if ( $p_cond != "") $p_cond=" and ".$p_cond;
|
||
$sql="select sum(deb) as sum_deb, sum(cred) as sum_cred from
|
||
( select j_poste,
|
||
case when j_debit='t' then j_montant else 0 end as deb,
|
||
case when j_debit='f' then j_montant else 0 end as cred
|
||
from jrnx join tmp_pcmn on j_poste=pcm_val
|
||
where
|
||
j_poste like ('$this->id'::text)
|
||
$p_cond
|
||
) as m ";
|
||
|
||
$Res=ExecSql($this->db,$sql);
|
||
$Max=pg_NumRows($Res);
|
||
if ($Max==0) {
|
||
return array('debit'=>0,
|
||
'credit'=>0,
|
||
'solde'=>0) ;
|
||
}
|
||
$r=pg_fetch_array($Res,0);
|
||
// if p_start is < p_end the query returns null to avoid any problem
|
||
// we set it to 0
|
||
if ($r['sum_deb']=='')
|
||
$r['sum_deb']=0.0;
|
||
if ($r['sum_cred']=='')
|
||
$r['sum_cred']=0.0;
|
||
|
||
return array('debit'=>$r['sum_deb'],
|
||
'credit'=>$r['sum_cred'],
|
||
'solde'=>abs($r['sum_deb']-$r['sum_cred']));
|
||
}
|
||
/*!
|
||
* \brief isTva tell is a poste is used for VAT
|
||
* \param none
|
||
*
|
||
*
|
||
* \return 1 is Yes otherwise 0
|
||
*/
|
||
function isTVA()
|
||
{
|
||
// Load TVA array
|
||
$a_TVA=get_array($this->db,'select tva_poste
|
||
from tva_rate');
|
||
foreach ( $a_TVA as $line_tva)
|
||
{
|
||
if ( $line_tva['tva_poste'] == '' )
|
||
continue;
|
||
list($tva_deb,$tva_cred)=split(',',$line_tva['tva_poste']);
|
||
if ( $this->id == $tva_deb ||
|
||
$this->id == $tva_cred )
|
||
{
|
||
return 1;
|
||
}
|
||
}
|
||
return 0;
|
||
|
||
}
|
||
/*!
|
||
* \brief HtmlTable, display a HTML of a poste for the asked period
|
||
* \param none
|
||
*
|
||
* \return none
|
||
*/
|
||
|
||
|
||
function HtmlTable()
|
||
{
|
||
$this->get_name();
|
||
|
||
list($array,$tot_deb,$tot_cred)=$this->get_row( $_POST['from_periode'],
|
||
$_POST['to_periode']
|
||
);
|
||
|
||
if ( count($this->row ) == 0 )
|
||
return;
|
||
|
||
$rep="";
|
||
|
||
echo '<h2 class="info">'.$this->id." ".$this->name.'</h2>';
|
||
echo "<TABLE class=\"result\" width=\"100%\">";
|
||
echo "<TR>".
|
||
"<TH> Code interne </TH>".
|
||
"<TH> Date</TH>".
|
||
"<TH> Description </TH>".
|
||
"<TH> D<>bit </TH>".
|
||
"<TH> Cr<43>dit </TH>".
|
||
"</TR>";
|
||
|
||
foreach ( $this->row as $op ) {
|
||
echo "<TR>".
|
||
"<TD>".$op['jr_internal']."</TD>".
|
||
"<TD>".$op['j_date']."</TD>".
|
||
"<TD>".$op['description']."</TD>".
|
||
"<TD>".$op['deb_montant']."</TD>".
|
||
"<TD>".$op['cred_montant']."</TD>".
|
||
"</TR>";
|
||
|
||
}
|
||
$solde_type=($tot_deb>$tot_cred)?"solde d<>biteur":"solde cr<63>diteur";
|
||
$diff=round(abs($tot_deb-$tot_cred),2);
|
||
echo "<TR>".
|
||
"<TD>$solde_type</TD>".
|
||
"<TD>$diff</TD>".
|
||
"<TD></TD>".
|
||
"<TD>$tot_deb</TD>".
|
||
"<TD>$tot_cred</TD>".
|
||
"</TR>";
|
||
|
||
echo "</table>";
|
||
|
||
return;
|
||
}
|
||
|
||
/*!
|
||
* \brief Display HTML Table Header (button)
|
||
*
|
||
* \return none
|
||
*/
|
||
function HtmlTableHeader()
|
||
{
|
||
$submit=new widget();
|
||
$hid=new widget("hidden");
|
||
echo '<div class="noprint">';
|
||
echo "<table >";
|
||
echo '<TR>';
|
||
|
||
echo '<TD><form method="GET" ACTION="">'.
|
||
dossier::hidden().
|
||
widget::submit('bt_other',"Autre poste").
|
||
$hid->IOValue("type","poste").$hid->IOValue('p_action','impress')."</form></TD>";
|
||
|
||
echo '<TD><form method="POST" ACTION="poste_pdf.php">'.
|
||
dossier::hidden().
|
||
widget::submit('bt_pdf',"Export PDF").
|
||
$hid->IOValue("type","poste").
|
||
$hid->IOValue('p_action','impress').
|
||
$hid->IOValue("poste_id",$_POST['poste_id']).
|
||
$hid->IOValue("from_periode",$_POST['from_periode']).
|
||
$hid->IOValue("to_periode",$_POST['to_periode']);
|
||
if (isset($_POST['poste_fille']))
|
||
echo $hid->IOValue('poste_fille','on');
|
||
echo "</form></TD>";
|
||
|
||
echo '<TD><form method="POST" ACTION="poste_csv.php">'.
|
||
dossier::hidden().
|
||
widget::submit('bt_csv',"Export CSV").
|
||
$hid->IOValue("type","poste").
|
||
$hid->IOValue('p_action','impress').
|
||
$hid->IOValue("poste_id",$_POST['poste_id']).
|
||
$hid->IOValue("from_periode",$_POST['from_periode']).
|
||
$hid->IOValue("to_periode",$_POST['to_periode']);
|
||
if (isset($_POST['poste_fille']))
|
||
echo $hid->IOValue('poste_fille','on');
|
||
|
||
echo "</form></TD>";
|
||
echo "</table>";
|
||
echo '</div>';
|
||
|
||
}
|
||
/*!
|
||
* \brief verify that the poste belong to a ledger
|
||
*
|
||
* \return 0 ok, -1 no
|
||
*/
|
||
function belong_ledger($p_jrn) {
|
||
$filter=getDbValue($this->db,"select jrn_def_class_cred from jrn_def where jrn_def_id=$p_jrn");
|
||
if ( trim ($filter) == '')
|
||
return 0;
|
||
|
||
$valid_cred=split(" ",$filter);
|
||
$sql="select count(*) as poste from tmp_pcmn where ";
|
||
// Creation query
|
||
$or="";
|
||
$SqlFilter="";
|
||
foreach ( $valid_cred as $item_cred) {
|
||
if ( strlen (trim($item_cred))) {
|
||
if ( strstr($item_cred,"*") == true ) {
|
||
$item_cred=strtr($item_cred,"*","%");
|
||
$SqlItem="$or pcm_val like '$item_cred'";
|
||
$or=" or ";
|
||
} else {
|
||
$SqlItem="$or pcm_val = '$item_cred' ";
|
||
$or=" or ";
|
||
}
|
||
$SqlFilter=$SqlFilter.$SqlItem;
|
||
}
|
||
}//foreach
|
||
$sql.=$SqlFilter.' and pcm_val='.$this->id;
|
||
$max=getDbValue($this->db,$sql);
|
||
if ($max > 0 )
|
||
return 0;
|
||
else
|
||
return -1;
|
||
}
|
||
static function test_me() {
|
||
$cn=DbConnect(dossier::id());
|
||
$a=new Acc_Account_Ledger($cn,550);
|
||
echo ' Journal 4 '.$a->belong_ledger(4);
|
||
|
||
}
|
||
}
|