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) { extract ($p_array); /* 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 */ $user=new User($this->db); if ( $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 $owner=new Own($this->db); if ( $owner->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=split(',',$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}); } public function save($p_array) { echo "

Acc_Ledger_Sold::save Not implemented

"; } /*!\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) { extract ($p_array); $this->verify($p_array) ; $owner=new own($this->db); $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(); /* Save all the items without vat */ for ($i=0;$i< $nb_item;$i++) { if ( strlen(trim(${'e_march'.$i})) == 0 ) continue; if ( ${'e_march'.$i.'_price'} == 0 ) continue; if ( ${'e_quant'.$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+=$amount; $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; $acc_operation->qcode=${"e_march".$i}; if ( $amount < 0 ) $tot_debit=bcadd($tot_debit,abs($amount)); $j_id=$acc_operation->insert_jrnx(); if ($owner->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'}; /* if empty then we need to compute it */ if (trim($tva_item)=='') { /* 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; $tot_tva=round(bcadd($tva_item,$tot_tva),2); } /* 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 InsertStockGoods($this->db,$j_id,${'e_march'.$i},$nNeg*${'e_quant'.$i},'c') ; if ( $owner->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=($amount < 0 )?'t':'f'; $op->oa_description=FormatString($e_comm); $op->save_form_plan($_POST,$i,$j_id); } if ( $owner->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)", 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 */ } else { $r=$this->db->exec_sql("select insert_quant_sold ($1,$2,$3,$4,$5,$6,$7,$8) ", array(null, /* 1 */ $j_id, /* 2 */ ${'e_march'.$i}, /* 3 */ ${'e_quant'.$i}, /* 4 */ $amount, // 5 0, null, $e_client)); } // if ( $owner->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); $acc_operation->insert_jrnx(); /** save all vat * $i contains the tva_id and value contains the vat amount * if if ($owner->MY_TVA_USE == 'Y' ) */ if ($owner->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 ($owner->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(); /* if e_suggest != 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= _('Document généré'); $this->doc.=''.$file.''; } } //---------------------------------------- // 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')); $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; } $acc_pay->poste=$poste_val; $acc_pay->qcode=$fqcode; $acc_pay->amount=abs(round($cust_amount,2)); $acc_pay->desc=$e_comm; $acc_pay->grpt=$acseq; $acc_pay->jrn=$mp->get_parameter('ledger'); $acc_pay->periode=$tperiode; $acc_pay->type=($cust_amount>=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($cust_amount,2)); $acc_pay->desc=$e_comm; $acc_pay->grpt=$acseq; $acc_pay->jrn=$mp->get_parameter('ledger'); $acc_pay->periode=$tperiode; $acc_pay->type=($cust_amount>=0)?'c':'d'; $acc_pay->insert_jrnx(); /* insert into jrn */ $mp_jr_id=$acc_pay->insert_jrn(); $acjrn->grpt_id=$acseq; $acjrn->update_internal_code($acinternal); $r1=$this->get_id($internal); $r2=$this->get_id($acinternal); /* 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($cust_amount,-1)); } } } catch (Exception $e) { echo ''. 'Erreur dans l\'enregistrement '. __FILE__.':'.__LINE__.' '. $e->getMessage(); echo $e->getTrace(); $this->db->rollback(); exit(); } $this->db->commit(); return $internal; } public function update() { echo "

Acc_Ledger_Sold::update Not implemented

"; } public function load() { echo "

Acc_Ledger_Sold::load Not implemented

"; } public function delete() { echo "

Acc_Ledger_Sold::delete Not implemented

"; } /*!\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 *\return string */ function confirm($p_array) { extract ($p_array); $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 $owner = new Own($this->db); 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.="
"; $r.=""._('En-tête facture client')." "; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.=''; $r.='
'._('Date').' '.$e_date.''._('Echeance').' '.$e_ech.' '._('Période Comptable').' '.$date_limit['p_start'].'-'.$date_limit['p_end'].'
'._('Journal').' '.h($this->get_name()).'
'._('Libellé').' '.h($e_comm).'PJ Num: '.h($e_pj).'
'._('Client').' '.h($e_client.':'.$client_name).'
'; $r.='
'; $r.='
'._('Détail articles vendus').''; $r.=''; $r.=''; $r.=""; $r.=""; $r.=""; $r.=""; $r.=""; if ( $owner->MY_TVA_USE=='Y') { $r.=''; $r.=''; } /* if we use the AC */ if ($owner->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.=''; /* add hidden variables pa[] to hold the value of pa_id */ $r.=Anc_Plan::hidden($a_anc); } $r.=''; $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}); $fiche_name=h($fiche->getName()); if ( $owner->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 ( $owner->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.=''; $r.=''; $r.=''; $r.=''; $r.=''; if ( $owner->MY_TVA_USE=='Y') { $r.=''; $r.=''; } $r.=''; // encode the pa if ( $owner->MY_ANALYTIC!='nu') // use of AA { // show form $anc_op=new Anc_Operation($this->db); $null=($owner->MY_ANALYTIC=='op')?1:0; $r.=''; } $r.=''; } $r.='
"._('Code').""._('Dénomination').""._('prix').""._('quantité').""._('tva')." '._('Montant TVA').''._('Montant HTVA').''._('Compt. Analytique').'
'; $r.=${"e_march".$i}; $r.=''; $r.=$fiche_name; $r.=''; $r.=${"e_march".$i."_price"}; $r.=''; $r.=${"e_quant".$i}; $r.=''; $r.=$oTva->get_parameter('label'); $r.=''; $r.=$tva_item; /* warning if tva_computed and given are not the same */ if ( bcsub($tva_item,$tva_computed) != 0) { echo _("Attention Différence"); } $r.=''; $r.=$amount; $r.=''; $p_mode=1; $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.='
'; if ( $owner->MY_ANALYTIC!='nu') // use of AA $r.=''; $r.='
'; $r.=$this->extra_info(); $r.='
'; $r.='
Totaux'; $tot=round(bcadd($tot_amount,$tot_tva),2); $r.='
'; /* use VAT */ if ($owner->MY_TVA_USE == 'Y' ) { $r.='
Total HTVA'; foreach ($tva as $i=>$value) { $oTva->set_parameter('id',$i); $oTva->load(); $r.='
TVA à '.$oTva->get_parameter('label'); } $r.='
Total TVA'; $r.='
Total TVAC'; } else { $r.='
Total '; } $r.='
'; $r.='
'; $r.='
'.$tot_amount.''; if ($owner->MY_TVA_USE == 'Y' ) { foreach ($tva as $i=>$value) { $r.='
'.$tva[$i]; } $r.='
'.$tot_tva.''; $r.='
'.$tot.''; } $r.="
"; $r.='
'; $r.="
"; /* 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); /* Paid by */ /* 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}); /* needed for generating a invoice */ $r.=HtmlInput::hidden('qcode_dest',${'e_mp_qcode_'.$e_mp}); $r.=_("Payé par ").${'e_mp_qcode_'.$e_mp}; $r.='
'; } $r.=HtmlInput::hidden('jrn_type',$jrn_type); for ($i=0;$i < $nb_item;$i++) { $r.=HtmlInput::hidden("e_march".$i,${"e_march".$i}); $r.=HtmlInput::hidden("e_march".$i."_price",${"e_march".$i."_price"}); if ( $owner->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=""; $r.='
'; $r.='
Facturation'; // check for upload piece $file=new IFile(); $file->table=0; $r.=_("Ajoutez une pièce justificative "); $r.=$file->input("pj",""); if ( $this->db->count_sql("select md_id,md_name from document_modele where md_affect='VEN'") > 0 ) { $r.=_('ou générer une facture').' '; // 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().'
'; } $r.='
'; $obj=new IText(); $r.=_('Numero de bon de commande : ').$obj->input('bon_comm').'
'; $r.=_('Autre information : ').$obj->input('other_info').'
'; $r.="
"; $r.='
'; return $r; } /*!\brief update the payment */ 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=jrn_navigation_bar($offset,$m,$step,$page); echo $bar2; echo '

'._('Echeance dépassée').'

'; echo $list; echo '

'._('Non Payée').'

'; echo $list2; echo $bar2; // Add hidden parameter $hid=new IHidden(); echo '
'; 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) { if ( $p_array != null ) extract($p_array); $user = new User($this->db); $owner=new Own($this->db); $flag_tva=$owner->MY_TVA_USE; /* Add button */ $f_add_button=new IButton('add_card'); $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->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=$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($user->get_periode()); if ( $owner->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=_('En-tête facture 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=$user->get_periode(); $def=(isset($periode))?$periode:$l_user_per; $period=new IPeriod("period"); $period->user=$user; $period->cn=$this->db; $period->value=$def; $period->type=OPEN; try { $l_form_per=$period->input(); } catch (Exception $e) { if ($e->getCode() == 1 ) { echo _("Aucune période ouverte"); exit(); } } $label=HtmlInput::infobulle(3); $f_periode=_("Période comptable")." $label ".$l_form_per; } /* if we suggest the next pj, then we need a javascript */ $add_js=""; if ( $owner->MY_PJ_SUGGEST=='Y') { $add_js="update_pj();"; } $add_js.='get_last_date();'; $wLedger=$this->select_ledger('VEN',2); if ( $wLedger == null ) exit(_('Pas de journal disponible')); $wLedger->table=1; $wLedger->javascript="onChange='update_predef(\"ven\",\"f\");$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=$label.$Commentaire->input("e_comm",h($e_comm)); // PJ //-- /* suggest PJ ? */ $default_pj=''; if ( $owner->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=" ";//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:MAX_ARTICLE; $r.=$Hid->input("nb_item",$p_article); $max=($p_article < MAX_ARTICLE)?MAX_ARTICLE:$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=' '; // retrieve the tva label and name //-- if ( strlen(trim($march))!=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 ( $owner->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(); $Span=new ISpan(); $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('template/form_ledger_detail.php'); $r.=ob_get_contents(); ob_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.=""; return $r; } function input_paid() { $r=''; $r.='
'; $r.=' '._('Payé par').' '; $mp=new Acc_Payment($this->db); $mp->set_parameter('type','VEN'); $r.=$mp->select(); $r.='
'; return $r; } /*!\brief test function */ static function test_me($p_string='') { $cn=new Database(dossier::id()); $a=new Acc_Ledger_Sold($cn,2); echo $a->input(); } }