YunoHost-Apps/noalyss_ynh
1
0
Fork 0
mirror of https://github.com/YunoHost-Apps/noalyss_ynh.git synced 2024-09-03 19:46:20 +02:00
Code Issues Activity Actions
noalyss_ynh/sources/include/class_acc_ledger_sold.php

1375 lines
54 KiB
PHP
Raw Normal View History

init
2015-09-27 00:35:53 +02:00
<?php
/*
* This file is part of NOALYSS.
*
* NOALYSS is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* NOALYSS is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with NOALYSS; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
// Copyright Author Dany De Bontridder danydb@aevalys.eu
/* !\file
* \brief class for the sold, herits from acc_ledger
*/
require_once NOALYSS_INCLUDE.'/class_iselect.php';
require_once NOALYSS_INCLUDE.'/class_icard.php';
require_once NOALYSS_INCLUDE.'/class_ispan.php';
require_once NOALYSS_INCLUDE.'/class_ihidden.php';
require_once NOALYSS_INCLUDE.'/class_idate.php';
require_once NOALYSS_INCLUDE.'/class_itext.php';
require_once NOALYSS_INCLUDE.'/class_ifile.php';
require_once NOALYSS_INCLUDE.'/class_acc_ledger.php';
require_once NOALYSS_INCLUDE.'/class_acc_compute.php';
require_once NOALYSS_INCLUDE.'/class_anc_operation.php';
require_once NOALYSS_INCLUDE.'/user_common.php';
require_once NOALYSS_INCLUDE.'/class_acc_payment.php';
require_once NOALYSS_INCLUDE.'/ac_common.php';
require_once NOALYSS_INCLUDE.'/class_own.php';
require_once NOALYSS_INCLUDE.'/class_itva_popup.php';
require_once NOALYSS_INCLUDE.'/class_acc_ledger_fin.php';
require_once NOALYSS_INCLUDE.'/class_stock_goods.php';
require_once NOALYSS_INCLUDE.'/class_acc_ledger.php';
/* !\brief Handle the ledger of sold,
*
* @exception throw an exception is something is wrong
*/
class Acc_Ledger_Sold extends Acc_Ledger {
function __construct($p_cn, $p_init) {
parent::__construct($p_cn, $p_init);
$this->type = 'VEN';
}
/* !\brief verify that the data are correct before inserting or confirming
* \param an array (usually $_POST)
* \return String
* \throw Exception if an error occurs
*/
public function verify($p_array) {
global $g_parameter, $g_user;
if (is_array($p_array ) == false || empty($p_array))
throw new Exception ("Array empty");
extract($p_array);
/*
* Check needed value
*/
check_parameter($p_array,'p_jrn,e_date,e_client');
/* check for a double reload */
if (isset($mt) && $this->db->count_sql('select jr_mt from jrn where jr_mt=$1', array($mt)) != 0)
throw new Exception(_('Double Encodage'), 5);
/* check if we can write into this ledger */
if ($g_user->check_jrn($p_jrn) != 'W')
throw new Exception(_('Accès interdit'), 20);
/* check if there is a customer */
if (strlen(trim($e_client)) == 0)
throw new Exception(_('Vous n\'avez pas donné de client'), 11);
/* check if the date is valid */
if (isDate($e_date) == null) {
throw new Exception(_('Date invalide'), 2);
}
$oPeriode = new Periode($this->db);
if ($this->check_periode() == true) {
$tperiode = $period;
/* check that the datum is in the choosen periode */
$oPeriode->p_id = $period;
list ($min, $max) = $oPeriode->get_date_limit();
if (cmpDate($e_date, $min) < 0 ||
cmpDate($e_date, $max) > 0)
throw new Exception(_('Date et periode ne correspondent pas'), 6);
}
else {
$per = new Periode($this->db);
$tperiode = $per->find_periode($e_date);
}
/* check if the periode is closed */
if ($this->is_closed($tperiode) == 1) {
throw new Exception(_('Periode fermee'), 6);
}
/* check if we are using the strict mode */
if ($this->check_strict() == true) {
/* if we use the strict mode, we get the date of the last
operation */
$last_date = $this->get_last_date();
if ($last_date != null && cmpDate($e_date, $last_date) < 0)
throw new Exception(_('Vous utilisez le mode strict la dernière operation est date du ')
. $last_date . _(' vous ne pouvez pas encoder à une date antérieure'), 13);
}
$fiche = new Fiche($this->db);
$fiche->get_by_qcode($e_client);
if ($fiche->empty_attribute(ATTR_DEF_ACCOUNT) == true)
throw new Exception(_('La fiche ') . $e_client . _('n\'a pas de poste comptable'), 8);
/* get the account and explode if necessary */
$sposte = $fiche->strAttribut(ATTR_DEF_ACCOUNT);
// if 2 accounts, take only the debit one for customer
if (strpos($sposte, ',') != 0) {
$array = explode(',', $sposte);
$poste_val = $array[0];
} else {
$poste_val = $sposte;
}
/* The account exists */
$poste = new Acc_Account_Ledger($this->db, $poste_val);
if ($poste->load() == false) {
throw new Exception(_('Pour la fiche ') . $e_client . _(' le poste comptable [') . $poste->id . _('] n\'existe pas'), 9);
}
/* Check if the card belong to the ledger */
$fiche = new Fiche($this->db);
$fiche->get_by_qcode($e_client, 'deb');
if ($fiche->belong_ledger($p_jrn) != 1)
throw new Exception(_('La fiche ') . $e_client . _('n\'est pas accessible à ce journal'), 10);
$nb = 0;
//----------------------------------------
// foreach item
//----------------------------------------
for ($i = 0; $i < $nb_item; $i++) {
if (strlen(trim(${'e_march' . $i})) == 0)
continue;
/* check if amount are numeric and */
if (isNumber(${'e_march' . $i . '_price'}) == 0)
throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un montant invalide [') . ${'e_march' . $i} . ']', 6);
if (isNumber(${'e_quant' . $i}) == 0)
throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a une quantité invalide [') . ${'e_quant' . $i} . ']', 7);
/* check if all card has a ATTR_DEF_ACCOUNT */
$fiche = new Fiche($this->db);
$fiche->get_by_qcode(${'e_march' . $i});
if ($fiche->empty_attribute(ATTR_DEF_ACCOUNT) == true)
throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('n\'a pas de poste comptable'), 8);
// Check if the given tva id is valid
if ($g_parameter->MY_TVA_USE == 'Y') {
if (isNumber(${'e_march' . $i . '_tva_id'}) == 0)
throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un code tva invalide') . ' [' . ${'e_march' . $i . '_tva_id'} . ']', 13);
$tva_rate = new Acc_Tva($this->db);
$tva_rate->set_parameter('id', ${'e_march' . $i . '_tva_id'});
if ($tva_rate->load() != 0)
throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('a un code tva invalide') . ' [' . ${'e_march' . $i . '_tva_id'} . ']', 13);
/*
* check if the accounting for VAT are valid
*/
$a_poste = explode(',', $tva_rate->tva_poste);
if (
$this->db->get_value('select count(*) from tmp_pcmn where pcm_val=$1', array($a_poste[0])) == 0 ||
$this->db->get_value('select count(*) from tmp_pcmn where pcm_val=$1', array($a_poste[1])) == 0)
throw new Exception(_(" La TVA " . $tva_rate->tva_label . " utilise des postes comptables inexistants"));
}
// if 2 accounts, take only the credit one
/* The account exists */
$sposte = $fiche->strAttribut(ATTR_DEF_ACCOUNT);
if (strpos($sposte, ',') != 0) {
$array = explode(',', $sposte);
$poste_val = $array[1];
} else {
$poste_val = $sposte;
}
$poste = new Acc_Account_Ledger($this->db, $poste_val);
if ($poste->load() == false) {
throw new Exception(_('Pour la fiche ') . ${'e_march' . $i} . _(' le poste comptable [') . $poste->id . _('n\'existe pas'), 9);
}
/* Check if the card belong to the ledger */
$fiche = new Fiche($this->db);
$fiche->get_by_qcode(${'e_march' . $i});
if ($fiche->belong_ledger($p_jrn, 'cred') != 1)
throw new Exception(_('La fiche ') . ${'e_march' . $i} . _('n\'est pas accessible à ce journal'), 10);
$nb++;
}
if ($nb == 0)
throw new Exception(_('Il n\'y a aucune marchandise'), 12);
//------------------------------------------------------
// The "Paid By" check
//------------------------------------------------------
if ($e_mp != 0) {
$this->check_payment($e_mp, ${"e_mp_qcode_" . $e_mp});
}
}
/* !\brief insert into the database, it calls first the verify function,
* change the value of this->jr_id and this->jr_internal
* * It generates the document if gen_invoice is set and save the middle of payment if any ($e_mp)
*
* \param $p_array is usually $_POST or a predefined operation
* \return string
* \note throw an Exception
*/
public function insert($p_array = null) {
global $g_parameter;
extract($p_array);
$this->verify($p_array);
$group = $this->db->get_next_seq("s_oa_group"); /* for analytic */
$seq = $this->db->get_next_seq('s_grpt');
$this->id = $p_jrn;
$internal = $this->compute_internal_code($seq);
$this->internal = $internal;
$oPeriode = new Periode($this->db);
$check_periode = $this->check_periode();
if ($check_periode == true)
$tperiode = $period;
else
$tperiode = $oPeriode->find_periode($e_date);
$cust = new Fiche($this->db);
$cust->get_by_qcode($e_client);
$sposte = $cust->strAttribut(ATTR_DEF_ACCOUNT);
// if 2 accounts, take only the debit one for the customer
//
if (strpos($sposte, ',') != 0) {
$array = explode(',', $sposte);
$poste = $array[0];
} else {
$poste = $sposte;
}
bcscale(4);
try {
$tot_amount = 0;
$tot_tva = 0;
$tot_debit = 0;
$this->db->start();
$tva = array();
/* Save all the items without vat */
for ($i = 0; $i < $nb_item; $i++) {
$n_both = 0;
if (strlen(trim(${'e_march' . $i})) == 0)
continue;
/* First we save all the items without vat */
$fiche = new Fiche($this->db);
$fiche->get_by_qcode(${"e_march" . $i});
$amount = bcmul(${'e_march' . $i . '_price'}, ${'e_quant' . $i});
$tot_amount = round(bcadd($tot_amount, $amount),2);
$acc_operation = new Acc_Operation($this->db);
$acc_operation->date = $e_date;
$sposte = $fiche->strAttribut(ATTR_DEF_ACCOUNT);
// if 2 accounts, take only the credit one
if (strpos($sposte, ',') != 0) {
$array = explode(',', $sposte);
$poste_val = $array[1];
} else {
$poste_val = $sposte;
}
$acc_operation->poste = $poste_val;
$acc_operation->amount = $amount;
$acc_operation->grpt = $seq;
$acc_operation->jrn = $p_jrn;
$acc_operation->type = 'c';
$acc_operation->periode = $tperiode;
if ($g_parameter->MY_UPDLAB == 'Y')
$acc_operation->desc = strip_tags(${"e_march" . $i . "_label"});
else
$acc_operation->desc = null;
$acc_operation->qcode = ${"e_march" . $i};
if ($amount < 0)
$tot_debit = bcadd($tot_debit, abs($amount));
$j_id = $acc_operation->insert_jrnx();
if ($g_parameter->MY_TVA_USE == 'Y') {
/* Compute sum vat */
$oTva = new Acc_Tva($this->db);
$idx_tva = ${'e_march' . $i . '_tva_id'};
$tva_item = ${'e_march' . $i . '_tva_amount'};
$oTva->set_parameter("id", $idx_tva);
$oTva->load();
/* if empty then we need to compute it */
if (trim($tva_item) == '' || ${'e_march'.$i.'_tva_amount'} == 0) {
/* retrieve tva */
$l = new Acc_Tva($this->db, $idx_tva);
$l->load();
$tva_item = bcmul($amount, $l->get_parameter('rate'));
}
if (isset($tva[$idx_tva]))
$tva[$idx_tva]+=$tva_item;
else
$tva[$idx_tva] = $tva_item;
if ($oTva->get_parameter("both_side") == 0) {
$tot_tva = round(bcadd($tva_item, $tot_tva), 2);
} else {
$n_both = $tva_item;
if ($n_both < 0)
$tot_debit = bcadd($tot_debit, abs($n_both));
}
}
/* Save the stock */
/* if the quantity is < 0 then the stock increase (return of
* material)
*/
$nNeg = (${"e_quant" . $i} < 0) ? -1 : 1;
// always save quantity but in withStock we can find
// what card need a stock management
if ($g_parameter->MY_STOCK = 'Y' && isset($repo))
{
$dir=(${'e_quant'.$i} < 0 ) ? 'd':'c';
Stock_Goods::insert_goods($this->db, array('j_id' => $j_id, 'goods' => ${'e_march' . $i}, 'quant' => $nNeg * ${'e_quant' . $i}, 'dir' => $dir, 'repo' => $repo));
}
if ($g_parameter->MY_ANALYTIC != "nu") {
// for each item, insert into operation_analytique */
$op = new Anc_Operation($this->db);
$op->oa_group = $group;
$op->j_id = $j_id;
$op->oa_date = $e_date;
$op->oa_debit = 'f';
$op->oa_description = sql_string($e_comm);
$op->save_form_plan($_POST, $i, $j_id);
}
if ($g_parameter->MY_TVA_USE == 'Y') {
/* save into quant_sold */
$r = $this->db->exec_sql("select insert_quant_sold ($1,$2,$3,$4,$5,$6,$7,$8,$9)", array(null, /* 1 */
$j_id, /* 2 */
${'e_march' . $i}, /* 3 */
${'e_quant' . $i}, /* 4 */
round($amount, 2), /* 5 */
$tva_item, /* 6 */
$idx_tva, /* 7 */
$e_client, /* 8 */
$n_both));
} else {
$r = $this->db->exec_sql("select insert_quant_sold ($1,$2,$3,$4,$5,$6,$7,$8,$9) ", array(null, /* 1 */
$j_id, /* 2 */
${'e_march' . $i}, /* 3 */
${'e_quant' . $i}, /* 4 */
$amount, // 5
0,
null,
$e_client,
0));
} // if ( $g_parameter->MY_TVA_USE=='Y') {
}// end loop : save all items
/* save total customer */
$cust_amount = bcadd($tot_amount, $tot_tva);
$acc_operation = new Acc_Operation($this->db);
$acc_operation->date = $e_date;
$acc_operation->poste = $poste;
$acc_operation->amount = $cust_amount;
$acc_operation->grpt = $seq;
$acc_operation->jrn = $p_jrn;
$acc_operation->type = 'd';
$acc_operation->periode = $tperiode;
$acc_operation->qcode = ${"e_client"};
if ($cust_amount > 0)
$tot_debit = bcadd($tot_debit, $cust_amount);
$let_tiers = $acc_operation->insert_jrnx();
/** save all vat
* $i contains the tva_id and value contains the vat amount
* if if ($g_parameter->MY_TVA_USE == 'Y' )
*/
if ($g_parameter->MY_TVA_USE == 'Y') {
foreach ($tva as $i => $value) {
$oTva = new Acc_Tva($this->db);
$oTva->set_parameter('id', $i);
$oTva->load();
$poste_vat = $oTva->get_side('c');
$cust_amount = bcadd($tot_amount, $tot_tva);
$acc_operation = new Acc_Operation($this->db);
$acc_operation->date = $e_date;
$acc_operation->poste = $poste_vat;
$acc_operation->amount = $value;
$acc_operation->grpt = $seq;
$acc_operation->jrn = $p_jrn;
$acc_operation->type = 'c';
$acc_operation->periode = $tperiode;
if ($value < 0)
$tot_debit = bcadd($tot_debit, abs($value));
$acc_operation->insert_jrnx();
// if TVA is on both side, we deduce it immediately
if ($oTva->get_parameter("both_side") == 1) {
$poste_vat = $oTva->get_side('d');
$cust_amount = bcadd($tot_amount, $tot_tva);
$acc_operation = new Acc_Operation($this->db);
$acc_operation->date = $e_date;
$acc_operation->poste = $poste_vat;
$acc_operation->amount = $value;
$acc_operation->grpt = $seq;
$acc_operation->jrn = $p_jrn;
$acc_operation->type = 'd';
$acc_operation->periode = $tperiode;
$acc_operation->insert_jrnx();
$tot_debit = bcadd($tot_debit, $value);
$n_both = $value;
}
}
} // if ($g_parameter->MY_TVA_USE=='Y')
/* insert into jrn */
$acc_operation = new Acc_Operation($this->db);
$acc_operation->date = $e_date;
$acc_operation->echeance = $e_ech;
$acc_operation->amount = abs(round($tot_debit, 2));
$acc_operation->desc = $e_comm;
$acc_operation->grpt = $seq;
$acc_operation->jrn = $p_jrn;
$acc_operation->periode = $tperiode;
$acc_operation->pj = $e_pj;
$acc_operation->mt = $mt;
$this->jr_id = $acc_operation->insert_jrn();
$this->pj = $acc_operation->set_pj();
/* * = e_pj then do not increment sequence */
/* and e_pj is not null */
if (strcmp($e_pj, $e_pj_suggest) == 0 && strlen(trim($e_pj)) != 0) {
$this->inc_seq_pj();
}
$this->db->exec_sql("update jrn set jr_internal='" . $internal . "' where " .
" jr_grpt_id = " . $seq);
/* update quant_sold */
$this->db->exec_sql('update quant_sold set qs_internal = $1 where j_id in (select j_id from jrnx where j_grpt=$2)', array($internal, $seq));
/* Save the attachment or generate doc */
if (isset($_FILES['pj'])) {
if (strlen(trim($_FILES['pj']['name'])) != 0)
$this->db->save_upload_document($seq);
else
/* Generate an invoice and save it into the database */
if (isset($_POST['gen_invoice'])) {
$file = $this->create_document($internal, $p_array);
$this->doc='<A class="line" HREF="show_pj.php?' . dossier::get() . '&jr_grpt_id=' . $seq . '&jrn=' . $this->id . '">' . $file . '</A>';
}
}
//----------------------------------------
// Save the payer
//----------------------------------------
if ($e_mp != 0) {
/* mp */
$mp = new Acc_Payment($this->db, $e_mp);
$mp->load();
/* fiche */
$fqcode = ${'e_mp_qcode_' . $e_mp};
$acfiche = new Fiche($this->db);
$acfiche->get_by_qcode($fqcode);
/* jrnx */
$acseq = $this->db->get_next_seq('s_grpt');
$acjrn = new Acc_Ledger($this->db, $mp->get_parameter('ledger_target'));
$acinternal = $acjrn->compute_internal_code($acseq);
/* Insert paid by */
$acc_pay = new Acc_Operation($this->db);
$acc_pay->date = $e_date;
/* get the account and explode if necessary */
$sposte = $acfiche->strAttribut(ATTR_DEF_ACCOUNT);
// if 2 accounts, take only the debit one for customer
if (strpos($sposte, ',') != 0) {
$array = explode(',', $sposte);
$poste_val = $array[0];
} else {
$poste_val = $sposte;
}
$famount = bcsub($cust_amount, $acompte);
$acc_pay->poste = $poste_val;
$acc_pay->qcode = $fqcode;
$acc_pay->amount = abs(round($famount, 2));
$acc_pay->desc = null;
$acc_pay->grpt = $acseq;
$acc_pay->jrn = $mp->get_parameter('ledger_target');
$acc_pay->periode = $tperiode;
$acc_pay->type = ($famount >= 0) ? 'd' : 'c';
$acc_pay->insert_jrnx();
/* Insert supplier */
$acc_pay = new Acc_Operation($this->db);
$acc_pay->date = $e_date;
$acc_pay->poste = $poste;
$acc_pay->qcode = $e_client;
$acc_pay->amount = abs(round($famount, 2));
$acc_pay->desc = null;
$acc_pay->grpt = $acseq;
$acc_pay->jrn = $mp->get_parameter('ledger_target');
$acc_pay->periode = $tperiode;
$acc_pay->type = ($famount >= 0) ? 'c' : 'd';
$let_other = $acc_pay->insert_jrnx();
/* insert into jrn */
$acc_pay->mt = $mt;
$acjrn->grpt_id = $acseq;
$acc_pay->desc = (!isset($e_comm_paiement) || strlen(trim($e_comm_paiement)) == 0) ? $e_comm : $e_comm_paiement;
$mp_jr_id = $acc_pay->insert_jrn();
$acjrn->update_internal_code($acinternal);
$r1 = $this->get_id($internal);
$r2 = $this->get_id($acinternal);
/*
* add lettering
*/
$oletter = new Lettering($this->db);
$oletter->insert_couple($let_tiers, $let_other);
/* set the flag paid */
$Res = $this->db->exec_sql("update jrn set jr_rapt='paid' where jr_id=$1", array($r1));
/* Reconcialiation */
$rec = new Acc_Reconciliation($this->db);
$rec->set_jr_id($r1);
$rec->insert($r2);
/*
* save also into quant_fin
*/
/* get ledger property */
$ledger = new Acc_Ledger_Fin($this->db, $acc_pay->jrn);
$prop = $ledger->get_propertie();
/* if ledger is FIN then insert into quant_fin */
if ($prop['jrn_def_type'] == 'FIN') {
$ledger->insert_quant_fin($acfiche->id, $mp_jr_id, $cust->id, bcmul($famount, 1));
}
}
} catch (Exception $e) {
echo '<span class="error">' .
'Erreur dans l\'enregistrement ' .
__FILE__ . ':' . __LINE__ . ' ' .
$e->getMessage();
echo $e->getTrace();
$this->db->rollback();
throw new Exception ($e);
}
$this->db->commit();
return $internal;
}
/* !
* @brief show the summary of the operation and propose to save it
* @param array contains normally $_POST. It proposes also to save
* the Analytic accountancy
* @param $p_summary false for the feedback, true to show the summary
* @return string
*
*/
function confirm($p_array, $p_summary = false) {
global $g_parameter;
extract($p_array);
// don't need to verify for a summary
if (!$p_summary)
$this->verify($p_array);
$anc = null;
// to show a select list for the analytic & VAT USE
// if analytic is op (optionnel) there is a blank line
bcscale(4);
$client = new Fiche($this->db);
$client->get_by_qcode($e_client, true);
$client_name = $client->getName() .
' ' . $client->strAttribut(ATTR_DEF_ADRESS) . ' ' .
$client->strAttribut(ATTR_DEF_CP) . ' ' .
$client->strAttribut(ATTR_DEF_CITY);
$lPeriode = new Periode($this->db);
if ($this->check_periode() == true) {
$lPeriode->p_id = $period;
} else {
$lPeriode->find_periode($e_date);
}
$date_limit = $lPeriode->get_date_limit();
$r = "";
$r.='<TABLE>';
if ( $p_summary ) {
$jr_id=$this->db->get_value('select jr_id from jrn where jr_internal=$1',array($this->internal));
$r.="<tr>";
$r.='<td>';
$r.=_('Détail opération ');
$r.='</td>';
$r.='<td>';
$r.=sprintf ('<a class="line" style="display:inline" href="javascript:modifyOperation(%d,%d)">%s</a>',
$jr_id,dossier::id(),$this->internal);
$r.='</td>';
$r.="</tr>";
}
$r.='<tr>';
if ( ! $p_summary) {
$r.='<td>' . _('Numéro Pièce') .'</td><td>'. hb($e_pj) . '</td>';
} else {
if ( strcmp($this->pj,$e_pj) != 0 )
{
$r.='<td>' . _('Numéro Pièce') .'</td><td>'. hb($this->pj) .
'<span class="notice"> '._('Attention numéro pièce existante, elle a du être adaptée').'</span></td>';
} else {
$r.='<td>' . _('Numéro Pièce') .'</td><td>'. hb($this->pj) . '</td>';
}
}
$r.='</tr>';
$r.='<tr>';
$r.='<td> ' . _('Date') . '</td><td> ' . hb($e_date) . '</td>';
$r.='</tr>';
$r.='<tr>';
$r.='<td>' . _('Echeance') . '</td><td> ' . hb($e_ech) . '</td>';
$r.='</tr>';
$r.='<tr>';
$r.='<td> ' . _('Période Comptable') . '</td><td> ' .hb( $date_limit['p_start'] . '-' . $date_limit['p_end']) . '</td>';
$r.='</tr>';
$r.='<tr>';
$r.='<td> ' . _('Journal') . '</td><td> ' . hb($this->get_name()) . '</td>';
$r.='</tr>';
$r.='<tr>';
$r.='<td> ' . _('Libellé') . '</td><td> ' . hb($e_comm) . '</td>';
$r.='</tr>';
$r.='<tr>';
$r.='<td> ' . _('Client') . '</td><td> ' . hb($e_client . ':' . $client_name) . '</td>';
$r.='</tr>';
$r.='</table>';
$r.='<h2>' . _('Détail articles vendus') . '</h2>';
$r.='<p class="decale">';
$r.='<table class="result" >';
$r.='<TR>';
$r.="<th>" . _('Code') . "</th>";
$r.="<th>" . _('Dénomination') . "</th>";
$r.="<th style=\"text-align:right\">" . _('prix') . "</th>";
$r.="<th style=\"text-align:right\">" . _('quantité') . "</th>";
if ($g_parameter->MY_TVA_USE == 'Y') {
$r.="<th style=\"text-align:right\">" . _('tva') . "</th>";
$r.='<th style="text-align:right"> ' . _('Montant TVA') . '</th>';
$r.='<th style="text-align:right">' . _('Montant HTVA') . '</th>';
$r.='<th style="text-align:right">' . _('Montant TVAC') . '</th>';
} else {
$r.='<th style="text-align:right">' . _('Montant') . '</th>';
}
/* if we use the AC */
if ($g_parameter->MY_ANALYTIC != 'nu') {
$anc = new Anc_Plan($this->db);
$a_anc = $anc->get_list();
$x = count($a_anc);
/* set the width of the col */
$r.='<th colspan="' . $x . '">' . _('Compt. Analytique') . '</th>';
/* add hidden variables pa[] to hold the value of pa_id */
$r.=Anc_Plan::hidden($a_anc);
}
$r.='</tr>';
$tot_amount = 0.0;
$tot_tva = 0.0;
for ($i = 0; $i < $nb_item; $i++) {
if (strlen(trim(${"e_march" . $i})) == 0)
continue;
/* retrieve information for card */
$fiche = new Fiche($this->db);
$fiche->get_by_qcode(${"e_march" . $i});
if ($g_parameter->MY_UPDLAB == 'Y')
$fiche_name = h(${"e_march" . $i . "_label"});
else
$fiche_name = $fiche->strAttribut(ATTR_DEF_NAME);
if ($g_parameter->MY_TVA_USE == 'Y') {
$oTva = new Acc_Tva($this->db);
$idx_tva = ${"e_march" . $i . "_tva_id"};
$oTva->set_parameter('id', $idx_tva);
$oTva->load();
}
$op = new Acc_Compute();
$amount = bcmul(${"e_march" . $i . "_price"}, ${'e_quant' . $i});
$op->set_parameter("amount", $amount);
if ($g_parameter->MY_TVA_USE == 'Y') {
$op->set_parameter('amount_vat_rate', $oTva->get_parameter('rate'));
$op->compute_vat();
$tva_computed = $op->get_parameter('amount_vat');
$tva_item = ${"e_march" . $i . "_tva_amount"};
if (isset($tva[$idx_tva]))
$tva[$idx_tva]+=$tva_item;
else
$tva[$idx_tva] = $tva_item;
$tot_tva = round(bcadd($tva_item, $tot_tva), 2);
}
$tot_amount = round(bcadd($tot_amount, $amount), 2);
$r.='<tr>';
$r.='<td>';
$r.=${"e_march" . $i};
$r.='</td>';
$r.='<TD style="border-bottom:1px dotted grey;">';
$r.=$fiche_name;
$r.='</td>';
$r.='<td class="num">';
$r.=nbm(${"e_march" . $i . "_price"});
$r.='</td>';
$r.='<td class="num">';
$r.=nbm(${"e_quant" . $i});
$r.='</td>';
$both_side=0;
if ($g_parameter->MY_TVA_USE == 'Y') {
$r.='<td class="num">';
$r.=$oTva->get_parameter('label');
$r.='</td>';
$both_side=$oTva->get_parameter("both_side");
/* warning if tva_computed and given are not the
same */
if (bcsub($tva_item, $tva_computed) != 0 && ! ($tva_item == 0 && $both_side == 1)) {
$r.='<td style="background-color:red" class="num">';
$r.=HtmlInput::infobulle(28);
$r.='<a href="#" class="error" style="display:inline" title="' . _("Attention Différence entre TVA calculée et donnée") . '">'
. nbm($tva_item) . '<a>';
} else {
$r.='<td class="num">';
$r.=nbm($tva_item);
}
$r.='</td>';
$r.='<td class="num">';
$r.=nbm($amount);
$r.='</td>';
$tot_row = bcadd($tva_item, $amount);
$r.=td(nbm($tot_row), 'class="num"');
} else {
$r.='<td class="num">';
$r.=nbm($amount);
$r.='</td>';
}
// encode the pa
if ($g_parameter->MY_ANALYTIC != 'nu') { // use of AA
// show form
$anc_op = new Anc_Operation($this->db);
$null = ($g_parameter->MY_ANALYTIC == 'op') ? 1 : 0;
$r.='<td>';
$p_mode = ($p_summary == false) ? 1 : 0;
$p_array['pa_id'] = $a_anc;
/* op is the operation it contains either a sequence or a jrnx.j_id */
$r.=HtmlInput::hidden('op[]=', $i);
$r.=$anc_op->display_form_plan($p_array, $null, $p_mode, $i, $amount);
$r.='</td>';
}
$r.='</tr>';
} // end loop item
//
// Add the sum
$decalage=($g_parameter->MY_TVA_USE == 'Y')?'<td></td><td></td><td></td><td></td>':'<td></td>';
$tot = round(bcadd($tot_amount, $tot_tva), 2);
$tot_tva=nbm($tot_tva);
$tot=nbm($tot);
$str_tot=_('Totaux');
$tot_amount=nbm($tot_amount);
$r.=<<<EOF
<tr class="highlight">
{$decalage}
<td>
{$str_tot}
</td>
<td class="num">
{$tot_tva}
</td>
<td class="num">
{$tot_amount}
</td>
<td class="num">
{$tot}
</td>
EOF;
$r.='</table>';
$r.='</p>';
if ($g_parameter->MY_ANALYTIC != 'nu' && ! $p_summary) // use of AA
$r.='<input type="button" class="button" value="' . _('Vérifiez Imputation Analytique') . '" onClick="verify_ca(\'\');">';
$r.=(! $p_summary )?'<div id="total_div_id" >':'<div>';
$r.='<h2>Totaux</h2>';
/* use VAT */
if ($g_parameter->MY_TVA_USE == 'Y') {
$r.='<table>';
$r.='<tr><td>Total HTVA</td>';
$r.=td(hb($tot_amount ),'class="num"');
foreach ($tva as $i => $value) {
$oTva->set_parameter('id', $i);
$oTva->load();
$r.='<tr><td> TVA ' . $oTva->get_parameter('label').'</td>';
$r.=td(hb(nbm($tva[$i])),'class="num"');
}
$r.='<tr>'.td(_('Total TVA')).td(hb($tot_tva),'class="num"');
$r.='<tr>'.td(_('Total TVAC')).td(hb($tot),'class="num"');
$r.='</table>';
} else {
$r.='<br>Total '.hb($tot);
}
$r.='</div>';
/* Add hidden */
$r.=HtmlInput::hidden('e_client', $e_client);
$r.=HtmlInput::hidden('nb_item', $nb_item);
$r.=HtmlInput::hidden('p_jrn', $p_jrn);
$mt = microtime(true);
$r.=HtmlInput::hidden('mt', $mt);
if (isset($period))
$r.=HtmlInput::hidden('period', $period);
/* \todo comment les types hidden gérent ils des contenus avec des quotes, double quote ou < > ??? */
$r.=HtmlInput::hidden('e_comm', $e_comm);
$r.=HtmlInput::hidden('e_date', $e_date);
$r.=HtmlInput::hidden('e_ech', $e_ech);
$r.=HtmlInput::hidden('e_pj', $e_pj);
$r.=HtmlInput::hidden('e_pj_suggest', $e_pj_suggest);
$e_mp = (isset($e_mp)) ? $e_mp : 0;
$r.=HtmlInput::hidden('e_mp', $e_mp);
if ( isset($repo) ) {
// Show the available repository
$r.= $this->select_depot($p_summary,$repo);
}
/* if the paymethod is not 0 and if a quick code is given */
if ($e_mp != 0 && strlen(trim(${'e_mp_qcode_' . $e_mp})) != 0) {
$r.=HtmlInput::hidden('e_mp_qcode_' . $e_mp, ${'e_mp_qcode_' . $e_mp});
$r.=HtmlInput::hidden('acompte', $acompte);
$r.=HtmlInput::hidden('e_comm_paiement', $e_comm_paiement);
/* needed for generating a invoice */
$r.=HtmlInput::hidden('qcode_benef', ${'e_mp_qcode_' . $e_mp});
$fname = new Fiche($this->db);
$fname->get_by_qcode(${'e_mp_qcode_' . $e_mp});
$r.='<h2>' . "Payé par " . ${'e_mp_qcode_' . $e_mp} .
" " . $fname->getName() . '</h2> ' . '<p class="decale">' . _('Déduction acompte ') . h($acompte) . '</p>' .
_('Libellé :') . h($e_comm_paiement) ;
$r.='<br>';
}
$r.=HtmlInput::hidden('jrn_type', $jrn_type);
for ($i = 0; $i < $nb_item; $i++) {
$r.=HtmlInput::hidden("e_march" . $i, ${"e_march" . $i});
if (isset(${"e_march" . $i . "_label"}))
$r.=HtmlInput::hidden("e_march" . $i . "_label", ${"e_march" . $i . "_label"});
$r.=HtmlInput::hidden("e_march" . $i . "_price", ${"e_march" . $i . "_price"});
if ($g_parameter->MY_TVA_USE == 'Y') {
$r.=HtmlInput::hidden("e_march" . $i . "_tva_id", ${"e_march" . $i . "_tva_id"});
$r.=HtmlInput::hidden("e_march" . $i . "_tva_amount", ${"e_march" . $i . "_tva_amount"});
}
$r.=HtmlInput::hidden("e_quant" . $i, ${"e_quant" . $i});
}
return $r;
}
/* !\brief the function extra info allows to
* - add a attachment
* - generate an invoice
* - insert extra info
* \return string
*/
public function extra_info() {
$r = '<div id="facturation_div_id" style="height:185px;height:10rem">';
// check for upload piece
$file = new IFile();
$file->table = 0;
$r.='<p class="decale">';
$r.=_("Ajoutez une pièce justificative ");
$r.=$file->input("pj", "");
if ($this->db->count_sql("select md_id,md_name from document_modele where md_affect='VEN'") > 0) {
$r.=_('ou générer une facture') . ' <input type="checkbox" name="gen_invoice" CHECKED>';
// We propose to generate the invoice and some template
$doc_gen = new ISelect();
$doc_gen->name = "gen_doc";
$doc_gen->value = $this->db->make_array(
"select md_id,md_name " .
" from document_modele where md_affect='VEN'");
$r.=$doc_gen->input() . '<br>';
}
$r.='<br>';
$obj = new IText();
$r.=_('Numero de bon de commande : ') . $obj->input('bon_comm') . '<br>';
$r.=_('Autre information : ') . $obj->input('other_info') . '<br>';
$r.='</p>';
$r.='</div>';
return $r;
}
/**
* @brief update the payment
* @deprecated
*
*/
function show_unpaid() {
// Show list of unpaid sell
// Date - date of payment - Customer - amount
// Nav. bar
$step = $_SESSION['g_pagesize'];
$page = (isset($_GET['offset'])) ? $_GET['page'] : 1;
$offset = (isset($_GET['offset'])) ? $_GET['offset'] : 0;
$sql = SQL_LIST_UNPAID_INVOICE_DATE_LIMIT . " and jr_def_id=" . $this->id;
list($max_line, $list) = ListJrn($this->db, $sql, null, $offset, 1);
$sql = SQL_LIST_UNPAID_INVOICE . " and jr_def_id=" . $this->id;
list($max_line2, $list2) = ListJrn($this->db, $sql, null, $offset, 1);
// Get the max line
$m = ($max_line2 > $max_line) ? $max_line2 : $max_line;
$bar2 = navigation_bar($offset, $m, $step, $page);
echo $bar2;
echo '<h2 class="info"> ' . _('Echeance dépassée') . ' </h2>';
echo $list;
echo '<h2 class="info"> ' . _('Non Payée') . ' </h2>';
echo $list2;
echo $bar2;
// Add hidden parameter
$hid = new IHidden();
echo '<hr>';
if ($m != 0)
echo HtmlInput::submit('paid', _('Mise à jour paiement'));
}
/* !\brief display the form for entering data for invoice,
* \param $p_array is null or you can put the predef operation or the $_POST
*
* \return HTML string
*/
function input($p_array = null, $p_readonly = 0) {
global $g_parameter, $g_user;
if ($p_array != null)
extract($p_array);
$flag_tva = $g_parameter->MY_TVA_USE;
/* Add button */
$f_add_button = new IButton('add_card');
$f_add_button->tabindex = -1;
$f_add_button->label = _('Créer une nouvelle fiche');
$f_add_button->set_attribute('ipopup', 'ipop_newcard');
$f_add_button->set_attribute('jrn', $this->id);
$f_add_button->javascript = "this.jrn=\$('p_jrn').value; select_card_type(this);";
$f_add_button2 = new IButton('add_card2');
$f_add_button2->tabindex = -1;
$f_add_button2->label = _('Créer une nouvelle fiche');
$f_add_button2->set_attribute('ipopup', 'ipop_newcard');
$f_add_button2->set_attribute('filter', $this->get_all_fiche_def());
// $f_add_button2->set_attribute('jrn',$this->id);
$f_add_button2->javascript = " this.jrn=\$('p_jrn').value;select_card_type(this);";
$str_add_button = "";
$str_add_button2 = "";
if ($g_user->check_action(FICADD) == 1) {
$str_add_button = $f_add_button->input();
$str_add_button2 = $f_add_button2->input();
}
// The first day of the periode
$oPeriode = new Periode($this->db);
list ($l_date_start, $l_date_end) = $oPeriode->get_date_limit($g_user->get_periode());
if ($g_parameter->MY_DATE_SUGGEST == 'Y')
$op_date = (!isset($e_date) ) ? $l_date_start : $e_date;
else
$op_date = (!isset($e_date) ) ? '' : $e_date;
$e_ech = (isset($e_ech)) ? $e_ech : "";
$e_comm = (isset($e_comm)) ? $e_comm : "";
$r = '';
$r.=dossier::hidden();
$f_legend = _('Client');
$Echeance = new IDate();
$Echeance->setReadOnly(false);
$Echeance->tabindex = 2;
$label = HtmlInput::infobulle(4);
$f_echeance = $Echeance->input('e_ech', $e_ech, _('Echéance') . $label);
$Date = new IDate();
$Date->setReadOnly(false);
$f_date = $Date->input("e_date", $op_date);
$f_periode = '';
// Periode
//--
if ($this->check_periode() == true) {
$l_user_per = $g_user->get_periode();
$def = (isset($periode)) ? $periode : $l_user_per;
$period = new IPeriod("period");
$period->user = $g_user;
$period->cn = $this->db;
$period->value = $def;
$period->type = OPEN;
try {
$l_form_per = $period->input();
} catch (Exception $e) {
if ($e->getCode() == 1) {
throw new Exception( _("Aucune période ouverte") );
}
}
$label = HtmlInput::infobulle(3);
$f_periode = '<td>' . _("Période comptable") . "</td> <td> $label " . $l_form_per . '</td>';
}
/* if we suggest the next pj, then we need a javascript */
$add_js = "";
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$add_js = "update_pj();";
}
if ($g_parameter->MY_DATE_SUGGEST == 'Y') {
$add_js.='get_last_date();';
}
$add_js.='update_name();';
$add_js.='update_pay_method();';
$add_js.='update_row("sold_item");';
$wLedger = $this->select_ledger('VEN', 2);
if ($wLedger == null)
throw new Exception(_('Pas de journal disponible'));
$wLedger->table = 1;
$wLedger->javascript = "onChange='update_predef(\"ven\",\"f\",\"".$_REQUEST['ac']."\");$add_js'";
$wLedger->label = " Journal " . HtmlInput::infobulle(2);
$f_jrn = $wLedger->input();
$Commentaire = new IText();
$Commentaire->table = 0;
$Commentaire->setReadOnly(false);
$Commentaire->size = 60;
$Commentaire->tabindex = 3;
$label = HtmlInput::infobulle(1);
$f_desc = $Commentaire->input("e_comm", h($e_comm)) ;
// PJ
//--
/* suggest PJ ? */
$default_pj = '';
if ($g_parameter->MY_PJ_SUGGEST == 'Y') {
$default_pj = $this->guess_pj();
}
$pj = new IText();
$pj->table = 0;
$pj->name = "e_pj";
$pj->size = 10;
$pj->value = (isset($e_pj)) ? $e_pj : $default_pj;
$f_pj = $pj->input() . HtmlInput::hidden('e_pj_suggest', $default_pj);
// Display the customer
//--
$fiche = 'deb';
// Save old value and set a new one
//--
$e_client = ( isset($e_client) ) ? $e_client : "";
$e_client_label = "&nbsp;"; //str_pad("",100,".");
// retrieve e_client_label
//--
if (strlen(trim($e_client)) != 0) {
$fClient = new Fiche($this->db);
$fClient->get_by_qcode($e_client);
$e_client_label = $fClient->strAttribut(ATTR_DEF_NAME) . ' ' .
' Adresse : ' . $fClient->strAttribut(ATTR_DEF_ADRESS) . ' ' .
$fClient->strAttribut(ATTR_DEF_CP) . ' ' .
$fClient->strAttribut(ATTR_DEF_CITY) . ' ';
}
$W1 = new ICard();
$W1->label = "Client " . HtmlInput::infobulle(0);
$W1->name = "e_client";
$W1->tabindex = 3;
$W1->value = $e_client;
$W1->table = 0;
$W1->set_dblclick("fill_ipopcard(this);");
$W1->set_attribute('ipopup', 'ipopcard');
// name of the field to update with the name of the card
$W1->set_attribute('label', 'e_client_label');
// name of the field to update with the name of the card
$W1->set_attribute('typecard', 'deb');
// Add the callback function to filter the card on the jrn
$W1->set_callback('filter_card');
$W1->set_function('fill_data');
$W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
$f_client_qcode = $W1->input();
$client_label = new ISpan();
$client_label->table = 0;
$f_client = $client_label->input("e_client_label", $e_client_label);
$f_client_bt = $W1->search();
// Record the current number of article
$Hid = new IHidden();
$p_article = ( isset($nb_item)) ? $nb_item : $this->get_min_row();
$r.=$Hid->input("nb_item", $p_article);
$max = ($p_article < $this->get_min_row()) ? $this->get_min_row() : $p_article;
$f_legend_detail = _("Détail articles vendus");
// For each article
//--
for ($i = 0; $i < $max; $i++) {
// Code id, price & vat code
//--
$march = (isset(${"e_march$i"})) ? ${"e_march$i"} : "";
$march_price = (isset(${"e_march" . $i . "_price"})) ? ${"e_march" . $i . "_price"} : "" ;
if ($flag_tva == 'Y') {
$march_tva_id = (isset(${"e_march$i" . "_tva_id"})) ? ${"e_march$i" . "_tva_id"} : "";
$march_tva_amount = (isset(${"e_march$i" . "_tva_amount"})) ? ${"e_march$i" . "_tva_amount"} : "";
}
$march_label = (isset(${"e_march" . $i . "_label"})) ? ${"e_march" . $i . "_label"} : "";
// retrieve the tva label and name
//--
if (strlen(trim($march)) != 0 && strlen(trim($march_label)) == 0) {
$fMarch = new Fiche($this->db);
$fMarch->get_by_qcode($march);
$march_label = $fMarch->strAttribut(ATTR_DEF_NAME);
if ($flag_tva == 'Y') {
if (!(isset(${"e_march$i" . "_tva_id"})))
$march_tva_id = $fMarch->strAttribut(ATTR_DEF_TVA);
}
}
// Show input
//--
$W1 = new ICard();
$W1->label = "";
$W1->name = "e_march" . $i;
$W1->value = $march;
$W1->table = 1;
$W1->set_attribute('typecard', 'cred');
$W1->set_dblclick("fill_ipopcard(this);");
$W1->set_attribute('ipopup', 'ipopcard');
// name of the field to update with the name of the card
$W1->set_attribute('label', 'e_march' . $i . '_label');
// name of the field with the price
$W1->set_attribute('price', 'e_march' . $i . '_price');
// name of the field with the TVA_ID
$W1->set_attribute('tvaid', 'e_march' . $i . '_tva_id');
// Add the callback function to filter the card on the jrn
$W1->set_callback('filter_card');
$W1->set_function('fill_data');
$W1->javascript = sprintf(' onchange="fill_data_onchange(\'%s\');" ', $W1->name);
$W1->readonly = false;
$array[$i]['quick_code'] = $W1->input();
$array[$i]['bt'] = $W1->search();
// For computing we need some hidden field for holding the value
$array[$i]['hidden'] = '';
if ($flag_tva == 'Y')
$array[$i]['hidden'].=HtmlInput::hidden('tva_march' . $i, 0);
$htva = new INum('htva_march' . $i);
$htva->readOnly = 1;
$htva->value = 0;
$array[$i]['htva'] = $htva->input();
if ($g_parameter->MY_TVA_USE == 'Y')
$tvac = new INum('tvac_march' . $i);
else
$tvac = new IHidden('tvac_march' . $i);
$tvac->readOnly = 1;
$tvac->value = 0;
$array[$i]['tvac'] = $tvac->input();
if ($g_parameter->MY_UPDLAB == 'Y') {
$Span = new IText("e_march" . $i . "_label");
$Span->css_size = "100%";
} else {
$Span = new ISpan("e_march" . $i . "_label");
}
$Span->value = $march_label;
$Span->setReadOnly(false);
// card's name, price
//--
$array[$i]['denom'] = $Span->input("e_march" . $i . "_label", $march_label);
// price
$Price = new INum();
$Price->setReadOnly(false);
$Price->size = 9;
$Price->javascript = "onBlur='format_number(this);clean_tva($i);compute_ledger($i)'";
$array[$i]['pu'] = $Price->input("e_march" . $i . "_price", $march_price);
$array[$i]['tva'] = '';
$array[$i]['amount_tva'] = '';
// if tva is not needed then no tva field
if ($flag_tva == 'Y') {
// vat label
//--
$Tva = new ITva_Popup($this->db);
$Tva->in_table = true;
$Tva->set_attribute('compute', $i);
$Tva->js = 'onblur="format_number(this);clean_tva(' . $i . ');compute_ledger(' . $i . ')"';
$Tva->value = $march_tva_id;
$array[$i]['tva'] = $Tva->input("e_march$i" . "_tva_id");
// vat amount
//--
$wTva_amount = new INum();
$wTva_amount->readOnly = false;
$wTva_amount->size = 6;
$wTva_amount->javascript = "onBlur='format_number(this);compute_ledger($i)'";
$array[$i]['amount_tva'] = $wTva_amount->input("e_march" . $i . "_tva_amount", $march_tva_amount);
}
// quantity
//--
$quant = (isset(${"e_quant$i"})) ? ${"e_quant$i"} : "1"
;
$Quantity = new INum();
$Quantity->setReadOnly(false);
$Quantity->size = 8;
$Quantity->javascript = "onChange='format_number(this);clean_tva($i);compute_ledger($i)'";
$array[$i]['quantity'] = $Quantity->input("e_quant" . $i, $quant);
}// foreach article
$f_type = _('Client');
ob_start();
require_once NOALYSS_INCLUDE.'/template/form_ledger_detail.php';
$r.=ob_get_contents();
ob_end_clean();
// Set correctly the REQUEST param for jrn_type
$r.=HtmlInput::hidden('jrn_type', 'VEN');
$r.=HtmlInput::button('add_item', _('Ajout article'), ' onClick="ledger_add_row()"');
$r.= create_script("$('" . $Date->id . "').focus()");
return $r;
}
/**
* Retrieve data from the view v_detail_sale
* @global $g_user connected user
* @param $p_from jrn.jr_tech_per from
* @param type $p_end jrn.jr_tech_per to
* @return type
*/
function get_detail_sale($p_from,$p_end)
{
global $g_user;
// Journal valide
if ( $this->id == 0 ) die (__FILE__.":".__LINE__." Journal invalide");
// Securite
if ( $g_user->get_ledger_access($this->id) == 'X' ) return null;
// get the data from the view
$sql = "select *
from v_detail_sale
where
jr_def_id = $1
and jr_date >= (select p_start from parm_periode where p_id = $2)
and jr_date <= (select p_end from parm_periode where p_id = $3) "
.' order by jr_date,substring(jr_pj_number,\'[0-9]+$\')::numeric asc ';
$ret = $this->db->exec_sql($sql, array($this->id,$p_from, $p_end));
return $ret;
}
/**
* @brief compute an array with the heading cells for the
* details, used for the export in CSV
* @return array
*/
static function heading_detail_sale()
{
$array['jr_id'] = _('Numéro opération');
$array['jr_date'] = _('Date');
$array['jr_date_paid'] = _('Date paiement');
$array['jr_ech'] = _('Date échéance');
$array['jr_tech_per'] = _('Période');
$array['jr_comment'] = _('Libellé');
$array['jr_pj_number'] = _('Pièce');
$array['jr_internal'] = _('Interne');
$array['jr_def_id'] = _('Code journal');
$array['j_poste'] = _('Poste');
$array['j_text'] = _('Commentaire');
$array['j_qcode'] = _('Code Item');
$array['item_card'] = _('N° fiche');
$array['item_name'] = _('Nom fiche');
$array['qs_client'] = _('N° fiche fournisseur');
$array['tiers_name'] = _('Nom fournisseur');
$array['quick_code'] = _('Code fournisseur');
$array['tva_label'] = _('Nom TVA');
$array['tva_comment'] = _('Commentaire TVA');
$array['tva_both_side'] = _('TVA annulée');
$array['vat_sided'] = _('TVA Non Payé');
$array['vat_code'] = _('Code TVA');
$array['vat'] = _('Montant TVA');
$array['price'] = _('Total HTVA');
$array['quantity'] = _('quantité');
$array['price_per_unit'] = _('PU');
$array['htva'] = _('HTVA Opération');
$array['tot_vat'] = _('TVA Opération');
return $array;
}
/* !\brief test function
*/
static function test_me($p_string = '') {
$cn = new Database(dossier::id());
$a = new Acc_Ledger_Sold($cn, 2);
echo $a->input();
}
}
Reference in a new issue Copy permalink