*EDITION DU JOURNAL DES VENTES
TITRE =" CONSULTATION VENTES   "
DO WHILE .T.        
DO TITRE
@ 6,0 CLEAR
set fixed on                      
DATE1=CTOD("  /  /  ")
DATE2=DATE1
@ 10,10 SAY "DATE DE DEBUT" GET date1
READ
@ 12,10 SAY "DATE DE FIN" GET date2 VALID(DATE2 > DATE1) HELP;
"LA DATE DE FIN DOIT ETRE SUPERIEURE A LA DATE DE DEBUT"
READ
if date1=ctod("  /  /  ")            
retu            
endi
lis =SPACE(20)
SET TALK OFF
SELECT 1
USE SDFACTUR INDEX FACTURN ALIAS FC
set filter to datefact >=date1.and.datefact <=date2
SUM ALL TTC TO TOTE FOR TYPE="E"
SUM ALL TTC TO TOTN FOR TYPE="N"     
SUM ALL TTC TO TOTS FOR TYPE="S"     
SUM ALL TTC TO TOTT      
@ 15,2 SAY"CUMUL       EXPORT         SUSPENSION         NORMAL            TOTAL"
? "       ",TOTE,"   ",TOTS,"   ",TOTN,"   ",tOTT
?
? "TOTAL ",TOTE+TOTS+TOTN
?
WAIT
ENDDO
CLOSE DATA
RETU