*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
 SELECT ar
  IF ar.codeart<>res.codearti
  SET ORDER TO codeart
  v_rech=res.codearti
  SEEK v_rech
   IF FOUND()
   replace ar.res WITH ar.res -res.q2
   ENDIF
  else
  replace ar.res WITH ar.res -res.q2
  ENDIF
 SELECT res
 
ENDIF