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