*calcul réservation en moins en cas de modification ou de supression
*appelée par valider du formulaire réservation
IF v_mod OR v_supr then
IF ar.codeart=res.codeartii
SELECT ar


replace ar.res WITH ar.res -res.q2


SELECT res
endi
ENDIF