*EDITION DU JOURNAL DES VENTES

*DEFINE WINDOW ancien_ecran FROM 1,10 TO 50,172
*ACTIVATE WINDOW ancien_ecran 
*TITRE =" CONSULTATION VENTES   "
*DO TITRE
*@ 6,0 CLEAR
set fixed on                      
DATE1=CTOD("  /  /  ")

DATE2=DATE1
*L_date_deb=CTOD("01/01/2003")
*L_date_fin=l_date_deb+365
DO FORM pg_s_dates
*? l_date_deb
*DATE2=DATE1
*date1=l_date_deb
*date2=l_date_fin
if date1=ctod("  /  /  ")            
*DEACTIVATE WINDOW ancien_ecran
retu            
endi
lis =SPACE(20)
DO FORM f_s_filtre_cons

*@ 13,10 say "Entrez une partie clé du nom client ou EX pour exports" get lis picture"@!"
*read            
lis =trim(lis)            
SET TALK OFF
SELECT 1
USE afg!SDFACTUR order numero ALIAS FC
if lis="EX"
SET FILTER TO (DATEFACT >=DATE1 .AND. DATEFACT <= DATE2).and.type ="E"
else
SET FILTER TO (lis $ nomcli).and.(DATEFACT >=DATE1 .AND. DATEFACT <= DATE2)
endif
GO TOP
*rep ="N"                                   
*@ 14,10 say "imprimant O/N" get rep picture "!"
*read
TOTHT1=0
TOTHT2=0            
TOTTTC=0            
TOTTVA1=0            
TOTTVA2=0            
TOTCAIS=0            
TOTCCP=0            
TOTCL=0            
TOTCAM=0            
TOTATT=0            
TOTEXP=0            
TOTSUSP=0            
SET EXACT ON
*PP=1
if .not. eof()
SKIP    
endi
GO TOP    
*LL=1
*if rep ="O"            
*pol1=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s12H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
*pol2=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s16H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
*pol3=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s1P"+chr(27)+"(s5H"+chr(27)+"(s24V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s6T"
*SET PRINT ON
*EJECT
*endi
REPORT FORM R_e_bgcons.FRX    PREVIEW IN SCREEN
*DO WHILE .NOT. EOF()
*?pol2
*IF PROW() < 4
*?pol1,"JOURNAL DES VENTES du ",DTOC(DATE1)," au ",DTOC(DATE2)  ,"                    PAGE " ,STR(PP,3,0)
*?pol2,"CLIENT  NOM                          NUM FACT   DATE  RGT    HTTVA 18      TVA18          TTC   "
*?
*ENDI
*? pol2
*VID=0
*?? NOMCLI," ",NUMERO," ",DATEFACT,REGLEMENT,STR(MONTHT1,10,2)," ",STR(TVA1,10,2),"  ",STR(TTC,10,2),"  ",CODEBQ," ",MODEPAIE," ",str(numERO)
*? "---------------------------------------------------------------------------------------------------------------------------------------"
*TOTHT1=TOTHT1+MONTHT1
*TOTHT2=TOTHT2+MONTHT2
*IF TYPE="N"
*TOTTTC=TOTTTC+TTC
*TOTTVA1=TOTTVA1+TVA1
*TOTTVA2=TOTTVA2+TVA2
*ELSE
*IF TYPE="E"
*TOTEXP=TOTEXP+TTC
*ELSE
*TOTSUSP=TOTSUSP+TTC
*ENDI
*ENDI
*DO CASE
*CASE CODEBQ="CAIS"
*TOTCAIS=TOTCAIS+TTC
*CASE CODEBQ="CL"
*TOTCL=TOTCL+TTC
*CASE CODEBQ="CAM"
*TOTCAM=TOTCAM+TTC
*CASE CODEBQ="CCP"
*TOTCCP=TOTCCP+TTC
*CASE CODEBQ="ATT"
*TOTATT=TOTATT+TTC
*ENDC
*IF PROW()<58
*SKIP
*LOOP
*ELSE
*PP=PP+1
*if rep="O"     
*EJECT
*endi    
*SKIP
*LOOP     
*ENDI     
*ENDDO
*CLOSE DATA
*IF PROW() > 55
*if rp="O"     
*EJECT
*endi    
*ENDI
*TOTHT=TOTHT1+TOTHT2
*if rep="O"            
*set print on
*endi         
*? pol2
*?
*? "  TOTAL HT        TVA 18,6%       TOTAL TTC     TOTAL CAISSE     TOTAL CCP     TOTAL CL     TOTAL CAM     TOTAL ATT"
*?
*?  TOTHT," ",TOTTVA1," ",TOTTTC," ",TOTCAIS," ",TOTCCP," ",TOTCL," ",TOTCAM," ",TOTATT
*? pol1
*? "TOTAL VENTES EXPORT :",TOTEXP,"  TOTAL SUSPENSION TVA =: ",TOTSUSP
*WAIT          
*if rep="O"             
*SET PRINT OFF
*endi             
set fixed off
*CLOSE DATA
*DEACTIVATE WINDOW ancien_ecran
select 1
use
RETU