WSELE 0
TITRE ="VALIDATION DES FACTURES"
DO TITRE
@ 12,5 SAY "VALIDATION DE LA FACTURE EN COURS O/N" GET REP PICT "!"
READ
IF REP ="O"
SELE LG
SET RELATION TO CODEARTI INTO AR
set filter to numfact=vnumtmp
go top
SEEK VNUMTMP
DO WHILE LG->NUMFACT = VNUMTMP
vrech=lg->codearti
replace ar->quantite with ar->quantite- (lg->quantite*ar->COLISSAGE)
skip
ENDD
ENDI       
SET ORDER TO 1       
SELE LG
SET RELATION TO    
RETU