Acc_Ledger_Purchase Class Reference

: input, confirm and save new operations in edger of purchase the $_POST data is an array with these keys More...

Inheritance diagram for Acc_Ledger_Purchase:

Collaboration diagram for Acc_Ledger_Purchase:

Public Member Functions
	__construct ($p_cn, $p_init)
	construct
	confirm ($p_array, $p_summary=false)
	show the summary of the operation and propose to save it
	input ($p_array=null, $p_readonly=0)
	display the form for entering data for invoice
	insert ($p_array=null)
	insert into the database, it calls first the verify function change the value of this->jr_id and this->jr_internal. It generates the document and save the middle of payment, if 'gen_invoice is set and e_mp
	verify_operation ($p_array)
	verify that the data are correct before inserting or confirming
Public Member Functions inherited from Acc_Ledger
	add_card ($p_filter, $p_id_update)
	Return a button to create new card, depending of the ledger.
	button_copy_operation ()
	Show a button to create an operation identical to the recorded one.
	button_new_operation ()
	Create a button to encode a new operation into the same ledger.
	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.
	check_currency_setting ($p_currency_code)
	Check that the currency code does exist and the setting of the folder is correct.
	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
	convert_from_follow ($p_ag_id, $copy_description=0)
	convert operations from FOLLOWUP into a SALE , FEENOTE or PURCHASE operation into a suitable array
	create_document ($internal, $p_array)
	alias for Acc_Document->create_document
	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.
	delete ()
	let you delete a operation
	delete_ledger ()
	delete a ledger IF it doesn't contain anything
	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
	display_ledger ()
	display detail of a ledger
	display_negative_warning ($p_amount)
	If the amount is positive and the ledger expects a negative amount, il will return the saved warning.
	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_currency ()
	returns the code iso of the default currency for this ledger
	get_customer_late ()
	get info from customer not yet paid
	get_customer_now ()
	get info from customer to pay today
	get_default_card ($p_ledger_type, $p_side)
	Return an array of default card for the ledger type given.
	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
	get_id ($p_internal)
	retrieve the jr_id thanks the internal code, do not change anything to the current object
	get_is_loaded ()
	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 ()
	returns the sequence number of the receipt for the current ledger or create the sequence if it doesn't exist
	get_ledger_id ()
	Set the jrn_def.jrn_def_id.
	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 operation from the ledger type before, after or with the given date .
	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_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.
	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_tiers_id ($p_jrn_type, $jr_id)
	Return the f_id of the tiers , called by get_tiers.
	get_type ()
	Return the type of a ledger (ACH,VEN,ODS or FIN) or GL.
	guess_pj ()
	guess what the next pj should be
	has_other_tax ()
	returns true if the ledger has an additional tax
	has_quantity ()
	Check if a ledger is enabled , 1 for yes and 0 if disabled.
	inc_seq_pj ()
	increment the sequence for the pj
	input_additional_tax ()
	form : display additional tax available for this ledger and value, set 2 values : checkbox if tax applies and value
	input_extra_info ()
	input_new ()
	display FORM to enter parameters to create a new ledger.
	input_paid ($p_selected, $p_amount=0, $p_date="", $p_comm="")
	Create the section payment.
	is_closed ($p_periode)
	check if the current ledger is closed
	is_enable ()
	Check if a ledger is enabled , 1 for yes and 0 if disabled.
	listing ()
	listing of all ledgers
	previous_amount ($p_to)
	retrieve amount of previous periode
	previous_other_tax ($p_to)
	retrieve the previous amount
	reverse ($p_date, $p_label)
	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_followup ($s_related_action)
	attach action-followups to an operation,
	save_new ($array)
	Insert a new ledger , member variable like jrn_def_id will changed.
	search_group ($p_what, $p_value)
	retreive the jr_grpt_id from a ledger
	select_default_currency ()
	create a select button to set the default currency for a ledger used only for empty financial ledger
	select_depot ($p_readonly, $p_repo)
	Let you select the repository before confirming a sale or a purchase.
	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.
	set_currency_id ()
	retrieve currency_id from database
	set_is_loaded ($is_loaded)
	set_ledger_id ($p_id)
	Set the jrn_def.jrn_def_id.
	set_quantity ($p_value)
	set quantity for the ledger to 1 or 0,
	update ($array=null)
	update a ledger
	update_internal_code ($p_internal)
	update_paid ($p_array)
	Update the paiment in the list of operation.
	upload_supplemental_document ($jr_id)
	upload the supplementary documents and attach them to the JRN.JR_ID start a new transaction if the connection to the database is not already in a transaction
	use_quant_table ($p_grpt_id, $p_jrn_type)
	Check if the operation is used in the table quant*.
	vat_operation ($p_jr_id)
	get the amount of vat for a given jr_grpt_id from the table quant_purchase
	verify_ledger ($array)
	Verify before update.

Private Member Functions
	compute_no_deductible (Acc_Compute $p_nd_amount, Fiche $p_fiche)
	Compute the ND amount thanks the attribute of the concerned card.
	insert_no_deductible (Acc_Compute $p_nd_amount, Fiche $p_fiche, $p_tva_both, &$p_tot_debit, Acc_Operation $p_acc_operation, $p_group, $idx)
	Insert into JRNX the No Deductible amount and into Analytic Accountancy for the ND VAT.

Private Attributes
	$payment_operation

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
static	next_number ($p_cn, $p_type)
	retrieve the next number for this type of ledger
static	test_me ($pCase='')
	this function is intended to test this class
Data Fields inherited from Acc_Ledger
	$currency_id
	$db
	$doc
	$id
	$jr_grpt_id
	$jr_id
	$jr_internal
	$jrn_deb_max_line
	$jrn_def_description
	$jrn_def_ech_lib
	$jrn_def_id
	$jrn_def_max_line_deb
	$jrn_def_name
	$jrn_def_negative_amount
	$jrn_def_negative_warning
	$jrn_def_pj_pref
	$jrn_def_quantity
	$jrn_def_type
	$jrn_enable
	$ledger_name
	$ledger_type
	$nb
	$pj
	!
	$row
	$with_concerned
Protected Member Functions inherited from Acc_Ledger
	find_label ($p_value)
	Retrieve the label of an accounting.
	input_supplemental_document ()
	display INPUT type to ask the supplementary documents
	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
	warn_manual_receipt ($p_array)
	warn if the suggested receipt and receipt are different , it means that the user tried to number himself
Protected Attributes inherited from Acc_Ledger
	$is_loaded

Detailed Description

: input, confirm and save new operations in edger of purchase the $_POST data is an array with these keys

 Array
