From 271ffffd8e72cabdefe53f5423a9f62e198bf0ba Mon Sep 17 00:00:00 2001
From: sparkyx <dany118@gmail.com>
Date: Sun, 2 Apr 2006 20:59:33 +0000
Subject: [PATCH] =?UTF-8?q?task=20#5023=20overview:=20Automatisation=20de?=
 =?UTF-8?q?=20certaines=20d=C3=A9penses=20non=20admises?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 include/constant.php      |   4 +-
 include/user_common.php   |  53 +++++++++++++----
 include/user_form_ach.php | 116 ++++++++++++++++++++++++++++++++++----
 3 files changed, 150 insertions(+), 23 deletions(-)

diff --git a/include/constant.php b/include/constant.php
index b3f3b56f2..bfcaf9610 100644
--- a/include/constant.php
+++ b/include/constant.php
@@ -109,7 +109,9 @@ define ("FICHE_TYPE_VENTE",1);
 define ("FICHE_TYPE_FOURNISSEUR",8);
 define ("FICHE_TYPE_FIN",4);
 define ("FICHE_TYPE_ADM_TAX",14);
-
+define ("ATTR_DEF_DEPENSE_NON_DEDUCTIBLE",20);
+define ("ATTR_DEF_TVA_NON_DEDUCTIBLE",21);
+define ("ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP",22);
 define ("JS_SEARCH_POSTE","<SCRIPT language=\"javascript\">function SearchPoste(p_sessid,p_ctl,p_jrn)
      {
        var win=window.open('poste_search.php?p_jrn='+p_jrn+'&p_ctl='+p_ctl+'&PHPSESSID='+p_sessid,'Cherche','toolbar=no,width=600,height=600,scrollbars=yes,resizable=yes');
diff --git a/include/user_common.php b/include/user_common.php
index 2a5e707fb..6f26d020c 100644
--- a/include/user_common.php
+++ b/include/user_common.php
@@ -60,12 +60,13 @@ function GetTvaRate($p_cn,$p_tva_id) {
  *      1- quantity array 
  *      - price array 
  *      - $ap_vat Array of tva id
+ *      - $all = false if we reduce VAT
  * gen :
  *	-
  * return: array
  *       a[tva_id] =  amount vat
  */
-function ComputeTotalVat($p_cn,	$a_fiche,$a_quant,$a_price,$ap_vat ) {
+function ComputeTotalVat($p_cn,	$a_fiche,$a_quant,$a_price,$ap_vat,$all=false ) {
 echo_debug(__FILE__,__LINE__,"ComputeTotalVat $a_fiche $a_quant $a_price");
  foreach ( $a_fiche as $t=>$el) {
    echo_debug(__FILE__,__LINE__,"t $t e $el");
@@ -74,7 +75,7 @@ echo_debug(__FILE__,__LINE__,"ComputeTotalVat $a_fiche $a_quant $a_price");
 // foreach goods 
 //--
  foreach ( $a_fiche as $idx=>$element) {
-   echo_debug ("idx $idx element $element");
+   echo_debug (__FILE__,__LINE__,"idx $idx element $element");
   // if the card id is null or empty 
     if ( isNumber($element)==0 
 	 or strlen(trim($element))==0) continue;
@@ -86,16 +87,46 @@ echo_debug(__FILE__,__LINE__,"ComputeTotalVat $a_fiche $a_quant $a_price");
     else
       $tva_id=GetFicheAttribut($p_cn,$a_fiche[$idx],ATTR_DEF_TVA);
     
-    if ( $tva_id == 'Unknown' ) continue;
+    if ( $tva_id == null ) continue;
     // for each fiche find the tva_rate and tva_id
     $a_vat=GetTvaRate($p_cn,$tva_id);
-    
-    // Get the attribut price of the card(fiche)
-    if ( $a_vat != null  and  $a_vat['tva_id'] != "" ) 
-   {  $a=$a_vat['tva_id'];
-      $vat_amount=$a_price[$idx]*$a_vat['tva_rate']*$a_quant[$idx];
-      $r[$a]=isset ( $r[$a] )?$r[$a]+$vat_amount:$vat_amount;
-    } 
+   
+	// Get the attribut price of the card(fiche)
+	if ( $a_vat != null  and  $a_vat['tva_id'] != "" ) 
+	{  
+		$flag=true;
+		$a=$a_vat['tva_id'];
+		// Compute vat for this item
+		$vat_amount=$a_price[$idx]*$a_vat['tva_rate']*$a_quant[$idx];
+	
+		 if ( $all == false ) 
+		{
+			// if a part is not deductible then reduce vat_amount
+			$nd=GetFicheAttribut($p_cn,$a_fiche[$idx],ATTR_DEF_TVA_NON_DEDUCTIBLE);
+			if ( $nd != null && strlen(trim($nd)) != 0 )
+			{
+				$nd_amount=$a_price[$idx]*$a_vat['tva_rate']*$a_quant[$idx]*$nd;
+				$vat_amount=$a_price[$idx]*$a_vat['tva_rate']*$a_quant[$idx];
+				echo_debug(__FILE__,__LINE__,"TVA Attr fiche [$nd] nd amount [ $nd_amount ]".
+							"vat amount [ $vat_amount]");
+				$vat_amount-=$nd_amount;
+				$flag=false;
+			}	
+			// if a part is not deductible then reduce vat_amount
+			$nd=GetFicheAttribut($p_cn,$a_fiche[$idx],ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP);
+			if ( $nd != null && strlen(trim($nd)) != 0 )
+			{
+				$nd_amount=$a_price[$idx]*$a_vat['tva_rate']*$a_quant[$idx]*$nd;
+				$vat_amount=$a_price[$idx]*$a_vat['tva_rate']*$a_quant[$idx];
+				echo_debug(__FILE__,__LINE__,"TVA Attr fiche [$nd] nd amount [ $nd_amount ]".
+							"vat amount [ $vat_amount]");
+				$vat_amount-=$nd_amount;
+				$flag=false;
+			}	
+		}
+		$r[$a]=isset ( $r[$a] )?$r[$a]+$vat_amount:$vat_amount; 
+	}
+		
     
  }
  echo_debug(__FILE__,__LINE__," return $r");
@@ -128,7 +159,7 @@ function ComputeVat($p_cn,	$p_fiche,$p_quant,$p_price,$p_vat ) {
     else
       $tva_id=GetFicheAttribut($p_cn,$p_fiche,ATTR_DEF_TVA);
     
-    if ( $tva_id == 'Unknown' ) return -1;
+    if ( $tva_id == null  ) return -1;
     // for each fiche find the tva_rate and tva_id
     $a_vat=GetTvaRate($p_cn,$tva_id);
     $vat_amount=-1;
diff --git a/include/user_form_ach.php b/include/user_form_ach.php
index 488c94f89..ae04a72a9 100644
--- a/include/user_form_ach.php
+++ b/include/user_form_ach.php
@@ -355,11 +355,54 @@ for ($o = 0;$o < $p_number; $o++) {
 	}
   	if ( strlen(trim($poste))==0 )
 	{
-		$msg="La fiche ".$tiers." n\'a pas de poste comptable";
+		$msg="La fiche ".${"e_march$i"}." n\'a pas de poste comptable";
 		echo_error($msg); echo_debug(__FILE__,__LINE__,$msg);		
 		echo "<SCRIPT>alert('$msg');</SCRIPT>";
 		return null;
 	}
+
+	// Check if the percentage indicated in this field is valid
+	$non_dedu=GetFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_DEPENSE_NON_DEDUCTIBLE);
+	if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
+	{
+		if ( isNumber($non_dedu) == 0 || $non_dedu > 1.00 ) 
+		{
+			$msg="La fiche ".${"e_march$i"}." a un pourcentage invalide, 
+			il doit être compris entre 0 et 1";
+			echo_error($msg); echo_debug(__FILE__,__LINE__,$msg);	
+			echo "<SCRIPT>alert('$msg');</SCRIPT>";
+			return null;
+		
+		}
+	}
+	// Check if the percentage indicated in this field is valid
+	$non_dedu=GetFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_TVA_NON_DEDUCTIBLE);
+	if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
+	{
+		if ( isNumber($non_dedu) == 0 || $non_dedu > 1.00 ) 
+		{
+			$msg="La fiche ".${"e_march$i"}." a un pourcentage invalide, 
+			il doit être compris entre 0 et 1";
+			echo_error($msg); echo_debug(__FILE__,__LINE__,$msg);	
+			echo "<SCRIPT>alert('$msg');</SCRIPT>";
+			return null;
+		
+		}
+	}	// Check if the percentage indicated in this field is valid
+	$non_dedu=GetFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_TVA_NON_DEDUCTIBLE_RECUP);
+	if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
+	{
+		if ( isNumber($non_dedu) == 0 || $non_dedu > 1.00 ) 
+		{
+			$msg="La fiche ".${"e_march$i"}." a un pourcentage invalide, 
+			il doit être compris entre 0 et 1";
+			echo_error($msg); echo_debug(__FILE__,__LINE__,$msg);	
+			echo "<SCRIPT>alert('$msg');</SCRIPT>";
+			return null;
+		
+		}
+	}
+
   }
 // Verify the userperiode
 
@@ -476,13 +519,13 @@ function FormAchView ($p_cn,$p_jrn,$p_periode,$p_array,$p_submit,$p_number,$p_pi
     // VAT 
     $vat=(isNumber(${"e_march$i"."_tva_id"})==0)?getFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_TVA):${"e_march$i"."_tva_id"};
 
-    //VAT deductibility rate
+/*    //VAT deductibility rate
     $deduct_rate = getFicheAttribut($p_cn,${"e_march$i"},ATTR_DEF_TVA_DEDUCT_RATE);      
     if ($deduct_rate == null)
     {
       $deduct_rate = 100;
     }
-    
+    */
     // vat label
     // vat rate
     $a_vat=GetTvaRate($p_cn,$vat);
@@ -586,13 +629,14 @@ function RecordSell($p_cn,$p_array,$p_user,$p_jrn)
   $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[$i]=${"e_march$i"."_tva_id"};
+    $a_vat1[$i]=${"e_march$i"."_tva_id"};
     // check wether the price is set or no
     if ( isNumber(${"e_march$i"."_sell"}) == 0 ) {
       if ( isNumber($a_good[$i]) == 1 ) {
@@ -609,8 +653,7 @@ function RecordSell($p_cn,$p_array,$p_user,$p_jrn)
     $amount_jrn+=($cost<0)?0:$cost;
   }
   $comm=FormatString($e_comm);
-  $a_vat=ComputeTotalVat($p_cn,$a_good,$a_quant,$a_price,$a_vat);
-
+  $a_vat=ComputeTotalVat($p_cn,$a_good,$a_quant,$a_price,$a_vat1,false);
   $sum_vat=0.0;
   if ( $a_vat != null ){
     foreach ( $a_vat as $element => $t) {
@@ -619,6 +662,16 @@ function RecordSell($p_cn,$p_array,$p_user,$p_jrn)
       echo_debug(__FILE__,__LINE__,"sum_vat = $sum_vat");
     }
   }
+// Compute vat without reduction
+	$a_vat_full=ComputeTotalVat($p_cn,$a_good,$a_quant,$a_price,$a_vat1,true);
+	$sum_vat_full=0.0;
+	if ( $a_vat_full != null ){
+		foreach ( $a_vat_full as $element => $t) {
+		echo_debug(__FILE__,__LINE__," a_vat element $element t $t");
+		$sum_vat_full+=$t;
+		echo_debug(__FILE__,__LINE__,"sum_vat = $sum_vat");
+		}
+	}
   // First we add in jrnx
 	
   // Compute the j_grpt
@@ -628,7 +681,7 @@ function RecordSell($p_cn,$p_array,$p_user,$p_jrn)
   // Debit = client
   $poste=GetFicheAttribut($p_cn,$e_client,ATTR_DEF_ACCOUNT);
   StartSql($p_cn);	
-  $r=InsertJrnx($p_cn,'c',$p_user->id,$p_jrn,$poste,$e_date,round($amount,2)+round($sum_vat,2),$seq,$periode);
+  $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 __FILE__ __LINE__");}
   // Credit = goods 
   for ( $i = 0; $i < $nb_item;$i++) {
@@ -637,14 +690,55 @@ function RecordSell($p_cn,$p_array,$p_user,$p_jrn)
 	  
     // 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(__FILE__,__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;
+		$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 __FILE__ __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(__FILE__,__LINE__,"TVA value non ded : $non_dedu");
+	if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
+	{
+		$ded_vat=ComputeVat($p_cn,	$a_good[$i],$a_quant[$i],$a_price[$i],
+				$a_vat1[$i] )*$non_dedu;
+		$sum_tva_nd+=$ded_vat;
+		$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 __FILE__ __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(__FILE__,__LINE__,"TVA value non ded : $non_dedu");
+	if ( $non_dedu != null && strlen(trim($non_dedu)) != 0 )
+	{
+		$ded_vat=ComputeVat($p_cn,	$a_good[$i],$a_quant[$i],$a_price[$i],
+				$a_vat1[$i] )*$non_dedu;
+		$sum_tva_nd+=$ded_vat;
+		$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 __FILE__ __LINE__");}
+	}
+
+
+
+
     // record into jrnx
-    $j_id=InsertJrnx($p_cn,'d',$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 __FILE__ __LINE__");}
+    $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 __FILE__ __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 __FILE__ __LINE__");}
+	echo_debug(__FILE__,__LINE__,"value non ded : ".$a_good[$i]."is");		
+
   }
+
   
   // Insert Vat
 
@@ -660,7 +754,7 @@ function RecordSell($p_cn,$p_array,$p_user,$p_jrn)
       }
     }
   echo_debug(__FILE__,__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);
+  $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 __FILE__ __LINE__");}
   // Set Internal code and Comment
   $internal=SetInternalCode($p_cn,$seq,$p_jrn);