*EDITION DES CAPSULES
set century on
do while .t.
TITRE =" JOURNAL DE SORTIE REGIE"
DO TITRE
@ 6,0 CLEAR
SET fixed ON
DATE1=CTOD("  /  /  ")
DATE2=DATE1
VCODE ="    "                                     
@ 10,10 SAY "DATE DE DEBUT" GET date1
READ
@ 12,10 SAY "DATE DE FIN" GET date2 VALID(DATE2 > DATE1)
*@ 15,10 SAY "DONNEZ UN CODE PRODUIT OU RIEN POUR TOUS" GET VCODE PICTURE "@!"
READ
IF date1>CTOD("01/01/1980")
REP="N"
**********        
SELECT 1
USE SDARTI INDEX SDARTI ALIAS AR
SELE 2
USE SDLIGNES  ALIAS LG
set safe off
index on str(numfact,4,0)+codearti to temp
set index to sdligne2,temp
sele 3
use bglireg index bglirad,bglireg alias liv
zap
set safe on
sele lg
lt =prow()
TOTLIT=0.000
*DO WHILE .NOT. EOF()
**************
VDAT=DATE1
TROUVE=.F. 
DO WHILE VDAT<DATE1+25
@ 20,5 SAY"" 
? VDAT
*FIND &VDAT
SEEK VDAT
IF EOF()
VDAT=VDAT+1
LOOP
ELSE
TROUVE=.T.
skip-1
EXIT
ENDI
ENDDO
IF TROUVE
set order to 2
SET RELATION TO CODEARTI INTO AR
do while .not. eof()
if trim(lg->codearti)<>"".and.lg->date>=date1.and.lg->date<=date2.AND.(ar->BLOURO<>"")
vnumf=lg->numfact
vradi=substr(codearti,1,len(trim(codearti))-2)
sele liv
append blank
replace liv->NUMFACT with vnumf,liv->DATE with lg->DATE,liv->RADICAL with vradi
sele lg
set esca on
do while lg->numfact=vnumf
if ar->blouro ="R" .or. ar->blouro ="B"
if vradi=substr(codearti,1,len(trim(codearti))-2)
? "c'est le meme"
replace liv->total with liv->total+q2
else
vradi=substr(codearti,1,len(trim(codearti))-2)
sele liv
append blank
replace liv->NUMFACT with vnumf,liv->DATE with lg->date,liv->RADICAL with vradi
replace liv->total with liv->total+lg->q2
sele lg
endi
? date ,codearti+" "+vradi,ar->designart,q2,numfact
endi
skip
enddo
else
skip
loop
endi
enddo
set date french
set relation to
sele liv
set exac off
replace all tabul with 1 for left(radical,3)="BGO"
replace all tabul with 2 for left(radical,3)="CHB"
replace all tabul with 3 for left(radical,2)="HN"
replace all tabul with 4 for left(radical,3)="HNB"
replace all tabul with 5 for left(radical,2)="RB"
replace all tabul with 6 for left(radical,2)="SG"
replace all tabul with 12 for left(radical,2)="VV"
replace all tabul with 7 for left(radical,2)="VC".and.substr(radical,3,1)<"A"
replace all tabul with 8 for left(radical,3)="VCF"
replace all tabul with 9 for left(radical,2)="VM"
replace all tabul with 10 for left(radical,2)="VR"
replace all tabul with 11 for left(radical,2)="EC"
* page 2
replace all tabul with 13 for left(radical,2)="BG".and.substr(radical,3,1)<"A"
replace all tabul with 14 for left(radical,2)="PAR"
replace all tabul with 15 for left(radical,2)="PPE"
replace all tabul with 16 for left(radical,2)="BEB"
replace all tabul with 17 for left(radical,2)="BMO"
endi
set esca off
close data
do bgregie2
else
close data
exit
endi
enddo
close data
retu