*EDITION DES CAPSULES
TITRE =" JOURNAL DE SORTIE REGIE"
dimension tab[29,3]
tab[1,1]=10
tab[2,1]=22
tab[3,1]=34
tab[4,1]=46
tab[5,1]=58
tab[6,1]=70
tab[7,1]=82
tab[8,1]=94
tab[9,1]=106
tab[10,1]=118
tab[11,1]=130
tab[12,1]=142
tab[13,1]=154
tab[14,1]=166
tab[15,1]=10
tab[16,1]=22
tab[17,1]=34
tab[18,1]=46
tab[19,1]=58
tab[20,1]=70
tab[21,1]=82
tab[22,1]=94
tab[23,1]=106
tab[24,1]=118
tab[25,1]=130
tab[26,1]=142
tab[27,1]=153
tab[28,1]=166
for c=1 to 28
tab [c,2]=0.00
tab [c,3]=0.00
next c
sele 1
use bglireg index bglirad alias liv
go bott
date2=liv->date
go top
date1=liv->date
mois1=cmonth(date1)
mois2=cmonth(date2)
mois=mois1
************
pol1=CHR(27)+"&l1O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s12H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol2=CHR(27)+"&l1O"+chr(27)+"&l8D"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s16H"+chr(27)+"(s10V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol3=CHR(27)+"&l1O"+chr(27)+"(s12U"+chr(27)+"(s1P"+chr(27)+"(s5H"+chr(27)+"(s24V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s6T"
vtotfac=0000.00
vtotmois=0
set print off
go top
vimp=0
set print on
? chr(27)+"&l1O"+chr(27)+"&l26A"
? pol2
eject
do wHIle .not. eof()
if mois=mois2
set print on
vimp=1
set margin to 0
endi
vnumf=liV->numfact
if prow()<2.and.vimp=1
? pol3+"JOURNAL DE REGIE ANNEE "+str(year(liv->date),4)+" mois de "+mois+" "+societe
?
? pol2 +"  fact      BGO         CHB          HN          HNB         RB          SG          VC          VCF         VM          VR          EC         VV          BG           "
?
?
*vt=ltrim(str(tab[13,1]))
endi
*+"&a152C"+dtoc(liv->date)
if vimp=1
?? str(liv->numfact,4,0)
endi
do while liv->numfact=vnumf
vt=ltrim(str(tab[liv->tabul,1]))
vi=liv->tabul
if vi<15 .and. vimp=1
??chr(27)+"&a"+vt+"C"+" "+str(liv->total,7,2)
tab[vi,2]=tab[vi,2]+liv->total
endi
tab[vi,3]=tab[vi,3]+liv->total
vtotfac=vtotfac+liv->total
vtotmois=vtotmois+liv->total
*tab[28,3]=tab[28,3]+liv->total
*tab[28,2]=tab[28,2]+liv->total
skip
enddo
mois=cmonth(liv->date)
if vimp=1
for vtb=1 to 14
vt=ltrim(str(tab[vtb,1]-3))
?? chr(27)+"&a"+vt+"C³"
next vtb
*??chr(27)+"&a166C"+str(vtotfac,8,2)
?"-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
?
vtotfac=0
if prow()>53 .or. mois<>mois2
*impression des totaux colonne
for c=1 to 14
vt=ltrim(str(tab[c,1]))
??chr(27)+"&a"+vt+"C"+str(tab[c,2],8,2)
tab[c,2]=0
next C
for vtb=1 to 14
vt=ltrim(str(tab[vtb,1]-3))
?? chr(27)+"&a"+vt+"C³"
next vtb
? " "
for c=1 to 14
vt=ltrim(str(tab[c,1]))
??chr(27)+"&a"+vt+"C"+str(tab[c,3],8,2)
next C
? " "
eject
endi
mois1=mois
endi
if .not.eof()
loop
else
exit
endi
enddo

***************************************pages 2
vtotfac=0
mois1=cmonth(date1)
mois2=cmonth(date2)
mois=mois1
go top
vimp=0
do wHIle .not. eof()
if mois=mois2
set print on
vimp=1
set margin to 0
endi
vnumf=liV->numfact
if prow()<2.and.vimp=1
*?pol2
? pol3+"JOURNAL DE REGIE ANNEE "+str(year(liv->date),4)+" mois de "+mois+" "+societe
?
? pol2 +" FACT       PAR         PPE          BBO         BMO                                                                                                       date          total"
?
?
*vt=ltrim(str(tab[13,1]))
endi
if vimp=1
?? str(vnumf,4,0)+chr(27)+"&a152C"+dtoc(liv->date)
endi
do while liv->numfact=vnumf
vt=ltrim(str(tab[liv->tabul,1]))
vi=liv->tabul
if vi>14.and. vimp=1
??chr(27)+"&a"+vt+"C"+" "+str(liv->total,7,2)
endi
tab[vi,3]=tab[vi,3]+liv->total
tab[vi,2]=tab[vi,2]+liv->total
vtotfac=vtotfac+liv->total
*vtotmois=vtotmois+liv->total
tab[28,3]=tab[28,3]+liv->total
tab[28,2]=tab[28,2]+liv->total
skip
enddo
mois=cmonth(liv->date)
if vimp=1
for vtb=15 to 28
vt=ltrim(str(tab[vtb,1]-3))
?? chr(27)+"&a"+vt+"C³"
next vtb
??chr(27)+"&a166C"+str(vtotfac,8,2)
?"-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
?
vtotfac=0
if prow()>53 .or. mois<>mois2
*impression des totaux colonne
for c=15to 28
vt=ltrim(str(tab[c,1]))
??chr(27)+"&a"+vt+"C"+str(tab[c,2],8,2)
tab[c,2]=0
next C
for vtb=15to 28
vt=ltrim(str(tab[vtb,1]-3))
?? chr(27)+"&a"+vt+"C³"
next vtb
? " "
for c=15to 28
vt=ltrim(str(tab[c,1]))
??chr(27)+"&a"+vt+"C"+str(tab[c,3],8,2)
next C
? " "
? "                         "
eject
endi
mois1=mois
endi
if .not.eof()
loop
else
exit
endi
enddo

close data
set print off
do pol
retu