noalyss
Version-6.7.2
|
Class for jrn, class acc_ledger for manipulating the ledger. More...
Public Member Functions | |
__construct ($p_cn, $p_id) | |
build_search_sql ($p_array, $p_order="", $p_where="") | |
this function will create a sql stmt to use to create the list for the ledger, | |
check_payment ($e_mp, $e_mp_qcode) | |
check if the payment method is valid | |
check_periode () | |
Check if a Dossier is using the check on the periode, if true than the user has to enter the date and the periode, it is a security check. | |
check_strict () | |
Check if a Dossier is using the strict mode or not. | |
compute_internal_code ($p_grpt) | |
compute the internal code of the saved operation and set the $this->jr_internal to the computed value | |
confirm ($p_array, $p_readonly=false) | |
show the result of the array to confirm before inserting | |
convert_from_follow ($p_ag_id) | |
create_document ($internal, $p_array) | |
create the invoice and saved it as attachment to the operation, | |
delete () | |
let you delete a operation | |
delete_ledger () | |
delete a ledger IF is not already used : cannot delete | |
display_ledger () | |
display detail of a ledger | |
display_search_form () | |
return a html string with the search_form | |
display_warning ($pa_msg, $p_warning) | |
Display warning contained in an array. | |
existing_vat () | |
return the used VAT code with a rate > 0 | |
get_all_fiche_def () | |
retrieve all the card for this type of ledger, make them into a string separated by comma | |
get_class_def () | |
retrieve the jrn_def_class_deb and return it | |
get_customer_late () | |
get info from customer not yet paid | |
get_customer_now () | |
get info from customer to pay today | |
get_detail (&$p_array, $p_jrn_type, $trunc=0, $a_TVA=null, $a_ParmCode=null) | |
get_detail gives the detail of row this array must contains at least the field | |
get_fiche_def () | |
retrieve the jrn_def_fiche and return them into a array index deb, cred | |
get_first ($p_type, $p_access=3) | |
get the first ledger type | |
get_id ($p_internal) | |
retrieve the jr_id thanks the internal code, do not change anything to the current object internal code | |
get_last ($p_limit) | |
return the last p_limit operation into an array | |
get_last_date () | |
get the date of the last operation | |
get_last_pj () | |
get_min_row () | |
get_name () | |
Return the name of a ledger. | |
get_operation ($p_from, $p_to) | |
retrieve operation from jrn | |
get_operation_date ($p_date, $p_ledger_type, $sql_op) | |
get_other_amount ($p_jr_id) | |
get the amount of vat for a given jr_grpt_id from the table quant_purchase | |
get_propertie () | |
Get the properties of a journal. | |
get_request () | |
get all the data from request and build the object | |
get_row ($p_from, $p_to, $p_limit=-1, $p_offset=-1) | |
get_row | |
get_rowSimple ($p_from, $p_to, $trunc=0, $p_limit=-1, $p_offset=-1) | |
Get simplified row from ledger. | |
get_saldo_exercice ($p_exercice) | |
get the saldo of an exercice, used for the opening of a folder | |
get_solde ($p_from, $p_to) | |
get the saldo of a ledger for a specific period | |
get_supplier_late () | |
get info from supplier not yet paid | |
get_supplier_now () | |
get info from supplier to pay today | |
get_tiers ($p_jrn_type, $jr_id) | |
Retrieve the third : supplier for purchase, customer for sale, bank for fin,. | |
get_type () | |
Return the type of a ledger (ACH,VEN,ODS or FIN) or GL. | |
GetDefLine () | |
GetDefLine | |
guess_pj () | |
guess what the next pj should be | |
inc_seq_pj () | |
increment the sequence for the pj | |
input ($p_array=null, $p_readonly=0) | |
Show the form to encode your operation. | |
input_new () | |
display screen to enter a new ledger | |
input_paid () | |
is_closed ($p_periode) | |
check if the current ledger is closed | |
list_operation ($sql, $offset, $p_paid=0) | |
Show all the operation. | |
list_operation_to_reconcile ($sql) | |
Show all the operation. | |
listing () | |
listing of all ledgers | |
previous_amount ($p_to) | |
retrieve amount of previous periode | |
reverse ($p_date) | |
reverse the operation by creating the opposite one, the result is to avoid it it must be done in | |
save ($p_array=null) | |
save the operation into the jrnx,jrn, , CA and pre_def | |
save_new ($array) | |
Insert a new ledger. | |
search_form ($p_type, $all_type_ledger=1, $div="") | |
return a HTML string with the form for the search | |
search_group ($p_what, $p_value) | |
retreive the jr_grpt_id from a ledger | |
select_ledger ($p_type="ALL", $p_access=3) | |
Show a select list of the ledgers you can access in writing, reading or simply accessing. | |
update ($array= '') | |
update a ledger | |
update_internal_code ($p_internal) | |
update_paid ($p_array) | |
Update the paiment in the list of operation. | |
vat_operation ($p_jr_id) | |
get the amount of vat for a given jr_grpt_id from the table quant_purchase | |
verify ($p_array) | |
verify that the operation can be saved | |
verify_ledger ($array) | |
Verify before update. | |
Static Public Member Functions | |
static | array_cat () |
create an array of the existing cat, to be used in a checkbox form | |
static | next_number ($p_cn, $p_type) |
retrieve the next number for this type of ledger connx ledger type | |
static | test_me ($pCase= '') |
this function is intended to test this class | |
Data Fields | |
$db | |
database connextion | |
$id | |
jrn_def.jrn_def_id | |
$name | |
jrn_def.jrn_def_name | |
$nb | |
default number of rows by default 10 | |
$row | |
row of the ledger | |
$type | |
type of the ledger ACH ODS FIN VEN or GL | |
Protected Member Functions | |
find_label ($p_value) | |
Retrieve the label of an accounting. |
Class for jrn, class acc_ledger for manipulating the ledger.
Definition at line 53 of file class_acc_ledger.php.
Acc_Ledger::__construct | ( | $ | p_cn, |
$ | p_id | ||
) |
$p_cn | database connexion |
$p_id | jrn.jrn_def_id |
Reimplemented in Acc_Ledger_Purchase, Acc_Ledger_Sold, and Acc_Ledger_Fin.
Definition at line 69 of file class_acc_ledger.php.
References db, id, name, and nb().
{ $this->id = $p_id; $this->name = &$this->jrn_def_name; $this->jrn_def_id = &$this->id; $this->db = $p_cn; $this->row = null; $this->nb = MAX_ARTICLE; }
static Acc_Ledger::array_cat | ( | ) | [static] |
create an array of the existing cat, to be used in a checkbox form
Definition at line 3228 of file class_acc_ledger.php.
References $r.
Referenced by Acc_Balance\filter_cat().
Acc_Ledger::build_search_sql | ( | $ | p_array, |
$ | p_order = "" , |
||
$ | p_where = "" |
||
) |
this function will create a sql stmt to use to create the list for the ledger,
is usually the $_GET, | |
the order of the row | |
is the sql condition if not null then the $p_array will not be used |
( [gDossier] => 13 [p_jrn] => -1 [date_start] => [date_end] => [amount_min] => 0 [amount_max] => 0 [desc] => [search] => Rechercher [p_action] => ven [sa] => l )
Definition at line 2572 of file class_acc_ledger.php.
References $a, $desc, $g_user, $op, $p_action, $p_array, $periode, $qcode, $r_jrn, $sp, $sql, db, id, isDate(), isNumber(), sql_string(), and toNumber().
{ $sql = "select jr_id , jr_montant, substr(jr_comment,1,60) as jr_comment, to_char(jr_ech,'DD.MM.YY') as str_jr_ech, to_char(jr_date,'DD.MM.YY') as str_jr_date, jr_date as jr_date_order, jr_grpt_id, jr_rapt, jr_internal, jrn_def_id, jrn_def_name, jrn_def_ech, jrn_def_type, jr_valid, jr_tech_per, jr_pj_name, p_closed, jr_pj_number, n_text, case when jrn_def_type='VEN' then (select ad_value from fiche_detail where ad_id=1 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)) when jrn_def_type = 'ACH' then (select ad_value from fiche_detail where ad_id=1 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)) when jrn_def_type = 'FIN' then (select ad_value from fiche_detail where ad_id=1 and f_id=(select qf_other from quant_fin where quant_fin.jr_id=x.jr_id)) end as name, case 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)) 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)) 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)) end as first_name, case 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)) 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)) 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)) end as quick_code, case when jrn_def_type='VEN' then (select sum(qs_price)+sum(vat) from (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 ) when jrn_def_type = 'ACH' then ( select sum(qp_price)+sum(vat)+sum(qp_nd_tva)+sum(qp_nd_tva_recup) from (select qp_internal,qp_price,qp_nd_tva,qp_nd_tva_recup,case when qp_vat_sided<>0 then 0 else qp_vat end as vat from quant_purchase where qp_internal=X.jr_internal) as invoice_purchase ) else null end as total_invoice, jr_date_paid, to_char(jr_date_paid,'DD.MM.YY') as str_jr_date_paid from jrn as X left join jrn_note using(jr_id) join jrn_def on jrn_def_id=jr_def_id 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 . 'jr_grpt_id in ( select distinct j_grpt from jrnx where j_montant = ' . $amount_min . ')'; $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 . "%') or jr_grpt_id in (select j_grpt from jrnx where j_text ~* '" . $desc . "') or jr_id in (select jr_id from jrn_info where ji_value is not null and ji_value ~* '$desc') )"; $and = " and "; } // Poste if (isset($accounting) && $accounting != null) { $fil_account = $and . " jr_grpt_id in (select j_grpt 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 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='" . $_SESSION['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); }
Acc_Ledger::check_payment | ( | $ | e_mp, |
$ | e_mp_qcode | ||
) |
check if the payment method is valid
is the value and $e_mp_qcode is the quickcode |
Definition at line 2365 of file class_acc_ledger.php.
References $array, $poste, and db.
Referenced by Acc_Ledger_Purchase\verify(), and Acc_Ledger_Sold\verify().
{ /* Check if the "paid by" is empty, */ if ($e_mp != 0) { /* the paid by is not empty then check if valid */ $empl = new Fiche($this->db); $empl->get_by_qcode($e_mp_qcode); if ($empl->empty_attribute(ATTR_DEF_ACCOUNT) == true) { throw new Exception(_("Celui qui paie n' a pas de poste comptable"), 20); } /* get the account and explode if necessary */ $sposte = $empl->strAttribut(ATTR_DEF_ACCOUNT); // if 2 accounts, take only the debit one for customer if (strpos($sposte, ',') != 0) { $array = explode(',', $sposte); $poste_val = $array[0]; } else { $poste_val = $sposte; } $poste = new Acc_Account_Ledger($this->db, $poste_val); if ($poste->load() == false) { throw new Exception(sprintf(_("Pour la fiche %s le poste comptable [%s] n'existe pas"),$empl->quick_code,$poste->id ), 9); } } }
Check if a Dossier is using the check on the periode, if true than the user has to enter the date and the periode, it is a security check.
Definition at line 2291 of file class_acc_ledger.php.
References $g_parameter, and exit.
Referenced by Acc_Ledger_Fin\confirm(), Acc_Ledger_Sold\confirm(), confirm(), Acc_Ledger_Fin\input(), Acc_Ledger_Sold\input(), input(), Acc_Ledger_Sold\insert(), Acc_Ledger_Purchase\insert(), Acc_Ledger_Fin\insert(), Acc_Ledger_Fin\verify(), Acc_Ledger_Sold\verify(), and Acc_Ledger_Purchase\verify().
{ global $g_parameter; if ($g_parameter->MY_CHECK_PERIODE == 'Y') return true; if ($g_parameter->MY_CHECK_PERIODE == 'N') return false; exit("Valeur invalid " . __FILE__ . ':' . __LINE__); }
Check if a Dossier is using the strict mode or not.
Definition at line 2275 of file class_acc_ledger.php.
References $g_parameter, and exit.
Referenced by Acc_Ledger_Fin\verify(), Acc_Ledger_Sold\verify(), and Acc_Ledger_Purchase\verify().
{ global $g_parameter; if ($g_parameter->MY_STRICT == 'Y') return true; if ($g_parameter->MY_STRICT == 'N') return false; exit("Valeur invalid " . __FILE__ . ':' . __LINE__); }
Acc_Ledger::compute_internal_code | ( | $ | p_grpt | ) |
compute the internal code of the saved operation and set the $this->jr_internal to the computed value
id in jr_grpt_ |
Definition at line 1950 of file class_acc_ledger.php.
References $num, $type, and db.
Referenced by Acc_Ledger_Sold\insert(), Acc_Ledger_Purchase\insert(), Acc_Ledger_Fin\insert(), and reverse().
Acc_Ledger::confirm | ( | $ | p_array, |
$ | p_readonly = false |
||
) |
show the result of the array to confirm before inserting
array from the form |
Reimplemented in Acc_Ledger_Purchase, Acc_Ledger_Sold, and Acc_Ledger_Fin.
Definition at line 1393 of file class_acc_ledger.php.
References $count, $date_limit, $desc, $g_parameter, $msg, $op, $p_array, $p_readonly, $ret, check_periode(), db, display_warning(), get_type(), h(), HtmlInput\hidden(), Anc_Plan\hidden(), nbm(), td(), tr(), trim(), verify(), and with_concerned.
Referenced by input().
{ global $g_parameter; $msg = array(); if (!$p_readonly) $msg = $this->verify($p_array); $this->id = $p_array['p_jrn']; if (empty($p_array)) return 'Aucun résultat'; $anc = null; extract($p_array); $lPeriode = new Periode($this->db); if ($this->check_periode() == true) { $lPeriode->p_id = $period; } else { $lPeriode->find_periode($e_date); } $total_deb = 0; $total_cred = 0; bcscale(2); $ret = ""; if (!empty($msg)) { $ret.=$this->display_warning($msg, _("Attention : il vaut mieux utiliser les fiches que les postes comptables")); } $ret.="<table >"; $ret.="<tr><td>" . _('Date') . " : </td><td>$e_date</td></tr>"; /* display periode */ $date_limit = $lPeriode->get_date_limit(); $ret.='<tr> ' . td(_('Période Comptable')) . td($date_limit['p_start'] . '-' . $date_limit['p_end']) . '</tr>'; $ret.="<tr><td>" . _('Libellé') . " </td><td>" . h($desc) . "</td></tr>"; $ret.="<tr><td>" . _('PJ Num') . " </td><td>" . h($e_pj) . "</td></tr>"; $ret.='</table>'; $ret.="<table class=\"result\">"; $ret.="<tr>"; $ret.="<th>" . _('Quick Code ou '); $ret.=_("Poste") . " </th>"; $ret.="<th style=\"text-align:left\"> " . _("Libellé") . " </th>"; $ret.="<th style=\"text-align:right\">" . _("Débit") . "</th>"; $ret.="<th style=\"text-align:right\">" . _("Crédit") . "</th>"; /* if we use the AC */ if ($g_parameter->MY_ANALYTIC != 'nu') { $anc = new Anc_Plan($this->db); $a_anc = $anc->get_list(); $x = count($a_anc); /* set the width of the col */ $ret.='<th colspan="' . $x . '" style="width:auto;text-align:center" >' . _('Compt. Analytique') . '</th>'; /* add hidden variables pa[] to hold the value of pa_id */ $ret.=Anc_Plan::hidden($a_anc); } $ret.="</tr>"; $ret.=HtmlInput::hidden('e_date', $e_date); $ret.=HtmlInput::hidden('desc', $desc); $ret.=HtmlInput::hidden('period', $lPeriode->p_id); $ret.=HtmlInput::hidden('e_pj', $e_pj); $ret.=HtmlInput::hidden('e_pj_suggest', $e_pj_suggest); $mt = microtime(true); $ret.=HtmlInput::hidden('mt', $mt); // For predefined operation $ret.=HtmlInput::hidden('e_comm', $desc); $ret.=HtmlInput::hidden('jrn_type', $this->get_type()); $ret.=HtmlInput::hidden('p_jrn', $this->id); $ret.=HtmlInput::hidden('nb_item', $nb_item); if ($this->with_concerned == true) { $ret.=HtmlInput::hidden('jrn_concerned', $jrn_concerned); } $ret.=dossier::hidden(); $count = 0; for ($i = 0; $i < $nb_item; $i++) { if ($p_readonly == true) { if (!isset(${'qc_' . $i})) ${'qc_' . $i} = ''; if (!isset(${'poste' . $i})) ${'poste' . $i} = ''; if (!isset(${'amount' . $i})) ${'amount' . $i} = ''; } $ret.="<tr>"; if (trim(${'qc_' . $i}) != "") { $oqc = new Fiche($this->db); $oqc->get_by_qcode(${'qc_' . $i}, false); $strPoste = $oqc->strAttribut(ATTR_DEF_ACCOUNT); $ret.="<td>" . ${'qc_' . $i} . ' - ' . $oqc->strAttribut(ATTR_DEF_NAME) . HtmlInput::hidden('qc_' . $i, ${'qc_' . $i}) . '</td>'; } if (trim(${'qc_' . $i}) == "" && trim(${'poste' . $i}) != "") { $oposte = new Acc_Account_Ledger($this->db, ${'poste' . $i}); $strPoste = $oposte->id; $ret.="<td>" . h(${"poste" . $i} . " - " . $oposte->get_name()) . HtmlInput::hidden('poste' . $i, ${'poste' . $i}) . '</td>'; } if (trim(${'qc_' . $i}) == "" && trim(${'poste' . $i}) == "") continue; $ret.="<td>" . h(${"ld" . $i}) . HtmlInput::hidden('ld' . $i, ${'ld' . $i}) . "</td>"; if (isset(${"ck$i"})) { $ret.="<td class=\"num\">" . nbm(${"amount" . $i}) . HtmlInput::hidden('amount' . $i, ${'amount' . $i}) . "</td>" . td(""); $total_deb = bcadd($total_deb, ${'amount' . $i}); } else { $ret.=td("") . "<td class=\"num\">" . nbm(${"amount" . $i}) . HtmlInput::hidden('amount' . $i, ${'amount' . $i}) . "</td>"; $total_cred = bcadd($total_cred, ${"amount" . $i}); } $ret.="<td>"; $ret.=(isset(${"ck$i"})) ? HtmlInput::hidden('ck' . $i, ${'ck' . $i}) : ""; $ret.="</td>"; // CA if ($g_parameter->MY_ANALYTIC != 'nu') // use of AA { if (preg_match("/^[6,7]+/", $strPoste) == 1) { // show form $op = new Anc_Operation($this->db); $null = ($g_parameter->MY_ANALYTIC == 'op') ? 1 : 0; $p_array['pa_id'] = $a_anc; /* op is the operation it contains either a sequence or a jrnx.j_id */ $ret.=HtmlInput::hidden('op[]=', $i); $ret.='<td style="text-align:center">'; $read = ($p_readonly == true) ? 0 : 1; $ret.=$op->display_form_plan($p_array, $null, $read, $count, round(${'amount' . $i}, 2)); $ret.='</td>'; $count++; } } $ret.="</tr>"; } $ret.=tr(td('') . td(_('Totaux')) . td($total_deb, 'class="num"') . td($total_cred, 'class="num"'), 'class="footer"'); $ret.="</table>"; if ($g_parameter->MY_ANALYTIC != 'nu' && $p_readonly == false) $ret.='<input type="button" class="button" value="' . _('verifie Imputation Analytique') . '" onClick="verify_ca(\'\');">'; return $ret; }
Acc_Ledger::convert_from_follow | ( | $ | p_ag_id | ) |
Definition at line 3679 of file class_acc_ledger.php.
References $array, $comment, $g_user, $qcode, db, isNumber(), and nb().
{ global $g_user; if (isNumber($p_ag_id)==0) return null; if (! $g_user->can_read_action($p_ag_id)) die (_('Action non accessible')); $array=array(); // retrieve info from action_gestion $tiers_id=$this->db->get_value('select f_id_dest from action_gestion where ag_id=$1',array($p_ag_id)); if ( $this->db->size() !=0 ) $qcode=$this->db->get_value('select j_qcode from vw_poste_qcode where f_id=$1',array($tiers_id)); else $qcode=""; $comment=$this->db->get_value('select ag_title from action_gestion where ag_id=$1',array($p_ag_id)); $array['e_client']=$qcode; $array['e_comm']=$comment; // retrieve info from action_detail $a_item=$this->db->get_array('select f_id,ad_text,ad_pu,ad_quant,ad_tva_id,ad_tva_amount,j_qcode from action_detail left join vw_poste_qcode using(f_id) where ag_id=$1',array($p_ag_id)); $array['nb_item']=($this->nb > count($a_item))?$this->nb:count($a_item); for ($i=0;$i<count($a_item);$i++) { $array['e_march'.$i]=$a_item[$i]['j_qcode']; $array['e_march'.$i.'_label']=$a_item[$i]['ad_text']; $array['e_march'.$i.'_price']=$a_item[$i]['ad_pu']; $array['e_march'.$i.'_tva_id']=$a_item[$i]['ad_tva_id']; $array['e_march'.$i.'_tva_amount']=$a_item[$i]['ad_tva_amount']; $array['e_quant'.$i]=$a_item[$i]['ad_quant']; } return $array; }
Acc_Ledger::create_document | ( | $ | internal, |
$ | p_array | ||
) |
create the invoice and saved it as attachment to the operation,
is the internal code | |
is normally the $_POST |
Definition at line 2338 of file class_acc_ledger.php.
References $doc, $filename, $p_array, $sql, db, h(), and trim().
Referenced by Acc_Ledger_Sold\insert().
{ extract($p_array); $doc = new Document($this->db); $doc->f_id = $e_client; $doc->md_id = $gen_doc; $doc->ag_id = 0; $p_array['e_pj']=$this->pj; $filename=""; $doc->Generate($p_array,$p_array['e_pj']); // Move the document to the jrn $doc->MoveDocumentPj($internal); // Update the comment with invoice number, if the comment is empty if (!isset($e_comm) || strlen(trim($e_comm)) == 0) { $sql = "update jrn set jr_comment=' document " . $doc->d_number . "' where jr_internal='$internal'"; $this->db->exec_sql($sql); } return h($doc->d_name . ' (' . $doc->d_filename . ')'); }
let you delete a operation
Definition at line 135 of file class_acc_ledger.php.
{ if ($this->id == 0) return; $grpt_id = $this->db->get_value('select jr_grpt_id from jrn where jr_id=$1', array($this->jr_id)); if ($this->db->count() == 0) return; $this->db->exec_sql('delete from jrnx where j_grpt=$1', array($grpt_id)); $this->db->exec_sql('delete from jrn where jr_id=$1', array($this->jr_id)); }
delete a ledger IF is not already used : cannot delete
Definition at line 3605 of file class_acc_ledger.php.
{ try { if ($this->db->get_value("select count(jr_id) from jrn where jr_def_id=$1", array($this->jrn_def_id)) > 0) throw new Exception(_("Impossible d'effacer un journal qui contient des opérations")); parent::delete(); } catch (Exception $e) { throw $e; } }
display detail of a ledger
Definition at line 3300 of file class_acc_ledger.php.
References $cn, $code, $f_id, $hidden, $name, $new, $pj_seq, $type, db, echo, HtmlInput\hidden(), and isNumber().
{ if ($this->load() == -1) { throw new Exception(_("Journal n'existe pas"), -1); } $type = $this->jrn_def_type; $name = $this->jrn_def_name; $code = $this->jrn_def_code; $str_add_button=""; /* widget for searching an account */ $wSearch = new IPoste(); $wSearch->set_attribute('ipopup', 'ipop_account'); $wSearch->set_attribute('account', 'p_jrn_class_deb'); $wSearch->set_attribute('no_overwrite', '1'); $wSearch->set_attribute('noquery', '1'); $wSearch->table = 3; $wSearch->name = "p_jrn_class_deb"; $wSearch->size = 20; $wSearch->value = $this->jrn_def_class_deb; $search = $wSearch->input(); $wPjPref = new IText(); $wPjPref->name = 'jrn_def_pj_pref'; $wPjPref->value = $this->jrn_def_pj_pref; $pj_pref = $wPjPref->input(); $wPjSeq = new INum(); $wPjSeq->value = 0; $wPjSeq->name = 'jrn_def_pj_seq'; $pj_seq = $wPjSeq->input(); $last_seq = $this->get_last_pj(); $name = $this->jrn_def_name; $hidden = HtmlInput::hidden('p_jrn', $this->id); $hidden.= HtmlInput::hidden('sa', 'detail'); $hidden.= dossier::hidden(); $hidden.=HtmlInput::hidden('p_jrn_deb_max_line', 10); $hidden.=HtmlInput::hidden('p_ech_lib', 'echeance'); $hidden.=HtmlInput::hidden('p_jrn_type', $type); $min_row = new INum("min_row",$this->jrn_deb_max_line); $min_row->prec=0; $description=new ITextarea('p_description'); $description->value=$this->jrn_def_description; $str_description=$description->input(); /* Load the card */ $card = $this->get_fiche_def(); $rdeb = explode(',', $card['deb']); $rcred = explode(',', $card['cred']); /* Numbering (only FIN) */ $num_op = new ICheckBox('numb_operation'); if ($this->jrn_def_num_op == 1) $num_op->selected = true; /* bank card */ $qcode_bank = ''; if ($type == 'FIN') { $f_id = $this->jrn_def_bank; if (isNumber($f_id) == 1) { $fBank = new Fiche($this->db, $f_id); $qcode_bank = $fBank->get_quick_code(); } } $new = 0; $cn = $this->db; echo $hidden; require_once('template/param_jrn.php'); }
return a html string with the search_form
Definition at line 2829 of file class_acc_ledger.php.
References $_REQUEST, $r, $type, HtmlInput\anchor_hide(), HtmlInput\button_anchor(), h2(), HtmlInput\hidden(), HtmlInput\submit(), and type.
{ $r = ''; $type = $this->type; if ($type == "") $type = 'ALL'; $r.='<div id="search_form" style="display:none">'; $r.=HtmlInput::anchor_hide('Fermer', '$(\'search_form\').style.display=\'none\';'); $r.=h2('Recherche','class="title"'); $r.='<FORM METHOD="GET">'; $r.=$this->search_form($type); $r.=HtmlInput::submit('search', _('Rechercher')); $r.=HtmlInput::hidden('ac', $_REQUEST['ac']); /* when called from commercial.php some hidden values are needed */ if (isset($_REQUEST['sa'])) $r.= HtmlInput::hidden("sa", $_REQUEST['sa']); if (isset($_REQUEST['sb'])) $r.= HtmlInput::hidden("sb", $_REQUEST['sb']); if (isset($_REQUEST['sc'])) $r.= HtmlInput::hidden("sc", $_REQUEST['sc']); if (isset($_REQUEST['f_id'])) $r.=HtmlInput::hidden("f_id", $_REQUEST['f_id']); $r.=HtmlInput::button_anchor(_('Fermer'), 'javascript:void(0)', 'fsearch_form', 'onclick="$(\'search_form\').style.display=\'none\';"','smallbutton'); $r.='</FORM>'; $r.='</div>'; $button = new IButton('tfs'); $button->label = _("Filtrer"); $button->javascript = "toggleHideShow('search_form','tfs');"; $r.=$button->input(); $r.='<hr>'; return $r; }
Acc_Ledger::display_warning | ( | $ | pa_msg, |
$ | p_warning | ||
) |
Display warning contained in an array.
Definition at line 150 of file class_acc_ledger.php.
References $str.
Referenced by confirm().
return the used VAT code with a rate > 0
Definition at line 2931 of file class_acc_ledger.php.
References $array, db, and type.
{ if ($this->type == 'ACH') { $array = $this->db->get_array("select tva_id,tva_label,tva_poste from tva_rate where tva_rate != 0.0000 " . " and exists (select qp_vat_code from quant_purchase where qp_vat_code=tva_id and exists (select j_id from jrnx where j_jrn_def = $1)) order by tva_id", array($this->id)); } if ($this->type == 'VEN') { $array = $this->db->get_array("select tva_id,tva_label,tva_poste from tva_rate where tva_rate != 0.0000 " . " and exists (select qs_vat_code from quant_sold where qs_vat_code=tva_id and exists (select j_id from jrnx where j_jrn_def = $1)) order by tva_id", array($this->id)); } return $array; }
Acc_Ledger::find_label | ( | $ | p_value | ) | [protected] |
retrieve all the card for this type of ledger, make them into a string separated by comma
Definition at line 2211 of file class_acc_ledger.php.
References $r, $res, $sql, db, Database\fetch_all(), and trim().
Referenced by Acc_Ledger_Sold\input().
{ $sql = "select jrn_def_fiche_deb as deb,jrn_def_fiche_cred as cred " . " from jrn_def where " . " jrn_def_id = $1 "; $r = $this->db->exec_sql($sql, array($this->id)); $res = Database::fetch_all($r); if (empty($res)) return null; $card = ""; $comma = ''; foreach ($res as $item) { if (strlen(trim($item['deb'])) != 0) { $card.=$comma . $item['deb']; $comma = ','; } if (strlen(trim($item['cred'])) != '') { $card.=$comma . $item['cred']; $comma = ','; } } return $card; }
retrieve the jrn_def_class_deb and return it
Definition at line 1370 of file class_acc_ledger.php.
References $r, $res, $sql, db, and Database\fetch_all().
get info from customer not yet paid
Definition at line 3674 of file class_acc_ledger.php.
References $array.
{ $array=$this->get_operation_date(Date('d.m.Y'), 'VEN', '<'); return $array; }
get info from customer to pay today
Definition at line 3666 of file class_acc_ledger.php.
References $array.
{ $array=$this->get_operation_date(Date('d.m.Y'), 'VEN', '='); return $array; }
Acc_Ledger::get_detail | ( | &$ | p_array, |
$ | p_jrn_type, | ||
$ | trunc = 0 , |
||
$ | a_TVA = null , |
||
$ | a_ParmCode = null |
||
) |
get_detail gives the detail of row this array must contains at least the field
the following field will be added
the structure is set in get_rowSimple, this array is modified,
$trunc | if the data must be truncated, usefull for pdf export is the type of the ledger (ACH or VEN) |
$a_TVA | TVA Array (default null) |
$a_ParmCode | Array (default null) |
Definition at line 1058 of file class_acc_ledger.php.
References $a, $code, $fiche, $p_array, $poste, $r, $sql, $tmp, db, Database\fetch_all(), and trim().
Referenced by get_rowSimple().
{ if ($a_TVA == null) { //Load TVA array $a_TVA = $this->db->get_array('select tva_id,tva_label,tva_poste from tva_rate where tva_rate != 0 order by tva_rate,tva_label,tva_id'); } if ($a_ParmCode == null) { //Load Parm_code $a_ParmCode = $this->db->get_array('select p_code,p_value from parm_code'); } // init $p_array['client'] = ""; $p_array['TVAC'] = 0; $p_array['TVA'] = array(); $p_array['AMOUNT_TVA'] = 0.0; $p_array['dep_priv'] = 0; $p_array['dna'] = 0; $p_array['tva_dna'] = 0; $dep_priv = 0.0; // // Retrieve data from jrnx $sql = "select j_id,j_poste,j_montant, j_debit,j_qcode from jrnx where " . " j_grpt=" . $p_array['grpt_id']; $Res2 = $this->db->exec_sql($sql); $data_jrnx = Database::fetch_all($Res2); $c = 0; // Parse data from jrnx and fill diff. field foreach ($data_jrnx as $code) { $idx_tva = 0; $poste = new Acc_Account_Ledger($this->db, $code['j_poste']); // if card retrieve name if the account is not a VAT account if (strlen(trim($code['j_qcode'])) != 0 && $poste->isTva() == 0) { $fiche = new Fiche($this->db); $fiche->get_by_qcode(trim($code['j_qcode']), false); $fiche_def_id = $fiche->get_fiche_def_ref_id(); // Customer or supplier if ($fiche_def_id == FICHE_TYPE_CLIENT || $fiche_def_id == FICHE_TYPE_FOURNISSEUR ||$fiche_def_id == FICHE_TYPE_ADM_TAX) { $p_array['TVAC'] = $code['j_montant']; $p_array['client'] = ($trunc == 0) ? $fiche->getName() : mb_substr($fiche->getName(), 0, 20); $p_array['reversed'] = false; if ($fiche_def_id == FICHE_TYPE_CLIENT && $code['j_debit'] == 'f') { $p_array['reversed'] = true; $p_array['TVAC']*=-1; } if ($fiche_def_id == FICHE_TYPE_ADM_TAX && $code['j_debit'] == 'f') { $p_array['reversed'] = true; $p_array['TVAC']*=-1; } if ($fiche_def_id == FICHE_TYPE_FOURNISSEUR && $code['j_debit'] == 't') { $p_array['reversed'] = true; $p_array['TVAC']*=-1; } } else { // if we use the ledger ven / ach for others card than supplier and customer if ($fiche_def_id != FICHE_TYPE_VENTE && $fiche_def_id != FICHE_TYPE_ACH_MAR && $fiche_def_id != FICHE_TYPE_ACH_SER && $fiche_def_id != FICHE_TYPE_ACH_MAT ) { $p_array['TVAC'] = $code['j_montant']; $p_array['client'] = ($trunc == 0) ? $fiche->getName() : mb_substr($fiche->getName(), 0, 20); $p_array['reversed'] = false; if ($p_jrn_type == 'ACH' && $code['j_debit'] == 't') { $p_array['reversed'] = true; $p_array['TVAC']*=-1; } if ($p_jrn_type == 'VEN' && $code['j_debit'] == 'f') { $p_array['reversed'] = true; $p_array['TVAC']*=-1; } } } } // if TVA, load amount, tva id and rate in array foreach ($a_TVA as $line_tva) { list($tva_deb, $tva_cred) = explode(',', $line_tva['tva_poste']); if ($code['j_poste'] == $tva_deb || $code['j_poste'] == $tva_cred) { // For the reversed operation if ($p_jrn_type == 'ACH' && $code['j_debit'] == 'f') { $code['j_montant'] = -1 * $code['j_montant']; } if ($p_jrn_type == 'VEN' && $code['j_debit'] == 't') { $code['j_montant'] = -1 * $code['j_montant']; } $p_array['AMOUNT_TVA']+=$code['j_montant']; $p_array['TVA'][$c] = array($idx_tva, array($line_tva['tva_id'], $line_tva['tva_label'], $code['j_montant'])); $c++; $idx_tva++; } } // isDNA // If operation is reversed then amount are negatif /* if ND */ if ($p_array['jrn_def_type'] == 'ACH') { $purchase = new Gestion_Purchase($this->db); $purchase->search_by_jid($code['j_id']); $purchase->load(); $dep_priv+=$purchase->qp_dep_priv; $p_array['dep_priv'] = $dep_priv; $p_array['dna']=bcadd($p_array['dna'],$purchase->qp_nd_amount); $p_array['tva_dna']=bcadd($p_array['tva_dna'],bcadd($purchase->qp_nd_tva,$purchase->qp_nd_tva_recup)); } } $p_array['TVAC'] = sprintf('% 10.2f', $p_array['TVAC'] ); $p_array['HTVA'] = sprintf('% 10.2f', $p_array['TVAC'] - $p_array['AMOUNT_TVA']); $r = ""; $a_tva_amount = array(); // inline TVA (used for the PDF) foreach ($p_array['TVA'] as $linetva) { foreach ($a_TVA as $tva) { if ($tva['tva_id'] == $linetva[1][0]) { $a = $tva['tva_id']; $a_tva_amount[$a] = $linetva[1][2]; } } } foreach ($a_TVA as $line_tva) { $a = $line_tva['tva_id']; if (isset($a_tva_amount[$a])) { $tmp = sprintf("% 10.2f", $a_tva_amount[$a]); $r.="$tmp"; } else $r.=sprintf("% 10.2f", 0); } $p_array['TVA_INLINE'] = $r; return $p_array; }
retrieve the jrn_def_fiche and return them into a array index deb, cred
\param | |
Definition at line 1348 of file class_acc_ledger.php.
References $r, $res, $sql, db, and Database\fetch_all().
Acc_Ledger::get_first | ( | $ | p_type, |
$ | p_access = 3 |
||
) |
Acc_Ledger::get_id | ( | $ | p_internal | ) |
retrieve the jr_id thanks the internal code, do not change anything to the current object internal code
Definition at line 2321 of file class_acc_ledger.php.
References $sql, $value, and db.
Referenced by Acc_Ledger_Sold\insert().
Acc_Ledger::get_last | ( | $ | p_limit | ) |
return the last p_limit operation into an array
is the max of operation to return |
Definition at line 2873 of file class_acc_ledger.php.
References $array, $g_user, $sql, and db.
{ global $g_user; $filter_ledger = $g_user->get_ledger_sql('ALL', 3); $filter_ledger = str_replace('jrn_def_id', 'jr_def_id', $filter_ledger); $sql = " select jr_id,jr_pj_number,jr_date,to_char(jr_date,'DD.MM.YYYY') as jr_date_fmt,jr_montant, jr_comment,jr_internal,jrn_def_code from jrn join jrn_def on (jrn_def_id=jr_def_id) where $filter_ledger order by jr_date desc limit $p_limit"; $array = $this->db->get_array($sql); return $array; }
get the date of the last operation
Definition at line 2305 of file class_acc_ledger.php.
References $date, $sql, and db.
Referenced by Acc_Ledger_Fin\verify(), Acc_Ledger_Sold\verify(), and Acc_Ledger_Purchase\verify().
Definition at line 79 of file class_acc_ledger.php.
References $last, $ret, and db.
Referenced by guess_pj().
{ if ($this->db->exist_sequence("s_jrn_pj" . $this->id)) { $ret = $this->db->get_array("select last_value,is_called from s_jrn_pj" . $this->id); $last = $ret[0]['last_value']; /** * \note With PSQL sequence , the last_value column is 1 when before AND after the first call, to make the difference between them * I have to check whether the sequence has been already called or not */ if ($ret[0]['is_called'] == 'f') $last--; return $last; } else $this->db->create_sequence("s_jrn_pj" . $this->id); return 0; }
Definition at line 1548 of file class_acc_ledger.php.
Referenced by Acc_Ledger_Fin\input(), Acc_Ledger_Sold\input(), and input().
Return the name of a ledger.
Definition at line 337 of file class_acc_ledger.php.
References $Max, $Res, $ret, db, Database\fetch_array(), name, and Database\num_row().
Referenced by Acc_Ledger_Fin\confirm(), Acc_Ledger_Sold\confirm(), and Acc_Ledger_Fin\input().
{ if ($this->id == 0) { $this->name = _("Grand Livre"); return $this->name; } $Res = $this->db->exec_sql("select jrn_def_name from " . " jrn_def where jrn_def_id=$1", array($this->id)); $Max = Database::num_row($Res); if ($Max == 0) return null; $ret = Database::fetch_array($Res, 0); $this->name = $ret['jrn_def_name']; return $ret['jrn_def_name']; }
Acc_Ledger::get_operation | ( | $ | p_from, |
$ | p_to | ||
) |
retrieve operation from jrn
$p_from | periode (id) |
$p_to | periode (id) |
Definition at line 2910 of file class_acc_ledger.php.
References $g_user, $jrn, $ret, $sql, db, and id.
{ global $g_user; $jrn = ($this->id == 0) ? 'and ' . $g_user->get_ledger_sql() : ' and jr_def_id = ' . $this->id; $sql = "select jr_id as id ,jr_internal as internal, " . "jr_pj_number as pj,jr_grpt_id," . " to_char(jr_date,'DDMMYY') as date_fmt, " . " jr_comment as comment, jr_montant as montant ," . " jr_grpt_id,jr_def_id" . " from jrn join jrn_def on (jr_def_id=jrn_def_id) where " . " jr_date >= (select p_start from parm_periode where p_id = $1) and jr_date <= (select p_end from parm_periode where p_id = $2)" . ' ' . $jrn . ' order by jr_date,substring(jr_pj_number,\'[0-9]+$\')::numeric asc'; $ret = $this->db->get_array($sql, array($p_from, $p_to)); return $ret; }
Acc_Ledger::get_operation_date | ( | $ | p_date, |
$ | p_ledger_type, | ||
$ | sql_op | ||
) |
Definition at line 3619 of file class_acc_ledger.php.
References $array, $g_user, $sql, and db.
{ global $g_user; switch ($p_ledger_type) { case 'ACH': $filter=$g_user->get_ledger_sql('ACH',3); break; case 'VEN': $filter=$g_user->get_ledger_sql('VEN',3); break; default: throw new Exception ('Ledger_type invalid : '.$p_ledger_type); } $sql = "select jr_id, jr_internal, jr_date, jr_comment,jr_comment,jr_montant from jrn join jrn_def on (jrn_def_id=jr_def_id) where jr_ech is not null and jr_ech $sql_op to_date($1,'DD.MM.YYYY') and coalesce (jr_rapt,'xx') <> 'paid' and $filter "; $array=$this->db->get_array($sql,array($p_date)); return $array; }
Acc_Ledger::get_other_amount | ( | $ | p_jr_id | ) |
get the amount of vat for a given jr_grpt_id from the table quant_purchase
the | jr_grpt_id |
array 'price' => string '91.3500' (length=7) 'vat' => string '0.0000' (length=6) 'priv' => string '0.0000' (length=6) 'tva_nd_recup' => string '0.0000' (length=6)
Definition at line 2964 of file class_acc_ledger.php.
References $array, $ret, db, and type.
{ if ($this->type == 'ACH') { $array = $this->db->get_array('select sum(qp_price) as price,sum(qp_vat) as vat ' . ',coalesce(sum(qp_nd_amount),0)+coalesce(sum(qp_dep_priv),0) as priv' . ',sum(qp_nd_tva_recup)+sum(qp_nd_tva) as tva_nd' . ' from quant_purchase join jrnx using(j_id) where j_grpt=$1 ', array($p_jr_id)); $ret = $array[0]; } if ($this->type == 'VEN') { $array = $this->db->get_array('select sum(qs_price) as price,sum(qs_vat) as vat ' . ',0 as priv' . ',0 as tva_nd' . ' from quant_sold join jrnx using(j_id) where j_grpt=$1 ', array($p_jr_id)); $ret = $array[0]; } return $ret; }
Get the properties of a journal.
Definition at line 1234 of file class_acc_ledger.php.
References $Res, db, echo, Database\fetch_array(), and Database\num_row().
Referenced by guess_pj().
{ if ($this->id == 0) return; $Res = $this->db->exec_sql("select jrn_Def_id,jrn_def_name,jrn_def_class_deb,jrn_def_class_cred,jrn_def_type, jrn_deb_max_line,jrn_cred_max_line,jrn_def_ech,jrn_def_ech_lib,jrn_def_code, jrn_def_fiche_deb,jrn_def_fiche_cred,jrn_def_pj_pref from jrn_Def where jrn_def_id=$1", array($this->id)); $Count = Database::num_row($Res); if ($Count == 0) { echo '<DIV="redcontent"><H2 class="error">' . _('Parametres journaux non trouves') . '</H2> </DIV>'; return null; } return Database::fetch_array($Res, 0); }
get all the data from request and build the object
Definition at line 2132 of file class_acc_ledger.php.
References $_REQUEST.
{ $this->id = $_REQUEST['p_jrn']; }
Acc_Ledger::get_row | ( | $ | p_from, |
$ | p_to, | ||
$ | p_limit = -1 , |
||
$ | p_offset = -1 |
||
) |
get_row
Get The data
from periode to periode starting line number of lines
Definition at line 367 of file class_acc_ledger.php.
References $a, $amount, $array, $fiche, $g_user, $line, $Max, $periode, $Res, $row, $tot_cred, $tot_deb, db, Database\fetch_all(), get_type(), h(), Database\num_row(), sql_filter_per(), trim(), and type.
{ global $g_user; $periode = sql_filter_per($this->db, $p_from, $p_to, 'p_id', 'jr_tech_per'); $cond_limite = ($p_limit != -1) ? " limit " . $p_limit . " offset " . $p_offset : ""; // retrieve the type $this->get_type(); // Grand livre == 0 if ($this->id != 0) { $Res = $this->db->exec_sql("select jr_id,j_id,j_id as int_j_id,to_char(j_date,'DD.MM.YYYY') as j_date, jr_internal, case j_debit when 't' then j_montant::text else ' ' end as deb_montant, case j_debit when 'f' then j_montant::text else ' ' end as cred_montant, j_debit as debit,j_poste as poste,jr_montant , " . "case when j_text='' or j_text is null then pcm_lib else j_text end as description,j_grpt as grp, jr_comment||' ('||jr_internal||')' as jr_comment, jr_pj_number, j_qcode, jr_rapt as oc, j_tech_per as periode from jrnx left join jrn on " . "jr_grpt_id=j_grpt " . " left join tmp_pcmn on pcm_val=j_poste " . " where j_jrn_def=" . $this->id . " and " . $periode . " order by j_date::date asc,substring(jr_pj_number,'[0-9]+$')::numeric asc,j_grpt,j_debit desc " . $cond_limite); } else { $Res = $this->db->exec_sql("select jr_id,j_id,j_id as int_j_id,to_char(j_date,'DD.MM.YYYY') as j_date, jr_internal, case j_debit when 't' then j_montant::text else ' ' end as deb_montant, case j_debit when 'f' then j_montant::text else ' ' end as cred_montant, j_debit as debit,j_poste as poste," . "case when j_text='' or j_text is null then pcm_lib else j_text end as description,j_grpt as grp, jr_comment||' ('||jr_internal||')' as jr_comment, jr_pj_number, jr_montant, j_qcode, jr_rapt as oc, j_tech_per as periode from jrnx left join jrn on " . "jr_grpt_id=j_grpt left join tmp_pcmn on pcm_val=j_poste join jrn_def on (jr_def_id=jrn_def_id) where " . $g_user->get_ledger_sql() . " and " . " " . $periode . " order by j_date::date,substring(jr_pj_number,'[0-9]+$') asc,j_grpt,j_debit desc " . $cond_limite); } $array = array(); $Max = Database::num_row($Res); if ($Max == 0) return null; $case = ""; $tot_deb = 0; $tot_cred = 0; $row = Database::fetch_all($Res); for ($i = 0; $i < $Max; $i++) { $fiche = new Fiche($this->db); $line = $row[$i]; $mont_deb = ($line['deb_montant'] != 0) ? sprintf("% 8.2f", $line['deb_montant']) : ""; $mont_cred = ($line['cred_montant'] != 0) ? sprintf("% 8.2f", $line['cred_montant']) : ""; $jr_montant = ($line['jr_montant'] != 0) ? sprintf("% 8.2f", $line['jr_montant']) : ""; $tot_deb+=$line['deb_montant']; $tot_cred+=$line['cred_montant']; $tot_op = $line['jr_montant']; /* Check first if there is a quickcode */ if (strlen(trim($line['description'])) == 0 && strlen(trim($line['j_qcode'])) != 0) { if ($fiche->get_by_qcode($line['j_qcode'], false) == 0) { $line['description'] = $fiche->strAttribut(ATTR_DEF_NAME); } } if ($case != $line['grp']) { $case = $line['grp']; // for financial, we show if the amount is or not in negative if ($this->type == 'FIN') { $amount = $this->db->get_value('select qf_amount from quant_fin where jr_id=$1', array($line['jr_id'])); /* if nothing is found */ if ($this->db->count() == 0) $tot_op = $jr_montant; else if ($amount < 0) { $tot_op = $amount; } } $array[] = array( 'jr_id' => $line['jr_id'], 'int_j_id' => $line['int_j_id'], 'j_id' => $line['j_id'], 'j_date' => $line['j_date'], 'internal' => $line['jr_internal'], 'deb_montant' => '', 'cred_montant' => ' ', 'description' => '<b><i>' . h($line['jr_comment']) . ' [' . $tot_op . '] </i></b>', 'poste' => $line['oc'], 'qcode' => $line['j_qcode'], 'periode' => $line['periode'], 'jr_pj_number' => $line ['jr_pj_number']); $array[] = array( 'jr_id' => '', 'int_j_id' => $line['int_j_id'], 'j_id' => '', 'j_date' => '', 'internal' => '', 'deb_montant' => $mont_deb, 'cred_montant' => $mont_cred, 'description' => $line['description'], 'poste' => $line['poste'], 'qcode' => $line['j_qcode'], 'periode' => $line['periode'], 'jr_pj_number' => '' ); } else { $array[] = array( 'jr_id' => $line['jr_id'], 'int_j_id' => $line['int_j_id'], 'j_id' => '', 'j_date' => '', 'internal' => '', 'deb_montant' => $mont_deb, 'cred_montant' => $mont_cred, 'description' => $line['description'], 'poste' => $line['poste'], 'qcode' => $line['j_qcode'], 'periode' => $line['periode'], 'jr_pj_number' => ''); } } $this->row = $array; $a = array($array, $tot_deb, $tot_cred); return $a; }
Acc_Ledger::get_rowSimple | ( | $ | p_from, |
$ | p_to, | ||
$ | trunc = 0 , |
||
$ | p_limit = -1 , |
||
$ | p_offset = -1 |
||
) |
Get simplified row from ledger.
p_from | periode |
p_to | periode |
p_limit | starting line |
p_offset | number of lines |
trunc | if data must be truncated (pdf export) |
Definition at line 521 of file class_acc_ledger.php.
References $array, $g_user, $jrn, $Max, $periode, $Res, $sql, $type, db, Database\fetch_all(), Database\fetch_array(), get_detail(), get_type(), id, Database\num_row(), and sql_filter_per().
{ global $g_user; // Grand-livre : id= 0 //--- $jrn = ($this->id == 0 ) ? "and " . $g_user->get_ledger_sql() : "and jrn_def_id = " . $this->id; $periode = sql_filter_per($this->db, $p_from, $p_to, 'p_id', 'jr_tech_per'); $cond_limite = ($p_limit != -1) ? " limit " . $p_limit . " offset " . $p_offset : ""; //--- $sql = " SELECT jrn.jr_id as jr_id , jrn.jr_id as num , jrn.jr_def_id as jr_def_id, jrn.jr_montant as montant, substr(jrn.jr_comment,1,35) as comment, to_char(jrn.jr_date,'DD-MM-YYYY') as date, to_char(jrn.jr_date_paid,'DD-MM-YYYY') as date_paid, jr_pj_number, jr_internal, jrn.jr_grpt_id as grpt_id, jrn.jr_pj_name as pj, jrn_def_type, jrn.jr_tech_per FROM jrn join jrn_def on (jrn_def_id=jr_def_id) WHERE $periode $jrn order by jr_date,substring(jrn.jr_pj_number,'[0-9]+$')::numeric asc $cond_limite"; $Res = $this->db->exec_sql($sql); $Max = Database::num_row($Res); if ($Max == 0) { return null; } $type = $this->get_type(); // for type ACH and Ven we take more info if ($type == 'ACH' || $type == 'VEN') { $a_ParmCode = $this->db->get_array('select p_code,p_value from parm_code'); $a_TVA = $this->db->get_array('select tva_id,tva_label,tva_poste from tva_rate where tva_rate != 0 order by tva_rate,tva_label,tva_id '); for ($i = 0; $i < $Max; $i++) { $array[$i] = Database::fetch_array($Res, $i); $p = $this->get_detail($array[$i], $type, $trunc, $a_TVA, $a_ParmCode); if ($array[$i]['dep_priv'] != 0.0) { $array[$i]['comment'].="(priv. " . $array[$i]['dep_priv'] . ")"; } } } else { $array = Database::fetch_all($Res); } return $array; }
Acc_Ledger::get_saldo_exercice | ( | $ | p_exercice | ) |
get the saldo of an exercice, used for the opening of a folder
is the exercice we want |
Definition at line 2251 of file class_acc_ledger.php.
References $res, $sql, and db.
{ $sql = "select sum(a.montant) as solde, j_poste, j_qcode from (select j_id, case when j_debit='t' then j_montant else j_montant * (-1) end as montant from jrnx) as a join jrnx using (j_id) join parm_periode on (j_tech_per = p_id ) where p_exercice=$1 and j_poste::text not like '7%' and j_poste::text not like '6%' group by j_poste,j_qcode having (sum(a.montant) != 0 )"; $res = $this->db->get_array($sql, array($p_exercice)); return $res; }
Acc_Ledger::get_solde | ( | $ | p_from, |
$ | p_to | ||
) |
get the saldo of a ledger for a specific period
start period | |
end period |
Definition at line 1277 of file class_acc_ledger.php.
References $array, $cred, $deb, $ledger, $line, $periode, $response, $ret, $sql, db, Database\fetch_all(), id, and sql_filter_per().
{ $ledger = ""; if ($this->id != 0) { $ledger = " and j_jrn_def = " . $this->id; } $periode = sql_filter_per($this->db, $p_from, $p_to, 'p_id', 'j_tech_per'); $sql = 'select j_montant as montant,j_debit as deb from jrnx where ' . $periode . $ledger; $ret = $this->db->exec_sql($sql); $array = Database::fetch_all($ret); $deb = 0.0; $cred = 0.0; foreach ($array as $line) { if ($line['deb'] == 't') $deb+=$line['montant']; else $cred+=$line['montant']; } $response = array($deb, $cred); return $response; }
get info from supplier not yet paid
Definition at line 3658 of file class_acc_ledger.php.
References $array.
{ $array=$this->get_operation_date(Date('d.m.Y'), 'ACH', '<'); return $array; }
get info from supplier to pay today
Definition at line 3650 of file class_acc_ledger.php.
References $array.
{ $array=$this->get_operation_date(Date('d.m.Y'), 'ACH', '='); return $array; }
Acc_Ledger::get_tiers | ( | $ | p_jrn_type, |
$ | jr_id | ||
) |
Retrieve the third : supplier for purchase, customer for sale, bank for fin,.
$p_jrn_type | type of the ledger FIN, VEN ACH or ODS |
Definition at line 3243 of file class_acc_ledger.php.
References $jr_id, $name, and db.
{ if ($p_jrn_type == 'ODS') return ' '; $tiers = ''; switch ($p_jrn_type) { case 'VEN': $tiers = $this->db->get_value('select max(qs_client) from quant_sold join jrnx using (j_id) join jrn on (jr_grpt_id=j_grpt) where jrn.jr_id=$1', array($jr_id)); break; case 'ACH': $tiers = $this->db->get_value('select max(qp_supplier) from quant_purchase join jrnx using (j_id) join jrn on (jr_grpt_id=j_grpt) where jrn.jr_id=$1', array($jr_id)); break; case 'FIN': $tiers = $this->db->get_value('select qf_other from quant_fin where jr_id=$1', array($jr_id)); break; } if ($this->db->count() == 0) return ''; $name = $this->db->get_value('select ad_value from fiche_detail where ad_id=1 and f_id=$1', array($tiers)); $first_name = $this->db->get_value('select ad_value from fiche_detail where ad_id=32 and f_id=$1', array($tiers)); return $name . ' ' . $first_name; }
Return the type of a ledger (ACH,VEN,ODS or FIN) or GL.
Definition at line 102 of file class_acc_ledger.php.
References $Max, $Res, $ret, db, Database\fetch_array(), name, Database\num_row(), and type.
Referenced by confirm(), Print_Ledger\factory(), get_row(), get_rowSimple(), and input().
{ if ($this->id == 0) { $this->name = _(" Tous les journaux"); $this->type = "GL"; return "GL"; } $Res = $this->db->exec_sql("select jrn_def_type from " . " jrn_def where jrn_def_id=" . $this->id); $Max = Database::num_row($Res); if ($Max == 0) return null; $ret = Database::fetch_array($Res, 0); $this->type = $ret['jrn_def_type']; return $ret['jrn_def_type']; }
GetDefLine
Get the number of lines of a journal
deb or cred |
Definition at line 1260 of file class_acc_ledger.php.
References $r, $Res, $sql, db, and Database\fetch_all().
guess what the next pj should be
Definition at line 586 of file class_acc_ledger.php.
References $pj_seq, $prop, get_last_pj(), and get_propertie().
Referenced by Acc_Ledger_Fin\input(), Acc_Ledger_Sold\input(), and input().
{ $prop = $this->get_propertie(); $pj_pref = $prop["jrn_def_pj_pref"]; $pj_seq = $this->get_last_pj() + 1; return $pj_pref . $pj_seq; }
increment the sequence for the pj
Definition at line 2400 of file class_acc_ledger.php.
Referenced by Acc_Ledger_Sold\insert(), and Acc_Ledger_Fin\insert().
Acc_Ledger::input | ( | $ | p_array = null , |
$ | p_readonly = 0 |
||
) |
Show the form to encode your operation.
if you correct or use a predef operation (default = null) | |
1 for readonly 0 for writable (default 0) |
Reimplemented in Acc_Ledger_Sold, Acc_Ledger_Purchase, and Acc_Ledger_Fin.
Definition at line 1561 of file class_acc_ledger.php.
References $amount, $deb, $def, $desc, $e, $Fiche, $g_parameter, $g_user, $label, $p_array, $p_readonly, $periode, $poste, $quick_code, $ret, $wDate, $wLedger, check_periode(), confirm(), db, echo, exit, get_min_row(), get_type(), guess_pj(), HtmlInput\hidden(), Dossier\id(), HtmlInput\infobulle(), nb(), select_ledger(), table, td(), tr(), trim(), and value.
{ global $g_parameter, $g_user; $this->nb=$this->get_min_row(); if ($p_readonly == 1) return $this->confirm($p_array); if ($p_array != null) extract($p_array); $add_js = ""; if ($g_parameter->MY_PJ_SUGGEST == 'Y') { $add_js = "update_pj();"; } if ($g_parameter->MY_DATE_SUGGEST=='Y') { $add_js.='get_last_date();'; } $add_js.='update_row("quick_item");'; $ret = ""; if ($g_user->check_action(FICADD) == 1) { /* Add button */ $f_add_button = new IButton('add_card'); $f_add_button->label = _('Créer une nouvelle fiche'); $f_add_button->set_attribute('ipopup', 'ipop_newcard'); $f_add_button->set_attribute('jrn', $this->id); $f_add_button->javascript = " this.jrn=\$('p_jrn').value;select_card_type(this);"; $f_add_button->input(); } $wLedger = $this->select_ledger('ODS', 2); if ($wLedger == null) exit(_('Pas de journal disponible')); $wLedger->javascript = "onChange='update_name();update_predef(\"ods\",\"t\",\"".$_REQUEST['ac']."\");$add_js'"; $label = " Journal " . HtmlInput::infobulle(2); $ret.=$label . $wLedger->input(); // Load the javascript // $ret.="<table>"; $ret.= '<tr ><td colspan="2" style="width:auto">'; $wDate = new IDate('e_date'); $wDate->readonly = $p_readonly; $e_date = (isset($e_date) && trim($e_date) != '') ? $e_date : ''; $wDate->value = $e_date; $ret.=_("Date") . ' : ' . $wDate->input(); $ret.= '</td>'; /* insert periode if needed */ // Periode //-- if ($this->check_periode() == true) { $l_user_per = $g_user->get_periode(); $def = (isset($periode)) ? $periode : $l_user_per; $period = new IPeriod("period"); $period->user = $g_user; $period->cn = $this->db; $period->value = $def; $period->type = OPEN; try { $l_form_per = $period->input(); } catch (Exception $e) { if ($e->getCode() == 1) { echo _("Aucune période ouverte"); exit(); } } $label = HtmlInput::infobulle(3); $f_periode = _("Période comptable") . " $label " . $l_form_per; $ret.=td($f_periode); } $wPJ = new IText('e_pj'); $wPJ->readonly = false; $wPJ->size = 10; /* suggest PJ ? */ $default_pj = ''; if ($g_parameter->MY_PJ_SUGGEST == 'Y') { $default_pj = $this->guess_pj(); } $wPJ->value = (isset($e_pj)) ? $e_pj : $default_pj; $ret.= '</tr>'; $ret.='<tr >'; $ret.='<td colspan="2" style="width:auto"> ' . _('Pièce') . ' : ' . $wPJ->input(); $ret.=HtmlInput::hidden('e_pj_suggest', $default_pj); $ret.= '</tr>'; $ret.= '</td>'; $ret.= '<tr>'; $ret.='<td colspan="2" style="width:auto">'; $ret.=_('Libellé'); $wDescription = new IText('desc'); $wDescription->readonly = $p_readonly; $wDescription->size = "50"; $wDescription->value = (isset($desc)) ? $desc : ''; $ret.=$wDescription->input(); $ret.= '</td>'; $ret.='</tr>'; $ret.= '</table>'; $nb_row = (isset($nb_item) ) ? $nb_item : $this->nb; $ret.=HtmlInput::hidden('nb_item', $nb_row); $ret.=dossier::hidden(); $ret.=dossier::hidden(); $ret.=HtmlInput::hidden('jrn_type', $this->get_type()); $info = HtmlInput::infobulle(0); $info_poste = HtmlInput::infobulle(9); if ($g_user->check_action(FICADD) == 1) $ret.=$f_add_button->input(); $ret.='<table id="quick_item" style="width:100%">'; $ret.='<tr>' . '<th style="text-align:left">Quickcode' . $info . '</th>' . '<th style="text-align:left">' . _('Poste') . $info_poste . '</th>' . '<th style="text-align:left">' . _('Libellé') . '</th>' . '<th style="text-align:left">' . _('Montant') . '</th>' . '<th style="text-align:left">' . _('Débit') . '</th>' . '</tr>'; for ($i = 0; $i < $nb_row; $i++) { // Quick Code $quick_code = new ICard('qc_' . $i); $quick_code->set_dblclick("fill_ipopcard(this);"); $quick_code->set_attribute('ipopup', 'ipopcard'); // name of the field to update with the name of the card $quick_code->set_attribute('label', "ld" . $i); // name of the field to update with the name of the card $quick_code->set_attribute('typecard', 'filter'); // Add the callback function to filter the card on the jrn $quick_code->set_callback('filter_card'); $quick_code->set_function('fill_data'); $quick_code->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $quick_code->name); $quick_code->value = (isset(${'qc_' . $i})) ? ${'qc_' . $i} : ""; $quick_code->readonly = $p_readonly; $label = ''; if ($quick_code->value != '') { $Fiche = new Fiche($this->db); $Fiche->get_by_qcode($quick_code->value); $label = $Fiche->strAttribut(ATTR_DEF_NAME); } // Account $poste = new IPoste(); $poste->name = 'poste' . $i; $poste->set_attribute('jrn', $this->id); $poste->set_attribute('ipopup', 'ipop_account'); $poste->set_attribute('label', 'ld' . $i); $poste->set_attribute('account', 'poste' . $i); $poste->set_attribute('dossier', Dossier::id()); $poste->value = (isset(${'poste' . $i})) ? ${"poste" . $i} : '' ; $poste->dbl_click_history(); $poste->readonly = $p_readonly; if ($poste->value != '') { $Poste = new Acc_Account($this->db); $Poste->set_parameter('value', $poste->value); $label = $Poste->get_lib(); } // Description of the line $line_desc = new IText(); $line_desc->name = 'ld' . $i; $line_desc->size = 30; $line_desc->value = (isset(${"ld" . $i})) ? ${"ld" . $i} : $label; // Amount $amount = new INum(); $amount->size = 10; $amount->name = 'amount' . $i; $amount->value = (isset(${'amount' . $i})) ? ${"amount" . $i} : '' ; $amount->readonly = $p_readonly; $amount->javascript = ' onChange="format_number(this);checkTotalDirect()"'; // D/C $deb = new ICheckBox(); $deb->name = 'ck' . $i; $deb->selected = (isset(${'ck' . $i})) ? true : false; $deb->readonly = $p_readonly; $deb->javascript = ' onChange="checkTotalDirect()"'; $ret.='<tr>'; $ret.='<td>' . $quick_code->input() . $quick_code->search() . '</td>'; $ret.='<td>' . $poste->input() . '<script> document.getElementById(\'poste' . $i . '\').onblur=function(){ if (trim(this.value) !=\'\') {document.getElementById(\'qc_' . $i . '\').value="";}}</script>' . '</td>'; $ret.='<td>' . $line_desc->input() . '</td>'; $ret.='<td>' . $amount->input() . '</td>'; $ret.='<td>' . $deb->input() . '</td>'; $ret.='</tr>'; // If readonly == 1 then show CA } $ret.='</table>'; if (isset($this->with_concerned) && $this->with_concerned == true) { $oRapt = new Acc_Reconciliation($this->db); $w = $oRapt->widget(); $w->name = 'jrn_concerned'; $w->value = (isset($jrn_concerned)) ? $jrn_concerned : ""; $ret.="Réconciliation/rapprochements : " . $w->input(); } $ret.= create_script("$('".$wDate->id."').focus()"); return $ret; }
display screen to enter a new ledger
Definition at line 3488 of file class_acc_ledger.php.
References $_REQUEST, $cn, $code, $g_user, $hidden, $name, $new, $pj_seq, $type, db, echo, and HtmlInput\hidden().
{ global $g_user; $f_add_button=new ISmallButton('add_card'); $f_add_button->label=_('Créer une nouvelle fiche'); $f_add_button->tabindex=-1; $f_add_button->set_attribute('jrn',-1); $f_add_button->javascript=" this.jrn=-1;select_card_type({type_cat:4});"; $str_add_button=""; if ($g_user->check_action(FICADD)==1) { $str_add_button=$f_add_button->input(); } $wSearch = new IPoste(); $wSearch->table = 3; $wSearch->set_attribute('ipopup', 'ipop_account'); $wSearch->set_attribute('account', 'p_jrn_class_deb'); $wSearch->set_attribute('no_overwrite', '1'); $wSearch->set_attribute('noquery', '1'); $wSearch->name = "p_jrn_class_deb"; $wSearch->size = 20; $search = $wSearch->input(); /* construct all the hidden */ $hidden = HtmlInput::hidden('p_jrn', -1); $hidden.= HtmlInput::hidden('p_action', 'jrn'); $hidden.= HtmlInput::hidden('sa', 'add'); $hidden.= dossier::hidden(); $hidden.=HtmlInput::hidden('p_jrn_deb_max_line', 10); $hidden.=HtmlInput::hidden('p_ech_lib', 'echeance'); /* properties of the ledger */ $name = ""; $code = ""; $wType = new ISelect(); $a_jrn= $this->db->make_array("select '-1',' -- "._("choix du type de journal")." -- ' union select jrn_type_id,jrn_desc from jrn_type"); $wType->selected='-1'; $wType->value =$a_jrn; $wType->name = "p_jrn_type"; $wType->id= "p_jrn_type_select_id"; $wType->javascript=' onchange="show_ledger_div()"'; $type = $wType->input(); $rcred = $rdeb = array(); $wPjPref = new IText(); $wPjPref->name = 'jrn_def_pj_pref'; $pj_pref = $wPjPref->input(); $pj_seq = ''; $last_seq = 0; $new = 1; $description=new ITextarea('p_description'); $description->value=""; $str_description=$description->input(); /* bank card */ $qcode_bank = ''; /* Numbering (only FIN) */ $num_op = new ICheckBox('numb_operation'); echo dossier::hidden(); echo HtmlInput::hidden('ac', $_REQUEST['ac']); echo $hidden; $cn = $this->db; $min_row = new INum("min_row",MAX_ARTICLE); $min_row->prec=0; require_once('template/param_jrn.php'); }
Acc_Ledger::is_closed | ( | $ | p_periode | ) |
check if the current ledger is closed
Definition at line 1798 of file class_acc_ledger.php.
Referenced by Acc_Ledger_Fin\verify(), Acc_Ledger_Sold\verify(), and Acc_Ledger_Purchase\verify().
Acc_Ledger::list_operation | ( | $ | sql, |
$ | offset, | ||
$ | p_paid = 0 |
||
) |
Show all the operation.
is the sql stmt, normally created by build_search_sql | |
the offset | |
if we want to see info about payment // Example // Build the sql list($sql,$where)=$Ledger->build_search_sql($_GET); // Count nb of line $max_line=$cn->count_sql($sql); $step=$_SESSION['g_pagesize']; $page=(isset($_GET['offset']))?$_GET['page']:1; $offset=(isset($_GET['offset']))?$_GET['offset']:0; // create the nav. bar $bar=navigation_bar($offset,$max_line,$step,$page); // show a part list($count,$html)= $Ledger->list_operation($sql,$offset,0); echo $html; // show nav bar echo $bar; |
Definition at line 801 of file class_acc_ledger.php.
References $_GET, $a, $count, $g_parameter, $g_user, $gDossier, $href, $Max, $offset, $operation, $ord, $order, $other, $r, $Res, $row, $sql, $str_dossier, $table, $tot, $tr, $url, $w, CleanUrl(), db, Database\escape_string(), Database\fetch_array(), h(), id, nbm(), Database\num_row(), td(), th(), and type.
{ global $g_parameter, $g_user; bcscale(2); $table = new Sort_Table(); $gDossier = dossier::id(); $amount_paid = 0.0; $amount_unpaid = 0.0; $limit = ($_SESSION['g_pagesize'] != -1) ? " LIMIT " . $_SESSION['g_pagesize'] : ""; $offset = ($_SESSION['g_pagesize'] != -1) ? " OFFSET " . Database::escape_string($offset) : ""; $order = " order by jr_date_order asc,jr_internal asc"; // Sort $url = "?" . CleanUrl(); $str_dossier = dossier::get(); $table->add(_("Date"), $url, 'order by jr_date asc,substring(jr_pj_number,\'[0-9]+$\')::numeric asc', 'order by jr_date desc,substring(jr_pj_number,\'[0-9]+$\')::numeric desc', "da", "dd"); $table->add(_('Echeance'), $url, " order by jr_ech asc", " order by jr_ech desc", 'ea', 'ed'); $table->add(_('Paiement'), $url, " order by jr_date_paid asc", " order by jr_date_paid desc", 'eap', 'edp'); $table->add(_('Pièce'), $url, ' order by substring(jr_pj_number,\'[0-9]+$\')::numeric asc ', ' order by substring(jr_pj_number,\'[0-9]+$\')::numeric desc ', "pja", "pjd"); $table->add(_('Tiers'), $url, " order by name asc", " order by name desc", 'na', 'nd'); $table->add(_('Montant'), $url, " order by jr_montant asc", " order by jr_montant desc", "ma", "md"); $table->add(_("Description"), $url, "order by jr_comment asc", "order by jr_comment desc", "ca", "cd"); $ord = (!isset($_GET['ord'])) ? 'da' : $_GET['ord']; $order = $table->get_sql_order($ord); // Count $count = $this->db->count_sql($sql); // Add the limit $sql.=$order . $limit . $offset; // Execute SQL stmt $Res = $this->db->exec_sql($sql); //starting from here we can refactor, so that instead of returning the generated HTML, //this function returns a tree structure. $r = ""; $Max = Database::num_row($Res); if ($Max == 0) return array(0, _("Aucun enregistrement trouvé")); $r.='<table class="result">'; $r.="<tr >"; $r.="<th>"._("n° interne")."</th>"; if ($this->type == 'ALL') { $r.=th('Journal'); } $r.='<th>' . $table->get_header(0) . '</th>'; $r.='<th>' . $table->get_header(1) . '</td>'; $r.='<th>' . $table->get_header(2) . '</th>'; $r.='<th>' . $table->get_header(3) . '</th>'; $r.='<th>' . $table->get_header(4) . '</th>'; $r.='<th>' . $table->get_header(6) . '</th>'; $r.=th('Notes', ' style="width:15%"'); $r.='<th>' . $table->get_header(5) . '</th>'; // if $p_paid is not equal to 0 then we have a paid column if ($p_paid != 0) { $r.="<th> " . _('Payé') . "</th>"; } $r.="<th>" . _('Concerne') . "</th>"; $r.="<th>" . _('Document') . "</th>"; $r.="</tr>"; // Total Amount $tot = 0.0; $gDossier = dossier::id(); for ($i = 0; $i < $Max; $i++) { $row = Database::fetch_array($Res, $i); if ($i % 2 == 0) $tr = '<TR class="odd">'; else $tr = '<TR class="even">'; $r.=$tr; //internal code // button modify $r.="<TD>"; // If url contains // $href = basename($_SERVER['PHP_SELF']); $r.=sprintf('<A class="detail" style="text-decoration:underline" HREF="javascript:modifyOperation(\'%s\',\'%s\')" >%s </A>', $row['jr_id'], $gDossier, $row['jr_internal']); $r.="</TD>"; if ($this->type == 'ALL') $r.=td($row['jrn_def_name']); // date $r.="<TD>"; $r.=$row['str_jr_date']; $r.="</TD>"; // echeance $r.="<TD>"; $r.=$row['str_jr_ech']; $r.="</TD>"; $r.="<TD>"; $r.=$row['str_jr_date_paid']; $r.="</TD>"; // pj $r.="<TD>"; $r.=$row['jr_pj_number']; $r.="</TD>"; // Tiers $other = ($row['quick_code'] != '') ? '[' . $row['quick_code'] . '] ' . $row['name'] . ' ' . $row['first_name'] : ''; $r.=td($other); // comment $r.="<TD>"; $tmp_jr_comment = h($row['jr_comment']); $r.=$tmp_jr_comment; $r.="</TD>"; $r.=td(h($row['n_text']), ' style="font-size:0.87em%"'); // Amount // If the ledger is financial : // the credit must be negative and written in red $positive = 0; // Check ledger type : if ($row['jrn_def_type'] == 'FIN') { $positive = $this->db->get_value("select qf_amount from quant_fin where jr_id=$1", array($row['jr_id'])); if ($this->db->count() != 0) $positive = ($positive < 0) ? 1 : 0; } $r.="<TD align=\"right\">"; $t_amount=$row['jr_montant']; if ($row['total_invoice'] != null && $row['total_invoice'] != $row['jr_montant']) $t_amount=$row['total_invoice']; $tot = ($positive != 0) ? bcsub($tot , $t_amount ): bcadd($tot , $t_amount); //STAN $positive always == 0 if ($row [ 'jrn_def_type']=='FIN') { $r.=( $positive != 0 ) ? "<font color=\"red\"> - " . nbm($t_amount) . "</font>" : nbm($t_amount); } else { $r.=( $t_amount < 0 ) ? "<font color=\"red\"> " . nbm($t_amount) . "</font>" : nbm($t_amount); } $r.="</TD>"; // Show the paid column if p_paid is not null if ($p_paid != 0) { $w = new ICheckBox(); $w->name = "rd_paid" . $row['jr_id']; $w->selected = ($row['jr_rapt'] == 'paid') ? true : false; // if p_paid == 2 then readonly $w->readonly = ( $p_paid == 2) ? true : false; $h = new IHidden(); $h->name = "set_jr_id" . $row['jr_id']; $r.='<TD>' . $w->input() . $h->input() . '</TD>'; if ($row['jr_rapt'] == 'paid') $amount_paid=bcadd($amount_paid,$t_amount); else $amount_unpaid=bcadd($amount_unpaid,$t_amount); } // Rapprochement $rec = new Acc_Reconciliation($this->db); $rec->set_jr_id($row['jr_id']); $a = $rec->get(); $r.="<TD>"; if ($a != null) { foreach ($a as $key => $element) { $operation = new Acc_Operation($this->db); $operation->jr_id = $element; $l_amount = $this->db->get_value("select jr_montant from jrn " . " where jr_id=$element"); $r.= "<A class=\"detail\" HREF=\"javascript:modifyOperation('" . $element . "'," . $gDossier . ")\" > " . $operation->get_internal() . "[" . nbm($l_amount) . "]</A>"; }//for }// if ( $a != null ) { $r.="</TD>"; if ($row['jr_valid'] == 'f') { $r.="<TD>"._("Opération annulée")."</TD>"; } else { } // else //document if ($row['jr_pj_name'] != "") { $image = '<IMG SRC="image/insert_table.gif" title="' . $row['jr_pj_name'] . '" border="0">'; $r.="<TD>" . sprintf('<A class="detail" HREF="show_pj.php?jrn=%s&jr_grpt_id=%s&%s">%s</A>', $row['jrn_def_id'], $row['jr_grpt_id'], $str_dossier, $image) . "</TD>"; } else $r.="<TD></TD>"; // end row $r.="</tr>"; } $amount_paid = round($amount_paid, 4); $amount_unpaid = round($amount_unpaid, 4); $tot = round($tot, 4); $r.="<TR>"; $r.='<TD COLSPAN="5">Total</TD>'; $r.='<TD ALIGN="RIGHT">' . nbm($tot) . "</TD>"; $r.="</tr>"; if ($p_paid != 0) { $r.="<TR>"; $r.='<TD COLSPAN="5">'._("Payé").'</TD>'; $r.='<TD ALIGN="RIGHT">' . nbm($amount_paid) . "</TD>"; $r.="</tr>"; $r.="<TR>"; $r.='<TD COLSPAN="5">'._("Non payé").'</TD>'; $r.='<TD ALIGN="RIGHT">' . nbm($amount_unpaid) . "</TD>"; $r.="</tr>"; } $r.="</table>"; return array($count, $r); }
Show all the operation.
is the sql stmt, normally created by build_search_sql | |
the offset | |
if we want to see info about payment // Example // Build the sql list($sql,$where)=$Ledger->build_search_sql($_GET); // Count nb of line $max_line=$this->db->count_sql($sql); $step=$_SESSION['g_pagesize']; $page=(isset($_GET['offset']))?$_GET['page']:1; $offset=(isset($_GET['offset']))?$_GET['offset']:0; // create the nav. bar $bar=navigation_bar($offset,$max_line,$step,$page); // show a part list($count,$html)= $Ledger->list_operation($sql,$offset,0); echo $html; // show nav bar echo $bar; |
Definition at line 625 of file class_acc_ledger.php.
References $a, $count, $g_parameter, $g_user, $gDossier, $href, $Max, $operation, $other, $r, $Res, $row, $sql, $str_dossier, $tot, $tr, db, Database\fetch_array(), h(), id, nbm(), Database\num_row(), td(), th(), and type.
{ global $g_parameter, $g_user; $gDossier = dossier::id(); $limit = " LIMIT ".MAX_RECONCILE; // Sort // Count $count = $this->db->count_sql($sql); // Add the limit $sql.=" order by jr_date asc " . $limit; // Execute SQL stmt $Res = $this->db->exec_sql($sql); //starting from here we can refactor, so that instead of returning the generated HTML, //this function returns a tree structure. $r = ""; $Max = Database::num_row($Res); if ($Max == 0) return array(0, _("Aucun enregistrement trouvé")); $r.='<table class="result">'; $r.="<tr >"; $r.="<th>"._("Selection")."</th>"; $r.="<th>"._("Internal")."</th>"; if ($this->type == 'ALL') { $r.=th(_('Journal')); } $r.='<th>'._("Date").'</th>'; $r.='<th>'._("Pièce").'</td>'; $r.=th(_('tiers')); $r.='<th>'._("Description").'</th>'; $r.=th(_('Notes'), ' '); $r.='<th>'._("Montant").'</th>'; $r.="<th>" . _('Concerne') . "</th>"; $r.="</tr>"; // Total Amount $tot = 0.0; $gDossier = dossier::id(); $str_dossier = Dossier::id(); for ($i = 0; $i < $Max; $i++) { $row = Database::fetch_array($Res, $i); if ($i % 2 == 0) $tr = '<TR class="odd">'; else $tr = '<TR class="even">'; $r.=$tr; // Radiobox // $r.='<td><INPUT TYPE="CHECKBOX" name="jr_concerned' . $row['jr_id'] . '" ID="jr_concerned' . $row['jr_id'] . '"> </td>'; //internal code // button modify $r.="<TD>"; // If url contains // $href = basename($_SERVER['PHP_SELF']); $r.=sprintf('<A class="detail" style="text-decoration:underline" HREF="javascript:modifyOperation(\'%s\',\'%s\')" >%s </A>', $row['jr_id'], $gDossier, $row['jr_internal']); $r.="</TD>"; if ($this->type == 'ALL') $r.=td($row['jrn_def_name']); // date $r.="<TD>"; $r.=$row['str_jr_date']; $r.="</TD>"; // pj $r.="<TD>"; $r.=$row['jr_pj_number']; $r.="</TD>"; // Tiers $other = ($row['quick_code'] != '') ? '[' . $row['quick_code'] . '] ' . $row['name'] . ' ' . $row['first_name'] : ''; $r.=td($other); // comment $r.="<TD>"; $tmp_jr_comment = h($row['jr_comment']); $r.=$tmp_jr_comment; $r.="</TD>"; $r.=td(h($row['n_text']), ' style="font-size:0.87em"'); // Amount // If the ledger is financial : // the credit must be negative and written in red $positive = 0; // Check ledger type : if ($row['jrn_def_type'] == 'FIN') { $positive = $this->db->get_value("select qf_amount from quant_fin where jr_id=$1", array($row['jr_id'])); if ($this->db->count() != 0) $positive = ($positive < 0) ? 1 : 0; } $r.="<TD align=\"right\">"; $r.=( $positive != 0 ) ? "<font color=\"red\"> - " . nbm($row['jr_montant']) . "</font>" : nbm($row['jr_montant']); $r.="</TD>"; // Rapprochement $rec = new Acc_Reconciliation($this->db); $rec->set_jr_id($row['jr_id']); $a = $rec->get(); $r.="<TD>"; if ($a != null) { foreach ($a as $key => $element) { $operation = new Acc_Operation($this->db); $operation->jr_id = $element; $l_amount = $this->db->get_value("select jr_montant from jrn " . " where jr_id=$element"); $r.= "<A class=\"detail\" HREF=\"javascript:modifyOperation('" . $element . "'," . $gDossier . ")\" > " . $operation->get_internal() . "[" . nbm($l_amount) . "]</A>"; }//for }// if ( $a != null ) { $r.="</TD>"; if ($row['jr_valid'] == 'f') { $r.="<TD>"._("Opération annulée")."</TD>"; } // end row $r.="</tr>"; } $r.='</table>'; return array($count, $r); }
listing of all ledgers
Definition at line 3272 of file class_acc_ledger.php.
References $_REQUEST, $base_url, $Max, $r, $ret, $str_dossier, $url, db, Database\fetch_array(), h(), and Database\num_row().
{ $str_dossier = dossier::get(); $base_url = "?" . dossier::get() . "&ac=" . $_REQUEST['ac']; $r = ""; $r.='<TABLE>'; $r.='<TR><TD class="mtitle"><A class="mtitle" HREF="' . $base_url . '&sa=add">' . _('Création') . ' </A></TD></TR>'; $ret = $this->db->exec_sql("select distinct jrn_def_id,jrn_def_name, jrn_def_class_deb,jrn_def_class_cred,jrn_def_type from jrn_def order by jrn_def_name"); $Max = Database::num_row($ret); for ($i = 0; $i < $Max; $i++) { $l_line = Database::fetch_array($ret, $i); $url = $base_url . "&sa=detail&p_jrn=" . $l_line['jrn_def_id']; $r.=sprintf('<TR><TD class="mtitle"><A class="mtitle" HREF="%s">%s</A></TD></TR>', $url, h($l_line['jrn_def_name'])); } $r.= "</TABLE>"; return $r; }
static Acc_Ledger::next_number | ( | $ | p_cn, |
$ | p_type | ||
) | [static] |
retrieve the next number for this type of ledger connx ledger type
Definition at line 2147 of file class_acc_ledger.php.
References $Ret.
Referenced by save_new().
Acc_Ledger::previous_amount | ( | $ | p_to | ) |
retrieve amount of previous periode
$p_to | frmo the start of the exercise until $p_to |
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)
Definition at line 3044 of file class_acc_ledger.php.
References $array, $max, $periode, $ret, $sql, db, and type.
{ /* get the first periode of exercise */ $periode = new Periode($this->db, $p_to); $exercise = $periode->get_exercice(); list ($min, $max) = $periode->get_limit($exercise); // 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_nd_tva_recup),0)+coalesce(sum(qp_nd_tva),0) as tva_nd' . ' from quant_purchase join jrnx using(j_id) ' . ' where j_tech_per >= $1 and j_tech_per < $2'; $array = $this->db->get_array($sql, array($min->p_id, $p_to)); $ret = $array[0]; /* retrieve all vat code */ $array = $this->db->get_array('select coalesce(sum(qp_vat),0) as sum_vat,tva_id from quant_purchase as p right join tva_rate on (qp_vat_code=tva_id) join jrnx using(j_id) where tva_rate !=0 and j_tech_per >= $1 and j_tech_per < $2 group by tva_id', array($min->p_id, $p_to)); $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' . ' from quant_sold join jrnx using(j_id) ' . ' where j_tech_per >= $1 and j_tech_per < $2'; $array = $this->db->get_array($sql, array($min->p_id, $p_to)); $ret = $array[0]; /* retrieve all vat code */ $array = $this->db->get_array('select coalesce(sum(qs_vat),0) as sum_vat,tva_id from quant_sold as p right join tva_rate on (qs_vat_code=tva_id) join jrnx using(j_id) where tva_rate !=0 and j_tech_per >= $1 and j_tech_per < $2 group by tva_id', array($min->p_id, $p_to)); $ret['tva'] = $array; } return $ret; }
Acc_Ledger::reverse | ( | $ | p_date | ) |
reverse the operation by creating the opposite one, the result is to avoid it it must be done in
$p_date | is the date of the reversed op |
if | date is invalid or other prob |
Definition at line 179 of file class_acc_ledger.php.
References $e, $g_user, $l, $per, $Res, $row, $seq, $sql, compute_internal_code(), db, id, isDate(), jr_id, and trim().
{ global $g_user; try { $this->db->start(); if (!isset($this->jr_id) || $this->jr_id == '') throw new Exception(_("this->jr_id is not set ou opération inconnue")); /* check if the date is valid */ if (isDate($p_date) == null) throw new Exception(_('Date invalide') . $p_date); // if the operation is in a closed or centralized period // the operation is voided thanks the opposite operation $grp_new = $this->db->get_next_seq('s_grpt'); $seq = $this->db->get_next_seq("s_jrn"); $p_internal = $this->compute_internal_code($seq); $this->jr_grpt_id = $this->db->get_value('select jr_grpt_id from jrn where jr_id=$1', array($this->jr_id)); if ($this->db->count() == 0) throw new Exception(_("Cette opération n'existe pas")); $this->jr_internal = $this->db->get_value('select jr_internal from jrn where jr_id=$1', array($this->jr_id)); if ($this->db->count() == 0 || trim($this->jr_internal) == '') throw new Exception(_("Cette opération n'existe pas")); /* find the periode thanks the date */ $per = new Periode($this->db); $per->jrn_def_id = $this->id; $per->find_periode($p_date); if ($per->is_open() == 0) throw new Exception(_('PERIODE FERMEE')); // Mark the operation invalid into the ledger // to avoid to nullify twice the same op. $sql = "update jrn set jr_comment='Annule : '||jr_comment where jr_id=$1"; $Res = $this->db->exec_sql($sql, array($this->jr_id)); // Check return code if ($Res == false) throw (new Exception(__FILE__ . __LINE__ . "sql a echoue [ $sql ]")); ////////////////////////////////////////////////// // Reverse in jrnx* tables ////////////////////////////////////////////////// $a_jid = $this->db->get_array("select j_id,j_debit from jrnx where j_grpt=$1", array($this->jr_grpt_id)); for ($l = 0; $l < count($a_jid); $l++) { $row = $a_jid[$l]['j_id']; // Make also the change into jrnx $sql = "insert into jrnx ( j_date,j_montant,j_poste,j_grpt, j_jrn_def,j_debit,j_text,j_internal,j_tech_user,j_tech_per,j_qcode ) select to_date($1,'DD.MM.YYYY'),j_montant,j_poste,$2, j_jrn_def,not (j_debit),j_text,$3,$4,$5, j_qcode from jrnx where j_id=$6 returning j_id"; $Res = $this->db->exec_sql($sql, array($p_date, $grp_new, $p_internal, $g_user->id, $per->p_id, $row)); // Check return code if ($Res == false) throw (new Exception(__FILE__ . __LINE__ . "SQL ERROR [ $sql ]")); $aj_id = $this->db->fetch(0); $j_id = $aj_id['j_id']; /* automatic lettering */ $let = new Lettering($this->db); $let->insert_couple($j_id, $row); // reverse in QUANT_SOLD $Res = $this->db->exec_sql("INSERT INTO quant_sold( qs_internal, qs_fiche, qs_quantite, qs_price, qs_vat, qs_vat_code, qs_client, qs_valid, j_id) SELECT $1, qs_fiche, qs_quantite*(-1), qs_price*(-1), qs_vat*(-1), qs_vat_code, qs_client, qs_valid, $2 FROM quant_sold where j_id=$3", array($p_internal, $j_id, $row)); if ($Res == false) throw (new Exception(__FILE__ . __LINE__ . "sql a echoue [ $sql ]")); $Res = $this->db->exec_sql("INSERT INTO quant_purchase( qp_internal, j_id, qp_fiche, qp_quantite, qp_price, qp_vat, qp_vat_code, qp_nd_amount, qp_nd_tva, qp_nd_tva_recup, qp_supplier, qp_valid, qp_dep_priv) SELECT $1, $2, qp_fiche, qp_quantite*(-1), qp_price*(-1), qp_vat*(-1), qp_vat_code, qp_nd_amount*(-1), qp_nd_tva*(-1), qp_nd_tva_recup*(-1), qp_supplier, qp_valid, qp_dep_priv*(-1) FROM quant_purchase where j_id=$3", array($p_internal, $j_id, $row)); if ($Res == false) throw (new Exception(__FILE__ . __LINE__ . "SQL ERROR [ $sql ]")); } $sql = "insert into jrn ( jr_id, jr_def_id, jr_montant, jr_comment, jr_date, jr_grpt_id, jr_internal ,jr_tech_per, jr_valid ) select $1,jr_def_id,jr_montant,'Annulation '||jr_comment, to_date($2,'DD.MM.YYYY'),$3,$4, $5, true from jrn where jr_id=$6"; $Res = $this->db->exec_sql($sql, array($seq, $p_date, $grp_new, $p_internal, $per->p_id, $this->jr_id)); // Check return code if ($Res == false) throw (new Exception(__FILE__ . __LINE__ . "SQL ERROR [ $sql ]")); // reverse in QUANT_FIN table $Res = $this->db->exec_sql(" INSERT INTO quant_fin( qf_bank, qf_other, qf_amount,jr_id) SELECT qf_bank, qf_other, qf_amount*(-1),$1 FROM quant_fin where jr_id=$2", array($seq, $this->jr_id)); if ($Res == false) throw (new Exception(__FILE__ . __LINE__ . "SQL ERROR[ $sql ]")); // Add a "concerned operation to bound these op.together // $rec = new Acc_Reconciliation($this->db); $rec->set_jr_id($seq); $rec->insert($this->jr_id); // Check return code if ($Res == false) { throw (new Exception(__FILE__ . __LINE__ . "SQL ERROR [ $sql ]")); } // the table stock must updated // also in the stock table $sql = "delete from stock_goods where sg_id = any ( select sg_id from stock_goods natural join jrnx where j_grpt=" . $this->jr_grpt_id . ")"; $Res = $this->db->exec_sql($sql); if ($Res == false) throw (new Exception(__FILE__ . __LINE__ . "SQL ERROR [ $sql ]")); } catch (Exception $e) { $this->db->rollback(); throw $e; } }
Acc_Ledger::save | ( | $ | p_array = null | ) |
save the operation into the jrnx,jrn, , CA and pre_def
Definition at line 1971 of file class_acc_ledger.php.
References $a, $array, $check_periode, $count, $desc, $e, $g_parameter, $jr_id, $msg, $op, $oPeriode, $p_array, $poste, $quick_code, $seq, $tot_cred, $tot_deb, db, echo, exit, id, jr_id, trim(), and with_concerned.
{ if ($p_array == null) throw new Exception('save cannot use a empty array'); global $g_parameter; extract($p_array); try { $msg = $this->verify($p_array); if (!empty($msg)) { echo $this->display_warning($msg, _("Attention : il vaut mieux utiliser les fiches que les postes comptables ")); } $this->db->start(); $seq = $this->db->get_next_seq('s_grpt'); $internal = $this->compute_internal_code($seq); $group = $this->db->get_next_seq("s_oa_group"); $tot_amount = 0; $tot_deb = 0; $tot_cred = 0; $oPeriode = new Periode($this->db); $check_periode = $this->check_periode(); if ($check_periode == false) { $oPeriode->find_periode($e_date); } else { $oPeriode->id = $period; } $count = 0; for ($i = 0; $i < $nb_item; $i++) { if (!isset(${'qc_' . $i}) && !isset(${'poste' . $i})) continue; $acc_op = new Acc_Operation($this->db); $quick_code = ""; // First we save the jrnx if (isset(${'qc_' . $i})) { $qc = new Fiche($this->db); $qc->get_by_qcode(${'qc_' . $i}, false); $sposte = $qc->strAttribut(ATTR_DEF_ACCOUNT); /* if there are 2 accounts take following the deb or cred */ if (strpos($sposte, ',') != 0) { $array = explode(",", $sposte); $poste = (isset(${'ck' . $i})) ? $array[0] : $array[1]; } else { $poste = $sposte; if ($poste == '') throw new Exception(sprintf(_("La fiche %s n'a pas de poste comptable"), ${"qc_" . $i})); } $quick_code = ${'qc_' . $i}; } else { $poste = ${'poste' . $i}; } $acc_op->date = $e_date; // compute the periode is do not check it if ($check_periode == false) $acc_op->periode = $oPeriode->p_id; $acc_op->desc = null; if (strlen(trim(${'ld' . $i})) != 0) $acc_op->desc = ${'ld' . $i}; $acc_op->amount = round(${'amount' . $i}, 2); $acc_op->grpt = $seq; $acc_op->poste = $poste; $acc_op->jrn = $this->id; $acc_op->type = (isset(${'ck' . $i})) ? 'd' : 'c'; $acc_op->qcode = $quick_code; $j_id = $acc_op->insert_jrnx(); $tot_amount+=round($acc_op->amount, 2); $tot_deb+=($acc_op->type == 'd') ? $acc_op->amount : 0; $tot_cred+=($acc_op->type == 'c') ? $acc_op->amount : 0; if ($g_parameter->MY_ANALYTIC != "nu") { if (preg_match("/^[6,7]+/", $poste) == 1) { // for each item, insert into operation_analytique */ $op = new Anc_Operation($this->db); $op->oa_group = $group; $op->j_id = $j_id; $op->oa_date = $e_date; $op->oa_debit = ($acc_op->type == 'd' ) ? 't' : 'f'; $op->oa_description = $desc; $op->save_form_plan($p_array, $count, $j_id); $count++; } } }// loop for each item $acc_end = new Acc_Operation($this->db); $acc_end->amount = $tot_deb; if ($check_periode == false) $acc_end->periode = $oPeriode->p_id; $acc_end->date = $e_date; $acc_end->desc = $desc; $acc_end->grpt = $seq; $acc_end->jrn = $this->id; $acc_end->mt = $mt; $jr_id = $acc_end->insert_jrn(); $this->jr_id = $jr_id; if ($jr_id == false) throw new Exception(_('Balance incorrecte')); $acc_end->pj = $e_pj; /* if e_suggest != e_pj then do not increment sequence */ if (strcmp($e_pj, $e_pj_suggest) == 0 && strlen(trim($e_pj)) != 0) { $this->inc_seq_pj(); } $this->pj = $acc_end->set_pj(); $this->db->exec_sql("update jrn set jr_internal='" . $internal . "' where " . " jr_grpt_id = " . $seq); $this->internal = $internal; // Save now the predef op //------------------------ if (isset ($opd_name) && trim($opd_name) != "" ){ $opd = new Pre_Op_Advanced($this->db); $opd->get_post(); $opd->save(); } if (isset($this->with_concerned) && $this->with_concerned == true) { $orap = new acc_reconciliation($this->db); $orap->jr_id = $jr_id; $orap->insert($jrn_concerned); } } catch (Exception $a) { throw $a; } catch (Exception $e) { $this->db->rollback(); echo _('OPERATION ANNULEE '); echo '<hr>'; echo __FILE__ . __LINE__ . $e->getMessage(); exit(); } $this->db->commit(); return true; }
Acc_Ledger::save_new | ( | $ | array | ) |
Insert a new ledger.
type | $array | normally $_POST |
Definition at line 3562 of file class_acc_ledger.php.
References $a, $array, $result, db, next_number(), and trim().
{ $this->load(); extract($array); $this->jrn_def_id = -1; $this->jrn_def_name = $p_jrn_name; $this->jrn_def_ech_lib = $p_ech_lib; $this->jrn_def_max_line_deb = $p_jrn_deb_max_line; $this->jrn_def_type = $p_jrn_type; $this->jrn_def_pj_pref = $jrn_def_pj_pref; $this->jrn_def_fiche_deb = (isset($FICHEDEB)) ? join($FICHEDEB, ',') : ""; $this->jrn_deb_max_line=$min_row; $this->jrn_def_code = sprintf("%s%02d", trim(substr($this->jrn_def_type, 0, 1)), Acc_Ledger::next_number($this->db, $this->jrn_def_type)); $this->jrn_def_description=$p_description; switch ($this->jrn_def_type) { case 'ACH': case 'VEN': $this->jrn_def_fiche_cred = (isset($FICHECRED)) ? join($FICHECRED, ',') : ''; break; case 'ODS': $this->jrn_def_class_deb = $p_jrn_class_deb; $this->jrn_def_fiche_cred = null; break; case 'FIN': $a = new Fiche($this->db); $result = $a->get_by_qcode(trim(strtoupper($_POST['bank'])), false); $bank = $a->id; $this->jrn_def_bank = $bank; if ($result == -1) throw new Exception(_("Aucun compte en banque n'est donné")); $this->jrn_def_num_op = (isset($numb_operation)) ? 1 : 0; break; } parent::insert(); }
Acc_Ledger::search_form | ( | $ | p_type, |
$ | all_type_ledger = 1 , |
||
$ | div = "" |
||
) |
return a HTML string with the form for the search
$p_type | if the type of ledger possible values=ALL,VEN,ACH,ODS,FIN |
$all_type_ledger | values :
|
$div | is the div (for reconciliation) |
Definition at line 2421 of file class_acc_ledger.php.
References $_REQUEST, $div, $exercice, $g_user, $jrn, $per, $r, db, HtmlInput\hidden(), id, HtmlInput\infobulle(), and type.
{ global $g_user; $r=""; $bledger_param= json_encode(array( 'dossier'=>$_REQUEST['gDossier'], 'type'=>$p_type, 'all_type'=>$all_type_ledger, 'div'=>$div )); $bledger_param= str_replace('"', "'", $bledger_param); $bledger=new ISmallButton('l'); $bledger->label="choix des journaux"; $bledger->javascript=" show_ledger_choice($bledger_param)"; $f_ledger=$bledger->input(); $hid_jrn=""; if ( isset ($_REQUEST[$div.'nb_jrn']) ){ for ($i=0;$i < $_REQUEST[$div.'nb_jrn'];$i++) { if ( isset ($_REQUEST[$div."r_jrn"][$i])) $hid_jrn.=HtmlInput::hidden($div.'r_jrn['.$i.']',$_REQUEST[$div."r_jrn"][$i]); } $hid_jrn.=HtmlInput::hidden($div.'nb_jrn',$_REQUEST[$div.'nb_jrn']); } else { $hid_jrn=HtmlInput::hidden($div.'nb_jrn',0); } /* Compute date for exercice */ $period = $g_user->get_periode(); $per = new Periode($this->db, $period); $exercice = $per->get_exercice(); list($per_start, $per_end) = $per->get_limit($exercice); $date_end = $per_end->last_day(); $date_start=$per_start->first_day(); /* widget for date_start */ $f_date_start = new IDate('date_start'); /* all periode or only the selected one */ if (isset($_REQUEST['date_start'])) { $f_date_start->value = $_REQUEST['date_start']; } else { $f_date_start->value=$date_start; } /* widget for date_end */ $f_date_end = new IDate('date_end'); /* all date or only the selected one */ if (isset($_REQUEST['date_end'])) { $f_date_end->value = $_REQUEST['date_end']; } else { $f_date_end->value = $date_end; } /* widget for date term */ $f_date_paid_start=new IDate('date_paid_start'); $f_date_paid_end=new IDate('date_paid_end'); $f_date_paid_start->value=(isset($_REQUEST['date_paid_start']))?$_REQUEST['date_paid_start']:''; $f_date_paid_end->value=(isset($_REQUEST['date_paid_end']))?$_REQUEST['date_paid_end']:''; /* widget for desc */ $f_descript = new IText('desc'); $f_descript->size = 40; if (isset($_REQUEST['desc'])) { $f_descript->value = $_REQUEST['desc']; } /* widget for amount */ $f_amount_min = new INum('amount_min'); $f_amount_min->value = (isset($_REQUEST['amount_min'])) ? abs($_REQUEST['amount_min']) : 0; $f_amount_max = new INum('amount_max'); $f_amount_max->value = (isset($_REQUEST['amount_max'])) ? abs($_REQUEST['amount_max']) : 0; /* input quick code */ $f_qcode = new ICard('qcode' . $div); $f_qcode->set_attribute('typecard', 'all'); /* $f_qcode->set_attribute('p_jrn','0'); $f_qcode->set_callback('filter_card'); */ $f_qcode->set_dblclick("fill_ipopcard(this);"); // Add the callback function to filter the card on the jrn //$f_qcode->set_callback('filter_card'); $f_qcode->set_function('fill_data'); $f_qcode->javascript = sprintf(' onchange="fill_data_onchange(%s);" ', $f_qcode->name); $f_qcode->value = (isset($_REQUEST['qcode' . $div])) ? $_REQUEST['qcode' . $div] : ''; /* $f_txt_qcode=new IText('qcode'); $f_txt_qcode->value=(isset($_REQUEST['qcode']))?$_REQUEST['qcode']:''; */ /* input poste comptable */ $f_accounting = new IPoste('accounting'); $f_accounting->value = (isset($_REQUEST['accounting'])) ? $_REQUEST['accounting'] : ''; if ($this->id == -1) $jrn = 0; else $jrn = $this->id; $f_accounting->set_attribute('jrn', $jrn); $f_accounting->set_attribute('ipopup', 'ipop_account'); $f_accounting->set_attribute('label', 'ld'); $f_accounting->set_attribute('account', 'accounting'); $info = HtmlInput::infobulle(13); $f_paid = new ICheckbox('unpaid'); $f_paid->selected = (isset($_REQUEST['unpaid'])) ? true : false; $r.=dossier::hidden(); $r.=HtmlInput::hidden('ledger_type', $this->type); $r.=HtmlInput::hidden('ac', $_REQUEST['ac']); ob_start(); require_once('template/ledger_search.php'); $r.=ob_get_contents(); ob_end_clean(); return $r; }
Acc_Ledger::search_group | ( | $ | p_what, |
$ | p_value | ||
) |
retreive the jr_grpt_id from a ledger
$p_what | the column to seek possible values are
|
$p_value | the value of the col. |
Definition at line 2895 of file class_acc_ledger.php.
References db.
{ switch ($p_what) { case 'internal': return $this->db->get_value('select jr_grpt_id from jrn where jr_internal=$1', array($p_value)); } }
Acc_Ledger::select_ledger | ( | $ | p_type = "ALL" , |
$ | p_access = 3 |
||
) |
Show a select list of the ledgers you can access in writing, reading or simply accessing.
= ALL or the type of the ledger (ACH,VEN,FIN,ODS) | |
=3 for READ and WRITE, 2 for write and 1 for readonly |
Definition at line 1313 of file class_acc_ledger.php.
References $array, $g_user, $idx, $ret, $value, h(), and id.
Referenced by Acc_Ledger_Fin\input(), Acc_Ledger_Sold\input(), and input().
{ global $g_user; $array = $g_user->get_ledger($p_type, $p_access); if ($array == null) return null; $idx = 0; $ret = array(); foreach ($array as $value) { $ret[$idx]['value'] = $value['jrn_def_id']; $ret[$idx]['label'] = h($value['jrn_def_name']); $idx++; } $select = new ISelect(); $select->name = 'p_jrn'; $select->value = $ret; $select->selected = $this->id; return $select; }
static Acc_Ledger::test_me | ( | $ | pCase = '' | ) | [static] |
this function is intended to test this class
Reimplemented in Acc_Ledger_Sold.
Definition at line 3095 of file class_acc_ledger.php.
References $_GET, $_REQUEST, $a, $array, $cn, $e, $id, $ledger, $op, $p_post, alert(), HtmlInput\button(), echo, exit, html_page_start(), id, print, and HtmlInput\submit().
{ if ($pCase == '') { echo Acc_Reconciliation::$javascript; html_page_start(); $cn = new Database(dossier::id()); $_SESSION['g_user'] = 'phpcompta'; $_SESSION['g_pass'] = 'phpcompta'; $id = (isset($_REQUEST['p_jrn'])) ? $_REQUEST['p_jrn'] : -1; $a = new Acc_Ledger($cn, $id); $a->with_concerned = true; // Vide echo '<FORM method="post">'; echo $a->select_ledger()->input(); echo HtmlInput::submit('go', 'Test it'); echo '</form>'; if (isset($_POST['go'])) { echo "Ok "; echo '<form method="post">'; echo $a->show_form(); echo HtmlInput::submit('post_id', 'Try me'); echo '</form>'; // Show the predef operation // Don't forget the p_jrn echo '<form>'; echo dossier::hidden(); echo '<input type="hidden" value="' . $id . '" name="p_jrn">'; $op = new Pre_operation($cn); $op->p_jrn = $id; $op->od_direct = 't'; if ($op->count() != 0) { echo HtmlInput::submit('use_opd', 'Utilisez une opération prédéfinie',"","smallbutton"); echo $op->show_button(); } echo '</form>'; exit(); } if (isset($_POST['post_id'])) { echo '<form method="post">'; echo $a->show_form($_POST, 1); echo HtmlInput::button('add', 'Ajout d\'une ligne', 'onClick="quick_writing_add_row()"'); echo HtmlInput::submit('save_it', "Sauver"); echo '</form>'; exit(); } if (isset($_POST['save_it'])) { print 'saving'; $array = $_POST; $array['save_opd'] = 1; try { $a->save($array); } catch (Exception $e) { alert($e->getMessage()); echo '<form method="post">'; echo $a->show_form($_POST); echo HtmlInput::submit('post_id', 'Try me'); echo '</form>'; } exit(); } // The GET at the end because automatically repost when you don't // specify the url in the METHOD field if (isset($_GET['use_opd'])) { $op = new Pre_op_advanced($cn); $op->set_od_id($_REQUEST['pre_def']); //$op->p_jrn=$id; $p_post = $op->compute_array(); echo '<FORM method="post">'; echo $a->show_form($p_post); echo HtmlInput::submit('post_id', 'Use predefined operation'); echo '</form>'; exit(); } }// if case = '' /////////////////////////////////////////////////////////////////////////// // search if ($pCase == 'search') { html_page_start(); $cn = new Database(dossier::id()); $ledger = new Acc_Ledger($cn, 0); $_SESSION['g_user'] = 'phpcompta'; $_SESSION['g_pass'] = 'phpcompta'; echo $ledger->search_form('ALL'); } /////////////////////////////////////////////////////////////////////////// // reverse // Give yourself the var and check in your tables /////////////////////////////////////////////////////////////////////////// if ($pCase == 'reverse') { $cn = new Database(dossier::id()); $jr_internal = 'OD-01-272'; try { $cn->start(); $jrn_def_id = $cn->get_value('select jr_def_id from jrn where jr_internal=$1', array($jr_internal)); $ledger = new Acc_Ledger($cn, $jrn_def_id); $ledger->jr_id = $cn->get_value('select jr_id from jrn where jr_internal=$1', array($jr_internal)); echo "Ouvrez le fichier " . __FILE__ . " à la ligne " . __LINE__ . " pour changer jr_internal et vérifier le résultat de l'extourne"; $ledger->reverse('01.07.2010'); } catch (Exception $e) { $cn->rollback(); var_dump($e); } $cn->commit(); } }
Acc_Ledger::update | ( | $ | array = '' | ) |
update a ledger
type | $array | normally post |
Definition at line 3429 of file class_acc_ledger.php.
References $a, $array, $Res, $result, db, and trim().
{ if ($array == null) throw new Exception('save cannot use a empty array'); extract($array); $this->jrn_def_id = $p_jrn; $this->jrn_def_name = $p_jrn_name; $this->jrn_def_ech_lib = $p_ech_lib; $this->jrn_def_max_line_deb = ($p_jrn_deb_max_line<1)?1:$p_jrn_deb_max_line; $this->jrn_def_type = $p_jrn_type; $this->jrn_def_pj_pref = $jrn_def_pj_pref; $this->jrn_def_fiche_deb = (isset($FICHEDEB)) ? join($FICHEDEB, ',') : ""; $this->jrn_deb_max_line=($min_row<1)?1:$min_row; $this->jrn_def_description=$p_description; switch ($this->jrn_def_type) { case 'ACH': case 'VEN': $this->jrn_def_fiche_cred = (isset($FICHECRED)) ? join($FICHECRED, ',') : ''; break; case 'ODS': $this->jrn_def_class_deb = $p_jrn_class_deb; $this->jrn_def_fiche_cred=null; break; case 'FIN': $a = new Fiche($this->db); $result = $a->get_by_qcode(trim(strtoupper($_POST['bank'])), false); $bank = $a->id; $this->jrn_def_bank = $bank; if ($result == -1) throw new Exception(_("Aucun compte en banque n'est donné")); $this->jrn_def_num_op = (isset($numb_operation)) ? 1 : 0; break; } parent::update(); //Reset sequence if needed if ($jrn_def_pj_seq != 0) { $Res = $this->db->alter_seq("s_jrn_pj" . $p_jrn, $jrn_def_pj_seq); } }
Acc_Ledger::update_internal_code | ( | $ | p_internal | ) |
Definition at line 2196 of file class_acc_ledger.php.
References $Res, db, and exit.
Referenced by Acc_Ledger_Fin\insert().
Acc_Ledger::update_paid | ( | $ | p_array | ) |
Update the paiment in the list of operation.
is normally $_GET |
Definition at line 2172 of file class_acc_ledger.php.
References $id, $name, $p_array, $Res, $sql, and db.
{ // reset all the paid flag because the checkbox is post only // when checked foreach ($p_array as $name => $paid) { list($ad) = sscanf($name, "set_jr_id%d"); if ($ad == null) continue; $sql = "update jrn set jr_rapt='' where jr_id=$ad"; $Res = $this->db->exec_sql($sql); } // set a paid flag for the checked box foreach ($p_array as $name => $paid) { list ($id) = sscanf($name, "rd_paid%d"); if ($id == null) continue; $sql = "update jrn set jr_rapt='paid' where jr_id=$id"; $Res = $this->db->exec_sql($sql); } }
Acc_Ledger::vat_operation | ( | $ | p_jr_id | ) |
get the amount of vat for a given jr_grpt_id from the table quant_purchase
the | jr_grpt_id |
Definition at line 2998 of file class_acc_ledger.php.
References $array, db, and type.
{ if ($this->type == 'ACH') { $array = $this->db->get_array('select coalesce(sum(qp_vat),0) as sum_vat,tva_id from quant_purchase as p right join tva_rate on (qp_vat_code=tva_id) join jrnx using(j_id) where tva_rate !=0.0 and j_grpt=$1 group by tva_id', array($p_jr_id)); } if ($this->type == 'VEN') { $array = $this->db->get_array('select coalesce(sum(qs_vat),0) as sum_vat,tva_id from quant_sold as p right join tva_rate on (qs_vat_code=tva_id) join jrnx using(j_id) where tva_rate !=0.0 and j_grpt=$1 group by tva_id', array($p_jr_id)); } return $array; }
Acc_Ledger::verify | ( | $ | p_array | ) |
verify that the operation can be saved
array of data same layout that the $_POST from show_form |
the | getcode value is 1 incorrect balance, 2 date invalid, 3 invalid amount, 4 the card is not in the range of permitted card, 5 not in the user's period, 6 closed period |
Reimplemented in Acc_Ledger_Purchase, Acc_Ledger_Sold, and Acc_Ledger_Fin.
Definition at line 1818 of file class_acc_ledger.php.
References HtmlInput\card_detail(), and db.
Referenced by confirm().
{ extract($p_array); global $g_user; $tot_cred = 0; $tot_deb = 0; $msg = array(); /* check if we can write into this ledger */ if ($g_user->check_jrn($p_jrn) != 'W') throw new Exception(_('Accès interdit'), 20); /* check for a double reload */ if (isset($mt) && $this->db->count_sql('select jr_mt from jrn where jr_mt=$1', array($mt)) != 0) throw new Exception('Double Encodage', 5); // Check the periode and the date if (isDate($e_date) == null) { throw new Exception('Date invalide', 2); } $periode = new Periode($this->db); /* find the periode if we have enabled the check_periode */ if ($this->check_periode() == false) { $periode->find_periode($e_date); } else { $periode->p_id = $period; list ($min, $max) = $periode->get_date_limit(); if (cmpDate($e_date, $min) < 0 || cmpDate($e_date, $max) > 0) throw new Exception(_('Date et periode ne correspondent pas'), 6); } // Periode ferme if ($this->is_closed($periode->p_id) == 1) { throw new Exception('Periode fermee', 6); } /* check if we are using the strict mode */ if ($this->check_strict() == true) { /* if we use the strict mode, we get the date of the last operation */ $last_date = $this->get_last_date(); if ($last_date != null && cmpDate($e_date, $last_date) < 0) throw new Exception(_('Vous utilisez le mode strict la dernière operation est la date du ') . $last_date . ' ' . _('vous ne pouvez pas encoder à une date antérieure'), 15); } for ($i = 0; $i < $nb_item; $i++) { $err = 0; // Check the balance if (!isset(${'amount' . $i})) continue; $amount = round(${'amount' . $i}, 2); $tot_deb+=(isset(${'ck' . $i})) ? $amount : 0; $tot_cred+=(!isset(${'ck' . $i})) ? $amount : 0; // Check if the card is permitted if (isset(${'qc_' . $i}) && trim(${'qc_' . $i}) != "") { $f = new Fiche($this->db); $f->quick_code = ${'qc_' . $i}; if ($f->belong_ledger($p_jrn) < 0) throw new Exception("La fiche quick_code = " . $f->quick_code . " n'est pas dans ce journal", 4); if (strlen(trim(${'qc_' . $i})) != 0 && isNumber(${'amount' . $i}) == 0) throw new Exception('Montant invalide', 3); $strPoste = $f->strAttribut(ATTR_DEF_ACCOUNT); if ($strPoste == '') throw new Exception(sprintf(_("La fiche %s n'a pas de poste comptable"), ${"qc_" . $i})); $p = new Acc_Account_Ledger($this->db, $strPoste); if ($p->do_exist() == 0) throw new Exception(_('Poste Inexistant pour la fiche [' . ${'qc_' . $i} . ']'), 4); } // Check if the account is permitted if (isset(${'poste' . $i}) && strlen(trim(${'poste' . $i})) != 0) { $p = new Acc_Account_Ledger($this->db, ${'poste' . $i}); if ($p->belong_ledger($p_jrn) < 0) throw new Exception(_("Le poste") . " " . $p->id . " " . _("n'est pas dans ce journal"), 5); if (strlen(trim(${'poste' . $i})) != 0 && isNumber(${'amount' . $i}) == 0) throw new Exception(_('Poste invalide [' . ${'poste' . $i} . ']'), 3); if ($p->do_exist() == 0) throw new Exception(_('Poste Inexistant [' . ${'poste' . $i} . ']'), 4); $card_id = $p->find_card(); if (!empty($card_id)) { $str_msg = " Le poste " . $p->id . " appartient à " . count($card_id) . " fiche(s) dont :"; $max = (count($card_id) > MAX_COMPTE_CARD) ? MAX_COMPTE_CARD : count($card_id); for ($x = 0; $x < $max; $x++) { $card = new Fiche($this->db, $card_id[$x]['f_id']); $str_msg.=HtmlInput::card_detail($card->strAttribut(ATTR_DEF_QUICKCODE), $card->strAttribut(ATTR_DEF_NAME), 'style="color:red;display:inline;text-decoration:underline"'); $str_msg.=" "; } $msg[] = $str_msg; } } } $tot_deb = round($tot_deb, 4); $tot_cred = round($tot_cred, 4); if ($tot_deb != $tot_cred) { throw new Exception(_("Balance incorrecte ") . " debit = $tot_deb credit=$tot_cred ", 1); } return $msg; }
Acc_Ledger::verify_ledger | ( | $ | array | ) |
Verify before update.
type | $array | 'p_jrn' => string '3' (length=1) 'sa' => string 'detail' (length=6) 'gDossier' => string '82' (length=2) 'p_jrn_deb_max_line' => string '10' (length=2) 'p_ech_lib' => string 'echeance' (length=8) 'p_jrn_type' => string 'ACH' (length=3) 'p_jrn_name' => string 'Achat' (length=5) 'jrn_def_pj_pref' => string 'ACH' (length=3) 'jrn_def_pj_seq' => string '0' (length=1) 'FICHECRED' => array 0 => string '4' (length=1) 'FICHEDEB' => array 0 => string '7' (length=1) 1 => string '5' (length=1) 2 => string '13' (length=2) 'update' => string 'Sauve' (length=5 |
is | throw is test are not valid |
Definition at line 3397 of file class_acc_ledger.php.
References $a, $array, $e, $result, db, isNumber(), and trim().
{ extract($array); try { if (isNumber($p_jrn) == 0) throw new Exception("Id invalide"); if (isNumber($p_jrn_deb_max_line) == 0) throw new Exception(_("Nombre de ligne incorrect")); if (trim($p_jrn_name) == "") throw new Exception("Nom de journal invalide"); if ($this->db->get_value("select count(*) from jrn_def where jrn_def_name=$1 and jrn_Def_id<>$2", array($p_jrn_name, $p_jrn)) > 0) throw new Exception(_("Un journal avec ce nom existe déjà")); if ($p_jrn_type == 'FIN') { $a = new Fiche($this->db); $result = $a->get_by_qcode(trim(strtoupper($_POST['bank'])), false); if ($result == 1) throw new Exception(_("Aucun compte en banque n'est donné")); } } catch (Exception $e) { throw $e; } }
Acc_Ledger::$db |
database connextion
Definition at line 58 of file class_acc_ledger.php.
Acc_Ledger::$id |
jrn_def.jrn_def_id
Definition at line 56 of file class_acc_ledger.php.
Acc_Ledger::$name |
jrn_def.jrn_def_name
Definition at line 57 of file class_acc_ledger.php.
Acc_Ledger::$nb |
default number of rows by default 10
Definition at line 62 of file class_acc_ledger.php.
Referenced by Acc_Ledger_Fin\verify(), Acc_Ledger_Sold\verify(), and Acc_Ledger_Purchase\verify().
Acc_Ledger::$row |
row of the ledger
Definition at line 59 of file class_acc_ledger.php.
Referenced by get_min_row(), get_row(), Acc_Ledger_Fin\insert(), list_operation(), list_operation_to_reconcile(), and reverse().
Acc_Ledger::$type |
type of the ledger ACH ODS FIN VEN or GL
Definition at line 60 of file class_acc_ledger.php.
Referenced by get_rowSimple().