$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=basename($_SERVER['PHP_SELF']);
$href=basename($_SERVER['PHP_SELF']);
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 the card has a valid account
if ( CheckPoste($p_cn,$e_client) == null )
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(__FILE__.__LINE__.$msg);
echo "";
return null;
}
// Check if the card has a valid account
if ( CheckPoste($p_cn,${"e_march$i"}) == null )
return null;
}
// 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 "";
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="";
$head_ca="";
// 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;
}
// Compute href
// $href=basename($_SERVER['PHP_SELF']);
$href=basename($_SERVER['PHP_SELF']);
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);
}
//----------------------------------------------------------------------
// Compute the col head for CA
$head_ca="";
$own = new Own($p_cn);
if ( $own->MY_ANALYTIC != "un" )
{
$plan=new PlanAnalytic($p_cn);
$a_plan=$plan->get_list();
foreach ($a_plan as $r_plan)
{
$head_ca.="
".$r_plan['name']."
";
}
}
//----------------------------------------------------------------------
$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 array ( internal_code,true on success)
*/
function RecordInvoice($p_cn,$p_array,$p_user,$p_jrn)
{
echo_debug('RecordInvoice',0,"p_array = $p_array");
foreach ( $p_array as $v => $e)
{
${"$v"}=$e;
}
// Get the default period
$periode=$p_user->GetPeriode();
$amount=0.0;
$own=new own($p_cn);
$group=NextSequence($p_cn,"s_oa_group");
// 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"};
}
$a_price[$i]=round($a_price[$i],2);
$cost=$a_price[$i]*$a_quant[$i];
$amount+=$cost;
echo_debug('RecordInvoice',__LINE__,"cost = $cost amount = $amount ");
}// for
echo_debug(__FILE__,__LINE__,"Dossier is ".dossier::id());
$comm=FormatString($e_comm);
// Compute VAT
//--
$a_vat_new=ComputeTotalVat($p_cn,$a_good,$a_quant,$a_price,$a_vat);
$sum_vat=0.0;
echo_debug(__FILE__,__LINE__,"Dossier is ".dossier::id());
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');
$internal=SetInternalCode($p_cn,$seq,$p_jrn);
echo_debug(__FILE__,__LINE__,"Dossier is ".dossier::id());
// Debit = client
$poste=GetFicheAttribut($p_cn,$e_client,ATTR_DEF_ACCOUNT);
echo_debug(__FILE__,__LINE__,"Dossier is ".dossier::id());
try
{
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,$e_client);
// 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,$a_good[$i]);
/* \brief if the quantity is < 0 then the stock increase (return of
* material)
*/
$nNeg=($a_quant[$i]<0)?-1:1;
// always save quantity but in withStock we can find
// what card need a stock management
InsertStockGoods($p_cn,$j_id,$a_good[$i],$nNeg*$a_quant[$i],'c') ;
if ( $own->MY_ANALYTIC != "un" )
{
// for each item, insert into operation_analytique
$plan=new PlanAnalytic($p_cn);
$a_plan=$plan->get_list();
foreach ($a_plan as $r_plan)
{
if ( isset(${"p_".$r_plan['id']."_".$i})&& ${"p_".$r_plan['id']."_".$i} != -1)
{
$op=new operation($p_cn);
$op->po_id=${"p_".$r_plan['id']."_".$i};
$op->oa_group=$group;
$op->j_id=$j_id;
$op->pa_id=$r_plan['id'];
$op->oa_amount=round($a_price[$i]*$a_quant[$i],2);
$op->oa_debit=($op->oa_amount < 0 )?'t':'f';
$op->oa_date=$e_date;
$op->add();
}
}
}
$computed_vat=ComputeVat($p_cn,$a_good[$i],$a_quant[$i],$a_price[$i],$a_vat[$i]);
$r=ExecSql($p_cn,"select insert_quant_sold ".
"('".$internal."',".$j_id.",'".$a_good[$i]
."',".$a_quant[$i].",".$a_price[$i]*$a_quant[$i].
",".$computed_vat.
",".$a_vat[$i].",'".$e_client."')");
} // 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);
}
}
echo_debug('user_form_ven.php',__LINE__,"echeance = $e_ech");
$r=InsertJrn($p_cn,$e_date,$e_ech,$p_jrn,"Invoice",$seq,$periode);
// Set Internal code and Comment
$Res=ExecSql($p_cn,"update jrn set jr_internal='".$internal."' where ".
" jr_grpt_id = ".$seq);
$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 ( 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];
}
}
}//try
catch (Exception $e)
{
echo ''.
'Erreur dans l\'enregistrement '.
__FILE__.':'.__LINE__.' '.
$e->getMessage();
Rollback($p_cn);
exit();
}
Commit($p_cn);
return array($internal,$comment);
}
?>