Acc_Ledger_Purchase Class Reference

Handle the ledger of purchase,. More...

Inheritance diagram for Acc_Ledger_Purchase:

Collaboration diagram for Acc_Ledger_Purchase:

Public Member Functions
	__construct ($p_cn, $p_init)
	confirm ($p_array, $p_summary=false)
	show the summary of the operation and propose to save it More...
	extra_info ()
	the function extra info allows to More...
	get_detail_purchase ($p_from, $p_end, $p_filter_operation='all')
	Retrieve data from the view v_detail_purchase. More...
	input ($p_array=null, $p_readonly=0)
	display the form for entering data for invoice More...
	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 More...
	show_unpaid_deprecated ()
	update the payment 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...

Static Public Member Functions
static	heading_detail_purchase ()
	compute an array with the heading cells for the details, used for the export in CSV More...
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...

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. More...
	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. More...

Private Attributes
	$payment_operation

Additional Inherited Members
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

Handle the ledger of purchase,.

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

Constructor & Destructor Documentation

__construct()

Acc_Ledger_Purchase::__construct	(		$p_cn,
			$p_id
	)

Parameters

$p_cn	database connexion
$p_id	jrn.jrn_def_id

Reimplemented from Acc_Ledger.

Definition at line 36 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 293 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->strAttribut(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->strAttribut(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->strAttribut(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->strAttribut(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\strAttribut().

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

Reimplemented from Acc_Ledger.

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

    {
        global $g_parameter,$g_user;
        extract ($p_array,EXTR_SKIP);
        if ( !isset($p_array['jrn_note_input'])) {$p_array['jrn_note_input']='';}
                // we don't need to verify if we need only a feedback
        if ( ! $p_summary ){$this->verify($p_array) ;}
        
        $anc=null;
        // to show a select list for the analytic
        // if analytic is op (optionnel) there is a blank line
 
        bcscale(4);
        $client=new Fiche($this->db);
        $client->get_by_qcode($e_client,true);
 
        $client_name=h($client->getName().
                       ' '.$client->strAttribut(ATTR_DEF_ADRESS).' '.
                       $client->strAttribut(ATTR_DEF_CP).' '.
                       $client->strAttribut(ATTR_DEF_CITY));
        $lPeriode=new Periode($this->db);
        if ($this->check_periode() == true)
        {
            $lPeriode->p_id=$period;
        }
        else
        {
            $lPeriode->find_periode($e_date);
        }
        $date_limit=$lPeriode->get_date_limit();
        $r="";
        $r .= '<div id="summary_op1">';
        $r.='<TABLE>';
        if ( $p_summary ) {
            $jr_id=$this->db->get_value('select jr_id from jrn where jr_internal=$1',array($this->internal));
            $r.="<tr>";
            $r.='<td>';
            $r.=_('Détail opération ');
            $r.='</td>';
            $r.='<td>';
            $r.=sprintf ('<a class="line" style="display:inline" href="javascript:modifyOperation(%d,%d)">%s</a>',
                    $jr_id,dossier::id(),$this->internal);
            $r.='</td>';
            $r.="</tr>";
        }
        $r.='<tr>';
 
        $span=$this->warn_manual_receipt($p_array);
         if ( ! $p_summary) {
            $r.='<td>' . _('Numéro Pièce') .$span.'</td><td>'. hb($e_pj) . '</td>';
        } else {
            if ( $g_parameter->MY_PJ_SUGGEST=="A" || $g_user->check_action(UPDRECEIPT)==0) $e_pj=$this->pj;
 
             if ( strcmp($this->pj,$e_pj) != 0 )
            {
                $r.='<td>' . _('Numéro Pièce').$span .'</td><td>'. hb($this->pj) .
                        '<span class="notice"> '._('Attention numéro pièce existante, elle a du être adaptée').'</span></td>';
            } else {
                $r.='<td>' . _('Numéro Pièce') .$span.'</td><td>'. hb($this->pj) . '</td>';
            }
        }
        $r.='</tr>';
        $r.='<td> ' . _('Date') . '</td><td> ' . hb($e_date) . '</td>';
        $r.='</tr>';
        $r.='<tr>';
        $r.='<td>' . _('Echeance') . '</td><td> ' . hb($e_ech) . '</td>';
        $r.='</tr>';
       
     
        $r.='<tr>';
        $r.='<td> ' . _('Période Comptable') . '</td><td> ' .hb( $date_limit['p_start'] . '-' . $date_limit['p_end']) . '</td>';
        $r.='</tr>';
        $r.='</table>';
        $r.='</div>';
        $r .= '<div id="summary_op2">';
        $r.='<table>';
        $r.='<tr>';
        $r.='<td> ' . _('Journal') . '</td><td> ' . hb($this->get_name()) . '</td>';
        $r.='</tr>';
        $r.='<tr>';
        $r.='<td> ' . _('Libellé') . '</td><td> ' . hb($e_comm) . '</td>';
        $r.='</tr>';
        $r.='<tr>';
        
        $r.='<tr>';
        $r.='<td> ' . _('Fournisseur') . '</td><td> ' . hb($e_client . ':' . $client_name) . '</td>';
        $r.='</tr>';
        $r.='</table>';
        $r.='<pre>'._('Note').' '.h($p_array['jrn_note_input']).'</pre>';
        $r.='</div>';
        $r.='<div style="position:float;clear:both">';
        $r.='</div>';
        $r.='<h2>' . _('Détail articles achetés') . '</h2>';
        $r.='<p class="decale">';
        $r.='<table class="result" >';
        $r.='<TR>';
        $r.="<th>" . _('Code') . "</th>";
        $r.="<th>" . _('Dénomination') . "</th>";
        $r.="<th style=\"text-align:right\">" . _('prix') . "</th>";
        $r.="<th style=\"text-align:right\">" . _('quantité') . "</th>";
 
 
        if ($g_parameter->MY_TVA_USE == 'Y') {
            $r.="<th style=\"text-align:right\">" . _('tva') . "</th>";
            $r.='<th style="text-align:right"> ' . _('Montant TVA') . '</th>';
            $r.='<th style="text-align:right">' . _('Montant HTVA') . '</th>';
            $r.='<th style="text-align:right">' . _('Montant TVAC') . '</th>';
        } else {
            $r.='<th style="text-align:right">' . _('Montant') . '</th>';
        }
 
        /* if we use the AC */
        if ($g_parameter->MY_ANALYTIC!='nu')
        {
            $anc=new Anc_Plan($this->db);
            $a_anc=$anc->get_list();
            $x=count($a_anc);
            /* set the width of the col */
            $r.='<th colspan="'.$x.'">'._('Compt. Analytique').'</th>';
 
            /* add hidden variables pa[] to hold the value of pa_id */
            $r.=Anc_Plan::hidden($a_anc);
        }
 
        $r.='</tr>';
        $tot_amount=0.0;
        $tot_tva=0.0;
        //--
        // For each item
        //--
        for ($i = 0; $i < $nb_item;$i++)
        {
                        $tot_row=0;
            if ( noalyss_strlentrim(${"e_march".$i}) == 0 ) continue;
 
            /* retrieve information for card */
            $fiche=new Fiche($this->db);
            $fiche->get_by_qcode(${"e_march".$i});
            if ( $g_parameter->MY_UPDLAB=='Y')
                $fiche_name=h(${"e_march".$i."_label"});
            else
                $fiche_name=$fiche->strAttribut (ATTR_DEF_NAME);
            $amount=bcmul(${"e_march".$i."_price"},${'e_quant'.$i});
            if ( $g_parameter->MY_TVA_USE=='Y')
            {
                $idx_tva=${"e_march".$i."_tva_id"};
                $oTva=new Acc_Tva($this->db);
                $oTva->set_parameter('id',$idx_tva);
                $oTva->load();
                $op=new Acc_Compute();
 
                $op->set_parameter("amount",$amount);
                $op->set_parameter('amount_vat_rate',$oTva->get_parameter('rate'));
                $op->compute_vat();
                $tva_computed=$op->get_parameter('amount_vat');
                //----- if tva_amount is not given we compute the vat ----
                if ( strlen (trim (${'e_march'.$i.'_tva_amount'})) == 0)
                {
                    $tva_item=$op->get_parameter('amount_vat');
                }
                else
                    $tva_item=round(${'e_march'.$i.'_tva_amount'},2);
 
                if (isset($tva[$idx_tva] ) )
                    $tva[$idx_tva]=bcadd($tva_item,$tva[$idx_tva]);
                else
                    $tva[$idx_tva]=$tva_item;
               
                
                
            }
            $tot_amount=round(bcadd($tot_amount,$amount),2);
            $tot_row=round(bcadd($tot_row,$amount),2);
            $r.='<tr>';
            $r.='<td>';
            $r.=${"e_march".$i};
            $r.='</td>';
            $r.='<TD style="border-bottom:1px dotted grey;">';
            $r.=$fiche_name;
            $r.='</td>';
            $r.='<td class="num">';
            $r.=nbm(${"e_march".$i."_price"},4);
            $r.='</td>';
            $r.='<td class="num">';
            $r.=nbm(${"e_quant".$i},4);
            $r.='</td>';
            $both_side=0;
            if ($g_parameter->MY_TVA_USE == 'Y')
            {
                $r.='<td class="num">';
                $r.=$oTva->get_parameter('label');
                $both_side=$oTva->get_parameter("both_side");
                if ( $both_side == 0) {
                    $tot_row=bcadd($tot_row,$tva_item);
                    $tot_tva=round(bcadd($tva_item,$tot_tva),2);
                }
                $r.='</td>';
                /* warning if tva_computed and given are not the
                   same */
                $css_void_tva=($both_side == 1)?'style="text-decoration:line-through"':'';
                if ( bcsub($tva_item,$tva_computed) != 0 && ! ($tva_item == 0 && $both_side == 1))
                {
 
                                         $r.='<td style="background-color:red" class="num" '.$css_void_tva.'>';
                                         $r.=Icon_Action::infobulle(28);
                                         $r.='<a href="#" class="error" style="display:inline" title="'. _("Attention Différence entre TVA calculée et donnée").'">'
                                                        .nbm($tva_item).'<a>';
                }
                else{
                        $r.='<td  class="num" '.$css_void_tva.'>';
                        $r.=nbm($tva_item);
                }
                $r.='</td>';
                $r.='<td class="num"> ';
                $r.=nbm(round($amount,2));
                $r.='</td>';
            }
            $r.='<td class="num">';
            $r.=nbm(round($tot_row,2));
            $r.='</td>';
            // encode the pa
            if ( $g_parameter->MY_ANALYTIC!='nu' 
                     && $g_parameter->match_analytic($fiche->strAttribut(ATTR_DEF_ACCOUNT))==TRUE
                    ) // use of AA
            {
                // show form
                $anc_op=new Anc_Operation($this->db);
                $null=($g_parameter->MY_ANALYTIC=='op')?1:0;
                $r.='<td>';
                $p_mode=($p_summary==false)?1:0;
                $p_array['pa_id']=$a_anc;
                /* op is the operation it contains either a sequence or a jrnx.j_id */
                $r.=HtmlInput::hidden('op[]=',$i);
                $r.=$anc_op->display_form_plan($p_array,$null,$p_mode,$i,round($amount,2));
                $r.='</td>';
            }
 
 
            $r.='</tr>';
 
        }
        // Add the sum
        $decalage=($g_parameter->MY_TVA_USE == 'Y')?'<td></td><td></td><td></td><td></td>':'<td></td>';
         $tot = round(bcadd($tot_amount, $tot_tva), 2);
        $str_tot=_('Totaux');
        $tot_eur=round(bcdiv($tot, $p_currency_rate),2);
        
       // Get currency code
        $default_currency=new Acc_Currency($this->db,0);
        $str_code=$default_currency->get_code();
        if ( $p_currency_code != 0 ) {
            $acc_currency=new Acc_Currency($this->db);
            $acc_currency->set_id($p_currency_code);
            $str_code=$acc_currency->get_code();
        }
        // Format amount
        $tot_amount=nbm($tot_amount);
        $tot_tva=nbm($tot_tva);
        $tot_str=nbm($tot);
 
        if ( $g_parameter->MY_TVA_USE == 'Y') {
        $r.=<<<EOF
<tr class="highlight">
    {$decalage}            
     <td>
                {$str_tot} {$str_code}
     </td>
    <td class="num">
        {$tot_tva} 
    </td>
    <td class="num">
        {$tot_amount}
    </td>
    <td class="num">
        {$tot_str} {$str_code}
    </td>
</tr>
EOF;
    if ($p_currency_code !=0) {
        $rate=_("Taux ");
$r.=<<<EOF
<tr class="highlight">
    {$decalage}            
     <td>
                
     </td>
    <td class="num">
        
    </td>
    <td class="num">
        {$rate} {$p_currency_rate}
    </td>
    <td class="num">
        {$tot_eur}  EUR
    </td>
</tr>
EOF;
        } // if ($p_currency_code !=0
        }else { // if $g_parameter->MY_TVA_USE=='Y'
        $r.=<<<EOF
<tr class="highlight">
    {$decalage}            
     <td>
                {$str_tot} {$str_code}
     </td>
    <td class="num">
        {$tot_amount}
    </td>
    <td class="num">
        
    </td>
    <td class="num">
        {$tot_str} {$str_code}
    </td>
</tr>
<tr class="highlight">
    {$decalage}            
     <td>
     </td>
    <td>
    </td>
    <td>
    </td>
    <td class="num">
        {$tot_str} {$str_code}
    </td>
</tr>
EOF;
            
        }
        $r.='</table>';
        $r.='</p>';
        if ( $g_parameter->MY_ANALYTIC!='nu' && !$p_summary) // use of AA
            $r.='<input type="button" class="button" value="'._('Vérifiez imputation analytique').'" onClick="verify_ca(\'\');">';
        
        $r.='<div id="total_div_id" >';
        $r.='<h2>Totaux</h2>';
        $other_tax_label="";
        $other_tax_amount="";
        if ( $this->has_other_tax() && isset($p_array['other_tax'])) {
            $other_tax_label=_("Autre taxe");
            $other_tax_amount=htmlspecialchars($p_array['other_tax_amount']);
        }
        /* use VAT */
        if ($g_parameter->MY_TVA_USE == 'Y') {
            $r.='<table>';
            $r.='<tr><td>Total HTVA</td>';
            $r.=td(hb($tot_amount ),'class="num"');
            foreach ($tva as $i => $value) {
                $oTva->set_parameter('id', $i);
                $oTva->load();
 
                $r.='<tr><td>  TVA ' . $oTva->get_parameter('label').'</td>';
                $r.=td(hb(nbm($tva[$i])),'class="num"');
            }
            $r.='<tr>'.td(_('Total TVA')).td(hb($tot_tva),'class="num"');
            if ( ! empty($other_tax_label) ) {
                $r.='<tr>'.td($other_tax_label).td(hb($other_tax_amount),'class="num"');
            }
            if ( $other_tax_amount!="") {$tot=bcadd($tot,$other_tax_amount,2);}
            $r.='<tr>'.td(_('Total TVAC')).td(hb($tot),'class="num"');
            $r.='</table>';
        } else {
            if ( ! empty($other_tax_label) ) {
                $r.='<tr>'.td($other_tax_label).td(hb($other_tax_amount),'class="num"');
            }
            if ( $other_tax_amount!="") {$tot=bcadd($tot,$other_tax_amount,2);}
            $r.='<br>Total '.hb($tot);
        }
        $r.='</div>';
        /*  Add hidden */
        $r.=HtmlInput::hidden('e_client',$e_client);
        $r.=HtmlInput::hidden('nb_item',$nb_item);
        $r.=HtmlInput::hidden('p_jrn',$p_jrn);
        $r.=HtmlInput::hidden('jrn_note_input',h($p_array['jrn_note_input']));
 
        if ( isset($period))
            $r.=HtmlInput::hidden('period',$period);
        $r.=HtmlInput::hidden('e_comm',$e_comm);
        $r.=HtmlInput::hidden('e_date',$e_date);
        $r.=HtmlInput::hidden('e_ech',$e_ech);
        $r.=HtmlInput::hidden('jrn_type',$jrn_type);
        $r.=HtmlInput::hidden('e_pj',$e_pj);
        $r.=HtmlInput::hidden('e_pj_suggest',$e_pj_suggest);
        $r.=HtmlInput::post_to_hidden(['p_currency_rate','p_currency_code']);
        if ( $this->has_other_tax() && isset($p_array["other_tax"])) {
            $r.=HtmlInput::hidden("other_tax",$p_array['other_tax']);
            $r.=HtmlInput::hidden("other_tax_amount",$p_array['other_tax_amount']);
        }
        $mt=microtime(true);
        $r.=HtmlInput::hidden('mt',$mt);
 
        $e_mp=(isset($e_mp))?$e_mp:0;
        $r.=HtmlInput::hidden('e_mp',$e_mp);
        /* Paid by */
        /* if the paymethod is not 0 and if a quick code is given */
 
 
        for ($i=0;$i < $nb_item;$i++)
        {
            $r.=HtmlInput::hidden("e_march".$i,${"e_march".$i});
            if (isset (${"e_march".$i."_label"})) $r.=HtmlInput::hidden("e_march".$i."_label",${"e_march".$i."_label"});
            $r.=HtmlInput::hidden("e_march".$i."_price",${"e_march".$i."_price"});
            if ( $g_parameter->MY_TVA_USE=='Y' )
            {
                $r.=HtmlInput::hidden("e_march".$i."_tva_id",${"e_march".$i."_tva_id"});
                $r.=HtmlInput::hidden('e_march'.$i.'_tva_amount', ${'e_march'.$i.'_tva_amount'});
            }
            $r.=HtmlInput::hidden("e_quant".$i,${"e_quant".$i});
 
        }
 
        /**
         * Payment method
         */
        if ( $e_mp!=0 && strlen (trim (${'e_mp_qcode_'.$e_mp})) != 0 )
        {
            $r.="<p>";
            $r.=HtmlInput::hidden('e_mp_qcode_'.$e_mp,${'e_mp_qcode_'.$e_mp});
            $r.=HtmlInput::hidden('acompte',$acompte);
            $r.=HtmlInput::hidden('e_comm_paiement',$e_comm_paiement);
                $r.=HtmlInput::hidden('mp_date',$mp_date);
            /* needed for generating a invoice */
           $r.=HtmlInput::hidden('qcode_benef', ${'e_mp_qcode_' . $e_mp});
                        $fname = new Fiche($this->db);
                        $fname->get_by_qcode(${'e_mp_qcode_' . $e_mp});
            $detail_payment="";
            // payment operation
            if ($this->payment_operation != 1) {
                $pay_internal=$this->db->get_value("select jr_internal from jrn where jr_id=$1",
                    [$this->payment_operation]);
                $detail_payment=HtmlInput::detail_op($this->payment_operation,$pay_internal);
            }
            $r.='<h2>' . _("Payé par")." " . ${'e_mp_qcode_' . $e_mp} .
                " " . $fname->getName() .$detail_payment. '</h2> ' ;
            $r.='<p class="decale">' . _('Déduction acompte ') . h($acompte) . '</p>' .
                    _('Libellé :') . h($e_comm_paiement) ;
            $r.='<br>';
            $r.='<br>';
 
            $r.="</p>";
        }
        // check for upload piece
        /* 
         * warning if the amount is positive and expecting a negative one
         */
        $negative=$this->display_negative_warning($tot);
        if ( $negative != "") {
         $r.=span($negative,'class="warning" ');   
        }
        return $r;
    }

References $acompte, $amount, $anc, $date_limit, $default_currency, $e_date, $fiche, $g_parameter, $g_user, $i, $jr_id, $jrn_type, $op, $other_tax_amount, $p_array, $p_jrn, $r, $span, $str_code, $tot, $tot_amount, $value, ATTR_DEF_ACCOUNT, ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_CP, ATTR_DEF_NAME, db, HtmlInput\detail_op(), h, hb(), Anc_Plan\hidden(), HtmlInput\hidden(), id, Icon_Action\infobulle(), nbm(), noalyss_strlentrim(), HtmlInput\post_to_hidden(), span(), td(), tr(), and UPDRECEIPT.

Here is the call graph for this function:

extra_info()

Acc_Ledger_Purchase::extra_info

(

)

the function extra info allows to

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

  Returns

  html string

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

    {
        $r="";
        $r = '<div id="facturation_div_id" style="height:185px;height:10rem">';
        $r.='<p class="decale">';
        // check for upload piece
        $file=new IFile();
        $file->setAlertOnSize(true);
        $file->table=0;
        $r.=_("Ajoutez une pièce justificative ");
        $r.=$file->input("pj","");
 
        if ( $this->db->count_sql("select md_id,md_name from document_modele where md_affect='ACH'") > 0 )
        {
 
            $r.=_('ou générer un document').' <input type="checkbox" name="gen_invoice" >';
            // We propose to generate  the fee note
            $doc_gen=new ISelect();
            $doc_gen->name="gen_doc";
            $doc_gen->value=$this->db->make_array(
                                "select md_id,md_name ".
                                " from document_modele where md_affect='ACH' order by 2");
            $r.=$doc_gen->input().'<br>';
        }
        $r.='<br>';
        $obj=new IText();
        $r.=_('Numero de bon de commande : ').$obj->input('bon_comm').'<br>';
        $r.=_('Autre information : ').$obj->input('other_info').'<br>';
        $r.='</p>';
        $r.='</div>';
        return $r;
    }

References $file, $obj, $r, and db.

get_detail_purchase()

Acc_Ledger_Purchase::get_detail_purchase	(		$p_from,
			$p_end,
			$p_filter_operation = 'all'
	)

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

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

    {
        global $g_user;
        // Journal valide
        if ( $this->id == 0 ) die (__FILE__.":".__LINE__." Journal invalide");
        switch ( $p_filter_operation)
        {
            case 'all':
                $sql_filter="";
                break;
            case 'paid':
                $sql_filter=" and (jr_date_paid is not null or  jr_rapt ='paid' ) ";
                break;
            case 'unpaid':
                $sql_filter=" and (jr_date_paid  is null and coalesce(jr_rapt,'x') <> 'paid' ) ";
                break;
            default:
                throw new Exception(_("Filtre invalide",5));
                
        }
        
        // get the data from the view
        $sql = "select * 
                from v_detail_purchase
                 where 
                jr_def_id = $1 
                and  jr_date >= (select p_start from parm_periode where p_id = $2) 
                {$sql_filter}
                and  jr_date <= (select p_end from parm_periode where p_id  = $3) "
                .' order by jr_date,substring(jr_pj_number,\'[0-9]+$\')::numeric asc ';
        $ret = $this->db->exec_sql($sql, array($this->id,$p_from, $p_end));
        return $ret;
    }

References $g_user, $p_end, $ret, $sql, $sql_filter, and db.

heading_detail_purchase()

static Acc_Ledger_Purchase::heading_detail_purchase ( )

static

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

Returns

array

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

    {
        $array['jr_id'] = _('Numéro opération');
        $array['jr_date'] = _('Date');
        $array['jr_date_paid'] = _('Date paiement');
        $array['jr_ech'] = _('Date échéance');
        $array['jr_tech_per'] = _('Période');
        $array['jr_comment'] = _('Libellé');
        $array['jr_pj_number'] = _('Pièce');
        $array['jr_internal'] = _('Interne');
        $array['jr_def_id'] = _('Code journal');
        $array['j_poste'] = _('Poste');
        $array['j_text'] = _('Commentaire');
        $array['j_qcode'] = _('Code Item');
        $array['jr_rapt'] = _('Payé');
        $array['item_card'] = _('N° fiche');
        $array['item_name'] = _('Nom fiche');
        $array['qp_supplier'] = _('N° fiche fournisseur');
        $array['tiers_name'] = _('Nom fournisseur');
        $array['quick_code'] = _('Code fournisseur');
        $array['tva_label'] = _('Nom TVA');
        $array['tva_comment'] = _('Commentaire TVA');
        $array['tva_both_side'] = _('TVA annulée');
        $array['vat_sided'] = _('TVA Non Payé');
        $array['vat_code'] = _('Code TVA');
        $array['vat'] = _('Montant TVA');
        $array['price'] = _('Total HTVA');
        $array['quantity'] = _('quantité');
        $array['price_per_unit'] = _('PU');
        $array['non_ded_amount'] = _('Montant ND');
        $array['non_ded_tva'] = _('Montant TVA ND');
        $array['non_ded_tva_recup'] = _('TVA récup.');
        $array['htva'] = _('HTVA Opération');
        $array['tot_vat'] = _('TVA Opération');
        $array['tot_tva_np'] = _('TVA NP opération');
        $array['other_tax'] = _("Autre taxe");
        $array['oc_amount'] = _('Mont. Devise');
        $array['oc_vat_amount'] = _('Mont. TVA Devise');
        $array['cr_code_iso'] = _('Devise');
        
        return $array;
    }

References $array.

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 1141 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_pj();";
        }
        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->strAttribut(ATTR_DEF_NAME).' '.
                            ' Adresse : '.$fClient->strAttribut(ATTR_DEF_ADRESS).' '.
                            $fClient->strAttribut(ATTR_DEF_CP).' '.
                            $fClient->strAttribut(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->strAttribut(ATTR_DEF_NAME);
                /* vat use */
                if ( ! isset($march_tva_id) && $g_parameter->MY_TVA_USE=='Y' )
                    $march_tva_id=$fMarch->strAttribut(ATTR_DEF_TVA);
            }
            // Show input
            //--
            $W1=new ICard();
            $W1->label="";
            $W1->name="e_march".$i;
            $W1->value=$march;
            $W1->table=1;
            $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->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_pj();</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, $def, $e, $e_date, $fiche, $g_parameter, $g_user, $http, $i, $label, $op, $oPeriode, $p_array, $periode, $r, $url, $wLedger, ATTR_DEF_ADRESS, ATTR_DEF_CITY, ATTR_DEF_CP, ATTR_DEF_NAME, ATTR_DEF_TVA, create_script(), db, FICADD, HtmlInput\hidden(), id, Icon_Action\infobulle(), Html_Input_Noalyss\ledger_add_item(), noalyss_strlentrim(), OPEN, record_log(), 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 506 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->internal=$internal;
 
        $cust=new Fiche($this->db);
        $cust->get_by_qcode($e_client);
        $sposte=$cust->strAttribut(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);
            // total amount of the purchase
            $tot_amount=0;
            $tot_tva=0;
            $tot_debit=0;
            $this->db->start();
            $tot_nd=0;
            $tot_perso=0;
            $tot_tva_nd=0;
            $tot_tva_ndded=0;
            $tot_tva_reversed=0;
            $tva=array();
            $tot_amount_cur=0;
            // find the currency from v_currency_last_value
            $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});
                $tva_both=0;
                /* tva */
                if ($g_parameter->MY_TVA_USE=='Y')
                {
                    $idx_tva=trim(${'e_march'.$i.'_tva_id'});
                    \Noalyss\Dbg::echo_var(1," idx_tva [$idx_tva]",);
                    $oTva=new Acc_Tva($this->db);
                    $oTva->set_parameter('id',$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 */
                $save_amount_vat=$acc_amount->amount_vat;
                $this->compute_no_deductible($acc_amount, $fiche);
                $acc_amount->correct();
                // TVA which avoid 
                $acc_amount->amount_unpaid=($tva_both == 1 ) ? $save_amount_vat :0 ;
                $tot_tva_reversed=bcadd($tot_tva_reversed,$acc_amount->amount_unpaid);
                
 
              
                $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->strAttribut(ATTR_DEF_ACCOUNT);
                // if 2 accounts, take only the debit one for customer
                if ( strpos($sposte,',') != 0 )
                {
                    $array=explode(',',$sposte);
                    $poste_val=$array[0];
                }
                else
                {
                    $poste_val=$sposte;
                }
                if ($g_parameter->MY_UPDLAB=='Y')
                {
                    $acc_operation->desc=strip_tags(${"e_march".$i."_label"});
                }
                else
                {
                    $acc_operation->desc=null;
                }
                $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 (isset($tva[$idx_tva]))
                    {
                        $tva[$idx_tva]=bcadd($tva[$idx_tva], $tva_item);
                    }
                    else
                        $tva[$idx_tva]=$tva_item;
                }
                /* 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->amount_unpaid /*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->amount_unpaid /*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=new Acc_Tva($this->db);
                    $oTva->set_parameter('id',$i);
                    $oTva->load();
 
                    $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();
                    // if TVA is on both side, we deduce it immediately
                    
                    if ( $oTva->get_parameter("both_side")==1 )
                    {
                        $poste_vat=$oTva->get_side('c');
                        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=$tot_tva_reversed;
                        $acc_operation->grpt=$seq;
                        $acc_operation->jrn=$p_jrn;
                        $acc_operation->type='c';
                        $acc_operation->periode=$tperiode;
                        $acc_operation->insert_jrnx();
                        if ( $value < 0 ) $tot_debit=bcadd($tot_debit,abs($value));
                    }
 
                }
            }
 
            /* 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));
            if ( DEBUGNOALYSS > 1 ) { 
                echo __LINE__." amount ".$acc_operation->amount."<br>"; 
            
            }
            $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"));
            }
            $this->pj=$acc_operation->set_pj();
 
            // Set Internal code
            $this->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))
            {
                if ( sizeof($_FILES) != 0 )
                    $this->db->save_receipt($seq);
            }
            $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->strAttribut(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->strAttribut(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->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->set_pj();
                }
                $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);
            echo '<span class="error">'.
            'Erreur dans l\'enregistrement '.
            __FILE__.':'.__LINE__.' '.
            $e->getMessage().$e->getMessage();
            record_log($e->getMessage());
            $this->db->rollback();
            throw  new Exception($e);
        }
        $this->db->commit();
        return $internal;
    }

References $_POST, $acompte, $array, $check_periode, $dir, $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, ATTR_DEF_ACCOUNT, ATTR_DEF_QUICKCODE, Acc_Operation_Note\build_jrn_id(), Acc_Ledger\check_periode(), Acc_Ledger\compute_internal_code(), compute_no_deductible(), Acc_Ledger\create_document(), db, Noalyss\Dbg\echo_var(), 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(), HtmlInput\show_receipt_document(), 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 331 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->strAttribut(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->strAttribut(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->strAttribut(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->strAttribut(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->strAttribut(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->strAttribut(ATTR_DEF_QUICKCODE);
            $j_id = $p_acc_operation->insert_jrnx();
            if ( $g_parameter->MY_ANALYTIC != "nu" 
                    &&  $g_parameter->match_analytic($p_fiche->strAttribut(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->strAttribut(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->strAttribut(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->strAttribut(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_Operation\insert_jrnx(), sql_string(), and Fiche\strAttribut().

Referenced by insert().

Here is the call graph for this function:

show_unpaid_deprecated()

Acc_Ledger_Purchase::show_unpaid_deprecated

(

)

update the payment

Todo:

to remove, obsolete

Deprecated:

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

    {
        // Show list of unpaid sell
        // Date - date of payment - Customer - amount
        // Nav. bar
        $step=$_SESSION[SESSION_KEY.'g_pagesize'];
        $page=(isset($_GET['offset']))?$_GET['page']:1;
        $offset=(isset($_GET['offset']))?$_GET['offset']:0;
 
 
        $sql=SQL_LIST_UNPAID_INVOICE_DATE_LIMIT." and jr_def_id=".$this->id ;
        list($max_line,$list)=$this->list_operation($sql,null,$offset,1);
        $sql=SQL_LIST_UNPAID_INVOICE." and jr_def_id=".$this->id ;
        list($max_line2,$list2)=$this->list_operation($sql,null,$offset,1);
 
        // Get the max line
        $m=($max_line2>$max_line)?$max_line2:$max_line;
        $bar2=navigation_bar($offset,$m,$step,$page);
 
        echo $bar2;
        echo '<h2 class="info"> '._('Echeance dépassée').' </h2>';
        echo $list;
        echo  '<h2 class="info"> '._('Non Payée').' </h2>';
        echo $list2;
        echo $bar2;
        // Add hidden parameter
        $hid=new IHidden();
 
        echo '<hr>';
 
        if ( $m != 0 )
            echo HtmlInput::submit('paid',_('Mise à jour paiement'));
 
 
    }

References $_GET, $hid, $id, $list, $m, $max_line, $offset, $page, $sql, $step, navigation_bar(), SQL_LIST_UNPAID_INVOICE, SQL_LIST_UNPAID_INVOICE_DATE_LIMIT, and HtmlInput\submit().

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 47 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->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->strAttribut(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 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')
            {
                if ( empty(${'e_march'.$i.'_tva_id'}) )
                    throw new Exception(_('La fiche ').${'e_march'.$i}._('a un code tva invalide').' ['.${'e_march'.$i.'_tva_id'}.']',13);
                $tva_rate=new Acc_Tva($this->db);
                $tva_rate->set_parameter('id',${'e_march'.$i.'_tva_id'});
 
                if ( $tva_rate->load() != 0 )
                    throw new Exception(_('La fiche ').${'e_march'.$i}._('a un code tva invalide').' ['.${'e_march'.$i.'_tva_id'}.']',13);
                /*
                 * 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"));
 
            }
            /* check if all card has a ATTR_DEF_ACCOUNT*/
            $fiche=new Fiche($this->db);
            $fiche->get_by_qcode(${'e_march'.$i});
            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->strAttribut(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->strAttribut($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_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 35 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