global $g_user, $g_failed;
/**
* Show first the form
*/
/* category */
$categorie = new ISelect('cat');
$categorie->value = $cn->make_array('select fd_id,fd_label from fiche_def order by fd_label');
$categorie->selected = isset($_GET['cat']) ? $_GET['cat'] : 0;
$str_categorie = $categorie->input();
$icall = new ICheckBox("allcard", 1);
$icall->selected = isset($_GET['allcard']) ? 1 : 0;
$str_icall = $icall->input();
/* periode */
$exercice = $g_user->get_exercice();
$iperiode = new Periode($cn);
list($first, $last) = $iperiode->get_limit($exercice);
$periode_start = new IDate('start');
$periode_end = new IDate('end');
$periode_start->value = isset($_GET['start']) ? $_GET['start'] : $first->first_day();
$periode_end->value = isset($_GET['end']) ? $_GET['end'] : $last->last_day();
$str_start = $periode_start->input();
$str_end = $periode_end->input();
/* histo ou summary */
$histo = new ISelect('histo');
$histo->value = array(array('value' => -1, 'label' => _('Liste')), array('value' => 0, 'label' => _('Historique')), array('value' => 1, 'label' => _('Historique Lettré')), array('value' => 6, 'label' => _('Historique Lettré et montants différents')), array('value' => 2, 'label' => _('Historique non Lettré')), array('value' => 3, 'label' => _('Résumé')), array('value' => 4, 'label' => _('Balance')), array('value' => 6, 'label' => _('Balance âgée')), array('value' => 7, 'label' => _('Balance âgée en-cours')), array('value' => 5, 'label' => _('Balance non soldée')));
$histo->javascript = 'onchange="if (this.value==3 || this.value==-1) {
g("trstart").style.display="none";g("trend").style.display="none";g("allcard").style.display="none";}
else {g("trstart").style.display="";g("trend").style.display="";g("allcard").style.display="";}"';
$histo->selected = isset($_GET['histo']) ? $_GET['histo'] : -1;
$str_histo = $histo->input();
echo '<div class="content">';
* 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
*
*/
if (!defined('ALLOWED')) {
die('Appel direct ne sont pas permis');
}
global $g_user, $cn, $g_parameter;
require_once NOALYSS_INCLUDE . '/class_stock.php';
require_once NOALYSS_INCLUDE . '/class_periode.php';
$stock = new Stock($cn);
$array = $_GET;
if (!isset($array['wdate_start']) || !isset($array['wdate_end'])) {
// Date start / end
$exercice = $g_user->get_exercice();
$periode = new Periode($cn);
list($periode_start, $periode_end) = $periode->get_limit($exercice);
$array['wdate_start'] = $periode_start->first_day();
$array['wdate_end'] = $periode_end->last_day();
}
$stock->history($array);
// Show the jrn and date
//-----------------------------------------------------
require_once NOALYSS_INCLUDE . '/class_database.php';
global $g_user;
//-----------------------------------------------------
// Form
//-----------------------------------------------------
echo '<div class="content">';
echo '<FORM action="?" METHOD="GET">';
echo HtmlInput::hidden('ac', $_REQUEST['ac']);
echo HtmlInput::hidden('type', 'gl_comptes');
echo dossier::hidden();
echo '<TABLE><TR>';
$cn = new Database(dossier::id());
$periode = new Periode($cn);
$a = $periode->get_limit($g_user->get_exercice());
// $a is an array
$first_day = $a[0]->first_day();
$last_day = $a[1]->last_day();
// filter on period
$date_from = new IDate('from_periode');
$date_to = new IDate('to_periode');
$year = $g_user->get_exercice();
$date_from->value = isset($_REQUEST['from_periode']) && isDate($_REQUEST['from_periode']) != 0 ? $_REQUEST['from_periode'] : $first_day;
$date_to->value = isset($_REQUEST['to_periode']) && isDate($_REQUEST['to_periode']) != 0 ? $_REQUEST['to_periode'] : $last_day;
echo td(_('Depuis') . $date_from->input());
echo td(_('Jusque ') . $date_to->input());
$letter = new ICheckbox('letter');
$letter->selected = isset($_REQUEST['letter']) ? true : false;
$from_poste = new IPoste('from_poste');
$from_poste->value = HtmlInput::default_value('from_poste', '', $_REQUEST);
function search_box($p_array)
{
// Declaration
global $g_user;
$wrepo = HtmlInput::select_stock($this->cn, "wrepo", 'R');
$wrepo->value[] = array('value' => -1, 'label' => 'Tous les dépôts');
$wdate_start = new IDate('wdate_start');
$wdate_end = new IDate('wdate_end');
$wamount_start = new INum('wamount_start');
$wamount_end = new INum('wamount_end');
$wcard = new ICard('wcard');
$wcode_stock = new ICard('wcode_stock');
$wdirection = new ISelect("wdirection");
// value
$wrepo->selected = HtmlInput::default_value("wrepo", -1, $p_array);
// Date start / end
$exercice = $g_user->get_exercice();
$periode = new Periode($this->cn);
list($periode_start, $periode_end) = $periode->get_limit($exercice);
$wdate_start->value = HtmlInput::default_value("wdate_start", $periode_start->first_day(), $p_array);
$wdate_end->value = HtmlInput::default_value("wdate_end", $periode_end->last_day(), $p_array);
//amounts
$wamount_start->value = HtmlInput::default_value("wamount_start", 0, $p_array);
$wamount_end->value = HtmlInput::default_value("wamount_end", 0, $p_array);
//Card
$wcard->extra = "all";
$wcard->set_attribute("typecard", "all");
$wcard->value = HtmlInput::default_value("wcard", "", $p_array);
//Card stock
$wcode_stock->extra = " [sql] fd_id=500000 ";
$wcode_stock->set_attribute("typecard", "[sql] fd_id=500000");
$wcode_stock->value = HtmlInput::default_value("wcard", "", $p_array);
// Repository
$wcode_stock->value = HtmlInput::default_value("wcode_stock", "", $p_array);
//Direction
$wdirection->value = array(array('value' => "-1", 'label' => "Tout"), array('value' => "c", 'label' => "OUT"), array('value' => "d", 'label' => "IN"));
$wdirection->selected = HtmlInput::default_value("wdirection", "-1", $p_array);
require_once NOALYSS_INCLUDE . '/template/stock_histo_search.php';
}
$deb = $cn->get_value("select sum (j_montant) from jrnx where j_debit='t' {$sql_year} ");
$cred = $cn->get_value("select sum (j_montant) from jrnx where j_debit='f' {$sql_year} ");
if ($cred == $deb) {
$result = $g_succeed;
} else {
$result = $g_failed;
}
$class = $ix % 2 == 0 ? 'odd' : "even";
print tr(td(_('Grand livre')) . td(nbm($deb), ' class="num"') . td(nbm($cred), ' class="num"') . td(nbm($result), ' class="num"') . td($result), "class=\"{$class}\"");
echo '</table>';
echo '</div>';
echo '<hr>';
echo '<div class="myfieldset"><h1 class="legend">' . _('Vérification des comptes') . '</h1>';
$bilan = new Acc_Bilan($cn);
$periode = new Periode($cn);
list($start_periode, $end_periode) = $periode->get_limit($exercice);
$bilan->from = $start_periode->p_id;
$bilan->to = $end_periode->p_id;
$bilan->verify();
echo '</div>';
?>
<hr>
<div class="myfieldset">
<h1 class="legend">
<?php
echo _("Vérification des fiches") . '</legend>';
?>
</h1>
<h2>
<?php
echo _('Fiches ayant changé de poste comptable');
/**
* @brief return the first date and the last date of the current exercice for the current user
* @return and array ([0] => start_date,[1] => end_date)
*/
function get_limit_current_exercice()
{
$current_exercice = $this->get_exercice();
$periode = new Periode($this->db);
list($per_start, $per_end) = $periode->get_limit($current_exercice);
$start = $per_start->first_day();
$end = $per_end->last_day();
return array($start, $end);
}
function get_row($p_from_periode, $p_to_periode, $p_previous_exc = 0)
{
global $g_user;
// filter on requested periode
$per_sql = sql_filter_per($this->db, $p_from_periode, $p_to_periode, 'p_id', 'j_tech_per');
$and = "";
$jrn = "";
$from_poste = "";
$to_poste = "";
/* if several ledgers are asked then we filter here */
if ($this->jrn !== null) {
/**
*@file
*@bug the get_ledger here is not valid and useless we just need a list of the
* asked ledgers
*/
$jrn = " j_jrn_def in (";
$comma = '';
for ($e = 0; $e < count($this->jrn); $e++) {
$jrn .= $comma . $this->jrn[$e];
$comma = ',';
}
$jrn .= ')';
$and = " and ";
}
if (strlen(trim($this->from_poste)) != 0 && $this->from_poste != -1) {
$from_poste = " {$and} j_poste::text >= '" . $this->from_poste . "'";
$and = " and ";
}
if (strlen(trim($this->to_poste)) != 0 && $this->to_poste != -1) {
$to_poste = " {$and} j_poste::text <= '" . $this->to_poste . "'";
$and = " and ";
}
$filter_sql = $g_user->get_ledger_sql('ALL', 3);
switch ($p_previous_exc) {
case 0:
// build query
$sql = "select j_poste as poste,sum(deb) as sum_deb, sum(cred) as sum_cred from\n ( select j_poste,\n case when j_debit='t' then j_montant else 0 end as deb,\n case when j_debit='f' then j_montant else 0 end as cred\n from jrnx join tmp_pcmn on (j_poste=pcm_val)\n left join parm_periode on (j_tech_per = p_id)\n join jrn_def on (j_jrn_def=jrn_def_id)\n where\n {$jrn} {$from_poste} {$to_poste}\n {$and} {$filter_sql}\n and\n {$per_sql} ) as m group by 1 order by 1";
break;
case 1:
/*
* retrieve balance previous exercice
*/
$periode = new Periode($this->db);
$previous_exc = $periode->get_exercice($p_from_periode) - 1;
try {
list($previous_start, $previous_end) = $periode->get_limit($previous_exc);
$per_sql_previous = sql_filter_per($this->db, $previous_start->p_id, $previous_end->p_id, 'p_id', 'j_tech_per');
$sql = "\n with m as \n ( select j_poste,sum(deb) as sdeb,sum(cred) as scred\n from \n (select j_poste, \n case when j_debit='t' then j_montant else 0 end as deb, \n case when j_debit='f' then j_montant else 0 end as cred \n from jrnx \n join tmp_pcmn on (j_poste=pcm_val) \n left join parm_periode on (j_tech_per = p_id) \n join jrn_def on (j_jrn_def=jrn_def_id) \n where\n {$jrn} {$from_poste} {$to_poste}\n {$and} {$filter_sql} and {$per_sql}\n ) as sub_m group by j_poste order by j_poste ) , \n p as ( select j_poste,sum(deb) as sdeb,sum(cred) as scred \n from \n (select j_poste, \n case when j_debit='t' then j_montant else 0 end as deb, \n case when j_debit='f' then j_montant else 0 end as cred \n from jrnx join tmp_pcmn on (j_poste=pcm_val) \n left join parm_periode on (j_tech_per = p_id) \n join jrn_def on (j_jrn_def=jrn_def_id) \n where \n {$jrn} {$from_poste} {$to_poste}\n {$and} {$filter_sql} and {$per_sql_previous}) as sub_p group by j_poste order by j_poste)\n select coalesce(m.j_poste,p.j_poste) as poste\n ,coalesce(m.sdeb,0) as sum_deb\n , coalesce(m.scred,0) as sum_cred \n ,coalesce(p.sdeb,0) as sum_deb_previous\n , coalesce(p.scred,0) as sum_cred_previous from m full join p on (p.j_poste=m.j_poste)\n order by poste";
} catch (Exception $exc) {
$p_previous_exc = 0;
/*
* no previous exercice
*/
$sql = "select upper(j_poste::text) as poste,sum(deb) as sum_deb, sum(cred) as sum_cred from\n ( select j_poste,\n case when j_debit='t' then j_montant else 0 end as deb,\n case when j_debit='f' then j_montant else 0 end as cred\n from jrnx join tmp_pcmn on (j_poste=pcm_val)\n left join parm_periode on (j_tech_per = p_id)\n join jrn_def on (j_jrn_def=jrn_def_id)\n where\n {$jrn} {$from_poste} {$to_poste}\n {$and} {$filter_sql}\n and\n {$per_sql} ) as m group by poste order by poste";
}
break;
}
$cn = clone $this->db;
$Res = $this->db->exec_sql($sql);
$tot_cred = 0.0;
$tot_deb = 0.0;
$tot_deb_saldo = 0.0;
$tot_cred_saldo = 0.0;
$tot_cred_previous = 0.0;
$tot_deb_previous = 0.0;
$tot_deb_saldo_previous = 0.0;
$tot_cred_saldo_previous = 0.0;
$M = $this->db->size();
// Load the array
for ($i = 0; $i < $M; $i++) {
$r = $this->db->fetch($i);
$poste = new Acc_Account($cn, $r['poste']);
$a['poste'] = $r['poste'];
$a['label'] = mb_substr($poste->get_lib(), 0, 40);
$a['sum_deb'] = round($r['sum_deb'], 2);
$a['sum_cred'] = round($r['sum_cred'], 2);
$a['solde_deb'] = round($a['sum_deb'] >= $a['sum_cred'] ? $a['sum_deb'] - $a['sum_cred'] : 0, 2);
$a['solde_cred'] = round($a['sum_deb'] <= $a['sum_cred'] ? $a['sum_cred'] - $a['sum_deb'] : 0, 2);
if ($p_previous_exc == 1) {
$a['sum_deb_previous'] = round($r['sum_deb_previous'], 2);
$a['sum_cred_previous'] = round($r['sum_cred_previous'], 2);
$a['solde_deb_previous'] = round($a['sum_deb_previous'] >= $a['sum_cred_previous'] ? $a['sum_deb_previous'] - $a['sum_cred_previous'] : 0, 2);
$a['solde_cred_previous'] = round($a['sum_deb_previous'] <= $a['sum_cred_previous'] ? $a['sum_cred_previous'] - $a['sum_deb_previous'] : 0, 2);
$tot_cred_previous += $a['sum_cred_previous'];
$tot_deb_previous += $a['sum_deb_previous'];
$tot_deb_saldo_previous += $a['solde_deb_previous'];
$tot_cred_saldo_previous += $a['solde_cred_previous'];
}
if ($p_previous_exc == 0 && $this->unsold == true && $a['solde_cred'] == 0 && $a['solde_deb'] == 0) {
continue;
}
if ($p_previous_exc == 1 && $this->unsold == true && $a['solde_cred'] == 0 && $a['solde_deb'] == 0 && $a['solde_cred_previous'] == 0 && $a['solde_deb_previous'] == 0) {
continue;
}
$array[$i] = $a;
$tot_cred += $a['sum_cred'];
$tot_deb += $a['sum_deb'];
$tot_deb_saldo += $a['solde_deb'];
$tot_cred_saldo += $a['solde_cred'];
}
//for i
// Add the saldo
$i += 1;
$a['poste'] = "";
$a['label'] = "Totaux ";
$a['sum_deb'] = $tot_deb;
$a['sum_cred'] = $tot_cred;
$a['solde_deb'] = $tot_deb_saldo;
$a['solde_cred'] = $tot_cred_saldo;
if ($p_previous_exc == 1) {
$a['sum_deb_previous'] = $tot_deb_previous;
$a['sum_cred_previous'] = $tot_cred_previous;
$a['solde_deb_previous'] = $tot_deb_saldo_previous;
$a['solde_cred_previous'] = $tot_cred_saldo_previous;
}
$array[$i] = $a;
$this->row = $array;
return $array;
}
/**
* @brief retrieve amount of previous periode
* @param $p_to frmo the start of the exercise until $p_to
* @return $array with vat, price,other_amount
* @note
* @see
@code
array
'price' => string '446.1900' (length=8)
'vat' => string '21.7600' (length=7)
'priv' => string '0.0000' (length=6)
'tva_nd_recup' => string '0.0000' (length=6)
'tva' =>
array
0 =>
array
'sum_vat' => string '13.7200' (length=7)
'tva_id' => string '1' (length=1)
1 =>
array
'sum_vat' => string '8.0400' (length=6)
'tva_id' => string '3' (length=1)
2 =>
array
'sum_vat' => string '0.0000' (length=6)
'tva_id' => string '4' (length=1)
@endcode
*/
function previous_amount($p_to)
{
/* get the first periode of exercise */
$periode = new Periode($this->db, $p_to);
$exercise = $periode->get_exercice();
list($min, $max) = $periode->get_limit($exercise);
// transform min into date
$min_date = $min->first_day();
// transform $p_to into date
$periode_max = new Periode($this->db, $p_to);
$max_date = $periode_max->first_day();
bcscale(2);
// min periode
if ($this->type == 'ACH') {
/* get all amount exclude vat */
$sql = "select coalesce(sum(qp_price),0) as price" . " ,coalesce(sum(qp_vat),0) as vat " . ',coalesce(sum(qp_dep_priv),0) as priv' . ',coalesce(sum(qp_vat_sided),0) as reversed' . ',coalesce(sum(qp_nd_tva_recup),0)+coalesce(sum(qp_nd_tva),0) as tva_nd' . ',coalesce(sum(qp_vat_sided),0) as tva_np' . ' from quant_purchase join jrnx using(j_id) ' . " where j_date >= to_date(\$1,'DD.MM.YYYY') and j_date < to_date(\$2,'DD.MM.YYYY') " . ' and j_jrn_def = $3';
$array = $this->db->get_array($sql, array($min_date, $max_date, $this->id));
$ret = $array[0];
/* retrieve all vat code */
$array = $this->db->get_array("select coalesce(sum(qp_vat),0) as sum_vat,tva_id\n from quant_purchase as p right join tva_rate on (qp_vat_code=tva_id) join jrnx using(j_id)\n where tva_rate !=0 and j_date >= to_date(\$1,'DD.MM.YYYY') and j_date < to_date(\$2,'DD.MM.YYYY') \n and j_jrn_def = \$3\n group by tva_id", array($min_date, $max_date, $this->id));
$ret['tva'] = $array;
}
if ($this->type == 'VEN') {
/* get all amount exclude vat */
$sql = "select coalesce(sum(qs_price),0) as price" . " ,coalesce(sum(qs_vat),0) as vat " . ',0 as priv' . ',0 as tva_nd' . ',coalesce(sum(qs_vat_sided),0) as tva_np' . ' from quant_sold join jrnx using(j_id) ' . " where j_date >= to_date(\$1,'DD.MM.YYYY') and j_date < to_date(\$2,'DD.MM.YYYY') " . ' and j_jrn_def = $3';
$array = $this->db->get_array($sql, array($min_date, $max_date, $this->id));
$ret = $array[0];
/* retrieve all vat code */
$array = $this->db->get_array("select coalesce(sum(qs_vat),0) as sum_vat,tva_id\n from quant_sold as p right join tva_rate on (qs_vat_code=tva_id) join jrnx using(j_id)\n where tva_rate !=0 and\n j_date >= to_date(\$1,'DD.MM.YYYY') and j_date < to_date(\$2,'DD.MM.YYYY') \n and j_jrn_def = \$3\n group by tva_id", array($min_date, $max_date, $this->id));
$ret['tva'] = $array;
}
if ($this->type == "FIN") {
/* find the quick code of this ledger */
$ledger = new Acc_Ledger_Fin($this->db, $this->id);
$qcode = $ledger->get_bank();
$bank_card = new Fiche($this->db, $qcode);
/*add the amount from Opening Writing */
$cond = sprintf(" j_jrn_def <> %d and j_date >= to_date('%s','DD.MM.YYYY') and j_date < to_date('%s','DD.MM.YYYY') ", $this->id, $min_date, $max_date);
$saldo = $bank_card->get_bk_balance($cond);
$ret['amount'] = bcsub($saldo['debit'], $saldo['credit']);
}
return $ret;
}
require_once NOALYSS_INCLUDE . '/class_dossier.php';
require_once NOALYSS_INCLUDE . '/class_database.php';
require_once NOALYSS_INCLUDE . '/class_user.php';
require_once NOALYSS_INCLUDE . '/class_periode.php';
html_page_start($_SESSION['g_theme']);
echo '<div style="float:left;">';
global $g_user;
if (basename($_GET['ajax']) == 'ajax_history.php') {
$href = dossier::get();
$cn = new Database(dossier::id());
/* current year */
$g_user = new User($cn);
$exercice = $g_user->get_exercice();
/* get date limit */
$periode = new Periode($cn);
$limit = $periode->get_limit($exercice);
$from_periode = 'from_periode=' . format_date($limit[0]->p_start);
$to_periode = 'to_periode=' . format_date($limit[1]->p_end);
if (isset($_GET['ex'])) {
if ($exercice > $_GET['ex']) {
$limit_periode = $periode->get_limit($_GET['ex']);
$from_periode = 'from_periode=' . format_date($limit_periode[0]->p_start);
} else {
$limit_periode = $periode->get_limit($_GET['ex']);
$to_periode = 'to_periode=' . format_date($limit_periode[1]->p_end);
}
}
if (isset($_GET['pcm_val'])) {
$href_csv = "export.php?" . $href . '&poste_id=' . $_GET['pcm_val'] . '&ople=0&type=poste&' . $from_periode . '&' . $to_periode . "&act=CSV:postedetail";
$href_pdf = "export.php?" . $href . '&poste_id=' . $_GET['pcm_val'] . '&ople=0&type=poste&' . $from_periode . '&' . $to_periode . "&act=PDF:postedetail";
} else {
static function parse_formula($p_cn, $p_label, $p_formula, $p_start, $p_end, $p_eval = true, $p_type_date = 0, $p_sql = "")
{
global $g_user;
if (Impress::check_formula($p_formula) == false) {
if ($p_eval == true) {
return array('desc' => $p_label . ' Erreur Formule!', 'montant' => 0);
} else {
return $p_formula;
}
}
if ($p_type_date == 0) {
$cond = sql_filter_per($p_cn, $p_start, $p_end, 'p_id', 'j_tech_per');
} else {
$cond = "( j_date >= to_date('{$p_start}','DD.MM.YYYY') and j_date <= to_date('{$p_end}','DD.MM.YYYY'))";
}
include_once "class_acc_account_ledger.php";
while (preg_match_all("(\\[[0-9]*[A-Z]*%*c*d*s*\\])", $p_formula, $e) == true) {
// remove the [ ]
$x = $e[0];
foreach ($x as $line) {
$compute = 'all';
if (strpos($line, 'd') != 0) {
$compute = 'deb';
}
if (strpos($line, 'c') != 0) {
$compute = 'cred';
}
if (strpos($line, 's') != 0) {
$compute = 'signed';
}
$line = str_replace("[", "", $line);
$line = str_replace("]", "", $line);
$line = str_replace("d", "", $line);
$line = str_replace("c", "", $line);
$line = str_replace("s", "", $line);
// If there is a FROM clause we must recompute
// the time cond
if ($p_type_date == 0 && preg_match("/FROM=[0-9]+\\.[0-9]+/", $p_formula, $afrom) == 1) {
// There is a FROM clause
// then we must modify the cond for the periode
$from = str_replace("FROM=", "", $afrom[0]);
// Get the periode
/*! \note special value for the clause FROM=00.0000
*/
if ($from == '00.0000') {
// retrieve the first month of this periode
$user_periode = $g_user->get_periode();
$oPeriode = new Periode($p_cn);
$periode = $oPeriode->get_exercice($user_periode);
list($first, $last) = $oPeriode->get_limit($periode);
$ret = $first->get_date_limit();
$end_date = $oPeriode->get_date_limit($p_end);
if ($ret == null) {
throw new Exception('Pas de limite à cette période', 1);
}
$cond = sql_filter_per($p_cn, $ret['p_start'], $end_date['p_end'], 'date', 'j_tech_per');
} else {
$oPeriode = new Periode($p_cn);
try {
$pfrom = $oPeriode->find_periode('01.' . $from);
$cond = sql_filter_per($p_cn, $pfrom, $p_end, 'p_id', 'j_tech_per');
} catch (Exception $exp) {
/* if none periode is found
then we take the first periode of the year
*/
$user_periode = $g_user->get_periode();
$year = $oPeriode->get_exercice($user_periode);
list($first, $last) = $oPeriode->get_limit($year);
$ret = $first->get_date_limit();
$end_date = $oPeriode->get_date_limit($p_end);
if ($ret == null) {
throw new Exception('Pas de limite à cette période', 1);
}
$cond = sql_filter_per($p_cn, $ret['p_start'], $end_date['p_end'], 'date', 'j_tech_per');
}
}
}
if (strpos($p_formula, "FROM") != 0) {
// We remove FROM out of the p_formula
$p_formula = substr_replace($p_formula, "", strpos($p_formula, "FROM"));
}
// Get sum of account
$P = new Acc_Account_Ledger($p_cn, $line);
$detail = $P->get_solde_detail($cond . $p_sql);
if ($compute == 'all') {
$i = $detail['solde'];
}
if ($compute == 'deb') {
$i = $detail['debit'];
}
if ($compute == 'cred') {
$i = $detail['credit'];
}
if ($compute == 'signed') {
$i = $detail['debit'] - $detail['credit'];
}
$p_formula = str_replace($x[0], $i, $p_formula);
}
}
// $p_eval is true then we eval and returns result
if ($p_eval == true) {
$p_formula = "\$result=" . $p_formula . ";";
eval("{$p_formula}");
while (preg_match("/\\[([0-9]+)([Tt]*)\\]/", trim($p_label), $e) == 1) {
$nom = "!!" . $e[1] . "!!";
if (Impress::check_formula($e[0])) {
$nom = $p_cn->get_value("SELECT pcm_lib AS acct_name FROM tmp_pcmn WHERE pcm_val::text LIKE \$1||'%' ORDER BY pcm_val ASC LIMIT 1", array($e[1]));
if ($nom) {
if ($e[2] == 'T') {
$nom = strtoupper($nom);
}
if ($e[2] == 't') {
$nom = strtolower($nom);
}
}
}
$p_label = str_replace($e[0], $nom, $p_label);
}
$aret = array('desc' => $p_label, 'montant' => $result);
return $aret;
} else {
// $p_eval is false we returns only the string
return $p_formula;
}
}
}
require_once NOALYSS_INCLUDE . '/class_lettering.php';
global $g_user;
echo '<div class="content">';
echo '<div id="search">';
echo '<FORM METHOD="GET">';
echo dossier::hidden();
echo HtmlInput::hidden('ac', $_REQUEST['ac']);
echo HtmlInput::hidden('sb', $_REQUEST['sb']);
echo HtmlInput::hidden('sc', $_REQUEST['sc']);
echo HtmlInput::hidden('f_id', $_REQUEST['f_id']);
echo '<table width="50%">';
// limit of the year
$exercice = $g_user->get_exercice();
$periode = new Periode($cn);
list($first_per, $last_per) = $periode->get_limit($exercice);
$start = new IDate('start');
$start->value = isset($_GET['start']) ? $_GET['start'] : $first_per->first_day();
$r = td(_('Date début'));
$r .= td($start->input());
echo tr($r);
$end = new IDate('end');
$end->value = isset($_GET['end']) ? $_GET['end'] : $last_per->last_day();
$r = td(_('Date fin'));
$r .= td($end->input());
echo tr($r);
// type of lettering : all, lettered, not lettered
$sel = new ISelect('type_let');
$sel->value = array(array('value' => 0, 'label' => _('Toutes opérations')), array('value' => 1, 'label' => _('Opérations lettrées')), array('value' => 2, 'label' => _('Opérations NON lettrées')));
if (isset($_GET['type_let'])) {
$sel->selected = $_GET['type_let'];
ob_end_clean();
}
}
///////////////////////////////////////////////////////////////////////////
// for an account
///////////////////////////////////////////////////////////////////////////
if (isset($_REQUEST['pcm_val'])) {
$poste = new Acc_Account_Ledger($cn, $_REQUEST['pcm_val']);
$year = $g_user->get_exercice();
if ($year == 0) {
$html = _("erreur aucune période par défaut, allez dans préférence pour en choisir une");
} else {
$exercice = new Exercice($cn);
$old = '';
$per = new Periode($cn);
$limit_periode = $per->get_limit($year);
$array['from_periode'] = $limit_periode[0]->first_day();
$array['to_periode'] = $limit_periode[1]->last_day();
if (isset($_GET['ex'])) {
$limit_periode = $per->get_limit($_GET['ex']);
if ($_GET['ex'] < $year) {
$array['from_periode'] = $limit_periode[0]->first_day();
} else {
$array['to_periode'] = $limit_periode[1]->last_day();
}
}
/*
* Add button to select another year
*/
if ($exercice->count() > 1) {
$default = isset($_GET['ex']) ? $_GET['ex'] : $year;
/**
*@brief Display a form for adding an new anticipation
*@return html string with the form
*/
private function form_cat_new()
{
global $g_user;
$r = "";
$str_action = _('Nouveau');
$name = new IText('an_name');
$str_name = $name->input();
$start_date = new IPeriod('start_date');
$start_date->type = ALL;
$start_date->cn = $this->cn;
$start_date->show_end_date = false;
$start_date->show_start_date = true;
$start_date->user = $g_user;
$start_date->filter_year = false;
$end_date = new IPeriod('end_date');
$end_date->type = ALL;
$end_date->cn = $this->cn;
$end_date->show_end_date = true;
$end_date->show_start_date = false;
$end_date->user = $g_user;
$end_date->filter_year = false;
$period = $g_user->get_periode();
$per = new Periode($this->cn, $period);
$year = $per->get_exercice();
list($per_start, $per_end) = $per->get_limit($year);
$start_date->value = $per_start->p_id;
$end_date->value = $per_end->p_id;
$str_start_date = $start_date->input();
$str_end_date = $end_date->input();
$aLabel = array(_('Ventes'), _('Dépense'), _('Banque'));
$aCat = array();
for ($i = 0; $i < MAX_CAT; $i++) {
/* category name */
$name = new IText('fr_cat' . $i);
$name->value = isset($aLabel[$i]) ? $aLabel[$i] : '';
$aCat[$i]['name'] = $name->input();
/* category order */
$order = new IText('fr_order' . $i);
$order->value = $i + 1;
$aCat[$i]['order'] = $order->input();
}
ob_start();
require_once NOALYSS_INCLUDE . '/template/forecast_cat.php';
$r .= ob_get_contents();
ob_end_clean();
return $r;
}
function Summary($p_search = "", $p_action = "", $p_sql = "", $p_amount = false)
{
global $g_user;
$bank = new Acc_Parm_Code($this->cn, 'BANQUE');
$cash = new Acc_Parm_Code($this->cn, 'CAISSE');
$cc = new Acc_Parm_Code($this->cn, 'COMPTE_COURANT');
bcscale(4);
$gDossier = dossier::id();
$p_search = sql_string($p_search);
$script = $_SERVER['PHP_SELF'];
// Creation of the nav bar
// Get the max numberRow
$filter_amount = '';
global $g_user;
$filter_year = " j_tech_per in (select p_id from parm_periode " . "where p_exercice='" . $g_user->get_exercice() . "')";
if ($p_amount) {
$filter_amount = ' and f_id in (select f_id from jrnx where ' . $filter_year . ')';
}
$all_tiers = $this->count_by_modele($this->fiche_def_ref, "", $p_sql . $filter_amount);
// Get offset and page variable
$offset = isset($_REQUEST['offset']) ? $_REQUEST['offset'] : 0;
$page = isset($_REQUEST['page']) ? $_REQUEST['page'] : 1;
$bar = navigation_bar($offset, $all_tiers, $_SESSION['g_pagesize'], $page);
// set a filter ?
$search = $p_sql;
$exercice = $g_user->get_exercice();
$tPeriode = new Periode($this->cn);
list($max, $min) = $tPeriode->get_limit($exercice);
if (trim($p_search) != "") {
$search .= " and f_id in\n (select distinct f_id from fiche_detail\n where\n ad_id in (1,32,30,23,18,13) and ad_value ~* '{$p_search}')";
}
// Get The result Array
$step_tiers = $this->get_by_category($offset, $search . $filter_amount, 'name');
if ($all_tiers == 0 || count($step_tiers) == 0) {
return "";
}
$r = "";
$r .= _("Filtre rapide ") . HtmlInput::filter_table("tiers_tb", '0,1,2', 1);
$r .= $bar;
$r .= '<table id="tiers_tb" class="sortable" style="width:90%;margin-left:5%">
<TR >
<TH>' . _('Quick Code') . HtmlInput::infobulle(17) . '</TH>' . '<th>' . _('Poste comptable') . '</th>' . '<th class="sorttable_sorted_reverse">' . _('Nom') . '<span id="sorttable_sortrevind"> ▴</span>' . '</th>
<th>' . _('Adresse') . '</th>
<th style="text-align:right">' . _('Total débit') . '</th>
<th style="text-align:right">' . _('Total crédit') . '</th>
<th style="text-align:right">' . _('Solde') . '</th>';
$r .= '</TR>';
if (sizeof($step_tiers) == 0) {
return $r;
}
$i = 0;
$deb = 0;
$cred = 0;
foreach ($step_tiers as $tiers) {
$i++;
/* Filter on the default year */
$amount = $tiers->get_solde_detail($filter_year);
/* skip the tiers without operation */
if ($p_amount && $amount['debit'] == 0 && $amount['credit'] == 0 && $amount['solde'] == 0) {
continue;
}
$odd = "";
$odd = $i % 2 == 0 ? ' odd ' : ' even ';
$accounting = $tiers->strAttribut(ATTR_DEF_ACCOUNT);
if ($p_action == 'bank' && $amount['debit'] < $amount['credit']) {
if (strpos($accounting, $bank->p_value) === 0 || strpos($accounting, $cash->p_value) === 0 || strpos($accounting, $cc->p_value) === 0) {
//put in red if c>d
$odd .= " notice ";
}
}
$odd = ' class="' . $odd . '"';
$r .= "<TR {$odd}>";
$url_detail = $script . '?' . http_build_query(array('sb' => 'detail', 'sc' => 'sv', 'ac' => $_REQUEST['ac'], 'f_id' => $tiers->id, 'gDossier' => $gDossier));
$e = sprintf('<A HREF="%s" title="Détail" class="line"> ', $url_detail);
$r .= "<TD> {$e}" . $tiers->strAttribut(ATTR_DEF_QUICKCODE) . "</A></TD>";
$r .= "<TD> {$e}" . $accounting . "</TD>";
$r .= "<TD>" . h($tiers->strAttribut(ATTR_DEF_NAME)) . "</TD>";
$r .= "<TD>" . h($tiers->strAttribut(ATTR_DEF_ADRESS) . " " . $tiers->strAttribut(ATTR_DEF_CP) . " " . $tiers->strAttribut(ATTR_DEF_PAYS)) . "</TD>";
$str_deb = $amount['debit'] == 0 ? 0 : nbm($amount['debit']);
$str_cred = $amount['credit'] == 0 ? 0 : nbm($amount['credit']);
$str_solde = nbm($amount['solde']);
$r .= '<TD sorttable_customkey="' . $amount['debit'] . '" align="right"> ' . $str_deb . '</TD>';
$r .= '<TD sorttable_customkey="' . $amount['credit'] . '" align="right"> ' . $str_cred . '</TD>';
$side = $amount['debit'] > $amount['credit'] ? 'D' : 'C';
$side = $amount['debit'] == $amount['credit'] ? '=' : $side;
$red = "";
if ($p_action == 'customer' && $amount['debit'] < $amount['credit']) {
//put in red if d>c
$red = " notice ";
}
if ($p_action == 'supplier' && $amount['debit'] > $amount['credit']) {
//put in red if c>d
$red = " notice ";
}
$r .= '<TD class="' . $red . '" sorttable_customkey="' . $amount['solde'] . '" align="right"> ' . $str_solde . "{$side} </TD>";
$deb = bcadd($deb, $amount['debit']);
$cred = bcadd($cred, $amount['credit']);
$r .= "</TR>";
}
$r .= "<tfoot >";
$solde = abs(bcsub($deb, $cred));
$side = $deb > $cred ? 'Débit' : 'Crédit';
$r .= '<tr class="highlight">';
$r .= td("") . td("") . td("") . td("Totaux") . td(nbm($deb), 'class="num"') . td(nbm($cred), 'class="num"') . td(" {$side} " . nbm($solde), 'class="num"');
$r .= '</tr>';
$r .= "</tfoot>";
$r .= "</TABLE>";
$r .= $bar;
return $r;
}
