$v) {
${"$a"}=$v;
}
}
// The date
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$p_periode);
$op_date=( ! isset($e_date) ) ?substr($l_date_start,2,8):$e_date;
$e_ech=(isset($e_ech))?$e_ech:"";
$e_comm=(isset($e_comm))?$e_comm:"";
// $e_jrn=(isset($e_jrn))?$e_jrn:"";
// Save old value and set a new one
echo_debug('user_form_ven.php',__LINE__,"form_input.php.FormVentep_op_date is $op_date");
$r="";
if ( $pview_only == false) {
$r.=JS_SEARCH_CARD;
$r.=JS_SHOW_TVA;
$r.=JS_TVA;
// Compute href
$href=$_SERVER['SCRIPT_NAME'];
switch ($href)
{
// user_jrn.php
case '/user_jrn.php':
$href="user_jrn.php?action=insert_vente&p_jrn=$p_jrn";
break;
case '/commercial.php':
$href="commercial.php?p_action=facture&p_jrn=$p_jrn";
break;
default:
echo_error('user_form_ven.php',__LINE__,'Erreur invalid request uri');
exit (-1);
}
$r.="";
$r.=JS_CALC_LINE;
} else {
$r.="";
}
return $r;
}
/*! form_verify_input
**************************************************
\brief verify if the data to insert are valid
*
* parm :
* - p_cn database connection
* - p_jrn concerned ledger
* - User periode
* - array with the post data
* - p_number number of items
* gen :
* -
* return:
*/
function form_verify_input($p_cn,$p_jrn,$p_periode,$p_array,$p_number)
{
foreach ($p_array as $name=>$content) {
${"$name"}=$content;
}
// Verify the date
if ( isDate($e_date) == null ) {
echo_error("Invalid date $e_date");
echo_debug('user_form_ven.php',__LINE__,"Invalid date $e_date");
echo "";
return null;
}
// Verify the quantity
for ($o = 0;$o < $p_number; $o++) {
if ( isNumber(${"e_quant$o"}) == 0 ) {
echo_debug('user_form_ven.php',__LINE__,"invalid quantity ".${"e_quant$o"});
echo_error("invalid quantity ".${"e_quant$o"});
echo "";
return null;
}
// check if vat is correct
if ( strlen(trim(${"e_march$o"."_tva_id"})) !=0
and
${"e_march$o"."_tva_id"} != "-1")
{
// vat is given we check it now check if valid
if (isNumber(${"e_march$o"."_tva_id"}) == 0
or CountSql($p_cn,"select tva_id from tva_rate where tva_id=".${"e_march$o"."_tva_id"}) ==0)
{
$msg="Invalid TVA !!! e_march".$o."_tva_id = ".${"e_march".$o."_tva_id"};
echo_error($msg); echo_error($msg);
echo "";
return null;
}
}
}
// Verify the ech
if (strlen($e_ech) != 0 and isNumber($e_ech) == 0 and isDate ($e_ech) == null ) {
$msg="Echeance invalide";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// if ech is a number of days then compute date limit
if ( strlen($e_ech) != 0 and isNumber($e_ech) == 1) {
list($day,$month,$year)=explode(".",$e_date);
echo_debug('user_form_ven.php',__LINE__," date $e_date = $day.$month.$year");
$p_ech=date('d.m.Y',mktime(0,0,0,$month,$day+$e_ech,$year));
echo_debug('user_form_ven.php',__LINE__,"p_ech = $e_ech $p_ech");
$e_ech=$p_ech;
$wHidden=new widget("hidden");
$data.=$wHidden->IOValue("e_ech",$e_ech);
}
// Check if the fiche is in the jrn
if (IsFicheOfJrn($p_cn , $p_jrn, $e_client,'deb') == 0 )
{
$msg="Client invalid please recheck";
echo_error($msg);
echo "";
return null;
}
// check if all e_march are in fiche
for ($i=0;$i<$p_number;$i++) {
if ( trim(${"e_march$i"}) == "" ) {
// no goods to sell
continue;
}
// Check
if ( isFicheOfJrn($p_cn,$p_jrn,${"e_march$i"},'cred') == 0 ) {
$msg="Fiche inexistante !!! ";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// check if the ATTR_DEF_ACCOUNT is set
$poste=GetFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_ACCOUNT);
if ( $poste == null )
{
$msg="La fiche ".${"e_march$i"}." n\'a pas de poste comptable";
echo_error($msg); echo_debug('user_form_ven.php',__LINE__,$msg);
echo "";
return null;
}
if ( strlen(trim($poste))==0 )
{
$msg="La fiche ".$tiers." n\'a pas de poste comptable";
echo_error($msg); echo_debug('user_form_ven.php',__LINE__,$msg);
echo "";
}
}
// Verify the userperiode
// p_periode contient la periode par default
list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$p_periode);
// Date dans la periode active
echo_debug ('user_form_ven',__LINE__,"date start periode $l_date_start date fin periode $l_date_end date demande $e_date");
if ( cmpDate($e_date,$l_date_start)<0 ||
cmpDate($e_date,$l_date_end)>0 )
{
$msg="Not in the active periode please change your preference";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
// Periode ferme
if ( PeriodeClosed ($p_cn,$p_periode)=='t' )
{
$msg="This periode is closed please change your preference";
echo_error($msg); echo_error($msg);
echo "";
return null;
}
return true;
}
/*! FormVenteView ($p_cn,$p_jrn,$p_periode,$p_array,$p_number,$p_doc='html',$p_comment='')
**************************************************
* \brief Show the invoice before inserting it
* the database.
*
*
* \param p_cn database connection
* \param p_jrn journal
* \param p_periode
* \param array of value
* \param nb of item
* \param p_doc type pdf or html
* \return string
*
*/
function FormVenteView ($p_cn,$p_jrn,$p_periode,$p_array,$p_number,$p_doc='form',$p_comment='')
{
$r="";
$data="";
// Keep all the data if hidden
// and store the array in variables
$hidden=new widget("hidden");
foreach ($p_array as $name=>$content) {
$data.=$hidden->IOValue($name,$content);
${"$name"}=$content;
}
// start table
$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)?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.="
";
if ( $p_doc == 'form' ) {
// Compute href
$href=$_SERVER['SCRIPT_NAME'];
switch ($href)
{
// user_jrn.php
case '/user_jrn.php':
$href="user_jrn.php?action=record&p_jrn=$p_jrn";
break;
case '/commercial.php':
$href="commercial.php?p_action=facture&sa=record&p_jrn=$p_jrn";
break;
default:
echo_error('user_form_ven.php',__LINE__,'Erreur invalid request uri');
exit (-1);
}
$r.='';
}
return $r;
}
/*! RecordInvoice($p_cn,$p_array,$p_user,$p_jrn)
**************************************************
* \brief Record an invoice in the table jrn &
* jrnx
*
* \param $p_cn Database connection
* \param $p_array 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
* \param $p_periode periode
* \param $p_jrn current folder (journal)
*
* \return true on success
*/
function RecordInvoice($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;
// 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[$i]=${"e_march$i"."_tva_id"};
// check whether 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;
}// for
$comm=FormatString($e_comm);
// Compute VAT
//--
$a_vat_new=ComputeTotalVat($p_cn,$a_good,$a_quant,$a_price,$a_vat);
$sum_vat=0.0;
if ( $a_vat_new != null ){
foreach ( $a_vat_new as $element => $t) {
echo_debug('user_form_ven.php',__LINE__," a_vat element $element t $t");
$sum_vat+=$t;
echo_debug('user_form_ven.php',__LINE__,"sum_vat = $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);
StartSql($p_cn);
$r=InsertJrnx($p_cn,'d',$p_user->id,$p_jrn,$poste,$e_date,round($amount,2)+round($sum_vat,2),$seq,$periode);
if ( $r == false) { $Rollback($p_cn);exit("error 'user_form_ven.php' __LINE__");}
// Credit = goods
for ( $i = 0; $i < $nb_item;$i++) {
if ( $a_good[$i] == "" ) 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;
// record into jrnx
$j_id=InsertJrnx($p_cn,'c',$p_user->id,$p_jrn,$poste,$e_date,round($a_price[$i]*$a_quant[$i],2),$seq,$periode);
if ( $j_id == false) { $Rollback($p_cn);exit("error 'user_form_ven.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_ven.php' __LINE__");}
} // end loop
// Insert Vat
if ( $a_vat_new != null ) // no vat
{
foreach ($a_vat_new as $tva_id => $tva_amount ) {
$poste=GetTvaPoste($p_cn,$tva_id,'c');
if ($tva_amount == 0 ) continue;
$r=InsertJrnx($p_cn,'c',$p_user->id,$p_jrn,$poste,$e_date,round($tva_amount,2),$seq,$periode);
if ( $r == false ) { Rollback($p_cn); exit(" Error 'user_form_ven.php' __LINE__");}
}
}
echo_debug('user_form_ven.php',__LINE__,"echeance = $e_ech");
$r=InsertJrn($p_cn,$e_date,$e_ech,$p_jrn,"Invoice",round($amount_jrn,2)+round($sum_vat,2),$seq,$periode);
if ( $r == false ) { Rollback($p_cn); exit(" Error 'user_form_ven.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_ven.php' __LINE__"); };
if ( isset ($_FILES)) {
if ( sizeof($_FILES) != 0 )
save_upload_document($p_cn,$seq);
}
// save the quantity, then we can make an invoice
for ( $i=0;$i < $nb_item;$i++)
{
// don't record operation of 0
if ( $a_price[$i]*$a_quant[$i] == 0 ) continue;
// insert into the table quant_sold
// Note that negative value are also saved but not the vat !
if ( $a_vat[$i] == -1) {
$computed_vat=0;
$vat_code="null";
} else {
$computed_vat=ComputeVat($p_cn,$a_good[$i],$a_quant[$i],$a_price[$i],$a_vat[$i]);
$vat_code=$a_vat[$i];
}
$r=ExecSql($p_cn,"select insert_quant_sold ".
"('".$internal."','".$a_good[$i]."',".$a_quant[$i].",".$a_price[$i]*$a_quant[$i].
",".$computed_vat.
",".$vat_code.",'".$e_client."')");
if ( $r == false ) { Rollback($p_cn); exit(" Error 'user_form_ven.php' __LINE__"); };
}
Commit($p_cn);
return $comment;
}
?>