*BGETSTO
*EDITION DES STOCKS VIN BOUT ET VRAC PAR PRODUITS
TITRE = "EDITION DU RECAPITULATIF STOCKS"
DO TITRE
SELE 2
USE SDFACTURE INDEX FACTURN
GO BOTT
VFAC=NUMERO
VNOMFAC=NOMCLI
USE
SELE 1
USE SDARTI INDEX SDARTI alias ar
set filter to (famille="VRA".or.FAMILLE="B")
*.and.quantite>0
GO TOP
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
set margin to 0
??chr(27)+"&l0L"+pol1
*+chr(27)+"&l0E"
totstock=0
totres=0
pp=1 
eject
DO WHILE .NOT. EOF()
if prow()<4
?
? societe+" STOCK AU ",DATE(),"page "+str(pp,2,0)
? "DERNIERE FACTURE ",VFAC,VNOMFAC
?
?"   article "+chr(27)+"&a40C"+"stock regie    stock btl    "
?
endi
*IF FAMILLE ="B" .OR.FAMILLE ="VRA"
vstock=0
vgroup=ar->group
?"--------------------------------------------------------------------------------------------"
do while ar->group = vgroup
totstock=totstock+quantite
vstock=vstock+quantite
vdesign1=trim(ar->designart)
vdesign2=left(vdesign1,len(vdesign1)-2)
skip
enddo
set esca on
do while .t.
if asc(right(vdesign2,1))< 65
vlong=len(vdesign2)-1
vdesign2 = left(vdesign2,vlong)
else
exit
endi
enddo
set esca off
? pol2+vdesign2+chr(27)+"&a55C"+":"+pol1+str(vstock,10,2)+"  "+str(vstock/0.75,10,2)
*NDI
*ENDI
if prow()>60
pp=pp+1
eject
endi
*SKIP
ENDDO
?
?pol1+"Totaux "+chr(27)+"&a39C"+":"+str(totstock,10,2)
?
? "                                 ."
GO TOP
CLOSE DATA
*eject
SET PRINT OFF
RETU