898 lines
35 KiB
PHP
898 lines
35 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 letter the accounting entry (row level)
|
|
*/
|
|
|
|
/**
|
|
* @brief mother class for the lettering by account and by card
|
|
* use the tables jnt_letter, letter_deb and letter_cred
|
|
* - "account"=>"account", => the accounting of the j_id (use by Lettering_Account)
|
|
* - "quick_code"=>"quick_code", => the quick_code of the j_id (used by Lettering_Card)
|
|
* - "start"=>"start", => date of the first day
|
|
* - "end"=>"end", => date of the last day
|
|
* - "sql_ledger"=>"sql_ledger" => the sql clause to filter on the available ledgers
|
|
*/
|
|
class Lettering
|
|
{
|
|
|
|
protected $variable=array("account"=>"account", /* the accounting of the j_id (use by Lettering_Account) */
|
|
"quick_code"=>"quick_code", /* the quick_code of the j_id (used by Lettering_Card) */
|
|
"start"=>"start", /* date of the first day */
|
|
"end"=>"end", /* date of the last day */
|
|
"sql_ledger"=>"sql_ledger" /* the sql clause to filter on the available ledgers */
|
|
)
|
|
|
|
;
|
|
var $db;
|
|
var $start;
|
|
var $end;
|
|
var $sql_ledger;
|
|
|
|
/**
|
|
* constructor
|
|
* @param $p_init resource to database
|
|
* @note by default start and end are the 1.1.exercice to 31.12.exercice
|
|
*/
|
|
function __construct(public $p_init)
|
|
{
|
|
$this->db=$p_init;
|
|
$a=new Noalyss_user($p_init);
|
|
$exercice=$a->get_exercice();
|
|
if ($exercice>0)
|
|
{
|
|
$periode=new Periode($p_init);
|
|
$aLimite=$periode->get_limit($exercice);
|
|
$this->start=$aLimite[0]->first_day();
|
|
$this->end=$aLimite[1]->last_day();
|
|
}
|
|
else
|
|
{
|
|
$this->start='01.01.'.$exercice;
|
|
$this->end='31.12.'.$exercice;
|
|
}
|
|
// available ledgers
|
|
$this->sql_ledger=noalyss_str_replace('jrn_def_id', 'jr_def_id', $a->get_ledger_sql('ALL', 3));
|
|
}
|
|
|
|
public function get_parameter($p_string)
|
|
{
|
|
if (array_key_exists($p_string, $this->variable))
|
|
{
|
|
$idx=$this->variable[$p_string];
|
|
return $this->$idx;
|
|
}
|
|
else
|
|
throw new Exception(__FILE__.":".__LINE__.$p_string.'Erreur attribut inexistant');
|
|
}
|
|
|
|
public function set_parameter($p_string, $p_value)
|
|
{
|
|
if (array_key_exists($p_string, $this->variable))
|
|
{
|
|
$idx=$this->variable[$p_string];
|
|
$this->$idx=$p_value;
|
|
}
|
|
else
|
|
throw new Exception(__FILE__.":".__LINE__.$p_string.'Erreur attribut inexistant');
|
|
}
|
|
|
|
/**
|
|
* @brief Use to just insert a couple of lettered operation but do not make a link between operation
|
|
*/
|
|
function insert_couple($j_id1, $j_id2)
|
|
{
|
|
|
|
/* take needed data */
|
|
$first=$this->db->get_value('select j_debit from jrnx where j_id=$1', array($j_id1));
|
|
if ($this->db->count()==0)
|
|
throw new Exception('Opération non existante');
|
|
|
|
$second=$this->db->get_value('select j_debit from jrnx where j_id=$1', array($j_id2));
|
|
if ($this->db->count()==0)
|
|
throw new Exception('Opération non existante');
|
|
$sql_already="select distinct(jl_id)
|
|
from jnt_letter
|
|
left outer join letter_deb using (jl_id)
|
|
left outer join letter_cred using (jl_id)
|
|
where
|
|
letter_deb.j_id = $1 or letter_cred.j_id=$1";
|
|
$let1=0; $let2=0;
|
|
$already=$this->db->get_array($sql_already, array($j_id1));
|
|
if (count($already)>0)
|
|
{
|
|
if (count($already)==1)
|
|
{
|
|
// retrieve the letter
|
|
$let1=$this->db->get_value("select distinct(jl_id)
|
|
from jnt_letter
|
|
left outer join letter_deb using (jl_id)
|
|
left outer join letter_cred using (jl_id)
|
|
where
|
|
letter_deb.j_id = $1 or letter_cred.j_id=$1", array($j_id1));
|
|
}
|
|
else
|
|
{
|
|
return;
|
|
}
|
|
}
|
|
|
|
$already=$this->db->get_array($sql_already, array($j_id2));
|
|
if (count($already)>0)
|
|
{
|
|
if (count($already)==1)
|
|
{
|
|
// retrieve the letter
|
|
$let2=$this->db->get_value("select distinct(jl_id)
|
|
from jnt_letter
|
|
left outer join letter_deb using (jl_id)
|
|
left outer join letter_cred using (jl_id)
|
|
where
|
|
letter_deb.j_id = $1 or letter_cred.j_id=$1", array($j_id2));
|
|
}
|
|
else
|
|
{
|
|
return;
|
|
}
|
|
}
|
|
$jl_id=0;
|
|
// already linked together
|
|
if ($let1!=0&&$let1==$let2)
|
|
return;
|
|
|
|
// already linked
|
|
if ($let1!=0&&$let2!=0&&$let1!=$let2)
|
|
return;
|
|
|
|
// none is linked
|
|
if ($let1==0&&$let2==0)
|
|
{
|
|
$jl_id=$this->db->get_next_seq("jnt_letter_jl_id_seq");
|
|
$this->db->exec_sql('insert into jnt_letter(jl_id) values($1)', array($jl_id));
|
|
}
|
|
// one is linked but not the other
|
|
if ($let1==0&&$let2!=0)
|
|
$jl_id=$let2;
|
|
if ($let1!=0&&$let2==0)
|
|
$jl_id=$let1;
|
|
|
|
/* insert */
|
|
if ($first=='t')
|
|
{
|
|
// save into letter_deb
|
|
if ($let1==0)
|
|
$ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
|
|
array($j_id1, $jl_id));
|
|
}
|
|
else
|
|
{
|
|
if ($let1==0)
|
|
$lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id) values($1,$2) returning lc_id',
|
|
array($j_id1, $jl_id));
|
|
}
|
|
if ($second=='t')
|
|
{
|
|
// save into letter_deb
|
|
if ($let2==0)
|
|
$ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
|
|
array($j_id2, $jl_id));
|
|
}
|
|
else
|
|
{
|
|
if ($let2==0)
|
|
$lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id) values($1,$2) returning lc_id',
|
|
array($j_id2, $jl_id));
|
|
}
|
|
}
|
|
|
|
public function get_info()
|
|
{
|
|
return var_export(self::$variable, true);
|
|
}
|
|
|
|
public function verify()
|
|
{
|
|
// Verify that the elt we want to add is correct
|
|
}
|
|
|
|
/**
|
|
* @brief save from array, letter the accounting (or card) and create a link between operation
|
|
*
|
|
* @param $p_array
|
|
@code
|
|
gDossier => string '13' (length=2)
|
|
letter_j_id => is an array of j_id value
|
|
ck => array of j_id to letter with j_id
|
|
j_id => row to link
|
|
@endcode
|
|
*/
|
|
public function save($p_array)
|
|
{
|
|
|
|
if (!isset($p_array['letter_j_id']))
|
|
{
|
|
// if nothing selected then remove
|
|
$this->db->exec_sql('delete from jnt_letter where jl_id=$1', array($p_array['jnt_id']));
|
|
return;
|
|
}
|
|
$nb_letter_j_id=count($p_array['letter_j_id']);
|
|
|
|
if ($nb_letter_j_id == 0 ) {
|
|
$this->db->exec_sql('delete from jnt_letter where jl_id=$1', array($p_array['jnt_id']));
|
|
return;
|
|
}
|
|
try
|
|
{
|
|
$this->db->start();
|
|
|
|
$this->db->exec_sql('delete from jnt_letter where jl_id=$1', array($p_array['jnt_id']));
|
|
|
|
$jl_id=$this->db->get_next_seq("jnt_letter_jl_id_seq");
|
|
$this->db->exec_sql('insert into jnt_letter(jl_id) values($1)', array($jl_id));
|
|
|
|
// save the source
|
|
$deb=$this->db->get_value('select j_debit,j_montant from jrnx where j_id=$1', array($p_array['j_id']));
|
|
if ($deb=='t')
|
|
{
|
|
// save into letter_deb
|
|
$ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
|
|
array($p_array['j_id'], $jl_id));
|
|
}
|
|
else
|
|
{
|
|
$lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id) values($1,$2) returning lc_id',
|
|
array($p_array['j_id'], $jl_id));
|
|
}
|
|
// save dest
|
|
for ($i=0; $i<$nb_letter_j_id; $i++)
|
|
{
|
|
if (! isset($p_array['ck'][$i]) || $p_array['ck'][$i] == "-2" ) { continue ; }
|
|
|
|
// save the dest
|
|
$deb=$this->db->get_value('select j_debit,j_montant from jrnx where j_id=$1',
|
|
array($p_array['ck'][$i]));
|
|
if ($deb=='t')
|
|
{
|
|
// save into letter_deb
|
|
$ld_id=$this->db->get_value('insert into letter_deb(j_id,jl_id) values($1,$2) returning ld_id',
|
|
array($p_array['ck'][$i], $jl_id));
|
|
}
|
|
else
|
|
{
|
|
$lc_id=$this->db->get_value('insert into letter_cred(j_id,jl_id) values($1,$2) returning lc_id',
|
|
array($p_array['ck'][$i], $jl_id));
|
|
}
|
|
$acc_reconciliation_lettering=new Acc_Reconciliation_Lettering($this->db);
|
|
$acc_reconciliation_lettering->insert_reconcilied($p_array['ck'][$i], $p_array['j_id']);
|
|
} //end for
|
|
|
|
}
|
|
catch (Exception $exc)
|
|
{
|
|
echo $exc->getMessage();
|
|
error_log($exc->getTraceAsString());
|
|
$this->db->rollback();
|
|
return;
|
|
}
|
|
|
|
|
|
$this->db->commit();
|
|
}
|
|
|
|
/**
|
|
* @brief retrieve * row thanks a condition
|
|
*/
|
|
public function seek($cond, $p_array=null)
|
|
{
|
|
/*
|
|
$sql="select * from * where $cond";
|
|
return $this->cn->get_array($cond,$p_array)
|
|
*/
|
|
}
|
|
|
|
public function insert()
|
|
{
|
|
if ($this->verify()!=0)
|
|
return;
|
|
}
|
|
|
|
/**
|
|
* show all the record from jrnx and their status (linked or not)
|
|
* it fills the array $this->content
|
|
*/
|
|
protected function show_all()
|
|
{
|
|
$this->get_all();
|
|
$r="";
|
|
ob_start();
|
|
include(NOALYSS_TEMPLATE.'/letter_all.php');
|
|
$r=ob_get_contents();
|
|
ob_end_clean();
|
|
return $r;
|
|
}
|
|
|
|
function get_linked($p_jlid)
|
|
{
|
|
$sql="select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,jr_pj_number,
|
|
coalesce(comptaproc.get_letter_jnt(j_id),-1) as letter
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
where
|
|
j_id in (select j_id from letter_cred where jl_id=$1
|
|
union all
|
|
select j_id from letter_deb where jl_id=$1)
|
|
order by j_date";
|
|
|
|
$this->linked=$this->db->get_array($sql, array($p_jlid));
|
|
}
|
|
|
|
/**
|
|
* show only the lettered records from jrnx
|
|
* it fills the array $this->content
|
|
*/
|
|
protected function show_lettered()
|
|
{
|
|
$this->get_letter();
|
|
$r="";
|
|
ob_start();
|
|
include(NOALYSS_TEMPLATE.'/letter_all.php');
|
|
$r=ob_get_contents();
|
|
ob_end_clean();
|
|
return $r;
|
|
}
|
|
|
|
/**
|
|
* show only the lettered records from jrnx
|
|
* it fills the array $this->content
|
|
*/
|
|
protected function show_lettered_diff()
|
|
{
|
|
$this->get_letter_diff();
|
|
$r="";
|
|
ob_start();
|
|
include(NOALYSS_TEMPLATE.'/letter_all.php');
|
|
$r=ob_get_contents();
|
|
ob_end_clean();
|
|
return $r;
|
|
}
|
|
|
|
/**
|
|
* show only the not lettered records from jrnx
|
|
* it fills the array $this->content
|
|
*/
|
|
protected function show_not_lettered()
|
|
{
|
|
$this->get_unletter();
|
|
$r="";
|
|
ob_start();
|
|
include(NOALYSS_TEMPLATE.'/letter_all.php');
|
|
$r=ob_get_contents();
|
|
ob_end_clean();
|
|
return $r;
|
|
}
|
|
/**
|
|
* @brief for some reason , sometimes, a record in letter_X doesn't have his counterpart
|
|
* in letter_Y
|
|
*/
|
|
function remove_incoherent()
|
|
{
|
|
$this->db->exec_sql("delete from letter_cred lc where jl_id not in (select jl_id from letter_deb)");
|
|
$this->db->exec_sql("delete from letter_deb lc where jl_id not in (select jl_id from letter_cred)");
|
|
}
|
|
/**
|
|
* wrapper : it call show_all, show_lettered or show_not_lettered depending
|
|
* of the parameter
|
|
* @param $p_type poss. values are all, unletter, letter
|
|
*/
|
|
public function show_list($p_type)
|
|
{
|
|
|
|
switch ($p_type)
|
|
{
|
|
case 'all':
|
|
return $this->show_all();
|
|
break;
|
|
case 'unletter':
|
|
return $this->show_not_lettered();
|
|
break;
|
|
case 'letter':
|
|
return $this->show_lettered();
|
|
break;
|
|
case 'letter_diff':
|
|
return $this->show_lettered_diff();
|
|
break;
|
|
}
|
|
throw new Exception("[$p_type] is no unknown");
|
|
}
|
|
|
|
public function show_letter($p_jid)
|
|
{
|
|
$j_debit=$this->db->get_value('select j_Debit from jrnx where j_id=$1', array($p_jid));
|
|
$amount_init=$this->db->get_value('select j_montant from jrnx where j_id=$1', array($p_jid));
|
|
|
|
$this->get_filter($p_jid);
|
|
// retrieve jnt_letter.id
|
|
$sql="select distinct(jl_id) from jnt_letter left outer join letter_deb using (jl_id) left outer join letter_cred using (jl_id)
|
|
where letter_deb.j_id = $1 or letter_cred.j_id=$2";
|
|
$a_jnt_id=$this->db->get_array($sql, array($p_jid, $p_jid));
|
|
|
|
if (count($a_jnt_id)==0)
|
|
{
|
|
$jnt_id=-2;
|
|
}
|
|
else
|
|
{
|
|
$jnt_id=$a_jnt_id[0]['jl_id'];
|
|
}
|
|
$this->get_linked($jnt_id);
|
|
ob_start();
|
|
require_once NOALYSS_TEMPLATE.'/letter_prop.php';
|
|
$r=ob_get_contents();
|
|
ob_end_clean();
|
|
$r.=HtmlInput::hidden('j_id', $p_jid);
|
|
$r.=HtmlInput::hidden('jnt_id', $jnt_id);
|
|
|
|
return $r;
|
|
}
|
|
|
|
public function update()
|
|
{
|
|
if ($this->verify()!=0)
|
|
return;
|
|
}
|
|
|
|
public function load()
|
|
{
|
|
|
|
throw new Exception('load not implemented');
|
|
}
|
|
|
|
public function delete()
|
|
{
|
|
throw new Exception('delete not implemented');
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* only for operation retrieved thanks a account (jrnx.j_poste)
|
|
* manage the accounting entries for a given account
|
|
*/
|
|
class Lettering_Account extends Lettering
|
|
{
|
|
|
|
function __construct($p_init, $p_account=null)
|
|
{
|
|
parent::__construct($p_init);
|
|
$this->account=$p_account;
|
|
$this->object_type='account';
|
|
}
|
|
|
|
/**
|
|
* fills the this->content, datas are filtered thanks
|
|
* - fil_deb poss values t (debit), f(credit), ' ' (everything)
|
|
* - fil_amount_max max amount
|
|
* - fil_amount_min min amount
|
|
* - $this->start min date
|
|
* - $this->end max date
|
|
* - this->account: accounting
|
|
*/
|
|
public function get_filter($p_jid=0)
|
|
{
|
|
$filter_deb='';
|
|
if (isset($this->fil_deb))
|
|
{
|
|
switch ($this->fil_deb)
|
|
{
|
|
case 0:
|
|
$filter_deb=" and j_debit='t' ";
|
|
break;
|
|
case 1:
|
|
$filter_deb=" and j_debit='f' ";
|
|
break;
|
|
case 2:
|
|
$filter_deb=" ";
|
|
break;
|
|
}
|
|
}
|
|
$filter_amount="";
|
|
if (isset($this->fil_amount_max)&&
|
|
isset($this->fil_amount_min)&&
|
|
isNumber($this->fil_amount_max)==1&&
|
|
isNumber($this->fil_amount_min)==1&&
|
|
($this->fil_amount_max!=0||$this->fil_amount_min!=0))
|
|
$filter_amount=" and (j_montant >= $this->fil_amount_min and j_montant<=$this->fil_amount_max "
|
|
. " or (coalesce(comptaproc.get_letter_jnt($p_jid),-1)= coalesce(comptaproc.get_letter_jnt(j_id),-1) "
|
|
. " and coalesce(comptaproc.get_letter_jnt($p_jid),-1) <> -1 )) ";
|
|
$sql="
|
|
select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
coalesce(comptaproc.get_letter_jnt(j_id),-1) as letter,
|
|
jr_pj_number,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
$filter_deb
|
|
$filter_amount
|
|
order by j_date,j_id";
|
|
|
|
$this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* fills this->content with all the operation for the this->account(jrnx.j_poste)
|
|
*/
|
|
public function get_all()
|
|
{
|
|
$sql=" with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
coalesce(let_diff.jl_id,-1) as letter,
|
|
diff_letter1 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_id,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
left join letter_jl using (j_id)
|
|
left join let_diff using (jl_id)
|
|
where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* same as get_all but only for lettered operation
|
|
*/
|
|
public function get_letter()
|
|
{
|
|
$sql="
|
|
with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
let_diff.jl_id as letter,
|
|
diff_letter1 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_id,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
join letter_jl using (j_id)
|
|
left join let_diff using (jl_id)
|
|
where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* same as get_all but only for lettered operation
|
|
*/
|
|
public function get_letter_diff()
|
|
{
|
|
$sql="
|
|
with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select distinct j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
let_diff.jl_id as letter,
|
|
diff_letter1 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_id,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from
|
|
jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
join letter_jl using (j_id)
|
|
join let_diff using (jl_id)
|
|
where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
and diff_letter1 <> 0
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* same as get_all but only for unlettered operation
|
|
*/
|
|
public function get_unletter()
|
|
{
|
|
$sql="
|
|
with letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
-1 as letter,
|
|
0 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_id,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
where j_poste = $1 and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
and j_id not in (select j_id from letter_jl)
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->account, $this->start, $this->end));
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* only for operation retrieved thanks a quick_code
|
|
* manage the accounting entries for a given card
|
|
*/
|
|
class Lettering_Card extends Lettering
|
|
{
|
|
|
|
/**
|
|
* constructor
|
|
* @param $p_init db resource
|
|
* @param $p_qcode quick_code of the jrnx.j_id
|
|
*/
|
|
function __construct($p_init, $p_qcode=null)
|
|
{
|
|
parent::__construct($p_init);
|
|
$this->quick_code=$p_qcode;
|
|
$this->object_type='card';
|
|
}
|
|
|
|
/**
|
|
* fills the this->content, datas are filtered thanks
|
|
* - fil_deb poss values t (debit), f(credit), ' ' (everything)
|
|
* - fil_amount_max max amount
|
|
* - fil_amount_min min amount
|
|
* - $this->start min date
|
|
* - $this->end max date
|
|
* - this->quick_code: quick_code
|
|
*/
|
|
public function get_filter($p_jid=0)
|
|
{
|
|
$filter_deb='';
|
|
if (isset($this->fil_deb))
|
|
{
|
|
switch ($this->fil_deb)
|
|
{
|
|
case 0:
|
|
$filter_deb=" and j_debit='t' ";
|
|
break;
|
|
case 1:
|
|
$filter_deb=" and j_debit='f' ";
|
|
break;
|
|
case 2:
|
|
$filter_deb=" ";
|
|
break;
|
|
}
|
|
}
|
|
$filter_amount="";
|
|
if (isset($this->fil_amount_max)&&
|
|
isset($this->fil_amount_min)&&
|
|
isNumber($this->fil_amount_max)==1&&
|
|
isNumber($this->fil_amount_min)==1&&
|
|
($this->fil_amount_max!=0||$this->fil_amount_min!=0))
|
|
$filter_amount=" and (j_montant between $this->fil_amount_min and $this->fil_amount_max or (coalesce(comptaproc.get_letter_jnt($p_jid),-1)= coalesce(comptaproc.get_letter_jnt(j_id),-1) and coalesce(comptaproc.get_letter_jnt($p_jid),-1) <> -1 )) ";
|
|
$sql="
|
|
with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select distinct j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
coalesce(let_diff.jl_id,-1) as letter,
|
|
diff_letter1 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
left join letter_jl using (j_id)
|
|
left join let_diff using (jl_id)
|
|
where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
$filter_deb
|
|
$filter_amount
|
|
order by j_date,j_id";
|
|
|
|
$this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* fills this->content with all the operation for the this->quick_code(j_qcode)
|
|
*/
|
|
public function get_all()
|
|
{
|
|
$sql="
|
|
with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select DISTINCT j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
coalesce(let_diff.jl_id,-1) as letter,
|
|
diff_letter1 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_rate,
|
|
currency_id,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
left join letter_jl using (j_id)
|
|
left join let_diff using (jl_id)
|
|
where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* same as get_all but only for lettered operation
|
|
*/
|
|
public function get_letter()
|
|
{
|
|
$sql="
|
|
with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
let_diff.jl_id as letter,
|
|
diff_letter1 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_rate,
|
|
currency_id,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
join letter_jl using (j_id)
|
|
left join let_diff using (jl_id)
|
|
where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
|
|
}
|
|
|
|
public function get_letter_diff()
|
|
{
|
|
$sql="
|
|
with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select distinct j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
let_diff.jl_id as letter,
|
|
diff_letter1 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_id,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
left join letter_jl using (j_id)
|
|
left join let_diff using (jl_id)
|
|
where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
and diff_letter1 <>0
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* same as get_all but only for unlettered operation
|
|
*/
|
|
public function get_unletter()
|
|
{
|
|
$sql="
|
|
select j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
-1 as letter,
|
|
0 as letter_diff,
|
|
round(j_montant/currency_rate,4) as currency_amount,
|
|
currency_id,
|
|
currency_rate,
|
|
currency_rate_ref,
|
|
(select cr_code_iso from currency where currency_id=currency.id) as cr_code_iso
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
where j_qcode = upper($1) and j_date >= to_date($2,'DD.MM.YYYY') and j_date <= to_date ($3,'DD.MM.YYYY')
|
|
and $this->sql_ledger
|
|
and j_id not in (select j_id from letter_deb join jnt_letter using (jl_id) union select j_id from letter_cred join jnt_letter using (jl_id) )
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->quick_code, $this->start, $this->end));
|
|
}
|
|
|
|
/**
|
|
* fill $this->content with the rows from this query
|
|
* Columns are
|
|
* - j_id, id of jrnx
|
|
* - j_date, date opeation (yyyy.mm.dd)
|
|
* - to_char(j_date,'DD.MM.YYYY') as j_date_fmt,
|
|
* - jr_pj_number, receipt number
|
|
* - j_montant, amount of the rows
|
|
* - j_debit, Debit or credit
|
|
* - jr_comment, label of the operation
|
|
* - jr_internal, internal number
|
|
* - jr_id, id of jrn
|
|
* - jr_def_id, id of the ledger (jrn_def.jrn_def_id)
|
|
* - coalesce(let_diff.jl_id,-1) as letter, id of the lettering , -1 means unlettered
|
|
* - diff_letter1 as letter_diff, delta between lettered operation
|
|
* - extract ('days' from coalesce(jr_date_paid,now())-coalesce(jr_ech,jr_date)) as day_paid, days between operation and payment
|
|
* - jd1.jrn_def_type type of the ledger (FIN, ODS,VEN or ACH)
|
|
*
|
|
*
|
|
* @param type $p_type value is unlet for unlettered operation or let for everything
|
|
*/
|
|
public function get_balance_ageing($p_type)
|
|
{
|
|
$sql_let=($p_type=='unlet')?' let_diff.jl_id is null and':'';
|
|
$sql=" with let_diff as (select jl_id,deb_amount-cred_amount as diff_letter1
|
|
from
|
|
( select jl_id,coalesce(sum(j_montant),0) as cred_amount from letter_cred join jrnx using (j_id) group by jl_id) as CRED
|
|
left join (select jl_id,coalesce(sum(j_montant),0) as deb_amount from letter_deb join jrnx using (j_id) group by jl_id) as DEB using (jl_id)) ,
|
|
letter_jl as (select jl_id,j_id from letter_cred union all select jl_id,j_id from letter_deb)
|
|
select DISTINCT j_id,j_date,to_char(j_date,'DD.MM.YYYY') as j_date_fmt,jr_pj_number,
|
|
j_montant,j_debit,jr_comment,jr_internal,jr_id,jr_def_id,
|
|
coalesce(let_diff.jl_id,-1) as letter,
|
|
diff_letter1 as letter_diff,
|
|
extract ('days' from coalesce(jr_date_paid,now())-jr_date) as day_paid,
|
|
jd1.jrn_def_type
|
|
from jrnx join jrn on (j_grpt = jr_grpt_id)
|
|
join jrn_def as jd1 on (jrn.jr_def_id=jd1.jrn_def_id)
|
|
left join letter_jl using (j_id)
|
|
left join let_diff using (jl_id)
|
|
where
|
|
{$sql_let}
|
|
j_qcode = upper($1)
|
|
and j_date >= to_date($2,'DD.MM.YYYY')
|
|
and {$this->sql_ledger}
|
|
and jrn_def_type in ('VEN','ACH')
|
|
order by j_date,j_id";
|
|
$this->content=$this->db->get_array($sql, array($this->quick_code, $this->start));
|
|
}
|
|
|
|
}
|