is_closed($periode)==1 )
{
throw new AcException('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 ( cmpDate($e_date,$last_date) < 0 )
throw new AcException('Vous utilisez le mode strict la dernière operation est date du '
.$last_date.' vous ne pouvez pas encoder à une date antérieure',13);
}
/* check that the datum is in the choosen periode */
$per=new Periode($this->db);
list ($min,$max)=$per->get_date_limit($periode);
if ( cmpDate($e_date,$min) < 0 ||
cmpDate($e_date,$max) > 0)
throw new AcException('Date et periode ne correspondent pas',6);
$fiche=new fiche($this->db);
$fiche->get_by_qcode($e_client);
if ( $fiche->empty_attribute(ATTR_DEF_ACCOUNT) == true)
throw new AcException('La fiche '.$e_client.'n\'a pas de poste comptable',8);
/* The account exists */
$poste=new Acc_Account_Ledger($this->db,$fiche->strAttribut(ATTR_DEF_ACCOUNT));
if ( $poste->load() == false ){
throw new AcException('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 AcException('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 AcException('La fiche '.${'e_march'.$i}.'a un montant invalide ['.${'e_march'.$i}.']',6);
if ( isNumber(${'e_quant'.$i}) == 0 )
throw new AcException('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 AcException('La fiche '.${'e_march'.$i}.'n\'a pas de poste comptable',8);
/* The account exists */
$poste=new Acc_Account_Ledger($this->db,$fiche->strAttribut(ATTR_DEF_ACCOUNT));
if ( $poste->load() == false ){
throw new AcException('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 AcException('La fiche '.${'e_march'.$i}.'n\'est pas accessible à ce journal',10);
$nb++;
}
if ( $nb == 0 )
throw new AcException('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() {
echo "
Acc_Ledger_Sold::save Not implemented
";
}
/*!\brief insert into the database, it calls first the verify function
*\param $p_array is usually $_POST or a predefined operation
*\return string
*\note throw an AcException
*/
public function insert($p_array) {
extract ($p_array);
$this->verify($p_array) ;
$own=new own($this->db);
$group=NextSequence($this->db,"s_oa_group"); /* for analytic */
$seq=NextSequence($this->db,'s_grpt');
$this->id=$p_jrn;
$internal=$this->compute_internal_code($seq);
$cust=new fiche($this->db);
$cust->get_by_qcode($e_client);
$poste=$cust->strAttribut(ATTR_DEF_ACCOUNT);
bcscale(4);
try {
$tot_amount=0;
$tot_tva=0;
$tot_debit=0;
StartSql($this->db);
/* 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;
$acc_operation->poste=$fiche->strAttribut(ATTR_DEF_ACCOUNT);
$acc_operation->amount=$amount;
$acc_operation->grpt=$seq;
$acc_operation->jrn=$p_jrn;
$acc_operation->type='c';
$acc_operation->periode=$periode;
$acc_operation->qcode=${"e_march".$i};
if ( $amount < 0 ) $tot_debit=bcadd($tot_debit,abs($amount));
$j_id=$acc_operation->insert_jrnx();
if ($own->MY_TVA_USE == 'Y' ) {
/* Compute sum vat */
$oTva=new Acc_Tva($this->db);
$idx_tva=${'e_march'.$i.'_tva_id'};
$oTva->set_parameter('id',$idx_tva);
$oTva->load();
$op_tva=new Acc_Compute();
$op_tva->set_parameter("amount",$amount);
$op_tva->set_parameter('amount_vat_rate',$oTva->get_parameter('rate'));
$op_tva->compute_vat();
$tva_item=$op_tva->get_parameter('amount_vat');
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 ( $own->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';
echo_debug(__FILE__.':'.__LINE__,"Description is $e_comm");
$op->oa_description=FormatString($e_comm);
$op->save_form_plan($_POST,$i);
}
if ( $own->MY_TVA_USE=='Y') {
/* save into quant_sold */
$r=ExecSql($this->db,"select insert_quant_sold ".
"('".$internal."',".$j_id.",'".${'e_march'.$i}
."',".${'e_quant'.$i}.",".$amount.
",".$tva_item.
",".$idx_tva.",'".$e_client."')");
} else {
$r=ExecSql($this->db,"select insert_quant_sold ".
"('".$internal."',".$j_id.",'".${'e_march'.$i}
."',".${'e_quant'.$i}.",".$amount.
",0".
",null,'".$e_client."')");
} // if ( $own->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=$periode;
$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 ($own->MY_TVA_USE == 'Y' )
*/
if ($own->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=$periode;
if ($value < 0 ) $tot_debit=bcadd($tot_debit,abs($value));
$acc_operation->insert_jrnx();
}
} // if ($own->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=$periode;
$acc_operation->pj=$e_pj;
$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();
}
ExecSql($this->db,"update jrn set jr_internal='".$internal."' where ".
" jr_grpt_id = ".$seq);
/* Save the attachment */
if ( isset ($_FILES)) {
if ( sizeof($_FILES) != 0 )
save_upload_document($this->db,$seq);
} else
/* Generate an invoice and save it into the database */
if ( isset($_POST['gen_invoice'])) {
echo $this->create_document($internal,$p_array);
echo ' ';
}
//----------------------------------------
// 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=NextSequence($this->db,'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;
$acc_pay->poste=$acfiche->strAttribut(ATTR_DEF_ACCOUNT);
$acc_pay->qcode=$fqcode;
$acc_pay->amount=abs(round($tot_debit,2));
$acc_pay->desc=$e_comm;
$acc_pay->grpt=$acseq;
$acc_pay->jrn=$mp->get_parameter('ledger');
$acc_pay->periode=$periode;
$acc_pay->type='d';
$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($tot_debit,2));
$acc_pay->desc=$e_comm;
$acc_pay->grpt=$acseq;
$acc_pay->jrn=$mp->get_parameter('ledger');
$acc_pay->periode=$periode;
$acc_pay->type='c';
$acc_pay->insert_jrnx();
/* insert into jrn */
$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=ExecSqlParam($this->db,"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);
}
}
catch (Exception $e)
{
echo ''.
'Erreur dans l\'enregistrement '.
__FILE__.':'.__LINE__.' '.
$e->getMessage();
Rollback($this->db);
exit();
}
Commit($this->db);
return $internal;
}
public function update() {
echo "
Acc_Ledger_Sold::update Not implemented
";
}
public function load() {
echo "
Acc_Ledger_Sold::load Not implemented
";
}
/*!\brief Show all the operation, propose a form to select the
*ledger and the periode
*\return none
*\note echo directly, there is no return with the html code
*/
public function show_ledger() {
$w=new widget("select");
$User=new User($this->db);
// filter on the current year
$filter_year=" where p_exercice='".$User->get_exercice()."'";
$periode_start=make_array($this->db,"select p_id,to_char(p_start,'DD-MM-YYYY') from parm_periode $filter_year order by p_start,p_end",1);
$current=(isset($_GET['p_periode']))?$_GET['p_periode']:$User->get_periode();
$w->selected=$current;
echo 'Période '.$w->IOValue("p_periode",$periode_start);
$wLedger=$this->select_ledger('VEN',3);
if ( $wLedger == null )
exit('Pas de journal disponible');
echo 'Journal '.$wLedger->IOValue();
echo JS_SEARCH_CARD;
echo JS_PROTOTYPE;
echo JS_AJAX_FICHE;
$qcode=(isset($_GET['qcode']))?$_GET['qcode']:"";
$this->type='VEN';
$all=$this->get_all_fiche_def();
$w=new widget('js_search_only');
$w->name='qcode';
$w->value=$qcode;
$w->label='';
$w->extra='filter';
$w->extra2='QuickCode';
$w->table=0;
$sp= new widget("span");
echo $w->IOValue();
echo $sp->IOValue("qcode_label","",$qcode);
echo widget::submit('gl_submit','Valider');
// Show list of sell
// Date - date of payment - Customer - amount
if ( $current == -1) {
$cond=" and jr_tech_per in (select p_id from parm_periode where p_exercice='".$User->get_exercice()."')";
} else {
$cond=" and jr_tech_per=".$current;
}
$sql=SQL_LIST_ALL_INVOICE.$cond." and jr_def_id=".$this->id ;
$step=$_SESSION['g_pagesize'];
$page=(isset($_GET['offset']))?$_GET['page']:1;
$offset=(isset($_GET['offset']))?$_GET['offset']:0;
/* security */
$available_ledger=$User->get_ledger_sql();
$l="";
// check if qcode contains something
if ( $qcode != "" )
{
$qcode=Formatstring($qcode);
// add a condition to filter on the quick code
$l=" and jr_grpt_id in (select j_grpt from jrnx where j_qcode=upper('$qcode')) ";
$sql="where jrn_def_type='VEN' $cond $l and $available_ledger ";
}
list($max_line,$list)=ListJrn($this->db,$this->id,$sql,null,$offset,1);
$bar=jrn_navigation_bar($offset,$max_line,$step,$page);
echo "$bar";
echo '';
echo "$bar ";
echo '';
}
public function delete() {
echo "
Acc_Ledger_Sold::delete Not implemented
";
}
/*!\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 string
*/
public function display_form($p_array=null) {
if ( $p_array != null ) extract($p_array);
$user = new User($this->db);
$own=new Own($this->db);
// 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());
$op_date=( ! isset($e_date) ) ?$l_date_start:$e_date;
$e_ech=(isset($e_ech))?$e_ech:"";
$e_comm=(isset($e_comm))?$e_comm:"";
$r="";
$r.=JS_INFOBULLE;
$r.=JS_SEARCH_CARD;
//!\todo check if JS_SHOW_TVA is really needed here otherwise remove it (same for class_acc_ledger_purchase)
$r.=JS_SHOW_TVA;
$r.=JS_TVA;
$r.=JS_AJAX_FICHE;
$r.=dossier::hidden();
$r.=widget::hidden('phpsessid',$_REQUEST['PHPSESSID']);
$r.="";
// Start the div for item to sell
$r.="
";
$r.='";
// Set correctly the REQUEST param for jrn_type
$r.=widget::hidden('jrn_type','VEN');
//----------------------------------------------------------------------
/* Paid By */
$r.='';
$r.=widget::button('add_item','Ajout article', ' onClick="ledger_sold_add_row()"');
$r.=widget::submit("view_invoice","Enregistrer");
$r.=widget::reset('Effacer ');
$r.="
";
return $r;
}
/*!\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) ;
// to show a select list for the analytic & VAT USE
// if analytic is op (optionnel) there is a blank line
$own = 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);
$date_limit=$lPeriode->get_date_limit($periode);
$r="";
$r.="';
$r.='';
$r.=$this->extra_info();
$r.='
';
$r.='';
$r.="
";
/* Add hidden */
$r.=widget::hidden('e_client',$e_client);
$r.=widget::hidden('nb_item',$nb_item);
$r.=widget::hidden('p_jrn',$p_jrn);
$r.=widget::hidden('periode',$periode);
/*\todo comment les types hidden gérent ils des contenus avec des quotes, double quote ou < > ??? */
$r.=widget::hidden('e_comm',$e_comm);
$r.=widget::hidden('e_date',$e_date);
$r.=widget::hidden('e_ech',$e_ech);
$r.=widget::hidden('e_pj',$e_pj);
$r.=widget::hidden('e_pj_suggest',$e_pj_suggest);
$e_mp=(isset($e_mp))?$e_mp:0;
$r.=widget::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.=widget::hidden('e_mp_qcode_'.$e_mp,${'e_mp_qcode_'.$e_mp});
/* needed for generating a invoice */
$r.=widget::hidden('qcode_dest',${'e_mp_qcode_'.$e_mp});
$r.="Payé par ".${'e_mp_qcode_'.$e_mp};
$r.=' ';
}
$r.=widget::hidden('jrn_type',$jrn_type);
for ($i=0;$i < $nb_item;$i++) {
$r.=widget::hidden("e_march".$i,${"e_march".$i});
$r.=widget::hidden("e_march".$i."_price",${"e_march".$i."_price"});
if ( $own->MY_TVA_USE=='Y') $r.=widget::hidden("e_march".$i."_tva_id",${"e_march".$i."_tva_id"});
$r.=widget::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.='";
$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,$this->id,$sql,null,$offset,1);
$sql=SQL_LIST_UNPAID_INVOICE." and jr_def_id=".$this->id ;
list($max_line2,$list2)=ListJrn($this->db,$this->id,$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 widget("hidden");
echo '';
if ( $m != 0 )
echo widget::submit('paid','Mise à jour paiement');
}
/*!\brief test function
*/
static function test_me() {
}
}