*BGETSTO
*EDITION DES STOCKS VIN BOUT ET VRAC PAR PRODUITS
TITRE = "EDITION DU RECAPITULATIF STOCKS"
DO WHILE .T.
DO TITRE
SELE 2
USE SDFACTURE INDEX FACTURN
GO BOTT
VFAC=NUMERO
VNOMFAC=NOMCLI
USE
SELE 1
USE SDARTI INDEX SDARTI
GO TOP
SET PRINT ON
? CHR(27)+CHR(64)
? "             STOCK AU ",DATE()
? "DERNIERE FACTURE ",VFAC,VNOMFAC
?
?
DO WHILE .NOT. EOF()
IF FAMILLE ="B" .OR. FAMILLE ="CP".OR. FAMILLE="BTL"
IF QUANTITE #0
?"                     -------------------------------------------------------"
? CHR(27)+CHR(14),LEFT(DESIGNART,20)+".:",QUANTITE
ENDI    
ENDI
SKIP
ENDDO
GO TOP
DO WHILE .NOT. EOF()
IF FAMILLE ="VRA"
IF QUANTITE #0
?"                     -------------------------------------------------------"
? CHR(27)+CHR(14),LEFT(DESIGNART,20)+".:",QUANTITE
ENDI    
ENDI
SKIP
ENDDO
CLOSE DATA
SET PRINT OFF
EJECT
RETU