";
}
$sql="select jrn_def_id as value,jrn_def_name as label from jrn_def where jrn_def_type='VEN'";
$list=GetArray($p_cn,$sql);
$r.='';
// Date widget
//--
$Date=new widget("text");
$Date->SetReadOnly($pview_only);
$Date->table=1;
$r.="";
$r.=$Date->IOValue("e_date",$op_date,"Date");
$r.="
";
// Payment limit widget
//--
$Echeance=new widget("text");
$Echeance->SetReadOnly($pview_only);
$Echeance->table=1;
$r.="";
$r.=$Echeance->IOValue("e_ech",$e_ech,"Echeance");
$r.="
";
// Comment
//--
$Commentaire=new widget("text");
$Commentaire->table=1;
$Commentaire->SetReadOnly($pview_only);
$Commentaire->size=80;
$r.="";
$r.=$Commentaire->IOValue("e_comm",$e_comm,"Description");
$r.="
";
include_once("fiche_inc.php");
// Display the supplier
//--
$fiche='cred';
echo_debug('user_form_ach.php',__LINE__,"Fournisseurs Nombre d'enregistrement ".sizeof($fiche));
// Save old value and set a new one
$e_client=( isset ($e_client) )?$e_client:"";
$e_client_label="";
// retrieve e_client_label
if ( isNumber($e_client) == 1 ) {
if ( isFicheOfJrn($p_cn,$p_jrn,$e_client,'cred') == 0 ) {
$msg="Fiche inexistante !!! ";
echo_error($msg); echo_error($msg);
// echo "";
$e_client="";
} else {
$a_client=GetFicheAttribut($p_cn,$e_client);
if ( $a_client != null)
$e_client_label=$a_client['vw_name']." adresse ".$a_client['vw_addr']." ".$a_client['vw_cp'];
}
}
// widget search
$W1=new widget("js_search");
$W1->label="Fournisseur";
$W1->name="e_client";
$W1->value=$e_client;
$W1->extra=$fiche; // list of card
$W1->extra2=$p_jrn;
$r.="".$W1->IOValue();
$client_label=new widget("span");
$r.= $client_label->IOValue("e_client_label",$e_client_label)."
";
$r.="
";
// Record the current number of article
$Hid=new widget('hidden');
$r.=$Hid->IOValue("nb_item",$p_article);
$e_comment=(isset($e_comment))?$e_comment:"";
// Start the div for item to sell
$r.="";
$r.='
Articles
';
$r.='
';
$r.='';
$r.=" | ";
$r.="Code | ";
$r.="Dénomination | ";
$r.="prix | ";
$r.="tva | ";
$r.="quantité | ";
$r.='
';
// For each article
// compute amount
// verify if card exists
// retrieve vat label
//--
for ($i=0;$i< $p_article;$i++) {
// Code id
$march=(isset(${"e_march$i"}))?${"e_march$i"}:"";
$march_sell=(isset(${"e_march".$i."_sell"}))?${"e_march".$i."_sell"}:"";
$march_tva_id=(isset(${"e_march$i"."_tva_id"}))?${"e_march$i"."_tva_id"}:"";
$march_tva_label="";
$march_label="";
// If $march has a value
if ( isFicheOfJrn($p_cn,$p_jrn,$march,'deb') == 0 ) {
$msg="Fiche inexistante !!! ";
echo_error($msg); echo_error($msg);
$march="";
} else {
// retrieve the tva label and name
$a_fiche=GetFicheAttribut($p_cn, $march);
if ( $a_fiche != null ) {
if ( $march_tva_id == "" ) {
$march_tva_id=$a_fiche['tva_id'];
$march_tva_label=$a_fiche['tva_label'];
}
$march_label=$a_fiche['vw_name'];
}
}
// Show input
$W1=new widget("js_search");
$W1->label="";
$W1->name="e_march".$i;
$W1->value=$march;
$W1->extra='deb'; // credits
$W1->extra2=$p_jrn;
$W1->readonly=$pview_only;
$r.="".$W1->IOValue()."";
$Span=new widget ("span");
$Span->SetReadOnly($pview_only);
// card's name
$r.="| ".$Span->IOValue("e_march".$i."_label",$march_label)." | ";
// price
$Price=new widget("text");
$Price->SetReadOnly($pview_only);
$Price->table=1;
$r.=$Price->IOValue("e_march".$i."_sell",$march_sell);
// vat label
$select_tva=make_array($p_cn,"select tva_id,tva_label from tva_rate order by tva_id",1);
$Tva=new widget("select");
$Tva->table=1;
$Tva->selected=$march_tva_id;
$r.=$Tva->IOValue("e_march$i"."_tva_id",$select_tva);
// quantity
$quant=(isset(${"e_quant$i"}))?${"e_quant$i"}:"1";
$Quantity=new widget("text");
$Quantity->SetReadOnly($pview_only);
$Quantity->table=1;
$r.=$Quantity->IOValue("e_quant".$i,$quant);
$r.='
';
}
$r.="
";
$r.="
";
if ($pview_only == false ) {
$r.=$p_submit;
$r.="
';
// Show the Date
$r.="";
$r.="| Date : $e_date | ";
$r.="
";
// Show the customer Name
$r.="";
$r.="| Client : ".getFicheName($p_cn,$e_client)." | ";
$r.="
";
// show date limit
$r.="";
$r.="| Echeance : $e_ech | ";
$r.="
";
// Show desc
$r.="";
$r.="| Description : $e_comm | ";
$r.="
";
$sum_with_vat=0.0;
$sum_march=0.0;
// show all article, price vat and sum
$r.="";
$r.="| Article | ";
$r.="quantité | ";
$r.="prix unit. | ";
$r.="taux tva | ";
$r.="Montant HTVA | ";
$r.="Montant TVA | ";
$r.="Total | ";
$r.="
";
for ($i=0;$i<$p_number;$i++)
{
if ( trim(${"e_march$i"}) == "" )
{
// no goods to sell
continue;
}
// Get the name
$fiche_name=getFicheName($p_cn,${"e_march$i"});
// Quantity
$fiche_quant=${"e_quant$i"};
// No row if there is quantity
if ( $fiche_quant == 0.0 ) continue;
// If the price is not a number, retrieve the price from the database
if ( isNumber(${"e_march$i"."_sell"}) == 0 ) {
$fiche_price=getFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_PRIX_VENTE);
} else {
$fiche_price=${"e_march$i"."_sell"};
}
// VAT
$vat=(isNumber(${"e_march$i"."_tva_id"})==0 || ${"e_march$i"."_tva_id"}==-1 )?getFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_TVA):${"e_march$i"."_tva_id"};
// vat label
// vat rate
$a_vat=GetTvaRate($p_cn,$vat);
if ( $a_vat == null )
{
$vat_label="";
$vat_rate=0.0;
}
else
{
$vat_label=$a_vat['tva_label'];
$vat_rate=$a_vat['tva_rate'];
}
// Total card without vat
$fiche_sum=$fiche_price*$fiche_quant;
// Sum of invoice
$sum_march+=$fiche_sum;
// vat of the card
$fiche_amount_vat=$fiche_price*$fiche_quant*$vat_rate;
// value card + vat
$fiche_with_vat=$fiche_price*$fiche_quant*(1+$vat_rate);
// Sum of invoice vat
$sum_with_vat+=$fiche_with_vat;
// Show the data
$r.='';
$r.='| '.$fiche_name.' | ';
$r.=''.$fiche_quant.' | ';
$r.=''.$fiche_price.' | ';
$r.=" $vat_label | ";
$r.=''.round($fiche_sum,2).' | ';
$r.=''.round($fiche_amount_vat,2).' | ';
$r.=''.round($fiche_with_vat,2).' | ';
$r.="
";
}
// end table
$r.='
';
$r.='';
$r.="Total HTVA =".round( $sum_march,2)."
";
$r.="Total = ".round($sum_with_vat,2);
$r.="
";
$r.='';
return $r;
}
/* function RecordSell
**************************************************
* Purpose : Record an invoice in the table jrn &
* jrnx
*
* parm :
* - $p_cn Database connection
* - $p_array contains all the invoice data
* e_date => e : 01.01.2003
* e_client => e : 3
* nb_item => e : 3
* e_march0 => e : 6
* e_quant0 => e : 0
* e_march0_sell=>e:1
* e_march1 => e : 6
* e_quant1 => e : 2
* e_march1_sell=>e:1
* e_march2 => e : 7
* e_quant2 => e : 3
* e_march2_sell=>e:1
V : view_invoice => e : Voir cette facture
V : record_invoice => e : Sauver
* - $p_periode periode
* - $p_jrn current folder (journal)
* gen :
* - none
* return:
* true on success
*/
function RecordSell($p_cn,$p_array,$p_user,$p_jrn)
{
echo_debug('user_form_ach',__LINE__,"function RecordSell($p_cn,$p_array,$p_user,$p_jrn)");
foreach ( $p_array as $v => $e)
{
${"$v"}=$e;
}
// Get the default period
$periode=$p_user->GetPeriode();
$amount=0.0;
$amount_jrn=0.0;
$sum_tva_nd=0.0;
// Computing total customer
for ($i=0;$i<$nb_item;$i++) {
// store quantity & goods in array
$a_good[$i]=${"e_march$i"};
$a_quant[$i]=${"e_quant$i"};
$a_price[$i]=0;
$a_vat_good[$i]=${"e_march$i"."_tva_id"};
// check wether the price is set or no
if ( isNumber(${"e_march$i"."_sell"}) == 0 ) {
if ( $a_good[$i] !="" ) {
// If the price is not set we have to find it from the database
$a_price[$i]=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_PRIX_VENTE);
}
} else {
// The price is valid
$a_price[$i]=${"e_march$i"."_sell"};
}
$cost=$a_price[$i]*$a_quant[$i];
$amount+=$cost;
$amount_jrn+=$cost;
echo_debug('user_form_ach.php',__LINE__,'Total customer:'.$amount_jrn);
}
$comm=FormatString($e_comm);
// Compute vat with ded
echo_debug('user_form_achat.php',__LINE__,"Call ComputeTotalVat");
$a_vat=ComputeTotalVat($p_cn,$a_good,$a_quant,$a_price,$a_vat_good,false);
$sum_vat=0.0;
if ( $a_vat != null ){
foreach ( $a_vat as $element => $t) {
echo_debug('user_form_ach.php',__LINE__," a_vat element $element t $t");
$sum_vat+=$t;
echo_debug('user_form_ach.php',__LINE__,"sum_vat = $sum_vat");
}
}
// Compute vat without reduction
$a_vat_full=ComputeTotalVat($p_cn,$a_good,$a_quant,$a_price,$a_vat_good,true);
$sum_vat_full=0.0;
if ( $a_vat_full != null ){
foreach ( $a_vat_full as $element => $t) {
echo_debug('user_form_ach.php',__LINE__," a_vat_full element $element t $t");
$sum_vat_full+=$t;
echo_debug('user_form_ach.php',__LINE__,"sum_vat_full = $sum_vat");
}
}
// First we add in jrnx
// Compute the j_grpt
$seq=NextSequence($p_cn,'s_grpt');
// Debit = client
$poste=GetFicheAttribut($p_cn,$e_client,ATTR_DEF_ACCOUNT);
echo_debug('user_form_achat.php',__LINE__,"get e_client $e_client poste $poste");
StartSql($p_cn);
echo_debug('user_form_achat.php',__LINE__,"insert client");
$r=InsertJrnx($p_cn,'c',$p_user->id,$p_jrn,$poste,$e_date,round($amount,2)+round($sum_vat_full,2),$seq,$periode);
if ( $r == false) { $Rollback($p_cn);exit("error 'user_form_ach.php' __LINE__");}
// Credit = goods
for ( $i = 0; $i < $nb_item;$i++) {
// if ( isNumber($a_good[$i]) == 0 ) continue;
$poste=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_ACCOUNT);
// don't record operation of 0
if ( $a_price[$i]*$a_quant[$i] == 0 ) continue;
$amount=$a_price[$i]*$a_quant[$i];
// Put the non deductible part into a special account
$non_dedu=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_DEPENSE_NON_DEDUCTIBLE);
echo_debug('user_form_ach.php',__LINE__,"value non ded : $non_dedu");
if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
{
$nd_amount=$a_quant[$i]*$a_price[$i]*$non_dedu;
// save it
echo_debug('user_form_ach.php',__LINE__,"InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,'6740',$e_date,round($nd_amount,2),$seq,$periode);");
$j_id=InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,'6740',$e_date,round($nd_amount,2),$seq,$periode);
if ( $j_id == false) { Rollback($p_cn);exit("error 'user_form_ach.php' __LINE__");}
$amount=$amount-$nd_amount;
}
// Put the non deductible part into a special account
$non_dedu=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_TVA_NON_DEDUCTIBLE);
echo_debug('user_form_ach.php',__LINE__,"TVA value non ded : $non_dedu");
if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
{
$lvat=ComputeVat($p_cn, $a_good[$i],$a_quant[$i],$a_price[$i],
$a_vat_good[$i] );
$ded_vat=($lvat != null )?$lvat*$non_dedu:0;
$sum_tva_nd+=$ded_vat;
echo_debug('user_form_ach.php',__LINE__,
"InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,'6190',$e_date,round($ded_vat,2),$seq,$periode);");
$j_id=InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,'6740',$e_date,round($ded_vat,2),$seq,$periode);
if ( $j_id == false) { Rollback($p_cn);exit("error 'user_form_ach.php' __LINE__");}
}
// Put the non deductible part into a special account
$non_dedu=GetFicheAttribut($p_cn,$a_good[$i],ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP);
echo_debug('user_form_ach.php',__LINE__,"TVA value non ded : $non_dedu");
if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
{
$lvat=ComputeVat($p_cn, $a_good[$i],$a_quant[$i],$a_price[$i],
$a_vat_good[$i] );
$ded_vat=($lvat != null )?$lvat*$non_dedu:0;
$sum_tva_nd+=$ded_vat;
// Save it
echo_debug('user_form_ach.php',__LINE__,
"InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,'6190',$e_date,round($ded_vat,2),$seq,$periode);");
$j_id=InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,'6190',$e_date,round($ded_vat,2),$seq,$periode);
if ( $j_id == false) { Rollback($p_cn);exit("error 'user_form_ach.php' __LINE__");}
}
// record into jrnx
echo_debug('user_form_ach.php',__LINE__,"InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,$poste,$e_date,round($amount,2),$seq,$periode);");
$j_id=InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,$poste,$e_date,round($amount,2),$seq,$periode);
if ( $j_id == false) { Rollback($p_cn);exit("error 'user_form_ach.php' __LINE__");}
// always save quantity but in withStock we can find what card need a stock management
if ( InsertStockGoods($p_cn,$j_id,$a_good[$i],$a_quant[$i],'c') == false ) {
$Rollback($p_cn);exit("error 'user_form_ach.php' __LINE__");}
echo_debug('user_form_ach.php',__LINE__,"value non ded : ".$a_good[$i]."is");
}
// Insert Vat
if ( $a_vat != null ) // no vat
{
echo_debug('user_form_ach',__LINE__,'a_vat = '.var_export($a_vat,true));
foreach ($a_vat as $tva_id => $tva_amount )
{
echo_debug('user_form_ach',__LINE__," tva_amount = $tva_amount tva_id=$tva_id");
$poste=GetTvaPoste($p_cn,$tva_id,'d');
if ($tva_amount == 0 ) continue;
echo_debug('user_form_ach',__LINE__,"InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,$poste,$e_date,round($tva_amount,2),$seq,$periode);");
$r=InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,$poste,$e_date,round($tva_amount,2),$seq,$periode);
if ( $r == false ) { Rollback($p_cn); exit(" Error 'user_form_ach.php' __LINE__");}
}
}
echo_debug('user_form_ach.php',__LINE__,"echeance = $e_ech");
echo_debug('user_form_ach.php',__LINE__,"sum_vat = $sum_vat");
echo_debug('user_form_ach.php',__LINE__,"amount_jrn = $amount_jrn");
echo_debug('user_form_ach.php',__LINE__,"sum_tva_nd = $sum_tva_nd");
$r=InsertJrn($p_cn,$e_date,$e_ech,$p_jrn,"Invoice",round($amount_jrn,2)+round($sum_vat,2)+round($sum_tva_nd,2),$seq,$periode);
if ( $r == false ) { Rollback($p_cn); exit(" Error 'user_form_ach.php' __LINE__");}
// Set Internal code and Comment
$internal=SetInternalCode($p_cn,$seq,$p_jrn);
$comment=(FormatString($e_comm) == null )?$internal." client : ".GetFicheName($p_cn,$e_client):FormatString($e_comm);
// Update and set the invoice's comment
$Res=ExecSql($p_cn,"update jrn set jr_comment='".$comment."' where jr_grpt_id=".$seq);
if ( $Res == false ) { Rollback($p_cn); exit(" Error 'user_form_ach.php' __LINE__"); };
if ( isset ($_FILES))
save_upload_document($p_cn,$seq);
Commit($p_cn);
return $comment;
}
?>