284 lines
7.5 KiB
PHP
284 lines
7.5 KiB
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
|
|
require_once("constant.php");
|
|
require_once("postgres.php");
|
|
require_once("class_parm_code.php");
|
|
|
|
require_once('class_fiche.php');
|
|
require_once('class_poste.php');
|
|
require_once('user_common.php');
|
|
|
|
// Use the view vw_customer
|
|
//
|
|
class Customer extends fiche{
|
|
var $id; // f_id
|
|
var $poste; // poste comptable
|
|
var $name;
|
|
var $street;
|
|
var $country;
|
|
var $cp;
|
|
var $vat_number;
|
|
var $fiche_def_ref; // fiche_def_ref.frd_id
|
|
// Constructor
|
|
// only a db connection is needed
|
|
function Customer($p_cn,$p_id=0) {
|
|
$this->fiche_def_ref=FICHE_TYPE_CLIENT;
|
|
fiche::fiche($p_cn,$p_id) ;
|
|
|
|
}
|
|
// Get all info contains in the view
|
|
// thanks to the poste elt
|
|
function GetFromPoste($p_poste=0) {
|
|
$this->poste=($p_poste==0)?$this->poste:$p_poste;
|
|
$sql="select * from vw_client where poste_comptable=".$this->poste;
|
|
$Res=ExecSql($this->cn,$sql);
|
|
if ( pg_NumRows($Res) == 0) return null;
|
|
// There is only _one_ row by customer
|
|
$row=pg_fetch_array($Res,0);
|
|
$this->name=$row['name'];
|
|
$this->id=$row['f_id'];
|
|
$this->street=$row['rue'];
|
|
$this->cp=$row['code_postal'];
|
|
$this->country=$row['pays'];
|
|
$this->vat_number=$row['tva_num'];
|
|
|
|
}
|
|
/* function ListingVat
|
|
**************************************************
|
|
* Purpose : Get all the info for making a vat listing
|
|
* for the vat administration
|
|
* TODO : optimize SQL
|
|
* parm :
|
|
* - periode
|
|
*
|
|
* return:
|
|
*
|
|
* - array
|
|
*/
|
|
function VatListing($p_year) {
|
|
$cond_sql=" and A.j_date = B.j_date
|
|
and extract(year from A.j_date) ='$p_year'";
|
|
|
|
// BASE ACCOUNT
|
|
// for belgium
|
|
$s=new parm_code($this->cn,'VENTE');
|
|
$s->Get();
|
|
$SOLD=$s->p_value;
|
|
|
|
$c=new parm_code($this->cn,'CUSTOMER');
|
|
$c->Get();
|
|
$CUSTOMER=$c->p_value;
|
|
|
|
$t=new parm_code($this->cn,'COMPTE_TVA');
|
|
$t->Get();
|
|
$TVA=$t->p_value;
|
|
// Get all the sell operation
|
|
//----
|
|
$sql="select j_grpt
|
|
from
|
|
jrnx as A
|
|
join jrnx as B using (j_grpt)
|
|
where
|
|
A.j_poste like '".$CUSTOMER."%' and
|
|
B.j_poste like '".$SOLD."%'
|
|
$cond_sql
|
|
";
|
|
|
|
$Res=ExecSql($this->cn,$sql);
|
|
// Foreach operation
|
|
// where 7% or tva account are involved
|
|
// and store the result in an array (a_Res)
|
|
//---
|
|
$a_Res=array();
|
|
for ($i=0; $i < pg_NumRows($Res);$i++) {
|
|
// Get each row
|
|
//---
|
|
$row1=pg_fetch_array($Res,$i);
|
|
|
|
// select the operation
|
|
//----
|
|
$Res2=ExecSql($this->cn,"select j_poste,j_montant,j_debit from jrnx where j_grpt=".$row1['j_grpt']);
|
|
$a_row=array();
|
|
// Store the result in the array
|
|
//---
|
|
for ($e=0;$e < pg_NumRows($Res2);$e++) {
|
|
$a_row[]=pg_fetch_array($Res2,$e);
|
|
}
|
|
|
|
// Seek the customer
|
|
//---
|
|
foreach ($a_row as $e) {
|
|
if ( substr($e['j_poste'],0, strlen($CUSTOMER))==$CUSTOMER) {
|
|
$customer=$e['j_poste'];
|
|
// Retrieve name and vat number
|
|
$this->GetFromPoste($customer);
|
|
$a_Res[$customer]['name']=$this->name;
|
|
$a_Res[$customer]['vat_number']=$this->vat_number;
|
|
break;
|
|
|
|
}
|
|
}// foreach $a
|
|
// Store the amount in the array
|
|
//---
|
|
foreach ($a_row as $e) {
|
|
$amount=0;
|
|
$tva=0;
|
|
if ( substr($e['j_poste'],0, strlen($SOLD))==$SOLD) {
|
|
$amount=($e['j_debit']=='f')?$e['j_montant']:$e['j_montant']*-1;
|
|
}
|
|
if ( substr($e['j_poste'],0, strlen($TVA))==$TVA) {
|
|
$tva=($e['j_debit']=='f')?$e['j_montant']:$e['j_montant']*-1;
|
|
}
|
|
// store sold
|
|
//---
|
|
$a_Res[$customer]['amount']=(isset($a_Res[$customer]['amount']))?$a_Res[$customer]['amount']:0;
|
|
$a_Res[$customer]['amount']+=$amount;
|
|
|
|
// store vat
|
|
//---
|
|
$a_Res[$customer]['tva']=(isset($a_Res[$customer]['tva']))?$a_Res[$customer]['tva']:0;
|
|
$a_Res[$customer]['tva']+=$tva;
|
|
|
|
// store customef info
|
|
//---
|
|
$a_Res[$customer]['customer']=$customer;
|
|
|
|
//if not submitted to VAT, remove from list:
|
|
//STAN: currently commented out because I don't know if it is really what we need.
|
|
//Dany : yes we need it because the decla. concerns only the registered customer at the VAT
|
|
if (!isset($a_Res[$customer]['vat_number']) || strcmp($a_Res[$customer]['vat_number'], "") == 0)
|
|
{
|
|
unset($a_Res[$customer]);
|
|
}
|
|
|
|
}// foreach $a
|
|
|
|
}
|
|
return $a_Res;
|
|
}
|
|
|
|
/* function Display
|
|
**************************************************
|
|
* Purpose : Display object instance
|
|
*
|
|
* parm :
|
|
* -
|
|
* gen :
|
|
* -
|
|
* return:
|
|
*/
|
|
function Display()
|
|
{
|
|
var_dump($this);
|
|
}
|
|
/* function Get
|
|
**************************************************
|
|
* Purpose : Get Attribute of client
|
|
*
|
|
* parm :
|
|
* -
|
|
* gen :
|
|
* -
|
|
* return:
|
|
*/
|
|
function Get()
|
|
{
|
|
echo_debug('class_client',__LINE__,'Get');
|
|
fiche::getAttribut();
|
|
}
|
|
/* function GetAll
|
|
**************************************************
|
|
* Purpose : Get array of fiche with all attribute
|
|
*
|
|
* parm :
|
|
* - none
|
|
* gen :
|
|
* -
|
|
* return: array of fiche with all attribute
|
|
*/
|
|
function GetAll($p_offset=-1)
|
|
{
|
|
return fiche::GetByDef($this->fiche_def_ref,$p_offset);
|
|
}
|
|
/* function Summary
|
|
**************************************************
|
|
* Purpose : show the default screen
|
|
*
|
|
* parm :
|
|
* -
|
|
* gen :
|
|
* -
|
|
* return: string to display
|
|
*/
|
|
function Summary()
|
|
{
|
|
|
|
$url=urlencode($_SERVER['REQUEST_URI']);
|
|
$script=$_SERVER['SCRIPT_NAME'];
|
|
// Creation of the nav bar
|
|
// Get the max numberRow
|
|
$all_client=$this->CountByDef($this->fiche_def_ref);
|
|
// Get offset and page variable
|
|
$offset=( isset ($_REQUEST['offset'] )) ?$_REQUEST['offset']:0;
|
|
$page=(isset($_REQUEST['page']))?$_REQUEST['page']:1;
|
|
$bar=jrn_navigation_bar($offset,$all_client,$_SESSION['g_pagesize'],$page);
|
|
|
|
// Get The result Array
|
|
$step_client=$this->GetAll($offset);
|
|
if ( $all_client == 0 ) return "";
|
|
$r=$bar;
|
|
$r.="<table border=1><TR>
|
|
<TH>Quick Code</TH>
|
|
<th>Nom</th>
|
|
<th>Adresse</th>
|
|
<th>Solde</th>
|
|
<th>Action </th>
|
|
</TR>";
|
|
foreach ($step_client as $client ) {
|
|
$r.="<TR>";
|
|
$r.="<TD>".$client->strAttribut(ATTR_DEF_QUICKCODE)."</TD>";
|
|
$r.="<TD>".$client->strAttribut(ATTR_DEF_NAME)."</TD>";
|
|
$r.="<TD>".$client->strAttribut(ATTR_DEF_ADRESS).
|
|
" ".$client->strAttribut(ATTR_DEF_CP).
|
|
" ".$client->strAttribut(ATTR_DEF_PAYS).
|
|
"</TD>";
|
|
$post=new poste($this->cn,$client->strAttribut(ATTR_DEF_ACCOUNT));
|
|
$a=$post->GetSoldeDetail();
|
|
$r.=sprintf('<TD align="right"> %10.2f€</TD>',$a['solde']);
|
|
$r.="<TD>";
|
|
$r.=sprintf('<A HREF="%s?p_action=client&sa=detail&f_id=%d&url=%s">D</A> - ',
|
|
$script,$client->id,$url);
|
|
|
|
$r.='<A HREF="#">C</A>';
|
|
$r.='<A HREF="#">S</A>';
|
|
$r.='</TD>';
|
|
|
|
$r.="</TR>";
|
|
|
|
}
|
|
$r.="</TABLE>";
|
|
return $r;
|
|
}
|
|
|
|
|
|
}
|
|
|
|
?>
|