*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 TOTC FOR TYPE="C"
SUM ALL TTC TO TOTH FOR TYPE="H"
sum all TVA1 to vtva for type="H".or.type="N"

SUM ALL TTC TO TOTT
@ 15,2 SAY" EXPORT         SUSPENSION         NORMAL     CEE      PROF"
?TOTE,TOTS,TOTN,TOTC,TOTH
?
? "TOTAL ",TOTE+TOTS+TOTN+TOTC+TOTH,"total reel ",tott
? "TVA   ",vtva
WAIT
ENDDO
CLOSE DATA
RETU