*liste des achats
DATE1=CTOD("  /  /    ")
DATE0=ctod("01/01/1998")
DATE2=DATE1
@ 10,10 SAY "DATE DE DEBUT" GET date1 VALID(date1 > date0 )
READ
@ 12,10 SAY "DATE DE FIN" GET date2 VALID(DATE2 > DATE1) HELP;
"LA DATE DE FIN DOIT ETRE SUPERIEURE A LA DATE DE DEBUT"
*@ 15,10 SAY "DONNEZ UN CODE PRODUIT OU RIEN POUR TOUS" GET VCODE PICTURE "@!"
IF date1=CTOD("  /  /    ")
RETU
ENDI
use bgmvsto
set date ansi
set safe off
index on codearti +dtoc(date) to tmp
set safe on
set date french
SET TALK OFF
set filter to quantite >0
GO TOP
prd="       "
@ 6,0 CLEAR
SET fixed ON
totachp=0
totach=0
PP=1
ppt=1
LL=1
REP="N"
@ 8,10 SAY "IMPRIMANTE O/N" GET REP PICTURE "@!"
IF REP="O"
SET PRINT ON
set margin to 3
pol1=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s12H"+chr(27)+"(s12V"+chr(27)+"(s0S"+ch
pol2=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s16H"+chr(27)+"(s12V"+chr(27)+"(s0S"+ch
pol3=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s1P"+chr(27)+"(s5H"+chr(27)+"(s24V"+chr(27)+"(s0S"+chr
*EJECT
ELSE
SET EXACT ON
set century on
DO WHILE .NOT. EOF()
do case
case substr(codearti,1,2)="CP"
*rien
other
IF PROW() < 4
??pol1
?"JOURNAL DES MOUVEMENTS DE STOCK du ",DTOC(DATE1)," au ",DTOC(DATE2),"PAGE",STR(PP,3,0),pol2+"éditi
?
endi
if prd # codearti
? "PRODUIT"+pol3+" "+CODEARTI
? pol1
? "DATE      NATURE OU NOM                   QUANTITE  "
? DATE,NATURE,quantite,quantite/.75
totach=totach+quantite
totachp=totachp+quantite
prd=codearti
enDC
skip
IF PRD#CODEARTI
? "  TOTAL DES ACHATS SUR LA PERIODE  ",totach
IF REP="O".and.prow()>55
EJECT
pp=pp+1
enddo
? "total des achats : ",totachp
eject
close data
retu