202 lines
6.3 KiB
PHP
202 lines
6.3 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 tmp_pcmn
|
|
*/
|
|
require_once ('postgres.php');
|
|
require_once ('class_dossier.php');
|
|
require_once ('class_widget.php');
|
|
require_once('class_acexception.php');
|
|
|
|
class Acc_Account {
|
|
var $db; /*!< $db database connection */
|
|
static private $variable = array("value"=>'pcm_val',
|
|
'type'=>'pcm_type',
|
|
'parent'=>'pcm_val_parent',
|
|
'libelle'=>'pcm_lib');
|
|
private $pcm_val;
|
|
private $pcm_type;
|
|
private $pcm_parent;
|
|
private $pcm_lib;
|
|
static private $type=array(
|
|
array('label'=>'Actif','value'=>'ACT'),
|
|
array('label'=>'Passif','value'=>'PAS'),
|
|
array('label'=>'Actif c. inverse','value'=>'ACTINV'),
|
|
array('label'=>'Passif c.inverse','value'=>'PASINV'),
|
|
array('label'=>'Produit','value'=>'PRO'),
|
|
array('label'=>'Produit Inverse','value'=>'PROINV'),
|
|
array('label'=>'Charge','value'=>'CHA'),
|
|
array('label'=>'Charge Inverse','value'=>'CHAINV'),
|
|
array('label'=>'Non defini','value'=>'CON')
|
|
);
|
|
|
|
function __construct ($p_cn,$p_id=0) {
|
|
$this->db=$p_cn;
|
|
$this->pcm_val=$p_id;
|
|
}
|
|
public function get_parameter($p_string) {
|
|
if ( array_key_exists($p_string,self::$variable) ) {
|
|
$idx=self::$variable[$p_string];
|
|
return $this->$idx;
|
|
}
|
|
else
|
|
exit (__FILE__.":".__LINE__.'Erreur attribut inexistant');
|
|
}
|
|
|
|
function set_parameter($p_string,$p_value) {
|
|
if ( array_key_exists($p_string,self::$variable) ) {
|
|
$idx=self::$variable[$p_string];
|
|
if ($this->check($idx,$p_value) == true ) $this->$idx=$p_value;
|
|
}
|
|
else
|
|
exit (__FILE__.":".__LINE__.'Erreur attribut inexistant');
|
|
|
|
|
|
}
|
|
/*!\brief Return the name of a account
|
|
* it doesn't change any data member
|
|
* \return string with the pcm_lib
|
|
*/
|
|
function get_lib() {
|
|
$ret=ExecSqlParam($this->db,
|
|
"select pcm_lib from tmp_pcmn where
|
|
pcm_val=$1",array($this->pcm_value));
|
|
if ( pg_NumRows($ret) != 0) {
|
|
$r=pg_fetch_array($ret);
|
|
$this->name=$r['pcm_lib'];
|
|
} else {
|
|
$this->name="Poste inconnu";
|
|
}
|
|
return $this->name;
|
|
}
|
|
/*!\brief Check that the value are valid
|
|
*\return true if all value are valid otherwise false
|
|
*/
|
|
function check ($p_member='',$p_value='')
|
|
{
|
|
// if there is no argument we check all the member
|
|
if ($p_member == '' && $p_value== '' ) {
|
|
foreach (self::$variable as $l=>$k) {
|
|
$this->check($k,$this->$k);
|
|
}
|
|
} else {
|
|
// otherwise we check only the value
|
|
if ( strcmp ($p_member,'pcm_val') == 0 ) {
|
|
if (is_numeric($p_value) ==0 )
|
|
throw new AcException('Poste comptable incorrect '.$p_value);
|
|
else
|
|
return true;
|
|
} else if ( strcmp ($p_member,'pcm_val_parent') == 0 ) {
|
|
if ( is_numeric($p_value) == 0 || $this->count($p_value) == 0)
|
|
throw new AcException('Poste comptable parent incorrect '.$p_value);
|
|
else
|
|
return true;
|
|
} else if ( strcmp ($p_member,'pcm_lib') == 0 ) {
|
|
return true;
|
|
} else if ( strcmp ($p_member,'pcm_type') == 0 ) {
|
|
foreach (self::$type as $l=>$k) {
|
|
if ( strcmp ($k['value'],$p_value) == 0 ) return true;
|
|
|
|
}
|
|
throw new AcException('type de compte incorrect '.$p_value);
|
|
}
|
|
throw new AcException ('Donnee member inconnue '.$p_member);
|
|
}
|
|
|
|
}
|
|
/*!\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,pcm_type from
|
|
tmp_pcmn where pcm_val=".$this->pcm_val);
|
|
$r=pg_fetch_all($ret);
|
|
|
|
if ( ! $r ) return false;
|
|
$this->pcm_lib=$r[0]['pcm_lib'];
|
|
$this->pcm_val_parent=$r[0]['pcm_val_parent'];
|
|
$this->pcm_type=$r[0]['pcm_type'];
|
|
return true;
|
|
|
|
}
|
|
function form($p_table=true){
|
|
$wType=new widget("select");
|
|
$wType->name='p_type';
|
|
$wType->value=self::$type;
|
|
|
|
if ( ! $p_table ) {
|
|
$ret=' <TR>
|
|
<TD>
|
|
<INPUT TYPE="TEXT" NAME="p_val" SIZE=7>
|
|
</TD>
|
|
<TD>
|
|
<INPUT TYPE="TEXT" NAME="p_lib" size=50>
|
|
</TD>
|
|
<TD>
|
|
<INPUT TYPE="TEXT" NAME="p_parent" size=5>
|
|
</TD>
|
|
<TD>';
|
|
|
|
$ret.=$wType->IOValue().'</TD>';
|
|
return $ret;
|
|
}
|
|
else {
|
|
$ret='<TABLE><TR>';
|
|
$ret.=sprintf ('<TD>Numéro de classe </TD><TD><INPUT TYPE="TEXT" name="p_val" value="%s"></TD>',$this->pcm_val);
|
|
$ret.="</TR><TR>";
|
|
$ret.=sprintf('<TD>Libellé </TD><TD><INPUT TYPE="TEXT" size="70" NAME="p_lib" value="%s"></TD>',urldecode($this->pcm_lib));
|
|
$ret.= "</TR><TR>";
|
|
$ret.=sprintf ('<TD>Classe Parent</TD><TD><INPUT TYPE="TEXT" name="p_parent" value="%s"></TD>',$this->pcm_val_parent);
|
|
$ret.='</tr><tr>';
|
|
$wType->selected=$this->pcm_type;
|
|
$ret.="<td> Type de poste </td>";
|
|
$ret.= '<td>'.$wType->IOValue().'</td>';
|
|
$ret.="</TR> </TABLE>";
|
|
$ret.=dossier::hidden();
|
|
print_r($this);
|
|
return $ret;
|
|
}
|
|
}
|
|
function count($p_value) {
|
|
$sql="select count(*) from tmp_pcmn where pcm_val=$1";
|
|
return getDbValue($this->db,$sql,array($p_value));
|
|
}
|
|
/*!\brief for developper only during test */
|
|
static function test_me() {
|
|
$cn=DbConnect(dossier::id());
|
|
|
|
}
|
|
function update($p_old) {
|
|
$this->pcm_lib=substr(FormatString ($this->pcm_lib),0,50);
|
|
$this->check();
|
|
$sql="update tmp_pcmn set pcm_val=$1, pcm_lib=$2,pcm_val_parent=$3,pcm_type=$4 where pcm_val=$5";
|
|
$Ret=ExecSqlParam($this->db,$sql,array($this->pcm_val,
|
|
$this->pcm_lib,
|
|
$this->pcm_val_parent,
|
|
$this->pcm_type,
|
|
$p_old));
|
|
}
|
|
}
|