*TABLEAU DE BORD DES STOCKS
TITRE = "TABLEAU DE BORD"
CLEAR                       
DO TITRE                       
USE SDARTI INDEX SDARTI
DO WHILE .T.        
REP ="VR"
@ 10,10 SAY "DONNEZ LES 2 PREMIERES LETTRES DU TYPE DE VIN XX=SORTIE" GET REP
READ
IF UPPER(REP) ="XX"
EXIT
ENDI
SET FILTER TO SUBSTR(CODEART,1,2)=REP
GO TOP
GRAPH FORM BGBORD
ENDDO
CLOSE DATA
RETU