Recherche:

Au temps pour moi !
Parmi les multiples façons de corriger :

select prd.Nomprod as Produit
, coalesce(app.TotApp, 0) - sum(vte.QteV) as QStock
from ...
group by...

S'il y a plusieurs ventes et plusieurs approvisionnements pour un même produits, il y a automatiquement multiplication des lignes et le résultat erroné que tu constates.
Il est donc nécessaire...

Qu'as-tu essayé comme requête(s) ?
Où rencontres-tu un problème ?
Un message d'erreur ? Lequel ?
Un résultat ne correspondant pas à celui attendu ? Donne-nous un exemple avec un jeu d'essai, le...