*LISTING DES ENTREPRISES
TITRE = "LISTE DES ENTREPRISES"
NIVEAU =2
FILTRE = ""
DO TITRE
@6,0 CLEAR
REP="O"
@ 10,12 SAY " VOULEZ VOUS ETABLIR DES CRITERES DE LISTAGE O/N " ÿ
GET REP
PAGE=1
READ
IF UPPER(REP)="O"
DO FILTRE.PRG
ENDIF
NB=0
NBT=0
RECLIST=0001
CLEAR
DO TITRE
IF FILTRE # ""
@ 10,10 SAY "FILTRE DE RECHERCHE :  "+FILTRE
ENDI
USE &RECFILE INDEX &INDNDX
SET EXACT OFF
IF FILTRE # ""
SET FILTER TO &FILTRE
ENDI
GO TOP
*SET PRINTER ON
?? CHR(27)+CHR(33)+CHR(5)
DO WHILE .NOT.DOq†B)%|€J@|¤	™$I<_ÉÈãq†8ÃaŽ0Çpppppq„8ãq.§ Sˆ!ÁÃÃÃÃÃÁÑÑÑÑÑÑÑÑÑÐççççççççççççççç‡„à ‚Žb@ÃàžQH˜ Bû‘Ì‹d"&¦`IÞeÈÉƒÈ@2B~À~
ÿ:€A<$ eD‘7óóóõôú ý ~€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€IMM€€ƒü(€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€ˆ4(ü4)9$4? NOMETP+"  "+AD1ETP+"  "+AD2ETP+"  "+VILETP
NB=NB+1
NBT=NBT+1
IF PROW() > 56 
?
? "                 "+STR(NB,2,0)+"    SUR CETTE PAGE  "+STR(NBT,4,0)+"   AU TOTAL"
EJECT
PAGE=PAGE+1
NB=0
ENDI
SKIP
ENDDO
?
? "                 "+STR(NB,2,0)+"   SUR CETTE PAGE "+STR(NBT,4,0)+" AU TOTAL"
SET PRINT OFF
EJECT
CLOSE DATA
SET EXACT ON
RETU