/**
* @brief this function will create a sql stmt to use to create the list for
* the ledger,
* @param$p_array is usually the $_GET,
* @param$p_order the order of the row
* @param$p_where is the sql condition if not null then the $p_array will not be used
* \note the p_action will be used to filter the ledger but gl means ALL
* struct array $p_array
\verbatim
(
[gDossier] => 13
[p_jrn] => -1
[date_start] =>
[date_end] =>
[amount_min] => 0
[amount_max] => 0
[desc] =>
[search] => Rechercher
[p_action] => ven
[sa] => l
)
\endverbatim
* \return an array with a valid sql statement, an the where clause => array[sql] array[where]
* \see list_operation
* \see display_search_form
* \see search_form
*/
public function build_search_sql($p_array, $p_order = "", $p_where = "")
{
$sql = "select jr_id\t,\n jr_montant,\n substr(jr_comment,1,60) as jr_comment,\n to_char(jr_ech,'DD.MM.YY') as str_jr_ech,\n to_char(jr_date,'DD.MM.YY') as str_jr_date,\n jr_date as jr_date_order,\n jr_grpt_id,\n jr_rapt,\n jr_internal,\n jrn_def_id,\n jrn_def_name,\n jrn_def_ech,\n jrn_def_type,\n jr_valid,\n jr_tech_per,\n jr_pj_name,\n p_closed,\n jr_pj_number,\n n_text,\n\t case\n\t when jrn_def_type='VEN' then\n\t\t (select ad_value from fiche_detail where ad_id=1\n\t\t and f_id=(select max(qs_client) from quant_sold join jrnx using (j_id) join jrn as e on (e.jr_grpt_id=j_grpt) where e.jr_id=x.jr_id))\n\t when jrn_def_type = 'ACH' then\n\t\t(select ad_value from fiche_detail where ad_id=1\n\t\tand f_id=(select max(qp_supplier) from quant_purchase join jrnx using (j_id) join jrn as e on (e.jr_grpt_id=j_grpt) where e.jr_id=x.jr_id))\n\t when jrn_def_type = 'FIN' then\n\t\t(select ad_value from fiche_detail where ad_id=1\n\t\tand f_id=(select qf_other from quant_fin where quant_fin.jr_id=x.jr_id))\n\t end as name,\n\t case\n\t when jrn_def_type='VEN' then (select ad_value from fiche_detail where ad_id=32 and f_id=(select max(qs_client) from quant_sold join jrnx using (j_id) join jrn as e on (e.jr_grpt_id=j_grpt) where e.jr_id=x.jr_id))\n\t when jrn_def_type = 'ACH' then (select ad_value from fiche_detail where ad_id=32 and f_id=(select max(qp_supplier) from quant_purchase join jrnx using (j_id) join jrn as e on (e.jr_grpt_id=j_grpt) where e.jr_id=x.jr_id))\n\t when jrn_def_type = 'FIN' then (select ad_value from fiche_detail where ad_id=32 and f_id=(select qf_other from quant_fin where quant_fin.jr_id=x.jr_id))\n\t end as first_name,\n\t case\n\t when jrn_def_type='VEN' then (select ad_value from fiche_detail where ad_id=23 and f_id=(select max(qs_client) from quant_sold join jrnx using (j_id) join jrn as e on (e.jr_grpt_id=j_grpt) where e.jr_id=x.jr_id))\n\t when jrn_def_type = 'ACH' then (select ad_value from fiche_detail where ad_id=23 and f_id=(select max(qp_supplier) from quant_purchase join jrnx using (j_id) join jrn as e on (e.jr_grpt_id=j_grpt) where e.jr_id=x.jr_id))\n\t when jrn_def_type = 'FIN' then (select ad_value from fiche_detail where ad_id=23 and f_id=(select qf_other from quant_fin where quant_fin.jr_id=x.jr_id))\n\t end as quick_code,\n\t case\n\t when jrn_def_type='VEN' then\n\t\t (select sum(qs_price)+sum(vat) from\n\t\t\t\t(select qs_internal,qs_price,case when qs_vat_sided<>0 then 0 else qs_vat end as vat from quant_sold where qs_internal=X.jr_internal) as ven_invoice\n\t\t\t )\n\t when jrn_def_type = 'ACH' then\n\t\t\t(\n\t\t\t\tselect sum(qp_price)+sum(vat)+sum(qp_nd_tva)+sum(qp_nd_tva_recup)\n\t\t\t\tfrom\n\t\t\t\t (select qp_internal,qp_price,qp_nd_tva,qp_nd_tva_recup,qp_vat-qp_vat_sided as vat from quant_purchase where qp_internal=X.jr_internal) as invoice_purchase\n\t\t\t)\n\t\telse null\n\t\tend as total_invoice,\n jr_date_paid,\n to_char(jr_date_paid,'DD.MM.YY') as str_jr_date_paid\n from\n jrn as X left join jrn_note using(jr_id)\n join jrn_def on jrn_def_id=jr_def_id\n join parm_periode on p_id=jr_tech_per";
if (!empty($p_array)) {
extract($p_array);
}
if (isset($op)) {
$r_jrn = isset(${$op . "r_jrn"}) ? ${$op . "r_jrn"} : -1;
} else {
$r_jrn = isset($r_jrn) ? $r_jrn : -1;
}
/* if no variable are set then give them a default
* value */
if ($p_array == null || empty($p_array) || !isset($amount_min)) {
$amount_min = 0;
$amount_max = 0;
$desc = '';
$qcode = isset($qcode) ? $qcode : "";
if (isset($qcodesearch_op)) {
$qcode = $qcodesearch_op;
}
$accounting = isset($accounting) ? $accounting : "";
$periode = new Periode($this->db);
$g_user = new User($this->db);
$p_id = $g_user->get_periode();
if ($p_id != null) {
list($date_start, $date_end) = $periode->get_date_limit($p_id);
}
}
/* if p_jrn : 0 if means all ledgers, if -1 means all ledger of this
* type otherwise only one ledger */
$fil_ledger = '';
$fil_amount = '';
$fil_date = '';
$fil_desc = '';
$fil_sec = '';
$fil_qcode = '';
$fil_account = '';
$fil_paid = '';
$fil_date_paid = '';
$and = '';
$g_user = new User($this->db);
$p_action = $ledger_type;
if ($p_action == '') {
$p_action = 'ALL';
}
if ($r_jrn == -1) {
/* from compta.php the p_action is quick_writing instead of ODS */
if ($p_action == 'quick_writing') {
$p_action = 'ODS';
}
$fil_ledger = $g_user->get_ledger_sql($p_action, 3);
$and = ' and ';
} else {
if ($p_action == 'quick_writing') {
$p_action = 'ODS';
}
$aLedger = $g_user->get_ledger($p_action, 3);
$fil_ledger = '';
$sp = '';
for ($i = 0; $i < count($r_jrn); $i++) {
if (isset($r_jrn[$i])) {
$a = $r_jrn[$i];
$fil_ledger .= $sp . $a;
$sp = ',';
}
}
$fil_ledger = ' jrn_def_id in (' . $fil_ledger . ')';
$and = ' and ';
/* no ledger selected */
if ($sp == '') {
$fil_ledger = '';
$and = '';
}
}
/* format the number */
$amount_min = abs(toNumber($amount_min));
$amount_max = abs(toNumber($amount_max));
if ($amount_min > 0 && isNumber($amount_min)) {
$fil_amount = $and . ' jr_montant >=' . $amount_min;
$and = ' and ';
}
if ($amount_max > 0 && isNumber($amount_max)) {
$fil_amount .= $and . ' jr_montant <=' . $amount_max;
$and = ' and ';
}
/* -------------------------------------------------------------------------- *
* if both amount are the same then we need to search into the detail
* and we reset the fil_amount
* -------------------------------------------------------------------------- */
if (isNumber($amount_min) && isNumber($amount_max) && $amount_min > 0 && bccomp($amount_min, $amount_max, 2) == 0) {
$fil_amount = $and . ' ( ';
// Look in detail
$fil_amount .= 'jr_grpt_id in ( select distinct j_grpt from jrnx where j_montant = ' . $amount_min . ') ';
//and the total operation
$fil_amount .= ' or ';
$fil_amount .= ' jr_montant = ' . $amount_min;
$fil_amount .= ')';
$and = " and ";
}
// date
if (isset($date_start) && isDate($date_start) != null) {
$fil_date = $and . " jr_date >= to_date('" . $date_start . "','DD.MM.YYYY')";
$and = " and ";
}
if (isset($date_end) && isDate($date_end) != null) {
$fil_date .= $and . " jr_date <= to_date('" . $date_end . "','DD.MM.YYYY')";
$and = " and ";
}
// date paiement
if (isset($date_paid_start) && isDate($date_paid_start) != null) {
$fil_date_paid = $and . " jr_date_paid >= to_date('" . $date_paid_start . "','DD.MM.YYYY')";
$and = " and ";
}
if (isset($date_paid_end) && isDate($date_paid_end) != null) {
$fil_date_paid .= $and . " jr_date_paid <= to_date('" . $date_paid_end . "','DD.MM.YYYY')";
$and = " and ";
}
// comment
if (isset($desc) && $desc != null) {
$desc = sql_string($desc);
$fil_desc = $and . " ( upper(jr_comment) like upper('%" . $desc . "%') or upper(jr_pj_number) like upper('%" . $desc . "%') " . " or upper(jr_internal) like upper('%" . $desc . "%')\n or jr_grpt_id in (select j_grpt from jrnx where j_text ~* '" . $desc . "')\n or jr_id in (select jr_id from jrn_info where ji_value is not null and ji_value ~* '{$desc}')\n )";
$and = " and ";
}
// Poste
if (isset($accounting) && $accounting != null) {
$fil_account = $and . " jr_grpt_id in (select j_grpt\n from jrnx where j_poste::text like '" . sql_string($accounting) . "%' ) ";
$and = " and ";
}
// Quick Code
if (isset($qcodesearch_op)) {
$qcode = $qcodesearch_op;
}
if (isset($qcode) && $qcode != null) {
$fil_qcode = $and . " jr_grpt_id in ( select j_grpt from\n jrnx where trim(j_qcode) = upper(trim('" . sql_string($qcode) . "')))";
$and = " and ";
}
// Only the unpaid
if (isset($unpaid)) {
$fil_paid = $and . SQL_LIST_UNPAID_INVOICE;
$and = " and ";
}
$g_user = new User(new Database());
$g_user->Check();
$g_user->check_dossier(dossier::id());
if ($g_user->admin == 0 && $g_user->is_local_admin() == 0) {
$fil_sec = $and . " jr_def_id in ( select uj_jrn_id " . " from user_sec_jrn where " . " uj_login='******'g_user'] . "'" . " and uj_priv in ('R','W'))";
}
$where = $fil_ledger . $fil_amount . $fil_date . $fil_desc . $fil_sec . $fil_amount . $fil_qcode . $fil_paid . $fil_account . $fil_date_paid;
$sql .= " where " . $where;
return array($sql, $where);
}
echo 'Неизвестный оператор';
return null;
break;
}
}
// если не пуст массив $_POST
if (!empty($_POST)) {
// если не пусты данные об операндах и операторе
if (isset($_POST['a']) && isset($_POST['b']) && isset($_POST['op'])) {
// если введено допустимое арифметическое действие
if (in_array($_POST['op'], $operators)) {
// считывание данных об операторе в переменную
$op = $_POST['op'];
// считывание данных об операндах в переменные
$a = toNumber($_POST['a']);
$b = toNumber($_POST['b']);
}
} else {
// редирект к пустой форме
}
}
?>
<html>
<head>
<meta charset="utf-8">
</head>
<body>
<form action="dz4.php" method="post">
<input type="text" name="a" value="<?php
echo $a;
function calculationTimer($PubTimer)
{
$n = '';
$n = formatNumber((timer() - $PubTimer) * 1000, 2, -1) / 1000;
$calculationTimer = toNumber($n, 3);
return @$calculationTimer;
}