(
    
// =====================
// ANALYTIC  PART
// =====================
    [pa_id] => Array 
        (
            [0] => 1
        )
 
    [op] => Array
        (
            [0] => 0
        )
 
    [amount_t0] => 10
    [hplan] => Array
        (
            [0] => Array
                (
                    [0] => -1
                )
 
        )
 
    [val] => Array
        (
            [0] => Array
                (
                    [0] => 10
                )
 
        )
// =====================
// SALES DATA
// =====================
 
    [e_client] => QuickCode supplier
    [nb_item] => number of items (lines of invoice)
    [p_jrn] => JRN_DEF.JRN_DEF_ID id of the ledger
    [jrn_note_input] =>  Note JRN_NOTE.N_TEXT
    [mt] => 1759130008.8134
    [p_currency_rate] => Currency Rate
    [p_currency_code] => Currency Code
    [e_comm] => Description of invoice
    [e_date] => date invoice
    [e_ech] =>  limit date
    [e_pj] => Receipt number
    [e_pj_suggest] => suggested receipt number
    [e_mp] => payment means (
    [jrn_type] => Type of ledger (always ACH)
 //---------------------------------------------
 // For each invoice line 
 //---------------------------------------------
    [e_march0] => QuickCode of the item
    [e_march0_label] => label
    [e_march0_price] => unit price
    [e_march0_tva_id] => VAT ID
    [e_march0_tva_amount] => amount of VAT
    [e_quant0] => quantity of item
//======================== 
// MISC
//========================
    [repo] => 1 (repository)
    [gen_invoice] => on (it is asked to generate an invoice
    [gen_doc] => Document template id
    [bon_comm] => JRN_INFO.
    [other_info] = JRN_INFO.> 
    [opd_name] =>  Name of operation template
    [od_description] => Description of operation template 
    [reverse_date] =>  if reverse is asked
    [ext_label] =>  Label for revese operation
    [jr_optype] => Type of operation NOR:Normal,, EXT; reverse, ..
)

Definition at line 113 of file acc_ledger_purchase.class.php.

Constructor & Destructor Documentation

__construct()

Acc_Ledger_Purchase::__construct	(		$p_cn,
			$p_id )

construct

Parameters

$p_cn	database connexion
$p_id	(int) ledger idf jrn.jrn_def_id

Reimplemented from Acc_Ledger.

Definition at line 117 of file acc_ledger_purchase.class.php.

    {
        $this->ledger_type='ACH';
        parent::__construct($p_cn,$p_init);
        $this->payment_operation=-1;
    }

Member Function Documentation

compute_no_deductible()

Acc_Ledger_Purchase::compute_no_deductible ( Acc_Compute $p_nd_amount, Fiche $p_fiche )

private

Compute the ND amount thanks the attribute of the concerned card.

The object $p_nd_amount will changed

Parameters

Acc_Compute	$p_nd_amount	object with ND amount
Fiche	$p_fiche	Concerned Card (purchase items)
type	$p_tva_bot	0 TVA on one side, 1 TVA on both side

Definition at line 381 of file acc_ledger_purchase.class.php.

    {
        if (!$p_fiche->empty_attribute(ATTR_DEF_DEPENSE_NON_DEDUCTIBLE))
        {
            $p_nd_amount->amount_nd_rate = $p_fiche->get_attribute(ATTR_DEF_DEPENSE_NON_DEDUCTIBLE);
            $p_nd_amount->compute_nd();
        }
        if (!$p_fiche->empty_attribute(ATTR_DEF_TVA_NON_DEDUCTIBLE) )
        {
            $p_nd_amount->nd_vat_rate = $p_fiche->get_attribute(ATTR_DEF_TVA_NON_DEDUCTIBLE);
            $p_nd_amount->compute_nd_vat();
        }
        if (!$p_fiche->empty_attribute(ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP) )
        {
            $p_nd_amount->nd_ded_vat_rate = $p_fiche->get_attribute(ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP);
            $p_nd_amount->compute_ndded_vat();
        }
 
        if (!$p_fiche->empty_attribute(ATTR_DEF_DEP_PRIV))
        {
            $p_nd_amount->amount_perso_rate = $p_fiche->get_attribute(ATTR_DEF_DEP_PRIV);
            $p_nd_amount->compute_perso();
        }
 
    }

References ATTR_DEF_DEP_PRIV, ATTR_DEF_DEPENSE_NON_DEDUCTIBLE, ATTR_DEF_TVA_NON_DEDUCTIBLE, ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP, Acc_Compute\compute_nd(), Acc_Compute\compute_nd_vat(), Acc_Compute\compute_ndded_vat(), Acc_Compute\compute_perso(), Fiche\empty_attribute(), and Fiche\get_attribute().

Referenced by insert().

Here is the call graph for this function:

confirm()

Acc_Ledger_Purchase::confirm	(		$p_array,
			$p_summary = false )

show the summary of the operation and propose to save it

Parameters

array	contains normally $_POST. It proposes also to save the Analytic accountancy
$p_summary	true to confirm false, show only the result in RO

Returns

string

Payment method

the function extra info allows to

• add a attachment
• generate an invoice
• insert extra info

  Returns

  html string

  update the payment

  Todo

  to remove, obsolete

  Todo

  Deprecated

Retrieve data from the view v_detail_purchase

Note

$g_user connected user

Parameters

$p_from	jrn.jr_tech_per from
$p_end	jrn.jr_tech_per to

Returns

handle to database result

compute an array with the heading cells for the details, used for the export in CSV

Returns

array

Reimplemented from Acc_Ledger.

Definition at line 1655 of file acc_ledger_purchase.class.php.

References $acompte, $amount, $anc, $date_limit, $default_currency, $e_date, $fiche, $g_parameter, $g_user, $i, Acc_Ledger\$jr_id, $jrn_type, $op, $other_tax_amount, $p_array, $p_jrn, Acc_Ledger\$pj, $r, $span, $str_code, $tot, $tot_amount, $value, $x, _, ATTR_DEF_ACCOUNT, ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_NAME, ATTR_DEF_POSTCODE, Acc_Tva\build(), Acc_Ledger\check_periode(), cn, db, Acc_Ledger\display_negative_warning(), Acc_Ledger\get_name(), h, Acc_Ledger\has_other_tax(), hb(), Anc_Plan\hidden(), Icon_Action\infobulle(), nbm(), noalyss_strlentrim(), span(), td(), tr(), UPDRECEIPT, and Acc_Ledger\warn_manual_receipt().

Here is the call graph for this function:

input()

Acc_Ledger_Purchase::input	(		$p_array = null,
			$p_readonly = 0 )

display the form for entering data for invoice

Parameters

$p_array

is null or you can put the predef operation or the $_POST array 'sa' => string 'n' (length=1) 'p_action' => string 'ach' (length=3) 'gDossier' => string '28' (length=2) 'e_client' => string 'ASEKURA' (length=7) 'nb_item' => string '9' (length=1) 'p_jrn' => string '3' (length=1) 'period' => string '126' (length=3) 'e_comm' => string 'descriptio' (length=10) 'e_date' => string '01.05.2010' (length=10) 'e_ech' => string '' (length=0) 'jrn_type' => string 'ACH' (length=3) 'e_pj' => string 'ACH37' (length=5) 'e_pj_suggest' => string 'ACH37' (length=5) 'mt' => string '1273759434.5701' (length=15) 'e_mp' => string '0' (length=1) 'e_march0' => string 'DOC' (length=3) 'e_march0_price' => string '2000' (length=4) 'e_march0_tva_id' => string '3' (length=1) 'e_march0_tva_amount' => string '120' (length=3) 'e_quant0' => string '1' (length=1) 'gen_invoice' => string 'on' (length=2) 'gen_doc' => string '7' (length=1) 'bon_comm' => string '' (length=0) 'other_info' => string '' (length=0) 'correct' => string 'Corriger' (length=8)

Returns

HTML string

Reimplemented from Acc_Ledger.

Definition at line 1262 of file acc_ledger_purchase.class.php.

    {
        global $g_parameter,$g_user;
        // load ledger definition
        $this->load();
        $http=new HttpInput();
        if ( $p_array != null ) extract($p_array, EXTR_SKIP);
 
        $flag_tva=$g_parameter->MY_TVA_USE;
 
        /* Add button */
        $str_add_button_tiers = "";
        $add_card=FALSE;
        if ($g_user->check_action(FICADD) == 1) {
            $add_card=TRUE; 
             $str_add_button_tiers = $this->add_card("cred", "e_client");
        }
        // The first day of the periode
        $oPeriode=new Periode($this->db);
        list ($l_date_start,$l_date_end)=$oPeriode->get_date_limit($g_user->get_periode());
        if (  $g_parameter->MY_DATE_SUGGEST=='Y' )
            $op_date=( ! isset($e_date) ) ?$l_date_start:$e_date;
        else
            $op_date=( ! isset($e_date) ) ?'':$e_date;
 
        $e_ech=(isset($e_ech))?$e_ech:"";
        $e_comm=(isset($e_comm))?$e_comm:"";
 
        $r="";
        $r.=dossier::hidden();
        $f_legend_detail=_("Détail articles achetés");
 
        //  Date
        //--
        $Date=new IDate();
        $Date->setReadOnly(false);
        $Date->table=1;
        $Date->tabindex=1;
        $f_date=$Date->input("e_date",$op_date);
        // Payment limit
        //--
        $Echeance=new IDate();
        $Echeance->setReadOnly(false);
        $Echeance->tabindex=2;
        $label=Icon_Action::infobulle(4);
        $f_echeance=$Echeance->input('e_ech',$e_ech,'Echéance'.$label);
        $f_periode="";
        if ($this->check_periode() == true)
        {
            // Periode
            //--
            $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)
            {
                  record_log($e);
                if ($e->getCode() == 1 )
                {
                    throw new Exception( _("Aucune période ouverte"));
                }
            }
 
            $r.="<td>";
            $label=Icon_Action::infobulle(3);
            $f_periode=td(_("Période comptable")." $label ").td($l_form_per);
        }
        // Ledger (p_jrn)
        //--
        /* if we suggest the next pj, then we need a javascript */
        $add_js="";
        if ( $g_parameter->MY_PJ_SUGGEST !='N')
        {
            $add_js="update_receipt();";
        }
        if ($g_parameter->MY_DATE_SUGGEST == 'Y')
        {
                $add_js.='get_last_date();';
        }
        $add_js.='update_name();';
        $add_js.='update_pay_method();';
        $add_js.='update_row("sold_item");';
        $add_js.='update_other_tax();';
        $add_js.='update_visibility_quantity();';
 
        $wLedger=$this->select_ledger('ACH',2,FALSE);
        
        if ($wLedger == null) throw  new Exception(_('Pas de journal disponible'));
        $wLedger->javascript="onChange='update_predef(\"ach\",\"f\",\"".$http->request("ac")."\");$add_js'";
        $wLedger->table=0;
        $f_jrn=$wLedger->input();
 
        // Comment
        //--
        $Commentaire=new IText();
        $Commentaire->table=0;
        $Commentaire->setReadOnly(false);
        $Commentaire->size=60;
        $Commentaire->tabindex=3;
        $label=Icon_Action::infobulle(1) ;
        $f_desc=$Commentaire->input("e_comm",$e_comm);
 
        // PJ
        //--
        /* suggest PJ ? */
        $default_pj='';
        if ( $g_parameter->MY_PJ_SUGGEST !='N')
        {
            $default_pj=$this->guess_pj();
        }
 
        $pj=new IText();
        $pj->value=(isset($e_pj))?$e_pj:$default_pj;
 
        if ( $g_parameter->MY_PJ_SUGGEST=='A' || $g_user->check_action(UPDRECEIPT)==0)
        {
            $pj->setReadOnly(true);
            $pj->id="e_pj";
        }
        $pj->table=0;
        $pj->name="e_pj";
        $pj->size=10;
        $pj->readonly=false;
 
        $f_pj=$pj->input().HtmlInput::hidden('e_pj_suggest',$default_pj);
 
        // Display the customer
        //--
        $fiche='cred';
 
        // Save old value and set a new one
        //--
        $e_client=( isset ($e_client) )?$e_client:"";
        $e_client_label="&nbsp;";//str_pad("",100,".");
 
 
        // retrieve e_client_label
        //--
 
        if ( noalyss_strlentrim($e_client) !=  0)
        {
            $fClient=new Fiche($this->db);
            $fClient->get_by_qcode($e_client);
            $e_client_label=$fClient->get_attribute(ATTR_DEF_NAME).' '.
                            ' Adresse : '.$fClient->get_attribute(ATTR_DEF_ADRESS).' '.
                            $fClient->get_attribute(ATTR_DEF_POSTCODE).' '.
                            $fClient->get_attribute(ATTR_DEF_CITY).' ';
 
 
        }
 
        $W1=new ICard();
        $W1->label=_("Fournisseur ").Icon_Action::infobulle(0) ;
        $W1->name="e_client";
        $W1->tabindex=3;
        $W1->value=$e_client;
        $W1->table=0;
        $W1->set_dblclick("fill_ipopcard(this);");
        $W1->set_attribute('ipopup','ipopcard');
 
        // name of the field to update with the name of the card
        $W1->set_attribute('label','e_client_label');
        // name of the field to update with the name of the card
        $W1->set_attribute('typecard','cred');
 
        // Add the callback function to filter the card on the jrn
        $W1->set_callback('filter_card');
        $W1->set_function('fill_data');
        $W1->javascript=sprintf(' onchange="fill_data_onchange(\'%s\');" ',
                                $W1->name);
        $f_client_qcode=$W1->input();
        $client_label=new ISpan();
        $client_label->style="vertical-align:top";
        $client_label->table=0;
        $f_client=$client_label->input("e_client_label",$e_client_label);
        $f_client_bt=$W1->search();
 
 
        // Record the current number of article
 
        $e_comment=(isset($e_comment))?$e_comment:"";
        $p_article= ( isset ($nb_item))?$nb_item:$this->get_min_row();
        $p_article=($p_article < $this->get_min_row())?$this->get_min_row():$p_article;
 
        $Hid=new IHidden();
        $r.=$Hid->input("nb_item",$p_article);
 
        // For each article
        //--
        for ($i=0;$i< $p_article ;$i++)
        {
            // Code id, price & vat code
            //--
            $march=(isset(${"e_march$i"}))?${"e_march$i"}:""                   ;
            $march_price=(isset(${"e_march".$i."_price"}))?${"e_march".$i."_price"}:""
                         ;
            /* use vat */
            if ( $g_parameter->MY_TVA_USE=='Y')
            {
                $march_tva_id=(isset(${"e_march$i"."_tva_id"}))?${"e_march$i"."_tva_id"}:"";
                $march_tva_amount=(isset(${"e_march$i"."_tva_amount"}))?${"e_march$i"."_tva_amount"}:"";
            }
 
 
 
            $march_label=(isset(${"e_march".$i."_label"}))?${"e_march".$i."_label"}:"";
            // retrieve the tva label and name
            //--
            if ( noalyss_strlentrim($march)!=0  && noalyss_strlentrim($march_label)==0 )
            {
                $fMarch=new Fiche($this->db);
                $fMarch->get_by_qcode($march);
                $march_label=$fMarch->get_attribute(ATTR_DEF_NAME);
                /* vat use */
                if ( ! isset($march_tva_id) && $g_parameter->MY_TVA_USE=='Y' )
                    $march_tva_id=$fMarch->get_attribute(ATTR_DEF_TVA);
            }
            // Show input
            //--
            $W1=new ICard();
            $W1->label="";
            $W1->name="e_march".$i;
            $W1->value=$march;
            $W1->table=0;
            $W1->setAfter_clean("compute_all_ledger()");
            $W1->set_dblclick("fill_ipopcard(this);");
            $W1->set_attribute('ipopup','ipopcard');
 
            $W1->set_attribute('typecard','deb');
 
            // name of the field to update with the name of the card
            $W1->set_attribute('label','e_march'.$i.'_label');
            // name of the field with the price
            $W1->set_attribute('purchase','e_march'.$i.'_price'); /* autocomplete */
            $W1->set_attribute('price','e_march'.$i.'_price');    /* via search */
 
            // name of the field with the TVA_ID
            $W1->set_attribute('tvaid','e_march'.$i.'_tva_id');
            // Add the callback function to filter the card on the jrn
            $W1->set_callback('filter_card');
            $W1->set_function('fill_data');
            $W1->javascript=sprintf(' onchange="fill_data_onchange(\'%s\');" ',
                                    $W1->name);
            $W1->readonly=false;
            $array[$i]['quick_code']=$W1->input();
            $array[$i]['bt']=$W1->search();
            $array[$i]['card_add']=($add_card==TRUE)?$this->add_card("deb", $W1->id):"";
 
            $array[$i]['hidden']='';
            // For computing we need some hidden field for holding the value
            if ( $g_parameter->MY_TVA_USE=='Y')
            {
                $array[$i]['hidden'].=HtmlInput::hidden('tva_march'.$i,0);
            }
 
            if ( $g_parameter->MY_TVA_USE=='Y')
                $tvac=new INum('tvac_march'.$i);
            else
                $tvac=new IHidden('tvac_march'.$i);
 
            $tvac->readOnly=1;
            $tvac->value=0;
            $array[$i]['tvac']=$tvac->input();
 
            $htva=new INum('htva_march'.$i);
            $htva->readOnly=1;
 
            $htva->value=0;
            $array[$i]['htva']=$htva->input();
 
            if ( $g_parameter->MY_UPDLAB == 'Y')
            {
                $Span=new IText("e_march".$i."_label");
                $Span->style='class="input_text label_item"';
            } else
            {
                $Span=new ISpan("e_march".$i."_label");
                $Span->extra='class="label_item"';
            }
            $Span->value=$march_label;
            $Span->setReadOnly(false);
            // card's name, price
            //--
            $array[$i]['denom']=$Span->input("e_march".$i."_label",$march_label);
            // price
            $Price=new INum();
            $Price->setReadOnly(false);
            $Price->size=9;
            $Price->javascript="onblur=\"format_number(this,4);clean_tva($i);compute_ledger($i)\"";
            $array[$i]['pu']=$Price->input("e_march".$i."_price",$march_price);
            if ( $g_parameter->MY_TVA_USE=='Y')
            {
 
                // vat label
                //--
                $Tva=new ITva_Popup($this->db);
                $Tva->id="e_march$i"."_tva_id";
                $Tva->js="onblur=\"clean_tva($i);compute_ledger($i)\"";
                $Tva->in_table=true;
                $Tva->set_attribute('compute',$i);
                $Tva->set_filter("purchase");
                $Tva->value=$march_tva_id;
                $array[$i]['tva']=$Tva->input("e_march$i"."_tva_id");
 
                // Tva_amount
 
                // price
                $Tva_amount=new INum();
                $Tva_amount->setReadOnly(false);
                $Tva_amount->size=9;
                $Tva_amount->javascript="onblur=\"format_number(this);compute_ledger($i)\"";
                $array[$i]['amount_tva']=$Tva_amount->input("e_march".$i."_tva_amount",$march_tva_amount);
            }
            // quantity
            //--
            $quant=(isset(${"e_quant$i"}))?${"e_quant$i"}:"1"
                   ;
            $Quantity=new INum();
            $Quantity->setReadOnly(false);
            $Quantity->size=9;
            $Quantity->javascript="onchange=\"format_number(this,2);clean_tva($i);compute_ledger($i)\"";
            $array[$i]['quantity']=$Quantity->input("e_quant".$i,$quant);
 
        }
        $f_type=_('Fournisseur');
        
        // Currency
        $currency_select = $this->CurrencyInput("currency_code", "p_currency_rate" , "p_currency_euro");
        $currency_select->selected=$http->request('p_currency_code','string',0);
        
        $currency_input=new INum("p_currency_rate");
        $currency_input->prec=8;
        $currency_input->id="p_currency_rate";
        $currency_input->value=$http->request('p_currency_rate','string',1);
        $currency_input->javascript='onchange="format_number(this,6);CurrencyCompute(\'p_currency_rate\',\'p_currency_euro\');"';
       
        $currency=new Acc_Currency($this->db,0);
        
        // 
        // Button for template operation
        //
        ob_start();
        echo '<div id="predef_form">';
        echo HtmlInput::hidden('p_jrn_predef', $this->id);
        $op = new Pre_operation($this->db);
        $op->set_p_jrn($this->id);
        $op->set_jrn_type("ACH");
        $op->set_od_direct('f');
        $url=http_build_query(array('p_jrn_predef'=>$this->id,'ac'=>$http->request('ac'),'gDossier'=>dossier::id()));
        echo $op->form_get('do.php?'.$url);
        echo '</div>';
        $str_op_template=ob_get_contents();
        ob_end_clean();
        
        ob_start();
        require_once NOALYSS_TEMPLATE.'/form_ledger_detail.php';
        $r.=ob_get_contents();
        ob_end_clean();
 
        // Set correctly the REQUEST param for jrn_type
        $r.= HtmlInput::hidden('jrn_type','ACH');
        $r.= Html_Input_Noalyss::ledger_add_item("O");
 
 
 
        /* if we suggest the pj n# the run the script */
        if ( $g_parameter->MY_PJ_SUGGEST !='N')
        {
            $r.='<script> update_receipt();</script>';
        }
                // set focus on date
                $r.= create_script("$('".$Date->id."').focus()");
        $r.='<div id="additional_tax_div">';
        $r.=$this->input_additional_tax();
        $r.='</div>';
        return $r;
    }

References $array, $currency, Acc_Ledger\$db, $def, $e, $e_date, $fiche, $g_parameter, $g_user, $http, $i, $label, $op, $oPeriode, $p_array, $p_readonly, $periode, Acc_Ledger\$pj, $r, $url, $wLedger, _, Acc_Ledger\add_card(), ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_NAME, ATTR_DEF_POSTCODE, ATTR_DEF_TVA, Acc_Ledger\check_periode(), create_script(), Acc_Ledger\CurrencyInput(), db, FICADD, Acc_Ledger\get_min_row(), Acc_Ledger\guess_pj(), Icon_Action\infobulle(), Acc_Ledger\input_additional_tax(), Html_Input_Noalyss\ledger_add_item(), noalyss_strlentrim(), OPEN, record_log(), Acc_Ledger\select_ledger(), td(), and UPDRECEIPT.

Here is the call graph for this function:

insert()

Acc_Ledger_Purchase::insert

(

$p_array = null

)

insert into the database, it calls first the verify function change the value of this->jr_id and this->jr_internal. It generates the document and save the middle of payment, if 'gen_invoice is set and e_mp

Parameters

$p_array

is usually $_POST or a predefined operation Array ( [e_client] =>BELGACOM [nb_item] =>9 [p_jrn] =>3 [period] =>117 [e_comm] =>Frais de téléphone [e_date] =>01.09.2009 [e_ech] => [jrn_type] =>ACH [e_pj] =>ACH53 [e_pj_suggest] =>ACH53 [mt] =>1265318941.39 [e_mp] =>0 [e_march0] =>TEL [e_march0_price] =>63.6700 [e_march0_tva_id] =>1 [e_march0_tva_amount] =>13.3700 [e_quant0] =>1.000 ... [bon_comm] => [other_info] => [record] =>Enregistrement [p_currency_code]=> id currency [p_currency_rate]=>rate used )

Returns

string

Note

throw an Exception

= e_pj then do not increment sequence , if the given receipt number is equal to one computed then increment

Definition at line 595 of file acc_ledger_purchase.class.php.

    {
        global $g_parameter,$g_user;
        extract ($p_array, EXTR_SKIP);
        $this->verify($p_array) ;
        if ( !isset($p_array['jrn_note_input'])) {$p_array['jrn_note_input']='';}
        $group=$this->db->get_next_seq("s_oa_group"); /* for analytic */
        $seq=$this->db->get_next_seq('s_grpt');
        $this->id=$p_jrn;
 
        $internal=$this->compute_internal_code($seq);
        $this->jr_internal=$internal;
 
        $cust=new Fiche($this->db);
        $cust->get_by_qcode($e_client);
        $sposte=$cust->get_attribute(ATTR_DEF_ACCOUNT);
        // if 2 accounts, take only the credit Supplier
        if ( strpos($sposte,',') != 0 )
        {
            $array=explode(',',$sposte);
            $poste=$array[1];
        }
        else
        {
            $poste=$sposte;
        }
 
        $oPeriode=new Periode($this->db);
        $check_periode=$this->check_periode();
 
        if ( $check_periode == true && isset($p_array['period']) )
            $tperiode=$period;
        else
            $tperiode=$oPeriode->find_periode($e_date);
 
        
        try
        {
            bcscale(4);
            // variable :   $tot_amount  float : total amount of the purchase (debit)
            $tot_amount=0;
 
            // variable :  $tot_tva float : total amount of the VAT
            $tot_tva=0;
 
            // variable: $tot_debit float : amount on debit side
            $tot_debit=0;
 
            $this->db->start();
 
 
            // variable: $tot_tva_reversed float total VAT autoreverse, to deduce from supplier's amount
            $tot_tva_reversed=0;
 
            // variable :  $tva array that will contain all the VAT Amount
            $tva=array();
 
            // variable :  $tva_reverse array that contain all the VAT autoreverse AND negative
            $tva_reverse = array();
 
            // variable :  $tva_reverse_credit array that contain all the VAT autoreverse for credit
            $tva_reverse_credit = array();
 
            // variable :  $tot_amount_cur : total amount in currency
            $tot_amount_cur=0;
 
            // find the currency from v_currency_last_value
            // variable :  $currency_rate_ref Acc_Currency , currency object for this operation
            $currency_rate_ref=new Acc_Currency($this->db, $p_currency_code);
            
            /* Save all the items without vat and no deductible vat and expense*/
            for ($i=0;$i< $nb_item;$i++)
            {
                if ( empty(${'e_march'.$i}) || empty(${'e_quant'.$i}) ) continue;
 
                /* First we save all the items without vat */
                $fiche=new Fiche($this->db);
                $fiche->get_by_qcode(${"e_march".$i});
                // variable :   $tva_both integer  1 for autoreverse ,0 normal, fetch it once for this item,
                        $tva_both=0;
                /* tva */
                if ($g_parameter->MY_TVA_USE=='Y')
                {
                    $idx_tva=trim(${'e_march'.$i.'_tva_id'});
                    $oTva=Acc_Tva::build($this->db,$idx_tva);
 
                    $oTva->load();
                    $tva_both=$oTva->get_parameter("both_side");
                }
                /* -- Create acc_operation -- */
                $acc_operation=new Acc_Operation($this->db);
                $acc_operation->date=$e_date;
                $acc_operation->grpt=$seq;
                $acc_operation->jrn=$p_jrn;
                $acc_operation->type='d';
                $acc_operation->periode=$tperiode;
                $acc_operation->qcode="";
                $amount_4=bcmul(${'e_march'.$i.'_price'},${'e_quant'.$i});
                
                /* We have to compute all the amount thanks Acc_Compute */
 
                $acc_amount=new Acc_Compute();
                $acc_amount->check=false;
                $acc_amount->set_parameter('amount',$amount_4);
                // Set the currency rate
                $acc_amount->set_parameter("currency_rate", $p_currency_rate);
                $acc_amount->convert_euro();
                $amount_euro=$acc_amount->amount;
                
                // Compute VAT or take the given one
                if ( $g_parameter->MY_TVA_USE=='Y')
                {
                    $acc_amount->set_parameter('amount_vat_rate',$oTva->get_parameter('rate'));
                    if ( noalyss_strlentrim(${'e_march'.$i.'_tva_amount'}) ==0 || ${'e_march'.$i.'_tva_amount'} == 0)
                    {
                        // vat must computed and the amount is already converted to EUR
                        $acc_amount->compute_vat();
 
                    }
                    else
                    {
                        // we convert the vat in euro 
                        $acc_amount->set_parameter("amount_vat", ${'e_march'.$i.'_tva_amount'});
                        $acc_amount->convert_euro_vat();
 
                    }
                   // convert amount in eur 
                   $tot_tva=bcadd($tot_tva,$acc_amount->amount_vat);
                   $tot_tva=round($tot_tva,2);
                }
 
               
                /* compute ND */
                // variable: $save_amount_vat total float  amount of VAT before changing due to NOT DEDUCTIBLE
                $save_amount_vat=$acc_amount->amount_vat;
                $this->compute_no_deductible($acc_amount, $fiche);
                $acc_amount->correct();
                // TVA which avoid
                if ( $tva_both == 1 ) {
                    $acc_amount->autoreverse=$save_amount_vat;
                    $tot_tva_reversed=bcadd($tot_tva_reversed,$save_amount_vat);
                }
 
 
              
                $tot_amount=round(bcadd($tot_amount,$acc_amount->amount),2);
                $tot_amount=round(bcadd($tot_amount,$acc_amount->amount_nd),2);
                $tot_amount=round(bcadd($tot_amount,$acc_amount->amount_perso),2);
 
                /* get the account and explode if necessary */
                $sposte=$fiche->get_attribute(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;
                }
                if ($g_parameter->MY_UPDLAB=='Y')
                {
                    $acc_operation->desc=strip_tags(${"e_march".$i."_label"}??"");
                }
                else
                {
                    $acc_operation->desc="";
                }
                $acc_operation->poste=$poste_val;
                $acc_operation->amount=$acc_amount->amount;
                $acc_operation->qcode=${"e_march".$i};
                if ($acc_amount->amount>0)
                {
                    $tot_debit=bcadd($tot_debit, $acc_amount->amount);
                }
                $j_id=$acc_operation->insert_jrnx();
                
                /* insert ND */
                $this->insert_no_deductible($acc_amount, $fiche, $tva_both, $tot_debit,$acc_operation,$group,$i);
 
                
                /* Compute sum vat */
                if ( $g_parameter->MY_TVA_USE=='Y')
                {
                    $tva_item=$acc_amount->amount_vat;
 
                    if ($tva_both == 0 ){
                        $tva[$idx_tva]=(isset( $tva[$idx_tva]))? $tva[$idx_tva]:0;
                        $tva[$idx_tva]=bcadd($tva[$idx_tva], $tva_item);
                    }else {
                        // $tva_item  < 0 && $tva_both == 1
                        $tva_reverse[$idx_tva]=(isset($tva_reverse[$idx_tva]))?$tva_reverse[$idx_tva]:0;
                        $tva_reverse[$idx_tva]=bcadd($tva_item,$tva_reverse[$idx_tva]);
                        $tva_reverse_credit[$idx_tva]=(isset($tva_reverse_credit[$idx_tva]))?$tva_reverse_credit[$idx_tva]:0;
                        $tva_reverse_credit[$idx_tva]=bcadd($save_amount_vat,$tva_reverse_credit[$idx_tva]);
                    }
                }
                /* Save the stock */
                /* if the quantity is < 0 then the stock increase (return of
                 *  material)
                 */
                $nNeg=(${"e_quant" . $i}< 0) ? -1 : 1;
 
                // always save quantity but in withStock we can find
                // what card need a stock management
                if ( $g_parameter->MY_STOCK='Y'&& isset ($repo))
                {
                    $dir=(${'e_quant'.$i} < 0 ) ? 'c':'d';
                    Stock_Goods::insert_goods($this->db,array('j_id'=>$j_id,'goods'=>${'e_march'.$i},'quant'=>$nNeg*${'e_quant'.$i},'dir'=>$dir,'repo'=>$repo)) ;
                }
 
                if ( $g_parameter->MY_ANALYTIC != "nu" && $g_parameter->match_analytic($poste_val))
                {
                    // for each item, insert into operation_analytique */
                    $op=new Anc_Operation($this->db);
                    $op->set_currency_rate($p_currency_rate);
                    $op->oa_group=$group;
                    $op->j_id=$j_id;
                    $op->oa_date=$e_date;
                    $op->oa_debit='t';
                    $op->oa_description=sql_string($e_comm);
                    $op->save_form_plan($p_array,$i,$j_id);
                }
                // insert into quant_purchase
                //-----
                
                if (empty( ${'e_march' . $i . '_price'}  ) ) ${'e_march' . $i . '_price'}  = 0;
                if (empty( ${'e_march' . $i }  ) ) ${'e_march' . $i }  = 0;
                if (empty( ${'e_quant' . $i }  ) ) ${'e_quant' . $i }  = 0;
                $price_euro=bcdiv(${'e_march'.$i.'_price'}, $p_currency_rate);
                
                if ( $g_parameter->MY_TVA_USE=='Y')
                {
 
                   $r=$this->db->exec_sql("select insert_quant_purchase ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14)",
                           array(
                                null             /*1*/
                                ,$j_id              /* 2 */
                                ,${"e_march".$i} /* 3 */
                                ,${"e_quant".$i}  /* 4 */
                                ,round($amount_euro,2)         /* 5 */
                                ,$acc_amount->amount_vat  /* 6 */
                                ,$oTva->get_parameter('id') /* 7 */
                                ,$acc_amount->amount_nd     /* 8 */
                                ,$acc_amount->nd_vat         /* 9 */
                                ,$acc_amount->nd_ded_vat    /* 10 */
                                ,$acc_amount->amount_perso  /* 11 */ 
                                ,$e_client  /* 12 */
                                , $acc_amount->autoreverse /*13*/
                                ,$price_euro /* 14 */
                           ));
                           
 
                }
                else
                {
                    $acc_amount->amount_vat=0;
                     $r=$this->db->exec_sql("select insert_quant_purchase ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14)",
                           array(
                                null             /*1*/
                                ,$j_id              /* 2 */
                                ,${"e_march".$i} /* 3 */
                                ,${"e_quant".$i}  /* 4 */
                                ,round($acc_amount->amount,2)          /* 5 */
                                ,0 /* 6 */
                                ,null/* 7 */
                                ,$acc_amount->amount_nd     /* 8 */
                                ,0 /* 9 */
                                ,$acc_amount->nd_ded_vat    /* 10 */
                                ,$acc_amount->amount_perso  /* 11 */ 
                                ,$e_client  /* 12 */
                                , $acc_amount->autoreverse /*13*/
                                ,$price_euro /* 14 */
                           ));
                }
                /*
                 * Insert also in operation_currency
                 */
                $operation_currency=new Operation_currency_SQL($this->db);
                $operation_currency->oc_amount=$acc_amount->amount_currency;
                $operation_currency->oc_vat_amount=($tva_both==0)?$acc_amount->amount_vat_currency:0;
                $operation_currency->oc_price_unit=${'e_march'.$i.'_price'};
                $operation_currency->j_id=$j_id;
                $operation_currency->insert();
                $tot_amount_cur=round(bcadd($tot_amount_cur,$acc_amount->amount_currency,4),4);
                $tot_amount_cur=round(bcadd($tot_amount_cur,$acc_amount->amount_vat_currency,4),4);
                if ( DEBUGNOALYSS > 1 ) {
                    echo __LINE__." insert into operation currency oc_amount:{$acc_amount->amount_currency} oc_vat_amount {$acc_amount->amount_vat_currency} <br>";
                }
            }       // end loop : save all items
 
 
            /*** save other tax ****/
            if ( $this->has_other_tax() && isset($p_array['other_tax'])) {
                $row=$this->db->get_row("select ac_id,ac_label,ac_accounting 
                                                from acc_other_tax 
                                                where ac_id=$1 ",
                    [$p_array['other_tax']]);
                if ( ! empty ($row )) {
                    $other_tax_amount=bcmul($p_array['other_tax_amount'],$p_currency_rate);
                    $acc_operation=new Acc_Operation($this->db);
                    $acc_operation->date=$e_date;
                    $acc_operation->poste=$row['ac_accounting'];
                    $acc_operation->amount=$other_tax_amount;
                    $acc_operation->grpt=$seq;
                    $acc_operation->jrn=$p_jrn;
                    $acc_operation->type='d';
                    $acc_operation->periode=$tperiode;
                    $acc_operation->desc=$row['ac_label'];
                    $jrn_tax_sql=new Jrn_Tax_SQL($this->db);
                    $jrn_tax_sql->j_id=$acc_operation->insert_jrnx();
                    $jrn_tax_sql->ac_id=$row['ac_id'];
                    $jrn_tax_sql->pcm_val=$row['ac_accounting'];
                    $jrn_tax_sql->insert();
                    $operation_currency=new Operation_currency_SQL($this->db);
                    $operation_currency->oc_amount=$p_array['other_tax_amount'];
                    $operation_currency->oc_vat_amount=0;
                    $operation_currency->oc_price_unit=0;
                    $operation_currency->j_id=$jrn_tax_sql->j_id;
                    $operation_currency->insert();
 
                    $tot_debit=bcadd($tot_debit, abs($other_tax_amount));
                    $tot_amount=bcadd($tot_amount,$other_tax_amount);
                }
 
            }
 
 
            /***  save total customer ***/
            if ( DEBUGNOALYSS > 1 ) { 
                echo __LINE__." tot_amount $tot_amount<br>"; 
                echo __LINE__." tot_tva $tot_tva<br>"; 
            
            }
            $cust_amount=round(bcadd($tot_amount,$tot_tva),2);
            $acc_operation=new Acc_Operation($this->db);
            $acc_operation->date=$e_date;
            $acc_operation->poste=$poste;
            $acc_operation->amount=bcsub($cust_amount,$tot_tva_reversed);
            $acc_operation->grpt=$seq;
            $acc_operation->jrn=$p_jrn;
            $acc_operation->type='c';
            $acc_operation->periode=$tperiode;
            $acc_operation->qcode=${"e_client"};
            if ($cust_amount<0)
            {
                $tot_debit=bcadd($tot_debit, abs($cust_amount));
            }
            $let_client=$acc_operation->insert_jrnx();
 
             // --- insert also the currency amount for the customer 
            $operation_currency=new Operation_currency_SQL($this->db);
            $operation_currency->oc_amount=$tot_amount_cur;
            $operation_currency->oc_vat_amount=0;
            $operation_currency->oc_price_unit=0;
            $operation_currency->j_id=$let_client ;
            $operation_currency->insert();
                
            if ( $g_parameter->MY_TVA_USE=='Y')
            {
                /* save all vat
                 * $i contains the tva_id and value contains the vat amount
                 */
                foreach ($tva as $i => $value)
                {
                    $oTva=Acc_Tva::build($this->db,$i);
                    $poste_vat=$oTva->get_side('d');
 
                    $cust_amount=round(bcadd($tot_amount,$tot_tva),2);
                    $acc_operation=new Acc_Operation($this->db);
                    $acc_operation->date=$e_date;
                    $acc_operation->poste=$poste_vat;
                    $acc_operation->amount=$value;
                    $acc_operation->grpt=$seq;
                    $acc_operation->jrn=$p_jrn;
                    $acc_operation->type='d';
                    $acc_operation->periode=$tperiode;
                    if ( $value > 0 ) $tot_debit=bcadd($tot_debit,abs($value));
                    $acc_operation->insert_jrnx();
 
                } // LOOP : foreach $tva
                foreach ($tva_reverse as  $i => $value) {
                    $oTva =  Acc_Tva::build($this->db,$i);
                    $poste_vat = $oTva->get_side('d');
                    if ( $poste_vat == '#')
                    {
                        $poste_vat=$oTva->get_side('c');
                    }
 
                    $acc_operation = new Acc_Operation($this->db);
                    $acc_operation->date = $e_date;
                    $acc_operation->poste = $poste_vat;
                    $acc_operation->amount = $value;
                    $acc_operation->grpt = $seq;
                    $acc_operation->jrn = $p_jrn;
                    $acc_operation->type = 'd';
                    $acc_operation->periode = $tperiode;
 
                    $acc_operation->insert_jrnx();
 
                    // if TVA is on both side, we deduce it immediately
                    // $x temp variable is the tva_reverse_account and will be used to check $poste_vat
                    $x=$oTva->get_parameter("tva_reverse_account");
                    $poste_vat =(trim($x??"")=="")? $oTva->get_side('c'):$x;
 
                    if ( $poste_vat == '#')
                    {
                        $poste_vat=$oTva->get_side('d');
                    }
                    $acc_operation = new Acc_Operation($this->db);
                    $acc_operation->date = $e_date;
                    $acc_operation->poste = $poste_vat;
                    $acc_operation->amount = $tva_reverse_credit[$i];
                    $acc_operation->grpt = $seq;
                    $acc_operation->jrn = $p_jrn;
                    $acc_operation->type = 'c';
                    $acc_operation->periode = $tperiode;
                    $acc_operation->insert_jrnx();
                    $tot_debit = bcadd($tot_debit, $value);
                    $tot_debit = round($tot_debit, 2);
                } //LOOP: foreach $tva_reverse
            }
 
            /* insert into jrn */
            $acc_operation=new Acc_Operation($this->db);
            $acc_operation->date=$e_date;
            $acc_operation->echeance=$e_ech;
            // Total DEB
            $acc_operation->amount=$this->db->get_value("select sum(j_montant) from jrnx where j_grpt = $1 and j_debit='t'",
                    array($seq));
            $acc_operation->desc=$e_comm;
            $acc_operation->grpt=$seq;
            $acc_operation->jrn=$p_jrn;
            $acc_operation->periode=$tperiode;
            $acc_operation->pj=$e_pj;
            $acc_operation->mt=$mt;
            $acc_operation->currency_id=$p_currency_code;
            $acc_operation->currency_rate=$p_currency_rate;
            $acc_operation->currency_rate_ref=$currency_rate_ref->get_rate();
            
            if ( ! $this->jr_id=$acc_operation->insert_jrn() ) {
                throw new Exception (_("Erreur de balance"),EXC_BALANCE);
            }
            $this->pj=$acc_operation->update_receipt();
 
            // Set Internal code
            $this->jr_grpt_id=$seq;
            $this->update_internal_code($internal);
            /* update quant_purchase */
            $this->db->exec_sql('update quant_purchase set qp_internal = $1 where j_id in (select j_id from jrnx where j_grpt=$2)',
                                array($internal,$seq));
 
            /**= e_pj then do not increment sequence , if the given receipt number is equal to one computed then increment */
            if ($e_pj == $this->pj && noalyss_strlentrim($e_pj) != 0)
            {
                $this->inc_seq_pj();
            }
 
            /* Save the attachment */
            if ( isset ($_FILES) &&  sizeof($_FILES) != 0 && $_FILES["pj"]["name"] != 0 )
            {
                    $acc_document=new \Acc_Document($this->db, $this->jr_id);
                    $acc_document->save_receipt();
                    $this->doc=HtmlInput::show_receipt_document($this->jr_id,h($_FILES['pj']['name']));
            }
            $str_file="";
            /* Generate an document  and save it into the database (Note de frais only)
             */
            if ( isset($_POST['gen_invoice']) )
            {
                $ref_doc= $this->create_document($internal,$p_array);
                $this->doc=HtmlInput::show_receipt_document($this->jr_id,h($ref_doc));
            }
 
            //----------------------------------------
            // Save the payer
            //----------------------------------------
            if ( $e_mp != 0 )
            {
                /* mp */
                $mp=new Acc_Payment($this->db,$e_mp);
                $mp->load();
 
                /* jrnx */
                $acseq=$this->db->get_next_seq('s_grpt');
                $acjrn=new Acc_Ledger($this->db,$mp->get_parameter('ledger_target'));
                $acinternal=$acjrn->compute_internal_code($acseq);
                /*
                * for the use of the card of the bank
                */
                if ( $acjrn->get_type()=='FIN') {
                   $acjrn=new Acc_Ledger_Fin($this->db, $mp->get_parameter('ledger_target'));
                   $acfiche=new Fiche($this->db,$acjrn->get_bank());
                   $fqcode=$acfiche->get_attribute(ATTR_DEF_QUICKCODE);
                } else {
                   $fqcode = ${'e_mp_qcode_' . $e_mp};
                  $acfiche = new Fiche($this->db);
                  $acfiche->get_by_qcode($fqcode);
                }
                /* Insert paid by  */
                $acc_pay=new Acc_Operation($this->db);
                $acc_pay->date=$e_date;
 
                /* get the account and explode if necessary */
                $sposte=$acfiche->get_attribute(ATTR_DEF_ACCOUNT);
                // if 2 accounts, take only the debit one for customer
                if ( strpos($sposte,',') != 0 )
                {
                    $array=explode(',',$sposte);
                    $poste_val=$array[1];
                }
                else
                {
                    $poste_val=$sposte;
                }
                // remove the VAT autoliquidation
                $cust_amount=bcsub($cust_amount, $tot_tva_reversed);
 
                // Convert paid amount in EUR
                $acompte_defcur=bcdiv($acompte, $p_currency_rate);   
 
                $famount=bcsub($cust_amount,$acompte_defcur);
                
                $acc_pay->poste=$poste_val;
                $acc_pay->qcode=$fqcode;
                $acc_pay->amount=abs(round($famount,2));
                $acc_pay->desc='';
                $acc_pay->grpt=$acseq;
                $acc_pay->jrn=$mp->get_parameter('ledger_target');
                $acc_pay->periode=$tperiode;
                        $acc_pay->type=($famount>=0)?'c':'d';
                $let_pay=$acc_pay->insert_jrnx();
 
                /* Insert supplier  */
                $acc_pay=new Acc_Operation($this->db);
                $acc_pay->date=empty($mp_date)?$e_date:$mp_date;
                $acc_pay->poste=$poste;
                $acc_pay->qcode=$e_client;
                $acc_pay->amount=abs(round($famount,2));
                $acc_pay->desc='';
                $acc_pay->grpt=$acseq;
                $acc_pay->jrn=$mp->get_parameter('ledger_target');
                $acc_pay->periode=$tperiode;
                        $acc_pay->type=($famount>=0)?'d':'c';
                $let_other=$acc_pay->insert_jrnx();
                
                // insert into operation_currency
                $operation_currency=new Operation_currency_SQL($this->db);
                $operation_currency->oc_amount=bcsub($tot_amount_cur,$acompte);
                $operation_currency->oc_vat_amount=0;
                $operation_currency->oc_price_unit=0;
                $operation_currency->j_id=$let_other;
                $operation_currency->insert();          
                
                // insert into operation_currency bank
                $operation_currency=new Operation_currency_SQL($this->db);
                $operation_currency->oc_amount=bcsub($tot_amount_cur,$acompte);
                $operation_currency->oc_vat_amount=0;
                $operation_currency->oc_price_unit=0;
                $operation_currency->j_id=$let_pay;
                $operation_currency->insert();         
                
                /* insert into jrn */
                $acc_pay->mt=$mt;
                $acc_pay->desc=(!isset($e_comm_paiement) || noalyss_strlentrim($e_comm_paiement) == 0) ?$e_comm:$e_comm_paiement;
                
                // Add info for currency
                $acc_pay->currency_id=$p_currency_code;
                $acc_pay->currency_rate=$p_currency_rate;
                $acc_pay->currency_rate_ref=$currency_rate_ref->get_rate();
                
                
                // insert into the table JRN
                $mp_jr_id=$acc_pay->insert_jrn();
                $this->payment_operation=$mp_jr_id;
                $acjrn->jr_grpt_id=$acseq;
                $acjrn->update_internal_code($acinternal);
                // add an automatic PJ if ODS
                if ($acjrn->get_type()=="ODS") {
                    $acc_pay->pj=$acjrn->guess_pj();
                    $acc_pay->update_receipt();
                }
                $r1=$this->get_id($internal);
                $r2=$this->get_id($acinternal);
 
                /*
                 * add lettering
                 */
                $oletter=new Lettering($this->db);
                $oletter->insert_couple($let_client,$let_other);
 
                /* set the flag paid */
                $Res=$this->db->exec_sql("update jrn set jr_rapt='paid' where jr_id=$1",array($r1));
 
                /* Reconcialiation */
                $rec=new Acc_Reconciliation($this->db);
                $rec->set_jr_id($r1);
                $rec->insert($r2);
                /*
                 * save also into quant_fin
                 */
 
                /* get ledger property */
                $ledger=new Acc_Ledger_Fin($this->db,$acc_pay->jrn);
                $prop=$ledger->get_propertie();
 
                /* if ledger is FIN then insert into quant_fin */
                if ( $prop['jrn_def_type'] == 'FIN' )
                  {
                    $ledger->insert_quant_fin($acfiche->id,$mp_jr_id,$cust->id,bcmul($famount,-1),$let_other);
                  }
 
 
        }
            /*----------------------------------------------
             * Save the note
             ----------------------------------------------*/
            if (isset($p_array['jrn_note_input']) && !empty($p_array['jrn_note_input'])) {
                $acc_operation_note=Acc_Operation_Note::build_jrn_id(-1);
                $acc_operation_note->setNote($p_array['jrn_note_input']);
                $acc_operation_note->setOperation_id( $this->jr_id);
                $acc_operation_note->save();
            }
        }//end try
        catch (Exception $e)
        {
           record_log($e);
            $this->db->rollback();
            throw  $e;
        }
        $this->db->commit();
        return $internal;
    }

References $_POST, $acompte, $array, $check_periode, $e, $e_date, $fiche, $g_parameter, $g_user, $i, $j_id, $ledger, $op, $oPeriode, $other_tax_amount, $p_array, $p_jrn, $poste, $prop, $r, $repo, $Res, Acc_Ledger\$row, $seq, $str_file, $tot_amount, $value, $x, _, ATTR_DEF_ACCOUNT, ATTR_DEF_QUICKCODE, Acc_Tva\build(), Acc_Operation_Note\build_jrn_id(), Acc_Ledger\check_periode(), Acc_Ledger\compute_internal_code(), compute_no_deductible(), Acc_Ledger\create_document(), db, EXC_BALANCE, Acc_Ledger\get_id(), h, Acc_Ledger\has_other_tax(), Acc_Ledger\inc_seq_pj(), Stock_Goods\insert_goods(), insert_no_deductible(), jr_id, noalyss_strlentrim(), record_log(), sql_string(), and Acc_Ledger\update_internal_code().

Here is the call graph for this function:

insert_no_deductible()

Acc_Ledger_Purchase::insert_no_deductible ( Acc_Compute $p_nd_amount, Fiche $p_fiche, $p_tva_both, & $p_tot_debit, Acc_Operation $p_acc_operation, $p_group, $idx )

private

Insert into JRNX the No Deductible amount and into Analytic Accountancy for the ND VAT.

Parameters

Acc_Compute	$p_nd_amount	content ND amount
Fiche	$p_fiche	Card of the Service
type	$p_tva_both	0 if TVA is normal or 1 if on both side
type	$p_tot_debit	total debit
	$p_acc_operation	Acc_Operation for inserting into jrnx
	$p_group	group for AC
	$idx	row number

See also

Acc_Ledger_Purchase\insert

Definition at line 419 of file acc_ledger_purchase.class.php.

    {
        global $g_parameter;
        if ($p_acc_operation->jrnx_id == 0) {
            throw new Exception(__FILE__.__LINE__.'invalid acc_operation.j_id');
        }
        $source_j_id=$p_acc_operation->jrnx_id ;
        /*
         * Save all the no deductible
         *     ATTR_DEF_ACCOUNT_ND_TVA,ATTR_DEF_ACCOUNT_ND_TVA_ND,ATTR_DEF_ACCOUNT_ND_PERSO,ATTR_DEF_ACCOUNT_ND
         */
        if ($p_nd_amount->amount_nd_rate != 0)
        {
            $dna_default = new Acc_Parm_Code($this->db, 'DNA');
 
            /* save op. */
            if (!$p_fiche->empty_attribute(ATTR_DEF_ACCOUNT_ND))
            {
                $dna = $p_fiche->get_attribute(ATTR_DEF_ACCOUNT_ND);
            } else
            {
                $dna = $dna_default->p_value;
            }
            $dna = ($dna == '') ? $dna_default->p_value : $dna;
 
            $p_acc_operation->type = 'd';
            $p_acc_operation->amount = $p_nd_amount->amount_nd;
            $p_acc_operation->poste = $dna;
            $p_acc_operation->qcode = '';
            $p_acc_operation->desc=$this->find_label($dna)." ND ".$p_fiche->get_attribute(ATTR_DEF_QUICKCODE);
            if ($p_nd_amount->amount_nd > 0)
                $p_tot_debit = bcadd($p_tot_debit, $p_nd_amount->amount_nd );
            $j_id = $p_acc_operation->insert_jrnx();
        }
        /*
         * ATTR_DEF_ACCOUNT_ND_PERSO
         */
        if ($p_nd_amount->amount_perso != 0)
        {
            $dna_default = new Acc_Parm_Code($this->db, 'DEP_PRIV');
 
            /* save op. */
            $p_acc_operation->type = 'd';
            if (!$p_fiche->empty_attribute(ATTR_DEF_ACCOUNT_ND_PERSO))
            {
                $dna = $p_fiche->get_attribute(ATTR_DEF_ACCOUNT_ND_PERSO);
            } else
            {
                $dna = $dna_default->p_value;
            }
            $dna = ($dna == '') ? $dna_default->p_value : $dna;
 
            $p_acc_operation->amount = $p_nd_amount->amount_perso ;
            $p_acc_operation->poste = $dna;
            $p_acc_operation->qcode = '';
            $p_acc_operation->desc=$this->find_label($dna)." ND_PRIV ".$p_fiche->get_attribute(ATTR_DEF_QUICKCODE);
            if ($p_nd_amount->amount_perso> 0)
                $p_tot_debit = bcadd($p_tot_debit, $p_nd_amount->amount_perso);
            $j_id = $p_acc_operation->insert_jrnx();
        }
        if ($p_nd_amount->nd_vat != 0)
        {
            $dna_default = new Acc_Parm_Code($this->db, 'TVA_DNA');
 
            /* save op. */
            $p_acc_operation->type = 'd';
            $p_acc_operation->qcode = '';
            if (!$p_fiche->empty_attribute(ATTR_DEF_ACCOUNT_ND_TVA_ND) )
            {
                $dna = $p_fiche->get_attribute(ATTR_DEF_ACCOUNT_ND_TVA_ND);
            } else
            {
                $dna = $dna_default->p_value;
            }
            $dna = ($dna == '') ? $dna_default->p_value : $dna;
 
            $p_acc_operation->amount = $p_nd_amount->nd_vat;
            $p_acc_operation->poste = $dna;
            $p_acc_operation->desc=$this->find_label($dna)." ND_TVA ".$p_fiche->get_attribute(ATTR_DEF_QUICKCODE);
            $j_id = $p_acc_operation->insert_jrnx();
            if ( $g_parameter->MY_ANALYTIC != "nu" 
                    &&  $g_parameter->match_analytic($p_fiche->get_attribute(ATTR_DEF_ACCOUNT))
               )
            {
                $op=new Anc_Operation($this->db);
                $op->oa_group=$p_group;
                $op->j_id=$j_id;
                $op->oa_date=$p_acc_operation->date;
 
                $op->oa_debit='t';
                $op->oa_description=sql_string('ND_TVA');
                $op->oa_jrnx_id_source=$source_j_id;
                $op->save_form_plan_vat_nd($_POST,$idx,$j_id,$p_nd_amount->nd_vat,$p_acc_operation->jrnx_id);
            }
            if ($p_nd_amount->nd_vat> 0)
                $p_tot_debit = bcadd($p_tot_debit, $p_nd_amount->nd_vat);
            
        }
        if ($p_nd_amount->nd_ded_vat != 0)
        {
            $dna_default = new Acc_Parm_Code($this->db, 'TVA_DED_IMPOT');
            /* save op. */
            if (!$p_fiche->empty_attribute(ATTR_DEF_ACCOUNT_ND_TVA) )
            {
                $dna = $p_fiche->get_attribute(ATTR_DEF_ACCOUNT_ND_TVA);
            } else
            {
                $dna = $dna_default->p_value;
            }
            $dna = ($dna == '') ? $dna_default->value : $dna;
 
 
 
            $p_acc_operation->type = 'd';
            $p_acc_operation->qcode = '';
            $p_acc_operation->amount = $p_nd_amount->nd_ded_vat;
            $p_acc_operation->poste = $dna;
            $p_acc_operation->desc=$this->find_label($dna)." DED_TVA ".$p_fiche->get_attribute(ATTR_DEF_QUICKCODE);
            if ($p_nd_amount->nd_ded_vat > 0)
                $p_tot_debit = bcadd($p_tot_debit, $p_nd_amount->nd_ded_vat);
            $j_id = $p_acc_operation->insert_jrnx();
           if ( $g_parameter->MY_ANALYTIC != "nu" 
                 &&  $g_parameter->match_analytic($p_fiche->get_attribute(ATTR_DEF_ACCOUNT))
              )
            {
                $op=new Anc_Operation($this->db);
                $op->oa_group=$p_group;
                $op->j_id=$j_id;
                $op->oa_date=$p_acc_operation->date;
 
                $op->oa_debit='t';
                $op->oa_description=sql_string('DED_TVA ');
                $op->oa_jrnx_id_source=$source_j_id;
                $op->save_form_plan_vat_nd($_POST,$idx,$j_id,$p_nd_amount->nd_ded_vat);
            }
        }
    }

References $_POST, $g_parameter, $idx, $j_id, $op, ATTR_DEF_ACCOUNT, ATTR_DEF_ACCOUNT_ND, ATTR_DEF_ACCOUNT_ND_PERSO, ATTR_DEF_ACCOUNT_ND_TVA, ATTR_DEF_ACCOUNT_ND_TVA_ND, ATTR_DEF_QUICKCODE, db, Fiche\empty_attribute(), Acc_Ledger\find_label(), Fiche\get_attribute(), Acc_Operation\insert_jrnx(), and sql_string().

Referenced by insert().

Here is the call graph for this function:

verify_operation()

Acc_Ledger_Purchase::verify_operation

(

$p_array

)

verify that the data are correct before inserting or confirming

Parameters

an	array (usually $_POST)

Returns

String

Exceptions

Exception

if an error occurs

we have to check also if the different accountings exist "ATTR_DEF_DEP_PRIV" "ATTR_DEF_DEPENSE_NON_DEDUCTIBLE" "ATTR_DEF_TVA_NON_DEDUCTIBLE" "ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP"

Reimplemented from Acc_Ledger.

Definition at line 129 of file acc_ledger_purchase.class.php.

    {
        global $g_parameter,$g_user;
        
        if (is_array($p_array ) == false || empty($p_array))
                    throw new Exception ("Array empty");
        /*
         * Check needed value
         */
        check_parameter($p_array,'p_jrn,e_date,e_client');
 
        extract ($p_array, EXTR_SKIP);
        /* 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 if there is a customer */
        if ( noalyss_strlentrim($e_client)== 0 )
            throw new Exception(_('Vous n\'avez pas donné de fournisseur'),11);
 
        /*  check if the date is valid */
        if ( isDate($e_date) == null )
        {
            throw new Exception(_('Date invalide'), 2);
        }
        $oPeriode=new Periode($this->db);
        if ( $this->check_periode() == false || ! isset($p_array['period']))
        {
            $tperiode=$oPeriode->find_periode($e_date);
        }
        else
        {
            $tperiode=$period;
            $oPeriode->p_id=$tperiode;
            /* check that the datum is in the choosen periode */
            list ($min,$max)=$oPeriode->get_date_limit($tperiode);
            if ( cmpDate($e_date,$min) < 0 ||
                    cmpDate($e_date,$max) > 0)
                throw new Exception(_('Date et periode ne correspondent pas'),6);
        }
        /* check if the periode is closed */
        if ( $this->is_closed($tperiode)==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 dans ce journal'),13);
 
        }
 
        /* check the account */
        $fiche=new Fiche($this->db);
        $fiche->get_by_qcode($e_client);
        if ($fiche->get_f_enable() == '0')
            throw new Exception(sprintf(_("La fiche %s n'est plus utilisée"),$e_client), 50);
 
        if ( $fiche->empty_attribute(ATTR_DEF_ACCOUNT) == true)
            throw new Exception(_('La fiche ').$e_client._('n\'a pas de poste comptable'),8);
 
 
 
        /* get the account and explode if necessary */
        $sposte=$fiche->get_attribute(ATTR_DEF_ACCOUNT);
        // if 2 accounts, take only the credit one for supplier
        if ( strpos($sposte,',') != 0 )
        {
            $array=explode(',',$sposte);
            $poste_val=$array[1];
        }
        else
        {
            $poste_val=$sposte;
        }
 
        /* The account exists */
        $poste=new Acc_Account_Ledger($this->db,$poste_val);
        if ( $poste->load() == false )
        {
            throw new Exception(_('Pour la fiche ').$e_client._(' le poste comptable [').$poste->id.'] '._('n\'existe pas'),9);
        }
        /* Check if the card belong to the ledger */
        $fiche=new Fiche ($this->db);
        $fiche->get_by_qcode($e_client,'cred');
        if ( $fiche->belong_ledger($p_jrn) !=1 )
            throw new Exception(_('La fiche ').$e_client._('n\'est pas accessible à ce journal'),10);
 
        $nb=0;
        //------------------------------------------------------
        // The "Paid By"  check
        //------------------------------------------------------
        if ($e_mp != 0 ) {
            $this->check_payment($e_mp,${"e_mp_qcode_".$e_mp});
             // check for the currency , if we use a financial ledger and a card which is a bank account (with his own
            // ledger , then the currency of the operation must be the same
            $this->check_currency(${"e_mp_qcode_" . $e_mp},$p_currency_code);
        }
 
 
        //----------------------------------------
        // foreach item
        //----------------------------------------
        for ($i=0;$i< $nb_item;$i++)
        {
            if ( noalyss_strlentrim(${'e_march'.$i})== 0) continue;
 
            /* check if all card has a ATTR_DEF_ACCOUNT*/
            $fiche=new Fiche($this->db);
            $fiche->get_by_qcode(${'e_march'.$i});
            if ($fiche->get_f_enable() == '0')
                throw new Exception(sprintf(_("La fiche %s n'est plus utilisée"), ${'e_march' . $i}), 50);
 
            /* check if amount are numeric and */
            if ( isNumber(${'e_march'.$i.'_price'}) == 0 )
                throw new Exception(_('La fiche ').${'e_march'.$i}._('a un montant invalide').' ['.${'e_march'.$i}.']',6);
            if ( isNumber(${'e_quant'.$i}) == 0 )
                throw new Exception(_('La fiche ').${'e_march'.$i}._('a une quantité invalide').' ['.${'e_quant'.$i}.']',7);
 
            // Check if the given tva id is valid
            if ( $g_parameter->MY_TVA_USE=='Y')
            {
                $tva_rate =  Acc_Tva::build($this->db,${'e_march' . $i . '_tva_id'});
                if ($tva_rate->tva_id == -1)
                    throw new Exception(_('La fiche ').${'e_march'.$i}._('a un code tva invalide').' ['.${'e_march'.$i.'_tva_id'}.']',13);
                $tva_rate->load();
                /*
                 * check if the accounting for VAT are valid
                 */
                $a_poste=explode(',',$tva_rate->tva_poste);
 
                if (
                    $this->db->get_value('select count(*) from tmp_pcmn where pcm_val=$1',array($a_poste[0])) == 0 )
                     throw new Exception(_(" La TVA ".$tva_rate->tva_label." utilise des postes comptables inexistants"));
 
            }
 
            if ( $fiche->empty_attribute(ATTR_DEF_ACCOUNT) == true)
                throw new Exception(_('La fiche ').${'e_march'.$i}._('n\'a pas de poste comptable'),8);
 
            /* get the account and explode if necessary */
            $sposte=$fiche->get_attribute(ATTR_DEF_ACCOUNT);
            // if 2 accounts, take only the  debit
            if ( strpos($sposte,',') != 0 )
            {
                $array=explode(',',$sposte);
                $poste_val=$array[0];
            }
            else
            {
                $poste_val=$sposte;
            }
 
            /* The account exists */
            $poste=new Acc_Account_Ledger($this->db,$poste_val);
            if ( $poste->load() == false )
            {
                throw new Exception(_('Pour la fiche ').${'e_march'.$i}._(' le poste comptable').' ['.$poste->id._('n\'existe pas'),9);
            }
            /* Check if the card belong to the ledger */
            $fiche=new Fiche ($this->db);
            $fiche->get_by_qcode(${'e_march'.$i});
            if ( $fiche->belong_ledger($p_jrn,'deb') !=1 )
                throw new Exception(_('La fiche ').${'e_march'.$i}._('n\'est pas accessible à ce journal'),10);
            /**
             * we have to check also if the different accountings exist
             "ATTR_DEF_DEP_PRIV"
             "ATTR_DEF_DEPENSE_NON_DEDUCTIBLE"
             "ATTR_DEF_TVA_NON_DEDUCTIBLE"
             "ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP"
            */
            foreach (array(
                           array(ATTR_DEF_DEPENSE_NON_DEDUCTIBLE,'DNA',ATTR_DEF_ACCOUNT_ND),
                           array(ATTR_DEF_DEP_PRIV,'DEP_PRIV',ATTR_DEF_ACCOUNT_ND_PERSO),
                           array(ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP,'TVA_DED_IMPOT',ATTR_DEF_ACCOUNT_ND_TVA),
                           array(ATTR_DEF_TVA_NON_DEDUCTIBLE,'TVA_DNA',ATTR_DEF_ACCOUNT_ND_TVA_ND)) as $key)
              {
                if ( ! $fiche->empty_attribute($key[0]) &&  $fiche->empty_attribute($key[2]))
                  {
                    $a=new Acc_Parm_Code($this->db,$key[1]);
                    if ( $this->db->count_sql('select pcm_val from tmp_pcmn where pcm_val=$1',array($a->p_value))==0)
                      throw new Exception ($key[1]._("ce code n'a pas de poste comptable, créez ce poste : [".$a->p_value."]"));
                  }
                if ( ! $fiche->empty_attribute($key[0]) &&  ! $fiche->empty_attribute($key[2]))
                  {
                    $nd_str=$fiche->get_attribute($key[2]);
                    if ( $nd_str != '')
                      {
                        $poste_nd=new Acc_Account_Ledger($this->db,$nd_str);
                        if ( $poste_nd->load() == false)
                          {
                            $nd_msg=sprintf(_("Pour la fiche %s, le compte contrepartie %s n'existe pas"),
                                            $fiche->getName(),$poste_nd->id);
                            $nd_msg=h($nd_msg);
                            throw new Exception ($nd_msg);
                          }
                      }
                  }
              }
            if ( ${"e_quant".$i} != 0 && trim(${"e_quant".$i}) !="" ) {$nb++;}
        }
 
        if ( $nb == 0 )
            throw new Exception(_('Il n\'y a aucune marchandise'),12);
        
        // check  payment date
        if ( isset ($mp_date) && trim ($mp_date) != "" && isDate($mp_date) == null)  {
            throw new Exception(_('Date de paiement invalide'),13);
            
        }
        // check that MP is in a not closed and exists
        if ( isset ($mp_date) && trim ($mp_date) != "" && isDate($mp_date) == $mp_date )  {
              $periode=new Periode($this->cn); 
              $periode->find_periode($mp_date);
              $periode->set_ledger($this->id);
              if ( $periode->is_closed() ) {
                  throw new Exception(_("Période fermée")." $mp_date ");
              }
            
        }
        // check limit date
        if ( isset ($e_ech) && trim ($e_ech)!="" && isDate($e_ech) == null )
        {
            throw new Exception(_('Date échéance invalide'),14);
            
        }
        // Check currency_rate if valid
        if ( isNumber($p_currency_rate) == 0 || $p_currency_rate <=0 ) {
            throw new Exception(_('Taux devise invalide'),15);
        }
        $this->check_currency_setting($p_currency_code);
    }

References $a, $a_poste, $array, $e_date, $fiche, $g_parameter, $g_user, $i, $max, $min, Acc_Ledger\$nb, $oPeriode, $p_array, $p_jrn, $periode, $poste, $tva_rate, _, ATTR_DEF_ACCOUNT, ATTR_DEF_ACCOUNT_ND, ATTR_DEF_ACCOUNT_ND_PERSO, ATTR_DEF_ACCOUNT_ND_TVA, ATTR_DEF_ACCOUNT_ND_TVA_ND, ATTR_DEF_DEP_PRIV, ATTR_DEF_DEPENSE_NON_DEDUCTIBLE, ATTR_DEF_TVA_NON_DEDUCTIBLE, ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP, Acc_Tva\build(), Acc_Ledger\check_currency(), Acc_Ledger\check_currency_setting(), check_parameter(), Acc_Ledger\check_payment(), Acc_Ledger\check_periode(), Acc_Ledger\check_strict(), cmpDate(), cn, db, Acc_Ledger\get_last_date(), h, Acc_Ledger\is_closed(), isDate(), isNumber(), and noalyss_strlentrim().

Here is the call graph for this function:

Field Documentation

$payment_operation

Acc_Ledger_Purchase::$payment_operation

private

Definition at line 115 of file acc_ledger_purchase.class.php.

---

The documentation for this class was generated from the following file:

• include/class/acc_ledger_purchase.class.php