the class Acc_Ledger_Fin inherits from Acc_Ledger, this object permit to manage the financial ledger More...
Inheritance diagram for Acc_Ledger_Fin:
Collaboration diagram for Acc_Ledger_Fin:
Public Member Functions | |
| __construct ($p_cn, $p_init) | |
| confirm ($p_array, $p_nothing=0) | |
| show the result of the array to confirm before inserting More... | |
| get_bank () | |
| find and FICHE.F_ID of the bank or -1 if not found More... | |
| get_bank_name () | |
| return a string with the bank account, name and quick_code More... | |
| input ($p_array=null, $notused=0) | |
| display a form to enter an FIN operation More... | |
| insert ($p_array=null) | |
| insert_quant_fin ($p_bankid, $p_jrid, $p_otherid, $p_amount, $p_j_id_currency) | |
| insert into the quant_fin table More... | |
| numb_operation () | |
| return true is we numbere each operation More... | |
| verify_operation ($p_array) | |
| Verify that the data are correct before inserting or confirming. More... | |
| Public Member Functions inherited from Acc_Ledger | |
| __construct ($p_cn, $p_id) | |
| add_card ($p_filter, $p_id_update) | |
| Return a button to create new card, depending of the ledger. More... | |
| button_copy_operation () | |
| Show a button to create an operation identical to the recorded one. More... | |
| button_new_operation () | |
| Create a button to encode a new operation into the same ledger. More... | |
| check_currency ($p_qcode_payment, $p_currency_id) | |
| When we write a record for the payment at the same time as a sale or a purchase, to have a bank saldo reliable , all the bank operation must be in the same currency Operation = Currency 1 and Bank = Currency 2 then it must failed , except if currency 2 (of the bank is the default currency. More... | |
| check_currency_setting ($p_currency_code) | |
| Check that the currency code does exist and the setting of the folder is correct. More... | |
| check_payment ($e_mp, $e_mp_qcode) | |
| check if the payment method is valid More... | |
| 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. More... | |
| check_strict () | |
| Check if a Dossier is using the strict mode or not. More... | |
| compute_internal_code ($p_grpt) | |
| compute the internal code of the saved operation and set the $this->jr_internal to the computed value More... | |
| confirm ($p_array, $p_readonly=false) | |
| show the result of the array to confirm before inserting More... | |
| convert_from_follow ($p_ag_id) | |
| create_document ($internal, $p_array) | |
| create the invoice and saved it as attachment to the operation, More... | |
| CurrencyInput ($p_currency_code, $p_currency_rate, $p_eur_amount) | |
| Create a select from value for currency and add javascript to update $p_currency_rate and $p_eur_amount. More... | |
| delete () | |
| let you delete a operation More... | |
| delete_ledger () | |
| delete a ledger IF it doesn't contain anything More... | |
| display_additional_tax ($p_additional_tax, $p_amount) | |
| in confirm screen , display the compute value for additional tax @parameter $p_additional_tax acc_other_tax.ac_id More... | |
| display_ledger () | |
| display detail of a ledger More... | |
| display_negative_warning ($p_amount) | |
| If the amount is positive and the ledger expects a negative amount, il will return the saved warning. More... | |
| display_warning ($pa_msg, $p_warning) | |
| Display warning contained in an array. More... | |
| existing_vat () | |
| return the used VAT code with a rate > 0 More... | |
| get_all_fiche_def () | |
| retrieve all the card for this type of ledger, make them into a string separated by comma More... | |
| get_class_def () | |
| retrieve the jrn_def_class_deb and return it More... | |
| get_currency () | |
| returns the code iso of the default currency for this ledger More... | |
| get_customer_late () | |
| get info from customer not yet paid More... | |
| get_customer_now () | |
| get info from customer to pay today More... | |
| get_default_card ($p_ledger_type, $p_side) | |
| Return an array of default card for the ledger type given. More... | |
| get_fiche_def () | |
| retrieve the jrn_def_fiche and return them into a array index deb, cred More... | |
| get_first ($p_type, $p_access=3) | |
| get the first ledger More... | |
| get_id ($p_internal) | |
| retrieve the jr_id thanks the internal code, do not change anything to the current object More... | |
| get_is_loaded () | |
| get_last ($p_limit) | |
| return the last p_limit operation into an array More... | |
| get_last_date () | |
| get the date of the last operation More... | |
| get_last_pj () | |
| get_ledger_id () | |
| Set the jrn_def.jrn_def_id. More... | |
| get_min_row () | |
| get_name () | |
| Return the name of a ledger. More... | |
| get_operation ($p_from, $p_to) | |
| retrieve operation from jrn More... | |
| get_operation_date ($p_date, $p_ledger_type, $sql_op) | |
| Get operation from the ledger type before, after or with the given date . More... | |
| get_other_amount ($p_jr_id) | |
| get the amount of vat for a given jr_grpt_id from the table quant_purchase More... | |
| get_propertie () | |
| Get the properties of a journal. More... | |
| get_rowSimple ($p_from, $p_to, $pa_ledger=[], $trunc=0, $p_limit=-1, $p_offset=-1) | |
| Get simplified row from ledger Call Acc_Ledger_History_Generic:get_rowSimple. More... | |
| get_solde ($p_from, $p_to) | |
| get the saldo of a ledger for a specific period More... | |
| get_supplier_late () | |
| get info from supplier not yet paid More... | |
| get_supplier_now () | |
| get info from supplier to pay today More... | |
| get_tiers ($p_jrn_type, $jr_id) | |
| Retrieve the third : supplier for purchase, customer for sale, bank for fin,. More... | |
| get_tiers_id ($p_jrn_type, $jr_id) | |
| Return the f_id of the tiers , called by get_tiers. More... | |
| get_type () | |
| Return the type of a ledger (ACH,VEN,ODS or FIN) or GL. More... | |
| guess_pj () | |
| guess what the next pj should be More... | |
| has_other_tax () | |
| returns true if the ledger has an additional tax More... | |
| has_quantity () | |
| Check if a ledger is enabled , 1 for yes and 0 if disabled. More... | |
| inc_seq_pj () | |
| increment the sequence for the pj More... | |
| input ($p_array=null, $p_readonly=0) | |
| Show the form to encode your operation. More... | |
| input_additional_tax () | |
| form : display additional tax available for this ledger and value, set 2 values : checkbox if tax applies and value More... | |
| input_extra_info () | |
| input_new () | |
| display screen to enter a new ledger More... | |
| input_paid ($p_selected, $p_amount=0, $p_date="", $p_comm="") | |
| Create the section payment. More... | |
| is_closed ($p_periode) | |
| check if the current ledger is closed More... | |
| is_enable () | |
| Check if a ledger is enabled , 1 for yes and 0 if disabled. More... | |
| listing () | |
| listing of all ledgers More... | |
| previous_amount ($p_to) | |
| retrieve amount of previous periode More... | |
| previous_other_tax ($p_to) | |
| retrieve the previous amount More... | |
| reverse ($p_date, $p_label) | |
| reverse the operation by creating the opposite one, the result is to avoid it it must be done in More... | |
| save ($p_array=null) | |
| save the operation into the jrnx,jrn, , CA and pre_def More... | |
| save_followup ($s_related_action) | |
| attach action-followups to an operation, More... | |
| save_new ($array) | |
| Insert a new ledger , member variable like jrn_def_id will changed. More... | |
| search_group ($p_what, $p_value) | |
| retreive the jr_grpt_id from a ledger More... | |
| select_default_currency () | |
| create a select button to set the default currency for a ledger used only for empty financial ledger More... | |
| select_depot ($p_readonly, $p_repo) | |
| Let you select the repository before confirming a sale or a purchase. More... | |
| select_ledger ($p_type="ALL", $p_access=3, $enable=TRUE) | |
| Show a select list of the ledgers you can access in writing, reading or simply accessing. More... | |
| set_currency_id () | |
| retrieve currency_id from database More... | |
| set_is_loaded ($is_loaded) | |
| set_ledger_id ($p_id) | |
| Set the jrn_def.jrn_def_id. More... | |
| set_quantity ($p_value) | |
| set quantity for the ledger to 1 or 0, More... | |
| update ($array=null) | |
| update a ledger More... | |
| update_internal_code ($p_internal) | |
| update_paid ($p_array) | |
| Update the paiment in the list of operation. More... | |
| use_quant_table ($p_grpt_id, $p_jrn_type) | |
| Check if the operation is used in the table quant*. More... | |
| vat_operation ($p_jr_id) | |
| get the amount of vat for a given jr_grpt_id from the table quant_purchase More... | |
| verify_ledger ($array) | |
| Verify before update. More... | |
| verify_operation ($p_array) | |
| verify that the operation can be saved More... | |
Additional Inherited Members | |
| Static Public Member Functions inherited from Acc_Ledger | |
| static | array_cat () |
| create an array of the existing cat, to be used in a checkbox form More... | |
| static | next_number ($p_cn, $p_type) |
| retrieve the next number for this type of ledger More... | |
| static | test_me ($pCase='') |
| this function is intended to test this class More... | |
| Data Fields inherited from Acc_Ledger | |
| $currency_id | |
| !< default number of rows by default 10 More... | |
| $db | |
| !< jrn_def.jrn_def_id More... | |
| $id | |
| $ledger_type | |
| !< row of the ledger More... | |
| $nb | |
| !< type of the ledger ACH ODS FIN VEN or GL More... | |
| $row | |
| !< database connextion More... | |
| Protected Member Functions inherited from Acc_Ledger | |
| find_label ($p_value) | |
| Retrieve the label of an accounting. More... | |
| verify_autonumber ($p_array) | |
| compare given receipt number and suggested one, if different , it means that the user enters a receipt number if e_pj or e_pj_suggest is not set or empty , or if both are equals then will return true, it returns only if they exist and are different More... | |
| warn_manual_receipt ($p_array) | |
| warn if the suggested receipt and receipt are different , it means that the user tried to number himself More... | |
| Protected Attributes inherited from Acc_Ledger | |
| $is_loaded | |
| !< is_loaded true the ledger definition is loaded or false, it is not More... | |
Detailed Description
the class Acc_Ledger_Fin inherits from Acc_Ledger, this object permit to manage the financial ledger
Definition at line 35 of file acc_ledger_fin.class.php.
Constructor & Destructor Documentation
◆ __construct()
| Acc_Ledger_Fin::__construct | ( | $p_cn, | |
| $p_id | |||
| ) |
- Parameters
-
$p_cn database connexion $p_id jrn.jrn_def_id
Reimplemented from Acc_Ledger.
Definition at line 38 of file acc_ledger_fin.class.php.
39 {
40 parent::__construct($p_cn, $p_init);
41 $this->ledger_type='FIN';
42 }
Member Function Documentation
◆ confirm()
| Acc_Ledger_Fin::confirm | ( | $p_array, | |
$p_readonly = 0 |
|||
| ) |
show the result of the array to confirm before inserting
- Parameters
-
$p_array array from the form
- Returns
- HTML string
Reimplemented from Acc_Ledger.
Definition at line 456 of file acc_ledger_fin.class.php.
457 {
461 $this->load();
462 }
463 bcscale(2);
464 extract($p_array, EXTR_SKIP);
467 {
469 }
470 else
471 {
473 {
475 }
476 else
477 {
478 $pPeriode->p_id=$g_user->get_periode();
479 }
480 }
481
482 list ($l_date_start, $l_date_end)=$pPeriode->get_date_limit();
490 // Date
491 //--
493 if ($chdate==1)
495 // Periode
496 //--
502 // Ledger (p_jrn)
503 //--
511
512 //retrieve bank name
513 $bk_id=$this->get_bank();
514
516 $e_bank_account_label=$this->get_bank_name();
517
519
521 $asolde=$acc_account->get_solde_detail($filter_year);
525 $new_solde=$solde;
526
528 $r.=$e_bank_account_label;
529
531
533
535 //--------------------------------------------------
536 // Saldo begin end
537 //-------------------------------------------------
540 // Extrait
541 //--
548
550 //--------------------------------------------------
551 // financial operation
552 //-------------------------------------------------
555 if ($chdate==2)
561
562 /* if we use the AC */
564 {
566 $a_anc=$anc->get_list();
567 $x=count($a_anc);
568 /* set the width of the col */
570
571 /* add hidden variables pa[] to hold the value of pa_id */
573 }
575 // Parse each " tiers"
576 $tot_amount=0;
577 //--------------------------------------------------
578 // For each items
579 //--------------------------------------------------
581 {
582
584 ;
585
587 continue;
588 $tiers_label="";
589 $tiers_amount=round(${"e_other$i"."_amount"}, 2);
592 // If $tiers has a value
594 $fTiers->get_by_qcode($tiers);
595
596 $tiers_label=$fTiers->strAttribut(ATTR_DEF_NAME);
597
599 if ($chdate==2)
602 // label
606 // Comment
608 // amount
610 // concerned
612 if (${"e_concerned".$i}!='')
613 {
614 $jr_internal=$this->db->get_array("select jr_internal from jrn where jr_id in (".${"e_concerned".$i}.")");
615 $comma="";
616 for ($x=0; $x<count($jr_internal); $x++)
617 {
619 $comma=" , ";
620 }
621 }
623 // encode the pa
624 if ($g_parameter->MY_ANALYTIC!='nu'&&$g_parameter->match_analytic($fTiers->strAttribut(ATTR_DEF_ACCOUNT))==1) // use of AA
625 {
626 // show form
630 $p_mode=1;
632 /* op is the operation it contains either a sequence or a jrnx.j_id */
636 }
637
639 }
641 $acc_currency=$this->get_currency();
642
643 // If currency is not the default one
644 if ($acc_currency->get_id()!=0)
645 {
646
647 $solde=$fBank->get_bk_balance_currency();
648 $cur=$acc_currency->get_code();
649 $cur_rate=$acc_currency->get_rate_date($e_date);
651 // saldo
656 );
661 );
665 );
668 td($cur_rate)
669 );
673 );
675 }
676 else
677 {
678
679 $cur=$acc_currency->get_code();
680 // saldo
685 );
690 );
694 );
695
697 }
698 // check for upload piece
703
705 //--------------------------------------------------
706 // Hidden variables
707 //--------------------------------------------------
708 $r.=dossier::hidden();
716 $mt=microtime(true);
718
721 $r.=dossier::hidden();
724 {
733 }
734
736 }
catch(Exception $exc) if(! $g_user->can_write_action($ag_id)) $r
Definition: ajax_add_concerned_card.php:53
Manage the account from the table jrn, jrnx or tmp_pcmn.
Definition: acc_account_ledger.class.php:28
display currency , convert to euro , and save them if used.
Definition: acc_currency.class.php:34
get_bank_name()
return a string with the bank account, name and quick_code
Definition: acc_ledger_fin.class.php:1128
get_bank()
find and FICHE.F_ID of the bank or -1 if not found
Definition: acc_ledger_fin.class.php:1141
get_currency()
returns the code iso of the default currency for this ledger
Definition: acc_ledger.class.php:3437
check_periode()
Check if a Dossier is using the check on the periode, if true than the user has to enter the date and...
Definition: acc_ledger.class.php:1806
this class is used to show the form for entering an operation only FOR analytic operation to save it,...
Definition: anc_operation.class.php:33
static hidden($p_array)
return an HTML string containing hidden input type to hold the differant PA_ID
Definition: anc_plan.class.php:201
define Class fiche and fiche def, those class are using class attribut. When adding or modifing new c...
Definition: fiche.class.php:38
Html Input for uploading file, must be in a form with enctype="multipart/form-data".
Definition: ifile.class.php:31
References $anc, $cred, $deb, $default_currency, $e_date, $exercice, $file, $filter_year, $g_parameter, $g_user, $i, $p_array, $p_jrn, $periode, $pPeriode, $r, $solde, $tiers, $tot_amount, ATTR_DEF_ACCOUNT, ATTR_DEF_NAME, Acc_Ledger\check_periode(), db, get_bank(), get_bank_name(), Acc_Ledger\get_currency(), Acc_Ledger\get_is_loaded(), Acc_Ledger\get_name(), h, Anc_Plan\hidden(), HtmlInput\hidden(), isDate(), nbm(), noalyss_strlentrim(), td(), and tr().
Here is the call graph for this function:
◆ get_bank()
| Acc_Ledger_Fin::get_bank | ( | ) |
find and FICHE.F_ID of the bank or -1 if not found
Definition at line 1141 of file acc_ledger_fin.class.php.
1142 {
1143 $bank_id=$this->db->get_value('select jrn_def_bank from jrn_def where jrn_def_id=$1', array($this->id));
1144 if (empty($bank_id)) return -1;
1145 return $bank_id;
1146 }
References db.
Referenced by confirm(), insert(), and verify_operation().
◆ get_bank_name()
| Acc_Ledger_Fin::get_bank_name | ( | ) |
return a string with the bank account, name and quick_code
Definition at line 1128 of file acc_ledger_fin.class.php.
1129 {
1130 $this->bank_id=$this->db->get_value('select jrn_def_bank from jrn_def where jrn_def_id=$1', array($this->id));
1135 return $e_bank_qcode.$e_bank_name.$e_bank_account;
1136 }
References ATTR_DEF_BQ_NO, ATTR_DEF_NAME, ATTR_DEF_QUICKCODE, and db.
Referenced by confirm().
◆ input()
| Acc_Ledger_Fin::input | ( | $p_array = null, |
|
$notused = 0 |
|||
| ) |
display a form to enter an FIN operation
- Parameters
-
$p_array contains the value usually it is $_POST
- Returns
- string with html code
- Note
- the form tag are not set here
Reimplemented from Acc_Ledger.
Definition at line 243 of file acc_ledger_fin.class.php.
244 {
247 extract($p_array, EXTR_SKIP);
248
249 $pview_only=false;
250
251 $min_article=$this->get_min_row();
252
253 $str_add_button_tiers="";
254 $add_card=FALSE;
256 {
257 $add_card=TRUE;
258 }
259
260 // The first day of the periode
265 else
267
269
270 $r.=dossier::hidden();
271 $f_legend='Banque, caisse';
272 // Date
273 //--
275 $Date->setReadOnly($pview_only);
276 $f_date=$Date->input();
277 $f_period='';
279 {
280 // Periode
281 //--
284 $period->cn=$this->db;
285 $period->type=OPEN;
286 $period->value=$l_user_per;
287 $period->user=$g_user;
288 $period->name='periode';
289 try
290 {
291 $l_form_per=$period->input();
292 }
294 {
296 {
297 throw new Exception(_("Aucune période ouverte"));
298 }
299 }
301 $f_period="Période comptable $label".$l_form_per;
302 }
303
304 // Ledger (p_jrn)
305 //--
306 $onchange="update_bank();ajax_saldo('first_sold');update_name();update_row('fin_item');show_ledger_fin_currency();";
307
309 $onchange.='get_last_date();';
311 $onchange.='update_pj();';
312
313 $add_js='onchange="'.$onchange.'"';
316 throw new Exception(_('Pas de journal disponible'));
317
318 $wLedger->javascript=$add_js;
319
321
322 // retrieve bank name, code and account from the jrn_def.jrn_def_bank
323
324 $f_bank='<span id="bkname">'.$this->get_bank_name().'</span>';
325 if ($this->bank_id=="")
326 {
328 echo '<span class="error"> vous devez donner à ce journal un compte en banque (fiche), modifiez dans CFGLED</span>';
330 }
331
332 $f_legend_detail='Opérations financières';
333 //--------------------------------------------------
334 // Saldo begin end
335 //-------------------------------------------------
336 // Extrait
337 $default_pj='';
339 {
340 $default_pj=$this->guess_pj();
341 }
343 $wPJ->readonly=false;
344 $wPJ->size=10;
345 $wPJ->value=(isset($e_pj))?$e_pj:$default_pj;
346
347 $f_extrait=$wPJ->input().HtmlInput::hidden('e_pj_suggest', $default_pj);
349
350 $first_sold=(isset($first_sold))?$first_sold:"";
352
353 $last_sold=isset($last_sold)?$last_sold:"";
355
356 $max=(isset($nb_item))?$nb_item:$min_article;
357
359 //--------------------------------------------------
360 // financial operation
361 //-------------------------------------------------
362
363 $array=array();
364 // Parse each " tiers"
366 {
368
369 $tiers_amount=(isset(${"e_other$i"."_amount"}))?round(${"e_other$i"."_amount"}, 2):0;
370
371 $tiers_comment=(isset(${"e_other$i"."_comment"}))?${"e_other$i"."_comment"}:"";
372
374 $operation_date->value=(isset(${'dateop'.$i}))?${'dateop'.$i}:"";
376 ${"e_other$i"."_amount"}=(isset(${"e_other$i"."_amount"}))?${"e_other$i"."_amount"}:0;
377
379 $W1->label="";
380 $W1->name="e_other".$i;
381 $W1->id="e_other".$i;
382 $W1->value=$tiers;
383 $W1->extra='deb'; // credits
384 $W1->typecard='deb';
385 $W1->set_dblclick("fill_ipopcard(this);");
386 $W1->set_attribute('ipopup', 'ipopcard');
387
388 // name of the field to update with the name of the card
390 // name of the field to update with the name of the card
391 $W1->set_attribute('typecard', 'filter');
392 // Add the callback function to filter the card on the jrn
393 $W1->set_callback('filter_card');
394 $W1->set_function('fill_data');
395 $W1->javascript=sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
396 $W1->readonly=$pview_only;
400 // Card name
401 //
402 $card_name="";
404 {
409 }
410
412 $wcard_name->id=$wcard_name->name;
413 $wcard_name->readOnly=true;
415
416 // Comment
418 $wComment->style='class="input_text label_item"';
419
420 $wComment->setReadOnly($pview_only);
422 // amount
424
425 $wAmount->size=7;
426 $wAmount->setReadOnly($pview_only);
428 // concerned
429 ${"e_concerned".$i}=(isset(${"e_concerned".$i}))?${"e_concerned".$i}:""
430 ;
432 $wConcerned->tiers="e_other".$i;
433 $wConcerned->setReadOnly($pview_only);
434 $wConcerned->amount_id="e_other".$i."_amount";
435
436 $wConcerned->paid='paid';
438 }
439
440 ob_start();
441 require_once NOALYSS_TEMPLATE.'/form_ledger_fin.php';
442 $r.=ob_get_contents();
443 ob_end_clean();
445
447 }
select_ledger($p_type="ALL", $p_access=3, $enable=TRUE)
Show a select list of the ledgers you can access in writing, reading or simply accessing.
Definition: acc_ledger.class.php:552
add_card($p_filter, $p_id_update)
Return a button to create new card, depending of the ledger.
Definition: acc_ledger.class.php:3341
Input HTML for the card show buttons, in the file, you have to add card.js How to use :
Definition: icard.class.php:121
Html Input : Input a date format dd.mm.yyyy The property title should be set to indicate what it is e...
Definition: idate.class.php:34
This class handles only the numeric input, the input will call a javascript to change comma to period...
Definition: inum.class.php:42
static infobulle($p_comment)
Display a info in a bubble, text is in message_javascript.
Definition: icon_action.class.php:97
create_script($p_string)
create the HTML for adding the script tags around of the script
Definition: function_javascript.php:39
References $array, Acc_Ledger\$db, $e, $e_date, $fiche, $g_parameter, $g_user, $i, $label, $max, $p_array, $periode, $pPeriode, $r, $tiers, $wLedger, Acc_Ledger\add_card(), alert(), ATTR_DEF_NAME, Acc_Ledger\check_periode(), create_script(), db, FICADD, Acc_Ledger\get_min_row(), Acc_Ledger\get_name(), Acc_Ledger\guess_pj(), h2(), HtmlInput\hidden(), Icon_Action\infobulle(), OPEN, Acc_Ledger\select_ledger(), and HtmlInput\setReadOnly().
Here is the call graph for this function:
◆ insert()
| Acc_Ledger_Fin::insert | ( | $p_array = null | ) |
save also into quant_fin
Definition at line 744 of file acc_ledger_fin.class.php.
745 {
746 global $g_parameter;
747
749 $this->load();
750 }
751 bcscale(2);
752 $internal_code="";
753 $oid=0;
754 extract($p_array, EXTR_SKIP);
756 // Debit = banque
757 $bank_id=$this->get_bank();
759 $e_bank_account=$fBank->strAttribut(ATTR_DEF_QUICKCODE);
760 // Get the saldo
762 $sposte=$fBank->strAttribut(ATTR_DEF_ACCOUNT);
763 // if 2 accounts, take only the debit one for customer
764 if (strpos($sposte, ',')!=0)
765 {
767 $poste_val=$array[0];
768 }
769 else
770 {
771 $poste_val=$sposte;
772 }
773
775
776 // If date = deposit date
777 if ($chdate==1)
778 {
780 {
782 }
783 else
784 {
786 }
789 $asolde=$acc_account->get_solde_detail($filter_year);
793 $new_solde=$solde;
794 }
795
796
797
798
799 try
800 {
801 $this->db->start();
802 $amount=0.0;
803 $idx_operation=0;
807 // Credit = goods
808 $get_solde=true;
809
811
812 // get the currency_rate when we have one date for all the operations
813 if ($chdate!=2)
814 {
815 $currency_rate=$acc_currency->get_rate_date($e_date);
816 }
817 if (DEBUGNOALYSS>1)
818 {
819 printf("<p> currency_id %s </p>",$this->currency_id);
820 printf("<p> rate %s </p>", $currency_rate);
821 }
822 // for each item
824 {
825 // insert it into the database
826 // and quit the loop ?
828 continue;
829
830 // get the currency_rate when each operation has its own date
831 if ($chdate==2)
832 {
834 $currency_rate=$acc_currency->get_rate_date($e_date);
835 }
836 // if date is date of operation
837 if ($chdate==2&&$get_solde)
838 {
839 $get_solde=false;
841 {
843 }
844 else
845 {
847 }
852 $new_solde=$solde;
853 }
855 $fPoste->get_by_qcode(${"e_other$i"});
856
857 // convert to EUR if needed and round it
858 $amount_input=${"e_other$i"."_amount"}=round(${"e_other$i"."_amount"}, 2);
859 $amount_eur=bcdiv($amount_input, $currency_rate);
860
862
863 // Record a line for the bank
864 // Compute the j_grpt
866
868 $acc_operation->date=$e_date;
869 $sposte=$fPoste->strAttribut(ATTR_DEF_ACCOUNT);
870 // if 2 accounts
871 if (strpos($sposte, ',')!=0)
872 {
874 if (${"e_other$i"."_amount"}<0)
875 $poste_val=$array[1];
876 else
877 $poste_val=$array[0];
878 }
879 else
880 {
881 $poste_val=$sposte;
882 }
883
884
885 $acc_operation->poste=$poste_val;
886 $acc_operation->amount=bcmul($amount_eur, -1);
887 $acc_operation->grpt=$seq;
888 $acc_operation->jrn=$p_jrn;
889 $acc_operation->type='d';
890
892 $tperiode=$periode;
893 else
894 {
897 }
898 $acc_operation->periode=$tperiode;
899 $acc_operation->qcode=${"e_other".$i};
900 $j_id_currency=$acc_operation->insert_jrnx();
901
902 // -- Insert into Operation Currency
904 $operation_currency->oc_amount=$amount_input;
905 $operation_currency->oc_vat_amount=0;
906 $operation_currency->oc_price_unit=0;
907 $operation_currency->j_id=$j_id_currency;
908 $operation_currency->insert();
909
911 $acc_operation->date=$e_date;
912 $sposte=$fBank->strAttribut(ATTR_DEF_ACCOUNT);
913
914 // if 2 accounts, use the first one if DEB otherwise the second one
915 if (strpos($sposte, ',')!=0)
916 {
918 if (${"e_other$i"."_amount"}<0)
919 $poste_val=$array[1];
920 else
921 $poste_val=$array[0];
922 }
923 else
924 {
925 $poste_val=$sposte;
926 }
927
928 $acc_operation->poste=$poste_val;
929 $acc_operation->amount=$amount_eur;
930 $acc_operation->grpt=$seq;
931 $acc_operation->jrn=$p_jrn;
932 $acc_operation->type='d';
933 $acc_operation->periode=$tperiode;
934 $acc_operation->qcode=$e_bank_account;
935 $j_id=$acc_operation->insert_jrnx();
936
937 // -- Insert into Operation Currency
939 $operation_currency->oc_amount=$amount_input;
940 $operation_currency->oc_vat_amount=0;
941 $operation_currency->oc_price_unit=0;
942 $operation_currency->j_id=$j_id;
943 $operation_currency->insert();
944
946 {
947 // if comment is blank set a default one
949 $fPoste->strAttribut(ATTR_DEF_NAME)
950 );
951 }
952 else
953 {
954 $comment=strip_tags(${'e_other'.$i.'_comment'});
955 }
956
957
959 $acc_operation->jrn=$p_jrn;
960 $acc_operation->amount=abs($amount_eur);
961 $acc_operation->date=$e_date;
962 $acc_operation->desc=$comment;
963 $acc_operation->grpt=$seq;
964 $acc_operation->periode=$tperiode;
965 $acc_operation->mt=$mt;
966 $idx_operation++;
967 $acc_operation->pj='';
968 $acc_operation->currency_id=$this->currency_id;
969 $acc_operation->currency_rate=$currency_rate;
970 $acc_operation->currency_rate_ref=$currency_rate;
971
973 $acc_operation->pj=$e_pj.str_pad($idx_operation, 3, 0, STR_PAD_LEFT);
974
976 $acc_operation->pj=$e_pj;
977
978 $jr_id=$acc_operation->insert_jrn();
979 // $acc_operation->set_pj();
980 $this->db->exec_sql('update jrn set jr_pj_number=$1 where jr_id=$2', array($acc_operation->pj, $jr_id));
982
983 if (trim(${"e_concerned".$i})!="")
984 {
985 if (strpos(${"e_concerned".$i}, ',')!=0)
986 {
987 $aRapt=explode(',', ${"e_concerned".$i});
988 foreach ($aRapt as $rRapt)
989 {
990 // Add a "concerned operation to bound these op.together
991 //
993 $rec->set_jr_id($jr_id);
994
996 {
997 $rec->insert($rRapt);
998 try
999 {
1001 $oppaid->set_id($rRapt);
1002 $oppaid->set_paid();
1003 }
1005 {
1007 echo _('Attention , erreur Acc_Ledger_Fin::insert , coche paiement');
1008 }
1009 }
1010 }
1011 }
1012 else
1014 {
1016 $rec->set_jr_id($jr_id);
1017 $rec->insert(${"e_concerned$i"});
1018 try
1019 {
1021 $oppaid->set_id(${"e_concerned".$i});
1022 $conc_amount=$oppaid->get_amount();
1023 if ($conc_amount==$acc_operation->amount)
1024 {
1025 $oppaid->set_paid();
1026 }
1027 }
1029 {
1031 echo _('Attention , erreur Acc_Ledger_Fin::insert , coche paiement');
1032 }
1033 }
1034 }
1035
1036 // Set Internal code
1037 $this->grpt_id=$seq;
1038 /**
1039 * save also into quant_fin
1040 */
1042
1044 {
1045 // for each item, insert into operation_analytique */
1047 $op->set_currency_rate($currency_rate);
1049 $op->j_id=$j_id_currency;
1054 }
1055
1056
1057 $this->update_internal_code($internal);
1058
1060 // Compute display
1062 .td($js_detail)
1063 .td(${"e_other$i"})
1065 .td(${"e_other".$i."_comment"})
1069
1071 {
1072 // first record we upload the files and
1073 // keep variable to update other row of jrn
1074 if (isset($_FILES['pj']))
1076 }
1077 else
1078 {
1079 if ($oid!=0)
1080 {
1082 jr_pj_type=$3 where jr_grpt_id=$4",
1084 }
1085 }
1086 } // for nbitem
1087 // increment pj
1089 {
1090 $this->inc_seq_pj();
1091 }
1093 }
1095 {
1097 'Erreur dans l\'enregistrement '.
1098 __FILE__.':'.__LINE__.' '.
1099 $e->getMessage();
1100 $this->db->rollback();
1101 record_log($e);
1103 }
1104 $this->db->commit();
1105 if ($acc_currency->get_id()==0)
1106 {
1109 $new_solde=bcadd($new_solde, $amount);
1112 }
1113 else
1114 {
1115 $solde_cur=$fBank->get_bk_balance_currency();
1118 $new_solde=bcadd($solde_cur, $amount);
1121 }
1123 }
record_log($p_message)
Record an error message into the log file of the server.
Definition: ac_common.php:1342
sql_string($p_string)
Fix the problem with the quote char for the database.
Definition: ac_common.php:511
insert_quant_fin($p_bankid, $p_jrid, $p_otherid, $p_amount, $p_j_id_currency)
insert into the quant_fin table
Definition: acc_ledger_fin.class.php:1167
compute_internal_code($p_grpt)
compute the internal code of the saved operation and set the $this->jr_internal to the computed value
Definition: acc_ledger.class.php:1337
update_internal_code($p_internal)
Definition: acc_ledger.class.php:1664
this file match the tables jrn & jrnx the purpose is to remove or save accountant writing to these ta...
Definition: acc_operation.class.php:34
new class for managing the reconciliation it must be used instead of the function InsertRapt,...
Definition: acc_reconciliation.class.php:33
static detail_op($p_jr_id, $p_mesg)
return a string containing the html code for calling the modifyOperation
Definition: html_input.class.php:289
ORM abstract of the table public.operation_currency.
Definition: operation_currency_sql.class.php:36
References $_POST, $amount, $array, $class, $cred, Acc_Ledger\$currency_id, $deb, $e, $e_date, $ex, $exercice, $filter_year, $g_parameter, $i, $j_id, $jr_id, $op, $p_array, $p_jrn, $per, $periode, $pPeriode, $r, $ret, Acc_Ledger\$row, $seq, $solde, ATTR_DEF_ACCOUNT, ATTR_DEF_NAME, ATTR_DEF_QUICKCODE, Acc_Ledger\check_periode(), Acc_Ledger\compute_internal_code(), db, HtmlInput\detail_op(), get_bank(), Acc_Ledger\get_is_loaded(), Acc_Ledger\inc_seq_pj(), insert_quant_fin(), isNumber(), nbm(), noalyss_strlentrim(), numb_operation(), record_log(), sql_string(), td(), th(), tr(), and Acc_Ledger\update_internal_code().
Here is the call graph for this function:
◆ insert_quant_fin()
| Acc_Ledger_Fin::insert_quant_fin | ( | $p_bankid, | |
| $p_jrid, | |||
| $p_otherid, | |||
| $p_amount, | |||
| $p_j_id_currency | |||
| ) |
insert into the quant_fin table
- Parameters
-
integer $bank_id is the f_id of the bank integer $jr_id is the jrn.jr_id of the operation integer $other is the f_id of the benefit integer $amount is the amount integer $p_j_id is the j_id of the operation
Definition at line 1167 of file acc_ledger_fin.class.php.
1168 {
1170 VALUES ($1, $2, $3, $4,$5);";
1171
1172 $this->db->exec_sql($sql, array($p_bankid, $p_jrid, $p_otherid, round($p_amount, 2), $p_j_id_currency));
1173 }
Referenced by insert().
◆ numb_operation()
| Acc_Ledger_Fin::numb_operation | ( | ) |
return true is we numbere each operation
Definition at line 1151 of file acc_ledger_fin.class.php.
1152 {
1153 $a=$this->db->get_value('select jrn_def_num_op from jrn_def where jrn_def_id=$1', array($this->id));
1155 return true;
1156 return false;
1157 }
Referenced by insert().
◆ verify_operation()
| Acc_Ledger_Fin::verify_operation | ( | $p_array | ) |
Verify that the data are correct before inserting or confirming.
- Parameters
-
an array (usually $_POST)
- Returns
- String
- Exceptions
-
Exception on error occurs
Reimplemented from Acc_Ledger.
Definition at line 50 of file acc_ledger_fin.class.php.
51 {
52 global $g_user;
54 throw new Exception("Array empty");
55 /*
56 * Check needed value
57 */
59
60 extract($p_array, EXTR_SKIP);
61 /* check for a double reload */
63 throw new Exception(_('Double Encodage'), 5);
64
65 /* check if we can write into this ledger */
67 throw new Exception(_('Accès interdit'), 20);
68
69 /* check if there is a bank account linked to the ledger */
70 $bank_id=$this->get_bank();
71
73 throw new Exception("Ce journal n'a pas de compte en banque, allez dans paramètre->journal pour régler cela");
74 /* check if the accounting of the bank is correct */
76 $bank_accounting=$fBank->strAttribut(ATTR_DEF_ACCOUNT);
77 if (trim($bank_accounting)=='')
78 throw new Exception('Le poste comptable du compte en banque de ce journal est invalide');
79
80 /* check if the account exists */
83 throw new Exception('Le poste comptable du compte en banque de ce journal est invalide');
84 if ($chdate!=1&&$chdate!=2)
85 throw new Exception('Le choix de date est invalide');
86 if ($chdate==1)
87 {
88 /* check if the date is valid */
90 {
91 throw new Exception('Date invalide', 2);
92 }
95 {
97 }
98 else
99 {
104 throw new Exception(_('Date et periode ne correspondent pas'), 6);
105 }
106
107 /* check if the periode is closed */
109 {
110 throw new Exception(_('Periode fermee'), 6);
111 }
112
113 /* check if we are using the strict mode */
115 {
116 /* if we use the strict mode, we get the date of the last
117 operation */
118 $last_date=$this->get_last_date();
120 throw new Exception(_('Vous utilisez le mode strict la dernière operation est à la date du ')
121 .$last_date._(' vous ne pouvez pas encoder à une date antérieure'), 15);
122 }
123 }
124
126
127 $nb=0;
128 $tot_amount=0;
129 //----------------------------------------
130 // foreach item
131 //----------------------------------------
133 {
135 continue;
136 /* check if amount are numeric and */
138 throw new Exception('La fiche '.${'e_other'.$i}.'a un montant invalide ['.${'e_other'.$i.'_amount'}.']',
139 6);
140
141 /* compute the total */
143 /* check if all card has a ATTR_DEF_ACCOUNT */
145 $fiche->get_by_qcode(${'e_other'.$i});
147 throw new Exception('La fiche '.${'e_other'.$i}.'n\'a pas de poste comptable', 8);
148
150 // if 2 accounts, take only the debit one for customer
151 if (strpos($sposte, ',')!=0)
152 {
154 $poste_val=$array[1];
155 }
156 else
157 {
158 $poste_val=$sposte;
159 }
160 /* The account exists */
163 {
164 throw new Exception('Pour la fiche '.${'e_other'.$i}.' le poste comptable ['.$poste->id.'n\'existe pas',
165 9);
166 }
167 /* Check if the card belong to the ledger */
169 $fiche->get_by_qcode(${'e_other'.$i});
171 throw new Exception('La fiche '.${'e_other'.$i}.'n\'est pas accessible à ce journal', 10);
172 if ($chdate==2)
173 {
174 {/* check if the date is valid */
176 {
177 throw new Exception('Date invalide', 2);
178 }
181 {
183 }
184 else
185 {
190 throw new Exception(_('Date et periode ne correspondent pas'), 6);
191 }
192
193 /* check if the periode is closed */
195 {
196 throw new Exception(_('Periode fermee'), 6);
197 }
198
199 /* check if we are using the strict mode */
201 {
202 /* if we use the strict mode, we get the date of the last
203 operation */
204 $last_date=$this->get_last_date();
206 throw new Exception(_('Vous utilisez le mode strict la dernière operation est à la date du ')
207 .$last_date._(' vous ne pouvez pas encoder à une date antérieure'), 15);
208 }
209 }
210 }
211 $nb++;
212 }
214 throw new Exception('Il n\'y a aucune opération', 12);
215
216 /* Check if the last_saldo and first_saldo are correct */
217 if (noalyss_strlentrim($last_sold)!=0&&isNumber($last_sold)&&noalyss_strlentrim($first_sold)!=0&&isNumber($first_sold)
218 )
219 {
220 $diff=bcsub($last_sold,$first_sold,2);
222 $calc=bcadd($first_sold, $tot_amount, 2);
223 if ($first_sold!=0||$last_sold!=0)
224 {
226 {
227 throw new Exception(sprintf(_('Le montant de l\'extrait est incorrect,'.
228 " solde donné [ %s ]".
229 " solde calculé [%s] , différence de [%s]"), $last_sold, $calc,
230 $diff), 13);
231 }
232 }
233 }
234 }
check_strict()
Check if a Dossier is using the strict mode or not.
Definition: acc_ledger.class.php:1791
check_parameter($p_array, $p_needed)
Check that all the index are in the array, used by function to check if the array contains the needed...
Definition: user_common.php:209
References $array, $diff, $e_date, $fiche, $g_user, $i, $max, $min, Acc_Ledger\$nb, $oPeriode, $p_array, $p_jrn, $periode, $poste, $tot_amount, ATTR_DEF_ACCOUNT, check_parameter(), Acc_Ledger\check_periode(), Acc_Ledger\check_strict(), cmpDate(), db, get_bank(), Acc_Ledger\get_last_date(), Acc_Ledger\is_closed(), isDate(), isNumber(), and noalyss_strlentrim().
Here is the call graph for this function:
The documentation for this class was generated from the following file:
- include/class/acc_ledger_fin.class.php