Acc_Ledger Class Reference

Class for jrn, class acc_ledger for manipulating the ledger AND some acc. More...

Inheritance diagram for Acc_Ledger:

Collaboration diagram for Acc_Ledger:

Public Member Functions
	__construct ($p_cn, $p_id)
	construct
	add_card ($p_filter, $p_id_update)
	Return a button to create new card, depending of the ledger.
	button_copy_operation ()
	Show a button to create an operation identical to the recorded one.
	button_new_operation ()
	Create a button to encode a new operation into the same ledger.
	check_currency ($p_qcode_payment, $p_currency_id)
	When we write a record for the payment at the same time as a sale or a purchase, to have a bank saldo reliable , all the bank operation must be in the same currency Operation = Currency 1 and Bank = Currency 2 then it must failed , except if currency 2 (of the bank is the default currency.
	check_currency_setting ($p_currency_code)
	Check that the currency code does exist and the setting of the folder is correct.
	check_payment ($e_mp, $e_mp_qcode)
	check if the payment method is valid
	check_periode ()
	Check if a Dossier is using the check on the periode, if true than the user has to enter the date and the periode, it is a security check.
	check_strict ()
	Check if a Dossier is using the strict mode or not.
	compute_internal_code ($p_grpt)
	compute the internal code of the saved operation and set the $this->jr_internal to the computed value
	confirm ($p_array, $p_readonly=false)
	show the result of the array to confirm before inserting
	convert_from_follow ($p_ag_id, $copy_description=0)
	convert operations from FOLLOWUP into a SALE , FEENOTE or PURCHASE operation into a suitable array
	create_document ($internal, $p_array)
	alias for Acc_Document->create_document
	CurrencyInput ($p_currency_code, $p_currency_rate, $p_eur_amount)
	Create a select from value for currency and add javascript to update $p_currency_rate and $p_eur_amount.
	delete ()
	let you delete a operation
	delete_ledger ()
	delete a ledger IF it doesn't contain anything
	display_additional_tax ($p_additional_tax, $p_amount)
	in confirm screen , display the compute value for additional tax @parameter $p_additional_tax acc_other_tax.ac_id
	display_ledger ()
	display detail of a ledger
	display_negative_warning ($p_amount)
	If the amount is positive and the ledger expects a negative amount, il will return the saved warning.
	display_warning ($pa_msg, $p_warning)
	Display warning contained in an array.
	existing_vat ()
	return the used VAT code with a rate > 0
	get_all_fiche_def ()
	retrieve all the card for this type of ledger, make them into a string separated by comma
	get_class_def ()
	retrieve the jrn_def_class_deb and return it
	get_currency ()
	returns the code iso of the default currency for this ledger
	get_customer_late ()
	get info from customer not yet paid
	get_customer_now ()
	get info from customer to pay today
	get_default_card ($p_ledger_type, $p_side)
	Return an array of default card for the ledger type given.
	get_fiche_def ()
	retrieve the jrn_def_fiche and return them into a array index deb, cred
	get_first ($p_type, $p_access=3)
	get the first ledger
	get_id ($p_internal)
	retrieve the jr_id thanks the internal code, do not change anything to the current object
	get_is_loaded ()
	get_last ($p_limit)
	return the last p_limit operation into an array
	get_last_date ()
	get the date of the last operation
	get_last_pj ()
	returns the sequence number of the receipt for the current ledger or create the sequence if it doesn't exist
	get_ledger_id ()
	Set the jrn_def.jrn_def_id.
	get_min_row ()
	get_name ()
	Return the name of a ledger.
	get_operation ($p_from, $p_to)
	retrieve operation from jrn
	get_operation_date ($p_date, $p_ledger_type, $sql_op)
	Get operation from the ledger type before, after or with the given date .
	get_other_amount ($p_jr_id)
	get the amount of vat for a given jr_grpt_id from the table quant_purchase
	get_propertie ()
	Get the properties of a journal.
	get_rowSimple ($p_from, $p_to, $pa_ledger=[], $trunc=0, $p_limit=-1, $p_offset=-1)
	Get simplified row from ledger Call Acc_Ledger_History_Generic:get_rowSimple.
	get_solde ($p_from, $p_to)
	get the saldo of a ledger for a specific period
	get_supplier_late ()
	get info from supplier not yet paid
	get_supplier_now ()
	get info from supplier to pay today
	get_tiers ($p_jrn_type, $jr_id)
	Retrieve the third : supplier for purchase, customer for sale, bank for fin,.
	get_tiers_id ($p_jrn_type, $jr_id)
	Return the f_id of the tiers , called by get_tiers.
	get_type ()
	Return the type of a ledger (ACH,VEN,ODS or FIN) or GL.
	guess_pj ()
	guess what the next pj should be
	has_other_tax ()
	returns true if the ledger has an additional tax
	has_quantity ()
	Check if a ledger is enabled , 1 for yes and 0 if disabled.
	inc_seq_pj ()
	increment the sequence for the pj
	input ($p_array=null, $p_readonly=0)
	Show the form to encode your operation.
	input_additional_tax ()
	form : display additional tax available for this ledger and value, set 2 values : checkbox if tax applies and value
	input_extra_info ()
	input_new ()
	display FORM to enter parameters to create a new ledger.
	input_paid ($p_selected, $p_amount=0, $p_date="", $p_comm="")
	Create the section payment.
	is_closed ($p_periode)
	check if the current ledger is closed
	is_enable ()
	Check if a ledger is enabled , 1 for yes and 0 if disabled.
	listing ()
	listing of all ledgers
	previous_amount ($p_to)
	retrieve amount of previous periode
	previous_other_tax ($p_to)
	retrieve the previous amount
	reverse ($p_date, $p_label)
	reverse the operation by creating the opposite one, the result is to avoid it it must be done in
	save ($p_array=null)
	save the operation into the jrnx,jrn, , CA and pre_def
	save_followup ($s_related_action)
	attach action-followups to an operation,
	save_new ($array)
	Insert a new ledger , member variable like jrn_def_id will changed.
	search_group ($p_what, $p_value)
	retreive the jr_grpt_id from a ledger
	select_default_currency ()
	create a select button to set the default currency for a ledger used only for empty financial ledger
	select_depot ($p_readonly, $p_repo)
	Let you select the repository before confirming a sale or a purchase.
	select_ledger ($p_type="ALL", $p_access=3, $enable=TRUE)
	Show a select list of the ledgers you can access in writing, reading or simply accessing.
	set_currency_id ()
	retrieve currency_id from database
	set_is_loaded ($is_loaded)
	set_ledger_id ($p_id)
	Set the jrn_def.jrn_def_id.
	set_quantity ($p_value)
	set quantity for the ledger to 1 or 0,
	update ($array=null)
	update a ledger
	update_internal_code ($p_internal)
	update_paid ($p_array)
	Update the paiment in the list of operation.
	upload_supplemental_document ($jr_id)
	upload the supplementary documents and attach them to the JRN.JR_ID start a new transaction if the connection to the database is not already in a transaction
	use_quant_table ($p_grpt_id, $p_jrn_type)
	Check if the operation is used in the table quant*.
	vat_operation ($p_jr_id)
	get the amount of vat for a given jr_grpt_id from the table quant_purchase
	verify_ledger ($array)
	Verify before update.
	verify_operation ($p_array)
	verify that the operation can be saved

Static Public Member Functions
static	array_cat ()
	create an array of the existing cat, to be used in a checkbox form
static	next_number ($p_cn, $p_type)
	retrieve the next number for this type of ledger
static	test_me ($pCase='')
	this function is intended to test this class

Data Fields
	$currency_id
	$db
	$doc
	$id
	$jr_grpt_id
	$jr_id
	$jr_internal
	$jrn_deb_max_line
	$jrn_def_description
	$jrn_def_ech_lib
	$jrn_def_id
	$jrn_def_max_line_deb
	$jrn_def_name
	$jrn_def_negative_amount
	$jrn_def_negative_warning
	$jrn_def_pj_pref
	$jrn_def_quantity
	$jrn_def_type
	$jrn_enable
	$ledger_name
	$ledger_type
	$nb
	$pj
	!
	$row
	$with_concerned

Protected Member Functions
	find_label ($p_value)
	Retrieve the label of an accounting.
	input_supplemental_document ()
	display INPUT type to ask the supplementary documents
	verify_autonumber ($p_array)
	compare given receipt number and suggested one, if different , it means that the user enters a receipt number if e_pj or e_pj_suggest is not set or empty , or if both are equals then will return true, it returns only if they exist and are different
	warn_manual_receipt ($p_array)
	warn if the suggested receipt and receipt are different , it means that the user tried to number himself

Protected Attributes
	$is_loaded

Detailed Description

Class for jrn, class acc_ledger for manipulating the ledger AND some acc.

operations

Definition at line 35 of file acc_ledger.class.php.

Constructor & Destructor Documentation

__construct()

Acc_Ledger::__construct	(		$p_cn,
			$p_id )

construct

Parameters

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

Reimplemented in Acc_Ledger_Fin, Acc_Ledger_Purchase, and Acc_Ledger_Sale.

Definition at line 74 of file acc_ledger.class.php.

    {
        parent::__construct($p_cn, $p_id);
        $this->id=$p_id;
        $this->ledger_name=&$this->jrn_def_name;
        $this->jrn_def_id=&$this->id;
        $this->db=$p_cn;
        $this->row=null;
        $this->nb=MAX_ARTICLE;
        $this->is_loaded=false;
        
        if ($p_id <> 0 ) {
            
            $this->is_loaded=true;
        }
    }

References $id, $jrn_def_name, $p_id, db, jrn_def_id, MAX_ARTICLE, and nb().

Here is the call graph for this function:

Member Function Documentation

add_card()

Acc_Ledger::add_card	(		$p_filter,
			$p_id_update )

Return a button to create new card, depending of the ledger.

Parameters

$p_filter	string : filter for adding : deb, cred or -1 for filter depending of the ledger
$p_id_update	string

Definition at line 3428 of file acc_ledger.class.php.

    {
        $js_script="this.filter='{$p_filter}';this.elementId='{$p_id_update}';this.jrn=\$('p_jrn').value; select_card_type(this);";
        $str_add_button=Icon_Action::icon_add(uniqid(), $js_script);
        return $str_add_button;
    }

References $p_filter, and Icon_Action\icon_add().

Referenced by input(), Acc_Ledger_Fin\input(), Acc_Ledger_Purchase\input(), and Acc_Ledger_Sale\input().

Here is the call graph for this function:

array_cat()

static Acc_Ledger::array_cat ( )

static

create an array of the existing cat, to be used in a checkbox form

Definition at line 2531 of file acc_ledger.class.php.

    {
        $r=array(
            array('cat'=>'VEN', 'name'=>_("Journaux de vente")),
            array('cat'=>'ACH', 'name'=>_("Journaux d'achat")),
            array('cat'=>'FIN', 'name'=>_("Journaux Financier")),
            array('cat'=>'ODS', 'name'=>_("Journaux d'Opérations diverses"))
        );
        return $r;
    }

References $r, and _.

Referenced by Acc_Balance\filter_cat().

button_copy_operation()

Acc_Ledger::button_copy_operation

(

)

Show a button to create an operation identical to the recorded one.

It is a form POST since it is a limit with get

Definition at line 3388 of file acc_ledger.class.php.

    {
        echo '<FORM METHOD="POST">';
        echo HtmlInput::post_to_hidden(
                array("gDossier", "ac", "p_jrn", "e_client", "nb_item", "desc", "e_comm")
        );
        echo HtmlInput::hidden("correct", "copy");
        // e_march
        $http=new HttpInput();
        $nb=$http->post("nb_item", "number", 0);
        echo HtmlInput::post_to_hidden(['p_currency_rate','p_currency_code']);
        echo HtmlInput::post_to_hidden(['other_tax','other_tax_amount']);
        for ($i=0; $i<$nb; $i++)
        {
            echo HtmlInput::post_to_hidden(
                    array(
                        "e_march".$i,
                        "e_march".$i."_price",
                        "e_march".$i."_quant",
                        "e_march".$i."_label",
                        "e_march".$i."_tva_id",
                        "e_march".$i."_tva_amount",
                        "e_quant".$i,
                        "poste".$i,
                        "ld".$i,
                        "qc_".$i,
                        "amount".$i,
                        "ck".$i
            ));
        }
        echo HtmlInput::submit("copy_operation", _("Opération identique"),p_class:"button");
 
        echo '</FORM>';
    }

References $http, $i, $nb, and _.

button_new_operation()

Acc_Ledger::button_new_operation

(

)

Create a button to encode a new operation into the same ledger.

Returns

string

Definition at line 3375 of file acc_ledger.class.php.

    {
        $url=http_build_query(array('ac'=>$_REQUEST['ac'], 'gDossier'=>$_REQUEST['gDossier'],
            'p_jrn'=>$_REQUEST['p_jrn']));
        $button=HtmlInput::button_anchor(_("Nouvelle opération"),
                        'do.php?'.$url, "", "", "button");
        return '<p>'.$button.'</p>';
    }

References $_REQUEST, $url, and _.

check_currency()

Acc_Ledger::check_currency	(		$p_qcode_payment,
			$p_currency_id )

When we write a record for the payment at the same time as a sale or a purchase, to have a bank saldo reliable , all the bank operation must be in the same currency Operation = Currency 1 and Bank = Currency 2 then it must failed , except if currency 2 (of the bank is the default currency.

Parameters

string	$p_qcode_payment	Qcode of the payment card
int	$p_currency_id	currency id of the sale/purchase operation

Exceptions

Exception

Definition at line 1932 of file acc_ledger.class.php.

    {
        $card=new Fiche($this->db);
        $card->get_by_qcode($p_qcode_payment);
        if ( $card->id == 0) throw new Exception (_("Fiche invalide"));
        
        $ledger = $card->get_bank_ledger();
        if ( $ledger != NULL )
        {
            $ledger_currency_id=$ledger->get_currency()->get_id();
            // if sale and payment are not the same currency and the 
            if ($ledger_currency_id != 0 && $p_currency_id != $ledger_currency_id )
            {
                throw new Exception (_("Devise de la banque doit être identique à l'opération"));
            }
        }
    }

Referenced by Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

check_currency_setting()

Acc_Ledger::check_currency_setting

(

$p_currency_code

)

Check that the currency code does exist and the setting of the folder is correct.

Parameters

int

$p_currency_code

Exceptions

Exception

Definition at line 1892 of file acc_ledger.class.php.

    {
        global $g_parameter;
          if ( $p_currency_code == -1 )
        {
            throw new Exception(_('Devise inconnue'), 3);
        }
        /* -- check the accounting for error of exchange -*/
        if ($p_currency_code >  0 )
        {
            $poste=new Acc_Account($this->db,$g_parameter->MY_DEFAULT_ROUND_ERROR_DEB);
           
            if ($poste->get_parameter("id") == -1 )
            {
                throw new Exception(
                        sprintf(_("Dans COMPANY, vous n'avez pas paramétré correctement ".
                                " le compte de débit %s pour les erreurs de conversion"),
                                $g_parameter->MY_DEFAULT_ROUND_ERROR_DEB), 3);
            }
            
            $poste=new Acc_Account($this->db,$g_parameter->MY_DEFAULT_ROUND_ERROR_CRED);
            if ($poste->get_parameter("id") == -1 )
            {
                throw new Exception(
                        sprintf(_("Dans COMPANY, vous n'avez pas paramétré correctement ".
                                " le compte de crédit %s pour les erreurs de conversion"),
                                $g_parameter->MY_DEFAULT_ROUND_ERROR_CRED), 3);
            }
 
        }        
    }

References n.

Referenced by Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

check_payment()

Acc_Ledger::check_payment	(		$e_mp,
			$e_mp_qcode )

check if the payment method is valid

Parameters

$e_mp

is the value and $e_mp_qcode is the quickcode

Returns

nothing throw an Exception

Definition at line 2000 of file acc_ledger.class.php.

    {
        /*   Check if the "paid by" is empty, */
        if ($e_mp!=0)
        {
            /* the paid by is not empty then check if valid */
            $empl=new Fiche($this->db);
            $empl->get_by_qcode($e_mp_qcode);
            if ($empl->empty_attribute(ATTR_DEF_ACCOUNT)==true)
            {
                throw new Exception(_("Le moyen de paiement choisi n'a pas de poste comptable"),
                20);
            }
            /* get the account and explode if necessary */
            $sposte=$empl->get_attribute(ATTR_DEF_ACCOUNT);
            // if 2 accounts, take only the debit one for customer
            if (strpos($sposte, ',')!=0)
            {
                $array=explode(',', $sposte);
                $poste_val=$array[0];
            }
            else
            {
                $poste_val=$sposte;
            }
            $poste=new Acc_Account_Ledger($this->db, $poste_val);
            if ($poste->load()==false)
            {
                throw new Exception(sprintf(_("Pour la fiche %s le poste comptable [%s] n'existe pas"),
                        $empl->quick_code, $poste->id), 9);
            }
        }
    }

References n.

Referenced by Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

check_periode()

Acc_Ledger::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.

Returns

true if we are using the double encoding (date+periode)

Definition at line 1877 of file acc_ledger.class.php.

    {
        global $g_parameter;
        if ($g_parameter->MY_CHECK_PERIODE=='Y')
            return true;
        if ($g_parameter->MY_CHECK_PERIODE=='N')
            return false;
        throw new Exception("Valeur invalid ".__FILE__.':'.__LINE__);
    }

Referenced by confirm(), Acc_Ledger_Fin\confirm(), Acc_Ledger_Purchase\confirm(), Acc_Ledger_Sale\confirm(), input(), Acc_Ledger_Fin\input(), Acc_Ledger_Purchase\input(), Acc_Ledger_Sale\input(), Acc_Ledger_Fin\insert(), Acc_Ledger_Purchase\insert(), Acc_Ledger_Sale\insert(), Acc_Ledger_Fin\verify_operation(), Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

check_strict()

Acc_Ledger::check_strict

(

)

Check if a Dossier is using the strict mode or not.

Returns

true if we are using the strict_mode

Definition at line 1862 of file acc_ledger.class.php.

    {
        global $g_parameter;
        if ($g_parameter->MY_STRICT=='Y')
            return true;
        if ($g_parameter->MY_STRICT=='N')
            return false;
        throw new Exception("Valeur invalid ".__FILE__.':'.__LINE__);
    }

Referenced by Acc_Ledger_Fin\verify_operation(), Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

compute_internal_code()

Acc_Ledger::compute_internal_code

(

$p_grpt

)

compute the internal code of the saved operation and set the $this->jr_internal to the computed value

Parameters

$p_grpt

id in jr_grpt_

Returns

string internal_code

Definition at line 1408 of file acc_ledger.class.php.

    {
        if ($this->id==0)
            return;
        $num=$this->db->get_next_seq('s_internal');
        $atype=$this->get_propertie();
        $type=substr($atype['jrn_def_code'], 0, 1);
        $internal_code=sprintf("%s%06X", $type, $num);
        $this->jr_internal=$internal_code;
        return $internal_code;
    }

Referenced by Acc_Ledger_Fin\insert(), Acc_Ledger_Purchase\insert(), Acc_Ledger_Sale\insert(), and reverse().

confirm()

Acc_Ledger::confirm	(		$p_array,
			$p_readonly = false )

show the result of the array to confirm before inserting

Parameters

$p_array

array from the form

Returns

HTML string

Reimplemented in Acc_Ledger_Fin, Acc_Ledger_Purchase, and Acc_Ledger_Sale.

Definition at line 697 of file acc_ledger.class.php.

    {
        global $g_parameter,$g_user;
        $http=new HttpInput();
        $msg=array();
        if (!$p_readonly)
            $msg=$this->verify_operation($p_array);
        $this->id=$p_array['p_jrn'];
        if (empty($p_array))
            return _("Aucun résultat");
        $anc=null;
        extract($p_array, EXTR_SKIP);
        if ( !isset($p_array['jrn_note_input'])) {$p_array['jrn_note_input']='';}
        $lPeriode=new Periode($this->db);
        if ($this->check_periode()==true)
        {
            $lPeriode->p_id=$period;
        }
        else
        {
            $lPeriode->find_periode($e_date);
        }
        $total_deb=0;
        $total_cred=0;
        bcscale(2);
 
        $ret="";
        if (!empty($msg))
        {
            $ret.=$this->display_warning($msg,
                    _("Attention : il vaut mieux utiliser les fiches que les postes comptables"));
        }
        $ret.="<table >";
        $ret.="<tr><td>"._('Date')." : </td><td>$e_date</td></tr>";
        /* display periode */
        $date_limit=$lPeriode->get_date_limit();
        $ret.='<tr> '.td(_('Période Comptable')).td($date_limit['p_start'].'-'.$date_limit['p_end']).'</tr>';
        $ret.="<tr><td>"._('Libellé')." </td><td>".h($desc)."</td></tr>";
        $ret.="<tr><td>";
        $ret.=_('Note').'</td><td><pre>'. h($p_array['jrn_note_input']).'</pre>';
        $ret.="</td></tr>";
        $span=$this->warn_manual_receipt($p_array);
        if ( $g_parameter->MY_PJ_SUGGEST=="A"||$g_user->check_action(UPDRECEIPT)==0)
        {
            $e_pj=$this->guess_pj();
            $span="";
        }
        if ($p_readonly == false) $ret.="<tr><td>"._('PJ Num')." </td><td>".h($e_pj).$span."</td></tr>";
        if ($p_readonly == true ) $ret.="<tr><td>"._('PJ Num')." </td><td>".h($this->pj).$span."</td></tr>";
        $ret.='</table>';
        $ret.="<table class=\"result\">";
        $ret.="<tr>";
        $ret.="<th>"._('Quick Code ou ');
        $ret.=_("Poste")." </th>";
        $ret.="<th style=\"text-align:left\"> "._("Libellé")." </th>";
        $ret.="<th style=\"text-align:right\">"._("Débit")."</th>";
        $ret.="<th style=\"text-align:right\">"._("Crédit")."</th>";
        /* if we use the AC */
        if ($g_parameter->MY_ANALYTIC!='nu')
        {
            $anc=new Anc_Plan($this->db);
            $a_anc=$anc->get_list();
            $x=count($a_anc);
            /* set the width of the col */
            $ret.='<th colspan="'.$x.'" style="width:auto;text-align:center" >'._('Compt. Analytique').'</th>';
 
            /* add hidden variables pa[] to hold the value of pa_id */
            $ret.=Anc_Plan::hidden($a_anc);
        }
        $ret.="</tr>";
 
        $ret.=HtmlInput::hidden('e_date', $e_date);
        $ret.=HtmlInput::hidden('desc', $desc);
        $ret.=HtmlInput::hidden('period', $lPeriode->p_id);
        $ret.=HtmlInput::hidden('e_pj', $e_pj);
        $ret.=HtmlInput::hidden('e_pj_suggest', $e_pj_suggest);
        $ret.=HtmlInput::hidden('jrn_note_input',h($p_array['jrn_note_input']));
 
        $mt=microtime(true);
        $ret.=HtmlInput::hidden('mt', $mt);
        // For predefined operation
        $ret.=HtmlInput::hidden('e_comm', $desc);
        $ret.=HtmlInput::hidden('jrn_type', $this->get_type());
        $ret.=HtmlInput::hidden('p_jrn', $this->id);
        $ret.=HtmlInput::hidden('nb_item', $nb_item);
        if ($this->with_concerned==true)
        {
            $ret.=HtmlInput::hidden('jrn_concerned', $jrn_concerned);
        }
        $ret.=dossier::hidden();
        $count=0;
        for ($i=0; $i<$nb_item; $i++)
        {
            if ($p_readonly==true)
            {
                if (!isset(${'qc_'.$i}))
                    ${'qc_'.$i}='';
                if (!isset(${'poste'.$i}))
                    ${'poste'.$i}='';
                if (!isset(${'amount'.$i}))
                    ${'amount'.$i}='';
            }
            $class=($i%2==0)?' class="even" ':' class="odd" ';
            $ret.="<tr $class> ";
            if (trim(${'qc_'.$i})!="")
            {
                $oqc=new Fiche($this->db);
                $oqc->get_by_qcode(${'qc_'.$i}, false);
                $strPoste=$oqc->get_attribute(ATTR_DEF_ACCOUNT);
                $ret.="<td>".
                        ${'qc_'.$i}.' - '.
                        $oqc->get_attribute(ATTR_DEF_NAME).HtmlInput::hidden('qc_'.$i,
                                ${'qc_'.$i}).
                        '</td>';
            }
 
            if (trim(${'qc_'.$i})==""&&trim(${'poste'.$i})!="")
            {
                $oposte=new Acc_Account_Ledger($this->db, ${'poste'.$i});
                $strPoste=$oposte->id;
                $ret.="<td>".h(${"poste".$i}." - ".
                                $oposte->get_name()).HtmlInput::hidden('poste'.$i,
                                ${'poste'.$i}).
                        '</td>';
            }
 
            if (trim(${'qc_'.$i})==""&&trim(${'poste'.$i})=="")
                continue;
            $ret.="<td>".h(${"ld".$i}).HtmlInput::hidden('ld'.$i, ${'ld'.$i});
            $ret.=(isset(${"ck$i"}))?HtmlInput::hidden('ck'.$i, ${'ck'.$i}):"";
            $ret.="</td>";
            if (isset(${"ck$i"}))
            {
                $ret.="<td class=\"num\">".nbm(${"amount".$i}).HtmlInput::hidden('amount'.$i,
                                ${'amount'.$i})."</td>".td("");
                $total_deb=bcadd($total_deb, ${'amount'.$i});
            }
            else
            {
                $ret.=td("")."<td class=\"num\">".nbm(${"amount".$i}).HtmlInput::hidden('amount'.$i,
                                ${'amount'.$i})."</td>";
                $total_cred=bcadd($total_cred, ${"amount".$i});
            }
            // CA
            if ($g_parameter->MY_ANALYTIC!='nu') // use of AA
            {
                if ($g_parameter->match_analytic( $strPoste)==TRUE)
                {
                    // show form
                    $op=new Anc_Operation($this->db);
                    $null=($g_parameter->MY_ANALYTIC=='op')?1:0;
                    $p_array['pa_id']=$a_anc;
                    /* op is the operation it contains either a sequence or a jrnx.j_id */
                    $ret.=HtmlInput::hidden('op[]=', $i);
 
                    $ret.='<td style="text-align:center">';
                    $read=($p_readonly==true)?0:1;
                    $ret.=$op->display_form_plan($p_array, $null, $read, $count,
                            round(${'amount'.$i}, 2));
                    $ret.='</td>';
                    $count++;
                }
            }
 
 
 
            $ret.="</tr>";
        }
        $http->set_array($p_array);
        $currency_code=$http->extract("p_currency_code","number");
        $currency_rate=$http->extract("p_currency_rate","number");
        $currency=new Acc_Currency($this->db,$currency_code);
        $msg_currency= ($currency_code != 0 )?sprintf(_("Totaux %s (%s)"),$currency->get_code(),$currency_rate):_("Totaux");
        
        $ret.=tr(td('').td($msg_currency).td($total_deb, 'class="num"').td($total_cred,
                        'class="num"'), 'class="highlight"');
        // Currency
        if ( $currency_code != 0)
        {
            $currency_rate=$http->extract("p_currency_rate","number");
            $default_currency=new Acc_Currency($this->db,0);
 
            $ret.=tr(td('').
                    td(_('Totaux')." ".$default_currency->get_code()).
                    td(bcdiv($total_deb,$currency_rate), 'class="num"').
                    td(bcdiv($total_cred,$currency_rate), 'class="num"'),
                    'class="highlight"');
        }
        
        $ret.="</table>";
        if ($g_parameter->MY_ANALYTIC!='nu'&&$p_readonly==false) {
            $ret.='<input type="button" class="button" value="'._('verifie Imputation Analytique').
        '" onClick="verify_ca(\'\');">';
            
        }
        return $ret;
    }

References $anc, $class, $count, $currency, $date_limit, $default_currency, $desc, $e_date, $g_parameter, $g_user, $http, $i, $msg, $op, $p_array, $p_readonly, $ret, $span, $x, _, ATTR_DEF_ACCOUNT, ATTR_DEF_NAME, check_periode(), db, display_warning(), get_type(), guess_pj(), h, Anc_Plan\hidden(), nbm(), td(), tr(), UPDRECEIPT, verify_operation(), warn_manual_receipt(), and with_concerned.

Referenced by input().

Here is the call graph for this function:

convert_from_follow()

Acc_Ledger::convert_from_follow	(		$p_ag_id,
			$copy_description = 0 )

convert operations from FOLLOWUP into a SALE , FEENOTE or PURCHASE operation into a suitable array

Parameters

$p_ag_id	int PK of ACTION_GESTION
$copy_description	int 0 the description of the followup is not copied in the note , 1 is copied

Returns

array|void|null

Exceptions

Exception

Definition at line 3277 of file acc_ledger.class.php.

    {
        global $g_user;
        if (isNumber($p_ag_id)==0)
            return null;
        if (!$g_user->can_read_action($p_ag_id))
            die(_('Action non accessible'));
        $array=array();
 
        // retrieve info from action_gestion
        $tiers_id=$this->db->get_value('select f_id_dest from action_gestion where ag_id=$1',
                array($p_ag_id));
        if ($this->db->size()!=0)
            $qcode=$this->db->get_value('select j_qcode from vw_poste_qcode where f_id=$1',
                    array($tiers_id));
        else
            $qcode="";
 
        $comment=$this->db->get_value('select ag_title from action_gestion where ag_id=$1',
                array($p_ag_id));
        $array['e_client']=$qcode;
        $array['e_comm']=$comment;
 
        // retrieve info from action_detail
        $a_item=$this->db->get_array('select f_id,ad_text,ad_pu,ad_quant,ad_tva_id,ad_tva_amount,j_qcode 
                    from 
                  action_detail 
                  left join vw_poste_qcode using(f_id)
                  where
                    ag_id=$1', array($p_ag_id));
 
        $array['nb_item']=($this->nb>count($a_item))?$this->nb:count($a_item);
        for ($i=0; $i<count($a_item); $i++)
        {
            $array['e_march'.$i]=$a_item[$i]['j_qcode'];
            $array['e_march'.$i.'_label']=$a_item[$i]['ad_text'];
            $array['e_march'.$i.'_price']=$a_item[$i]['ad_pu'];
            $array['e_march'.$i.'_tva_id']=$a_item[$i]['ad_tva_id'];
            $array['e_march'.$i.'_tva_amount']=$a_item[$i]['ad_tva_amount'];
            $array['e_quant'.$i]=$a_item[$i]['ad_quant'];
        }
        if ( $copy_description == 1) {
            $acomment=$this->db->get_array("SELECT agc_id, ag_id, to_char(agc_date,'DD.MM.YYYY HH24:MI') as str_agc_date, agc_comment, agc_comment_raw,tech_user
                                 FROM action_gestion_comment where ag_id=$1 order by agc_id", array($p_ag_id)
            );
            if (count ($acomment) > 0)
                $array['jrn_note_input']=$acomment[0]['agc_comment'];
        }
        return $array;
    }

References $array, $g_user, $i, $qcode, _, db, isNumber(), and nb().

Here is the call graph for this function:

create_document()

Acc_Ledger::create_document	(		$internal,
			$p_array )

alias for Acc_Document->create_document

Parameters

$internal	is the internal code
$p_array	is normally the $_POST

See also

Acc_Document\create_document

Returns

html string

Definition at line 1983 of file acc_ledger.class.php.

    {
        $id=$this->db->get_value('select jr_id from jrn where jr_internal=$1',
                [$internal]);
        if ( $id == "") {
            return;
        }
        $acc_document=new Acc_Document($this->db,$id);
        $acc_document->create_document($internal,$p_array);
        return h($acc_document->d_name.' ('.$acc_document->d_filename.')');
    }

References from, jr_id, and jrn.

Referenced by Acc_Ledger_Purchase\insert().

CurrencyInput()

Acc_Ledger::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.

Parameters

string	DOMID $p_currency_code
string	DOMID $p_currency_rate
string	DOMID $p_eur_amount

Definition at line 3495 of file acc_ledger.class.php.

    {
        $type=$this->get_type();
        $currency=new Acc_Currency($this->db);
        $select=$currency->select_currency();
        if ($type =='ODS')
        {
            
            $select->javascript=sprintf('onchange="LedgerCurrencyUpdateMisc(\'%s\',\'%s\',\'%s\',\'%s\',\'%s\');'.
                    '$(\'update_p_currency_rate\').innerHTML=$(\'p_currency_rate\').value;"',
                    Dossier::id(), $select->name, $p_currency_code, $p_currency_rate, $p_eur_amount);
        }
        elseif ($type == 'ACH' || $type == 'VEN')
        {
            
            $select->javascript=sprintf('onchange="LedgerCurrencyUpdate(\'%s\',\'%s\',\'%s\',\'%s\',\'%s\');'.
                    '$(\'update_p_currency_rate\').innerHTML=$(\'p_currency_rate\').value;"',
                    Dossier::id(), $select->name, $p_currency_code, $p_currency_rate, $p_eur_amount);
        }
        else
        {
            throw new Exception(_("Journal type non déterminé"));
        }
        return $select;
    }

References $currency, $select, $type, _, db, elseif, and get_type().

Referenced by input(), Acc_Ledger_Purchase\input(), and Acc_Ledger_Sale\input().

Here is the call graph for this function:

delete()

Acc_Ledger::delete

(

)

let you delete a operation

Note

by cascade it will delete also in

• jrnx
• stock
• quant_purchase
• quant_fin
• quant_sold
• operation_analytique
• letter
• reconciliation

Bug

the attached document is not deleted

Normally it should be named delete_operation, cause the id is the ledger_id (jrn_def_id) and not the operation id

Definition at line 198 of file acc_ledger.class.php.

    {
        if ($this->id==0)
        {
            return;
        }
        $grpt_id=$this->db->get_value('select jr_grpt_id from jrn where jr_id=$1',
                array($this->jr_id));
        if ($this->db->count()==0)
        {
            return;
        }
        $this->db->exec_sql('delete from jrnx where j_grpt=$1', array($grpt_id));
        $this->db->exec_sql('delete from jrn where jr_id=$1',
                array($this->jr_id));
 
    }

References db, and jr_id.

delete_ledger()

Acc_Ledger::delete_ledger

(

)

delete a ledger IF it doesn't contain anything

Exceptions

cannot delete

Definition at line 3148 of file acc_ledger.class.php.

    {
        try
        {
            if ($this->db->get_value("select count(jr_id) from jrn where jr_def_id=$1",
                            array($this->jrn_def_id))>0)
                throw new Exception(_("Impossible d'effacer un journal qui contient des opérations"));
            parent::delete();
        }
        catch (Exception $e)
        {
              record_log($e);
            throw $e;
        }
    }

References $e, _, db, and record_log().

Here is the call graph for this function:

display_additional_tax()

Acc_Ledger::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

Definition at line 3612 of file acc_ledger.class.php.

    {
        $row=$this->cn->get_row("select ac_id,ac_label,ac_rate from acc_other_tax where ac_id=$1",
            [$p_additional_tax]);
        $label=h($row['ac_label']);
        $title=_("Autre taxe");
        $p_amount=h($p_amount);
        $out=<<<EOF
<div id="additional_tax">
    <h2 class="h3">{$title}</h2>
   {$label} {$row['ac_rate']}%: $p_amount
</div>
 
EOF;
        return $out;
    }

References $label, $out, $row, $title, _, cn, h, and h2().

Here is the call graph for this function:

display_ledger()

Acc_Ledger::display_ledger

(

)

display detail of a ledger

Definition at line 2626 of file acc_ledger.class.php.

    {
        if ($this->load()==false)
        {
            throw new Exception(_("Journal n'existe pas"), -1);
        }
        $type=$this->jrn_def_type;
        $name=$this->jrn_def_name;
        $code=$this->jrn_def_code;
        $str_add_button="";
        /* widget for searching an account */
        $wSearch=new IPoste();
        $wSearch->set_attribute('ipopup', 'ipop_account');
        $wSearch->set_attribute('account', 'p_jrn_class_deb');
        $wSearch->set_attribute('no_overwrite', '1');
        $wSearch->set_attribute('noquery', '1');
        $wSearch->table=3;
        $wSearch->name="p_jrn_class_deb";
        $wSearch->size=20;
        $wSearch->value=$this->jrn_def_class_deb;
        $search=$wSearch->input();
 
        $wPjPref=new IText();
        $wPjPref->name='jrn_def_pj_pref';
        $wPjPref->value=$this->jrn_def_pj_pref;
        $pj_pref=$wPjPref->input();
 
        $wPjSeq=new INum();
        $wPjSeq->value=0;
        $wPjSeq->name='jrn_def_pj_seq';
        $pj_seq=$wPjSeq->input();
        $last_seq=$this->get_last_pj();
        $name=$this->jrn_def_name;
 
        $hidden=HtmlInput::hidden('p_jrn', $this->id);
        $hidden.=HtmlInput::hidden('sa', 'detail');
        $hidden.=dossier::hidden();
        $hidden.=HtmlInput::hidden('p_jrn_deb_max_line', 10);
        $hidden.=HtmlInput::hidden('p_ech_lib', 'echeance');
        $hidden.=HtmlInput::hidden('p_jrn_type', $type);
 
        $min_row=new INum("min_row", $this->jrn_deb_max_line);
        $min_row->prec=0;
 
        $description=new ITextarea('p_description');
        $description->style='class="itextarea" style="margin:0px;"';
        $description->value=$this->jrn_def_description;
        $str_description=$description->input();
 
        /* Load the card */
        $card=$this->get_fiche_def();
        $rdeb=noalyss_explode(',', $card['deb']);
        $rcred=noalyss_explode(',', $card['cred']);
        /* Numbering (only FIN) */
        $num_op=new ICheckBox('numb_operation');
        if ($this->jrn_def_num_op==1)
            $num_op->selected=true;
        /* bank card */
        $qcode_bank='';
        if ($type=='FIN')
        {
            $f_id=$this->jrn_def_bank;
            if (isNumber($f_id)==1)
            {
                $fBank=new Fiche($this->db, $f_id);
                $qcode_bank=$fBank->get_quick_code();
            }
        }
        $new=0;
        $cn=$this->db;
        echo $hidden;
        $actif=new ISelect("jrn_enable");
        $actif->value=[
            ["label"=>_("Activé"),"value"=>1],
            ["label"=>_("Désactivé"),"value"=>0]
        ];
        $actif->selected=$this->jrn_enable;
 
        // -- default currency used : only for financial ledgers
        $default_currency=$this->select_default_currency();
 
        $negative=new InputSwitch('negative_amount',$this->jrn_def_negative_amount);
        $negative_warning=new IText("negative_warning",_($this->jrn_def_negative_warning));
        $negative_warning->size=55;
 
        // use of quantity in ledger
        $quantity=new InputSwitch('p_jrn_quantity',$this->jrn_def_quantity);
 
        // padding
        $padding = new \INum ('p_jrn_padding',$this->jrn_def_pj_padding);
        require_once NOALYSS_TEMPLATE.'/param_jrn.php';
    }

References $card, $cn, $code, $db, $default_currency, $description, $f_id, $hidden, $jrn_def_description, $jrn_def_name, $jrn_def_pj_pref, $jrn_def_type, $jrn_enable, $name, $new, $pj_seq, $search, $type, _, db, get_fiche_def(), get_last_pj(), isNumber(), noalyss_explode(), and select_default_currency().

Here is the call graph for this function:

display_negative_warning()

Acc_Ledger::display_negative_warning

(

$p_amount

)

If the amount is positive and the ledger expects a negative amount, il will return the saved warning.

Parameters

int

$p_amount

amount to check

Exceptions

Exception

1 if invalid ledger

Definition at line 3538 of file acc_ledger.class.php.

    {
        if ($this->id == 0) {
            throw new Exception(_("Journal invalide"), 1);
        }
        $ledger=new Jrn_def_SQL($this->db,$this->id);
        if ( $p_amount > 0 && $ledger->getp("jrn_def_negative_amount")==1){
            return _($ledger->getp("jrn_def_negative_warning"));
        }
        return "";
    }

References $ledger, _, and db.

Referenced by Acc_Ledger_Purchase\confirm(), and Acc_Ledger_Sale\confirm().

display_warning()

Acc_Ledger::display_warning	(		$pa_msg,
			$p_warning )

Display warning contained in an array.

Returns

string with error message

Definition at line 220 of file acc_ledger.class.php.

    {
        $str='<p class="notice"> '.$p_warning;
        $str.="<ol class=\"notice\">";
        for ($i=0; $i<count($pa_msg); $i++)
        {
            $str.="<li>".$pa_msg[$i]."</li>";
        }
        $str.='</ol>';
        $str.='</p>';
        return $str;
    }

References $i, and $str.

Referenced by confirm().

existing_vat()

Acc_Ledger::existing_vat

(

)

return the used VAT code with a rate > 0

Returns

Anc_Plan array of tva_id,tva_label,tva_poste

Definition at line 2109 of file acc_ledger.class.php.

    {
        $array=[];
        if ($this->get_type()=='ACH')
        {
            $array=$this->db->get_array("select tva_id,tva_label,tva_poste 
                    from tva_rate 
                    where tva_rate != 0.0000 
                         and  exists (select qp_vat_code from quant_purchase
                                        where  
                                        qp_vat_code=tva_id 
                                        and  exists (select j_id 
                                            from jrnx where j_jrn_def = $1)) 
                    order by tva_id",
                    array($this->id));
        }
        if ($this->get_type()=='VEN')
        {
            $array=$this->db->get_array("select tva_id,tva_label,tva_poste 
                    from tva_rate 
                    where tva_rate != 0.0000 
                          and  exists (select qs_vat_code from quant_sold
                                        where  qs_vat_code=tva_id 
                                            and  
                                                exists (select j_id from jrnx where j_jrn_def = $1)) 
                    order by tva_id",
                    array($this->id));
        }
        return $array;
    }

References $array, db, and get_type().

Here is the call graph for this function:

find_label()

Acc_Ledger::find_label ( $p_value )

protected

Retrieve the label of an accounting.

Parameters

$p_value

tmp_pcmn.pcm_val

Returns

string

Definition at line 3333 of file acc_ledger.class.php.

    {
        $lib=$this->db->get_value('select pcm_lib from tmp_pcmn where pcm_val=$1',
                array($p_value));
        return $lib;
    }

References db.

Referenced by Acc_Ledger_Purchase\insert_no_deductible().

get_all_fiche_def()

Acc_Ledger::get_all_fiche_def

(

)

retrieve all the card for this type of ledger, make them into a string separated by comma

Returns

all the card or null is nothing is found

Definition at line 1828 of file acc_ledger.class.php.

    {
        $sql="select jrn_def_fiche_deb as deb,jrn_def_fiche_cred as cred ".
                " from jrn_def where ".
                " jrn_def_id = $1 ";
 
        $r=$this->db->exec_sql($sql, array($this->id));
 
        $res=Database::fetch_all($r);
        if (empty($res))
            return null;
        $card="";
        $comma='';
        foreach ($res as $item)
        {
            if (noalyss_strlentrim($item['deb'])!=0)
            {
                $card.=$comma.$item['deb'];
                $comma=',';
            }
            if (strlen(noalyss_trim($item['cred']))!=0)
            {
                $card.=$comma.$item['cred'];
                $comma=',';
            }
        }
 
        return $card;
    }

References from, and jrn_def_id.

get_class_def()

Acc_Ledger::get_class_def

(

)

retrieve the jrn_def_class_deb and return it

Returns

return an string

Definition at line 675 of file acc_ledger.class.php.

    {
        $sql="select jrn_def_class_deb  ".
                " from jrn_def where ".
                " jrn_def_id = $1";
 
        $r=$this->db->exec_sql($sql, array($this->id));
 
        $res=Database::fetch_all($r);
 
        if (empty($res))
            return null;
 
        return $res[0];
    }

References $r, $res, $sql, db, and DatabaseCore\fetch_all().

Here is the call graph for this function:

get_currency()

Acc_Ledger::get_currency

(

)

returns the code iso of the default currency for this ledger

Definition at line 3524 of file acc_ledger.class.php.

    {
        $cr=new Acc_Currency($this->db,$this->currency_id);
        if ( $cr->get_id() < 0 ) {
            throw new Exception("ACL.3214"._("Taux invalide"));
        }
        return $cr;
    }

References _, and db.

Referenced by Acc_Ledger_Fin\confirm().

get_customer_late()

Acc_Ledger::get_customer_late

(

)

get info from customer not yet paid

Definition at line 3262 of file acc_ledger.class.php.

    {
        $array=$this->get_operation_date(Date('d.m.Y'), 'VEN', '<');
        return $array;
    }

References $array, and get_operation_date().

Here is the call graph for this function:

get_customer_now()

Acc_Ledger::get_customer_now

(

)

get info from customer to pay today

Definition at line 3253 of file acc_ledger.class.php.

    {
        $array=$this->get_operation_date(Date('d.m.Y'), 'VEN', '=');
        return $array;
    }

References $array, and get_operation_date().

Here is the call graph for this function:

get_default_card()

Acc_Ledger::get_default_card	(		$p_ledger_type,
			$p_side )

Return an array of default card for the ledger type given.

Parameters

$p_ledger_type	VEN ACH ODS or FIN
$p_side	D for Debit or C for credit or NA No Applicable

Definition at line 1749 of file acc_ledger.class.php.

    {
        $array=array();
        $fiche_def_ref=new Fiche_Def_Ref($this->db);
        // ----- for FINANCIAL  ----
        if ($p_ledger_type=='FIN')
        {
            $array=$fiche_def_ref->get_by_modele(FICHE_TYPE_CLIENT);
            $array=array_merge($array,
                    $fiche_def_ref->get_by_modele(FICHE_TYPE_FOURNISSEUR));
            $array=array_merge($array,
                    $fiche_def_ref->get_by_modele(FICHE_TYPE_FIN));
            $array=array_merge($array,
                    $fiche_def_ref->get_by_modele(FICHE_TYPE_ADM_TAX));
            $array=array_merge($array,
                    $fiche_def_ref->get_by_modele(FICHE_TYPE_EMPL));
        }
        // --- for miscellaneous ----
        if ($p_ledger_type=='ODS')
        {
            $result=$this->db->get_array('select fd_id from fiche_def');
            for ($i=0; $i<count($result); $i++)
            {
                $array[$i]=$result[$i]['fd_id'];
            }
        }
        if ($p_side=='D')
        {
            switch ($p_ledger_type)
            {
                case 'VEN':
                    $array=$fiche_def_ref->get_by_modele(FICHE_TYPE_CLIENT);
                    break;
                case 'ACH':
                    $array=$fiche_def_ref->get_by_modele(FICHE_TYPE_ACH_SER);
                    $array=array_merge($array,
                            $fiche_def_ref->get_by_modele(FICHE_TYPE_ACH_MAR));
                    $array=array_merge($array,
                            $fiche_def_ref->get_by_modele(FICHE_TYPE_ACH_MAT));
                    break;
                default :
                    throw new Exception(_('get_default_card p_ledger_side is invalide ['.$p_ledger_type.']'));
            }
        }
        elseif ($p_side=='C')
        {
            switch ($p_ledger_type)
            {
                case 'VEN':
                    $array=$fiche_def_ref->get_by_modele(FICHE_TYPE_VENTE);
                    break;
                case 'ACH':
                    $array=array_merge($array,
                            $fiche_def_ref->get_by_modele(FICHE_TYPE_ADM_TAX));
                    $array=array_merge($array,
                            $fiche_def_ref->get_by_modele(FICHE_TYPE_FOURNISSEUR));
                    break;
                default :
                    throw new Exception(_('get_default_card p_ledger_side is invalide ['.$p_ledger_type.']'));
            }
        }
        return $array;
        /*
          $return=array();
          $return = array_values($array);
          for ($i = 0;$i<count($array);$i++ )
          {
          $return[$i]=$array[$i]['fd_id'];
          }
          return $return;
         * 
         */
    }

Referenced by input_new().

get_fiche_def()

Acc_Ledger::get_fiche_def

(

)

retrieve the jrn_def_fiche and return them into a array index deb, cred

Parameters

param

Parameters

return return an array ('deb'=> ,'cred'=>)

Definition at line 654 of file acc_ledger.class.php.

    {
        $sql="select jrn_def_fiche_deb as deb,jrn_def_fiche_cred as cred ".
                " from jrn_def where ".
                " jrn_def_id = $1 ";
 
        $r=$this->db->exec_sql($sql, array($this->id));
 
        $res=Database::fetch_all($r);
        if ($res==FALSE || empty($res))
            return null;
 
        return $res[0];
    }

References $r, $res, $sql, db, and DatabaseCore\fetch_all().

Referenced by display_ledger().

Here is the call graph for this function:

get_first()

Acc_Ledger::get_first	(		$p_type,
			$p_access = 3 )

get the first ledger

Parameters

type

Returns

the j_id or null if no user available

Definition at line 1699 of file acc_ledger.class.php.

    {
        global $g_user;
        $all=$g_user->get_ledger($p_type, $p_access,false);
        if (empty ($all)) return NULL;
        return $all[0];
    }

get_id()

Acc_Ledger::get_id

(

$p_internal

)

retrieve the jr_id thanks the internal code, do not change anything to the current object

Parameters

internal

code

Returns

the jr_id or 0 if not found

Definition at line 1967 of file acc_ledger.class.php.

    {
        $sql='select jr_id from jrn where jr_internal=$1';
        $value=$this->db->get_value($sql, array($p_internal));
        if ($value=='')
            $value=0;
        return $value;
    }

References from, jr_id, and jrn.

Referenced by Acc_Ledger_Purchase\insert(), and Acc_Ledger_Sale\insert().

get_is_loaded()

Acc_Ledger::get_is_loaded

(

)

Definition at line 90 of file acc_ledger.class.php.

    {
        return $this->is_loaded;
    }

References $is_loaded.

Referenced by Acc_Ledger_Fin\confirm(), and Acc_Ledger_Fin\insert().

get_last()

Acc_Ledger::get_last

(

$p_limit

)

return the last p_limit operation into an array

Parameters

$p_limit

is the max of operation to return

Returns

$p_array of Follow_Up object

Definition at line 2049 of file acc_ledger.class.php.

    {
        global $g_user;
        $filter_ledger=$g_user->get_ledger_sql('ALL', 3);
        $filter_ledger=noalyss_str_replace('jrn_def_id', 'jr_def_id', $filter_ledger);
        $sql="
                        select jr_id,jr_pj_number,jr_date,to_char(jr_date,'DD.MM.YYYY') as jr_date_fmt,jr_montant, jr_comment,jr_internal,jrn_def_code
                        from jrn
                        join jrn_def on (jrn_def_id=jr_def_id)
                         where $filter_ledger
                        order by jr_date desc , substring(jr_pj_number,'[0-9]+$')::numeric desc limit $p_limit";
        $array=$this->db->get_array($sql);
        return $array;
    }

References ALL, and jrn_def_id.

get_last_date()

Acc_Ledger::get_last_date

(

)

get the date of the last operation

Definition at line 1952 of file acc_ledger.class.php.

    {
        if ($this->id==0)
            throw new Exception(__FILE__.":".__LINE__."Journal incorrect ");
        $sql="select to_char(max(jr_date),'DD.MM.YYYY') from jrn where jr_def_id=$1";
        $date=$this->db->get_value($sql, array($this->id));
        return $date;
    }

Referenced by Acc_Ledger_Fin\verify_operation(), Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

get_last_pj()

Acc_Ledger::get_last_pj

(

)

returns the sequence number of the receipt for the current ledger or create the sequence if it doesn't exist

Returns

int

Exceptions

Exception

if the ledger doesn't exist

Note

With PSQL sequence , the last_value column is 1 when before AND after the first call, to make the difference between them I have to check whether the sequence has been already called or not

Definition at line 118 of file acc_ledger.class.php.

    {
        if (isNumber($this->id)==0)
        {
            throw new Exception(_("Paramètre invalide"));
        }
        if ($this->db->exist_sequence("s_jrn_pj".$this->id))
        {
            $ret=$this->db->get_array("select last_value,is_called from s_jrn_pj".$this->id);
            $last=$ret[0]['last_value'];
            /**
             * \note  With PSQL sequence , the last_value column is 1 when before   AND after the first call, 
             * to make the difference between them
             * I have to check whether the sequence has been already called or not */
            if ($ret[0]['is_called']=='f')
                $last--;
            return $last;
        }
        else
        {
            $this->db->create_sequence("s_jrn_pj".$this->id);
        }
        return 0;
    }

References $last, $ret, _, db, and isNumber().

Referenced by display_ledger(), and guess_pj().

Here is the call graph for this function:

get_ledger_id()

Acc_Ledger::get_ledger_id

(

)

Set the jrn_def.jrn_def_id.

Returns

integer

Definition at line 155 of file acc_ledger.class.php.

    {
        return $this->id;
    }

References $id.

get_min_row()

Acc_Ledger::get_min_row

(

)

Definition at line 895 of file acc_ledger.class.php.

    {
        $row=$this->db->get_value("select jrn_deb_max_line from jrn_def where jrn_def_id=$1",
                array($this->id));
        return $row;
    }

References $row, and db.

Referenced by input(), Acc_Ledger_Fin\input(), Acc_Ledger_Purchase\input(), and Acc_Ledger_Sale\input().

get_name()

Acc_Ledger::get_name

(

)

Return the name of a ledger.

Definition at line 509 of file acc_ledger.class.php.

    {
        if ($this->id==0)
        {
            $this->ledger_name=_("Grand Livre");
            return $this->ledger_name;
        }
 
        $Res=$this->db->exec_sql("select jrn_def_name from ".
                " jrn_def where jrn_def_id=$1", array($this->id));
        $Max=Database::num_row($Res);
        if ($Max==0)
        {
            return null;
        }
        $ret=Database::fetch_array($Res, 0);
        $this->ledger_name=$ret['jrn_def_name'];
        return $ret['jrn_def_name'];
    }

References $ledger_name, $Max, $Res, $ret, _, db, DatabaseCore\fetch_array(), and DatabaseCore\num_row().

Referenced by Acc_Ledger_Fin\confirm(), Acc_Ledger_Purchase\confirm(), Acc_Ledger_Sale\confirm(), and Acc_Ledger_Fin\input().

Here is the call graph for this function:

get_operation()

Acc_Ledger::get_operation	(		$p_from,
			$p_to )

retrieve operation from jrn

Parameters

$p_from	periode (id)
$p_to	periode (id)

Definition at line 2086 of file acc_ledger.class.php.

    {
        global $g_user;
        $jrn=($this->id==0)?'and '.$g_user->get_ledger_sql():' and jr_def_id = '.$this->id;
        $sql="select jr_id as id ,jr_internal as internal, ".
                "jr_pj_number as pj,jr_grpt_id,".
                " to_char(jr_date,'DDMMYY') as date_fmt, ".
                " jr_comment as comment, jr_montant as montant ,".
                " jr_grpt_id,jr_def_id,jrn.currency_id,currency_rate,currency_rate_ref,cr_code_iso ".
                " from jrn join jrn_def on (jr_def_id=jrn_def_id) ".
                " left join currency on (currency.id=jrn.currency_id) ".
                " where  ".
                " jr_date >= (select p_start from parm_periode where p_id = $1)
                                 and  jr_date <= (select p_end from parm_periode where p_id  = $2)".
                '  '.$jrn.' order by jr_date,substring(jr_pj_number,\'[0-9]+$\')::numeric asc';
        $ret=$this->db->get_array($sql, array($p_from, $p_to));
        return $ret;
    }

References $ret, $sql, and db.

get_operation_date()

Acc_Ledger::get_operation_date	(		$p_date,
			$p_ledger_type,
			$sql_op )

Get operation from the ledger type before, after or with the given date .

The array is filtered by the ledgers granted to the user @global type $g_user

Parameters

	$p_date	Date (d.m.Y)
	$p_ledger_type	VEN ACH
type	$sql_op	< > or =

Returns

array from jrn (jr_id, jr_internal, jr_date, jr_comment,jr_pj_number,jr_montant)

Exceptions

Exception

Definition at line 3175 of file acc_ledger.class.php.

    {
        global $g_user;
        switch ($p_ledger_type)
        {
            case 'ACH':
                $filter=$g_user->get_ledger_sql('ACH', 3);
                break;
            case 'VEN':
                $filter=$g_user->get_ledger_sql('VEN', 3);
                break;
            default:
                throw new Exception('Ledger_type invalid : '.$p_ledger_type);
        }
        if ( ! in_array($sql_op ,array('>','<','=','>=','<='))) {
            throw new \Exception ("AC3162 : invalid \$sql_op = [$sql_op]");
        }
 
        $sql="select jr_id, jr_internal, jr_date, jr_comment,jr_pj_number,jr_montant,jr_ech
                                from jrn
                                join jrn_def on (jrn_def_id=jr_def_id)
                                where
                                jr_ech is not null
                                and jr_ech $sql_op to_date($1,'DD.MM.YYYY')
                                and coalesce (jr_rapt,'xx') <> 'paid'
                                and $filter
                order by jr_date
                                ";
        $array=$this->db->get_array($sql, array($p_date));
        return $array;
    }

References $array, $filter, $g_user, $p_date, $sql, and db.

Referenced by get_customer_late(), get_customer_now(), get_supplier_late(), and get_supplier_now().

get_other_amount()

Acc_Ledger::get_other_amount

(

$p_jr_id

)

get the amount of vat for a given jr_grpt_id from the table quant_purchase

Parameters

the	jr_grpt_id

Returns

array price=htva, [1] = vat,

Note

See also

array
'price' => string '91.3500' (length=7)
'vat' => string '0.0000' (length=6)
'priv' => string '0.0000' (length=6)
'tva_nd_recup' => string '0.0000' (length=6)

Definition at line 2156 of file acc_ledger.class.php.

    {
        if ($this->get_type()=='ACH')
        {
            $array=$this->db->get_array('select sum(qp_price) as price,sum(qp_vat) as vat '.
                    ',sum(coalesce(qp_nd_amount,0)+coalesce(qp_dep_priv,0)) as priv'.
                    ',sum(coalesce(qp_nd_tva_recup,0)+coalesce(qp_nd_tva,0)) as tva_nd'.
                    ',sum(qp_vat_sided)  as tva_np'.
                    '  from quant_purchase join jrnx using(j_id)
                                        where  j_grpt=$1 ', array($p_jr_id));
            $ret=$array[0];
        }
        if ($this->get_type()=='VEN')
        {
            $array=$this->db->get_array('select sum(qs_price) as price,sum(qs_vat) as vat '.
                    ',0 as priv'.
                    ',0 as tva_nd'.
                    ',sum(qs_vat_sided)  as tva_np'.
                    '  from quant_sold join jrnx using(j_id)
                                        where  j_grpt=$1 ', array($p_jr_id));
            $ret=$array[0];
        }
        return $ret;
    }

References $array, $ret, db, and get_type().

Here is the call graph for this function:

get_propertie()

Acc_Ledger::get_propertie

(

)

Get the properties of a journal.

Returns

an array containing properties

Definition at line 559 of file acc_ledger.class.php.

    {
        if ($this->id==0)
            return;
 
        $Res=$this->db->get_row("select *
                                 from jrn_Def
                                 where jrn_def_id=$1", array($this->id));
        if ($Res == NULL)
        {
            echo '<DIV="redcontent"><H2 class="error">'._('Parametres journaux non trouves').'</H2> </DIV>';
            return null;
        }
        return $Res;
    }

References $Res, and db.

Referenced by guess_pj().

get_rowSimple()

Acc_Ledger::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.

Parameters

p_from	periode
p_to	periode
p_limit	starting line
p_offset	number of lines
trunc	if data must be truncated (pdf export)

Returns

an Array with the asked data

Definition at line 3217 of file acc_ledger.class.php.

    {
        if ( empty($pa_ledger) ) {
            $pa_ledger=[$this->id];
        }
        // if $pa_ledger == 0, it means we need to show all ledgers
        if ( $pa_ledger == [0] ) {
            $pa_ledger=Print_Ledger::available_ledger($p_from);
        }
        
        $alh_generic=new Acc_Ledger_History_Generic($this->db, $pa_ledger, $p_from, $p_to, "A");
        $alh_generic->get_rowSimple($trunc,$p_limit,$p_offset);
        $data=$alh_generic->get_data();
        return $data;
    }

References $data, $id, Print_Ledger\available_ledger(), and db.

Here is the call graph for this function:

get_solde()

Acc_Ledger::get_solde	(		$p_from,
			$p_to )

get the saldo of a ledger for a specific period

Parameters

$p_from	start period
$p_to	end period

Definition at line 581 of file acc_ledger.class.php.

    {
        bcscale(4);
        $ledger="";
        if ($this->id!=0)
        {
            $ledger=" and j_jrn_def = ".$this->id;
        }
 
        $periode=sql_filter_per($this->db, $p_from, $p_to, 'p_id', 'j_tech_per');
        $sql='select j_montant as montant,j_debit as deb from jrnx where '
                .$periode.$ledger;
 
        $ret=$this->db->exec_sql($sql);
        $array=Database::fetch_all($ret);
        $deb=0.0;
        $cred=0.0;
        if ( $array==FALSE) $array=[];
        foreach ($array as $line)
        {
 
            if ($line['deb']=='t')
                $deb=bcadd($deb,$line['montant']);
            else
                $cred=bcadd($cred,$line['montant']);
        }
        $response=array($deb, $cred);
        return $response;
    }

References $array, $cred, $deb, $ledger, $line, $periode, $response, $ret, $sql, db, DatabaseCore\fetch_all(), and sql_filter_per().

Here is the call graph for this function:

get_supplier_late()

Acc_Ledger::get_supplier_late

(

)

get info from supplier not yet paid

Definition at line 3244 of file acc_ledger.class.php.

    {
        $array=$this->get_operation_date(Date('d.m.Y'), 'ACH', '<');
        return $array;
    }

References $array, and get_operation_date().

Here is the call graph for this function:

get_supplier_now()

Acc_Ledger::get_supplier_now

(

)

get info from supplier to pay today

Definition at line 3235 of file acc_ledger.class.php.

    {
        $array=$this->get_operation_date(Date('d.m.Y'), 'ACH', '=');
        return $array;
    }

References $array, and get_operation_date().

Here is the call graph for this function:

get_tiers()

Acc_Ledger::get_tiers	(		$p_jrn_type,
			$jr_id )

Retrieve the third : supplier for purchase, customer for sale, bank for fin,.

Parameters

$p_jrn_type	type of the ledger FIN, VEN ACH or ODS
$jr_id	jrn.jr_id

Definition at line 2576 of file acc_ledger.class.php.

    {
        if ($p_jrn_type=='ODS')
            return ' ';
        $tiers=$this->get_tiers_id($p_jrn_type, $jr_id);
        if ($tiers==0)
            return "";
 
        $name=$this->db->get_value('select ad_value from fiche_detail where ad_id=1 and f_id=$1',
                array($tiers));
        $first_name=$this->db->get_value('select ad_value from fiche_detail where ad_id=32 and f_id=$1',
                array($tiers));
        return $name.' '.$first_name;
    }

References $jr_id, $name, $tiers, db, and get_tiers_id().

Here is the call graph for this function:

get_tiers_id()

Acc_Ledger::get_tiers_id	(		$p_jrn_type,
			$jr_id )

Return the f_id of the tiers , called by get_tiers.

Parameters

$p_jrn_type	type of the ledger FIN, VEN ACH or ODS
$jr_id	jrn.jr_id

Definition at line 2547 of file acc_ledger.class.php.

    {
        $tiers=0;
        switch ($p_jrn_type)
        {
            case 'VEN':
                $tiers=$this->db->get_value('select max(qs_client) from quant_sold join jrnx using (j_id) join jrn on (jr_grpt_id=j_grpt) where jrn.jr_id=$1',
                        array($jr_id));
                break;
            case 'ACH':
                $tiers=$this->db->get_value('select max(qp_supplier) from quant_purchase join jrnx using (j_id) join jrn on (jr_grpt_id=j_grpt) where jrn.jr_id=$1',
                        array($jr_id));
 
                break;
            case 'FIN':
                $tiers=$this->db->get_value('select qf_other from quant_fin where jr_id=$1',
                        array($jr_id));
                break;
        }
        if ($this->db->count()==0)
            return 0;
        return $tiers;
    }

References $jr_id, $tiers, and db.

Referenced by get_tiers().

get_type()

Acc_Ledger::get_type

(

)

Return the type of a ledger (ACH,VEN,ODS or FIN) or GL.

Returns

string FIN ODS ACH VEN or GL if id == 0

Definition at line 163 of file acc_ledger.class.php.

    {
        if ($this->id==0)
        {
            $this->ledger_name=_(" Tous les journaux");
            $this->ledger_type="GL";
            return "GL";
        }
 
        $Res=$this->db->exec_sql("select jrn_def_type from ".
                " jrn_def where jrn_def_id=".
                $this->id);
        $Max=Database::num_row($Res);
        if ($Max==0)
            return null;
        $ret=Database::fetch_array($Res, 0);
        $this->ledger_type=$ret['jrn_def_type'];
        return $ret['jrn_def_type'];
    }

References $Max, $Res, $ret, _, db, DatabaseCore\fetch_array(), and DatabaseCore\num_row().

Referenced by confirm(), CurrencyInput(), existing_vat(), Print_Ledger\factory(), get_other_amount(), input(), previous_amount(), previous_other_tax(), and vat_operation().

Here is the call graph for this function:

guess_pj()

Acc_Ledger::guess_pj

(

)

guess what the next pj should be

Definition at line 537 of file acc_ledger.class.php.

    {
        $prop=$this->get_propertie();
        $pj_pref=$prop["jrn_def_pj_pref"];
        $padding=$prop['jrn_def_pj_padding'];
        $pj_seq=$this->get_last_pj()+1;
        return $pj_pref.str_pad($pj_seq,$padding??0,'0',STR_PAD_LEFT);
 
    }

References $pj_seq, $prop, get_last_pj(), and get_propertie().

Referenced by confirm(), input(), Acc_Ledger_Fin\input(), Acc_Ledger_Purchase\input(), and Acc_Ledger_Sale\input().

Here is the call graph for this function:

has_other_tax()

Acc_Ledger::has_other_tax

(

)

returns true if the ledger has an additional tax

Definition at line 3633 of file acc_ledger.class.php.

    {
        $cnt=$this->db->get_value('select count(*) 
            from acc_other_tax 
            where array_position(ajrn_def_id,$1) is not null',[$this->id]);
        if ($cnt == 0 ) return false;
        return true;
 
    }

References $cnt, and db.

Referenced by Acc_Ledger_Purchase\confirm(), Acc_Ledger_Sale\confirm(), input_additional_tax(), Acc_Ledger_Purchase\insert(), and Acc_Ledger_Sale\insert().

has_quantity()

Acc_Ledger::has_quantity

(

)

Check if a ledger is enabled , 1 for yes and 0 if disabled.

Definition at line 3444 of file acc_ledger.class.php.

    {
        return $this->jrn_def_quantity;
    }

References $jrn_def_quantity.

inc_seq_pj()

Acc_Ledger::inc_seq_pj

(

)

increment the sequence for the pj

Definition at line 2036 of file acc_ledger.class.php.

    {
        $sql="select nextval('s_jrn_pj".$this->id."')";
        $this->db->exec_sql($sql);
    }

Referenced by Acc_Ledger_Fin\insert(), Acc_Ledger_Purchase\insert(), and Acc_Ledger_Sale\insert().

input()

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

Show the form to encode your operation.

Parameters

$p_array	if you correct or use a predef operation (default = null)
$p_readonly	1 for readonly 0 for writable (default 0)

Exceptions

if	ledger not found

Returns

a string containing the form

Reimplemented in Acc_Ledger_Fin, Acc_Ledger_Purchase, and Acc_Ledger_Sale.

Definition at line 909 of file acc_ledger.class.php.

    {
        global $g_parameter, $g_user;
        $http=new HttpInput();
        $this->nb=$this->get_min_row();
        if ($p_readonly==1)
            return $this->confirm($p_array);
 
        if ($p_array!=null)
            extract($p_array, EXTR_SKIP);
        $add_js="";
        if ($g_parameter->MY_PJ_SUGGEST !='N')
        {
            $add_js="update_receipt();";
        }
        if ($g_parameter->MY_DATE_SUGGEST=='Y')
        {
            $add_js.='get_last_date();';
        }
        $add_js.='update_row("quick_item");';
        $ret="";
        $add_card=false;
        if ($g_user->check_action(FICADD)==1)
        {
            // Button for adding customer
            $add_card=true;
        }
        $wLedger=$this->select_ledger('ODS', 2,FALSE);
        if ($wLedger==null)
            throw new Exception(_('Pas de journal disponible'));
        $ac=$http->request("ac");
        $wLedger->javascript="onChange='update_name();update_predef(\"ods\",\"t\",\"".$ac."\");$add_js'";
        $label=" Journal ".Icon_Action::infobulle(2);
 
        $ret.="<table>";
        $ret.=tr(td($label).td($wLedger->input()));
 
        // 
        // 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("ODS");
 
        $url=http_build_query(
                array('action'=>'use_opd', 
                    'p_jrn_predef'=>$this->id,
                    'ac'=>$ac,
                    'gDossier'=>dossier::id()));
        echo $op->form_get('do.php?'.$url);
 
        echo '</div>';
        $str_op_template=ob_get_contents();
        ob_end_clean();
        $ret.="<tr>";
        $ret.="<td>"._("Modèle d'opération")."</td>";
        $ret.="<td>".$str_op_template."</td>";
        $ret.="</tr>";
        // Load the javascript
        //
                //$ret.= '<tr ><td colspan="2" style="width:auto">';
        $wDate=new IDate('e_date');
        $wDate->readonly=$p_readonly;
        $e_date=(isset($e_date)&&trim($e_date)!='')?$e_date:'';
        $wDate->value=$e_date;
 
        $ret.=tr(td(_("Date")).td($wDate->input()));
        /* insert periode if needed */
        // Periode
        //--
        if ($this->check_periode()==true)
        {
            $l_user_per=$g_user->get_periode();
            $def=(isset($periode))?$periode:$l_user_per;
 
            $period=new IPeriod("period");
            $period->user=$g_user;
            $period->cn=$this->db;
            $period->value=$def;
            $period->type=OPEN;
            try
            {
                $l_form_per=$period->input();
            }
            catch (Exception $e)
            {
                  record_log($e);
                if ($e->getCode()==1)
                {
                    echo _("Aucune période ouverte");
                    exit();
                }
            }
            $label=Icon_Action::infobulle(3);
            $f_periode=td(_("Période comptable")." $label ").td($l_form_per);
            $ret.=tr($f_periode);
        }
        $wPJ=new IText('e_pj');
        $wPJ->readonly=false;
        $wPJ->size=10;
 
        /* suggest PJ ? */
        $default_pj='';
        if ($g_parameter->MY_PJ_SUGGEST != 'N')
        {
            $default_pj=$this->guess_pj();
        }
        if ( $g_parameter->MY_PJ_SUGGEST=='A' || $g_user->check_action(UPDRECEIPT)==0)
        {
            $wPJ->setReadOnly(true);
            $wPJ->value=$default_pj;
            $wPJ->id="e_pj";
        } else {
            $wPJ->value=(isset($e_pj))?$e_pj:$default_pj;
        }
        $ret.='</tr>';
        $ret.='<tr >';
        $ret.='<td style="width:auto"> '._('Pièce').' </td> ';
        $ret.=td($wPJ->input());
        $ret.='</td>';
        $ret.='</tr>';
        $ret.='<tr>';
        $ret.=td(_('Libellé'));
        $ret.='<td>';
 
        $wDescription=new IText('desc');
        $wDescription->readonly=$p_readonly;
        $wDescription->size = (empty($desc))?60:strlen($desc)+5;
        $wDescription->size = ($wDescription->size<60)?60:$wDescription->size;
        $wDescription->value=(isset($desc))?$desc:'';
        $ret.=$wDescription->input();
        $ret.=Icon_Action::longer("desc",20);
        $ret.='</td>';
        $ret.='</tr>';
        $ret.='<tr>';
        $ret.='<td>';
        $ret.=_("Note").
            Icon_Action::show_note('jrn_note_div');
        $ret.='</td>';
        $ret.='<td> <pre id="jrn_note_td"></pre></td>';
        // 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);
        $ret.=tr(td(_("Devise")).td($currency_select->input().
            $currency_input->change('CurrencyComputeMisc(\'p_currency_rate\',\'p_currency_euro\');')));
        $ret.='</div>';
        $currency=new Acc_Currency($this->db,0);
 
        $ret.='</table>';
 
// note for operation
        $note = (isset($p_array['jrn_note_input'])) ? $p_array['jrn_note_input'] : '';
        ob_start();
        Acc_Operation_Note::input($note);
        $ret.=ob_get_contents();
        ob_end_clean();
 
        $ret.=HtmlInput::hidden('e_pj_suggest', $default_pj);
 
 
         
        $nb_row=(isset($nb_item) )?$nb_item:$this->nb;
 
        $ret.=HtmlInput::hidden('nb_item', $nb_row);
        $ret.=dossier::hidden();
        $ret.=HtmlInput::hidden('jrn_type', $this->get_type());
        $info=Icon_Action::infobulle(0);
        $info_poste=Icon_Action::infobulle(9);
        $ret.='<table id="quick_item" style="width:100%">';
        $ret.='<tr>'.
                '<th style="text-align:left">Quickcode'.$info.'</th>'.
                '<th style="text-align:left">'._('Poste').$info_poste.'</th>'.
                '<th class="visible_gt800 visible_gt1155" style="text-align:left">'._('Libellé').'</th>'.
                '<th style="text-align:left">'._('Montant').'</th>'.
                '<th style="text-align:left">'._('Côté').'</th>'.
                '</tr>';
 
 
        for ($i=0; $i<$nb_row; $i++)
        {
            // Quick Code
            $quick_code=new ICard('qc_'.$i);
            $quick_code->set_dblclick("fill_ipopcard(this);");
            $quick_code->set_attribute('ipopup', 'ipopcard');
 
            // name of the field to update with the name of the card
            $quick_code->set_attribute('label', "ld".$i);
 
            // name of the field to update with the name of the card
            $quick_code->set_attribute('typecard', 'filter');
 
            // Add the callback function to filter the card on the jrn
            $quick_code->set_callback('filter_card');
            $quick_code->set_function('fill_data');
            $quick_code->javascript=sprintf(' onchange="fill_data_onchange(\'%s\');" ',
                    $quick_code->name);
 
            $quick_code->value=(isset(${'qc_'.$i}))?${'qc_'.$i}:"";
            $quick_code->readonly=$p_readonly;
            $label='';
            if ($quick_code->value!='')
            {
                $Fiche=new Fiche($this->db);
                $Fiche->get_by_qcode($quick_code->value);
                $label=$Fiche->get_attribute(ATTR_DEF_NAME);
            }
 
 
            // Account
            $poste=new IPoste();
            $poste->name='poste'.$i;
            $poste->id='poste'.$i;
            $poste->set_attribute('ipopup', 'ipop_account');
            $poste->set_attribute('label', 'ld'.$i);
            $poste->set_attribute('account', 'poste'.$i);
            $poste->set_attribute('dossier', Dossier::id());
 
            $poste->value=(isset(${'poste'.$i}))?${"poste".$i}:''
            ;
            $poste->dbl_click_history();
 
            $poste->readonly=$p_readonly;
 
            if ($poste->value!='')
            {
                $Poste=new Acc_Account($this->db,$poste->value);
                $label=$Poste->get_lib();
            }
 
            // Description of the line
            $line_desc=new IText();
            $line_desc->name='ld'.$i;
            $line_desc->size=30;
            $line_desc->value=(isset(${"ld".$i}))?${"ld".$i}:
                    $label;
 
            // Amount
            $amount=new INum();
            $amount->size=10;
            $amount->name='amount'.$i;
            $amount->value=(isset(${'amount'.$i}))?${"amount".$i}:''
            ;
            $amount->readonly=$p_readonly;
            $amount->javascript='onChange="format_number(this);checkTotalDirect()"';
            // D/C
            $deb=new ICheckBox();
            $deb->name='ck'.$i;
            $deb->selected=(isset(${'ck'.$i}))?true:false;
            $deb->readonly=$p_readonly;
            $deb->javascript='class="debit-credit"  onChange="checkTotalDirect()"';
            $str_add_button=($add_card==true)?$this->add_card("-1",
                            $quick_code->id):"";
            $ret.='<tr>';
            $ret.='<td>'.$quick_code->input().$quick_code->search().$str_add_button.'</td>';
            $ret.='<td>'.$poste->input().
                    '<script> '.
                    'document.getElementById(\'poste'.$i.'\').onblur=function(){'.
                    'if (trim(this.value) !=\'\') '.
                    '{document.getElementById(\'qc_'.$i.'\').value="";}}'.
                    '</script>'.
                    '</td>';
            $ret.='<td class="visible_gt800 visible_gt1155">'.$line_desc->input().'</td>';
            $ret.='<td>'.$amount->input().'</td>';
            $ret.='<td>'.$deb->input()
                    .'<span id="txt'.$deb->id.'"></span>'
                .'</td>';
            $ret.='</tr>';
            // If readonly == 1 then show CA
        }
        $ret.='</table>';
        if (isset($this->with_concerned)&&$this->with_concerned==true)
        {
            $oRapt=new Acc_Reconciliation($this->db);
            $w=$oRapt->widget();
            $w->name='jrn_concerned';
            $w->value=(isset($jrn_concerned))?$jrn_concerned:"";
            $ret.=sprintf(_("Réconciliation/rapprochements : %s"), $w->input());
        }
        $ret.=create_script("$('".$wDate->id."').focus()");
        // for displaying Credit or Debit
        $ret.=create_script("(function(){activate_checkbox_side()})();");
 
        return $ret;
    }

References $ac, $amount, $currency, $db, $deb, $def, $desc, $e, $e_date, $Fiche, $g_parameter, $g_user, $http, $i, $label, $nb, $nb_row, $note, $op, $p_array, $p_readonly, $periode, $poste, $quick_code, $ret, $url, $wDate, $wLedger, _, add_card(), ATTR_DEF_NAME, check_periode(), confirm(), CurrencyInput(), db, exit, FICADD, get_min_row(), get_type(), guess_pj(), Icon_Action\infobulle(), Acc_Operation_Note\input(), Icon_Action\longer(), nb(), OPEN, record_log(), select_ledger(), Icon_Action\show_note(), span(), table, td(), tr(), UPDRECEIPT, and value.

Here is the call graph for this function:

input_additional_tax()

Acc_Ledger::input_additional_tax

(

)

form : display additional tax available for this ledger and value, set 2 values : checkbox if tax applies and value

See also

template/form_ledger_detail.php

Returns

string

Definition at line 3576 of file acc_ledger.class.php.

    {
        $http=new HttpInput();
        if ($this->has_other_tax() == false ) { return "";}
        $amount=new INum("other_tax_amount",0);
        $amount->value=$http->request("other_tax_amount","number",0);
 
        $amount->javascript='onchange="format_number(this,2);refresh_ledger();"';
        $msg=_("Montant");
        $row=$this->cn->get_row("select ac_id,ac_label,ac_rate from acc_other_tax where $1 = any (ajrn_def_id)",
            [$this->id]);
        $checkbox=new ICheckBox("other_tax",$row['ac_id']);
        $checkbox->set_check($http->request("other_tax","number",-1));
        $checkbox->javascript=<<<EOF
onchange='if (! this.checked) {  $("other_tax_amount").value=0;}compute_all_ledger();'
EOF;
 
        $label=h($row['ac_label']);
        $title=_("Autre taxe");
        $out=<<<EOF
 
    <h2 class="h3">{$title}</h2>
    {$checkbox->input()} {$label} {$row['ac_rate']}%: {$msg} {$amount->input()}
EOF;
 
        $out.="<h4>"._("Total opération").
            "<span class=\"mx-4\" id='total_operation_other_tax'>".
            "</span>".
            "</h4>";
        return $out;
    }

References $amount, $checkbox, $http, $label, $msg, $out, $row, $title, _, cn, h, h2(), and has_other_tax().

Referenced by Acc_Ledger_Purchase\input(), and Acc_Ledger_Sale\input().

Here is the call graph for this function:

input_extra_info()

Acc_Ledger::input_extra_info

(

)

Definition at line 3549 of file acc_ledger.class.php.

    {
        require NOALYSS_TEMPLATE."/acc_ledger-input_extra_info.php";
    }

input_new()

Acc_Ledger::input_new

(

)

display FORM to enter parameters to create a new ledger.

Definition at line 2947 of file acc_ledger.class.php.

    {
        global $g_user;
        $http=new HttpInput();
        $retry=$http->post("sa", "string", "");
//            if ( $retry == "add") {
        $default_type=$http->post("p_jrn_type", "string", -1);
        $previous_jrn_def_pj_pref=$http->post("jrn_def_pj_pref", "string", "");
        $previous_p_description=$http->post("p_description", "string", "");
        $previous_p_jrn_name=$http->post('p_jrn_name', "string", '');
        $previous_p_jrn_type=$http->post("p_jrn_type", "string", "");
//            }
        $f_add_button=new ISmallButton('add_card');
        $f_add_button->label=_('Créer une nouvelle fiche');
        $f_add_button->tabindex=-1;
        $f_add_button->set_attribute('jrn', -1);
        $f_add_button->javascript=" select_card_type({type_cat:4,elementId:'bank',p_jrn:-1});";
 
        $str_add_button="";
 
        if ($g_user->check_action(FICADD)==1)
        {
            $str_add_button=$f_add_button->input();
        }
        $wSearch=new IPoste();
        $wSearch->table=3;
        $wSearch->set_attribute('ipopup', 'ipop_account');
        $wSearch->set_attribute('account', 'p_jrn_class_deb');
        $wSearch->set_attribute('no_overwrite', '1');
        $wSearch->set_attribute('noquery', '1');
 
        $wSearch->name="p_jrn_class_deb";
        $wSearch->size=20;
 
        $search=$wSearch->input();
        // default for ACH
        $default_deb_purchase=$this->get_default_card('ACH', 'D');
        $default_cred_purchase=$this->get_default_card('ACH', 'C');
 
        // default for VEN
        $default_deb_sale=$this->get_default_card('VEN', 'D');
        $default_cred_sale=$this->get_default_card('VEN', 'C');
 
        // default for FIN
        $default_fin=$this->get_default_card("FIN", "");
 
        //default ods
        $default_ods=$this->get_default_card("ODS", "");
 
        /* construct all the hidden */
        $hidden=HtmlInput::hidden('p_jrn', -1);
        $hidden.=HtmlInput::hidden('p_action', 'jrn');
        $hidden.=HtmlInput::hidden('sa', 'add');
        $hidden.=dossier::hidden();
        $hidden.=HtmlInput::hidden('p_jrn_deb_max_line', 10);
        $hidden.=HtmlInput::hidden('p_ech_lib', 'echeance');
 
        /* properties of the ledger */
        $name=$previous_p_jrn_name;
        $code="";
        $wType=new ISelect();
        $a_jrn=$this->db->make_array("select '-1',' -- "._("choix du type de journal")." -- ' union select jrn_type_id,jrn_desc from jrn_type");
        $wType->selected='-1';
        $wType->value=$a_jrn;
        $wType->name="p_jrn_type";
        $wType->id="p_jrn_type_select_id";
        $wType->javascript=' onchange="show_ledger_div()"';
        $wType->selected=$default_type;
        $type=$wType->input();
        $rcred=$rdeb=array();
        $wPjPref=new IText();
        $wPjPref->name='jrn_def_pj_pref';
        $wPjPref->value=$previous_jrn_def_pj_pref;
        $pj_pref=$wPjPref->input();
        $pj_seq='';
        $last_seq=0;
        $new=1;
        $description=new ITextarea('p_description');
        $description->style='class="itextarea" style="margin:0px;"';
        $description->value=$previous_p_description;
        $str_description=$description->input();
        /* bank card */
        $qcode_bank='';
        /* Numbering (only FIN) */
        $num_op=new ICheckBox('numb_operation');
        echo dossier::hidden();
        echo HtmlInput::hidden('ac', $http->request('ac'));
        echo $hidden;
 
        $cn=$this->db;
        $min_row=new INum("min_row", MAX_ARTICLE);
        $min_row->prec=0;
         // -- default currency used : only for financial ledgers
        $default_currency=$this->select_default_currency();
        
        $negative=new InputSwitch('negative_amount',0);
        $negative_warning=new IText('negative_warning',_("Attention, ce journal doit utiliser des montants négatifs"));
        $negative_warning->size="55";
        // use of quantity in ledger
        $quantity=new InputSwitch('p_jrn_quantity',1);
        $padding = new \INum ('p_jrn_padding',5);
        require_once NOALYSS_TEMPLATE.'/param_jrn.php';
    }

References $cn, $code, $db, $default_currency, $description, $g_user, $hidden, $http, $name, $new, $pj_seq, $search, $type, _, db, FICADD, get_default_card(), MAX_ARTICLE, and select_default_currency().

Here is the call graph for this function:

input_paid()

Acc_Ledger::input_paid	(		$p_selected,
			$p_amount = 0,
			$p_date = "",
			$p_comm = "" )

Create the section payment.

Parameters

int	$p_selected
number	$p_amount
date	$p_date	or empty string
string	$p_comm	or empty comm

Returns

string

Definition at line 2929 of file acc_ledger.class.php.

    {
        $r='';
        $r.='<div id="payment"> ';
        $r.='<h2 class="h-section"> '._('opération de paiement').' </h2>';
        $r.='<p class="text-muted">';
        $r.=_("Opération de paiement crée en plus de cette opération, ne concerne pas la facturation électronique");
        $r.='</p>';
        $mp=new Acc_Payment($this->db);
        $mp->set_parameter('ledger_source', $this->id);
        $r.=$mp->select($p_selected,$p_amount,$p_date,$p_comm);
        $r.='</div>';
        return $r;
    }

References $p_date, $r, _, and db.

input_supplemental_document()

Acc_Ledger::input_supplemental_document ( )

protected

display INPUT type to ask the supplementary documents

Returns

HTML string

Exceptions

Exception 3674 If ledger JRN.JRN_DEF_ID == 0

add suppl.documents

Definition at line 3676 of file acc_ledger.class.php.

    {
        if ( $this->id==0) {
            throw new \Exception ("ACL3674: invalid ledger",3674);
        }
         /**
         * add suppl.documents
         */
        $supplemental_doc=new IFile('document_supplemental[]');
        $supplemental_doc->setAlertOnSize(true);
        $supplemental_doc->set_multiple(true);
        $r="";
        $r.= _("Ajoutez des documents additionnels");
        $r.=$supplemental_doc->input();
        return $r;
    }

References $r, and _.

Referenced by Acc_Ledger_Fin\confirm(), and Acc_Ledger_Sale\extra_info().

is_closed()

Acc_Ledger::is_closed

(

$p_periode

)

check if the current ledger is closed

Returns

1 for yes, otherwise 0

See also

Periode::is_closed

Definition at line 1208 of file acc_ledger.class.php.

    {
        $per=new Periode($this->db);
        $per->set_ledger($this->id);
        $per->set_periode($p_periode);
        $ret=$per->is_closed();
        return $ret;
    }

Referenced by Acc_Ledger_Fin\verify_operation(), Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

is_enable()

Acc_Ledger::is_enable

(

)

Check if a ledger is enabled , 1 for yes and 0 if disabled.

Definition at line 3437 of file acc_ledger.class.php.

    {
       return $this->db->get_value("select jrn_enable from jrn_def where jrn_def_id=$1",[$this->id]); 
    }

References db.

listing()

Acc_Ledger::listing

(

)

listing of all ledgers

Returns

HTML string

Definition at line 2595 of file acc_ledger.class.php.

    {
        $str_dossier=dossier::get();
        $base_url="?".dossier::get()."&ac=".$_REQUEST['ac'];
 
        $r="";
        $r.=_('Cherche')." ".HtmlInput::filter_table("cfgledger_table_id", "0",
                        "1");
        $r.='<TABLE id="cfgledger_table_id" class="vert_mtitle">';
        $r.='<TR><TD class="first"><A HREF="'.$base_url.'&sa=add">'._('Ajout journal').' </A></TD></TR>';
        $ret=$this->db->exec_sql("select distinct jrn_def_id,jrn_def_name,
                       jrn_def_class_deb,jrn_def_class_cred,jrn_def_type
                       from jrn_def order by jrn_def_name");
        $Max=Database::num_row($ret);
 
 
        for ($i=0; $i<$Max; $i++)
        {
            $l_line=Database::fetch_array($ret, $i);
            $url=$base_url."&sa=detail&p_jrn=".$l_line['jrn_def_id'];
            $r.=sprintf('<TR ledger_type="%s"><TD><A HREF="%s">%s</A></TD></TR>', $l_line['jrn_def_type'],$url,
                    h($l_line['jrn_def_name']).' ('.$l_line['jrn_def_type'].')');
        }
        $r.="</TABLE>";
        return $r;
    }

References $_REQUEST, $i, $Max, $r, $ret, $str_dossier, $url, _, db, DatabaseCore\fetch_array(), h, and DatabaseCore\num_row().

Here is the call graph for this function:

next_number()

static Acc_Ledger::next_number ( $p_cn, $p_type )

static

retrieve the next number for this type of ledger

Parameters

p_cn	connx
p_type	ledger type

Returns

the number

Definition at line 1687 of file acc_ledger.class.php.

    {
 
        $Ret=$p_cn->count_sql("select * from jrn_def where jrn_def_type='".$p_type."'");
        return $Ret+1;
    }

References from.

Referenced by save_new().

previous_amount()

Acc_Ledger::previous_amount

(

$p_to

)

retrieve amount of previous periode

Parameters

$p_to

frmo the start of the exercise until $p_to

Returns

$array with vat, price,other_amount

Note

See also

array
'price' => string '446.1900' (length=8)
'vat' => string '21.7600' (length=7)
'priv' => string '0.0000' (length=6)
'tva_nd_recup' => string '0.0000' (length=6)
'tva' =>
array
0 =>
array
'sum_vat' => string '13.7200' (length=7)
'tva_id' => string '1' (length=1)
1 =>
array
'sum_vat' => string '8.0400' (length=6)
'tva_id' => string '3' (length=1)
2 =>
array
'sum_vat' => string '0.0000' (length=6)
'tva_id' => string '4' (length=1)

Definition at line 2240 of file acc_ledger.class.php.

    {
        /* get the first periode of exercise */
        $periode=new Periode($this->db, $p_to);
        $exercise=$periode->get_exercice();
        list ($min, $max)=$periode->get_limit($exercise);
        // transform min into date
        $min_date=$min->first_day();
        // transform $p_to  into date
        $periode_max=new Periode($this->db, $p_to);
        $max_date=$periode_max->first_day();
        bcscale(2);
        // min periode
        if ($this->get_type()=='ACH')
        {
            /*  get all amount exclude vat */
            $sql="select coalesce(sum(qp_price),0) as price".
                    " ,coalesce(sum(qp_vat),0) as vat ".
                    ',coalesce(sum(qp_dep_priv),0) as priv'.
                    ',coalesce(sum(qp_vat_sided),0) as reversed'.
                    ',coalesce(sum(qp_nd_tva_recup),0)+coalesce(sum(qp_nd_tva),0) as tva_nd'.
                    ',coalesce(sum(qp_vat_sided),0) as tva_np'.
                    '  from quant_purchase join jrnx using(j_id) '.
                    " where j_date >= to_date($1,'DD.MM.YYYY') and j_date < to_date($2,'DD.MM.YYYY') ".
                    ' and j_jrn_def = $3';
            $array=$this->db->get_array($sql,
                    array($min_date, $max_date, $this->id));
 
            $ret=$array[0];
            /* retrieve all vat code */
            $array=$this->db->get_array("select coalesce(sum(qp_vat),0) as sum_vat,tva_id
                                        from quant_purchase as p 
                                            right join tva_rate on (qp_vat_code=tva_id)  join jrnx using(j_id)
                                        where 
                                            tva_rate !=0 
                                            and  j_date >= to_date($1,'DD.MM.YYYY') 
                                            and j_date < to_date($2,'DD.MM.YYYY') 
                                        and j_jrn_def = $3
                                        group by tva_id",
                    array($min_date, $max_date, $this->id));
            $ret['tva']=$array;
        }
        if ($this->get_type()=='VEN')
        {
            /*  get all amount exclude vat */
            $sql="select coalesce(sum(qs_price),0) as price".
                    " ,coalesce(sum(qs_vat),0) as vat ".
                    ',0 as priv'.
                    ',0 as tva_nd'.
                    ',coalesce(sum(qs_vat_sided),0) as reversed'.
                    ',0 as tva_np'.
                    '  from quant_sold join jrnx using(j_id) '.
                    " where j_date >= to_date($1,'DD.MM.YYYY') and j_date < to_date($2,'DD.MM.YYYY') ".
                    ' and j_jrn_def = $3';
            $array=$this->db->get_array($sql,
                    array($min_date, $max_date, $this->id));
            $ret=$array[0];
            /* retrieve all vat code */
            $array=$this->db->get_array("select coalesce(sum(qs_vat),0) as sum_vat,tva_id
                                        from quant_sold as p 
                                            right join tva_rate on (qs_vat_code=tva_id)  
                                            join jrnx using(j_id)
                                        where 
                                             tva_rate !=0 and
                                             j_date >= to_date($1,'DD.MM.YYYY') 
                                        and  j_date < to_date($2,'DD.MM.YYYY') 
                                        and  j_jrn_def = $3
                                        group by tva_id",
                    array($min_date, $max_date, $this->id));
            $ret['tva']=$array;
        }
        if ($this->get_type()=="FIN")
        {
 
            /* find the quick code of this ledger */
            $ledger=new Acc_Ledger_Fin($this->db, $this->id);
            $qcode=$ledger->get_bank();
            $bank_card=new Fiche($this->db, $qcode);
            $periode=new Periode($this->db);
            //$periode->find_periode($min_date);
            //$a_date=$periode->get_limit($periode->get_exercice());
            
            /* add the amount from Opening Writing                  */
            if ( $min_date <> $max_date)
            {
                $cond=sprintf("j_date >=  to_date('%s','DD.MM.YYYY') and j_date < to_date('%s','DD.MM.YYYY')  ",
                     $min_date,$max_date);
            }else{
                $cond=sprintf("j_date =  to_date('%s','DD.MM.YYYY')   ",
                     $min_date);
            }
            $saldo=$bank_card->get_bk_balance($cond);
            $ret['amount']=noalyss_bcsub($saldo['debit'], $saldo['credit']);
        }
        return $ret;
    }

References $array, $ledger, $max, $min, $periode, $qcode, $ret, $saldo, $sql, db, get_type(), and noalyss_bcsub().

Here is the call graph for this function:

previous_other_tax()

Acc_Ledger::previous_other_tax

(

$p_to

)

retrieve the previous amount

Parameters

$p_to

from the start of exercice until p_to

Returns

array [other_tax_amount]

Definition at line 2342 of file acc_ledger.class.php.

                                       {
        $periode=new Periode($this->db, $p_to);
        $exercise=$periode->get_exercice();
        list ($min, $max)=$periode->get_limit($exercise);
        // transform min into date
        $min_date=$min->first_day();
        // transform $p_to  into date
        $periode_max=new Periode($this->db, $p_to);
        $max_date=$periode_max->first_day();
        bcscale(2);
        // min periode
        if ($this->get_type()=='ACH')
        {
 
            $sql=" 
                select j_montant 
                  from quant_purchase 
                      join jrnx using(j_id)
                    join jrn_tax using (j_id)
                 where j_date >= to_date($1,'DD.MM.YYYY') and j_date < to_date($2,'DD.MM.YYYY') 
                 and j_jrn_def = $3";
            $amount=$this->db->get_value($sql,
                array($min_date, $max_date, $this->id));
 
            return array('other_tax_amount',$amount);
 
        }
        if ($this->get_type()=='VEN')
        {
 
            $sql=" 
                select j_montant 
                  from quant_sold 
                      join jrnx using(j_id)
                    join jrn_tax using (j_id)
                 where j_date >= to_date($1,'DD.MM.YYYY') and j_date < to_date($2,'DD.MM.YYYY') 
                 and j_jrn_def = $3";
            $amount=$this->db->get_value($sql,
                array($min_date, $max_date, $this->id));
 
            return array('other_tax_amount',$amount);
 
        }
        return array('other_tax_amount',0);
    }

References $amount, $max, $min, $periode, $sql, db, and get_type().

Here is the call graph for this function:

reverse()

Acc_Ledger::reverse	(		$p_date,
			$p_label )

reverse the operation by creating the opposite one, the result is to avoid it it must be done in

• jrn
• jrnx
• quant_fin
• quant_sold
• quant_purchase
• stock
• ANC
• jrn_tax Add or update a note into jrn_note

  Parameters

  $p_date

  is the date of the reversed op

  Exceptions

  if	date is invalid or other prob

  Note

  automatically create a reconciliation between operation You must set the ledger_id $this->jrn_def_id This function should be in operation or call an acc_operation object

reverse also in analytic account;

Definition at line 253 of file acc_ledger.class.php.

    {
        global $g_user;
        global $g_parameter;
        try
        {
            $this->db->start();
            if (!isset($this->jr_id)||$this->jr_id=='')
            {
                throw new Exception(_("this->jr_id is not set ou opération inconnue"));
            }
 
            /* check if the date is valid */
            if (isDate($p_date)==null)
            {
                throw new Exception(_('Date invalide').$p_date);
            }
 
            // if the operation is in a closed or centralized period
            // the operation is voided thanks the opposite operation
            $grp_new=$this->db->get_next_seq('s_grpt');
            $seq=$this->db->get_next_seq("s_jrn");
            $p_internal=$this->compute_internal_code($seq);
            $this->jr_grpt_id=$this->db->get_value('select jr_grpt_id from jrn where jr_id=$1',
                    array($this->jr_id));
            if ($this->db->count()==0)
                throw new Exception(_("Cette opération n'existe pas"));
            $this->jr_internal=$this->db->get_value('select jr_internal from jrn where jr_id=$1',
                    array($this->jr_id));
            if ($this->db->count()==0||trim($this->jr_internal)=='')
                throw new Exception(_("Cette opération n'existe pas"));
 
            /* find the periode thanks the date */
            $per=new Periode($this->db);
            $per->jrn_def_id=$this->id;
            $per->find_periode($p_date);
 
            if ($per->is_open()==0)
            {
                throw new Exception(_('PERIODE FERMEE')." $p_date ");
            }
 
            // Mark the operation invalid into the ledger
            // to avoid to nullify twice the same op., add or update a note into jrn_note
            if ($this->db->get_value("select count(*) from jrn_note where jr_id=$1",[$this->jr_id])>0){
                $sql="update jrn_note set n_text=$2||n_text where jr_id=$1";
                $Res=$this->db->exec_sql($sql, array($this->jr_id,$p_label));
            }else {
                $sql="insert into jrn_note(n_text,jr_id) values ($1,$2)";
                $Res=$this->db->exec_sql($sql, array($p_label,$this->jr_id));
            }
 
            // Check return code
            if ($Res==false)
            {
                throw new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]");
            }
 
            //////////////////////////////////////////////////
            // Reverse in jrnx* tables
            //////////////////////////////////////////////////
            $a_jid=$this->db->get_array("select j_id,j_debit from jrnx where j_grpt=$1",
                    array($this->jr_grpt_id));
            $anc_group_id=0;
            // for each item in JRNX
            for ($l=0; $l<count($a_jid); $l++)
            {
                // jrnx.j_id to reverse
                $row=$a_jid[$l]['j_id'];
                
                // Make also the change into jrnx
                $sql="insert into jrnx (
                  j_date,j_montant,j_poste,j_grpt,
                  j_jrn_def,j_debit,j_text,j_internal,j_tech_user,j_tech_per,j_qcode
                  ) select to_date($1,'DD.MM.YYYY'),j_montant,j_poste,$2,
                  j_jrn_def,not (j_debit),j_text,$3,$4,$5,
                  j_qcode
                  from
                  jrnx
                  where   j_id=$6 returning j_id";
                $Res=$this->db->exec_sql($sql,
                        array($p_date, $grp_new, $p_internal, $g_user->login, $per->p_id,
                    $row));
                // Check return code
                if ($Res==false)
                {
                    throw (new Exception(__FILE__.__LINE__."SQL ERROR [ $sql ]"));
                }
                $aj_id=$this->db->fetch(0);
                
                // jrnx.j_id of the reversed operation
                $j_id=$aj_id['j_id'];
 
                /* automatic lettering */
                $let=new Lettering($this->db);
                $let->insert_couple($j_id, $row);
 
                // reverse in QUANT_SOLD
                $Res=$this->db->exec_sql("INSERT INTO quant_sold(
                                     qs_internal, qs_fiche, qs_quantite, qs_price, qs_vat,
                                     qs_vat_code, qs_client, qs_valid, j_id,qs_vat_sided,qs_unit)
                                     SELECT $1, qs_fiche, qs_quantite*(-1), qs_price*(-1), qs_vat*(-1),
                                     qs_vat_code, qs_client, qs_valid, $2,qs_vat_sided*(-1),qs_unit*(-1)
                                     FROM quant_sold where j_id=$3",
                        array($p_internal, $j_id, $row));
 
                if ($Res==false)
                {
                    throw new Exception(__FILE__.__LINE__."sql a echoue [ $sql ]");
                }
                $Res=$this->db->exec_sql("INSERT INTO quant_purchase(
                                     qp_internal, j_id, qp_fiche, qp_quantite, qp_price, qp_vat,
                                     qp_vat_code, qp_nd_amount, qp_nd_tva, qp_nd_tva_recup, qp_supplier,
                                     qp_valid, qp_dep_priv,qp_vat_sided,qp_unit)
                                     SELECT  $1, $2, qp_fiche, qp_quantite*(-1), qp_price*(-1), qp_vat*(-1),
                                     qp_vat_code, qp_nd_amount*(-1), qp_nd_tva*(-1), qp_nd_tva_recup*(-1), qp_supplier,
                                     qp_valid, qp_dep_priv*(-1),qp_vat_sided*(-1),qp_unit*(-1)
                                     FROM quant_purchase where j_id=$3",
                        array($p_internal, $j_id, $row));
 
                if ($Res==false)
                {
                    throw new Exception(__FILE__.__LINE__."SQL ERROR [ $sql ]");
                }
                // Reverse also in the currency table
                $this->db->exec_sql("insert into operation_currency (oc_amount,oc_vat_amount,oc_price_unit,j_id) "
                        . " select oc_amount,oc_vat_amount,oc_price_unit,$j_id from operation_currency where j_id=$1",
                        [$row]);
                // Extourne also into jrnx_tax
                $jrn_tax_id=$this->db->exec_sql("insert into jrn_tax(j_id,pcm_val,ac_id) 
                            select $j_id,pcm_val,ac_id from jrn_tax where j_id=$1 returning jt_id",
                    [$row]);
 
                // if we use analytic , extourne also in operation_analytic
                if ($g_parameter->MY_ANALYTIC != 'nu') {
                    // if there is the first operation_analytic to insert , compute the group_id (operation_analytic.oa_group)
                    if ($anc_group_id == 0 ) $anc_group_id=$this->db->get_next_seq('s_oa_group');
                    $this->db->exec_sql("
           insert into operation_analytique (po_id,oa_amount
                    ,oa_description
                    ,oa_debit
                    ,j_id
                    , oa_date
                    , oa_row
                    , oa_positive
                    , f_id
                    ,oa_jrnx_id_source
                    ,oa_group) 
                select po_id
                     ,oa_amount
                     ,oa_description
                     ,case oa_debit when true then false else true end 
                     , $j_id
                     ,  to_date($2,'DD.MM.YYYY')
                     , oa_row
                     , oa_positive
                     , f_id
                     ,oa_jrnx_id_source
                     ,$anc_group_id from operation_analytique 
                            where 
                                j_id=$1
                    ",[$row, $p_date]);
 
                }
 
 
            } // end for each item in JRNX
            $old_receipt=$this->db->get_row("select jr_pj_number,jr_def_id from jrn where jr_id=$1",[$this->jr_id]);
            $sql="insert into jrn (
              jr_id,
              jr_def_id,
              jr_montant,
              jr_comment,
              jr_date,
              jr_grpt_id,
              jr_internal
              ,jr_tech_per, 
              jr_valid,
              jr_optype,
              currency_id,
              currency_rate,
              currency_rate_ref
              )
              select $1,jr_def_id,jr_montant,$7,
              to_date($2,'DD.MM.YYYY'),$3,$4,
              $5, true,'EXT',currency_id,currency_rate,currency_rate_ref
              from
              jrn
              where   jr_id=$6 returning jr_id";
            try {
 
                $reverse_id=$this->db->get_value($sql,
                    array($seq, $p_date, $grp_new, $p_internal, $per->p_id, $this->jr_id,$p_label));
                $reverse_accOp=new Acc_Operation($this->db);
                $reverse_accOp->set_id($reverse_id);
                $reverse_accOp->pj=$old_receipt['jr_pj_number'];
                $reverse_accOp->jrn=$old_receipt['jr_def_id'];
                $reverse_accOp->update_receipt();
            // Check return code
            } catch (\Exception $e){
                throw new \Exception('Echec extourne');
 
            }
 
 
 
            // reverse in QUANT_FIN table
            $Res=$this->db->exec_sql("  INSERT INTO quant_fin(
                                 qf_bank,  qf_other, qf_amount,jr_id,j_id)
                                 SELECT  qf_bank,  qf_other, qf_amount*(-1),$1,$3
                                 FROM quant_fin where jr_id=$2",
                    array($seq, $this->jr_id,$j_id));
            if ($Res==false)
            {
                throw (new Exception(__FILE__.__LINE__."SQL ERROR[ $sql ]"));
            }
 
            // Add a "concerned operation to bound these op.together
            //
            $rec=new Acc_Reconciliation($this->db);
            $rec->set_jr_id($seq);
            $rec->insert($this->jr_id);
 
            // Check return code
            if ($Res==false)
            {
                throw (new Exception(__FILE__.__LINE__."SQL ERROR [ $sql ]"));
            }
 
            // the table stock must updated
            // also in the stock table
            $sql="delete from stock_goods where sg_id = any ( select sg_id
             from stock_goods natural join jrnx  where j_grpt=$1)";
            $Res=$this->db->exec_sql($sql,array($this->jr_grpt_id));
            if ($Res==false)
            {
                throw (new Exception(__FILE__.__LINE__."SQL ERROR [ $sql ]"));
            }
            /**
             * reverse also in analytic account;
             */
 
            $this->db->commit();
        }
        catch (Exception $e)
        {
              record_log($e);
            $this->db->rollback();
            throw $e;
        }
    }

References $e, $g_parameter, $g_user, $id, $j_id, $l, $let, $p_date, $per, $Res, $row, $seq, $sql, _, compute_internal_code(), db, isDate(), jr_id, and record_log().

Here is the call graph for this function:

save()

Acc_Ledger::save

(

$p_array = null

)

save the operation into the jrnx,jrn, , CA and pre_def

Parameters

$p_array

Returns

array with [0] = false if failed otherwise true, [1] error code

Save the file is any

Definition at line 1428 of file acc_ledger.class.php.

    {
        if ($p_array==null)
        {
            throw new Exception('save cannot use a empty array');
        }
        global $g_parameter;
        bcscale(4);
        $http=new HttpInput();
        extract($p_array, EXTR_SKIP);
        if ( !isset($p_array['jrn_note_input'])) {$p_array['jrn_note_input']='';}
        try
        {
            $msg=$this->verify($p_array);
            if (!empty($msg))
            {
                echo $this->display_warning($msg,
                        _("Attention : il vaut mieux utiliser les fiches que les postes comptables "));
            }
            $this->db->start();
 
            $seq=$this->db->get_next_seq('s_grpt');
            $internal=$this->compute_internal_code($seq);
 
            $group=$this->db->get_next_seq("s_oa_group");
            $tot_amount=0;
            $tot_deb=0;
            $tot_cred=0;
            $oPeriode=new Periode($this->db);
            $check_periode=$this->check_periode();
            if ($check_periode==false||!isset($p_array['period']))
            {
                $oPeriode->find_periode($e_date);
            }
            else
            {
                $oPeriode->p_id=$period;
            }
 
            $count=0;
            
            // currency
            $http->set_array($p_array);
            $currency_code=$http->extract( "p_currency_code","number",0);
            $currency_rate=$http->extract( "p_currency_rate","number",1);
            $currency_rate_ref=new Acc_Currency($this->db, $currency_code);
            
            for ($i=0; $i<$nb_item; $i++)
            {
                if (!isset(${'qc_'.$i})&&!isset(${'poste'.$i}))
                    continue;
                $acc_op=new Acc_Operation($this->db);
                $quick_code="";
                // First we save the jrnx
                if (isset(${'qc_'.$i}))
                {
                    $qc=new Fiche($this->db);
                    $qc->get_by_qcode(${'qc_'.$i}, false);
                    $sposte=$qc->get_attribute(ATTR_DEF_ACCOUNT);
                    /*  if there are 2 accounts take following the deb or cred */
                    if (strpos($sposte, ',')!=0)
                    {
                        $array=explode(",", $sposte);
                        $poste=(isset(${'ck'.$i}))?$array[0]:$array[1];
                    }
                    else
                    {
                        $poste=$sposte;
                        if ($poste=='')
                            throw new Exception(sprintf(_("La fiche %s n'a pas de poste comptable"),
                                    ${"qc_".$i}));
                    }
                    $quick_code=${'qc_'.$i};
                }
                else
                {
                    $poste=${'poste'.$i};
                }
 
                $acc_op->date=$e_date;
                // compute the periode is do not check it
                if ($check_periode==false)
                    $acc_op->periode=$oPeriode->p_id;
                $acc_op->desc=null;
                if (noalyss_strlentrim(${'ld'.$i})!=0)
                    $acc_op->desc=${'ld'.$i};
                    
                // Amount in default currency , usually EUR
                $acc_op->amount=round(bcdiv(${'amount'.$i},$currency_rate),2);
                $acc_op->grpt=$seq;
                $acc_op->poste=$poste;
                $acc_op->jrn=$this->id;
                $acc_op->type=(isset(${'ck'.$i}))?'d':'c';
                $acc_op->qcode=$quick_code;
                $j_id=$acc_op->insert_jrnx();
                
                // Save in currency
                $operation_currency=new Operation_currency_SQL($this->db);
                if (isNumber(${'amount'.$i}) == 0) {
                    $operation_currency->oc_amount=0;
                }else {
                    $operation_currency->oc_amount=round(${'amount'.$i}, 2);
                }
                $operation_currency->oc_vat_amount=0;
                $operation_currency->oc_price_unit=0;
                $operation_currency->j_id=$j_id;
                $operation_currency->insert();
                
                $tot_amount=bcadd($tot_amount,round($acc_op->amount, 2));
                
                if ( $acc_op->type == 'd') {
                    $tot_deb=bcadd($tot_deb, $acc_op->amount);
                }elseif ( $acc_op->type == 'c') {
                    $tot_cred=bcadd($tot_cred,$acc_op->amount);
                }
                
                if ($g_parameter->MY_ANALYTIC!="nu")
                {
                    if ($g_parameter->match_analytic( $poste)==TRUE)
                    {
 
                        // for each item, insert into operation_analytique */
                        $op=new Anc_Operation($this->db);
                        $op->set_currency_rate($currency_rate);
                        $op->oa_group=$group;
                        $op->j_id=$j_id;
                        $op->oa_date=$e_date;
                        $op->oa_debit=($acc_op->type=='d' )?'t':'f';
                        $op->oa_description=$desc;
                        
                        // send the amount in default currency to analytic
                        $an_array=$p_array;
                        $an_array['amount'.$i]=$acc_op->amount;
                        $op->save_form_plan($an_array, $count, $j_id);
                        $count++;
                    }
                }
            }// loop for each item
            $acc_end=new Acc_Operation($this->db);
            // Check the balance 
            if ( bcsub($tot_deb,$tot_cred,2) != 0 && $currency_code != 0) 
            {
                
                $diff=bcsub($tot_cred, $tot_deb);
                // store the difference in currency_rounded_delta
                $poste_cred = $g_parameter->MY_DEFAULT_ROUND_ERROR_CRED;
                $side="c";
                if ( $diff > 0 )
                {
                    $poste=$g_parameter->MY_DEFAULT_ROUND_ERROR_DEB;
                    $side="d";
                    
                }
                
                // insert difference of change
                $acc_change=new Acc_Operation($this->db);
                $acc_change->amount=abs($diff);
                $acc_change->grpt=$seq;
                $acc_change->poste=$poste;
                $acc_change->jrn=$this->id;
                $acc_change->type=$side;
                $acc_change->date=$e_date;
                $acc_change->desc=_("Différence de change");
                
                $change_j_id=$acc_change->insert_jrnx();
                
                $tot_deb=bcadd($tot_deb,$diff);
                
            }
            $acc_end->amount=$tot_deb;
            if ($check_periode==false)
            {
                $acc_end->periode=$oPeriode->p_id;
            }
            $acc_end->date=$e_date;
            $acc_end->desc=$desc;
            $acc_end->grpt=$seq;
            $acc_end->jrn=$this->id;
            $acc_end->mt=$mt;
            $acc_end->jr_optype=$jr_optype;
            $acc_end->currency_id=$currency_code;
            $acc_end->currency_rate=$currency_rate;
            $acc_end->currency_rate_ref=$currency_rate_ref->get_rate();
            
            // @var $jr_id (int) JRN.JR_ID
            $jr_id=$acc_end->insert_jrn();
            
            $this->jr_id=$jr_id;
            if ($jr_id==false)
                throw new Exception(_('Balance incorrecte'));
            $acc_end->pj=$e_pj;
            $this->pj=$acc_end->update_receipt();
            /* if e_suggest != e_pj then do not increment sequence */
            if ($this->pj == $e_pj_suggest &&noalyss_strlentrim($e_pj)!=0)
            {
                $this->inc_seq_pj();
            }
 
 
 
            $this->db->exec_sql("update jrn set jr_internal=$1 
                        where jr_grpt_id = $2",array($internal,$seq));
 
            $this->jr_internal=$internal;
            // Save now the predef op
            //------------------------
            if (isset($opd_name)&&trim($opd_name)!="")
            {
                $opd=new Pre_operation($this->db);
                $opd->set_od_direct('t');
                $opd->get_post();
                $opd->save();
            }
 
            if (isset($this->with_concerned)&&$this->with_concerned==true)
            {
                $orap=new acc_reconciliation($this->db);
                $orap->jr_id=$jr_id;
 
                $orap->insert($jrn_concerned);
            }
            /**
             * Save the file is any
             */
            if (isset($_FILES["pj"]))
            {
                $acc_document=new Acc_Document($this->db, $jr_id);
                $acc_document->save_receipt();
            }
            /*----------------------------------------------
             * 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( $jr_id);
                $acc_operation_note->save();
            }
        }
        catch (Exception $e)
        {
            record_log($e);
            $this->db->rollback();
            echo_warning(_('OPERATION ANNULEE voir log'));
            exit();
        }
        $this->db->commit();
        return true;
    }

References jrn, save(), and update().

Referenced by save().

Here is the call graph for this function:

save_followup()

Acc_Ledger::save_followup

(

$s_related_action

)

attach action-followups to an operation,

Parameters

string

$s_related_action

action.ag_id separated by comma

See also

Acc_Operation

Returns

boolean true success ,false nothing inserted

Definition at line 3559 of file acc_ledger.class.php.

    {
        if ($this->jr_id == 0 || empty ($s_related_action))  { return false;  }
        
        $acc_operation=new Acc_Operation($this->cn);
        $acc_operation->jr_id=$this->jr_id;
        $acc_operation->insert_related_action($s_related_action);
        return true;
    }

References $jr_id, and cn.

save_new()

Acc_Ledger::save_new

(

$array

)

Insert a new ledger , member variable like jrn_def_id will changed.

Parameters

array

$array

normally $_POST Array ( [gDossier] => 25 [ac] => CFG/MACC/C0JRN [p_jrn] => -1 [p_action] => jrn [sa] => add [p_jrn_deb_max_line] => 10 [p_ech_lib] => echeance [p_jrn_type] => VEN [p_jrn_name] => test [p_jrn_class_deb] => [bank] => [negative_amount] => 0 [negative_warning] => Attention, ce journal doit utiliser des montants négatifs [p_jrn_quantity] => 1 [min_row] => 5 [p_description] => [jrn_def_pj_pref] => A [defaultCurrency] => 0 [ACH_FICHECRED] => Array(fd_id) [ACH_FICHEDEB] => Array (fd_id) [VEN_FICHEDEB] => Array (fd_id) [VEN_FICHECRED] => Array (fd_id) [ODS_FICHEDEB] => Array(fd_id) [FIN_FICHEDEB] => Array(fd_id) [ defaultCurrency] =>"int" only for Financial if there is no operation )

See also

verify_ledger

Definition at line 3089 of file acc_ledger.class.php.

    {
        $this->load();
        extract($array, EXTR_SKIP);
        $this->jrn_def_id=-1;
        $this->jrn_def_name=$p_jrn_name;
        $this->jrn_def_ech_lib=$p_ech_lib;
        $this->jrn_def_max_line_deb=$p_jrn_deb_max_line;
        $this->jrn_def_type=$p_jrn_type;
        $this->jrn_def_pj_pref=$jrn_def_pj_pref;
        $this->jrn_deb_max_line=$min_row;
        $this->jrn_def_code=trim(substr($this->jrn_def_type, 0, 1));
        $this->jrn_def_code.=str_pad(
                    base_convert(
                        Acc_Ledger::next_number($this->db, $this->jrn_def_type),10,36),2,"0",STR_PAD_LEFT);
        $this->jrn_def_code=strtoupper($this->jrn_def_code);
        $this->jrn_def_description=$p_description;
        $this->currency_id=0;
        $this->jrn_def_negative_amount=$negative_amount;
        $this->jrn_def_negative_warning=$negative_warning;
        $this->jrn_enable=1;
        $this->jrn_def_pj_padding=$p_jrn_padding;
        switch ($this->jrn_def_type)
        {
            case 'ACH':
                $this->jrn_def_fiche_cred=(isset($ACH_FICHECRED))?join(',',$ACH_FICHECRED):'';
                $this->jrn_def_fiche_deb=(isset($ACH_FICHEDEB))?join(',',$ACH_FICHEDEB):"";
                break;
            case 'VEN':
                $this->jrn_def_fiche_cred=(isset($VEN_FICHECRED))?join(',',$VEN_FICHECRED):'';
                $this->jrn_def_fiche_deb=(isset($VEN_FICHEDEB))?join(',',$VEN_FICHEDEB):"";
 
                break;
            case 'ODS':
                $this->jrn_def_class_deb=$p_jrn_class_deb;
                $this->jrn_def_fiche_deb=(isset($ODS_FICHEDEB))?join(',',$ODS_FICHEDEB):''; ;
                $this->jrn_def_fiche_cred=null;
                break;
            case 'FIN':
                $a=new Fiche($this->db);
                $result=$a->get_by_qcode(trim(strtoupper($bank)), false);
                $bank_id=$a->id;
                $this->jrn_def_bank=$bank_id;
                $this->jrn_def_fiche_deb=(isset($FIN_FICHEDEB))?join(',',$FIN_FICHEDEB):"";
                if ($result==-1)
                    throw new Exception(_("Aucun compte en banque n'est donné"));
                $this->jrn_def_num_op=(isset($numb_operation))?1:0;
                $this->currency_id=$defaultCurrency;
                break;
        }
        $this->jrn_def_quantity=(!isset($this->jrn_def_quantity)||$this->jrn_def_quantity==null)?1:$this->jrn_def_quantity;
        parent::insert();
        $this->id=$this->jrn_def_id;
    }

References $a, $array, $jrn_def_id, $jrn_def_pj_pref, $jrn_def_quantity, $result, _, db, jrn_def_name, and next_number().

Here is the call graph for this function:

search_group()

Acc_Ledger::search_group	(		$p_what,
			$p_value )

retreive the jr_grpt_id from a ledger

Parameters

$p_what	the column to seek possible values are internal
$p_value	the value of the col.

Definition at line 2071 of file acc_ledger.class.php.

    {
        switch ($p_what)
        {
            case 'internal':
                return $this->db->get_value('select jr_grpt_id from jrn where jr_internal=$1',
                                array($p_value));
        }
    }

References from, and jrn.

select_default_currency()

Acc_Ledger::select_default_currency

(

)

create a select button to set the default currency for a ledger used only for empty financial ledger

Returns

ISelect object

Definition at line 2724 of file acc_ledger.class.php.

    {
        $default_currency=new ISelect("defaultCurrency");
        $default_currency->value=$this->db->make_array("select id,cr_code_iso from public.currency order by 1 ");
        $default_currency->selected=$this->currency_id;
        $nb_operation=$this->db->get_value("select count(*) from jrn where jr_def_id=$1",[$this->id]);
        if (  $nb_operation > 0) {
                $default_currency->setReadOnly(TRUE);
        }
        return $default_currency;
    }

References $currency_id, $default_currency, $nb_operation, and db.

Referenced by display_ledger(), and input_new().

select_depot()

Acc_Ledger::select_depot	(		$p_readonly,
			$p_repo )

Let you select the repository before confirming a sale or a purchase.

Returns an empty string if the company doesn't use stock

Let you select the repository before confirming a sale or a purchase. @global type $g_parameter check if company is using stock

Parameters

type	$p_readonly
type	$p_repo

Returns

string

Definition at line 3349 of file acc_ledger.class.php.

    {
        global $g_parameter;
        $r=($p_readonly==false)?'<div id="repo_div_id" style="height:185px;height:10rem;">':'<div id="repo_div_id" >';
        // Show the available repository
        if ($g_parameter->MY_STOCK=='Y')
        {
            $sel=HtmlInput::select_stock($this->db, 'repo', 'W');
            $sel->readOnly=$p_readonly;
            if ($p_readonly==true)
                $sel->selected=$p_repo;
            $r.="<p class=\"decale\">"._('Dans le dépôt')." : ";
            $r.=$sel->input();
            $r.='</p>';
        } else
        {
            $r.='<span class="notice">'.'Stock non utilisé'.'</span>';
        }
        $r.='</div>';
        return $r;
    }

References $g_parameter, $p_readonly, $r, $sel, and db.

Referenced by Acc_Ledger_Sale\confirm().

select_ledger()

Acc_Ledger::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.

Parameters

$p_type	= ALL or the type of the ledger (ACH,VEN,FIN,ODS)
$p_access	=3 for READ or WRITE, 2 for write and 1 for readonly
Boolean	TRUE all ledger are selected, or FALSE only enable

Returns

object HtmlInput select

Definition at line 620 of file acc_ledger.class.php.

    {
        global $g_user;
        $array=$g_user->get_ledger($p_type, $p_access,$enable);
 
        if ($array==null)
            return null;
        $idx=0;
        $ret=array();
 
        foreach ($array as $value)
        {
            $ret[$idx]['value']=$value['jrn_def_id'];
            $ret[$idx]['label']=h($value['jrn_def_name']);
            $idx++;
        }
 
        $select=new ISelect();
        $select->name='p_jrn';
        $select->value=$ret;
        $select->selected=$this->id;
        return $select;
    }

References $array, $g_user, $id, $idx, $p_type, $ret, $select, $value, and h.

Referenced by input(), Acc_Ledger_Fin\input(), Acc_Ledger_Purchase\input(), and Acc_Ledger_Sale\input().

set_currency_id()

Acc_Ledger::set_currency_id

(

)

retrieve currency_id from database

Definition at line 103 of file acc_ledger.class.php.

    {
       $this->db->get_value("select currency_id from jrn_def where jrn_def_id=$1",
            [$this->id]);
        if ( $this->currency_id == "") {
            $this->currency_id=0;
        }
    }

References db.

set_is_loaded()

Acc_Ledger::set_is_loaded

(

$is_loaded

)

Definition at line 95 of file acc_ledger.class.php.

                                             : void
    {
        $this->is_loaded=$is_loaded;
    }

References $is_loaded.

set_ledger_id()

Acc_Ledger::set_ledger_id

(

$p_id

)

Set the jrn_def.jrn_def_id.

Parameters

integer

$p_id

Definition at line 146 of file acc_ledger.class.php.

    {
        $this->id=$p_id;
        $this->jrn_def_id=&$this->id;
    }

References $id, $p_id, and jrn_def_id.

set_quantity()

Acc_Ledger::set_quantity

(

$p_value

)

set quantity for the ledger to 1 or 0,

Note

do not save in the DB

Definition at line 3452 of file acc_ledger.class.php.

    {
         $this->jrn_def_quantity=$p_value;
    }

test_me()

static Acc_Ledger::test_me ( $pCase = '' )

static

this function is intended to test this class

Definition at line 2393 of file acc_ledger.class.php.

    {
        if ($pCase=='')
        {
            echo Acc_Reconciliation::$javascript;
            html_page_start();
            $cn=Dossier::connect();
            $_SESSION[SESSION_KEY.'g_user']=NOALYSS_ADMINISTRATOR;
            $_SESSION[SESSION_KEY.'g_pass']='phpcompta';
 
            $id=(isset($_REQUEST['p_jrn']))?$_REQUEST['p_jrn']:-1;
            $a=new Acc_Ledger($cn, $id);
            $a->with_concerned=true;
            // Vide
            echo '<FORM method="post">';
            echo $a->select_ledger()->input();
            echo HtmlInput::submit('go', 'Test it');
            echo '</form>';
            if (isset($_POST['go']))
            {
                echo "Ok ";
                echo '<form method="post">';
                echo $a->show_form();
                echo HtmlInput::submit('post_id', 'Try me');
                echo '</form>';
                // Show the predef operation
                // Don't forget the p_jrn
                echo '<form>';
                echo dossier::hidden();
                echo '<input type="hidden" value="'.$id.'" name="p_jrn">';
                $op=new Pre_operation($cn);
                $op->set_p_jrn($id);
 
                if ($op->count()!=0)
                {
                    echo HtmlInput::submit('use_opd',
                            'Utilisez une opération pr&eacute;d&eacute;finie',
                            "", "smallbutton");
                    echo $op->show_button();
                }
                echo '</form>';
                exit('test_me');
            }
 
            if (isset($_POST['post_id']))
            {
 
                echo '<form method="post">';
                echo $a->show_form($_POST, 1);
                echo HtmlInput::button('add', 'Ajout d\'une ligne',
                        'onClick="quick_writing_add_row()"');
                echo HtmlInput::submit('save_it', _("Sauver"));
                echo '</form>';
                exit('test_me');
            }
            if (isset($_POST['save_it']))
            {
                print 'saving';
                $array=$_POST;
                $array['save_opd']=1;
                try
                {
                    $a->save($array);
                }
                catch (Exception $e)
                {
                    alert($e->getMessage());
                    echo '<form method="post">';
 
                    echo $a->show_form($_POST);
                    echo HtmlInput::submit('post_id', 'Try me');
                    echo '</form>';
                }
                return;
            }
            // The GET at the end because automatically repost when you don't
            // specify the url in the METHOD field
            if (isset($_GET['use_opd']))
            {
                $op=new Pre_op_advanced($cn);
                $op->set_od_id($_REQUEST['pre_def']);
                //$op->p_jrn=$id;
 
                $p_post=$op->compute_array();
 
                echo '<FORM method="post">';
 
                echo $a->show_form($p_post);
                echo HtmlInput::submit('post_id', 'Use predefined operation');
                echo '</form>';
                return;
            }
        }// if case = ''
        ///////////////////////////////////////////////////////////////////////////
        // search
        if ($pCase=='search')
        {
            html_page_start();
            $cn=Dossier::connect();
            $ledger=new Acc_Ledger($cn, 0);
            $_SESSION[SESSION_KEY.'g_user']=NOALYSS_ADMINISTRATOR;
            $_SESSION[SESSION_KEY.'g_pass']='phpcompta';
            echo $ledger->search_form('ALL');
        }
        ///////////////////////////////////////////////////////////////////////////
        // reverse
        // Give yourself the var and check in your tables
        ///////////////////////////////////////////////////////////////////////////
        if ($pCase=='reverse')
        {
            $cn=Dossier::connect();
            $jr_internal='OD-01-272';
            try
            {
                $cn->start();
                $jrn_def_id=$cn->get_value('select jr_def_id from jrn where jr_internal=$1',
                        array($jr_internal));
                $ledger=new Acc_Ledger($cn, $jrn_def_id);
                $ledger->jr_id=$cn->get_value('select jr_id from jrn where jr_internal=$1',
                        array($jr_internal));
 
                echo "Ouvrez le fichier ".__FILE__." à la ligne ".__LINE__." pour changer jr_internal et vérifier le résultat de l'extourne";
 
                $ledger->reverse('01.07.2010');
            }
            catch (Exception $e)
            {
                $cn->rollback();
                  record_log($e);
            }
            $cn->commit();
        }
    }

References $_GET, $_POST, $_REQUEST, $a, $array, $cn, $e, $id, $jr_internal, $jrn_def_id, $ledger, $op, $p_post, _, alert(), exit, html_page_start(), NOALYSS_ADMINISTRATOR, print, and record_log().

Here is the call graph for this function:

update()

Acc_Ledger::update

(

$array = null

)

update a ledger

Parameters

type

$array

normally post // Example for a financial ledger [p_jrn] => 83 [sa] => detail [gDossier] => 25 [p_jrn_deb_max_line] => 10 [p_ech_lib] => echeance [p_jrn_type] => FIN [p_jrn_name] => Banque Privée [bank] => BANQUE [min_row] => 5 [p_description] => Compte fermé [jrn_def_pj_pref] => BP19- [jrn_def_pj_seq] => 0 [jrn_enable] => 0 [FIN_FICHEDEB] =>array(fd_id) [defaultCurrency] => 0 // if there is no operation [action_frm] => update

See also

verify_ledger

Definition at line 2836 of file acc_ledger.class.php.

    {
        $this->jrn_def_quantity=(!isset($this->jrn_def_quantity)||$this->jrn_def_quantity===null)?1:$this->jrn_def_quantity;
 
        if ($array==null) {
            // update with the current value
            parent::update();
            return;
        }
 
        $http=new HttpInput();
        $http->set_array($array);
        $p_jrn_deb_max_line=$http->extract("p_jrn_deb_max_line","number",-1);
        $min_row=$http->extract("min_row");
 
        $this->jrn_def_id=$http->extract('p_jrn');
        $this->jrn_def_name=$http->extract('p_jrn_name');
        $this->jrn_def_ech_lib=$http->extract('p_ech_lib');
        $this->jrn_def_max_line_deb=($p_jrn_deb_max_line<1)?1:$p_jrn_deb_max_line;
        $this->jrn_def_type=$http->extract('p_jrn_type');
        $this->jrn_def_pj_pref=$http->extract('jrn_def_pj_pref');
        $this->jrn_deb_max_line=($min_row<1)?1:$min_row;
        $this->jrn_def_description=$http->extract('p_description');
        $this->jrn_enable=$http->extract('jrn_enable');
        $this->currency_id=0;
        $this->jrn_def_negative_amount=$http->extract('negative_amount','string',0);
        $this->jrn_def_negative_warning=$http->extract("negative_warning",'string',
                _("Attention, ce journal doit utiliser des montants négatifs"));
        $this->jrn_def_quantity=$http->extract('p_jrn_quantity','string',1);
        $jrn_def_pj_seq=$http->extract("jrn_def_pj_seq");
        $this->jrn_def_pj_padding=$http->extract('p_jrn_padding','number');
        switch ($this->jrn_def_type)
        {
            case 'ACH':
                $ACH_FICHECRED=$http->extract('ACH_FICHECRED','array',array());
                $ACH_FICHEDEB=$http->extract('ACH_FICHEDEB','array',array());
                $this->jrn_def_fiche_cred=(!empty($ACH_FICHECRED))?join(',',$ACH_FICHECRED):'';
                $this->jrn_def_fiche_deb=(!empty($ACH_FICHEDEB))?join(',',$ACH_FICHEDEB):"";
                break;
            case 'VEN':
                $VEN_FICHECRED=$http->extract('VEN_FICHECRED','array',array());
                $VEN_FICHEDEB=$http->extract('VEN_FICHEDEB','array',array());
                $this->jrn_def_fiche_cred=(!empty($VEN_FICHECRED))?join(',',$VEN_FICHECRED):'';
                $this->jrn_def_fiche_deb=(!empty($VEN_FICHEDEB))?join(',',$VEN_FICHEDEB):"";
 
                break;
            case 'ODS':
                $this->jrn_def_class_deb=$http->extract('p_jrn_class_deb','string');
                $ODS_FICHEDEB=$http->extract('ODS_FICHEDEB','array',array());
                $this->jrn_def_fiche_deb=(!empty($ODS_FICHEDEB))?join(',',$ODS_FICHEDEB):''; ;
                $this->jrn_def_fiche_cred=null;
                break;
 
            case 'FIN':
                $a=new Fiche($this->db);
                $result=$a->get_by_qcode(trim(strtoupper($http->extract('bank'))), false);
                $bank=$a->id;
                $this->jrn_def_bank=$bank;
                $FIN_FICHEDEB=$http->extract('FIN_FICHEDEB','array',array());
                $this->jrn_def_fiche_deb=(!empty($FIN_FICHEDEB))?join(',',$FIN_FICHEDEB):"";
                if ($result==-1)
                    throw new Exception(_("Aucun compte en banque n'est donné"));
                $this->jrn_def_num_op=$http->extract('numb_operation','string',0);
                // if nb operation == 0 then update currency_id
                $nb_operation = $this->db->get_value("select count(*) from jrn where jr_def_id=$1",
                        [$this->jrn_def_id]);
                /*
                 * Set the default currency except if there are already operation
                 */
                if ( $nb_operation == 0 ){
                    $this->currency_id=$http->extract("defaultCurrency");
                } else {
                    $this->currency_id=$this->db->get_value("select currency_id from jrn_def where jrn_def_id=$1",
                            [$this->jrn_def_id]);
                }
                break;
        }
 
        parent::update();
        //Reset sequence if needed
        if ($jrn_def_pj_seq!=0)
        {
            $Res=$this->db->alter_seq("s_jrn_pj".$this->jrn_def_id, $jrn_def_pj_seq);
        }
    }

References $a, $array, $http, $jrn_def_quantity, $nb_operation, $Res, $result, _, db, and jrn_def_name.

Referenced by save(), update_internal_code(), and update_paid().

update_internal_code()

Acc_Ledger::update_internal_code

(

$p_internal

)

Definition at line 1735 of file acc_ledger.class.php.

    {
        if (!isset($this->jr_grpt_id))
            throw new Exception(('ERREUR jr_grpt_id not set '.__FILE__.":".__LINE__));
        $Res=$this->db->exec_sql("update jrn set jr_internal=$1 where 
                 jr_grpt_id = $2 ",array($p_internal,$this->jr_grpt_id));
    }

References jrn, and update().

Referenced by Acc_Ledger_Fin\insert(), and Acc_Ledger_Purchase\insert().

Here is the call graph for this function:

update_paid()

Acc_Ledger::update_paid

(

$p_array

)

Update the paiment in the list of operation.

Parameters

$p_array

is normally $_GET

Definition at line 1711 of file acc_ledger.class.php.

    {
        // reset all the paid flag because the checkbox is post only
        // when checked
        foreach ($p_array as $name=> $paid)
        {
            list($ad)=sscanf($name, "set_jr_id%d");
            if ($ad==null)
                continue;
            $sql="update jrn set jr_rapt='' where jr_id=$ad";
            $Res=$this->db->exec_sql($sql);
        }
        // set a paid flag for the checked box
        foreach ($p_array as $name=> $paid)
        {
            list ($id)=sscanf($name, "rd_paid%d");
            if ($id==null)
                continue;
 
            $sql="update jrn set jr_rapt='paid' where jr_id=$id";
            $Res=$this->db->exec_sql($sql);
        }
    }

References $id, jr_id, jrn, and update().

Here is the call graph for this function:

upload_supplemental_document()

Acc_Ledger::upload_supplemental_document

(

$jr_id

)

upload the supplementary documents and attach them to the JRN.JR_ID start a new transaction if the connection to the database is not already in a transaction

Parameters

$jr_id

(int) JRN.JR_ID

Definition at line 3698 of file acc_ledger.class.php.

    {
         if (! isset ($_FILES['document_supplemental']) || count($_FILES['document_supplemental']['name'])==0) {
            return;
        }
        $nb=count($_FILES['document_supplemental']["name"]);
        $a=0;
        if ( $this->db->status() !== PGSQL_TRANSACTION_INTRANS ) {
            $a=1;
            $this->db->start();
        }
        for ($i=0;$i<$nb;$i++)
        {
            $file= tempnam($_ENV["TMP"], "sup_file");
            if ( move_uploaded_file($_FILES['document_supplemental']['tmp_name'][$i],$file))
            {
                if ( ($oid=$this->db->lo_import($file)) != false )
                {
                    $jrn_sup=new Jrn_Sup_Document_SQL($this->db);
                    $jrn_sup->jr_id=$jr_id;
                    $jrn_sup->js_lob=$oid;
                    $jrn_sup->js_mimetype=$_FILES['document_supplemental']['type'][$i];
                    $jrn_sup->js_filename=$_FILES['document_supplemental']['name'][$i];
                    $jrn_sup->insert();
                }
            }
        }
        if ( $a == 1) { $this->db->commit(); }
    }

References $a, $file, $i, $jr_id, $nb, and db.

Referenced by Acc_Ledger_Fin\insert().

use_quant_table()

Acc_Ledger::use_quant_table	(		$p_grpt_id,
			$p_jrn_type )

Check if the operation is used in the table quant*.

Parameters

integer	$p_grpt_id
string	$p_jrn_type	ledger's type ACH, VEN,ODS or FIN

Returns

boolean TRUE if existing info in quant* @Exceptions code 1000 if unknown ledger's type

Definition at line 3463 of file acc_ledger.class.php.

    {
        if ( $p_jrn_type == 'ACH')
        {
            $sql="select count(*) from jrnx join quant_purchase using (j_id) where j_grpt=$1";
        }elseif ($p_jrn_type=='VEN')
        {
            $sql="select count(*) from jrnx join quant_sold using (j_id) where j_grpt=$1";
        }elseif ($p_jrn_type=='FIN')
        {
            $sql="select count(*) from jrn join quant_fin using (jr_id) where jr_grpt_id=$1";
            
        }elseif ($p_jrn_type=='ODS') return 0;
        else 
        {
            throw new Exception(_('Journal incorrect'),1000);
        }
        
        $count=$this->db->get_value($sql,[$p_grpt_id]);
        
        if ($count > 0) return TRUE; 
        
        return FALSE;
        
    }

References $count, $sql, _, db, and elseif.

vat_operation()

Acc_Ledger::vat_operation

(

$p_jr_id

)

get the amount of vat for a given jr_grpt_id from the table quant_purchase

Parameters

the	jr_grpt_id

Returns

array of sum_vat, tva_label

Note

See also

Definition at line 2192 of file acc_ledger.class.php.

    {
        if ($this->get_type()=='ACH')
        {
            $array=$this->db->get_array('select coalesce(sum(qp_vat),0) as sum_vat,tva_id
                                        from quant_purchase as p right join tva_rate on (qp_vat_code=tva_id)  join jrnx using(j_id)
                                        where tva_rate !=0.0 and j_grpt=$1 group by tva_id',
                    array($p_jr_id));
        }
        if ($this->get_type()=='VEN')
        {
            $array=$this->db->get_array('select coalesce(sum(qs_vat),0) as sum_vat,tva_id
                                        from quant_sold as p right join tva_rate on (qs_vat_code=tva_id)  join jrnx using(j_id)
                                        where tva_rate !=0.0 and j_grpt=$1 group by tva_id',
                    array($p_jr_id));
        }
        return $array;
    }

References $array, db, and get_type().

Here is the call graph for this function:

verify_autonumber()

Acc_Ledger::verify_autonumber ( $p_array )

protected

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

Parameters

$p_array

same structure as input

Returns

void

Definition at line 3650 of file acc_ledger.class.php.

    {
        if (empty($p_array['e_pj'])) return true;
        if (empty($p_array['e_pj_suggest'])) return true;
        if ( noalyss_trim($p_array['e_pj'])===noalyss_trim($p_array['e_pj_suggest'])) { return true; }
        return false;
    }

References $p_array, and noalyss_trim().

Referenced by warn_manual_receipt().

Here is the call graph for this function:

verify_ledger()

Acc_Ledger::verify_ledger

(

$array

)

Verify before update.

Parameters

type

$array 'p_jrn' => string '3' (length=1) 'sa' => string 'detail' (length=6) 'gDossier' => string '82' (length=2) 'p_jrn_deb_max_line' => string '10' (length=2) 'p_ech_lib' => string 'echeance' (length=8) 'p_jrn_type' => string 'ACH' (length=3) 'p_jrn_name' => string 'Achat' (length=5) 'jrn_def_pj_pref' => string 'ACH' (length=3) 'jrn_def_pj_seq' => string '0' (length=1) 'FICHECRED' =>array(fd_id) 'FICHEDEB' =>array(fd_id) 'update' => string 'Sauve' (length=5

Exceptions

is	throw is test are not valid

Definition at line 2756 of file acc_ledger.class.php.

    {
        $http=new HttpInput();
        $http->set_array($array);
        $p_jrn=$http->extract('p_jrn',);
        $p_jrn_deb_max_line=$http->extract('p_jrn_deb_max_line');
        $p_jrn_name=$http->extract('p_jrn_name');
        $p_jrn_type=$http->extract('p_jrn_type');
        $p_jrn_quantity=$http->extract('p_jrn_quantity','number',0);
 
        try
        {
            if (isNumber($p_jrn)==0)
                throw new Exception("Id invalide");
            if (isNumber($p_jrn_deb_max_line)==0)
                throw new Exception(_("Nombre de ligne incorrect"));
            if (trim($p_jrn_name)=="")
                throw new Exception("Nom de journal invalide");
            if ($this->db->get_value("select count(*) from jrn_def where jrn_def_name=$1 and jrn_Def_id<>$2",
                            array($p_jrn_name, $p_jrn))>0)
                throw new Exception(_("Un journal avec ce nom existe déjà"));
            if ($p_jrn_type=='FIN')
            {
                $http=new \HttpInput();
                $a=new Fiche($this->db);
                $bank=$http->post("bank");
                $result=$a->get_by_qcode(trim(strtoupper($bank)), false);
                if ($result==1)
                    throw new Exception(_("Aucun compte en banque n'est donné"));
            }
            if ($p_jrn_type=="-1")
            {
                throw new Exception(_('Choix du type de journal est obligatoire'));
            }
 
           if ( isset( $array['negative_warning']) && 
                isset( $array['negative_amount']) &&
                $array['negative_amount'] == 1 
                   && trim($array['negative_warning'])=="") {
 
                throw new Exception(_("Avertissement ne peut être vide"));
            }
            if ( isset( $array['negative_amount'])  &&
                 $array['negative_amount'] <> 0 &&
                 $array['negative_amount'] <> 1 )
             {
                  throw new Exception(_("Valeur invalide {$array['negative_amount']}"));
            }
        }
        catch (Exception $e)
        {
              record_log($e);
            throw $e;
        }
    }

References $a, $array, $e, $http, $p_jrn, $result, _, db, isNumber(), and record_log().

Here is the call graph for this function:

verify_operation()

Acc_Ledger::verify_operation

(

$p_array

)

verify that the operation can be saved

Parameters

$p_array

array of data same layout that the $_POST from show_form

Exceptions

the	getcode value is 1 incorrect balance, 2 date invalid, 3 invalid amount, 4 the card is not in the range of permitted card, 5 not in the user's period, 6 closed period

Reimplemented in Acc_Ledger_Fin, Acc_Ledger_Purchase, and Acc_Ledger_Sale.

Definition at line 1227 of file acc_ledger.class.php.

    {
        global $g_parameter;
        $http=new HttpInput();
        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');
 
        extract($p_array, EXTR_SKIP);
        global $g_user;
        $tot_cred=0;
        $tot_deb=0;
        $msg=array();
        $http->set_array($p_array);
        /* Check currency : rate cannot be equal to 0 */
        $currency_rate=$http->extract("p_currency_rate","number");
        if ( $currency_rate <=0 ) {
            throw new Exception(_("Taux de conversion doit être supérieur à 0"),3);
        }
        /* Check currency : Does the currency parameter exist */
        $currency_code=$http->extract("p_currency_code","number");
        $currency=new Acc_Currency($this->db,$currency_code);
 
        $this->check_currency_setting($currency_code);
        
        /* check if we can write into this ledger */
        if ($g_user->check_jrn($p_jrn)!='W')
            throw new Exception(_('Accès interdit'), 20);
 
        /* check for a double reload */
        if (isset($mt)&&$this->db->count_sql('select jr_mt from jrn where jr_mt=$1',
                        array($mt))!=0)
            throw new Exception(_('Double Encodage'), 5);
 
        // Check the periode and the date
        if (isDate($e_date)==null)
        {
            throw new Exception(_('Date invalide'), 2);
        }
        $periode=new Periode($this->db);
        /* find the periode  if we have enabled the check_periode 
         * or if period is not set
         */
        if ($this->check_periode()==false||!isset($p_array['period']))
        {
            try {
                $periode->find_periode($e_date);
            } catch (Exception $e) {
                throw new Exception(_("Période inexistante"), 6, $e);
            }
        }
        else
        {
            $periode->p_id=$p_array['period'];
            list ($min, $max)=$periode->get_date_limit();
            if (cmpDate($e_date, $min)<0||
                    cmpDate($e_date, $max)>0)
                throw new Exception(_('Date et periode ne correspondent pas'), 6);
        }
 
 
 
        // Periode ferme
        if ($this->is_closed($periode->p_id)==1)
        {
            throw new Exception(_('Periode fermee'), 6);
        }
        /* check if we are using the strict mode */
        if ($this->check_strict()==true)
        {
            /* if we use the strict mode, we get the date of the last
              operation */
            $last_date=$this->get_last_date();
            if ($last_date!=null&&cmpDate($e_date, $last_date)<0)
                throw new Exception(
                        sprintf ( 
                                _('Vous utilisez le mode strict la dernière operation est la date du %s
                vous ne pouvez pas encoder à une date antérieure'),$last_date),
                15);
        }
 
        for ($i=0; $i<$nb_item; $i++)
        {
            $err=0;
 
            // compatibily php 8.0 , if $amount is not a number then skip
            if (!isset(${'amount'.$i}) || isNumber(${'amount'.$i})==0) {
                continue;
            }
            
            // Check the balance
            $amount=round(${'amount'.$i}, 2);
            $tot_deb+=(isset(${'ck'.$i}))?$amount:0;
            $tot_cred+=(!isset(${'ck'.$i}))?$amount:0;
 
            // Check if the card is permitted
            if (isset(${'qc_'.$i})&&trim(${'qc_'.$i})!="")
            {
                $f=new Fiche($this->db);
                $f->get_by_qcode(${'qc_'.$i});
                $f->quick_code=${'qc_'.$i};
 
                if ($f->get_f_enable() == '0')
                    throw new Exception(sprintf(_("La fiche %s n'est plus utilisée"),${'qc_'.$i}), 50);
                if ($f->belong_ledger($p_jrn) < 1 )
                    throw new Exception("La fiche quick_code = ".
                    $f->quick_code." n'est pas accessible depuis ce journal, à configurer dans C0JRN", 4);
                if (noalyss_strlentrim(${'qc_'.$i})!=0&&isNumber(${'amount'.$i})==0)
                    throw new Exception(_('Montant invalide'), 3);
 
                $strPoste=$f->get_attribute(ATTR_DEF_ACCOUNT);
                if ($strPoste=='')
                    throw new Exception(sprintf(_("La fiche %s n'a pas de poste comptable"),
                            ${"qc_".$i}));
 
                $p=new Acc_Account_Ledger($this->db, $strPoste);
                if ($p->do_exist()==0)
                    throw new Exception(_('Poste Inexistant pour la fiche ['.${'qc_'.$i}.']'),
                    4);
            }
 
            // Check if the account is permitted
            if (isset(${'poste'.$i})&&noalyss_strlentrim(${'poste'.$i})!=0)
            {
                $p=new Acc_Account_Ledger($this->db, ${'poste'.$i});
                if ($p->belong_ledger($p_jrn)<0) {
                    throw new Exception(sprintf ( 
                            _("Le poste %s n'est pas accessible dans ce journal, à configurer dans C0JRN",$p->id)),
                    5);
                }
                if (noalyss_strlentrim(${'poste'.$i})!=0&&isNumber(${'amount'.$i})==0)
                    throw new Exception(_('Poste invalide ['.${'poste'.$i}.']'),
                    3);
                if ($p->do_exist()==0)
                    throw new Exception(_('Poste Inexistant ['.${'poste'.$i}.']'),
                    4);
                $card_id=$p->find_card();
                if (!empty($card_id))
                {
                    $str_msg=sprintf(_(" Le poste %s appartient à  fiche(s) dont : %s"),$p->id,count($card_id));
                    $max=(count($card_id)>MAX_COMPTE_CARD)?MAX_COMPTE_CARD:count($card_id);
                    for ($x=0; $x<$max; $x++)
                    {
                        $card=new Fiche($this->db, $card_id[$x]['f_id']);
                        $str_msg.=HtmlInput::card_detail($card->get_attribute(ATTR_DEF_QUICKCODE),
                                        $card->get_attribute(ATTR_DEF_NAME),
                                        'style="color:red;display:inline;text-decoration:underline"');
                        $str_msg.=" ";
                    }
                    $msg[]=$str_msg;
                }
                $account=new Acc_Account($this->db,${"poste".$i});
                if ( $account->get_parameter("pcm_direct_use") == "N") {
                    throw new Exception(sprintf (_("Utilisation directe interdite du poste comptable %s"), ${"poste".$i}));
                }
            }
        }
        $tot_deb=round($tot_deb, 4);
        $tot_cred=round($tot_cred, 4);
        if ($tot_deb!=$tot_cred)
        {
            throw new Exception(_("Balance incorrecte ")." debit = $tot_deb credit=$tot_cred ",
            1);
        }
 
        return $msg;
    }

References from, jrn, n, and style.

Referenced by confirm().

warn_manual_receipt()

Acc_Ledger::warn_manual_receipt ( $p_array )

protected

warn if the suggested receipt and receipt are different , it means that the user tried to number himself

Parameters

$p_array

same structure as input

See also

Acc_Ledger\input()

Acc_Ledger\confirm()

Returns

void

Definition at line 3665 of file acc_ledger.class.php.

    {
        if ( $this->verify_autonumber($p_array) == false) {
            return span (_("Attention ! Numéro de Pièce non automatique mais forcée"),'class="warning"');
        }
    }

References $p_array, _, span(), and verify_autonumber().

Referenced by confirm(), Acc_Ledger_Purchase\confirm(), and Acc_Ledger_Sale\confirm().

Here is the call graph for this function:

Field Documentation

$currency_id

Acc_Ledger::$currency_id

$currency_id (int) SQL:CURRENCY.ID default 0 is_loaded true the ledger definition is loaded or false, it is not

Definition at line 43 of file acc_ledger.class.php.

Referenced by Acc_Ledger_Fin\insert(), and select_default_currency().

$db

Acc_Ledger::$db

database connextion

Definition at line 39 of file acc_ledger.class.php.

Referenced by display_ledger(), input(), Acc_Ledger_Fin\input(), Acc_Ledger_Purchase\input(), Acc_Ledger_Sale\input(), and input_new().

$doc

Acc_Ledger::$doc

$doc (string) HTML with an anchor to the doc. of operation

Definition at line 68 of file acc_ledger.class.php.

$id

Acc_Ledger::$id

jrn_def.jrn_def_id

Definition at line 38 of file acc_ledger.class.php.

Referenced by __construct(), get_ledger_id(), get_rowSimple(), reverse(), select_ledger(), set_ledger_id(), test_me(), and update_paid().

$is_loaded

Acc_Ledger::$is_loaded

protected

Definition at line 45 of file acc_ledger.class.php.

Referenced by get_is_loaded(), and set_is_loaded().

$jr_grpt_id

Acc_Ledger::$jr_grpt_id

Definition at line 64 of file acc_ledger.class.php.

$jr_id

Acc_Ledger::$jr_id

$jr_id (int) SQL : PK JRN.JR_ID

Definition at line 48 of file acc_ledger.class.php.

Referenced by Acc_Ledger_Purchase\confirm(), Acc_Ledger_Sale\confirm(), get_tiers(), get_tiers_id(), Acc_Ledger_Fin\insert(), save_followup(), and upload_supplemental_document().

$jr_internal

Acc_Ledger::$jr_internal

$jr_internal (string) internal number for an operation

Definition at line 47 of file acc_ledger.class.php.

Referenced by Acc_Ledger_Fin\confirm(), and test_me().

$jrn_deb_max_line

Acc_Ledger::$jrn_deb_max_line

$jrn_deb_max_line(int) max rows to display

Definition at line 55 of file acc_ledger.class.php.

$jrn_def_description

Acc_Ledger::$jrn_def_description

$jrn_def_description(string) ledger description

Definition at line 56 of file acc_ledger.class.php.

Referenced by display_ledger().

$jrn_def_ech_lib

Acc_Ledger::$jrn_def_ech_lib

$jrn_def_ech_lib (string) text for limit date

Definition at line 52 of file acc_ledger.class.php.

$jrn_def_id

Acc_Ledger::$jrn_def_id

$jrn_def_id(INT) jrn_def.jrn_def_id

Definition at line 50 of file acc_ledger.class.php.

Referenced by save_new(), and test_me().

$jrn_def_max_line_deb

Acc_Ledger::$jrn_def_max_line_deb

$jr_id (int) PK.JRN

Definition at line 49 of file acc_ledger.class.php.

$jrn_def_name

Acc_Ledger::$jrn_def_name

$jrn_def_name(string) ledger name

Definition at line 51 of file acc_ledger.class.php.

Referenced by __construct(), and display_ledger().

$jrn_def_negative_amount

Acc_Ledger::$jrn_def_negative_amount

$jrn_def_negative_amount (0-1) 0: ledger use positive or negative amount, 1: ledger should use negative amount

Definition at line 58 of file acc_ledger.class.php.

$jrn_def_negative_warning

Acc_Ledger::$jrn_def_negative_warning

$jrn_def_negative_warning (string) string to display if the amount is not positive (see $jrn_def_negative_amount)

Definition at line 59 of file acc_ledger.class.php.

$jrn_def_pj_pref

Acc_Ledger::$jrn_def_pj_pref

$jrn_def_pj_pref(string) prefix for receipt

Definition at line 54 of file acc_ledger.class.php.

Referenced by display_ledger(), and save_new().

$jrn_def_quantity

Acc_Ledger::$jrn_def_quantity

$jrn_def_quantity (0-1) 0 no quantity for operations 1 has quantity

Definition at line 60 of file acc_ledger.class.php.

Referenced by has_quantity(), save_new(), and update().

$jrn_def_type

Acc_Ledger::$jrn_def_type

$jrn_def_type(string) type of the ledger ACH,VEN,ODS,FIN

Definition at line 53 of file acc_ledger.class.php.

Referenced by display_ledger().

$jrn_enable

Acc_Ledger::$jrn_enable

$jrn_enable (0 or 1)0:ledger not available, 1:ledger available

Definition at line 57 of file acc_ledger.class.php.

Referenced by display_ledger().

$ledger_name

Acc_Ledger::$ledger_name

Definition at line 46 of file acc_ledger.class.php.

Referenced by get_name().

$ledger_type

Acc_Ledger::$ledger_type

type of the ledger ACH ODS FIN VEN or GL

Definition at line 41 of file acc_ledger.class.php.

$nb

Acc_Ledger::$nb

default number of rows by default 10

Definition at line 42 of file acc_ledger.class.php.

Referenced by button_copy_operation(), input(), upload_supplemental_document(), Acc_Ledger_Fin\verify_operation(), Acc_Ledger_Purchase\verify_operation(), and Acc_Ledger_Sale\verify_operation().

$pj

Acc_Ledger::$pj

!

$jr_grpt_id (int) SQL JRN.JR_GRP_ID group rows of an operations $pj (string) nb receipt of the operation

Definition at line 66 of file acc_ledger.class.php.

Referenced by Acc_Ledger_Purchase\confirm(), Acc_Ledger_Sale\confirm(), Acc_Ledger_Purchase\input(), and Acc_Ledger_Sale\input().

$row

Acc_Ledger::$row

row of the ledger

Definition at line 40 of file acc_ledger.class.php.

Referenced by display_additional_tax(), get_min_row(), input_additional_tax(), Acc_Ledger_Fin\insert(), Acc_Ledger_Purchase\insert(), Acc_Ledger_Sale\insert(), and reverse().

$with_concerned

Acc_Ledger::$with_concerned

$with_concerned(bool) : true is operation comes with another one,

Definition at line 62 of file acc_ledger.class.php.

---

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

• include/class/acc_ledger.class.php