*EDITION DU JOURNAL DES reservations
TITRE =" JOURNAL DES RESERVATIONS"
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) 


READ
if date1=ctod("  /  /    ")            
retu            
endi
lis ="0"
SET TALK OFF
SELECT 1
USE reserv index reservn,reserv alias res
SET FILTER TO DATE >=DATE1 .AND. DATE <= DATE2
go top
vcli=space(25)
@ 10,5 say"nom de recherche "get vcli
read
if vcli # space(25)
lis="1"
vcli=rTrim(vcli)
set exac off
find &vcli
if .not. found()
lis="0"
else    
? " on le trouve "    
wait    
endi
endi
*case lis="2"
*SET FILTER TO (DATEFACT >=DATE1 .AND. DATEFACT <= DATE2).and.codebq="CAM"
*case lis="3"
*SET FILTER TO (DATEFACT >=DATE1 .AND. DATEFACT <= DATE2).and.codebq="CL"
*case lis="4"
*SET FILTER TO (DATEFACT >=DATE1 .AND. DATEFACT <= DATE2).and.codebq="ATT"
*case lis="5"
*SET FILTER TO (DATEFACT >=DATE1 .AND. DATEFACT <= DATE2).and.type="C"
*case lis="6"
*SET FILTER TO (DATEFACT >=DATE1 .AND. DATEFACT <= DATE2).and.type="E"
*case lis="7"
*SET FILTER TO (DATEFACT >=DATE1 .AND. DATEFACT <= DATE2).and.type="S"
*case lis="8"
*AND. DATEFACT <= DATE2).and.type="H"
go top
TOTHT1=0            
TOTHT2=0            
TOTTTC=0            
TOTTVA1=0            
TOTTVA2=0            
TOTCAIS=0            
TOTCCP=0            
TOTCL=0            
TOTCAM=0            
TOTATT=0            
TOTEXP=0            
TOTSUSP=0            
totcee=0
PP=1
LL=1
rep ="O"
@ 6,0 Clear
@ 10,5 say "Imprimante O/N" get rep picture "!"
read
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"
if rep="O"            
SET PRINT ON
endi
DO WHILE .not.eof()
if rep="O"       
IF PROW() < 4
?pol1+"SA DOMAINE AF GROS JOURNAL DES RESERVATIONS du ",DTOC(DATE1)," au ",DTOC(DATE2)  ,"          PAGE " ,STR(PP,3,0)
? pol2
? "CLIENT  NOM                            DATE    PRODUIT    QUANTITE bt   PU       TOTAL        AGENT     COMM/bt    comnet  NET"
?
ENDI
endi
VID=0
set exac on
if substr(nomcli,1,len(vcli))=vcli  .or. lis="0"
? pol2
?? NOMCLI," ",DATE," ",codearti,"  ",quantite," ",prixht," ",STR(quantite*prixht,10,2)," ",substr(agent,1,12)
?? " ",str(commission,5,2)
?? " "+str(commission*quantite,8,2)+" "+str((quantite*prixht)-(commission*quantite),10,2)
? "-----------------------------------------------------------------------------------------------------------------------------------"
TOTHT1=prixht*quantite
totht2=totht2+(commission*quantite)
TOTTTC=TOTTTC+totht1
endi
IF PROW()<58.and.rep="O"
SKIP
LOOP
ELSE
PP=PP+1
if rep="O"     
EJECT
endi
SKIP
if rep #"O"    
wait    
@ 24,0 say"                                           "
@ 24,0 say""
endi
LOOP
ENDI     
ENDDO
CLOSE DATA
IF PROW() > 60
if rep ="O"
EJECT
endi
ENDI
if rep ="O"
set print on
? pol2
endi
?
? "  TOTAL HT   ",totttc,"    - ",totht2, " = ",totttc-totht2, "net"
?
if rep="O"
?? pol1
EJECT
SET PRINT OFF
endi
set fixed off
CLOSE DATA
set exac on
RETU