admingit/altocompta
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new coding convention , Change File name : class_ becomes file.class.php

Browse source
This commit is contained in:
Dany De Bontridder 2017-07-08 09:46:41 +02:00
parent 1d5550713f
commit f84a96033e
355 changed files with 1011 additions and 1011 deletions
Download patch file Download diff file Expand all files Collapse all files

187
include/class/customer.class.php Normal file
View file

@ -0,0 +1,187 @@
<?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
require_once NOALYSS_INCLUDE.'/constant.php';
require_once NOALYSS_INCLUDE.'/lib/database.class.php';
require_once NOALYSS_INCLUDE.'/class/acc_parm_code.class.php';
require_once NOALYSS_INCLUDE.'/class/periode.class.php';
require_once NOALYSS_INCLUDE.'/class/fiche.class.php';
require_once NOALYSS_INCLUDE.'/class/acc_account_ledger.class.php';
require_once NOALYSS_INCLUDE.'/lib/user_common.php';
/*! \file
* \brief Derived from class fiche Customer are a specific kind of card
*/
/*!
* \brief class Customer are a specific kind of card
*/
// Use the view vw_customer
//
class Customer extends Fiche
{
var $poste; /*!< $poste poste comptable */
var $name; /*!< $name name of the company */
var $street; /*!< $street Street */
var $country; /*!< $country Country */
var $cp; /*!< $cp Zip code */
var $vat_number; /*!< $vat_number vat number */
/*! \brief Constructor
/* only a db connection is needed */
function __construct($p_cn,$p_id=0)
{
$this->fiche_def_ref=FICHE_TYPE_CLIENT;
parent::__construct($p_cn,$p_id) ;
}
/*! \brief Get all info contains in the view
* thanks to the poste elt (account)
*/
function get_by_account($p_poste=0)
{
$this->poste=($p_poste==0)?$this->poste:$p_poste;
$sql="select * from vw_client where poste_comptable=$1";
$Res=$this->cn->exec_sql($sql,array($this->poste));
if ( Database::num_row($Res) == 0) return null;
if ( Database::num_row($Res) > 1 ) throw new Exception ('Plusieurs fiches avec le même poste',1);
// There is only _one_ row by customer
$row=Database::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'];
}
/*!
* \brief Get all the info for making a vat listing
* for the vat administration
*
* \param $p_year
*
* \return double array structure is
* ( j_poste,name,vat_number,amount,tva,customer(object)
*
*/
function VatListing($p_year)
{
$cond_sql=" and A.j_date = B.j_date and extract(year from A.j_date) ='$p_year'";
/* List of customer */
$aCustomer=$this->cn->get_array('select f_id,name,quick_code,tva_num,poste_comptable from vw_client '.
" where tva_num !='' ");
/* Use the code */
// BASE ACCOUNT
// for belgium
$s=new Acc_Parm_Code($this->cn,'VENTE');
$s->load();
$SOLD=$s->p_value;
$c=new Acc_Parm_Code($this->cn,'CUSTOMER');
$c->load();
$CUSTOMER=$c->p_value;
$t=new Acc_Parm_Code($this->cn,'COMPTE_TVA');
$t->load();
$TVA=$t->p_value;
$a_Res=array();
/* for each customer compute VAT, Amount...*/
foreach ($aCustomer as $l )
{
// Seek the customer
//---
$customer=$l['quick_code'];
$a_Res[$customer]['name']=$l['name'];
$a_Res[$customer]['vat_number']=$l['tva_num'];
$a_Res[$customer]['amount']=0;
$a_Res[$customer]['tva']=0;
$a_Res[$customer]['poste_comptable']=$l['poste_comptable'];
/* retrieve only operation of sold and vat */
// Get all the sell operation
//----
$sql="select distinct j_grpt
from
jrnx as A
join jrnx as B using (j_grpt)
where
A.j_qcode = '".$l['quick_code']."' and
B.j_poste::text like '".$SOLD."%'
$cond_sql
";
$Res=$this->cn->exec_sql($sql);
// Foreach operation
// where 7% or tva account are involved
// and store the result in an array (a_Res)
//---
for ($i=0; $i < Database::num_row($Res);$i++)
{
// Get each row
//---
$row1=Database::fetch_array($Res,$i);
// select the operation
//----
$Res2=$this->cn->exec_sql("select j_poste,j_montant,j_debit from jrnx where j_grpt=".$row1['j_grpt']);
$a_row=Database::fetch_all($Res2);
// 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;
}
}// foreach $a
} // foreach ( customer)
return $a_Res;
}
}
?>