sele Tmplignes
 GO TOP

SCAN  
  
  SELECT Tarticles  


 LOCATE FOR ALLTRIM(Tmplignes.CODEARTICLE)=ALLTRIM(Tarticles.codearticle)
   
   IF FOUND()
          	REPLACE  Tmplignes.asdi WITH Tarticles.asdi
       		REPLACE  Tmplignes.tva WITH Tarticles.tva=Tarticles.asdi
         
         Vtva=Tmplignes.tva
         Vasdi=Tmplignes.asdi 
         
         IF thiS.LISTINDEX=1
           Vtva=0
           Vasdi=0
           REPLACE Tmplignes.tva WITH Vtva
           REPLACE Tmplignes.asdi WITH Vasdi
         ENDIF
         
         IF thiS.LISTINDEX=2
           Vtva=Tmplignes.tva
           Vasdi=0
            REPLACE Tmplignes.tva WITH Vtva
            REPLACE Tmplignes.asdi WITH Vasdi
         ENDIF
         
         IF thiS.LISTINDEX=3
           Vtva=Tmplignes.TVA
           Vasdi=Tmplignes.asdi 
            REPLACE Tmplignes.tva WITH Vtva
            REPLACE Tmplignes.asdi WITH Vasdi
         ENDIF
         
     *------------------------------------
       

       Vmtbase=(Tmplignes.prix_unitaire-(Tmplignes.prix_unitaire*(Tmplignes.remise/100)))*Tmplignes.quantite
       VMontantaxe=(Tmplignes.prix_unitaire*(1-(Tmplignes.remise/100))*Tmplignes.quantite*(Tmplignes.tva/100))
       VmtASDI=(Tmplignes.prix_unitaire*(1-(Tmplignes.remise/100))*Tmplignes.quantite)*(1+(Tmplignes.tva/100))*(Tmplignes.asdi/100)


      
     *------------------------------------
     ENDIF

ENDSCAN