* RECONSTITUTION DES STOCKS
TITRE ="RESTITUTION DES STOCKS ORDRE ECRITURES"
SELE 1
USE SDLIGNES INDEX SDLIGNES
SELE 2             
USE SDARTI INDEX SDARTI ALIAS AR
DO WHILE .T.
SELE 2        
DO TITRE
CPD=SPACE(7)
@ 10,5 SAY "CODE PRODUIT" GET CPD
READ               
IF CPD=SPACE(7)
EXIT
ENDI
CPD=trim(cpd)
SEEK CPD
IF EOF()
@ 24 ,5 SAY "ARTICLE INCONNU"
WAIT
LOOP
ENDI
SELE 1
SET FILTER TO CODEARTI=CPD
GO TOP
VSTOCK=00000.00                                       
@ 15,2 SAY "STOCK AU DEPART "GET VSTOCK
READ                   
DO WHILE .NOT.EOF()
IF CODEARTI=CPD
VSTOCK=VSTOCK-Q2                  
REPLACE STOCK WITH VSTOCK
ENDI             
IF .NOT.EOF()
SKIP
ENDI
ENDDO
SELE 2
REPLACE AR->QUANTITE WITH VSTOCK
ENDDO
CLOSE DATA
RETU