USE frz!reserv EXCLUSIVE IN 1
USE frz!reslignes EXCLUSIVE IN 2
SELECT 2
DO WHILE NOT EOF()
sele 1
REPLACE  reslignes.prixuni WITH reserv.prixht
SKIP
SELECT 2
SKIP
ENDDO
SELECT 1
USE
SELECT 2
use
RETURN