*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. EOF()
IF PROW()<=3
? "                                                               ÿ
     PAGE Nø "+STR(PAGE,4)+"  LE  "+DTOC(DATE()) 
?
? " ENTREPRISE                                           ADRESSE   ÿ
                                                      "
?
ENDI
? 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